From cb219ef67c073d9a41d48665cf55ae58218d0605 Mon Sep 17 00:00:00 2001 From: vyzo Date: Sat, 20 Apr 2024 20:14:13 +0300 Subject: [PATCH] Type do loops (#1221) Let's have types there too. Also improves match code generation a tad. On top of #1220 --- src/bootstrap/gerbil/compiler/base~0.scm | 506 +- src/bootstrap/gerbil/compiler/base~1.scm | 550 +- src/bootstrap/gerbil/compiler/compile~0.scm | 15615 +++++----- src/bootstrap/gerbil/compiler/compile~1.scm | 1284 +- src/bootstrap/gerbil/compiler/driver~0.scm | 3287 +- src/bootstrap/gerbil/compiler/driver~1.scm | 56 +- src/bootstrap/gerbil/compiler/method~0.scm | 3020 +- src/bootstrap/gerbil/compiler/method~1.scm | 2950 +- .../gerbil/compiler/optimize-ann~0.scm | 18427 ++++++----- .../gerbil/compiler/optimize-ann~1.scm | 210 +- .../gerbil/compiler/optimize-base~0.scm | 1864 +- .../gerbil/compiler/optimize-base~1.scm | 2452 +- .../gerbil/compiler/optimize-call~0.scm | 6298 ++-- .../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 | 25944 ++++++++-------- .../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 | 6572 ++-- src/bootstrap/gerbil/core.ssi | 9936 +++--- src/bootstrap/gerbil/core/contract.ssi | 12 + src/bootstrap/gerbil/core/contract~1.scm | 230 +- src/bootstrap/gerbil/core/contract~2.scm | 32 +- src/bootstrap/gerbil/core/contract~3.scm | 70 +- src/bootstrap/gerbil/core/contract~4.scm | 92 +- src/bootstrap/gerbil/core/contract~5.scm | 118 +- src/bootstrap/gerbil/core/contract~6.scm | 1444 +- src/bootstrap/gerbil/core/contract~8.scm | 2262 +- src/bootstrap/gerbil/core/contract~9.scm | 3607 ++- .../gerbil/core/contract~ClassMeta~0.scm | 78 +- .../gerbil/core/contract~InterfaceInfo~0.scm | 90 +- .../gerbil/core/contract~TypeEnv~0.scm | 2 +- src/bootstrap/gerbil/core/macro-object~0.scm | 2 +- src/bootstrap/gerbil/core/match~1.scm | 10 +- src/bootstrap/gerbil/core/module-sugar~1.scm | 2 +- src/bootstrap/gerbil/core/mop~MOP-2~0.scm | 2 +- 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~0.scm | 4978 +-- src/bootstrap/gerbil/expander/module~1.scm | 832 +- src/bootstrap/gerbil/expander/root~0.scm | 758 +- src/bootstrap/gerbil/expander/stxcase~0.scm | 3058 +- 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 | 604 +- src/bootstrap/gerbil/runtime/control~0.scm | 410 +- src/bootstrap/gerbil/runtime/error~0.scm | 3244 +- src/bootstrap/gerbil/runtime/error~1.scm | 948 +- src/bootstrap/gerbil/runtime/eval~0.scm | 3078 +- 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 | 2676 +- src/bootstrap/gerbil/runtime/hash~1.scm | 1198 +- src/bootstrap/gerbil/runtime/init~0.scm | 410 +- src/bootstrap/gerbil/runtime/interface~0.scm | 1232 +- 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~0.scm | 5416 ++-- 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 | 1435 +- src/bootstrap/gerbil/runtime/system~0.scm | 264 +- src/bootstrap/gerbil/runtime/table~0.scm | 3248 +- src/bootstrap/gerbil/runtime/table~1.scm | 1288 +- src/bootstrap/gerbil/runtime/thread~0.scm | 472 +- src/bootstrap/gerbil/runtime/util~0.scm | 3412 +- src/bootstrap/gerbil/runtime/util~1.scm | 2354 +- src/bootstrap/gerbil/runtime~0.scm | 2 +- src/gerbil/core.ss | 12 +- src/gerbil/core/contract.ss | 261 +- src/gerbil/core/match.ss | 10 +- 86 files changed, 92839 insertions(+), 92583 deletions(-) diff --git a/src/bootstrap/gerbil/compiler/base~0.scm b/src/bootstrap/gerbil/compiler/base~0.scm index c17c0beb0..5ce5f0498 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 1713454411) + (define gerbil/compiler/base::timestamp 1713631267) (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 ((_%verbosity132605132607%_ + (let ((_%verbosity133737133739%_ (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_VERBOSE" '#f)))) - (if _%verbosity132605132607%_ - (let* ((_%verbosity132610%_ _%verbosity132605132607%_) - (_%$e132612%_ (string->number _%verbosity132610%_))) - (if _%$e132612%_ _%$e132612%_ _%verbosity132610%_)) + (if _%verbosity133737133739%_ + (let* ((_%verbosity133742%_ _%verbosity133737133739%_) + (_%$e133744%_ (string->number _%verbosity133742%_))) + (if _%$e133744%_ _%$e133744%_ _%verbosity133742%_)) '#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 ((__tmp132667 (list)) (__tmp132666 (cons (cons 'struct: '#t) '()))) + (let ((__tmp133799 (list)) (__tmp133798 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp132667 + __tmp133799 '(gensyms bindings) - __tmp132666 + __tmp133798 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (__make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _%$args132603%_ - (apply make-instance gxc#symbol-table::t _%$args132603%_))) + (lambda _%$args133735%_ + (apply make-instance gxc#symbol-table::t _%$args133735%_))) (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 (_%self132125132588%_) - (let* ((_%self132591%_ _%self132125132588%_) - (_%self132593%_ _%self132591%_)) - (if (let ((__tmp132668 + (lambda (_%self133257133720%_) + (let* ((_%self133723%_ _%self133257133720%_) + (_%self133725%_ _%self133723%_)) + (if (let ((__tmp133800 (let () (declare (not safe)) - (##structure-length _%self132593%_)))) + (##structure-length _%self133725%_)))) (declare (not safe)) - (##fx< '2 __tmp132668)) + (##fx< '2 __tmp133800)) (begin - (let ((__tmp132669 + (let ((__tmp133801 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self132593%_ - __tmp132669 + _%self133725%_ + __tmp133801 '1 '#f '#f)) - (let ((__tmp132670 + (let ((__tmp133802 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self132593%_ - __tmp132670 + _%self133725%_ + __tmp133802 '2 '#f '#f)) '#!void) - (let ((__tmp132671 + (let ((__tmp133803 (let () (declare (not safe)) - (##vector-length _%self132593%_)))) + (##vector-length _%self133725%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self132593%_ + _%self133725%_ '2 - __tmp132671)))))) + __tmp133803)))))) (let () (declare (not safe)) (__bind-method!__% @@ -125,138 +125,134 @@ gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_%message132457%_ _%stx132458%_ . _%details132459%_) - (let ((_%ctx132464%_ - (let ((_%$e132461%_ + (lambda (_%message133589%_ _%stx133590%_ . _%details133591%_) + (let ((_%ctx133596%_ + (let ((_%$e133593%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (if _%$e132461%_ _%$e132461%_ 'compile)))) + (if _%$e133593%_ _%$e133593%_ 'compile)))) (apply gx#raise-syntax-error - _%ctx132464%_ - _%message132457%_ - _%stx132458%_ - _%details132459%_)))) + _%ctx133596%_ + _%message133589%_ + _%stx133590%_ + _%details133591%_)))) (define gxc#verbose - (lambda _%args132454%_ + (lambda _%args133586%_ (if (let () (declare (not safe)) (gxc#current-compile-verbose)) - (let ((__tmp132672 + (let ((__tmp133804 (lambda () (let () (declare (not safe)) - (##apply displayln _%args132454%_))))) + (##apply displayln _%args133586%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp132672)) + (__with-lock gxc#__verbose-mutex __tmp133804)) '#!void))) (define gxc#__verbose-mutex (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_%id132436%_) - (let* ((_%str132438%_ - (if (symbol? _%id132436%_) + (lambda (_%id133568%_) + (let* ((_%str133570%_ + (if (symbol? _%id133568%_) (let () (declare (not safe)) - (##symbol->string _%id132436%_)) - _%id132436%_)) - (_%len132440%_ (string-length _%str132438%_)) - (_%res132442%_ - (let () (declare (not safe)) (##make-string _%len132440%_)))) - (let _%lp132445%_ ((_%i132447%_ '0)) - (if (let () (declare (not safe)) (##fx< _%i132447%_ _%len132440%_)) - (let* ((_%char132449%_ (string-ref _%str132438%_ _%i132447%_)) - (_%xchar132451%_ + (##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%_ (if (let () (declare (not safe)) (string-index__0 gxc#module-path-reserved-chars - _%char132449%_)) + _%char133581%_)) '#\_ - _%char132449%_))) - (string-set! _%res132442%_ _%i132447%_ _%xchar132451%_) - (_%lp132445%_ - (let () (declare (not safe)) (##fx+ _%i132447%_ '1)))) - _%res132442%_))))) + _%char133581%_))) + (string-set! _%res133574%_ _%i133579%_ _%xchar133583%_) + (_%lp133577%_ + (let () (declare (not safe)) (##fx+ _%i133579%_ '1)))) + _%res133574%_))))) (define gxc#map* - (lambda (_%proc132378%_ _%maybe-improper-list132379%_) - (let _%recur132381%_ ((_%rest132383%_ _%maybe-improper-list132379%_)) - (let* ((_%rest132384132395%_ _%rest132383%_) - (_%E132388132399%_ + (lambda (_%proc133510%_ _%maybe-improper-list133511%_) + (let _%recur133513%_ ((_%rest133515%_ _%maybe-improper-list133511%_)) + (let* ((_%rest133516133527%_ _%rest133515%_) + (_%E133520133531%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest132384132395%_ + _%rest133516133527%_ '([hd . rest]) '([]) '(tail))) '#!void))) - (let ((_%K132391132424%_ - (lambda (_%rest132421%_ _%hd132422%_) - (cons (_%proc132378%_ _%hd132422%_) - (_%recur132381%_ _%rest132421%_)))) - (_%K132390132415%_ (lambda () '())) - (_%K132389132405%_ - (lambda (_%tail132403%_) (_%proc132378%_ _%tail132403%_)))) - (let ((_%try-match132386132418%_ + (let ((_%K133523133556%_ + (lambda (_%rest133553%_ _%hd133554%_) + (cons (_%proc133510%_ _%hd133554%_) + (_%recur133513%_ _%rest133553%_)))) + (_%K133522133547%_ (lambda () '())) + (_%K133521133537%_ + (lambda (_%tail133535%_) (_%proc133510%_ _%tail133535%_)))) + (let ((_%try-match133518133550%_ (lambda () - (if (let () + (if (null? _%rest133516133527%_) + (_%K133522133547%_) + (let ((_%tail133540%_ _%rest133516133527%_)) (declare (not safe)) - (##null? _%rest132384132395%_)) - (_%K132390132415%_) - (let ((_%tail132408%_ _%rest132384132395%_)) - (declare (not safe)) - (_%proc132378%_ _%tail132408%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest132384132395%_)) - (let ((_%tl132393132429%_ + (_%proc133510%_ _%tail133540%_)))))) + (if (pair? _%rest133516133527%_) + (let ((_%tl133525133561%_ (let () (declare (not safe)) - (##cdr _%rest132384132395%_))) - (_%hd132392132427%_ + (##cdr _%rest133516133527%_))) + (_%hd133524133559%_ (let () (declare (not safe)) - (##car _%rest132384132395%_)))) - (let ((_%hd132432%_ _%hd132392132427%_) - (_%rest132434%_ _%tl132393132429%_)) - (_%K132391132424%_ _%rest132434%_ _%hd132432%_))) - (_%try-match132386132418%_)))))))) + (##car _%rest133516133527%_)))) + (let ((_%hd133564%_ _%hd133524133559%_) + (_%rest133566%_ _%tl133525133561%_)) + (_%K133523133556%_ _%rest133566%_ _%hd133564%_))) + (_%try-match133518133550%_)))))))) (define gxc#symbol-in-local-scope? - (lambda (_%sym132373%_) - (let ((_%$e132375%_ (not (gxc#gensym-reference? _%sym132373%_)))) - (if _%$e132375%_ - _%$e132375%_ - (memq _%sym132373%_ + (lambda (_%sym133505%_) + (let ((_%$e133507%_ (not (gxc#gensym-reference? _%sym133505%_)))) + (if _%$e133507%_ + _%$e133507%_ + (memq _%sym133505%_ (let () (declare (not safe)) (gxc#current-compile-local-env))))))) (define gxc#gensym-reference? - (lambda (_%sym132369%_) - (let ((_%str132371%_ (symbol->string _%sym132369%_))) + (lambda (_%sym133501%_) + (let ((_%str133503%_ (symbol->string _%sym133501%_))) (if (let () (declare (not safe)) - (##string-prefix? '"_%" _%str132371%_)) + (##string-prefix? '"_%" _%str133503%_)) (let () (declare (not safe)) - (##string-suffix? '"%_" _%str132371%_)) + (##string-suffix? '"%_" _%str133503%_)) '#f)))) (define gxc#generate-runtime-binding-id - (lambda (_%id132340%_) - (let ((_%$e132342%_ + (lambda (_%id133472%_) + (let ((_%$e133474%_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id132340%_ + _%id133472%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id132340%_)) + (gx#resolve-identifier__0 _%id133472%_)) '#f))) - (if _%$e132342%_ - ((lambda (_%bind132345%_) - (let ((_%eid132347%_ - (##structure-ref _%bind132345%_ '1 gx#binding::t '#f)) - (_%ht132348%_ + (if _%$e133474%_ + ((lambda (_%bind133477%_) + (let ((_%eid133479%_ + (##structure-ref _%bind133477%_ '1 gx#binding::t '#f)) + (_%ht133480%_ (##structure-ref (let () (declare (not safe)) @@ -266,155 +262,155 @@ '#f))) (if (let () (declare (not safe)) - (interned-symbol? _%eid132347%_)) - _%eid132347%_ - (let ((_%$e132351%_ + (interned-symbol? _%eid133479%_)) + _%eid133479%_ + (let ((_%$e133483%_ (let () (declare (not safe)) - (hash-get _%ht132348%_ _%eid132347%_)))) - (if _%$e132351%_ - _%$e132351%_ + (hash-get _%ht133480%_ _%eid133479%_)))) + (if _%$e133483%_ + _%$e133483%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%bind132345%_ + _%bind133477%_ 'gx#local-binding::t)) - (let ((_%gid132355%_ + (let ((_%gid133487%_ (gxc#generate-runtime-gensym-reference__0 - _%eid132347%_))) + _%eid133479%_))) (let () (declare (not safe)) (hash-put! - _%ht132348%_ - _%eid132347%_ - _%gid132355%_)) - _%gid132355%_) + _%ht133480%_ + _%eid133479%_ + _%gid133487%_)) + _%gid133487%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind132345%_ + _%bind133477%_ 'gx#module-binding::t)) - (let ((_%gid132364%_ - (let ((_%$e132358%_ + (let ((_%gid133496%_ + (let ((_%$e133490%_ (##structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%bind132345%_ + _%bind133477%_ '4 '#f '#f)) '6 gx#module-context::t '#f))) - (if _%$e132358%_ - ((lambda (_%ns132361%_) + (if _%$e133490%_ + ((lambda (_%ns133493%_) (let () (declare (not safe)) (make-symbol__1 - _%ns132361%_ + _%ns133493%_ '"#" - _%eid132347%_))) - _%$e132358%_) + _%eid133479%_))) + _%$e133490%_) (gxc#generate-runtime-gensym-reference__0 - _%eid132347%_))))) + _%eid133479%_))))) (let () (declare (not safe)) (hash-put! - _%ht132348%_ - _%eid132347%_ - _%gid132364%_)) - _%gid132364%_) + _%ht133480%_ + _%eid133479%_ + _%gid133496%_)) + _%gid133496%_) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _%id132340%_ - _%eid132347%_ - _%bind132345%_)))))))) - _%$e132342%_) - (if (let ((__tmp132673 + _%id133472%_ + _%eid133479%_ + _%bind133477%_)))))))) + _%$e133474%_) + (if (let ((__tmp133805 (let () (declare (not safe)) - (gx#stx-e _%id132340%_)))) + (gx#stx-e _%id133472%_)))) (declare (not safe)) - (interned-symbol? __tmp132673)) - (let () (declare (not safe)) (gx#stx-e _%id132340%_)) + (interned-symbol? __tmp133805)) + (let () (declare (not safe)) (gx#stx-e _%id133472%_)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _%id132340%_)))))) + _%id133472%_)))))) (define gxc#generate-runtime-binding-id* - (lambda (_%id132338%_) - (if (let () (declare (not safe)) (gx#identifier? _%id132338%_)) - (gxc#generate-runtime-binding-id _%id132338%_) + (lambda (_%id133470%_) + (if (let () (declare (not safe)) (gx#identifier? _%id133470%_)) + (gxc#generate-runtime-binding-id _%id133470%_) (gxc#generate-runtime-temporary__0)))) (define gxc#generate-runtime-temporary__% - (lambda (_%top132325%_) - (if _%top132325%_ - (let ((_%ns132327%_ + (lambda (_%top133457%_) + (if _%top133457%_ + (let ((_%ns133459%_ (##structure-ref - (let ((__tmp132674 + (let ((__tmp133806 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) - (gx#core-context-top__1 __tmp132674)) + (gx#core-context-top__1 __tmp133806)) '6 gx#module-context::t '#f)) - (_%phi132328%_ + (_%phi133460%_ (let () (declare (not safe)) (gx#current-expander-phi)))) - (if _%ns132327%_ - (if (fxpositive? _%phi132328%_) - (let ((__tmp132676 (number->string _%phi132328%_)) - (__tmp132675 + (if _%ns133459%_ + (if (fxpositive? _%phi133460%_) + (let ((__tmp133808 (number->string _%phi133460%_)) + (__tmp133807 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 - _%ns132327%_ + _%ns133459%_ '"[" - __tmp132676 + __tmp133808 '"]#_" - __tmp132675 + __tmp133807 '"_")) - (let ((__tmp132677 + (let ((__tmp133809 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 _%ns132327%_ '"#_" __tmp132677 '"_"))) - (if (fxpositive? _%phi132328%_) - (let ((__tmp132679 (number->string _%phi132328%_)) - (__tmp132678 + (make-symbol__1 _%ns133459%_ '"#_" __tmp133809 '"_"))) + (if (fxpositive? _%phi133460%_) + (let ((__tmp133811 (number->string _%phi133460%_)) + (__tmp133810 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 '"[" - __tmp132679 + __tmp133811 '"]#_" - __tmp132678 + __tmp133810 '"_")) - (let ((__tmp132680 + (let ((__tmp133812 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp132680 '"_"))))) - (let ((__tmp132681 (let () (declare (not safe)) (##gensym)))) + (make-symbol__1 '"_" __tmp133812 '"_"))))) + (let ((__tmp133813 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp132681 '"_"))))) + (make-symbol__1 '"_" __tmp133813 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_%top132334%_ '#f)) - (gxc#generate-runtime-temporary__% _%top132334%_)))) + (let ((_%top133466%_ '#f)) + (gxc#generate-runtime-temporary__% _%top133466%_)))) (define gxc#generate-runtime-temporary - (lambda _g132683_ - (let ((_g132682_ (let () (declare (not safe)) (##length _g132683_)))) - (cond ((let () (declare (not safe)) (##fx= _g132682_ 0)) - (apply gxc#generate-runtime-temporary__0 _g132683_)) - ((let () (declare (not safe)) (##fx= _g132682_ 1)) - (apply gxc#generate-runtime-temporary__% _g132683_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g132683_)))))) + _g133815_)))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_%sym132303%_ _%quote?132304%_) - (let* ((_%ht132306%_ + (lambda (_%sym133435%_ _%quote?133436%_) + (let* ((_%ht133438%_ (##structure-ref (let () (declare (not safe)) @@ -422,66 +418,66 @@ '1 gxc#symbol-table::t '#f)) - (_%$e132308%_ + (_%$e133440%_ (let () (declare (not safe)) - (hash-get _%ht132306%_ _%sym132303%_)))) - (if _%$e132308%_ - _%$e132308%_ - (let ((_%g132312%_ - (if _%quote?132304%_ - (let ((__tmp132684 + (hash-get _%ht133438%_ _%sym133435%_)))) + (if _%$e133440%_ + _%$e133440%_ + (let ((_%g133444%_ + (if _%quote?133436%_ + (let ((__tmp133816 (let () (declare (not safe)) (gxc#current-compile-timestamp)))) (declare (not safe)) (make-symbol__1 '"__" - _%sym132303%_ + _%sym133435%_ '"__" - __tmp132684)) + __tmp133816)) (let () (declare (not safe)) - (make-symbol__1 '"_%" _%sym132303%_ '"%_"))))) + (make-symbol__1 '"_%" _%sym133435%_ '"%_"))))) (let () (declare (not safe)) - (hash-put! _%ht132306%_ _%sym132303%_ _%g132312%_)) - _%g132312%_))))) + (hash-put! _%ht133438%_ _%sym133435%_ _%g133444%_)) + _%g133444%_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_%sym132317%_) - (let ((_%quote?132319%_ '#f)) + (lambda (_%sym133449%_) + (let ((_%quote?133451%_ '#f)) (gxc#generate-runtime-gensym-reference__% - _%sym132317%_ - _%quote?132319%_)))) + _%sym133449%_ + _%quote?133451%_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g132686_ - (let ((_g132685_ (let () (declare (not safe)) (##length _g132686_)))) - (cond ((let () (declare (not safe)) (##fx= _g132685_ 1)) - (apply gxc#generate-runtime-gensym-reference__0 _g132686_)) - ((let () (declare (not safe)) (##fx= _g132685_ 2)) - (apply gxc#generate-runtime-gensym-reference__% _g132686_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g132686_)))))) + _g133818_)))))) (define gxc#runtime-identifier=? - (lambda (_%id1132295%_ _%id2132296%_) - (letrec ((_%symbol-e132298%_ - (lambda (_%id132300%_) - (if (symbol? _%id132300%_) - _%id132300%_ - (gxc#generate-runtime-binding-id _%id132300%_))))) - (eq? (_%symbol-e132298%_ _%id1132295%_) - (_%symbol-e132298%_ _%id2132296%_))))) + (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%_))))) (define gxc#identifier-symbol - (lambda (_%stx132293%_) + (lambda (_%stx133425%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%stx132293%_ + _%stx133425%_ 'gx#syntax-quote::t)) - (gxc#generate-runtime-binding-id _%stx132293%_) - (let () (declare (not safe)) (gx#stx-e _%stx132293%_))))) + (gxc#generate-runtime-binding-id _%stx133425%_) + (let () (declare (not safe)) (gx#stx-e _%stx133425%_))))) (define gxc#__compile-jobs '()) (define gxc#__available-cores (string->number @@ -489,69 +485,69 @@ (define gxc#__jobs-mx (make-mutex)) (define gxc#__jobs-cv (make-condition-variable)) (define gxc#add-compile-job!__% - (lambda (_%thunk132278%_ _%name132279%_) + (lambda (_%thunk133410%_ _%name133411%_) (mutex-lock! gxc#__jobs-mx) - (let ((_%job132281%_ - (gxc#make-compile-job _%thunk132278%_ _%name132279%_))) - (set! gxc#__compile-jobs (cons _%job132281%_ gxc#__compile-jobs))) + (let ((_%job133413%_ + (gxc#make-compile-job _%thunk133410%_ _%name133411%_))) + (set! gxc#__compile-jobs (cons _%job133413%_ gxc#__compile-jobs))) (mutex-unlock! gxc#__jobs-mx))) (define gxc#add-compile-job!__0 - (lambda (_%thunk132286%_) - (let ((_%name132288%_ + (lambda (_%thunk133418%_) + (let ((_%name133420%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (gxc#add-compile-job!__% _%thunk132286%_ _%name132288%_)))) + (gxc#add-compile-job!__% _%thunk133418%_ _%name133420%_)))) (define gxc#add-compile-job! - (lambda _g132688_ - (let ((_g132687_ (let () (declare (not safe)) (##length _g132688_)))) - (cond ((let () (declare (not safe)) (##fx= _g132687_ 1)) - (apply gxc#add-compile-job!__0 _g132688_)) - ((let () (declare (not safe)) (##fx= _g132687_ 2)) - (apply gxc#add-compile-job!__% _g132688_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#add-compile-job! - _g132688_)))))) + _g133820_)))))) (define gxc#pending-compile-jobs (lambda () (mutex-lock! gxc#__jobs-mx) - (let ((_%result132275%_ (reverse! gxc#__compile-jobs))) + (let ((_%result133407%_ (reverse! gxc#__compile-jobs))) (set! gxc#__compile-jobs '()) (mutex-unlock! gxc#__jobs-mx) - _%result132275%_))) + _%result133407%_))) (define gxc#execute-pending-compile-jobs! (lambda () - (let _%loop132269%_ () - (let ((_%pending132272%_ (gxc#pending-compile-jobs))) - (if (null? _%pending132272%_) + (let _%loop133401%_ () + (let ((_%pending133404%_ (gxc#pending-compile-jobs))) + (if (null? _%pending133404%_) '#!void (begin (let () (declare (not safe)) - (##for-each thread-start! _%pending132272%_)) + (##for-each thread-start! _%pending133404%_)) (let () (declare (not safe)) - (##for-each gxc#join! _%pending132272%_)))))))) + (##for-each gxc#join! _%pending133404%_)))))))) (define gxc#make-compile-job - (lambda (_%thunk132258%_ _%name132259%_) + (lambda (_%thunk133390%_ _%name133391%_) (make-thread (lambda () - (let _%loop132262%_ () + (let _%loop133394%_ () (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 ((__tmp132689 + (let ((__tmp133821 (lambda () (let () (declare (not safe)) (displayln '"... execute compile job " - _%name132259%_))))) + _%name133391%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp132689)) - (let ((__tmp132691 (lambda () (_%thunk132258%_))) - (__tmp132690 + (__with-lock gxc#__verbose-mutex __tmp133821)) + (let ((__tmp133823 (lambda () (_%thunk133390%_))) + (__tmp133822 (lambda () (mutex-lock! gxc#__jobs-mx) (set! gxc#__available-cores @@ -561,25 +557,25 @@ (condition-variable-signal! gxc#__jobs-cv) (mutex-unlock! gxc#__jobs-mx)))) (declare (not safe)) - (__with-unwind-protect __tmp132691 __tmp132690))) + (__with-unwind-protect __tmp133823 __tmp133822))) (begin (mutex-unlock! gxc#__jobs-mx gxc#__jobs-cv) - (_%loop132262%_))))) - _%name132259%_))) + (_%loop133394%_))))) + _%name133391%_))) (define gxc#join! - (lambda (_%thread132253%_) - (let ((__tmp132693 - (lambda (_%exn132255%_) + (lambda (_%thread133385%_) + (let ((__tmp133825 + (lambda (_%exn133387%_) (if (let () (declare (not safe)) - (uncaught-exception? _%exn132255%_)) - (let ((__tmp132694 + (uncaught-exception? _%exn133387%_)) + (let ((__tmp133826 (let () (declare (not safe)) - (uncaught-exception-reason _%exn132255%_)))) + (uncaught-exception-reason _%exn133387%_)))) (declare (not safe)) - (raise __tmp132694)) - (let () (declare (not safe)) (raise _%exn132255%_))))) - (__tmp132692 (lambda () (thread-join! _%thread132253%_)))) + (raise __tmp133826)) + (let () (declare (not safe)) (raise _%exn133387%_))))) + (__tmp133824 (lambda () (thread-join! _%thread133385%_)))) (declare (not safe)) - (__with-catch __tmp132693 __tmp132692)))))) + (__with-catch __tmp133825 __tmp133824)))))) diff --git a/src/bootstrap/gerbil/compiler/base~1.scm b/src/bootstrap/gerbil/compiler/base~1.scm index edc432449..bb22262b2 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]#_g132704_| + (define |gxc[1]#_g133836_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132706_| + (define |gxc[1]#_g133838_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132708_| + (define |gxc[1]#_g133840_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132710_| + (define |gxc[1]#_g133842_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132711_| + (define |gxc[1]#_g133843_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132713_| + (define |gxc[1]#_g133845_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132714_| + (define |gxc[1]#_g133846_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132716_| + (define |gxc[1]#_g133848_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132717_| + (define |gxc[1]#_g133849_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132719_| + (define |gxc[1]#_g133851_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132720_| + (define |gxc[1]#_g133852_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! @@ -79,202 +79,202 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_%stx131787%_) + (lambda (_%stx132919%_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _%stx131787%_ + _%stx132919%_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_%stx131790%_) - (let* ((_%g131793131817%_ - (lambda (_%g131794131813%_) + (lambda (_%stx132922%_) + (let* ((_%g132925132949%_ + (lambda (_%g132926132945%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g131794131813%_)))) - (_%g131792132120%_ - (lambda (_%g131794131821%_) + _%g132926132945%_)))) + (_%g132924133252%_ + (lambda (_%g132926132953%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g131794131821%_)) - (let ((_%e131797131824%_ + (gx#stx-pair? _%g132926132953%_)) + (let ((_%e132929132956%_ (let () (declare (not safe)) - (gx#syntax-e _%g131794131821%_)))) - (let ((_%hd131798131828%_ + (gx#syntax-e _%g132926132953%_)))) + (let ((_%hd132930132960%_ (let () (declare (not safe)) - (##car _%e131797131824%_))) - (_%tl131799131831%_ + (##car _%e132929132956%_))) + (_%tl132931132963%_ (let () (declare (not safe)) - (##cdr _%e131797131824%_)))) + (##cdr _%e132929132956%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131799131831%_)) - (let ((_%e131800131834%_ + (gx#stx-pair? _%tl132931132963%_)) + (let ((_%e132932132966%_ (let () (declare (not safe)) - (gx#syntax-e _%tl131799131831%_)))) - (let ((_%hd131801131838%_ + (gx#syntax-e _%tl132931132963%_)))) + (let ((_%hd132933132970%_ (let () (declare (not safe)) - (##car _%e131800131834%_))) - (_%tl131802131841%_ + (##car _%e132932132966%_))) + (_%tl132934132973%_ (let () (declare (not safe)) - (##cdr _%e131800131834%_)))) + (##cdr _%e132932132966%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl131802131841%_)) - (let ((_g132695_ + (gx#stx-pair/null? _%tl132934132973%_)) + (let ((_g133827_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl131802131841%_ + _%tl132934132973%_ '0)))) (begin - (let ((_g132696_ + (let ((_g133828_ (let () (declare (not safe)) - (if (##values? _g132695_) + (if (##values? _g133827_) (##vector-length - _g132695_) + _g133827_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132696_ 2))) + (##fx= _g133828_ 2))) (error "Context expects 2 values" - _g132696_))) - (let ((_%target131803131844%_ + _g133828_))) + (let ((_%target132935132976%_ (let () (declare (not safe)) - (##vector-ref _g132695_ 0))) - (_%tl131805131847%_ + (##vector-ref _g133827_ 0))) + (_%tl132937132979%_ (let () (declare (not safe)) (##vector-ref - _g132695_ + _g133827_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl131805131847%_)) - (letrec ((_%loop131806131850%_ - (lambda (_%hd131804131854%_ + _%tl132937132979%_)) + (letrec ((_%loop132938132982%_ + (lambda (_%hd132936132986%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause131810131857%_) + _%clause132942132989%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd131804131854%_)) - (let ((_%e131807131860%_ + (gx#stx-pair? _%hd132936132986%_)) + (let ((_%e132939132992%_ (let () (declare (not safe)) - (gx#syntax-e _%hd131804131854%_)))) - (let ((_%lp-hd131808131864%_ + (gx#syntax-e _%hd132936132986%_)))) + (let ((_%lp-hd132940132996%_ (let () (declare (not safe)) - (##car _%e131807131860%_))) - (_%lp-tl131809131867%_ + (##car _%e132939132992%_))) + (_%lp-tl132941132999%_ (let () (declare (not safe)) - (##cdr _%e131807131860%_)))) - (_%loop131806131850%_ - _%lp-tl131809131867%_ - (cons _%lp-hd131808131864%_ - _%clause131810131857%_)))) - (let ((_%clause131811131870%_ - (reverse _%clause131810131857%_))) - ((lambda (_%L131874%_ _%L131876%_) + (##cdr _%e132939132992%_)))) + (_%loop132938132982%_ + _%lp-tl132941132999%_ + (cons _%lp-hd132940132996%_ + _%clause132942132989%_)))) + (let ((_%clause132943133002%_ + (reverse _%clause132942132989%_))) + ((lambda (_%L133006%_ _%L133008%_) (if (let () (declare (not safe)) - (gx#identifier-list? _%L131876%_)) - (let* ((_%g131895131912%_ - (lambda (_%g131896131908%_) + (gx#identifier-list? _%L133008%_)) + (let* ((_%g133027133044%_ + (lambda (_%g133028133040%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g131896131908%_)))) - (_%g131894131973%_ - (lambda (_%g131896131916%_) + _%g133028133040%_)))) + (_%g133026133105%_ + (lambda (_%g133028133048%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g131896131916%_)) - (let ((_g132697_ + _%g133028133048%_)) + (let ((_g133829_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g131896131916%_ + _%g133028133048%_ '0)))) (begin - (let ((_g132698_ + (let ((_g133830_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g132697_) - (##vector-length _g132697_) + _g133829_) + (##vector-length _g133829_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g132698_ 2))) - (error "Context expects 2 values" _g132698_))) + (##fx= _g133830_ 2))) + (error "Context expects 2 values" _g133830_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target131898131919%_ + (let ((_%target133030133051%_ (let () (declare (not safe)) (##vector-ref - _g132697_ + _g133829_ 0))) - (_%tl131900131922%_ + (_%tl133032133054%_ (let () (declare (not safe)) (##vector-ref - _g132697_ + _g133829_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl131900131922%_)) - (letrec ((_%loop131901131925%_ + _%tl133032133054%_)) + (letrec ((_%loop133033133057%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd131899131929%_ _%clause131905131932%_) + (lambda (_%hd133031133061%_ _%clause133037133064%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd131899131929%_)) - (let ((_%e131902131935%_ + (gx#stx-pair? _%hd133031133061%_)) + (let ((_%e133034133067%_ (let () (declare (not safe)) - (gx#syntax-e _%hd131899131929%_)))) - (let ((_%lp-hd131903131939%_ + (gx#syntax-e _%hd133031133061%_)))) + (let ((_%lp-hd133035133071%_ (let () (declare (not safe)) - (##car _%e131902131935%_))) - (_%lp-tl131904131942%_ + (##car _%e133034133067%_))) + (_%lp-tl133036133074%_ (let () (declare (not safe)) - (##cdr _%e131902131935%_)))) - (_%loop131901131925%_ - _%lp-tl131904131942%_ - (cons _%lp-hd131903131939%_ - _%clause131905131932%_)))) - (let ((_%clause131906131945%_ - (reverse _%clause131905131932%_))) - ((lambda (_%L131949%_) + (##cdr _%e133034133067%_)))) + (_%loop133033133057%_ + _%lp-tl133036133074%_ + (cons _%lp-hd133035133071%_ + _%clause133037133064%_)))) + (let ((_%clause133038133077%_ + (reverse _%clause133037133064%_))) + ((lambda (_%L133081%_) (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 _%L131876%_ - (let ((__tmp132699 - (lambda (_%g131964131967%_ - _%g131965131970%_) - (cons _%g131964131967%_ - _%g131965131970%_)))) + (cons _%L133008%_ + (let ((__tmp133831 + (lambda (_%g133096133099%_ + _%g133097133102%_) + (cons _%g133096133099%_ + _%g133097133102%_)))) (declare (not safe)) - (__foldr1 __tmp132699 '() _%L131949%_))))) + (__foldr1 __tmp133831 '() _%L133081%_))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause131906131945%_)))))) - (_%loop131901131925%_ _%target131898131919%_ '())) - (_%g131895131912%_ _%g131896131916%_))))) + _%clause133038133077%_)))))) + (_%loop133033133057%_ _%target133030133051%_ '())) + (_%g133027133044%_ _%g133028133048%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g131895131912%_ - _%g131896131916%_))))) - (_%g131894131973%_ - (let ((__tmp132702 - (lambda (_%clause131977%_) - (let* ((_%__stx132615132616%_ - _%clause131977%_) - (_%g131981132008%_ + (_%g133027133044%_ + _%g133028133048%_))))) + (_%g133026133105%_ + (let ((__tmp133834 + (lambda (_%clause133109%_) + (let* ((_%__stx133747133748%_ + _%clause133109%_) + (_%g133113133140%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx132615132616%_))))) - (let ((_%__kont132618132619%_ - (lambda (_%L132093%_ - _%L132095%_) - (cons _%L132095%_ + _%__stx133747133748%_))))) + (let ((_%__kont133750133751%_ + (lambda (_%L133225%_ + _%L133227%_) + (cons _%L133227%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L132093%_ '())) + (cons _%L133225%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont132620132621%_ - (lambda (_%L132045%_ - _%L132047%_ - _%L132048%_) - (cons _%L132048%_ - (cons _%L132047%_ + (_%__kont133752133753%_ + (lambda (_%L133177%_ + _%L133179%_ + _%L133180%_) + (cons _%L133180%_ + (cons _%L133179%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L132045%_ '())) + (cons _%L133177%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx132615132616%_)) - (let ((_%e131985132073%_ + _%__stx133747133748%_)) + (let ((_%e133117133205%_ (let () (declare (not safe)) (gx#syntax-e - _%__stx132615132616%_)))) - (let ((_%tl131987132080%_ + _%__stx133747133748%_)))) + (let ((_%tl133119133212%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e131985132073%_))) - (_%hd131986132077%_ - (let () (declare (not safe)) (##car _%e131985132073%_)))) + (##cdr _%e133117133205%_))) + (_%hd133118133209%_ + (let () (declare (not safe)) (##car _%e133117133205%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131987132080%_)) - (let ((_%e131988132083%_ + (gx#stx-pair? _%tl133119133212%_)) + (let ((_%e133120133215%_ (let () (declare (not safe)) - (gx#syntax-e _%tl131987132080%_)))) - (let ((_%tl131990132090%_ + (gx#syntax-e _%tl133119133212%_)))) + (let ((_%tl133122133222%_ (let () (declare (not safe)) - (##cdr _%e131988132083%_))) - (_%hd131989132087%_ + (##cdr _%e133120133215%_))) + (_%hd133121133219%_ (let () (declare (not safe)) - (##car _%e131988132083%_)))) + (##car _%e133120133215%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl131990132090%_)) - (_%__kont132618132619%_ - _%hd131989132087%_ - _%hd131986132077%_) + (gx#stx-null? _%tl133122133222%_)) + (_%__kont133750133751%_ + _%hd133121133219%_ + _%hd133118133209%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131990132090%_)) - (let ((_%e132000132035%_ + (gx#stx-pair? _%tl133122133222%_)) + (let ((_%e133132133167%_ (let () (declare (not safe)) - (gx#syntax-e _%tl131990132090%_)))) - (let ((_%tl132002132042%_ + (gx#syntax-e _%tl133122133222%_)))) + (let ((_%tl133134133174%_ (let () (declare (not safe)) - (##cdr _%e132000132035%_))) - (_%hd132001132039%_ + (##cdr _%e133132133167%_))) + (_%hd133133133171%_ (let () (declare (not safe)) - (##car _%e132000132035%_)))) + (##car _%e133132133167%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132002132042%_)) - (_%__kont132620132621%_ - _%hd132001132039%_ - _%hd131989132087%_ - _%hd131986132077%_) + (gx#stx-null? _%tl133134133174%_)) + (_%__kont133752133753%_ + _%hd133133133171%_ + _%hd133121133219%_ + _%hd133118133209%_) (let () (declare (not safe)) - (_%g131981132008%_))))) + (_%g133113133140%_))))) (let () (declare (not safe)) - (_%g131981132008%_)))))) - (let () (declare (not safe)) (_%g131981132008%_))))) + (_%g133113133140%_)))))) + (let () (declare (not safe)) (_%g133113133140%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g131981132008%_))))))) - (__tmp132700 - (let ((__tmp132701 - (lambda (_%g132111132114%_ - _%g132112132117%_) - (cons _%g132111132114%_ - _%g132112132117%_)))) + (_%g133113133140%_))))))) + (__tmp133832 + (let ((__tmp133833 + (lambda (_%g133243133246%_ + _%g133244133249%_) + (cons _%g133243133246%_ + _%g133244133249%_)))) (declare (not safe)) (__foldr1 - __tmp132701 + __tmp133833 '() - _%L131874%_)))) + _%L133006%_)))) (declare (not safe)) - (gx#stx-map1 __tmp132702 __tmp132700)))) - (_%g131793131817%_ _%g131794131821%_))) - _%clause131811131870%_ - _%hd131801131838%_)))))) + (gx#stx-map1 __tmp133834 __tmp133832)))) + (_%g132925132949%_ _%g132926132953%_))) + _%clause132943133002%_ + _%hd132933132970%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop131806131850%_ - _%target131803131844%_ + (_%loop132938132982%_ + _%target132935132976%_ '())) - (_%g131793131817%_ - _%g131794131821%_))))) - (_%g131793131817%_ _%g131794131821%_)))) - (_%g131793131817%_ _%g131794131821%_)))) - (_%g131793131817%_ _%g131794131821%_))))) - (_%g131792132120%_ _%stx131790%_)))) + (_%g132925132949%_ + _%g132926132953%_))))) + (_%g132925132949%_ _%g132926132953%_)))) + (_%g132925132949%_ _%g132926132953%_)))) + (_%g132925132949%_ _%g132926132953%_))))) + (_%g132924133252%_ _%stx132922%_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj132665 + (let ((__obj133797 (let () (declare (not safe)) (##structure @@ -475,18 +475,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj132665 + __obj133797 'gxc#symbol-table::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132665 'symbol-table '2 '#f '#f)) + (##unchecked-structure-set! __obj133797 'symbol-table '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj132665 + __obj133797 '(gensyms bindings) '4 '#f @@ -494,111 +494,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj132665 + __obj133797 '(gensyms bindings) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132665 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj133797 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132665 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133797 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132665 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133797 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132665 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133797 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132665 ':init! '11 '#f '#f)) - (let ((__tmp132703 |gxc[1]#_g132704_|)) + (##unchecked-structure-set! __obj133797 ':init! '11 '#f '#f)) + (let ((__tmp133835 |gxc[1]#_g133836_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132665 __tmp132703 '12 '#f '#f)) - (let ((__tmp132705 |gxc[1]#_g132706_|)) + (##unchecked-structure-set! __obj133797 __tmp133835 '12 '#f '#f)) + (let ((__tmp133837 |gxc[1]#_g133838_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132665 __tmp132705 '13 '#f '#f)) - (let ((__tmp132707 |gxc[1]#_g132708_|)) + (##unchecked-structure-set! __obj133797 __tmp133837 '13 '#f '#f)) + (let ((__tmp133839 |gxc[1]#_g133840_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132665 __tmp132707 '14 '#f '#f)) - (let ((__tmp132709 - (cons (cons 'gensyms |gxc[1]#_g132710_|) - (cons (cons 'bindings |gxc[1]#_g132711_|) '())))) + (##unchecked-structure-set! __obj133797 __tmp133839 '14 '#f '#f)) + (let ((__tmp133841 + (cons (cons 'gensyms |gxc[1]#_g133842_|) + (cons (cons 'bindings |gxc[1]#_g133843_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj132665 __tmp132709 '15 '#f '#f)) - (let ((__tmp132712 - (cons (cons 'gensyms |gxc[1]#_g132713_|) - (cons (cons 'bindings |gxc[1]#_g132714_|) '())))) + (##unchecked-structure-set! __obj133797 __tmp133841 '15 '#f '#f)) + (let ((__tmp133844 + (cons (cons 'gensyms |gxc[1]#_g133845_|) + (cons (cons 'bindings |gxc[1]#_g133846_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj132665 __tmp132712 '16 '#f '#f)) - (let ((__tmp132715 - (cons (cons 'gensyms |gxc[1]#_g132716_|) - (cons (cons 'bindings |gxc[1]#_g132717_|) '())))) + (##unchecked-structure-set! __obj133797 __tmp133844 '16 '#f '#f)) + (let ((__tmp133847 + (cons (cons 'gensyms |gxc[1]#_g133848_|) + (cons (cons 'bindings |gxc[1]#_g133849_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj132665 __tmp132715 '17 '#f '#f)) - (let ((__tmp132718 - (cons (cons 'gensyms |gxc[1]#_g132719_|) - (cons (cons 'bindings |gxc[1]#_g132720_|) '())))) + (##unchecked-structure-set! __obj133797 __tmp133847 '17 '#f '#f)) + (let ((__tmp133850 + (cons (cons 'gensyms |gxc[1]#_g133851_|) + (cons (cons 'bindings |gxc[1]#_g133852_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj132665 __tmp132718 '18 '#f '#f)) + (##unchecked-structure-set! __obj133797 __tmp133850 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132665 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133797 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132665 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133797 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132665 '() '20 '#f '#f)) - __obj132665)) + (##unchecked-structure-set! __obj133797 '() '20 '#f '#f)) + __obj133797)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_%$stx132127%_) - (let* ((_%g132131132145%_ - (lambda (_%g132132132141%_) + (lambda (_%$stx133259%_) + (let* ((_%g133263133277%_ + (lambda (_%g133264133273%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132132132141%_)))) - (_%g132130132186%_ - (lambda (_%g132132132149%_) + _%g133264133273%_)))) + (_%g133262133318%_ + (lambda (_%g133264133281%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g132132132149%_)) - (let ((_%e132134132152%_ + (gx#stx-pair? _%g133264133281%_)) + (let ((_%e133266133284%_ (let () (declare (not safe)) - (gx#syntax-e _%g132132132149%_)))) - (let ((_%hd132135132156%_ + (gx#syntax-e _%g133264133281%_)))) + (let ((_%hd133267133288%_ (let () (declare (not safe)) - (##car _%e132134132152%_))) - (_%tl132136132159%_ + (##car _%e133266133284%_))) + (_%tl133268133291%_ (let () (declare (not safe)) - (##cdr _%e132134132152%_)))) + (##cdr _%e133266133284%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132136132159%_)) - (let ((_%e132137132162%_ + (gx#stx-pair? _%tl133268133291%_)) + (let ((_%e133269133294%_ (let () (declare (not safe)) - (gx#syntax-e _%tl132136132159%_)))) - (let ((_%hd132138132166%_ + (gx#syntax-e _%tl133268133291%_)))) + (let ((_%hd133270133298%_ (let () (declare (not safe)) - (##car _%e132137132162%_))) - (_%tl132139132169%_ + (##car _%e133269133294%_))) + (_%tl133271133301%_ (let () (declare (not safe)) - (##cdr _%e132137132162%_)))) + (##cdr _%e133269133294%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132139132169%_)) - ((lambda (_%L132172%_) + (gx#stx-null? _%tl133271133301%_)) + ((lambda (_%L133304%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -613,60 +613,60 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L132172%_ '()))) + (cons '() (cons _%L133304%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd132138132166%_) - (_%g132131132145%_ _%g132132132149%_)))) - (_%g132131132145%_ _%g132132132149%_)))) - (_%g132131132145%_ _%g132132132149%_))))) - (_%g132130132186%_ _%$stx132127%_)))) + _%hd133270133298%_) + (_%g133263133277%_ _%g133264133281%_)))) + (_%g133263133277%_ _%g133264133281%_)))) + (_%g133263133277%_ _%g133264133281%_))))) + (_%g133262133318%_ _%$stx133259%_)))) (define |gxc[:0:]#go!| - (lambda (_%$stx132190%_) - (let* ((_%g132194132208%_ - (lambda (_%g132195132204%_) + (lambda (_%$stx133322%_) + (let* ((_%g133326133340%_ + (lambda (_%g133327133336%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132195132204%_)))) - (_%g132193132249%_ - (lambda (_%g132195132212%_) + _%g133327133336%_)))) + (_%g133325133381%_ + (lambda (_%g133327133344%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g132195132212%_)) - (let ((_%e132197132215%_ + (gx#stx-pair? _%g133327133344%_)) + (let ((_%e133329133347%_ (let () (declare (not safe)) - (gx#syntax-e _%g132195132212%_)))) - (let ((_%hd132198132219%_ + (gx#syntax-e _%g133327133344%_)))) + (let ((_%hd133330133351%_ (let () (declare (not safe)) - (##car _%e132197132215%_))) - (_%tl132199132222%_ + (##car _%e133329133347%_))) + (_%tl133331133354%_ (let () (declare (not safe)) - (##cdr _%e132197132215%_)))) + (##cdr _%e133329133347%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132199132222%_)) - (let ((_%e132200132225%_ + (gx#stx-pair? _%tl133331133354%_)) + (let ((_%e133332133357%_ (let () (declare (not safe)) - (gx#syntax-e _%tl132199132222%_)))) - (let ((_%hd132201132229%_ + (gx#syntax-e _%tl133331133354%_)))) + (let ((_%hd133333133361%_ (let () (declare (not safe)) - (##car _%e132200132225%_))) - (_%tl132202132232%_ + (##car _%e133332133357%_))) + (_%tl133334133364%_ (let () (declare (not safe)) - (##cdr _%e132200132225%_)))) + (##cdr _%e133332133357%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132202132232%_)) - ((lambda (_%L132235%_) + (gx#stx-null? _%tl133334133364%_)) + ((lambda (_%L133367%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -680,11 +680,11 @@ 'lambda)) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L132235%_ '()))) + (cons _%L133367%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd132201132229%_) - (_%g132194132208%_ _%g132195132212%_)))) - (_%g132194132208%_ _%g132195132212%_)))) - (_%g132194132208%_ _%g132195132212%_))))) - (_%g132193132249%_ _%$stx132190%_)))))) + _%hd133333133361%_) + (_%g133326133340%_ _%g133327133344%_)))) + (_%g133326133340%_ _%g133327133344%_)))) + (_%g133326133340%_ _%g133327133344%_))))) + (_%g133325133381%_ _%$stx133322%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~0.scm b/src/bootstrap/gerbil/compiler/compile~0.scm index 3cc24ec61..f8dc0adb2 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 1713454411) + (define gerbil/compiler/compile::timestamp 1713631267) (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-e146337%_ - (lambda (_%id146339%_) + (letrec ((_%hash-e147469%_ + (lambda (_%id147471%_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _%id146339%_)))))) + (let () (declare (not safe)) (gx#stx-e _%id147471%_)))))) (let () (declare (not safe)) (make-hash-table__% @@ -57,31 +57,31 @@ absent-value absent-value gx#bound-identifier=? - _%hash-e146337%_ + _%hash-e147469%_ absent-value absent-value absent-value absent-value))))) (define gxc#::collect-bindings::t - (let ((__tmp147724 (list gxc#::void::t)) - (__tmp147723 (cons (cons 'final: '#t) '()))) + (let ((__tmp148856 (list gxc#::void::t)) + (__tmp148855 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-bindings::t '::collect-bindings - __tmp147724 + __tmp148856 '() - __tmp147723 + __tmp148855 '#f))) (define gxc#::collect-bindings? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-bindings::t))) (define gxc#make-::collect-bindings - (lambda _%$args146333%_ - (apply make-instance gxc#::collect-bindings::t _%$args146333%_))) + (lambda _%$args147465%_ + (apply make-instance gxc#::collect-bindings::t _%$args147465%_))) (define gxc#::collect-bindings-bind-methods! - (let ((__tmp147725 + (let ((__tmp148857 (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 __tmp147725))) + (__make-promise __tmp148857))) (define gxc#apply-collect-bindings - (lambda (_%stx146325%_) + (lambda (_%stx147457%_) (force gxc#::collect-bindings-bind-methods!) - (let* ((_%self146328%_ - (let ((__obj147699 + (let* ((_%self147460%_ + (let ((__obj148831 (let () (declare (not safe)) (##structure gxc#::collect-bindings::t)))) - __obj147699)) - (__tmp147726 + __obj148831)) + (__tmp148858 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self146328%_ _%stx146325%_))))) + (gxc#compile-e__1 _%self147460%_ _%stx147457%_))))) (declare (not safe)) (__call-with-parameters - __tmp147726 + __tmp148858 gxc#current-compile-method - _%self146328%_)))) + _%self147460%_)))) (define gxc#::lift-modules::t - (let ((__tmp147728 (list gxc#::void::t)) - (__tmp147727 (cons (cons 'final: '#t) '()))) + (let ((__tmp148860 (list gxc#::void::t)) + (__tmp148859 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-modules::t '::lift-modules - __tmp147728 + __tmp148860 '(modules) - __tmp147727 + __tmp148859 '#f))) (define gxc#::lift-modules? (let () (declare (not safe)) (__make-class-predicate gxc#::lift-modules::t))) (define gxc#make-::lift-modules - (lambda _%$args146322%_ - (apply make-instance gxc#::lift-modules::t _%$args146322%_))) + (lambda _%$args147454%_ + (apply make-instance gxc#::lift-modules::t _%$args147454%_))) (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 ((__tmp147729 + (let ((__tmp148861 (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 __tmp147729))) + (__make-promise __tmp148861))) (define gxc#apply-lift-modules__% - (lambda (_%@@keywords146296%_ _%modules146293146297%_ _%stx146299%_) - (let ((_%modules146302%_ - (if (eq? _%modules146293146297%_ absent-value) + (lambda (_%@@keywords147428%_ _%modules147425147429%_ _%stx147431%_) + (let ((_%modules147434%_ + (if (eq? _%modules147425147429%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'modules:)) - _%modules146293146297%_))) + _%modules147425147429%_))) (force gxc#::lift-modules-bind-methods!) - (let* ((_%self146304%_ - (let ((__obj147701 + (let* ((_%self147436%_ + (let ((__obj148833 (let () (declare (not safe)) (##structure gxc#::lift-modules::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147701 - _%modules146302%_ + __obj148833 + _%modules147434%_ '1 '#f '#f)) - __obj147701)) - (__tmp147730 + __obj148833)) + (__tmp148862 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self146304%_ _%stx146299%_))))) + (gxc#compile-e__1 _%self147436%_ _%stx147431%_))))) (declare (not safe)) (__call-with-parameters - __tmp147730 + __tmp148862 gxc#current-compile-method - _%self146304%_))))) + _%self147436%_))))) (define gxc#apply-lift-modules__@ - (lambda (_%@@keywords146311%_ . _%args146312%_) + (lambda (_%@@keywords147443%_ . _%args147444%_) (apply gxc#apply-lift-modules__% - _%@@keywords146311%_ + _%@@keywords147443%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords146311%_ + _%@@keywords147443%_ 'modules: absent-value)) - _%args146312%_))) + _%args147444%_))) (define gxc#apply-lift-modules - (lambda _%args146294146318%_ + (lambda _%args147426147450%_ (apply keyword-dispatch '#(modules:) gxc#apply-lift-modules__@ - _%args146294146318%_))) + _%args147426147450%_))) (define gxc#::find-runtime-code::t - (let ((__tmp147732 (list)) (__tmp147731 (cons (cons 'final: '#t) '()))) + (let ((__tmp148864 (list)) (__tmp148863 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-runtime-code::t '::find-runtime-code - __tmp147732 + __tmp148864 '() - __tmp147731 + __tmp148863 '#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 _%$args146289%_ - (apply make-instance gxc#::find-runtime-code::t _%$args146289%_))) + (lambda _%$args147421%_ + (apply make-instance gxc#::find-runtime-code::t _%$args147421%_))) (define gxc#::find-runtime-code-bind-methods! - (let ((__tmp147733 + (let ((__tmp148865 (lambda () (let () (declare (not safe)) @@ -459,46 +459,46 @@ (declare (not safe)) (__seal-class! gxc#::find-runtime-code::t))))) (declare (not safe)) - (__make-promise __tmp147733))) + (__make-promise __tmp148865))) (define gxc#apply-find-runtime-code - (lambda (_%stx146281%_) + (lambda (_%stx147413%_) (force gxc#::find-runtime-code-bind-methods!) - (let* ((_%self146284%_ - (let ((__obj147703 + (let* ((_%self147416%_ + (let ((__obj148835 (let () (declare (not safe)) (##structure gxc#::find-runtime-code::t)))) - __obj147703)) - (__tmp147734 + __obj148835)) + (__tmp148866 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self146284%_ _%stx146281%_))))) + (gxc#compile-e__1 _%self147416%_ _%stx147413%_))))) (declare (not safe)) (__call-with-parameters - __tmp147734 + __tmp148866 gxc#current-compile-method - _%self146284%_)))) + _%self147416%_)))) (define gxc#::find-lambda-expression::t - (let ((__tmp147736 (list gxc#::false::t)) - (__tmp147735 (cons (cons 'final: '#t) '()))) + (let ((__tmp148868 (list gxc#::false::t)) + (__tmp148867 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-lambda-expression::t '::find-lambda-expression - __tmp147736 + __tmp148868 '() - __tmp147735 + __tmp148867 '#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 _%$args146278%_ - (apply make-instance gxc#::find-lambda-expression::t _%$args146278%_))) + (lambda _%$args147410%_ + (apply make-instance gxc#::find-lambda-expression::t _%$args147410%_))) (define gxc#::find-lambda-expression-bind-methods! - (let ((__tmp147737 + (let ((__tmp148869 (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 __tmp147737))) + (__make-promise __tmp148869))) (define gxc#apply-find-lambda-expression - (lambda (_%stx146270%_) + (lambda (_%stx147402%_) (force gxc#::find-lambda-expression-bind-methods!) - (let* ((_%self146273%_ - (let ((__obj147705 + (let* ((_%self147405%_ + (let ((__obj148837 (let () (declare (not safe)) (##structure gxc#::find-lambda-expression::t)))) - __obj147705)) - (__tmp147738 + __obj148837)) + (__tmp148870 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self146273%_ _%stx146270%_))))) + (gxc#compile-e__1 _%self147405%_ _%stx147402%_))))) (declare (not safe)) (__call-with-parameters - __tmp147738 + __tmp148870 gxc#current-compile-method - _%self146273%_)))) + _%self147405%_)))) (define gxc#::count-values::t - (let ((__tmp147740 (list gxc#::false-expression::t)) - (__tmp147739 (cons (cons 'final: '#t) '()))) + (let ((__tmp148872 (list gxc#::false-expression::t)) + (__tmp148871 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::count-values::t '::count-values - __tmp147740 + __tmp148872 '() - __tmp147739 + __tmp148871 '#f))) (define gxc#::count-values? (let () (declare (not safe)) (__make-class-predicate gxc#::count-values::t))) (define gxc#make-::count-values - (lambda _%$args146267%_ - (apply make-instance gxc#::count-values::t _%$args146267%_))) + (lambda _%$args147399%_ + (apply make-instance gxc#::count-values::t _%$args147399%_))) (define gxc#::count-values-bind-methods! - (let ((__tmp147741 + (let ((__tmp148873 (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 __tmp147741))) + (__make-promise __tmp148873))) (define gxc#apply-count-values - (lambda (_%stx146259%_) + (lambda (_%stx147391%_) (force gxc#::count-values-bind-methods!) - (let* ((_%self146262%_ - (let ((__obj147707 + (let* ((_%self147394%_ + (let ((__obj148839 (let () (declare (not safe)) (##structure gxc#::count-values::t)))) - __obj147707)) - (__tmp147742 + __obj148839)) + (__tmp148874 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self146262%_ _%stx146259%_))))) + (gxc#compile-e__1 _%self147394%_ _%stx147391%_))))) (declare (not safe)) (__call-with-parameters - __tmp147742 + __tmp148874 gxc#current-compile-method - _%self146262%_)))) + _%self147394%_)))) (define gxc#::generate-runtime-empty::t - (let ((__tmp147743 (list))) + (let ((__tmp148875 (list))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-empty::t '::generate-runtime-empty - __tmp147743 + __tmp148875 '() '() '#f))) @@ -694,10 +694,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-empty::t))) (define gxc#make-::generate-runtime-empty - (lambda _%$args146256%_ - (apply make-instance gxc#::generate-runtime-empty::t _%$args146256%_))) + (lambda _%$args147388%_ + (apply make-instance gxc#::generate-runtime-empty::t _%$args147388%_))) (define gxc#::generate-runtime-empty-bind-methods! - (let ((__tmp147744 + (let ((__tmp148876 (lambda () (let () (declare (not safe)) @@ -892,27 +892,27 @@ '%#struct-unchecked-set! gxc#generate-runtime-empty))))) (declare (not safe)) - (__make-promise __tmp147744))) + (__make-promise __tmp148876))) (define gxc#::generate-loader::t - (let ((__tmp147746 (list gxc#::generate-runtime-empty::t)) - (__tmp147745 (cons (cons 'final: '#t) '()))) + (let ((__tmp148878 (list gxc#::generate-runtime-empty::t)) + (__tmp148877 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-loader::t '::generate-loader - __tmp147746 + __tmp148878 '() - __tmp147745 + __tmp148877 '#f))) (define gxc#::generate-loader? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-loader::t))) (define gxc#make-::generate-loader - (lambda _%$args146252%_ - (apply make-instance gxc#::generate-loader::t _%$args146252%_))) + (lambda _%$args147384%_ + (apply make-instance gxc#::generate-loader::t _%$args147384%_))) (define gxc#::generate-loader-bind-methods! - (let ((__tmp147747 + (let ((__tmp148879 (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 __tmp147747))) + (__make-promise __tmp148879))) (define gxc#apply-generate-loader - (lambda (_%stx146244%_) + (lambda (_%stx147376%_) (force gxc#::generate-loader-bind-methods!) - (let* ((_%self146247%_ - (let ((__obj147710 + (let* ((_%self147379%_ + (let ((__obj148842 (let () (declare (not safe)) (##structure gxc#::generate-loader::t)))) - __obj147710)) - (__tmp147748 + __obj148842)) + (__tmp148880 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self146247%_ _%stx146244%_))))) + (gxc#compile-e__1 _%self147379%_ _%stx147376%_))))) (declare (not safe)) (__call-with-parameters - __tmp147748 + __tmp148880 gxc#current-compile-method - _%self146247%_)))) + _%self147379%_)))) (define gxc#::generate-runtime::t - (let ((__tmp147749 (list gxc#::generate-runtime-empty::t))) + (let ((__tmp148881 (list gxc#::generate-runtime-empty::t))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime::t '::generate-runtime - __tmp147749 + __tmp148881 '() '() '#f))) @@ -966,10 +966,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime::t))) (define gxc#make-::generate-runtime - (lambda _%$args146241%_ - (apply make-instance gxc#::generate-runtime::t _%$args146241%_))) + (lambda _%$args147373%_ + (apply make-instance gxc#::generate-runtime::t _%$args147373%_))) (define gxc#::generate-runtime-bind-methods! - (let ((__tmp147750 + (let ((__tmp148882 (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 __tmp147750))) + (__make-promise __tmp148882))) (define gxc#apply-generate-runtime - (lambda (_%stx146233%_) + (lambda (_%stx147365%_) (force gxc#::generate-runtime-bind-methods!) - (let* ((_%self146236%_ - (let ((__obj147712 + (let* ((_%self147368%_ + (let ((__obj148844 (let () (declare (not safe)) (##structure gxc#::generate-runtime::t)))) - __obj147712)) - (__tmp147751 + __obj148844)) + (__tmp148883 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self146236%_ _%stx146233%_))))) + (gxc#compile-e__1 _%self147368%_ _%stx147365%_))))) (declare (not safe)) (__call-with-parameters - __tmp147751 + __tmp148883 gxc#current-compile-method - _%self146236%_)))) + _%self147368%_)))) (define gxc#::generate-runtime-phi::t - (let ((__tmp147753 (list gxc#::generate-runtime::t)) - (__tmp147752 (cons (cons 'final: '#t) '()))) + (let ((__tmp148885 (list gxc#::generate-runtime::t)) + (__tmp148884 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-phi::t '::generate-runtime-phi - __tmp147753 + __tmp148885 '() - __tmp147752 + __tmp148884 '#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 _%$args146230%_ - (apply make-instance gxc#::generate-runtime-phi::t _%$args146230%_))) + (lambda _%$args147362%_ + (apply make-instance gxc#::generate-runtime-phi::t _%$args147362%_))) (define gxc#::generate-runtime-phi-bind-methods! - (let ((__tmp147754 + (let ((__tmp148886 (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 __tmp147754))) + (__make-promise __tmp148886))) (define gxc#apply-generate-runtime-phi - (lambda (_%stx146222%_) + (lambda (_%stx147354%_) (force gxc#::generate-runtime-phi-bind-methods!) - (let* ((_%self146225%_ - (let ((__obj147714 + (let* ((_%self147357%_ + (let ((__obj148846 (let () (declare (not safe)) (##structure gxc#::generate-runtime-phi::t)))) - __obj147714)) - (__tmp147755 + __obj148846)) + (__tmp148887 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self146225%_ _%stx146222%_))))) + (gxc#compile-e__1 _%self147357%_ _%stx147354%_))))) (declare (not safe)) (__call-with-parameters - __tmp147755 + __tmp148887 gxc#current-compile-method - _%self146225%_)))) + _%self147357%_)))) (define gxc#::collect-expression-refs::t - (let ((__tmp147756 (list))) + (let ((__tmp148888 (list))) (declare (not safe)) (__make-class-type 'gxc#::collect-expression-refs::t '::collect-expression-refs - __tmp147756 + __tmp148888 '(table) '() '#f))) @@ -1210,10 +1210,10 @@ (declare (not safe)) (__make-class-predicate gxc#::collect-expression-refs::t))) (define gxc#make-::collect-expression-refs - (lambda _%$args146219%_ + (lambda _%$args147351%_ (apply make-instance gxc#::collect-expression-refs::t - _%$args146219%_))) + _%$args147351%_))) (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 ((__tmp147757 + (let ((__tmp148889 (lambda () (let () (declare (not safe)) @@ -1370,18 +1370,18 @@ '%#struct-unchecked-set! gxc#apply-operands))))) (declare (not safe)) - (__make-promise __tmp147757))) + (__make-promise __tmp148889))) (define gxc#apply-collect-expression-refs__% - (lambda (_%@@keywords146193%_ _%table146190146194%_ _%stx146196%_) - (let ((_%table146199%_ - (if (eq? _%table146190146194%_ absent-value) + (lambda (_%@@keywords147325%_ _%table147322147326%_ _%stx147328%_) + (let ((_%table147331%_ + (if (eq? _%table147322147326%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table146190146194%_))) + _%table147322147326%_))) (force gxc#::collect-expression-refs-bind-methods!) - (let* ((_%self146201%_ - (let ((__obj147716 + (let* ((_%self147333%_ + (let ((__obj148848 (let () (declare (not safe)) (##structure @@ -1390,57 +1390,57 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147716 - _%table146199%_ + __obj148848 + _%table147331%_ '1 '#f '#f)) - __obj147716)) - (__tmp147758 + __obj148848)) + (__tmp148890 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self146201%_ _%stx146196%_))))) + (gxc#compile-e__1 _%self147333%_ _%stx147328%_))))) (declare (not safe)) (__call-with-parameters - __tmp147758 + __tmp148890 gxc#current-compile-method - _%self146201%_))))) + _%self147333%_))))) (define gxc#apply-collect-expression-refs__@ - (lambda (_%@@keywords146208%_ . _%args146209%_) + (lambda (_%@@keywords147340%_ . _%args147341%_) (apply gxc#apply-collect-expression-refs__% - _%@@keywords146208%_ + _%@@keywords147340%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords146208%_ + _%@@keywords147340%_ 'table: absent-value)) - _%args146209%_))) + _%args147341%_))) (define gxc#apply-collect-expression-refs - (lambda _%args146191146215%_ + (lambda _%args147323147347%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-expression-refs__@ - _%args146191146215%_))) + _%args147323147347%_))) (define gxc#::generate-meta::t - (let ((__tmp147760 (list gxc#::void-expression::t)) - (__tmp147759 (cons (cons 'final: '#t) '()))) + (let ((__tmp148892 (list gxc#::void-expression::t)) + (__tmp148891 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta::t '::generate-meta - __tmp147760 + __tmp148892 '(state) - __tmp147759 + __tmp148891 '#f))) (define gxc#::generate-meta? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-meta::t))) (define gxc#make-::generate-meta - (lambda _%$args146186%_ - (apply make-instance gxc#::generate-meta::t _%$args146186%_))) + (lambda _%$args147318%_ + (apply make-instance gxc#::generate-meta::t _%$args147318%_))) (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 ((__tmp147761 + (let ((__tmp148893 (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 __tmp147761))) + (__make-promise __tmp148893))) (define gxc#apply-generate-meta__% - (lambda (_%@@keywords146160%_ _%state146157146161%_ _%stx146163%_) - (let ((_%state146166%_ - (if (eq? _%state146157146161%_ absent-value) + (lambda (_%@@keywords147292%_ _%state147289147293%_ _%stx147295%_) + (let ((_%state147298%_ + (if (eq? _%state147289147293%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state146157146161%_))) + _%state147289147293%_))) (force gxc#::generate-meta-bind-methods!) - (let* ((_%self146168%_ - (let ((__obj147718 + (let* ((_%self147300%_ + (let ((__obj148850 (let () (declare (not safe)) (##structure gxc#::generate-meta::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147718 - _%state146166%_ + __obj148850 + _%state147298%_ '1 '#f '#f)) - __obj147718)) - (__tmp147762 + __obj148850)) + (__tmp148894 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self146168%_ _%stx146163%_))))) + (gxc#compile-e__1 _%self147300%_ _%stx147295%_))))) (declare (not safe)) (__call-with-parameters - __tmp147762 + __tmp148894 gxc#current-compile-method - _%self146168%_))))) + _%self147300%_))))) (define gxc#apply-generate-meta__@ - (lambda (_%@@keywords146175%_ . _%args146176%_) + (lambda (_%@@keywords147307%_ . _%args147308%_) (apply gxc#apply-generate-meta__% - _%@@keywords146175%_ + _%@@keywords147307%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords146175%_ + _%@@keywords147307%_ 'state: absent-value)) - _%args146176%_))) + _%args147308%_))) (define gxc#apply-generate-meta - (lambda _%args146158146182%_ + (lambda _%args147290147314%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta__@ - _%args146158146182%_))) + _%args147290147314%_))) (define gxc#::generate-meta-phi::t - (let ((__tmp147764 (list)) (__tmp147763 (cons (cons 'final: '#t) '()))) + (let ((__tmp148896 (list)) (__tmp148895 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta-phi::t '::generate-meta-phi - __tmp147764 + __tmp148896 '(state) - __tmp147763 + __tmp148895 '#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 _%$args146153%_ - (apply make-instance gxc#::generate-meta-phi::t _%$args146153%_))) + (lambda _%$args147285%_ + (apply make-instance gxc#::generate-meta-phi::t _%$args147285%_))) (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 ((__tmp147765 + (let ((__tmp148897 (lambda () (let () (declare (not safe)) @@ -1794,343 +1794,341 @@ (declare (not safe)) (__seal-class! gxc#::generate-meta-phi::t))))) (declare (not safe)) - (__make-promise __tmp147765))) + (__make-promise __tmp148897))) (define gxc#apply-generate-meta-phi__% - (lambda (_%@@keywords146127%_ _%state146124146128%_ _%stx146130%_) - (let ((_%state146133%_ - (if (eq? _%state146124146128%_ absent-value) + (lambda (_%@@keywords147259%_ _%state147256147260%_ _%stx147262%_) + (let ((_%state147265%_ + (if (eq? _%state147256147260%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state146124146128%_))) + _%state147256147260%_))) (force gxc#::generate-meta-phi-bind-methods!) - (let* ((_%self146135%_ - (let ((__obj147720 + (let* ((_%self147267%_ + (let ((__obj148852 (let () (declare (not safe)) (##structure gxc#::generate-meta-phi::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147720 - _%state146133%_ + __obj148852 + _%state147265%_ '1 '#f '#f)) - __obj147720)) - (__tmp147766 + __obj148852)) + (__tmp148898 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self146135%_ _%stx146130%_))))) + (gxc#compile-e__1 _%self147267%_ _%stx147262%_))))) (declare (not safe)) (__call-with-parameters - __tmp147766 + __tmp148898 gxc#current-compile-method - _%self146135%_))))) + _%self147267%_))))) (define gxc#apply-generate-meta-phi__@ - (lambda (_%@@keywords146142%_ . _%args146143%_) + (lambda (_%@@keywords147274%_ . _%args147275%_) (apply gxc#apply-generate-meta-phi__% - _%@@keywords146142%_ + _%@@keywords147274%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords146142%_ + _%@@keywords147274%_ 'state: absent-value)) - _%args146143%_))) + _%args147275%_))) (define gxc#apply-generate-meta-phi - (lambda _%args146125146149%_ + (lambda _%args147257147281%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta-phi__@ - _%args146125146149%_))) + _%args147257147281%_))) (define gxc#collect-bindings-define-values% - (lambda (_%self146053%_ _%stx146054%_) - (let* ((_%g146056146073%_ - (lambda (_%g146057146070%_) + (lambda (_%self147185%_ _%stx147186%_) + (let* ((_%g147188147205%_ + (lambda (_%g147189147202%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146057146070%_)))) - (_%g146055146120%_ - (lambda (_%g146057146076%_) + _%g147189147202%_)))) + (_%g147187147252%_ + (lambda (_%g147189147208%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146057146076%_)) - (let ((_%e146060146078%_ + (gx#stx-pair? _%g147189147208%_)) + (let ((_%e147192147210%_ (let () (declare (not safe)) - (gx#stx-e _%g146057146076%_)))) - (let ((_%hd146061146081%_ + (gx#stx-e _%g147189147208%_)))) + (let ((_%hd147193147213%_ (let () (declare (not safe)) - (##car _%e146060146078%_))) - (_%tl146062146083%_ + (##car _%e147192147210%_))) + (_%tl147194147215%_ (let () (declare (not safe)) - (##cdr _%e146060146078%_)))) + (##cdr _%e147192147210%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146062146083%_)) - (let ((_%e146063146086%_ + (gx#stx-pair? _%tl147194147215%_)) + (let ((_%e147195147218%_ (let () (declare (not safe)) - (gx#stx-e _%tl146062146083%_)))) - (let ((_%hd146064146089%_ + (gx#stx-e _%tl147194147215%_)))) + (let ((_%hd147196147221%_ (let () (declare (not safe)) - (##car _%e146063146086%_))) - (_%tl146065146091%_ + (##car _%e147195147218%_))) + (_%tl147197147223%_ (let () (declare (not safe)) - (##cdr _%e146063146086%_)))) + (##cdr _%e147195147218%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146065146091%_)) - (let ((_%e146066146094%_ + (gx#stx-pair? _%tl147197147223%_)) + (let ((_%e147198147226%_ (let () (declare (not safe)) - (gx#stx-e _%tl146065146091%_)))) - (let ((_%hd146067146097%_ + (gx#stx-e _%tl147197147223%_)))) + (let ((_%hd147199147229%_ (let () (declare (not safe)) - (##car _%e146066146094%_))) - (_%tl146068146099%_ + (##car _%e147198147226%_))) + (_%tl147200147231%_ (let () (declare (not safe)) - (##cdr _%e146066146094%_)))) + (##cdr _%e147198147226%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146068146099%_)) - ((lambda (_%L146102%_ - _%L146103%_) - (let ((__tmp147767 - (lambda (_%bind146118%_) + _%tl147200147231%_)) + ((lambda (_%L147234%_ + _%L147235%_) + (let ((__tmp148899 + (lambda (_%bind147250%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#identifier? _%bind146118%_)) - (gxc#add-module-binding! _%bind146118%_ '#f) + (gx#identifier? _%bind147250%_)) + (gxc#add-module-binding! _%bind147250%_ '#f) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp147767 - _%L146103%_))) - _%hd146067146097%_ - _%hd146064146089%_) - (_%g146056146073%_ - _%g146057146076%_)))) - (_%g146056146073%_ _%g146057146076%_)))) - (_%g146056146073%_ _%g146057146076%_)))) - (_%g146056146073%_ _%g146057146076%_))))) - (_%g146055146120%_ _%stx146054%_)))) + __tmp148899 + _%L147235%_))) + _%hd147199147229%_ + _%hd147196147221%_) + (_%g147188147205%_ + _%g147189147208%_)))) + (_%g147188147205%_ _%g147189147208%_)))) + (_%g147188147205%_ _%g147189147208%_)))) + (_%g147188147205%_ _%g147189147208%_))))) + (_%g147187147252%_ _%stx147186%_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_%self145985%_ _%stx145986%_) - (let* ((_%g145988146005%_ - (lambda (_%g145989146002%_) + (lambda (_%self147117%_ _%stx147118%_) + (let* ((_%g147120147137%_ + (lambda (_%g147121147134%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145989146002%_)))) - (_%g145987146050%_ - (lambda (_%g145989146008%_) + _%g147121147134%_)))) + (_%g147119147182%_ + (lambda (_%g147121147140%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145989146008%_)) - (let ((_%e145992146010%_ + (gx#stx-pair? _%g147121147140%_)) + (let ((_%e147124147142%_ (let () (declare (not safe)) - (gx#stx-e _%g145989146008%_)))) - (let ((_%hd145993146013%_ + (gx#stx-e _%g147121147140%_)))) + (let ((_%hd147125147145%_ (let () (declare (not safe)) - (##car _%e145992146010%_))) - (_%tl145994146015%_ + (##car _%e147124147142%_))) + (_%tl147126147147%_ (let () (declare (not safe)) - (##cdr _%e145992146010%_)))) + (##cdr _%e147124147142%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145994146015%_)) - (let ((_%e145995146018%_ + (gx#stx-pair? _%tl147126147147%_)) + (let ((_%e147127147150%_ (let () (declare (not safe)) - (gx#stx-e _%tl145994146015%_)))) - (let ((_%hd145996146021%_ + (gx#stx-e _%tl147126147147%_)))) + (let ((_%hd147128147153%_ (let () (declare (not safe)) - (##car _%e145995146018%_))) - (_%tl145997146023%_ + (##car _%e147127147150%_))) + (_%tl147129147155%_ (let () (declare (not safe)) - (##cdr _%e145995146018%_)))) + (##cdr _%e147127147150%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145997146023%_)) - (let ((_%e145998146026%_ + (gx#stx-pair? _%tl147129147155%_)) + (let ((_%e147130147158%_ (let () (declare (not safe)) - (gx#stx-e _%tl145997146023%_)))) - (let ((_%hd145999146029%_ + (gx#stx-e _%tl147129147155%_)))) + (let ((_%hd147131147161%_ (let () (declare (not safe)) - (##car _%e145998146026%_))) - (_%tl146000146031%_ + (##car _%e147130147158%_))) + (_%tl147132147163%_ (let () (declare (not safe)) - (##cdr _%e145998146026%_)))) + (##cdr _%e147130147158%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146000146031%_)) - ((lambda (_%L146034%_ - _%L146035%_) + _%tl147132147163%_)) + ((lambda (_%L147166%_ + _%L147167%_) (gxc#add-module-binding! - _%L146035%_ + _%L147167%_ '#t)) - _%hd145999146029%_ - _%hd145996146021%_) - (_%g145988146005%_ - _%g145989146008%_)))) - (_%g145988146005%_ _%g145989146008%_)))) - (_%g145988146005%_ _%g145989146008%_)))) - (_%g145988146005%_ _%g145989146008%_))))) - (_%g145987146050%_ _%stx145986%_)))) + _%hd147131147161%_ + _%hd147128147153%_) + (_%g147120147137%_ + _%g147121147140%_)))) + (_%g147120147137%_ _%g147121147140%_)))) + (_%g147120147137%_ _%g147121147140%_)))) + (_%g147120147137%_ _%g147121147140%_))))) + (_%g147119147182%_ _%stx147118%_)))) (define gxc#lift-modules-module% - (lambda (_%self145927%_ _%stx145928%_) - (let* ((_%g145930145944%_ - (lambda (_%g145931145941%_) + (lambda (_%self147059%_ _%stx147060%_) + (let* ((_%g147062147076%_ + (lambda (_%g147063147073%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145931145941%_)))) - (_%g145929145982%_ - (lambda (_%g145931145947%_) + _%g147063147073%_)))) + (_%g147061147114%_ + (lambda (_%g147063147079%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145931145947%_)) - (let ((_%e145934145949%_ + (gx#stx-pair? _%g147063147079%_)) + (let ((_%e147066147081%_ (let () (declare (not safe)) - (gx#stx-e _%g145931145947%_)))) - (let ((_%hd145935145952%_ + (gx#stx-e _%g147063147079%_)))) + (let ((_%hd147067147084%_ (let () (declare (not safe)) - (##car _%e145934145949%_))) - (_%tl145936145954%_ + (##car _%e147066147081%_))) + (_%tl147068147086%_ (let () (declare (not safe)) - (##cdr _%e145934145949%_)))) + (##cdr _%e147066147081%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145936145954%_)) - (let ((_%e145937145957%_ + (gx#stx-pair? _%tl147068147086%_)) + (let ((_%e147069147089%_ (let () (declare (not safe)) - (gx#stx-e _%tl145936145954%_)))) - (let ((_%hd145938145960%_ + (gx#stx-e _%tl147068147086%_)))) + (let ((_%hd147070147092%_ (let () (declare (not safe)) - (##car _%e145937145957%_))) - (_%tl145939145962%_ + (##car _%e147069147089%_))) + (_%tl147071147094%_ (let () (declare (not safe)) - (##cdr _%e145937145957%_)))) - ((lambda (_%L145965%_ _%L145966%_) - (let ((_%ctx145979%_ + (##cdr _%e147069147089%_)))) + ((lambda (_%L147097%_ _%L147098%_) + (let ((_%ctx147111%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L145966%_)))) + _%L147098%_)))) (set-box! (let () (declare (not safe)) (slot-ref__0 - _%self145927%_ + _%self147059%_ 'modules)) - (cons _%ctx145979%_ + (cons _%ctx147111%_ (unbox (let () (declare (not safe)) (slot-ref__0 - _%self145927%_ + _%self147059%_ 'modules))))) - (let ((__tmp147768 + (let ((__tmp148900 (lambda () - (let ((__tmp147769 + (let ((__tmp148901 (##structure-ref - _%ctx145979%_ + _%ctx147111%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self145927%_ - __tmp147769))))) + _%self147059%_ + __tmp148901))))) (declare (not safe)) (__call-with-parameters - __tmp147768 + __tmp148900 gx#current-expander-context - _%ctx145979%_)))) - _%tl145939145962%_ - _%hd145938145960%_))) - (_%g145930145944%_ _%g145931145947%_)))) - (_%g145930145944%_ _%g145931145947%_))))) - (_%g145929145982%_ _%stx145928%_)))) + _%ctx147111%_)))) + _%tl147071147094%_ + _%hd147070147092%_))) + (_%g147062147076%_ _%g147063147079%_)))) + (_%g147062147076%_ _%g147063147079%_))))) + (_%g147061147114%_ _%stx147060%_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_%decls145880145882%_ + (let ((_%decls147012147014%_ (let () (declare (not safe)) (gxc#current-compile-decls)))) - (if _%decls145880145882%_ - (let ((_%decls145885%_ _%decls145880145882%_)) - (let _%lp145887%_ ((_%rest145889%_ _%decls145885%_)) - (let* ((_%rest145890145898%_ _%rest145889%_) - (_%else145892145906%_ (lambda () '#f)) - (_%K145894145915%_ - (lambda (_%decls145909%_ _%decl145910%_) - (if (equal? _%decl145910%_ '(not safe)) + (if _%decls147012147014%_ + (let ((_%decls147017%_ _%decls147012147014%_)) + (let _%lp147019%_ ((_%rest147021%_ _%decls147017%_)) + (let* ((_%rest147022147030%_ _%rest147021%_) + (_%else147024147038%_ (lambda () '#f)) + (_%K147026147047%_ + (lambda (_%decls147041%_ _%decl147042%_) + (if (equal? _%decl147042%_ '(not safe)) '#t - (if (equal? _%decl145910%_ '(safe)) + (if (equal? _%decl147042%_ '(safe)) '#f - (_%lp145887%_ _%decls145909%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest145890145898%_)) - (let ((_%hd145895145918%_ + (_%lp147019%_ _%decls147041%_)))))) + (if (pair? _%rest147022147030%_) + (let ((_%hd147027147050%_ (let () (declare (not safe)) - (##car _%rest145890145898%_))) - (_%tl145896145920%_ + (##car _%rest147022147030%_))) + (_%tl147028147052%_ (let () (declare (not safe)) - (##cdr _%rest145890145898%_)))) - (let* ((_%decl145923%_ _%hd145895145918%_) - (_%decls145925%_ _%tl145896145920%_)) - (_%K145894145915%_ - _%decls145925%_ - _%decl145923%_))) - (_%else145892145906%_))))) + (##cdr _%rest147022147030%_)))) + (let* ((_%decl147055%_ _%hd147027147050%_) + (_%decls147057%_ _%tl147028147052%_)) + (_%K147026147047%_ + _%decls147057%_ + _%decl147055%_))) + (_%else147024147038%_))))) '#f)))) (define gxc#add-module-binding! - (lambda (_%id145874%_ _%syntax?145875%_) - (let ((_%eid145877%_ + (lambda (_%id147006%_ _%syntax?147007%_) + (let ((_%eid147009%_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id145874%_)) + (gx#resolve-identifier__0 _%id147006%_)) '1 gx#binding::t '#f)) - (_%ht145878%_ + (_%ht147010%_ (##structure-ref (let () (declare (not safe)) @@ -2138,788 +2136,778 @@ '2 gxc#symbol-table::t '#f))) - (if (let () (declare (not safe)) (interned-symbol? _%eid145877%_)) + (if (let () (declare (not safe)) (interned-symbol? _%eid147009%_)) '#!void - (let ((__tmp147770 - (let ((__tmp147771 + (let ((__tmp148902 + (let ((__tmp148903 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%eid145877%_)))) + _%eid147009%_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp147771 _%syntax?145875%_)))) + (gx#make-binding-id__1 __tmp148903 _%syntax?147007%_)))) (declare (not safe)) - (hash-put! _%ht145878%_ _%eid145877%_ __tmp147770)))))) + (hash-put! _%ht147010%_ _%eid147009%_ __tmp148902)))))) (define gxc#generate-runtime-identifier - (lambda (_%id145872%_) + (lambda (_%id147004%_) (gxc#generate-runtime-identifier-key - (let () (declare (not safe)) (gx#core-identifier-key _%id145872%_))))) + (let () (declare (not safe)) (gx#core-identifier-key _%id147004%_))))) (define gxc#generate-runtime-identifier-key - (lambda (_%key145827%_) - (if (let () (declare (not safe)) (interned-symbol? _%key145827%_)) - _%key145827%_ - (if (uninterned-symbol? _%key145827%_) + (lambda (_%key146959%_) + (if (let () (declare (not safe)) (interned-symbol? _%key146959%_)) + _%key146959%_ + (if (uninterned-symbol? _%key146959%_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _%key145827%_)) - (let* ((_%key145831145838%_ _%key145827%_) - (_%E145833145842%_ + (gxc#generate-runtime-gensym-reference__0 _%key146959%_)) + (let* ((_%key146963146970%_ _%key146959%_) + (_%E146965146974%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%key145831145838%_ + _%key146963146970%_ '([eid . mark]))) '#!void)) - (_%K145834145860%_ - (lambda (_%mark145845%_ _%eid145846%_) - (let ((_%$e145848%_ + (_%K146966146992%_ + (lambda (_%mark146977%_ _%eid146978%_) + (let ((_%$e146980%_ (##structure-ref - _%mark145845%_ + _%mark146977%_ '1 gx#expander-mark::t '#f))) - (if _%$e145848%_ - ((lambda (_%ht145851%_) - (let ((_%$e145853%_ + (if _%$e146980%_ + ((lambda (_%ht146983%_) + (let ((_%$e146985%_ (let () (declare (not safe)) (hash-get - _%ht145851%_ - _%eid145846%_)))) - (if _%$e145853%_ - ((lambda (_%id145856%_) + _%ht146983%_ + _%eid146978%_)))) + (if _%$e146985%_ + ((lambda (_%id146988%_) (if (let () (declare (not safe)) (interned-symbol? - _%id145856%_)) - _%id145856%_ + _%id146988%_)) + _%id146988%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%id145856%_)))) - _%$e145853%_) + _%id146988%_)))) + _%$e146985%_) (gxc#generate-runtime-identifier-key - _%eid145846%_)))) - _%$e145848%_) + _%eid146978%_)))) + _%$e146980%_) (gxc#generate-runtime-identifier-key - _%eid145846%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%key145831145838%_)) - (let ((_%hd145835145863%_ + _%eid146978%_)))))) + (if (pair? _%key146963146970%_) + (let ((_%hd146967146995%_ (let () (declare (not safe)) - (##car _%key145831145838%_))) - (_%tl145836145865%_ + (##car _%key146963146970%_))) + (_%tl146968146997%_ (let () (declare (not safe)) - (##cdr _%key145831145838%_)))) - (let* ((_%eid145868%_ _%hd145835145863%_) - (_%mark145870%_ _%tl145836145865%_)) - (_%K145834145860%_ _%mark145870%_ _%eid145868%_))) - (_%E145833145842%_))))))) + (##cdr _%key146963146970%_)))) + (let* ((_%eid147000%_ _%hd146967146995%_) + (_%mark147002%_ _%tl146968146997%_)) + (_%K146966146992%_ _%mark147002%_ _%eid147000%_))) + (_%E146965146974%_))))))) (define gxc#generate-runtime-empty - (lambda (_%self145824%_ _%stx145825%_) '(begin))) + (lambda (_%self146956%_ _%stx146957%_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_%self145671%_ _%stx145672%_) - (letrec ((_%simplify145674%_ - (lambda (_%body145722%_) - (let _%lp145724%_ ((_%rest145726%_ _%body145722%_) - (_%r145727%_ '())) - (let* ((_%rest145728145736%_ _%rest145726%_) - (_%else145730145744%_ - (lambda () (reverse _%r145727%_))) - (_%K145732145812%_ - (lambda (_%rest145747%_ _%hd145748%_) - (let* ((_%hd145749145765%_ _%hd145748%_) - (_%else145753145773%_ + (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 () - (_%lp145724%_ - _%rest145747%_ - (cons _%hd145748%_ _%r145727%_))))) - (let ((_%K145761145802%_ - (lambda (_%exprs145800%_) - (_%lp145724%_ + (_%lp146856%_ + _%rest146879%_ + (cons _%hd146880%_ _%r146859%_))))) + (let ((_%K146893146934%_ + (lambda (_%exprs146932%_) + (_%lp146856%_ (let () (declare (not safe)) (__foldr1 cons - _%rest145747%_ - _%exprs145800%_)) - _%r145727%_))) - (_%K145756145786%_ + _%rest146879%_ + _%exprs146932%_)) + _%r146859%_))) + (_%K146888146918%_ (lambda () - (if (null? _%rest145747%_) - (_%lp145724%_ - _%rest145747%_ - (cons _%hd145748%_ - _%r145727%_)) - (_%lp145724%_ - _%rest145747%_ - _%r145727%_)))) - (_%K145755145778%_ + (if (null? _%rest146879%_) + (_%lp146856%_ + _%rest146879%_ + (cons _%hd146880%_ + _%r146859%_)) + (_%lp146856%_ + _%rest146879%_ + _%r146859%_)))) + (_%K146887146910%_ (lambda () - (if (null? _%rest145747%_) - (_%lp145724%_ - _%rest145747%_ - (cons _%hd145748%_ - _%r145727%_)) - (_%lp145724%_ - _%rest145747%_ - _%r145727%_))))) - (let ((_%try-match145752145781%_ + (if (null? _%rest146879%_) + (_%lp146856%_ + _%rest146879%_ + (cons _%hd146880%_ + _%r146859%_)) + (_%lp146856%_ + _%rest146879%_ + _%r146859%_))))) + (let ((_%try-match146884146913%_ (lambda () - (if (symbol? _%hd145749145765%_) - (_%K145755145778%_) - (_%else145753145773%_))))) - (if (let () - (declare (not safe)) - (##pair? _%hd145749145765%_)) - (let ((_%tl145763145807%_ + (if (symbol? _%hd146881146897%_) + (_%K146887146910%_) + (_%else146885146905%_))))) + (if (pair? _%hd146881146897%_) + (let ((_%tl146895146939%_ (let () (declare (not safe)) - (##cdr _%hd145749145765%_))) - (_%hd145762145805%_ + (##cdr _%hd146881146897%_))) + (_%hd146894146937%_ (let () (declare (not safe)) - (##car _%hd145749145765%_)))) + (##car _%hd146881146897%_)))) (if (let () (declare (not safe)) - (##eq? _%hd145762145805%_ + (##eq? _%hd146894146937%_ 'begin)) - (let ((_%exprs145810%_ - _%tl145763145807%_)) - (_%K145761145802%_ - _%exprs145810%_)) + (let ((_%exprs146942%_ + _%tl146895146939%_)) + (_%K146893146934%_ + _%exprs146942%_)) (if (let () (declare (not safe)) - (##eq? _%hd145762145805%_ + (##eq? _%hd146894146937%_ 'quote)) - (if (let () - (declare (not safe)) - (##pair? _%tl145763145807%_)) - (let ((_%tl145760145794%_ + (if (pair? _%tl146895146939%_) + (let ((_%tl146892146926%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl145763145807%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl145760145794%_)) - (_%K145756145786%_) - (_%try-match145752145781%_))) - (_%try-match145752145781%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match145752145781%_)))) - (_%try-match145752145781%_)))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest145728145736%_)) - (let ((_%hd145733145815%_ + (##cdr _%tl146895146939%_)))) + (if (null? _%tl146892146926%_) + (_%K146888146918%_) + (_%try-match146884146913%_))) + (_%try-match146884146913%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match146884146913%_)))) + (_%try-match146884146913%_)))))))) + (if (pair? _%rest146860146868%_) + (let ((_%hd146865146947%_ (let () (declare (not safe)) - (##car _%rest145728145736%_))) - (_%tl145734145817%_ + (##car _%rest146860146868%_))) + (_%tl146866146949%_ (let () (declare (not safe)) - (##cdr _%rest145728145736%_)))) - (let* ((_%hd145820%_ _%hd145733145815%_) - (_%rest145822%_ _%tl145734145817%_)) - (_%K145732145812%_ - _%rest145822%_ - _%hd145820%_))) - (_%else145730145744%_))))))) - (let* ((_%g145676145686%_ - (lambda (_%g145677145683%_) + (##cdr _%rest146860146868%_)))) + (let* ((_%hd146952%_ _%hd146865146947%_) + (_%rest146954%_ _%tl146866146949%_)) + (_%K146864146944%_ + _%rest146954%_ + _%hd146952%_))) + (_%else146862146876%_))))))) + (let* ((_%g146808146818%_ + (lambda (_%g146809146815%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145677145683%_)))) - (_%g145675145719%_ - (lambda (_%g145677145689%_) + _%g146809146815%_)))) + (_%g146807146851%_ + (lambda (_%g146809146821%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145677145689%_)) - (let ((_%e145679145691%_ + (gx#stx-pair? _%g146809146821%_)) + (let ((_%e146811146823%_ (let () (declare (not safe)) - (gx#stx-e _%g145677145689%_)))) - (let ((_%hd145680145694%_ + (gx#stx-e _%g146809146821%_)))) + (let ((_%hd146812146826%_ (let () (declare (not safe)) - (##car _%e145679145691%_))) - (_%tl145681145696%_ + (##car _%e146811146823%_))) + (_%tl146813146828%_ (let () (declare (not safe)) - (##cdr _%e145679145691%_)))) - ((lambda (_%L145699%_) - (let* ((_%body145714%_ - (map (lambda (_%g145709145711%_) + (##cdr _%e146811146823%_)))) + ((lambda (_%L146831%_) + (let* ((_%body146846%_ + (map (lambda (_%g146841146843%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self145671%_ - _%g145709145711%_))) - _%L145699%_)) - (_%body145716%_ - (_%simplify145674%_ _%body145714%_))) - (if (let ((__tmp147772 - (length _%body145716%_))) + _%self146803%_ + _%g146841146843%_))) + _%L146831%_)) + (_%body146848%_ + (_%simplify146806%_ _%body146846%_))) + (if (let ((__tmp148904 + (length _%body146848%_))) (declare (not safe)) - (##fx= __tmp147772 '1)) - (car _%body145716%_) - (cons 'begin _%body145716%_)))) - _%tl145681145696%_))) - (_%g145676145686%_ _%g145677145689%_))))) - (_%g145675145719%_ _%stx145672%_))))) + (##fx= __tmp148904 '1)) + (car _%body146848%_) + (cons 'begin _%body146848%_)))) + _%tl146813146828%_))) + (_%g146808146818%_ _%g146809146821%_))))) + (_%g146807146851%_ _%stx146804%_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_%self145632%_ _%stx145633%_) - (let* ((_%g145635145645%_ - (lambda (_%g145636145642%_) + (lambda (_%self146764%_ _%stx146765%_) + (let* ((_%g146767146777%_ + (lambda (_%g146768146774%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145636145642%_)))) - (_%g145634145668%_ - (lambda (_%g145636145648%_) + _%g146768146774%_)))) + (_%g146766146800%_ + (lambda (_%g146768146780%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145636145648%_)) - (let ((_%e145638145650%_ + (gx#stx-pair? _%g146768146780%_)) + (let ((_%e146770146782%_ (let () (declare (not safe)) - (gx#stx-e _%g145636145648%_)))) - (let ((_%hd145639145653%_ + (gx#stx-e _%g146768146780%_)))) + (let ((_%hd146771146785%_ (let () (declare (not safe)) - (##car _%e145638145650%_))) - (_%tl145640145655%_ + (##car _%e146770146782%_))) + (_%tl146772146787%_ (let () (declare (not safe)) - (##cdr _%e145638145650%_)))) - ((lambda (_%L145658%_) + (##cdr _%e146770146782%_)))) + ((lambda (_%L146790%_) (cons 'begin (let () (declare (not safe)) - (gx#syntax->datum _%L145658%_)))) - _%tl145640145655%_))) - (_%g145635145645%_ _%g145636145648%_))))) - (_%g145634145668%_ _%stx145633%_)))) + (gx#syntax->datum _%L146790%_)))) + _%tl146772146787%_))) + (_%g146767146777%_ _%g146768146780%_))))) + (_%g146766146800%_ _%stx146765%_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_%self145396%_ _%stx145397%_) - (let* ((_%__stx146362146363%_ _%stx145397%_) - (_%g145401145453%_ + (lambda (_%self146528%_ _%stx146529%_) + (let* ((_%__stx147494147495%_ _%stx146529%_) + (_%g146533146585%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146362146363%_))))) - (let ((_%__kont146364146365%_ - (lambda (_%L145614%_ _%L145615%_) + _%__stx147494147495%_))))) + (let ((_%__kont147496147497%_ + (lambda (_%L146746%_ _%L146747%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self145396%_ _%L145614%_)))) - (_%__kont146366146367%_ - (lambda (_%L145562%_ _%L145563%_ _%L145564%_) - (if (let ((__tmp147773 + (gxc#compile-e__1 _%self146528%_ _%L146746%_)))) + (_%__kont147498147499%_ + (lambda (_%L146694%_ _%L146695%_ _%L146696%_) + (if (let ((__tmp148905 (let () (declare (not safe)) - (gx#stx-e _%L145564%_)))) + (gx#stx-e _%L146696%_)))) (declare (not safe)) - (##memq __tmp147773 '(@inline))) + (##memq __tmp148905 '(@inline))) '(begin) (let () (declare (not safe)) - (gxc#compile-e__1 _%self145396%_ _%L145562%_))))) - (_%__kont146370146371%_ - (lambda (_%L145482%_ _%L145483%_) - (let ((_%decls145498%_ (map gx#syntax->datum _%L145483%_))) - (let ((__tmp147776 + (gxc#compile-e__1 _%self146528%_ _%L146694%_))))) + (_%__kont147502147503%_ + (lambda (_%L146614%_ _%L146615%_) + (let ((_%decls146630%_ (map gx#syntax->datum _%L146615%_))) + (let ((__tmp148908 (lambda () (cons 'begin - (cons (cons 'declare _%decls145498%_) + (cons (cons 'declare _%decls146630%_) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self145396%_ - _%L145482%_)) + _%self146528%_ + _%L146614%_)) '()))))) - (__tmp147774 - (let ((__tmp147775 + (__tmp148906 + (let ((__tmp148907 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) - (__foldr1 cons __tmp147775 _%decls145498%_)))) + (__foldr1 cons __tmp148907 _%decls146630%_)))) (declare (not safe)) (__call-with-parameters - __tmp147776 + __tmp148908 gxc#current-compile-decls - __tmp147774)))))) - (let* ((_%__match146417146418%_ - (lambda (_%e145417145506%_ - _%hd145418145509%_ - _%tl145419145511%_ - _%e145420145514%_ - _%hd145421145517%_ - _%tl145422145519%_ - _%e145423145522%_ - _%hd145424145525%_ - _%tl145425145527%_ - _%__splice146368146369%_ - _%target145426145530%_ - _%tl145428145532%_) - (letrec ((_%loop145429145535%_ - (lambda (_%hd145427145538%_ - _%param145433145540%_) + __tmp148906)))))) + (let* ((_%__match147549147550%_ + (lambda (_%e146549146638%_ + _%hd146550146641%_ + _%tl146551146643%_ + _%e146552146646%_ + _%hd146553146649%_ + _%tl146554146651%_ + _%e146555146654%_ + _%hd146556146657%_ + _%tl146557146659%_ + _%__splice147500147501%_ + _%target146558146662%_ + _%tl146560146664%_) + (letrec ((_%loop146561146667%_ + (lambda (_%hd146559146670%_ + _%param146565146672%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145427145538%_)) - (let ((_%e145430145543%_ + (gx#stx-pair? _%hd146559146670%_)) + (let ((_%e146562146675%_ (let () (declare (not safe)) - (gx#stx-e _%hd145427145538%_)))) - (let ((_%lp-tl145432145548%_ + (gx#stx-e _%hd146559146670%_)))) + (let ((_%lp-tl146564146680%_ (let () (declare (not safe)) - (##cdr _%e145430145543%_))) - (_%lp-hd145431145546%_ + (##cdr _%e146562146675%_))) + (_%lp-hd146563146678%_ (let () (declare (not safe)) - (##car _%e145430145543%_)))) - (_%loop145429145535%_ - _%lp-tl145432145548%_ - (cons _%lp-hd145431145546%_ - _%param145433145540%_)))) - (let ((_%param145434145551%_ - (reverse _%param145433145540%_))) + (##car _%e146562146675%_)))) + (_%loop146561146667%_ + _%lp-tl146564146680%_ + (cons _%lp-hd146563146678%_ + _%param146565146672%_)))) + (let ((_%param146566146683%_ + (reverse _%param146565146672%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145422145519%_)) - (let ((_%e145435145554%_ + _%tl146554146651%_)) + (let ((_%e146567146686%_ (let () (declare (not safe)) (gx#stx-e - _%tl145422145519%_)))) - (let ((_%tl145437145559%_ + _%tl146554146651%_)))) + (let ((_%tl146569146691%_ (let () (declare (not safe)) - (##cdr _%e145435145554%_))) - (_%hd145436145557%_ + (##cdr _%e146567146686%_))) + (_%hd146568146689%_ (let () (declare (not safe)) - (##car _%e145435145554%_)))) + (##car _%e146567146686%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145437145559%_)) - (let ((_%L145562%_ - _%hd145436145557%_) - (_%L145563%_ - _%param145434145551%_) - (_%L145564%_ - _%hd145424145525%_)) + _%tl146569146691%_)) + (let ((_%L146694%_ + _%hd146568146689%_) + (_%L146695%_ + _%param146566146683%_) + (_%L146696%_ + _%hd146556146657%_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _%L145564%_)) - (not (let ((__tmp147777 + (gx#identifier? _%L146696%_)) + (not (let ((__tmp148909 (let () (declare (not safe)) - (gx#stx-e _%L145564%_)))) + (gx#stx-e _%L146696%_)))) (declare (not safe)) - (##memq __tmp147777 gxc#gambit-annotations)))) - (_%__kont146366146367%_ _%L145562%_ _%L145563%_ _%L145564%_) - (_%__kont146370146371%_ - _%hd145436145557%_ - _%hd145421145517%_))) + (##memq __tmp148909 gxc#gambit-annotations)))) + (_%__kont147498147499%_ _%L146694%_ _%L146695%_ _%L146696%_) + (_%__kont147502147503%_ + _%hd146568146689%_ + _%hd146553146649%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g145401145453%_))))) + (_%g146533146585%_))))) (let () (declare (not safe)) - (_%g145401145453%_)))))))) - (_%loop145429145535%_ _%target145426145530%_ '())))) - (_%__match146391146392%_ - (lambda (_%e145405145590%_ - _%hd145406145593%_ - _%tl145407145595%_ - _%e145408145598%_ - _%hd145409145601%_ - _%tl145410145603%_ - _%e145411145606%_ - _%hd145412145609%_ - _%tl145413145611%_) - (let ((_%L145614%_ _%hd145412145609%_) - (_%L145615%_ _%hd145409145601%_)) + (_%g146533146585%_)))))))) + (_%loop146561146667%_ _%target146558146662%_ '())))) + (_%__match147523147524%_ + (lambda (_%e146537146722%_ + _%hd146538146725%_ + _%tl146539146727%_ + _%e146540146730%_ + _%hd146541146733%_ + _%tl146542146735%_ + _%e146543146738%_ + _%hd146544146741%_ + _%tl146545146743%_) + (let ((_%L146746%_ _%hd146544146741%_) + (_%L146747%_ _%hd146541146733%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L145615%_)) - (_%__kont146364146365%_ _%L145614%_ _%L145615%_) + (gx#identifier? _%L146747%_)) + (_%__kont147496147497%_ _%L146746%_ _%L146747%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145409145601%_)) - (let ((_%e145423145522%_ + (gx#stx-pair? _%hd146541146733%_)) + (let ((_%e146555146654%_ (let () (declare (not safe)) - (gx#stx-e _%hd145409145601%_)))) - (let ((_%tl145425145527%_ + (gx#stx-e _%hd146541146733%_)))) + (let ((_%tl146557146659%_ (let () (declare (not safe)) - (##cdr _%e145423145522%_))) - (_%hd145424145525%_ + (##cdr _%e146555146654%_))) + (_%hd146556146657%_ (let () (declare (not safe)) - (##car _%e145423145522%_)))) + (##car _%e146555146654%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl145425145527%_)) - (let ((_%__splice146368146369%_ + _%tl146557146659%_)) + (let ((_%__splice147500147501%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145425145527%_ + _%tl146557146659%_ '0)))) - (let ((_%tl145428145532%_ + (let ((_%tl146560146664%_ (let () (declare (not safe)) (##vector-ref - _%__splice146368146369%_ + _%__splice147500147501%_ '1))) - (_%target145426145530%_ + (_%target146558146662%_ (let () (declare (not safe)) (##vector-ref - _%__splice146368146369%_ + _%__splice147500147501%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145428145532%_)) - (_%__match146417146418%_ - _%e145405145590%_ - _%hd145406145593%_ - _%tl145407145595%_ - _%e145408145598%_ - _%hd145409145601%_ - _%tl145410145603%_ - _%e145423145522%_ - _%hd145424145525%_ - _%tl145425145527%_ - _%__splice146368146369%_ - _%target145426145530%_ - _%tl145428145532%_) - (_%__kont146370146371%_ - _%hd145412145609%_ - _%hd145409145601%_)))) - (_%__kont146370146371%_ - _%hd145412145609%_ - _%hd145409145601%_)))) - (_%__kont146370146371%_ - _%hd145412145609%_ - _%hd145409145601%_))))))) + _%tl146560146664%_)) + (_%__match147549147550%_ + _%e146537146722%_ + _%hd146538146725%_ + _%tl146539146727%_ + _%e146540146730%_ + _%hd146541146733%_ + _%tl146542146735%_ + _%e146555146654%_ + _%hd146556146657%_ + _%tl146557146659%_ + _%__splice147500147501%_ + _%target146558146662%_ + _%tl146560146664%_) + (_%__kont147502147503%_ + _%hd146544146741%_ + _%hd146541146733%_)))) + (_%__kont147502147503%_ + _%hd146544146741%_ + _%hd146541146733%_)))) + (_%__kont147502147503%_ + _%hd146544146741%_ + _%hd146541146733%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146362146363%_)) - (let ((_%e145405145590%_ + (gx#stx-pair? _%__stx147494147495%_)) + (let ((_%e146537146722%_ (let () (declare (not safe)) - (gx#stx-e _%__stx146362146363%_)))) - (let ((_%tl145407145595%_ + (gx#stx-e _%__stx147494147495%_)))) + (let ((_%tl146539146727%_ (let () (declare (not safe)) - (##cdr _%e145405145590%_))) - (_%hd145406145593%_ + (##cdr _%e146537146722%_))) + (_%hd146538146725%_ (let () (declare (not safe)) - (##car _%e145405145590%_)))) + (##car _%e146537146722%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145407145595%_)) - (let ((_%e145408145598%_ + (gx#stx-pair? _%tl146539146727%_)) + (let ((_%e146540146730%_ (let () (declare (not safe)) - (gx#stx-e _%tl145407145595%_)))) - (let ((_%tl145410145603%_ + (gx#stx-e _%tl146539146727%_)))) + (let ((_%tl146542146735%_ (let () (declare (not safe)) - (##cdr _%e145408145598%_))) - (_%hd145409145601%_ + (##cdr _%e146540146730%_))) + (_%hd146541146733%_ (let () (declare (not safe)) - (##car _%e145408145598%_)))) + (##car _%e146540146730%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145410145603%_)) - (let ((_%e145411145606%_ + (gx#stx-pair? _%tl146542146735%_)) + (let ((_%e146543146738%_ (let () (declare (not safe)) - (gx#stx-e _%tl145410145603%_)))) - (let ((_%tl145413145611%_ + (gx#stx-e _%tl146542146735%_)))) + (let ((_%tl146545146743%_ (let () (declare (not safe)) - (##cdr _%e145411145606%_))) - (_%hd145412145609%_ + (##cdr _%e146543146738%_))) + (_%hd146544146741%_ (let () (declare (not safe)) - (##car _%e145411145606%_)))) + (##car _%e146543146738%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145413145611%_)) - (_%__match146391146392%_ - _%e145405145590%_ - _%hd145406145593%_ - _%tl145407145595%_ - _%e145408145598%_ - _%hd145409145601%_ - _%tl145410145603%_ - _%e145411145606%_ - _%hd145412145609%_ - _%tl145413145611%_) + (gx#stx-null? _%tl146545146743%_)) + (_%__match147523147524%_ + _%e146537146722%_ + _%hd146538146725%_ + _%tl146539146727%_ + _%e146540146730%_ + _%hd146541146733%_ + _%tl146542146735%_ + _%e146543146738%_ + _%hd146544146741%_ + _%tl146545146743%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145409145601%_)) - (let ((_%e145423145522%_ + _%hd146541146733%_)) + (let ((_%e146555146654%_ (let () (declare (not safe)) (gx#stx-e - _%hd145409145601%_)))) - (let ((_%tl145425145527%_ + _%hd146541146733%_)))) + (let ((_%tl146557146659%_ (let () (declare (not safe)) - (##cdr _%e145423145522%_))) - (_%hd145424145525%_ + (##cdr _%e146555146654%_))) + (_%hd146556146657%_ (let () (declare (not safe)) - (##car _%e145423145522%_)))) + (##car _%e146555146654%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl145425145527%_)) - (let ((_%__splice146368146369%_ + _%tl146557146659%_)) + (let ((_%__splice147500147501%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl145425145527%_ '0)))) - (let ((_%tl145428145532%_ + (gx#syntax-split-splice _%tl146557146659%_ '0)))) + (let ((_%tl146560146664%_ (let () (declare (not safe)) - (##vector-ref _%__splice146368146369%_ '1))) - (_%target145426145530%_ + (##vector-ref _%__splice147500147501%_ '1))) + (_%target146558146662%_ (let () (declare (not safe)) - (##vector-ref _%__splice146368146369%_ '0)))) + (##vector-ref _%__splice147500147501%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145428145532%_)) - (_%__match146417146418%_ - _%e145405145590%_ - _%hd145406145593%_ - _%tl145407145595%_ - _%e145408145598%_ - _%hd145409145601%_ - _%tl145410145603%_ - _%e145423145522%_ - _%hd145424145525%_ - _%tl145425145527%_ - _%__splice146368146369%_ - _%target145426145530%_ - _%tl145428145532%_) - (let () (declare (not safe)) (_%g145401145453%_))))) - (let () (declare (not safe)) (_%g145401145453%_))))) + (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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g145401145453%_)))))) + (_%g146533146585%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145409145601%_)) - (let ((_%e145423145522%_ + (gx#stx-pair? _%hd146541146733%_)) + (let ((_%e146555146654%_ (let () (declare (not safe)) - (gx#stx-e _%hd145409145601%_)))) - (let ((_%tl145425145527%_ + (gx#stx-e _%hd146541146733%_)))) + (let ((_%tl146557146659%_ (let () (declare (not safe)) - (##cdr _%e145423145522%_))) - (_%hd145424145525%_ + (##cdr _%e146555146654%_))) + (_%hd146556146657%_ (let () (declare (not safe)) - (##car _%e145423145522%_)))) + (##car _%e146555146654%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl145425145527%_)) - (let ((_%__splice146368146369%_ + _%tl146557146659%_)) + (let ((_%__splice147500147501%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145425145527%_ + _%tl146557146659%_ '0)))) - (let ((_%tl145428145532%_ + (let ((_%tl146560146664%_ (let () (declare (not safe)) (##vector-ref - _%__splice146368146369%_ + _%__splice147500147501%_ '1))) - (_%target145426145530%_ + (_%target146558146662%_ (let () (declare (not safe)) (##vector-ref - _%__splice146368146369%_ + _%__splice147500147501%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145428145532%_)) - (_%__match146417146418%_ - _%e145405145590%_ - _%hd145406145593%_ - _%tl145407145595%_ - _%e145408145598%_ - _%hd145409145601%_ - _%tl145410145603%_ - _%e145423145522%_ - _%hd145424145525%_ - _%tl145425145527%_ - _%__splice146368146369%_ - _%target145426145530%_ - _%tl145428145532%_) + _%tl146560146664%_)) + (_%__match147549147550%_ + _%e146537146722%_ + _%hd146538146725%_ + _%tl146539146727%_ + _%e146540146730%_ + _%hd146541146733%_ + _%tl146542146735%_ + _%e146555146654%_ + _%hd146556146657%_ + _%tl146557146659%_ + _%__splice147500147501%_ + _%target146558146662%_ + _%tl146560146664%_) (let () (declare (not safe)) - (_%g145401145453%_))))) + (_%g146533146585%_))))) (let () (declare (not safe)) - (_%g145401145453%_))))) + (_%g146533146585%_))))) (let () (declare (not safe)) - (_%g145401145453%_)))))) - (let () (declare (not safe)) (_%g145401145453%_))))) - (let () (declare (not safe)) (_%g145401145453%_)))))))) + (_%g146533146585%_)))))) + (let () (declare (not safe)) (_%g146533146585%_))))) + (let () (declare (not safe)) (_%g146533146585%_)))))))) (define gxc#generate-runtime-declare% - (lambda (_%self145355%_ _%stx145356%_) - (let* ((_%g145358145368%_ - (lambda (_%g145359145365%_) + (lambda (_%self146487%_ _%stx146488%_) + (let* ((_%g146490146500%_ + (lambda (_%g146491146497%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145359145365%_)))) - (_%g145357145393%_ - (lambda (_%g145359145371%_) + _%g146491146497%_)))) + (_%g146489146525%_ + (lambda (_%g146491146503%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145359145371%_)) - (let ((_%e145361145373%_ + (gx#stx-pair? _%g146491146503%_)) + (let ((_%e146493146505%_ (let () (declare (not safe)) - (gx#stx-e _%g145359145371%_)))) - (let ((_%hd145362145376%_ + (gx#stx-e _%g146491146503%_)))) + (let ((_%hd146494146508%_ (let () (declare (not safe)) - (##car _%e145361145373%_))) - (_%tl145363145378%_ + (##car _%e146493146505%_))) + (_%tl146495146510%_ (let () (declare (not safe)) - (##cdr _%e145361145373%_)))) - ((lambda (_%L145381%_) - (let ((_%decls145391%_ - (map gx#syntax->datum _%L145381%_))) - (let ((__tmp147778 - (let ((__tmp147779 + (##cdr _%e146493146505%_)))) + ((lambda (_%L146513%_) + (let ((_%decls146523%_ + (map gx#syntax->datum _%L146513%_))) + (let ((__tmp148910 + (let ((__tmp148911 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) (__foldr1 cons - __tmp147779 - _%decls145391%_)))) + __tmp148911 + _%decls146523%_)))) (declare (not safe)) - (gxc#current-compile-decls __tmp147778)) - (cons 'declare _%decls145391%_))) - _%tl145363145378%_))) - (_%g145358145368%_ _%g145359145371%_))))) - (_%g145357145393%_ _%stx145356%_)))) + (gxc#current-compile-decls __tmp148910)) + (cons 'declare _%decls146523%_))) + _%tl146495146510%_))) + (_%g146490146500%_ _%g146491146503%_))))) + (_%g146489146525%_ _%stx146488%_)))) (define gxc#generate-runtime-define-values% - (lambda (_%self145101%_ _%stx145102%_) - (let* ((_%g145104145121%_ - (lambda (_%g145105145118%_) + (lambda (_%self146233%_ _%stx146234%_) + (let* ((_%g146236146253%_ + (lambda (_%g146237146250%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145105145118%_)))) - (_%g145103145352%_ - (lambda (_%g145105145124%_) + _%g146237146250%_)))) + (_%g146235146484%_ + (lambda (_%g146237146256%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145105145124%_)) - (let ((_%e145108145126%_ + (gx#stx-pair? _%g146237146256%_)) + (let ((_%e146240146258%_ (let () (declare (not safe)) - (gx#stx-e _%g145105145124%_)))) - (let ((_%hd145109145129%_ + (gx#stx-e _%g146237146256%_)))) + (let ((_%hd146241146261%_ (let () (declare (not safe)) - (##car _%e145108145126%_))) - (_%tl145110145131%_ + (##car _%e146240146258%_))) + (_%tl146242146263%_ (let () (declare (not safe)) - (##cdr _%e145108145126%_)))) + (##cdr _%e146240146258%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145110145131%_)) - (let ((_%e145111145134%_ + (gx#stx-pair? _%tl146242146263%_)) + (let ((_%e146243146266%_ (let () (declare (not safe)) - (gx#stx-e _%tl145110145131%_)))) - (let ((_%hd145112145137%_ + (gx#stx-e _%tl146242146263%_)))) + (let ((_%hd146244146269%_ (let () (declare (not safe)) - (##car _%e145111145134%_))) - (_%tl145113145139%_ + (##car _%e146243146266%_))) + (_%tl146245146271%_ (let () (declare (not safe)) - (##cdr _%e145111145134%_)))) + (##cdr _%e146243146266%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145113145139%_)) - (let ((_%e145114145142%_ + (gx#stx-pair? _%tl146245146271%_)) + (let ((_%e146246146274%_ (let () (declare (not safe)) - (gx#stx-e _%tl145113145139%_)))) - (let ((_%hd145115145145%_ + (gx#stx-e _%tl146245146271%_)))) + (let ((_%hd146247146277%_ (let () (declare (not safe)) - (##car _%e145114145142%_))) - (_%tl145116145147%_ + (##car _%e146246146274%_))) + (_%tl146248146279%_ (let () (declare (not safe)) - (##cdr _%e145114145142%_)))) + (##cdr _%e146246146274%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145116145147%_)) - ((lambda (_%L145150%_ - _%L145151%_) - (let* ((_%__stx146470146471%_ - _%L145151%_) - (_%g145168145182%_ + _%tl146248146279%_)) + ((lambda (_%L146282%_ + _%L146283%_) + (let* ((_%__stx147602147603%_ + _%L146283%_) + (_%g146300146314%_ (lambda () (let () (declare @@ -2927,304 +2915,304 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146470146471%_))))) - (let ((_%__kont146472146473%_ + _%__stx147602147603%_))))) + (let ((_%__kont147604147605%_ (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self145101%_ - _%L145150%_)))) - (_%__kont146474146475%_ - (lambda (_%L145314%_) - (let ((_%eid145323%_ + _%self146233%_ + _%L146282%_)))) + (_%__kont147606147607%_ + (lambda (_%L146446%_) + (let ((_%eid146455%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%L145314%_)))) - (let ((_%lambda-expr145324145326%_ - (gxc#apply-find-lambda-expression _%L145150%_))) - (if _%lambda-expr145324145326%_ - (let* ((_%lambda-expr145329%_ - _%lambda-expr145324145326%_) - (__tmp147780 + (gxc#generate-runtime-binding-id _%L146446%_)))) + (let ((_%lambda-expr146456146458%_ + (gxc#apply-find-lambda-expression _%L146282%_))) + (if _%lambda-expr146456146458%_ + (let* ((_%lambda-expr146461%_ + _%lambda-expr146456146458%_) + (__tmp148912 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) (hash-put! - __tmp147780 - _%lambda-expr145329%_ - _%eid145323%_)) + __tmp148912 + _%lambda-expr146461%_ + _%eid146455%_)) '#f)) (cons 'define - (cons _%eid145323%_ + (cons _%eid146455%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self145101%_ - _%L145150%_)) + _%self146233%_ + _%L146282%_)) '())))))) - (_%__kont146476146477%_ + (_%__kont147608147609%_ (lambda () - (let* ((_%tmp145189%_ + (let* ((_%tmp146321%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%body145298%_ - (let _%lp145191%_ ((_%rest145193%_ _%L145151%_) - (_%k145194%_ '0) - (_%r145195%_ '())) - (let* ((_%__stx146440146441%_ _%rest145193%_) - (_%g145200145217%_ + (_%body146430%_ + (let _%lp146323%_ ((_%rest146325%_ _%L146283%_) + (_%k146326%_ '0) + (_%r146327%_ '())) + (let* ((_%__stx147572147573%_ _%rest146325%_) + (_%g146332146349%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146440146441%_))))) - (let ((_%__kont146442146443%_ - (lambda (_%L145285%_) - (_%lp145191%_ - _%L145285%_ + _%__stx147572147573%_))))) + (let ((_%__kont147574147575%_ + (lambda (_%L146417%_) + (_%lp146323%_ + _%L146417%_ (let () (declare (not safe)) - (##fx+ _%k145194%_ '1)) - _%r145195%_))) - (_%__kont146444146445%_ - (lambda (_%L145258%_ _%L145259%_) - (_%lp145191%_ - _%L145258%_ + (##fx+ _%k146326%_ '1)) + _%r146327%_))) + (_%__kont147576147577%_ + (lambda (_%L146390%_ _%L146391%_) + (_%lp146323%_ + _%L146390%_ (let () (declare (not safe)) - (##fx+ _%k145194%_ '1)) + (##fx+ _%k146326%_ '1)) (cons (cons 'define (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L145259%_)) + _%L146391%_)) (cons (gxc#generate-runtime-values-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tmp145189%_ - _%k145194%_ - _%L145258%_) + _%tmp146321%_ + _%k146326%_ + _%L146390%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r145195%_)))) - (_%__kont146446146447%_ - (lambda (_%L145229%_) - (let ((__tmp147781 + _%r146327%_)))) + (_%__kont147578147579%_ + (lambda (_%L146361%_) + (let ((__tmp148913 (cons (cons 'define (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#generate-runtime-binding-id _%L145229%_)) + (gxc#generate-runtime-binding-id _%L146361%_)) (cons (gxc#generate-runtime-values->list - _%tmp145189%_ - _%k145194%_) + _%tmp146321%_ + _%k146326%_) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp147781 - _%r145195%_)))) - (_%__kont146448146449%_ - (lambda () (reverse _%r145195%_)))) - (let ((_%g145198145245%_ + __tmp148913 + _%r146327%_)))) + (_%__kont147580147581%_ + (lambda () (reverse _%r146327%_)))) + (let ((_%g146330146377%_ (lambda () - (let ((_%L145229%_ - _%__stx146440146441%_)) + (let ((_%L146361%_ + _%__stx147572147573%_)) (if (let () (declare (not safe)) (gx#identifier? - _%L145229%_)) - (_%__kont146446146447%_ - _%L145229%_) - (_%__kont146448146449%_)))))) + _%L146361%_)) + (_%__kont147578147579%_ + _%L146361%_) + (_%__kont147580147581%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146440146441%_)) - (let ((_%e145203145274%_ + (gx#stx-pair? _%__stx147572147573%_)) + (let ((_%e146335146406%_ (let () (declare (not safe)) (gx#stx-e - _%__stx146440146441%_)))) - (let ((_%tl145205145279%_ + _%__stx147572147573%_)))) + (let ((_%tl146337146411%_ (let () (declare (not safe)) - (##cdr _%e145203145274%_))) - (_%hd145204145277%_ + (##cdr _%e146335146406%_))) + (_%hd146336146409%_ (let () (declare (not safe)) - (##car _%e145203145274%_)))) + (##car _%e146335146406%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd145204145277%_)) - (let ((_%e145206145282%_ + _%hd146336146409%_)) + (let ((_%e146338146414%_ (let () (declare (not safe)) (gx#stx-e - _%hd145204145277%_)))) - (if (equal? _%e145206145282%_ + _%hd146336146409%_)))) + (if (equal? _%e146338146414%_ '#f) - (_%__kont146442146443%_ - _%tl145205145279%_) - (_%__kont146444146445%_ - _%tl145205145279%_ - _%hd145204145277%_))) - (_%__kont146444146445%_ - _%tl145205145279%_ - _%hd145204145277%_)))) + (_%__kont147574147575%_ + _%tl146337146411%_) + (_%__kont147576147577%_ + _%tl146337146411%_ + _%hd146336146409%_))) + (_%__kont147576147577%_ + _%tl146337146411%_ + _%hd146336146409%_)))) (let () (declare (not safe)) - (_%g145198145245%_))))))))) + (_%g146330146377%_))))))))) (cons 'begin (cons (cons 'define - (cons _%tmp145189%_ + (cons _%tmp146321%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self145101%_ - _%L145150%_)) + _%self146233%_ + _%L146282%_)) '()))) (cons (gxc#generate-runtime-check-values - _%tmp145189%_ - _%L145151%_ - _%L145150%_) - _%body145298%_))))))) + _%tmp146321%_ + _%L146283%_ + _%L146282%_) + _%body146430%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx146470146471%_)) - (let ((_%e145170145336%_ + _%__stx147602147603%_)) + (let ((_%e146302146468%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx146470146471%_)))) - (let ((_%tl145172145341%_ + (gx#stx-e _%__stx147602147603%_)))) + (let ((_%tl146304146473%_ (let () (declare (not safe)) - (##cdr _%e145170145336%_))) - (_%hd145171145339%_ + (##cdr _%e146302146468%_))) + (_%hd146303146471%_ (let () (declare (not safe)) - (##car _%e145170145336%_)))) + (##car _%e146302146468%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd145171145339%_)) - (let ((_%e145173145344%_ + (gx#stx-datum? _%hd146303146471%_)) + (let ((_%e146305146476%_ (let () (declare (not safe)) - (gx#stx-e _%hd145171145339%_)))) - (if (equal? _%e145173145344%_ '#f) + (gx#stx-e _%hd146303146471%_)))) + (if (equal? _%e146305146476%_ '#f) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145172145341%_)) - (_%__kont146472146473%_) - (_%__kont146476146477%_)) + (gx#stx-null? _%tl146304146473%_)) + (_%__kont147604147605%_) + (_%__kont147608147609%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145172145341%_)) - (_%__kont146474146475%_ _%hd145171145339%_) - (_%__kont146476146477%_)))) + (gx#stx-null? _%tl146304146473%_)) + (_%__kont147606147607%_ _%hd146303146471%_) + (_%__kont147608147609%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145172145341%_)) - (_%__kont146474146475%_ _%hd145171145339%_) - (_%__kont146476146477%_))))) - (_%__kont146476146477%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd145115145145%_ - _%hd145112145137%_) - (_%g145104145121%_ - _%g145105145124%_)))) - (_%g145104145121%_ _%g145105145124%_)))) - (_%g145104145121%_ _%g145105145124%_)))) - (_%g145104145121%_ _%g145105145124%_))))) - (_%g145103145352%_ _%stx145102%_)))) + (gx#stx-null? _%tl146304146473%_)) + (_%__kont147606147607%_ _%hd146303146471%_) + (_%__kont147608147609%_))))) + (_%__kont147608147609%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd146247146277%_ + _%hd146244146269%_) + (_%g146236146253%_ + _%g146237146256%_)))) + (_%g146236146253%_ _%g146237146256%_)))) + (_%g146236146253%_ _%g146237146256%_)))) + (_%g146236146253%_ _%g146237146256%_))))) + (_%g146235146484%_ _%stx146234%_)))) (define gxc#generate-runtime-check-values - (lambda (_%vals145076%_ _%hd145077%_ _%expr145078%_) - (let ((_%$e145080%_ (gxc#apply-count-values _%expr145078%_))) - (if _%$e145080%_ - ((lambda (_%count145083%_) - (let ((_%len145085%_ + (lambda (_%vals146208%_ _%hd146209%_ _%expr146210%_) + (let ((_%$e146212%_ (gxc#apply-count-values _%expr146210%_))) + (if _%$e146212%_ + ((lambda (_%count146215%_) + (let ((_%len146217%_ (let () (declare (not safe)) - (gx#stx-length _%hd145077%_))) - (_%cmp145086%_ + (gx#stx-length _%hd146209%_))) + (_%cmp146218%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd145077%_)) + (gx#stx-list? _%hd146209%_)) fx= fx>=))) (if (or (let () (declare (not safe)) - (##fx= _%len145085%_ '0)) - (_%cmp145086%_ _%count145083%_ _%len145085%_)) + (##fx= _%len146217%_ '0)) + (_%cmp146218%_ _%count146215%_ _%len146217%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _%expr145078%_ - _%hd145077%_))))) - _%$e145080%_) - (let* ((_%len145092%_ + _%expr146210%_ + _%hd146209%_))))) + _%$e146212%_) + (let* ((_%len146224%_ (let () (declare (not safe)) - (gx#stx-length _%hd145077%_))) - (_%cmp145094%_ + (gx#stx-length _%hd146209%_))) + (_%cmp146226%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd145077%_)) + (gx#stx-list? _%hd146209%_)) '##fx= '##fx>=)) - (_%errmsg145096%_ - (let ((__tmp147783 + (_%errmsg146228%_ + (let ((__tmp148915 (if (let () (declare (not safe)) - (gx#stx-list? _%hd145077%_)) + (gx#stx-list? _%hd146209%_)) '"Context expects " '"Context expects at least ")) - (__tmp147782 (number->string _%len145092%_))) + (__tmp148914 (number->string _%len146224%_))) (declare (not safe)) - (##string-append __tmp147783 __tmp147782 '" values"))) - (_%count145098%_ + (##string-append __tmp148915 __tmp148914 '" values"))) + (_%count146230%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) (if (if (let () (declare (not safe)) - (gx#stx-list? _%hd145077%_)) + (gx#stx-list? _%hd146209%_)) '#f - (let () (declare (not safe)) (##fx= _%len145092%_ '0))) + (let () (declare (not safe)) (##fx= _%len146224%_ '0))) '#!void (cons 'let - (cons (cons (cons _%count145098%_ + (cons (cons (cons _%count146230%_ (cons (gxc#generate-runtime-values-count - _%vals145076%_) + _%vals146208%_) '())) '()) (cons (cons 'if (cons (cons 'not (cons (if (gxc#current-compile-decls-unsafe?) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%cmp145094%_ - (cons _%count145098%_ - (cons _%len145092%_ '()))) + (cons _%cmp146226%_ + (cons _%count146230%_ + (cons _%len146224%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (cons _%cmp145094%_ - (cons _%count145098%_ - (cons _%len145092%_ + (cons (cons _%cmp146226%_ + (cons _%count146230%_ + (cons _%len146224%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3232,82 +3220,82 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'error - (cons _%errmsg145096%_ + (cons _%errmsg146228%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%count145098%_ '()))) + (cons _%count146230%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-values-count - (lambda (_%var145071%_) - (letrec ((_%generate-inline145073%_ + (lambda (_%var146203%_) + (letrec ((_%generate-inline146205%_ (lambda () (cons 'if - (cons (cons '##values? (cons _%var145071%_ '())) + (cons (cons '##values? (cons _%var146203%_ '())) (cons (cons '##vector-length - (cons _%var145071%_ '())) + (cons _%var146203%_ '())) (cons '1 '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline145073%_) + (_%generate-inline146205%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline145073%_) '())))))))) + (cons (_%generate-inline146205%_) '())))))))) (define gxc#generate-runtime-values-ref - (lambda (_%var145064%_ _%i145065%_ _%rest145066%_) - (letrec ((_%generate-inline145068%_ + (lambda (_%var146196%_ _%i146197%_ _%rest146198%_) + (letrec ((_%generate-inline146200%_ (lambda () (if (and (let () (declare (not safe)) - (##fx= _%i145065%_ '0)) + (##fx= _%i146197%_ '0)) (not (let () (declare (not safe)) - (gx#stx-pair? _%rest145066%_)))) + (gx#stx-pair? _%rest146198%_)))) (cons 'if - (cons (cons '##values? (cons _%var145064%_ '())) + (cons (cons '##values? (cons _%var146196%_ '())) (cons (cons '##vector-ref - (cons _%var145064%_ + (cons _%var146196%_ (cons '0 '()))) - (cons _%var145064%_ '())))) + (cons _%var146196%_ '())))) (cons '##vector-ref - (cons _%var145064%_ (cons _%i145065%_ '()))))))) + (cons _%var146196%_ (cons _%i146197%_ '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline145068%_) + (_%generate-inline146200%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline145068%_) '())))))))) + (cons (_%generate-inline146200%_) '())))))))) (define gxc#generate-runtime-values->list - (lambda (_%var145058%_ _%i145059%_) - (if (let () (declare (not safe)) (##fx= _%i145059%_ '0)) + (lambda (_%var146190%_ _%i146191%_) + (if (let () (declare (not safe)) (##fx= _%i146191%_ '0)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var145058%_ '())) + (cons (cons '##values? (cons _%var146190%_ '())) (cons (cons '##vector->list - (cons _%var145058%_ '())) - (cons (cons 'list (cons _%var145058%_ '())) + (cons _%var146190%_ '())) + (cons (cons 'list (cons _%var146190%_ '())) '())))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var145058%_ + (cons _%var146190%_ '())) (cons (cons '##vector->list - (cons _%var145058%_ + (cons _%var146190%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons 'list (cons _%var145058%_ '())) '())))) + (cons (cons 'list (cons _%var146190%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (if (let () (declare (not safe)) (##fx= _%i145059%_ '1)) + (if (let () (declare (not safe)) (##fx= _%i146191%_ '1)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var145058%_ '())) + (cons (cons '##values? (cons _%var146190%_ '())) (cons (cons '##cdr (cons (cons '##vector->list - (cons _%var145058%_ + (cons _%var146190%_ '())) '())) (cons ''() '())))) @@ -3316,8406 +3304,8267 @@ (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var145058%_ + (cons _%var146190%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '##cdr (cons (cons '##vector->list - (cons _%var145058%_ '())) + (cons _%var146190%_ '())) '())) (cons ''() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (if (gxc#current-compile-decls-unsafe?) (cons '##list-tail - (cons (cons '##vector->list (cons _%var145058%_ '())) - (cons _%i145059%_ '()))) + (cons (cons '##vector->list (cons _%var146190%_ '())) + (cons _%i146191%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##list-tail (cons (cons '##vector->list - (cons _%var145058%_ + (cons _%var146190%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%i145059%_ '()))) + (cons _%i146191%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-lambda% - (lambda (_%self144990%_ _%stx144991%_) - (let* ((_%g144993145010%_ - (lambda (_%g144994145007%_) + (lambda (_%self146122%_ _%stx146123%_) + (let* ((_%g146125146142%_ + (lambda (_%g146126146139%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144994145007%_)))) - (_%g144992145055%_ - (lambda (_%g144994145013%_) + _%g146126146139%_)))) + (_%g146124146187%_ + (lambda (_%g146126146145%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144994145013%_)) - (let ((_%e144997145015%_ + (gx#stx-pair? _%g146126146145%_)) + (let ((_%e146129146147%_ (let () (declare (not safe)) - (gx#stx-e _%g144994145013%_)))) - (let ((_%hd144998145018%_ + (gx#stx-e _%g146126146145%_)))) + (let ((_%hd146130146150%_ (let () (declare (not safe)) - (##car _%e144997145015%_))) - (_%tl144999145020%_ + (##car _%e146129146147%_))) + (_%tl146131146152%_ (let () (declare (not safe)) - (##cdr _%e144997145015%_)))) + (##cdr _%e146129146147%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144999145020%_)) - (let ((_%e145000145023%_ + (gx#stx-pair? _%tl146131146152%_)) + (let ((_%e146132146155%_ (let () (declare (not safe)) - (gx#stx-e _%tl144999145020%_)))) - (let ((_%hd145001145026%_ + (gx#stx-e _%tl146131146152%_)))) + (let ((_%hd146133146158%_ (let () (declare (not safe)) - (##car _%e145000145023%_))) - (_%tl145002145028%_ + (##car _%e146132146155%_))) + (_%tl146134146160%_ (let () (declare (not safe)) - (##cdr _%e145000145023%_)))) + (##cdr _%e146132146155%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145002145028%_)) - (let ((_%e145003145031%_ + (gx#stx-pair? _%tl146134146160%_)) + (let ((_%e146135146163%_ (let () (declare (not safe)) - (gx#stx-e _%tl145002145028%_)))) - (let ((_%hd145004145034%_ + (gx#stx-e _%tl146134146160%_)))) + (let ((_%hd146136146166%_ (let () (declare (not safe)) - (##car _%e145003145031%_))) - (_%tl145005145036%_ + (##car _%e146135146163%_))) + (_%tl146137146168%_ (let () (declare (not safe)) - (##cdr _%e145003145031%_)))) + (##cdr _%e146135146163%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145005145036%_)) - ((lambda (_%L145039%_ - _%L145040%_) + _%tl146137146168%_)) + ((lambda (_%L146171%_ + _%L146172%_) (gxc#generate-runtime-lambda-form - _%self144990%_ - _%L145040%_ - _%L145039%_)) - _%hd145004145034%_ - _%hd145001145026%_) - (_%g144993145010%_ - _%g144994145013%_)))) - (_%g144993145010%_ _%g144994145013%_)))) - (_%g144993145010%_ _%g144994145013%_)))) - (_%g144993145010%_ _%g144994145013%_))))) - (_%g144992145055%_ _%stx144991%_)))) + _%self146122%_ + _%L146172%_ + _%L146171%_)) + _%hd146136146166%_ + _%hd146133146158%_) + (_%g146125146142%_ + _%g146126146145%_)))) + (_%g146125146142%_ _%g146126146145%_)))) + (_%g146125146142%_ _%g146126146145%_)))) + (_%g146125146142%_ _%g146126146145%_))))) + (_%g146124146187%_ _%stx146123%_)))) (define gxc#generate-runtime-lambda-form - (lambda (_%self144949%_ _%hd144950%_ _%body144951%_) - (let* ((_%hd144953%_ (gxc#generate-runtime-lambda-head _%hd144950%_)) - (_%body144955%_ + (lambda (_%self146081%_ _%hd146082%_ _%body146083%_) + (let* ((_%hd146085%_ (gxc#generate-runtime-lambda-head _%hd146082%_)) + (_%body146087%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self144949%_ _%body144951%_))) - (_%body144987%_ - (let* ((_%body144956144964%_ _%body144955%_) - (_%else144958144972%_ - (lambda () (cons _%body144955%_ '()))) - (_%K144960144977%_ - (lambda (_%exprs144975%_) _%exprs144975%_))) - (if (let () - (declare (not safe)) - (##pair? _%body144956144964%_)) - (let ((_%hd144961144980%_ + (gxc#compile-e__1 _%self146081%_ _%body146083%_))) + (_%body146119%_ + (let* ((_%body146088146096%_ _%body146087%_) + (_%else146090146104%_ + (lambda () (cons _%body146087%_ '()))) + (_%K146092146109%_ + (lambda (_%exprs146107%_) _%exprs146107%_))) + (if (pair? _%body146088146096%_) + (let ((_%hd146093146112%_ (let () (declare (not safe)) - (##car _%body144956144964%_))) - (_%tl144962144982%_ + (##car _%body146088146096%_))) + (_%tl146094146114%_ (let () (declare (not safe)) - (##cdr _%body144956144964%_)))) + (##cdr _%body146088146096%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144961144980%_ 'begin)) - (let ((_%exprs144985%_ _%tl144962144982%_)) - (_%K144960144977%_ _%exprs144985%_)) - (_%else144958144972%_))) - (_%else144958144972%_))))) - (cons 'lambda (cons _%hd144953%_ _%body144987%_))))) + (##eq? _%hd146093146112%_ 'begin)) + (let ((_%exprs146117%_ _%tl146094146114%_)) + (_%K146092146109%_ _%exprs146117%_)) + (_%else146090146104%_))) + (_%else146090146104%_))))) + (cons 'lambda (cons _%hd146085%_ _%body146119%_))))) (define gxc#generate-runtime-lambda-head - (lambda (_%hd144947%_) + (lambda (_%hd146079%_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd144947%_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd146079%_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_%self143486%_ _%stx143487%_) - (letrec ((_%dispatch-case?143489%_ - (lambda (_%hd144177%_ _%body144178%_) - (let* ((_%form144180%_ - (cons _%hd144177%_ (cons _%body144178%_ '()))) - (_%__stx146502146503%_ _%form144180%_) - (_%g144185144342%_ + (lambda (_%self144618%_ _%stx144619%_) + (letrec ((_%dispatch-case?144621%_ + (lambda (_%hd145309%_ _%body145310%_) + (let* ((_%form145312%_ + (cons _%hd145309%_ (cons _%body145310%_ '()))) + (_%__stx147634147635%_ _%form145312%_) + (_%g145317145474%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146502146503%_))))) - (let ((_%__kont146504146505%_ - (lambda (_%L144867%_ _%L144868%_ _%L144869%_) + _%__stx147634147635%_))))) + (let ((_%__kont147636147637%_ + (lambda (_%L145999%_ _%L146000%_ _%L146001%_) '#t)) - (_%__kont146510146511%_ - (lambda (_%L144655%_ - _%L144656%_ - _%L144657%_ - _%L144658%_ - _%L144659%_ - _%L144660%_) + (_%__kont147642147643%_ + (lambda (_%L145787%_ + _%L145788%_ + _%L145789%_ + _%L145790%_ + _%L145791%_ + _%L145792%_) '#t)) - (_%__kont146516146517%_ - (lambda (_%L144450%_ - _%L144451%_ - _%L144452%_ - _%L144453%_) + (_%__kont147648147649%_ + (lambda (_%L145582%_ + _%L145583%_ + _%L145584%_ + _%L145585%_) '#t)) - (_%__kont146518146519%_ (lambda () '#f))) - (let* ((_%__match146643146644%_ - (lambda (_%e144302144354%_ - _%hd144303144357%_ - _%tl144304144359%_ - _%e144305144362%_ - _%hd144306144365%_ - _%tl144307144367%_ - _%e144308144370%_ - _%hd144309144373%_ - _%tl144310144375%_ - _%e144311144378%_ - _%hd144312144381%_ - _%tl144313144383%_ - _%e144314144386%_ - _%hd144315144389%_ - _%tl144316144391%_ - _%e144317144394%_ - _%hd144318144397%_ - _%tl144319144399%_ - _%e144320144402%_ - _%hd144321144405%_ - _%tl144322144407%_ - _%e144323144410%_ - _%hd144324144413%_ - _%tl144325144415%_ - _%e144326144418%_ - _%hd144327144421%_ - _%tl144328144423%_ - _%e144329144426%_ - _%hd144330144429%_ - _%tl144331144431%_ - _%e144332144434%_ - _%hd144333144437%_ - _%tl144334144439%_ - _%e144335144442%_ - _%hd144336144445%_ - _%tl144337144447%_) - (let ((_%L144450%_ _%hd144336144445%_) - (_%L144451%_ _%hd144327144421%_) - (_%L144452%_ _%hd144318144397%_) - (_%L144453%_ _%hd144303144357%_)) + (_%__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%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L144453%_)) + (gx#identifier? _%L145585%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L144452%_ + _%L145584%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L144453%_ - _%L144450%_)) + _%L145585%_ + _%L145582%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L144451%_ - _%L144453%_)))) - (_%__kont146516146517%_ - _%L144450%_ - _%L144451%_ - _%L144452%_ - _%L144453%_) - (_%__kont146518146519%_))))) - (_%__match146615146616%_ - (lambda (_%e144302144354%_ - _%hd144303144357%_ - _%tl144304144359%_ - _%e144305144362%_ - _%hd144306144365%_ - _%tl144307144367%_ - _%e144308144370%_ - _%hd144309144373%_ - _%tl144310144375%_ - _%e144311144378%_ - _%hd144312144381%_ - _%tl144313144383%_ - _%e144314144386%_ - _%hd144315144389%_ - _%tl144316144391%_ - _%e144317144394%_ - _%hd144318144397%_ - _%tl144319144399%_ - _%e144320144402%_ - _%hd144321144405%_ - _%tl144322144407%_ - _%e144323144410%_ - _%hd144324144413%_ - _%tl144325144415%_ - _%e144326144418%_ - _%hd144327144421%_ - _%tl144328144423%_) + _%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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144322144407%_)) - (let ((_%e144329144426%_ + (gx#stx-pair? _%tl145454145539%_)) + (let ((_%e145461145558%_ (let () (declare (not safe)) - (gx#stx-e _%tl144322144407%_)))) - (let ((_%tl144331144431%_ + (gx#stx-e _%tl145454145539%_)))) + (let ((_%tl145463145563%_ (let () (declare (not safe)) - (##cdr _%e144329144426%_))) - (_%hd144330144429%_ + (##cdr _%e145461145558%_))) + (_%hd145462145561%_ (let () (declare (not safe)) - (##car _%e144329144426%_)))) + (##car _%e145461145558%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144330144429%_)) - (let ((_%e144332144434%_ + _%hd145462145561%_)) + (let ((_%e145464145566%_ (let () (declare (not safe)) (gx#stx-e - _%hd144330144429%_)))) - (let ((_%tl144334144439%_ + _%hd145462145561%_)))) + (let ((_%tl145466145571%_ (let () (declare (not safe)) - (##cdr _%e144332144434%_))) - (_%hd144333144437%_ + (##cdr _%e145464145566%_))) + (_%hd145465145569%_ (let () (declare (not safe)) - (##car _%e144332144434%_)))) + (##car _%e145464145566%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144333144437%_)) + _%hd145465145569%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144333144437%_)) + _%hd145465145569%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl144334144439%_)) - (let ((_%e144335144442%_ + (gx#stx-pair? _%tl145466145571%_)) + (let ((_%e145467145574%_ (let () (declare (not safe)) - (gx#stx-e _%tl144334144439%_)))) - (let ((_%tl144337144447%_ + (gx#stx-e _%tl145466145571%_)))) + (let ((_%tl145469145579%_ (let () (declare (not safe)) - (##cdr _%e144335144442%_))) - (_%hd144336144445%_ + (##cdr _%e145467145574%_))) + (_%hd145468145577%_ (let () (declare (not safe)) - (##car _%e144335144442%_)))) + (##car _%e145467145574%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144337144447%_)) + (gx#stx-null? _%tl145469145579%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144331144431%_)) + (gx#stx-null? _%tl145463145563%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144307144367%_)) - (_%__match146643146644%_ - _%e144302144354%_ - _%hd144303144357%_ - _%tl144304144359%_ - _%e144305144362%_ - _%hd144306144365%_ - _%tl144307144367%_ - _%e144308144370%_ - _%hd144309144373%_ - _%tl144310144375%_ - _%e144311144378%_ - _%hd144312144381%_ - _%tl144313144383%_ - _%e144314144386%_ - _%hd144315144389%_ - _%tl144316144391%_ - _%e144317144394%_ - _%hd144318144397%_ - _%tl144319144399%_ - _%e144320144402%_ - _%hd144321144405%_ - _%tl144322144407%_ - _%e144323144410%_ - _%hd144324144413%_ - _%tl144325144415%_ - _%e144326144418%_ - _%hd144327144421%_ - _%tl144328144423%_ - _%e144329144426%_ - _%hd144330144429%_ - _%tl144331144431%_ - _%e144332144434%_ - _%hd144333144437%_ - _%tl144334144439%_ - _%e144335144442%_ - _%hd144336144445%_ - _%tl144337144447%_) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)))) - (_%__match146545146546%_ - (lambda (_%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%__splice146512146513%_ - _%target144241144503%_ - _%tl144243144505%_) - (letrec ((_%loop144244144508%_ - (lambda (_%hd144242144511%_ - _%arg144248144513%_) + (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%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144242144511%_)) - (let ((_%e144245144516%_ + _%hd145374145643%_)) + (let ((_%e145377145648%_ (let () (declare (not safe)) (gx#stx-e - _%hd144242144511%_)))) - (let ((_%lp-tl144247144521%_ + _%hd145374145643%_)))) + (let ((_%lp-tl145379145653%_ (let () (declare (not safe)) - (##cdr _%e144245144516%_))) - (_%lp-hd144246144519%_ + (##cdr _%e145377145648%_))) + (_%lp-hd145378145651%_ (let () (declare (not safe)) - (##car _%e144245144516%_)))) - (_%loop144244144508%_ - _%lp-tl144247144521%_ - (cons _%lp-hd144246144519%_ - _%arg144248144513%_)))) - (let ((_%arg144249144524%_ - (reverse _%arg144248144513%_))) + (##car _%e145377145648%_)))) + (_%loop145376145640%_ + _%lp-tl145379145653%_ + (cons _%lp-hd145378145651%_ + _%arg145380145645%_)))) + (let ((_%arg145381145656%_ + (reverse _%arg145380145645%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144240144500%_)) - (let ((_%e144250144527%_ + _%tl145372145632%_)) + (let ((_%e145382145659%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl144240144500%_)))) - (let ((_%tl144252144532%_ + (gx#stx-e _%tl145372145632%_)))) + (let ((_%tl145384145664%_ (let () (declare (not safe)) - (##cdr _%e144250144527%_))) - (_%hd144251144530%_ + (##cdr _%e145382145659%_))) + (_%hd145383145662%_ (let () (declare (not safe)) - (##car _%e144250144527%_)))) + (##car _%e145382145659%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144251144530%_)) - (let ((_%e144253144535%_ + (gx#stx-pair? _%hd145383145662%_)) + (let ((_%e145385145667%_ (let () (declare (not safe)) - (gx#stx-e _%hd144251144530%_)))) - (let ((_%tl144255144540%_ + (gx#stx-e _%hd145383145662%_)))) + (let ((_%tl145387145672%_ (let () (declare (not safe)) - (##cdr _%e144253144535%_))) - (_%hd144254144538%_ + (##cdr _%e145385145667%_))) + (_%hd145386145670%_ (let () (declare (not safe)) - (##car _%e144253144535%_)))) + (##car _%e145385145667%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144254144538%_)) + (gx#identifier? _%hd145386145670%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd144254144538%_)) + (gx#stx-eq? '%#call _%hd145386145670%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144255144540%_)) - (let ((_%e144256144543%_ + (gx#stx-pair? _%tl145387145672%_)) + (let ((_%e145388145675%_ (let () (declare (not safe)) (gx#stx-e - _%tl144255144540%_)))) - (let ((_%tl144258144548%_ + _%tl145387145672%_)))) + (let ((_%tl145390145680%_ (let () (declare (not safe)) - (##cdr _%e144256144543%_))) - (_%hd144257144546%_ + (##cdr _%e145388145675%_))) + (_%hd145389145678%_ (let () (declare (not safe)) - (##car _%e144256144543%_)))) + (##car _%e145388145675%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144257144546%_)) - (let ((_%e144259144551%_ + _%hd145389145678%_)) + (let ((_%e145391145683%_ (let () (declare (not safe)) (gx#stx-e - _%hd144257144546%_)))) - (let ((_%tl144261144556%_ + _%hd145389145678%_)))) + (let ((_%tl145393145688%_ (let () (declare (not safe)) - (##cdr _%e144259144551%_))) - (_%hd144260144554%_ + (##cdr _%e145391145683%_))) + (_%hd145392145686%_ (let () (declare (not safe)) - (##car _%e144259144551%_)))) + (##car _%e145391145683%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144260144554%_)) + _%hd145392145686%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144260144554%_)) + _%hd145392145686%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl144261144556%_)) - (let ((_%e144262144559%_ + (gx#stx-pair? _%tl145393145688%_)) + (let ((_%e145394145691%_ (let () (declare (not safe)) - (gx#stx-e _%tl144261144556%_)))) - (let ((_%tl144264144564%_ + (gx#stx-e _%tl145393145688%_)))) + (let ((_%tl145396145696%_ (let () (declare (not safe)) - (##cdr _%e144262144559%_))) - (_%hd144263144562%_ + (##cdr _%e145394145691%_))) + (_%hd145395145694%_ (let () (declare (not safe)) - (##car _%e144262144559%_)))) + (##car _%e145394145691%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144264144564%_)) + (gx#stx-null? _%tl145396145696%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144258144548%_)) - (let ((_%e144265144567%_ + (gx#stx-pair? _%tl145390145680%_)) + (let ((_%e145397145699%_ (let () (declare (not safe)) - (gx#stx-e _%tl144258144548%_)))) - (let ((_%tl144267144572%_ + (gx#stx-e _%tl145390145680%_)))) + (let ((_%tl145399145704%_ (let () (declare (not safe)) - (##cdr _%e144265144567%_))) - (_%hd144266144570%_ + (##cdr _%e145397145699%_))) + (_%hd145398145702%_ (let () (declare (not safe)) - (##car _%e144265144567%_)))) + (##car _%e145397145699%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144266144570%_)) - (let ((_%e144268144575%_ + _%hd145398145702%_)) + (let ((_%e145400145707%_ (let () (declare (not safe)) (gx#stx-e - _%hd144266144570%_)))) - (let ((_%tl144270144580%_ + _%hd145398145702%_)))) + (let ((_%tl145402145712%_ (let () (declare (not safe)) - (##cdr _%e144268144575%_))) - (_%hd144269144578%_ + (##cdr _%e145400145707%_))) + (_%hd145401145710%_ (let () (declare (not safe)) - (##car _%e144268144575%_)))) + (##car _%e145400145707%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144269144578%_)) + _%hd145401145710%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144269144578%_)) + _%hd145401145710%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144270144580%_)) - (let ((_%e144271144583%_ + _%tl145402145712%_)) + (let ((_%e145403145715%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl144270144580%_)))) - (let ((_%tl144273144588%_ + (gx#stx-e _%tl145402145712%_)))) + (let ((_%tl145405145720%_ (let () (declare (not safe)) - (##cdr _%e144271144583%_))) - (_%hd144272144586%_ + (##cdr _%e145403145715%_))) + (_%hd145404145718%_ (let () (declare (not safe)) - (##car _%e144271144583%_)))) + (##car _%e145403145715%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144273144588%_)) + (gx#stx-null? _%tl145405145720%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl144267144572%_)) - (if (let ((__tmp147784 + (gx#stx-pair/null? _%tl145399145704%_)) + (if (let ((__tmp148916 (let () (declare (not safe)) (gx#stx-length - _%tl144267144572%_)))) + _%tl145399145704%_)))) (declare (not safe)) - (##fx>= __tmp147784 '1)) - (let ((_%__splice146514146515%_ + (##fx>= __tmp148916 '1)) + (let ((_%__splice147646147647%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl144267144572%_ + _%tl145399145704%_ '1)))) - (let ((_%tl144276144593%_ + (let ((_%tl145408145725%_ (let () (declare (not safe)) (##vector-ref - _%__splice146514146515%_ + _%__splice147646147647%_ '1))) - (_%target144274144591%_ + (_%target145406145723%_ (let () (declare (not safe)) (##vector-ref - _%__splice146514146515%_ + _%__splice147646147647%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144276144593%_)) - (let ((_%e144283144596%_ + _%tl145408145725%_)) + (let ((_%e145415145728%_ (let () (declare (not safe)) (gx#stx-e - _%tl144276144593%_)))) - (let ((_%tl144285144601%_ + _%tl145408145725%_)))) + (let ((_%tl145417145733%_ (let () (declare (not safe)) - (##cdr _%e144283144596%_))) - (_%hd144284144599%_ + (##cdr _%e145415145728%_))) + (_%hd145416145731%_ (let () (declare (not safe)) - (##car _%e144283144596%_)))) + (##car _%e145415145728%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144284144599%_)) - (let ((_%e144286144604%_ + _%hd145416145731%_)) + (let ((_%e145418145736%_ (let () (declare (not safe)) (gx#stx-e - _%hd144284144599%_)))) - (let ((_%tl144288144609%_ + _%hd145416145731%_)))) + (let ((_%tl145420145741%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e144286144604%_))) - (_%hd144287144607%_ - (let () (declare (not safe)) (##car _%e144286144604%_)))) + (##cdr _%e145418145736%_))) + (_%hd145419145739%_ + (let () (declare (not safe)) (##car _%e145418145736%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144287144607%_)) + (gx#identifier? _%hd145419145739%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd144287144607%_)) + (gx#stx-eq? '%#ref _%hd145419145739%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144288144609%_)) - (let ((_%e144289144612%_ + (gx#stx-pair? _%tl145420145741%_)) + (let ((_%e145421145744%_ (let () (declare (not safe)) - (gx#stx-e _%tl144288144609%_)))) - (let ((_%tl144291144617%_ + (gx#stx-e _%tl145420145741%_)))) + (let ((_%tl145423145749%_ (let () (declare (not safe)) - (##cdr _%e144289144612%_))) - (_%hd144290144615%_ + (##cdr _%e145421145744%_))) + (_%hd145422145747%_ (let () (declare (not safe)) - (##car _%e144289144612%_)))) + (##car _%e145421145744%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144291144617%_)) + (gx#stx-null? _%tl145423145749%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144285144601%_)) - (letrec ((_%loop144277144620%_ - (lambda (_%hd144275144623%_ - _%xarg144281144625%_) + (gx#stx-null? _%tl145417145733%_)) + (letrec ((_%loop145409145752%_ + (lambda (_%hd145407145755%_ + _%xarg145413145757%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144275144623%_)) - (let ((_%e144278144628%_ + _%hd145407145755%_)) + (let ((_%e145410145760%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd144275144623%_)))) - (let ((_%lp-tl144280144633%_ + (gx#stx-e _%hd145407145755%_)))) + (let ((_%lp-tl145412145765%_ (let () (declare (not safe)) - (##cdr _%e144278144628%_))) - (_%lp-hd144279144631%_ + (##cdr _%e145410145760%_))) + (_%lp-hd145411145763%_ (let () (declare (not safe)) - (##car _%e144278144628%_)))) + (##car _%e145410145760%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd144279144631%_)) - (let ((_%e144292144636%_ + (gx#stx-pair? _%lp-hd145411145763%_)) + (let ((_%e145424145768%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd144279144631%_)))) - (let ((_%tl144294144641%_ + (gx#stx-e _%lp-hd145411145763%_)))) + (let ((_%tl145426145773%_ (let () (declare (not safe)) - (##cdr _%e144292144636%_))) - (_%hd144293144639%_ + (##cdr _%e145424145768%_))) + (_%hd145425145771%_ (let () (declare (not safe)) - (##car _%e144292144636%_)))) + (##car _%e145424145768%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144293144639%_)) + (gx#identifier? _%hd145425145771%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd144293144639%_)) + (gx#stx-eq? '%#ref _%hd145425145771%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144294144641%_)) - (let ((_%e144295144644%_ + (gx#stx-pair? _%tl145426145773%_)) + (let ((_%e145427145776%_ (let () (declare (not safe)) (gx#stx-e - _%tl144294144641%_)))) - (let ((_%tl144297144649%_ + _%tl145426145773%_)))) + (let ((_%tl145429145781%_ (let () (declare (not safe)) - (##cdr _%e144295144644%_))) - (_%hd144296144647%_ + (##cdr _%e145427145776%_))) + (_%hd145428145779%_ (let () (declare (not safe)) - (##car _%e144295144644%_)))) + (##car _%e145427145776%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144297144649%_)) - (_%loop144277144620%_ - _%lp-tl144280144633%_ - (cons _%hd144296144647%_ - _%xarg144281144625%_)) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_)))) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_)) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_)) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_)))) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_)))) - (let ((_%xarg144282144652%_ (reverse _%xarg144281144625%_))) + _%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%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144252144532%_)) - (let ((_%L144655%_ _%hd144290144615%_) - (_%L144656%_ _%xarg144282144652%_) - (_%L144657%_ _%hd144272144586%_) - (_%L144658%_ _%hd144263144562%_) - (_%L144659%_ _%tl144243144505%_) - (_%L144660%_ _%arg144249144524%_)) - (if (and (let ((__tmp147785 - (let ((__tmp147786 - (lambda (_%g144703144706%_ - _%g144704144708%_) - (cons _%g144703144706%_ - _%g144704144708%_)))) + (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%_)))) (declare (not safe)) (__foldr1 - __tmp147786 + __tmp148918 '() - _%L144660%_)))) + _%L145792%_)))) (declare (not safe)) - (gx#identifier-list? __tmp147785)) + (gx#identifier-list? __tmp148917)) (let () (declare (not safe)) - (gx#identifier? _%L144659%_)) + (gx#identifier? _%L145791%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L144658%_ + _%L145790%_ 'apply)) - (let ((__tmp147789 - (length (let ((__tmp147790 - (lambda (_%g144710144713%_ - _%g144711144715%_) - (cons _%g144710144713%_ - _%g144711144715%_)))) + (let ((__tmp148921 + (length (let ((__tmp148922 + (lambda (_%g145842145845%_ + _%g145843145847%_) + (cons _%g145842145845%_ + _%g145843145847%_)))) (declare (not safe)) (__foldr1 - __tmp147790 + __tmp148922 '() - _%L144660%_)))) - (__tmp147787 - (length (let ((__tmp147788 - (lambda (_%g144717144720%_ - _%g144718144722%_) - (cons _%g144717144720%_ - _%g144718144722%_)))) + _%L145792%_)))) + (__tmp148919 + (length (let ((__tmp148920 + (lambda (_%g145849145852%_ + _%g145850145854%_) + (cons _%g145849145852%_ + _%g145850145854%_)))) (declare (not safe)) (__foldr1 - __tmp147788 + __tmp148920 '() - _%L144656%_))))) + _%L145788%_))))) (declare (not safe)) - (##fx= __tmp147789 __tmp147787)) - (let ((__tmp147793 - (let ((__tmp147794 - (lambda (_%g144724144727%_ - _%g144725144729%_) - (cons _%g144724144727%_ - _%g144725144729%_)))) + (##fx= __tmp148921 __tmp148919)) + (let ((__tmp148925 + (let ((__tmp148926 + (lambda (_%g145856145859%_ + _%g145857145861%_) + (cons _%g145856145859%_ + _%g145857145861%_)))) (declare (not safe)) (__foldr1 - __tmp147794 + __tmp148926 '() - _%L144660%_))) - (__tmp147791 - (let ((__tmp147792 - (lambda (_%g144731144734%_ - _%g144732144736%_) - (cons _%g144731144734%_ - _%g144732144736%_)))) + _%L145792%_))) + (__tmp148923 + (let ((__tmp148924 + (lambda (_%g145863145866%_ + _%g145864145868%_) + (cons _%g145863145866%_ + _%g145864145868%_)))) (declare (not safe)) (__foldr1 - __tmp147792 + __tmp148924 '() - _%L144656%_)))) + _%L145788%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp147793 - __tmp147791)) + __tmp148925 + __tmp148923)) (let () (declare (not safe)) (gx#free-identifier=? - _%L144659%_ - _%L144655%_)) - (not (let ((__tmp147798 - (lambda (_%g144738144740%_) + _%L145791%_ + _%L145787%_)) + (not (let ((__tmp148930 + (lambda (_%g145870145872%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g144738144740%_ - _%L144657%_)))) - (__tmp147795 - (let ((__tmp147797 - (lambda (_%g144742144745%_ - _%g144743144747%_) - (cons _%g144742144745%_ - _%g144743144747%_))) - (__tmp147796 - (cons _%L144659%_ '()))) + _%g145870145872%_ + _%L145789%_)))) + (__tmp148927 + (let ((__tmp148929 + (lambda (_%g145874145877%_ + _%g145875145879%_) + (cons _%g145874145877%_ + _%g145875145879%_))) + (__tmp148928 + (cons _%L145791%_ '()))) (declare (not safe)) (__foldr1 - __tmp147797 - __tmp147796 - _%L144660%_)))) + __tmp148929 + __tmp148928 + _%L145792%_)))) (declare (not safe)) - (__find __tmp147798 __tmp147795)))) - (_%__kont146510146511%_ - _%L144655%_ - _%L144656%_ - _%L144657%_ - _%L144658%_ - _%L144659%_ - _%L144660%_) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_))) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144277144620%_ - _%target144274144591%_ + (__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%_ '())) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_)) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_)))) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_)) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_)) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_)))) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_)))) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_)) - (_%__match146615146616%_ - _%e144238144495%_ - _%hd144239144498%_ - _%tl144240144500%_ - _%e144250144527%_ - _%hd144251144530%_ - _%tl144252144532%_ - _%e144253144535%_ - _%hd144254144538%_ - _%tl144255144540%_ - _%e144256144543%_ - _%hd144257144546%_ - _%tl144258144548%_ - _%e144259144551%_ - _%hd144260144554%_ - _%tl144261144556%_ - _%e144262144559%_ - _%hd144263144562%_ - _%tl144264144564%_ - _%e144265144567%_ - _%hd144266144570%_ - _%tl144267144572%_ - _%e144268144575%_ - _%hd144269144578%_ - _%tl144270144580%_ - _%e144271144583%_ - _%hd144272144586%_ - _%tl144273144588%_)) - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)))) - (_%__kont146518146519%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144244144508%_ - _%target144241144503%_ + (_%__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%_ '())))) - (_%__match146533146534%_ - (lambda (_%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_) - (letrec ((_%loop144196144768%_ - (lambda (_%hd144194144771%_ - _%arg144200144773%_) + (_%__match147665147666%_ + (lambda (_%e145322145887%_ + _%hd145323145890%_ + _%tl145324145892%_ + _%__splice147638147639%_ + _%target145325145895%_ + _%tl145327145897%_) + (letrec ((_%loop145328145900%_ + (lambda (_%hd145326145903%_ + _%arg145332145905%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144194144771%_)) - (let ((_%e144197144776%_ + _%hd145326145903%_)) + (let ((_%e145329145908%_ (let () (declare (not safe)) (gx#stx-e - _%hd144194144771%_)))) - (let ((_%lp-tl144199144781%_ + _%hd145326145903%_)))) + (let ((_%lp-tl145331145913%_ (let () (declare (not safe)) - (##cdr _%e144197144776%_))) - (_%lp-hd144198144779%_ + (##cdr _%e145329145908%_))) + (_%lp-hd145330145911%_ (let () (declare (not safe)) - (##car _%e144197144776%_)))) - (_%loop144196144768%_ - _%lp-tl144199144781%_ - (cons _%lp-hd144198144779%_ - _%arg144200144773%_)))) - (let ((_%arg144201144784%_ - (reverse _%arg144200144773%_))) + (##car _%e145329145908%_)))) + (_%loop145328145900%_ + _%lp-tl145331145913%_ + (cons _%lp-hd145330145911%_ + _%arg145332145905%_)))) + (let ((_%arg145333145916%_ + (reverse _%arg145332145905%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144192144760%_)) - (let ((_%e144202144787%_ + _%tl145324145892%_)) + (let ((_%e145334145919%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl144192144760%_)))) - (let ((_%tl144204144792%_ + (gx#stx-e _%tl145324145892%_)))) + (let ((_%tl145336145924%_ (let () (declare (not safe)) - (##cdr _%e144202144787%_))) - (_%hd144203144790%_ + (##cdr _%e145334145919%_))) + (_%hd145335145922%_ (let () (declare (not safe)) - (##car _%e144202144787%_)))) + (##car _%e145334145919%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144203144790%_)) - (let ((_%e144205144795%_ + (gx#stx-pair? _%hd145335145922%_)) + (let ((_%e145337145927%_ (let () (declare (not safe)) - (gx#stx-e _%hd144203144790%_)))) - (let ((_%tl144207144800%_ + (gx#stx-e _%hd145335145922%_)))) + (let ((_%tl145339145932%_ (let () (declare (not safe)) - (##cdr _%e144205144795%_))) - (_%hd144206144798%_ + (##cdr _%e145337145927%_))) + (_%hd145338145930%_ (let () (declare (not safe)) - (##car _%e144205144795%_)))) + (##car _%e145337145927%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144206144798%_)) + (gx#identifier? _%hd145338145930%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd144206144798%_)) + (gx#stx-eq? '%#call _%hd145338145930%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144207144800%_)) - (let ((_%e144208144803%_ + (gx#stx-pair? _%tl145339145932%_)) + (let ((_%e145340145935%_ (let () (declare (not safe)) (gx#stx-e - _%tl144207144800%_)))) - (let ((_%tl144210144808%_ + _%tl145339145932%_)))) + (let ((_%tl145342145940%_ (let () (declare (not safe)) - (##cdr _%e144208144803%_))) - (_%hd144209144806%_ + (##cdr _%e145340145935%_))) + (_%hd145341145938%_ (let () (declare (not safe)) - (##car _%e144208144803%_)))) + (##car _%e145340145935%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144209144806%_)) - (let ((_%e144211144811%_ + _%hd145341145938%_)) + (let ((_%e145343145943%_ (let () (declare (not safe)) (gx#stx-e - _%hd144209144806%_)))) - (let ((_%tl144213144816%_ + _%hd145341145938%_)))) + (let ((_%tl145345145948%_ (let () (declare (not safe)) - (##cdr _%e144211144811%_))) - (_%hd144212144814%_ + (##cdr _%e145343145943%_))) + (_%hd145344145946%_ (let () (declare (not safe)) - (##car _%e144211144811%_)))) + (##car _%e145343145943%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144212144814%_)) + _%hd145344145946%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144212144814%_)) + _%hd145344145946%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl144213144816%_)) - (let ((_%e144214144819%_ + (gx#stx-pair? _%tl145345145948%_)) + (let ((_%e145346145951%_ (let () (declare (not safe)) - (gx#stx-e _%tl144213144816%_)))) - (let ((_%tl144216144824%_ + (gx#stx-e _%tl145345145948%_)))) + (let ((_%tl145348145956%_ (let () (declare (not safe)) - (##cdr _%e144214144819%_))) - (_%hd144215144822%_ + (##cdr _%e145346145951%_))) + (_%hd145347145954%_ (let () (declare (not safe)) - (##car _%e144214144819%_)))) + (##car _%e145346145951%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144216144824%_)) + (gx#stx-null? _%tl145348145956%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl144210144808%_)) - (let ((_%__splice146508146509%_ + (gx#stx-pair/null? _%tl145342145940%_)) + (let ((_%__splice147640147641%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl144210144808%_ + _%tl145342145940%_ '0)))) - (let ((_%tl144219144829%_ + (let ((_%tl145351145961%_ (let () (declare (not safe)) (##vector-ref - _%__splice146508146509%_ + _%__splice147640147641%_ '1))) - (_%target144217144827%_ + (_%target145349145959%_ (let () (declare (not safe)) (##vector-ref - _%__splice146508146509%_ + _%__splice147640147641%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144219144829%_)) - (letrec ((_%loop144220144832%_ - (lambda (_%hd144218144835%_ - _%xarg144224144837%_) + _%tl145351145961%_)) + (letrec ((_%loop145352145964%_ + (lambda (_%hd145350145967%_ + _%xarg145356145969%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144218144835%_)) - (let ((_%e144221144840%_ + _%hd145350145967%_)) + (let ((_%e145353145972%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd144218144835%_)))) - (let ((_%lp-tl144223144845%_ + (gx#stx-e _%hd145350145967%_)))) + (let ((_%lp-tl145355145977%_ (let () (declare (not safe)) - (##cdr _%e144221144840%_))) - (_%lp-hd144222144843%_ + (##cdr _%e145353145972%_))) + (_%lp-hd145354145975%_ (let () (declare (not safe)) - (##car _%e144221144840%_)))) + (##car _%e145353145972%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd144222144843%_)) - (let ((_%e144226144848%_ + (gx#stx-pair? _%lp-hd145354145975%_)) + (let ((_%e145358145980%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd144222144843%_)))) - (let ((_%tl144228144853%_ + (gx#stx-e _%lp-hd145354145975%_)))) + (let ((_%tl145360145985%_ (let () (declare (not safe)) - (##cdr _%e144226144848%_))) - (_%hd144227144851%_ + (##cdr _%e145358145980%_))) + (_%hd145359145983%_ (let () (declare (not safe)) - (##car _%e144226144848%_)))) + (##car _%e145358145980%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144227144851%_)) + (gx#identifier? _%hd145359145983%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144227144851%_)) + _%hd145359145983%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144228144853%_)) - (let ((_%e144229144856%_ + _%tl145360145985%_)) + (let ((_%e145361145988%_ (let () (declare (not safe)) (gx#stx-e - _%tl144228144853%_)))) - (let ((_%tl144231144861%_ + _%tl145360145985%_)))) + (let ((_%tl145363145993%_ (let () (declare (not safe)) - (##cdr _%e144229144856%_))) - (_%hd144230144859%_ + (##cdr _%e145361145988%_))) + (_%hd145362145991%_ (let () (declare (not safe)) - (##car _%e144229144856%_)))) + (##car _%e145361145988%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144231144861%_)) - (_%loop144220144832%_ - _%lp-tl144223144845%_ - (cons _%hd144230144859%_ - _%xarg144224144837%_)) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)))) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)))) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)))) - (let ((_%xarg144225144864%_ - (reverse _%xarg144224144837%_))) + _%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%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144204144792%_)) - (let ((_%L144867%_ _%xarg144225144864%_) - (_%L144868%_ _%hd144215144822%_) - (_%L144869%_ _%arg144201144784%_)) - (if (and (let ((__tmp147799 - (let ((__tmp147800 - (lambda (_%g144897144900%_ - _%g144898144902%_) - (cons _%g144897144900%_ - _%g144898144902%_)))) + (gx#stx-null? _%tl145336145924%_)) + (let ((_%L145999%_ _%xarg145357145996%_) + (_%L146000%_ _%hd145347145954%_) + (_%L146001%_ _%arg145333145916%_)) + (if (and (let ((__tmp148931 + (let ((__tmp148932 + (lambda (_%g146029146032%_ + _%g146030146034%_) + (cons _%g146029146032%_ + _%g146030146034%_)))) (declare (not safe)) (__foldr1 - __tmp147800 + __tmp148932 '() - _%L144869%_)))) + _%L146001%_)))) (declare (not safe)) - (gx#identifier-list? __tmp147799)) - (let ((__tmp147803 - (length (let ((__tmp147804 - (lambda (_%g144904144907%_ + (gx#identifier-list? __tmp148931)) + (let ((__tmp148935 + (length (let ((__tmp148936 + (lambda (_%g146036146039%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g144905144909%_) - (cons _%g144904144907%_ _%g144905144909%_)))) + _%g146037146041%_) + (cons _%g146036146039%_ _%g146037146041%_)))) (declare (not safe)) - (__foldr1 __tmp147804 '() _%L144869%_)))) + (__foldr1 __tmp148936 '() _%L146001%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp147801 - (length (let ((__tmp147802 - (lambda (_%g144911144914%_ + (__tmp148933 + (length (let ((__tmp148934 + (lambda (_%g146043146046%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g144912144916%_) - (cons _%g144911144914%_ _%g144912144916%_)))) + _%g146044146048%_) + (cons _%g146043146046%_ _%g146044146048%_)))) (declare (not safe)) - (__foldr1 __tmp147802 '() _%L144867%_))))) + (__foldr1 __tmp148934 '() _%L145999%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp147803 __tmp147801)) - (let ((__tmp147807 - (let ((__tmp147808 - (lambda (_%g144918144921%_ - _%g144919144923%_) - (cons _%g144918144921%_ - _%g144919144923%_)))) + (##fx= __tmp148935 __tmp148933)) + (let ((__tmp148939 + (let ((__tmp148940 + (lambda (_%g146050146053%_ + _%g146051146055%_) + (cons _%g146050146053%_ + _%g146051146055%_)))) (declare (not safe)) (__foldr1 - __tmp147808 + __tmp148940 '() - _%L144869%_))) - (__tmp147805 - (let ((__tmp147806 - (lambda (_%g144925144928%_ - _%g144926144930%_) - (cons _%g144925144928%_ - _%g144926144930%_)))) + _%L146001%_))) + (__tmp148937 + (let ((__tmp148938 + (lambda (_%g146057146060%_ + _%g146058146062%_) + (cons _%g146057146060%_ + _%g146058146062%_)))) (declare (not safe)) (__foldr1 - __tmp147806 + __tmp148938 '() - _%L144867%_)))) + _%L145999%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp147807 - __tmp147805)) - (not (let ((__tmp147811 - (lambda (_%g144932144934%_) + __tmp148939 + __tmp148937)) + (not (let ((__tmp148943 + (lambda (_%g146064146066%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g144932144934%_ - _%L144868%_)))) - (__tmp147809 - (let ((__tmp147810 - (lambda (_%g144936144939%_ + _%g146064146066%_ + _%L146000%_)))) + (__tmp148941 + (let ((__tmp148942 + (lambda (_%g146068146071%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g144937144941%_) - (cons _%g144936144939%_ _%g144937144941%_)))) + _%g146069146073%_) + (cons _%g146068146071%_ _%g146069146073%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp147810 + __tmp148942 '() - _%L144869%_)))) + _%L146001%_)))) (declare (not safe)) - (__find __tmp147811 __tmp147809)))) - (_%__kont146504146505%_ - _%L144867%_ - _%L144868%_ - _%L144869%_) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_))) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144220144832%_ - _%target144217144827%_ + (__find __tmp148943 __tmp148941)))) + (_%__kont147636147637%_ + _%L145999%_ + _%L146000%_ + _%L146001%_) + (_%__match147677147678%_ + _%e145322145887%_ + _%hd145323145890%_ + _%tl145324145892%_ + _%__splice147638147639%_ + _%target145325145895%_ + _%tl145327145897%_))) + (_%__match147677147678%_ + _%e145322145887%_ + _%hd145323145890%_ + _%tl145324145892%_ + _%__splice147638147639%_ + _%target145325145895%_ + _%tl145327145897%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145352145964%_ + _%target145349145959%_ '())) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)))) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)))) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)))) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)))) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)))) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144196144768%_ - _%target144193144763%_ + (_%__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%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146502146503%_)) - (let ((_%e144190144755%_ + (gx#stx-pair? _%__stx147634147635%_)) + (let ((_%e145322145887%_ (let () (declare (not safe)) - (gx#stx-e _%__stx146502146503%_)))) - (let ((_%tl144192144760%_ + (gx#stx-e _%__stx147634147635%_)))) + (let ((_%tl145324145892%_ (let () (declare (not safe)) - (##cdr _%e144190144755%_))) - (_%hd144191144758%_ + (##cdr _%e145322145887%_))) + (_%hd145323145890%_ (let () (declare (not safe)) - (##car _%e144190144755%_)))) + (##car _%e145322145887%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd144191144758%_)) - (let ((_%__splice146506146507%_ + (gx#stx-pair/null? _%hd145323145890%_)) + (let ((_%__splice147638147639%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd144191144758%_ + _%hd145323145890%_ '0)))) - (let ((_%tl144195144765%_ + (let ((_%tl145327145897%_ (let () (declare (not safe)) (##vector-ref - _%__splice146506146507%_ + _%__splice147638147639%_ '1))) - (_%target144193144763%_ + (_%target145325145895%_ (let () (declare (not safe)) (##vector-ref - _%__splice146506146507%_ + _%__splice147638147639%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144195144765%_)) - (_%__match146533146534%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_) - (_%__match146545146546%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%__splice146506146507%_ - _%target144193144763%_ - _%tl144195144765%_)))) + _%tl145327145897%_)) + (_%__match147665147666%_ + _%e145322145887%_ + _%hd145323145890%_ + _%tl145324145892%_ + _%__splice147638147639%_ + _%target145325145895%_ + _%tl145327145897%_) + (_%__match147677147678%_ + _%e145322145887%_ + _%hd145323145890%_ + _%tl145324145892%_ + _%__splice147638147639%_ + _%target145325145895%_ + _%tl145327145897%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144192144760%_)) - (let ((_%e144305144362%_ + (gx#stx-pair? _%tl145324145892%_)) + (let ((_%e145437145494%_ (let () (declare (not safe)) (gx#stx-e - _%tl144192144760%_)))) - (let ((_%tl144307144367%_ + _%tl145324145892%_)))) + (let ((_%tl145439145499%_ (let () (declare (not safe)) - (##cdr _%e144305144362%_))) - (_%hd144306144365%_ + (##cdr _%e145437145494%_))) + (_%hd145438145497%_ (let () (declare (not safe)) - (##car _%e144305144362%_)))) + (##car _%e145437145494%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144306144365%_)) - (let ((_%e144308144370%_ + _%hd145438145497%_)) + (let ((_%e145440145502%_ (let () (declare (not safe)) (gx#stx-e - _%hd144306144365%_)))) - (let ((_%tl144310144375%_ + _%hd145438145497%_)))) + (let ((_%tl145442145507%_ (let () (declare (not safe)) - (##cdr _%e144308144370%_))) - (_%hd144309144373%_ + (##cdr _%e145440145502%_))) + (_%hd145441145505%_ (let () (declare (not safe)) - (##car _%e144308144370%_)))) + (##car _%e145440145502%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144309144373%_)) + _%hd145441145505%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd144309144373%_)) + (gx#stx-eq? '%#call _%hd145441145505%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144310144375%_)) - (let ((_%e144311144378%_ + (gx#stx-pair? _%tl145442145507%_)) + (let ((_%e145443145510%_ (let () (declare (not safe)) - (gx#stx-e _%tl144310144375%_)))) - (let ((_%tl144313144383%_ + (gx#stx-e _%tl145442145507%_)))) + (let ((_%tl145445145515%_ (let () (declare (not safe)) - (##cdr _%e144311144378%_))) - (_%hd144312144381%_ + (##cdr _%e145443145510%_))) + (_%hd145444145513%_ (let () (declare (not safe)) - (##car _%e144311144378%_)))) + (##car _%e145443145510%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144312144381%_)) - (let ((_%e144314144386%_ + (gx#stx-pair? _%hd145444145513%_)) + (let ((_%e145446145518%_ (let () (declare (not safe)) - (gx#stx-e _%hd144312144381%_)))) - (let ((_%tl144316144391%_ + (gx#stx-e _%hd145444145513%_)))) + (let ((_%tl145448145523%_ (let () (declare (not safe)) - (##cdr _%e144314144386%_))) - (_%hd144315144389%_ + (##cdr _%e145446145518%_))) + (_%hd145447145521%_ (let () (declare (not safe)) - (##car _%e144314144386%_)))) + (##car _%e145446145518%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144315144389%_)) + _%hd145447145521%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144315144389%_)) + _%hd145447145521%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144316144391%_)) - (let ((_%e144317144394%_ + _%tl145448145523%_)) + (let ((_%e145449145526%_ (let () (declare (not safe)) (gx#stx-e - _%tl144316144391%_)))) - (let ((_%tl144319144399%_ + _%tl145448145523%_)))) + (let ((_%tl145451145531%_ (let () (declare (not safe)) - (##cdr _%e144317144394%_))) - (_%hd144318144397%_ + (##cdr _%e145449145526%_))) + (_%hd145450145529%_ (let () (declare (not safe)) - (##car _%e144317144394%_)))) + (##car _%e145449145526%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144319144399%_)) + _%tl145451145531%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl144313144383%_)) - (let ((_%e144320144402%_ + (gx#stx-pair? _%tl145445145515%_)) + (let ((_%e145452145534%_ (let () (declare (not safe)) - (gx#stx-e _%tl144313144383%_)))) - (let ((_%tl144322144407%_ + (gx#stx-e _%tl145445145515%_)))) + (let ((_%tl145454145539%_ (let () (declare (not safe)) - (##cdr _%e144320144402%_))) - (_%hd144321144405%_ + (##cdr _%e145452145534%_))) + (_%hd145453145537%_ (let () (declare (not safe)) - (##car _%e144320144402%_)))) + (##car _%e145452145534%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144321144405%_)) - (let ((_%e144323144410%_ + (gx#stx-pair? _%hd145453145537%_)) + (let ((_%e145455145542%_ (let () (declare (not safe)) - (gx#stx-e _%hd144321144405%_)))) - (let ((_%tl144325144415%_ + (gx#stx-e _%hd145453145537%_)))) + (let ((_%tl145457145547%_ (let () (declare (not safe)) - (##cdr _%e144323144410%_))) - (_%hd144324144413%_ + (##cdr _%e145455145542%_))) + (_%hd145456145545%_ (let () (declare (not safe)) - (##car _%e144323144410%_)))) + (##car _%e145455145542%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144324144413%_)) + (gx#identifier? _%hd145456145545%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144324144413%_)) + _%hd145456145545%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144325144415%_)) - (let ((_%e144326144418%_ + _%tl145457145547%_)) + (let ((_%e145458145550%_ (let () (declare (not safe)) (gx#stx-e - _%tl144325144415%_)))) - (let ((_%tl144328144423%_ + _%tl145457145547%_)))) + (let ((_%tl145460145555%_ (let () (declare (not safe)) - (##cdr _%e144326144418%_))) - (_%hd144327144421%_ + (##cdr _%e145458145550%_))) + (_%hd145459145553%_ (let () (declare (not safe)) - (##car _%e144326144418%_)))) + (##car _%e145458145550%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144328144423%_)) + _%tl145460145555%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144322144407%_)) - (let ((_%e144329144426%_ + _%tl145454145539%_)) + (let ((_%e145461145558%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl144322144407%_)))) - (let ((_%tl144331144431%_ + (gx#stx-e _%tl145454145539%_)))) + (let ((_%tl145463145563%_ (let () (declare (not safe)) - (##cdr _%e144329144426%_))) - (_%hd144330144429%_ + (##cdr _%e145461145558%_))) + (_%hd145462145561%_ (let () (declare (not safe)) - (##car _%e144329144426%_)))) + (##car _%e145461145558%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144330144429%_)) - (let ((_%e144332144434%_ + (gx#stx-pair? _%hd145462145561%_)) + (let ((_%e145464145566%_ (let () (declare (not safe)) - (gx#stx-e _%hd144330144429%_)))) - (let ((_%tl144334144439%_ + (gx#stx-e _%hd145462145561%_)))) + (let ((_%tl145466145571%_ (let () (declare (not safe)) - (##cdr _%e144332144434%_))) - (_%hd144333144437%_ + (##cdr _%e145464145566%_))) + (_%hd145465145569%_ (let () (declare (not safe)) - (##car _%e144332144434%_)))) + (##car _%e145464145566%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144333144437%_)) + (gx#identifier? _%hd145465145569%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd144333144437%_)) + (gx#stx-eq? '%#ref _%hd145465145569%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144334144439%_)) - (let ((_%e144335144442%_ + (gx#stx-pair? _%tl145466145571%_)) + (let ((_%e145467145574%_ (let () (declare (not safe)) (gx#stx-e - _%tl144334144439%_)))) - (let ((_%tl144337144447%_ + _%tl145466145571%_)))) + (let ((_%tl145469145579%_ (let () (declare (not safe)) - (##cdr _%e144335144442%_))) - (_%hd144336144445%_ + (##cdr _%e145467145574%_))) + (_%hd145468145577%_ (let () (declare (not safe)) - (##car _%e144335144442%_)))) + (##car _%e145467145574%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144337144447%_)) + _%tl145469145579%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144331144431%_)) + _%tl145463145563%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144307144367%_)) - (_%__match146643146644%_ - _%e144190144755%_ - _%hd144191144758%_ - _%tl144192144760%_ - _%e144305144362%_ - _%hd144306144365%_ - _%tl144307144367%_ - _%e144308144370%_ - _%hd144309144373%_ - _%tl144310144375%_ - _%e144311144378%_ - _%hd144312144381%_ - _%tl144313144383%_ - _%e144314144386%_ - _%hd144315144389%_ - _%tl144316144391%_ - _%e144317144394%_ - _%hd144318144397%_ - _%tl144319144399%_ - _%e144320144402%_ - _%hd144321144405%_ - _%tl144322144407%_ - _%e144323144410%_ - _%hd144324144413%_ - _%tl144325144415%_ - _%e144326144418%_ - _%hd144327144421%_ - _%tl144328144423%_ - _%e144329144426%_ - _%hd144330144429%_ - _%tl144331144431%_ - _%e144332144434%_ - _%hd144333144437%_ - _%tl144334144439%_ - _%e144335144442%_ - _%hd144336144445%_ - _%tl144337144447%_) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146518146519%_)) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146518146519%_)) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)))) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)) - (_%__kont146518146519%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146518146519%_)))) - (_%__kont146518146519%_))))) - (_%__kont146518146519%_))))))) - (_%dispatch-case-e143490%_ - (lambda (_%hd143641%_ _%body143642%_) - (let* ((_%form143644%_ - (cons _%hd143641%_ (cons _%body143642%_ '()))) - (_%__stx146646146647%_ _%form143644%_) - (_%g143648143772%_ + _%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%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146646146647%_))))) - (let ((_%__kont146648146649%_ - (lambda (_%L144143%_ _%L144144%_ _%L144145%_) - (let ((__tmp147812 + _%__stx147778147779%_))))) + (let ((_%__kont147780147781%_ + (lambda (_%L145275%_ _%L145276%_ _%L145277%_) + (let ((__tmp148944 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L144144%_ '())))) + (cons _%L145276%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self143486%_ - __tmp147812)))) - (_%__kont146654146655%_ - (lambda (_%L143991%_ - _%L143992%_ - _%L143993%_ - _%L143994%_) - (let ((__tmp147813 + _%self144618%_ + __tmp148944)))) + (_%__kont147786147787%_ + (lambda (_%L145123%_ + _%L145124%_ + _%L145125%_ + _%L145126%_) + (let ((__tmp148945 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L143991%_ '())))) + (cons _%L145123%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self143486%_ - __tmp147813)))) - (_%__kont146658146659%_ - (lambda (_%L143857%_ _%L143858%_ _%L143859%_) - (let ((__tmp147814 + _%self144618%_ + __tmp148945)))) + (_%__kont147790147791%_ + (lambda (_%L144989%_ _%L144990%_ _%L144991%_) + (let ((__tmp148946 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L143857%_ '())))) + (cons _%L144989%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self143486%_ - __tmp147814))))) - (let* ((_%__match146755146756%_ - (lambda (_%e143738143777%_ - _%hd143739143780%_ - _%tl143740143782%_ - _%e143741143785%_ - _%hd143742143788%_ - _%tl143743143790%_ - _%e143744143793%_ - _%hd143745143796%_ - _%tl143746143798%_ - _%e143747143801%_ - _%hd143748143804%_ - _%tl143749143806%_ - _%e143750143809%_ - _%hd143751143812%_ - _%tl143752143814%_ - _%e143753143817%_ - _%hd143754143820%_ - _%tl143755143822%_ - _%e143756143825%_ - _%hd143757143828%_ - _%tl143758143830%_ - _%e143759143833%_ - _%hd143760143836%_ - _%tl143761143838%_ - _%e143762143841%_ - _%hd143763143844%_ - _%tl143764143846%_) + _%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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143758143830%_)) - (let ((_%e143765143849%_ + (gx#stx-pair? _%tl144890144962%_)) + (let ((_%e144897144981%_ (let () (declare (not safe)) - (gx#stx-e _%tl143758143830%_)))) - (let ((_%tl143767143854%_ + (gx#stx-e _%tl144890144962%_)))) + (let ((_%tl144899144986%_ (let () (declare (not safe)) - (##cdr _%e143765143849%_))) - (_%hd143766143852%_ + (##cdr _%e144897144981%_))) + (_%hd144898144984%_ (let () (declare (not safe)) - (##car _%e143765143849%_)))) + (##car _%e144897144981%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143767143854%_)) + _%tl144899144986%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143743143790%_)) - (_%__kont146658146659%_ - _%hd143763143844%_ - _%hd143754143820%_ - _%hd143739143780%_) + _%tl144875144922%_)) + (_%__kont147790147791%_ + _%hd144895144976%_ + _%hd144886144952%_ + _%hd144871144912%_) (let () (declare (not safe)) - (_%g143648143772%_))) + (_%g144780144904%_))) (let () (declare (not safe)) - (_%g143648143772%_))))) + (_%g144780144904%_))))) (let () (declare (not safe)) - (_%g143648143772%_))))) - (_%__match146685146686%_ - (lambda (_%e143699143895%_ - _%hd143700143898%_ - _%tl143701143900%_ - _%__splice146656146657%_ - _%target143702143903%_ - _%tl143704143905%_) - (letrec ((_%loop143705143908%_ - (lambda (_%hd143703143911%_ - _%arg143709143913%_) + (_%g144780144904%_))))) + (_%__match147817147818%_ + (lambda (_%e144831145027%_ + _%hd144832145030%_ + _%tl144833145032%_ + _%__splice147788147789%_ + _%target144834145035%_ + _%tl144836145037%_) + (letrec ((_%loop144837145040%_ + (lambda (_%hd144835145043%_ + _%arg144841145045%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143703143911%_)) - (let ((_%e143706143916%_ + _%hd144835145043%_)) + (let ((_%e144838145048%_ (let () (declare (not safe)) (gx#stx-e - _%hd143703143911%_)))) - (let ((_%lp-tl143708143921%_ + _%hd144835145043%_)))) + (let ((_%lp-tl144840145053%_ (let () (declare (not safe)) - (##cdr _%e143706143916%_))) - (_%lp-hd143707143919%_ + (##cdr _%e144838145048%_))) + (_%lp-hd144839145051%_ (let () (declare (not safe)) - (##car _%e143706143916%_)))) - (_%loop143705143908%_ - _%lp-tl143708143921%_ - (cons _%lp-hd143707143919%_ - _%arg143709143913%_)))) - (let ((_%arg143710143924%_ - (reverse _%arg143709143913%_))) + (##car _%e144838145048%_)))) + (_%loop144837145040%_ + _%lp-tl144840145053%_ + (cons _%lp-hd144839145051%_ + _%arg144841145045%_)))) + (let ((_%arg144842145056%_ + (reverse _%arg144841145045%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143701143900%_)) - (let ((_%e143711143927%_ + _%tl144833145032%_)) + (let ((_%e144843145059%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl143701143900%_)))) - (let ((_%tl143713143932%_ + (gx#stx-e _%tl144833145032%_)))) + (let ((_%tl144845145064%_ (let () (declare (not safe)) - (##cdr _%e143711143927%_))) - (_%hd143712143930%_ + (##cdr _%e144843145059%_))) + (_%hd144844145062%_ (let () (declare (not safe)) - (##car _%e143711143927%_)))) + (##car _%e144843145059%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143712143930%_)) - (let ((_%e143714143935%_ + (gx#stx-pair? _%hd144844145062%_)) + (let ((_%e144846145067%_ (let () (declare (not safe)) - (gx#stx-e _%hd143712143930%_)))) - (let ((_%tl143716143940%_ + (gx#stx-e _%hd144844145062%_)))) + (let ((_%tl144848145072%_ (let () (declare (not safe)) - (##cdr _%e143714143935%_))) - (_%hd143715143938%_ + (##cdr _%e144846145067%_))) + (_%hd144847145070%_ (let () (declare (not safe)) - (##car _%e143714143935%_)))) + (##car _%e144846145067%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143715143938%_)) + (gx#identifier? _%hd144847145070%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd143715143938%_)) + (gx#stx-eq? '%#call _%hd144847145070%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143716143940%_)) - (let ((_%e143717143943%_ + (gx#stx-pair? _%tl144848145072%_)) + (let ((_%e144849145075%_ (let () (declare (not safe)) (gx#stx-e - _%tl143716143940%_)))) - (let ((_%tl143719143948%_ + _%tl144848145072%_)))) + (let ((_%tl144851145080%_ (let () (declare (not safe)) - (##cdr _%e143717143943%_))) - (_%hd143718143946%_ + (##cdr _%e144849145075%_))) + (_%hd144850145078%_ (let () (declare (not safe)) - (##car _%e143717143943%_)))) + (##car _%e144849145075%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143718143946%_)) - (let ((_%e143720143951%_ + _%hd144850145078%_)) + (let ((_%e144852145083%_ (let () (declare (not safe)) (gx#stx-e - _%hd143718143946%_)))) - (let ((_%tl143722143956%_ + _%hd144850145078%_)))) + (let ((_%tl144854145088%_ (let () (declare (not safe)) - (##cdr _%e143720143951%_))) - (_%hd143721143954%_ + (##cdr _%e144852145083%_))) + (_%hd144853145086%_ (let () (declare (not safe)) - (##car _%e143720143951%_)))) + (##car _%e144852145083%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd143721143954%_)) + _%hd144853145086%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143721143954%_)) + _%hd144853145086%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl143722143956%_)) - (let ((_%e143723143959%_ + (gx#stx-pair? _%tl144854145088%_)) + (let ((_%e144855145091%_ (let () (declare (not safe)) - (gx#stx-e _%tl143722143956%_)))) - (let ((_%tl143725143964%_ + (gx#stx-e _%tl144854145088%_)))) + (let ((_%tl144857145096%_ (let () (declare (not safe)) - (##cdr _%e143723143959%_))) - (_%hd143724143962%_ + (##cdr _%e144855145091%_))) + (_%hd144856145094%_ (let () (declare (not safe)) - (##car _%e143723143959%_)))) + (##car _%e144855145091%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143725143964%_)) + (gx#stx-null? _%tl144857145096%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143719143948%_)) - (let ((_%e143726143967%_ + (gx#stx-pair? _%tl144851145080%_)) + (let ((_%e144858145099%_ (let () (declare (not safe)) - (gx#stx-e _%tl143719143948%_)))) - (let ((_%tl143728143972%_ + (gx#stx-e _%tl144851145080%_)))) + (let ((_%tl144860145104%_ (let () (declare (not safe)) - (##cdr _%e143726143967%_))) - (_%hd143727143970%_ + (##cdr _%e144858145099%_))) + (_%hd144859145102%_ (let () (declare (not safe)) - (##car _%e143726143967%_)))) + (##car _%e144858145099%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143727143970%_)) - (let ((_%e143729143975%_ + _%hd144859145102%_)) + (let ((_%e144861145107%_ (let () (declare (not safe)) (gx#stx-e - _%hd143727143970%_)))) - (let ((_%tl143731143980%_ + _%hd144859145102%_)))) + (let ((_%tl144863145112%_ (let () (declare (not safe)) - (##cdr _%e143729143975%_))) - (_%hd143730143978%_ + (##cdr _%e144861145107%_))) + (_%hd144862145110%_ (let () (declare (not safe)) - (##car _%e143729143975%_)))) + (##car _%e144861145107%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd143730143978%_)) + _%hd144862145110%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143730143978%_)) + _%hd144862145110%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143731143980%_)) - (let ((_%e143732143983%_ + _%tl144863145112%_)) + (let ((_%e144864145115%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl143731143980%_)))) - (let ((_%tl143734143988%_ + (gx#stx-e _%tl144863145112%_)))) + (let ((_%tl144866145120%_ (let () (declare (not safe)) - (##cdr _%e143732143983%_))) - (_%hd143733143986%_ + (##cdr _%e144864145115%_))) + (_%hd144865145118%_ (let () (declare (not safe)) - (##car _%e143732143983%_)))) + (##car _%e144864145115%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143734143988%_)) + (gx#stx-null? _%tl144866145120%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143713143932%_)) - (_%__kont146654146655%_ - _%hd143733143986%_ - _%hd143724143962%_ - _%tl143704143905%_ - _%arg143710143924%_) - (_%__match146755146756%_ - _%e143699143895%_ - _%hd143700143898%_ - _%tl143701143900%_ - _%e143711143927%_ - _%hd143712143930%_ - _%tl143713143932%_ - _%e143714143935%_ - _%hd143715143938%_ - _%tl143716143940%_ - _%e143717143943%_ - _%hd143718143946%_ - _%tl143719143948%_ - _%e143720143951%_ - _%hd143721143954%_ - _%tl143722143956%_ - _%e143723143959%_ - _%hd143724143962%_ - _%tl143725143964%_ - _%e143726143967%_ - _%hd143727143970%_ - _%tl143728143972%_ - _%e143729143975%_ - _%hd143730143978%_ - _%tl143731143980%_ - _%e143732143983%_ - _%hd143733143986%_ - _%tl143734143988%_)) + (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%_)) (let () (declare (not safe)) - (_%g143648143772%_))))) - (let () (declare (not safe)) (_%g143648143772%_))) - (let () (declare (not safe)) (_%g143648143772%_))) + (_%g144780144904%_))))) + (let () (declare (not safe)) (_%g144780144904%_))) + (let () (declare (not safe)) (_%g144780144904%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143648143772%_))))) + (_%g144780144904%_))))) (let () (declare (not safe)) - (_%g143648143772%_))))) + (_%g144780144904%_))))) (let () (declare (not safe)) - (_%g143648143772%_))) + (_%g144780144904%_))) (let () (declare (not safe)) - (_%g143648143772%_))))) - (let () (declare (not safe)) (_%g143648143772%_))) - (let () (declare (not safe)) (_%g143648143772%_))) - (let () (declare (not safe)) (_%g143648143772%_))))) + (_%g144780144904%_))))) + (let () (declare (not safe)) (_%g144780144904%_))) + (let () (declare (not safe)) (_%g144780144904%_))) + (let () (declare (not safe)) (_%g144780144904%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143648143772%_))))) + (_%g144780144904%_))))) (let () (declare (not safe)) - (_%g143648143772%_))) + (_%g144780144904%_))) (let () (declare (not safe)) - (_%g143648143772%_))) + (_%g144780144904%_))) (let () (declare (not safe)) - (_%g143648143772%_))))) - (let () (declare (not safe)) (_%g143648143772%_))))) - (let () (declare (not safe)) (_%g143648143772%_)))))))) + (_%g144780144904%_))))) + (let () (declare (not safe)) (_%g144780144904%_))))) + (let () (declare (not safe)) (_%g144780144904%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop143705143908%_ - _%target143702143903%_ + (_%loop144837145040%_ + _%target144834145035%_ '())))) - (_%__match146673146674%_ - (lambda (_%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_) - (letrec ((_%loop143659144044%_ - (lambda (_%hd143657144047%_ - _%arg143663144049%_) + (_%__match147805147806%_ + (lambda (_%e144785145163%_ + _%hd144786145166%_ + _%tl144787145168%_ + _%__splice147782147783%_ + _%target144788145171%_ + _%tl144790145173%_) + (letrec ((_%loop144791145176%_ + (lambda (_%hd144789145179%_ + _%arg144795145181%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143657144047%_)) - (let ((_%e143660144052%_ + _%hd144789145179%_)) + (let ((_%e144792145184%_ (let () (declare (not safe)) (gx#stx-e - _%hd143657144047%_)))) - (let ((_%lp-tl143662144057%_ + _%hd144789145179%_)))) + (let ((_%lp-tl144794145189%_ (let () (declare (not safe)) - (##cdr _%e143660144052%_))) - (_%lp-hd143661144055%_ + (##cdr _%e144792145184%_))) + (_%lp-hd144793145187%_ (let () (declare (not safe)) - (##car _%e143660144052%_)))) - (_%loop143659144044%_ - _%lp-tl143662144057%_ - (cons _%lp-hd143661144055%_ - _%arg143663144049%_)))) - (let ((_%arg143664144060%_ - (reverse _%arg143663144049%_))) + (##car _%e144792145184%_)))) + (_%loop144791145176%_ + _%lp-tl144794145189%_ + (cons _%lp-hd144793145187%_ + _%arg144795145181%_)))) + (let ((_%arg144796145192%_ + (reverse _%arg144795145181%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143655144036%_)) - (let ((_%e143665144063%_ + _%tl144787145168%_)) + (let ((_%e144797145195%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl143655144036%_)))) - (let ((_%tl143667144068%_ + (gx#stx-e _%tl144787145168%_)))) + (let ((_%tl144799145200%_ (let () (declare (not safe)) - (##cdr _%e143665144063%_))) - (_%hd143666144066%_ + (##cdr _%e144797145195%_))) + (_%hd144798145198%_ (let () (declare (not safe)) - (##car _%e143665144063%_)))) + (##car _%e144797145195%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143666144066%_)) - (let ((_%e143668144071%_ + (gx#stx-pair? _%hd144798145198%_)) + (let ((_%e144800145203%_ (let () (declare (not safe)) - (gx#stx-e _%hd143666144066%_)))) - (let ((_%tl143670144076%_ + (gx#stx-e _%hd144798145198%_)))) + (let ((_%tl144802145208%_ (let () (declare (not safe)) - (##cdr _%e143668144071%_))) - (_%hd143669144074%_ + (##cdr _%e144800145203%_))) + (_%hd144801145206%_ (let () (declare (not safe)) - (##car _%e143668144071%_)))) + (##car _%e144800145203%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143669144074%_)) + (gx#identifier? _%hd144801145206%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd143669144074%_)) + (gx#stx-eq? '%#call _%hd144801145206%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143670144076%_)) - (let ((_%e143671144079%_ + (gx#stx-pair? _%tl144802145208%_)) + (let ((_%e144803145211%_ (let () (declare (not safe)) (gx#stx-e - _%tl143670144076%_)))) - (let ((_%tl143673144084%_ + _%tl144802145208%_)))) + (let ((_%tl144805145216%_ (let () (declare (not safe)) - (##cdr _%e143671144079%_))) - (_%hd143672144082%_ + (##cdr _%e144803145211%_))) + (_%hd144804145214%_ (let () (declare (not safe)) - (##car _%e143671144079%_)))) + (##car _%e144803145211%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143672144082%_)) - (let ((_%e143674144087%_ + _%hd144804145214%_)) + (let ((_%e144806145219%_ (let () (declare (not safe)) (gx#stx-e - _%hd143672144082%_)))) - (let ((_%tl143676144092%_ + _%hd144804145214%_)))) + (let ((_%tl144808145224%_ (let () (declare (not safe)) - (##cdr _%e143674144087%_))) - (_%hd143675144090%_ + (##cdr _%e144806145219%_))) + (_%hd144807145222%_ (let () (declare (not safe)) - (##car _%e143674144087%_)))) + (##car _%e144806145219%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd143675144090%_)) + _%hd144807145222%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143675144090%_)) + _%hd144807145222%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl143676144092%_)) - (let ((_%e143677144095%_ + (gx#stx-pair? _%tl144808145224%_)) + (let ((_%e144809145227%_ (let () (declare (not safe)) - (gx#stx-e _%tl143676144092%_)))) - (let ((_%tl143679144100%_ + (gx#stx-e _%tl144808145224%_)))) + (let ((_%tl144811145232%_ (let () (declare (not safe)) - (##cdr _%e143677144095%_))) - (_%hd143678144098%_ + (##cdr _%e144809145227%_))) + (_%hd144810145230%_ (let () (declare (not safe)) - (##car _%e143677144095%_)))) + (##car _%e144809145227%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143679144100%_)) + (gx#stx-null? _%tl144811145232%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl143673144084%_)) - (let ((_%__splice146652146653%_ + (gx#stx-pair/null? _%tl144805145216%_)) + (let ((_%__splice147784147785%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl143673144084%_ + _%tl144805145216%_ '0)))) - (let ((_%tl143682144105%_ + (let ((_%tl144814145237%_ (let () (declare (not safe)) (##vector-ref - _%__splice146652146653%_ + _%__splice147784147785%_ '1))) - (_%target143680144103%_ + (_%target144812145235%_ (let () (declare (not safe)) (##vector-ref - _%__splice146652146653%_ + _%__splice147784147785%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143682144105%_)) - (letrec ((_%loop143683144108%_ - (lambda (_%hd143681144111%_ - _%xarg143687144113%_) + _%tl144814145237%_)) + (letrec ((_%loop144815145240%_ + (lambda (_%hd144813145243%_ + _%xarg144819145245%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143681144111%_)) - (let ((_%e143684144116%_ + _%hd144813145243%_)) + (let ((_%e144816145248%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd143681144111%_)))) - (let ((_%lp-tl143686144121%_ + (gx#stx-e _%hd144813145243%_)))) + (let ((_%lp-tl144818145253%_ (let () (declare (not safe)) - (##cdr _%e143684144116%_))) - (_%lp-hd143685144119%_ + (##cdr _%e144816145248%_))) + (_%lp-hd144817145251%_ (let () (declare (not safe)) - (##car _%e143684144116%_)))) + (##car _%e144816145248%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd143685144119%_)) - (let ((_%e143689144124%_ + (gx#stx-pair? _%lp-hd144817145251%_)) + (let ((_%e144821145256%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd143685144119%_)))) - (let ((_%tl143691144129%_ + (gx#stx-e _%lp-hd144817145251%_)))) + (let ((_%tl144823145261%_ (let () (declare (not safe)) - (##cdr _%e143689144124%_))) - (_%hd143690144127%_ + (##cdr _%e144821145256%_))) + (_%hd144822145259%_ (let () (declare (not safe)) - (##car _%e143689144124%_)))) + (##car _%e144821145256%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143690144127%_)) + (gx#identifier? _%hd144822145259%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143690144127%_)) + _%hd144822145259%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143691144129%_)) - (let ((_%e143692144132%_ + _%tl144823145261%_)) + (let ((_%e144824145264%_ (let () (declare (not safe)) (gx#stx-e - _%tl143691144129%_)))) - (let ((_%tl143694144137%_ + _%tl144823145261%_)))) + (let ((_%tl144826145269%_ (let () (declare (not safe)) - (##cdr _%e143692144132%_))) - (_%hd143693144135%_ + (##cdr _%e144824145264%_))) + (_%hd144825145267%_ (let () (declare (not safe)) - (##car _%e143692144132%_)))) + (##car _%e144824145264%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143694144137%_)) - (_%loop143683144108%_ - _%lp-tl143686144121%_ - (cons _%hd143693144135%_ - _%xarg143687144113%_)) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)))) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)))) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)))) - (let ((_%xarg143688144140%_ - (reverse _%xarg143687144113%_))) + _%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%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143667144068%_)) - (_%__kont146648146649%_ - _%xarg143688144140%_ - _%hd143678144098%_ - _%arg143664144060%_) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop143683144108%_ - _%target143680144103%_ + (gx#stx-null? _%tl144799145200%_)) + (_%__kont147780147781%_ + _%xarg144820145272%_ + _%hd144810145230%_ + _%arg144796145192%_) + (_%__match147817147818%_ + _%e144785145163%_ + _%hd144786145166%_ + _%tl144787145168%_ + _%__splice147782147783%_ + _%target144788145171%_ + _%tl144790145173%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop144815145240%_ + _%target144812145235%_ '())) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)))) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)))) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)))) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)))) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)))) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop143659144044%_ - _%target143656144039%_ + (_%__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%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146646146647%_)) - (let ((_%e143653144031%_ + (gx#stx-pair? _%__stx147778147779%_)) + (let ((_%e144785145163%_ (let () (declare (not safe)) - (gx#stx-e _%__stx146646146647%_)))) - (let ((_%tl143655144036%_ + (gx#stx-e _%__stx147778147779%_)))) + (let ((_%tl144787145168%_ (let () (declare (not safe)) - (##cdr _%e143653144031%_))) - (_%hd143654144034%_ + (##cdr _%e144785145163%_))) + (_%hd144786145166%_ (let () (declare (not safe)) - (##car _%e143653144031%_)))) + (##car _%e144785145163%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd143654144034%_)) - (let ((_%__splice146650146651%_ + (gx#stx-pair/null? _%hd144786145166%_)) + (let ((_%__splice147782147783%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd143654144034%_ + _%hd144786145166%_ '0)))) - (let ((_%tl143658144041%_ + (let ((_%tl144790145173%_ (let () (declare (not safe)) (##vector-ref - _%__splice146650146651%_ + _%__splice147782147783%_ '1))) - (_%target143656144039%_ + (_%target144788145171%_ (let () (declare (not safe)) (##vector-ref - _%__splice146650146651%_ + _%__splice147782147783%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143658144041%_)) - (_%__match146673146674%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_) - (_%__match146685146686%_ - _%e143653144031%_ - _%hd143654144034%_ - _%tl143655144036%_ - _%__splice146650146651%_ - _%target143656144039%_ - _%tl143658144041%_)))) + _%tl144790145173%_)) + (_%__match147805147806%_ + _%e144785145163%_ + _%hd144786145166%_ + _%tl144787145168%_ + _%__splice147782147783%_ + _%target144788145171%_ + _%tl144790145173%_) + (_%__match147817147818%_ + _%e144785145163%_ + _%hd144786145166%_ + _%tl144787145168%_ + _%__splice147782147783%_ + _%target144788145171%_ + _%tl144790145173%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143655144036%_)) - (let ((_%e143741143785%_ + (gx#stx-pair? _%tl144787145168%_)) + (let ((_%e144873144917%_ (let () (declare (not safe)) (gx#stx-e - _%tl143655144036%_)))) - (let ((_%tl143743143790%_ + _%tl144787145168%_)))) + (let ((_%tl144875144922%_ (let () (declare (not safe)) - (##cdr _%e143741143785%_))) - (_%hd143742143788%_ + (##cdr _%e144873144917%_))) + (_%hd144874144920%_ (let () (declare (not safe)) - (##car _%e143741143785%_)))) + (##car _%e144873144917%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143742143788%_)) - (let ((_%e143744143793%_ + _%hd144874144920%_)) + (let ((_%e144876144925%_ (let () (declare (not safe)) (gx#stx-e - _%hd143742143788%_)))) - (let ((_%tl143746143798%_ + _%hd144874144920%_)))) + (let ((_%tl144878144930%_ (let () (declare (not safe)) - (##cdr _%e143744143793%_))) - (_%hd143745143796%_ + (##cdr _%e144876144925%_))) + (_%hd144877144928%_ (let () (declare (not safe)) - (##car _%e143744143793%_)))) + (##car _%e144876144925%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd143745143796%_)) + _%hd144877144928%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd143745143796%_)) + (gx#stx-eq? '%#call _%hd144877144928%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143746143798%_)) - (let ((_%e143747143801%_ + (gx#stx-pair? _%tl144878144930%_)) + (let ((_%e144879144933%_ (let () (declare (not safe)) - (gx#stx-e _%tl143746143798%_)))) - (let ((_%tl143749143806%_ + (gx#stx-e _%tl144878144930%_)))) + (let ((_%tl144881144938%_ (let () (declare (not safe)) - (##cdr _%e143747143801%_))) - (_%hd143748143804%_ + (##cdr _%e144879144933%_))) + (_%hd144880144936%_ (let () (declare (not safe)) - (##car _%e143747143801%_)))) + (##car _%e144879144933%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143748143804%_)) - (let ((_%e143750143809%_ + (gx#stx-pair? _%hd144880144936%_)) + (let ((_%e144882144941%_ (let () (declare (not safe)) - (gx#stx-e _%hd143748143804%_)))) - (let ((_%tl143752143814%_ + (gx#stx-e _%hd144880144936%_)))) + (let ((_%tl144884144946%_ (let () (declare (not safe)) - (##cdr _%e143750143809%_))) - (_%hd143751143812%_ + (##cdr _%e144882144941%_))) + (_%hd144883144944%_ (let () (declare (not safe)) - (##car _%e143750143809%_)))) + (##car _%e144882144941%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd143751143812%_)) + _%hd144883144944%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143751143812%_)) + _%hd144883144944%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143752143814%_)) - (let ((_%e143753143817%_ + _%tl144884144946%_)) + (let ((_%e144885144949%_ (let () (declare (not safe)) (gx#stx-e - _%tl143752143814%_)))) - (let ((_%tl143755143822%_ + _%tl144884144946%_)))) + (let ((_%tl144887144954%_ (let () (declare (not safe)) - (##cdr _%e143753143817%_))) - (_%hd143754143820%_ + (##cdr _%e144885144949%_))) + (_%hd144886144952%_ (let () (declare (not safe)) - (##car _%e143753143817%_)))) + (##car _%e144885144949%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143755143822%_)) + _%tl144887144954%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl143749143806%_)) - (let ((_%e143756143825%_ + (gx#stx-pair? _%tl144881144938%_)) + (let ((_%e144888144957%_ (let () (declare (not safe)) - (gx#stx-e _%tl143749143806%_)))) - (let ((_%tl143758143830%_ + (gx#stx-e _%tl144881144938%_)))) + (let ((_%tl144890144962%_ (let () (declare (not safe)) - (##cdr _%e143756143825%_))) - (_%hd143757143828%_ + (##cdr _%e144888144957%_))) + (_%hd144889144960%_ (let () (declare (not safe)) - (##car _%e143756143825%_)))) + (##car _%e144888144957%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143757143828%_)) - (let ((_%e143759143833%_ + (gx#stx-pair? _%hd144889144960%_)) + (let ((_%e144891144965%_ (let () (declare (not safe)) - (gx#stx-e _%hd143757143828%_)))) - (let ((_%tl143761143838%_ + (gx#stx-e _%hd144889144960%_)))) + (let ((_%tl144893144970%_ (let () (declare (not safe)) - (##cdr _%e143759143833%_))) - (_%hd143760143836%_ + (##cdr _%e144891144965%_))) + (_%hd144892144968%_ (let () (declare (not safe)) - (##car _%e143759143833%_)))) + (##car _%e144891144965%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143760143836%_)) + (gx#identifier? _%hd144892144968%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143760143836%_)) + _%hd144892144968%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143761143838%_)) - (let ((_%e143762143841%_ + _%tl144893144970%_)) + (let ((_%e144894144973%_ (let () (declare (not safe)) (gx#stx-e - _%tl143761143838%_)))) - (let ((_%tl143764143846%_ + _%tl144893144970%_)))) + (let ((_%tl144896144978%_ (let () (declare (not safe)) - (##cdr _%e143762143841%_))) - (_%hd143763143844%_ + (##cdr _%e144894144973%_))) + (_%hd144895144976%_ (let () (declare (not safe)) - (##car _%e143762143841%_)))) + (##car _%e144894144973%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143764143846%_)) + _%tl144896144978%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143758143830%_)) - (let ((_%e143765143849%_ + _%tl144890144962%_)) + (let ((_%e144897144981%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl143758143830%_)))) - (let ((_%tl143767143854%_ + (gx#stx-e _%tl144890144962%_)))) + (let ((_%tl144899144986%_ (let () (declare (not safe)) - (##cdr _%e143765143849%_))) - (_%hd143766143852%_ + (##cdr _%e144897144981%_))) + (_%hd144898144984%_ (let () (declare (not safe)) - (##car _%e143765143849%_)))) + (##car _%e144897144981%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143767143854%_)) + (gx#stx-null? _%tl144899144986%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143743143790%_)) - (_%__kont146658146659%_ - _%hd143763143844%_ - _%hd143754143820%_ - _%hd143654144034%_) + (gx#stx-null? _%tl144875144922%_)) + (_%__kont147790147791%_ + _%hd144895144976%_ + _%hd144886144952%_ + _%hd144786145166%_) (let () (declare (not safe)) - (_%g143648143772%_))) - (let () (declare (not safe)) (_%g143648143772%_))))) - (let () (declare (not safe)) (_%g143648143772%_))) - (let () (declare (not safe)) (_%g143648143772%_))))) + (_%g144780144904%_))) + (let () (declare (not safe)) (_%g144780144904%_))))) + (let () (declare (not safe)) (_%g144780144904%_))) + (let () (declare (not safe)) (_%g144780144904%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143648143772%_))) + (_%g144780144904%_))) (let () (declare (not safe)) - (_%g143648143772%_))) + (_%g144780144904%_))) (let () (declare (not safe)) - (_%g143648143772%_))))) + (_%g144780144904%_))))) (let () (declare (not safe)) - (_%g143648143772%_))))) - (let () (declare (not safe)) (_%g143648143772%_))) - (let () (declare (not safe)) (_%g143648143772%_))))) + (_%g144780144904%_))))) + (let () (declare (not safe)) (_%g144780144904%_))) + (let () (declare (not safe)) (_%g144780144904%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143648143772%_))) + (_%g144780144904%_))) (let () (declare (not safe)) - (_%g143648143772%_))) + (_%g144780144904%_))) (let () (declare (not safe)) - (_%g143648143772%_))))) + (_%g144780144904%_))))) (let () (declare (not safe)) - (_%g143648143772%_))))) - (let () (declare (not safe)) (_%g143648143772%_))) - (let () (declare (not safe)) (_%g143648143772%_))) - (let () (declare (not safe)) (_%g143648143772%_))))) + (_%g144780144904%_))))) + (let () (declare (not safe)) (_%g144780144904%_))) + (let () (declare (not safe)) (_%g144780144904%_))) + (let () (declare (not safe)) (_%g144780144904%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143648143772%_))))) + (_%g144780144904%_))))) (let () (declare (not safe)) - (_%g143648143772%_)))))) + (_%g144780144904%_)))))) (let () (declare (not safe)) - (_%g143648143772%_)))))))) - (_%generate1143491%_ - (lambda (_%args143626%_ - _%arglen143627%_ - _%hd143628%_ - _%body143629%_) - (let* ((_%len143631%_ + (_%g144780144904%_)))))))) + (_%generate1144623%_ + (lambda (_%args144758%_ + _%arglen144759%_ + _%hd144760%_ + _%body144761%_) + (let* ((_%len144763%_ (let () (declare (not safe)) - (gx#stx-length _%hd143628%_))) - (_%condition143636%_ + (gx#stx-length _%hd144760%_))) + (_%condition144768%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd143628%_)) + (gx#stx-list? _%hd144760%_)) (if (gxc#current-compile-decls-unsafe?) (cons '##fx= - (cons _%arglen143627%_ - (cons _%len143631%_ '()))) + (cons _%arglen144759%_ + (cons _%len144763%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen143627%_ (cons _%len143631%_ '()))) + (cons _%arglen144759%_ (cons _%len144763%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (> _%len143631%_ '0) + (if (> _%len144763%_ '0) (if (gxc#current-compile-decls-unsafe?) (cons '##fx>= - (cons _%arglen143627%_ - (cons _%len143631%_ '()))) + (cons _%arglen144759%_ + (cons _%len144763%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx>= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen143627%_ (cons _%len143631%_ '()))) + (cons _%arglen144759%_ (cons _%len144763%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#t))) - (_%dispatch143638%_ - (if (_%dispatch-case?143489%_ - _%hd143628%_ - _%body143629%_) - (_%dispatch-case-e143490%_ - _%hd143628%_ - _%body143629%_) + (_%dispatch144770%_ + (if (_%dispatch-case?144621%_ + _%hd144760%_ + _%body144761%_) + (_%dispatch-case-e144622%_ + _%hd144760%_ + _%body144761%_) (gxc#generate-runtime-lambda-form - _%self143486%_ - _%hd143628%_ - _%body143629%_)))) - (cons _%condition143636%_ + _%self144618%_ + _%hd144760%_ + _%body144761%_)))) + (cons _%condition144768%_ (cons (cons 'apply - (cons _%dispatch143638%_ - (cons _%args143626%_ '()))) + (cons _%dispatch144770%_ + (cons _%args144758%_ '()))) '())))))) - (let* ((_%g143493143521%_ - (lambda (_%g143494143518%_) + (let* ((_%g144625144653%_ + (lambda (_%g144626144650%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143494143518%_)))) - (_%g143492143623%_ - (lambda (_%g143494143524%_) + _%g144626144650%_)))) + (_%g144624144755%_ + (lambda (_%g144626144656%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143494143524%_)) - (let ((_%e143497143526%_ + (gx#stx-pair? _%g144626144656%_)) + (let ((_%e144629144658%_ (let () (declare (not safe)) - (gx#stx-e _%g143494143524%_)))) - (let ((_%hd143498143529%_ + (gx#stx-e _%g144626144656%_)))) + (let ((_%hd144630144661%_ (let () (declare (not safe)) - (##car _%e143497143526%_))) - (_%tl143499143531%_ + (##car _%e144629144658%_))) + (_%tl144631144663%_ (let () (declare (not safe)) - (##cdr _%e143497143526%_)))) + (##cdr _%e144629144658%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl143499143531%_)) - (let ((_g147815_ + (gx#stx-pair/null? _%tl144631144663%_)) + (let ((_g148947_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl143499143531%_ + _%tl144631144663%_ '0)))) (begin - (let ((_g147816_ + (let ((_g148948_ (let () (declare (not safe)) - (if (##values? _g147815_) - (##vector-length _g147815_) + (if (##values? _g148947_) + (##vector-length _g148947_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g147816_ 2))) + (##fx= _g148948_ 2))) (error "Context expects 2 values" - _g147816_))) - (let ((_%target143500143534%_ + _g148948_))) + (let ((_%target144632144666%_ (let () (declare (not safe)) - (##vector-ref _g147815_ 0))) - (_%tl143502143536%_ + (##vector-ref _g148947_ 0))) + (_%tl144634144668%_ (let () (declare (not safe)) - (##vector-ref _g147815_ 1)))) + (##vector-ref _g148947_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143502143536%_)) - (letrec ((_%loop143503143539%_ - (lambda (_%hd143501143542%_ - _%body143507143544%_ - _%hd143508143546%_) + (gx#stx-null? _%tl144634144668%_)) + (letrec ((_%loop144635144671%_ + (lambda (_%hd144633144674%_ + _%body144639144676%_ + _%hd144640144678%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143501143542%_)) - (let ((_%e143504143549%_ + _%hd144633144674%_)) + (let ((_%e144636144681%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd143501143542%_)))) - (let ((_%lp-hd143505143552%_ + (gx#stx-e _%hd144633144674%_)))) + (let ((_%lp-hd144637144684%_ (let () (declare (not safe)) - (##car _%e143504143549%_))) - (_%lp-tl143506143554%_ + (##car _%e144636144681%_))) + (_%lp-tl144638144686%_ (let () (declare (not safe)) - (##cdr _%e143504143549%_)))) + (##cdr _%e144636144681%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd143505143552%_)) - (let ((_%e143511143557%_ + (gx#stx-pair? _%lp-hd144637144684%_)) + (let ((_%e144643144689%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd143505143552%_)))) - (let ((_%hd143512143560%_ + (gx#stx-e _%lp-hd144637144684%_)))) + (let ((_%hd144644144692%_ (let () (declare (not safe)) - (##car _%e143511143557%_))) - (_%tl143513143562%_ + (##car _%e144643144689%_))) + (_%tl144645144694%_ (let () (declare (not safe)) - (##cdr _%e143511143557%_)))) + (##cdr _%e144643144689%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143513143562%_)) - (let ((_%e143514143565%_ + (gx#stx-pair? _%tl144645144694%_)) + (let ((_%e144646144697%_ (let () (declare (not safe)) - (gx#stx-e _%tl143513143562%_)))) - (let ((_%hd143515143568%_ + (gx#stx-e _%tl144645144694%_)))) + (let ((_%hd144647144700%_ (let () (declare (not safe)) - (##car _%e143514143565%_))) - (_%tl143516143570%_ + (##car _%e144646144697%_))) + (_%tl144648144702%_ (let () (declare (not safe)) - (##cdr _%e143514143565%_)))) + (##cdr _%e144646144697%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143516143570%_)) - (_%loop143503143539%_ - _%lp-tl143506143554%_ - (cons _%hd143515143568%_ - _%body143507143544%_) - (cons _%hd143512143560%_ - _%hd143508143546%_)) - (_%g143493143521%_ - _%g143494143524%_)))) - (_%g143493143521%_ _%g143494143524%_)))) - (_%g143493143521%_ _%g143494143524%_)))) - (let ((_%body143509143573%_ (reverse _%body143507143544%_)) - (_%hd143510143575%_ (reverse _%hd143508143546%_))) - ((lambda (_%L143578%_ _%L143579%_) - (let ((_%args143598%_ + (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%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%arglen143599%_ + (_%arglen144731%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%name143600%_ - (let ((_%$e143595%_ - (let ((__tmp147817 + (_%name144732%_ + (let ((_%$e144727%_ + (let ((__tmp148949 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) - (hash-get __tmp147817 _%stx143487%_)))) - (if _%$e143595%_ - _%$e143595%_ + (hash-get __tmp148949 _%stx144619%_)))) + (if _%$e144727%_ + _%$e144727%_ ''case-lambda-dispatch)))) (cons 'lambda - (cons _%args143598%_ + (cons _%args144730%_ (cons (cons 'let - (cons (cons (cons _%arglen143599%_ + (cons (cons (cons _%arglen144731%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (if (gxc#current-compile-decls-unsafe?) - (cons '##length (cons _%args143598%_ '())) + (cons '##length (cons _%args144730%_ '())) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%args143598%_ '())) + (cons _%args144730%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons 'cond - (let ((__tmp147821 + (let ((__tmp148953 (cons (cons 'else (cons (cons '##raise-wrong-number-of-arguments-exception - (cons _%name143600%_ - (cons _%args143598%_ + (cons _%name144732%_ + (cons _%args144730%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (__tmp147818 - (map (lambda (_%g143601143604%_ - _%g143602143606%_) - (_%generate1143491%_ - _%args143598%_ - _%arglen143599%_ - _%g143601143604%_ - _%g143602143606%_)) - (let ((__tmp147819 - (lambda (_%g143608143611%_ - _%g143609143613%_) - (cons _%g143608143611%_ - _%g143609143613%_)))) + (__tmp148950 + (map (lambda (_%g144733144736%_ + _%g144734144738%_) + (_%generate1144623%_ + _%args144730%_ + _%arglen144731%_ + _%g144733144736%_ + _%g144734144738%_)) + (let ((__tmp148951 + (lambda (_%g144740144743%_ + _%g144741144745%_) + (cons _%g144740144743%_ + _%g144741144745%_)))) (declare (not safe)) (__foldr1 - __tmp147819 + __tmp148951 '() - _%L143579%_)) - (let ((__tmp147820 - (lambda (_%g143615143618%_ - _%g143616143620%_) - (cons _%g143615143618%_ - _%g143616143620%_)))) + _%L144711%_)) + (let ((__tmp148952 + (lambda (_%g144747144750%_ + _%g144748144752%_) + (cons _%g144747144750%_ + _%g144748144752%_)))) (declare (not safe)) (__foldr1 - __tmp147820 + __tmp148952 '() - _%L143578%_))))) + _%L144710%_))))) (declare (not safe)) - (__foldr1 cons __tmp147821 __tmp147818))) + (__foldr1 cons __tmp148953 __tmp148950))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body143509143573%_ - _%hd143510143575%_)))))) + _%body144641144705%_ + _%hd144642144707%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop143503143539%_ - _%target143500143534%_ + (_%loop144635144671%_ + _%target144632144666%_ '() '())) - (_%g143493143521%_ - _%g143494143524%_))))) - (_%g143493143521%_ _%g143494143524%_)))) - (_%g143493143521%_ _%g143494143524%_))))) - (_%g143492143623%_ _%stx143487%_))))) + (_%g144625144653%_ + _%g144626144656%_))))) + (_%g144625144653%_ _%g144626144656%_)))) + (_%g144625144653%_ _%g144626144656%_))))) + (_%g144624144755%_ _%stx144619%_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_%self142723%_ _%stx142724%_ _%compiled-body?142725%_) - (letrec ((_%generate-simple142727%_ - (lambda (_%hd143471%_ _%body143472%_) - (_%coalesce-boolean142728%_ - (_%simplify-let142729%_ + (lambda (_%self143855%_ _%stx143856%_ _%compiled-body?143857%_) + (letrec ((_%generate-simple143859%_ + (lambda (_%hd144603%_ _%body144604%_) + (_%coalesce-boolean143860%_ + (_%simplify-let143861%_ (gxc#generate-runtime-simple-let - _%self142723%_ + _%self143855%_ 'let - _%hd143471%_ - _%body143472%_ - _%compiled-body?142725%_))))) - (_%coalesce-boolean142728%_ - (lambda (_%code143332%_) + _%hd144603%_ + _%body144604%_ + _%compiled-body?143857%_))))) + (_%coalesce-boolean143860%_ + (lambda (_%code144464%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (let* ((_%code143333143359%_ _%code143332%_) - (_%else143335143367%_ - (lambda () _%code143332%_)) - (_%K143337143404%_ - (lambda (_%expr2143370%_ - _%expr1143371%_ - _%id143372%_) - (let* ((_%expr2143373143381%_ - _%expr2143370%_) - (_%else143375143389%_ + (let* ((_%code144465144491%_ _%code144464%_) + (_%else144467144499%_ + (lambda () _%code144464%_)) + (_%K144469144536%_ + (lambda (_%expr2144502%_ + _%expr1144503%_ + _%id144504%_) + (let* ((_%expr2144505144513%_ + _%expr2144502%_) + (_%else144507144521%_ (lambda () (cons 'or - (cons _%expr1143371%_ - (cons _%expr2143370%_ + (cons _%expr1144503%_ + (cons _%expr2144502%_ '()))))) - (_%K143377143394%_ - (lambda (_%exprs143392%_) + (_%K144509144526%_ + (lambda (_%exprs144524%_) (cons 'or - (cons _%expr1143371%_ - _%exprs143392%_))))) - (if (let () - (declare (not safe)) - (##pair? _%expr2143373143381%_)) - (let ((_%hd143378143397%_ + (cons _%expr1144503%_ + _%exprs144524%_))))) + (if (pair? _%expr2144505144513%_) + (let ((_%hd144510144529%_ (let () (declare (not safe)) - (##car _%expr2143373143381%_))) - (_%tl143379143399%_ + (##car _%expr2144505144513%_))) + (_%tl144511144531%_ (let () (declare (not safe)) - (##cdr _%expr2143373143381%_)))) + (##cdr _%expr2144505144513%_)))) (if (let () (declare (not safe)) - (##eq? _%hd143378143397%_ 'or)) - (let ((_%exprs143402%_ - _%tl143379143399%_)) - (_%K143377143394%_ - _%exprs143402%_)) - (_%else143375143389%_))) - (_%else143375143389%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%code143333143359%_)) - (let ((_%hd143338143407%_ + (##eq? _%hd144510144529%_ 'or)) + (let ((_%exprs144534%_ + _%tl144511144531%_)) + (_%K144509144526%_ + _%exprs144534%_)) + (_%else144507144521%_))) + (_%else144507144521%_)))))) + (if (pair? _%code144465144491%_) + (let ((_%hd144470144539%_ (let () (declare (not safe)) - (##car _%code143333143359%_))) - (_%tl143339143409%_ + (##car _%code144465144491%_))) + (_%tl144471144541%_ (let () (declare (not safe)) - (##cdr _%code143333143359%_)))) + (##cdr _%code144465144491%_)))) (if (let () (declare (not safe)) - (##eq? _%hd143338143407%_ 'let)) - (if (let () - (declare (not safe)) - (##pair? _%tl143339143409%_)) - (let ((_%hd143340143412%_ + (##eq? _%hd144470144539%_ 'let)) + (if (pair? _%tl144471144541%_) + (let ((_%hd144472144544%_ (let () (declare (not safe)) - (##car _%tl143339143409%_))) - (_%tl143341143414%_ + (##car _%tl144471144541%_))) + (_%tl144473144546%_ (let () (declare (not safe)) - (##cdr _%tl143339143409%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd143340143412%_)) - (let ((_%hd143352143417%_ + (##cdr _%tl144471144541%_)))) + (if (pair? _%hd144472144544%_) + (let ((_%hd144484144549%_ (let () (declare (not safe)) - (##car _%hd143340143412%_))) - (_%tl143353143419%_ + (##car _%hd144472144544%_))) + (_%tl144485144551%_ (let () (declare (not safe)) - (##cdr _%hd143340143412%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd143352143417%_)) - (let ((_%hd143354143422%_ + (##cdr _%hd144472144544%_)))) + (if (pair? _%hd144484144549%_) + (let ((_%hd144486144554%_ (let () (declare (not safe)) - (##car _%hd143352143417%_))) - (_%tl143355143424%_ + (##car _%hd144484144549%_))) + (_%tl144487144556%_ (let () (declare (not safe)) - (##cdr _%hd143352143417%_)))) - (let ((_%id143427%_ - _%hd143354143422%_)) - (if (let () - (declare - (not safe)) - (##pair? _%tl143355143424%_)) - (let ((_%hd143356143429%_ + (##cdr _%hd144484144549%_)))) + (let ((_%id144559%_ + _%hd144486144554%_)) + (if (pair? _%tl144487144556%_) + (let ((_%hd144488144561%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%tl143355143424%_))) - (_%tl143357143431%_ + (##car _%tl144487144556%_))) + (_%tl144489144563%_ (let () (declare (not safe)) - (##cdr _%tl143355143424%_)))) - (let ((_%expr1143434%_ _%hd143356143429%_)) - (if (let () - (declare (not safe)) - (##null? _%tl143357143431%_)) - (if (let () - (declare (not safe)) - (##null? _%tl143353143419%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl143341143414%_)) - (let ((_%hd143342143436%_ + (##cdr _%tl144487144556%_)))) + (let ((_%expr1144566%_ _%hd144488144561%_)) + (if (null? _%tl144489144563%_) + (if (null? _%tl144485144551%_) + (if (pair? _%tl144473144546%_) + (let ((_%hd144474144568%_ (let () (declare (not safe)) - (##car _%tl143341143414%_))) - (_%tl143343143438%_ + (##car _%tl144473144546%_))) + (_%tl144475144570%_ (let () (declare (not safe)) - (##cdr _%tl143341143414%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd143342143436%_)) - (let ((_%hd143344143441%_ + (##cdr _%tl144473144546%_)))) + (if (pair? _%hd144474144568%_) + (let ((_%hd144476144573%_ (let () (declare (not safe)) - (##car _%hd143342143436%_))) - (_%tl143345143443%_ + (##car _%hd144474144568%_))) + (_%tl144477144575%_ (let () (declare (not safe)) - (##cdr _%hd143342143436%_)))) + (##cdr _%hd144474144568%_)))) (if (let () (declare (not safe)) - (##eq? _%hd143344143441%_ + (##eq? _%hd144476144573%_ 'if)) - (if (let () - (declare (not safe)) - (##pair? _%tl143345143443%_)) - (let ((_%hd143346143446%_ + (if (pair? _%tl144477144575%_) + (let ((_%hd144478144578%_ (let () (declare (not safe)) - (##car _%tl143345143443%_))) - (_%tl143347143448%_ + (##car _%tl144477144575%_))) + (_%tl144479144580%_ (let () (declare (not safe)) - (##cdr _%tl143345143443%_)))) - (if ((lambda (_%g143450143452%_) - (eq? _%g143450143452%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id143427%_)) - _%hd143346143446%_) - (if (let () - (declare (not safe)) - (##pair? _%tl143347143448%_)) - (let ((_%hd143348143455%_ + (##cdr _%tl144477144575%_)))) + (if ((lambda (_%g144582144584%_) + (eq? _%g144582144584%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%id144559%_)) + _%hd144478144578%_) + (if (pair? _%tl144479144580%_) + (let ((_%hd144480144587%_ (let () (declare (not safe)) - (##car _%tl143347143448%_))) - (_%tl143349143457%_ + (##car _%tl144479144580%_))) + (_%tl144481144589%_ (let () (declare (not safe)) - (##cdr _%tl143347143448%_)))) - (if ((lambda (_%g143459143461%_) - (eq? _%g143459143461%_ _%id143427%_)) - _%hd143348143455%_) - (if (let () - (declare (not safe)) - (##pair? _%tl143349143457%_)) - (let ((_%hd143350143464%_ + (##cdr _%tl144479144580%_)))) + (if ((lambda (_%g144591144593%_) + (eq? _%g144591144593%_ _%id144559%_)) + _%hd144480144587%_) + (if (pair? _%tl144481144589%_) + (let ((_%hd144482144596%_ (let () (declare (not safe)) - (##car _%tl143349143457%_))) - (_%tl143351143466%_ + (##car _%tl144481144589%_))) + (_%tl144483144598%_ (let () (declare (not safe)) - (##cdr _%tl143349143457%_)))) - (let ((_%expr2143469%_ _%hd143350143464%_)) - (if (let () - (declare (not safe)) - (##null? _%tl143351143466%_)) - (if (let () - (declare (not safe)) - (##null? _%tl143343143438%_)) - (_%K143337143404%_ - _%expr2143469%_ - _%expr1143434%_ - _%id143427%_) - (_%else143335143367%_)) - (_%else143335143367%_)))) - (_%else143335143367%_)) - (_%else143335143367%_))) - (_%else143335143367%_)) - (_%else143335143367%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else143335143367%_)) - (_%else143335143367%_))) - (_%else143335143367%_))) - (_%else143335143367%_)) - (_%else143335143367%_)) - (_%else143335143367%_)))) - (_%else143335143367%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else143335143367%_))) - (_%else143335143367%_))) - (_%else143335143367%_)) - (_%else143335143367%_))) - (_%else143335143367%_))) - _%code143332%_))) - (_%simplify-let142729%_ - (lambda (_%code143031%_) - (let* ((_%code143032143104%_ _%code143031%_) - (_%else143037143112%_ (lambda () _%code143031%_))) - (let ((_%K143096143312%_ - (lambda (_%expr143310%_) _%expr143310%_)) - (_%K143079143258%_ - (lambda (_%body143254%_ - _%expr143255%_ - _%id143256%_) + (##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%_) (cons 'let - (cons (cons (cons _%id143256%_ - (cons _%expr143255%_ + (cons (cons (cons _%id144388%_ + (cons _%expr144387%_ '())) '()) - _%body143254%_)))) - (_%K143056143182%_ - (lambda (_%body143176%_ - _%expr2143177%_ - _%id2143178%_ - _%expr1143179%_ - _%id1143180%_) + _%body144386%_)))) + (_%K144188144314%_ + (lambda (_%body144308%_ + _%expr2144309%_ + _%id2144310%_ + _%expr1144311%_ + _%id1144312%_) (cons 'let* - (cons (cons (cons _%id1143180%_ - (cons _%expr1143179%_ + (cons (cons (cons _%id1144312%_ + (cons _%expr1144311%_ '())) - (cons (cons _%id2143178%_ - (cons _%expr2143177%_ + (cons (cons _%id2144310%_ + (cons _%expr2144309%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body143176%_)))) - (_%K143039143121%_ - (lambda (_%body143116%_ - _%bind143117%_ - _%expr1143118%_ - _%id1143119%_) + _%body144308%_)))) + (_%K144171144253%_ + (lambda (_%body144248%_ + _%bind144249%_ + _%expr1144250%_ + _%id1144251%_) (cons 'let* - (cons (cons (cons _%id1143119%_ - (cons _%expr1143118%_ + (cons (cons (cons _%id1144251%_ + (cons _%expr1144250%_ '())) - _%bind143117%_) - _%body143116%_))))) - (if (let () - (declare (not safe)) - (##pair? _%code143032143104%_)) - (let ((_%tl143098143317%_ + _%bind144249%_) + _%body144248%_))))) + (if (pair? _%code144164144236%_) + (let ((_%tl144230144449%_ (let () (declare (not safe)) - (##cdr _%code143032143104%_))) - (_%hd143097143315%_ + (##cdr _%code144164144236%_))) + (_%hd144229144447%_ (let () (declare (not safe)) - (##car _%code143032143104%_)))) + (##car _%code144164144236%_)))) (if (let () (declare (not safe)) - (##eq? _%hd143097143315%_ 'let)) - (if (let () - (declare (not safe)) - (##pair? _%tl143098143317%_)) - (let ((_%tl143100143322%_ + (##eq? _%hd144229144447%_ 'let)) + (if (pair? _%tl144230144449%_) + (let ((_%tl144232144454%_ (let () (declare (not safe)) - (##cdr _%tl143098143317%_))) - (_%hd143099143320%_ + (##cdr _%tl144230144449%_))) + (_%hd144231144452%_ (let () (declare (not safe)) - (##car _%tl143098143317%_)))) - (if (let () - (declare (not safe)) - (##null? _%hd143099143320%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl143100143322%_)) - (let ((_%tl143102143327%_ + (##car _%tl144230144449%_)))) + (if (null? _%hd144231144452%_) + (if (pair? _%tl144232144454%_) + (let ((_%tl144234144459%_ (let () (declare (not safe)) - (##cdr _%tl143100143322%_))) - (_%hd143101143325%_ + (##cdr _%tl144232144454%_))) + (_%hd144233144457%_ (let () (declare (not safe)) - (##car _%tl143100143322%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl143102143327%_)) - (let ((_%expr143330%_ - _%hd143101143325%_)) - (_%K143096143312%_ - _%expr143330%_)) - (_%else143037143112%_))) - (_%else143037143112%_)) - (if (let () - (declare (not safe)) - (##pair? _%hd143099143320%_)) - (let ((_%tl143091143273%_ + (##car _%tl144232144454%_)))) + (if (null? _%tl144234144459%_) + (let ((_%expr144462%_ + _%hd144233144457%_)) + (_%K144228144444%_ + _%expr144462%_)) + (_%else144169144244%_))) + (_%else144169144244%_)) + (if (pair? _%hd144231144452%_) + (let ((_%tl144223144405%_ (let () (declare (not safe)) - (##cdr _%hd143099143320%_))) - (_%hd143090143271%_ + (##cdr _%hd144231144452%_))) + (_%hd144222144403%_ (let () (declare (not safe)) - (##car _%hd143099143320%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd143090143271%_)) - (let ((_%tl143093143278%_ + (##car _%hd144231144452%_)))) + (if (pair? _%hd144222144403%_) + (let ((_%tl144225144410%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%hd143090143271%_))) - (_%hd143092143276%_ - (let () (declare (not safe)) (##car _%hd143090143271%_)))) - (if (let () (declare (not safe)) (##pair? _%tl143093143278%_)) - (let ((_%tl143095143285%_ + (##cdr _%hd144222144403%_))) + (_%hd144224144408%_ + (let () (declare (not safe)) (##car _%hd144222144403%_)))) + (if (pair? _%tl144225144410%_) + (let ((_%tl144227144417%_ (let () (declare (not safe)) - (##cdr _%tl143093143278%_))) - (_%hd143094143283%_ + (##cdr _%tl144225144410%_))) + (_%hd144226144415%_ (let () (declare (not safe)) - (##car _%tl143093143278%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl143095143285%_)) - (if (let () - (declare (not safe)) - (##null? _%tl143091143273%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl143100143322%_)) - (let ((_%tl143085143292%_ + (##car _%tl144225144410%_)))) + (if (null? _%tl144227144417%_) + (if (null? _%tl144223144405%_) + (if (pair? _%tl144232144454%_) + (let ((_%tl144217144424%_ (let () (declare (not safe)) - (##cdr _%tl143100143322%_))) - (_%hd143084143290%_ + (##cdr _%tl144232144454%_))) + (_%hd144216144422%_ (let () (declare (not safe)) - (##car _%tl143100143322%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd143084143290%_)) - (let ((_%tl143087143297%_ + (##car _%tl144232144454%_)))) + (if (pair? _%hd144216144422%_) + (let ((_%tl144219144429%_ (let () (declare (not safe)) - (##cdr _%hd143084143290%_))) - (_%hd143086143295%_ + (##cdr _%hd144216144422%_))) + (_%hd144218144427%_ (let () (declare (not safe)) - (##car _%hd143084143290%_)))) + (##car _%hd144216144422%_)))) (if (let () (declare (not safe)) - (##eq? _%hd143086143295%_ + (##eq? _%hd144218144427%_ 'let)) - (if (let () - (declare (not safe)) - (##pair? _%tl143087143297%_)) - (let ((_%tl143089143302%_ + (if (pair? _%tl144219144429%_) + (let ((_%tl144221144434%_ (let () (declare (not safe)) - (##cdr _%tl143087143297%_))) - (_%hd143088143300%_ + (##cdr _%tl144219144429%_))) + (_%hd144220144432%_ (let () (declare (not safe)) - (##car _%tl143087143297%_)))) - (if (let () - (declare (not safe)) - (##null? _%hd143088143300%_)) - (if (let () - (declare - (not safe)) - (##null? _%tl143085143292%_)) - (let ((_%id143281%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd143092143276%_) - (_%expr143288%_ _%hd143094143283%_) - (_%body143305%_ _%tl143089143302%_)) - (_%K143079143258%_ - _%body143305%_ - _%expr143288%_ - _%id143281%_)) - (_%else143037143112%_)) - (if (let () (declare (not safe)) (##pair? _%hd143088143300%_)) - (let ((_%tl143068143231%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%hd143088143300%_))) - (_%hd143067143229%_ + (##cdr _%hd144220144432%_))) + (_%hd144199144361%_ (let () (declare (not safe)) - (##car _%hd143088143300%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd143067143229%_)) - (let ((_%tl143070143236%_ + (##car _%hd144220144432%_)))) + (if (pair? _%hd144199144361%_) + (let ((_%tl144202144368%_ (let () (declare (not safe)) - (##cdr _%hd143067143229%_))) - (_%hd143069143234%_ + (##cdr _%hd144199144361%_))) + (_%hd144201144366%_ (let () (declare (not safe)) - (##car _%hd143067143229%_)))) - (if (let () - (declare (not safe)) - (##pair? _%tl143070143236%_)) - (let ((_%tl143072143243%_ + (##car _%hd144199144361%_)))) + (if (pair? _%tl144202144368%_) + (let ((_%tl144204144375%_ (let () (declare (not safe)) - (##cdr _%tl143070143236%_))) - (_%hd143071143241%_ + (##cdr _%tl144202144368%_))) + (_%hd144203144373%_ (let () (declare (not safe)) - (##car _%tl143070143236%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl143072143243%_)) - (if (let () - (declare (not safe)) - (##null? _%tl143068143231%_)) - (if (let () - (declare (not safe)) - (##null? _%tl143085143292%_)) - (let ((_%id1143205%_ - _%hd143092143276%_) - (_%expr1143212%_ - _%hd143094143283%_) - (_%id2143239%_ - _%hd143069143234%_) - (_%expr2143246%_ - _%hd143071143241%_) - (_%body143248%_ - _%tl143089143302%_)) - (_%K143056143182%_ - _%body143248%_ - _%expr2143246%_ - _%id2143239%_ - _%expr1143212%_ - _%id1143205%_)) - (_%else143037143112%_)) - (_%else143037143112%_)) - (_%else143037143112%_))) - (_%else143037143112%_))) - (_%else143037143112%_))) - (_%else143037143112%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else143037143112%_)) + (##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%_)) (if (let () (declare (not safe)) - (##eq? _%hd143086143295%_ + (##eq? _%hd144218144427%_ 'let*)) - (if (let () - (declare (not safe)) - (##pair? _%tl143087143297%_)) - (let ((_%tl143049143165%_ + (if (pair? _%tl144219144429%_) + (let ((_%tl144181144297%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl143087143297%_))) - (_%hd143048143163%_ - (let () (declare (not safe)) (##car _%tl143087143297%_)))) - (if (let () (declare (not safe)) (##null? _%tl143085143292%_)) - (let ((_%id1143144%_ _%hd143092143276%_) - (_%expr1143151%_ _%hd143094143283%_) - (_%bind143168%_ _%hd143048143163%_) - (_%body143170%_ _%tl143049143165%_)) - (_%K143039143121%_ - _%body143170%_ - _%bind143168%_ - _%expr1143151%_ - _%id1143144%_)) - (_%else143037143112%_))) - (_%else143037143112%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else143037143112%_)))) - (_%else143037143112%_))) - (_%else143037143112%_)) - (_%else143037143112%_)) - (_%else143037143112%_))) - (_%else143037143112%_))) - (_%else143037143112%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else143037143112%_)))) - (_%else143037143112%_)) - (_%else143037143112%_))) - (_%else143037143112%_)))))) - (_%generate-values142730%_ - (lambda (_%hd142844%_ _%body142845%_) - (let _%lp142847%_ ((_%rest142849%_ _%hd142844%_) - (_%bind142850%_ '()) - (_%check142851%_ '()) - (_%post142852%_ '())) - (let* ((_%__stx146975146976%_ _%rest142849%_) - (_%g142855142866%_ + (##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%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146975146976%_))))) - (let ((_%__kont146977146978%_ - (lambda (_%L142893%_ _%L142894%_) - (let* ((_%__stx146931146932%_ _%L142894%_) - (_%g142909142934%_ + _%__stx148107148108%_))))) + (let ((_%__kont148109148110%_ + (lambda (_%L144025%_ _%L144026%_) + (let* ((_%__stx148063148064%_ _%L144026%_) + (_%g144041144066%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146931146932%_))))) - (let ((_%__kont146933146934%_ - (lambda (_%L143007%_ _%L143008%_) - (let ((_%eid143022%_ + _%__stx148063148064%_))))) + (let ((_%__kont148065148066%_ + (lambda (_%L144139%_ _%L144140%_) + (let ((_%eid144154%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L143008%_))) - (_%expr143023%_ + _%L144140%_))) + (_%expr144155%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142723%_ - _%L143007%_)))) - (_%lp142847%_ - _%L142893%_ - (cons (cons _%eid143022%_ - (cons _%expr143023%_ + _%self143855%_ + _%L144139%_)))) + (_%lp143979%_ + _%L144025%_ + (cons (cons _%eid144154%_ + (cons _%expr144155%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind142850%_) - _%check142851%_ - _%post142852%_)))) - (_%__kont146935146936%_ - (lambda (_%L142955%_ _%L142956%_) - (let* ((_%vals142969%_ + _%bind143982%_) + _%check143983%_ + _%post143984%_)))) + (_%__kont148067148068%_ + (lambda (_%L144087%_ _%L144088%_) + (let* ((_%vals144101%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values142971%_ + (_%check-values144103%_ (gxc#generate-runtime-check-values - _%vals142969%_ - _%L142956%_ - _%L142955%_)) - (_%refs142973%_ + _%vals144101%_ + _%L144088%_ + _%L144087%_)) + (_%refs144105%_ (gxc#generate-runtime-let-values-bind - _%vals142969%_ - _%L142956%_)) - (_%expr142975%_ + _%vals144101%_ + _%L144088%_)) + (_%expr144107%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142723%_ - _%L142955%_)))) - (_%lp142847%_ - _%L142893%_ - (cons (cons _%vals142969%_ - (cons _%expr142975%_ + _%self143855%_ + _%L144087%_)))) + (_%lp143979%_ + _%L144025%_ + (cons (cons _%vals144101%_ + (cons _%expr144107%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind142850%_) - (cons _%check-values142971%_ - _%check142851%_) - (cons _%refs142973%_ - _%post142852%_)))))) + _%bind143982%_) + (cons _%check-values144103%_ + _%check143983%_) + (cons _%refs144105%_ + _%post143984%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx146931146932%_)) - (let ((_%e142913142983%_ + _%__stx148063148064%_)) + (let ((_%e144045144115%_ (let () (declare (not safe)) (gx#stx-e - _%__stx146931146932%_)))) - (let ((_%tl142915142988%_ + _%__stx148063148064%_)))) + (let ((_%tl144047144120%_ (let () (declare (not safe)) - (##cdr _%e142913142983%_))) - (_%hd142914142986%_ + (##cdr _%e144045144115%_))) + (_%hd144046144118%_ (let () (declare (not safe)) - (##car _%e142913142983%_)))) + (##car _%e144045144115%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142914142986%_)) - (let ((_%e142916142991%_ + _%hd144046144118%_)) + (let ((_%e144048144123%_ (let () (declare (not safe)) (gx#stx-e - _%hd142914142986%_)))) - (let ((_%tl142918142996%_ + _%hd144046144118%_)))) + (let ((_%tl144050144128%_ (let () (declare (not safe)) - (##cdr _%e142916142991%_))) - (_%hd142917142994%_ + (##cdr _%e144048144123%_))) + (_%hd144049144126%_ (let () (declare (not safe)) - (##car _%e142916142991%_)))) + (##car _%e144048144123%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142918142996%_)) + _%tl144050144128%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl142915142988%_)) - (let ((_%e142919142999%_ + (gx#stx-pair? _%tl144047144120%_)) + (let ((_%e144051144131%_ (let () (declare (not safe)) - (gx#stx-e _%tl142915142988%_)))) - (let ((_%tl142921143004%_ + (gx#stx-e _%tl144047144120%_)))) + (let ((_%tl144053144136%_ (let () (declare (not safe)) - (##cdr _%e142919142999%_))) - (_%hd142920143002%_ + (##cdr _%e144051144131%_))) + (_%hd144052144134%_ (let () (declare (not safe)) - (##car _%e142919142999%_)))) + (##car _%e144051144131%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142921143004%_)) - (_%__kont146933146934%_ - _%hd142920143002%_ - _%hd142917142994%_) + (gx#stx-null? _%tl144053144136%_)) + (_%__kont148065148066%_ + _%hd144052144134%_ + _%hd144049144126%_) (let () (declare (not safe)) - (_%g142909142934%_))))) - (let () (declare (not safe)) (_%g142909142934%_))) + (_%g144041144066%_))))) + (let () (declare (not safe)) (_%g144041144066%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142915142988%_)) - (let ((_%e142927142947%_ + (gx#stx-pair? _%tl144047144120%_)) + (let ((_%e144059144079%_ (let () (declare (not safe)) - (gx#stx-e _%tl142915142988%_)))) - (let ((_%tl142929142952%_ + (gx#stx-e _%tl144047144120%_)))) + (let ((_%tl144061144084%_ (let () (declare (not safe)) - (##cdr _%e142927142947%_))) - (_%hd142928142950%_ + (##cdr _%e144059144079%_))) + (_%hd144060144082%_ (let () (declare (not safe)) - (##car _%e142927142947%_)))) + (##car _%e144059144079%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142929142952%_)) - (_%__kont146935146936%_ - _%hd142928142950%_ - _%hd142914142986%_) + (gx#stx-null? _%tl144061144084%_)) + (_%__kont148067148068%_ + _%hd144060144082%_ + _%hd144046144118%_) (let () (declare (not safe)) - (_%g142909142934%_))))) - (let () (declare (not safe)) (_%g142909142934%_)))))) + (_%g144041144066%_))))) + (let () (declare (not safe)) (_%g144041144066%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142915142988%_)) - (let ((_%e142927142947%_ + _%tl144047144120%_)) + (let ((_%e144059144079%_ (let () (declare (not safe)) (gx#stx-e - _%tl142915142988%_)))) - (let ((_%tl142929142952%_ + _%tl144047144120%_)))) + (let ((_%tl144061144084%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e142927142947%_))) - (_%hd142928142950%_ - (let () (declare (not safe)) (##car _%e142927142947%_)))) + (##cdr _%e144059144079%_))) + (_%hd144060144082%_ + (let () (declare (not safe)) (##car _%e144059144079%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142929142952%_)) - (_%__kont146935146936%_ - _%hd142928142950%_ - _%hd142914142986%_) - (let () (declare (not safe)) (_%g142909142934%_))))) + (gx#stx-null? _%tl144061144084%_)) + (_%__kont148067148068%_ + _%hd144060144082%_ + _%hd144046144118%_) + (let () (declare (not safe)) (_%g144041144066%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g142909142934%_)))))) + (_%g144041144066%_)))))) (let () (declare (not safe)) - (_%g142909142934%_))))))) - (_%__kont146979146980%_ + (_%g144041144066%_))))))) + (_%__kont148111148112%_ (lambda () - (let* ((_%body142873%_ - (if _%compiled-body?142725%_ - _%body142845%_ + (let* ((_%body144005%_ + (if _%compiled-body?143857%_ + _%body143977%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142723%_ - _%body142845%_)))) - (_%body142875%_ - (_%generate-values-post142731%_ - _%post142852%_ - _%body142873%_)) - (_%body142877%_ - (_%generate-values-check142732%_ - _%check142851%_ - _%body142875%_))) + _%self143855%_ + _%body143977%_)))) + (_%body144007%_ + (_%generate-values-post143863%_ + _%post143984%_ + _%body144005%_)) + (_%body144009%_ + (_%generate-values-check143864%_ + _%check143983%_ + _%body144007%_))) (cons 'let - (cons (reverse _%bind142850%_) - (cons _%body142877%_ '()))))))) + (cons (reverse _%bind143982%_) + (cons _%body144009%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146975146976%_)) - (let ((_%e142859142885%_ + (gx#stx-pair? _%__stx148107148108%_)) + (let ((_%e143991144017%_ (let () (declare (not safe)) - (gx#stx-e _%__stx146975146976%_)))) - (let ((_%tl142861142890%_ + (gx#stx-e _%__stx148107148108%_)))) + (let ((_%tl143993144022%_ (let () (declare (not safe)) - (##cdr _%e142859142885%_))) - (_%hd142860142888%_ + (##cdr _%e143991144017%_))) + (_%hd143992144020%_ (let () (declare (not safe)) - (##car _%e142859142885%_)))) - (_%__kont146977146978%_ - _%tl142861142890%_ - _%hd142860142888%_))) - (_%__kont146979146980%_))))))) - (_%generate-values-post142731%_ - (lambda (_%post142803%_ _%body142804%_) - (let _%lp142806%_ ((_%rest142808%_ _%post142803%_) - (_%body142809%_ _%body142804%_)) - (let* ((_%rest142810142818%_ _%rest142808%_) - (_%else142812142826%_ (lambda () _%body142809%_)) - (_%K142814142832%_ - (lambda (_%rest142829%_ _%bind142830%_) - (_%lp142806%_ - _%rest142829%_ + (##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%_ (cons 'let - (cons _%bind142830%_ - (cons _%body142809%_ '()))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest142810142818%_)) - (let ((_%hd142815142835%_ + (cons _%bind143962%_ + (cons _%body143941%_ '()))))))) + (if (pair? _%rest143942143950%_) + (let ((_%hd143947143967%_ (let () (declare (not safe)) - (##car _%rest142810142818%_))) - (_%tl142816142837%_ + (##car _%rest143942143950%_))) + (_%tl143948143969%_ (let () (declare (not safe)) - (##cdr _%rest142810142818%_)))) - (let* ((_%bind142840%_ _%hd142815142835%_) - (_%rest142842%_ _%tl142816142837%_)) - (_%K142814142832%_ - _%rest142842%_ - _%bind142840%_))) - (_%else142812142826%_)))))) - (_%generate-values-check142732%_ - (lambda (_%check142800%_ _%body142801%_) + (##cdr _%rest143942143950%_)))) + (let* ((_%bind143972%_ _%hd143947143967%_) + (_%rest143974%_ _%tl143948143969%_)) + (_%K143946143964%_ + _%rest143974%_ + _%bind143972%_))) + (_%else143944143958%_)))))) + (_%generate-values-check143864%_ + (lambda (_%check143932%_ _%body143933%_) (cons 'begin - (let ((__tmp147823 (cons _%body142801%_ '())) - (__tmp147822 (reverse _%check142800%_))) + (let ((__tmp148955 (cons _%body143933%_ '())) + (__tmp148954 (reverse _%check143932%_))) (declare (not safe)) - (__foldr1 cons __tmp147823 __tmp147822)))))) - (let* ((_%g142734142751%_ - (lambda (_%g142735142748%_) + (__foldr1 cons __tmp148955 __tmp148954)))))) + (let* ((_%g143866143883%_ + (lambda (_%g143867143880%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142735142748%_)))) - (_%g142733142797%_ - (lambda (_%g142735142754%_) + _%g143867143880%_)))) + (_%g143865143929%_ + (lambda (_%g143867143886%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142735142754%_)) - (let ((_%e142738142756%_ + (gx#stx-pair? _%g143867143886%_)) + (let ((_%e143870143888%_ (let () (declare (not safe)) - (gx#stx-e _%g142735142754%_)))) - (let ((_%hd142739142759%_ + (gx#stx-e _%g143867143886%_)))) + (let ((_%hd143871143891%_ (let () (declare (not safe)) - (##car _%e142738142756%_))) - (_%tl142740142761%_ + (##car _%e143870143888%_))) + (_%tl143872143893%_ (let () (declare (not safe)) - (##cdr _%e142738142756%_)))) + (##cdr _%e143870143888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142740142761%_)) - (let ((_%e142741142764%_ + (gx#stx-pair? _%tl143872143893%_)) + (let ((_%e143873143896%_ (let () (declare (not safe)) - (gx#stx-e _%tl142740142761%_)))) - (let ((_%hd142742142767%_ + (gx#stx-e _%tl143872143893%_)))) + (let ((_%hd143874143899%_ (let () (declare (not safe)) - (##car _%e142741142764%_))) - (_%tl142743142769%_ + (##car _%e143873143896%_))) + (_%tl143875143901%_ (let () (declare (not safe)) - (##cdr _%e142741142764%_)))) + (##cdr _%e143873143896%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142743142769%_)) - (let ((_%e142744142772%_ + (gx#stx-pair? _%tl143875143901%_)) + (let ((_%e143876143904%_ (let () (declare (not safe)) (gx#stx-e - _%tl142743142769%_)))) - (let ((_%hd142745142775%_ + _%tl143875143901%_)))) + (let ((_%hd143877143907%_ (let () (declare (not safe)) - (##car _%e142744142772%_))) - (_%tl142746142777%_ + (##car _%e143876143904%_))) + (_%tl143878143909%_ (let () (declare (not safe)) - (##cdr _%e142744142772%_)))) + (##cdr _%e143876143904%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142746142777%_)) - ((lambda (_%L142780%_ - _%L142781%_) + _%tl143878143909%_)) + ((lambda (_%L143912%_ + _%L143913%_) (if (gxc#generate-runtime-simple-let? - _%L142781%_) - (_%generate-simple142727%_ - _%L142781%_ - _%L142780%_) - (_%generate-values142730%_ - _%L142781%_ - _%L142780%_))) - _%hd142745142775%_ - _%hd142742142767%_) - (_%g142734142751%_ - _%g142735142754%_)))) - (_%g142734142751%_ - _%g142735142754%_)))) - (_%g142734142751%_ _%g142735142754%_)))) - (_%g142734142751%_ _%g142735142754%_))))) - (_%g142733142797%_ _%stx142724%_))))) + _%L143913%_) + (_%generate-simple143859%_ + _%L143913%_ + _%L143912%_) + (_%generate-values143862%_ + _%L143913%_ + _%L143912%_))) + _%hd143877143907%_ + _%hd143874143899%_) + (_%g143866143883%_ + _%g143867143886%_)))) + (_%g143866143883%_ + _%g143867143886%_)))) + (_%g143866143883%_ _%g143867143886%_)))) + (_%g143866143883%_ _%g143867143886%_))))) + (_%g143865143929%_ _%stx143856%_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_%self143477%_ _%stx143478%_) - (let ((_%compiled-body?143480%_ '#f)) + (lambda (_%self144609%_ _%stx144610%_) + (let ((_%compiled-body?144612%_ '#f)) (gxc#generate-runtime-let-values%__% - _%self143477%_ - _%stx143478%_ - _%compiled-body?143480%_)))) + _%self144609%_ + _%stx144610%_ + _%compiled-body?144612%_)))) (define gxc#generate-runtime-let-values% - (lambda _g147825_ - (let ((_g147824_ (let () (declare (not safe)) (##length _g147825_)))) - (cond ((let () (declare (not safe)) (##fx= _g147824_ 2)) - (apply gxc#generate-runtime-let-values%__0 _g147825_)) - ((let () (declare (not safe)) (##fx= _g147824_ 3)) - (apply gxc#generate-runtime-let-values%__% _g147825_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g147825_)))))) + _g148957_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_%vals142617%_ _%hd142618%_) - (let _%lp142620%_ ((_%rest142622%_ _%hd142618%_) - (_%k142623%_ '0) - (_%r142624%_ '())) - (let* ((_%__stx146989146990%_ _%rest142622%_) - (_%g142629142646%_ + (lambda (_%vals143749%_ _%hd143750%_) + (let _%lp143752%_ ((_%rest143754%_ _%hd143750%_) + (_%k143755%_ '0) + (_%r143756%_ '())) + (let* ((_%__stx148121148122%_ _%rest143754%_) + (_%g143761143778%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146989146990%_))))) - (let ((_%__kont146991146992%_ - (lambda (_%L142709%_) - (_%lp142620%_ - _%L142709%_ - (let () (declare (not safe)) (##fx+ _%k142623%_ '1)) - _%r142624%_))) - (_%__kont146993146994%_ - (lambda (_%L142682%_ _%L142683%_) - (_%lp142620%_ - _%L142682%_ - (let () (declare (not safe)) (##fx+ _%k142623%_ '1)) + _%__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)) (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L142683%_)) + _%L143815%_)) (cons (gxc#generate-runtime-values-ref - _%vals142617%_ - _%k142623%_ - _%L142682%_) + _%vals143749%_ + _%k143755%_ + _%L143814%_) '())) - _%r142624%_)))) - (_%__kont146995146996%_ - (lambda (_%L142658%_) - (let ((__tmp147826 + _%r143756%_)))) + (_%__kont148127148128%_ + (lambda (_%L143790%_) + (let ((__tmp148958 (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L142658%_)) + _%L143790%_)) (cons (gxc#generate-runtime-values->list - _%vals142617%_ - _%k142623%_) + _%vals143749%_ + _%k143755%_) '())) '()))) (declare (not safe)) - (__foldl1 cons __tmp147826 _%r142624%_)))) - (_%__kont146997146998%_ (lambda () (reverse _%r142624%_)))) - (let ((_%g142627142669%_ + (__foldl1 cons __tmp148958 _%r143756%_)))) + (_%__kont148129148130%_ (lambda () (reverse _%r143756%_)))) + (let ((_%g143759143801%_ (lambda () - (let ((_%L142658%_ _%__stx146989146990%_)) + (let ((_%L143790%_ _%__stx148121148122%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L142658%_)) - (_%__kont146995146996%_ _%L142658%_) - (_%__kont146997146998%_)))))) + (gx#identifier? _%L143790%_)) + (_%__kont148127148128%_ _%L143790%_) + (_%__kont148129148130%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146989146990%_)) - (let ((_%e142632142698%_ + (gx#stx-pair? _%__stx148121148122%_)) + (let ((_%e143764143830%_ (let () (declare (not safe)) - (gx#stx-e _%__stx146989146990%_)))) - (let ((_%tl142634142703%_ + (gx#stx-e _%__stx148121148122%_)))) + (let ((_%tl143766143835%_ (let () (declare (not safe)) - (##cdr _%e142632142698%_))) - (_%hd142633142701%_ + (##cdr _%e143764143830%_))) + (_%hd143765143833%_ (let () (declare (not safe)) - (##car _%e142632142698%_)))) + (##car _%e143764143830%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd142633142701%_)) - (let ((_%e142635142706%_ + (gx#stx-datum? _%hd143765143833%_)) + (let ((_%e143767143838%_ (let () (declare (not safe)) - (gx#stx-e _%hd142633142701%_)))) - (if (equal? _%e142635142706%_ '#f) - (_%__kont146991146992%_ _%tl142634142703%_) - (_%__kont146993146994%_ - _%tl142634142703%_ - _%hd142633142701%_))) - (_%__kont146993146994%_ - _%tl142634142703%_ - _%hd142633142701%_)))) - (let () (declare (not safe)) (_%g142627142669%_))))))))) + (gx#stx-e _%hd143765143833%_)))) + (if (equal? _%e143767143838%_ '#f) + (_%__kont148123148124%_ _%tl143766143835%_) + (_%__kont148125148126%_ + _%tl143766143835%_ + _%hd143765143833%_))) + (_%__kont148125148126%_ + _%tl143766143835%_ + _%hd143765143833%_)))) + (let () (declare (not safe)) (_%g143759143801%_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_%self142296%_ _%stx142297%_ _%compiled-body?142298%_) - (letrec ((_%generate-simple142300%_ - (lambda (_%hd142602%_ _%body142603%_) + (lambda (_%self143428%_ _%stx143429%_ _%compiled-body?143430%_) + (letrec ((_%generate-simple143432%_ + (lambda (_%hd143734%_ _%body143735%_) (gxc#generate-runtime-simple-let - _%self142296%_ + _%self143428%_ 'letrec - _%hd142602%_ - _%body142603%_ - _%compiled-body?142298%_))) - (_%generate-values142301%_ - (lambda (_%hd142381%_ _%body142382%_) - (let _%lp142384%_ ((_%rest142386%_ _%hd142381%_) - (_%bind142387%_ '()) - (_%check142388%_ '()) - (_%post142389%_ '())) - (let* ((_%__stx147063147064%_ _%rest142386%_) - (_%g142392142403%_ + _%hd143734%_ + _%body143735%_ + _%compiled-body?143430%_))) + (_%generate-values143433%_ + (lambda (_%hd143513%_ _%body143514%_) + (let _%lp143516%_ ((_%rest143518%_ _%hd143513%_) + (_%bind143519%_ '()) + (_%check143520%_ '()) + (_%post143521%_ '())) + (let* ((_%__stx148195148196%_ _%rest143518%_) + (_%g143524143535%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147063147064%_))))) - (let ((_%__kont147065147066%_ - (lambda (_%L142430%_ _%L142431%_) - (let* ((_%__stx147019147020%_ _%L142431%_) - (_%g142446142471%_ + _%__stx148195148196%_))))) + (let ((_%__kont148197148198%_ + (lambda (_%L143562%_ _%L143563%_) + (let* ((_%__stx148151148152%_ _%L143563%_) + (_%g143578143603%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147019147020%_))))) - (let ((_%__kont147021147022%_ - (lambda (_%L142578%_ _%L142579%_) - (let ((_%eid142593%_ + _%__stx148151148152%_))))) + (let ((_%__kont148153148154%_ + (lambda (_%L143710%_ _%L143711%_) + (let ((_%eid143725%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L142579%_))) - (_%expr142594%_ + _%L143711%_))) + (_%expr143726%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142296%_ - _%L142578%_)))) - (_%lp142384%_ - _%L142430%_ - (cons (cons _%eid142593%_ - (cons _%expr142594%_ + _%self143428%_ + _%L143710%_)))) + (_%lp143516%_ + _%L143562%_ + (cons (cons _%eid143725%_ + (cons _%expr143726%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind142387%_) - _%check142388%_ - _%post142389%_)))) - (_%__kont147023147024%_ - (lambda (_%L142492%_ _%L142493%_) - (let* ((_%vals142506%_ + _%bind143519%_) + _%check143520%_ + _%post143521%_)))) + (_%__kont148155148156%_ + (lambda (_%L143624%_ _%L143625%_) + (let* ((_%vals143638%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values142508%_ + (_%check-values143640%_ (gxc#generate-runtime-check-values - _%vals142506%_ - _%L142493%_ - _%L142492%_)) - (_%refs142510%_ + _%vals143638%_ + _%L143625%_ + _%L143624%_)) + (_%refs143642%_ (gxc#generate-runtime-let-values-bind - _%vals142506%_ - _%L142493%_)) - (_%expr142512%_ + _%vals143638%_ + _%L143625%_)) + (_%expr143644%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142296%_ - _%L142492%_)))) - (_%lp142384%_ - _%L142430%_ - (let ((__tmp147828 - (cons (cons _%vals142506%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr142512%_ '())) - _%bind142387%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp147827 - (map (lambda (_%e142514142516%_) - (let* ((_%g142518142527%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e142514142516%_) - (_%E142520142531%_ + _%self143428%_ + _%L143624%_)))) + (_%lp143516%_ + _%L143562%_ + (let ((__tmp148960 + (cons (cons _%vals143638%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%expr143644%_ '())) + _%bind143519%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp148959 + (map (lambda (_%e143646143648%_) + (let* ((_%g143650143659%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%e143646143648%_) + (_%E143652143663%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g142518142527%_ + _%g143650143659%_ '([eid _]))) '#!void)) - (_%K142521142536%_ - (lambda (_%eid142534%_) - (cons _%eid142534%_ (cons '#!void '()))))) - (if (let () - (declare (not safe)) - (##pair? _%g142518142527%_)) - (let ((_%hd142522142539%_ + (_%K143653143668%_ + (lambda (_%eid143666%_) + (cons _%eid143666%_ (cons '#!void '()))))) + (if (pair? _%g143650143659%_) + (let ((_%hd143654143671%_ (let () (declare (not safe)) - (##car _%g142518142527%_))) - (_%tl142523142541%_ + (##car _%g143650143659%_))) + (_%tl143655143673%_ (let () (declare (not safe)) - (##cdr _%g142518142527%_)))) - (let ((_%eid142544%_ _%hd142522142539%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl142523142541%_)) - (let ((_%tl142525142546%_ + (##cdr _%g143650143659%_)))) + (let ((_%eid143676%_ _%hd143654143671%_)) + (if (pair? _%tl143655143673%_) + (let ((_%tl143657143678%_ (let () (declare (not safe)) - (##cdr _%tl142523142541%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl142525142546%_)) - (_%K142521142536%_ _%eid142544%_) - (_%E142520142531%_))) - (_%E142520142531%_)))) - (_%E142520142531%_)))) - _%refs142510%_))) + (##cdr _%tl143655143673%_)))) + (if (null? _%tl143657143678%_) + (_%K143653143668%_ _%eid143676%_) + (_%E143652143663%_))) + (_%E143652143663%_)))) + (_%E143652143663%_)))) + _%refs143642%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp147828 - __tmp147827)) - (cons _%check-values142508%_ - _%check142388%_) + __tmp148960 + __tmp148959)) + (cons _%check-values143640%_ + _%check143520%_) (let () (declare (not safe)) (__foldl1 cons - _%refs142510%_ - _%post142389%_))))))) + _%refs143642%_ + _%post143521%_))))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx147019147020%_)) - (let ((_%e142450142554%_ + _%__stx148151148152%_)) + (let ((_%e143582143686%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147019147020%_)))) - (let ((_%tl142452142559%_ + _%__stx148151148152%_)))) + (let ((_%tl143584143691%_ (let () (declare (not safe)) - (##cdr _%e142450142554%_))) - (_%hd142451142557%_ + (##cdr _%e143582143686%_))) + (_%hd143583143689%_ (let () (declare (not safe)) - (##car _%e142450142554%_)))) + (##car _%e143582143686%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142451142557%_)) - (let ((_%e142453142562%_ + _%hd143583143689%_)) + (let ((_%e143585143694%_ (let () (declare (not safe)) (gx#stx-e - _%hd142451142557%_)))) - (let ((_%tl142455142567%_ + _%hd143583143689%_)))) + (let ((_%tl143587143699%_ (let () (declare (not safe)) - (##cdr _%e142453142562%_))) - (_%hd142454142565%_ + (##cdr _%e143585143694%_))) + (_%hd143586143697%_ (let () (declare (not safe)) - (##car _%e142453142562%_)))) + (##car _%e143585143694%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142455142567%_)) + _%tl143587143699%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl142452142559%_)) - (let ((_%e142456142570%_ + (gx#stx-pair? _%tl143584143691%_)) + (let ((_%e143588143702%_ (let () (declare (not safe)) - (gx#stx-e _%tl142452142559%_)))) - (let ((_%tl142458142575%_ + (gx#stx-e _%tl143584143691%_)))) + (let ((_%tl143590143707%_ (let () (declare (not safe)) - (##cdr _%e142456142570%_))) - (_%hd142457142573%_ + (##cdr _%e143588143702%_))) + (_%hd143589143705%_ (let () (declare (not safe)) - (##car _%e142456142570%_)))) + (##car _%e143588143702%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142458142575%_)) - (_%__kont147021147022%_ - _%hd142457142573%_ - _%hd142454142565%_) + (gx#stx-null? _%tl143590143707%_)) + (_%__kont148153148154%_ + _%hd143589143705%_ + _%hd143586143697%_) (let () (declare (not safe)) - (_%g142446142471%_))))) - (let () (declare (not safe)) (_%g142446142471%_))) + (_%g143578143603%_))))) + (let () (declare (not safe)) (_%g143578143603%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142452142559%_)) - (let ((_%e142464142484%_ + (gx#stx-pair? _%tl143584143691%_)) + (let ((_%e143596143616%_ (let () (declare (not safe)) - (gx#stx-e _%tl142452142559%_)))) - (let ((_%tl142466142489%_ + (gx#stx-e _%tl143584143691%_)))) + (let ((_%tl143598143621%_ (let () (declare (not safe)) - (##cdr _%e142464142484%_))) - (_%hd142465142487%_ + (##cdr _%e143596143616%_))) + (_%hd143597143619%_ (let () (declare (not safe)) - (##car _%e142464142484%_)))) + (##car _%e143596143616%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142466142489%_)) - (_%__kont147023147024%_ - _%hd142465142487%_ - _%hd142451142557%_) + (gx#stx-null? _%tl143598143621%_)) + (_%__kont148155148156%_ + _%hd143597143619%_ + _%hd143583143689%_) (let () (declare (not safe)) - (_%g142446142471%_))))) - (let () (declare (not safe)) (_%g142446142471%_)))))) + (_%g143578143603%_))))) + (let () (declare (not safe)) (_%g143578143603%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142452142559%_)) - (let ((_%e142464142484%_ + _%tl143584143691%_)) + (let ((_%e143596143616%_ (let () (declare (not safe)) (gx#stx-e - _%tl142452142559%_)))) - (let ((_%tl142466142489%_ + _%tl143584143691%_)))) + (let ((_%tl143598143621%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e142464142484%_))) - (_%hd142465142487%_ - (let () (declare (not safe)) (##car _%e142464142484%_)))) + (##cdr _%e143596143616%_))) + (_%hd143597143619%_ + (let () (declare (not safe)) (##car _%e143596143616%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142466142489%_)) - (_%__kont147023147024%_ - _%hd142465142487%_ - _%hd142451142557%_) - (let () (declare (not safe)) (_%g142446142471%_))))) + (gx#stx-null? _%tl143598143621%_)) + (_%__kont148155148156%_ + _%hd143597143619%_ + _%hd143583143689%_) + (let () (declare (not safe)) (_%g143578143603%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g142446142471%_)))))) + (_%g143578143603%_)))))) (let () (declare (not safe)) - (_%g142446142471%_))))))) - (_%__kont147067147068%_ + (_%g143578143603%_))))))) + (_%__kont148199148200%_ (lambda () - (let* ((_%body142410%_ - (if _%compiled-body?142298%_ - _%body142382%_ + (let* ((_%body143542%_ + (if _%compiled-body?143430%_ + _%body143514%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142296%_ - _%body142382%_)))) - (_%body142412%_ - (_%generate-values-post142303%_ - _%post142389%_ - _%body142410%_)) - (_%body142414%_ - (_%generate-values-check142302%_ - _%check142388%_ - _%body142412%_))) + _%self143428%_ + _%body143514%_)))) + (_%body143544%_ + (_%generate-values-post143435%_ + _%post143521%_ + _%body143542%_)) + (_%body143546%_ + (_%generate-values-check143434%_ + _%check143520%_ + _%body143544%_))) (cons 'letrec - (cons (reverse _%bind142387%_) - (cons _%body142414%_ '()))))))) + (cons (reverse _%bind143519%_) + (cons _%body143546%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147063147064%_)) - (let ((_%e142396142422%_ + (gx#stx-pair? _%__stx148195148196%_)) + (let ((_%e143528143554%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147063147064%_)))) - (let ((_%tl142398142427%_ + (gx#stx-e _%__stx148195148196%_)))) + (let ((_%tl143530143559%_ (let () (declare (not safe)) - (##cdr _%e142396142422%_))) - (_%hd142397142425%_ + (##cdr _%e143528143554%_))) + (_%hd143529143557%_ (let () (declare (not safe)) - (##car _%e142396142422%_)))) - (_%__kont147065147066%_ - _%tl142398142427%_ - _%hd142397142425%_))) - (_%__kont147067147068%_))))))) - (_%generate-values-check142302%_ - (lambda (_%check142378%_ _%body142379%_) + (##car _%e143528143554%_)))) + (_%__kont148197148198%_ + _%tl143530143559%_ + _%hd143529143557%_))) + (_%__kont148199148200%_))))))) + (_%generate-values-check143434%_ + (lambda (_%check143510%_ _%body143511%_) (cons 'begin - (let ((__tmp147830 (cons _%body142379%_ '())) - (__tmp147829 (reverse _%check142378%_))) + (let ((__tmp148962 (cons _%body143511%_ '())) + (__tmp148961 (reverse _%check143510%_))) (declare (not safe)) - (__foldr1 cons __tmp147830 __tmp147829))))) - (_%generate-values-post142303%_ - (lambda (_%post142371%_ _%body142372%_) + (__foldr1 cons __tmp148962 __tmp148961))))) + (_%generate-values-post143435%_ + (lambda (_%post143503%_ _%body143504%_) (cons 'begin - (let ((__tmp147834 (cons _%body142372%_ '())) - (__tmp147831 - (let ((__tmp147833 - (lambda (_%g142373142375%_) - (cons 'set! _%g142373142375%_))) - (__tmp147832 (reverse _%post142371%_))) + (let ((__tmp148966 (cons _%body143504%_ '())) + (__tmp148963 + (let ((__tmp148965 + (lambda (_%g143505143507%_) + (cons 'set! _%g143505143507%_))) + (__tmp148964 (reverse _%post143503%_))) (declare (not safe)) - (##map __tmp147833 __tmp147832)))) + (##map __tmp148965 __tmp148964)))) (declare (not safe)) - (__foldr1 cons __tmp147834 __tmp147831)))))) - (let* ((_%g142305142322%_ - (lambda (_%g142306142319%_) + (__foldr1 cons __tmp148966 __tmp148963)))))) + (let* ((_%g143437143454%_ + (lambda (_%g143438143451%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142306142319%_)))) - (_%g142304142368%_ - (lambda (_%g142306142325%_) + _%g143438143451%_)))) + (_%g143436143500%_ + (lambda (_%g143438143457%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142306142325%_)) - (let ((_%e142309142327%_ + (gx#stx-pair? _%g143438143457%_)) + (let ((_%e143441143459%_ (let () (declare (not safe)) - (gx#stx-e _%g142306142325%_)))) - (let ((_%hd142310142330%_ + (gx#stx-e _%g143438143457%_)))) + (let ((_%hd143442143462%_ (let () (declare (not safe)) - (##car _%e142309142327%_))) - (_%tl142311142332%_ + (##car _%e143441143459%_))) + (_%tl143443143464%_ (let () (declare (not safe)) - (##cdr _%e142309142327%_)))) + (##cdr _%e143441143459%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142311142332%_)) - (let ((_%e142312142335%_ + (gx#stx-pair? _%tl143443143464%_)) + (let ((_%e143444143467%_ (let () (declare (not safe)) - (gx#stx-e _%tl142311142332%_)))) - (let ((_%hd142313142338%_ + (gx#stx-e _%tl143443143464%_)))) + (let ((_%hd143445143470%_ (let () (declare (not safe)) - (##car _%e142312142335%_))) - (_%tl142314142340%_ + (##car _%e143444143467%_))) + (_%tl143446143472%_ (let () (declare (not safe)) - (##cdr _%e142312142335%_)))) + (##cdr _%e143444143467%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142314142340%_)) - (let ((_%e142315142343%_ + (gx#stx-pair? _%tl143446143472%_)) + (let ((_%e143447143475%_ (let () (declare (not safe)) (gx#stx-e - _%tl142314142340%_)))) - (let ((_%hd142316142346%_ + _%tl143446143472%_)))) + (let ((_%hd143448143478%_ (let () (declare (not safe)) - (##car _%e142315142343%_))) - (_%tl142317142348%_ + (##car _%e143447143475%_))) + (_%tl143449143480%_ (let () (declare (not safe)) - (##cdr _%e142315142343%_)))) + (##cdr _%e143447143475%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142317142348%_)) - ((lambda (_%L142351%_ - _%L142352%_) + _%tl143449143480%_)) + ((lambda (_%L143483%_ + _%L143484%_) (if (gxc#generate-runtime-simple-let? - _%L142352%_) - (_%generate-simple142300%_ - _%L142352%_ - _%L142351%_) - (_%generate-values142301%_ - _%L142352%_ - _%L142351%_))) - _%hd142316142346%_ - _%hd142313142338%_) - (_%g142305142322%_ - _%g142306142325%_)))) - (_%g142305142322%_ - _%g142306142325%_)))) - (_%g142305142322%_ _%g142306142325%_)))) - (_%g142305142322%_ _%g142306142325%_))))) - (_%g142304142368%_ _%stx142297%_))))) + _%L143484%_) + (_%generate-simple143432%_ + _%L143484%_ + _%L143483%_) + (_%generate-values143433%_ + _%L143484%_ + _%L143483%_))) + _%hd143448143478%_ + _%hd143445143470%_) + (_%g143437143454%_ + _%g143438143457%_)))) + (_%g143437143454%_ + _%g143438143457%_)))) + (_%g143437143454%_ _%g143438143457%_)))) + (_%g143437143454%_ _%g143438143457%_))))) + (_%g143436143500%_ _%stx143429%_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_%self142608%_ _%stx142609%_) - (let ((_%compiled-body?142611%_ '#f)) + (lambda (_%self143740%_ _%stx143741%_) + (let ((_%compiled-body?143743%_ '#f)) (gxc#generate-runtime-letrec-values%__% - _%self142608%_ - _%stx142609%_ - _%compiled-body?142611%_)))) + _%self143740%_ + _%stx143741%_ + _%compiled-body?143743%_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g147836_ - (let ((_g147835_ (let () (declare (not safe)) (##length _g147836_)))) - (cond ((let () (declare (not safe)) (##fx= _g147835_ 2)) - (apply gxc#generate-runtime-letrec-values%__0 _g147836_)) - ((let () (declare (not safe)) (##fx= _g147835_ 3)) - (apply gxc#generate-runtime-letrec-values%__% _g147836_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g147836_)))))) + _g148968_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_%self141877%_ _%stx141878%_) - (letrec ((_%generate-values141880%_ - (lambda (_%hd142123%_ _%body142124%_) - (let _%lp142126%_ ((_%rest142128%_ _%hd142123%_) - (_%bind142129%_ '())) - (let* ((_%rest142130142138%_ _%rest142128%_) - (_%else142132142149%_ + (lambda (_%self143009%_ _%stx143010%_) + (letrec ((_%generate-values143012%_ + (lambda (_%hd143255%_ _%body143256%_) + (let _%lp143258%_ ((_%rest143260%_ _%hd143255%_) + (_%bind143261%_ '())) + (let* ((_%rest143262143270%_ _%rest143260%_) + (_%else143264143281%_ (lambda () - (let ((_%bind142146%_ (reverse _%bind142129%_)) - (_%body142147%_ + (let ((_%bind143278%_ (reverse _%bind143261%_)) + (_%body143279%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self141877%_ - _%body142124%_)))) + _%self143009%_ + _%body143256%_)))) (cons 'letrec* - (cons _%bind142146%_ - (cons _%body142147%_ '())))))) - (_%K142134142283%_ - (lambda (_%rest142152%_ _%hd-bind142153%_) - (let* ((_%__stx147077147078%_ - _%hd-bind142153%_) - (_%g142156142181%_ + (cons _%bind143278%_ + (cons _%body143279%_ '())))))) + (_%K143266143415%_ + (lambda (_%rest143284%_ _%hd-bind143285%_) + (let* ((_%__stx148209148210%_ + _%hd-bind143285%_) + (_%g143288143313%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147077147078%_))))) - (let ((_%__kont147079147080%_ - (lambda (_%L142262%_ _%L142263%_) - (let ((_%eid142277%_ + _%__stx148209148210%_))))) + (let ((_%__kont148211148212%_ + (lambda (_%L143394%_ _%L143395%_) + (let ((_%eid143409%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L142263%_))) - (_%expr142278%_ + _%L143395%_))) + (_%expr143410%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self141877%_ - _%L142262%_)))) - (_%lp142126%_ - _%rest142152%_ - (cons (cons _%eid142277%_ - (cons _%expr142278%_ + _%self143009%_ + _%L143394%_)))) + (_%lp143258%_ + _%rest143284%_ + (cons (cons _%eid143409%_ + (cons _%expr143410%_ '())) - _%bind142129%_))))) - (_%__kont147081147082%_ - (lambda (_%L142202%_ _%L142203%_) - (let* ((_%vals142222%_ + _%bind143261%_))))) + (_%__kont148213148214%_ + (lambda (_%L143334%_ _%L143335%_) + (let* ((_%vals143354%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%tmp142224%_ + (_%tmp143356%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values142226%_ + (_%check-values143358%_ (gxc#generate-runtime-check-values - _%tmp142224%_ - _%L142203%_ - _%L142202%_)) - (_%refs142228%_ + _%tmp143356%_ + _%L143335%_ + _%L143334%_)) + (_%refs143360%_ (gxc#generate-runtime-let-values-bind - _%vals142222%_ - _%L142203%_)) - (_%expr142230%_ + _%vals143354%_ + _%L143335%_)) + (_%expr143362%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self141877%_ - _%L142202%_)))) - (_%lp142126%_ - _%rest142152%_ - (let ((__tmp147837 - (cons (cons _%vals142222%_ + _%self143009%_ + _%L143334%_)))) + (_%lp143258%_ + _%rest143284%_ + (let ((__tmp148969 + (cons (cons _%vals143354%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'let - (cons (cons (cons _%tmp142224%_ - (cons _%expr142230%_ + (cons (cons (cons _%tmp143356%_ + (cons _%expr143362%_ '())) '()) - (cons _%check-values142226%_ - (cons _%tmp142224%_ '())))) + (cons _%check-values143358%_ + (cons _%tmp143356%_ '())))) '())) - _%bind142129%_))) + _%bind143261%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp147837 - _%refs142228%_))))))) + __tmp148969 + _%refs143360%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147077147078%_)) - (let ((_%e142160142238%_ + (gx#stx-pair? _%__stx148209148210%_)) + (let ((_%e143292143370%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147077147078%_)))) - (let ((_%tl142162142243%_ + _%__stx148209148210%_)))) + (let ((_%tl143294143375%_ (let () (declare (not safe)) - (##cdr _%e142160142238%_))) - (_%hd142161142241%_ + (##cdr _%e143292143370%_))) + (_%hd143293143373%_ (let () (declare (not safe)) - (##car _%e142160142238%_)))) + (##car _%e143292143370%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142161142241%_)) - (let ((_%e142163142246%_ + _%hd143293143373%_)) + (let ((_%e143295143378%_ (let () (declare (not safe)) (gx#stx-e - _%hd142161142241%_)))) - (let ((_%tl142165142251%_ + _%hd143293143373%_)))) + (let ((_%tl143297143383%_ (let () (declare (not safe)) - (##cdr _%e142163142246%_))) - (_%hd142164142249%_ + (##cdr _%e143295143378%_))) + (_%hd143296143381%_ (let () (declare (not safe)) - (##car _%e142163142246%_)))) + (##car _%e143295143378%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142165142251%_)) + _%tl143297143383%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142162142243%_)) - (let ((_%e142166142254%_ + _%tl143294143375%_)) + (let ((_%e143298143386%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl142162142243%_)))) - (let ((_%tl142168142259%_ + (gx#stx-e _%tl143294143375%_)))) + (let ((_%tl143300143391%_ (let () (declare (not safe)) - (##cdr _%e142166142254%_))) - (_%hd142167142257%_ + (##cdr _%e143298143386%_))) + (_%hd143299143389%_ (let () (declare (not safe)) - (##car _%e142166142254%_)))) + (##car _%e143298143386%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142168142259%_)) - (_%__kont147079147080%_ - _%hd142167142257%_ - _%hd142164142249%_) + (gx#stx-null? _%tl143300143391%_)) + (_%__kont148211148212%_ + _%hd143299143389%_ + _%hd143296143381%_) (let () (declare (not safe)) - (_%g142156142181%_))))) - (let () (declare (not safe)) (_%g142156142181%_))) + (_%g143288143313%_))))) + (let () (declare (not safe)) (_%g143288143313%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142162142243%_)) - (let ((_%e142174142194%_ + (gx#stx-pair? _%tl143294143375%_)) + (let ((_%e143306143326%_ (let () (declare (not safe)) - (gx#stx-e _%tl142162142243%_)))) - (let ((_%tl142176142199%_ + (gx#stx-e _%tl143294143375%_)))) + (let ((_%tl143308143331%_ (let () (declare (not safe)) - (##cdr _%e142174142194%_))) - (_%hd142175142197%_ + (##cdr _%e143306143326%_))) + (_%hd143307143329%_ (let () (declare (not safe)) - (##car _%e142174142194%_)))) + (##car _%e143306143326%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142176142199%_)) - (_%__kont147081147082%_ - _%hd142175142197%_ - _%hd142161142241%_) + (gx#stx-null? _%tl143308143331%_)) + (_%__kont148213148214%_ + _%hd143307143329%_ + _%hd143293143373%_) (let () (declare (not safe)) - (_%g142156142181%_))))) - (let () (declare (not safe)) (_%g142156142181%_)))))) + (_%g143288143313%_))))) + (let () (declare (not safe)) (_%g143288143313%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142162142243%_)) - (let ((_%e142174142194%_ + _%tl143294143375%_)) + (let ((_%e143306143326%_ (let () (declare (not safe)) (gx#stx-e - _%tl142162142243%_)))) - (let ((_%tl142176142199%_ + _%tl143294143375%_)))) + (let ((_%tl143308143331%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e142174142194%_))) - (_%hd142175142197%_ - (let () (declare (not safe)) (##car _%e142174142194%_)))) + (##cdr _%e143306143326%_))) + (_%hd143307143329%_ + (let () (declare (not safe)) (##car _%e143306143326%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142176142199%_)) - (_%__kont147081147082%_ - _%hd142175142197%_ - _%hd142161142241%_) - (let () (declare (not safe)) (_%g142156142181%_))))) + (gx#stx-null? _%tl143308143331%_)) + (_%__kont148213148214%_ + _%hd143307143329%_ + _%hd143293143373%_) + (let () (declare (not safe)) (_%g143288143313%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g142156142181%_)))))) + (_%g143288143313%_)))))) (let () (declare (not safe)) - (_%g142156142181%_)))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest142130142138%_)) - (let ((_%hd142135142286%_ + (_%g143288143313%_)))))))) + (if (pair? _%rest143262143270%_) + (let ((_%hd143267143418%_ (let () (declare (not safe)) - (##car _%rest142130142138%_))) - (_%tl142136142288%_ + (##car _%rest143262143270%_))) + (_%tl143268143420%_ (let () (declare (not safe)) - (##cdr _%rest142130142138%_)))) - (let* ((_%hd-bind142291%_ _%hd142135142286%_) - (_%rest142293%_ _%tl142136142288%_)) - (_%K142134142283%_ - _%rest142293%_ - _%hd-bind142291%_))) - (_%else142132142149%_)))))) - (_%generate-letrec?141881%_ - (lambda (_%hd142013%_) - (let _%lp142015%_ ((_%rest142017%_ _%hd142013%_)) - (let* ((_%rest142018142026%_ _%rest142017%_) - (_%else142020142034%_ (lambda () '#t)) - (_%K142022142111%_ - (lambda (_%rest142037%_ _%hd-bind142038%_) - (let* ((_%g142040142057%_ - (lambda (_%g142041142054%_) + (##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%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142041142054%_)))) - (_%g142039142108%_ - (lambda (_%g142041142060%_) + _%g143173143186%_)))) + (_%g143171143240%_ + (lambda (_%g143173143192%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g142041142060%_)) - (let ((_%e142044142062%_ + _%g143173143192%_)) + (let ((_%e143176143194%_ (let () (declare (not safe)) (gx#stx-e - _%g142041142060%_)))) - (let ((_%hd142045142065%_ + _%g143173143192%_)))) + (let ((_%hd143177143197%_ (let () (declare (not safe)) - (##car _%e142044142062%_))) - (_%tl142046142067%_ + (##car _%e143176143194%_))) + (_%tl143178143199%_ (let () (declare (not safe)) - (##cdr _%e142044142062%_)))) + (##cdr _%e143176143194%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142045142065%_)) - (let ((_%e142047142070%_ + _%hd143177143197%_)) + (let ((_%e143179143202%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd142045142065%_)))) - (let ((_%hd142048142073%_ - (let () (declare (not safe)) (##car _%e142047142070%_))) - (_%tl142049142075%_ + (gx#stx-e _%hd143177143197%_)))) + (let ((_%hd143180143205%_ + (let () (declare (not safe)) (##car _%e143179143202%_))) + (_%tl143181143207%_ (let () (declare (not safe)) - (##cdr _%e142047142070%_)))) + (##cdr _%e143179143202%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142049142075%_)) + (gx#stx-null? _%tl143181143207%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142046142067%_)) - (let ((_%e142050142078%_ + (gx#stx-pair? _%tl143178143199%_)) + (let ((_%e143182143210%_ (let () (declare (not safe)) - (gx#stx-e _%tl142046142067%_)))) - (let ((_%hd142051142081%_ + (gx#stx-e _%tl143178143199%_)))) + (let ((_%hd143183143213%_ (let () (declare (not safe)) - (##car _%e142050142078%_))) - (_%tl142052142083%_ + (##car _%e143182143210%_))) + (_%tl143184143215%_ (let () (declare (not safe)) - (##cdr _%e142050142078%_)))) + (##cdr _%e143182143210%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142052142083%_)) - ((lambda (_%L142086%_ _%L142087%_) - (if (_%is-lambda-expr?141882%_ - _%L142086%_) - (_%lp142015%_ _%rest142037%_) + (gx#stx-null? _%tl143184143215%_)) + ((lambda (_%L143218%_ _%L143219%_) + (if (_%is-lambda-expr?143014%_ + _%L143218%_) + (_%lp143147%_ _%rest143169%_) '#f)) - _%hd142051142081%_ - _%hd142048142073%_) - (_%g142040142057%_ _%g142041142060%_)))) - (_%g142040142057%_ _%g142041142060%_)) - (_%g142040142057%_ _%g142041142060%_)))) - (_%g142040142057%_ _%g142041142060%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g142040142057%_ - _%g142041142060%_))))) - (_%g142039142108%_ _%hd-bind142038%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest142018142026%_)) - (let ((_%hd142023142114%_ + _%hd143183143213%_ + _%hd143180143205%_) + (_%g143172143189%_ _%g143173143192%_)))) + (_%g143172143189%_ _%g143173143192%_)) + (_%g143172143189%_ _%g143173143192%_)))) + (_%g143172143189%_ _%g143173143192%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g143172143189%_ + _%g143173143192%_))))) + (_%g143171143240%_ _%hd-bind143170%_))))) + (if (pair? _%rest143150143158%_) + (let ((_%hd143155143246%_ (let () (declare (not safe)) - (##car _%rest142018142026%_))) - (_%tl142024142116%_ + (##car _%rest143150143158%_))) + (_%tl143156143248%_ (let () (declare (not safe)) - (##cdr _%rest142018142026%_)))) - (let* ((_%hd-bind142119%_ _%hd142023142114%_) - (_%rest142121%_ _%tl142024142116%_)) - (_%K142022142111%_ - _%rest142121%_ - _%hd-bind142119%_))) - (_%else142020142034%_)))))) - (_%is-lambda-expr?141882%_ - (lambda (_%expr141950%_) - (let* ((_%__stx147121147122%_ _%expr141950%_) - (_%g141953141967%_ + (##cdr _%rest143150143158%_)))) + (let* ((_%hd-bind143251%_ _%hd143155143246%_) + (_%rest143253%_ _%tl143156143248%_)) + (_%K143154143243%_ + _%rest143253%_ + _%hd-bind143251%_))) + (_%else143152143166%_)))))) + (_%is-lambda-expr?143014%_ + (lambda (_%expr143082%_) + (let* ((_%__stx148253148254%_ _%expr143082%_) + (_%g143085143099%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147121147122%_))))) - (let ((_%__kont147123147124%_ - (lambda (_%L141995%_ _%L141996%_) '#t)) - (_%__kont147125147126%_ (lambda () '#f))) + _%__stx148253148254%_))))) + (let ((_%__kont148255148256%_ + (lambda (_%L143127%_ _%L143128%_) '#t)) + (_%__kont148257148258%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147121147122%_)) - (let ((_%e141957141979%_ + (gx#stx-pair? _%__stx148253148254%_)) + (let ((_%e143089143111%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147121147122%_)))) - (let ((_%tl141959141984%_ + (gx#stx-e _%__stx148253148254%_)))) + (let ((_%tl143091143116%_ (let () (declare (not safe)) - (##cdr _%e141957141979%_))) - (_%hd141958141982%_ + (##cdr _%e143089143111%_))) + (_%hd143090143114%_ (let () (declare (not safe)) - (##car _%e141957141979%_)))) + (##car _%e143089143111%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141958141982%_)) + (gx#identifier? _%hd143090143114%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd141958141982%_)) + _%hd143090143114%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141959141984%_)) - (let ((_%e141960141987%_ + _%tl143091143116%_)) + (let ((_%e143092143119%_ (let () (declare (not safe)) (gx#stx-e - _%tl141959141984%_)))) - (let ((_%tl141962141992%_ + _%tl143091143116%_)))) + (let ((_%tl143094143124%_ (let () (declare (not safe)) - (##cdr _%e141960141987%_))) - (_%hd141961141990%_ + (##cdr _%e143092143119%_))) + (_%hd143093143122%_ (let () (declare (not safe)) - (##car _%e141960141987%_)))) - (_%__kont147123147124%_ - _%tl141962141992%_ - _%hd141961141990%_))) - (_%__kont147125147126%_)) - (_%__kont147125147126%_)) - (_%__kont147125147126%_)))) - (_%__kont147125147126%_))))))) - (let* ((_%g141884141901%_ - (lambda (_%g141885141898%_) + (##car _%e143092143119%_)))) + (_%__kont148255148256%_ + _%tl143094143124%_ + _%hd143093143122%_))) + (_%__kont148257148258%_)) + (_%__kont148257148258%_)) + (_%__kont148257148258%_)))) + (_%__kont148257148258%_))))))) + (let* ((_%g143016143033%_ + (lambda (_%g143017143030%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141885141898%_)))) - (_%g141883141947%_ - (lambda (_%g141885141904%_) + _%g143017143030%_)))) + (_%g143015143079%_ + (lambda (_%g143017143036%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141885141904%_)) - (let ((_%e141888141906%_ + (gx#stx-pair? _%g143017143036%_)) + (let ((_%e143020143038%_ (let () (declare (not safe)) - (gx#stx-e _%g141885141904%_)))) - (let ((_%hd141889141909%_ + (gx#stx-e _%g143017143036%_)))) + (let ((_%hd143021143041%_ (let () (declare (not safe)) - (##car _%e141888141906%_))) - (_%tl141890141911%_ + (##car _%e143020143038%_))) + (_%tl143022143043%_ (let () (declare (not safe)) - (##cdr _%e141888141906%_)))) + (##cdr _%e143020143038%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141890141911%_)) - (let ((_%e141891141914%_ + (gx#stx-pair? _%tl143022143043%_)) + (let ((_%e143023143046%_ (let () (declare (not safe)) - (gx#stx-e _%tl141890141911%_)))) - (let ((_%hd141892141917%_ + (gx#stx-e _%tl143022143043%_)))) + (let ((_%hd143024143049%_ (let () (declare (not safe)) - (##car _%e141891141914%_))) - (_%tl141893141919%_ + (##car _%e143023143046%_))) + (_%tl143025143051%_ (let () (declare (not safe)) - (##cdr _%e141891141914%_)))) + (##cdr _%e143023143046%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141893141919%_)) - (let ((_%e141894141922%_ + (gx#stx-pair? _%tl143025143051%_)) + (let ((_%e143026143054%_ (let () (declare (not safe)) (gx#stx-e - _%tl141893141919%_)))) - (let ((_%hd141895141925%_ + _%tl143025143051%_)))) + (let ((_%hd143027143057%_ (let () (declare (not safe)) - (##car _%e141894141922%_))) - (_%tl141896141927%_ + (##car _%e143026143054%_))) + (_%tl143028143059%_ (let () (declare (not safe)) - (##cdr _%e141894141922%_)))) + (##cdr _%e143026143054%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141896141927%_)) - ((lambda (_%L141930%_ - _%L141931%_) + _%tl143028143059%_)) + ((lambda (_%L143062%_ + _%L143063%_) (if (gxc#generate-runtime-simple-let? - _%L141931%_) - (if (_%generate-letrec?141881%_ - _%L141931%_) + _%L143063%_) + (if (_%generate-letrec?143013%_ + _%L143063%_) (gxc#generate-runtime-simple-let - _%self141877%_ + _%self143009%_ 'letrec - _%L141931%_ - _%L141930%_ + _%L143063%_ + _%L143062%_ '#f) (gxc#generate-runtime-simple-let - _%self141877%_ + _%self143009%_ 'letrec* - _%L141931%_ - _%L141930%_ + _%L143063%_ + _%L143062%_ '#f)) - (_%generate-values141880%_ - _%L141931%_ - _%L141930%_))) - _%hd141895141925%_ - _%hd141892141917%_) - (_%g141884141901%_ - _%g141885141904%_)))) - (_%g141884141901%_ - _%g141885141904%_)))) - (_%g141884141901%_ _%g141885141904%_)))) - (_%g141884141901%_ _%g141885141904%_))))) - (_%g141883141947%_ _%stx141878%_))))) + (_%generate-values143012%_ + _%L143063%_ + _%L143062%_))) + _%hd143027143057%_ + _%hd143024143049%_) + (_%g143016143033%_ + _%g143017143036%_)))) + (_%g143016143033%_ + _%g143017143036%_)))) + (_%g143016143033%_ _%g143017143036%_)))) + (_%g143016143033%_ _%g143017143036%_))))) + (_%g143015143079%_ _%stx143010%_))))) (define gxc#generate-runtime-simple-let? - (lambda (_%hd141814%_) - (let _%lp141816%_ ((_%rest141818%_ _%hd141814%_)) - (let* ((_%rest141819141835%_ _%rest141818%_) - (_%else141822141843%_ (lambda () '#f))) - (let ((_%K141825141856%_ - (lambda (_%rest141854%_) (_%lp141816%_ _%rest141854%_))) - (_%K141824141848%_ (lambda () '#t))) - (let ((_%try-match141821141851%_ + (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 () - (if (let () - (declare (not safe)) - (##null? _%rest141819141835%_)) - (_%K141824141848%_) - (_%else141822141843%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest141819141835%_)) - (let ((_%tl141827141861%_ + (if (null? _%rest142951142967%_) + (_%K142956142980%_) + (_%else142954142975%_))))) + (if (pair? _%rest142951142967%_) + (let ((_%tl142959142993%_ (let () (declare (not safe)) - (##cdr _%rest141819141835%_))) - (_%hd141826141859%_ + (##cdr _%rest142951142967%_))) + (_%hd142958142991%_ (let () (declare (not safe)) - (##car _%rest141819141835%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd141826141859%_)) - (let ((_%tl141829141866%_ + (##car _%rest142951142967%_)))) + (if (pair? _%hd142958142991%_) + (let ((_%tl142961142998%_ (let () (declare (not safe)) - (##cdr _%hd141826141859%_))) - (_%hd141828141864%_ + (##cdr _%hd142958142991%_))) + (_%hd142960142996%_ (let () (declare (not safe)) - (##car _%hd141826141859%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd141828141864%_)) - (let ((_%tl141833141869%_ + (##car _%hd142958142991%_)))) + (if (pair? _%hd142960142996%_) + (let ((_%tl142965143001%_ (let () (declare (not safe)) - (##cdr _%hd141828141864%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl141833141869%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl141829141866%_)) - (let ((_%tl141831141872%_ + (##cdr _%hd142960142996%_)))) + (if (null? _%tl142965143001%_) + (if (pair? _%tl142961142998%_) + (let ((_%tl142963143004%_ (let () (declare (not safe)) - (##cdr _%tl141829141866%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl141831141872%_)) - (let ((_%rest141875%_ - _%tl141827141861%_)) - (_%lp141816%_ - _%rest141875%_)) - (_%else141822141843%_))) - (_%else141822141843%_)) - (_%else141822141843%_))) - (_%else141822141843%_))) - (_%else141822141843%_))) - (_%try-match141821141851%_)))))))) + (##cdr _%tl142961142998%_)))) + (if (null? _%tl142963143004%_) + (let ((_%rest143007%_ + _%tl142959142993%_)) + (_%lp142948%_ + _%rest143007%_)) + (_%else142954142975%_))) + (_%else142954142975%_)) + (_%else142954142975%_))) + (_%else142954142975%_))) + (_%else142954142975%_))) + (_%try-match142953142983%_)))))))) (define gxc#generate-runtime-simple-let - (lambda (_%self141725%_ - _%form141726%_ - _%hd141727%_ - _%body141728%_ - _%compiled-body?141729%_) - (letrec ((_%generate1141731%_ - (lambda (_%bind141770%_) - (let* ((_%bind141771141782%_ _%bind141770%_) - (_%E141773141786%_ + (lambda (_%self142857%_ + _%form142858%_ + _%hd142859%_ + _%body142860%_ + _%compiled-body?142861%_) + (letrec ((_%generate1142863%_ + (lambda (_%bind142902%_) + (let* ((_%bind142903142914%_ _%bind142902%_) + (_%E142905142918%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind141771141782%_ + _%bind142903142914%_ '([[id] expr]))) '#!void)) - (_%K141774141792%_ - (lambda (_%expr141789%_ _%id141790%_) + (_%K142906142924%_ + (lambda (_%expr142921%_ _%id142922%_) (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%id141790%_)) + _%id142922%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141725%_ - _%expr141789%_)) + _%self142857%_ + _%expr142921%_)) '()))))) - (if (let () - (declare (not safe)) - (##pair? _%bind141771141782%_)) - (let ((_%hd141775141795%_ + (if (pair? _%bind142903142914%_) + (let ((_%hd142907142927%_ (let () (declare (not safe)) - (##car _%bind141771141782%_))) - (_%tl141776141797%_ + (##car _%bind142903142914%_))) + (_%tl142908142929%_ (let () (declare (not safe)) - (##cdr _%bind141771141782%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd141775141795%_)) - (let ((_%hd141779141800%_ + (##cdr _%bind142903142914%_)))) + (if (pair? _%hd142907142927%_) + (let ((_%hd142911142932%_ (let () (declare (not safe)) - (##car _%hd141775141795%_))) - (_%tl141780141802%_ + (##car _%hd142907142927%_))) + (_%tl142912142934%_ (let () (declare (not safe)) - (##cdr _%hd141775141795%_)))) - (let ((_%id141805%_ _%hd141779141800%_)) - (if (let () - (declare (not safe)) - (##null? _%tl141780141802%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl141776141797%_)) - (let ((_%hd141777141807%_ + (##cdr _%hd142907142927%_)))) + (let ((_%id142937%_ _%hd142911142932%_)) + (if (null? _%tl142912142934%_) + (if (pair? _%tl142908142929%_) + (let ((_%hd142909142939%_ (let () (declare (not safe)) - (##car _%tl141776141797%_))) - (_%tl141778141809%_ + (##car _%tl142908142929%_))) + (_%tl142910142941%_ (let () (declare (not safe)) - (##cdr _%tl141776141797%_)))) - (let ((_%expr141812%_ - _%hd141777141807%_)) - (if (let () - (declare (not safe)) - (##null? _%tl141778141809%_)) - (_%K141774141792%_ - _%expr141812%_ - _%id141805%_) - (_%E141773141786%_)))) - (_%E141773141786%_)) - (_%E141773141786%_)))) - (_%E141773141786%_))) - (_%E141773141786%_)))))) - (let* ((_%bind141733%_ (map _%generate1141731%_ _%hd141727%_)) - (_%body141735%_ - (if _%compiled-body?141729%_ - _%body141728%_ + (##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%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self141725%_ _%body141728%_)))) - (_%body141767%_ - (let* ((_%body141736141744%_ _%body141735%_) - (_%else141738141752%_ - (lambda () (cons _%body141735%_ '()))) - (_%K141740141757%_ - (lambda (_%exprs141755%_) _%exprs141755%_))) - (if (let () - (declare (not safe)) - (##pair? _%body141736141744%_)) - (let ((_%hd141741141760%_ + (gxc#compile-e__1 _%self142857%_ _%body142860%_)))) + (_%body142899%_ + (let* ((_%body142868142876%_ _%body142867%_) + (_%else142870142884%_ + (lambda () (cons _%body142867%_ '()))) + (_%K142872142889%_ + (lambda (_%exprs142887%_) _%exprs142887%_))) + (if (pair? _%body142868142876%_) + (let ((_%hd142873142892%_ (let () (declare (not safe)) - (##car _%body141736141744%_))) - (_%tl141742141762%_ + (##car _%body142868142876%_))) + (_%tl142874142894%_ (let () (declare (not safe)) - (##cdr _%body141736141744%_)))) + (##cdr _%body142868142876%_)))) (if (let () (declare (not safe)) - (##eq? _%hd141741141760%_ 'begin)) - (let ((_%exprs141765%_ _%tl141742141762%_)) - (_%K141740141757%_ _%exprs141765%_)) - (_%else141738141752%_))) - (_%else141738141752%_))))) - (cons _%form141726%_ (cons _%bind141733%_ _%body141767%_)))))) + (##eq? _%hd142873142892%_ 'begin)) + (let ((_%exprs142897%_ _%tl142874142894%_)) + (_%K142872142889%_ _%exprs142897%_)) + (_%else142870142884%_))) + (_%else142870142884%_))))) + (cons _%form142858%_ (cons _%bind142865%_ _%body142899%_)))))) (define gxc#generate-runtime-quote% - (lambda (_%self141625%_ _%stx141626%_) - (letrec ((_%generate1141628%_ - (lambda (_%datum141680%_) - (if (or (null? _%datum141680%_) + (lambda (_%self142757%_ _%stx142758%_) + (letrec ((_%generate1142760%_ + (lambda (_%datum142812%_) + (if (or (null? _%datum142812%_) (let () (declare (not safe)) - (interned-symbol? _%datum141680%_)) + (interned-symbol? _%datum142812%_)) (let () (declare (not safe)) - (gx#self-quoting? _%datum141680%_)) - (eof-object? _%datum141680%_)) - _%datum141680%_ - (if (uninterned-symbol? _%datum141680%_) + (gx#self-quoting? _%datum142812%_)) + (eof-object? _%datum142812%_)) + _%datum142812%_ + (if (uninterned-symbol? _%datum142812%_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _%datum141680%_ + _%datum142812%_ '#t)) - (if (pair? _%datum141680%_) - (cons (_%generate1141628%_ + (if (pair? _%datum142812%_) + (cons (_%generate1142760%_ (let () (declare (not safe)) - (##car _%datum141680%_))) - (_%generate1141628%_ + (##car _%datum142812%_))) + (_%generate1142760%_ (let () (declare (not safe)) - (##cdr _%datum141680%_)))) - (if (box? _%datum141680%_) - (box (_%generate1141628%_ - (unbox _%datum141680%_))) - (if (vector? _%datum141680%_) + (##cdr _%datum142812%_)))) + (if (box? _%datum142812%_) + (box (_%generate1142760%_ + (unbox _%datum142812%_))) + (if (vector? _%datum142812%_) (vector-map - _%generate1141628%_ - _%datum141680%_) - (if (or (s8vector? _%datum141680%_) - (u8vector? _%datum141680%_) - (s16vector? _%datum141680%_) - (u16vector? _%datum141680%_) - (s32vector? _%datum141680%_) - (u32vector? _%datum141680%_) - (s64vector? _%datum141680%_) - (u64vector? _%datum141680%_) - (f32vector? _%datum141680%_) - (f64vector? _%datum141680%_)) - _%datum141680%_ + _%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%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _%stx141626%_))))))))))) - (let* ((_%g141630141643%_ - (lambda (_%g141631141640%_) + _%stx142758%_))))))))))) + (let* ((_%g142762142775%_ + (lambda (_%g142763142772%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141631141640%_)))) - (_%g141629141677%_ - (lambda (_%g141631141646%_) + _%g142763142772%_)))) + (_%g142761142809%_ + (lambda (_%g142763142778%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141631141646%_)) - (let ((_%e141633141648%_ + (gx#stx-pair? _%g142763142778%_)) + (let ((_%e142765142780%_ (let () (declare (not safe)) - (gx#stx-e _%g141631141646%_)))) - (let ((_%hd141634141651%_ + (gx#stx-e _%g142763142778%_)))) + (let ((_%hd142766142783%_ (let () (declare (not safe)) - (##car _%e141633141648%_))) - (_%tl141635141653%_ + (##car _%e142765142780%_))) + (_%tl142767142785%_ (let () (declare (not safe)) - (##cdr _%e141633141648%_)))) + (##cdr _%e142765142780%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141635141653%_)) - (let ((_%e141636141656%_ + (gx#stx-pair? _%tl142767142785%_)) + (let ((_%e142768142788%_ (let () (declare (not safe)) - (gx#stx-e _%tl141635141653%_)))) - (let ((_%hd141637141659%_ + (gx#stx-e _%tl142767142785%_)))) + (let ((_%hd142769142791%_ (let () (declare (not safe)) - (##car _%e141636141656%_))) - (_%tl141638141661%_ + (##car _%e142768142788%_))) + (_%tl142770142793%_ (let () (declare (not safe)) - (##cdr _%e141636141656%_)))) + (##cdr _%e142768142788%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141638141661%_)) - ((lambda (_%L141664%_) + (gx#stx-null? _%tl142770142793%_)) + ((lambda (_%L142796%_) (cons 'quote - (cons (_%generate1141628%_ + (cons (_%generate1142760%_ (let () (declare (not safe)) (gx#stx-e - _%L141664%_))) + _%L142796%_))) '()))) - _%hd141637141659%_) - (_%g141630141643%_ - _%g141631141646%_)))) - (_%g141630141643%_ _%g141631141646%_)))) - (_%g141630141643%_ _%g141631141646%_))))) - (_%g141629141677%_ _%stx141626%_))))) + _%hd142769142791%_) + (_%g142762142775%_ + _%g142763142778%_)))) + (_%g142762142775%_ _%g142763142778%_)))) + (_%g142762142775%_ _%g142763142778%_))))) + (_%g142761142809%_ _%stx142758%_))))) (define gxc#generate-runtime-call% - (lambda (_%self141066%_ _%stx141067%_) - (letrec ((_%compile-call141069%_ - (lambda (_%rator141358%_ _%rands141359%_) - (let ((_%rator141365%_ + (lambda (_%self142198%_ _%stx142199%_) + (letrec ((_%compile-call142201%_ + (lambda (_%rator142490%_ _%rands142491%_) + (let ((_%rator142497%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self141066%_ - _%rator141358%_))) - (_%rands141366%_ - (map (lambda (_%g141360141362%_) + _%self142198%_ + _%rator142490%_))) + (_%rands142498%_ + (map (lambda (_%g142492142494%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self141066%_ - _%g141360141362%_))) - _%rands141359%_))) - (let* ((_%__stx147168147169%_ _%rator141365%_) - (_%g141369141421%_ + _%self142198%_ + _%g142492142494%_))) + _%rands142491%_))) + (let* ((_%__stx148300148301%_ _%rator142497%_) + (_%g142501142553%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147168147169%_))))) - (let ((_%__kont147170147171%_ - (lambda (_%L141545%_ - _%L141546%_ - _%L141547%_ - _%L141548%_) - (if (let ((__tmp147840 + _%__stx148300148301%_))))) + (let ((_%__kont148302148303%_ + (lambda (_%L142677%_ + _%L142678%_ + _%L142679%_ + _%L142680%_) + (if (let ((__tmp148972 (let () (declare (not safe)) - (##length _%rands141366%_))) - (__tmp147838 - (length (let ((__tmp147839 - (lambda (_%g141584141587%_ + (##length _%rands142498%_))) + (__tmp148970 + (length (let ((__tmp148971 + (lambda (_%g142716142719%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g141585141589%_) - (cons _%g141584141587%_ _%g141585141589%_)))) + _%g142717142721%_) + (cons _%g142716142719%_ _%g142717142721%_)))) (declare (not safe)) - (__foldr1 __tmp147839 '() _%L141547%_))))) + (__foldr1 __tmp148971 '() _%L142679%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp147840 __tmp147838)) - (let* ((_%id141592%_ _%L141548%_) - (_%args141601%_ - (let ((__tmp147841 - (lambda (_%g141593141596%_ - _%g141594141598%_) - (cons _%g141593141596%_ - _%g141594141598%_)))) + (##fx= __tmp148972 __tmp148970)) + (let* ((_%id142724%_ _%L142680%_) + (_%args142733%_ + (let ((__tmp148973 + (lambda (_%g142725142728%_ + _%g142726142730%_) + (cons _%g142725142728%_ + _%g142726142730%_)))) (declare (not safe)) (__foldr1 - __tmp147841 + __tmp148973 '() - _%L141547%_))) - (_%body141610%_ - (let ((__tmp147842 - (lambda (_%g141602141605%_ - _%g141603141607%_) - (cons _%g141602141605%_ - _%g141603141607%_)))) + _%L142679%_))) + (_%body142742%_ + (let ((__tmp148974 + (lambda (_%g142734142737%_ + _%g142735142739%_) + (cons _%g142734142737%_ + _%g142735142739%_)))) (declare (not safe)) (__foldr1 - __tmp147842 + __tmp148974 '() - _%L141546%_))) - (_%init141612%_ + _%L142678%_))) + (_%init142744%_ (map list - _%args141601%_ - _%rands141366%_))) + _%args142733%_ + _%rands142498%_))) (cons 'let - (cons _%id141592%_ - (cons _%init141612%_ - _%body141610%_)))) - (let ((__tmp147843 - (let ((__tmp147844 - (lambda (_%g141614141617%_ - _%g141615141619%_) - (cons _%g141614141617%_ - _%g141615141619%_)))) + (cons _%id142724%_ + (cons _%init142744%_ + _%body142742%_)))) + (let ((__tmp148975 + (let ((__tmp148976 + (lambda (_%g142746142749%_ + _%g142747142751%_) + (cons _%g142746142749%_ + _%g142747142751%_)))) (declare (not safe)) (__foldr1 - __tmp147844 + __tmp148976 '() - _%L141547%_)))) + _%L142679%_)))) (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _%stx141067%_ - __tmp147843 - _%rands141366%_))))) - (_%__kont147176147177%_ + _%stx142199%_ + __tmp148975 + _%rands142498%_))))) + (_%__kont148308148309%_ (lambda () - (cons _%rator141365%_ _%rands141366%_)))) - (let ((_%__match147235147236%_ - (lambda (_%e141375141433%_ - _%hd141376141436%_ - _%tl141377141438%_ - _%e141378141441%_ - _%hd141379141444%_ - _%tl141380141446%_ - _%e141381141449%_ - _%hd141382141452%_ - _%tl141383141454%_ - _%e141384141457%_ - _%hd141385141460%_ - _%tl141386141462%_ - _%e141387141465%_ - _%hd141388141468%_ - _%tl141389141470%_ - _%e141390141473%_ - _%hd141391141476%_ - _%tl141392141478%_ - _%e141393141481%_ - _%hd141394141484%_ - _%tl141395141486%_ - _%__splice147172147173%_ - _%target141396141489%_ - _%tl141398141491%_) - (letrec ((_%loop141399141494%_ - (lambda (_%hd141397141497%_ - _%arg141403141499%_) + (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%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd141397141497%_)) - (let ((_%e141400141502%_ + _%hd142529142629%_)) + (let ((_%e142532142634%_ (let () (declare (not safe)) (gx#stx-e - _%hd141397141497%_)))) - (let ((_%lp-tl141402141507%_ + _%hd142529142629%_)))) + (let ((_%lp-tl142534142639%_ (let () (declare (not safe)) - (##cdr _%e141400141502%_))) - (_%lp-hd141401141505%_ + (##cdr _%e142532142634%_))) + (_%lp-hd142533142637%_ (let () (declare (not safe)) - (##car _%e141400141502%_)))) - (_%loop141399141494%_ - _%lp-tl141402141507%_ - (cons _%lp-hd141401141505%_ - _%arg141403141499%_)))) - (let ((_%arg141404141510%_ - (reverse _%arg141403141499%_))) + (##car _%e142532142634%_)))) + (_%loop142531142626%_ + _%lp-tl142534142639%_ + (cons _%lp-hd142533142637%_ + _%arg142535142631%_)))) + (let ((_%arg142536142642%_ + (reverse _%arg142535142631%_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl141395141486%_)) - (let ((_%__splice147174147175%_ + _%tl142527142618%_)) + (let ((_%__splice148306148307%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl141395141486%_ '0)))) - (let ((_%tl141407141515%_ + (gx#syntax-split-splice _%tl142527142618%_ '0)))) + (let ((_%tl142539142647%_ (let () (declare (not safe)) - (##vector-ref _%__splice147174147175%_ '1))) - (_%target141405141513%_ + (##vector-ref _%__splice148306148307%_ '1))) + (_%target142537142645%_ (let () (declare (not safe)) - (##vector-ref _%__splice147174147175%_ '0)))) + (##vector-ref _%__splice148306148307%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141407141515%_)) - (letrec ((_%loop141408141518%_ - (lambda (_%hd141406141521%_ - _%body141412141523%_) + (gx#stx-null? _%tl142539142647%_)) + (letrec ((_%loop142540142650%_ + (lambda (_%hd142538142653%_ + _%body142544142655%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141406141521%_)) - (let ((_%e141409141526%_ + (gx#stx-pair? _%hd142538142653%_)) + (let ((_%e142541142658%_ (let () (declare (not safe)) (gx#stx-e - _%hd141406141521%_)))) - (let ((_%lp-tl141411141531%_ + _%hd142538142653%_)))) + (let ((_%lp-tl142543142663%_ (let () (declare (not safe)) - (##cdr _%e141409141526%_))) - (_%lp-hd141410141529%_ + (##cdr _%e142541142658%_))) + (_%lp-hd142542142661%_ (let () (declare (not safe)) - (##car _%e141409141526%_)))) - (_%loop141408141518%_ - _%lp-tl141411141531%_ - (cons _%lp-hd141410141529%_ - _%body141412141523%_)))) - (let ((_%body141413141534%_ - (reverse _%body141412141523%_))) + (##car _%e142541142658%_)))) + (_%loop142540142650%_ + _%lp-tl142543142663%_ + (cons _%lp-hd142542142661%_ + _%body142544142655%_)))) + (let ((_%body142545142666%_ + (reverse _%body142544142655%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141389141470%_)) + _%tl142521142602%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141383141454%_)) + _%tl142515142586%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141380141446%_)) - (let ((_%e141414141537%_ + _%tl142512142578%_)) + (let ((_%e142546142669%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl141380141446%_)))) - (let ((_%tl141416141542%_ + (gx#stx-e _%tl142512142578%_)))) + (let ((_%tl142548142674%_ (let () (declare (not safe)) - (##cdr _%e141414141537%_))) - (_%hd141415141540%_ + (##cdr _%e142546142669%_))) + (_%hd142547142672%_ (let () (declare (not safe)) - (##car _%e141414141537%_)))) + (##car _%e142546142669%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141416141542%_)) - (let ((_%L141545%_ _%hd141415141540%_) - (_%L141546%_ _%body141413141534%_) - (_%L141547%_ _%arg141404141510%_) - (_%L141548%_ _%hd141385141460%_)) - (if (eq? _%L141548%_ _%L141545%_) - (_%__kont147170147171%_ - _%L141545%_ - _%L141546%_ - _%L141547%_ - _%L141548%_) - (_%__kont147176147177%_))) - (_%__kont147176147177%_)))) - (_%__kont147176147177%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147176147177%_)) - (_%__kont147176147177%_))))))) - (_%loop141408141518%_ _%target141405141513%_ '())) - (_%__kont147176147177%_)))) - (_%__kont147176147177%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop141399141494%_ - _%target141396141489%_ + (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%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147168147169%_)) - (let ((_%e141375141433%_ + (gx#stx-pair? _%__stx148300148301%_)) + (let ((_%e142507142565%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147168147169%_)))) - (let ((_%tl141377141438%_ + (gx#stx-e _%__stx148300148301%_)))) + (let ((_%tl142509142570%_ (let () (declare (not safe)) - (##cdr _%e141375141433%_))) - (_%hd141376141436%_ + (##cdr _%e142507142565%_))) + (_%hd142508142568%_ (let () (declare (not safe)) - (##car _%e141375141433%_)))) + (##car _%e142507142565%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141376141436%_)) + (gx#identifier? _%hd142508142568%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _%hd141376141436%_)) + _%hd142508142568%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141377141438%_)) - (let ((_%e141378141441%_ + _%tl142509142570%_)) + (let ((_%e142510142573%_ (let () (declare (not safe)) (gx#stx-e - _%tl141377141438%_)))) - (let ((_%tl141380141446%_ + _%tl142509142570%_)))) + (let ((_%tl142512142578%_ (let () (declare (not safe)) - (##cdr _%e141378141441%_))) - (_%hd141379141444%_ + (##cdr _%e142510142573%_))) + (_%hd142511142576%_ (let () (declare (not safe)) - (##car _%e141378141441%_)))) + (##car _%e142510142573%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd141379141444%_)) - (let ((_%e141381141449%_ + _%hd142511142576%_)) + (let ((_%e142513142581%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd141379141444%_)))) - (let ((_%tl141383141454%_ + (gx#stx-e _%hd142511142576%_)))) + (let ((_%tl142515142586%_ (let () (declare (not safe)) - (##cdr _%e141381141449%_))) - (_%hd141382141452%_ + (##cdr _%e142513142581%_))) + (_%hd142514142584%_ (let () (declare (not safe)) - (##car _%e141381141449%_)))) + (##car _%e142513142581%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141382141452%_)) - (let ((_%e141384141457%_ + (gx#stx-pair? _%hd142514142584%_)) + (let ((_%e142516142589%_ (let () (declare (not safe)) - (gx#stx-e _%hd141382141452%_)))) - (let ((_%tl141386141462%_ + (gx#stx-e _%hd142514142584%_)))) + (let ((_%tl142518142594%_ (let () (declare (not safe)) - (##cdr _%e141384141457%_))) - (_%hd141385141460%_ + (##cdr _%e142516142589%_))) + (_%hd142517142592%_ (let () (declare (not safe)) - (##car _%e141384141457%_)))) + (##car _%e142516142589%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141386141462%_)) - (let ((_%e141387141465%_ + (gx#stx-pair? _%tl142518142594%_)) + (let ((_%e142519142597%_ (let () (declare (not safe)) - (gx#stx-e _%tl141386141462%_)))) - (let ((_%tl141389141470%_ + (gx#stx-e _%tl142518142594%_)))) + (let ((_%tl142521142602%_ (let () (declare (not safe)) - (##cdr _%e141387141465%_))) - (_%hd141388141468%_ + (##cdr _%e142519142597%_))) + (_%hd142520142600%_ (let () (declare (not safe)) - (##car _%e141387141465%_)))) + (##car _%e142519142597%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141388141468%_)) - (let ((_%e141390141473%_ + (gx#stx-pair? _%hd142520142600%_)) + (let ((_%e142522142605%_ (let () (declare (not safe)) (gx#stx-e - _%hd141388141468%_)))) - (let ((_%tl141392141478%_ + _%hd142520142600%_)))) + (let ((_%tl142524142610%_ (let () (declare (not safe)) - (##cdr _%e141390141473%_))) - (_%hd141391141476%_ + (##cdr _%e142522142605%_))) + (_%hd142523142608%_ (let () (declare (not safe)) - (##car _%e141390141473%_)))) + (##car _%e142522142605%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd141391141476%_)) + _%hd142523142608%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _%hd141391141476%_)) + _%hd142523142608%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141392141478%_)) - (let ((_%e141393141481%_ + _%tl142524142610%_)) + (let ((_%e142525142613%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl141392141478%_)))) - (let ((_%tl141395141486%_ + (gx#stx-e _%tl142524142610%_)))) + (let ((_%tl142527142618%_ (let () (declare (not safe)) - (##cdr _%e141393141481%_))) - (_%hd141394141484%_ + (##cdr _%e142525142613%_))) + (_%hd142526142616%_ (let () (declare (not safe)) - (##car _%e141393141481%_)))) + (##car _%e142525142613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd141394141484%_)) - (let ((_%__splice147172147173%_ + (gx#stx-pair/null? _%hd142526142616%_)) + (let ((_%__splice148304148305%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd141394141484%_ + _%hd142526142616%_ '0)))) - (let ((_%tl141398141491%_ + (let ((_%tl142530142623%_ (let () (declare (not safe)) - (##vector-ref _%__splice147172147173%_ '1))) - (_%target141396141489%_ + (##vector-ref _%__splice148304148305%_ '1))) + (_%target142528142621%_ (let () (declare (not safe)) (##vector-ref - _%__splice147172147173%_ + _%__splice148304148305%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141398141491%_)) - (_%__match147235147236%_ - _%e141375141433%_ - _%hd141376141436%_ - _%tl141377141438%_ - _%e141378141441%_ - _%hd141379141444%_ - _%tl141380141446%_ - _%e141381141449%_ - _%hd141382141452%_ - _%tl141383141454%_ - _%e141384141457%_ - _%hd141385141460%_ - _%tl141386141462%_ - _%e141387141465%_ - _%hd141388141468%_ - _%tl141389141470%_ - _%e141390141473%_ - _%hd141391141476%_ - _%tl141392141478%_ - _%e141393141481%_ - _%hd141394141484%_ - _%tl141395141486%_ - _%__splice147172147173%_ - _%target141396141489%_ - _%tl141398141491%_) - (_%__kont147176147177%_)))) - (_%__kont147176147177%_)))) - (_%__kont147176147177%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147176147177%_)) - (_%__kont147176147177%_)))) - (_%__kont147176147177%_)))) - (_%__kont147176147177%_)))) - (_%__kont147176147177%_)))) - (_%__kont147176147177%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147176147177%_)) - (_%__kont147176147177%_)) - (_%__kont147176147177%_)))) - (_%__kont147176147177%_))))))))) - (let* ((_%g141071141094%_ - (lambda (_%g141072141091%_) + (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%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141072141091%_)))) - (_%g141070141355%_ - (lambda (_%g141072141097%_) + _%g142204142223%_)))) + (_%g142202142487%_ + (lambda (_%g142204142229%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141072141097%_)) - (let ((_%e141075141099%_ + (gx#stx-pair? _%g142204142229%_)) + (let ((_%e142207142231%_ (let () (declare (not safe)) - (gx#stx-e _%g141072141097%_)))) - (let ((_%hd141076141102%_ + (gx#stx-e _%g142204142229%_)))) + (let ((_%hd142208142234%_ (let () (declare (not safe)) - (##car _%e141075141099%_))) - (_%tl141077141104%_ + (##car _%e142207142231%_))) + (_%tl142209142236%_ (let () (declare (not safe)) - (##cdr _%e141075141099%_)))) + (##cdr _%e142207142231%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141077141104%_)) - (let ((_%e141078141107%_ + (gx#stx-pair? _%tl142209142236%_)) + (let ((_%e142210142239%_ (let () (declare (not safe)) - (gx#stx-e _%tl141077141104%_)))) - (let ((_%hd141079141110%_ + (gx#stx-e _%tl142209142236%_)))) + (let ((_%hd142211142242%_ (let () (declare (not safe)) - (##car _%e141078141107%_))) - (_%tl141080141112%_ + (##car _%e142210142239%_))) + (_%tl142212142244%_ (let () (declare (not safe)) - (##cdr _%e141078141107%_)))) + (##cdr _%e142210142239%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl141080141112%_)) - (let ((_g147845_ + _%tl142212142244%_)) + (let ((_g148977_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl141080141112%_ + _%tl142212142244%_ '0)))) (begin - (let ((_g147846_ + (let ((_g148978_ (let () (declare (not safe)) - (if (##values? _g147845_) + (if (##values? _g148977_) (##vector-length - _g147845_) + _g148977_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g147846_ 2))) + (##fx= _g148978_ 2))) (error "Context expects 2 values" - _g147846_))) - (let ((_%target141081141115%_ + _g148978_))) + (let ((_%target142213142247%_ (let () (declare (not safe)) (##vector-ref - _g147845_ + _g148977_ 0))) - (_%tl141083141117%_ + (_%tl142215142249%_ (let () (declare (not safe)) (##vector-ref - _g147845_ + _g148977_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141083141117%_)) - (letrec ((_%loop141084141120%_ - (lambda (_%hd141082141123%_ + _%tl142215142249%_)) + (letrec ((_%loop142216142252%_ + (lambda (_%hd142214142255%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rand141088141125%_) + _%rand142220142257%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141082141123%_)) - (let ((_%e141085141128%_ + (gx#stx-pair? _%hd142214142255%_)) + (let ((_%e142217142260%_ (let () (declare (not safe)) - (gx#stx-e _%hd141082141123%_)))) - (let ((_%lp-hd141086141131%_ + (gx#stx-e _%hd142214142255%_)))) + (let ((_%lp-hd142218142263%_ (let () (declare (not safe)) - (##car _%e141085141128%_))) - (_%lp-tl141087141133%_ + (##car _%e142217142260%_))) + (_%lp-tl142219142265%_ (let () (declare (not safe)) - (##cdr _%e141085141128%_)))) - (_%loop141084141120%_ - _%lp-tl141087141133%_ - (cons _%lp-hd141086141131%_ - _%rand141088141125%_)))) - (let ((_%rand141089141136%_ - (reverse _%rand141088141125%_))) - ((lambda (_%L141139%_ _%L141140%_) + (##cdr _%e142217142260%_)))) + (_%loop142216142252%_ + _%lp-tl142219142265%_ + (cons _%lp-hd142218142263%_ + _%rand142220142257%_)))) + (let ((_%rand142221142268%_ + (reverse _%rand142220142257%_))) + ((lambda (_%L142271%_ _%L142272%_) (if (gxc#current-compile-decls-unsafe?) - (_%compile-call141069%_ - _%L141140%_ - (let ((__tmp147847 - (lambda (_%g141157141160%_ - _%g141158141162%_) - (cons _%g141157141160%_ - _%g141158141162%_)))) + (_%compile-call142201%_ + _%L142272%_ + (let ((__tmp148979 + (lambda (_%g142289142292%_ + _%g142290142294%_) + (cons _%g142289142292%_ + _%g142290142294%_)))) (declare (not safe)) - (__foldr1 __tmp147847 '() _%L141139%_))) - (let* ((_%__stx147284147285%_ _%L141140%_) - (_%g141166141178%_ + (__foldr1 __tmp148979 '() _%L142271%_))) + (let* ((_%__stx148416148417%_ _%L142272%_) + (_%g142298142310%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147284147285%_))))) - (let ((_%__kont147286147287%_ + _%__stx148416148417%_))))) + (let ((_%__kont148418148419%_ (lambda () - (let ((_%f141215%_ + (let ((_%f142347%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self141066%_ - _%L141140%_)))) - (if (and (let ((__tmp147848 + _%self142198%_ + _%L142272%_)))) + (if (and (let ((__tmp148980 (symbol->string ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%f141215%_))) + _%f142347%_))) (declare (not safe)) - (##string-prefix? '"##" __tmp147848)) + (##string-prefix? '"##" __tmp148980)) (not (let () (declare (not safe)) - (##memq _%f141215%_ gxc#checked-primitives)))) + (##memq _%f142347%_ gxc#checked-primitives)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp141217%_ ((_%rest141220%_ + (let _%lp142349%_ ((_%rest142352%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse (let ((__tmp147850 - (lambda (_%g141337141340%_ - _%g141338141342%_) - (cons _%g141337141340%_ - _%g141338141342%_)))) + (reverse (let ((__tmp148982 + (lambda (_%g142469142472%_ + _%g142470142474%_) + (cons _%g142469142472%_ + _%g142470142474%_)))) (declare (not safe)) (__foldr1 - __tmp147850 + __tmp148982 '() - _%L141139%_)))) - (_%bind141222%_ '()) - (_%args141223%_ '())) - (let* ((_%rest141224141232%_ _%rest141220%_) - (_%else141226141240%_ + _%L142271%_)))) + (_%bind142354%_ '()) + (_%args142355%_ '())) + (let* ((_%rest142356142364%_ _%rest142352%_) + (_%else142358142372%_ (lambda () (cons 'let - (cons _%bind141222%_ + (cons _%bind142354%_ (cons '(declare (not safe)) - (cons (cons _%f141215%_ - _%args141223%_) + (cons (cons _%f142347%_ + _%args142355%_) '())))))) - (_%K141228141326%_ - (lambda (_%rest141243%_ _%e141244%_) - (let* ((_%__stx147238147239%_ _%e141244%_) - (_%g141249141267%_ + (_%K142360142458%_ + (lambda (_%rest142375%_ _%e142376%_) + (let* ((_%__stx148370148371%_ _%e142376%_) + (_%g142381142399%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147238147239%_))))) - (let ((_%__kont147240147241%_ + _%__stx148370148371%_))))) + (let ((_%__kont148372148373%_ (lambda () - (_%lp141217%_ - _%rest141243%_ - _%bind141222%_ + (_%lp142349%_ + _%rest142375%_ + _%bind142354%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141244%_)) - _%args141223%_)))) - (_%__kont147242147243%_ + (gxc#compile-e__0 _%e142376%_)) + _%args142355%_)))) + (_%__kont148374148375%_ (lambda () - (_%lp141217%_ - _%rest141243%_ - _%bind141222%_ + (_%lp142349%_ + _%rest142375%_ + _%bind142354%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141244%_)) - _%args141223%_)))) - (_%__kont147244147245%_ + (gxc#compile-e__0 _%e142376%_)) + _%args142355%_)))) + (_%__kont148376148377%_ (lambda () - (let ((_%tmp141274%_ - (let ((__tmp147849 + (let ((_%tmp142406%_ + (let ((__tmp148981 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp147849)))) - (_%lp141217%_ - _%rest141243%_ - (cons (cons _%tmp141274%_ + (make-symbol__0 __tmp148981)))) + (_%lp142349%_ + _%rest142375%_ + (cons (cons _%tmp142406%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e141244%_)) + _%e142376%_)) '())) - _%bind141222%_) - (cons _%tmp141274%_ _%args141223%_)))))) + _%bind142354%_) + (cons _%tmp142406%_ _%args142355%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147238147239%_)) - (let ((_%e141251141305%_ + (gx#stx-pair? _%__stx148370148371%_)) + (let ((_%e142383142437%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147238147239%_)))) - (let ((_%tl141253141310%_ + (gx#stx-e _%__stx148370148371%_)))) + (let ((_%tl142385142442%_ (let () (declare (not safe)) - (##cdr _%e141251141305%_))) - (_%hd141252141308%_ + (##cdr _%e142383142437%_))) + (_%hd142384142440%_ (let () (declare (not safe)) - (##car _%e141251141305%_)))) + (##car _%e142383142437%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141252141308%_)) + (gx#identifier? _%hd142384142440%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141252141308%_)) + _%hd142384142440%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141253141310%_)) - (let ((_%e141254141313%_ + _%tl142385142442%_)) + (let ((_%e142386142445%_ (let () (declare (not safe)) (gx#stx-e - _%tl141253141310%_)))) - (let ((_%tl141256141318%_ + _%tl142385142442%_)))) + (let ((_%tl142388142450%_ (let () (declare (not safe)) - (##cdr _%e141254141313%_))) - (_%hd141255141316%_ + (##cdr _%e142386142445%_))) + (_%hd142387142448%_ (let () (declare (not safe)) - (##car _%e141254141313%_)))) + (##car _%e142386142445%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141256141318%_)) - (_%__kont147240147241%_) - (_%__kont147244147245%_)))) - (_%__kont147244147245%_)) + _%tl142388142450%_)) + (_%__kont148372148373%_) + (_%__kont148376148377%_)))) + (_%__kont148376148377%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd141252141308%_)) + _%hd142384142440%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141253141310%_)) - (let ((_%e141260141290%_ + _%tl142385142442%_)) + (let ((_%e142392142422%_ (let () (declare (not safe)) (gx#stx-e - _%tl141253141310%_)))) - (let ((_%tl141262141295%_ + _%tl142385142442%_)))) + (let ((_%tl142394142427%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e141260141290%_))) - (_%hd141261141293%_ - (let () (declare (not safe)) (##car _%e141260141290%_)))) + (##cdr _%e142392142422%_))) + (_%hd142393142425%_ + (let () (declare (not safe)) (##car _%e142392142422%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141262141295%_)) - (_%__kont147242147243%_) - (_%__kont147244147245%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147244147245%_)) - (_%__kont147244147245%_))) - (_%__kont147244147245%_)))) - (_%__kont147244147245%_))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest141224141232%_)) - (let ((_%hd141229141329%_ + (gx#stx-null? _%tl142394142427%_)) + (_%__kont148374148375%_) + (_%__kont148376148377%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148376148377%_)) + (_%__kont148376148377%_))) + (_%__kont148376148377%_)))) + (_%__kont148376148377%_))))))) + (if (pair? _%rest142356142364%_) + (let ((_%hd142361142461%_ (let () (declare (not safe)) - (##car _%rest141224141232%_))) - (_%tl141230141331%_ + (##car _%rest142356142364%_))) + (_%tl142362142463%_ (let () (declare (not safe)) - (##cdr _%rest141224141232%_)))) - (let* ((_%e141334%_ _%hd141229141329%_) - (_%rest141336%_ _%tl141230141331%_)) - (_%K141228141326%_ _%rest141336%_ _%e141334%_))) - (_%else141226141240%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%compile-call141069%_ - _%L141140%_ - (let ((__tmp147851 - (lambda (_%g141344141347%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g141345141349%_) - (cons _%g141344141347%_ _%g141345141349%_)))) + (##cdr _%rest142356142364%_)))) + (let* ((_%e142466%_ _%hd142361142461%_) + (_%rest142468%_ _%tl142362142463%_)) + (_%K142360142458%_ _%rest142468%_ _%e142466%_))) + (_%else142358142372%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%compile-call142201%_ + _%L142272%_ + (let ((__tmp148983 + (lambda (_%g142476142479%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g142477142481%_) + (cons _%g142476142479%_ _%g142477142481%_)))) (declare (not safe)) - (__foldr1 __tmp147851 '() _%L141139%_))))))) + (__foldr1 __tmp148983 '() _%L142271%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147288147289%_ + (_%__kont148420148421%_ (lambda () - (_%compile-call141069%_ - _%L141140%_ - (let ((__tmp147852 - (lambda (_%g141184141187%_ - _%g141185141189%_) - (cons _%g141184141187%_ - _%g141185141189%_)))) + (_%compile-call142201%_ + _%L142272%_ + (let ((__tmp148984 + (lambda (_%g142316142319%_ + _%g142317142321%_) + (cons _%g142316142319%_ + _%g142317142321%_)))) (declare (not safe)) (__foldr1 - __tmp147852 + __tmp148984 '() - _%L141139%_)))))) + _%L142271%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx147284147285%_)) - (let ((_%e141168141197%_ + _%__stx148416148417%_)) + (let ((_%e142300142329%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147284147285%_)))) - (let ((_%tl141170141202%_ + _%__stx148416148417%_)))) + (let ((_%tl142302142334%_ (let () (declare (not safe)) - (##cdr _%e141168141197%_))) - (_%hd141169141200%_ + (##cdr _%e142300142329%_))) + (_%hd142301142332%_ (let () (declare (not safe)) - (##car _%e141168141197%_)))) + (##car _%e142300142329%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd141169141200%_)) + _%hd142301142332%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141169141200%_)) + _%hd142301142332%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141170141202%_)) - (let ((_%e141171141205%_ + _%tl142302142334%_)) + (let ((_%e142303142337%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl141170141202%_)))) - (let ((_%tl141173141210%_ + (gx#stx-e _%tl142302142334%_)))) + (let ((_%tl142305142342%_ (let () (declare (not safe)) - (##cdr _%e141171141205%_))) - (_%hd141172141208%_ + (##cdr _%e142303142337%_))) + (_%hd142304142340%_ (let () (declare (not safe)) - (##car _%e141171141205%_)))) + (##car _%e142303142337%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141173141210%_)) - (_%__kont147286147287%_) - (_%__kont147288147289%_)))) - (_%__kont147288147289%_)) - (_%__kont147288147289%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147288147289%_)))) - (_%__kont147288147289%_)))))) - _%rand141089141136%_ - _%hd141079141110%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop141084141120%_ - _%target141081141115%_ + (gx#stx-null? _%tl142305142342%_)) + (_%__kont148418148419%_) + (_%__kont148420148421%_)))) + (_%__kont148420148421%_)) + (_%__kont148420148421%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148420148421%_)))) + (_%__kont148420148421%_)))))) + _%rand142221142268%_ + _%hd142211142242%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop142216142252%_ + _%target142213142247%_ '())) - (_%g141071141094%_ - _%g141072141097%_))))) - (_%g141071141094%_ - _%g141072141097%_)))) - (_%g141071141094%_ _%g141072141097%_)))) - (_%g141071141094%_ _%g141072141097%_))))) - (_%g141070141355%_ _%stx141067%_))))) + (_%g142203142226%_ + _%g142204142229%_))))) + (_%g142203142226%_ + _%g142204142229%_)))) + (_%g142203142226%_ _%g142204142229%_)))) + (_%g142203142226%_ _%g142204142229%_))))) + (_%g142202142487%_ _%stx142199%_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_%self140809%_ _%stx140810%_) - (let* ((_%__stx147356147357%_ _%stx140810%_) - (_%g140813140842%_ + (lambda (_%self141941%_ _%stx141942%_) + (let* ((_%__stx148488148489%_ _%stx141942%_) + (_%g141945141974%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147356147357%_))))) - (let ((_%__kont147358147359%_ - (lambda (_%L140910%_ _%L140911%_) + _%__stx148488148489%_))))) + (let ((_%__kont148490148491%_ + (lambda (_%L142042%_ _%L142043%_) (if (gxc#current-compile-decls-unsafe?) (gxc#generate-runtime-call% - _%self140809%_ - _%stx140810%_) - (let ((_%f140933%_ - (let ((__tmp147853 + _%self141941%_ + _%stx141942%_) + (let ((_%f142065%_ + (let ((__tmp148985 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L140911%_ '())))) + (cons _%L142043%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self140809%_ - __tmp147853)))) - (let _%lp140935%_ ((_%rest140938%_ - (reverse (let ((__tmp147855 - (lambda (_%g141055141058%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g141056141060%_) - (cons _%g141055141058%_ _%g141056141060%_)))) + _%self141941%_ + __tmp148985)))) + (let _%lp142067%_ ((_%rest142070%_ + (reverse (let ((__tmp148987 + (lambda (_%g142187142190%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g142188142192%_) + (cons _%g142187142190%_ _%g142188142192%_)))) (declare (not safe)) - (__foldr1 __tmp147855 '() _%L140910%_)))) + (__foldr1 __tmp148987 '() _%L142042%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind140940%_ '()) - (_%args140941%_ '())) - (let* ((_%rest140942140950%_ _%rest140938%_) - (_%else140944140958%_ + (_%bind142072%_ '()) + (_%args142073%_ '())) + (let* ((_%rest142074142082%_ _%rest142070%_) + (_%else142076142090%_ (lambda () (cons 'let - (cons _%bind140940%_ + (cons _%bind142072%_ (cons '(declare (not safe)) - (cons (cons _%f140933%_ + (cons (cons _%f142065%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%args140941%_) + _%args142073%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140946141044%_ - (lambda (_%rest140961%_ _%e140962%_) - (let* ((_%__stx147310147311%_ _%e140962%_) - (_%g140967140985%_ + (_%K142078142176%_ + (lambda (_%rest142093%_ _%e142094%_) + (let* ((_%__stx148442148443%_ _%e142094%_) + (_%g142099142117%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147310147311%_))))) - (let ((_%__kont147312147313%_ + _%__stx148442148443%_))))) + (let ((_%__kont148444148445%_ (lambda () - (_%lp140935%_ - _%rest140961%_ - _%bind140940%_ + (_%lp142067%_ + _%rest142093%_ + _%bind142072%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140962%_)) - _%args140941%_)))) - (_%__kont147314147315%_ + _%e142094%_)) + _%args142073%_)))) + (_%__kont148446148447%_ (lambda () - (_%lp140935%_ - _%rest140961%_ - _%bind140940%_ + (_%lp142067%_ + _%rest142093%_ + _%bind142072%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140962%_)) - _%args140941%_)))) - (_%__kont147316147317%_ + _%e142094%_)) + _%args142073%_)))) + (_%__kont148448148449%_ (lambda () - (let ((_%tmp140992%_ - (let ((__tmp147854 + (let ((_%tmp142124%_ + (let ((__tmp148986 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp147854)))) + (make-symbol__0 __tmp148986)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp140935%_ - _%rest140961%_ - (cons (cons _%tmp140992%_ + (_%lp142067%_ + _%rest142093%_ + (cons (cons _%tmp142124%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e140962%_)) + (gxc#compile-e__0 _%e142094%_)) '())) - _%bind140940%_) + _%bind142072%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%tmp140992%_ - _%args140941%_)))))) + (cons _%tmp142124%_ + _%args142073%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx147310147311%_)) - (let ((_%e140969141023%_ + _%__stx148442148443%_)) + (let ((_%e142101142155%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147310147311%_)))) - (let ((_%tl140971141028%_ + _%__stx148442148443%_)))) + (let ((_%tl142103142160%_ (let () (declare (not safe)) - (##cdr _%e140969141023%_))) - (_%hd140970141026%_ + (##cdr _%e142101142155%_))) + (_%hd142102142158%_ (let () (declare (not safe)) - (##car _%e140969141023%_)))) + (##car _%e142101142155%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140970141026%_)) + _%hd142102142158%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd140970141026%_)) + _%hd142102142158%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl140971141028%_)) - (let ((_%e140972141031%_ + (gx#stx-pair? _%tl142103142160%_)) + (let ((_%e142104142163%_ (let () (declare (not safe)) - (gx#stx-e _%tl140971141028%_)))) - (let ((_%tl140974141036%_ + (gx#stx-e _%tl142103142160%_)))) + (let ((_%tl142106142168%_ (let () (declare (not safe)) - (##cdr _%e140972141031%_))) - (_%hd140973141034%_ + (##cdr _%e142104142163%_))) + (_%hd142105142166%_ (let () (declare (not safe)) - (##car _%e140972141031%_)))) + (##car _%e142104142163%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140974141036%_)) - (_%__kont147312147313%_) - (_%__kont147316147317%_)))) - (_%__kont147316147317%_)) + (gx#stx-null? _%tl142106142168%_)) + (_%__kont148444148445%_) + (_%__kont148448148449%_)))) + (_%__kont148448148449%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd140970141026%_)) + (gx#stx-eq? '%#quote _%hd142102142158%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140971141028%_)) - (let ((_%e140978141008%_ + (gx#stx-pair? _%tl142103142160%_)) + (let ((_%e142110142140%_ (let () (declare (not safe)) - (gx#stx-e _%tl140971141028%_)))) - (let ((_%tl140980141013%_ + (gx#stx-e _%tl142103142160%_)))) + (let ((_%tl142112142145%_ (let () (declare (not safe)) - (##cdr _%e140978141008%_))) - (_%hd140979141011%_ + (##cdr _%e142110142140%_))) + (_%hd142111142143%_ (let () (declare (not safe)) - (##car _%e140978141008%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl140980141013%_)) - (_%__kont147314147315%_) - (_%__kont147316147317%_)))) - (_%__kont147316147317%_)) - (_%__kont147316147317%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147316147317%_)))) - (_%__kont147316147317%_))))))) + (##car _%e142110142140%_)))) (if (let () (declare (not safe)) - (##pair? _%rest140942140950%_)) - (let ((_%hd140947141047%_ + (gx#stx-null? _%tl142112142145%_)) + (_%__kont148446148447%_) + (_%__kont148448148449%_)))) + (_%__kont148448148449%_)) + (_%__kont148448148449%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148448148449%_)))) + (_%__kont148448148449%_))))))) + (if (pair? _%rest142074142082%_) + (let ((_%hd142079142179%_ (let () (declare (not safe)) - (##car _%rest140942140950%_))) - (_%tl140948141049%_ + (##car _%rest142074142082%_))) + (_%tl142080142181%_ (let () (declare (not safe)) - (##cdr _%rest140942140950%_)))) - (let* ((_%e141052%_ _%hd140947141047%_) - (_%rest141054%_ _%tl140948141049%_)) - (_%K140946141044%_ - _%rest141054%_ - _%e141052%_))) - (_%else140944140958%_)))))))) - (_%__kont147362147363%_ + (##cdr _%rest142074142082%_)))) + (let* ((_%e142184%_ _%hd142079142179%_) + (_%rest142186%_ _%tl142080142181%_)) + (_%K142078142176%_ + _%rest142186%_ + _%e142184%_))) + (_%else142076142090%_)))))))) + (_%__kont148494148495%_ (lambda () - (gxc#generate-runtime-call% _%self140809%_ _%stx140810%_)))) - (let ((_%__match147401147402%_ - (lambda (_%e140817140854%_ - _%hd140818140857%_ - _%tl140819140859%_ - _%e140820140862%_ - _%hd140821140865%_ - _%tl140822140867%_ - _%e140823140870%_ - _%hd140824140873%_ - _%tl140825140875%_ - _%e140826140878%_ - _%hd140827140881%_ - _%tl140828140883%_ - _%__splice147360147361%_ - _%target140829140886%_ - _%tl140831140888%_) - (letrec ((_%loop140832140891%_ - (lambda (_%hd140830140894%_ - _%rand140836140896%_) + (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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd140830140894%_)) - (let ((_%e140833140899%_ + (gx#stx-pair? _%hd141962142026%_)) + (let ((_%e141965142031%_ (let () (declare (not safe)) - (gx#stx-e _%hd140830140894%_)))) - (let ((_%lp-tl140835140904%_ + (gx#stx-e _%hd141962142026%_)))) + (let ((_%lp-tl141967142036%_ (let () (declare (not safe)) - (##cdr _%e140833140899%_))) - (_%lp-hd140834140902%_ + (##cdr _%e141965142031%_))) + (_%lp-hd141966142034%_ (let () (declare (not safe)) - (##car _%e140833140899%_)))) - (_%loop140832140891%_ - _%lp-tl140835140904%_ - (cons _%lp-hd140834140902%_ - _%rand140836140896%_)))) - (let ((_%rand140837140907%_ - (reverse _%rand140836140896%_))) - (_%__kont147358147359%_ - _%rand140837140907%_ - _%hd140827140881%_)))))) - (_%loop140832140891%_ _%target140829140886%_ '()))))) + (##car _%e141965142031%_)))) + (_%loop141964142023%_ + _%lp-tl141967142036%_ + (cons _%lp-hd141966142034%_ + _%rand141968142028%_)))) + (let ((_%rand141969142039%_ + (reverse _%rand141968142028%_))) + (_%__kont148490148491%_ + _%rand141969142039%_ + _%hd141959142013%_)))))) + (_%loop141964142023%_ _%target141961142018%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147356147357%_)) - (let ((_%e140817140854%_ + (gx#stx-pair? _%__stx148488148489%_)) + (let ((_%e141949141986%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147356147357%_)))) - (let ((_%tl140819140859%_ + (gx#stx-e _%__stx148488148489%_)))) + (let ((_%tl141951141991%_ (let () (declare (not safe)) - (##cdr _%e140817140854%_))) - (_%hd140818140857%_ + (##cdr _%e141949141986%_))) + (_%hd141950141989%_ (let () (declare (not safe)) - (##car _%e140817140854%_)))) + (##car _%e141949141986%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140819140859%_)) - (let ((_%e140820140862%_ + (gx#stx-pair? _%tl141951141991%_)) + (let ((_%e141952141994%_ (let () (declare (not safe)) - (gx#stx-e _%tl140819140859%_)))) - (let ((_%tl140822140867%_ + (gx#stx-e _%tl141951141991%_)))) + (let ((_%tl141954141999%_ (let () (declare (not safe)) - (##cdr _%e140820140862%_))) - (_%hd140821140865%_ + (##cdr _%e141952141994%_))) + (_%hd141953141997%_ (let () (declare (not safe)) - (##car _%e140820140862%_)))) + (##car _%e141952141994%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd140821140865%_)) - (let ((_%e140823140870%_ + (gx#stx-pair? _%hd141953141997%_)) + (let ((_%e141955142002%_ (let () (declare (not safe)) - (gx#stx-e _%hd140821140865%_)))) - (let ((_%tl140825140875%_ + (gx#stx-e _%hd141953141997%_)))) + (let ((_%tl141957142007%_ (let () (declare (not safe)) - (##cdr _%e140823140870%_))) - (_%hd140824140873%_ + (##cdr _%e141955142002%_))) + (_%hd141956142005%_ (let () (declare (not safe)) - (##car _%e140823140870%_)))) + (##car _%e141955142002%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140824140873%_)) + _%hd141956142005%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd140824140873%_)) + _%hd141956142005%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140825140875%_)) - (let ((_%e140826140878%_ + _%tl141957142007%_)) + (let ((_%e141958142010%_ (let () (declare (not safe)) (gx#stx-e - _%tl140825140875%_)))) - (let ((_%tl140828140883%_ + _%tl141957142007%_)))) + (let ((_%tl141960142015%_ (let () (declare (not safe)) - (##cdr _%e140826140878%_))) - (_%hd140827140881%_ + (##cdr _%e141958142010%_))) + (_%hd141959142013%_ (let () (declare (not safe)) - (##car _%e140826140878%_)))) + (##car _%e141958142010%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140828140883%_)) + _%tl141960142015%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl140822140867%_)) - (let ((_%__splice147360147361%_ + (gx#stx-pair/null? _%tl141954141999%_)) + (let ((_%__splice148492148493%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl140822140867%_ + _%tl141954141999%_ '0)))) - (let ((_%tl140831140888%_ + (let ((_%tl141963142020%_ (let () (declare (not safe)) - (##vector-ref _%__splice147360147361%_ '1))) - (_%target140829140886%_ + (##vector-ref _%__splice148492148493%_ '1))) + (_%target141961142018%_ (let () (declare (not safe)) - (##vector-ref _%__splice147360147361%_ '0)))) + (##vector-ref _%__splice148492148493%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140831140888%_)) - (_%__match147401147402%_ - _%e140817140854%_ - _%hd140818140857%_ - _%tl140819140859%_ - _%e140820140862%_ - _%hd140821140865%_ - _%tl140822140867%_ - _%e140823140870%_ - _%hd140824140873%_ - _%tl140825140875%_ - _%e140826140878%_ - _%hd140827140881%_ - _%tl140828140883%_ - _%__splice147360147361%_ - _%target140829140886%_ - _%tl140831140888%_) - (_%__kont147362147363%_)))) - (_%__kont147362147363%_)) - (_%__kont147362147363%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147362147363%_)) - (_%__kont147362147363%_)) - (_%__kont147362147363%_)))) - (_%__kont147362147363%_)))) - (_%__kont147362147363%_)))) - (_%__kont147362147363%_))))))) + (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%_))))))) (define gxc#generate-runtime-if% - (lambda (_%self140621%_ _%stx140622%_) - (letrec ((_%simplify140624%_ - (lambda (_%code140709%_) - (let* ((_%code140710140728%_ _%code140709%_) - (_%else140712140736%_ (lambda () _%code140709%_)) - (_%K140714140772%_ - (lambda (_%expr140739%_ _%test140740%_) - (let* ((_%expr140741140749%_ _%expr140739%_) - (_%else140743140757%_ + (lambda (_%self141753%_ _%stx141754%_) + (letrec ((_%simplify141756%_ + (lambda (_%code141841%_) + (let* ((_%code141842141860%_ _%code141841%_) + (_%else141844141868%_ (lambda () _%code141841%_)) + (_%K141846141904%_ + (lambda (_%expr141871%_ _%test141872%_) + (let* ((_%expr141873141881%_ _%expr141871%_) + (_%else141875141889%_ (lambda () (cons 'and - (cons _%test140740%_ - (cons _%expr140739%_ + (cons _%test141872%_ + (cons _%expr141871%_ '()))))) - (_%K140745140762%_ - (lambda (_%exprs140760%_) + (_%K141877141894%_ + (lambda (_%exprs141892%_) (cons 'and - (cons _%test140740%_ - _%exprs140760%_))))) - (if (let () - (declare (not safe)) - (##pair? _%expr140741140749%_)) - (let ((_%hd140746140765%_ + (cons _%test141872%_ + _%exprs141892%_))))) + (if (pair? _%expr141873141881%_) + (let ((_%hd141878141897%_ (let () (declare (not safe)) - (##car _%expr140741140749%_))) - (_%tl140747140767%_ + (##car _%expr141873141881%_))) + (_%tl141879141899%_ (let () (declare (not safe)) - (##cdr _%expr140741140749%_)))) + (##cdr _%expr141873141881%_)))) (if (let () (declare (not safe)) - (##eq? _%hd140746140765%_ 'and)) - (let ((_%exprs140770%_ - _%tl140747140767%_)) - (_%K140745140762%_ - _%exprs140770%_)) - (_%else140743140757%_))) - (_%else140743140757%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%code140710140728%_)) - (let ((_%hd140715140775%_ + (##eq? _%hd141878141897%_ 'and)) + (let ((_%exprs141902%_ + _%tl141879141899%_)) + (_%K141877141894%_ + _%exprs141902%_)) + (_%else141875141889%_))) + (_%else141875141889%_)))))) + (if (pair? _%code141842141860%_) + (let ((_%hd141847141907%_ (let () (declare (not safe)) - (##car _%code140710140728%_))) - (_%tl140716140777%_ + (##car _%code141842141860%_))) + (_%tl141848141909%_ (let () (declare (not safe)) - (##cdr _%code140710140728%_)))) + (##cdr _%code141842141860%_)))) (if (let () (declare (not safe)) - (##eq? _%hd140715140775%_ 'if)) - (if (let () - (declare (not safe)) - (##pair? _%tl140716140777%_)) - (let ((_%hd140717140780%_ + (##eq? _%hd141847141907%_ 'if)) + (if (pair? _%tl141848141909%_) + (let ((_%hd141849141912%_ (let () (declare (not safe)) - (##car _%tl140716140777%_))) - (_%tl140718140782%_ + (##car _%tl141848141909%_))) + (_%tl141850141914%_ (let () (declare (not safe)) - (##cdr _%tl140716140777%_)))) - (let ((_%test140785%_ - _%hd140717140780%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl140718140782%_)) - (let ((_%hd140719140787%_ + (##cdr _%tl141848141909%_)))) + (let ((_%test141917%_ + _%hd141849141912%_)) + (if (pair? _%tl141850141914%_) + (let ((_%hd141851141919%_ (let () (declare (not safe)) - (##car _%tl140718140782%_))) - (_%tl140720140789%_ + (##car _%tl141850141914%_))) + (_%tl141852141921%_ (let () (declare (not safe)) - (##cdr _%tl140718140782%_)))) - (let ((_%expr140792%_ - _%hd140719140787%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl140720140789%_)) - (let ((_%hd140721140794%_ + (##cdr _%tl141850141914%_)))) + (let ((_%expr141924%_ + _%hd141851141919%_)) + (if (pair? _%tl141852141921%_) + (let ((_%hd141853141926%_ (let () (declare (not safe)) - (##car _%tl140720140789%_))) - (_%tl140722140796%_ + (##car _%tl141852141921%_))) + (_%tl141854141928%_ (let () (declare (not safe)) - (##cdr _%tl140720140789%_)))) - (if (let () - (declare - (not safe)) - (##pair? _%hd140721140794%_)) - (let ((_%hd140723140799%_ + (##cdr _%tl141852141921%_)))) + (if (pair? _%hd141853141926%_) + (let ((_%hd141855141931%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%hd140721140794%_))) - (_%tl140724140801%_ + (##car _%hd141853141926%_))) + (_%tl141856141933%_ (let () (declare (not safe)) - (##cdr _%hd140721140794%_)))) + (##cdr _%hd141853141926%_)))) (if (let () (declare (not safe)) - (##eq? _%hd140723140799%_ 'quote)) - (if (let () - (declare (not safe)) - (##pair? _%tl140724140801%_)) - (let ((_%hd140725140804%_ + (##eq? _%hd141855141931%_ 'quote)) + (if (pair? _%tl141856141933%_) + (let ((_%hd141857141936%_ (let () (declare (not safe)) - (##car _%tl140724140801%_))) - (_%tl140726140806%_ + (##car _%tl141856141933%_))) + (_%tl141858141938%_ (let () (declare (not safe)) - (##cdr _%tl140724140801%_)))) + (##cdr _%tl141856141933%_)))) (if (let () (declare (not safe)) - (##eq? _%hd140725140804%_ '#f)) - (if (let () - (declare (not safe)) - (##null? _%tl140726140806%_)) - (if (let () - (declare (not safe)) - (##null? _%tl140722140796%_)) - (_%K140714140772%_ - _%expr140792%_ - _%test140785%_) - (_%else140712140736%_)) - (_%else140712140736%_)) - (_%else140712140736%_))) - (_%else140712140736%_)) - (_%else140712140736%_))) - (_%else140712140736%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else140712140736%_)))) - (_%else140712140736%_)))) - (_%else140712140736%_)) - (_%else140712140736%_))) - (_%else140712140736%_)))))) - (let* ((_%g140626140647%_ - (lambda (_%g140627140644%_) + (##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%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140627140644%_)))) - (_%g140625140706%_ - (lambda (_%g140627140650%_) + _%g141759141776%_)))) + (_%g141757141838%_ + (lambda (_%g141759141782%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140627140650%_)) - (let ((_%e140631140652%_ + (gx#stx-pair? _%g141759141782%_)) + (let ((_%e141763141784%_ (let () (declare (not safe)) - (gx#stx-e _%g140627140650%_)))) - (let ((_%hd140632140655%_ + (gx#stx-e _%g141759141782%_)))) + (let ((_%hd141764141787%_ (let () (declare (not safe)) - (##car _%e140631140652%_))) - (_%tl140633140657%_ + (##car _%e141763141784%_))) + (_%tl141765141789%_ (let () (declare (not safe)) - (##cdr _%e140631140652%_)))) + (##cdr _%e141763141784%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140633140657%_)) - (let ((_%e140634140660%_ + (gx#stx-pair? _%tl141765141789%_)) + (let ((_%e141766141792%_ (let () (declare (not safe)) - (gx#stx-e _%tl140633140657%_)))) - (let ((_%hd140635140663%_ + (gx#stx-e _%tl141765141789%_)))) + (let ((_%hd141767141795%_ (let () (declare (not safe)) - (##car _%e140634140660%_))) - (_%tl140636140665%_ + (##car _%e141766141792%_))) + (_%tl141768141797%_ (let () (declare (not safe)) - (##cdr _%e140634140660%_)))) + (##cdr _%e141766141792%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140636140665%_)) - (let ((_%e140637140668%_ + (gx#stx-pair? _%tl141768141797%_)) + (let ((_%e141769141800%_ (let () (declare (not safe)) (gx#stx-e - _%tl140636140665%_)))) - (let ((_%hd140638140671%_ + _%tl141768141797%_)))) + (let ((_%hd141770141803%_ (let () (declare (not safe)) - (##car _%e140637140668%_))) - (_%tl140639140673%_ + (##car _%e141769141800%_))) + (_%tl141771141805%_ (let () (declare (not safe)) - (##cdr _%e140637140668%_)))) + (##cdr _%e141769141800%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140639140673%_)) - (let ((_%e140640140676%_ + _%tl141771141805%_)) + (let ((_%e141772141808%_ (let () (declare (not safe)) (gx#stx-e - _%tl140639140673%_)))) - (let ((_%hd140641140679%_ + _%tl141771141805%_)))) + (let ((_%hd141773141811%_ (let () (declare (not safe)) - (##car _%e140640140676%_))) - (_%tl140642140681%_ + (##car _%e141772141808%_))) + (_%tl141774141813%_ (let () (declare (not safe)) - (##cdr _%e140640140676%_)))) + (##cdr _%e141772141808%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140642140681%_)) - ((lambda (_%L140684%_ + _%tl141774141813%_)) + ((lambda (_%L141816%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L140685%_ - _%L140686%_) + _%L141817%_ + _%L141818%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (_%simplify140624%_ + (_%simplify141756%_ (cons 'if (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140621%_ - _%L140686%_)) + _%self141753%_ + _%L141818%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140621%_ - _%L140685%_)) + _%self141753%_ + _%L141817%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140621%_ - _%L140684%_)) + _%self141753%_ + _%L141816%_)) '()))))) (cons 'if - (cons (let ((__tmp147856 + (cons (let ((__tmp148988 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self140621%_ - _%L140686%_))))) + _%self141753%_ + _%L141818%_))))) (declare (not safe)) (__call-with-parameters - __tmp147856 + __tmp148988 gxc#current-compile-boolean-context '#t)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140621%_ - _%L140685%_)) + _%self141753%_ + _%L141817%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140621%_ - _%L140684%_)) + _%self141753%_ + _%L141816%_)) '())))))) - _%hd140641140679%_ - _%hd140638140671%_ - _%hd140635140663%_) - (_%g140626140647%_ _%g140627140650%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140626140647%_ - _%g140627140650%_)))) - (_%g140626140647%_ - _%g140627140650%_)))) - (_%g140626140647%_ _%g140627140650%_)))) - (_%g140626140647%_ _%g140627140650%_))))) - (_%g140625140706%_ _%stx140622%_))))) + _%hd141773141811%_ + _%hd141770141803%_ + _%hd141767141795%_) + (_%g141758141779%_ _%g141759141782%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141758141779%_ + _%g141759141782%_)))) + (_%g141758141779%_ + _%g141759141782%_)))) + (_%g141758141779%_ _%g141759141782%_)))) + (_%g141758141779%_ _%g141759141782%_))))) + (_%g141757141838%_ _%stx141754%_))))) (define gxc#generate-runtime-ref% - (lambda (_%self140569%_ _%stx140570%_) - (let* ((_%g140572140585%_ - (lambda (_%g140573140582%_) + (lambda (_%self141701%_ _%stx141702%_) + (let* ((_%g141704141717%_ + (lambda (_%g141705141714%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140573140582%_)))) - (_%g140571140618%_ - (lambda (_%g140573140588%_) + _%g141705141714%_)))) + (_%g141703141750%_ + (lambda (_%g141705141720%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140573140588%_)) - (let ((_%e140575140590%_ + (gx#stx-pair? _%g141705141720%_)) + (let ((_%e141707141722%_ (let () (declare (not safe)) - (gx#stx-e _%g140573140588%_)))) - (let ((_%hd140576140593%_ + (gx#stx-e _%g141705141720%_)))) + (let ((_%hd141708141725%_ (let () (declare (not safe)) - (##car _%e140575140590%_))) - (_%tl140577140595%_ + (##car _%e141707141722%_))) + (_%tl141709141727%_ (let () (declare (not safe)) - (##cdr _%e140575140590%_)))) + (##cdr _%e141707141722%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140577140595%_)) - (let ((_%e140578140598%_ + (gx#stx-pair? _%tl141709141727%_)) + (let ((_%e141710141730%_ (let () (declare (not safe)) - (gx#stx-e _%tl140577140595%_)))) - (let ((_%hd140579140601%_ + (gx#stx-e _%tl141709141727%_)))) + (let ((_%hd141711141733%_ (let () (declare (not safe)) - (##car _%e140578140598%_))) - (_%tl140580140603%_ + (##car _%e141710141730%_))) + (_%tl141712141735%_ (let () (declare (not safe)) - (##cdr _%e140578140598%_)))) + (##cdr _%e141710141730%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140580140603%_)) - ((lambda (_%L140606%_) + (gx#stx-null? _%tl141712141735%_)) + ((lambda (_%L141738%_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L140606%_))) - _%hd140579140601%_) - (_%g140572140585%_ _%g140573140588%_)))) - (_%g140572140585%_ _%g140573140588%_)))) - (_%g140572140585%_ _%g140573140588%_))))) - (_%g140571140618%_ _%stx140570%_)))) + _%L141738%_))) + _%hd141711141733%_) + (_%g141704141717%_ _%g141705141720%_)))) + (_%g141704141717%_ _%g141705141720%_)))) + (_%g141704141717%_ _%g141705141720%_))))) + (_%g141703141750%_ _%stx141702%_)))) (define gxc#generate-runtime-setq% - (lambda (_%self140501%_ _%stx140502%_) - (let* ((_%g140504140521%_ - (lambda (_%g140505140518%_) + (lambda (_%self141633%_ _%stx141634%_) + (let* ((_%g141636141653%_ + (lambda (_%g141637141650%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140505140518%_)))) - (_%g140503140566%_ - (lambda (_%g140505140524%_) + _%g141637141650%_)))) + (_%g141635141698%_ + (lambda (_%g141637141656%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140505140524%_)) - (let ((_%e140508140526%_ + (gx#stx-pair? _%g141637141656%_)) + (let ((_%e141640141658%_ (let () (declare (not safe)) - (gx#stx-e _%g140505140524%_)))) - (let ((_%hd140509140529%_ + (gx#stx-e _%g141637141656%_)))) + (let ((_%hd141641141661%_ (let () (declare (not safe)) - (##car _%e140508140526%_))) - (_%tl140510140531%_ + (##car _%e141640141658%_))) + (_%tl141642141663%_ (let () (declare (not safe)) - (##cdr _%e140508140526%_)))) + (##cdr _%e141640141658%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140510140531%_)) - (let ((_%e140511140534%_ + (gx#stx-pair? _%tl141642141663%_)) + (let ((_%e141643141666%_ (let () (declare (not safe)) - (gx#stx-e _%tl140510140531%_)))) - (let ((_%hd140512140537%_ + (gx#stx-e _%tl141642141663%_)))) + (let ((_%hd141644141669%_ (let () (declare (not safe)) - (##car _%e140511140534%_))) - (_%tl140513140539%_ + (##car _%e141643141666%_))) + (_%tl141645141671%_ (let () (declare (not safe)) - (##cdr _%e140511140534%_)))) + (##cdr _%e141643141666%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140513140539%_)) - (let ((_%e140514140542%_ + (gx#stx-pair? _%tl141645141671%_)) + (let ((_%e141646141674%_ (let () (declare (not safe)) - (gx#stx-e _%tl140513140539%_)))) - (let ((_%hd140515140545%_ + (gx#stx-e _%tl141645141671%_)))) + (let ((_%hd141647141677%_ (let () (declare (not safe)) - (##car _%e140514140542%_))) - (_%tl140516140547%_ + (##car _%e141646141674%_))) + (_%tl141648141679%_ (let () (declare (not safe)) - (##cdr _%e140514140542%_)))) + (##cdr _%e141646141674%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140516140547%_)) - ((lambda (_%L140550%_ - _%L140551%_) + _%tl141648141679%_)) + ((lambda (_%L141682%_ + _%L141683%_) (cons 'set! (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#generate-runtime-binding-id _%L140551%_)) + (gxc#generate-runtime-binding-id _%L141683%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self140501%_ _%L140550%_)) + (gxc#compile-e__1 _%self141633%_ _%L141682%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd140515140545%_ - _%hd140512140537%_) - (_%g140504140521%_ - _%g140505140524%_)))) - (_%g140504140521%_ _%g140505140524%_)))) - (_%g140504140521%_ _%g140505140524%_)))) - (_%g140504140521%_ _%g140505140524%_))))) - (_%g140503140566%_ _%stx140502%_)))) + _%hd141647141677%_ + _%hd141644141669%_) + (_%g141636141653%_ + _%g141637141656%_)))) + (_%g141636141653%_ _%g141637141656%_)))) + (_%g141636141653%_ _%g141637141656%_)))) + (_%g141636141653%_ _%g141637141656%_))))) + (_%g141635141698%_ _%stx141634%_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_%self140312%_ _%stx140313%_) - (let* ((_%g140315140332%_ - (lambda (_%g140316140329%_) + (lambda (_%self141444%_ _%stx141445%_) + (let* ((_%g141447141464%_ + (lambda (_%g141448141461%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140316140329%_)))) - (_%g140314140498%_ - (lambda (_%g140316140335%_) + _%g141448141461%_)))) + (_%g141446141630%_ + (lambda (_%g141448141467%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140316140335%_)) - (let ((_%e140319140337%_ + (gx#stx-pair? _%g141448141467%_)) + (let ((_%e141451141469%_ (let () (declare (not safe)) - (gx#stx-e _%g140316140335%_)))) - (let ((_%hd140320140340%_ + (gx#stx-e _%g141448141467%_)))) + (let ((_%hd141452141472%_ (let () (declare (not safe)) - (##car _%e140319140337%_))) - (_%tl140321140342%_ + (##car _%e141451141469%_))) + (_%tl141453141474%_ (let () (declare (not safe)) - (##cdr _%e140319140337%_)))) + (##cdr _%e141451141469%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140321140342%_)) - (let ((_%e140322140345%_ + (gx#stx-pair? _%tl141453141474%_)) + (let ((_%e141454141477%_ (let () (declare (not safe)) - (gx#stx-e _%tl140321140342%_)))) - (let ((_%hd140323140348%_ + (gx#stx-e _%tl141453141474%_)))) + (let ((_%hd141455141480%_ (let () (declare (not safe)) - (##car _%e140322140345%_))) - (_%tl140324140350%_ + (##car _%e141454141477%_))) + (_%tl141456141482%_ (let () (declare (not safe)) - (##cdr _%e140322140345%_)))) + (##cdr _%e141454141477%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140324140350%_)) - (let ((_%e140325140353%_ + (gx#stx-pair? _%tl141456141482%_)) + (let ((_%e141457141485%_ (let () (declare (not safe)) - (gx#stx-e _%tl140324140350%_)))) - (let ((_%hd140326140356%_ + (gx#stx-e _%tl141456141482%_)))) + (let ((_%hd141458141488%_ (let () (declare (not safe)) - (##car _%e140325140353%_))) - (_%tl140327140358%_ + (##car _%e141457141485%_))) + (_%tl141459141490%_ (let () (declare (not safe)) - (##cdr _%e140325140353%_)))) + (##cdr _%e141457141485%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140327140358%_)) - ((lambda (_%L140361%_ - _%L140362%_) + _%tl141459141490%_)) + ((lambda (_%L141493%_ + _%L141494%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self140312%_ _%L140361%_)) + (gxc#compile-e__1 _%self141444%_ _%L141493%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self140312%_ _%L140362%_)) + (gxc#compile-e__1 _%self141444%_ _%L141494%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp140377%_ ((_%rest140380%_ + (let _%lp141509%_ ((_%rest141512%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L140362%_ (cons _%L140361%_ '()))) - (_%bind140382%_ '()) - (_%args140383%_ '())) - (let* ((_%rest140384140392%_ _%rest140380%_) - (_%else140386140400%_ + (cons _%L141494%_ (cons _%L141493%_ '()))) + (_%bind141514%_ '()) + (_%args141515%_ '())) + (let* ((_%rest141516141524%_ _%rest141512%_) + (_%else141518141532%_ (lambda () (cons 'let - (cons _%bind140382%_ + (cons _%bind141514%_ (cons '(declare (not safe)) (cons (cons '##structure-instance-of? - _%args140383%_) + _%args141515%_) '())))))) - (_%K140388140486%_ - (lambda (_%rest140403%_ _%e140404%_) - (let* ((_%__stx147404147405%_ _%e140404%_) - (_%g140409140427%_ + (_%K141520141618%_ + (lambda (_%rest141535%_ _%e141536%_) + (let* ((_%__stx148536148537%_ _%e141536%_) + (_%g141541141559%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147404147405%_))))) - (let ((_%__kont147406147407%_ + _%__stx148536148537%_))))) + (let ((_%__kont148538148539%_ (lambda () - (_%lp140377%_ - _%rest140403%_ - _%bind140382%_ + (_%lp141509%_ + _%rest141535%_ + _%bind141514%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e140404%_)) - _%args140383%_)))) - (_%__kont147408147409%_ + (gxc#compile-e__0 _%e141536%_)) + _%args141515%_)))) + (_%__kont148540148541%_ (lambda () - (_%lp140377%_ - _%rest140403%_ - _%bind140382%_ + (_%lp141509%_ + _%rest141535%_ + _%bind141514%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e140404%_)) - _%args140383%_)))) - (_%__kont147410147411%_ + (gxc#compile-e__0 _%e141536%_)) + _%args141515%_)))) + (_%__kont148542148543%_ (lambda () - (let ((_%tmp140434%_ - (let ((__tmp147857 + (let ((_%tmp141566%_ + (let ((__tmp148989 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp147857)))) - (_%lp140377%_ - _%rest140403%_ - (cons (cons _%tmp140434%_ + (make-symbol__0 __tmp148989)))) + (_%lp141509%_ + _%rest141535%_ + (cons (cons _%tmp141566%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140404%_)) + _%e141536%_)) '())) - _%bind140382%_) - (cons _%tmp140434%_ _%args140383%_)))))) + _%bind141514%_) + (cons _%tmp141566%_ _%args141515%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147404147405%_)) - (let ((_%e140411140465%_ + (gx#stx-pair? _%__stx148536148537%_)) + (let ((_%e141543141597%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147404147405%_)))) - (let ((_%tl140413140470%_ + (gx#stx-e _%__stx148536148537%_)))) + (let ((_%tl141545141602%_ (let () (declare (not safe)) - (##cdr _%e140411140465%_))) - (_%hd140412140468%_ + (##cdr _%e141543141597%_))) + (_%hd141544141600%_ (let () (declare (not safe)) - (##car _%e140411140465%_)))) + (##car _%e141543141597%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd140412140468%_)) + (gx#identifier? _%hd141544141600%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd140412140468%_)) + _%hd141544141600%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140413140470%_)) - (let ((_%e140414140473%_ + _%tl141545141602%_)) + (let ((_%e141546141605%_ (let () (declare (not safe)) (gx#stx-e - _%tl140413140470%_)))) - (let ((_%tl140416140478%_ + _%tl141545141602%_)))) + (let ((_%tl141548141610%_ (let () (declare (not safe)) - (##cdr _%e140414140473%_))) - (_%hd140415140476%_ + (##cdr _%e141546141605%_))) + (_%hd141547141608%_ (let () (declare (not safe)) - (##car _%e140414140473%_)))) + (##car _%e141546141605%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140416140478%_)) - (_%__kont147406147407%_) - (_%__kont147410147411%_)))) - (_%__kont147410147411%_)) + _%tl141548141610%_)) + (_%__kont148538148539%_) + (_%__kont148542148543%_)))) + (_%__kont148542148543%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd140412140468%_)) + _%hd141544141600%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140413140470%_)) - (let ((_%e140420140450%_ + _%tl141545141602%_)) + (let ((_%e141552141582%_ (let () (declare (not safe)) (gx#stx-e - _%tl140413140470%_)))) - (let ((_%tl140422140455%_ + _%tl141545141602%_)))) + (let ((_%tl141554141587%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e140420140450%_))) - (_%hd140421140453%_ - (let () (declare (not safe)) (##car _%e140420140450%_)))) + (##cdr _%e141552141582%_))) + (_%hd141553141585%_ + (let () (declare (not safe)) (##car _%e141552141582%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140422140455%_)) - (_%__kont147408147409%_) - (_%__kont147410147411%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147410147411%_)) - (_%__kont147410147411%_))) - (_%__kont147410147411%_)))) - (_%__kont147410147411%_))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest140384140392%_)) - (let ((_%hd140389140489%_ + (gx#stx-null? _%tl141554141587%_)) + (_%__kont148540148541%_) + (_%__kont148542148543%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148542148543%_)) + (_%__kont148542148543%_))) + (_%__kont148542148543%_)))) + (_%__kont148542148543%_))))))) + (if (pair? _%rest141516141524%_) + (let ((_%hd141521141621%_ (let () (declare (not safe)) - (##car _%rest140384140392%_))) - (_%tl140390140491%_ + (##car _%rest141516141524%_))) + (_%tl141522141623%_ (let () (declare (not safe)) - (##cdr _%rest140384140392%_)))) - (let* ((_%e140494%_ _%hd140389140489%_) - (_%rest140496%_ _%tl140390140491%_)) - (_%K140388140486%_ _%rest140496%_ _%e140494%_))) - (_%else140386140400%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd140326140356%_ - _%hd140323140348%_) - (_%g140315140332%_ - _%g140316140335%_)))) - (_%g140315140332%_ _%g140316140335%_)))) - (_%g140315140332%_ _%g140316140335%_)))) - (_%g140315140332%_ _%g140316140335%_))))) - (_%g140314140498%_ _%stx140313%_)))) + (##cdr _%rest141516141524%_)))) + (let* ((_%e141626%_ _%hd141521141621%_) + (_%rest141628%_ _%tl141522141623%_)) + (_%K141520141618%_ _%rest141628%_ _%e141626%_))) + (_%else141518141532%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd141458141488%_ + _%hd141455141480%_) + (_%g141447141464%_ + _%g141448141467%_)))) + (_%g141447141464%_ _%g141448141467%_)))) + (_%g141447141464%_ _%g141448141467%_)))) + (_%g141447141464%_ _%g141448141467%_))))) + (_%g141446141630%_ _%stx141445%_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_%self140123%_ _%stx140124%_) - (let* ((_%g140126140143%_ - (lambda (_%g140127140140%_) + (lambda (_%self141255%_ _%stx141256%_) + (let* ((_%g141258141275%_ + (lambda (_%g141259141272%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140127140140%_)))) - (_%g140125140309%_ - (lambda (_%g140127140146%_) + _%g141259141272%_)))) + (_%g141257141441%_ + (lambda (_%g141259141278%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140127140146%_)) - (let ((_%e140130140148%_ + (gx#stx-pair? _%g141259141278%_)) + (let ((_%e141262141280%_ (let () (declare (not safe)) - (gx#stx-e _%g140127140146%_)))) - (let ((_%hd140131140151%_ + (gx#stx-e _%g141259141278%_)))) + (let ((_%hd141263141283%_ (let () (declare (not safe)) - (##car _%e140130140148%_))) - (_%tl140132140153%_ + (##car _%e141262141280%_))) + (_%tl141264141285%_ (let () (declare (not safe)) - (##cdr _%e140130140148%_)))) + (##cdr _%e141262141280%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140132140153%_)) - (let ((_%e140133140156%_ + (gx#stx-pair? _%tl141264141285%_)) + (let ((_%e141265141288%_ (let () (declare (not safe)) - (gx#stx-e _%tl140132140153%_)))) - (let ((_%hd140134140159%_ + (gx#stx-e _%tl141264141285%_)))) + (let ((_%hd141266141291%_ (let () (declare (not safe)) - (##car _%e140133140156%_))) - (_%tl140135140161%_ + (##car _%e141265141288%_))) + (_%tl141267141293%_ (let () (declare (not safe)) - (##cdr _%e140133140156%_)))) + (##cdr _%e141265141288%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140135140161%_)) - (let ((_%e140136140164%_ + (gx#stx-pair? _%tl141267141293%_)) + (let ((_%e141268141296%_ (let () (declare (not safe)) - (gx#stx-e _%tl140135140161%_)))) - (let ((_%hd140137140167%_ + (gx#stx-e _%tl141267141293%_)))) + (let ((_%hd141269141299%_ (let () (declare (not safe)) - (##car _%e140136140164%_))) - (_%tl140138140169%_ + (##car _%e141268141296%_))) + (_%tl141270141301%_ (let () (declare (not safe)) - (##cdr _%e140136140164%_)))) + (##cdr _%e141268141296%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140138140169%_)) - ((lambda (_%L140172%_ - _%L140173%_) + _%tl141270141301%_)) + ((lambda (_%L141304%_ + _%L141305%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-direct-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self140123%_ _%L140172%_)) + (gxc#compile-e__1 _%self141255%_ _%L141304%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self140123%_ _%L140173%_)) + (gxc#compile-e__1 _%self141255%_ _%L141305%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp140188%_ ((_%rest140191%_ + (let _%lp141320%_ ((_%rest141323%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L140173%_ (cons _%L140172%_ '()))) - (_%bind140193%_ '()) - (_%args140194%_ '())) - (let* ((_%rest140195140203%_ _%rest140191%_) - (_%else140197140211%_ + (cons _%L141305%_ (cons _%L141304%_ '()))) + (_%bind141325%_ '()) + (_%args141326%_ '())) + (let* ((_%rest141327141335%_ _%rest141323%_) + (_%else141329141343%_ (lambda () (cons 'let - (cons _%bind140193%_ + (cons _%bind141325%_ (cons '(declare (not safe)) (cons (cons '##structure-direct-instance-of? - _%args140194%_) + _%args141326%_) '())))))) - (_%K140199140297%_ - (lambda (_%rest140214%_ _%e140215%_) - (let* ((_%__stx147450147451%_ _%e140215%_) - (_%g140220140238%_ + (_%K141331141429%_ + (lambda (_%rest141346%_ _%e141347%_) + (let* ((_%__stx148582148583%_ _%e141347%_) + (_%g141352141370%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147450147451%_))))) - (let ((_%__kont147452147453%_ + _%__stx148582148583%_))))) + (let ((_%__kont148584148585%_ (lambda () - (_%lp140188%_ - _%rest140214%_ - _%bind140193%_ + (_%lp141320%_ + _%rest141346%_ + _%bind141325%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e140215%_)) - _%args140194%_)))) - (_%__kont147454147455%_ + (gxc#compile-e__0 _%e141347%_)) + _%args141326%_)))) + (_%__kont148586148587%_ (lambda () - (_%lp140188%_ - _%rest140214%_ - _%bind140193%_ + (_%lp141320%_ + _%rest141346%_ + _%bind141325%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e140215%_)) - _%args140194%_)))) - (_%__kont147456147457%_ + (gxc#compile-e__0 _%e141347%_)) + _%args141326%_)))) + (_%__kont148588148589%_ (lambda () - (let ((_%tmp140245%_ - (let ((__tmp147858 + (let ((_%tmp141377%_ + (let ((__tmp148990 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp147858)))) - (_%lp140188%_ - _%rest140214%_ - (cons (cons _%tmp140245%_ + (make-symbol__0 __tmp148990)))) + (_%lp141320%_ + _%rest141346%_ + (cons (cons _%tmp141377%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140215%_)) + _%e141347%_)) '())) - _%bind140193%_) - (cons _%tmp140245%_ _%args140194%_)))))) + _%bind141325%_) + (cons _%tmp141377%_ _%args141326%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147450147451%_)) - (let ((_%e140222140276%_ + (gx#stx-pair? _%__stx148582148583%_)) + (let ((_%e141354141408%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147450147451%_)))) - (let ((_%tl140224140281%_ + (gx#stx-e _%__stx148582148583%_)))) + (let ((_%tl141356141413%_ (let () (declare (not safe)) - (##cdr _%e140222140276%_))) - (_%hd140223140279%_ + (##cdr _%e141354141408%_))) + (_%hd141355141411%_ (let () (declare (not safe)) - (##car _%e140222140276%_)))) + (##car _%e141354141408%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd140223140279%_)) + (gx#identifier? _%hd141355141411%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd140223140279%_)) + _%hd141355141411%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140224140281%_)) - (let ((_%e140225140284%_ + _%tl141356141413%_)) + (let ((_%e141357141416%_ (let () (declare (not safe)) (gx#stx-e - _%tl140224140281%_)))) - (let ((_%tl140227140289%_ + _%tl141356141413%_)))) + (let ((_%tl141359141421%_ (let () (declare (not safe)) - (##cdr _%e140225140284%_))) - (_%hd140226140287%_ + (##cdr _%e141357141416%_))) + (_%hd141358141419%_ (let () (declare (not safe)) - (##car _%e140225140284%_)))) + (##car _%e141357141416%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140227140289%_)) - (_%__kont147452147453%_) - (_%__kont147456147457%_)))) - (_%__kont147456147457%_)) + _%tl141359141421%_)) + (_%__kont148584148585%_) + (_%__kont148588148589%_)))) + (_%__kont148588148589%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd140223140279%_)) + _%hd141355141411%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140224140281%_)) - (let ((_%e140231140261%_ + _%tl141356141413%_)) + (let ((_%e141363141393%_ (let () (declare (not safe)) (gx#stx-e - _%tl140224140281%_)))) - (let ((_%tl140233140266%_ + _%tl141356141413%_)))) + (let ((_%tl141365141398%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e140231140261%_))) - (_%hd140232140264%_ - (let () (declare (not safe)) (##car _%e140231140261%_)))) + (##cdr _%e141363141393%_))) + (_%hd141364141396%_ + (let () (declare (not safe)) (##car _%e141363141393%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140233140266%_)) - (_%__kont147454147455%_) - (_%__kont147456147457%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147456147457%_)) - (_%__kont147456147457%_))) - (_%__kont147456147457%_)))) - (_%__kont147456147457%_))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest140195140203%_)) - (let ((_%hd140200140300%_ + (gx#stx-null? _%tl141365141398%_)) + (_%__kont148586148587%_) + (_%__kont148588148589%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148588148589%_)) + (_%__kont148588148589%_))) + (_%__kont148588148589%_)))) + (_%__kont148588148589%_))))))) + (if (pair? _%rest141327141335%_) + (let ((_%hd141332141432%_ (let () (declare (not safe)) - (##car _%rest140195140203%_))) - (_%tl140201140302%_ + (##car _%rest141327141335%_))) + (_%tl141333141434%_ (let () (declare (not safe)) - (##cdr _%rest140195140203%_)))) - (let* ((_%e140305%_ _%hd140200140300%_) - (_%rest140307%_ _%tl140201140302%_)) - (_%K140199140297%_ _%rest140307%_ _%e140305%_))) - (_%else140197140211%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd140137140167%_ - _%hd140134140159%_) - (_%g140126140143%_ - _%g140127140146%_)))) - (_%g140126140143%_ _%g140127140146%_)))) - (_%g140126140143%_ _%g140127140146%_)))) - (_%g140126140143%_ _%g140127140146%_))))) - (_%g140125140309%_ _%stx140124%_)))) + (##cdr _%rest141327141335%_)))) + (let* ((_%e141437%_ _%hd141332141432%_) + (_%rest141439%_ _%tl141333141434%_)) + (_%K141331141429%_ _%rest141439%_ _%e141437%_))) + (_%else141329141343%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd141269141299%_ + _%hd141266141291%_) + (_%g141258141275%_ + _%g141259141278%_)))) + (_%g141258141275%_ _%g141259141278%_)))) + (_%g141258141275%_ _%g141259141278%_)))) + (_%g141258141275%_ _%g141259141278%_))))) + (_%g141257141441%_ _%stx141256%_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_%self140039%_ _%stx140040%_) - (let* ((_%g140042140063%_ - (lambda (_%g140043140060%_) + (lambda (_%self141171%_ _%stx141172%_) + (let* ((_%g141174141195%_ + (lambda (_%g141175141192%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140043140060%_)))) - (_%g140041140120%_ - (lambda (_%g140043140066%_) + _%g141175141192%_)))) + (_%g141173141252%_ + (lambda (_%g141175141198%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140043140066%_)) - (let ((_%e140047140068%_ + (gx#stx-pair? _%g141175141198%_)) + (let ((_%e141179141200%_ (let () (declare (not safe)) - (gx#stx-e _%g140043140066%_)))) - (let ((_%hd140048140071%_ + (gx#stx-e _%g141175141198%_)))) + (let ((_%hd141180141203%_ (let () (declare (not safe)) - (##car _%e140047140068%_))) - (_%tl140049140073%_ + (##car _%e141179141200%_))) + (_%tl141181141205%_ (let () (declare (not safe)) - (##cdr _%e140047140068%_)))) + (##cdr _%e141179141200%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140049140073%_)) - (let ((_%e140050140076%_ + (gx#stx-pair? _%tl141181141205%_)) + (let ((_%e141182141208%_ (let () (declare (not safe)) - (gx#stx-e _%tl140049140073%_)))) - (let ((_%hd140051140079%_ + (gx#stx-e _%tl141181141205%_)))) + (let ((_%hd141183141211%_ (let () (declare (not safe)) - (##car _%e140050140076%_))) - (_%tl140052140081%_ + (##car _%e141182141208%_))) + (_%tl141184141213%_ (let () (declare (not safe)) - (##cdr _%e140050140076%_)))) + (##cdr _%e141182141208%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140052140081%_)) - (let ((_%e140053140084%_ + (gx#stx-pair? _%tl141184141213%_)) + (let ((_%e141185141216%_ (let () (declare (not safe)) - (gx#stx-e _%tl140052140081%_)))) - (let ((_%hd140054140087%_ + (gx#stx-e _%tl141184141213%_)))) + (let ((_%hd141186141219%_ (let () (declare (not safe)) - (##car _%e140053140084%_))) - (_%tl140055140089%_ + (##car _%e141185141216%_))) + (_%tl141187141221%_ (let () (declare (not safe)) - (##cdr _%e140053140084%_)))) + (##cdr _%e141185141216%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140055140089%_)) - (let ((_%e140056140092%_ + _%tl141187141221%_)) + (let ((_%e141188141224%_ (let () (declare (not safe)) (gx#stx-e - _%tl140055140089%_)))) - (let ((_%hd140057140095%_ + _%tl141187141221%_)))) + (let ((_%hd141189141227%_ (let () (declare (not safe)) - (##car _%e140056140092%_))) - (_%tl140058140097%_ + (##car _%e141188141224%_))) + (_%tl141190141229%_ (let () (declare (not safe)) - (##cdr _%e140056140092%_)))) + (##cdr _%e141188141224%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140058140097%_)) - ((lambda (_%L140100%_ - _%L140101%_ - _%L140102%_) + _%tl141190141229%_)) + ((lambda (_%L141232%_ + _%L141233%_ + _%L141234%_) (cons '##structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self140039%_ _%L140100%_)) + (gxc#compile-e__1 _%self141171%_ _%L141232%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140039%_ - _%L140101%_)) + _%self141171%_ + _%L141233%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140039%_ - _%L140102%_)) + _%self141171%_ + _%L141234%_)) (cons ''#f '())))))) - _%hd140057140095%_ - _%hd140054140087%_ - _%hd140051140079%_) - (_%g140042140063%_ _%g140043140066%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140042140063%_ - _%g140043140066%_)))) - (_%g140042140063%_ _%g140043140066%_)))) - (_%g140042140063%_ _%g140043140066%_)))) - (_%g140042140063%_ _%g140043140066%_))))) - (_%g140041140120%_ _%stx140040%_)))) + _%hd141189141227%_ + _%hd141186141219%_ + _%hd141183141211%_) + (_%g141174141195%_ _%g141175141198%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141174141195%_ + _%g141175141198%_)))) + (_%g141174141195%_ _%g141175141198%_)))) + (_%g141174141195%_ _%g141175141198%_)))) + (_%g141174141195%_ _%g141175141198%_))))) + (_%g141173141252%_ _%stx141172%_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_%self139939%_ _%stx139940%_) - (let* ((_%g139942139967%_ - (lambda (_%g139943139964%_) + (lambda (_%self141071%_ _%stx141072%_) + (let* ((_%g141074141099%_ + (lambda (_%g141075141096%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139943139964%_)))) - (_%g139941140036%_ - (lambda (_%g139943139970%_) + _%g141075141096%_)))) + (_%g141073141168%_ + (lambda (_%g141075141102%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139943139970%_)) - (let ((_%e139948139972%_ + (gx#stx-pair? _%g141075141102%_)) + (let ((_%e141080141104%_ (let () (declare (not safe)) - (gx#stx-e _%g139943139970%_)))) - (let ((_%hd139949139975%_ + (gx#stx-e _%g141075141102%_)))) + (let ((_%hd141081141107%_ (let () (declare (not safe)) - (##car _%e139948139972%_))) - (_%tl139950139977%_ + (##car _%e141080141104%_))) + (_%tl141082141109%_ (let () (declare (not safe)) - (##cdr _%e139948139972%_)))) + (##cdr _%e141080141104%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139950139977%_)) - (let ((_%e139951139980%_ + (gx#stx-pair? _%tl141082141109%_)) + (let ((_%e141083141112%_ (let () (declare (not safe)) - (gx#stx-e _%tl139950139977%_)))) - (let ((_%hd139952139983%_ + (gx#stx-e _%tl141082141109%_)))) + (let ((_%hd141084141115%_ (let () (declare (not safe)) - (##car _%e139951139980%_))) - (_%tl139953139985%_ + (##car _%e141083141112%_))) + (_%tl141085141117%_ (let () (declare (not safe)) - (##cdr _%e139951139980%_)))) + (##cdr _%e141083141112%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139953139985%_)) - (let ((_%e139954139988%_ + (gx#stx-pair? _%tl141085141117%_)) + (let ((_%e141086141120%_ (let () (declare (not safe)) - (gx#stx-e _%tl139953139985%_)))) - (let ((_%hd139955139991%_ + (gx#stx-e _%tl141085141117%_)))) + (let ((_%hd141087141123%_ (let () (declare (not safe)) - (##car _%e139954139988%_))) - (_%tl139956139993%_ + (##car _%e141086141120%_))) + (_%tl141088141125%_ (let () (declare (not safe)) - (##cdr _%e139954139988%_)))) + (##cdr _%e141086141120%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139956139993%_)) - (let ((_%e139957139996%_ + _%tl141088141125%_)) + (let ((_%e141089141128%_ (let () (declare (not safe)) (gx#stx-e - _%tl139956139993%_)))) - (let ((_%hd139958139999%_ + _%tl141088141125%_)))) + (let ((_%hd141090141131%_ (let () (declare (not safe)) - (##car _%e139957139996%_))) - (_%tl139959140001%_ + (##car _%e141089141128%_))) + (_%tl141091141133%_ (let () (declare (not safe)) - (##cdr _%e139957139996%_)))) + (##cdr _%e141089141128%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139959140001%_)) - (let ((_%e139960140004%_ + _%tl141091141133%_)) + (let ((_%e141092141136%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl139959140001%_)))) - (let ((_%hd139961140007%_ - (let () (declare (not safe)) (##car _%e139960140004%_))) - (_%tl139962140009%_ + (gx#stx-e _%tl141091141133%_)))) + (let ((_%hd141093141139%_ + (let () (declare (not safe)) (##car _%e141092141136%_))) + (_%tl141094141141%_ (let () (declare (not safe)) - (##cdr _%e139960140004%_)))) + (##cdr _%e141092141136%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139962140009%_)) - ((lambda (_%L140012%_ - _%L140013%_ - _%L140014%_ - _%L140015%_) + (gx#stx-null? _%tl141094141141%_)) + ((lambda (_%L141144%_ + _%L141145%_ + _%L141146%_ + _%L141147%_) (cons '##structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139939%_ - _%L140013%_)) + _%self141071%_ + _%L141145%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139939%_ - _%L140012%_)) + _%self141071%_ + _%L141144%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139939%_ - _%L140014%_)) + _%self141071%_ + _%L141146%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139939%_ - _%L140015%_)) + _%self141071%_ + _%L141147%_)) (cons ''#f '()))))))) - _%hd139961140007%_ - _%hd139958139999%_ - _%hd139955139991%_ - _%hd139952139983%_) - (_%g139942139967%_ _%g139943139970%_)))) - (_%g139942139967%_ _%g139943139970%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139942139967%_ - _%g139943139970%_)))) - (_%g139942139967%_ _%g139943139970%_)))) - (_%g139942139967%_ _%g139943139970%_)))) - (_%g139942139967%_ _%g139943139970%_))))) - (_%g139941140036%_ _%stx139940%_)))) + _%hd141093141139%_ + _%hd141090141131%_ + _%hd141087141123%_ + _%hd141084141115%_) + (_%g141074141099%_ _%g141075141102%_)))) + (_%g141074141099%_ _%g141075141102%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141074141099%_ + _%g141075141102%_)))) + (_%g141074141099%_ _%g141075141102%_)))) + (_%g141074141099%_ _%g141075141102%_)))) + (_%g141074141099%_ _%g141075141102%_))))) + (_%g141073141168%_ _%stx141072%_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_%self139855%_ _%stx139856%_) - (let* ((_%g139858139879%_ - (lambda (_%g139859139876%_) + (lambda (_%self140987%_ _%stx140988%_) + (let* ((_%g140990141011%_ + (lambda (_%g140991141008%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139859139876%_)))) - (_%g139857139936%_ - (lambda (_%g139859139882%_) + _%g140991141008%_)))) + (_%g140989141068%_ + (lambda (_%g140991141014%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139859139882%_)) - (let ((_%e139863139884%_ + (gx#stx-pair? _%g140991141014%_)) + (let ((_%e140995141016%_ (let () (declare (not safe)) - (gx#stx-e _%g139859139882%_)))) - (let ((_%hd139864139887%_ + (gx#stx-e _%g140991141014%_)))) + (let ((_%hd140996141019%_ (let () (declare (not safe)) - (##car _%e139863139884%_))) - (_%tl139865139889%_ + (##car _%e140995141016%_))) + (_%tl140997141021%_ (let () (declare (not safe)) - (##cdr _%e139863139884%_)))) + (##cdr _%e140995141016%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139865139889%_)) - (let ((_%e139866139892%_ + (gx#stx-pair? _%tl140997141021%_)) + (let ((_%e140998141024%_ (let () (declare (not safe)) - (gx#stx-e _%tl139865139889%_)))) - (let ((_%hd139867139895%_ + (gx#stx-e _%tl140997141021%_)))) + (let ((_%hd140999141027%_ (let () (declare (not safe)) - (##car _%e139866139892%_))) - (_%tl139868139897%_ + (##car _%e140998141024%_))) + (_%tl141000141029%_ (let () (declare (not safe)) - (##cdr _%e139866139892%_)))) + (##cdr _%e140998141024%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139868139897%_)) - (let ((_%e139869139900%_ + (gx#stx-pair? _%tl141000141029%_)) + (let ((_%e141001141032%_ (let () (declare (not safe)) - (gx#stx-e _%tl139868139897%_)))) - (let ((_%hd139870139903%_ + (gx#stx-e _%tl141000141029%_)))) + (let ((_%hd141002141035%_ (let () (declare (not safe)) - (##car _%e139869139900%_))) - (_%tl139871139905%_ + (##car _%e141001141032%_))) + (_%tl141003141037%_ (let () (declare (not safe)) - (##cdr _%e139869139900%_)))) + (##cdr _%e141001141032%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139871139905%_)) - (let ((_%e139872139908%_ + _%tl141003141037%_)) + (let ((_%e141004141040%_ (let () (declare (not safe)) (gx#stx-e - _%tl139871139905%_)))) - (let ((_%hd139873139911%_ + _%tl141003141037%_)))) + (let ((_%hd141005141043%_ (let () (declare (not safe)) - (##car _%e139872139908%_))) - (_%tl139874139913%_ + (##car _%e141004141040%_))) + (_%tl141006141045%_ (let () (declare (not safe)) - (##cdr _%e139872139908%_)))) + (##cdr _%e141004141040%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139874139913%_)) - ((lambda (_%L139916%_ - _%L139917%_ - _%L139918%_) + _%tl141006141045%_)) + ((lambda (_%L141048%_ + _%L141049%_ + _%L141050%_) (cons '##direct-structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self139855%_ _%L139916%_)) + (gxc#compile-e__1 _%self140987%_ _%L141048%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139855%_ - _%L139917%_)) + _%self140987%_ + _%L141049%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139855%_ - _%L139918%_)) + _%self140987%_ + _%L141050%_)) (cons ''#f '())))))) - _%hd139873139911%_ - _%hd139870139903%_ - _%hd139867139895%_) - (_%g139858139879%_ _%g139859139882%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139858139879%_ - _%g139859139882%_)))) - (_%g139858139879%_ _%g139859139882%_)))) - (_%g139858139879%_ _%g139859139882%_)))) - (_%g139858139879%_ _%g139859139882%_))))) - (_%g139857139936%_ _%stx139856%_)))) + _%hd141005141043%_ + _%hd141002141035%_ + _%hd140999141027%_) + (_%g140990141011%_ _%g140991141014%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g140990141011%_ + _%g140991141014%_)))) + (_%g140990141011%_ _%g140991141014%_)))) + (_%g140990141011%_ _%g140991141014%_)))) + (_%g140990141011%_ _%g140991141014%_))))) + (_%g140989141068%_ _%stx140988%_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_%self139755%_ _%stx139756%_) - (let* ((_%g139758139783%_ - (lambda (_%g139759139780%_) + (lambda (_%self140887%_ _%stx140888%_) + (let* ((_%g140890140915%_ + (lambda (_%g140891140912%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139759139780%_)))) - (_%g139757139852%_ - (lambda (_%g139759139786%_) + _%g140891140912%_)))) + (_%g140889140984%_ + (lambda (_%g140891140918%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139759139786%_)) - (let ((_%e139764139788%_ + (gx#stx-pair? _%g140891140918%_)) + (let ((_%e140896140920%_ (let () (declare (not safe)) - (gx#stx-e _%g139759139786%_)))) - (let ((_%hd139765139791%_ + (gx#stx-e _%g140891140918%_)))) + (let ((_%hd140897140923%_ (let () (declare (not safe)) - (##car _%e139764139788%_))) - (_%tl139766139793%_ + (##car _%e140896140920%_))) + (_%tl140898140925%_ (let () (declare (not safe)) - (##cdr _%e139764139788%_)))) + (##cdr _%e140896140920%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139766139793%_)) - (let ((_%e139767139796%_ + (gx#stx-pair? _%tl140898140925%_)) + (let ((_%e140899140928%_ (let () (declare (not safe)) - (gx#stx-e _%tl139766139793%_)))) - (let ((_%hd139768139799%_ + (gx#stx-e _%tl140898140925%_)))) + (let ((_%hd140900140931%_ (let () (declare (not safe)) - (##car _%e139767139796%_))) - (_%tl139769139801%_ + (##car _%e140899140928%_))) + (_%tl140901140933%_ (let () (declare (not safe)) - (##cdr _%e139767139796%_)))) + (##cdr _%e140899140928%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139769139801%_)) - (let ((_%e139770139804%_ + (gx#stx-pair? _%tl140901140933%_)) + (let ((_%e140902140936%_ (let () (declare (not safe)) - (gx#stx-e _%tl139769139801%_)))) - (let ((_%hd139771139807%_ + (gx#stx-e _%tl140901140933%_)))) + (let ((_%hd140903140939%_ (let () (declare (not safe)) - (##car _%e139770139804%_))) - (_%tl139772139809%_ + (##car _%e140902140936%_))) + (_%tl140904140941%_ (let () (declare (not safe)) - (##cdr _%e139770139804%_)))) + (##cdr _%e140902140936%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139772139809%_)) - (let ((_%e139773139812%_ + _%tl140904140941%_)) + (let ((_%e140905140944%_ (let () (declare (not safe)) (gx#stx-e - _%tl139772139809%_)))) - (let ((_%hd139774139815%_ + _%tl140904140941%_)))) + (let ((_%hd140906140947%_ (let () (declare (not safe)) - (##car _%e139773139812%_))) - (_%tl139775139817%_ + (##car _%e140905140944%_))) + (_%tl140907140949%_ (let () (declare (not safe)) - (##cdr _%e139773139812%_)))) + (##cdr _%e140905140944%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139775139817%_)) - (let ((_%e139776139820%_ + _%tl140907140949%_)) + (let ((_%e140908140952%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl139775139817%_)))) - (let ((_%hd139777139823%_ - (let () (declare (not safe)) (##car _%e139776139820%_))) - (_%tl139778139825%_ + (gx#stx-e _%tl140907140949%_)))) + (let ((_%hd140909140955%_ + (let () (declare (not safe)) (##car _%e140908140952%_))) + (_%tl140910140957%_ (let () (declare (not safe)) - (##cdr _%e139776139820%_)))) + (##cdr _%e140908140952%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139778139825%_)) - ((lambda (_%L139828%_ - _%L139829%_ - _%L139830%_ - _%L139831%_) + (gx#stx-null? _%tl140910140957%_)) + ((lambda (_%L140960%_ + _%L140961%_ + _%L140962%_ + _%L140963%_) (cons '##direct-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139755%_ - _%L139829%_)) + _%self140887%_ + _%L140961%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139755%_ - _%L139828%_)) + _%self140887%_ + _%L140960%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139755%_ - _%L139830%_)) + _%self140887%_ + _%L140962%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139755%_ - _%L139831%_)) + _%self140887%_ + _%L140963%_)) (cons ''#f '()))))))) - _%hd139777139823%_ - _%hd139774139815%_ - _%hd139771139807%_ - _%hd139768139799%_) - (_%g139758139783%_ _%g139759139786%_)))) - (_%g139758139783%_ _%g139759139786%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139758139783%_ - _%g139759139786%_)))) - (_%g139758139783%_ _%g139759139786%_)))) - (_%g139758139783%_ _%g139759139786%_)))) - (_%g139758139783%_ _%g139759139786%_))))) - (_%g139757139852%_ _%stx139756%_)))) + _%hd140909140955%_ + _%hd140906140947%_ + _%hd140903140939%_ + _%hd140900140931%_) + (_%g140890140915%_ _%g140891140918%_)))) + (_%g140890140915%_ _%g140891140918%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g140890140915%_ + _%g140891140918%_)))) + (_%g140890140915%_ _%g140891140918%_)))) + (_%g140890140915%_ _%g140891140918%_)))) + (_%g140890140915%_ _%g140891140918%_))))) + (_%g140889140984%_ _%stx140888%_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_%self139550%_ _%stx139551%_) - (let* ((_%g139553139574%_ - (lambda (_%g139554139571%_) + (lambda (_%self140682%_ _%stx140683%_) + (let* ((_%g140685140706%_ + (lambda (_%g140686140703%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139554139571%_)))) - (_%g139552139752%_ - (lambda (_%g139554139577%_) + _%g140686140703%_)))) + (_%g140684140884%_ + (lambda (_%g140686140709%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139554139577%_)) - (let ((_%e139558139579%_ + (gx#stx-pair? _%g140686140709%_)) + (let ((_%e140690140711%_ (let () (declare (not safe)) - (gx#stx-e _%g139554139577%_)))) - (let ((_%hd139559139582%_ + (gx#stx-e _%g140686140709%_)))) + (let ((_%hd140691140714%_ (let () (declare (not safe)) - (##car _%e139558139579%_))) - (_%tl139560139584%_ + (##car _%e140690140711%_))) + (_%tl140692140716%_ (let () (declare (not safe)) - (##cdr _%e139558139579%_)))) + (##cdr _%e140690140711%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139560139584%_)) - (let ((_%e139561139587%_ + (gx#stx-pair? _%tl140692140716%_)) + (let ((_%e140693140719%_ (let () (declare (not safe)) - (gx#stx-e _%tl139560139584%_)))) - (let ((_%hd139562139590%_ + (gx#stx-e _%tl140692140716%_)))) + (let ((_%hd140694140722%_ (let () (declare (not safe)) - (##car _%e139561139587%_))) - (_%tl139563139592%_ + (##car _%e140693140719%_))) + (_%tl140695140724%_ (let () (declare (not safe)) - (##cdr _%e139561139587%_)))) + (##cdr _%e140693140719%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139563139592%_)) - (let ((_%e139564139595%_ + (gx#stx-pair? _%tl140695140724%_)) + (let ((_%e140696140727%_ (let () (declare (not safe)) - (gx#stx-e _%tl139563139592%_)))) - (let ((_%hd139565139598%_ + (gx#stx-e _%tl140695140724%_)))) + (let ((_%hd140697140730%_ (let () (declare (not safe)) - (##car _%e139564139595%_))) - (_%tl139566139600%_ + (##car _%e140696140727%_))) + (_%tl140698140732%_ (let () (declare (not safe)) - (##cdr _%e139564139595%_)))) + (##cdr _%e140696140727%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139566139600%_)) - (let ((_%e139567139603%_ + _%tl140698140732%_)) + (let ((_%e140699140735%_ (let () (declare (not safe)) (gx#stx-e - _%tl139566139600%_)))) - (let ((_%hd139568139606%_ + _%tl140698140732%_)))) + (let ((_%hd140700140738%_ (let () (declare (not safe)) - (##car _%e139567139603%_))) - (_%tl139569139608%_ + (##car _%e140699140735%_))) + (_%tl140701140740%_ (let () (declare (not safe)) - (##cdr _%e139567139603%_)))) + (##cdr _%e140699140735%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139569139608%_)) - ((lambda (_%L139611%_ - _%L139612%_ - _%L139613%_) + _%tl140701140740%_)) + ((lambda (_%L140743%_ + _%L140744%_ + _%L140745%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139550%_ - _%L139611%_)) + _%self140682%_ + _%L140743%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139550%_ - _%L139612%_)) + _%self140682%_ + _%L140744%_)) (cons ''#f (cons ''#f '()))))) - (let _%lp139631%_ ((_%rest139634%_ - (cons _%L139612%_ - (cons _%L139611%_ '()))) - (_%bind139636%_ '()) - (_%args139637%_ '())) - (let* ((_%rest139638139646%_ _%rest139634%_) - (_%else139640139654%_ + (let _%lp140763%_ ((_%rest140766%_ + (cons _%L140744%_ + (cons _%L140743%_ '()))) + (_%bind140768%_ '()) + (_%args140769%_ '())) + (let* ((_%rest140770140778%_ _%rest140766%_) + (_%else140772140786%_ (lambda () (cons 'let - (cons _%bind139636%_ + (cons _%bind140768%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-ref - (let ((__tmp147859 + (let ((__tmp148991 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp147859 _%args139637%_))) + (__foldr1 cons __tmp148991 _%args140769%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K139642139740%_ - (lambda (_%rest139657%_ _%e139658%_) - (let* ((_%__stx147496147497%_ _%e139658%_) - (_%g139663139681%_ + (_%K140774140872%_ + (lambda (_%rest140789%_ _%e140790%_) + (let* ((_%__stx148628148629%_ _%e140790%_) + (_%g140795140813%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147496147497%_))))) - (let ((_%__kont147498147499%_ + _%__stx148628148629%_))))) + (let ((_%__kont148630148631%_ (lambda () - (_%lp139631%_ - _%rest139657%_ - _%bind139636%_ + (_%lp140763%_ + _%rest140789%_ + _%bind140768%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e139658%_)) - _%args139637%_)))) - (_%__kont147500147501%_ + _%e140790%_)) + _%args140769%_)))) + (_%__kont148632148633%_ (lambda () - (_%lp139631%_ - _%rest139657%_ - _%bind139636%_ + (_%lp140763%_ + _%rest140789%_ + _%bind140768%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e139658%_)) - _%args139637%_)))) - (_%__kont147502147503%_ + _%e140790%_)) + _%args140769%_)))) + (_%__kont148634148635%_ (lambda () - (let ((_%tmp139688%_ - (let ((__tmp147860 + (let ((_%tmp140820%_ + (let ((__tmp148992 (let () (declare (not safe)) @@ -11723,1586 +11572,1578 @@ '__tmp)))) (declare (not safe)) (make-symbol__0 - __tmp147860)))) - (_%lp139631%_ - _%rest139657%_ - (cons (cons _%tmp139688%_ + __tmp148992)))) + (_%lp140763%_ + _%rest140789%_ + (cons (cons _%tmp140820%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e139658%_)) + (gxc#compile-e__0 _%e140790%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind139636%_) - (cons _%tmp139688%_ - _%args139637%_)))))) + _%bind140768%_) + (cons _%tmp140820%_ + _%args140769%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx147496147497%_)) - (let ((_%e139665139719%_ + _%__stx148628148629%_)) + (let ((_%e140797140851%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147496147497%_)))) - (let ((_%tl139667139724%_ + _%__stx148628148629%_)))) + (let ((_%tl140799140856%_ (let () (declare (not safe)) - (##cdr _%e139665139719%_))) - (_%hd139666139722%_ + (##cdr _%e140797140851%_))) + (_%hd140798140854%_ (let () (declare (not safe)) - (##car _%e139665139719%_)))) + (##car _%e140797140851%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd139666139722%_)) + _%hd140798140854%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd139666139722%_)) + _%hd140798140854%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139667139724%_)) - (let ((_%e139668139727%_ + _%tl140799140856%_)) + (let ((_%e140800140859%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl139667139724%_)))) - (let ((_%tl139670139732%_ + (gx#stx-e _%tl140799140856%_)))) + (let ((_%tl140802140864%_ (let () (declare (not safe)) - (##cdr _%e139668139727%_))) - (_%hd139669139730%_ + (##cdr _%e140800140859%_))) + (_%hd140801140862%_ (let () (declare (not safe)) - (##car _%e139668139727%_)))) + (##car _%e140800140859%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139670139732%_)) - (_%__kont147498147499%_) - (_%__kont147502147503%_)))) - (_%__kont147502147503%_)) + (gx#stx-null? _%tl140802140864%_)) + (_%__kont148630148631%_) + (_%__kont148634148635%_)))) + (_%__kont148634148635%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd139666139722%_)) + _%hd140798140854%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl139667139724%_)) - (let ((_%e139674139704%_ + (gx#stx-pair? _%tl140799140856%_)) + (let ((_%e140806140836%_ (let () (declare (not safe)) - (gx#stx-e _%tl139667139724%_)))) - (let ((_%tl139676139709%_ + (gx#stx-e _%tl140799140856%_)))) + (let ((_%tl140808140841%_ (let () (declare (not safe)) - (##cdr _%e139674139704%_))) - (_%hd139675139707%_ + (##cdr _%e140806140836%_))) + (_%hd140807140839%_ (let () (declare (not safe)) - (##car _%e139674139704%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl139676139709%_)) - (_%__kont147500147501%_) - (_%__kont147502147503%_)))) - (_%__kont147502147503%_)) - (_%__kont147502147503%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147502147503%_)))) - (_%__kont147502147503%_))))))) + (##car _%e140806140836%_)))) (if (let () (declare (not safe)) - (##pair? _%rest139638139646%_)) - (let ((_%hd139643139743%_ + (gx#stx-null? _%tl140808140841%_)) + (_%__kont148632148633%_) + (_%__kont148634148635%_)))) + (_%__kont148634148635%_)) + (_%__kont148634148635%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148634148635%_)))) + (_%__kont148634148635%_))))))) + (if (pair? _%rest140770140778%_) + (let ((_%hd140775140875%_ (let () (declare (not safe)) - (##car _%rest139638139646%_))) - (_%tl139644139745%_ + (##car _%rest140770140778%_))) + (_%tl140776140877%_ (let () (declare (not safe)) - (##cdr _%rest139638139646%_)))) - (let* ((_%e139748%_ _%hd139643139743%_) - (_%rest139750%_ _%tl139644139745%_)) - (_%K139642139740%_ - _%rest139750%_ - _%e139748%_))) - (_%else139640139654%_)))))) - _%hd139568139606%_ - _%hd139565139598%_ - _%hd139562139590%_) - (_%g139553139574%_ _%g139554139577%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139553139574%_ - _%g139554139577%_)))) - (_%g139553139574%_ _%g139554139577%_)))) - (_%g139553139574%_ _%g139554139577%_)))) - (_%g139553139574%_ _%g139554139577%_))))) - (_%g139552139752%_ _%stx139551%_)))) + (##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%_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_%self139329%_ _%stx139330%_) - (let* ((_%g139332139357%_ - (lambda (_%g139333139354%_) + (lambda (_%self140461%_ _%stx140462%_) + (let* ((_%g140464140489%_ + (lambda (_%g140465140486%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139333139354%_)))) - (_%g139331139547%_ - (lambda (_%g139333139360%_) + _%g140465140486%_)))) + (_%g140463140679%_ + (lambda (_%g140465140492%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139333139360%_)) - (let ((_%e139338139362%_ + (gx#stx-pair? _%g140465140492%_)) + (let ((_%e140470140494%_ (let () (declare (not safe)) - (gx#stx-e _%g139333139360%_)))) - (let ((_%hd139339139365%_ + (gx#stx-e _%g140465140492%_)))) + (let ((_%hd140471140497%_ (let () (declare (not safe)) - (##car _%e139338139362%_))) - (_%tl139340139367%_ + (##car _%e140470140494%_))) + (_%tl140472140499%_ (let () (declare (not safe)) - (##cdr _%e139338139362%_)))) + (##cdr _%e140470140494%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139340139367%_)) - (let ((_%e139341139370%_ + (gx#stx-pair? _%tl140472140499%_)) + (let ((_%e140473140502%_ (let () (declare (not safe)) - (gx#stx-e _%tl139340139367%_)))) - (let ((_%hd139342139373%_ + (gx#stx-e _%tl140472140499%_)))) + (let ((_%hd140474140505%_ (let () (declare (not safe)) - (##car _%e139341139370%_))) - (_%tl139343139375%_ + (##car _%e140473140502%_))) + (_%tl140475140507%_ (let () (declare (not safe)) - (##cdr _%e139341139370%_)))) + (##cdr _%e140473140502%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139343139375%_)) - (let ((_%e139344139378%_ + (gx#stx-pair? _%tl140475140507%_)) + (let ((_%e140476140510%_ (let () (declare (not safe)) - (gx#stx-e _%tl139343139375%_)))) - (let ((_%hd139345139381%_ + (gx#stx-e _%tl140475140507%_)))) + (let ((_%hd140477140513%_ (let () (declare (not safe)) - (##car _%e139344139378%_))) - (_%tl139346139383%_ + (##car _%e140476140510%_))) + (_%tl140478140515%_ (let () (declare (not safe)) - (##cdr _%e139344139378%_)))) + (##cdr _%e140476140510%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139346139383%_)) - (let ((_%e139347139386%_ + _%tl140478140515%_)) + (let ((_%e140479140518%_ (let () (declare (not safe)) (gx#stx-e - _%tl139346139383%_)))) - (let ((_%hd139348139389%_ + _%tl140478140515%_)))) + (let ((_%hd140480140521%_ (let () (declare (not safe)) - (##car _%e139347139386%_))) - (_%tl139349139391%_ + (##car _%e140479140518%_))) + (_%tl140481140523%_ (let () (declare (not safe)) - (##cdr _%e139347139386%_)))) + (##cdr _%e140479140518%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139349139391%_)) - (let ((_%e139350139394%_ + _%tl140481140523%_)) + (let ((_%e140482140526%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl139349139391%_)))) - (let ((_%hd139351139397%_ - (let () (declare (not safe)) (##car _%e139350139394%_))) - (_%tl139352139399%_ + (gx#stx-e _%tl140481140523%_)))) + (let ((_%hd140483140529%_ + (let () (declare (not safe)) (##car _%e140482140526%_))) + (_%tl140484140531%_ (let () (declare (not safe)) - (##cdr _%e139350139394%_)))) + (##cdr _%e140482140526%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139352139399%_)) - ((lambda (_%L139402%_ - _%L139403%_ - _%L139404%_ - _%L139405%_) + (gx#stx-null? _%tl140484140531%_)) + ((lambda (_%L140534%_ + _%L140535%_ + _%L140536%_ + _%L140537%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139329%_ - _%L139403%_)) + _%self140461%_ + _%L140535%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139329%_ - _%L139402%_)) + _%self140461%_ + _%L140534%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139329%_ - _%L139404%_)) + _%self140461%_ + _%L140536%_)) (cons ''#f (cons ''#f '())))))) - (let _%lp139426%_ ((_%rest139429%_ - (cons _%L139404%_ - (cons _%L139402%_ - (cons _%L139403%_ + (let _%lp140558%_ ((_%rest140561%_ + (cons _%L140536%_ + (cons _%L140534%_ + (cons _%L140535%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind139431%_ '()) - (_%args139432%_ '())) - (let* ((_%rest139433139441%_ _%rest139429%_) - (_%else139435139449%_ + (_%bind140563%_ '()) + (_%args140564%_ '())) + (let* ((_%rest140565140573%_ _%rest140561%_) + (_%else140567140581%_ (lambda () (cons 'let - (cons _%bind139431%_ + (cons _%bind140563%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp147861 (cons ''#f (cons ''#f '())))) + (let ((__tmp148993 (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp147861 _%args139432%_))) + (__foldr1 cons __tmp148993 _%args140564%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K139437139535%_ - (lambda (_%rest139452%_ _%e139453%_) - (let* ((_%__stx147542147543%_ - _%e139453%_) - (_%g139458139476%_ + (_%K140569140667%_ + (lambda (_%rest140584%_ _%e140585%_) + (let* ((_%__stx148674148675%_ + _%e140585%_) + (_%g140590140608%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147542147543%_))))) - (let ((_%__kont147544147545%_ + _%__stx148674148675%_))))) + (let ((_%__kont148676148677%_ (lambda () - (_%lp139426%_ - _%rest139452%_ - _%bind139431%_ + (_%lp140558%_ + _%rest140584%_ + _%bind140563%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e139453%_)) - _%args139432%_)))) - (_%__kont147546147547%_ + _%e140585%_)) + _%args140564%_)))) + (_%__kont148678148679%_ (lambda () - (_%lp139426%_ - _%rest139452%_ - _%bind139431%_ + (_%lp140558%_ + _%rest140584%_ + _%bind140563%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e139453%_)) - _%args139432%_)))) - (_%__kont147548147549%_ + _%e140585%_)) + _%args140564%_)))) + (_%__kont148680148681%_ (lambda () - (let ((_%tmp139483%_ - (let ((__tmp147862 + (let ((_%tmp140615%_ + (let ((__tmp148994 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp147862)))) - (_%lp139426%_ - _%rest139452%_ - (cons (cons _%tmp139483%_ + (make-symbol__0 __tmp148994)))) + (_%lp140558%_ + _%rest140584%_ + (cons (cons _%tmp140615%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e139453%_)) + (gxc#compile-e__0 _%e140585%_)) '())) - _%bind139431%_) - (cons _%tmp139483%_ _%args139432%_)))))) + _%bind140563%_) + (cons _%tmp140615%_ _%args140564%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx147542147543%_)) - (let ((_%e139460139514%_ + _%__stx148674148675%_)) + (let ((_%e140592140646%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147542147543%_)))) - (let ((_%tl139462139519%_ + _%__stx148674148675%_)))) + (let ((_%tl140594140651%_ (let () (declare (not safe)) - (##cdr _%e139460139514%_))) - (_%hd139461139517%_ + (##cdr _%e140592140646%_))) + (_%hd140593140649%_ (let () (declare (not safe)) - (##car _%e139460139514%_)))) + (##car _%e140592140646%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd139461139517%_)) + _%hd140593140649%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd139461139517%_)) + (gx#stx-eq? '%#ref _%hd140593140649%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139462139519%_)) - (let ((_%e139463139522%_ + (gx#stx-pair? _%tl140594140651%_)) + (let ((_%e140595140654%_ (let () (declare (not safe)) - (gx#stx-e _%tl139462139519%_)))) - (let ((_%tl139465139527%_ + (gx#stx-e _%tl140594140651%_)))) + (let ((_%tl140597140659%_ (let () (declare (not safe)) - (##cdr _%e139463139522%_))) - (_%hd139464139525%_ + (##cdr _%e140595140654%_))) + (_%hd140596140657%_ (let () (declare (not safe)) - (##car _%e139463139522%_)))) + (##car _%e140595140654%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139465139527%_)) - (_%__kont147544147545%_) - (_%__kont147548147549%_)))) - (_%__kont147548147549%_)) + (gx#stx-null? _%tl140597140659%_)) + (_%__kont148676148677%_) + (_%__kont148680148681%_)))) + (_%__kont148680148681%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd139461139517%_)) + (gx#stx-eq? '%#quote _%hd140593140649%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139462139519%_)) - (let ((_%e139469139499%_ + (gx#stx-pair? _%tl140594140651%_)) + (let ((_%e140601140631%_ (let () (declare (not safe)) - (gx#stx-e _%tl139462139519%_)))) - (let ((_%tl139471139504%_ + (gx#stx-e _%tl140594140651%_)))) + (let ((_%tl140603140636%_ (let () (declare (not safe)) - (##cdr _%e139469139499%_))) - (_%hd139470139502%_ + (##cdr _%e140601140631%_))) + (_%hd140602140634%_ (let () (declare (not safe)) - (##car _%e139469139499%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl139471139504%_)) - (_%__kont147546147547%_) - (_%__kont147548147549%_)))) - (_%__kont147548147549%_)) - (_%__kont147548147549%_))) - (_%__kont147548147549%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147548147549%_))))))) + (##car _%e140601140631%_)))) (if (let () (declare (not safe)) - (##pair? _%rest139433139441%_)) - (let ((_%hd139438139538%_ + (gx#stx-null? _%tl140603140636%_)) + (_%__kont148678148679%_) + (_%__kont148680148681%_)))) + (_%__kont148680148681%_)) + (_%__kont148680148681%_))) + (_%__kont148680148681%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148680148681%_))))))) + (if (pair? _%rest140565140573%_) + (let ((_%hd140570140670%_ (let () (declare (not safe)) - (##car _%rest139433139441%_))) - (_%tl139439139540%_ + (##car _%rest140565140573%_))) + (_%tl140571140672%_ (let () (declare (not safe)) - (##cdr _%rest139433139441%_)))) - (let* ((_%e139543%_ _%hd139438139538%_) - (_%rest139545%_ - _%tl139439139540%_)) - (_%K139437139535%_ - _%rest139545%_ - _%e139543%_))) - (_%else139435139449%_)))))) - _%hd139351139397%_ - _%hd139348139389%_ - _%hd139345139381%_ - _%hd139342139373%_) - (_%g139332139357%_ _%g139333139360%_)))) - (_%g139332139357%_ _%g139333139360%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139332139357%_ - _%g139333139360%_)))) - (_%g139332139357%_ _%g139333139360%_)))) - (_%g139332139357%_ _%g139333139360%_)))) - (_%g139332139357%_ _%g139333139360%_))))) - (_%g139331139547%_ _%stx139330%_)))) + (##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%_)))) (define gxc#generate-runtime-loader-import% - (lambda (_%self139168%_ _%stx139169%_) - (letrec ((_%import-set-template139171%_ - (lambda (_%in139274%_ _%phi139275%_) - (let ((_%iphi139277%_ - (fx+ _%phi139275%_ + (lambda (_%self140300%_ _%stx140301%_) + (letrec ((_%import-set-template140303%_ + (lambda (_%in140406%_ _%phi140407%_) + (let ((_%iphi140409%_ + (fx+ _%phi140407%_ (##direct-structure-ref - _%in139274%_ + _%in140406%_ '2 gx#import-set::t '#f))) - (_%imports139278%_ + (_%imports140410%_ (##structure-ref (##direct-structure-ref - _%in139274%_ + _%in140406%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp139280%_ ((_%rest139282%_ _%imports139278%_) - (_%r139283%_ '())) - (let* ((_%rest139284139292%_ _%rest139282%_) - (_%else139286139300%_ (lambda () _%r139283%_)) - (_%K139288139317%_ - (lambda (_%rest139303%_ _%in139304%_) + (let _%lp140412%_ ((_%rest140414%_ _%imports140410%_) + (_%r140415%_ '())) + (let* ((_%rest140416140424%_ _%rest140414%_) + (_%else140418140432%_ (lambda () _%r140415%_)) + (_%K140420140449%_ + (lambda (_%rest140435%_ _%in140436%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in139304%_ + _%in140436%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi139277%_)) - (_%lp139280%_ - _%rest139303%_ - (cons _%in139304%_ _%r139283%_)) - (_%lp139280%_ - _%rest139303%_ - _%r139283%_)) + (##fxzero? _%iphi140409%_)) + (_%lp140412%_ + _%rest140435%_ + (cons _%in140436%_ _%r140415%_)) + (_%lp140412%_ + _%rest140435%_ + _%r140415%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139304%_ + _%in140436%_ 'gx#module-import::t)) - (let ((_%iphi139308%_ - (fx+ _%phi139275%_ + (let ((_%iphi140440%_ + (fx+ _%phi140407%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139304%_ + _%in140436%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi139308%_)) - (_%lp139280%_ - _%rest139303%_ + (##fxzero? _%iphi140440%_)) + (_%lp140412%_ + _%rest140435%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in139304%_ + _%in140436%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r139283%_)) - (_%lp139280%_ - _%rest139303%_ - _%r139283%_))) + _%r140415%_)) + (_%lp140412%_ + _%rest140435%_ + _%r140415%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139304%_ + _%in140436%_ 'gx#import-set::t)) - (let ((_%xphi139311%_ - (fx+ _%iphi139277%_ + (let ((_%xphi140443%_ + (fx+ _%iphi140409%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139304%_ + _%in140436%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi139311%_)) - (_%lp139280%_ - _%rest139303%_ + _%xphi140443%_)) + (_%lp140412%_ + _%rest140435%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in139304%_ + _%in140436%_ '1 '#f '#f)) - _%r139283%_)) + _%r140415%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi139311%_)) - (_%lp139280%_ - _%rest139303%_ - (let ((__tmp147863 - (_%import-set-template139171%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in139304%_ - _%iphi139277%_))) + _%xphi140443%_)) + (_%lp140412%_ + _%rest140435%_ + (let ((__tmp148995 + (_%import-set-template140303%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%in140436%_ + _%iphi140409%_))) (declare (not safe)) - (__foldl1 cons _%r139283%_ __tmp147863))) - (_%lp139280%_ _%rest139303%_ _%r139283%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp139280%_ - _%rest139303%_ - _%r139283%_))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest139284139292%_)) - (let ((_%hd139289139320%_ + (__foldl1 cons _%r140415%_ __tmp148995))) + (_%lp140412%_ _%rest140435%_ _%r140415%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp140412%_ + _%rest140435%_ + _%r140415%_))))))) + (if (pair? _%rest140416140424%_) + (let ((_%hd140421140452%_ (let () (declare (not safe)) - (##car _%rest139284139292%_))) - (_%tl139290139322%_ + (##car _%rest140416140424%_))) + (_%tl140422140454%_ (let () (declare (not safe)) - (##cdr _%rest139284139292%_)))) - (let* ((_%in139325%_ _%hd139289139320%_) - (_%rest139327%_ _%tl139290139322%_)) - (_%K139288139317%_ - _%rest139327%_ - _%in139325%_))) - (_%else139286139300%_)))))))) - (let* ((_%g139173139183%_ - (lambda (_%g139174139180%_) + (##cdr _%rest140416140424%_)))) + (let* ((_%in140457%_ _%hd140421140452%_) + (_%rest140459%_ _%tl140422140454%_)) + (_%K140420140449%_ + _%rest140459%_ + _%in140457%_))) + (_%else140418140432%_)))))))) + (let* ((_%g140305140315%_ + (lambda (_%g140306140312%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139174139180%_)))) - (_%g139172139271%_ - (lambda (_%g139174139186%_) + _%g140306140312%_)))) + (_%g140304140403%_ + (lambda (_%g140306140318%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139174139186%_)) - (let ((_%e139176139188%_ + (gx#stx-pair? _%g140306140318%_)) + (let ((_%e140308140320%_ (let () (declare (not safe)) - (gx#stx-e _%g139174139186%_)))) - (let ((_%hd139177139191%_ + (gx#stx-e _%g140306140318%_)))) + (let ((_%hd140309140323%_ (let () (declare (not safe)) - (##car _%e139176139188%_))) - (_%tl139178139193%_ + (##car _%e140308140320%_))) + (_%tl140310140325%_ (let () (declare (not safe)) - (##cdr _%e139176139188%_)))) - ((lambda (_%L139196%_) - (let ((_%ht139207%_ + (##cdr _%e140308140320%_)))) + ((lambda (_%L140328%_) + (let ((_%ht140339%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let _%lp139209%_ ((_%rest139211%_ - _%L139196%_) - (_%loads139212%_ '())) - (letrec ((_%K139214%_ - (lambda (_%ctx139264%_ - _%rest139265%_) - (let ((_%id139267%_ + (let _%lp140341%_ ((_%rest140343%_ + _%L140328%_) + (_%loads140344%_ '())) + (letrec ((_%K140346%_ + (lambda (_%ctx140396%_ + _%rest140397%_) + (let ((_%id140399%_ (##structure-ref - _%ctx139264%_ + _%ctx140396%_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (__hash-get - _%ht139207%_ - _%id139267%_)) - (_%lp139209%_ - _%rest139265%_ - _%loads139212%_) - (let ((_%rt139269%_ + _%ht140339%_ + _%id140399%_)) + (_%lp140341%_ + _%rest140397%_ + _%loads140344%_) + (let ((_%rt140401%_ (let () (declare (not safe)) (gxc#module-id->path-string - _%id139267%_)))) + _%id140399%_)))) (let () (declare (not safe)) (__hash-put! - _%ht139207%_ - _%id139267%_ - _%rt139269%_)) - (_%lp139209%_ - _%rest139265%_ - (cons _%rt139269%_ - _%loads139212%_)))))))) - (let* ((_%rest139215139223%_ - _%rest139211%_) - (_%else139217139235%_ + _%ht140339%_ + _%id140399%_ + _%rt140401%_)) + (_%lp140341%_ + _%rest140397%_ + (cons _%rt140401%_ + _%loads140344%_)))))))) + (let* ((_%rest140347140355%_ + _%rest140343%_) + (_%else140349140367%_ (lambda () (cons 'begin - (let ((__tmp147865 - (lambda (_%g139230139232%_) + (let ((__tmp148997 + (lambda (_%g140362140364%_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g139230139232%_))) - (__tmp147864 (reverse _%loads139212%_))) + _%g140362140364%_))) + (__tmp148996 (reverse _%loads140344%_))) (declare (not safe)) - (##map __tmp147865 __tmp147864))))) + (##map __tmp148997 __tmp148996))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K139219139252%_ - (lambda (_%rest139238%_ - _%in139239%_) + (_%K140351140384%_ + (lambda (_%rest140370%_ + _%in140371%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in139239%_ + _%in140371%_ 'gx#module-context::t)) - (_%K139214%_ - _%in139239%_ - _%rest139238%_) + (_%K140346%_ + _%in140371%_ + _%rest140370%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139239%_ + _%in140371%_ 'gx#module-import::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%in139239%_ + _%in140371%_ '3 '#f '#f))) - (_%K139214%_ + (_%K140346%_ (##direct-structure-ref (let () (declare (not safe)) - (##unchecked-structure-ref _%in139239%_ '1 '#f '#f)) + (##unchecked-structure-ref _%in140371%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%rest139238%_) - (_%lp139209%_ _%rest139238%_ _%loads139212%_)) + _%rest140370%_) + (_%lp140341%_ _%rest140370%_ _%loads140344%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139239%_ + _%in140371%_ 'gx#import-set::t)) - (let ((_%phi139244%_ + (let ((_%phi140376%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139239%_ + _%in140371%_ '2 '#f '#f)))) - (if (fxzero? _%phi139244%_) - (_%K139214%_ + (if (fxzero? _%phi140376%_) + (_%K140346%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139239%_ + _%in140371%_ '1 '#f '#f)) - _%rest139238%_) - (if (fxpositive? _%phi139244%_) - (let ((_%deps139248%_ - (_%import-set-template139171%_ - _%in139239%_ + _%rest140370%_) + (if (fxpositive? _%phi140376%_) + (let ((_%deps140380%_ + (_%import-set-template140303%_ + _%in140371%_ '0))) - (_%lp139209%_ + (_%lp140341%_ (let () (declare (not safe)) (__foldl1 cons - _%rest139238%_ - _%deps139248%_)) - _%loads139212%_)) - (_%lp139209%_ _%rest139238%_ _%loads139212%_)))) + _%rest140370%_ + _%deps140380%_)) + _%loads140344%_)) + (_%lp140341%_ _%rest140370%_ _%loads140344%_)))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _%stx139169%_ - _%in139239%_)))))))) + _%stx140301%_ + _%in140371%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%rest139215139223%_)) - (let ((_%hd139220139255%_ + (if (pair? _%rest140347140355%_) + (let ((_%hd140352140387%_ (let () (declare (not safe)) - (##car _%rest139215139223%_))) - (_%tl139221139257%_ + (##car _%rest140347140355%_))) + (_%tl140353140389%_ (let () (declare (not safe)) - (##cdr _%rest139215139223%_)))) - (let* ((_%in139260%_ - _%hd139220139255%_) - (_%rest139262%_ - _%tl139221139257%_)) - (_%K139219139252%_ - _%rest139262%_ - _%in139260%_))) - (_%else139217139235%_))))))) - _%tl139178139193%_))) - (_%g139173139183%_ _%g139174139186%_))))) - (_%g139172139271%_ _%stx139169%_))))) + (##cdr _%rest140347140355%_)))) + (let* ((_%in140392%_ + _%hd140352140387%_) + (_%rest140394%_ + _%tl140353140389%_)) + (_%K140351140384%_ + _%rest140394%_ + _%in140392%_))) + (_%else140349140367%_))))))) + _%tl140310140325%_))) + (_%g140305140315%_ _%g140306140318%_))))) + (_%g140304140403%_ _%stx140301%_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_%self138981%_ _%stx138982%_) - (letrec ((_%add-lift!138984%_ - (lambda (_%expr139166%_) + (lambda (_%self140113%_ _%stx140114%_) + (letrec ((_%add-lift!140116%_ + (lambda (_%expr140298%_) (set-box! (let () (declare (not safe)) (gxc#current-compile-lift)) - (cons _%expr139166%_ + (cons _%expr140298%_ (unbox (let () (declare (not safe)) (gxc#current-compile-lift))))))) - (_%generate-syntax-quote138985%_ - (lambda (_%id139163%_ _%marks139164%_) + (_%generate-syntax-quote140117%_ + (lambda (_%id140295%_ _%marks140296%_) (cons '##structure (cons 'gx#syntax-quote::t - (cons (cons 'quote (cons _%id139163%_ '())) + (cons (cons 'quote (cons _%id140295%_ '())) (cons '#f (cons '(gx#current-expander-context) - (cons _%marks139164%_ + (cons _%marks140296%_ '())))))))) - (_%generate-simple138986%_ - (lambda (_%stxq139158%_) - (let ((_%gid139160%_ + (_%generate-simple140118%_ + (lambda (_%stxq140290%_) + (let ((_%gid140292%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid139161%_ - (gxc#generate-runtime-identifier _%stxq139158%_))) - (_%add-lift!138984%_ + (_%qid140293%_ + (gxc#generate-runtime-identifier _%stxq140290%_))) + (_%add-lift!140116%_ (cons 'define - (cons _%gid139160%_ - (cons (_%generate-syntax-quote138985%_ - _%qid139161%_ + (cons _%gid140292%_ + (cons (_%generate-syntax-quote140117%_ + _%qid140293%_ ''()) '())))) - (let ((__tmp147866 + (let ((__tmp148998 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp147866 _%stxq139158%_ _%gid139160%_)) - _%gid139160%_))) - (_%generate-serialized138987%_ - (lambda (_%stxq139148%_ _%marks139149%_) - (let* ((_%mark-refs139151%_ - (map _%generate-mark138988%_ _%marks139149%_)) - (_%gid139153%_ + (hash-put! __tmp148998 _%stxq140290%_ _%gid140292%_)) + _%gid140292%_))) + (_%generate-serialized140119%_ + (lambda (_%stxq140280%_ _%marks140281%_) + (let* ((_%mark-refs140283%_ + (map _%generate-mark140120%_ _%marks140281%_)) + (_%gid140285%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid139155%_ - (gxc#generate-runtime-identifier _%stxq139148%_))) - (_%add-lift!138984%_ + (_%qid140287%_ + (gxc#generate-runtime-identifier _%stxq140280%_))) + (_%add-lift!140116%_ (cons 'define - (cons _%gid139153%_ - (cons (_%generate-syntax-quote138985%_ - _%qid139155%_ - (cons 'list _%mark-refs139151%_)) + (cons _%gid140285%_ + (cons (_%generate-syntax-quote140117%_ + _%qid140287%_ + (cons 'list _%mark-refs140283%_)) '())))) - (let ((__tmp147867 + (let ((__tmp148999 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp147867 _%stxq139148%_ _%gid139153%_)) - _%gid139153%_))) - (_%generate-mark138988%_ - (lambda (_%mark139133%_) - (let ((_%$e139135%_ - (let ((__tmp147868 + (hash-put! __tmp148999 _%stxq140280%_ _%gid140285%_)) + _%gid140285%_))) + (_%generate-mark140120%_ + (lambda (_%mark140265%_) + (let ((_%$e140267%_ + (let ((__tmp149000 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) - (hash-get __tmp147868 _%mark139133%_)))) - (if _%$e139135%_ - _%$e139135%_ - (let* ((_%gid139139%_ + (hash-get __tmp149000 _%mark140265%_)))) + (if _%$e140267%_ + _%$e140267%_ + (let* ((_%gid140271%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%repr139141%_ - (_%serialize-mark138989%_ _%mark139133%_)) - (_%ctx139143%_ - (let ((__tmp147869 + (_%repr140273%_ + (_%serialize-mark140121%_ _%mark140265%_)) + (_%ctx140275%_ + (let ((__tmp149001 (##structure-ref - _%mark139133%_ + _%mark140265%_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp147869))) - (_%ctx-ref139145%_ - (if (eq? _%ctx139143%_ + (gx#core-context-top__1 __tmp149001))) + (_%ctx-ref140277%_ + (if (eq? _%ctx140275%_ (let () (declare (not safe)) (gx#current-expander-context))) '(gx#current-expander-context) (cons 'gx#import-module (cons (cons 'quote - (cons (_%context-ref138990%_ - _%ctx139143%_) + (cons (_%context-ref140122%_ + _%ctx140275%_) '())) '()))))) - (let ((__tmp147870 + (let ((__tmp149002 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) (hash-put! - __tmp147870 - _%mark139133%_ - _%gid139139%_)) - (_%add-lift!138984%_ + __tmp149002 + _%mark140265%_ + _%gid140271%_)) + (_%add-lift!140116%_ (cons 'define - (cons _%gid139139%_ + (cons _%gid140271%_ (cons (cons 'gx#core-deserialize-mark (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%repr139141%_ '())) - (cons _%ctx-ref139145%_ '()))) + (cons _%repr140273%_ '())) + (cons _%ctx-ref140277%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%gid139139%_))))) - (_%serialize-mark138989%_ - (lambda (_%mark139080%_) - (letrec ((_%quote-e139082%_ - (lambda (_%sym139131%_) + _%gid140271%_))))) + (_%serialize-mark140121%_ + (lambda (_%mark140212%_) + (letrec ((_%quote-e140214%_ + (lambda (_%sym140263%_) (if (let () (declare (not safe)) - (interned-symbol? _%sym139131%_)) - _%sym139131%_ + (interned-symbol? _%sym140263%_)) + _%sym140263%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%sym139131%_)))))) - (let* ((_%mark139083139092%_ _%mark139080%_) - (_%E139085139096%_ + _%sym140263%_)))))) + (let* ((_%mark140215140224%_ _%mark140212%_) + (_%E140217140228%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mark139083139092%_ + _%mark140215140224%_ '((expander-mark subst ctx phi trace)))) '#!void)) - (_%K139086139108%_ - (lambda (_%trace139099%_ - _%phi139100%_ - _%ctx139101%_ - _%subst139102%_) - (let ((_%subs139104%_ - (if _%subst139102%_ + (_%K140218140240%_ + (lambda (_%trace140231%_ + _%phi140232%_ + _%ctx140233%_ + _%subst140234%_) + (let ((_%subs140236%_ + (if _%subst140234%_ (let () (declare (not safe)) - (hash->list _%subst139102%_)) + (hash->list _%subst140234%_)) '()))) - (cons _%phi139100%_ - (map (lambda (_%pair139106%_) - (cons (_%quote-e139082%_ - (car _%pair139106%_)) - (_%quote-e139082%_ - (cdr _%pair139106%_)))) - _%subs139104%_)))))) + (cons _%phi140232%_ + (map (lambda (_%pair140238%_) + (cons (_%quote-e140214%_ + (car _%pair140238%_)) + (_%quote-e140214%_ + (cdr _%pair140238%_)))) + _%subs140236%_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%mark139083139092%_ + _%mark140215140224%_ 'gx#expander-mark::t)) - (let* ((_%e139087139111%_ + (let* ((_%e140219140243%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark139083139092%_ + _%mark140215140224%_ '1 '#f '#f))) - (_%subst139114%_ _%e139087139111%_) - (_%e139088139116%_ + (_%subst140246%_ _%e140219140243%_) + (_%e140220140248%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark139083139092%_ + _%mark140215140224%_ '2 '#f '#f))) - (_%ctx139119%_ _%e139088139116%_) - (_%e139089139121%_ + (_%ctx140251%_ _%e140220140248%_) + (_%e140221140253%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark139083139092%_ + _%mark140215140224%_ '3 '#f '#f))) - (_%phi139124%_ _%e139089139121%_) - (_%e139090139126%_ + (_%phi140256%_ _%e140221140253%_) + (_%e140222140258%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark139083139092%_ + _%mark140215140224%_ '4 '#f '#f))) - (_%trace139129%_ _%e139090139126%_)) - (_%K139086139108%_ - _%trace139129%_ - _%phi139124%_ - _%ctx139119%_ - _%subst139114%_)) - (_%E139085139096%_)))))) - (_%context-ref138990%_ - (lambda (_%ctx139067%_) - (if (let ((__tmp147871 + (_%trace140261%_ _%e140222140258%_)) + (_%K140218140240%_ + _%trace140261%_ + _%phi140256%_ + _%ctx140251%_ + _%subst140246%_)) + (_%E140217140228%_)))))) + (_%context-ref140122%_ + (lambda (_%ctx140199%_) + (if (let ((__tmp149003 (##structure-ref - _%ctx139067%_ + _%ctx140199%_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp147871 + __tmp149003 'gx#module-context::t)) - (let ((_%ctx-ref139069%_ - (_%context-ref-nested138992%_ _%ctx139067%_)) - (_%ctx-origin139070%_ - (_%context-ref-origin138991%_ _%ctx139067%_)) - (_%origin139071%_ - (_%context-ref-origin138991%_ + (let ((_%ctx-ref140201%_ + (_%context-ref-nested140124%_ _%ctx140199%_)) + (_%ctx-origin140202%_ + (_%context-ref-origin140123%_ _%ctx140199%_)) + (_%origin140203%_ + (_%context-ref-origin140123%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (if (eq? _%origin139071%_ _%ctx-origin139070%_) - (let ((_%ref139073%_ - (_%context-ref-nested138992%_ + (if (eq? _%origin140203%_ _%ctx-origin140202%_) + (let ((_%ref140205%_ + (_%context-ref-nested140124%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (let _%lp139075%_ ((_%ref139077%_ - (cdr _%ref139073%_)) - (_%ctx-ref139078%_ - (cdr _%ctx-ref139069%_))) - (if (and (pair? _%ref139077%_) + (let _%lp140207%_ ((_%ref140209%_ + (cdr _%ref140205%_)) + (_%ctx-ref140210%_ + (cdr _%ctx-ref140201%_))) + (if (and (pair? _%ref140209%_) (eq? (let () (declare (not safe)) - (##car _%ref139077%_)) - (car _%ctx-ref139078%_))) - (_%lp139075%_ - (cdr _%ref139077%_) - (cdr _%ctx-ref139078%_)) - (cons '#f _%ctx-ref139078%_)))) - _%ctx-ref139069%_)) - (let ((__tmp147872 + (##car _%ref140209%_)) + (car _%ctx-ref140210%_))) + (_%lp140207%_ + (cdr _%ref140209%_) + (cdr _%ctx-ref140210%_)) + (cons '#f _%ctx-ref140210%_)))) + _%ctx-ref140201%_)) + (let ((__tmp149004 (##structure-ref - _%ctx139067%_ + _%ctx140199%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp147872))))) - (_%context-ref-origin138991%_ - (lambda (_%ctx139059%_) - (let _%lp139061%_ ((_%ctx139063%_ _%ctx139059%_)) - (let ((_%super139065%_ + (make-symbol__1 '":" __tmp149004))))) + (_%context-ref-origin140123%_ + (lambda (_%ctx140191%_) + (let _%lp140193%_ ((_%ctx140195%_ _%ctx140191%_)) + (let ((_%super140197%_ (##structure-ref - _%ctx139063%_ + _%ctx140195%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super139065%_ + _%super140197%_ 'gx#module-context::t)) - (_%lp139061%_ _%super139065%_) - _%ctx139063%_))))) - (_%context-ref-nested138992%_ - (lambda (_%ctx139050%_) - (let _%lp139052%_ ((_%ctx139054%_ _%ctx139050%_) - (_%r139055%_ '())) - (let ((_%super139057%_ + (_%lp140193%_ _%super140197%_) + _%ctx140195%_))))) + (_%context-ref-nested140124%_ + (lambda (_%ctx140182%_) + (let _%lp140184%_ ((_%ctx140186%_ _%ctx140182%_) + (_%r140187%_ '())) + (let ((_%super140189%_ (##structure-ref - _%ctx139054%_ + _%ctx140186%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super139057%_ + _%super140189%_ 'gx#module-context::t)) - (_%lp139052%_ - _%super139057%_ + (_%lp140184%_ + _%super140189%_ (cons (car (##structure-ref - _%ctx139054%_ + _%ctx140186%_ '7 gx#module-context::t '#f)) - _%r139055%_)) - (cons (let ((__tmp147873 + _%r140187%_)) + (cons (let ((__tmp149005 (##structure-ref - _%ctx139054%_ + _%ctx140186%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp147873)) - _%r139055%_))))))) - (let* ((_%g138994139007%_ - (lambda (_%g138995139004%_) + (make-symbol__1 '":" __tmp149005)) + _%r140187%_))))))) + (let* ((_%g140126140139%_ + (lambda (_%g140127140136%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138995139004%_)))) - (_%g138993139047%_ - (lambda (_%g138995139010%_) + _%g140127140136%_)))) + (_%g140125140179%_ + (lambda (_%g140127140142%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138995139010%_)) - (let ((_%e138997139012%_ + (gx#stx-pair? _%g140127140142%_)) + (let ((_%e140129140144%_ (let () (declare (not safe)) - (gx#stx-e _%g138995139010%_)))) - (let ((_%hd138998139015%_ + (gx#stx-e _%g140127140142%_)))) + (let ((_%hd140130140147%_ (let () (declare (not safe)) - (##car _%e138997139012%_))) - (_%tl138999139017%_ + (##car _%e140129140144%_))) + (_%tl140131140149%_ (let () (declare (not safe)) - (##cdr _%e138997139012%_)))) + (##cdr _%e140129140144%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138999139017%_)) - (let ((_%e139000139020%_ + (gx#stx-pair? _%tl140131140149%_)) + (let ((_%e140132140152%_ (let () (declare (not safe)) - (gx#stx-e _%tl138999139017%_)))) - (let ((_%hd139001139023%_ + (gx#stx-e _%tl140131140149%_)))) + (let ((_%hd140133140155%_ (let () (declare (not safe)) - (##car _%e139000139020%_))) - (_%tl139002139025%_ + (##car _%e140132140152%_))) + (_%tl140134140157%_ (let () (declare (not safe)) - (##cdr _%e139000139020%_)))) + (##cdr _%e140132140152%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139002139025%_)) - ((lambda (_%L139028%_) + (gx#stx-null? _%tl140134140157%_)) + ((lambda (_%L140160%_) (if (let () (declare (not safe)) - (gx#identifier? _%L139028%_)) - (let ((_%$e139041%_ - (let ((__tmp147874 + (gx#identifier? _%L140160%_)) + (let ((_%$e140173%_ + (let ((__tmp149006 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-get __tmp147874 _%L139028%_)))) + (hash-get __tmp149006 _%L140160%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e139041%_ - _%$e139041%_ - (let ((_%marks139045%_ + (if _%$e140173%_ + _%$e140173%_ + (let ((_%marks140177%_ (##direct-structure-ref - _%L139028%_ + _%L140160%_ '4 gx#syntax-quote::t '#f))) - (if (null? _%marks139045%_) - (_%generate-simple138986%_ - _%L139028%_) - (_%generate-serialized138987%_ - _%L139028%_ - _%marks139045%_))))) + (if (null? _%marks140177%_) + (_%generate-simple140118%_ + _%L140160%_) + (_%generate-serialized140119%_ + _%L140160%_ + _%marks140177%_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _%L139028%_)))) - _%hd139001139023%_) - (_%g138994139007%_ - _%g138995139010%_)))) - (_%g138994139007%_ _%g138995139010%_)))) - (_%g138994139007%_ _%g138995139010%_))))) - (_%g138993139047%_ _%stx138982%_))))) + _%L140160%_)))) + _%hd140133140155%_) + (_%g140126140139%_ + _%g140127140142%_)))) + (_%g140126140139%_ _%g140127140142%_)))) + (_%g140126140139%_ _%g140127140142%_))))) + (_%g140125140179%_ _%stx140114%_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_%self138913%_ _%stx138914%_) - (let* ((_%g138916138933%_ - (lambda (_%g138917138930%_) + (lambda (_%self140045%_ _%stx140046%_) + (let* ((_%g140048140065%_ + (lambda (_%g140049140062%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138917138930%_)))) - (_%g138915138978%_ - (lambda (_%g138917138936%_) + _%g140049140062%_)))) + (_%g140047140110%_ + (lambda (_%g140049140068%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138917138936%_)) - (let ((_%e138920138938%_ + (gx#stx-pair? _%g140049140068%_)) + (let ((_%e140052140070%_ (let () (declare (not safe)) - (gx#stx-e _%g138917138936%_)))) - (let ((_%hd138921138941%_ + (gx#stx-e _%g140049140068%_)))) + (let ((_%hd140053140073%_ (let () (declare (not safe)) - (##car _%e138920138938%_))) - (_%tl138922138943%_ + (##car _%e140052140070%_))) + (_%tl140054140075%_ (let () (declare (not safe)) - (##cdr _%e138920138938%_)))) + (##cdr _%e140052140070%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138922138943%_)) - (let ((_%e138923138946%_ + (gx#stx-pair? _%tl140054140075%_)) + (let ((_%e140055140078%_ (let () (declare (not safe)) - (gx#stx-e _%tl138922138943%_)))) - (let ((_%hd138924138949%_ + (gx#stx-e _%tl140054140075%_)))) + (let ((_%hd140056140081%_ (let () (declare (not safe)) - (##car _%e138923138946%_))) - (_%tl138925138951%_ + (##car _%e140055140078%_))) + (_%tl140057140083%_ (let () (declare (not safe)) - (##cdr _%e138923138946%_)))) + (##cdr _%e140055140078%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138925138951%_)) - (let ((_%e138926138954%_ + (gx#stx-pair? _%tl140057140083%_)) + (let ((_%e140058140086%_ (let () (declare (not safe)) - (gx#stx-e _%tl138925138951%_)))) - (let ((_%hd138927138957%_ + (gx#stx-e _%tl140057140083%_)))) + (let ((_%hd140059140089%_ (let () (declare (not safe)) - (##car _%e138926138954%_))) - (_%tl138928138959%_ + (##car _%e140058140086%_))) + (_%tl140060140091%_ (let () (declare (not safe)) - (##cdr _%e138926138954%_)))) + (##cdr _%e140058140086%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138928138959%_)) - ((lambda (_%L138962%_ - _%L138963%_) + _%tl140060140091%_)) + ((lambda (_%L140094%_ + _%L140095%_) (cons 'define (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L138963%_)) + (gx#stx-e _%L140095%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self138913%_ _%L138962%_)) + (gxc#compile-e__1 _%self140045%_ _%L140094%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd138927138957%_ - _%hd138924138949%_) - (_%g138916138933%_ - _%g138917138936%_)))) - (_%g138916138933%_ _%g138917138936%_)))) - (_%g138916138933%_ _%g138917138936%_)))) - (_%g138916138933%_ _%g138917138936%_))))) - (_%g138915138978%_ _%stx138914%_)))) + _%hd140059140089%_ + _%hd140056140081%_) + (_%g140048140065%_ + _%g140049140068%_)))) + (_%g140048140065%_ _%g140049140068%_)))) + (_%g140048140065%_ _%g140049140068%_)))) + (_%g140048140065%_ _%g140049140068%_))))) + (_%g140047140110%_ _%stx140046%_)))) (define gxc#generate-meta-begin% - (lambda (_%self138862%_ _%stx138863%_) - (let* ((_%g138865138875%_ - (lambda (_%g138866138872%_) + (lambda (_%self139994%_ _%stx139995%_) + (let* ((_%g139997140007%_ + (lambda (_%g139998140004%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138866138872%_)))) - (_%g138864138910%_ - (lambda (_%g138866138878%_) + _%g139998140004%_)))) + (_%g139996140042%_ + (lambda (_%g139998140010%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138866138878%_)) - (let ((_%e138868138880%_ + (gx#stx-pair? _%g139998140010%_)) + (let ((_%e140000140012%_ (let () (declare (not safe)) - (gx#stx-e _%g138866138878%_)))) - (let ((_%hd138869138883%_ + (gx#stx-e _%g139998140010%_)))) + (let ((_%hd140001140015%_ (let () (declare (not safe)) - (##car _%e138868138880%_))) - (_%tl138870138885%_ + (##car _%e140000140012%_))) + (_%tl140002140017%_ (let () (declare (not safe)) - (##cdr _%e138868138880%_)))) - ((lambda (_%L138888%_) - (let* ((_%c-body138902%_ - (map (lambda (_%g138897138899%_) + (##cdr _%e140000140012%_)))) + ((lambda (_%L140020%_) + (let* ((_%c-body140034%_ + (map (lambda (_%g140029140031%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self138862%_ - _%g138897138899%_))) - _%L138888%_)) - (_%c-body138907%_ - (let ((__tmp147875 - (lambda (_%$obj138904%_) - (not (eq? _%$obj138904%_ + _%self139994%_ + _%g140029140031%_))) + _%L140020%_)) + (_%c-body140039%_ + (let ((__tmp149007 + (lambda (_%$obj140036%_) + (not (eq? _%$obj140036%_ '#!void))))) (declare (not safe)) (##filter - __tmp147875 - _%c-body138902%_)))) - (cons '%#begin _%c-body138907%_))) - _%tl138870138885%_))) - (_%g138865138875%_ _%g138866138878%_))))) - (_%g138864138910%_ _%stx138863%_)))) + __tmp149007 + _%c-body140034%_)))) + (cons '%#begin _%c-body140039%_))) + _%tl140002140017%_))) + (_%g139997140007%_ _%g139998140010%_))))) + (_%g139996140042%_ _%stx139995%_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_%self138767%_ _%stx138768%_) - (let* ((_%g138770138780%_ - (lambda (_%g138771138777%_) + (lambda (_%self139899%_ _%stx139900%_) + (let* ((_%g139902139912%_ + (lambda (_%g139903139909%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138771138777%_)))) - (_%g138769138859%_ - (lambda (_%g138771138783%_) + _%g139903139909%_)))) + (_%g139901139991%_ + (lambda (_%g139903139915%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138771138783%_)) - (let ((_%e138773138785%_ + (gx#stx-pair? _%g139903139915%_)) + (let ((_%e139905139917%_ (let () (declare (not safe)) - (gx#stx-e _%g138771138783%_)))) - (let ((_%hd138774138788%_ + (gx#stx-e _%g139903139915%_)))) + (let ((_%hd139906139920%_ (let () (declare (not safe)) - (##car _%e138773138785%_))) - (_%tl138775138790%_ + (##car _%e139905139917%_))) + (_%tl139907139922%_ (let () (declare (not safe)) - (##cdr _%e138773138785%_)))) - ((lambda (_%L138793%_) - (let* ((_%phi138803%_ - (let ((__tmp147876 + (##cdr _%e139905139917%_)))) + ((lambda (_%L139925%_) + (let* ((_%phi139935%_ + (let ((__tmp149008 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp147876 '1))) - (_%block138805%_ + (##fx+ __tmp149008 '1))) + (_%block139937%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self138767%_ 'state)) - _%phi138803%_)) - (_%compiled138808%_ - (let ((__tmp147877 + (slot-ref__0 _%self139899%_ 'state)) + _%phi139935%_)) + (_%compiled139940%_ + (let ((__tmp149009 (lambda () (gxc#apply-generate-meta-phi__% '#f (let () (declare (not safe)) (slot-ref__0 - _%self138767%_ + _%self139899%_ 'state)) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L138793%_))))) + _%L139925%_))))) (declare (not safe)) (__call-with-parameters - __tmp147877 + __tmp149009 gx#current-expander-phi - _%phi138803%_))) - (_%g138811138821%_ - (lambda (_%g138812138818%_) + _%phi139935%_))) + (_%g139943139953%_ + (lambda (_%g139944139950%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138812138818%_)))) - (_%g138810138856%_ - (lambda (_%g138812138824%_) + _%g139944139950%_)))) + (_%g139942139988%_ + (lambda (_%g139944139956%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138812138824%_)) - (let ((_%e138814138826%_ + (gx#stx-pair? _%g139944139956%_)) + (let ((_%e139946139958%_ (let () (declare (not safe)) (gx#stx-e - _%g138812138824%_)))) - (let ((_%hd138815138829%_ + _%g139944139956%_)))) + (let ((_%hd139947139961%_ (let () (declare (not safe)) - (##car _%e138814138826%_))) - (_%tl138816138831%_ + (##car _%e139946139958%_))) + (_%tl139948139963%_ (let () (declare (not safe)) - (##cdr _%e138814138826%_)))) + (##cdr _%e139946139958%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd138815138829%_)) + _%hd139947139961%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _%hd138815138829%_)) - ((lambda (_%L138834%_) - (let ((_%c-body138851%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (filter (lambda (_%$obj138848%_) - (not (eq? _%$obj138848%_ '#!void))) - _%L138834%_))) - (if _%block138805%_ + _%hd139947139961%_)) + ((lambda (_%L139966%_) + (let ((_%c-body139983%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (filter (lambda (_%$obj139980%_) + (not (eq? _%$obj139980%_ '#!void))) + _%L139966%_))) + (if _%block139937%_ (cons '%#begin-syntax (cons (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%block138805%_ + (cons _%block139937%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%c-body138851%_)) - (if (null? _%c-body138851%_) + _%c-body139983%_)) + (if (null? _%c-body139983%_) '#!void - (cons '%#begin-syntax _%c-body138851%_))))) - _%tl138816138831%_) - (_%g138811138821%_ _%g138812138824%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g138811138821%_ - _%g138812138824%_)))) - (_%g138811138821%_ - _%g138812138824%_))))) - (_%g138810138856%_ _%compiled138808%_))) - _%tl138775138790%_))) - (_%g138770138780%_ _%g138771138783%_))))) - (_%g138769138859%_ _%stx138768%_)))) + (cons '%#begin-syntax _%c-body139983%_))))) + _%tl139948139963%_) + (_%g139943139953%_ _%g139944139956%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g139943139953%_ + _%g139944139956%_)))) + (_%g139943139953%_ + _%g139944139956%_))))) + (_%g139942139988%_ _%compiled139940%_))) + _%tl139907139922%_))) + (_%g139902139912%_ _%g139903139915%_))))) + (_%g139901139991%_ _%stx139900%_)))) (define gxc#generate-meta-module% - (lambda (_%self138698%_ _%stx138699%_) + (lambda (_%self139830%_ _%stx139831%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self138698%_ 'state))) - (let* ((_%g138701138715%_ - (lambda (_%g138702138712%_) + (let () (declare (not safe)) (slot-ref__0 _%self139830%_ 'state))) + (let* ((_%g139833139847%_ + (lambda (_%g139834139844%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138702138712%_)))) - (_%g138700138764%_ - (lambda (_%g138702138718%_) + _%g139834139844%_)))) + (_%g139832139896%_ + (lambda (_%g139834139850%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138702138718%_)) - (let ((_%e138705138720%_ + (gx#stx-pair? _%g139834139850%_)) + (let ((_%e139837139852%_ (let () (declare (not safe)) - (gx#stx-e _%g138702138718%_)))) - (let ((_%hd138706138723%_ + (gx#stx-e _%g139834139850%_)))) + (let ((_%hd139838139855%_ (let () (declare (not safe)) - (##car _%e138705138720%_))) - (_%tl138707138725%_ + (##car _%e139837139852%_))) + (_%tl139839139857%_ (let () (declare (not safe)) - (##cdr _%e138705138720%_)))) + (##cdr _%e139837139852%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138707138725%_)) - (let ((_%e138708138728%_ + (gx#stx-pair? _%tl139839139857%_)) + (let ((_%e139840139860%_ (let () (declare (not safe)) - (gx#stx-e _%tl138707138725%_)))) - (let ((_%hd138709138731%_ + (gx#stx-e _%tl139839139857%_)))) + (let ((_%hd139841139863%_ (let () (declare (not safe)) - (##car _%e138708138728%_))) - (_%tl138710138733%_ + (##car _%e139840139860%_))) + (_%tl139842139865%_ (let () (declare (not safe)) - (##cdr _%e138708138728%_)))) - ((lambda (_%L138736%_ _%L138737%_) - (let ((_%key138750%_ + (##cdr _%e139840139860%_)))) + ((lambda (_%L139868%_ _%L139869%_) + (let ((_%key139882%_ (let () (declare (not safe)) (gx#core-identifier-key - _%L138737%_)))) + _%L139869%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%key138750%_)) + (interned-symbol? _%key139882%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _%stx138699%_ - _%L138737%_ - _%key138750%_))) - (let* ((_%ctx138752%_ + _%stx139831%_ + _%L139869%_ + _%key139882%_))) + (let* ((_%ctx139884%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L138737%_))) - (_%code138755%_ - (let ((__tmp147878 + _%L139869%_))) + (_%code139887%_ + (let ((__tmp149010 (lambda () - (let ((__tmp147879 + (let ((__tmp149011 (##structure-ref - _%ctx138752%_ + _%ctx139884%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self138698%_ - __tmp147879))))) + _%self139830%_ + __tmp149011))))) (declare (not safe)) (__call-with-parameters - __tmp147878 + __tmp149010 gx#current-expander-context - _%ctx138752%_))) - (_%rt138757%_ - (let ((__tmp147880 + _%ctx139884%_))) + (_%rt139889%_ + (let ((__tmp149012 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-get - __tmp147880 - _%ctx138752%_))) - (_%loader138759%_ - (if _%rt138757%_ + __tmp149012 + _%ctx139884%_))) + (_%loader139891%_ + (if _%rt139889%_ (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'load-module '())) - (cons (cons '%#quote (cons _%rt138757%_ '())) + (cons (cons '%#quote (cons _%rt139889%_ '())) '()))) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_%modid138761%_ + (_%modid139893%_ (let () (declare (not safe)) - (gx#stx-e _%L138737%_)))) + (gx#stx-e _%L139869%_)))) (gxc#meta-state-end-phi! (let () (declare (not safe)) (slot-ref__0 - _%self138698%_ + _%self139830%_ 'state))) (cons '%#module - (cons _%modid138761%_ - (cons _%code138755%_ - _%loader138759%_)))))) - _%tl138710138733%_ - _%hd138709138731%_))) - (_%g138701138715%_ _%g138702138718%_)))) - (_%g138701138715%_ _%g138702138718%_))))) - (_%g138700138764%_ _%stx138699%_)))) + (cons _%modid139893%_ + (cons _%code139887%_ + _%loader139891%_)))))) + _%tl139842139865%_ + _%hd139841139863%_))) + (_%g139833139847%_ _%g139834139850%_)))) + (_%g139833139847%_ _%g139834139850%_))))) + (_%g139832139896%_ _%stx139831%_)))) (define gxc#generate-meta-import-path - (lambda (_%ctx138685%_ _%context-chain138686%_) - (let _%lp138688%_ ((_%ctx138690%_ _%ctx138685%_) (_%path138691%_ '())) - (let ((_%super138693%_ - (##structure-ref _%ctx138690%_ '3 gx#phi-context::t '#f))) - (if (memq _%super138693%_ _%context-chain138686%_) + (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%_) (cons '#f (cons (car (##structure-ref - _%ctx138690%_ + _%ctx139822%_ '7 gx#module-context::t '#f)) - _%path138691%_)) + _%path139823%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%super138693%_ + _%super139825%_ 'gx#module-context::t)) - (_%lp138688%_ - _%super138693%_ + (_%lp139820%_ + _%super139825%_ (cons (car (##structure-ref - _%ctx138690%_ + _%ctx139822%_ '7 gx#module-context::t '#f)) - _%path138691%_)) - (cons (let ((__tmp147881 + _%path139823%_)) + (cons (let ((__tmp149013 (##structure-ref - _%ctx138690%_ + _%ctx139822%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp147881)) - _%path138691%_))))))) + (make-symbol__1 '":" __tmp149013)) + _%path139823%_))))))) (define gxc#current-context-chain (lambda () - (let _%lp138678%_ ((_%ctx138680%_ + (let _%lp139810%_ ((_%ctx139812%_ (let () (declare (not safe)) (gx#current-expander-context))) - (_%r138681%_ '())) + (_%r139813%_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _%ctx138680%_ 'gx#module-context::t)) - (_%lp138678%_ + (##structure-instance-of? _%ctx139812%_ 'gx#module-context::t)) + (_%lp139810%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx138680%_ '3 '#f '#f)) - (cons _%ctx138680%_ _%r138681%_)) - _%r138681%_)))) + (##unchecked-structure-ref _%ctx139812%_ '3 '#f '#f)) + (cons _%ctx139812%_ _%r139813%_)) + _%r139813%_)))) (define gxc#generate-meta-import% - (lambda (_%self138441%_ _%stx138442%_) - (letrec* ((_%context-chain138444%_ (gxc#current-context-chain)) - (_%make-import-spec138445%_ - (lambda (_%in138614%_) - (let* ((_%in138615138627%_ _%in138614%_) - (_%E138617138631%_ + (lambda (_%self139573%_ _%stx139574%_) + (letrec* ((_%context-chain139576%_ (gxc#current-context-chain)) + (_%make-import-spec139577%_ + (lambda (_%in139746%_) + (let* ((_%in139747139759%_ _%in139746%_) + (_%E139749139763%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%in138615138627%_ + _%in139747139759%_ '((module-import (module-export src-ctx @@ -13312,396 +13153,390 @@ name phi)))) '#!void)) - (_%K138618138641%_ - (lambda (_%phi138634%_ - _%name138635%_ - _%src-name138636%_ - _%src-phi138637%_ - _%src-key138638%_ - _%src-ctx138639%_) - (cons _%phi138634%_ + (_%K139750139773%_ + (lambda (_%phi139766%_ + _%name139767%_ + _%src-name139768%_ + _%src-phi139769%_ + _%src-key139770%_ + _%src-ctx139771%_) + (cons _%phi139766%_ (cons (gxc#generate-runtime-identifier-key - _%name138635%_) - (cons _%src-phi138637%_ + _%name139767%_) + (cons _%src-phi139769%_ (cons (gxc#generate-runtime-identifier-key - _%src-name138636%_) + _%src-name139768%_) '()))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in138615138627%_ + _%in139747139759%_ 'gx#module-import::t)) - (let ((_%e138619138644%_ + (let ((_%e139751139776%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in138615138627%_ + _%in139747139759%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e138619138644%_ + _%e139751139776%_ 'gx#module-export::t)) - (let* ((_%e138622138647%_ + (let* ((_%e139754139779%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e138619138644%_ + _%e139751139776%_ '1 '#f '#f))) - (_%src-ctx138650%_ _%e138622138647%_) - (_%e138623138652%_ + (_%src-ctx139782%_ _%e139754139779%_) + (_%e139755139784%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e138619138644%_ + _%e139751139776%_ '2 '#f '#f))) - (_%src-key138655%_ _%e138623138652%_) - (_%e138624138657%_ + (_%src-key139787%_ _%e139755139784%_) + (_%e139756139789%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e138619138644%_ + _%e139751139776%_ '3 '#f '#f))) - (_%src-phi138660%_ _%e138624138657%_) - (_%e138625138662%_ + (_%src-phi139792%_ _%e139756139789%_) + (_%e139757139794%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e138619138644%_ + _%e139751139776%_ '4 '#f '#f))) - (_%src-name138665%_ _%e138625138662%_) - (_%e138620138667%_ + (_%src-name139797%_ _%e139757139794%_) + (_%e139752139799%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in138615138627%_ + _%in139747139759%_ '2 '#f '#f))) - (_%name138670%_ _%e138620138667%_) - (_%e138621138672%_ + (_%name139802%_ _%e139752139799%_) + (_%e139753139804%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in138615138627%_ + _%in139747139759%_ '3 '#f '#f))) - (_%phi138675%_ _%e138621138672%_)) - (_%K138618138641%_ - _%phi138675%_ - _%name138670%_ - _%src-name138665%_ - _%src-phi138660%_ - _%src-key138655%_ - _%src-ctx138650%_)) - (_%E138617138631%_))) - (_%E138617138631%_))))) - (_%make-import-path138446%_ - (lambda (_%ctx138612%_) + (_%phi139807%_ _%e139753139804%_)) + (_%K139750139773%_ + _%phi139807%_ + _%name139802%_ + _%src-name139797%_ + _%src-phi139792%_ + _%src-key139787%_ + _%src-ctx139782%_)) + (_%E139749139763%_))) + (_%E139749139763%_))))) + (_%make-import-path139578%_ + (lambda (_%ctx139744%_) (gxc#generate-meta-import-path - _%ctx138612%_ - _%context-chain138444%_))) - (_%make-import-spec-in138447%_ - (lambda (_%ctx138609%_ _%in138610%_) + _%ctx139744%_ + _%context-chain139576%_))) + (_%make-import-spec-in139579%_ + (lambda (_%ctx139741%_ _%in139742%_) (cons 'spec: - (cons (_%make-import-path138446%_ _%ctx138609%_) - (reverse _%in138610%_)))))) + (cons (_%make-import-path139578%_ _%ctx139741%_) + (reverse _%in139742%_)))))) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self138441%_ 'state))) - (let* ((_%g138449138459%_ - (lambda (_%g138450138456%_) + (let () (declare (not safe)) (slot-ref__0 _%self139573%_ 'state))) + (let* ((_%g139581139591%_ + (lambda (_%g139582139588%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138450138456%_)))) - (_%g138448138606%_ - (lambda (_%g138450138462%_) + _%g139582139588%_)))) + (_%g139580139738%_ + (lambda (_%g139582139594%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138450138462%_)) - (let ((_%e138452138464%_ + (gx#stx-pair? _%g139582139594%_)) + (let ((_%e139584139596%_ (let () (declare (not safe)) - (gx#stx-e _%g138450138462%_)))) - (let ((_%hd138453138467%_ + (gx#stx-e _%g139582139594%_)))) + (let ((_%hd139585139599%_ (let () (declare (not safe)) - (##car _%e138452138464%_))) - (_%tl138454138469%_ + (##car _%e139584139596%_))) + (_%tl139586139601%_ (let () (declare (not safe)) - (##cdr _%e138452138464%_)))) - ((lambda (_%L138472%_) - (let _%lp138483%_ ((_%rest138485%_ _%L138472%_) - (_%current-src138486%_ '#f) - (_%current-in138487%_ '()) - (_%r138488%_ '())) - (let* ((_%rest138489138497%_ _%rest138485%_) - (_%else138491138507%_ + (##cdr _%e139584139596%_)))) + ((lambda (_%L139604%_) + (let _%lp139615%_ ((_%rest139617%_ _%L139604%_) + (_%current-src139618%_ '#f) + (_%current-in139619%_ '()) + (_%r139620%_ '())) + (let* ((_%rest139621139629%_ _%rest139617%_) + (_%else139623139639%_ (lambda () - (let ((_%r138505%_ - (if _%current-src138486%_ - (cons (_%make-import-spec-in138447%_ - _%current-src138486%_ - _%current-in138487%_) - _%r138488%_) - _%r138488%_))) + (let ((_%r139637%_ + (if _%current-src139618%_ + (cons (_%make-import-spec-in139579%_ + _%current-src139618%_ + _%current-in139619%_) + _%r139620%_) + _%r139620%_))) (cons '%#import - (reverse _%r138505%_))))) - (_%K138493138594%_ - (lambda (_%rest138510%_ _%in138511%_) + (reverse _%r139637%_))))) + (_%K139625139726%_ + (lambda (_%rest139642%_ _%in139643%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in138511%_ + _%in139643%_ 'gx#module-import::t)) - (let* ((_%in138513138520%_ - _%in138511%_) - (_%E138515138524%_ + (let* ((_%in139645139652%_ + _%in139643%_) + (_%E139647139656%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in138513138520%_ + _%in139645139652%_ '((module-import (module-export src-ctx))))) '#!void)) - (_%K138516138532%_ - (lambda (_%src-ctx138527%_) - (if (eq? _%current-src138486%_ _%src-ctx138527%_) - (_%lp138483%_ - _%rest138510%_ - _%current-src138486%_ - (cons (_%make-import-spec138445%_ _%in138511%_) - _%current-in138487%_) - _%r138488%_) - (if _%current-src138486%_ - (_%lp138483%_ - _%rest138510%_ - _%src-ctx138527%_ - (cons (_%make-import-spec138445%_ _%in138511%_) '()) - (cons (_%make-import-spec-in138447%_ - _%current-src138486%_ - _%current-in138487%_) - _%r138488%_)) - (_%lp138483%_ - _%rest138510%_ - _%src-ctx138527%_ - (cons (_%make-import-spec138445%_ _%in138511%_) '()) - _%r138488%_))))) - (_%e138517138535%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%in138513138520%_ '1 '#f '#f)))) + (_%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)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e138517138535%_ + _%e139649139667%_ 'gx#module-export::t)) - (let* ((_%e138518138538%_ + (let* ((_%e139650139670%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%e138517138535%_ + _%e139649139667%_ '1 '#f '#f))) - (_%src-ctx138541%_ _%e138518138538%_)) - (_%K138516138532%_ _%src-ctx138541%_)) + (_%src-ctx139673%_ _%e139650139670%_)) + (_%K139648139664%_ _%src-ctx139673%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E138515138524%_))) + (_%E139647139656%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in138511%_ + _%in139643%_ 'gx#import-set::t)) - (let* ((_%phi138544%_ + (let* ((_%phi139676%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in138511%_ + _%in139643%_ '2 '#f '#f))) - (_%src138546%_ + (_%src139678%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in138511%_ + _%in139643%_ '1 '#f '#f))) - (_%src-in138586%_ - (let* ((_%g138547138556%_ + (_%src-in139718%_ + (let* ((_%g139679139688%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%make-import-path138446%_ _%src138546%_)) - (_%E138550138560%_ + (_%make-import-path139578%_ _%src139678%_)) + (_%E139682139692%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g138547138556%_ + _%g139679139688%_ '([path]) '(path))) '#!void))) - (let ((_%K138552138576%_ - (lambda (_%path138574%_) _%path138574%_)) - (_%K138551138566%_ - (lambda (_%path138564%_) - (cons 'in: _%path138564%_)))) - (if (let () - (declare (not safe)) - (##pair? _%g138547138556%_)) - (let ((_%tl138554138581%_ + (let ((_%K139684139708%_ + (lambda (_%path139706%_) _%path139706%_)) + (_%K139683139698%_ + (lambda (_%path139696%_) + (cons 'in: _%path139696%_)))) + (if (pair? _%g139679139688%_) + (let ((_%tl139686139713%_ (let () (declare (not safe)) - (##cdr _%g138547138556%_))) - (_%hd138553138579%_ + (##cdr _%g139679139688%_))) + (_%hd139685139711%_ (let () (declare (not safe)) - (##car _%g138547138556%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl138554138581%_)) - (let ((_%path138584%_ _%hd138553138579%_)) - (_%K138552138576%_ _%path138584%_)) - (let ((_%path138569%_ _%g138547138556%_)) - (_%K138551138566%_ _%path138569%_)))) - (let ((_%path138569%_ _%g138547138556%_)) - (_%K138551138566%_ _%path138569%_)))))) - (_%r138588%_ - (if _%current-src138486%_ - (cons (_%make-import-spec-in138447%_ - _%current-src138486%_ - _%current-in138487%_) - _%r138488%_) - _%r138488%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp138483%_ - _%rest138510%_ + (##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%_ '#f '() - (cons (if (fxzero? _%phi138544%_) - _%src-in138586%_ + (cons (if (fxzero? _%phi139676%_) + _%src-in139718%_ (cons 'phi: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi138544%_ - (cons _%src-in138586%_ '())))) - _%r138588%_))) + (cons _%phi139676%_ + (cons _%src-in139718%_ '())))) + _%r139720%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _%in138511%_ + _%in139643%_ 'gx#module-context::t)) - (let ((_%r138592%_ - (if _%current-src138486%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (_%make-import-spec-in138447%_ - _%current-src138486%_ - _%current-in138487%_) - _%r138488%_) - _%r138488%_))) - (_%lp138483%_ - _%rest138510%_ + (let ((_%r139724%_ + (if _%current-src139618%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (_%make-import-spec-in139579%_ + _%current-src139618%_ + _%current-in139619%_) + _%r139620%_) + _%r139620%_))) + (_%lp139615%_ + _%rest139642%_ '#f '() (cons (cons 'runtime: - (_%make-import-path138446%_ _%in138511%_)) - _%r138592%_))) + (_%make-import-path139578%_ _%in139643%_)) + _%r139724%_))) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%rest138489138497%_)) - (let ((_%hd138494138597%_ + (if (pair? _%rest139621139629%_) + (let ((_%hd139626139729%_ (let () (declare (not safe)) - (##car _%rest138489138497%_))) - (_%tl138495138599%_ + (##car _%rest139621139629%_))) + (_%tl139627139731%_ (let () (declare (not safe)) - (##cdr _%rest138489138497%_)))) - (let* ((_%in138602%_ - _%hd138494138597%_) - (_%rest138604%_ - _%tl138495138599%_)) - (_%K138493138594%_ - _%rest138604%_ - _%in138602%_))) - (_%else138491138507%_))))) - _%tl138454138469%_))) - (_%g138449138459%_ _%g138450138462%_))))) - (_%g138448138606%_ _%stx138442%_))))) + (##cdr _%rest139621139629%_)))) + (let* ((_%in139734%_ + _%hd139626139729%_) + (_%rest139736%_ + _%tl139627139731%_)) + (_%K139625139726%_ + _%rest139736%_ + _%in139734%_))) + (_%else139623139639%_))))) + _%tl139586139601%_))) + (_%g139581139591%_ _%g139582139594%_))))) + (_%g139580139738%_ _%stx139574%_))))) (define gxc#generate-meta-export% - (lambda (_%self138251%_ _%stx138252%_) - (letrec* ((_%context-chain138254%_ (gxc#current-context-chain)) - (_%make-import-path138255%_ - (lambda (_%ctx138439%_) + (lambda (_%self139383%_ _%stx139384%_) + (letrec* ((_%context-chain139386%_ (gxc#current-context-chain)) + (_%make-import-path139387%_ + (lambda (_%ctx139571%_) (gxc#generate-meta-import-path - _%ctx138439%_ - _%context-chain138254%_)))) - (let* ((_%g138257138267%_ - (lambda (_%g138258138264%_) + _%ctx139571%_ + _%context-chain139386%_)))) + (let* ((_%g139389139399%_ + (lambda (_%g139390139396%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138258138264%_)))) - (_%g138256138436%_ - (lambda (_%g138258138270%_) + _%g139390139396%_)))) + (_%g139388139568%_ + (lambda (_%g139390139402%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138258138270%_)) - (let ((_%e138260138272%_ + (gx#stx-pair? _%g139390139402%_)) + (let ((_%e139392139404%_ (let () (declare (not safe)) - (gx#stx-e _%g138258138270%_)))) - (let ((_%hd138261138275%_ + (gx#stx-e _%g139390139402%_)))) + (let ((_%hd139393139407%_ (let () (declare (not safe)) - (##car _%e138260138272%_))) - (_%tl138262138277%_ + (##car _%e139392139404%_))) + (_%tl139394139409%_ (let () (declare (not safe)) - (##cdr _%e138260138272%_)))) - ((lambda (_%L138280%_) - (let _%lp138291%_ ((_%rest138293%_ _%L138280%_) - (_%r138294%_ '())) - (let* ((_%rest138295138303%_ _%rest138293%_) - (_%else138297138311%_ + (##cdr _%e139392139404%_)))) + ((lambda (_%L139412%_) + (let _%lp139423%_ ((_%rest139425%_ _%L139412%_) + (_%r139426%_ '())) + (let* ((_%rest139427139435%_ _%rest139425%_) + (_%else139429139443%_ (lambda () (cons '%#export - (reverse _%r138294%_)))) - (_%K138299138424%_ - (lambda (_%rest138314%_ _%out138315%_) - (let* ((_%out138316138329%_ - _%out138315%_) - (_%E138319138333%_ + (reverse _%r139426%_)))) + (_%K139431139556%_ + (lambda (_%rest139446%_ _%out139447%_) + (let* ((_%out139448139461%_ + _%out139447%_) + (_%E139451139465%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%out138316138329%_ + _%out139448139461%_ '((module-export ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _ @@ -13711,501 +13546,491 @@ '((export-set src phi)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K138323138403%_ - (lambda (_%name138399%_ - _%phi138400%_ - _%key138401%_) - (_%lp138291%_ - _%rest138314%_ + (let ((_%K139455139535%_ + (lambda (_%name139531%_ + _%phi139532%_ + _%key139533%_) + (_%lp139423%_ + _%rest139446%_ (cons (cons 'spec: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi138400%_ + (cons _%phi139532%_ (cons (gxc#generate-runtime-identifier-key - _%key138401%_) + _%key139533%_) (cons (gxc#generate-runtime-identifier-key - _%name138399%_) + _%name139531%_) '())))) - _%r138294%_)))) + _%r139426%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K138320138383%_ - (lambda (_%phi138337%_ - _%src138338%_) - (let* ((_%out138378%_ - (if _%src138338%_ + (_%K139452139515%_ + (lambda (_%phi139469%_ + _%src139470%_) + (let* ((_%out139510%_ + (if _%src139470%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'import: - (cons (let* ((_%g138339138348%_ - (_%make-import-path138255%_ - _%src138338%_)) - (_%E138342138352%_ + (cons (let* ((_%g139471139480%_ + (_%make-import-path139387%_ + _%src139470%_)) + (_%E139474139484%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g138339138348%_ + _%g139471139480%_ '([path]) '(path))) '#!void))) - (let ((_%K138344138368%_ - (lambda (_%path138366%_) - _%path138366%_)) - (_%K138343138358%_ - (lambda (_%path138356%_) - (cons 'in: _%path138356%_)))) - (if (let () - (declare (not safe)) - (##pair? _%g138339138348%_)) - (let ((_%tl138346138373%_ + (let ((_%K139476139500%_ + (lambda (_%path139498%_) + _%path139498%_)) + (_%K139475139490%_ + (lambda (_%path139488%_) + (cons 'in: _%path139488%_)))) + (if (pair? _%g139471139480%_) + (let ((_%tl139478139505%_ (let () (declare (not safe)) - (##cdr _%g138339138348%_))) - (_%hd138345138371%_ + (##cdr _%g139471139480%_))) + (_%hd139477139503%_ (let () (declare (not safe)) - (##car _%g138339138348%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl138346138373%_)) - (let ((_%path138376%_ - _%hd138345138371%_)) - (_%K138344138368%_ - _%path138376%_)) - (let ((_%path138361%_ - _%g138339138348%_)) - (_%K138343138358%_ - _%path138361%_)))) - (let ((_%path138361%_ - _%g138339138348%_)) - (_%K138343138358%_ - _%path138361%_))))) + (##car _%g139471139480%_)))) + (if (null? _%tl139478139505%_) + (let ((_%path139508%_ + _%hd139477139503%_)) + (_%K139476139500%_ + _%path139508%_)) + (let ((_%path139493%_ + _%g139471139480%_)) + (_%K139475139490%_ + _%path139493%_)))) + (let ((_%path139493%_ + _%g139471139480%_)) + (_%K139475139490%_ + _%path139493%_))))) '())) '#t)) - (_%out138380%_ - (if (fxzero? _%phi138337%_) - _%out138378%_ + (_%out139512%_ + (if (fxzero? _%phi139469%_) + _%out139510%_ (cons 'phi: - (cons _%phi138337%_ - (cons _%out138378%_ '())))))) - (_%lp138291%_ - _%rest138314%_ - (cons _%out138380%_ _%r138294%_)))))) + (cons _%phi139469%_ + (cons _%out139510%_ '())))))) + (_%lp139423%_ + _%rest139446%_ + (cons _%out139512%_ _%r139426%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match138318138396%_ + (let ((_%try-match139450139528%_ (lambda () (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out138316138329%_ + _%out139448139461%_ 'gx#export-set::t)) - (let* ((_%e138321138386%_ + (let* ((_%e139453139518%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%out138316138329%_ + _%out139448139461%_ '1 '#f '#f))) - (_%e138322138391%_ + (_%e139454139523%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out138316138329%_ + _%out139448139461%_ '2 '#f '#f)))) - (let ((_%src138389%_ _%e138321138386%_) - (_%phi138394%_ _%e138322138391%_)) - (_%K138320138383%_ _%phi138394%_ _%src138389%_))) - (_%E138319138333%_))))) + (let ((_%src139521%_ _%e139453139518%_) + (_%phi139526%_ _%e139454139523%_)) + (_%K139452139515%_ _%phi139526%_ _%src139521%_))) + (_%E139451139465%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out138316138329%_ + _%out139448139461%_ 'gx#module-export::t)) - (let* ((_%e138324138406%_ + (let* ((_%e139456139538%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%out138316138329%_ + _%out139448139461%_ '1 '#f '#f))) - (_%e138325138409%_ + (_%e139457139541%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out138316138329%_ + _%out139448139461%_ '2 '#f '#f))) - (_%e138326138414%_ + (_%e139458139546%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out138316138329%_ + _%out139448139461%_ '3 '#f '#f))) - (_%e138327138419%_ + (_%e139459139551%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out138316138329%_ + _%out139448139461%_ '4 '#f '#f)))) - (let ((_%key138412%_ _%e138325138409%_) - (_%phi138417%_ _%e138326138414%_) - (_%name138422%_ _%e138327138419%_)) - (_%K138323138403%_ - _%name138422%_ - _%phi138417%_ - _%key138412%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match138318138396%_)))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest138295138303%_)) - (let ((_%hd138300138427%_ + (let ((_%key139544%_ _%e139457139541%_) + (_%phi139549%_ _%e139458139546%_) + (_%name139554%_ _%e139459139551%_)) + (_%K139455139535%_ + _%name139554%_ + _%phi139549%_ + _%key139544%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match139450139528%_)))))))) + (if (pair? _%rest139427139435%_) + (let ((_%hd139432139559%_ (let () (declare (not safe)) - (##car _%rest138295138303%_))) - (_%tl138301138429%_ + (##car _%rest139427139435%_))) + (_%tl139433139561%_ (let () (declare (not safe)) - (##cdr _%rest138295138303%_)))) - (let* ((_%out138432%_ - _%hd138300138427%_) - (_%rest138434%_ - _%tl138301138429%_)) - (_%K138299138424%_ - _%rest138434%_ - _%out138432%_))) - (_%else138297138311%_))))) - _%tl138262138277%_))) - (_%g138257138267%_ _%g138258138270%_))))) - (_%g138256138436%_ _%stx138252%_))))) + (##cdr _%rest139427139435%_)))) + (let* ((_%out139564%_ + _%hd139432139559%_) + (_%rest139566%_ + _%tl139433139561%_)) + (_%K139431139556%_ + _%rest139566%_ + _%out139564%_))) + (_%else139429139443%_))))) + _%tl139394139409%_))) + (_%g139389139399%_ _%g139390139402%_))))) + (_%g139388139568%_ _%stx139384%_))))) (define gxc#generate-meta-provide% - (lambda (_%self138212%_ _%stx138213%_) + (lambda (_%self139344%_ _%stx139345%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self138212%_ 'state))) - (let* ((_%g138215138225%_ - (lambda (_%g138216138222%_) + (let () (declare (not safe)) (slot-ref__0 _%self139344%_ 'state))) + (let* ((_%g139347139357%_ + (lambda (_%g139348139354%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138216138222%_)))) - (_%g138214138248%_ - (lambda (_%g138216138228%_) + _%g139348139354%_)))) + (_%g139346139380%_ + (lambda (_%g139348139360%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138216138228%_)) - (let ((_%e138218138230%_ + (gx#stx-pair? _%g139348139360%_)) + (let ((_%e139350139362%_ (let () (declare (not safe)) - (gx#stx-e _%g138216138228%_)))) - (let ((_%hd138219138233%_ + (gx#stx-e _%g139348139360%_)))) + (let ((_%hd139351139365%_ (let () (declare (not safe)) - (##car _%e138218138230%_))) - (_%tl138220138235%_ + (##car _%e139350139362%_))) + (_%tl139352139367%_ (let () (declare (not safe)) - (##cdr _%e138218138230%_)))) - ((lambda (_%L138238%_) + (##cdr _%e139350139362%_)))) + ((lambda (_%L139370%_) (cons '%#provide (map gxc#generate-runtime-identifier - _%L138238%_))) - _%tl138220138235%_))) - (_%g138215138225%_ _%g138216138228%_))))) - (_%g138214138248%_ _%stx138213%_)))) + _%L139370%_))) + _%tl139352139367%_))) + (_%g139347139357%_ _%g139348139360%_))))) + (_%g139346139380%_ _%stx139345%_)))) (define gxc#generate-meta-extern% - (lambda (_%self138083%_ _%stx138084%_) - (letrec ((_%generate1138086%_ - (lambda (_%id138207%_ _%eid138208%_) - (let ((_%eid138210%_ + (lambda (_%self139215%_ _%stx139216%_) + (letrec ((_%generate1139218%_ + (lambda (_%id139339%_ _%eid139340%_) + (let ((_%eid139342%_ (let () (declare (not safe)) - (gx#stx-e _%eid138208%_)))) + (gx#stx-e _%eid139340%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%eid138210%_)) + (interned-symbol? _%eid139342%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _%stx138084%_ - _%eid138210%_))) - (cons (gxc#generate-runtime-identifier _%id138207%_) - (cons _%eid138210%_ '())))))) - (let* ((_%g138088138116%_ - (lambda (_%g138089138113%_) + _%stx139216%_ + _%eid139342%_))) + (cons (gxc#generate-runtime-identifier _%id139339%_) + (cons _%eid139342%_ '())))))) + (let* ((_%g139220139248%_ + (lambda (_%g139221139245%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138089138113%_)))) - (_%g138087138204%_ - (lambda (_%g138089138119%_) + _%g139221139245%_)))) + (_%g139219139336%_ + (lambda (_%g139221139251%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138089138119%_)) - (let ((_%e138092138121%_ + (gx#stx-pair? _%g139221139251%_)) + (let ((_%e139224139253%_ (let () (declare (not safe)) - (gx#stx-e _%g138089138119%_)))) - (let ((_%hd138093138124%_ + (gx#stx-e _%g139221139251%_)))) + (let ((_%hd139225139256%_ (let () (declare (not safe)) - (##car _%e138092138121%_))) - (_%tl138094138126%_ + (##car _%e139224139253%_))) + (_%tl139226139258%_ (let () (declare (not safe)) - (##cdr _%e138092138121%_)))) + (##cdr _%e139224139253%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl138094138126%_)) - (let ((_g147882_ + (gx#stx-pair/null? _%tl139226139258%_)) + (let ((_g149014_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl138094138126%_ + _%tl139226139258%_ '0)))) (begin - (let ((_g147883_ + (let ((_g149015_ (let () (declare (not safe)) - (if (##values? _g147882_) - (##vector-length _g147882_) + (if (##values? _g149014_) + (##vector-length _g149014_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g147883_ 2))) + (##fx= _g149015_ 2))) (error "Context expects 2 values" - _g147883_))) - (let ((_%target138095138129%_ + _g149015_))) + (let ((_%target139227139261%_ (let () (declare (not safe)) - (##vector-ref _g147882_ 0))) - (_%tl138097138131%_ + (##vector-ref _g149014_ 0))) + (_%tl139229139263%_ (let () (declare (not safe)) - (##vector-ref _g147882_ 1)))) + (##vector-ref _g149014_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138097138131%_)) - (letrec ((_%loop138098138134%_ - (lambda (_%hd138096138137%_ - _%eid138102138139%_ - _%id138103138141%_) + (gx#stx-null? _%tl139229139263%_)) + (letrec ((_%loop139230139266%_ + (lambda (_%hd139228139269%_ + _%eid139234139271%_ + _%id139235139273%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd138096138137%_)) - (let ((_%e138099138144%_ + _%hd139228139269%_)) + (let ((_%e139231139276%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd138096138137%_)))) - (let ((_%lp-hd138100138147%_ + (gx#stx-e _%hd139228139269%_)))) + (let ((_%lp-hd139232139279%_ (let () (declare (not safe)) - (##car _%e138099138144%_))) - (_%lp-tl138101138149%_ + (##car _%e139231139276%_))) + (_%lp-tl139233139281%_ (let () (declare (not safe)) - (##cdr _%e138099138144%_)))) + (##cdr _%e139231139276%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd138100138147%_)) - (let ((_%e138106138152%_ + (gx#stx-pair? _%lp-hd139232139279%_)) + (let ((_%e139238139284%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd138100138147%_)))) - (let ((_%hd138107138155%_ + (gx#stx-e _%lp-hd139232139279%_)))) + (let ((_%hd139239139287%_ (let () (declare (not safe)) - (##car _%e138106138152%_))) - (_%tl138108138157%_ + (##car _%e139238139284%_))) + (_%tl139240139289%_ (let () (declare (not safe)) - (##cdr _%e138106138152%_)))) + (##cdr _%e139238139284%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138108138157%_)) - (let ((_%e138109138160%_ + (gx#stx-pair? _%tl139240139289%_)) + (let ((_%e139241139292%_ (let () (declare (not safe)) - (gx#stx-e _%tl138108138157%_)))) - (let ((_%hd138110138163%_ + (gx#stx-e _%tl139240139289%_)))) + (let ((_%hd139242139295%_ (let () (declare (not safe)) - (##car _%e138109138160%_))) - (_%tl138111138165%_ + (##car _%e139241139292%_))) + (_%tl139243139297%_ (let () (declare (not safe)) - (##cdr _%e138109138160%_)))) + (##cdr _%e139241139292%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138111138165%_)) - (_%loop138098138134%_ - _%lp-tl138101138149%_ - (cons _%hd138110138163%_ - _%eid138102138139%_) - (cons _%hd138107138155%_ - _%id138103138141%_)) - (_%g138088138116%_ - _%g138089138119%_)))) - (_%g138088138116%_ _%g138089138119%_)))) - (_%g138088138116%_ _%g138089138119%_)))) - (let ((_%eid138104138168%_ (reverse _%eid138102138139%_)) - (_%id138105138170%_ (reverse _%id138103138141%_))) - ((lambda (_%L138173%_ _%L138174%_) + (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%_) (cons '%#extern - (map _%generate1138086%_ - (let ((__tmp147884 - (lambda (_%g138189138192%_ - _%g138190138194%_) - (cons _%g138189138192%_ - _%g138190138194%_)))) + (map _%generate1139218%_ + (let ((__tmp149016 + (lambda (_%g139321139324%_ + _%g139322139326%_) + (cons _%g139321139324%_ + _%g139322139326%_)))) (declare (not safe)) - (__foldr1 __tmp147884 '() _%L138174%_)) - (let ((__tmp147885 - (lambda (_%g138196138199%_ - _%g138197138201%_) - (cons _%g138196138199%_ - _%g138197138201%_)))) + (__foldr1 __tmp149016 '() _%L139306%_)) + (let ((__tmp149017 + (lambda (_%g139328139331%_ + _%g139329139333%_) + (cons _%g139328139331%_ + _%g139329139333%_)))) (declare (not safe)) - (__foldr1 __tmp147885 '() _%L138173%_))))) - _%eid138104138168%_ - _%id138105138170%_)))))) + (__foldr1 __tmp149017 '() _%L139305%_))))) + _%eid139236139300%_ + _%id139237139302%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop138098138134%_ - _%target138095138129%_ + (_%loop139230139266%_ + _%target139227139261%_ '() '())) - (_%g138088138116%_ - _%g138089138119%_))))) - (_%g138088138116%_ _%g138089138119%_)))) - (_%g138088138116%_ _%g138089138119%_))))) - (_%g138087138204%_ _%stx138084%_))))) + (_%g139220139248%_ + _%g139221139251%_))))) + (_%g139220139248%_ _%g139221139251%_)))) + (_%g139220139248%_ _%g139221139251%_))))) + (_%g139219139336%_ _%stx139216%_))))) (define gxc#generate-meta-define-values% - (lambda (_%self137873%_ _%stx137874%_) - (letrec ((_%generate1137876%_ - (lambda (_%id138078%_) - (let ((_%eid138080%_ + (lambda (_%self139005%_ _%stx139006%_) + (letrec ((_%generate1139008%_ + (lambda (_%id139210%_) + (let ((_%eid139212%_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%id138078%_))) - (_%ident138081%_ - (gxc#generate-runtime-identifier _%id138078%_))) + (gxc#generate-runtime-binding-id _%id139210%_))) + (_%ident139213%_ + (gxc#generate-runtime-identifier _%id139210%_))) (cons '%#define-runtime - (cons _%ident138081%_ (cons _%eid138080%_ '())))))) - (_%generate*137877%_ - (lambda (_%all138046%_) - (let* ((_%all138047138055%_ _%all138046%_) - (_%else138049138063%_ - (lambda () (cons '%#begin _%all138046%_))) - (_%K138051138068%_ - (lambda (_%one138066%_) _%one138066%_))) - (if (let () - (declare (not safe)) - (##pair? _%all138047138055%_)) - (let ((_%hd138052138071%_ + (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%_ (let () (declare (not safe)) - (##car _%all138047138055%_))) - (_%tl138053138073%_ + (##car _%all139179139187%_))) + (_%tl139185139205%_ (let () (declare (not safe)) - (##cdr _%all138047138055%_)))) - (let ((_%one138076%_ _%hd138052138071%_)) - (if (let () - (declare (not safe)) - (##null? _%tl138053138073%_)) - (_%K138051138068%_ _%one138076%_) - (_%else138049138063%_)))) - (_%else138049138063%_)))))) - (let* ((_%g137879137896%_ - (lambda (_%g137880137893%_) + (##cdr _%all139179139187%_)))) + (let ((_%one139208%_ _%hd139184139203%_)) + (if (null? _%tl139185139205%_) + (_%K139183139200%_ _%one139208%_) + (_%else139181139195%_)))) + (_%else139181139195%_)))))) + (let* ((_%g139011139028%_ + (lambda (_%g139012139025%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137880137893%_)))) - (_%g137878138043%_ - (lambda (_%g137880137899%_) + _%g139012139025%_)))) + (_%g139010139175%_ + (lambda (_%g139012139031%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137880137899%_)) - (let ((_%e137883137901%_ + (gx#stx-pair? _%g139012139031%_)) + (let ((_%e139015139033%_ (let () (declare (not safe)) - (gx#stx-e _%g137880137899%_)))) - (let ((_%hd137884137904%_ + (gx#stx-e _%g139012139031%_)))) + (let ((_%hd139016139036%_ (let () (declare (not safe)) - (##car _%e137883137901%_))) - (_%tl137885137906%_ + (##car _%e139015139033%_))) + (_%tl139017139038%_ (let () (declare (not safe)) - (##cdr _%e137883137901%_)))) + (##cdr _%e139015139033%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137885137906%_)) - (let ((_%e137886137909%_ + (gx#stx-pair? _%tl139017139038%_)) + (let ((_%e139018139041%_ (let () (declare (not safe)) - (gx#stx-e _%tl137885137906%_)))) - (let ((_%hd137887137912%_ + (gx#stx-e _%tl139017139038%_)))) + (let ((_%hd139019139044%_ (let () (declare (not safe)) - (##car _%e137886137909%_))) - (_%tl137888137914%_ + (##car _%e139018139041%_))) + (_%tl139020139046%_ (let () (declare (not safe)) - (##cdr _%e137886137909%_)))) + (##cdr _%e139018139041%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137888137914%_)) - (let ((_%e137889137917%_ + (gx#stx-pair? _%tl139020139046%_)) + (let ((_%e139021139049%_ (let () (declare (not safe)) (gx#stx-e - _%tl137888137914%_)))) - (let ((_%hd137890137920%_ + _%tl139020139046%_)))) + (let ((_%hd139022139052%_ (let () (declare (not safe)) - (##car _%e137889137917%_))) - (_%tl137891137922%_ + (##car _%e139021139049%_))) + (_%tl139023139054%_ (let () (declare (not safe)) - (##cdr _%e137889137917%_)))) + (##cdr _%e139021139049%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137891137922%_)) - ((lambda (_%L137925%_ - _%L137926%_) - (let _%lp137942%_ ((_%rest137944%_ + _%tl139023139054%_)) + ((lambda (_%L139057%_ + _%L139058%_) + (let _%lp139074%_ ((_%rest139076%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L137926%_) - (_%r137945%_ '())) + _%L139058%_) + (_%r139077%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx147621147622%_ - _%rest137944%_) - (_%g137950137967%_ + (let* ((_%__stx148753148754%_ + _%rest139076%_) + (_%g139082139099%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14213,160 +14038,160 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147621147622%_))))) - (let ((_%__kont147623147624%_ - (lambda (_%L138030%_) - (_%lp137942%_ _%L138030%_ _%r137945%_))) - (_%__kont147625147626%_ - (lambda (_%L138003%_ _%L138004%_) - (_%lp137942%_ - _%L138003%_ - (cons (_%generate1137876%_ _%L138004%_) - _%r137945%_)))) - (_%__kont147627147628%_ - (lambda (_%L137979%_) - (_%generate*137877%_ - (let ((__tmp147886 - (cons (_%generate1137876%_ _%L137979%_) '()))) + _%__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%_) '()))) (declare (not safe)) - (__foldl1 cons __tmp147886 _%r137945%_))))) - (_%__kont147629147630%_ - (lambda () (_%generate*137877%_ (reverse _%r137945%_))))) - (let ((_%g137948137990%_ + (__foldl1 cons __tmp149018 _%r139077%_))))) + (_%__kont148761148762%_ + (lambda () (_%generate*139009%_ (reverse _%r139077%_))))) + (let ((_%g139080139122%_ (lambda () - (let ((_%L137979%_ _%__stx147621147622%_)) + (let ((_%L139111%_ _%__stx148753148754%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L137979%_)) - (_%__kont147627147628%_ _%L137979%_) - (_%__kont147629147630%_)))))) + (gx#identifier? _%L139111%_)) + (_%__kont148759148760%_ _%L139111%_) + (_%__kont148761148762%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147621147622%_)) - (let ((_%e137953138019%_ + (gx#stx-pair? _%__stx148753148754%_)) + (let ((_%e139085139151%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147621147622%_)))) - (let ((_%tl137955138024%_ + (gx#stx-e _%__stx148753148754%_)))) + (let ((_%tl139087139156%_ (let () (declare (not safe)) - (##cdr _%e137953138019%_))) - (_%hd137954138022%_ + (##cdr _%e139085139151%_))) + (_%hd139086139154%_ (let () (declare (not safe)) - (##car _%e137953138019%_)))) + (##car _%e139085139151%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd137954138022%_)) - (let ((_%e137956138027%_ + (gx#stx-datum? _%hd139086139154%_)) + (let ((_%e139088139159%_ (let () (declare (not safe)) - (gx#stx-e _%hd137954138022%_)))) - (if (equal? _%e137956138027%_ '#f) - (_%__kont147623147624%_ - _%tl137955138024%_) - (_%__kont147625147626%_ - _%tl137955138024%_ - _%hd137954138022%_))) - (_%__kont147625147626%_ - _%tl137955138024%_ - _%hd137954138022%_)))) - (let () (declare (not safe)) (_%g137948137990%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd137890137920%_ - _%hd137887137912%_) - (_%g137879137896%_ - _%g137880137899%_)))) - (_%g137879137896%_ - _%g137880137899%_)))) - (_%g137879137896%_ _%g137880137899%_)))) - (_%g137879137896%_ _%g137880137899%_))))) - (_%g137878138043%_ _%stx137874%_))))) + (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%_))))) (define gxc#generate-meta-define-syntax% - (lambda (_%self137770%_ _%stx137771%_) - (let* ((_%g137773137790%_ - (lambda (_%g137774137787%_) + (lambda (_%self138902%_ _%stx138903%_) + (let* ((_%g138905138922%_ + (lambda (_%g138906138919%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137774137787%_)))) - (_%g137772137870%_ - (lambda (_%g137774137793%_) + _%g138906138919%_)))) + (_%g138904139002%_ + (lambda (_%g138906138925%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137774137793%_)) - (let ((_%e137777137795%_ + (gx#stx-pair? _%g138906138925%_)) + (let ((_%e138909138927%_ (let () (declare (not safe)) - (gx#stx-e _%g137774137793%_)))) - (let ((_%hd137778137798%_ + (gx#stx-e _%g138906138925%_)))) + (let ((_%hd138910138930%_ (let () (declare (not safe)) - (##car _%e137777137795%_))) - (_%tl137779137800%_ + (##car _%e138909138927%_))) + (_%tl138911138932%_ (let () (declare (not safe)) - (##cdr _%e137777137795%_)))) + (##cdr _%e138909138927%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137779137800%_)) - (let ((_%e137780137803%_ + (gx#stx-pair? _%tl138911138932%_)) + (let ((_%e138912138935%_ (let () (declare (not safe)) - (gx#stx-e _%tl137779137800%_)))) - (let ((_%hd137781137806%_ + (gx#stx-e _%tl138911138932%_)))) + (let ((_%hd138913138938%_ (let () (declare (not safe)) - (##car _%e137780137803%_))) - (_%tl137782137808%_ + (##car _%e138912138935%_))) + (_%tl138914138940%_ (let () (declare (not safe)) - (##cdr _%e137780137803%_)))) + (##cdr _%e138912138935%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137782137808%_)) - (let ((_%e137783137811%_ + (gx#stx-pair? _%tl138914138940%_)) + (let ((_%e138915138943%_ (let () (declare (not safe)) - (gx#stx-e _%tl137782137808%_)))) - (let ((_%hd137784137814%_ + (gx#stx-e _%tl138914138940%_)))) + (let ((_%hd138916138946%_ (let () (declare (not safe)) - (##car _%e137783137811%_))) - (_%tl137785137816%_ + (##car _%e138915138943%_))) + (_%tl138917138948%_ (let () (declare (not safe)) - (##cdr _%e137783137811%_)))) + (##cdr _%e138915138943%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137785137816%_)) - ((lambda (_%L137819%_ - _%L137820%_) - (let* ((_%eid137835%_ + _%tl138917138948%_)) + ((lambda (_%L138951%_ + _%L138952%_) + (let* ((_%eid138967%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L137820%_))) - (_%phi137837%_ - (let ((__tmp147887 + _%L138952%_))) + (_%phi138969%_ + (let ((__tmp149019 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp147887 '1))) - (_%block137839%_ + (##fx+ __tmp149019 '1))) + (_%block138971%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self137770%_ 'state)) - _%phi137837%_))) + (slot-ref__0 _%self138902%_ 'state)) + _%phi138969%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g137842137849%_ - (lambda (_%g137843137846%_) + (let* ((_%g138974138981%_ + (lambda (_%g138975138978%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14374,24 +14199,24 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137843137846%_)))) - (_%g137841137867%_ - (lambda (_%g137843137852%_) - ((lambda (_%L137854%_) + _%g138975138978%_)))) + (_%g138973138999%_ + (lambda (_%g138975138984%_) + ((lambda (_%L138986%_) (gxc#meta-state-add-phi! (let () (declare (not safe)) - (slot-ref__0 _%self137770%_ 'state)) - _%phi137837%_ + (slot-ref__0 _%self138902%_ 'state)) + _%phi138969%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime)) - (cons _%L137854%_ (cons _%L137819%_ '()))))) - _%g137843137852%_)))) + (cons _%L138986%_ (cons _%L138951%_ '()))))) + _%g138975138984%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g137841137867%_ - _%eid137835%_)) - (if _%block137839%_ + (_%g138973138999%_ + _%eid138967%_)) + (if _%block138971%_ (cons '%#begin (cons (cons '%#begin-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14400,7 +14225,7 @@ (cons 'load-module '())) (cons (cons '%#quote - (cons _%block137839%_ + (cons _%block138971%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) @@ -14408,129 +14233,129 @@ '())) (cons (cons '%#define-syntax (cons (gxc#generate-runtime-identifier - _%L137820%_) - (cons _%eid137835%_ '()))) + _%L138952%_) + (cons _%eid138967%_ '()))) '()))) (cons '%#define-syntax - (cons (gxc#generate-runtime-identifier _%L137820%_) - (cons _%eid137835%_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd137784137814%_ - _%hd137781137806%_) - (_%g137773137790%_ - _%g137774137793%_)))) - (_%g137773137790%_ _%g137774137793%_)))) - (_%g137773137790%_ _%g137774137793%_)))) - (_%g137773137790%_ _%g137774137793%_))))) - (_%g137772137870%_ _%stx137771%_)))) + (cons (gxc#generate-runtime-identifier _%L138952%_) + (cons _%eid138967%_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd138916138946%_ + _%hd138913138938%_) + (_%g138905138922%_ + _%g138906138925%_)))) + (_%g138905138922%_ _%g138906138925%_)))) + (_%g138905138922%_ _%g138906138925%_)))) + (_%g138905138922%_ _%g138906138925%_))))) + (_%g138904139002%_ _%stx138903%_)))) (define gxc#generate-meta-define-alias% - (lambda (_%self137702%_ _%stx137703%_) - (let* ((_%g137705137722%_ - (lambda (_%g137706137719%_) + (lambda (_%self138834%_ _%stx138835%_) + (let* ((_%g138837138854%_ + (lambda (_%g138838138851%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137706137719%_)))) - (_%g137704137767%_ - (lambda (_%g137706137725%_) + _%g138838138851%_)))) + (_%g138836138899%_ + (lambda (_%g138838138857%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137706137725%_)) - (let ((_%e137709137727%_ + (gx#stx-pair? _%g138838138857%_)) + (let ((_%e138841138859%_ (let () (declare (not safe)) - (gx#stx-e _%g137706137725%_)))) - (let ((_%hd137710137730%_ + (gx#stx-e _%g138838138857%_)))) + (let ((_%hd138842138862%_ (let () (declare (not safe)) - (##car _%e137709137727%_))) - (_%tl137711137732%_ + (##car _%e138841138859%_))) + (_%tl138843138864%_ (let () (declare (not safe)) - (##cdr _%e137709137727%_)))) + (##cdr _%e138841138859%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137711137732%_)) - (let ((_%e137712137735%_ + (gx#stx-pair? _%tl138843138864%_)) + (let ((_%e138844138867%_ (let () (declare (not safe)) - (gx#stx-e _%tl137711137732%_)))) - (let ((_%hd137713137738%_ + (gx#stx-e _%tl138843138864%_)))) + (let ((_%hd138845138870%_ (let () (declare (not safe)) - (##car _%e137712137735%_))) - (_%tl137714137740%_ + (##car _%e138844138867%_))) + (_%tl138846138872%_ (let () (declare (not safe)) - (##cdr _%e137712137735%_)))) + (##cdr _%e138844138867%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137714137740%_)) - (let ((_%e137715137743%_ + (gx#stx-pair? _%tl138846138872%_)) + (let ((_%e138847138875%_ (let () (declare (not safe)) - (gx#stx-e _%tl137714137740%_)))) - (let ((_%hd137716137746%_ + (gx#stx-e _%tl138846138872%_)))) + (let ((_%hd138848138878%_ (let () (declare (not safe)) - (##car _%e137715137743%_))) - (_%tl137717137748%_ + (##car _%e138847138875%_))) + (_%tl138849138880%_ (let () (declare (not safe)) - (##cdr _%e137715137743%_)))) + (##cdr _%e138847138875%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137717137748%_)) - ((lambda (_%L137751%_ - _%L137752%_) + _%tl138849138880%_)) + ((lambda (_%L138883%_ + _%L138884%_) (cons '%#define-alias (cons (gxc#generate-runtime-identifier - _%L137752%_) + _%L138884%_) (cons (gxc#generate-runtime-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L137751%_) + _%L138883%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd137716137746%_ - _%hd137713137738%_) - (_%g137705137722%_ - _%g137706137725%_)))) - (_%g137705137722%_ _%g137706137725%_)))) - (_%g137705137722%_ _%g137706137725%_)))) - (_%g137705137722%_ _%g137706137725%_))))) - (_%g137704137767%_ _%stx137703%_)))) + _%hd138848138878%_ + _%hd138845138870%_) + (_%g138837138854%_ + _%g138838138857%_)))) + (_%g138837138854%_ _%g138838138857%_)))) + (_%g138837138854%_ _%g138838138857%_)))) + (_%g138837138854%_ _%g138838138857%_))))) + (_%g138836138899%_ _%stx138835%_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_%self137699%_ _%stx137700%_) + (lambda (_%self138831%_ _%stx138832%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self137699%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self138831%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx137700%_) - (gxc#generate-meta-define-values% _%self137699%_ _%stx137700%_))) + _%stx138832%_) + (gxc#generate-meta-define-values% _%self138831%_ _%stx138832%_))) (define gxc#generate-meta-phi-expr - (lambda (_%self137696%_ _%stx137697%_) + (lambda (_%self138828%_ _%stx138829%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self137696%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self138828%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx137697%_) + _%stx138829%_) '#!void)) (define gxc#meta-state::t - (let ((__tmp147889 (list)) (__tmp147888 (cons (cons 'struct: '#t) '()))) + (let ((__tmp149021 (list)) (__tmp149020 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state::t 'meta-state - __tmp147889 + __tmp149021 '(src n open blocks) - __tmp147888 + __tmp149020 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (__make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _%$args137693%_ - (apply make-instance gxc#meta-state::t _%$args137693%_))) + (lambda _%$args138825%_ + (apply make-instance gxc#meta-state::t _%$args138825%_))) (define gxc#meta-state-src (let () (declare (not safe)) @@ -14596,77 +14421,77 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#meta-state::t 'blocks))) (define gxc#meta-state:::init! - (lambda (_%self137038137677%_ _%ctx137679%_) - (let* ((_%self137681%_ _%self137038137677%_) - (_%self137683%_ _%self137681%_)) - (if (let ((__tmp147890 + (lambda (_%self138170138809%_ _%ctx138811%_) + (let* ((_%self138813%_ _%self138170138809%_) + (_%self138815%_ _%self138813%_)) + (if (let ((__tmp149022 (let () (declare (not safe)) - (##structure-length _%self137683%_)))) + (##structure-length _%self138815%_)))) (declare (not safe)) - (##fx< '4 __tmp147890)) + (##fx< '4 __tmp149022)) (begin - (let ((__tmp147891 - (let ((__tmp147892 + (let ((__tmp149023 + (let ((__tmp149024 (##structure-ref - _%ctx137679%_ + _%ctx138811%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp147892)))) + (gxc#module-id->path-string __tmp149024)))) (declare (not safe)) (##unchecked-structure-set! - _%self137683%_ - __tmp147891 + _%self138815%_ + __tmp149023 '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self137683%_ '1 '2 '#f '#f)) - (let ((__tmp147893 + (##unchecked-structure-set! _%self138815%_ '1 '2 '#f '#f)) + (let ((__tmp149025 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self137683%_ - __tmp147893 + _%self138815%_ + __tmp149025 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self137683%_ '() '4 '#f '#f)) + (##unchecked-structure-set! _%self138815%_ '() '4 '#f '#f)) '#!void) - (let ((__tmp147894 + (let ((__tmp149026 (let () (declare (not safe)) - (##vector-length _%self137683%_)))) + (##vector-length _%self138815%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self137683%_ + _%self138815%_ '4 - __tmp147894)))))) + __tmp149026)))))) (let () (declare (not safe)) (__bind-method!__% gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp147896 (list)) (__tmp147895 (cons (cons 'struct: '#t) '()))) + (let ((__tmp149028 (list)) (__tmp149027 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state-block::t 'meta-state-block - __tmp147896 + __tmp149028 '(ctx phi n code) - __tmp147895 + __tmp149027 '#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 _%$args137552%_ - (apply make-instance gxc#meta-state-block::t _%$args137552%_))) + (lambda _%$args138684%_ + (apply make-instance gxc#meta-state-block::t _%$args138684%_))) (define gxc#meta-state-block-ctx (let () (declare (not safe)) @@ -14732,100 +14557,100 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#meta-state-block::t 'code))) (define gxc#meta-state-begin-phi! - (lambda (_%state137511%_ _%phi137512%_) - (let* ((_%state137513137521%_ _%state137511%_) - (_%E137515137525%_ + (lambda (_%state138643%_ _%phi138644%_) + (let* ((_%state138645138653%_ _%state138643%_) + (_%E138647138657%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%state137513137521%_ + _%state138645138653%_ '((meta-state src n open)))) '#!void)) - (_%K137516137534%_ - (lambda (_%open137528%_ _%n137529%_ _%src137530%_) + (_%K138648138666%_ + (lambda (_%open138660%_ _%n138661%_ _%src138662%_) (if (let () (declare (not safe)) - (hash-get _%open137528%_ _%phi137512%_)) + (hash-get _%open138660%_ _%phi138644%_)) '#f - (let ((_%block-ref137532%_ - (let ((__tmp147897 (number->string _%n137529%_))) + (let ((_%block-ref138664%_ + (let ((__tmp149029 (number->string _%n138661%_))) (declare (not safe)) (##string-append - _%src137530%_ + _%src138662%_ '"~" - __tmp147897)))) + __tmp149029)))) (##structure-set! - _%state137511%_ - (let () (declare (not safe)) (##fx+ _%n137529%_ '1)) + _%state138643%_ + (let () (declare (not safe)) (##fx+ _%n138661%_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp147898 - (let ((__tmp147899 + (let ((__tmp149030 + (let ((__tmp149031 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp147899 - _%phi137512%_ - _%n137529%_ + __tmp149031 + _%phi138644%_ + _%n138661%_ '())))) (declare (not safe)) - (hash-put! _%open137528%_ _%phi137512%_ __tmp147898)) - _%block-ref137532%_))))) + (hash-put! _%open138660%_ _%phi138644%_ __tmp149030)) + _%block-ref138664%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%state137513137521%_ + _%state138645138653%_ 'gxc#meta-state::t)) - (let* ((_%e137517137537%_ + (let* ((_%e138649138669%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state137513137521%_ + _%state138645138653%_ '1 '#f '#f))) - (_%src137540%_ _%e137517137537%_) - (_%e137518137542%_ + (_%src138672%_ _%e138649138669%_) + (_%e138650138674%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state137513137521%_ + _%state138645138653%_ '2 '#f '#f))) - (_%n137545%_ _%e137518137542%_) - (_%e137519137547%_ + (_%n138677%_ _%e138650138674%_) + (_%e138651138679%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state137513137521%_ + _%state138645138653%_ '3 '#f '#f))) - (_%open137550%_ _%e137519137547%_)) - (_%K137516137534%_ _%open137550%_ _%n137545%_ _%src137540%_)) - (_%E137515137525%_))))) + (_%open138682%_ _%e138651138679%_)) + (_%K138648138666%_ _%open138682%_ _%n138677%_ _%src138672%_)) + (_%E138647138657%_))))) (define gxc#meta-state-add-phi! - (lambda (_%state137505%_ _%phi137506%_ _%stx137507%_) - (let ((_%block137509%_ - (let ((__tmp147900 + (lambda (_%state138637%_ _%phi138638%_ _%stx138639%_) + (let ((_%block138641%_ + (let ((__tmp149032 (##structure-ref - _%state137505%_ + _%state138637%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-get __tmp147900 _%phi137506%_)))) + (hash-get __tmp149032 _%phi138638%_)))) (##structure-set! - _%block137509%_ - (cons _%stx137507%_ + _%block138641%_ + (cons _%stx138639%_ (##structure-ref - _%block137509%_ + _%block138641%_ '4 gxc#meta-state-block::t '#f)) @@ -14833,264 +14658,264 @@ gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_%state137499%_) + (lambda (_%state138631%_) (##structure-set! - _%state137499%_ - (let ((__tmp147903 - (lambda (_%_137501%_ _%block137502%_ _%r137503%_) - (cons _%block137502%_ _%r137503%_))) - (__tmp147902 - (##structure-ref _%state137499%_ '4 gxc#meta-state::t '#f)) - (__tmp147901 - (##structure-ref _%state137499%_ '3 gxc#meta-state::t '#f))) + _%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))) (declare (not safe)) - (hash-fold __tmp147903 __tmp147902 __tmp147901)) + (hash-fold __tmp149035 __tmp149034 __tmp149033)) '4 gxc#meta-state::t '#f) (##structure-set! - _%state137499%_ + _%state138631%_ (let () (declare (not safe)) (make-hash-table-eq)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_%state137451%_) - (gxc#meta-state-end-phi! _%state137451%_) - (let ((__tmp147905 - (lambda (_%block137453%_ _%r137454%_) - (let* ((_%block137455137464%_ _%block137453%_) - (_%E137457137468%_ + (lambda (_%state138583%_) + (gxc#meta-state-end-phi! _%state138583%_) + (let ((__tmp149037 + (lambda (_%block138585%_ _%r138586%_) + (let* ((_%block138587138596%_ _%block138585%_) + (_%E138589138600%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block137455137464%_ + _%block138587138596%_ '((meta-state-block ctx phi n code)))) '#!void)) - (_%K137458137476%_ - (lambda (_%code137471%_ - _%n137472%_ - _%phi137473%_ - _%ctx137474%_) - (if (null? _%code137471%_) - _%r137454%_ - (cons (cons _%ctx137474%_ - (cons _%phi137473%_ - (cons _%n137472%_ + (_%K138590138608%_ + (lambda (_%code138603%_ + _%n138604%_ + _%phi138605%_ + _%ctx138606%_) + (if (null? _%code138603%_) + _%r138586%_ + (cons (cons _%ctx138606%_ + (cons _%phi138605%_ + (cons _%n138604%_ (cons (cons '%#begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse _%code137471%_)) + (reverse _%code138603%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r137454%_))))) + _%r138586%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%block137455137464%_ + _%block138587138596%_ 'gxc#meta-state-block::t)) - (let* ((_%e137459137479%_ + (let* ((_%e138591138611%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block137455137464%_ + _%block138587138596%_ '1 '#f '#f))) - (_%ctx137482%_ _%e137459137479%_) - (_%e137460137484%_ + (_%ctx138614%_ _%e138591138611%_) + (_%e138592138616%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block137455137464%_ + _%block138587138596%_ '2 '#f '#f))) - (_%phi137487%_ _%e137460137484%_) - (_%e137461137489%_ + (_%phi138619%_ _%e138592138616%_) + (_%e138593138621%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block137455137464%_ + _%block138587138596%_ '3 '#f '#f))) - (_%n137492%_ _%e137461137489%_) - (_%e137462137494%_ + (_%n138624%_ _%e138593138621%_) + (_%e138594138626%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block137455137464%_ + _%block138587138596%_ '4 '#f '#f))) - (_%code137497%_ _%e137462137494%_)) - (_%K137458137476%_ - _%code137497%_ - _%n137492%_ - _%phi137487%_ - _%ctx137482%_)) - (_%E137457137468%_))))) - (__tmp147904 - (##structure-ref _%state137451%_ '4 gxc#meta-state::t '#f))) + (_%code138629%_ _%e138594138626%_)) + (_%K138590138608%_ + _%code138629%_ + _%n138624%_ + _%phi138619%_ + _%ctx138614%_)) + (_%E138589138600%_))))) + (__tmp149036 + (##structure-ref _%state138583%_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (__foldl1 __tmp147905 '() __tmp147904)))) + (__foldl1 __tmp149037 '() __tmp149036)))) (define gxc#collect-expression-refs - (lambda (_%stx137447%_) - (let ((_%ht137449%_ + (lambda (_%stx138579%_) + (let ((_%ht138581%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (gxc#apply-collect-expression-refs__% '#f _%ht137449%_ _%stx137447%_) - _%ht137449%_))) + (gxc#apply-collect-expression-refs__% '#f _%ht138581%_ _%stx138579%_) + _%ht138581%_))) (define gxc#collect-refs-ref% - (lambda (_%self137390%_ _%stx137391%_) - (let* ((_%g137393137406%_ - (lambda (_%g137394137403%_) + (lambda (_%self138522%_ _%stx138523%_) + (let* ((_%g138525138538%_ + (lambda (_%g138526138535%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137394137403%_)))) - (_%g137392137444%_ - (lambda (_%g137394137409%_) + _%g138526138535%_)))) + (_%g138524138576%_ + (lambda (_%g138526138541%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137394137409%_)) - (let ((_%e137396137411%_ + (gx#stx-pair? _%g138526138541%_)) + (let ((_%e138528138543%_ (let () (declare (not safe)) - (gx#stx-e _%g137394137409%_)))) - (let ((_%hd137397137414%_ + (gx#stx-e _%g138526138541%_)))) + (let ((_%hd138529138546%_ (let () (declare (not safe)) - (##car _%e137396137411%_))) - (_%tl137398137416%_ + (##car _%e138528138543%_))) + (_%tl138530138548%_ (let () (declare (not safe)) - (##cdr _%e137396137411%_)))) + (##cdr _%e138528138543%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137398137416%_)) - (let ((_%e137399137419%_ + (gx#stx-pair? _%tl138530138548%_)) + (let ((_%e138531138551%_ (let () (declare (not safe)) - (gx#stx-e _%tl137398137416%_)))) - (let ((_%hd137400137422%_ + (gx#stx-e _%tl138530138548%_)))) + (let ((_%hd138532138554%_ (let () (declare (not safe)) - (##car _%e137399137419%_))) - (_%tl137401137424%_ + (##car _%e138531138551%_))) + (_%tl138533138556%_ (let () (declare (not safe)) - (##cdr _%e137399137419%_)))) + (##cdr _%e138531138551%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137401137424%_)) - ((lambda (_%L137427%_) - (let* ((_%bind137439%_ + (gx#stx-null? _%tl138533138556%_)) + ((lambda (_%L138559%_) + (let* ((_%bind138571%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L137427%_))) - (_%eid137441%_ - (if _%bind137439%_ + _%L138559%_))) + (_%eid138573%_ + (if _%bind138571%_ (##structure-ref - _%bind137439%_ + _%bind138571%_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _%L137427%_)))) - (__tmp147906 + _%L138559%_)))) + (__tmp149038 (let () (declare (not safe)) (slot-ref__0 - _%self137390%_ + _%self138522%_ 'table)))) (declare (not safe)) (hash-put! - __tmp147906 - _%eid137441%_ - _%eid137441%_))) - _%hd137400137422%_) - (_%g137393137406%_ _%g137394137409%_)))) - (_%g137393137406%_ _%g137394137409%_)))) - (_%g137393137406%_ _%g137394137409%_))))) - (_%g137392137444%_ _%stx137391%_)))) + __tmp149038 + _%eid138573%_ + _%eid138573%_))) + _%hd138532138554%_) + (_%g138525138538%_ _%g138526138541%_)))) + (_%g138525138538%_ _%g138526138541%_)))) + (_%g138525138538%_ _%g138526138541%_))))) + (_%g138524138576%_ _%stx138523%_)))) (define gxc#collect-refs-setq% - (lambda (_%self137317%_ _%stx137318%_) - (let* ((_%g137320137337%_ - (lambda (_%g137321137334%_) + (lambda (_%self138449%_ _%stx138450%_) + (let* ((_%g138452138469%_ + (lambda (_%g138453138466%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137321137334%_)))) - (_%g137319137387%_ - (lambda (_%g137321137340%_) + _%g138453138466%_)))) + (_%g138451138519%_ + (lambda (_%g138453138472%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137321137340%_)) - (let ((_%e137324137342%_ + (gx#stx-pair? _%g138453138472%_)) + (let ((_%e138456138474%_ (let () (declare (not safe)) - (gx#stx-e _%g137321137340%_)))) - (let ((_%hd137325137345%_ + (gx#stx-e _%g138453138472%_)))) + (let ((_%hd138457138477%_ (let () (declare (not safe)) - (##car _%e137324137342%_))) - (_%tl137326137347%_ + (##car _%e138456138474%_))) + (_%tl138458138479%_ (let () (declare (not safe)) - (##cdr _%e137324137342%_)))) + (##cdr _%e138456138474%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137326137347%_)) - (let ((_%e137327137350%_ + (gx#stx-pair? _%tl138458138479%_)) + (let ((_%e138459138482%_ (let () (declare (not safe)) - (gx#stx-e _%tl137326137347%_)))) - (let ((_%hd137328137353%_ + (gx#stx-e _%tl138458138479%_)))) + (let ((_%hd138460138485%_ (let () (declare (not safe)) - (##car _%e137327137350%_))) - (_%tl137329137355%_ + (##car _%e138459138482%_))) + (_%tl138461138487%_ (let () (declare (not safe)) - (##cdr _%e137327137350%_)))) + (##cdr _%e138459138482%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137329137355%_)) - (let ((_%e137330137358%_ + (gx#stx-pair? _%tl138461138487%_)) + (let ((_%e138462138490%_ (let () (declare (not safe)) - (gx#stx-e _%tl137329137355%_)))) - (let ((_%hd137331137361%_ + (gx#stx-e _%tl138461138487%_)))) + (let ((_%hd138463138493%_ (let () (declare (not safe)) - (##car _%e137330137358%_))) - (_%tl137332137363%_ + (##car _%e138462138490%_))) + (_%tl138464138495%_ (let () (declare (not safe)) - (##cdr _%e137330137358%_)))) + (##cdr _%e138462138490%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137332137363%_)) - ((lambda (_%L137366%_ - _%L137367%_) - (let* ((_%bind137382%_ + _%tl138464138495%_)) + ((lambda (_%L138498%_ + _%L138499%_) + (let* ((_%bind138514%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L137367%_))) - (_%eid137384%_ - (if _%bind137382%_ + _%L138499%_))) + (_%eid138516%_ + (if _%bind138514%_ (##structure-ref - _%bind137382%_ + _%bind138514%_ '1 gx#binding::t '#f) @@ -15098,382 +14923,382 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L137367%_))))) + (gx#stx-e _%L138499%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp147907 + (let ((__tmp149039 (let () (declare (not safe)) (slot-ref__0 - _%self137317%_ + _%self138449%_ 'table)))) (declare (not safe)) (hash-put! - __tmp147907 - _%eid137384%_ - _%eid137384%_)) + __tmp149039 + _%eid138516%_ + _%eid138516%_)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self137317%_ - _%L137366%_)))) - _%hd137331137361%_ - _%hd137328137353%_) - (_%g137320137337%_ - _%g137321137340%_)))) - (_%g137320137337%_ _%g137321137340%_)))) - (_%g137320137337%_ _%g137321137340%_)))) - (_%g137320137337%_ _%g137321137340%_))))) - (_%g137319137387%_ _%stx137318%_)))) + _%self138449%_ + _%L138498%_)))) + _%hd138463138493%_ + _%hd138460138485%_) + (_%g138452138469%_ + _%g138453138472%_)))) + (_%g138452138469%_ _%g138453138472%_)))) + (_%g138452138469%_ _%g138453138472%_)))) + (_%g138452138469%_ _%g138453138472%_))))) + (_%g138451138519%_ _%stx138450%_)))) (define gxc#find-runtime-begin% - (lambda (_%self137274%_ _%stx137275%_) - (let* ((_%g137277137287%_ - (lambda (_%g137278137284%_) + (lambda (_%self138406%_ _%stx138407%_) + (let* ((_%g138409138419%_ + (lambda (_%g138410138416%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137278137284%_)))) - (_%g137276137314%_ - (lambda (_%g137278137290%_) + _%g138410138416%_)))) + (_%g138408138446%_ + (lambda (_%g138410138422%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137278137290%_)) - (let ((_%e137280137292%_ + (gx#stx-pair? _%g138410138422%_)) + (let ((_%e138412138424%_ (let () (declare (not safe)) - (gx#stx-e _%g137278137290%_)))) - (let ((_%hd137281137295%_ + (gx#stx-e _%g138410138422%_)))) + (let ((_%hd138413138427%_ (let () (declare (not safe)) - (##car _%e137280137292%_))) - (_%tl137282137297%_ + (##car _%e138412138424%_))) + (_%tl138414138429%_ (let () (declare (not safe)) - (##cdr _%e137280137292%_)))) - ((lambda (_%L137300%_) - (let ((__tmp147908 - (lambda (_%g137309137311%_) + (##cdr _%e138412138424%_)))) + ((lambda (_%L138432%_) + (let ((__tmp149040 + (lambda (_%g138441138443%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self137274%_ - _%g137309137311%_))))) + _%self138406%_ + _%g138441138443%_))))) (declare (not safe)) - (__ormap1 __tmp147908 _%L137300%_))) - _%tl137282137297%_))) - (_%g137277137287%_ _%g137278137290%_))))) - (_%g137276137314%_ _%stx137275%_)))) + (__ormap1 __tmp149040 _%L138432%_))) + _%tl138414138429%_))) + (_%g138409138419%_ _%g138410138422%_))))) + (_%g138408138446%_ _%stx138407%_)))) (define gxc#count-values-single% - (lambda (_%self137271%_ _%stx137272%_) '1)) + (lambda (_%self138403%_ _%stx138404%_) '1)) (define gxc#count-values-call% - (lambda (_%self137137%_ _%stx137138%_) - (let* ((_%__stx147651147652%_ _%stx137138%_) - (_%g137141137170%_ + (lambda (_%self138269%_ _%stx138270%_) + (let* ((_%__stx148783148784%_ _%stx138270%_) + (_%g138273138302%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147651147652%_))))) - (let ((_%__kont147653147654%_ - (lambda (_%L137238%_ _%L137239%_) - (length (let ((__tmp147909 - (lambda (_%g137260137263%_ _%g137261137265%_) - (cons _%g137260137263%_ - _%g137261137265%_)))) + _%__stx148783148784%_))))) + (let ((_%__kont148785148786%_ + (lambda (_%L138370%_ _%L138371%_) + (length (let ((__tmp149041 + (lambda (_%g138392138395%_ _%g138393138397%_) + (cons _%g138392138395%_ + _%g138393138397%_)))) (declare (not safe)) - (__foldr1 __tmp147909 '() _%L137238%_))))) - (_%__kont147657147658%_ (lambda () '#f))) - (let ((_%__match147696147697%_ - (lambda (_%e137145137182%_ - _%hd137146137185%_ - _%tl137147137187%_ - _%e137148137190%_ - _%hd137149137193%_ - _%tl137150137195%_ - _%e137151137198%_ - _%hd137152137201%_ - _%tl137153137203%_ - _%e137154137206%_ - _%hd137155137209%_ - _%tl137156137211%_ - _%__splice147655147656%_ - _%target137157137214%_ - _%tl137159137216%_) - (letrec ((_%loop137160137219%_ - (lambda (_%hd137158137222%_ - _%rand137164137224%_) + (__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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd137158137222%_)) - (let ((_%e137161137227%_ + (gx#stx-pair? _%hd138290138354%_)) + (let ((_%e138293138359%_ (let () (declare (not safe)) - (gx#stx-e _%hd137158137222%_)))) - (let ((_%lp-tl137163137232%_ + (gx#stx-e _%hd138290138354%_)))) + (let ((_%lp-tl138295138364%_ (let () (declare (not safe)) - (##cdr _%e137161137227%_))) - (_%lp-hd137162137230%_ + (##cdr _%e138293138359%_))) + (_%lp-hd138294138362%_ (let () (declare (not safe)) - (##car _%e137161137227%_)))) - (_%loop137160137219%_ - _%lp-tl137163137232%_ - (cons _%lp-hd137162137230%_ - _%rand137164137224%_)))) - (let ((_%rand137165137235%_ - (reverse _%rand137164137224%_))) - (let ((_%L137238%_ _%rand137165137235%_) - (_%L137239%_ _%hd137155137209%_)) + (##car _%e138293138359%_)))) + (_%loop138292138351%_ + _%lp-tl138295138364%_ + (cons _%lp-hd138294138362%_ + _%rand138296138356%_)))) + (let ((_%rand138297138367%_ + (reverse _%rand138296138356%_))) + (let ((_%L138370%_ _%rand138297138367%_) + (_%L138371%_ _%hd138287138341%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L137239%_ + _%L138371%_ 'values)) - (_%__kont147653147654%_ - _%L137238%_ - _%L137239%_) - (_%__kont147657147658%_)))))))) - (_%loop137160137219%_ _%target137157137214%_ '()))))) + (_%__kont148785148786%_ + _%L138370%_ + _%L138371%_) + (_%__kont148789148790%_)))))))) + (_%loop138292138351%_ _%target138289138346%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147651147652%_)) - (let ((_%e137145137182%_ + (gx#stx-pair? _%__stx148783148784%_)) + (let ((_%e138277138314%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147651147652%_)))) - (let ((_%tl137147137187%_ + (gx#stx-e _%__stx148783148784%_)))) + (let ((_%tl138279138319%_ (let () (declare (not safe)) - (##cdr _%e137145137182%_))) - (_%hd137146137185%_ + (##cdr _%e138277138314%_))) + (_%hd138278138317%_ (let () (declare (not safe)) - (##car _%e137145137182%_)))) + (##car _%e138277138314%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137147137187%_)) - (let ((_%e137148137190%_ + (gx#stx-pair? _%tl138279138319%_)) + (let ((_%e138280138322%_ (let () (declare (not safe)) - (gx#stx-e _%tl137147137187%_)))) - (let ((_%tl137150137195%_ + (gx#stx-e _%tl138279138319%_)))) + (let ((_%tl138282138327%_ (let () (declare (not safe)) - (##cdr _%e137148137190%_))) - (_%hd137149137193%_ + (##cdr _%e138280138322%_))) + (_%hd138281138325%_ (let () (declare (not safe)) - (##car _%e137148137190%_)))) + (##car _%e138280138322%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd137149137193%_)) - (let ((_%e137151137198%_ + (gx#stx-pair? _%hd138281138325%_)) + (let ((_%e138283138330%_ (let () (declare (not safe)) - (gx#stx-e _%hd137149137193%_)))) - (let ((_%tl137153137203%_ + (gx#stx-e _%hd138281138325%_)))) + (let ((_%tl138285138335%_ (let () (declare (not safe)) - (##cdr _%e137151137198%_))) - (_%hd137152137201%_ + (##cdr _%e138283138330%_))) + (_%hd138284138333%_ (let () (declare (not safe)) - (##car _%e137151137198%_)))) + (##car _%e138283138330%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd137152137201%_)) + _%hd138284138333%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd137152137201%_)) + _%hd138284138333%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137153137203%_)) - (let ((_%e137154137206%_ + _%tl138285138335%_)) + (let ((_%e138286138338%_ (let () (declare (not safe)) (gx#stx-e - _%tl137153137203%_)))) - (let ((_%tl137156137211%_ + _%tl138285138335%_)))) + (let ((_%tl138288138343%_ (let () (declare (not safe)) - (##cdr _%e137154137206%_))) - (_%hd137155137209%_ + (##cdr _%e138286138338%_))) + (_%hd138287138341%_ (let () (declare (not safe)) - (##car _%e137154137206%_)))) + (##car _%e138286138338%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137156137211%_)) + _%tl138288138343%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl137150137195%_)) - (let ((_%__splice147655147656%_ + (gx#stx-pair/null? _%tl138282138327%_)) + (let ((_%__splice148787148788%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl137150137195%_ + _%tl138282138327%_ '0)))) - (let ((_%tl137159137216%_ + (let ((_%tl138291138348%_ (let () (declare (not safe)) - (##vector-ref _%__splice147655147656%_ '1))) - (_%target137157137214%_ + (##vector-ref _%__splice148787148788%_ '1))) + (_%target138289138346%_ (let () (declare (not safe)) - (##vector-ref _%__splice147655147656%_ '0)))) + (##vector-ref _%__splice148787148788%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137159137216%_)) - (_%__match147696147697%_ - _%e137145137182%_ - _%hd137146137185%_ - _%tl137147137187%_ - _%e137148137190%_ - _%hd137149137193%_ - _%tl137150137195%_ - _%e137151137198%_ - _%hd137152137201%_ - _%tl137153137203%_ - _%e137154137206%_ - _%hd137155137209%_ - _%tl137156137211%_ - _%__splice147655147656%_ - _%target137157137214%_ - _%tl137159137216%_) - (_%__kont147657147658%_)))) - (_%__kont147657147658%_)) - (_%__kont147657147658%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147657147658%_)) - (_%__kont147657147658%_)) - (_%__kont147657147658%_)))) - (_%__kont147657147658%_)))) - (_%__kont147657147658%_)))) - (_%__kont147657147658%_))))))) + (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%_))))))) (define gxc#count-values-if% - (lambda (_%self137040%_ _%stx137041%_) - (let* ((_%g137043137064%_ - (lambda (_%g137044137061%_) + (lambda (_%self138172%_ _%stx138173%_) + (let* ((_%g138175138196%_ + (lambda (_%g138176138193%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137044137061%_)))) - (_%g137042137134%_ - (lambda (_%g137044137067%_) + _%g138176138193%_)))) + (_%g138174138266%_ + (lambda (_%g138176138199%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137044137067%_)) - (let ((_%e137048137069%_ + (gx#stx-pair? _%g138176138199%_)) + (let ((_%e138180138201%_ (let () (declare (not safe)) - (gx#stx-e _%g137044137067%_)))) - (let ((_%hd137049137072%_ + (gx#stx-e _%g138176138199%_)))) + (let ((_%hd138181138204%_ (let () (declare (not safe)) - (##car _%e137048137069%_))) - (_%tl137050137074%_ + (##car _%e138180138201%_))) + (_%tl138182138206%_ (let () (declare (not safe)) - (##cdr _%e137048137069%_)))) + (##cdr _%e138180138201%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137050137074%_)) - (let ((_%e137051137077%_ + (gx#stx-pair? _%tl138182138206%_)) + (let ((_%e138183138209%_ (let () (declare (not safe)) - (gx#stx-e _%tl137050137074%_)))) - (let ((_%hd137052137080%_ + (gx#stx-e _%tl138182138206%_)))) + (let ((_%hd138184138212%_ (let () (declare (not safe)) - (##car _%e137051137077%_))) - (_%tl137053137082%_ + (##car _%e138183138209%_))) + (_%tl138185138214%_ (let () (declare (not safe)) - (##cdr _%e137051137077%_)))) + (##cdr _%e138183138209%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137053137082%_)) - (let ((_%e137054137085%_ + (gx#stx-pair? _%tl138185138214%_)) + (let ((_%e138186138217%_ (let () (declare (not safe)) - (gx#stx-e _%tl137053137082%_)))) - (let ((_%hd137055137088%_ + (gx#stx-e _%tl138185138214%_)))) + (let ((_%hd138187138220%_ (let () (declare (not safe)) - (##car _%e137054137085%_))) - (_%tl137056137090%_ + (##car _%e138186138217%_))) + (_%tl138188138222%_ (let () (declare (not safe)) - (##cdr _%e137054137085%_)))) + (##cdr _%e138186138217%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137056137090%_)) - (let ((_%e137057137093%_ + _%tl138188138222%_)) + (let ((_%e138189138225%_ (let () (declare (not safe)) (gx#stx-e - _%tl137056137090%_)))) - (let ((_%hd137058137096%_ + _%tl138188138222%_)))) + (let ((_%hd138190138228%_ (let () (declare (not safe)) - (##car _%e137057137093%_))) - (_%tl137059137098%_ + (##car _%e138189138225%_))) + (_%tl138191138230%_ (let () (declare (not safe)) - (##cdr _%e137057137093%_)))) + (##cdr _%e138189138225%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137059137098%_)) - ((lambda (_%L137101%_ - _%L137102%_ - _%L137103%_) - (let ((_%c1137120137122%_ + _%tl138191138230%_)) + ((lambda (_%L138233%_ + _%L138234%_ + _%L138235%_) + (let ((_%c1138252138254%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self137040%_ _%L137102%_)))) - (if _%c1137120137122%_ - (let* ((_%c1137125%_ _%c1137120137122%_) - (_%c2137126137128%_ + (gxc#compile-e__1 _%self138172%_ _%L138234%_)))) + (if _%c1138252138254%_ + (let* ((_%c1138257%_ _%c1138252138254%_) + (_%c2138258138260%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self137040%_ - _%L137101%_)))) - (if _%c2137126137128%_ - (let ((_%c2137131%_ _%c2137126137128%_)) - (if (fx= _%c1137125%_ _%c2137131%_) - _%c1137125%_ + _%self138172%_ + _%L138233%_)))) + (if _%c2138258138260%_ + (let ((_%c2138263%_ _%c2138258138260%_)) + (if (fx= _%c1138257%_ _%c2138263%_) + _%c1138257%_ '#f)) '#f)) '#f))) - _%hd137058137096%_ - _%hd137055137088%_ - _%hd137052137080%_) - (_%g137043137064%_ _%g137044137067%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g137043137064%_ - _%g137044137067%_)))) - (_%g137043137064%_ _%g137044137067%_)))) - (_%g137043137064%_ _%g137044137067%_)))) - (_%g137043137064%_ _%g137044137067%_))))) - (_%g137042137134%_ _%stx137041%_)))))) + _%hd138190138228%_ + _%hd138187138220%_ + _%hd138184138212%_) + (_%g138175138196%_ _%g138176138199%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g138175138196%_ + _%g138176138199%_)))) + (_%g138175138196%_ _%g138176138199%_)))) + (_%g138175138196%_ _%g138176138199%_)))) + (_%g138175138196%_ _%g138176138199%_))))) + (_%g138174138266%_ _%stx138173%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~1.scm b/src/bootstrap/gerbil/compiler/compile~1.scm index 08ab138df..333b508a4 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]#_g147911_| + (define |gxc[1]#_g149043_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147913_| + (define |gxc[1]#_g149045_| (##structure gx#syntax-quote::t '::collect-bindings::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147915_| + (define |gxc[1]#_g149047_| (##structure gx#syntax-quote::t 'make-::collect-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147917_| + (define |gxc[1]#_g149049_| (##structure gx#syntax-quote::t '::collect-bindings? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147920_| + (define |gxc[1]#_g149052_| (##structure gx#syntax-quote::t '::lift-modules::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147922_| + (define |gxc[1]#_g149054_| (##structure gx#syntax-quote::t 'make-::lift-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147924_| + (define |gxc[1]#_g149056_| (##structure gx#syntax-quote::t '::lift-modules? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147926_| + (define |gxc[1]#_g149058_| (##structure gx#syntax-quote::t '::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147928_| + (define |gxc[1]#_g149060_| (##structure gx#syntax-quote::t '::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147930_| + (define |gxc[1]#_g149062_| (##structure gx#syntax-quote::t '&::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147932_| + (define |gxc[1]#_g149064_| (##structure gx#syntax-quote::t '&::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147934_| + (define |gxc[1]#_g149066_| (##structure gx#syntax-quote::t '::find-runtime-code::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147936_| + (define |gxc[1]#_g149068_| (##structure gx#syntax-quote::t 'make-::find-runtime-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147938_| + (define |gxc[1]#_g149070_| (##structure gx#syntax-quote::t '::find-runtime-code? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147940_| + (define |gxc[1]#_g149072_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147942_| + (define |gxc[1]#_g149074_| (##structure gx#syntax-quote::t '::find-lambda-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147944_| + (define |gxc[1]#_g149076_| (##structure gx#syntax-quote::t 'make-::find-lambda-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147946_| + (define |gxc[1]#_g149078_| (##structure gx#syntax-quote::t '::find-lambda-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147948_| + (define |gxc[1]#_g149080_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147950_| + (define |gxc[1]#_g149082_| (##structure gx#syntax-quote::t '::count-values::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147952_| + (define |gxc[1]#_g149084_| (##structure gx#syntax-quote::t 'make-::count-values #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147954_| + (define |gxc[1]#_g149086_| (##structure gx#syntax-quote::t '::count-values? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147956_| + (define |gxc[1]#_g149088_| (##structure gx#syntax-quote::t '::generate-runtime-empty::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147958_| + (define |gxc[1]#_g149090_| (##structure gx#syntax-quote::t 'make-::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147960_| + (define |gxc[1]#_g149092_| (##structure gx#syntax-quote::t '::generate-runtime-empty? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147962_| + (define |gxc[1]#_g149094_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147964_| + (define |gxc[1]#_g149096_| (##structure gx#syntax-quote::t '::generate-loader::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147966_| + (define |gxc[1]#_g149098_| (##structure gx#syntax-quote::t 'make-::generate-loader #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147968_| + (define |gxc[1]#_g149100_| (##structure gx#syntax-quote::t '::generate-loader? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147971_| + (define |gxc[1]#_g149103_| (##structure gx#syntax-quote::t '::generate-runtime::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147973_| + (define |gxc[1]#_g149105_| (##structure gx#syntax-quote::t 'make-::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147975_| + (define |gxc[1]#_g149107_| (##structure gx#syntax-quote::t '::generate-runtime? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147977_| + (define |gxc[1]#_g149109_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147979_| + (define |gxc[1]#_g149111_| (##structure gx#syntax-quote::t '::generate-runtime-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147981_| + (define |gxc[1]#_g149113_| (##structure gx#syntax-quote::t 'make-::generate-runtime-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147983_| + (define |gxc[1]#_g149115_| (##structure gx#syntax-quote::t '::generate-runtime-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147985_| + (define |gxc[1]#_g149117_| (##structure gx#syntax-quote::t '::collect-expression-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147987_| + (define |gxc[1]#_g149119_| (##structure gx#syntax-quote::t 'make-::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147989_| + (define |gxc[1]#_g149121_| (##structure gx#syntax-quote::t '::collect-expression-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147991_| + (define |gxc[1]#_g149123_| (##structure gx#syntax-quote::t '::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147993_| + (define |gxc[1]#_g149125_| (##structure gx#syntax-quote::t '::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147995_| + (define |gxc[1]#_g149127_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147997_| + (define |gxc[1]#_g149129_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147999_| + (define |gxc[1]#_g149131_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148001_| + (define |gxc[1]#_g149133_| (##structure gx#syntax-quote::t '::generate-meta::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148003_| + (define |gxc[1]#_g149135_| (##structure gx#syntax-quote::t 'make-::generate-meta #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148005_| + (define |gxc[1]#_g149137_| (##structure gx#syntax-quote::t '::generate-meta? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148007_| + (define |gxc[1]#_g149139_| (##structure gx#syntax-quote::t '::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148009_| + (define |gxc[1]#_g149141_| (##structure gx#syntax-quote::t '::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148011_| + (define |gxc[1]#_g149143_| (##structure gx#syntax-quote::t '&::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148013_| + (define |gxc[1]#_g149145_| (##structure gx#syntax-quote::t '&::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148015_| + (define |gxc[1]#_g149147_| (##structure gx#syntax-quote::t '::generate-meta-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148017_| + (define |gxc[1]#_g149149_| (##structure gx#syntax-quote::t 'make-::generate-meta-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148019_| + (define |gxc[1]#_g149151_| (##structure gx#syntax-quote::t '::generate-meta-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148021_| + (define |gxc[1]#_g149153_| (##structure gx#syntax-quote::t '::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148023_| + (define |gxc[1]#_g149155_| (##structure gx#syntax-quote::t '::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148025_| + (define |gxc[1]#_g149157_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148027_| + (define |gxc[1]#_g149159_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148032_| + (define |gxc[1]#_g149164_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148034_| + (define |gxc[1]#_g149166_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148036_| + (define |gxc[1]#_g149168_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148038_| + (define |gxc[1]#_g149170_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148039_| + (define |gxc[1]#_g149171_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148040_| + (define |gxc[1]#_g149172_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148041_| + (define |gxc[1]#_g149173_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148043_| + (define |gxc[1]#_g149175_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148044_| + (define |gxc[1]#_g149176_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148045_| + (define |gxc[1]#_g149177_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148046_| + (define |gxc[1]#_g149178_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148048_| + (define |gxc[1]#_g149180_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148049_| + (define |gxc[1]#_g149181_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148050_| + (define |gxc[1]#_g149182_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148051_| + (define |gxc[1]#_g149183_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148053_| + (define |gxc[1]#_g149185_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148054_| + (define |gxc[1]#_g149186_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148055_| + (define |gxc[1]#_g149187_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148056_| + (define |gxc[1]#_g149188_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148058_| + (define |gxc[1]#_g149190_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148060_| + (define |gxc[1]#_g149192_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148062_| + (define |gxc[1]#_g149194_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148064_| + (define |gxc[1]#_g149196_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148065_| + (define |gxc[1]#_g149197_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148066_| + (define |gxc[1]#_g149198_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148067_| + (define |gxc[1]#_g149199_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148069_| + (define |gxc[1]#_g149201_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148070_| + (define |gxc[1]#_g149202_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148071_| + (define |gxc[1]#_g149203_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148072_| + (define |gxc[1]#_g149204_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148074_| + (define |gxc[1]#_g149206_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148075_| + (define |gxc[1]#_g149207_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148076_| + (define |gxc[1]#_g149208_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148077_| + (define |gxc[1]#_g149209_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148079_| + (define |gxc[1]#_g149211_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148080_| + (define |gxc[1]#_g149212_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148081_| + (define |gxc[1]#_g149213_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148082_| + (define |gxc[1]#_g149214_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! @@ -674,7 +674,7 @@ '())) (begin (define |gxc[:0:]#::collect-bindings| - (let ((__obj147698 + (let ((__obj148830 (let () (declare (not safe)) (##structure @@ -703,7 +703,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147698 + __obj148830 'gxc#::collect-bindings::t '1 '#f @@ -711,65 +711,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147698 + __obj148830 '::collect-bindings '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147698 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj148830 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147698 '() '6 '#f '#f)) - (let ((__tmp147910 (cons |gxc[1]#_g147911_| '()))) + (##unchecked-structure-set! __obj148830 '() '6 '#f '#f)) + (let ((__tmp149042 (cons |gxc[1]#_g149043_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147698 __tmp147910 '3 '#f '#f)) + (##unchecked-structure-set! __obj148830 __tmp149042 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147698 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148830 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147698 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj148830 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147698 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148830 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147698 '#f '11 '#f '#f)) - (let ((__tmp147912 |gxc[1]#_g147913_|)) + (##unchecked-structure-set! __obj148830 '#f '11 '#f '#f)) + (let ((__tmp149044 |gxc[1]#_g149045_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147698 __tmp147912 '12 '#f '#f)) - (let ((__tmp147914 |gxc[1]#_g147915_|)) + (##unchecked-structure-set! __obj148830 __tmp149044 '12 '#f '#f)) + (let ((__tmp149046 |gxc[1]#_g149047_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147698 __tmp147914 '13 '#f '#f)) - (let ((__tmp147916 |gxc[1]#_g147917_|)) + (##unchecked-structure-set! __obj148830 __tmp149046 '13 '#f '#f)) + (let ((__tmp149048 |gxc[1]#_g149049_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147698 __tmp147916 '14 '#f '#f)) + (##unchecked-structure-set! __obj148830 __tmp149048 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147698 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj148830 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147698 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj148830 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147698 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj148830 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147698 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj148830 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147698 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148830 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147698 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148830 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147698 '() '20 '#f '#f)) - __obj147698)) + (##unchecked-structure-set! __obj148830 '() '20 '#f '#f)) + __obj148830)) (define |gxc[:0:]#::lift-modules| - (let ((__obj147700 + (let ((__obj148832 (let () (declare (not safe)) (##structure @@ -798,68 +798,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147700 + __obj148832 'gxc#::lift-modules::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147700 '::lift-modules '2 '#f '#f)) + (##unchecked-structure-set! __obj148832 '::lift-modules '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147700 '(modules) '4 '#f '#f)) + (##unchecked-structure-set! __obj148832 '(modules) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147700 '(modules) '6 '#f '#f)) - (let ((__tmp147918 (cons |gxc[1]#_g147911_| '()))) + (##unchecked-structure-set! __obj148832 '(modules) '6 '#f '#f)) + (let ((__tmp149050 (cons |gxc[1]#_g149043_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147700 __tmp147918 '3 '#f '#f)) + (##unchecked-structure-set! __obj148832 __tmp149050 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147700 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148832 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147700 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj148832 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147700 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148832 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147700 '#f '11 '#f '#f)) - (let ((__tmp147919 |gxc[1]#_g147920_|)) + (##unchecked-structure-set! __obj148832 '#f '11 '#f '#f)) + (let ((__tmp149051 |gxc[1]#_g149052_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147700 __tmp147919 '12 '#f '#f)) - (let ((__tmp147921 |gxc[1]#_g147922_|)) + (##unchecked-structure-set! __obj148832 __tmp149051 '12 '#f '#f)) + (let ((__tmp149053 |gxc[1]#_g149054_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147700 __tmp147921 '13 '#f '#f)) - (let ((__tmp147923 |gxc[1]#_g147924_|)) + (##unchecked-structure-set! __obj148832 __tmp149053 '13 '#f '#f)) + (let ((__tmp149055 |gxc[1]#_g149056_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147700 __tmp147923 '14 '#f '#f)) - (let ((__tmp147925 (cons (cons 'modules |gxc[1]#_g147926_|) '()))) + (##unchecked-structure-set! __obj148832 __tmp149055 '14 '#f '#f)) + (let ((__tmp149057 (cons (cons 'modules |gxc[1]#_g149058_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147700 __tmp147925 '15 '#f '#f)) - (let ((__tmp147927 (cons (cons 'modules |gxc[1]#_g147928_|) '()))) + (##unchecked-structure-set! __obj148832 __tmp149057 '15 '#f '#f)) + (let ((__tmp149059 (cons (cons 'modules |gxc[1]#_g149060_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147700 __tmp147927 '16 '#f '#f)) - (let ((__tmp147929 (cons (cons 'modules |gxc[1]#_g147930_|) '()))) + (##unchecked-structure-set! __obj148832 __tmp149059 '16 '#f '#f)) + (let ((__tmp149061 (cons (cons 'modules |gxc[1]#_g149062_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147700 __tmp147929 '17 '#f '#f)) - (let ((__tmp147931 (cons (cons 'modules |gxc[1]#_g147932_|) '()))) + (##unchecked-structure-set! __obj148832 __tmp149061 '17 '#f '#f)) + (let ((__tmp149063 (cons (cons 'modules |gxc[1]#_g149064_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147700 __tmp147931 '18 '#f '#f)) + (##unchecked-structure-set! __obj148832 __tmp149063 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147700 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148832 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147700 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148832 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147700 '() '20 '#f '#f)) - __obj147700)) + (##unchecked-structure-set! __obj148832 '() '20 '#f '#f)) + __obj148832)) (define |gxc[:0:]#::find-runtime-code| - (let ((__obj147702 + (let ((__obj148834 (let () (declare (not safe)) (##structure @@ -888,7 +888,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147702 + __obj148834 'gxc#::find-runtime-code::t '1 '#f @@ -896,65 +896,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147702 + __obj148834 '::find-runtime-code '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147702 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj148834 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147702 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj148834 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147702 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj148834 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147702 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148834 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147702 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj148834 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147702 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148834 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147702 '#f '11 '#f '#f)) - (let ((__tmp147933 |gxc[1]#_g147934_|)) + (##unchecked-structure-set! __obj148834 '#f '11 '#f '#f)) + (let ((__tmp149065 |gxc[1]#_g149066_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147702 __tmp147933 '12 '#f '#f)) - (let ((__tmp147935 |gxc[1]#_g147936_|)) + (##unchecked-structure-set! __obj148834 __tmp149065 '12 '#f '#f)) + (let ((__tmp149067 |gxc[1]#_g149068_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147702 __tmp147935 '13 '#f '#f)) - (let ((__tmp147937 |gxc[1]#_g147938_|)) + (##unchecked-structure-set! __obj148834 __tmp149067 '13 '#f '#f)) + (let ((__tmp149069 |gxc[1]#_g149070_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147702 __tmp147937 '14 '#f '#f)) + (##unchecked-structure-set! __obj148834 __tmp149069 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147702 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj148834 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147702 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj148834 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147702 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj148834 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147702 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj148834 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147702 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148834 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147702 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148834 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147702 '() '20 '#f '#f)) - __obj147702)) + (##unchecked-structure-set! __obj148834 '() '20 '#f '#f)) + __obj148834)) (define |gxc[:0:]#::find-lambda-expression| - (let ((__obj147704 + (let ((__obj148836 (let () (declare (not safe)) (##structure @@ -983,7 +983,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147704 + __obj148836 'gxc#::find-lambda-expression::t '1 '#f @@ -991,65 +991,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147704 + __obj148836 '::find-lambda-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147704 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj148836 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147704 '() '6 '#f '#f)) - (let ((__tmp147939 (cons |gxc[1]#_g147940_| '()))) + (##unchecked-structure-set! __obj148836 '() '6 '#f '#f)) + (let ((__tmp149071 (cons |gxc[1]#_g149072_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147704 __tmp147939 '3 '#f '#f)) + (##unchecked-structure-set! __obj148836 __tmp149071 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147704 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148836 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147704 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj148836 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147704 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148836 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147704 '#f '11 '#f '#f)) - (let ((__tmp147941 |gxc[1]#_g147942_|)) + (##unchecked-structure-set! __obj148836 '#f '11 '#f '#f)) + (let ((__tmp149073 |gxc[1]#_g149074_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147704 __tmp147941 '12 '#f '#f)) - (let ((__tmp147943 |gxc[1]#_g147944_|)) + (##unchecked-structure-set! __obj148836 __tmp149073 '12 '#f '#f)) + (let ((__tmp149075 |gxc[1]#_g149076_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147704 __tmp147943 '13 '#f '#f)) - (let ((__tmp147945 |gxc[1]#_g147946_|)) + (##unchecked-structure-set! __obj148836 __tmp149075 '13 '#f '#f)) + (let ((__tmp149077 |gxc[1]#_g149078_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147704 __tmp147945 '14 '#f '#f)) + (##unchecked-structure-set! __obj148836 __tmp149077 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147704 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj148836 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147704 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj148836 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147704 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj148836 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147704 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj148836 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147704 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148836 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147704 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148836 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147704 '() '20 '#f '#f)) - __obj147704)) + (##unchecked-structure-set! __obj148836 '() '20 '#f '#f)) + __obj148836)) (define |gxc[:0:]#::count-values| - (let ((__obj147706 + (let ((__obj148838 (let () (declare (not safe)) (##structure @@ -1078,68 +1078,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147706 + __obj148838 'gxc#::count-values::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147706 '::count-values '2 '#f '#f)) + (##unchecked-structure-set! __obj148838 '::count-values '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147706 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj148838 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147706 '() '6 '#f '#f)) - (let ((__tmp147947 (cons |gxc[1]#_g147948_| '()))) + (##unchecked-structure-set! __obj148838 '() '6 '#f '#f)) + (let ((__tmp149079 (cons |gxc[1]#_g149080_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147706 __tmp147947 '3 '#f '#f)) + (##unchecked-structure-set! __obj148838 __tmp149079 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147706 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148838 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147706 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj148838 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147706 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148838 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147706 '#f '11 '#f '#f)) - (let ((__tmp147949 |gxc[1]#_g147950_|)) + (##unchecked-structure-set! __obj148838 '#f '11 '#f '#f)) + (let ((__tmp149081 |gxc[1]#_g149082_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147706 __tmp147949 '12 '#f '#f)) - (let ((__tmp147951 |gxc[1]#_g147952_|)) + (##unchecked-structure-set! __obj148838 __tmp149081 '12 '#f '#f)) + (let ((__tmp149083 |gxc[1]#_g149084_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147706 __tmp147951 '13 '#f '#f)) - (let ((__tmp147953 |gxc[1]#_g147954_|)) + (##unchecked-structure-set! __obj148838 __tmp149083 '13 '#f '#f)) + (let ((__tmp149085 |gxc[1]#_g149086_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147706 __tmp147953 '14 '#f '#f)) + (##unchecked-structure-set! __obj148838 __tmp149085 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147706 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj148838 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147706 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj148838 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147706 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj148838 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147706 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj148838 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147706 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148838 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147706 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148838 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147706 '() '20 '#f '#f)) - __obj147706)) + (##unchecked-structure-set! __obj148838 '() '20 '#f '#f)) + __obj148838)) (define |gxc[:0:]#::generate-runtime-empty| - (let ((__obj147708 + (let ((__obj148840 (let () (declare (not safe)) (##structure @@ -1168,7 +1168,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147708 + __obj148840 'gxc#::generate-runtime-empty::t '1 '#f @@ -1176,65 +1176,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147708 + __obj148840 '::generate-runtime-empty '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147708 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj148840 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147708 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj148840 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147708 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj148840 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147708 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148840 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147708 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj148840 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147708 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148840 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147708 '#f '11 '#f '#f)) - (let ((__tmp147955 |gxc[1]#_g147956_|)) + (##unchecked-structure-set! __obj148840 '#f '11 '#f '#f)) + (let ((__tmp149087 |gxc[1]#_g149088_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147708 __tmp147955 '12 '#f '#f)) - (let ((__tmp147957 |gxc[1]#_g147958_|)) + (##unchecked-structure-set! __obj148840 __tmp149087 '12 '#f '#f)) + (let ((__tmp149089 |gxc[1]#_g149090_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147708 __tmp147957 '13 '#f '#f)) - (let ((__tmp147959 |gxc[1]#_g147960_|)) + (##unchecked-structure-set! __obj148840 __tmp149089 '13 '#f '#f)) + (let ((__tmp149091 |gxc[1]#_g149092_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147708 __tmp147959 '14 '#f '#f)) + (##unchecked-structure-set! __obj148840 __tmp149091 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147708 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj148840 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147708 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj148840 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147708 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj148840 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147708 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj148840 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147708 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148840 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147708 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148840 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147708 '() '20 '#f '#f)) - __obj147708)) + (##unchecked-structure-set! __obj148840 '() '20 '#f '#f)) + __obj148840)) (define |gxc[:0:]#::generate-loader| - (let ((__obj147709 + (let ((__obj148841 (let () (declare (not safe)) (##structure @@ -1263,7 +1263,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147709 + __obj148841 'gxc#::generate-loader::t '1 '#f @@ -1271,65 +1271,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147709 + __obj148841 '::generate-loader '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147709 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj148841 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147709 '() '6 '#f '#f)) - (let ((__tmp147961 (cons |gxc[1]#_g147962_| '()))) + (##unchecked-structure-set! __obj148841 '() '6 '#f '#f)) + (let ((__tmp149093 (cons |gxc[1]#_g149094_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147709 __tmp147961 '3 '#f '#f)) + (##unchecked-structure-set! __obj148841 __tmp149093 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147709 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148841 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147709 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj148841 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147709 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148841 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147709 '#f '11 '#f '#f)) - (let ((__tmp147963 |gxc[1]#_g147964_|)) + (##unchecked-structure-set! __obj148841 '#f '11 '#f '#f)) + (let ((__tmp149095 |gxc[1]#_g149096_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147709 __tmp147963 '12 '#f '#f)) - (let ((__tmp147965 |gxc[1]#_g147966_|)) + (##unchecked-structure-set! __obj148841 __tmp149095 '12 '#f '#f)) + (let ((__tmp149097 |gxc[1]#_g149098_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147709 __tmp147965 '13 '#f '#f)) - (let ((__tmp147967 |gxc[1]#_g147968_|)) + (##unchecked-structure-set! __obj148841 __tmp149097 '13 '#f '#f)) + (let ((__tmp149099 |gxc[1]#_g149100_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147709 __tmp147967 '14 '#f '#f)) + (##unchecked-structure-set! __obj148841 __tmp149099 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147709 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj148841 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147709 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj148841 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147709 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj148841 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147709 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj148841 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147709 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148841 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147709 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148841 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147709 '() '20 '#f '#f)) - __obj147709)) + (##unchecked-structure-set! __obj148841 '() '20 '#f '#f)) + __obj148841)) (define |gxc[:0:]#::generate-runtime| - (let ((__obj147711 + (let ((__obj148843 (let () (declare (not safe)) (##structure @@ -1358,7 +1358,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147711 + __obj148843 'gxc#::generate-runtime::t '1 '#f @@ -1366,65 +1366,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147711 + __obj148843 '::generate-runtime '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147711 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj148843 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147711 '() '6 '#f '#f)) - (let ((__tmp147969 (cons |gxc[1]#_g147962_| '()))) + (##unchecked-structure-set! __obj148843 '() '6 '#f '#f)) + (let ((__tmp149101 (cons |gxc[1]#_g149094_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147711 __tmp147969 '3 '#f '#f)) + (##unchecked-structure-set! __obj148843 __tmp149101 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147711 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148843 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147711 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj148843 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147711 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148843 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147711 '#f '11 '#f '#f)) - (let ((__tmp147970 |gxc[1]#_g147971_|)) + (##unchecked-structure-set! __obj148843 '#f '11 '#f '#f)) + (let ((__tmp149102 |gxc[1]#_g149103_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147711 __tmp147970 '12 '#f '#f)) - (let ((__tmp147972 |gxc[1]#_g147973_|)) + (##unchecked-structure-set! __obj148843 __tmp149102 '12 '#f '#f)) + (let ((__tmp149104 |gxc[1]#_g149105_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147711 __tmp147972 '13 '#f '#f)) - (let ((__tmp147974 |gxc[1]#_g147975_|)) + (##unchecked-structure-set! __obj148843 __tmp149104 '13 '#f '#f)) + (let ((__tmp149106 |gxc[1]#_g149107_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147711 __tmp147974 '14 '#f '#f)) + (##unchecked-structure-set! __obj148843 __tmp149106 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147711 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj148843 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147711 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj148843 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147711 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj148843 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147711 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj148843 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147711 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148843 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147711 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148843 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147711 '() '20 '#f '#f)) - __obj147711)) + (##unchecked-structure-set! __obj148843 '() '20 '#f '#f)) + __obj148843)) (define |gxc[:0:]#::generate-runtime-phi| - (let ((__obj147713 + (let ((__obj148845 (let () (declare (not safe)) (##structure @@ -1453,7 +1453,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147713 + __obj148845 'gxc#::generate-runtime-phi::t '1 '#f @@ -1461,65 +1461,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147713 + __obj148845 '::generate-runtime-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147713 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj148845 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147713 '() '6 '#f '#f)) - (let ((__tmp147976 (cons |gxc[1]#_g147977_| '()))) + (##unchecked-structure-set! __obj148845 '() '6 '#f '#f)) + (let ((__tmp149108 (cons |gxc[1]#_g149109_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147713 __tmp147976 '3 '#f '#f)) + (##unchecked-structure-set! __obj148845 __tmp149108 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147713 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148845 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147713 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj148845 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147713 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148845 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147713 '#f '11 '#f '#f)) - (let ((__tmp147978 |gxc[1]#_g147979_|)) + (##unchecked-structure-set! __obj148845 '#f '11 '#f '#f)) + (let ((__tmp149110 |gxc[1]#_g149111_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147713 __tmp147978 '12 '#f '#f)) - (let ((__tmp147980 |gxc[1]#_g147981_|)) + (##unchecked-structure-set! __obj148845 __tmp149110 '12 '#f '#f)) + (let ((__tmp149112 |gxc[1]#_g149113_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147713 __tmp147980 '13 '#f '#f)) - (let ((__tmp147982 |gxc[1]#_g147983_|)) + (##unchecked-structure-set! __obj148845 __tmp149112 '13 '#f '#f)) + (let ((__tmp149114 |gxc[1]#_g149115_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147713 __tmp147982 '14 '#f '#f)) + (##unchecked-structure-set! __obj148845 __tmp149114 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147713 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj148845 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147713 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj148845 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147713 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj148845 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147713 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj148845 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147713 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148845 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147713 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148845 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147713 '() '20 '#f '#f)) - __obj147713)) + (##unchecked-structure-set! __obj148845 '() '20 '#f '#f)) + __obj148845)) (define |gxc[:0:]#::collect-expression-refs| - (let ((__obj147715 + (let ((__obj148847 (let () (declare (not safe)) (##structure @@ -1548,7 +1548,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147715 + __obj148847 'gxc#::collect-expression-refs::t '1 '#f @@ -1556,65 +1556,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147715 + __obj148847 '::collect-expression-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147715 '(table) '4 '#f '#f)) + (##unchecked-structure-set! __obj148847 '(table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147715 '(table) '6 '#f '#f)) + (##unchecked-structure-set! __obj148847 '(table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147715 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj148847 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147715 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148847 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147715 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj148847 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147715 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148847 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147715 '#f '11 '#f '#f)) - (let ((__tmp147984 |gxc[1]#_g147985_|)) + (##unchecked-structure-set! __obj148847 '#f '11 '#f '#f)) + (let ((__tmp149116 |gxc[1]#_g149117_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147715 __tmp147984 '12 '#f '#f)) - (let ((__tmp147986 |gxc[1]#_g147987_|)) + (##unchecked-structure-set! __obj148847 __tmp149116 '12 '#f '#f)) + (let ((__tmp149118 |gxc[1]#_g149119_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147715 __tmp147986 '13 '#f '#f)) - (let ((__tmp147988 |gxc[1]#_g147989_|)) + (##unchecked-structure-set! __obj148847 __tmp149118 '13 '#f '#f)) + (let ((__tmp149120 |gxc[1]#_g149121_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147715 __tmp147988 '14 '#f '#f)) - (let ((__tmp147990 (cons (cons 'table |gxc[1]#_g147991_|) '()))) + (##unchecked-structure-set! __obj148847 __tmp149120 '14 '#f '#f)) + (let ((__tmp149122 (cons (cons 'table |gxc[1]#_g149123_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147715 __tmp147990 '15 '#f '#f)) - (let ((__tmp147992 (cons (cons 'table |gxc[1]#_g147993_|) '()))) + (##unchecked-structure-set! __obj148847 __tmp149122 '15 '#f '#f)) + (let ((__tmp149124 (cons (cons 'table |gxc[1]#_g149125_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147715 __tmp147992 '16 '#f '#f)) - (let ((__tmp147994 (cons (cons 'table |gxc[1]#_g147995_|) '()))) + (##unchecked-structure-set! __obj148847 __tmp149124 '16 '#f '#f)) + (let ((__tmp149126 (cons (cons 'table |gxc[1]#_g149127_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147715 __tmp147994 '17 '#f '#f)) - (let ((__tmp147996 (cons (cons 'table |gxc[1]#_g147997_|) '()))) + (##unchecked-structure-set! __obj148847 __tmp149126 '17 '#f '#f)) + (let ((__tmp149128 (cons (cons 'table |gxc[1]#_g149129_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147715 __tmp147996 '18 '#f '#f)) + (##unchecked-structure-set! __obj148847 __tmp149128 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147715 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148847 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147715 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148847 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147715 '() '20 '#f '#f)) - __obj147715)) + (##unchecked-structure-set! __obj148847 '() '20 '#f '#f)) + __obj148847)) (define |gxc[:0:]#::generate-meta| - (let ((__obj147717 + (let ((__obj148849 (let () (declare (not safe)) (##structure @@ -1643,68 +1643,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147717 + __obj148849 'gxc#::generate-meta::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147717 '::generate-meta '2 '#f '#f)) + (##unchecked-structure-set! __obj148849 '::generate-meta '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147717 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj148849 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147717 '(state) '6 '#f '#f)) - (let ((__tmp147998 (cons |gxc[1]#_g147999_| '()))) + (##unchecked-structure-set! __obj148849 '(state) '6 '#f '#f)) + (let ((__tmp149130 (cons |gxc[1]#_g149131_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147717 __tmp147998 '3 '#f '#f)) + (##unchecked-structure-set! __obj148849 __tmp149130 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147717 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148849 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147717 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj148849 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147717 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148849 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147717 '#f '11 '#f '#f)) - (let ((__tmp148000 |gxc[1]#_g148001_|)) + (##unchecked-structure-set! __obj148849 '#f '11 '#f '#f)) + (let ((__tmp149132 |gxc[1]#_g149133_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147717 __tmp148000 '12 '#f '#f)) - (let ((__tmp148002 |gxc[1]#_g148003_|)) + (##unchecked-structure-set! __obj148849 __tmp149132 '12 '#f '#f)) + (let ((__tmp149134 |gxc[1]#_g149135_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147717 __tmp148002 '13 '#f '#f)) - (let ((__tmp148004 |gxc[1]#_g148005_|)) + (##unchecked-structure-set! __obj148849 __tmp149134 '13 '#f '#f)) + (let ((__tmp149136 |gxc[1]#_g149137_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147717 __tmp148004 '14 '#f '#f)) - (let ((__tmp148006 (cons (cons 'state |gxc[1]#_g148007_|) '()))) + (##unchecked-structure-set! __obj148849 __tmp149136 '14 '#f '#f)) + (let ((__tmp149138 (cons (cons 'state |gxc[1]#_g149139_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147717 __tmp148006 '15 '#f '#f)) - (let ((__tmp148008 (cons (cons 'state |gxc[1]#_g148009_|) '()))) + (##unchecked-structure-set! __obj148849 __tmp149138 '15 '#f '#f)) + (let ((__tmp149140 (cons (cons 'state |gxc[1]#_g149141_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147717 __tmp148008 '16 '#f '#f)) - (let ((__tmp148010 (cons (cons 'state |gxc[1]#_g148011_|) '()))) + (##unchecked-structure-set! __obj148849 __tmp149140 '16 '#f '#f)) + (let ((__tmp149142 (cons (cons 'state |gxc[1]#_g149143_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147717 __tmp148010 '17 '#f '#f)) - (let ((__tmp148012 (cons (cons 'state |gxc[1]#_g148013_|) '()))) + (##unchecked-structure-set! __obj148849 __tmp149142 '17 '#f '#f)) + (let ((__tmp149144 (cons (cons 'state |gxc[1]#_g149145_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147717 __tmp148012 '18 '#f '#f)) + (##unchecked-structure-set! __obj148849 __tmp149144 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147717 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148849 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147717 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148849 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147717 '() '20 '#f '#f)) - __obj147717)) + (##unchecked-structure-set! __obj148849 '() '20 '#f '#f)) + __obj148849)) (define |gxc[:0:]#::generate-meta-phi| - (let ((__obj147719 + (let ((__obj148851 (let () (declare (not safe)) (##structure @@ -1733,7 +1733,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147719 + __obj148851 'gxc#::generate-meta-phi::t '1 '#f @@ -1741,220 +1741,220 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147719 + __obj148851 '::generate-meta-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147719 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj148851 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147719 '(state) '6 '#f '#f)) + (##unchecked-structure-set! __obj148851 '(state) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147719 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj148851 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147719 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148851 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147719 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj148851 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147719 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148851 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147719 '#f '11 '#f '#f)) - (let ((__tmp148014 |gxc[1]#_g148015_|)) + (##unchecked-structure-set! __obj148851 '#f '11 '#f '#f)) + (let ((__tmp149146 |gxc[1]#_g149147_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147719 __tmp148014 '12 '#f '#f)) - (let ((__tmp148016 |gxc[1]#_g148017_|)) + (##unchecked-structure-set! __obj148851 __tmp149146 '12 '#f '#f)) + (let ((__tmp149148 |gxc[1]#_g149149_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147719 __tmp148016 '13 '#f '#f)) - (let ((__tmp148018 |gxc[1]#_g148019_|)) + (##unchecked-structure-set! __obj148851 __tmp149148 '13 '#f '#f)) + (let ((__tmp149150 |gxc[1]#_g149151_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147719 __tmp148018 '14 '#f '#f)) - (let ((__tmp148020 (cons (cons 'state |gxc[1]#_g148021_|) '()))) + (##unchecked-structure-set! __obj148851 __tmp149150 '14 '#f '#f)) + (let ((__tmp149152 (cons (cons 'state |gxc[1]#_g149153_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147719 __tmp148020 '15 '#f '#f)) - (let ((__tmp148022 (cons (cons 'state |gxc[1]#_g148023_|) '()))) + (##unchecked-structure-set! __obj148851 __tmp149152 '15 '#f '#f)) + (let ((__tmp149154 (cons (cons 'state |gxc[1]#_g149155_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147719 __tmp148022 '16 '#f '#f)) - (let ((__tmp148024 (cons (cons 'state |gxc[1]#_g148025_|) '()))) + (##unchecked-structure-set! __obj148851 __tmp149154 '16 '#f '#f)) + (let ((__tmp149156 (cons (cons 'state |gxc[1]#_g149157_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147719 __tmp148024 '17 '#f '#f)) - (let ((__tmp148026 (cons (cons 'state |gxc[1]#_g148027_|) '()))) + (##unchecked-structure-set! __obj148851 __tmp149156 '17 '#f '#f)) + (let ((__tmp149158 (cons (cons 'state |gxc[1]#_g149159_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147719 __tmp148026 '18 '#f '#f)) + (##unchecked-structure-set! __obj148851 __tmp149158 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147719 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148851 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147719 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148851 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147719 '() '20 '#f '#f)) - __obj147719)) + (##unchecked-structure-set! __obj148851 '() '20 '#f '#f)) + __obj148851)) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_%$stx136788%_) - (let* ((_%g136792136827%_ - (lambda (_%g136793136823%_) + (lambda (_%$stx137920%_) + (let* ((_%g137924137959%_ + (lambda (_%g137925137955%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136793136823%_)))) - (_%g136791136953%_ - (lambda (_%g136793136831%_) + _%g137925137955%_)))) + (_%g137923138085%_ + (lambda (_%g137925137963%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136793136831%_)) - (let ((_%e136798136834%_ + (gx#stx-pair? _%g137925137963%_)) + (let ((_%e137930137966%_ (let () (declare (not safe)) - (gx#syntax-e _%g136793136831%_)))) - (let ((_%hd136799136838%_ + (gx#syntax-e _%g137925137963%_)))) + (let ((_%hd137931137970%_ (let () (declare (not safe)) - (##car _%e136798136834%_))) - (_%tl136800136841%_ + (##car _%e137930137966%_))) + (_%tl137932137973%_ (let () (declare (not safe)) - (##cdr _%e136798136834%_)))) + (##cdr _%e137930137966%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136800136841%_)) - (let ((_%e136801136844%_ + (gx#stx-pair? _%tl137932137973%_)) + (let ((_%e137933137976%_ (let () (declare (not safe)) - (gx#syntax-e _%tl136800136841%_)))) - (let ((_%hd136802136848%_ + (gx#syntax-e _%tl137932137973%_)))) + (let ((_%hd137934137980%_ (let () (declare (not safe)) - (##car _%e136801136844%_))) - (_%tl136803136851%_ + (##car _%e137933137976%_))) + (_%tl137935137983%_ (let () (declare (not safe)) - (##cdr _%e136801136844%_)))) + (##cdr _%e137933137976%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd136802136848%_)) - (let ((_%e136804136854%_ + (gx#stx-pair? _%hd137934137980%_)) + (let ((_%e137936137986%_ (let () (declare (not safe)) (gx#syntax-e - _%hd136802136848%_)))) - (let ((_%hd136805136858%_ + _%hd137934137980%_)))) + (let ((_%hd137937137990%_ (let () (declare (not safe)) - (##car _%e136804136854%_))) - (_%tl136806136861%_ + (##car _%e137936137986%_))) + (_%tl137938137993%_ (let () (declare (not safe)) - (##cdr _%e136804136854%_)))) + (##cdr _%e137936137986%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl136806136861%_)) - (let ((_%e136807136864%_ + _%tl137938137993%_)) + (let ((_%e137939137996%_ (let () (declare (not safe)) (gx#syntax-e - _%tl136806136861%_)))) - (let ((_%hd136808136868%_ + _%tl137938137993%_)))) + (let ((_%hd137940138000%_ (let () (declare (not safe)) - (##car _%e136807136864%_))) - (_%tl136809136871%_ + (##car _%e137939137996%_))) + (_%tl137941138003%_ (let () (declare (not safe)) - (##cdr _%e136807136864%_)))) + (##cdr _%e137939137996%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl136809136871%_)) - (let ((_%e136810136874%_ + _%tl137941138003%_)) + (let ((_%e137942138006%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl136809136871%_)))) - (let ((_%hd136811136878%_ - (let () (declare (not safe)) (##car _%e136810136874%_))) - (_%tl136812136881%_ + (gx#syntax-e _%tl137941138003%_)))) + (let ((_%hd137943138010%_ + (let () (declare (not safe)) (##car _%e137942138006%_))) + (_%tl137944138013%_ (let () (declare (not safe)) - (##cdr _%e136810136874%_)))) + (##cdr _%e137942138006%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136812136881%_)) + (gx#stx-null? _%tl137944138013%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl136803136851%_)) - (let ((_g148028_ + (gx#stx-pair/null? _%tl137935137983%_)) + (let ((_g149160_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl136803136851%_ + _%tl137935137983%_ '0)))) (begin - (let ((_g148029_ + (let ((_g149161_ (let () (declare (not safe)) - (if (##values? _g148028_) - (##vector-length _g148028_) + (if (##values? _g149160_) + (##vector-length _g149160_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g148029_ 2))) + (##fx= _g149161_ 2))) (error "Context expects 2 values" - _g148029_))) - (let ((_%target136813136884%_ + _g149161_))) + (let ((_%target137945138016%_ (let () (declare (not safe)) - (##vector-ref _g148028_ 0))) - (_%tl136815136887%_ + (##vector-ref _g149160_ 0))) + (_%tl137947138019%_ (let () (declare (not safe)) - (##vector-ref _g148028_ 1)))) + (##vector-ref _g149160_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136815136887%_)) - (letrec ((_%loop136816136890%_ - (lambda (_%hd136814136894%_ - _%body136820136897%_) + (gx#stx-null? _%tl137947138019%_)) + (letrec ((_%loop137948138022%_ + (lambda (_%hd137946138026%_ + _%body137952138029%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd136814136894%_)) - (let ((_%e136817136900%_ + _%hd137946138026%_)) + (let ((_%e137949138032%_ (let () (declare (not safe)) (gx#syntax-e - _%hd136814136894%_)))) - (let ((_%lp-hd136818136904%_ + _%hd137946138026%_)))) + (let ((_%lp-hd137950138036%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e136817136900%_))) - (_%lp-tl136819136907%_ - (let () (declare (not safe)) (##cdr _%e136817136900%_)))) - (_%loop136816136890%_ - _%lp-tl136819136907%_ - (cons _%lp-hd136818136904%_ _%body136820136897%_)))) + (##car _%e137949138032%_))) + (_%lp-tl137951138039%_ + (let () (declare (not safe)) (##cdr _%e137949138032%_)))) + (_%loop137948138022%_ + _%lp-tl137951138039%_ + (cons _%lp-hd137950138036%_ _%body137952138029%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body136821136910%_ - (reverse _%body136820136897%_))) - ((lambda (_%L136914%_ - _%L136916%_ - _%L136917%_ - _%L136918%_) + (let ((_%body137953138042%_ + (reverse _%body137952138029%_))) + ((lambda (_%L138046%_ + _%L138048%_ + _%L138049%_ + _%L138050%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1967,8 +1967,8 @@ (gx#datum->syntax__0 '#f 'rest)) - (cons _%L136916%_ '())) - (cons (cons _%L136918%_ + (cons _%L138048%_ '())) + (cons (cons _%L138050%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1976,7 +1976,7 @@ '()) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L136917%_ + (cons (cons _%L138049%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2037,7 +2037,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L136918%_ + (cons _%L138050%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2051,7 +2051,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L136917%_ '()))) + (cons _%L138049%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -2068,7 +2068,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L136918%_ + (cons _%L138050%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2080,7 +2080,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L136917%_ '()))) + (cons _%L138049%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -2149,7 +2149,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L136918%_ '()))) + (cons _%L138050%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2160,7 +2160,7 @@ (gx#datum->syntax__0 '#f 'tmp)) - (cons _%L136917%_ '()))) + (cons _%L138049%_ '()))) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2171,99 +2171,99 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) - (let ((__tmp148030 - (lambda (_%g136944136947%_ - _%g136945136950%_) - (cons _%g136944136947%_ - _%g136945136950%_)))) + (let ((__tmp149162 + (lambda (_%g138076138079%_ + _%g138077138082%_) + (cons _%g138076138079%_ + _%g138077138082%_)))) (declare (not safe)) - (__foldr1 __tmp148030 '() _%L136914%_))) + (__foldr1 __tmp149162 '() _%L138046%_))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body136821136910%_ - _%hd136811136878%_ - _%hd136808136868%_ - _%hd136805136858%_)))))) + _%body137953138042%_ + _%hd137943138010%_ + _%hd137940138000%_ + _%hd137937137990%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop136816136890%_ - _%target136813136884%_ + (_%loop137948138022%_ + _%target137945138016%_ '())) - (_%g136792136827%_ _%g136793136831%_))))) - (_%g136792136827%_ _%g136793136831%_)) - (_%g136792136827%_ _%g136793136831%_)))) - (_%g136792136827%_ _%g136793136831%_)))) + (_%g137924137959%_ _%g137925137963%_))))) + (_%g137924137959%_ _%g137925137963%_)) + (_%g137924137959%_ _%g137925137963%_)))) + (_%g137924137959%_ _%g137925137963%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g136792136827%_ - _%g136793136831%_)))) - (_%g136792136827%_ _%g136793136831%_)))) - (_%g136792136827%_ _%g136793136831%_)))) - (_%g136792136827%_ _%g136793136831%_))))) - (_%g136791136953%_ _%$stx136788%_)))) + (_%g137924137959%_ + _%g137925137963%_)))) + (_%g137924137959%_ _%g137925137963%_)))) + (_%g137924137959%_ _%g137925137963%_)))) + (_%g137924137959%_ _%g137925137963%_))))) + (_%g137923138085%_ _%$stx137920%_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_%$stx136958%_) - (let* ((_%g136962136980%_ - (lambda (_%g136963136976%_) + (lambda (_%$stx138090%_) + (let* ((_%g138094138112%_ + (lambda (_%g138095138108%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136963136976%_)))) - (_%g136961137035%_ - (lambda (_%g136963136984%_) + _%g138095138108%_)))) + (_%g138093138167%_ + (lambda (_%g138095138116%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136963136984%_)) - (let ((_%e136966136987%_ + (gx#stx-pair? _%g138095138116%_)) + (let ((_%e138098138119%_ (let () (declare (not safe)) - (gx#syntax-e _%g136963136984%_)))) - (let ((_%hd136967136991%_ + (gx#syntax-e _%g138095138116%_)))) + (let ((_%hd138099138123%_ (let () (declare (not safe)) - (##car _%e136966136987%_))) - (_%tl136968136994%_ + (##car _%e138098138119%_))) + (_%tl138100138126%_ (let () (declare (not safe)) - (##cdr _%e136966136987%_)))) + (##cdr _%e138098138119%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136968136994%_)) - (let ((_%e136969136997%_ + (gx#stx-pair? _%tl138100138126%_)) + (let ((_%e138101138129%_ (let () (declare (not safe)) - (gx#syntax-e _%tl136968136994%_)))) - (let ((_%hd136970137001%_ + (gx#syntax-e _%tl138100138126%_)))) + (let ((_%hd138102138133%_ (let () (declare (not safe)) - (##car _%e136969136997%_))) - (_%tl136971137004%_ + (##car _%e138101138129%_))) + (_%tl138103138136%_ (let () (declare (not safe)) - (##cdr _%e136969136997%_)))) + (##cdr _%e138101138129%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136971137004%_)) - (let ((_%e136972137007%_ + (gx#stx-pair? _%tl138103138136%_)) + (let ((_%e138104138139%_ (let () (declare (not safe)) (gx#syntax-e - _%tl136971137004%_)))) - (let ((_%hd136973137011%_ + _%tl138103138136%_)))) + (let ((_%hd138105138143%_ (let () (declare (not safe)) - (##car _%e136972137007%_))) - (_%tl136974137014%_ + (##car _%e138104138139%_))) + (_%tl138106138146%_ (let () (declare (not safe)) - (##cdr _%e136972137007%_)))) + (##cdr _%e138104138139%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136974137014%_)) - ((lambda (_%L137017%_ - _%L137019%_) + _%tl138106138146%_)) + ((lambda (_%L138149%_ + _%L138151%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2275,7 +2275,7 @@ (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives)) - (cons _%L137019%_ '())) + (cons _%L138151%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) @@ -2288,22 +2288,22 @@ '#f 'current-compile-decls-unsafe?)) '()) - (cons _%L137019%_ - (cons _%L137017%_ + (cons _%L138151%_ + (cons _%L138149%_ '())))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd136973137011%_ - _%hd136970137001%_) - (_%g136962136980%_ - _%g136963136984%_)))) - (_%g136962136980%_ _%g136963136984%_)))) - (_%g136962136980%_ _%g136963136984%_)))) - (_%g136962136980%_ _%g136963136984%_))))) - (_%g136961137035%_ _%$stx136958%_)))) + _%hd138105138143%_ + _%hd138102138133%_) + (_%g138094138112%_ + _%g138095138116%_)))) + (_%g138094138112%_ _%g138095138116%_)))) + (_%g138094138112%_ _%g138095138116%_)))) + (_%g138094138112%_ _%g138095138116%_))))) + (_%g138093138167%_ _%$stx138090%_)))) (define |gxc[:0:]#meta-state| - (let ((__obj147721 + (let ((__obj148853 (let () (declare (not safe)) (##structure @@ -2332,18 +2332,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147721 + __obj148853 'gxc#meta-state::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147721 'meta-state '2 '#f '#f)) + (##unchecked-structure-set! __obj148853 'meta-state '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147721 + __obj148853 '(src n open blocks) '4 '#f @@ -2351,79 +2351,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147721 + __obj148853 '(src n open blocks) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147721 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj148853 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147721 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj148853 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147721 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj148853 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147721 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148853 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147721 ':init! '11 '#f '#f)) - (let ((__tmp148031 |gxc[1]#_g148032_|)) + (##unchecked-structure-set! __obj148853 ':init! '11 '#f '#f)) + (let ((__tmp149163 |gxc[1]#_g149164_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147721 __tmp148031 '12 '#f '#f)) - (let ((__tmp148033 |gxc[1]#_g148034_|)) + (##unchecked-structure-set! __obj148853 __tmp149163 '12 '#f '#f)) + (let ((__tmp149165 |gxc[1]#_g149166_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147721 __tmp148033 '13 '#f '#f)) - (let ((__tmp148035 |gxc[1]#_g148036_|)) + (##unchecked-structure-set! __obj148853 __tmp149165 '13 '#f '#f)) + (let ((__tmp149167 |gxc[1]#_g149168_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147721 __tmp148035 '14 '#f '#f)) - (let ((__tmp148037 - (cons (cons 'src |gxc[1]#_g148038_|) - (cons (cons 'n |gxc[1]#_g148039_|) - (cons (cons 'open |gxc[1]#_g148040_|) - (cons (cons 'blocks |gxc[1]#_g148041_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147721 __tmp148037 '15 '#f '#f)) - (let ((__tmp148042 - (cons (cons 'src |gxc[1]#_g148043_|) - (cons (cons 'n |gxc[1]#_g148044_|) - (cons (cons 'open |gxc[1]#_g148045_|) - (cons (cons 'blocks |gxc[1]#_g148046_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147721 __tmp148042 '16 '#f '#f)) - (let ((__tmp148047 - (cons (cons 'src |gxc[1]#_g148048_|) - (cons (cons 'n |gxc[1]#_g148049_|) - (cons (cons 'open |gxc[1]#_g148050_|) - (cons (cons 'blocks |gxc[1]#_g148051_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147721 __tmp148047 '17 '#f '#f)) - (let ((__tmp148052 - (cons (cons 'src |gxc[1]#_g148053_|) - (cons (cons 'n |gxc[1]#_g148054_|) - (cons (cons 'open |gxc[1]#_g148055_|) - (cons (cons 'blocks |gxc[1]#_g148056_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147721 __tmp148052 '18 '#f '#f)) + (##unchecked-structure-set! __obj148853 __tmp149184 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147721 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148853 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147721 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148853 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147721 '() '20 '#f '#f)) - __obj147721)) + (##unchecked-structure-set! __obj148853 '() '20 '#f '#f)) + __obj148853)) (define |gxc[:0:]#meta-state-block| - (let ((__obj147722 + (let ((__obj148854 (let () (declare (not safe)) (##structure @@ -2452,7 +2452,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147722 + __obj148854 'gxc#meta-state-block::t '1 '#f @@ -2460,7 +2460,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147722 + __obj148854 'meta-state-block '2 '#f @@ -2468,7 +2468,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147722 + __obj148854 '(ctx phi n code) '4 '#f @@ -2476,74 +2476,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147722 + __obj148854 '(ctx phi n code) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147722 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj148854 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147722 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj148854 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147722 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj148854 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147722 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148854 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147722 '#f '11 '#f '#f)) - (let ((__tmp148057 |gxc[1]#_g148058_|)) + (##unchecked-structure-set! __obj148854 '#f '11 '#f '#f)) + (let ((__tmp149189 |gxc[1]#_g149190_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147722 __tmp148057 '12 '#f '#f)) - (let ((__tmp148059 |gxc[1]#_g148060_|)) + (##unchecked-structure-set! __obj148854 __tmp149189 '12 '#f '#f)) + (let ((__tmp149191 |gxc[1]#_g149192_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147722 __tmp148059 '13 '#f '#f)) - (let ((__tmp148061 |gxc[1]#_g148062_|)) + (##unchecked-structure-set! __obj148854 __tmp149191 '13 '#f '#f)) + (let ((__tmp149193 |gxc[1]#_g149194_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147722 __tmp148061 '14 '#f '#f)) - (let ((__tmp148063 - (cons (cons 'ctx |gxc[1]#_g148064_|) - (cons (cons 'phi |gxc[1]#_g148065_|) - (cons (cons 'n |gxc[1]#_g148066_|) - (cons (cons 'code |gxc[1]#_g148067_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147722 __tmp148063 '15 '#f '#f)) - (let ((__tmp148068 - (cons (cons 'ctx |gxc[1]#_g148069_|) - (cons (cons 'phi |gxc[1]#_g148070_|) - (cons (cons 'n |gxc[1]#_g148071_|) - (cons (cons 'code |gxc[1]#_g148072_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147722 __tmp148068 '16 '#f '#f)) - (let ((__tmp148073 - (cons (cons 'ctx |gxc[1]#_g148074_|) - (cons (cons 'phi |gxc[1]#_g148075_|) - (cons (cons 'n |gxc[1]#_g148076_|) - (cons (cons 'code |gxc[1]#_g148077_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147722 __tmp148073 '17 '#f '#f)) - (let ((__tmp148078 - (cons (cons 'ctx |gxc[1]#_g148079_|) - (cons (cons 'phi |gxc[1]#_g148080_|) - (cons (cons 'n |gxc[1]#_g148081_|) - (cons (cons 'code |gxc[1]#_g148082_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147722 __tmp148078 '18 '#f '#f)) + (##unchecked-structure-set! __obj148854 __tmp149210 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147722 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148854 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147722 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148854 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147722 '() '20 '#f '#f)) - __obj147722)))) + (##unchecked-structure-set! __obj148854 '() '20 '#f '#f)) + __obj148854)))) diff --git a/src/bootstrap/gerbil/compiler/driver~0.scm b/src/bootstrap/gerbil/compiler/driver~0.scm index 489748207..9bf2568d2 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 1713454418) + (define gerbil/compiler/driver::timestamp 1713631273) (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 ((__tmp201216 (current-time))) + (floor (let ((__tmp202348 (current-time))) (declare (not safe)) - (##time->seconds __tmp201216)))))) + (##time->seconds __tmp202348)))))) (define gxc#compile-timestamp-nanos (lambda () - (let ((__tmp201217 (current-time))) + (let ((__tmp202349 (current-time))) (declare (not safe)) - (##time->seconds __tmp201217)))) + (##time->seconds __tmp202349)))) (define gxc#scheme-file-settings '(permissions: 420 char-encoding: UTF-8 eol-encoding: lf)) (define gxc#with-output-to-scheme-file - (lambda (_%path201073%_ _%fun201074%_) + (lambda (_%path202205%_ _%fun202206%_) (with-output-to-file - (cons 'path: (cons _%path201073%_ gxc#scheme-file-settings)) - _%fun201074%_))) + (cons 'path: (cons _%path202205%_ gxc#scheme-file-settings)) + _%fun202206%_))) (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-libdir201068%_) - (string-append '"-Wl,-rpath=" _%gerbil-libdir201068%_))) + (lambda (_%gerbil-libdir202200%_) + (string-append '"-Wl,-rpath=" _%gerbil-libdir202200%_))) (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 (_%dir201066%_) (delete-file-or-directory _%dir201066%_ '#t))) + (lambda (_%dir202198%_) (delete-file-or-directory _%dir202198%_ '#t))) (define gxc#compile-module__% - (lambda (_%srcpath201039%_ _%opts201040%_) - (if (string? _%srcpath201039%_) + (lambda (_%srcpath202171%_ _%opts202172%_) + (if (string? _%srcpath202171%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath201039%_))) - (let ((_%outdir201042%_ + _%srcpath202171%_))) + (let ((_%outdir202174%_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _%opts201040%_))) - (_%invoke-gsc?201043%_ + (pgetq__0 'output-dir: _%opts202172%_))) + (_%invoke-gsc?202175%_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts201040%_))) - (_%gsc-options201044%_ + (pgetq__0 'invoke-gsc: _%opts202172%_))) + (_%gsc-options202176%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts201040%_))) - (_%keep-scm?201045%_ + (pgetq__0 'gsc-options: _%opts202172%_))) + (_%keep-scm?202177%_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _%opts201040%_))) - (_%verbosity201046%_ + (pgetq__0 'keep-scm: _%opts202172%_))) + (_%verbosity202178%_ (let () (declare (not safe)) - (pgetq__0 'verbose: _%opts201040%_))) - (_%optimize201047%_ + (pgetq__0 'verbose: _%opts202172%_))) + (_%optimize202179%_ (let () (declare (not safe)) - (pgetq__0 'optimize: _%opts201040%_))) - (_%debug201048%_ - (let () (declare (not safe)) (pgetq__0 'debug: _%opts201040%_))) - (_%gen-ssxi201049%_ + (pgetq__0 'optimize: _%opts202172%_))) + (_%debug202180%_ + (let () (declare (not safe)) (pgetq__0 'debug: _%opts202172%_))) + (_%gen-ssxi202181%_ (let () (declare (not safe)) - (pgetq__0 'generate-ssxi: _%opts201040%_))) - (_%parallel?201050%_ + (pgetq__0 'generate-ssxi: _%opts202172%_))) + (_%parallel?202182%_ (let () (declare (not safe)) - (pgetq__0 'parallel: _%opts201040%_)))) - (if _%outdir201042%_ - (let ((__tmp201218 + (pgetq__0 'parallel: _%opts202172%_)))) + (if _%outdir202174%_ + (let ((__tmp202350 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir201042%_))))) + (create-directory*__0 _%outdir202174%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp201218)) + (__with-lock gxc#+driver-mutex+ __tmp202350)) '#!void) - (if _%optimize201047%_ - (let ((__tmp201219 + (if _%optimize202179%_ + (let ((__tmp202351 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp201219)) + (__with-lock gxc#+driver-mutex+ __tmp202351)) '#!void) - (let ((__tmp201222 + (let ((__tmp202354 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _%srcpath201039%_)) + (gxc#verbose '"compile " _%srcpath202171%_)) (gxc#compile-top-module - (let ((__tmp201223 + (let ((__tmp202355 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _%srcpath201039%_))))) + (gx#import-module__0 _%srcpath202171%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp201223))))) - (__tmp201221 (gxc#compile-timestamp)) - (__tmp201220 - (cons 'compile-module (cons _%srcpath201039%_ '())))) + (__with-lock gxc#+driver-mutex+ __tmp202355))))) + (__tmp202353 (gxc#compile-timestamp)) + (__tmp202352 + (cons 'compile-module (cons _%srcpath202171%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp201222 + __tmp202354 gxc#current-compile-output-dir - _%outdir201042%_ + _%outdir202174%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?201043%_ + _%invoke-gsc?202175%_ gxc#current-compile-gsc-options - _%gsc-options201044%_ + _%gsc-options202176%_ gxc#current-compile-keep-scm - _%keep-scm?201045%_ + _%keep-scm?202177%_ gxc#current-compile-verbose - _%verbosity201046%_ + _%verbosity202178%_ gxc#current-compile-optimize - _%optimize201047%_ + _%optimize202179%_ gxc#current-compile-debug - _%debug201048%_ + _%debug202180%_ gxc#current-compile-generate-ssxi - _%gen-ssxi201049%_ + _%gen-ssxi202181%_ gxc#current-compile-timestamp - __tmp201221 + __tmp202353 gxc#current-compile-context - __tmp201220 + __tmp202352 gxc#current-compile-parallel - _%parallel?201050%_ + _%parallel?202182%_ gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_%srcpath201059%_) - (let ((_%opts201061%_ '())) - (gxc#compile-module__% _%srcpath201059%_ _%opts201061%_)))) + (lambda (_%srcpath202191%_) + (let ((_%opts202193%_ '())) + (gxc#compile-module__% _%srcpath202191%_ _%opts202193%_)))) (define gxc#compile-module - (lambda _g201225_ - (let ((_g201224_ (let () (declare (not safe)) (##length _g201225_)))) - (cond ((let () (declare (not safe)) (##fx= _g201224_ 1)) - (apply gxc#compile-module__0 _g201225_)) - ((let () (declare (not safe)) (##fx= _g201224_ 2)) - (apply gxc#compile-module__% _g201225_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g201225_)))))) + _g202357_)))))) (define gxc#compile-exe__% - (lambda (_%srcpath201014%_ _%opts201015%_) - (if (string? _%srcpath201014%_) + (lambda (_%srcpath202146%_ _%opts202147%_) + (if (string? _%srcpath202146%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath201014%_))) - (let ((_%outdir201017%_ + _%srcpath202146%_))) + (let ((_%outdir202149%_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _%opts201015%_))) - (_%invoke-gsc?201018%_ + (pgetq__0 'output-dir: _%opts202147%_))) + (_%invoke-gsc?202150%_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts201015%_))) - (_%gsc-options201019%_ + (pgetq__0 'invoke-gsc: _%opts202147%_))) + (_%gsc-options202151%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts201015%_))) - (_%keep-scm?201020%_ + (pgetq__0 'gsc-options: _%opts202147%_))) + (_%keep-scm?202152%_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _%opts201015%_))) - (_%verbosity201021%_ + (pgetq__0 'keep-scm: _%opts202147%_))) + (_%verbosity202153%_ (let () (declare (not safe)) - (pgetq__0 'verbose: _%opts201015%_))) - (_%debug201022%_ - (let () (declare (not safe)) (pgetq__0 'debug: _%opts201015%_))) - (_%parallel?201023%_ + (pgetq__0 'verbose: _%opts202147%_))) + (_%debug202154%_ + (let () (declare (not safe)) (pgetq__0 'debug: _%opts202147%_))) + (_%parallel?202155%_ (let () (declare (not safe)) - (pgetq__0 'parallel: _%opts201015%_)))) - (if _%outdir201017%_ - (let ((__tmp201226 + (pgetq__0 'parallel: _%opts202147%_)))) + (if _%outdir202149%_ + (let ((__tmp202358 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir201017%_))))) + (create-directory*__0 _%outdir202149%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp201226)) + (__with-lock gxc#+driver-mutex+ __tmp202358)) '#!void) - (let ((__tmp201229 + (let ((__tmp202361 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _%srcpath201014%_)) + (gxc#verbose '"compile exe " _%srcpath202146%_)) (gxc#compile-executable-module - (let ((__tmp201230 + (let ((__tmp202362 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _%srcpath201014%_))))) + (gx#import-module__0 _%srcpath202146%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp201230)) - _%opts201015%_))) - (__tmp201228 (gxc#compile-timestamp)) - (__tmp201227 (cons 'compile-exe (cons _%srcpath201014%_ '())))) + (__with-lock gxc#+driver-mutex+ __tmp202362)) + _%opts202147%_))) + (__tmp202360 (gxc#compile-timestamp)) + (__tmp202359 (cons 'compile-exe (cons _%srcpath202146%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp201229 + __tmp202361 gxc#current-compile-output-dir - _%outdir201017%_ + _%outdir202149%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?201018%_ + _%invoke-gsc?202150%_ gxc#current-compile-gsc-options - _%gsc-options201019%_ + _%gsc-options202151%_ gxc#current-compile-keep-scm - _%keep-scm?201020%_ + _%keep-scm?202152%_ gxc#current-compile-verbose - _%verbosity201021%_ + _%verbosity202153%_ gxc#current-compile-debug - _%debug201022%_ + _%debug202154%_ gxc#current-compile-timestamp - __tmp201228 + __tmp202360 gxc#current-compile-context - __tmp201227 + __tmp202359 gxc#current-compile-parallel - _%parallel?201023%_ + _%parallel?202155%_ gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_%srcpath201031%_) - (let ((_%opts201033%_ '())) - (gxc#compile-exe__% _%srcpath201031%_ _%opts201033%_)))) + (lambda (_%srcpath202163%_) + (let ((_%opts202165%_ '())) + (gxc#compile-exe__% _%srcpath202163%_ _%opts202165%_)))) (define gxc#compile-exe - (lambda _g201232_ - (let ((_g201231_ (let () (declare (not safe)) (##length _g201232_)))) - (cond ((let () (declare (not safe)) (##fx= _g201231_ 1)) - (apply gxc#compile-exe__0 _g201232_)) - ((let () (declare (not safe)) (##fx= _g201231_ 2)) - (apply gxc#compile-exe__% _g201232_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g201232_)))))) + _g202364_)))))) (define gxc#compile-executable-module - (lambda (_%ctx201010%_ _%opts201011%_) + (lambda (_%ctx202142%_ _%opts202143%_) (if (let () (declare (not safe)) - (pgetq__0 'full-program-optimization: _%opts201011%_)) + (pgetq__0 'full-program-optimization: _%opts202143%_)) (gxc#compile-executable-module/full-program-optimization - _%ctx201010%_ - _%opts201011%_) + _%ctx202142%_ + _%opts202143%_) (gxc#compile-executable-module/separate - _%ctx201010%_ - _%opts201011%_)))) + _%ctx202142%_ + _%opts202143%_)))) (define gxc#compile-executable-module/separate - (lambda (_%ctx200800%_ _%opts200801%_) - (letrec ((_%generate-stub200803%_ - (lambda (_%builtin-modules201006%_) - (let ((_%mod-main201008%_ - (gxc#find-runtime-symbol _%ctx200800%_ 'main))) - (let ((__tmp201233 + (lambda (_%ctx201932%_ _%opts201933%_) + (letrec ((_%generate-stub201935%_ + (lambda (_%builtin-modules202138%_) + (let ((_%mod-main202140%_ + (gxc#find-runtime-symbol _%ctx201932%_ 'main))) + (let ((__tmp202365 (cons 'define (cons 'builtin-modules (cons (cons 'quote - (cons _%builtin-modules201006%_ + (cons _%builtin-modules202138%_ '())) '()))))) (declare (not safe)) - (##write __tmp201233)) - (let ((__tmp201234 + (##write __tmp202365)) + (let ((__tmp202366 (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-main201008%_ + (cons _%mod-main202140%_ (cons (cons 'cdr ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'command-line '()) '())) @@ -370,327 +370,325 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (##write __tmp201234)) + (##write __tmp202366)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%get-libgerbil-ld-opts200804%_ - (lambda (_%gerbil-libdir201004%_) - (let ((__tmp201235 + (_%get-libgerbil-ld-opts201936%_ + (lambda (_%gerbil-libdir202136%_) + (let ((__tmp202367 (path-expand '"libgerbil.ldd" - _%gerbil-libdir201004%_))) + _%gerbil-libdir202136%_))) (declare (not safe)) - (##call-with-input-file __tmp201235 read)))) - (_%replace-extension200805%_ - (lambda (_%path201001%_ _%ext201002%_) + (##call-with-input-file __tmp202367 read)))) + (_%replace-extension201937%_ + (lambda (_%path202133%_ _%ext202134%_) (string-append - (path-strip-extension _%path201001%_) - _%ext201002%_))) - (_%userlib-module?200806%_ - (lambda (_%ctx200999%_) - (if (_%exclude-module?200808%_ _%ctx200999%_) + (path-strip-extension _%path202133%_) + _%ext202134%_))) + (_%userlib-module?201938%_ + (lambda (_%ctx202131%_) + (if (_%exclude-module?201940%_ _%ctx202131%_) '#f - (not (_%libgerbil-module?200807%_ _%ctx200999%_))))) - (_%libgerbil-module?200807%_ - (lambda (_%ctx200992%_) - (let ((_%id-str200994%_ + (not (_%libgerbil-module?201939%_ _%ctx202131%_))))) + (_%libgerbil-module?201939%_ + (lambda (_%ctx202124%_) + (let ((_%id-str202126%_ (symbol->string (##structure-ref - _%ctx200992%_ + _%ctx202124%_ '1 gx#expander-context::t '#f)))) - (if (_%exclude-module?200808%_ _%id-str200994%_) + (if (_%exclude-module?201940%_ _%id-str202126%_) '#f - (let ((_%$e200996%_ + (let ((_%$e202128%_ (let () (declare (not safe)) (##string-prefix? '"gerbil/" - _%id-str200994%_)))) - (if _%$e200996%_ - _%$e200996%_ + _%id-str202126%_)))) + (if _%$e202128%_ + _%$e202128%_ (let () (declare (not safe)) (##string-prefix? '"std/" - _%id-str200994%_)))))))) - (_%exclude-module?200808%_ - (lambda (_%ctx-or-str200988%_) - (let ((_%str200990%_ - (if (string? _%ctx-or-str200988%_) - _%ctx-or-str200988%_ + _%id-str202126%_)))))))) + (_%exclude-module?201940%_ + (lambda (_%ctx-or-str202120%_) + (let ((_%str202122%_ + (if (string? _%ctx-or-str202120%_) + _%ctx-or-str202120%_ (symbol->string (##structure-ref - _%ctx-or-str200988%_ + _%ctx-or-str202120%_ '1 gx#expander-context::t '#f))))) (declare (not safe)) - (##string-prefix? '"gerbil/core" _%str200990%_)))) - (_%not-file-empty?200809%_ - (lambda (_%path200986%_) - (not (gxc#file-empty? _%path200986%_)))) - (_%fold-libgerbil-runtime-scm200810%_ - (lambda (_%gerbil-staticdir200979%_ _%libgerbil-scm200980%_) - (let ((_%gerbil-runtime-scm200984%_ - (let ((__tmp201236 - (lambda (_%rtm200982%_) + (##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%_) (path-expand - (let ((__tmp201237 - (let ((__tmp201238 + (let ((__tmp202369 + (let ((__tmp202370 (let () (declare (not safe)) (string-split - _%rtm200982%_ + _%rtm202114%_ '#\/)))) (declare (not safe)) (string-join - __tmp201238 + __tmp202370 '"__")))) (declare (not safe)) - (##string-append __tmp201237 '".scm")) - _%gerbil-staticdir200979%_)))) + (##string-append __tmp202369 '".scm")) + _%gerbil-staticdir202111%_)))) (declare (not safe)) - (##map __tmp201236 gxc#gerbil-runtime-modules)))) - (_%remove-duplicates200811%_ - (append _%gerbil-runtime-scm200984%_ - _%libgerbil-scm200980%_))))) - (_%remove-duplicates200811%_ - (lambda (_%strlst200939%_) - (let _%loop200941%_ ((_%rest200943%_ _%strlst200939%_) - (_%result200944%_ '())) - (let* ((_%rest200945200953%_ _%rest200943%_) - (_%else200947200961%_ - (lambda () (reverse! _%result200944%_))) - (_%K200949200967%_ - (lambda (_%rest200964%_ _%path200965%_) - (if (member _%path200965%_ _%result200944%_) - (_%loop200941%_ - _%rest200964%_ - _%result200944%_) - (_%loop200941%_ - _%rest200964%_ - (cons _%path200965%_ - _%result200944%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest200945200953%_)) - (let ((_%hd200950200970%_ + (##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%_ (let () (declare (not safe)) - (##car _%rest200945200953%_))) - (_%tl200951200972%_ + (##car _%rest202077202085%_))) + (_%tl202083202104%_ (let () (declare (not safe)) - (##cdr _%rest200945200953%_)))) - (let* ((_%path200975%_ _%hd200950200970%_) - (_%rest200977%_ _%tl200951200972%_)) - (_%K200949200967%_ - _%rest200977%_ - _%path200975%_))) - (_%else200947200961%_)))))) - (_%compile-stub200812%_ - (lambda (_%output-scm200819%_ _%output-bin200820%_) - (let* ((_%gerbil-home200822%_ - (let ((__tmp201239 + (##cdr _%rest202077202085%_)))) + (let* ((_%path202107%_ _%hd202082202102%_) + (_%rest202109%_ _%tl202083202104%_)) + (_%K202081202099%_ + _%rest202109%_ + _%path202107%_))) + (_%else202079202093%_)))))) + (_%compile-stub201944%_ + (lambda (_%output-scm201951%_ _%output-bin201952%_) + (let* ((_%gerbil-home201954%_ + (let ((__tmp202371 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp201239))) - (_%gerbil-libdir200824%_ - (path-expand '"lib" _%gerbil-home200822%_)) - (_%gerbil-staticdir200826%_ - (path-expand '"static" _%gerbil-libdir200824%_)) - (_%deps200828%_ - (gxc#find-runtime-module-deps _%ctx200800%_)) - (_%libgerbil-deps200830%_ + (##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%_ (let () (declare (not safe)) (##filter - _%libgerbil-module?200807%_ - _%deps200828%_))) - (_%libgerbil-scm200832%_ + _%libgerbil-module?201939%_ + _%deps201960%_))) + (_%libgerbil-scm201964%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%libgerbil-deps200830%_))) - (_%libgerbil-scm200834%_ - (_%fold-libgerbil-runtime-scm200810%_ - _%gerbil-staticdir200826%_ - _%libgerbil-scm200832%_)) - (_%libgerbil-c200840%_ - (map (lambda (_%g200835200837%_) - (_%replace-extension200805%_ - _%g200835200837%_ + _%libgerbil-deps201962%_))) + (_%libgerbil-scm201966%_ + (_%fold-libgerbil-runtime-scm201942%_ + _%gerbil-staticdir201958%_ + _%libgerbil-scm201964%_)) + (_%libgerbil-c201972%_ + (map (lambda (_%g201967201969%_) + (_%replace-extension201937%_ + _%g201967201969%_ '".c")) - _%libgerbil-scm200834%_)) - (_%libgerbil-o200846%_ - (map (lambda (_%g200841200843%_) - (_%replace-extension200805%_ - _%g200841200843%_ + _%libgerbil-scm201966%_)) + (_%libgerbil-o201978%_ + (map (lambda (_%g201973201975%_) + (_%replace-extension201937%_ + _%g201973201975%_ '".o")) - _%libgerbil-scm200834%_)) - (_%src-deps200848%_ + _%libgerbil-scm201966%_)) + (_%src-deps201980%_ (let () (declare (not safe)) (##filter - _%userlib-module?200806%_ - _%deps200828%_))) - (_%src-deps-scm200850%_ + _%userlib-module?201938%_ + _%deps201960%_))) + (_%src-deps-scm201982%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%src-deps200848%_))) - (_%src-deps-scm200852%_ + _%src-deps201980%_))) + (_%src-deps-scm201984%_ (let () (declare (not safe)) (##filter - _%not-file-empty?200809%_ - _%src-deps-scm200850%_))) - (_%src-deps-scm200854%_ + _%not-file-empty?201941%_ + _%src-deps-scm201982%_))) + (_%src-deps-scm201986%_ (let () (declare (not safe)) - (##map path-expand _%src-deps-scm200852%_))) - (_%src-deps-c200860%_ - (let ((__tmp201240 - (lambda (_%g200855200857%_) - (_%replace-extension200805%_ - _%g200855200857%_ + (##map path-expand _%src-deps-scm201984%_))) + (_%src-deps-c201992%_ + (let ((__tmp202372 + (lambda (_%g201987201989%_) + (_%replace-extension201937%_ + _%g201987201989%_ '".c")))) (declare (not safe)) - (##map __tmp201240 _%src-deps-scm200854%_))) - (_%src-deps-o200866%_ - (let ((__tmp201241 - (lambda (_%g200861200863%_) - (_%replace-extension200805%_ - _%g200861200863%_ + (##map __tmp202372 _%src-deps-scm201986%_))) + (_%src-deps-o201998%_ + (let ((__tmp202373 + (lambda (_%g201993201995%_) + (_%replace-extension201937%_ + _%g201993201995%_ '".o")))) (declare (not safe)) - (##map __tmp201241 _%src-deps-scm200854%_))) - (_%src-bin-scm200868%_ - (gxc#find-static-module-file _%ctx200800%_)) - (_%src-bin-scm200870%_ - (path-expand _%src-bin-scm200868%_)) - (_%src-bin-c200872%_ - (_%replace-extension200805%_ - _%src-bin-scm200870%_ + (##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%_ '".c")) - (_%src-bin-o200874%_ - (_%replace-extension200805%_ - _%src-bin-scm200870%_ + (_%src-bin-o202006%_ + (_%replace-extension201937%_ + _%src-bin-scm202002%_ '".o")) - (_%output-bin200876%_ - (path-expand _%output-bin200820%_)) - (_%output-scm200878%_ - (path-expand _%output-scm200819%_)) - (_%output-c200880%_ - (_%replace-extension200805%_ - _%output-scm200878%_ + (_%output-bin202008%_ + (path-expand _%output-bin201952%_)) + (_%output-scm202010%_ + (path-expand _%output-scm201951%_)) + (_%output-c202012%_ + (_%replace-extension201937%_ + _%output-scm202010%_ '".c")) - (_%output-o200882%_ - (_%replace-extension200805%_ - _%output-scm200878%_ + (_%output-o202014%_ + (_%replace-extension201937%_ + _%output-scm202010%_ '".o")) - (_%output_-c200884%_ - (_%replace-extension200805%_ - _%output-scm200878%_ + (_%output_-c202016%_ + (_%replace-extension201937%_ + _%output-scm202010%_ '"_.c")) - (_%output_-o200886%_ - (_%replace-extension200805%_ - _%output-scm200878%_ + (_%output_-o202018%_ + (_%replace-extension201937%_ + _%output-scm202010%_ '"_.o")) - (_%gsc-link-opts200888%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts200890%_ + (_%gsc-link-opts202020%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts202022%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts200892%_ + (_%gsc-static-opts202024%_ (gxc#gsc-static-include-options - _%gerbil-staticdir200826%_)) - (_%output-ld-opts200894%_ (gxc#gcc-ld-options)) - (_%libgerbil-ld-opts200896%_ - (_%get-libgerbil-ld-opts200804%_ - _%gerbil-libdir200824%_)) - (_%rpath200898%_ - (gxc#gerbil-rpath _%gerbil-libdir200824%_)) - (_%builtin-modules200902%_ - (_%remove-duplicates200811%_ - (let ((__tmp201242 - (let ((__tmp201244 - (lambda (_%mod200900%_) + _%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%_) (symbol->string (##structure-ref - _%mod200900%_ + _%mod202032%_ '1 gx#expander-context::t '#f)))) - (__tmp201243 - (cons _%ctx200800%_ - _%deps200828%_))) + (__tmp202375 + (cons _%ctx201932%_ + _%deps201960%_))) (declare (not safe)) - (##map __tmp201244 __tmp201243)))) + (##map __tmp202376 __tmp202375)))) (declare (not safe)) (##append gxc#gerbil-runtime-modules - __tmp201242))))) - (letrec ((_%compile-obj200905%_ - (lambda (_%scm-path200912%_ _%c-path200913%_) - (let* ((_%o-path200915%_ - (_%replace-extension200805%_ - _%c-path200913%_ + __tmp202374))))) + (letrec ((_%compile-obj202037%_ + (lambda (_%scm-path202044%_ _%c-path202045%_) + (let* ((_%o-path202047%_ + (_%replace-extension201937%_ + _%c-path202045%_ '".o")) - (_%lock200917%_ + (_%lock202049%_ (let () (declare (not safe)) (##string-append - _%o-path200915%_ + _%o-path202047%_ '".lock"))) - (_%locked200919%_ '#f) - (_%unlock200922%_ + (_%locked202051%_ '#f) + (_%unlock202054%_ (lambda () - (close-port _%locked200919%_) + (close-port _%locked202051%_) (let () (declare (not safe)) (##delete-file - _%lock200917%_))))) - (let _%retry200925%_ () + _%lock202049%_))))) + (let _%retry202057%_ () (if (let () (declare (not safe)) - (##file-exists? _%lock200917%_)) + (##file-exists? _%lock202049%_)) (begin (thread-sleep! '.01) - (_%retry200925%_)) + (_%retry202057%_)) (begin - (set! _%locked200919%_ - (let ((__tmp201245 + (set! _%locked202051%_ + (let ((__tmp202377 (lambda () (open-file (cons 'path: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lock200917%_ + (cons _%lock202049%_ (cons 'create: (cons '#t '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__with-catch false - __tmp201245))) - (if _%locked200919%_ + __tmp202377))) + (if _%locked202051%_ '#!void - (_%retry200925%_))))) - (let ((__tmp201247 + (_%retry202057%_))))) + (let ((__tmp202379 (lambda () (if (or (not (let () (declare (not safe)) (##file-exists? - _%o-path200915%_))) - (not _%scm-path200912%_) + _%o-path202047%_))) + (not _%scm-path202044%_) (let () (declare (not safe)) (file-newer? - _%scm-path200912%_ - _%o-path200915%_))) - (let ((_%gsc-cc-opts200936%_ + _%scm-path202044%_ + _%o-path202047%_))) + (let ((_%gsc-cc-opts202068%_ (gxc#gsc-cc-options__%__0 '#f '#f))) @@ -700,41 +698,41 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp201248 + (let ((__tmp202380 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp201249 (cons _%c-path200913%_ '()))) + (let ((__tmp202381 (cons _%c-path202045%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp201249 - _%gsc-static-opts200892%_)))) + __tmp202381 + _%gsc-static-opts202024%_)))) (declare (not safe)) - (__foldr1 cons __tmp201248 _%gsc-cc-opts200936%_))))) + (__foldr1 cons __tmp202380 _%gsc-cc-opts202068%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (__tmp201246 - (lambda () (_%unlock200922%_)))) + (__tmp202378 + (lambda () (_%unlock202054%_)))) (declare (not safe)) (__with-unwind-protect - __tmp201247 - __tmp201246)))))) - (let ((__tmp201250 + __tmp202379 + __tmp202378)))))) + (let ((__tmp202382 (lambda () - (let ((__tmp201251 - (path-directory _%output-bin200876%_))) + (let ((__tmp202383 + (path-directory _%output-bin202008%_))) (declare (not safe)) - (create-directory*__0 __tmp201251))))) + (create-directory*__0 __tmp202383))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp201250)) + (__with-lock gxc#+driver-mutex+ __tmp202382)) (gxc#with-output-to-scheme-file - _%output-scm200878%_ + _%output-scm202010%_ (lambda () - (_%generate-stub200803%_ - _%builtin-modules200902%_))) + (_%generate-stub201935%_ + _%builtin-modules202034%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it200910%_ + (let ((_%compile-it202042%_ (lambda () (gxc#invoke__% '#f @@ -742,46 +740,46 @@ absent-value (gxc#gerbil-gsc) (cons '"-link" - (let ((__tmp201252 - (let ((__tmp201253 - (let ((__tmp201254 + (let ((__tmp202384 + (let ((__tmp202385 + (let ((__tmp202386 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%src-bin-scm200870%_ - (cons _%output-scm200878%_ '())))) + (cons _%src-bin-scm202002%_ + (cons _%output-scm202010%_ '())))) (declare (not safe)) - (__foldr1 cons __tmp201254 _%src-deps-scm200854%_)))) + (__foldr1 cons __tmp202386 _%src-deps-scm201986%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp201253 - _%libgerbil-c200840%_)))) + __tmp202385 + _%libgerbil-c201972%_)))) (declare (not safe)) (__foldr1 cons - __tmp201252 - _%gsc-link-opts200888%_)))) + __tmp202384 + _%gsc-link-opts202020%_)))) (for-each - _%compile-obj200905%_ - (let ((__tmp201255 - (cons _%src-bin-scm200870%_ - (cons _%output-scm200878%_ + _%compile-obj202037%_ + (let ((__tmp202387 + (cons _%src-bin-scm202002%_ + (cons _%output-scm202010%_ (cons '#f '()))))) (declare (not safe)) (__foldr1 cons - __tmp201255 - _%src-deps-scm200854%_)) - (let ((__tmp201256 - (cons _%src-bin-c200872%_ - (cons _%output-c200880%_ - (cons _%output_-c200884%_ + __tmp202387 + _%src-deps-scm201986%_)) + (let ((__tmp202388 + (cons _%src-bin-c202004%_ + (cons _%output-c202012%_ + (cons _%output_-c202016%_ '()))))) (declare (not safe)) (__foldr1 cons - __tmp201256 - _%src-deps-c200860%_))) + __tmp202388 + _%src-deps-c201992%_))) (gxc#invoke__% '#f absent-value @@ -789,71 +787,71 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin200876%_ - (let ((__tmp201257 - (cons _%src-bin-o200874%_ + (cons _%output-bin202008%_ + (let ((__tmp202389 + (cons _%src-bin-o202006%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%output-o200882%_ - (cons _%output_-o200886%_ - (let ((__tmp201258 - (let ((__tmp201259 - (let ((__tmp201261 + (cons _%output-o202014%_ + (cons _%output_-o202018%_ + (let ((__tmp202390 + (let ((__tmp202391 + (let ((__tmp202393 (cons '"-L" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%gerbil-libdir200824%_ + (cons _%gerbil-libdir201956%_ (cons '"-lgambit" - _%libgerbil-ld-opts200896%_)))) - (__tmp201260 + _%libgerbil-ld-opts202028%_)))) + (__tmp202392 (if (gxc#gerbil-enable-shared?) - (cons _%rpath200898%_ '()) + (cons _%rpath202030%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp201261 __tmp201260)))) + (__foldr1 cons __tmp202393 __tmp202392)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp201259 - _%output-ld-opts200894%_)))) + __tmp202391 + _%output-ld-opts202026%_)))) (declare (not safe)) (__foldr1 cons - __tmp201258 - _%libgerbil-o200846%_))))))) + __tmp202390 + _%libgerbil-o201978%_))))))) (declare (not safe)) - (__foldr1 cons __tmp201257 _%src-deps-o200866%_)))))) + (__foldr1 cons __tmp202389 _%src-deps-o201998%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp201262 - (cons _%output-c200880%_ - (cons _%output_-c200884%_ - (cons _%output-o200882%_ - (cons _%output_-o200886%_ + (let ((__tmp202394 + (cons _%output-c202012%_ + (cons _%output_-c202016%_ + (cons _%output-o202014%_ + (cons _%output_-o202018%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##for-each delete-file __tmp201262))))) + (##for-each delete-file __tmp202394))))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it200910%_)) - (_%compile-it200910%_))) + _%compile-it202042%_)) + (_%compile-it202042%_))) '#!void)))))) - (let* ((_%output-bin200814%_ - (gxc#compile-exe-output-file _%ctx200800%_ _%opts200801%_)) - (_%output-scm200816%_ + (let* ((_%output-bin201946%_ + (gxc#compile-exe-output-file _%ctx201932%_ _%opts201933%_)) + (_%output-scm201948%_ (let () (declare (not safe)) - (##string-append _%output-bin200814%_ '"__exe.scm")))) - (_%compile-stub200812%_ - _%output-scm200816%_ - _%output-bin200814%_))))) + (##string-append _%output-bin201946%_ '"__exe.scm")))) + (_%compile-stub201944%_ + _%output-scm201948%_ + _%output-bin201946%_))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_%ctx200622%_ _%opts200623%_) - (letrec ((_%reset-declare200625%_ + (lambda (_%ctx201754%_ _%opts201755%_) + (letrec ((_%reset-declare201757%_ (lambda () '(declare (gambit-scheme) @@ -875,36 +873,36 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_%generate-stub200626%_ - (lambda (_%deps200791%_) - (let ((_%mod-main200793%_ - (gxc#find-runtime-symbol _%ctx200622%_ 'main)) - (_%reset-decl200794%_ (_%reset-declare200625%_)) - (_%user-decl200795%_ (_%user-declare200627%_))) + (_%generate-stub201758%_ + (lambda (_%deps201923%_) + (let ((_%mod-main201925%_ + (gxc#find-runtime-symbol _%ctx201754%_ 'main)) + (_%reset-decl201926%_ (_%reset-declare201757%_)) + (_%user-decl201927%_ (_%user-declare201759%_))) (for-each - (lambda (_%dep200797%_) + (lambda (_%dep201929%_) (let () (declare (not safe)) (##write '(##namespace ("")))) (newline) (let () (declare (not safe)) - (##write _%reset-decl200794%_)) + (##write _%reset-decl201926%_)) (newline) - (if _%user-decl200795%_ + (if _%user-decl201927%_ (begin (let () (declare (not safe)) - (##write _%user-decl200795%_)) + (##write _%user-decl201927%_)) (newline)) '#!void) - (let ((__tmp201263 - (cons 'include (cons _%dep200797%_ '())))) + (let ((__tmp202395 + (cons 'include (cons _%dep201929%_ '())))) (declare (not safe)) - (##write __tmp201263)) + (##write __tmp202395)) (newline)) - _%deps200791%_) - (let ((__tmp201264 + _%deps201923%_) + (let ((__tmp202396 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'gerbil-runtime-init! @@ -914,240 +912,236 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'apply - (cons _%mod-main200793%_ + (cons _%mod-main201925%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'cdr (cons (cons 'command-line '()) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (##write __tmp201264)) + (##write __tmp202396)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%user-declare200627%_ + (_%user-declare201759%_ (lambda () - (let* ((_%gsc-opts200696%_ + (let* ((_%gsc-opts201828%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts200623%_))) - (_%gsc-prelude200698%_ - (if _%gsc-opts200696%_ - (member '"-prelude" _%gsc-opts200696%_) + (pgetq__0 'gsc-options: _%opts201755%_))) + (_%gsc-prelude201830%_ + (if _%gsc-opts201828%_ + (member '"-prelude" _%gsc-opts201828%_) '#f)) - (_%gsc-prelude200700%_ - (if _%gsc-prelude200698%_ + (_%gsc-prelude201832%_ + (if _%gsc-prelude201830%_ (read (open-input-string - (cadr _%gsc-prelude200698%_))) + (cadr _%gsc-prelude201830%_))) '#f))) - (let _%lp200703%_ ((_%rest200705%_ - (cons _%gsc-prelude200700%_ '())) - (_%user-decls200706%_ '())) - (let* ((_%rest200707200715%_ _%rest200705%_) - (_%else200709200723%_ + (let _%lp201835%_ ((_%rest201837%_ + (cons _%gsc-prelude201832%_ '())) + (_%user-decls201838%_ '())) + (let* ((_%rest201839201847%_ _%rest201837%_) + (_%else201841201855%_ (lambda () - (if (null? _%user-decls200706%_) + (if (null? _%user-decls201838%_) '#f (cons 'declare - (reverse _%user-decls200706%_))))) - (_%K200711200779%_ - (lambda (_%rest200726%_ _%expr200727%_) - (let* ((_%expr200728200740%_ _%expr200727%_) - (_%else200731200748%_ + (reverse _%user-decls201838%_))))) + (_%K201843201911%_ + (lambda (_%rest201858%_ _%expr201859%_) + (let* ((_%expr201860201872%_ _%expr201859%_) + (_%else201863201880%_ (lambda () - (_%lp200703%_ - _%rest200726%_ - _%user-decls200706%_)))) - (let ((_%K200736200769%_ - (lambda (_%decls200767%_) - (_%lp200703%_ - _%rest200726%_ + (_%lp201835%_ + _%rest201858%_ + _%user-decls201838%_)))) + (let ((_%K201868201901%_ + (lambda (_%decls201899%_) + (_%lp201835%_ + _%rest201858%_ (let () (declare (not safe)) (__foldl1 cons - _%user-decls200706%_ - _%decls200767%_))))) - (_%K200733200754%_ - (lambda (_%exprs200752%_) - (_%lp200703%_ - (append _%exprs200752%_ - _%rest200726%_) - _%user-decls200706%_)))) - (if (let () - (declare (not safe)) - (##pair? _%expr200728200740%_)) - (let ((_%tl200738200774%_ + _%user-decls201838%_ + _%decls201899%_))))) + (_%K201865201886%_ + (lambda (_%exprs201884%_) + (_%lp201835%_ + (append _%exprs201884%_ + _%rest201858%_) + _%user-decls201838%_)))) + (if (pair? _%expr201860201872%_) + (let ((_%tl201870201906%_ (let () (declare (not safe)) - (##cdr _%expr200728200740%_))) - (_%hd200737200772%_ + (##cdr _%expr201860201872%_))) + (_%hd201869201904%_ (let () (declare (not safe)) - (##car _%expr200728200740%_)))) + (##car _%expr201860201872%_)))) (if (let () (declare (not safe)) - (##eq? _%hd200737200772%_ + (##eq? _%hd201869201904%_ 'declare)) - (let ((_%decls200777%_ - _%tl200738200774%_)) - (_%K200736200769%_ - _%decls200777%_)) + (let ((_%decls201909%_ + _%tl201870201906%_)) + (_%K201868201901%_ + _%decls201909%_)) (if (let () (declare (not safe)) - (##eq? _%hd200737200772%_ + (##eq? _%hd201869201904%_ 'begin)) - (let ((_%exprs200762%_ - _%tl200738200774%_)) - (_%K200733200754%_ - _%exprs200762%_)) - (_%else200731200748%_)))) - (_%else200731200748%_))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest200707200715%_)) - (let ((_%hd200712200782%_ + (let ((_%exprs201894%_ + _%tl201870201906%_)) + (_%K201865201886%_ + _%exprs201894%_)) + (_%else201863201880%_)))) + (_%else201863201880%_))))))) + (if (pair? _%rest201839201847%_) + (let ((_%hd201844201914%_ (let () (declare (not safe)) - (##car _%rest200707200715%_))) - (_%tl200713200784%_ + (##car _%rest201839201847%_))) + (_%tl201845201916%_ (let () (declare (not safe)) - (##cdr _%rest200707200715%_)))) - (let* ((_%expr200787%_ _%hd200712200782%_) - (_%rest200789%_ _%tl200713200784%_)) - (_%K200711200779%_ - _%rest200789%_ - _%expr200787%_))) - (_%else200709200723%_))))))) - (_%compile-stub200628%_ - (lambda (_%output-scm200635%_ _%output-bin200636%_) - (let* ((_%gerbil-home200638%_ - (let ((__tmp201265 + (##cdr _%rest201839201847%_)))) + (let* ((_%expr201919%_ _%hd201844201914%_) + (_%rest201921%_ _%tl201845201916%_)) + (_%K201843201911%_ + _%rest201921%_ + _%expr201919%_))) + (_%else201841201855%_))))))) + (_%compile-stub201760%_ + (lambda (_%output-scm201767%_ _%output-bin201768%_) + (let* ((_%gerbil-home201770%_ + (let ((__tmp202397 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp201265))) - (_%gerbil-libdir200640%_ - (path-expand '"lib" _%gerbil-home200638%_)) - (_%runtime200642%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp202397))) + (_%gerbil-libdir201772%_ + (path-expand '"lib" _%gerbil-home201770%_)) + (_%runtime201774%_ (let () (declare (not safe)) (##map gxc#find-static-module-file gxc#gerbil-runtime-modules))) - (_%gambit-sharp200644%_ + (_%gambit-sharp201776%_ (path-expand '"lib/_gambit#.scm" - _%gerbil-home200638%_)) - (_%include-gambit-sharp200646%_ + _%gerbil-home201770%_)) + (_%include-gambit-sharp201778%_ (let () (declare (not safe)) (##string-append '"(include \"" - _%gambit-sharp200644%_ + _%gambit-sharp201776%_ '"\")"))) - (_%bin-scm200648%_ - (gxc#find-static-module-file _%ctx200622%_)) - (_%deps200650%_ - (gxc#find-runtime-module-deps _%ctx200622%_)) - (_%deps200652%_ + (_%bin-scm201780%_ + (gxc#find-static-module-file _%ctx201754%_)) + (_%deps201782%_ + (gxc#find-runtime-module-deps _%ctx201754%_)) + (_%deps201784%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%deps200650%_))) - (_%deps200657%_ - (let ((__tmp201266 - (lambda (_%$obj200654%_) - (not (gxc#file-empty? _%$obj200654%_))))) + _%deps201782%_))) + (_%deps201789%_ + (let ((__tmp202398 + (lambda (_%$obj201786%_) + (not (gxc#file-empty? _%$obj201786%_))))) (declare (not safe)) - (##filter __tmp201266 _%deps200652%_))) - (_%deps200661%_ - (let ((__tmp201267 - (lambda (_%f200659%_) + (##filter __tmp202398 _%deps201784%_))) + (_%deps201793%_ + (let ((__tmp202399 + (lambda (_%f201791%_) (not (let () (declare (not safe)) (##member - _%f200659%_ - _%runtime200642%_)))))) + _%f201791%_ + _%runtime201774%_)))))) (declare (not safe)) - (##filter __tmp201267 _%deps200657%_))) - (_%output-base200663%_ - (let ((__tmp201268 + (##filter __tmp202399 _%deps201789%_))) + (_%output-base201795%_ + (let ((__tmp202400 (path-strip-extension - _%output-scm200635%_))) + _%output-scm201767%_))) (declare (not safe)) - (##string-append __tmp201268))) - (_%output-c200665%_ + (##string-append __tmp202400))) + (_%output-c201797%_ (let () (declare (not safe)) - (##string-append _%output-base200663%_ '".c"))) - (_%output-o200667%_ + (##string-append _%output-base201795%_ '".c"))) + (_%output-o201799%_ (let () (declare (not safe)) - (##string-append _%output-base200663%_ '".o"))) - (_%output-c_200669%_ + (##string-append _%output-base201795%_ '".o"))) + (_%output-c_201801%_ (let () (declare (not safe)) - (##string-append _%output-base200663%_ '"_.c"))) - (_%output-o_200671%_ + (##string-append _%output-base201795%_ '"_.c"))) + (_%output-o_201803%_ (let () (declare (not safe)) - (##string-append _%output-base200663%_ '"_.o"))) - (_%gsc-link-opts200673%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts200675%_ + (##string-append _%output-base201795%_ '"_.o"))) + (_%gsc-link-opts201805%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts201807%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts200677%_ + (_%gsc-static-opts201809%_ (gxc#gsc-static-include-options - (path-expand '"static" _%gerbil-libdir200640%_))) - (_%output-ld-opts200679%_ (gxc#gcc-ld-options)) - (_%gsc-gx-macros200681%_ + (path-expand '"static" _%gerbil-libdir201772%_))) + (_%output-ld-opts201811%_ (gxc#gcc-ld-options)) + (_%gsc-gx-macros201813%_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) (cons '"-e" (cons '"(define-cond-expand-feature|enable-smp|)" (cons '"-e" - (cons _%include-gambit-sharp200646%_ + (cons _%include-gambit-sharp201778%_ '())))) (cons '"-e" - (cons _%include-gambit-sharp200646%_ + (cons _%include-gambit-sharp201778%_ '())))) - (_%gsc-link-opts200683%_ + (_%gsc-link-opts201815%_ (let () (declare (not safe)) (##append - _%gsc-link-opts200673%_ - _%gsc-gx-macros200681%_))) - (_%rpath200685%_ - (gxc#gerbil-rpath _%gerbil-libdir200640%_)) - (_%default-ld-options200687%_ + _%gsc-link-opts201805%_ + _%gsc-gx-macros201813%_))) + (_%rpath201817%_ + (gxc#gerbil-rpath _%gerbil-libdir201772%_)) + (_%default-ld-options201819%_ (cons '"-ldl" (cons '"-lm" '())))) - (let ((__tmp201269 + (let ((__tmp202401 (lambda () - (let ((__tmp201270 - (path-directory _%output-bin200636%_))) + (let ((__tmp202402 + (path-directory _%output-bin201768%_))) (declare (not safe)) - (create-directory*__0 __tmp201270))))) + (create-directory*__0 __tmp202402))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp201269)) + (__with-lock gxc#+driver-mutex+ __tmp202401)) (gxc#with-output-to-scheme-file - _%output-scm200635%_ + _%output-scm201767%_ (lambda () - (_%generate-stub200626%_ - (let ((__tmp201271 - (let ((__tmp201272 - (cons _%bin-scm200648%_ '()))) + (_%generate-stub201758%_ + (let ((__tmp202403 + (let ((__tmp202404 + (cons _%bin-scm201780%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp201272 - _%deps200661%_)))) + __tmp202404 + _%deps201793%_)))) (declare (not safe)) - (__foldr1 cons __tmp201271 _%runtime200642%_))))) + (__foldr1 cons __tmp202403 _%runtime201774%_))))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it200693%_ + (let ((_%compile-it201825%_ (lambda () (gxc#invoke__% '#f @@ -1156,13 +1150,13 @@ (gxc#gerbil-gsc) (cons '"-link" (cons '"-o" - (cons _%output-c_200669%_ - (let ((__tmp201273 - (cons _%output-scm200635%_ + (cons _%output-c_201801%_ + (let ((__tmp202405 + (cons _%output-scm201767%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) (declare (not safe)) - (__foldr1 cons __tmp201273 _%gsc-link-opts200683%_)))))) + (__foldr1 cons __tmp202405 _%gsc-link-opts201815%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#invoke__% '#f @@ -1170,23 +1164,23 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp201274 - (let ((__tmp201275 - (cons _%output-c200665%_ - (cons _%output-c_200669%_ + (let ((__tmp202406 + (let ((__tmp202407 + (cons _%output-c201797%_ + (cons _%output-c_201801%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp201275 - _%gsc-static-opts200677%_)))) + __tmp202407 + _%gsc-static-opts201809%_)))) (declare (not safe)) (__foldr1 cons - __tmp201274 - _%gsc-cc-opts200675%_)))) + __tmp202406 + _%gsc-cc-opts201807%_)))) (gxc#invoke__% '#f absent-value @@ -1194,27 +1188,27 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin200636%_ - (cons _%output-o200667%_ - (cons _%output-o_200671%_ + (cons _%output-bin201768%_ + (cons _%output-o201799%_ + (cons _%output-o_201803%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp201276 - (let ((__tmp201278 + (let ((__tmp202408 + (let ((__tmp202410 (cons '"-L" - (cons _%gerbil-libdir200640%_ + (cons _%gerbil-libdir201772%_ (cons '"-lgambit" - _%default-ld-options200687%_)))) - (__tmp201277 + _%default-ld-options201819%_)))) + (__tmp202409 (if (gxc#gerbil-enable-shared?) - (cons _%rpath200685%_ '()) + (cons _%rpath201817%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp201278 __tmp201277)))) + (__foldr1 cons __tmp202410 __tmp202409)))) (declare (not safe)) (__foldr1 cons - __tmp201276 - _%output-ld-opts200679%_))))))))))) + __tmp202408 + _%output-ld-opts201811%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) @@ -1222,630 +1216,626 @@ (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it200693%_)) - (_%compile-it200693%_))) + _%compile-it201825%_)) + (_%compile-it201825%_))) '#!void))))) - (let* ((_%output-bin200630%_ - (gxc#compile-exe-output-file _%ctx200622%_ _%opts200623%_)) - (_%output-scm200632%_ + (let* ((_%output-bin201762%_ + (gxc#compile-exe-output-file _%ctx201754%_ _%opts201755%_)) + (_%output-scm201764%_ (let () (declare (not safe)) - (##string-append _%output-bin200630%_ '"__exe.scm")))) - (_%compile-stub200628%_ - _%output-scm200632%_ - _%output-bin200630%_))))) + (##string-append _%output-bin201762%_ '"__exe.scm")))) + (_%compile-stub201760%_ + _%output-scm201764%_ + _%output-bin201762%_))))) (define gxc#find-export-binding - (lambda (_%ctx200571%_ _%id200572%_) - (let ((_%$e200618%_ - (let ((__tmp201280 - (lambda (_%e200573200575%_) - (let* ((_%g200577200587%_ _%e200573200575%_) - (_%else200579200595%_ (lambda () '#f)) - (_%K200581200599%_ (lambda () '#t))) + (lambda (_%ctx201703%_ _%id201704%_) + (let ((_%$e201750%_ + (let ((__tmp202412 + (lambda (_%e201705201707%_) + (let* ((_%g201709201719%_ _%e201705201707%_) + (_%else201711201727%_ (lambda () '#f)) + (_%K201713201731%_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%g200577200587%_ + _%g201709201719%_ 'gx#module-export::t)) - (let* ((_%e200582200602%_ + (let* ((_%e201714201734%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g200577200587%_ + _%g201709201719%_ '1 '#f '#f))) - (_%e200583200605%_ + (_%e201715201737%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g200577200587%_ + _%g201709201719%_ '2 '#f '#f))) - (_%e200584200608%_ + (_%e201716201740%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g200577200587%_ + _%g201709201719%_ '3 '#f '#f)))) (if (let () (declare (not safe)) - (##eq? _%e200584200608%_ '0)) - (let ((_%e200585200611%_ + (##eq? _%e201716201740%_ '0)) + (let ((_%e201717201743%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g200577200587%_ + _%g201709201719%_ '4 '#f '#f)))) - (if ((lambda (_%g200613200615%_) - (eq? _%g200613200615%_ - _%id200572%_)) - _%e200585200611%_) - (_%K200581200599%_) - (_%else200579200595%_))) - (_%else200579200595%_))) - (_%else200579200595%_))))) - (__tmp201279 + (if ((lambda (_%g201745201747%_) + (eq? _%g201745201747%_ + _%id201704%_)) + _%e201717201743%_) + (_%K201713201731%_) + (_%else201711201727%_))) + (_%else201711201727%_))) + (_%else201711201727%_))))) + (__tmp202411 (##structure-ref - _%ctx200571%_ + _%ctx201703%_ '9 gx#module-context::t '#f))) (declare (not safe)) - (__find __tmp201280 __tmp201279)))) - (if _%$e200618%_ + (__find __tmp202412 __tmp202411)))) + (if _%$e201750%_ (let () (declare (not safe)) - (gx#core-resolve-module-export _%$e200618%_)) + (gx#core-resolve-module-export _%$e201750%_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_%ctx200562%_ _%id200563%_) - (let ((_%$e200565%_ - (gxc#find-export-binding _%ctx200562%_ _%id200563%_))) - (if _%$e200565%_ - ((lambda (_%bind200568%_) + (lambda (_%ctx201694%_ _%id201695%_) + (let ((_%$e201697%_ + (gxc#find-export-binding _%ctx201694%_ _%id201695%_))) + (if _%$e201697%_ + ((lambda (_%bind201700%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind200568%_ + _%bind201700%_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _%id200563%_))) - (##structure-ref _%bind200568%_ '1 gx#binding::t '#f)) - _%$e200565%_) - (let ((__tmp201281 + _%id201695%_))) + (##structure-ref _%bind201700%_ '1 gx#binding::t '#f)) + _%$e201697%_) + (let ((__tmp202413 (##structure-ref - _%ctx200562%_ + _%ctx201694%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp201281 - _%id200563%_)))))) + __tmp202413 + _%id201695%_)))))) (define gxc#find-runtime-module-deps - (lambda (_%ctx200428%_) - (letrec* ((_%ht200430%_ + (lambda (_%ctx201560%_) + (letrec* ((_%ht201562%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%import-set-template200431%_ - (lambda (_%in200507%_ _%phi200508%_) - (let ((_%iphi200510%_ - (fx+ _%phi200508%_ + (_%import-set-template201563%_ + (lambda (_%in201639%_ _%phi201640%_) + (let ((_%iphi201642%_ + (fx+ _%phi201640%_ (##direct-structure-ref - _%in200507%_ + _%in201639%_ '2 gx#import-set::t '#f))) - (_%imports200511%_ + (_%imports201643%_ (##structure-ref (##direct-structure-ref - _%in200507%_ + _%in201639%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp200513%_ ((_%rest200515%_ _%imports200511%_) - (_%r200516%_ '())) - (let* ((_%rest200517200525%_ _%rest200515%_) - (_%else200519200533%_ (lambda () _%r200516%_)) - (_%K200521200550%_ - (lambda (_%rest200536%_ _%in200537%_) + (let _%lp201645%_ ((_%rest201647%_ _%imports201643%_) + (_%r201648%_ '())) + (let* ((_%rest201649201657%_ _%rest201647%_) + (_%else201651201665%_ (lambda () _%r201648%_)) + (_%K201653201682%_ + (lambda (_%rest201668%_ _%in201669%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in200537%_ + _%in201669%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi200510%_)) - (_%lp200513%_ - _%rest200536%_ - (cons _%in200537%_ _%r200516%_)) - (_%lp200513%_ - _%rest200536%_ - _%r200516%_)) + (##fxzero? _%iphi201642%_)) + (_%lp201645%_ + _%rest201668%_ + (cons _%in201669%_ _%r201648%_)) + (_%lp201645%_ + _%rest201668%_ + _%r201648%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in200537%_ + _%in201669%_ 'gx#module-import::t)) - (let ((_%iphi200541%_ - (fx+ _%phi200508%_ + (let ((_%iphi201673%_ + (fx+ _%phi201640%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in200537%_ + _%in201669%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi200541%_)) - (_%lp200513%_ - _%rest200536%_ + (##fxzero? _%iphi201673%_)) + (_%lp201645%_ + _%rest201668%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in200537%_ + _%in201669%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r200516%_)) - (_%lp200513%_ - _%rest200536%_ - _%r200516%_))) + _%r201648%_)) + (_%lp201645%_ + _%rest201668%_ + _%r201648%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in200537%_ + _%in201669%_ 'gx#import-set::t)) - (let ((_%xphi200544%_ - (fx+ _%iphi200510%_ + (let ((_%xphi201676%_ + (fx+ _%iphi201642%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in200537%_ + _%in201669%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi200544%_)) - (_%lp200513%_ - _%rest200536%_ + _%xphi201676%_)) + (_%lp201645%_ + _%rest201668%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in200537%_ + _%in201669%_ '1 '#f '#f)) - _%r200516%_)) + _%r201648%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi200544%_)) - (_%lp200513%_ - _%rest200536%_ - (let ((__tmp201282 + _%xphi201676%_)) + (_%lp201645%_ + _%rest201668%_ + (let ((__tmp202414 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%import-set-template200431%_ - _%in200537%_ - _%iphi200510%_))) + (_%import-set-template201563%_ + _%in201669%_ + _%iphi201642%_))) (declare (not safe)) - (__foldl1 cons _%r200516%_ __tmp201282))) - (_%lp200513%_ _%rest200536%_ _%r200516%_)))) + (__foldl1 cons _%r201648%_ __tmp202414))) + (_%lp201645%_ _%rest201668%_ _%r201648%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp200513%_ - _%rest200536%_ - _%r200516%_))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest200517200525%_)) - (let ((_%hd200522200553%_ + (_%lp201645%_ + _%rest201668%_ + _%r201648%_))))))) + (if (pair? _%rest201649201657%_) + (let ((_%hd201654201685%_ (let () (declare (not safe)) - (##car _%rest200517200525%_))) - (_%tl200523200555%_ + (##car _%rest201649201657%_))) + (_%tl201655201687%_ (let () (declare (not safe)) - (##cdr _%rest200517200525%_)))) - (let* ((_%in200558%_ _%hd200522200553%_) - (_%rest200560%_ _%tl200523200555%_)) - (_%K200521200550%_ - _%rest200560%_ - _%in200558%_))) - (_%else200519200533%_))))))) - (_%find-deps200432%_ - (lambda (_%rest200440%_ _%deps200441%_) - (let* ((_%rest200442200450%_ _%rest200440%_) - (_%else200444200458%_ (lambda () _%deps200441%_)) - (_%K200446200495%_ - (lambda (_%rest200461%_ _%hd200462%_) + (##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%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd200462%_ + _%hd201594%_ 'gx#module-context::t)) - (let ((_%id200465%_ + (let ((_%id201597%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200462%_ + _%hd201594%_ '1 '#f '#f))) - (_%imports200466%_ + (_%imports201598%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200462%_ + _%hd201594%_ '8 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht200430%_ - _%id200465%_)) - (_%find-deps200432%_ - _%rest200461%_ - _%deps200441%_) - (let ((_%$e200469%_ + _%ht201562%_ + _%id201597%_)) + (_%find-deps201564%_ + _%rest201593%_ + _%deps201573%_) + (let ((_%$e201601%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd200462%_)))) - (if _%$e200469%_ - ((lambda (_%pre200472%_) - (let ((_%xdeps200474%_ - (_%find-deps200432%_ - (cons _%pre200472%_ - _%imports200466%_) - _%deps200441%_))) + _%hd201594%_)))) + (if _%$e201601%_ + ((lambda (_%pre201604%_) + (let ((_%xdeps201606%_ + (_%find-deps201564%_ + (cons _%pre201604%_ + _%imports201598%_) + _%deps201573%_))) (let () (declare (not safe)) (__hash-put! - _%ht200430%_ - _%id200465%_ - _%hd200462%_)) - (_%find-deps200432%_ - _%rest200461%_ - (cons _%hd200462%_ - _%xdeps200474%_)))) - _%$e200469%_) - (let ((_%xdeps200477%_ - (_%find-deps200432%_ - _%imports200466%_ - _%deps200441%_))) + _%ht201562%_ + _%id201597%_ + _%hd201594%_)) + (_%find-deps201564%_ + _%rest201593%_ + (cons _%hd201594%_ + _%xdeps201606%_)))) + _%$e201601%_) + (let ((_%xdeps201609%_ + (_%find-deps201564%_ + _%imports201598%_ + _%deps201573%_))) (let () (declare (not safe)) (__hash-put! - _%ht200430%_ - _%id200465%_ - _%hd200462%_)) - (_%find-deps200432%_ - _%rest200461%_ - (cons _%hd200462%_ - _%xdeps200477%_))))))) + _%ht201562%_ + _%id201597%_ + _%hd201594%_)) + (_%find-deps201564%_ + _%rest201593%_ + (cons _%hd201594%_ + _%xdeps201609%_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd200462%_ + _%hd201594%_ 'gx#prelude-context::t)) - (let ((_%id200480%_ + (let ((_%id201612%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200462%_ + _%hd201594%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht200430%_ - _%id200480%_)) - (_%find-deps200432%_ - _%rest200461%_ - _%deps200441%_) - (let ((_%xdeps200484%_ - (_%find-deps200432%_ + _%ht201562%_ + _%id201612%_)) + (_%find-deps201564%_ + _%rest201593%_ + _%deps201573%_) + (let ((_%xdeps201616%_ + (_%find-deps201564%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200462%_ + _%hd201594%_ '7 '#f '#f)) - _%deps200441%_))) + _%deps201573%_))) (if (let () (declare (not safe)) (__hash-get - _%ht200430%_ - _%id200480%_)) - (_%find-deps200432%_ - _%rest200461%_ - _%xdeps200484%_) + _%ht201562%_ + _%id201612%_)) + (_%find-deps201564%_ + _%rest201593%_ + _%xdeps201616%_) (begin (let () (declare (not safe)) (__hash-put! - _%ht200430%_ - _%id200480%_ - _%hd200462%_)) - (_%find-deps200432%_ - _%rest200461%_ - (cons _%hd200462%_ - _%xdeps200484%_))))))) + _%ht201562%_ + _%id201612%_ + _%hd201594%_)) + (_%find-deps201564%_ + _%rest201593%_ + (cons _%hd201594%_ + _%xdeps201616%_))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200462%_ + _%hd201594%_ 'gx#module-import::t)) (if (fxzero? (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200462%_ + _%hd201594%_ '3 '#f '#f))) - (_%find-deps200432%_ + (_%find-deps201564%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200462%_ + _%hd201594%_ '1 '#f '#f)) - _%rest200461%_) - _%deps200441%_) - (_%find-deps200432%_ - _%rest200461%_ - _%deps200441%_)) + _%rest201593%_) + _%deps201573%_) + (_%find-deps201564%_ + _%rest201593%_ + _%deps201573%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200462%_ + _%hd201594%_ 'gx#module-export::t)) - (_%find-deps200432%_ + (_%find-deps201564%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200462%_ + _%hd201594%_ '1 '#f '#f)) - _%rest200461%_) - _%deps200441%_) + _%rest201593%_) + _%deps201573%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200462%_ + _%hd201594%_ 'gx#import-set::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##unchecked-structure-ref _%hd200462%_ '2 '#f '#f))) - (_%find-deps200432%_ + (##unchecked-structure-ref _%hd201594%_ '2 '#f '#f))) + (_%find-deps201564%_ (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%hd200462%_ '1 '#f '#f)) - _%rest200461%_) - _%deps200441%_) + (##unchecked-structure-ref _%hd201594%_ '1 '#f '#f)) + _%rest201593%_) + _%deps201573%_) (if (fxpositive? (let () (declare (not safe)) - (##unchecked-structure-ref _%hd200462%_ '2 '#f '#f))) - (let ((_%xdeps200491%_ - (_%import-set-template200431%_ _%hd200462%_ '0))) - (_%find-deps200432%_ + (##unchecked-structure-ref _%hd201594%_ '2 '#f '#f))) + (let ((_%xdeps201623%_ + (_%import-set-template201563%_ _%hd201594%_ '0))) + (_%find-deps201564%_ (let () (declare (not safe)) - (__foldl1 cons _%rest200461%_ _%xdeps200491%_)) - _%deps200441%_)) - (_%find-deps200432%_ _%rest200461%_ _%deps200441%_))) + (__foldl1 cons _%rest201593%_ _%xdeps201623%_)) + _%deps201573%_)) + (_%find-deps201564%_ _%rest201593%_ _%deps201573%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _%hd200462%_)))))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest200442200450%_)) - (let ((_%hd200447200498%_ + _%hd201594%_)))))))))) + (if (pair? _%rest201574201582%_) + (let ((_%hd201579201630%_ (let () (declare (not safe)) - (##car _%rest200442200450%_))) - (_%tl200448200500%_ + (##car _%rest201574201582%_))) + (_%tl201580201632%_ (let () (declare (not safe)) - (##cdr _%rest200442200450%_)))) - (let* ((_%hd200503%_ _%hd200447200498%_) - (_%rest200505%_ _%tl200448200500%_)) - (_%K200446200495%_ - _%rest200505%_ - _%hd200503%_))) - (_%else200444200458%_)))))) - (let ((__tmp201283 + (##cdr _%rest201574201582%_)))) + (let* ((_%hd201635%_ _%hd201579201630%_) + (_%rest201637%_ _%tl201580201632%_)) + (_%K201578201627%_ + _%rest201637%_ + _%hd201635%_))) + (_%else201576201590%_)))))) + (let ((__tmp202415 (filter gx#expander-context-id - (_%find-deps200432%_ - (let ((_%$e200434%_ + (_%find-deps201564%_ + (let ((_%$e201566%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%ctx200428%_)))) - (if _%$e200434%_ - ((lambda (_%pre200437%_) - (cons _%pre200437%_ + _%ctx201560%_)))) + (if _%$e201566%_ + ((lambda (_%pre201569%_) + (cons _%pre201569%_ (##structure-ref - _%ctx200428%_ + _%ctx201560%_ '8 gx#module-context::t '#f))) - _%$e200434%_) + _%$e201566%_) (##structure-ref - _%ctx200428%_ + _%ctx201560%_ '8 gx#module-context::t '#f))) '())))) (declare (not safe)) - (##reverse __tmp201283))))) + (##reverse __tmp202415))))) (define gxc#find-static-module-file - (lambda (_%ctx200358%_) - (let* ((_%context-id200360%_ + (lambda (_%ctx201490%_) + (let* ((_%context-id201492%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%ctx200358%_ + _%ctx201490%_ 'gx#module-context::t)) (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx200358%_ '1 '#f '#f)) - (string->symbol _%ctx200358%_))) - (_%scm200362%_ - (let ((__tmp201284 - (gxc#static-module-name _%context-id200360%_))) + (##unchecked-structure-ref _%ctx201490%_ '1 '#f '#f)) + (string->symbol _%ctx201490%_))) + (_%scm201494%_ + (let ((__tmp202416 + (gxc#static-module-name _%context-id201492%_))) (declare (not safe)) - (##string-append __tmp201284 '".scm"))) - (_%dirs200364%_ (let () (declare (not safe)) (load-path))) - (_%dirs200370%_ - (let ((_%user-libpath200366%_ + (##string-append __tmp202416 '".scm"))) + (_%dirs201496%_ (let () (declare (not safe)) (load-path))) + (_%dirs201502%_ + (let ((_%user-libpath201498%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%user-libpath200366%_ - (let ((_%user-libpath200368%_ - (path-expand '"lib" _%user-libpath200366%_))) + (if _%user-libpath201498%_ + (let ((_%user-libpath201500%_ + (path-expand '"lib" _%user-libpath201498%_))) (if (let () (declare (not safe)) - (##member _%user-libpath200368%_ _%dirs200364%_)) - _%dirs200364%_ - (cons _%user-libpath200368%_ _%dirs200364%_))) - _%dirs200364%_))) - (_%dirs200380%_ - (let ((_%$e200372%_ + (##member _%user-libpath201500%_ _%dirs201496%_)) + _%dirs201496%_ + (cons _%user-libpath201500%_ _%dirs201496%_))) + _%dirs201496%_))) + (_%dirs201512%_ + (let ((_%$e201504%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e200372%_ - ((lambda (_%g200374200376%_) - (cons _%g200374200376%_ _%dirs200370%_)) - _%$e200372%_) - _%dirs200370%_))) - (_%dirs200386%_ - (let ((__tmp201285 - (lambda (_%g200381200383%_) - (path-expand '"static" _%g200381200383%_)))) + (if _%$e201504%_ + ((lambda (_%g201506201508%_) + (cons _%g201506201508%_ _%dirs201502%_)) + _%$e201504%_) + _%dirs201502%_))) + (_%dirs201518%_ + (let ((__tmp202417 + (lambda (_%g201513201515%_) + (path-expand '"static" _%g201513201515%_)))) (declare (not safe)) - (##map __tmp201285 _%dirs200380%_)))) - (let _%lp200389%_ ((_%rest200391%_ _%dirs200386%_)) - (let* ((_%rest200392200400%_ _%rest200391%_) - (_%else200394200408%_ + (##map __tmp202417 _%dirs201512%_)))) + (let _%lp201521%_ ((_%rest201523%_ _%dirs201518%_)) + (let* ((_%rest201524201532%_ _%rest201523%_) + (_%else201526201540%_ (lambda () - (let ((__tmp201286 + (let ((__tmp202418 (##structure-ref - _%ctx200358%_ + _%ctx201490%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp201286 - _%scm200362%_)))) - (_%K200396200416%_ - (lambda (_%rest200411%_ _%dir200412%_) - (let ((_%path200414%_ - (path-expand _%scm200362%_ _%dir200412%_))) + __tmp202418 + _%scm201494%_)))) + (_%K201528201548%_ + (lambda (_%rest201543%_ _%dir201544%_) + (let ((_%path201546%_ + (path-expand _%scm201494%_ _%dir201544%_))) (if (let () (declare (not safe)) - (##file-exists? _%path200414%_)) - _%path200414%_ - (_%lp200389%_ _%rest200411%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest200392200400%_)) - (let ((_%hd200397200419%_ + (##file-exists? _%path201546%_)) + _%path201546%_ + (_%lp201521%_ _%rest201543%_)))))) + (if (pair? _%rest201524201532%_) + (let ((_%hd201529201551%_ (let () (declare (not safe)) - (##car _%rest200392200400%_))) - (_%tl200398200421%_ + (##car _%rest201524201532%_))) + (_%tl201530201553%_ (let () (declare (not safe)) - (##cdr _%rest200392200400%_)))) - (let* ((_%dir200424%_ _%hd200397200419%_) - (_%rest200426%_ _%tl200398200421%_)) - (_%K200396200416%_ _%rest200426%_ _%dir200424%_))) - (_%else200394200408%_))))))) + (##cdr _%rest201524201532%_)))) + (let* ((_%dir201556%_ _%hd201529201551%_) + (_%rest201558%_ _%tl201530201553%_)) + (_%K201528201548%_ _%rest201558%_ _%dir201556%_))) + (_%else201526201540%_))))))) (define gxc#file-empty? - (lambda (_%path200356%_) - (zero? (let ((__tmp201287 (file-info _%path200356%_ '#t))) + (lambda (_%path201488%_) + (zero? (let ((__tmp202419 (file-info _%path201488%_ '#t))) (declare (not safe)) - (##file-info-size __tmp201287))))) + (##file-info-size __tmp202419))))) (define gxc#compile-top-module - (lambda (_%ctx200352%_) - (let ((__tmp201291 + (lambda (_%ctx201484%_) + (let ((__tmp202423 (lambda () - (let ((__tmp201292 + (let ((__tmp202424 (##structure-ref - _%ctx200352%_ + _%ctx201484%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp201292)) + (gxc#verbose '"compile " __tmp202424)) (if (let () (declare (not safe)) (gxc#current-compile-optimize)) - (let ((__tmp201293 + (let ((__tmp202425 (lambda () (let () (declare (not safe)) - (gxc#optimize! _%ctx200352%_))))) + (gxc#optimize! _%ctx201484%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp201293)) + (__with-lock gxc#+driver-mutex+ __tmp202425)) '#!void) - (gxc#collect-bindings _%ctx200352%_) - (gxc#compile-runtime-code _%ctx200352%_) - (gxc#compile-meta-code _%ctx200352%_) + (gxc#collect-bindings _%ctx201484%_) + (gxc#compile-runtime-code _%ctx201484%_) + (gxc#compile-meta-code _%ctx201484%_) (if (and (let () (declare (not safe)) (gxc#current-compile-optimize)) (let () (declare (not safe)) (gxc#current-compile-generate-ssxi))) - (gxc#compile-ssxi-code _%ctx200352%_) + (gxc#compile-ssxi-code _%ctx201484%_) '#!void))) - (__tmp201290 - (let ((__obj201214 + (__tmp202422 + (let ((__obj202346 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) (let () (declare (not safe)) - (gxc#symbol-table:::init! __obj201214)) - __obj201214)) - (__tmp201289 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp201288 + (gxc#symbol-table:::init! __obj202346)) + __obj202346)) + (__tmp202421 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp202420 (let () (declare (not safe)) (make-hash-table__% @@ -1860,137 +1850,137 @@ absent-value)))) (declare (not safe)) (__call-with-parameters - __tmp201291 + __tmp202423 gx#current-expander-context - _%ctx200352%_ + _%ctx201484%_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp201290 + __tmp202422 gxc#current-compile-runtime-sections - __tmp201289 + __tmp202421 gxc#current-compile-runtime-names - __tmp201288)))) + __tmp202420)))) (define gxc#collect-bindings - (lambda (_%ctx200350%_) - (let ((__tmp201294 - (##structure-ref _%ctx200350%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx201482%_) + (let ((__tmp202426 + (##structure-ref _%ctx201482%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp201294)))) + (gxc#apply-collect-bindings __tmp202426)))) (define gxc#compile-runtime-code - (lambda (_%ctx200298%_) - (letrec ((_%compile1200300%_ - (lambda (_%ctx200339%_) - (let* ((_%code200341%_ + (lambda (_%ctx201430%_) + (letrec ((_%compile1201432%_ + (lambda (_%ctx201471%_) + (let* ((_%code201473%_ (##structure-ref - _%ctx200339%_ + _%ctx201471%_ '11 gx#module-context::t '#f)) - (_%rtm200345%_ - (let ((_%idstr200343%_ - (let ((__tmp201295 + (_%rtm201477%_ + (let ((_%idstr201475%_ + (let ((__tmp202427 (##structure-ref - _%ctx200339%_ + _%ctx201471%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp201295)))) + __tmp202427)))) (declare (not safe)) - (##string-append _%idstr200343%_ '"~0"))) - (_%rtc?200347%_ + (##string-append _%idstr201475%_ '"~0"))) + (_%rtc?201479%_ (let () (declare (not safe)) - (gxc#apply-find-runtime-code _%code200341%_)))) - (if _%rtc?200347%_ - (let ((__tmp201296 + (gxc#apply-find-runtime-code _%code201473%_)))) + (if _%rtc?201479%_ + (let ((__tmp202428 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-put! - __tmp201296 - _%ctx200339%_ - _%rtm200345%_)) + __tmp202428 + _%ctx201471%_ + _%rtm201477%_)) '#!void) - (_%generate-runtime-code200302%_ - _%ctx200339%_ - _%code200341%_ - (if _%rtc?200347%_ _%rtm200345%_ '#f))))) - (_%context-timestamp200301%_ - (lambda (_%ctx200337%_) - (let ((__tmp201297 - (let ((__tmp201298 + (_%generate-runtime-code201434%_ + _%ctx201471%_ + _%code201473%_ + (if _%rtc?201479%_ _%rtm201477%_ '#f))))) + (_%context-timestamp201433%_ + (lambda (_%ctx201469%_) + (let ((__tmp202429 + (let ((__tmp202430 (symbol->string (##structure-ref - _%ctx200337%_ + _%ctx201469%_ '1 gx#expander-context::t '#f)))) (declare (not safe)) - (##string-append __tmp201298 '"::timestamp")))) + (##string-append __tmp202430 '"::timestamp")))) (declare (not safe)) - (##string->symbol __tmp201297)))) - (_%generate-runtime-code200302%_ - (lambda (_%ctx200309%_ _%code200310%_ _%rtm200311%_) - (let* ((_%runtime-code?200313%_ (if _%rtm200311%_ '#t '#f)) - (_%lifts200315%_ (box '())) - (_%runtime-code200318%_ - (if _%runtime-code?200313%_ - (let ((__tmp201301 + (##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 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _%code200310%_)))) - (__tmp201300 + _%code201442%_)))) + (__tmp202432 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp201299 + (__tmp202431 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp201301 + __tmp202433 gx#current-expander-context - _%ctx200309%_ + _%ctx201441%_ gx#current-expander-phi '0 gxc#current-compile-lift - _%lifts200315%_ + _%lifts201447%_ gxc#current-compile-marks - __tmp201300 + __tmp202432 gxc#current-compile-identifiers - __tmp201299)) + __tmp202431)) '#f)) - (_%runtime-code200320%_ - (if _%runtime-code?200313%_ - (if (null? (unbox _%lifts200315%_)) - _%runtime-code200318%_ + (_%runtime-code201452%_ + (if _%runtime-code?201445%_ + (if (null? (unbox _%lifts201447%_)) + _%runtime-code201450%_ (cons 'begin - (let ((__tmp201303 - (cons _%runtime-code200318%_ + (let ((__tmp202435 + (cons _%runtime-code201450%_ '())) - (__tmp201302 - (reverse (unbox _%lifts200315%_)))) + (__tmp202434 + (reverse (unbox _%lifts201447%_)))) (declare (not safe)) (__foldr1 cons - __tmp201303 - __tmp201302)))) + __tmp202435 + __tmp202434)))) '#f)) - (_%runtime-code200322%_ - (if _%runtime-code?200313%_ + (_%runtime-code201454%_ + (if _%runtime-code?201445%_ (cons 'begin (cons (cons 'define - (cons (_%context-timestamp200301%_ - _%ctx200309%_) + (cons (_%context-timestamp201433%_ + _%ctx201441%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1998,806 +1988,779 @@ (gxc#current-compile-timestamp)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%runtime-code200320%_ '()))) + (cons _%runtime-code201452%_ '()))) '#f)) - (_%loader-code200325%_ - (let ((__tmp201304 + (_%loader-code201457%_ + (let ((__tmp202436 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _%code200310%_))))) + _%code201442%_))))) (declare (not safe)) (__call-with-parameters - __tmp201304 + __tmp202436 gx#current-expander-context - _%ctx200309%_))) - (_%loader-code200327%_ + _%ctx201441%_))) + (_%loader-code201459%_ (cons 'begin - (cons _%loader-code200325%_ - (cons (if _%runtime-code?200313%_ + (cons _%loader-code201457%_ + (cons (if _%runtime-code?201445%_ (cons 'load-module - (cons _%rtm200311%_ + (cons _%rtm201443%_ '())) '(begin)) '())))) - (_%scm0200329%_ - (gxc#compile-output-file _%ctx200309%_ '0 '".scm")) - (_%scmrt200331%_ + (_%scm0201461%_ + (gxc#compile-output-file _%ctx201441%_ '0 '".scm")) + (_%scmrt201463%_ (gxc#compile-output-file - _%ctx200309%_ + _%ctx201441%_ '#f '".scm")) - (_%scms200333%_ - (gxc#compile-static-output-file _%ctx200309%_))) - (if _%runtime-code?200313%_ + (_%scms201465%_ + (gxc#compile-static-output-file _%ctx201441%_))) + (if _%runtime-code?201445%_ (gxc#compile-scm-file__0 - _%scm0200329%_ - _%runtime-code200322%_) + _%scm0201461%_ + _%runtime-code201454%_) '#!void) - (let ((__tmp201305 + (let ((__tmp202437 (lambda () (gxc#compile-scm-file__0 - _%scmrt200331%_ - _%loader-code200327%_)))) + _%scmrt201463%_ + _%loader-code201459%_)))) (declare (not safe)) (__call-with-parameters - __tmp201305 + __tmp202437 gxc#current-compile-gsc-options '#f)) (if (let () (declare (not safe)) - (##file-exists? _%scms200333%_)) + (##file-exists? _%scms201465%_)) (let () (declare (not safe)) - (##delete-file _%scms200333%_)) + (##delete-file _%scms201465%_)) '#!void) - (if _%runtime-code?200313%_ + (if _%runtime-code?201445%_ (let () (declare (not safe)) - (##copy-file _%scm0200329%_ _%scms200333%_)) + (##copy-file _%scm0201461%_ _%scms201465%_)) (let () (declare (not safe)) - (##call-with-output-file _%scms200333%_ void))))))) - (let* ((_%all-modules200304%_ - (cons _%ctx200298%_ (gxc#lift-nested-modules _%ctx200298%_))) - (__tmp201306 - (lambda (_%ctx200306%_) - (let ((__tmp201307 - (lambda () (_%compile1200300%_ _%ctx200306%_)))) + (##call-with-output-file _%scms201465%_ void))))))) + (let* ((_%all-modules201436%_ + (cons _%ctx201430%_ (gxc#lift-nested-modules _%ctx201430%_))) + (__tmp202438 + (lambda (_%ctx201438%_) + (let ((__tmp202439 + (lambda () (_%compile1201432%_ _%ctx201438%_)))) (declare (not safe)) (__call-with-parameters - __tmp201307 + __tmp202439 gxc#current-compile-decls '()))))) (declare (not safe)) - (##for-each __tmp201306 _%all-modules200304%_))))) + (##for-each __tmp202438 _%all-modules201436%_))))) (define gxc#compile-meta-code - (lambda (_%ctx200198%_) - (letrec ((_%compile-ssi200200%_ - (lambda (_%code200266%_) - (let* ((_%path200268%_ + (lambda (_%ctx201330%_) + (letrec ((_%compile-ssi201332%_ + (lambda (_%code201398%_) + (let* ((_%path201400%_ (gxc#compile-output-file - _%ctx200198%_ + _%ctx201330%_ '#f '".ssi")) - (_%prelude200280%_ - (let* ((_%super200270%_ + (_%prelude201412%_ + (let* ((_%super201402%_ (##structure-ref - _%ctx200198%_ + _%ctx201330%_ '3 gx#phi-context::t '#f)) - (_%$e200272%_ + (_%$e201404%_ (##structure-ref - _%super200270%_ + _%super201402%_ '1 gx#expander-context::t '#f))) - (if _%$e200272%_ - ((lambda (_%g200274200276%_) + (if _%$e201404%_ + ((lambda (_%g201406201408%_) (let () (declare (not safe)) (make-symbol__1 '":" - _%g200274200276%_))) - _%$e200272%_) + _%g201406201408%_))) + _%$e201404%_) ':))) - (_%ns200282%_ + (_%ns201414%_ (##structure-ref - _%ctx200198%_ + _%ctx201330%_ '6 gx#module-context::t '#f)) - (_%idstr200284%_ + (_%idstr201416%_ (symbol->string (##structure-ref - _%ctx200198%_ + _%ctx201330%_ '1 gx#expander-context::t '#f))) - (_%pkg200292%_ - (let ((_%$e200286%_ + (_%pkg201424%_ + (let ((_%$e201418%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr200284%_ '#\/)))) - (if _%$e200286%_ - ((lambda (_%x200289%_) - (let ((__tmp201308 + (string-rindex__0 _%idstr201416%_ '#\/)))) + (if _%$e201418%_ + ((lambda (_%x201421%_) + (let ((__tmp202440 (substring - _%idstr200284%_ + _%idstr201416%_ '0 - _%x200289%_))) + _%x201421%_))) (declare (not safe)) - (##string->symbol __tmp201308))) - _%$e200286%_) + (##string->symbol __tmp202440))) + _%$e201418%_) '#f))) - (_%rt200294%_ - (let ((__tmp201309 + (_%rt201426%_ + (let ((__tmp202441 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) - (hash-get __tmp201309 _%ctx200198%_)))) + (hash-get __tmp202441 _%ctx201330%_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path200268%_)) + (gxc#verbose '"compile " _%path201400%_)) (gxc#with-output-to-scheme-file - _%path200268%_ + _%path201400%_ (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _%prelude200280%_)) - (if _%pkg200292%_ + (displayln '"prelude:" '" " _%prelude201412%_)) + (if _%pkg201424%_ (let () (declare (not safe)) - (displayln '"package:" '" " _%pkg200292%_)) + (displayln '"package:" '" " _%pkg201424%_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _%ns200282%_)) + (displayln '"namespace:" '" " _%ns201414%_)) (newline) - (pretty-print _%code200266%_) - (if _%rt200294%_ + (pretty-print _%code201398%_) + (if _%rt201426%_ (pretty-print (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%rt200294%_ '())) + (cons _%rt201426%_ '())) '())))) '#!void)))))) - (_%compile-phi200201%_ - (lambda (_%part200206%_) - (let* ((_%part200207200220%_ _%part200206%_) - (_%E200209200224%_ + (_%compile-phi201333%_ + (lambda (_%part201338%_) + (let* ((_%part201339201352%_ _%part201338%_) + (_%E201341201356%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%part200207200220%_ + _%part201339201352%_ '([phi-ctx phi n code]))) '#!void)) - (_%K200210200235%_ - (lambda (_%code200227%_ - _%n200228%_ - _%phi200229%_ - _%phi-ctx200230%_) - (let ((_%code200233%_ - (let ((__tmp201310 + (_%K201342201367%_ + (lambda (_%code201359%_ + _%n201360%_ + _%phi201361%_ + _%phi-ctx201362%_) + (let ((_%code201365%_ + (let ((__tmp202442 (lambda () (gxc#generate-runtime-phi - _%code200227%_)))) + _%code201359%_)))) (declare (not safe)) (__call-with-parameters - __tmp201310 + __tmp202442 gx#current-expander-context - _%phi-ctx200230%_ + _%phi-ctx201362%_ gx#current-expander-phi - _%phi200229%_)))) + _%phi201361%_)))) (gxc#compile-scm-file__% (gxc#compile-output-file - _%ctx200198%_ - _%n200228%_ + _%ctx201330%_ + _%n201360%_ '".scm") - _%code200233%_ + _%code201365%_ '#t))))) - (if (let () - (declare (not safe)) - (##pair? _%part200207200220%_)) - (let ((_%hd200211200238%_ + (if (pair? _%part201339201352%_) + (let ((_%hd201343201370%_ (let () (declare (not safe)) - (##car _%part200207200220%_))) - (_%tl200212200240%_ + (##car _%part201339201352%_))) + (_%tl201344201372%_ (let () (declare (not safe)) - (##cdr _%part200207200220%_)))) - (let ((_%phi-ctx200243%_ _%hd200211200238%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl200212200240%_)) - (let ((_%hd200213200245%_ + (##cdr _%part201339201352%_)))) + (let ((_%phi-ctx201375%_ _%hd201343201370%_)) + (if (pair? _%tl201344201372%_) + (let ((_%hd201345201377%_ (let () (declare (not safe)) - (##car _%tl200212200240%_))) - (_%tl200214200247%_ + (##car _%tl201344201372%_))) + (_%tl201346201379%_ (let () (declare (not safe)) - (##cdr _%tl200212200240%_)))) - (let ((_%phi200250%_ _%hd200213200245%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl200214200247%_)) - (let ((_%hd200215200252%_ + (##cdr _%tl201344201372%_)))) + (let ((_%phi201382%_ _%hd201345201377%_)) + (if (pair? _%tl201346201379%_) + (let ((_%hd201347201384%_ (let () (declare (not safe)) - (##car _%tl200214200247%_))) - (_%tl200216200254%_ + (##car _%tl201346201379%_))) + (_%tl201348201386%_ (let () (declare (not safe)) - (##cdr _%tl200214200247%_)))) - (let ((_%n200257%_ - _%hd200215200252%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl200216200254%_)) - (let ((_%hd200217200259%_ + (##cdr _%tl201346201379%_)))) + (let ((_%n201389%_ + _%hd201347201384%_)) + (if (pair? _%tl201348201386%_) + (let ((_%hd201349201391%_ (let () (declare (not safe)) - (##car _%tl200216200254%_))) - (_%tl200218200261%_ + (##car _%tl201348201386%_))) + (_%tl201350201393%_ (let () (declare (not safe)) - (##cdr _%tl200216200254%_)))) - (let ((_%code200264%_ - _%hd200217200259%_)) - (if (let () - (declare - (not safe)) - (##null? _%tl200218200261%_)) - (_%K200210200235%_ - _%code200264%_ - _%n200257%_ - _%phi200250%_ - _%phi-ctx200243%_) - (_%E200209200224%_)))) - (_%E200209200224%_)))) - (_%E200209200224%_)))) - (_%E200209200224%_)))) - (_%E200209200224%_)))))) - (let ((_g201311_ (gxc#generate-meta-code _%ctx200198%_))) + (##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%_))) (begin - (let ((_g201312_ + (let ((_g202444_ (let () (declare (not safe)) - (if (##values? _g201311_) - (##vector-length _g201311_) + (if (##values? _g202443_) + (##vector-length _g202443_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g201312_ 2))) - (error "Context expects 2 values" _g201312_))) - (let ((_%ssi-code200203%_ - (let () (declare (not safe)) (##vector-ref _g201311_ 0))) - (_%phi-code200204%_ - (let () (declare (not safe)) (##vector-ref _g201311_ 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)))) (begin - (_%compile-ssi200200%_ _%ssi-code200203%_) - (for-each _%compile-phi200201%_ _%phi-code200204%_)))))))) + (_%compile-ssi201332%_ _%ssi-code201335%_) + (for-each _%compile-phi201333%_ _%phi-code201336%_)))))))) (define gxc#compile-ssxi-code - (lambda (_%ctx200180%_) - (let* ((_%path200182%_ - (gxc#compile-output-file _%ctx200180%_ '#f '".ssxi.ss")) - (_%code200184%_ - (let ((__tmp201313 + (lambda (_%ctx201312%_) + (let* ((_%path201314%_ + (gxc#compile-output-file _%ctx201312%_ '#f '".ssxi.ss")) + (_%code201316%_ + (let ((__tmp202445 (##structure-ref - _%ctx200180%_ + _%ctx201312%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp201313))) - (_%idstr200186%_ + (gxc#apply-generate-ssxi __tmp202445))) + (_%idstr201318%_ (symbol->string (##structure-ref - _%ctx200180%_ + _%ctx201312%_ '1 gx#expander-context::t '#f))) - (_%pkg200194%_ - (let ((_%$e200188%_ + (_%pkg201326%_ + (let ((_%$e201320%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr200186%_ '#\/)))) - (if _%$e200188%_ - ((lambda (_%x200191%_) - (let ((__tmp201314 - (substring _%idstr200186%_ '0 _%x200191%_))) + (string-rindex__0 _%idstr201318%_ '#\/)))) + (if _%$e201320%_ + ((lambda (_%x201323%_) + (let ((__tmp202446 + (substring _%idstr201318%_ '0 _%x201323%_))) (declare (not safe)) - (##string->symbol __tmp201314))) - _%$e200188%_) + (##string->symbol __tmp202446))) + _%$e201320%_) '#f)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path200182%_)) + (gxc#verbose '"compile " _%path201314%_)) (gxc#with-output-to-scheme-file - _%path200182%_ + _%path201314%_ (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _%pkg200194%_ + (if _%pkg201326%_ (let () (declare (not safe)) - (displayln '"package: " _%pkg200194%_)) + (displayln '"package: " _%pkg201326%_)) '#!void) (newline) - (pretty-print _%code200184%_)))))) + (pretty-print _%code201316%_)))))) (define gxc#generate-meta-code - (lambda (_%ctx200173%_) - (let* ((_%state200175%_ - (let ((__obj201215 + (lambda (_%ctx201305%_) + (let* ((_%state201307%_ + (let ((__obj202347 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gxc#meta-state:::init! __obj201215 _%ctx200173%_)) - __obj201215)) - (_%ssi-code200177%_ - (let ((__tmp201315 + (gxc#meta-state:::init! __obj202347 _%ctx201305%_)) + __obj202347)) + (_%ssi-code201309%_ + (let ((__tmp202447 (##structure-ref - _%ctx200173%_ + _%ctx201305%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#apply-generate-meta__% '#f - _%state200175%_ - __tmp201315)))) - (values _%ssi-code200177%_ + _%state201307%_ + __tmp202447)))) + (values _%ssi-code201309%_ (let () (declare (not safe)) - (gxc#meta-state-end! _%state200175%_)))))) + (gxc#meta-state-end! _%state201307%_)))))) (define gxc#generate-runtime-phi - (lambda (_%stx200166%_) - (let ((_%lifts200168%_ (box '()))) - (let ((__tmp201318 + (lambda (_%stx201298%_) + (let ((_%lifts201300%_ (box '()))) + (let ((__tmp202450 (lambda () - (let ((_%code200171%_ + (let ((_%code201303%_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _%stx200166%_)))) - (if (null? (unbox _%lifts200168%_)) - _%code200171%_ + (gxc#apply-generate-runtime-phi _%stx201298%_)))) + (if (null? (unbox _%lifts201300%_)) + _%code201303%_ (cons 'begin - (let ((__tmp201320 (cons _%code200171%_ '())) - (__tmp201319 - (reverse (unbox _%lifts200168%_)))) + (let ((__tmp202452 (cons _%code201303%_ '())) + (__tmp202451 + (reverse (unbox _%lifts201300%_)))) (declare (not safe)) - (__foldr1 cons __tmp201320 __tmp201319))))))) - (__tmp201317 + (__foldr1 cons __tmp202452 __tmp202451))))))) + (__tmp202449 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp201316 + (__tmp202448 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp201318 + __tmp202450 gxc#current-compile-lift - _%lifts200168%_ + _%lifts201300%_ gxc#current-compile-marks - __tmp201317 + __tmp202449 gxc#current-compile-identifiers - __tmp201316))))) + __tmp202448))))) (define gxc#lift-nested-modules - (lambda (_%ctx200162%_) - (let ((_%modules200164%_ (box '()))) - (let ((__tmp201321 - (##structure-ref _%ctx200162%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx201294%_) + (let ((_%modules201296%_ (box '()))) + (let ((__tmp202453 + (##structure-ref _%ctx201294%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules__% '#f _%modules200164%_ __tmp201321)) - (reverse (unbox _%modules200164%_))))) + (gxc#apply-lift-modules__% '#f _%modules201296%_ __tmp202453)) + (reverse (unbox _%modules201296%_))))) (define gxc#compile-scm-file__% - (lambda (_%path200142%_ _%code200143%_ _%phi?200144%_) - (let () (declare (not safe)) (gxc#verbose '"compile " _%path200142%_)) + (lambda (_%path201274%_ _%code201275%_ _%phi?201276%_) + (let () (declare (not safe)) (gxc#verbose '"compile " _%path201274%_)) (gxc#with-output-to-scheme-file - _%path200142%_ + _%path201274%_ (lambda () (pretty-print (cons 'declare (cons (cons 'block '()) (cons (cons 'standard-bindings '()) (cons (cons 'extended-bindings '()) - (let ((__tmp201322 - (if _%phi?200144%_ + (let ((__tmp202454 + (if _%phi?201276%_ '((inlining-limit 200)) '()))) (declare (not safe)) - (__foldr1 cons '() __tmp201322))))))) - (pretty-print _%code200143%_))) + (__foldr1 cons '() __tmp202454))))))) + (pretty-print _%code201275%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it200148%_ + (let ((_%compile-it201280%_ (lambda () - (gxc#gsc-compile-file _%path200142%_ _%phi?200144%_)))) + (gxc#gsc-compile-file _%path201274%_ _%phi?201276%_)))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) - (let ((__tmp201323 - (cons 'compile-file (cons _%path200142%_ '())))) + (let ((__tmp202455 + (cons 'compile-file (cons _%path201274%_ '())))) (declare (not safe)) - (gxc#add-compile-job!__% _%compile-it200148%_ __tmp201323)) - (_%compile-it200148%_))) + (gxc#add-compile-job!__% _%compile-it201280%_ __tmp202455)) + (_%compile-it201280%_))) '#!void))) (define gxc#compile-scm-file__0 - (lambda (_%path200153%_ _%code200154%_) - (let ((_%phi?200156%_ '#f)) + (lambda (_%path201285%_ _%code201286%_) + (let ((_%phi?201288%_ '#f)) (gxc#compile-scm-file__% - _%path200153%_ - _%code200154%_ - _%phi?200156%_)))) + _%path201285%_ + _%code201286%_ + _%phi?201288%_)))) (define gxc#compile-scm-file - (lambda _g201325_ - (let ((_g201324_ (let () (declare (not safe)) (##length _g201325_)))) - (cond ((let () (declare (not safe)) (##fx= _g201324_ 2)) - (apply gxc#compile-scm-file__0 _g201325_)) - ((let () (declare (not safe)) (##fx= _g201324_ 3)) - (apply gxc#compile-scm-file__% _g201325_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g201325_)))))) + _g202457_)))))) (define gxc#gsc-link-options__% - (lambda (_%phi?200043%_) - (let _%lp200045%_ ((_%rest200047%_ + (lambda (_%phi?201175%_) + (let _%lp201177%_ ((_%rest201179%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts200048%_ '())) - (let* ((_%rest200049200069%_ _%rest200047%_) - (_%else200053200077%_ + (_%opts201180%_ '())) + (let* ((_%rest201181201201%_ _%rest201179%_) + (_%else201185201209%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-debug-source" - (cons '"-track-scheme" (reverse _%opts200048%_))) - (reverse _%opts200048%_))))) - (let ((_%K200063200120%_ - (lambda (_%rest200118%_) - (_%lp200045%_ _%rest200118%_ _%opts200048%_))) - (_%K200058200102%_ - (lambda (_%rest200100%_) - (_%lp200045%_ _%rest200100%_ _%opts200048%_))) - (_%K200055200084%_ - (lambda (_%rest200081%_ _%opt200082%_) - (_%lp200045%_ - _%rest200081%_ - (cons _%opt200082%_ _%opts200048%_))))) - (if (let () (declare (not safe)) (##pair? _%rest200049200069%_)) - (let ((_%tl200065200125%_ + (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%_ (let () (declare (not safe)) - (##cdr _%rest200049200069%_))) - (_%hd200064200123%_ + (##cdr _%rest201181201201%_))) + (_%hd201196201255%_ (let () (declare (not safe)) - (##car _%rest200049200069%_)))) - (if (equal? _%hd200064200123%_ '"-cc-options") - (if (let () - (declare (not safe)) - (##pair? _%tl200065200125%_)) - (let* ((_%tl200067200128%_ + (##car _%rest201181201201%_)))) + (if (equal? _%hd201196201255%_ '"-cc-options") + (if (pair? _%tl201197201257%_) + (let* ((_%tl201199201260%_ (let () (declare (not safe)) - (##cdr _%tl200065200125%_))) - (_%rest200131%_ _%tl200067200128%_)) - (_%K200063200120%_ _%rest200131%_)) - (let ((_%opt200092%_ _%hd200064200123%_) - (_%rest200094%_ _%tl200065200125%_)) - (_%K200055200084%_ - _%rest200094%_ - _%opt200092%_))) - (if (equal? _%hd200064200123%_ '"-ld-options") - (if (let () - (declare (not safe)) - (##pair? _%tl200065200125%_)) - (let* ((_%tl200062200110%_ + (##cdr _%tl201197201257%_))) + (_%rest201263%_ _%tl201199201260%_)) + (_%K201195201252%_ _%rest201263%_)) + (let ((_%opt201224%_ _%hd201196201255%_) + (_%rest201226%_ _%tl201197201257%_)) + (_%K201187201216%_ + _%rest201226%_ + _%opt201224%_))) + (if (equal? _%hd201196201255%_ '"-ld-options") + (if (pair? _%tl201197201257%_) + (let* ((_%tl201194201242%_ (let () (declare (not safe)) - (##cdr _%tl200065200125%_))) - (_%rest200113%_ _%tl200062200110%_)) - (_%K200058200102%_ _%rest200113%_)) - (let ((_%opt200092%_ _%hd200064200123%_) - (_%rest200094%_ _%tl200065200125%_)) - (_%K200055200084%_ - _%rest200094%_ - _%opt200092%_))) - (let ((_%opt200092%_ _%hd200064200123%_) - (_%rest200094%_ _%tl200065200125%_)) - (_%K200055200084%_ - _%rest200094%_ - _%opt200092%_))))) - (_%else200053200077%_))))))) + (##cdr _%tl201197201257%_))) + (_%rest201245%_ _%tl201194201242%_)) + (_%K201190201234%_ _%rest201245%_)) + (let ((_%opt201224%_ _%hd201196201255%_) + (_%rest201226%_ _%tl201197201257%_)) + (_%K201187201216%_ + _%rest201226%_ + _%opt201224%_))) + (let ((_%opt201224%_ _%hd201196201255%_) + (_%rest201226%_ _%tl201197201257%_)) + (_%K201187201216%_ + _%rest201226%_ + _%opt201224%_))))) + (_%else201185201209%_))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_%phi?200137%_ '#f)) (gxc#gsc-link-options__% _%phi?200137%_)))) + (let ((_%phi?201269%_ '#f)) (gxc#gsc-link-options__% _%phi?201269%_)))) (define gxc#gsc-link-options - (lambda _g201327_ - (let ((_g201326_ (let () (declare (not safe)) (##length _g201327_)))) - (cond ((let () (declare (not safe)) (##fx= _g201326_ 0)) - (apply gxc#gsc-link-options__0 _g201327_)) - ((let () (declare (not safe)) (##fx= _g201326_ 1)) - (apply gxc#gsc-link-options__% _g201327_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g201327_)))))) + _g202459_)))))) (define gxc#gsc-cc-options__%__% - (lambda (_%@@keywords199892%_ _%static?199888199893%_ _%phi?199895%_) - (let ((_%static?199897%_ - (if (eq? _%static?199888199893%_ absent-value) + (lambda (_%@@keywords201024%_ _%static?201020201025%_ _%phi?201027%_) + (let ((_%static?201029%_ + (if (eq? _%static?201020201025%_ absent-value) '#f - _%static?199888199893%_))) - (if _%phi?199895%_ + _%static?201020201025%_))) + (if _%phi?201027%_ (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" (cons '"-g" '())) '()) - (let _%lp199899%_ ((_%rest199901%_ + (let _%lp201031%_ ((_%rest201033%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts199902%_ '())) - (let* ((_%rest199903199929%_ _%rest199901%_) - (_%else199908199937%_ + (_%opts201034%_ '())) + (let* ((_%rest201035201061%_ _%rest201033%_) + (_%else201040201069%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" - (cons '"-g" (reverse! _%opts199902%_))) - (reverse! _%opts199902%_))))) - (let ((_%K199923200000%_ - (lambda (_%rest199997%_ _%opt199998%_) - (if _%static?199897%_ - (_%lp199899%_ - _%rest199997%_ - (cons _%opt199998%_ - (cons '"-cc-options" _%opts199902%_))) - (_%lp199899%_ _%rest199997%_ _%opts199902%_)))) - (_%K199918199977%_ - (lambda (_%rest199974%_ _%opt199975%_) - (_%lp199899%_ - _%rest199974%_ - (cons _%opt199975%_ - (cons '"-cc-options" _%opts199902%_))))) - (_%K199913199957%_ - (lambda (_%rest199955%_) - (_%lp199899%_ _%rest199955%_ _%opts199902%_))) - (_%K199910199943%_ - (lambda (_%rest199941%_) - (_%lp199899%_ _%rest199941%_ _%opts199902%_)))) - (if (let () - (declare (not safe)) - (##pair? _%rest199903199929%_)) - (let ((_%tl199925200005%_ + (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%_ (let () (declare (not safe)) - (##cdr _%rest199903199929%_))) - (_%hd199924200003%_ + (##cdr _%rest201035201061%_))) + (_%hd201056201135%_ (let () (declare (not safe)) - (##car _%rest199903199929%_)))) - (if (equal? _%hd199924200003%_ '"-cc-options") - (if (let () - (declare (not safe)) - (##pair? _%tl199925200005%_)) - (let ((_%tl199927200010%_ + (##car _%rest201035201061%_)))) + (if (equal? _%hd201056201135%_ '"-cc-options") + (if (pair? _%tl201057201137%_) + (let ((_%tl201059201142%_ (let () (declare (not safe)) - (##cdr _%tl199925200005%_))) - (_%hd199926200008%_ + (##cdr _%tl201057201137%_))) + (_%hd201058201140%_ (let () (declare (not safe)) - (##car _%tl199925200005%_)))) - (if (equal? _%hd199926200008%_ '"-Bstatic") - (let ((_%opt200013%_ - _%hd199926200008%_) - (_%rest200015%_ - _%tl199927200010%_)) - (_%K199923200000%_ - _%rest200015%_ - _%opt200013%_)) - (let ((_%opt199990%_ - _%hd199926200008%_) - (_%rest199992%_ - _%tl199927200010%_)) - (_%K199918199977%_ - _%rest199992%_ - _%opt199990%_)))) - (let ((_%rest199949%_ _%tl199925200005%_)) - (_%K199910199943%_ _%rest199949%_))) - (if (equal? _%hd199924200003%_ '"-ld-options") - (if (let () - (declare (not safe)) - (##pair? _%tl199925200005%_)) - (let* ((_%tl199917199965%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%tl199925200005%_))) - (_%rest199968%_ - _%tl199917199965%_)) - (_%K199913199957%_ _%rest199968%_)) - (let ((_%rest199949%_ - _%tl199925200005%_)) - (_%K199910199943%_ _%rest199949%_))) - (let ((_%rest199949%_ _%tl199925200005%_)) - (_%K199910199943%_ _%rest199949%_))))) - (_%else199908199937%_))))))))) + (##cdr _%tl201057201137%_))) + (_%rest201100%_ + _%tl201049201097%_)) + (_%K201045201089%_ _%rest201100%_)) + (let ((_%rest201081%_ + _%tl201057201137%_)) + (_%K201042201075%_ _%rest201081%_))) + (let ((_%rest201081%_ _%tl201057201137%_)) + (_%K201042201075%_ _%rest201081%_))))) + (_%else201040201069%_))))))))) (define gxc#gsc-cc-options__%__0 - (lambda (_%@@keywords200020%_ _%static?199888200021%_) - (let ((_%phi?200023%_ '#f)) + (lambda (_%@@keywords201152%_ _%static?201020201153%_) + (let ((_%phi?201155%_ '#f)) (gxc#gsc-cc-options__%__% - _%@@keywords200020%_ - _%static?199888200021%_ - _%phi?200023%_)))) + _%@@keywords201152%_ + _%static?201020201153%_ + _%phi?201155%_)))) (define gxc#gsc-cc-options__% - (lambda _g201329_ - (let ((_g201328_ (let () (declare (not safe)) (##length _g201329_)))) - (cond ((let () (declare (not safe)) (##fx= _g201328_ 2)) - (apply gxc#gsc-cc-options__%__0 _g201329_)) - ((let () (declare (not safe)) (##fx= _g201328_ 3)) - (apply gxc#gsc-cc-options__%__% _g201329_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options__% - _g201329_)))))) + _g202461_)))))) (define gxc#gsc-cc-options__@ - (lambda (_%@@keywords200032%_ . _%args200033%_) + (lambda (_%@@keywords201164%_ . _%args201165%_) (apply gxc#gsc-cc-options__% - _%@@keywords200032%_ + _%@@keywords201164%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords200032%_ + _%@@keywords201164%_ 'static: absent-value)) - _%args200033%_))) + _%args201165%_))) (define gxc#gsc-cc-options - (lambda _%args199889200039%_ + (lambda _%args201021201171%_ (apply keyword-dispatch '#(static:) gxc#gsc-cc-options__@ - _%args199889200039%_))) + _%args201021201171%_))) (define gxc#gsc-ld-options__%__% - (lambda (_%@@keywords199737%_ _%static?199733199738%_ _%phi?199740%_) - (let ((_%static?199742%_ - (if (eq? _%static?199733199738%_ absent-value) + (lambda (_%@@keywords200869%_ _%static?200865200870%_ _%phi?200872%_) + (let ((_%static?200874%_ + (if (eq? _%static?200865200870%_ absent-value) '#f - _%static?199733199738%_))) - (if _%phi?199740%_ + _%static?200865200870%_))) + (if _%phi?200872%_ '() - (let _%lp199744%_ ((_%rest199746%_ + (let _%lp200876%_ ((_%rest200878%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts199747%_ '())) - (let* ((_%rest199748199774%_ _%rest199746%_) - (_%else199753199782%_ - (lambda () (reverse! _%opts199747%_)))) - (let ((_%K199768199845%_ - (lambda (_%rest199842%_ _%opt199843%_) - (if _%static?199742%_ - (_%lp199744%_ - _%rest199842%_ - (cons _%opt199843%_ - (cons '"-ld-options" _%opts199747%_))) - (_%lp199744%_ _%rest199842%_ _%opts199747%_)))) - (_%K199763199822%_ - (lambda (_%rest199819%_ _%opt199820%_) - (_%lp199744%_ - _%rest199819%_ - (cons _%opt199820%_ - (cons '"-ld-options" _%opts199747%_))))) - (_%K199758199802%_ - (lambda (_%rest199800%_) - (_%lp199744%_ _%rest199800%_ _%opts199747%_))) - (_%K199755199788%_ - (lambda (_%rest199786%_) - (_%lp199744%_ _%rest199786%_ _%opts199747%_)))) - (if (let () - (declare (not safe)) - (##pair? _%rest199748199774%_)) - (let ((_%tl199770199850%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%rest199748199774%_))) - (_%hd199769199848%_ + (##cdr _%rest200880200906%_))) + (_%hd200901200980%_ (let () (declare (not safe)) - (##car _%rest199748199774%_)))) - (if (equal? _%hd199769199848%_ '"-ld-options") - (if (let () - (declare (not safe)) - (##pair? _%tl199770199850%_)) - (let ((_%tl199772199855%_ + (##car _%rest200880200906%_)))) + (if (equal? _%hd200901200980%_ '"-ld-options") + (if (pair? _%tl200902200982%_) + (let ((_%tl200904200987%_ (let () (declare (not safe)) - (##cdr _%tl199770199850%_))) - (_%hd199771199853%_ + (##cdr _%tl200902200982%_))) + (_%hd200903200985%_ (let () (declare (not safe)) - (##car _%tl199770199850%_)))) - (if (equal? _%hd199771199853%_ '"-static") - (let ((_%opt199858%_ - _%hd199771199853%_) - (_%rest199860%_ - _%tl199772199855%_)) - (_%K199768199845%_ - _%rest199860%_ - _%opt199858%_)) - (let ((_%opt199835%_ - _%hd199771199853%_) - (_%rest199837%_ - _%tl199772199855%_)) - (_%K199763199822%_ - _%rest199837%_ - _%opt199835%_)))) - (let ((_%rest199794%_ _%tl199770199850%_)) - (_%K199755199788%_ _%rest199794%_))) - (if (equal? _%hd199769199848%_ '"-cc-options") - (if (let () - (declare (not safe)) - (##pair? _%tl199770199850%_)) - (let* ((_%tl199762199810%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%tl199770199850%_))) - (_%rest199813%_ - _%tl199762199810%_)) - (_%K199758199802%_ _%rest199813%_)) - (let ((_%rest199794%_ - _%tl199770199850%_)) - (_%K199755199788%_ _%rest199794%_))) - (let ((_%rest199794%_ _%tl199770199850%_)) - (_%K199755199788%_ _%rest199794%_))))) - (_%else199753199782%_))))))))) + (##cdr _%tl200902200982%_))) + (_%rest200945%_ + _%tl200894200942%_)) + (_%K200890200934%_ _%rest200945%_)) + (let ((_%rest200926%_ + _%tl200902200982%_)) + (_%K200887200920%_ _%rest200926%_))) + (let ((_%rest200926%_ _%tl200902200982%_)) + (_%K200887200920%_ _%rest200926%_))))) + (_%else200885200914%_))))))))) (define gxc#gsc-ld-options__%__0 - (lambda (_%@@keywords199865%_ _%static?199733199866%_) - (let ((_%phi?199868%_ '#f)) + (lambda (_%@@keywords200997%_ _%static?200865200998%_) + (let ((_%phi?201000%_ '#f)) (gxc#gsc-ld-options__%__% - _%@@keywords199865%_ - _%static?199733199866%_ - _%phi?199868%_)))) + _%@@keywords200997%_ + _%static?200865200998%_ + _%phi?201000%_)))) (define gxc#gsc-ld-options__% - (lambda _g201331_ - (let ((_g201330_ (let () (declare (not safe)) (##length _g201331_)))) - (cond ((let () (declare (not safe)) (##fx= _g201330_ 2)) - (apply gxc#gsc-ld-options__%__0 _g201331_)) - ((let () (declare (not safe)) (##fx= _g201330_ 3)) - (apply gxc#gsc-ld-options__%__% _g201331_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-ld-options__% - _g201331_)))))) + _g202463_)))))) (define gxc#gsc-ld-options__@ - (lambda (_%@@keywords199877%_ . _%args199878%_) + (lambda (_%@@keywords201009%_ . _%args201010%_) (apply gxc#gsc-ld-options__% - _%@@keywords199877%_ + _%@@keywords201009%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords199877%_ + _%@@keywords201009%_ 'static: absent-value)) - _%args199878%_))) + _%args201010%_))) (define gxc#gsc-ld-options - (lambda _%args199734199884%_ + (lambda _%args200866201016%_ (apply keyword-dispatch '#(static:) gxc#gsc-ld-options__@ - _%args199734199884%_))) + _%args200866201016%_))) (define gxc#gsc-static-include-options - (lambda (_%staticdir199728%_) - (let ((_%user-staticdir199730%_ + (lambda (_%staticdir200860%_) + (let ((_%user-staticdir200862%_ (path-expand (path-expand '"lib/static" @@ -2805,341 +2768,337 @@ (cons '"-cc-options" (cons (string-append '"-I " - _%staticdir199728%_ + _%staticdir200860%_ '" -I " - _%user-staticdir199730%_) + _%user-staticdir200862%_) '()))))) (define gxc#gcc-ld-options (lambda () - (let _%lp199640%_ ((_%rest199642%_ + (let _%lp200772%_ ((_%rest200774%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts199643%_ '())) - (let* ((_%rest199644199664%_ _%rest199642%_) - (_%else199648199672%_ (lambda () _%opts199643%_))) - (let ((_%K199658199715%_ - (lambda (_%rest199713%_) - (_%lp199640%_ _%rest199713%_ _%opts199643%_))) - (_%K199653199693%_ - (lambda (_%rest199690%_ _%opt199691%_) - (_%lp199640%_ - _%rest199690%_ - (let ((__tmp201332 - (let ((__tmp201333 + (_%opts200775%_ '())) + (let* ((_%rest200776200796%_ _%rest200774%_) + (_%else200780200804%_ (lambda () _%opts200775%_))) + (let ((_%K200790200847%_ + (lambda (_%rest200845%_) + (_%lp200772%_ _%rest200845%_ _%opts200775%_))) + (_%K200785200825%_ + (lambda (_%rest200822%_ _%opt200823%_) + (_%lp200772%_ + _%rest200822%_ + (let ((__tmp202464 + (let ((__tmp202465 (let () (declare (not safe)) - (string-split _%opt199691%_ '#\space)))) + (string-split _%opt200823%_ '#\space)))) (declare (not safe)) - (##filter gxc#not-string-empty? __tmp201333)))) + (##filter gxc#not-string-empty? __tmp202465)))) (declare (not safe)) - (##append _%opts199643%_ __tmp201332))))) - (_%K199650199678%_ - (lambda (_%rest199676%_) - (_%lp199640%_ _%rest199676%_ _%opts199643%_)))) - (if (let () (declare (not safe)) (##pair? _%rest199644199664%_)) - (let ((_%tl199660199720%_ + (##append _%opts200775%_ __tmp202464))))) + (_%K200782200810%_ + (lambda (_%rest200808%_) + (_%lp200772%_ _%rest200808%_ _%opts200775%_)))) + (if (pair? _%rest200776200796%_) + (let ((_%tl200792200852%_ (let () (declare (not safe)) - (##cdr _%rest199644199664%_))) - (_%hd199659199718%_ + (##cdr _%rest200776200796%_))) + (_%hd200791200850%_ (let () (declare (not safe)) - (##car _%rest199644199664%_)))) - (if (equal? _%hd199659199718%_ '"-cc-options") - (if (let () - (declare (not safe)) - (##pair? _%tl199660199720%_)) - (let* ((_%tl199662199723%_ + (##car _%rest200776200796%_)))) + (if (equal? _%hd200791200850%_ '"-cc-options") + (if (pair? _%tl200792200852%_) + (let* ((_%tl200794200855%_ (let () (declare (not safe)) - (##cdr _%tl199660199720%_))) - (_%rest199726%_ _%tl199662199723%_)) - (_%K199658199715%_ _%rest199726%_)) - (let ((_%rest199684%_ _%tl199660199720%_)) - (_%K199650199678%_ _%rest199684%_))) - (if (equal? _%hd199659199718%_ '"-ld-options") - (if (let () - (declare (not safe)) - (##pair? _%tl199660199720%_)) - (let ((_%tl199657199703%_ + (##cdr _%tl200792200852%_))) + (_%rest200858%_ _%tl200794200855%_)) + (_%K200790200847%_ _%rest200858%_)) + (let ((_%rest200816%_ _%tl200792200852%_)) + (_%K200782200810%_ _%rest200816%_))) + (if (equal? _%hd200791200850%_ '"-ld-options") + (if (pair? _%tl200792200852%_) + (let ((_%tl200789200835%_ (let () (declare (not safe)) - (##cdr _%tl199660199720%_))) - (_%hd199656199701%_ + (##cdr _%tl200792200852%_))) + (_%hd200788200833%_ (let () (declare (not safe)) - (##car _%tl199660199720%_)))) - (let ((_%opt199706%_ _%hd199656199701%_) - (_%rest199708%_ _%tl199657199703%_)) - (_%K199653199693%_ - _%rest199708%_ - _%opt199706%_))) - (let ((_%rest199684%_ _%tl199660199720%_)) - (_%K199650199678%_ _%rest199684%_))) - (let ((_%rest199684%_ _%tl199660199720%_)) - (_%K199650199678%_ _%rest199684%_))))) - (_%else199648199672%_))))))) + (##car _%tl200792200852%_)))) + (let ((_%opt200838%_ _%hd200788200833%_) + (_%rest200840%_ _%tl200789200835%_)) + (_%K200785200825%_ + _%rest200840%_ + _%opt200838%_))) + (let ((_%rest200816%_ _%tl200792200852%_)) + (_%K200782200810%_ _%rest200816%_))) + (let ((_%rest200816%_ _%tl200792200852%_)) + (_%K200782200810%_ _%rest200816%_))))) + (_%else200780200804%_))))))) (define gxc#not-string-empty? - (lambda (_%str199637%_) - (not (let () (declare (not safe)) (string-empty? _%str199637%_))))) + (lambda (_%str200769%_) + (not (let () (declare (not safe)) (string-empty? _%str200769%_))))) (define gxc#gsc-compile-file - (lambda (_%path199630%_ _%phi?199631%_) - (let ((_%gsc-link-opts199633%_ - (gxc#gsc-link-options__% _%phi?199631%_)) - (_%gsc-cc-opts199634%_ - (gxc#gsc-cc-options__%__% '#f absent-value _%phi?199631%_)) - (_%gsc-ld-opts199635%_ - (gxc#gsc-ld-options__%__% '#f absent-value _%phi?199631%_))) + (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%_))) (gxc#invoke__% '#f absent-value absent-value (gxc#gerbil-gsc) - (let ((__tmp201334 - (let ((__tmp201335 - (let ((__tmp201336 (cons _%path199630%_ '()))) + (let ((__tmp202466 + (let ((__tmp202467 + (let ((__tmp202468 (cons _%path200762%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp201336 - _%gsc-link-opts199633%_)))) + __tmp202468 + _%gsc-link-opts200765%_)))) (declare (not safe)) - (__foldr1 cons __tmp201335 _%gsc-ld-opts199635%_)))) + (__foldr1 cons __tmp202467 _%gsc-ld-opts200767%_)))) (declare (not safe)) - (__foldr1 cons __tmp201334 _%gsc-cc-opts199634%_)))))) + (__foldr1 cons __tmp202466 _%gsc-cc-opts200766%_)))))) (define gxc#compile-output-file - (lambda (_%ctx199596%_ _%n199597%_ _%ext199598%_) - (letrec ((_%module-relative-path199600%_ - (lambda (_%ctx199628%_) + (lambda (_%ctx200728%_ _%n200729%_ _%ext200730%_) + (letrec ((_%module-relative-path200732%_ + (lambda (_%ctx200760%_) (path-strip-directory - (let ((__tmp201337 + (let ((__tmp202469 (##structure-ref - _%ctx199628%_ + _%ctx200760%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp201337))))) - (_%module-source-directory199601%_ - (lambda (_%ctx199624%_) + (gxc#module-id->path-string __tmp202469))))) + (_%module-source-directory200733%_ + (lambda (_%ctx200756%_) (path-directory - (let ((_%mpath199626%_ + (let ((_%mpath200758%_ (##structure-ref - _%ctx199624%_ + _%ctx200756%_ '7 gx#module-context::t '#f))) - (if (string? _%mpath199626%_) - _%mpath199626%_ - (last _%mpath199626%_)))))) - (_%section-string199602%_ - (lambda (_%n199618%_) - (if (number? _%n199618%_) + (if (string? _%mpath200758%_) + _%mpath200758%_ + (last _%mpath200758%_)))))) + (_%section-string200734%_ + (lambda (_%n200750%_) + (if (number? _%n200750%_) (let () (declare (not safe)) - (##number->string _%n199618%_)) - (if (symbol? _%n199618%_) + (##number->string _%n200750%_)) + (if (symbol? _%n200750%_) (let () (declare (not safe)) - (##symbol->string _%n199618%_)) - (if (string? _%n199618%_) - _%n199618%_ + (##symbol->string _%n200750%_)) + (if (string? _%n200750%_) + _%n200750%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _%n199618%_))))))) - (_%file-name199603%_ - (lambda (_%path199616%_) - (if _%n199597%_ + _%n200750%_))))))) + (_%file-name200735%_ + (lambda (_%path200748%_) + (if _%n200729%_ (string-append - _%path199616%_ + _%path200748%_ '"~" - (_%section-string199602%_ _%n199597%_) - _%ext199598%_) - (string-append _%path199616%_ _%ext199598%_)))) - (_%file-path199604%_ + (_%section-string200734%_ _%n200729%_) + _%ext200730%_) + (string-append _%path200748%_ _%ext200730%_)))) + (_%file-path200736%_ (lambda () - (let ((_%$e199610%_ + (let ((_%$e200742%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e199610%_ - ((lambda (_%outdir199613%_) + (if _%$e200742%_ + ((lambda (_%outdir200745%_) (path-expand - (_%file-name199603%_ - (let ((__tmp201338 + (_%file-name200735%_ + (let ((__tmp202470 (##structure-ref - _%ctx199596%_ + _%ctx200728%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp201338))) - _%outdir199613%_)) - _%$e199610%_) + (gxc#module-id->path-string __tmp202470))) + _%outdir200745%_)) + _%$e200742%_) (path-expand - (_%file-name199603%_ - (_%module-relative-path199600%_ _%ctx199596%_)) - (_%module-source-directory199601%_ - _%ctx199596%_))))))) - (let ((_%path199606%_ (_%file-path199604%_))) - (let ((__tmp201339 + (_%file-name200735%_ + (_%module-relative-path200732%_ _%ctx200728%_)) + (_%module-source-directory200733%_ + _%ctx200728%_))))))) + (let ((_%path200738%_ (_%file-path200736%_))) + (let ((__tmp202471 (lambda () - (let ((__tmp201340 (path-directory _%path199606%_))) + (let ((__tmp202472 (path-directory _%path200738%_))) (declare (not safe)) - (create-directory*__0 __tmp201340))))) + (create-directory*__0 __tmp202472))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp201339)) - _%path199606%_)))) + (__with-lock gxc#+driver-mutex+ __tmp202471)) + _%path200738%_)))) (define gxc#compile-static-output-file - (lambda (_%ctx199577%_) - (letrec ((_%file-name199579%_ - (lambda (_%id199594%_) - (let ((__tmp201341 (gxc#static-module-name _%id199594%_))) + (lambda (_%ctx200709%_) + (letrec ((_%file-name200711%_ + (lambda (_%id200726%_) + (let ((__tmp202473 (gxc#static-module-name _%id200726%_))) (declare (not safe)) - (##string-append __tmp201341 '".scm")))) - (_%file-path199580%_ + (##string-append __tmp202473 '".scm")))) + (_%file-path200712%_ (lambda () - (let* ((_%file199586%_ - (_%file-name199579%_ + (let* ((_%file200718%_ + (_%file-name200711%_ (##structure-ref - _%ctx199577%_ + _%ctx200709%_ '1 gx#expander-context::t '#f))) - (_%$e199588%_ + (_%$e200720%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e199588%_ - ((lambda (_%outdir199591%_) + (if _%$e200720%_ + ((lambda (_%outdir200723%_) (path-expand - _%file199586%_ - (path-expand '"static" _%outdir199591%_))) - _%$e199588%_) - (path-expand _%file199586%_ '"static")))))) - (let ((_%path199582%_ (_%file-path199580%_))) - (let ((__tmp201342 + _%file200718%_ + (path-expand '"static" _%outdir200723%_))) + _%$e200720%_) + (path-expand _%file200718%_ '"static")))))) + (let ((_%path200714%_ (_%file-path200712%_))) + (let ((__tmp202474 (lambda () - (let ((__tmp201343 (path-directory _%path199582%_))) + (let ((__tmp202475 (path-directory _%path200714%_))) (declare (not safe)) - (create-directory*__0 __tmp201343))))) + (create-directory*__0 __tmp202475))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp201342)) - _%path199582%_)))) + (__with-lock gxc#+driver-mutex+ __tmp202474)) + _%path200714%_)))) (define gxc#compile-exe-output-file - (lambda (_%ctx199570%_ _%opts199571%_) - (let ((_%$e199573%_ + (lambda (_%ctx200702%_ _%opts200703%_) + (let ((_%$e200705%_ (let () (declare (not safe)) - (pgetq__0 'output-file: _%opts199571%_)))) - (if _%$e199573%_ - _%$e199573%_ + (pgetq__0 'output-file: _%opts200703%_)))) + (if _%$e200705%_ + _%$e200705%_ (path-strip-directory (symbol->string (##structure-ref - _%ctx199570%_ + _%ctx200702%_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_%idstr199560%_) - (if (string? _%idstr199560%_) - (let* ((_%str199563%_ + (lambda (_%idstr200692%_) + (if (string? _%idstr200692%_) + (let* ((_%str200695%_ (let () (declare (not safe)) - (gxc#module-id->path-string _%idstr199560%_))) - (_%strs199565%_ + (gxc#module-id->path-string _%idstr200692%_))) + (_%strs200697%_ (let () (declare (not safe)) - (string-split _%str199563%_ '#\/)))) + (string-split _%str200695%_ '#\/)))) (declare (not safe)) - (string-join _%strs199565%_ '"__")) - (if (symbol? _%idstr199560%_) + (string-join _%strs200697%_ '"__")) + (if (symbol? _%idstr200692%_) (gxc#static-module-name (let () (declare (not safe)) - (##symbol->string _%idstr199560%_))) + (##symbol->string _%idstr200692%_))) (let () (declare (not safe)) - (error '"Bad module id" _%idstr199560%_)))))) + (error '"Bad module id" _%idstr200692%_)))))) (define gxc#gerbil-enable-shared? (lambda () - (let ((__tmp201344 - (let ((__tmp201345 (configure-command-string))) + (let ((__tmp202476 + (let ((__tmp202477 (configure-command-string))) (declare (not safe)) - (__string-split __tmp201345 '#\')))) + (__string-split __tmp202477 '#\')))) (declare (not safe)) - (##member '"--enable-shared" __tmp201344)))) + (##member '"--enable-shared" __tmp202476)))) (define gxc#invoke__% - (lambda (_%@@keywords199524%_ - _%stdout-redirection199520199525%_ - _%stderr-redirection199521199527%_ - _%program199529%_ - _%args199530%_) - (let* ((_%stdout-redirection199532%_ - (if (eq? _%stdout-redirection199520199525%_ absent-value) + (lambda (_%@@keywords200656%_ + _%stdout-redirection200652200657%_ + _%stderr-redirection200653200659%_ + _%program200661%_ + _%args200662%_) + (let* ((_%stdout-redirection200664%_ + (if (eq? _%stdout-redirection200652200657%_ absent-value) '#f - _%stdout-redirection199520199525%_)) - (_%stderr-redirection199534%_ - (if (eq? _%stderr-redirection199521199527%_ absent-value) + _%stdout-redirection200652200657%_)) + (_%stderr-redirection200666%_ + (if (eq? _%stderr-redirection200653200659%_ absent-value) '#f - _%stderr-redirection199521199527%_))) - (let ((__tmp201346 (cons _%program199529%_ _%args199530%_))) + _%stderr-redirection200653200659%_))) + (let ((__tmp202478 (cons _%program200661%_ _%args200662%_))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp201346)) - (let* ((_%proc199536%_ + (gxc#verbose '"invoke " __tmp202478)) + (let* ((_%proc200668%_ (open-process (cons 'path: - (cons _%program199529%_ + (cons _%program200661%_ (cons 'arguments: - (cons _%args199530%_ + (cons _%args200662%_ (cons 'stdout-redirection: - (cons _%stdout-redirection199532%_ + (cons _%stdout-redirection200664%_ (cons 'stderr-redirection: - (cons _%stderr-redirection199534%_ + (cons _%stderr-redirection200666%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%output199541%_ - (if (or _%stdout-redirection199532%_ - _%stderr-redirection199534%_) - (read-line _%proc199536%_ '#f) + (_%output200673%_ + (if (or _%stdout-redirection200664%_ + _%stderr-redirection200666%_) + (read-line _%proc200668%_ '#f) '#f)) - (_%status199544%_ (process-status _%proc199536%_))) - (let () (declare (not safe)) (##close-port _%proc199536%_)) - (if (zero? _%status199544%_) + (_%status200676%_ (process-status _%proc200668%_))) + (let () (declare (not safe)) (##close-port _%proc200668%_)) + (if (zero? _%status200676%_) '#!void (begin - (display _%output199541%_) - (let ((__tmp201347 (cons _%program199529%_ _%args199530%_))) + (display _%output200673%_) + (let ((__tmp202479 (cons _%program200661%_ _%args200662%_))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp201347 - _%status199544%_)))))))) + __tmp202479 + _%status200676%_)))))))) (define gxc#invoke__@ - (lambda (_%@@keywords199549%_ . _%args199550%_) + (lambda (_%@@keywords200681%_ . _%args200682%_) (apply gxc#invoke__% - _%@@keywords199549%_ + _%@@keywords200681%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords199549%_ + _%@@keywords200681%_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords199549%_ + _%@@keywords200681%_ 'stderr-redirection: absent-value)) - _%args199550%_))) + _%args200682%_))) (define gxc#invoke - (lambda _%args199522199556%_ + (lambda _%args200654200688%_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _%args199522199556%_))))) + _%args200654200688%_))))) diff --git a/src/bootstrap/gerbil/compiler/driver~1.scm b/src/bootstrap/gerbil/compiler/driver~1.scm index 157a39d16..b138d8f5f 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 (_%$stx199455%_) - (let* ((_%g199459199473%_ - (lambda (_%g199460199469%_) + (lambda (_%$stx200587%_) + (let* ((_%g200591200605%_ + (lambda (_%g200592200601%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g199460199469%_)))) - (_%g199458199515%_ - (lambda (_%g199460199477%_) + _%g200592200601%_)))) + (_%g200590200647%_ + (lambda (_%g200592200609%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g199460199477%_)) - (let ((_%e199462199480%_ + (gx#stx-pair? _%g200592200609%_)) + (let ((_%e200594200612%_ (let () (declare (not safe)) - (gx#syntax-e _%g199460199477%_)))) - (let ((_%hd199463199484%_ + (gx#syntax-e _%g200592200609%_)))) + (let ((_%hd200595200616%_ (let () (declare (not safe)) - (##car _%e199462199480%_))) - (_%tl199464199487%_ + (##car _%e200594200612%_))) + (_%tl200596200619%_ (let () (declare (not safe)) - (##cdr _%e199462199480%_)))) + (##cdr _%e200594200612%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199464199487%_)) - (let ((_%e199465199490%_ + (gx#stx-pair? _%tl200596200619%_)) + (let ((_%e200597200622%_ (let () (declare (not safe)) - (gx#syntax-e _%tl199464199487%_)))) - (let ((_%hd199466199494%_ + (gx#syntax-e _%tl200596200619%_)))) + (let ((_%hd200598200626%_ (let () (declare (not safe)) - (##car _%e199465199490%_))) - (_%tl199467199497%_ + (##car _%e200597200622%_))) + (_%tl200599200629%_ (let () (declare (not safe)) - (##cdr _%e199465199490%_)))) + (##cdr _%e200597200622%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199467199497%_)) - ((lambda (_%L199500%_) + (gx#stx-null? _%tl200599200629%_)) + ((lambda (_%L200632%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -60,11 +60,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L199500%_ '()))) + (cons '() (cons _%L200632%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd199466199494%_) - (_%g199459199473%_ _%g199460199477%_)))) - (_%g199459199473%_ _%g199460199477%_)))) - (_%g199459199473%_ _%g199460199477%_))))) - (_%g199458199515%_ _%$stx199455%_)))) + _%hd200598200626%_) + (_%g200591200605%_ _%g200592200609%_)))) + (_%g200591200605%_ _%g200592200609%_)))) + (_%g200591200605%_ _%g200592200609%_))))) + (_%g200590200647%_ _%$stx200587%_)))) diff --git a/src/bootstrap/gerbil/compiler/method~0.scm b/src/bootstrap/gerbil/compiler/method~0.scm index 279a7544d..01577f4bc 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 1713454411) + (define gerbil/compiler/method::timestamp 1713631267) (begin (define gxc#current-compile-method (make-parameter '#f)) (define gxc#compile-e__0 - (lambda (_%stx136403%_) - (let* ((_%self136405%_ + (lambda (_%stx137535%_) + (let* ((_%self137537%_ (let () (declare (not safe)) (gxc#current-compile-method))) - (_%$e136407%_ - (let ((__tmp136603 (gxc#stx-car-e _%stx136403%_))) + (_%$e137539%_ + (let ((__tmp137735 (gxc#stx-car-e _%stx137535%_))) (declare (not safe)) - (method-ref _%self136405%_ __tmp136603)))) - (if _%$e136407%_ - ((lambda (_%method136410%_) - (declare (not safe)) - (_%method136410%_ _%self136405%_ _%stx136403%_)) - _%$e136407%_) - (let ((__tmp136605 (gxc#stx-car-e _%stx136403%_)) - (__tmp136604 + (method-ref _%self137537%_ __tmp137735)))) + (if _%$e137539%_ + ((lambda (_%method137542%_) + (declare (not safe)) + (_%method137542%_ _%self137537%_ _%stx137535%_)) + _%$e137539%_) + (let ((__tmp137737 (gxc#stx-car-e _%stx137535%_)) + (__tmp137736 (let () (declare (not safe)) - (gx#syntax->datum _%stx136403%_)))) + (gx#syntax->datum _%stx137535%_)))) (declare (not safe)) (error '"missing method" - _%self136405%_ - __tmp136605 - __tmp136604)))))) + _%self137537%_ + __tmp137737 + __tmp137736)))))) (define gxc#compile-e__1 - (lambda (_%self136414%_ _%stx136415%_) - (let ((_%$e136417%_ - (let ((__tmp136606 (gxc#stx-car-e _%stx136415%_))) - (declare (not safe)) - (method-ref _%self136414%_ __tmp136606)))) - (if _%$e136417%_ - ((lambda (_%method136420%_) - (declare (not safe)) - (_%method136420%_ _%self136414%_ _%stx136415%_)) - _%$e136417%_) - (let ((__tmp136608 (gxc#stx-car-e _%stx136415%_)) - (__tmp136607 + (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 (let () (declare (not safe)) - (gx#syntax->datum _%stx136415%_)))) + (gx#syntax->datum _%stx137547%_)))) (declare (not safe)) (error '"missing method" - _%self136414%_ - __tmp136608 - __tmp136607)))))) + _%self137546%_ + __tmp137740 + __tmp137739)))))) (define gxc#compile-e - (lambda _g136610_ - (let ((_g136609_ (let () (declare (not safe)) (##length _g136610_)))) - (cond ((let () (declare (not safe)) (##fx= _g136609_ 1)) - (apply gxc#compile-e__0 _g136610_)) - ((let () (declare (not safe)) (##fx= _g136609_ 2)) - (apply gxc#compile-e__1 _g136610_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g136610_)))))) + _g137742_)))))) (define gxc#stx-car-e - (lambda (_%stx136401%_) - (let ((__tmp136611 - (car (let () (declare (not safe)) (gx#stx-e _%stx136401%_))))) + (lambda (_%stx137533%_) + (let ((__tmp137743 + (car (let () (declare (not safe)) (gx#stx-e _%stx137533%_))))) (declare (not safe)) - (gx#stx-e __tmp136611)))) - (define gxc#void-method (lambda (_%self136398%_ _%stx136399%_) '#!void)) - (define gxc#false-method (lambda (_%self136395%_ _%stx136396%_) '#f)) - (define gxc#true-method (lambda (_%self136392%_ _%stx136393%_) '#t)) + (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)) (define gxc#identity-method - (lambda (_%self136389%_ _%stx136390%_) _%stx136390%_)) + (lambda (_%self137521%_ _%stx137522%_) _%stx137522%_)) (define gxc#::void-expression::t - (let ((__tmp136612 (list))) + (let ((__tmp137744 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-expression::t '::void-expression - __tmp136612 + __tmp137744 '() '() '#f))) @@ -84,10 +84,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-expression::t))) (define gxc#make-::void-expression - (lambda _%$args136386%_ - (apply make-instance gxc#::void-expression::t _%$args136386%_))) + (lambda _%$args137518%_ + (apply make-instance gxc#::void-expression::t _%$args137518%_))) (define gxc#::void-expression-bind-methods! - (let ((__tmp136613 + (let ((__tmp137745 (lambda () (let () (declare (not safe)) @@ -216,14 +216,14 @@ '%#struct-unchecked-set! gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp136613))) + (__make-promise __tmp137745))) (define gxc#::void-special-form::t - (let ((__tmp136614 (list))) + (let ((__tmp137746 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-special-form::t '::void-special-form - __tmp136614 + __tmp137746 '() '() '#f))) @@ -232,10 +232,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-special-form::t))) (define gxc#make-::void-special-form - (lambda _%$args136382%_ - (apply make-instance gxc#::void-special-form::t _%$args136382%_))) + (lambda _%$args137514%_ + (apply make-instance gxc#::void-special-form::t _%$args137514%_))) (define gxc#::void-special-form-bind-methods! - (let ((__tmp136615 + (let ((__tmp137747 (lambda () (let () (declare (not safe)) @@ -310,31 +310,31 @@ '%#declare gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp136615))) + (__make-promise __tmp137747))) (define gxc#::void::t - (let ((__tmp136616 + (let ((__tmp137748 (list gxc#::void-special-form::t gxc#::void-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::void::t '::void __tmp136616 '() '() '#f))) + (__make-class-type 'gxc#::void::t '::void __tmp137748 '() '() '#f))) (define gxc#::void? (let () (declare (not safe)) (__make-class-predicate gxc#::void::t))) (define gxc#make-::void - (lambda _%$args136378%_ - (apply make-instance gxc#::void::t _%$args136378%_))) + (lambda _%$args137510%_ + (apply make-instance gxc#::void::t _%$args137510%_))) (define gxc#::void-bind-methods! - (let ((__tmp136617 + (let ((__tmp137749 (lambda () (force gxc#::void-special-form-bind-methods!) (force gxc#::void-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp136617))) + (__make-promise __tmp137749))) (define gxc#::false-expression::t - (let ((__tmp136618 (list))) + (let ((__tmp137750 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-expression::t '::false-expression - __tmp136618 + __tmp137750 '() '() '#f))) @@ -343,10 +343,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-expression::t))) (define gxc#make-::false-expression - (lambda _%$args136374%_ - (apply make-instance gxc#::false-expression::t _%$args136374%_))) + (lambda _%$args137506%_ + (apply make-instance gxc#::false-expression::t _%$args137506%_))) (define gxc#::false-expression-bind-methods! - (let ((__tmp136619 + (let ((__tmp137751 (lambda () (let () (declare (not safe)) @@ -475,14 +475,14 @@ '%#struct-unchecked-set! gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp136619))) + (__make-promise __tmp137751))) (define gxc#::false-special-form::t - (let ((__tmp136620 (list))) + (let ((__tmp137752 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-special-form::t '::false-special-form - __tmp136620 + __tmp137752 '() '() '#f))) @@ -491,10 +491,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-special-form::t))) (define gxc#make-::false-special-form - (lambda _%$args136370%_ - (apply make-instance gxc#::false-special-form::t _%$args136370%_))) + (lambda _%$args137502%_ + (apply make-instance gxc#::false-special-form::t _%$args137502%_))) (define gxc#::false-special-form-bind-methods! - (let ((__tmp136621 + (let ((__tmp137753 (lambda () (let () (declare (not safe)) @@ -569,31 +569,31 @@ '%#declare gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp136621))) + (__make-promise __tmp137753))) (define gxc#::false::t - (let ((__tmp136622 + (let ((__tmp137754 (list gxc#::false-special-form::t gxc#::false-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::false::t '::false __tmp136622 '() '() '#f))) + (__make-class-type 'gxc#::false::t '::false __tmp137754 '() '() '#f))) (define gxc#::false? (let () (declare (not safe)) (__make-class-predicate gxc#::false::t))) (define gxc#make-::false - (lambda _%$args136366%_ - (apply make-instance gxc#::false::t _%$args136366%_))) + (lambda _%$args137498%_ + (apply make-instance gxc#::false::t _%$args137498%_))) (define gxc#::false-bind-methods! - (let ((__tmp136623 + (let ((__tmp137755 (lambda () (force gxc#::false-special-form-bind-methods!) (force gxc#::false-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp136623))) + (__make-promise __tmp137755))) (define gxc#::identity-expression::t - (let ((__tmp136624 (list))) + (let ((__tmp137756 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-expression::t '::identity-expression - __tmp136624 + __tmp137756 '() '() '#f))) @@ -602,10 +602,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-expression::t))) (define gxc#make-::identity-expression - (lambda _%$args136362%_ - (apply make-instance gxc#::identity-expression::t _%$args136362%_))) + (lambda _%$args137494%_ + (apply make-instance gxc#::identity-expression::t _%$args137494%_))) (define gxc#::identity-expression-bind-methods! - (let ((__tmp136625 + (let ((__tmp137757 (lambda () (let () (declare (not safe)) @@ -734,14 +734,14 @@ '%#struct-unchecked-set! gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp136625))) + (__make-promise __tmp137757))) (define gxc#::identity-special-form::t - (let ((__tmp136626 (list))) + (let ((__tmp137758 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-special-form::t '::identity-special-form - __tmp136626 + __tmp137758 '() '() '#f))) @@ -750,10 +750,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-special-form::t))) (define gxc#make-::identity-special-form - (lambda _%$args136358%_ - (apply make-instance gxc#::identity-special-form::t _%$args136358%_))) + (lambda _%$args137490%_ + (apply make-instance gxc#::identity-special-form::t _%$args137490%_))) (define gxc#::identity-special-form-bind-methods! - (let ((__tmp136627 + (let ((__tmp137759 (lambda () (let () (declare (not safe)) @@ -828,38 +828,38 @@ '%#declare gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp136627))) + (__make-promise __tmp137759))) (define gxc#::identity::t - (let ((__tmp136628 + (let ((__tmp137760 (list gxc#::identity-special-form::t gxc#::identity-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::identity::t '::identity - __tmp136628 + __tmp137760 '() '() '#f))) (define gxc#::identity? (let () (declare (not safe)) (__make-class-predicate gxc#::identity::t))) (define gxc#make-::identity - (lambda _%$args136354%_ - (apply make-instance gxc#::identity::t _%$args136354%_))) + (lambda _%$args137486%_ + (apply make-instance gxc#::identity::t _%$args137486%_))) (define gxc#::identity-bind-methods! - (let ((__tmp136629 + (let ((__tmp137761 (lambda () (force gxc#::identity-special-form-bind-methods!) (force gxc#::identity-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp136629))) + (__make-promise __tmp137761))) (define gxc#::basic-xform-expression::t - (let ((__tmp136630 (list))) + (let ((__tmp137762 (list))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform-expression::t '::basic-xform-expression - __tmp136630 + __tmp137762 '() '() '#f))) @@ -868,10 +868,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform-expression::t))) (define gxc#make-::basic-xform-expression - (lambda _%$args136350%_ - (apply make-instance gxc#::basic-xform-expression::t _%$args136350%_))) + (lambda _%$args137482%_ + (apply make-instance gxc#::basic-xform-expression::t _%$args137482%_))) (define gxc#::basic-xform-expression-bind-methods! - (let ((__tmp136631 + (let ((__tmp137763 (lambda () (let () (declare (not safe)) @@ -1000,15 +1000,15 @@ '%#struct-unchecked-set! gxc#xform-operands))))) (declare (not safe)) - (__make-promise __tmp136631))) + (__make-promise __tmp137763))) (define gxc#::basic-xform::t - (let ((__tmp136632 + (let ((__tmp137764 (list gxc#::basic-xform-expression::t gxc#::identity::t))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform::t '::basic-xform - __tmp136632 + __tmp137764 '() '() '#f))) @@ -1017,10 +1017,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform::t))) (define gxc#make-::basic-xform - (lambda _%$args136346%_ - (apply make-instance gxc#::basic-xform::t _%$args136346%_))) + (lambda _%$args137478%_ + (apply make-instance gxc#::basic-xform::t _%$args137478%_))) (define gxc#::basic-xform-bind-methods! - (let ((__tmp136633 + (let ((__tmp137765 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (force gxc#::identity-bind-methods!) @@ -1055,2554 +1055,2552 @@ '%#define-syntax gxc#xform-define-syntax%))))) (declare (not safe)) - (__make-promise __tmp136633))) + (__make-promise __tmp137765))) (define gxc#apply-begin% - (lambda (_%self136302%_ _%stx136303%_) - (let* ((_%g136305136315%_ - (lambda (_%g136306136312%_) + (lambda (_%self137434%_ _%stx137435%_) + (let* ((_%g137437137447%_ + (lambda (_%g137438137444%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136306136312%_)))) - (_%g136304136342%_ - (lambda (_%g136306136318%_) + _%g137438137444%_)))) + (_%g137436137474%_ + (lambda (_%g137438137450%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136306136318%_)) - (let ((_%e136308136320%_ + (gx#stx-pair? _%g137438137450%_)) + (let ((_%e137440137452%_ (let () (declare (not safe)) - (gx#stx-e _%g136306136318%_)))) - (let ((_%hd136309136323%_ + (gx#stx-e _%g137438137450%_)))) + (let ((_%hd137441137455%_ (let () (declare (not safe)) - (##car _%e136308136320%_))) - (_%tl136310136325%_ + (##car _%e137440137452%_))) + (_%tl137442137457%_ (let () (declare (not safe)) - (##cdr _%e136308136320%_)))) - ((lambda (_%L136328%_) + (##cdr _%e137440137452%_)))) + ((lambda (_%L137460%_) (for-each - (lambda (_%g136337136339%_) + (lambda (_%g137469137471%_) (gxc#compile-e__1 - _%self136302%_ - _%g136337136339%_)) + _%self137434%_ + _%g137469137471%_)) (let () (declare (not safe)) - (gx#stx-e _%L136328%_)))) - _%tl136310136325%_))) - (_%g136305136315%_ _%g136306136318%_))))) - (_%g136304136342%_ _%stx136303%_)))) + (gx#stx-e _%L137460%_)))) + _%tl137442137457%_))) + (_%g137437137447%_ _%g137438137450%_))))) + (_%g137436137474%_ _%stx137435%_)))) (define gxc#apply-last-begin% - (lambda (_%self136263%_ _%stx136264%_) - (let* ((_%g136266136276%_ - (lambda (_%g136267136273%_) + (lambda (_%self137395%_ _%stx137396%_) + (let* ((_%g137398137408%_ + (lambda (_%g137399137405%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136267136273%_)))) - (_%g136265136299%_ - (lambda (_%g136267136279%_) + _%g137399137405%_)))) + (_%g137397137431%_ + (lambda (_%g137399137411%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136267136279%_)) - (let ((_%e136269136281%_ + (gx#stx-pair? _%g137399137411%_)) + (let ((_%e137401137413%_ (let () (declare (not safe)) - (gx#stx-e _%g136267136279%_)))) - (let ((_%hd136270136284%_ + (gx#stx-e _%g137399137411%_)))) + (let ((_%hd137402137416%_ (let () (declare (not safe)) - (##car _%e136269136281%_))) - (_%tl136271136286%_ + (##car _%e137401137413%_))) + (_%tl137403137418%_ (let () (declare (not safe)) - (##cdr _%e136269136281%_)))) - ((lambda (_%L136289%_) + (##cdr _%e137401137413%_)))) + ((lambda (_%L137421%_) (gxc#compile-e__1 - _%self136263%_ - (last _%L136289%_))) - _%tl136271136286%_))) - (_%g136266136276%_ _%g136267136279%_))))) - (_%g136265136299%_ _%stx136264%_)))) + _%self137395%_ + (last _%L137421%_))) + _%tl137403137418%_))) + (_%g137398137408%_ _%g137399137411%_))))) + (_%g137397137431%_ _%stx137396%_)))) (define gxc#apply-begin-syntax% - (lambda (_%self136259%_ _%stx136260%_) - (let ((__tmp136636 - (lambda () (gxc#apply-begin% _%self136259%_ _%stx136260%_))) - (__tmp136634 - (let ((__tmp136635 + (lambda (_%self137391%_ _%stx137392%_) + (let ((__tmp137768 + (lambda () (gxc#apply-begin% _%self137391%_ _%stx137392%_))) + (__tmp137766 + (let ((__tmp137767 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp136635 '1)))) + (##fx+ __tmp137767 '1)))) (declare (not safe)) (__call-with-parameters - __tmp136636 + __tmp137768 gx#current-expander-phi - __tmp136634)))) + __tmp137766)))) (define gxc#apply-module% - (lambda (_%self136198%_ _%stx136199%_) - (let* ((_%g136201136215%_ - (lambda (_%g136202136212%_) + (lambda (_%self137330%_ _%stx137331%_) + (let* ((_%g137333137347%_ + (lambda (_%g137334137344%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136202136212%_)))) - (_%g136200136256%_ - (lambda (_%g136202136218%_) + _%g137334137344%_)))) + (_%g137332137388%_ + (lambda (_%g137334137350%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136202136218%_)) - (let ((_%e136205136220%_ + (gx#stx-pair? _%g137334137350%_)) + (let ((_%e137337137352%_ (let () (declare (not safe)) - (gx#stx-e _%g136202136218%_)))) - (let ((_%hd136206136223%_ + (gx#stx-e _%g137334137350%_)))) + (let ((_%hd137338137355%_ (let () (declare (not safe)) - (##car _%e136205136220%_))) - (_%tl136207136225%_ + (##car _%e137337137352%_))) + (_%tl137339137357%_ (let () (declare (not safe)) - (##cdr _%e136205136220%_)))) + (##cdr _%e137337137352%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136207136225%_)) - (let ((_%e136208136228%_ + (gx#stx-pair? _%tl137339137357%_)) + (let ((_%e137340137360%_ (let () (declare (not safe)) - (gx#stx-e _%tl136207136225%_)))) - (let ((_%hd136209136231%_ + (gx#stx-e _%tl137339137357%_)))) + (let ((_%hd137341137363%_ (let () (declare (not safe)) - (##car _%e136208136228%_))) - (_%tl136210136233%_ + (##car _%e137340137360%_))) + (_%tl137342137365%_ (let () (declare (not safe)) - (##cdr _%e136208136228%_)))) - ((lambda (_%L136236%_ _%L136237%_) - (let* ((_%ctx136250%_ + (##cdr _%e137340137360%_)))) + ((lambda (_%L137368%_ _%L137369%_) + (let* ((_%ctx137382%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L136237%_))) - (_%ctx-stx136252%_ + _%L137369%_))) + (_%ctx-stx137384%_ (##structure-ref - _%ctx136250%_ + _%ctx137382%_ '11 gx#module-context::t '#f)) - (__tmp136637 + (__tmp137769 (lambda () (gxc#compile-e__1 - _%self136198%_ - _%ctx-stx136252%_)))) + _%self137330%_ + _%ctx-stx137384%_)))) (declare (not safe)) (__call-with-parameters - __tmp136637 + __tmp137769 gx#current-expander-context - _%ctx136250%_))) - _%tl136210136233%_ - _%hd136209136231%_))) - (_%g136201136215%_ _%g136202136218%_)))) - (_%g136201136215%_ _%g136202136218%_))))) - (_%g136200136256%_ _%stx136199%_)))) + _%ctx137382%_))) + _%tl137342137365%_ + _%hd137341137363%_))) + (_%g137333137347%_ _%g137334137350%_)))) + (_%g137333137347%_ _%g137334137350%_))))) + (_%g137332137388%_ _%stx137331%_)))) (define gxc#apply-begin-annotation% - (lambda (_%self136130%_ _%stx136131%_) - (let* ((_%g136133136150%_ - (lambda (_%g136134136147%_) + (lambda (_%self137262%_ _%stx137263%_) + (let* ((_%g137265137282%_ + (lambda (_%g137266137279%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136134136147%_)))) - (_%g136132136195%_ - (lambda (_%g136134136153%_) + _%g137266137279%_)))) + (_%g137264137327%_ + (lambda (_%g137266137285%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136134136153%_)) - (let ((_%e136137136155%_ + (gx#stx-pair? _%g137266137285%_)) + (let ((_%e137269137287%_ (let () (declare (not safe)) - (gx#stx-e _%g136134136153%_)))) - (let ((_%hd136138136158%_ + (gx#stx-e _%g137266137285%_)))) + (let ((_%hd137270137290%_ (let () (declare (not safe)) - (##car _%e136137136155%_))) - (_%tl136139136160%_ + (##car _%e137269137287%_))) + (_%tl137271137292%_ (let () (declare (not safe)) - (##cdr _%e136137136155%_)))) + (##cdr _%e137269137287%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136139136160%_)) - (let ((_%e136140136163%_ + (gx#stx-pair? _%tl137271137292%_)) + (let ((_%e137272137295%_ (let () (declare (not safe)) - (gx#stx-e _%tl136139136160%_)))) - (let ((_%hd136141136166%_ + (gx#stx-e _%tl137271137292%_)))) + (let ((_%hd137273137298%_ (let () (declare (not safe)) - (##car _%e136140136163%_))) - (_%tl136142136168%_ + (##car _%e137272137295%_))) + (_%tl137274137300%_ (let () (declare (not safe)) - (##cdr _%e136140136163%_)))) + (##cdr _%e137272137295%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136142136168%_)) - (let ((_%e136143136171%_ + (gx#stx-pair? _%tl137274137300%_)) + (let ((_%e137275137303%_ (let () (declare (not safe)) - (gx#stx-e _%tl136142136168%_)))) - (let ((_%hd136144136174%_ + (gx#stx-e _%tl137274137300%_)))) + (let ((_%hd137276137306%_ (let () (declare (not safe)) - (##car _%e136143136171%_))) - (_%tl136145136176%_ + (##car _%e137275137303%_))) + (_%tl137277137308%_ (let () (declare (not safe)) - (##cdr _%e136143136171%_)))) + (##cdr _%e137275137303%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136145136176%_)) - ((lambda (_%L136179%_ - _%L136180%_) + _%tl137277137308%_)) + ((lambda (_%L137311%_ + _%L137312%_) (gxc#compile-e__1 - _%self136130%_ - _%L136179%_)) - _%hd136144136174%_ - _%hd136141136166%_) - (_%g136133136150%_ - _%g136134136153%_)))) - (_%g136133136150%_ _%g136134136153%_)))) - (_%g136133136150%_ _%g136134136153%_)))) - (_%g136133136150%_ _%g136134136153%_))))) - (_%g136132136195%_ _%stx136131%_)))) + _%self137262%_ + _%L137311%_)) + _%hd137276137306%_ + _%hd137273137298%_) + (_%g137265137282%_ + _%g137266137285%_)))) + (_%g137265137282%_ _%g137266137285%_)))) + (_%g137265137282%_ _%g137266137285%_)))) + (_%g137265137282%_ _%g137266137285%_))))) + (_%g137264137327%_ _%stx137263%_)))) (define gxc#apply-define-values% - (lambda (_%self136062%_ _%stx136063%_) - (let* ((_%g136065136082%_ - (lambda (_%g136066136079%_) + (lambda (_%self137194%_ _%stx137195%_) + (let* ((_%g137197137214%_ + (lambda (_%g137198137211%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136066136079%_)))) - (_%g136064136127%_ - (lambda (_%g136066136085%_) + _%g137198137211%_)))) + (_%g137196137259%_ + (lambda (_%g137198137217%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136066136085%_)) - (let ((_%e136069136087%_ + (gx#stx-pair? _%g137198137217%_)) + (let ((_%e137201137219%_ (let () (declare (not safe)) - (gx#stx-e _%g136066136085%_)))) - (let ((_%hd136070136090%_ + (gx#stx-e _%g137198137217%_)))) + (let ((_%hd137202137222%_ (let () (declare (not safe)) - (##car _%e136069136087%_))) - (_%tl136071136092%_ + (##car _%e137201137219%_))) + (_%tl137203137224%_ (let () (declare (not safe)) - (##cdr _%e136069136087%_)))) + (##cdr _%e137201137219%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136071136092%_)) - (let ((_%e136072136095%_ + (gx#stx-pair? _%tl137203137224%_)) + (let ((_%e137204137227%_ (let () (declare (not safe)) - (gx#stx-e _%tl136071136092%_)))) - (let ((_%hd136073136098%_ + (gx#stx-e _%tl137203137224%_)))) + (let ((_%hd137205137230%_ (let () (declare (not safe)) - (##car _%e136072136095%_))) - (_%tl136074136100%_ + (##car _%e137204137227%_))) + (_%tl137206137232%_ (let () (declare (not safe)) - (##cdr _%e136072136095%_)))) + (##cdr _%e137204137227%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136074136100%_)) - (let ((_%e136075136103%_ + (gx#stx-pair? _%tl137206137232%_)) + (let ((_%e137207137235%_ (let () (declare (not safe)) - (gx#stx-e _%tl136074136100%_)))) - (let ((_%hd136076136106%_ + (gx#stx-e _%tl137206137232%_)))) + (let ((_%hd137208137238%_ (let () (declare (not safe)) - (##car _%e136075136103%_))) - (_%tl136077136108%_ + (##car _%e137207137235%_))) + (_%tl137209137240%_ (let () (declare (not safe)) - (##cdr _%e136075136103%_)))) + (##cdr _%e137207137235%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136077136108%_)) - ((lambda (_%L136111%_ - _%L136112%_) + _%tl137209137240%_)) + ((lambda (_%L137243%_ + _%L137244%_) (gxc#compile-e__1 - _%self136062%_ - _%L136111%_)) - _%hd136076136106%_ - _%hd136073136098%_) - (_%g136065136082%_ - _%g136066136085%_)))) - (_%g136065136082%_ _%g136066136085%_)))) - (_%g136065136082%_ _%g136066136085%_)))) - (_%g136065136082%_ _%g136066136085%_))))) - (_%g136064136127%_ _%stx136063%_)))) + _%self137194%_ + _%L137243%_)) + _%hd137208137238%_ + _%hd137205137230%_) + (_%g137197137214%_ + _%g137198137217%_)))) + (_%g137197137214%_ _%g137198137217%_)))) + (_%g137197137214%_ _%g137198137217%_)))) + (_%g137197137214%_ _%g137198137217%_))))) + (_%g137196137259%_ _%stx137195%_)))) (define gxc#apply-define-syntax% - (lambda (_%self135993%_ _%stx135994%_) - (let* ((_%g135996136013%_ - (lambda (_%g135997136010%_) + (lambda (_%self137125%_ _%stx137126%_) + (let* ((_%g137128137145%_ + (lambda (_%g137129137142%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135997136010%_)))) - (_%g135995136059%_ - (lambda (_%g135997136016%_) + _%g137129137142%_)))) + (_%g137127137191%_ + (lambda (_%g137129137148%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135997136016%_)) - (let ((_%e136000136018%_ + (gx#stx-pair? _%g137129137148%_)) + (let ((_%e137132137150%_ (let () (declare (not safe)) - (gx#stx-e _%g135997136016%_)))) - (let ((_%hd136001136021%_ + (gx#stx-e _%g137129137148%_)))) + (let ((_%hd137133137153%_ (let () (declare (not safe)) - (##car _%e136000136018%_))) - (_%tl136002136023%_ + (##car _%e137132137150%_))) + (_%tl137134137155%_ (let () (declare (not safe)) - (##cdr _%e136000136018%_)))) + (##cdr _%e137132137150%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136002136023%_)) - (let ((_%e136003136026%_ + (gx#stx-pair? _%tl137134137155%_)) + (let ((_%e137135137158%_ (let () (declare (not safe)) - (gx#stx-e _%tl136002136023%_)))) - (let ((_%hd136004136029%_ + (gx#stx-e _%tl137134137155%_)))) + (let ((_%hd137136137161%_ (let () (declare (not safe)) - (##car _%e136003136026%_))) - (_%tl136005136031%_ + (##car _%e137135137158%_))) + (_%tl137137137163%_ (let () (declare (not safe)) - (##cdr _%e136003136026%_)))) + (##cdr _%e137135137158%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136005136031%_)) - (let ((_%e136006136034%_ + (gx#stx-pair? _%tl137137137163%_)) + (let ((_%e137138137166%_ (let () (declare (not safe)) - (gx#stx-e _%tl136005136031%_)))) - (let ((_%hd136007136037%_ + (gx#stx-e _%tl137137137163%_)))) + (let ((_%hd137139137169%_ (let () (declare (not safe)) - (##car _%e136006136034%_))) - (_%tl136008136039%_ + (##car _%e137138137166%_))) + (_%tl137140137171%_ (let () (declare (not safe)) - (##cdr _%e136006136034%_)))) + (##cdr _%e137138137166%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136008136039%_)) - ((lambda (_%L136042%_ - _%L136043%_) - (let ((__tmp136640 + _%tl137140137171%_)) + ((lambda (_%L137174%_ + _%L137175%_) + (let ((__tmp137772 (lambda () (gxc#compile-e__1 - _%self135993%_ - _%L136042%_))) - (__tmp136638 - (let ((__tmp136639 + _%self137125%_ + _%L137174%_))) + (__tmp137770 + (let ((__tmp137771 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp136639 '1)))) + (##fx+ __tmp137771 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp136640 + __tmp137772 gx#current-expander-phi - __tmp136638))) - _%hd136007136037%_ - _%hd136004136029%_) - (_%g135996136013%_ - _%g135997136016%_)))) - (_%g135996136013%_ _%g135997136016%_)))) - (_%g135996136013%_ _%g135997136016%_)))) - (_%g135996136013%_ _%g135997136016%_))))) - (_%g135995136059%_ _%stx135994%_)))) + __tmp137770))) + _%hd137139137169%_ + _%hd137136137161%_) + (_%g137128137145%_ + _%g137129137148%_)))) + (_%g137128137145%_ _%g137129137148%_)))) + (_%g137128137145%_ _%g137129137148%_)))) + (_%g137128137145%_ _%g137129137148%_))))) + (_%g137127137191%_ _%stx137126%_)))) (define gxc#apply-body-lambda% - (lambda (_%self135925%_ _%stx135926%_) - (let* ((_%g135928135945%_ - (lambda (_%g135929135942%_) + (lambda (_%self137057%_ _%stx137058%_) + (let* ((_%g137060137077%_ + (lambda (_%g137061137074%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135929135942%_)))) - (_%g135927135990%_ - (lambda (_%g135929135948%_) + _%g137061137074%_)))) + (_%g137059137122%_ + (lambda (_%g137061137080%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135929135948%_)) - (let ((_%e135932135950%_ + (gx#stx-pair? _%g137061137080%_)) + (let ((_%e137064137082%_ (let () (declare (not safe)) - (gx#stx-e _%g135929135948%_)))) - (let ((_%hd135933135953%_ + (gx#stx-e _%g137061137080%_)))) + (let ((_%hd137065137085%_ (let () (declare (not safe)) - (##car _%e135932135950%_))) - (_%tl135934135955%_ + (##car _%e137064137082%_))) + (_%tl137066137087%_ (let () (declare (not safe)) - (##cdr _%e135932135950%_)))) + (##cdr _%e137064137082%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135934135955%_)) - (let ((_%e135935135958%_ + (gx#stx-pair? _%tl137066137087%_)) + (let ((_%e137067137090%_ (let () (declare (not safe)) - (gx#stx-e _%tl135934135955%_)))) - (let ((_%hd135936135961%_ + (gx#stx-e _%tl137066137087%_)))) + (let ((_%hd137068137093%_ (let () (declare (not safe)) - (##car _%e135935135958%_))) - (_%tl135937135963%_ + (##car _%e137067137090%_))) + (_%tl137069137095%_ (let () (declare (not safe)) - (##cdr _%e135935135958%_)))) + (##cdr _%e137067137090%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135937135963%_)) - (let ((_%e135938135966%_ + (gx#stx-pair? _%tl137069137095%_)) + (let ((_%e137070137098%_ (let () (declare (not safe)) - (gx#stx-e _%tl135937135963%_)))) - (let ((_%hd135939135969%_ + (gx#stx-e _%tl137069137095%_)))) + (let ((_%hd137071137101%_ (let () (declare (not safe)) - (##car _%e135938135966%_))) - (_%tl135940135971%_ + (##car _%e137070137098%_))) + (_%tl137072137103%_ (let () (declare (not safe)) - (##cdr _%e135938135966%_)))) + (##cdr _%e137070137098%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135940135971%_)) - ((lambda (_%L135974%_ - _%L135975%_) + _%tl137072137103%_)) + ((lambda (_%L137106%_ + _%L137107%_) (gxc#compile-e__1 - _%self135925%_ - _%L135974%_)) - _%hd135939135969%_ - _%hd135936135961%_) - (_%g135928135945%_ - _%g135929135948%_)))) - (_%g135928135945%_ _%g135929135948%_)))) - (_%g135928135945%_ _%g135929135948%_)))) - (_%g135928135945%_ _%g135929135948%_))))) - (_%g135927135990%_ _%stx135926%_)))) + _%self137057%_ + _%L137106%_)) + _%hd137071137101%_ + _%hd137068137093%_) + (_%g137060137077%_ + _%g137061137080%_)))) + (_%g137060137077%_ _%g137061137080%_)))) + (_%g137060137077%_ _%g137061137080%_)))) + (_%g137060137077%_ _%g137061137080%_))))) + (_%g137059137122%_ _%stx137058%_)))) (define gxc#apply-body-case-lambda% - (lambda (_%self135807%_ _%stx135808%_) - (let* ((_%g135810135838%_ - (lambda (_%g135811135835%_) + (lambda (_%self136939%_ _%stx136940%_) + (let* ((_%g136942136970%_ + (lambda (_%g136943136967%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135811135835%_)))) - (_%g135809135922%_ - (lambda (_%g135811135841%_) + _%g136943136967%_)))) + (_%g136941137054%_ + (lambda (_%g136943136973%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135811135841%_)) - (let ((_%e135814135843%_ + (gx#stx-pair? _%g136943136973%_)) + (let ((_%e136946136975%_ (let () (declare (not safe)) - (gx#stx-e _%g135811135841%_)))) - (let ((_%hd135815135846%_ + (gx#stx-e _%g136943136973%_)))) + (let ((_%hd136947136978%_ (let () (declare (not safe)) - (##car _%e135814135843%_))) - (_%tl135816135848%_ + (##car _%e136946136975%_))) + (_%tl136948136980%_ (let () (declare (not safe)) - (##cdr _%e135814135843%_)))) + (##cdr _%e136946136975%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl135816135848%_)) - (let ((_g136641_ + (gx#stx-pair/null? _%tl136948136980%_)) + (let ((_g137773_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl135816135848%_ + _%tl136948136980%_ '0)))) (begin - (let ((_g136642_ + (let ((_g137774_ (let () (declare (not safe)) - (if (##values? _g136641_) - (##vector-length _g136641_) + (if (##values? _g137773_) + (##vector-length _g137773_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g136642_ 2))) + (##fx= _g137774_ 2))) (error "Context expects 2 values" - _g136642_))) - (let ((_%target135817135851%_ + _g137774_))) + (let ((_%target136949136983%_ (let () (declare (not safe)) - (##vector-ref _g136641_ 0))) - (_%tl135819135853%_ + (##vector-ref _g137773_ 0))) + (_%tl136951136985%_ (let () (declare (not safe)) - (##vector-ref _g136641_ 1)))) + (##vector-ref _g137773_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135819135853%_)) - (letrec ((_%loop135820135856%_ - (lambda (_%hd135818135859%_ - _%body135824135861%_ - _%hd135825135863%_) + (gx#stx-null? _%tl136951136985%_)) + (letrec ((_%loop136952136988%_ + (lambda (_%hd136950136991%_ + _%body136956136993%_ + _%hd136957136995%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd135818135859%_)) - (let ((_%e135821135866%_ + _%hd136950136991%_)) + (let ((_%e136953136998%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd135818135859%_)))) - (let ((_%lp-hd135822135869%_ + (gx#stx-e _%hd136950136991%_)))) + (let ((_%lp-hd136954137001%_ (let () (declare (not safe)) - (##car _%e135821135866%_))) - (_%lp-tl135823135871%_ + (##car _%e136953136998%_))) + (_%lp-tl136955137003%_ (let () (declare (not safe)) - (##cdr _%e135821135866%_)))) + (##cdr _%e136953136998%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd135822135869%_)) - (let ((_%e135828135874%_ + (gx#stx-pair? _%lp-hd136954137001%_)) + (let ((_%e136960137006%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd135822135869%_)))) - (let ((_%hd135829135877%_ + (gx#stx-e _%lp-hd136954137001%_)))) + (let ((_%hd136961137009%_ (let () (declare (not safe)) - (##car _%e135828135874%_))) - (_%tl135830135879%_ + (##car _%e136960137006%_))) + (_%tl136962137011%_ (let () (declare (not safe)) - (##cdr _%e135828135874%_)))) + (##cdr _%e136960137006%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135830135879%_)) - (let ((_%e135831135882%_ + (gx#stx-pair? _%tl136962137011%_)) + (let ((_%e136963137014%_ (let () (declare (not safe)) - (gx#stx-e _%tl135830135879%_)))) - (let ((_%hd135832135885%_ + (gx#stx-e _%tl136962137011%_)))) + (let ((_%hd136964137017%_ (let () (declare (not safe)) - (##car _%e135831135882%_))) - (_%tl135833135887%_ + (##car _%e136963137014%_))) + (_%tl136965137019%_ (let () (declare (not safe)) - (##cdr _%e135831135882%_)))) + (##cdr _%e136963137014%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135833135887%_)) - (_%loop135820135856%_ - _%lp-tl135823135871%_ - (cons _%hd135832135885%_ - _%body135824135861%_) - (cons _%hd135829135877%_ - _%hd135825135863%_)) - (_%g135810135838%_ - _%g135811135841%_)))) - (_%g135810135838%_ _%g135811135841%_)))) - (_%g135810135838%_ _%g135811135841%_)))) - (let ((_%body135826135890%_ (reverse _%body135824135861%_)) - (_%hd135827135892%_ (reverse _%hd135825135863%_))) - ((lambda (_%L135895%_ _%L135896%_) + (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%_) (for-each - (lambda (_%g135910135912%_) - (gxc#compile-e__1 _%self135807%_ _%g135910135912%_)) - (let ((__tmp136643 - (lambda (_%g135914135917%_ _%g135915135919%_) - (cons _%g135914135917%_ _%g135915135919%_)))) + (lambda (_%g137042137044%_) + (gxc#compile-e__1 _%self136939%_ _%g137042137044%_)) + (let ((__tmp137775 + (lambda (_%g137046137049%_ _%g137047137051%_) + (cons _%g137046137049%_ _%g137047137051%_)))) (declare (not safe)) - (__foldr1 __tmp136643 '() _%L135895%_)))) - _%body135826135890%_ - _%hd135827135892%_)))))) + (__foldr1 __tmp137775 '() _%L137027%_)))) + _%body136958137022%_ + _%hd136959137024%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop135820135856%_ - _%target135817135851%_ + (_%loop136952136988%_ + _%target136949136983%_ '() '())) - (_%g135810135838%_ - _%g135811135841%_))))) - (_%g135810135838%_ _%g135811135841%_)))) - (_%g135810135838%_ _%g135811135841%_))))) - (_%g135809135922%_ _%stx135808%_)))) + (_%g136942136970%_ + _%g136943136973%_))))) + (_%g136942136970%_ _%g136943136973%_)))) + (_%g136942136970%_ _%g136943136973%_))))) + (_%g136941137054%_ _%stx136940%_)))) (define gxc#apply-body-let-values% - (lambda (_%self135660%_ _%stx135661%_) - (let* ((_%g135663135698%_ - (lambda (_%g135664135695%_) + (lambda (_%self136792%_ _%stx136793%_) + (let* ((_%g136795136830%_ + (lambda (_%g136796136827%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135664135695%_)))) - (_%g135662135804%_ - (lambda (_%g135664135701%_) + _%g136796136827%_)))) + (_%g136794136936%_ + (lambda (_%g136796136833%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135664135701%_)) - (let ((_%e135668135703%_ + (gx#stx-pair? _%g136796136833%_)) + (let ((_%e136800136835%_ (let () (declare (not safe)) - (gx#stx-e _%g135664135701%_)))) - (let ((_%hd135669135706%_ + (gx#stx-e _%g136796136833%_)))) + (let ((_%hd136801136838%_ (let () (declare (not safe)) - (##car _%e135668135703%_))) - (_%tl135670135708%_ + (##car _%e136800136835%_))) + (_%tl136802136840%_ (let () (declare (not safe)) - (##cdr _%e135668135703%_)))) + (##cdr _%e136800136835%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135670135708%_)) - (let ((_%e135671135711%_ + (gx#stx-pair? _%tl136802136840%_)) + (let ((_%e136803136843%_ (let () (declare (not safe)) - (gx#stx-e _%tl135670135708%_)))) - (let ((_%hd135672135714%_ + (gx#stx-e _%tl136802136840%_)))) + (let ((_%hd136804136846%_ (let () (declare (not safe)) - (##car _%e135671135711%_))) - (_%tl135673135716%_ + (##car _%e136803136843%_))) + (_%tl136805136848%_ (let () (declare (not safe)) - (##cdr _%e135671135711%_)))) + (##cdr _%e136803136843%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd135672135714%_)) - (let ((_g136644_ + (gx#stx-pair/null? _%hd136804136846%_)) + (let ((_g137776_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135672135714%_ + _%hd136804136846%_ '0)))) (begin - (let ((_g136645_ + (let ((_g137777_ (let () (declare (not safe)) - (if (##values? _g136644_) + (if (##values? _g137776_) (##vector-length - _g136644_) + _g137776_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g136645_ 2))) + (##fx= _g137777_ 2))) (error "Context expects 2 values" - _g136645_))) - (let ((_%target135674135719%_ + _g137777_))) + (let ((_%target136806136851%_ (let () (declare (not safe)) - (##vector-ref _g136644_ 0))) - (_%tl135676135721%_ + (##vector-ref _g137776_ 0))) + (_%tl136808136853%_ (let () (declare (not safe)) (##vector-ref - _g136644_ + _g137776_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135676135721%_)) - (letrec ((_%loop135677135724%_ - (lambda (_%hd135675135727%_ + _%tl136808136853%_)) + (letrec ((_%loop136809136856%_ + (lambda (_%hd136807136859%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr135681135729%_ - _%hd135682135731%_) + _%expr136813136861%_ + _%hd136814136863%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135675135727%_)) - (let ((_%e135678135734%_ + (gx#stx-pair? _%hd136807136859%_)) + (let ((_%e136810136866%_ (let () (declare (not safe)) - (gx#stx-e _%hd135675135727%_)))) - (let ((_%lp-hd135679135737%_ + (gx#stx-e _%hd136807136859%_)))) + (let ((_%lp-hd136811136869%_ (let () (declare (not safe)) - (##car _%e135678135734%_))) - (_%lp-tl135680135739%_ + (##car _%e136810136866%_))) + (_%lp-tl136812136871%_ (let () (declare (not safe)) - (##cdr _%e135678135734%_)))) + (##cdr _%e136810136866%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd135679135737%_)) - (let ((_%e135688135742%_ + (gx#stx-pair? _%lp-hd136811136869%_)) + (let ((_%e136820136874%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd135679135737%_)))) - (let ((_%hd135689135745%_ + (gx#stx-e _%lp-hd136811136869%_)))) + (let ((_%hd136821136877%_ (let () (declare (not safe)) - (##car _%e135688135742%_))) - (_%tl135690135747%_ + (##car _%e136820136874%_))) + (_%tl136822136879%_ (let () (declare (not safe)) - (##cdr _%e135688135742%_)))) + (##cdr _%e136820136874%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135690135747%_)) - (let ((_%e135691135750%_ + (gx#stx-pair? _%tl136822136879%_)) + (let ((_%e136823136882%_ (let () (declare (not safe)) (gx#stx-e - _%tl135690135747%_)))) - (let ((_%hd135692135753%_ + _%tl136822136879%_)))) + (let ((_%hd136824136885%_ (let () (declare (not safe)) - (##car _%e135691135750%_))) - (_%tl135693135755%_ + (##car _%e136823136882%_))) + (_%tl136825136887%_ (let () (declare (not safe)) - (##cdr _%e135691135750%_)))) + (##cdr _%e136823136882%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135693135755%_)) - (_%loop135677135724%_ - _%lp-tl135680135739%_ - (cons _%hd135692135753%_ - _%expr135681135729%_) - (cons _%hd135689135745%_ - _%hd135682135731%_)) - (_%g135663135698%_ - _%g135664135701%_)))) - (_%g135663135698%_ - _%g135664135701%_)))) - (_%g135663135698%_ _%g135664135701%_)))) - (let ((_%expr135683135758%_ - (reverse _%expr135681135729%_)) - (_%hd135684135760%_ - (reverse _%hd135682135731%_))) + _%tl136825136887%_)) + (_%loop136809136856%_ + _%lp-tl136812136871%_ + (cons _%hd136824136885%_ + _%expr136813136861%_) + (cons _%hd136821136877%_ + _%hd136814136863%_)) + (_%g136795136830%_ + _%g136796136833%_)))) + (_%g136795136830%_ + _%g136796136833%_)))) + (_%g136795136830%_ _%g136796136833%_)))) + (let ((_%expr136815136890%_ + (reverse _%expr136813136861%_)) + (_%hd136816136892%_ + (reverse _%hd136814136863%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135673135716%_)) - (let ((_%e135685135763%_ + (gx#stx-pair? _%tl136805136848%_)) + (let ((_%e136817136895%_ (let () (declare (not safe)) - (gx#stx-e _%tl135673135716%_)))) - (let ((_%hd135686135766%_ + (gx#stx-e _%tl136805136848%_)))) + (let ((_%hd136818136898%_ (let () (declare (not safe)) - (##car _%e135685135763%_))) - (_%tl135687135768%_ + (##car _%e136817136895%_))) + (_%tl136819136900%_ (let () (declare (not safe)) - (##cdr _%e135685135763%_)))) + (##cdr _%e136817136895%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135687135768%_)) - ((lambda (_%L135771%_ - _%L135772%_ - _%L135773%_) + (gx#stx-null? _%tl136819136900%_)) + ((lambda (_%L136903%_ + _%L136904%_ + _%L136905%_) (for-each - (lambda (_%g135792135794%_) + (lambda (_%g136924136926%_) (gxc#compile-e__1 - _%self135660%_ - _%g135792135794%_)) - (let ((__tmp136647 - (lambda (_%g135796135799%_ - _%g135797135801%_) - (cons _%g135796135799%_ - _%g135797135801%_))) - (__tmp136646 - (cons _%L135771%_ '()))) + _%self136792%_ + _%g136924136926%_)) + (let ((__tmp137779 + (lambda (_%g136928136931%_ + _%g136929136933%_) + (cons _%g136928136931%_ + _%g136929136933%_))) + (__tmp137778 + (cons _%L136903%_ '()))) (declare (not safe)) (__foldr1 - __tmp136647 - __tmp136646 - _%L135772%_)))) - _%hd135686135766%_ - _%expr135683135758%_ - _%hd135684135760%_) - (_%g135663135698%_ _%g135664135701%_)))) - (_%g135663135698%_ _%g135664135701%_))))))) + __tmp137779 + __tmp137778 + _%L136904%_)))) + _%hd136818136898%_ + _%expr136815136890%_ + _%hd136816136892%_) + (_%g136795136830%_ _%g136796136833%_)))) + (_%g136795136830%_ _%g136796136833%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop135677135724%_ - _%target135674135719%_ + (_%loop136809136856%_ + _%target136806136851%_ '() '())) - (_%g135663135698%_ - _%g135664135701%_))))) - (_%g135663135698%_ _%g135664135701%_)))) - (_%g135663135698%_ _%g135664135701%_)))) - (_%g135663135698%_ _%g135664135701%_))))) - (_%g135662135804%_ _%stx135661%_)))) + (_%g136795136830%_ + _%g136796136833%_))))) + (_%g136795136830%_ _%g136796136833%_)))) + (_%g136795136830%_ _%g136796136833%_)))) + (_%g136795136830%_ _%g136796136833%_))))) + (_%g136794136936%_ _%stx136793%_)))) (define gxc#apply-body-last-let-values% - (lambda (_%self135605%_ _%stx135606%_) - (let* ((_%g135608135622%_ - (lambda (_%g135609135619%_) + (lambda (_%self136737%_ _%stx136738%_) + (let* ((_%g136740136754%_ + (lambda (_%g136741136751%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135609135619%_)))) - (_%g135607135657%_ - (lambda (_%g135609135625%_) + _%g136741136751%_)))) + (_%g136739136789%_ + (lambda (_%g136741136757%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135609135625%_)) - (let ((_%e135612135627%_ + (gx#stx-pair? _%g136741136757%_)) + (let ((_%e136744136759%_ (let () (declare (not safe)) - (gx#stx-e _%g135609135625%_)))) - (let ((_%hd135613135630%_ + (gx#stx-e _%g136741136757%_)))) + (let ((_%hd136745136762%_ (let () (declare (not safe)) - (##car _%e135612135627%_))) - (_%tl135614135632%_ + (##car _%e136744136759%_))) + (_%tl136746136764%_ (let () (declare (not safe)) - (##cdr _%e135612135627%_)))) + (##cdr _%e136744136759%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135614135632%_)) - (let ((_%e135615135635%_ + (gx#stx-pair? _%tl136746136764%_)) + (let ((_%e136747136767%_ (let () (declare (not safe)) - (gx#stx-e _%tl135614135632%_)))) - (let ((_%hd135616135638%_ + (gx#stx-e _%tl136746136764%_)))) + (let ((_%hd136748136770%_ (let () (declare (not safe)) - (##car _%e135615135635%_))) - (_%tl135617135640%_ + (##car _%e136747136767%_))) + (_%tl136749136772%_ (let () (declare (not safe)) - (##cdr _%e135615135635%_)))) - ((lambda (_%L135643%_ _%L135644%_) + (##cdr _%e136747136767%_)))) + ((lambda (_%L136775%_ _%L136776%_) (gxc#compile-e__1 - _%self135605%_ - (last _%L135643%_))) - _%tl135617135640%_ - _%hd135616135638%_))) - (_%g135608135622%_ _%g135609135625%_)))) - (_%g135608135622%_ _%g135609135625%_))))) - (_%g135607135657%_ _%stx135606%_)))) + _%self136737%_ + (last _%L136775%_))) + _%tl136749136772%_ + _%hd136748136770%_))) + (_%g136740136754%_ _%g136741136757%_)))) + (_%g136740136754%_ _%g136741136757%_))))) + (_%g136739136789%_ _%stx136738%_)))) (define gxc#apply-body-setq% - (lambda (_%self135537%_ _%stx135538%_) - (let* ((_%g135540135557%_ - (lambda (_%g135541135554%_) + (lambda (_%self136669%_ _%stx136670%_) + (let* ((_%g136672136689%_ + (lambda (_%g136673136686%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135541135554%_)))) - (_%g135539135602%_ - (lambda (_%g135541135560%_) + _%g136673136686%_)))) + (_%g136671136734%_ + (lambda (_%g136673136692%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135541135560%_)) - (let ((_%e135544135562%_ + (gx#stx-pair? _%g136673136692%_)) + (let ((_%e136676136694%_ (let () (declare (not safe)) - (gx#stx-e _%g135541135560%_)))) - (let ((_%hd135545135565%_ + (gx#stx-e _%g136673136692%_)))) + (let ((_%hd136677136697%_ (let () (declare (not safe)) - (##car _%e135544135562%_))) - (_%tl135546135567%_ + (##car _%e136676136694%_))) + (_%tl136678136699%_ (let () (declare (not safe)) - (##cdr _%e135544135562%_)))) + (##cdr _%e136676136694%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135546135567%_)) - (let ((_%e135547135570%_ + (gx#stx-pair? _%tl136678136699%_)) + (let ((_%e136679136702%_ (let () (declare (not safe)) - (gx#stx-e _%tl135546135567%_)))) - (let ((_%hd135548135573%_ + (gx#stx-e _%tl136678136699%_)))) + (let ((_%hd136680136705%_ (let () (declare (not safe)) - (##car _%e135547135570%_))) - (_%tl135549135575%_ + (##car _%e136679136702%_))) + (_%tl136681136707%_ (let () (declare (not safe)) - (##cdr _%e135547135570%_)))) + (##cdr _%e136679136702%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135549135575%_)) - (let ((_%e135550135578%_ + (gx#stx-pair? _%tl136681136707%_)) + (let ((_%e136682136710%_ (let () (declare (not safe)) - (gx#stx-e _%tl135549135575%_)))) - (let ((_%hd135551135581%_ + (gx#stx-e _%tl136681136707%_)))) + (let ((_%hd136683136713%_ (let () (declare (not safe)) - (##car _%e135550135578%_))) - (_%tl135552135583%_ + (##car _%e136682136710%_))) + (_%tl136684136715%_ (let () (declare (not safe)) - (##cdr _%e135550135578%_)))) + (##cdr _%e136682136710%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135552135583%_)) - ((lambda (_%L135586%_ - _%L135587%_) + _%tl136684136715%_)) + ((lambda (_%L136718%_ + _%L136719%_) (gxc#compile-e__1 - _%self135537%_ - _%L135586%_)) - _%hd135551135581%_ - _%hd135548135573%_) - (_%g135540135557%_ - _%g135541135560%_)))) - (_%g135540135557%_ _%g135541135560%_)))) - (_%g135540135557%_ _%g135541135560%_)))) - (_%g135540135557%_ _%g135541135560%_))))) - (_%g135539135602%_ _%stx135538%_)))) + _%self136669%_ + _%L136718%_)) + _%hd136683136713%_ + _%hd136680136705%_) + (_%g136672136689%_ + _%g136673136692%_)))) + (_%g136672136689%_ _%g136673136692%_)))) + (_%g136672136689%_ _%g136673136692%_)))) + (_%g136672136689%_ _%g136673136692%_))))) + (_%g136671136734%_ _%stx136670%_)))) (define gxc#apply-operands - (lambda (_%self135450%_ _%stx135451%_) - (let* ((_%g135453135472%_ - (lambda (_%g135454135469%_) + (lambda (_%self136582%_ _%stx136583%_) + (let* ((_%g136585136604%_ + (lambda (_%g136586136601%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135454135469%_)))) - (_%g135452135534%_ - (lambda (_%g135454135475%_) + _%g136586136601%_)))) + (_%g136584136666%_ + (lambda (_%g136586136607%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135454135475%_)) - (let ((_%e135456135477%_ + (gx#stx-pair? _%g136586136607%_)) + (let ((_%e136588136609%_ (let () (declare (not safe)) - (gx#stx-e _%g135454135475%_)))) - (let ((_%hd135457135480%_ + (gx#stx-e _%g136586136607%_)))) + (let ((_%hd136589136612%_ (let () (declare (not safe)) - (##car _%e135456135477%_))) - (_%tl135458135482%_ + (##car _%e136588136609%_))) + (_%tl136590136614%_ (let () (declare (not safe)) - (##cdr _%e135456135477%_)))) + (##cdr _%e136588136609%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl135458135482%_)) - (let ((_g136648_ + (gx#stx-pair/null? _%tl136590136614%_)) + (let ((_g137780_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl135458135482%_ + _%tl136590136614%_ '0)))) (begin - (let ((_g136649_ + (let ((_g137781_ (let () (declare (not safe)) - (if (##values? _g136648_) - (##vector-length _g136648_) + (if (##values? _g137780_) + (##vector-length _g137780_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g136649_ 2))) + (##fx= _g137781_ 2))) (error "Context expects 2 values" - _g136649_))) - (let ((_%target135459135485%_ + _g137781_))) + (let ((_%target136591136617%_ (let () (declare (not safe)) - (##vector-ref _g136648_ 0))) - (_%tl135461135487%_ + (##vector-ref _g137780_ 0))) + (_%tl136593136619%_ (let () (declare (not safe)) - (##vector-ref _g136648_ 1)))) + (##vector-ref _g137780_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135461135487%_)) - (letrec ((_%loop135462135490%_ - (lambda (_%hd135460135493%_ - _%rands135466135495%_) + (gx#stx-null? _%tl136593136619%_)) + (letrec ((_%loop136594136622%_ + (lambda (_%hd136592136625%_ + _%rands136598136627%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd135460135493%_)) - (let ((_%e135463135498%_ + _%hd136592136625%_)) + (let ((_%e136595136630%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd135460135493%_)))) - (let ((_%lp-hd135464135501%_ + (gx#stx-e _%hd136592136625%_)))) + (let ((_%lp-hd136596136633%_ (let () (declare (not safe)) - (##car _%e135463135498%_))) - (_%lp-tl135465135503%_ + (##car _%e136595136630%_))) + (_%lp-tl136597136635%_ (let () (declare (not safe)) - (##cdr _%e135463135498%_)))) - (_%loop135462135490%_ - _%lp-tl135465135503%_ - (cons _%lp-hd135464135501%_ _%rands135466135495%_)))) - (let ((_%rands135467135506%_ (reverse _%rands135466135495%_))) - ((lambda (_%L135509%_) + (##cdr _%e136595136630%_)))) + (_%loop136594136622%_ + _%lp-tl136597136635%_ + (cons _%lp-hd136596136633%_ _%rands136598136627%_)))) + (let ((_%rands136599136638%_ (reverse _%rands136598136627%_))) + ((lambda (_%L136641%_) (for-each - (lambda (_%g135522135524%_) - (gxc#compile-e__1 _%self135450%_ _%g135522135524%_)) - (let ((__tmp136650 - (lambda (_%g135526135529%_ _%g135527135531%_) - (cons _%g135526135529%_ _%g135527135531%_)))) + (lambda (_%g136654136656%_) + (gxc#compile-e__1 _%self136582%_ _%g136654136656%_)) + (let ((__tmp137782 + (lambda (_%g136658136661%_ _%g136659136663%_) + (cons _%g136658136661%_ _%g136659136663%_)))) (declare (not safe)) - (__foldr1 __tmp136650 '() _%L135509%_)))) - _%rands135467135506%_)))))) + (__foldr1 __tmp137782 '() _%L136641%_)))) + _%rands136599136638%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop135462135490%_ - _%target135459135485%_ + (_%loop136594136622%_ + _%target136591136617%_ '())) - (_%g135453135472%_ - _%g135454135475%_))))) - (_%g135453135472%_ _%g135454135475%_)))) - (_%g135453135472%_ _%g135454135475%_))))) - (_%g135452135534%_ _%stx135451%_)))) + (_%g136585136604%_ + _%g136586136607%_))))) + (_%g136585136604%_ _%g136586136607%_)))) + (_%g136585136604%_ _%g136586136607%_))))) + (_%g136584136666%_ _%stx136583%_)))) (define gxc#xform-wrap-source - (lambda (_%stx135447%_ _%src-stx135448%_) - (let ((__tmp136651 + (lambda (_%stx136579%_ _%src-stx136580%_) + (let ((__tmp137783 (let () (declare (not safe)) - (gx#stx-source _%src-stx135448%_)))) + (gx#stx-source _%src-stx136580%_)))) (declare (not safe)) - (gx#stx-wrap-source _%stx135447%_ __tmp136651)))) + (gx#stx-wrap-source _%stx136579%_ __tmp137783)))) (define gxc#xform-wrap-apply - (lambda (_%stx135443%_ _%src-stx135444%_ _%ctx135445%_) + (lambda (_%stx136575%_ _%src-stx136576%_ _%ctx136577%_) (gxc#compile-e__1 - _%ctx135445%_ - (gxc#xform-wrap-source _%stx135443%_ _%src-stx135444%_)))) + _%ctx136577%_ + (gxc#xform-wrap-source _%stx136575%_ _%src-stx136576%_)))) (define gxc#xform-begin% - (lambda (_%self135398%_ _%stx135399%_) - (let* ((_%g135401135411%_ - (lambda (_%g135402135408%_) + (lambda (_%self136530%_ _%stx136531%_) + (let* ((_%g136533136543%_ + (lambda (_%g136534136540%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135402135408%_)))) - (_%g135400135440%_ - (lambda (_%g135402135414%_) + _%g136534136540%_)))) + (_%g136532136572%_ + (lambda (_%g136534136546%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135402135414%_)) - (let ((_%e135404135416%_ + (gx#stx-pair? _%g136534136546%_)) + (let ((_%e136536136548%_ (let () (declare (not safe)) - (gx#stx-e _%g135402135414%_)))) - (let ((_%hd135405135419%_ + (gx#stx-e _%g136534136546%_)))) + (let ((_%hd136537136551%_ (let () (declare (not safe)) - (##car _%e135404135416%_))) - (_%tl135406135421%_ + (##car _%e136536136548%_))) + (_%tl136538136553%_ (let () (declare (not safe)) - (##cdr _%e135404135416%_)))) - ((lambda (_%L135424%_) - (let ((_%forms135438%_ - (map (lambda (_%g135433135435%_) + (##cdr _%e136536136548%_)))) + ((lambda (_%L136556%_) + (let ((_%forms136570%_ + (map (lambda (_%g136565136567%_) (gxc#compile-e__1 - _%self135398%_ - _%g135433135435%_)) - _%L135424%_))) + _%self136530%_ + _%g136565136567%_)) + _%L136556%_))) (gxc#xform-wrap-source - (cons '%#begin _%forms135438%_) - _%stx135399%_))) - _%tl135406135421%_))) - (_%g135401135411%_ _%g135402135414%_))))) - (_%g135400135440%_ _%stx135399%_)))) + (cons '%#begin _%forms136570%_) + _%stx136531%_))) + _%tl136538136553%_))) + (_%g136533136543%_ _%g136534136546%_))))) + (_%g136532136572%_ _%stx136531%_)))) (define gxc#xform-begin-syntax% - (lambda (_%self135352%_ _%stx135353%_) - (let* ((_%g135355135365%_ - (lambda (_%g135356135362%_) + (lambda (_%self136484%_ _%stx136485%_) + (let* ((_%g136487136497%_ + (lambda (_%g136488136494%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135356135362%_)))) - (_%g135354135395%_ - (lambda (_%g135356135368%_) + _%g136488136494%_)))) + (_%g136486136527%_ + (lambda (_%g136488136500%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135356135368%_)) - (let ((_%e135358135370%_ + (gx#stx-pair? _%g136488136500%_)) + (let ((_%e136490136502%_ (let () (declare (not safe)) - (gx#stx-e _%g135356135368%_)))) - (let ((_%hd135359135373%_ + (gx#stx-e _%g136488136500%_)))) + (let ((_%hd136491136505%_ (let () (declare (not safe)) - (##car _%e135358135370%_))) - (_%tl135360135375%_ + (##car _%e136490136502%_))) + (_%tl136492136507%_ (let () (declare (not safe)) - (##cdr _%e135358135370%_)))) - ((lambda (_%L135378%_) - (let ((__tmp136654 + (##cdr _%e136490136502%_)))) + ((lambda (_%L136510%_) + (let ((__tmp137786 (lambda () - (let ((_%forms135393%_ - (map (lambda (_%g135388135390%_) + (let ((_%forms136525%_ + (map (lambda (_%g136520136522%_) (gxc#compile-e__1 - _%self135352%_ - _%g135388135390%_)) - _%L135378%_))) + _%self136484%_ + _%g136520136522%_)) + _%L136510%_))) (gxc#xform-wrap-source - (cons '%#begin-syntax _%forms135393%_) - _%stx135353%_)))) - (__tmp136652 - (let ((__tmp136653 + (cons '%#begin-syntax _%forms136525%_) + _%stx136485%_)))) + (__tmp137784 + (let ((__tmp137785 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp136653 '1)))) + (##fx+ __tmp137785 '1)))) (declare (not safe)) (__call-with-parameters - __tmp136654 + __tmp137786 gx#current-expander-phi - __tmp136652))) - _%tl135360135375%_))) - (_%g135355135365%_ _%g135356135368%_))))) - (_%g135354135395%_ _%stx135353%_)))) + __tmp137784))) + _%tl136492136507%_))) + (_%g136487136497%_ _%g136488136500%_))))) + (_%g136486136527%_ _%stx136485%_)))) (define gxc#xform-module% - (lambda (_%self135289%_ _%stx135290%_) - (let* ((_%g135292135306%_ - (lambda (_%g135293135303%_) + (lambda (_%self136421%_ _%stx136422%_) + (let* ((_%g136424136438%_ + (lambda (_%g136425136435%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135293135303%_)))) - (_%g135291135349%_ - (lambda (_%g135293135309%_) + _%g136425136435%_)))) + (_%g136423136481%_ + (lambda (_%g136425136441%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135293135309%_)) - (let ((_%e135296135311%_ + (gx#stx-pair? _%g136425136441%_)) + (let ((_%e136428136443%_ (let () (declare (not safe)) - (gx#stx-e _%g135293135309%_)))) - (let ((_%hd135297135314%_ + (gx#stx-e _%g136425136441%_)))) + (let ((_%hd136429136446%_ (let () (declare (not safe)) - (##car _%e135296135311%_))) - (_%tl135298135316%_ + (##car _%e136428136443%_))) + (_%tl136430136448%_ (let () (declare (not safe)) - (##cdr _%e135296135311%_)))) + (##cdr _%e136428136443%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135298135316%_)) - (let ((_%e135299135319%_ + (gx#stx-pair? _%tl136430136448%_)) + (let ((_%e136431136451%_ (let () (declare (not safe)) - (gx#stx-e _%tl135298135316%_)))) - (let ((_%hd135300135322%_ + (gx#stx-e _%tl136430136448%_)))) + (let ((_%hd136432136454%_ (let () (declare (not safe)) - (##car _%e135299135319%_))) - (_%tl135301135324%_ + (##car _%e136431136451%_))) + (_%tl136433136456%_ (let () (declare (not safe)) - (##cdr _%e135299135319%_)))) - ((lambda (_%L135327%_ _%L135328%_) - (let* ((_%ctx135341%_ + (##cdr _%e136431136451%_)))) + ((lambda (_%L136459%_ _%L136460%_) + (let* ((_%ctx136473%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L135328%_))) - (_%code135343%_ + _%L136460%_))) + (_%code136475%_ (##structure-ref - _%ctx135341%_ + _%ctx136473%_ '11 gx#module-context::t '#f)) - (_%code135346%_ - (let ((__tmp136655 + (_%code136478%_ + (let ((__tmp137787 (lambda () (gxc#compile-e__1 - _%self135289%_ - _%code135343%_)))) + _%self136421%_ + _%code136475%_)))) (declare (not safe)) (__call-with-parameters - __tmp136655 + __tmp137787 gx#current-expander-context - _%ctx135341%_)))) + _%ctx136473%_)))) (##structure-set! - _%ctx135341%_ - _%code135346%_ + _%ctx136473%_ + _%code136478%_ '11 gx#module-context::t '#f) (gxc#xform-wrap-source (cons '%#module - (cons _%L135328%_ - (cons _%code135346%_ '()))) - _%stx135290%_))) - _%tl135301135324%_ - _%hd135300135322%_))) - (_%g135292135306%_ _%g135293135309%_)))) - (_%g135292135306%_ _%g135293135309%_))))) - (_%g135291135349%_ _%stx135290%_)))) + (cons _%L136460%_ + (cons _%code136478%_ '()))) + _%stx136422%_))) + _%tl136433136456%_ + _%hd136432136454%_))) + (_%g136424136438%_ _%g136425136441%_)))) + (_%g136424136438%_ _%g136425136441%_))))) + (_%g136423136481%_ _%stx136422%_)))) (define gxc#xform-define-values% - (lambda (_%self135219%_ _%stx135220%_) - (let* ((_%g135222135239%_ - (lambda (_%g135223135236%_) + (lambda (_%self136351%_ _%stx136352%_) + (let* ((_%g136354136371%_ + (lambda (_%g136355136368%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135223135236%_)))) - (_%g135221135286%_ - (lambda (_%g135223135242%_) + _%g136355136368%_)))) + (_%g136353136418%_ + (lambda (_%g136355136374%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135223135242%_)) - (let ((_%e135226135244%_ + (gx#stx-pair? _%g136355136374%_)) + (let ((_%e136358136376%_ (let () (declare (not safe)) - (gx#stx-e _%g135223135242%_)))) - (let ((_%hd135227135247%_ + (gx#stx-e _%g136355136374%_)))) + (let ((_%hd136359136379%_ (let () (declare (not safe)) - (##car _%e135226135244%_))) - (_%tl135228135249%_ + (##car _%e136358136376%_))) + (_%tl136360136381%_ (let () (declare (not safe)) - (##cdr _%e135226135244%_)))) + (##cdr _%e136358136376%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135228135249%_)) - (let ((_%e135229135252%_ + (gx#stx-pair? _%tl136360136381%_)) + (let ((_%e136361136384%_ (let () (declare (not safe)) - (gx#stx-e _%tl135228135249%_)))) - (let ((_%hd135230135255%_ + (gx#stx-e _%tl136360136381%_)))) + (let ((_%hd136362136387%_ (let () (declare (not safe)) - (##car _%e135229135252%_))) - (_%tl135231135257%_ + (##car _%e136361136384%_))) + (_%tl136363136389%_ (let () (declare (not safe)) - (##cdr _%e135229135252%_)))) + (##cdr _%e136361136384%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135231135257%_)) - (let ((_%e135232135260%_ + (gx#stx-pair? _%tl136363136389%_)) + (let ((_%e136364136392%_ (let () (declare (not safe)) - (gx#stx-e _%tl135231135257%_)))) - (let ((_%hd135233135263%_ + (gx#stx-e _%tl136363136389%_)))) + (let ((_%hd136365136395%_ (let () (declare (not safe)) - (##car _%e135232135260%_))) - (_%tl135234135265%_ + (##car _%e136364136392%_))) + (_%tl136366136397%_ (let () (declare (not safe)) - (##cdr _%e135232135260%_)))) + (##cdr _%e136364136392%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135234135265%_)) - ((lambda (_%L135268%_ - _%L135269%_) - (let ((_%expr135284%_ + _%tl136366136397%_)) + ((lambda (_%L136400%_ + _%L136401%_) + (let ((_%expr136416%_ (gxc#compile-e__1 - _%self135219%_ - _%L135268%_))) + _%self136351%_ + _%L136400%_))) (gxc#xform-wrap-source (cons '%#define-values - (cons _%L135269%_ - (cons _%expr135284%_ + (cons _%L136401%_ + (cons _%expr136416%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx135220%_))) - _%hd135233135263%_ - _%hd135230135255%_) - (_%g135222135239%_ - _%g135223135242%_)))) - (_%g135222135239%_ _%g135223135242%_)))) - (_%g135222135239%_ _%g135223135242%_)))) - (_%g135222135239%_ _%g135223135242%_))))) - (_%g135221135286%_ _%stx135220%_)))) + _%stx136352%_))) + _%hd136365136395%_ + _%hd136362136387%_) + (_%g136354136371%_ + _%g136355136374%_)))) + (_%g136354136371%_ _%g136355136374%_)))) + (_%g136354136371%_ _%g136355136374%_)))) + (_%g136354136371%_ _%g136355136374%_))))) + (_%g136353136418%_ _%stx136352%_)))) (define gxc#xform-define-syntax% - (lambda (_%self135148%_ _%stx135149%_) - (let* ((_%g135151135168%_ - (lambda (_%g135152135165%_) + (lambda (_%self136280%_ _%stx136281%_) + (let* ((_%g136283136300%_ + (lambda (_%g136284136297%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135152135165%_)))) - (_%g135150135216%_ - (lambda (_%g135152135171%_) + _%g136284136297%_)))) + (_%g136282136348%_ + (lambda (_%g136284136303%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135152135171%_)) - (let ((_%e135155135173%_ + (gx#stx-pair? _%g136284136303%_)) + (let ((_%e136287136305%_ (let () (declare (not safe)) - (gx#stx-e _%g135152135171%_)))) - (let ((_%hd135156135176%_ + (gx#stx-e _%g136284136303%_)))) + (let ((_%hd136288136308%_ (let () (declare (not safe)) - (##car _%e135155135173%_))) - (_%tl135157135178%_ + (##car _%e136287136305%_))) + (_%tl136289136310%_ (let () (declare (not safe)) - (##cdr _%e135155135173%_)))) + (##cdr _%e136287136305%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135157135178%_)) - (let ((_%e135158135181%_ + (gx#stx-pair? _%tl136289136310%_)) + (let ((_%e136290136313%_ (let () (declare (not safe)) - (gx#stx-e _%tl135157135178%_)))) - (let ((_%hd135159135184%_ + (gx#stx-e _%tl136289136310%_)))) + (let ((_%hd136291136316%_ (let () (declare (not safe)) - (##car _%e135158135181%_))) - (_%tl135160135186%_ + (##car _%e136290136313%_))) + (_%tl136292136318%_ (let () (declare (not safe)) - (##cdr _%e135158135181%_)))) + (##cdr _%e136290136313%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135160135186%_)) - (let ((_%e135161135189%_ + (gx#stx-pair? _%tl136292136318%_)) + (let ((_%e136293136321%_ (let () (declare (not safe)) - (gx#stx-e _%tl135160135186%_)))) - (let ((_%hd135162135192%_ + (gx#stx-e _%tl136292136318%_)))) + (let ((_%hd136294136324%_ (let () (declare (not safe)) - (##car _%e135161135189%_))) - (_%tl135163135194%_ + (##car _%e136293136321%_))) + (_%tl136295136326%_ (let () (declare (not safe)) - (##cdr _%e135161135189%_)))) + (##cdr _%e136293136321%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135163135194%_)) - ((lambda (_%L135197%_ - _%L135198%_) - (let ((__tmp136658 + _%tl136295136326%_)) + ((lambda (_%L136329%_ + _%L136330%_) + (let ((__tmp137790 (lambda () - (let ((_%expr135214%_ + (let ((_%expr136346%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#compile-e__1 _%self135148%_ _%L135197%_))) + (gxc#compile-e__1 _%self136280%_ _%L136329%_))) (gxc#xform-wrap-source (cons '%#define-syntax - (cons _%L135198%_ (cons _%expr135214%_ '()))) - _%stx135149%_)))) - (__tmp136656 - (let ((__tmp136657 + (cons _%L136330%_ (cons _%expr136346%_ '()))) + _%stx136281%_)))) + (__tmp137788 + (let ((__tmp137789 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp136657 '1)))) + (##fx+ __tmp137789 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp136658 + __tmp137790 gx#current-expander-phi - __tmp136656))) - _%hd135162135192%_ - _%hd135159135184%_) - (_%g135151135168%_ - _%g135152135171%_)))) - (_%g135151135168%_ _%g135152135171%_)))) - (_%g135151135168%_ _%g135152135171%_)))) - (_%g135151135168%_ _%g135152135171%_))))) - (_%g135150135216%_ _%stx135149%_)))) + __tmp137788))) + _%hd136294136324%_ + _%hd136291136316%_) + (_%g136283136300%_ + _%g136284136303%_)))) + (_%g136283136300%_ _%g136284136303%_)))) + (_%g136283136300%_ _%g136284136303%_)))) + (_%g136283136300%_ _%g136284136303%_))))) + (_%g136282136348%_ _%stx136281%_)))) (define gxc#xform-begin-annotation% - (lambda (_%self135078%_ _%stx135079%_) - (let* ((_%g135081135098%_ - (lambda (_%g135082135095%_) + (lambda (_%self136210%_ _%stx136211%_) + (let* ((_%g136213136230%_ + (lambda (_%g136214136227%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135082135095%_)))) - (_%g135080135145%_ - (lambda (_%g135082135101%_) + _%g136214136227%_)))) + (_%g136212136277%_ + (lambda (_%g136214136233%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135082135101%_)) - (let ((_%e135085135103%_ + (gx#stx-pair? _%g136214136233%_)) + (let ((_%e136217136235%_ (let () (declare (not safe)) - (gx#stx-e _%g135082135101%_)))) - (let ((_%hd135086135106%_ + (gx#stx-e _%g136214136233%_)))) + (let ((_%hd136218136238%_ (let () (declare (not safe)) - (##car _%e135085135103%_))) - (_%tl135087135108%_ + (##car _%e136217136235%_))) + (_%tl136219136240%_ (let () (declare (not safe)) - (##cdr _%e135085135103%_)))) + (##cdr _%e136217136235%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135087135108%_)) - (let ((_%e135088135111%_ + (gx#stx-pair? _%tl136219136240%_)) + (let ((_%e136220136243%_ (let () (declare (not safe)) - (gx#stx-e _%tl135087135108%_)))) - (let ((_%hd135089135114%_ + (gx#stx-e _%tl136219136240%_)))) + (let ((_%hd136221136246%_ (let () (declare (not safe)) - (##car _%e135088135111%_))) - (_%tl135090135116%_ + (##car _%e136220136243%_))) + (_%tl136222136248%_ (let () (declare (not safe)) - (##cdr _%e135088135111%_)))) + (##cdr _%e136220136243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135090135116%_)) - (let ((_%e135091135119%_ + (gx#stx-pair? _%tl136222136248%_)) + (let ((_%e136223136251%_ (let () (declare (not safe)) - (gx#stx-e _%tl135090135116%_)))) - (let ((_%hd135092135122%_ + (gx#stx-e _%tl136222136248%_)))) + (let ((_%hd136224136254%_ (let () (declare (not safe)) - (##car _%e135091135119%_))) - (_%tl135093135124%_ + (##car _%e136223136251%_))) + (_%tl136225136256%_ (let () (declare (not safe)) - (##cdr _%e135091135119%_)))) + (##cdr _%e136223136251%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135093135124%_)) - ((lambda (_%L135127%_ - _%L135128%_) - (let ((_%expr135143%_ + _%tl136225136256%_)) + ((lambda (_%L136259%_ + _%L136260%_) + (let ((_%expr136275%_ (gxc#compile-e__1 - _%self135078%_ - _%L135127%_))) + _%self136210%_ + _%L136259%_))) (gxc#xform-wrap-source (cons '%#begin-annotation - (cons _%L135128%_ - (cons _%expr135143%_ + (cons _%L136260%_ + (cons _%expr136275%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx135079%_))) - _%hd135092135122%_ - _%hd135089135114%_) - (_%g135081135098%_ - _%g135082135101%_)))) - (_%g135081135098%_ _%g135082135101%_)))) - (_%g135081135098%_ _%g135082135101%_)))) - (_%g135081135098%_ _%g135082135101%_))))) - (_%g135080135145%_ _%stx135079%_)))) + _%stx136211%_))) + _%hd136224136254%_ + _%hd136221136246%_) + (_%g136213136230%_ + _%g136214136233%_)))) + (_%g136213136230%_ _%g136214136233%_)))) + (_%g136213136230%_ _%g136214136233%_)))) + (_%g136213136230%_ _%g136214136233%_))))) + (_%g136212136277%_ _%stx136211%_)))) (define gxc#xform-lambda% - (lambda (_%self135016%_ _%stx135017%_) - (let* ((_%g135019135033%_ - (lambda (_%g135020135030%_) + (lambda (_%self136148%_ _%stx136149%_) + (let* ((_%g136151136165%_ + (lambda (_%g136152136162%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135020135030%_)))) - (_%g135018135075%_ - (lambda (_%g135020135036%_) + _%g136152136162%_)))) + (_%g136150136207%_ + (lambda (_%g136152136168%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135020135036%_)) - (let ((_%e135023135038%_ + (gx#stx-pair? _%g136152136168%_)) + (let ((_%e136155136170%_ (let () (declare (not safe)) - (gx#stx-e _%g135020135036%_)))) - (let ((_%hd135024135041%_ + (gx#stx-e _%g136152136168%_)))) + (let ((_%hd136156136173%_ (let () (declare (not safe)) - (##car _%e135023135038%_))) - (_%tl135025135043%_ + (##car _%e136155136170%_))) + (_%tl136157136175%_ (let () (declare (not safe)) - (##cdr _%e135023135038%_)))) + (##cdr _%e136155136170%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135025135043%_)) - (let ((_%e135026135046%_ + (gx#stx-pair? _%tl136157136175%_)) + (let ((_%e136158136178%_ (let () (declare (not safe)) - (gx#stx-e _%tl135025135043%_)))) - (let ((_%hd135027135049%_ + (gx#stx-e _%tl136157136175%_)))) + (let ((_%hd136159136181%_ (let () (declare (not safe)) - (##car _%e135026135046%_))) - (_%tl135028135051%_ + (##car _%e136158136178%_))) + (_%tl136160136183%_ (let () (declare (not safe)) - (##cdr _%e135026135046%_)))) - ((lambda (_%L135054%_ _%L135055%_) - (let ((__tmp136660 + (##cdr _%e136158136178%_)))) + ((lambda (_%L136186%_ _%L136187%_) + (let ((__tmp137792 (lambda () - (let ((_%body135073%_ - (map (lambda (_%g135068135070%_) + (let ((_%body136205%_ + (map (lambda (_%g136200136202%_) (gxc#compile-e__1 - _%self135016%_ - _%g135068135070%_)) - _%L135054%_))) + _%self136148%_ + _%g136200136202%_)) + _%L136186%_))) (gxc#xform-wrap-source (cons '%#lambda - (cons _%L135055%_ - _%body135073%_)) - _%stx135017%_)))) - (__tmp136659 + (cons _%L136187%_ + _%body136205%_)) + _%stx136149%_)))) + (__tmp137791 (gxc#xform-let-locals - _%L135055%_))) + _%L136187%_))) (declare (not safe)) (__call-with-parameters - __tmp136660 + __tmp137792 gxc#current-compile-local-env - __tmp136659))) - _%tl135028135051%_ - _%hd135027135049%_))) - (_%g135019135033%_ _%g135020135036%_)))) - (_%g135019135033%_ _%g135020135036%_))))) - (_%g135018135075%_ _%stx135017%_)))) + __tmp137791))) + _%tl136160136183%_ + _%hd136159136181%_))) + (_%g136151136165%_ _%g136152136168%_)))) + (_%g136151136165%_ _%g136152136168%_))))) + (_%g136150136207%_ _%stx136149%_)))) (define gxc#xform-case-lambda% - (lambda (_%self134924%_ _%stx134925%_) - (letrec ((_%clause-e134927%_ - (lambda (_%clause134968%_) - (let* ((_%g134970134981%_ - (lambda (_%g134971134978%_) + (lambda (_%self136056%_ _%stx136057%_) + (letrec ((_%clause-e136059%_ + (lambda (_%clause136100%_) + (let* ((_%g136102136113%_ + (lambda (_%g136103136110%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134971134978%_)))) - (_%g134969135013%_ - (lambda (_%g134971134984%_) + _%g136103136110%_)))) + (_%g136101136145%_ + (lambda (_%g136103136116%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134971134984%_)) - (let ((_%e134974134986%_ + (gx#stx-pair? _%g136103136116%_)) + (let ((_%e136106136118%_ (let () (declare (not safe)) - (gx#stx-e _%g134971134984%_)))) - (let ((_%hd134975134989%_ + (gx#stx-e _%g136103136116%_)))) + (let ((_%hd136107136121%_ (let () (declare (not safe)) - (##car _%e134974134986%_))) - (_%tl134976134991%_ + (##car _%e136106136118%_))) + (_%tl136108136123%_ (let () (declare (not safe)) - (##cdr _%e134974134986%_)))) - ((lambda (_%L134994%_ _%L134995%_) - (let ((__tmp136662 + (##cdr _%e136106136118%_)))) + ((lambda (_%L136126%_ _%L136127%_) + (let ((__tmp137794 (lambda () - (let ((_%body135011%_ - (map (lambda (_%g135006135008%_) + (let ((_%body136143%_ + (map (lambda (_%g136138136140%_) (gxc#compile-e__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%self134924%_ - _%g135006135008%_)) - _%L134994%_))) + _%self136056%_ + _%g136138136140%_)) + _%L136126%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L134995%_ - _%body135011%_)))) - (__tmp136661 + (cons _%L136127%_ + _%body136143%_)))) + (__tmp137793 (gxc#xform-let-locals - _%L134995%_))) + _%L136127%_))) (declare (not safe)) (__call-with-parameters - __tmp136662 + __tmp137794 gxc#current-compile-local-env - __tmp136661))) - _%tl134976134991%_ - _%hd134975134989%_))) - (_%g134970134981%_ _%g134971134984%_))))) - (_%g134969135013%_ _%clause134968%_))))) - (let* ((_%g134929134939%_ - (lambda (_%g134930134936%_) + __tmp137793))) + _%tl136108136123%_ + _%hd136107136121%_))) + (_%g136102136113%_ _%g136103136116%_))))) + (_%g136101136145%_ _%clause136100%_))))) + (let* ((_%g136061136071%_ + (lambda (_%g136062136068%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134930134936%_)))) - (_%g134928134965%_ - (lambda (_%g134930134942%_) + _%g136062136068%_)))) + (_%g136060136097%_ + (lambda (_%g136062136074%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134930134942%_)) - (let ((_%e134932134944%_ + (gx#stx-pair? _%g136062136074%_)) + (let ((_%e136064136076%_ (let () (declare (not safe)) - (gx#stx-e _%g134930134942%_)))) - (let ((_%hd134933134947%_ + (gx#stx-e _%g136062136074%_)))) + (let ((_%hd136065136079%_ (let () (declare (not safe)) - (##car _%e134932134944%_))) - (_%tl134934134949%_ + (##car _%e136064136076%_))) + (_%tl136066136081%_ (let () (declare (not safe)) - (##cdr _%e134932134944%_)))) - ((lambda (_%L134952%_) - (let ((_%clauses134963%_ - (map _%clause-e134927%_ _%L134952%_))) + (##cdr _%e136064136076%_)))) + ((lambda (_%L136084%_) + (let ((_%clauses136095%_ + (map _%clause-e136059%_ _%L136084%_))) (gxc#xform-wrap-source - (cons '%#case-lambda _%clauses134963%_) - _%stx134925%_))) - _%tl134934134949%_))) - (_%g134929134939%_ _%g134930134942%_))))) - (_%g134928134965%_ _%stx134925%_))))) + (cons '%#case-lambda _%clauses136095%_) + _%stx136057%_))) + _%tl136066136081%_))) + (_%g136061136071%_ _%g136062136074%_))))) + (_%g136060136097%_ _%stx136057%_))))) (define gxc#xform-let-values% - (lambda (_%self134678%_ _%stx134679%_) - (let* ((_%g134681134714%_ - (lambda (_%g134682134711%_) + (lambda (_%self135810%_ _%stx135811%_) + (let* ((_%g135813135846%_ + (lambda (_%g135814135843%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134682134711%_)))) - (_%g134680134921%_ - (lambda (_%g134682134717%_) + _%g135814135843%_)))) + (_%g135812136053%_ + (lambda (_%g135814135849%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134682134717%_)) - (let ((_%e134687134719%_ + (gx#stx-pair? _%g135814135849%_)) + (let ((_%e135819135851%_ (let () (declare (not safe)) - (gx#stx-e _%g134682134717%_)))) - (let ((_%hd134688134722%_ + (gx#stx-e _%g135814135849%_)))) + (let ((_%hd135820135854%_ (let () (declare (not safe)) - (##car _%e134687134719%_))) - (_%tl134689134724%_ + (##car _%e135819135851%_))) + (_%tl135821135856%_ (let () (declare (not safe)) - (##cdr _%e134687134719%_)))) + (##cdr _%e135819135851%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134689134724%_)) - (let ((_%e134690134727%_ + (gx#stx-pair? _%tl135821135856%_)) + (let ((_%e135822135859%_ (let () (declare (not safe)) - (gx#stx-e _%tl134689134724%_)))) - (let ((_%hd134691134730%_ + (gx#stx-e _%tl135821135856%_)))) + (let ((_%hd135823135862%_ (let () (declare (not safe)) - (##car _%e134690134727%_))) - (_%tl134692134732%_ + (##car _%e135822135859%_))) + (_%tl135824135864%_ (let () (declare (not safe)) - (##cdr _%e134690134727%_)))) + (##cdr _%e135822135859%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd134691134730%_)) - (let ((_g136663_ + (gx#stx-pair/null? _%hd135823135862%_)) + (let ((_g137795_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd134691134730%_ + _%hd135823135862%_ '0)))) (begin - (let ((_g136664_ + (let ((_g137796_ (let () (declare (not safe)) - (if (##values? _g136663_) + (if (##values? _g137795_) (##vector-length - _g136663_) + _g137795_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g136664_ 2))) + (##fx= _g137796_ 2))) (error "Context expects 2 values" - _g136664_))) - (let ((_%target134693134735%_ + _g137796_))) + (let ((_%target135825135867%_ (let () (declare (not safe)) - (##vector-ref _g136663_ 0))) - (_%tl134695134737%_ + (##vector-ref _g137795_ 0))) + (_%tl135827135869%_ (let () (declare (not safe)) (##vector-ref - _g136663_ + _g137795_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134695134737%_)) - (letrec ((_%loop134696134740%_ - (lambda (_%hd134694134743%_ + _%tl135827135869%_)) + (letrec ((_%loop135828135872%_ + (lambda (_%hd135826135875%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr134700134745%_ - _%hd134701134747%_) + _%expr135832135877%_ + _%hd135833135879%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134694134743%_)) - (let ((_%e134697134750%_ + (gx#stx-pair? _%hd135826135875%_)) + (let ((_%e135829135882%_ (let () (declare (not safe)) - (gx#stx-e _%hd134694134743%_)))) - (let ((_%lp-hd134698134753%_ + (gx#stx-e _%hd135826135875%_)))) + (let ((_%lp-hd135830135885%_ (let () (declare (not safe)) - (##car _%e134697134750%_))) - (_%lp-tl134699134755%_ + (##car _%e135829135882%_))) + (_%lp-tl135831135887%_ (let () (declare (not safe)) - (##cdr _%e134697134750%_)))) + (##cdr _%e135829135882%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd134698134753%_)) - (let ((_%e134704134758%_ + (gx#stx-pair? _%lp-hd135830135885%_)) + (let ((_%e135836135890%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd134698134753%_)))) - (let ((_%hd134705134761%_ + (gx#stx-e _%lp-hd135830135885%_)))) + (let ((_%hd135837135893%_ (let () (declare (not safe)) - (##car _%e134704134758%_))) - (_%tl134706134763%_ + (##car _%e135836135890%_))) + (_%tl135838135895%_ (let () (declare (not safe)) - (##cdr _%e134704134758%_)))) + (##cdr _%e135836135890%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134706134763%_)) - (let ((_%e134707134766%_ + (gx#stx-pair? _%tl135838135895%_)) + (let ((_%e135839135898%_ (let () (declare (not safe)) (gx#stx-e - _%tl134706134763%_)))) - (let ((_%hd134708134769%_ + _%tl135838135895%_)))) + (let ((_%hd135840135901%_ (let () (declare (not safe)) - (##car _%e134707134766%_))) - (_%tl134709134771%_ + (##car _%e135839135898%_))) + (_%tl135841135903%_ (let () (declare (not safe)) - (##cdr _%e134707134766%_)))) + (##cdr _%e135839135898%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134709134771%_)) - (_%loop134696134740%_ - _%lp-tl134699134755%_ - (cons _%hd134708134769%_ - _%expr134700134745%_) - (cons _%hd134705134761%_ - _%hd134701134747%_)) - (_%g134681134714%_ - _%g134682134717%_)))) - (_%g134681134714%_ - _%g134682134717%_)))) - (_%g134681134714%_ _%g134682134717%_)))) - (let ((_%expr134702134774%_ - (reverse _%expr134700134745%_)) - (_%hd134703134776%_ - (reverse _%hd134701134747%_))) - ((lambda (_%L134779%_ - _%L134780%_ - _%L134781%_ - _%L134782%_) - (let* ((_%g134801134817%_ - (lambda (_%g134802134814%_) + _%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%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134802134814%_)))) - (_%g134800134907%_ - (lambda (_%g134802134820%_) + _%g135934135946%_)))) + (_%g135932136039%_ + (lambda (_%g135934135952%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g134802134820%_)) - (let ((_g136665_ + _%g135934135952%_)) + (let ((_g137797_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g134802134820%_ + _%g135934135952%_ '0)))) (begin - (let ((_g136666_ + (let ((_g137798_ (let () (declare (not safe)) (if (##values? - _g136665_) + _g137797_) (##vector-length - _g136665_) + _g137797_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g136666_ + (##fx= _g137798_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g136666_))) - (let ((_%target134804134822%_ + _g137798_))) + (let ((_%target135936135954%_ (let () (declare (not safe)) (##vector-ref - _g136665_ + _g137797_ 0))) - (_%tl134806134824%_ + (_%tl135938135956%_ (let () (declare (not safe)) (##vector-ref - _g136665_ + _g137797_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134806134824%_)) - (letrec ((_%loop134807134827%_ - (lambda (_%hd134805134830%_ + _%tl135938135956%_)) + (letrec ((_%loop135939135959%_ + (lambda (_%hd135937135962%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr134811134832%_) + _%expr135943135964%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134805134830%_)) - (let ((_%e134808134835%_ + (gx#stx-pair? _%hd135937135962%_)) + (let ((_%e135940135967%_ (let () (declare (not safe)) - (gx#syntax-e _%hd134805134830%_)))) - (let ((_%lp-hd134809134838%_ + (gx#syntax-e _%hd135937135962%_)))) + (let ((_%lp-hd135941135970%_ (let () (declare (not safe)) - (##car _%e134808134835%_))) - (_%lp-tl134810134840%_ + (##car _%e135940135967%_))) + (_%lp-tl135942135972%_ (let () (declare (not safe)) - (##cdr _%e134808134835%_)))) - (_%loop134807134827%_ - _%lp-tl134810134840%_ - (cons _%lp-hd134809134838%_ - _%expr134811134832%_)))) - (let ((_%expr134812134843%_ - (reverse _%expr134811134832%_))) - ((lambda (_%L134846%_) - (let ((__tmp136669 + (##cdr _%e135940135967%_)))) + (_%loop135939135959%_ + _%lp-tl135942135972%_ + (cons _%lp-hd135941135970%_ + _%expr135943135964%_)))) + (let ((_%expr135944135975%_ + (reverse _%expr135943135964%_))) + ((lambda (_%L135978%_) + (let ((__tmp137801 (lambda () - (let* ((_%g134860134867%_ - (lambda (_%g134861134864%_) + (let* ((_%g135992135999%_ + (lambda (_%g135993135996%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134861134864%_)))) - (_%g134859134893%_ - (lambda (_%g134861134870%_) - ((lambda (_%L134872%_) + _%g135993135996%_)))) + (_%g135991136025%_ + (lambda (_%g135993136002%_) + ((lambda (_%L136004%_) (gxc#xform-wrap-source - (cons _%L134782%_ + (cons _%L135914%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L134846%_ - _%L134781%_)) - (let ((__tmp136670 - (lambda (_%g134882134886%_ - _%g134883134888%_ - _%g134884134890%_) - (cons (cons _%g134883134888%_ - (cons _%g134882134886%_ + _%L135978%_ + _%L135913%_)) + (let ((__tmp137802 + (lambda (_%g136014136018%_ + _%g136015136020%_ + _%g136016136022%_) + (cons (cons _%g136015136020%_ + (cons _%g136014136018%_ '())) - _%g134884134890%_)))) + _%g136016136022%_)))) (declare (not safe)) (__foldr2 - __tmp136670 + __tmp137802 '() - _%L134846%_ - _%L134781%_))) - _%L134872%_)) - _%stx134679%_)) - _%g134861134870%_)))) + _%L135978%_ + _%L135913%_))) + _%L136004%_)) + _%stx135811%_)) + _%g135993136002%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134859134893%_ - (map (lambda (_%g134895134897%_) + (_%g135991136025%_ + (map (lambda (_%g136027136029%_) (gxc#compile-e__1 - _%self134678%_ - _%g134895134897%_)) - _%L134779%_))))) - (__tmp136667 + _%self135810%_ + _%g136027136029%_)) + _%L135911%_))))) + (__tmp137799 (gxc#xform-let-locals - (let ((__tmp136668 - (lambda (_%g134899134902%_ - _%g134900134904%_) - (cons _%g134899134902%_ - _%g134900134904%_)))) + (let ((__tmp137800 + (lambda (_%g136031136034%_ + _%g136032136036%_) + (cons _%g136031136034%_ + _%g136032136036%_)))) (declare (not safe)) (__foldr1 - __tmp136668 + __tmp137800 '() - _%L134781%_))))) + _%L135913%_))))) (declare (not safe)) (__call-with-parameters - __tmp136669 + __tmp137801 gxc#current-compile-local-env - __tmp136667))) - _%expr134812134843%_)))))) - (_%loop134807134827%_ _%target134804134822%_ '())) + __tmp137799))) + _%expr135944135975%_)))))) + (_%loop135939135959%_ _%target135936135954%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134801134817%_ - _%g134802134820%_))))) - (_%g134801134817%_ - _%g134802134820%_))))) - (_%g134800134907%_ - (map (lambda (_%g134909134911%_) + (_%g135933135949%_ + _%g135934135952%_))))) + (_%g135933135949%_ + _%g135934135952%_))))) + (_%g135932136039%_ + (map (lambda (_%g136041136043%_) (gxc#compile-e__1 - _%self134678%_ - _%g134909134911%_)) - (let ((__tmp136671 - (lambda (_%g134913134916%_ - _%g134914134918%_) - (cons _%g134913134916%_ - _%g134914134918%_)))) + _%self135810%_ + _%g136041136043%_)) + (let ((__tmp137803 + (lambda (_%g136045136048%_ + _%g136046136050%_) + (cons _%g136045136048%_ + _%g136046136050%_)))) (declare (not safe)) (__foldr1 - __tmp136671 + __tmp137803 '() - _%L134780%_)))))) - _%tl134692134732%_ - _%expr134702134774%_ - _%hd134703134776%_ - _%hd134688134722%_)))))) + _%L135912%_)))))) + _%tl135824135864%_ + _%expr135834135906%_ + _%hd135835135908%_ + _%hd135820135854%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop134696134740%_ - _%target134693134735%_ + (_%loop135828135872%_ + _%target135825135867%_ '() '())) - (_%g134681134714%_ - _%g134682134717%_))))) - (_%g134681134714%_ _%g134682134717%_)))) - (_%g134681134714%_ _%g134682134717%_)))) - (_%g134681134714%_ _%g134682134717%_))))) - (_%g134680134921%_ _%stx134679%_)))) + (_%g135813135846%_ + _%g135814135849%_))))) + (_%g135813135846%_ _%g135814135849%_)))) + (_%g135813135846%_ _%g135814135849%_)))) + (_%g135813135846%_ _%g135814135849%_))))) + (_%g135812136053%_ _%stx135811%_)))) (define gxc#xform-letrec-values% - (lambda (_%self134432%_ _%stx134433%_) - (let* ((_%g134435134468%_ - (lambda (_%g134436134465%_) + (lambda (_%self135564%_ _%stx135565%_) + (let* ((_%g135567135600%_ + (lambda (_%g135568135597%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134436134465%_)))) - (_%g134434134675%_ - (lambda (_%g134436134471%_) + _%g135568135597%_)))) + (_%g135566135807%_ + (lambda (_%g135568135603%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134436134471%_)) - (let ((_%e134441134473%_ + (gx#stx-pair? _%g135568135603%_)) + (let ((_%e135573135605%_ (let () (declare (not safe)) - (gx#stx-e _%g134436134471%_)))) - (let ((_%hd134442134476%_ + (gx#stx-e _%g135568135603%_)))) + (let ((_%hd135574135608%_ (let () (declare (not safe)) - (##car _%e134441134473%_))) - (_%tl134443134478%_ + (##car _%e135573135605%_))) + (_%tl135575135610%_ (let () (declare (not safe)) - (##cdr _%e134441134473%_)))) + (##cdr _%e135573135605%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134443134478%_)) - (let ((_%e134444134481%_ + (gx#stx-pair? _%tl135575135610%_)) + (let ((_%e135576135613%_ (let () (declare (not safe)) - (gx#stx-e _%tl134443134478%_)))) - (let ((_%hd134445134484%_ + (gx#stx-e _%tl135575135610%_)))) + (let ((_%hd135577135616%_ (let () (declare (not safe)) - (##car _%e134444134481%_))) - (_%tl134446134486%_ + (##car _%e135576135613%_))) + (_%tl135578135618%_ (let () (declare (not safe)) - (##cdr _%e134444134481%_)))) + (##cdr _%e135576135613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd134445134484%_)) - (let ((_g136672_ + (gx#stx-pair/null? _%hd135577135616%_)) + (let ((_g137804_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd134445134484%_ + _%hd135577135616%_ '0)))) (begin - (let ((_g136673_ + (let ((_g137805_ (let () (declare (not safe)) - (if (##values? _g136672_) + (if (##values? _g137804_) (##vector-length - _g136672_) + _g137804_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g136673_ 2))) + (##fx= _g137805_ 2))) (error "Context expects 2 values" - _g136673_))) - (let ((_%target134447134489%_ + _g137805_))) + (let ((_%target135579135621%_ (let () (declare (not safe)) - (##vector-ref _g136672_ 0))) - (_%tl134449134491%_ + (##vector-ref _g137804_ 0))) + (_%tl135581135623%_ (let () (declare (not safe)) (##vector-ref - _g136672_ + _g137804_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134449134491%_)) - (letrec ((_%loop134450134494%_ - (lambda (_%hd134448134497%_ + _%tl135581135623%_)) + (letrec ((_%loop135582135626%_ + (lambda (_%hd135580135629%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr134454134499%_ - _%hd134455134501%_) + _%expr135586135631%_ + _%hd135587135633%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134448134497%_)) - (let ((_%e134451134504%_ + (gx#stx-pair? _%hd135580135629%_)) + (let ((_%e135583135636%_ (let () (declare (not safe)) - (gx#stx-e _%hd134448134497%_)))) - (let ((_%lp-hd134452134507%_ + (gx#stx-e _%hd135580135629%_)))) + (let ((_%lp-hd135584135639%_ (let () (declare (not safe)) - (##car _%e134451134504%_))) - (_%lp-tl134453134509%_ + (##car _%e135583135636%_))) + (_%lp-tl135585135641%_ (let () (declare (not safe)) - (##cdr _%e134451134504%_)))) + (##cdr _%e135583135636%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd134452134507%_)) - (let ((_%e134458134512%_ + (gx#stx-pair? _%lp-hd135584135639%_)) + (let ((_%e135590135644%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd134452134507%_)))) - (let ((_%hd134459134515%_ + (gx#stx-e _%lp-hd135584135639%_)))) + (let ((_%hd135591135647%_ (let () (declare (not safe)) - (##car _%e134458134512%_))) - (_%tl134460134517%_ + (##car _%e135590135644%_))) + (_%tl135592135649%_ (let () (declare (not safe)) - (##cdr _%e134458134512%_)))) + (##cdr _%e135590135644%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134460134517%_)) - (let ((_%e134461134520%_ + (gx#stx-pair? _%tl135592135649%_)) + (let ((_%e135593135652%_ (let () (declare (not safe)) (gx#stx-e - _%tl134460134517%_)))) - (let ((_%hd134462134523%_ + _%tl135592135649%_)))) + (let ((_%hd135594135655%_ (let () (declare (not safe)) - (##car _%e134461134520%_))) - (_%tl134463134525%_ + (##car _%e135593135652%_))) + (_%tl135595135657%_ (let () (declare (not safe)) - (##cdr _%e134461134520%_)))) + (##cdr _%e135593135652%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134463134525%_)) - (_%loop134450134494%_ - _%lp-tl134453134509%_ - (cons _%hd134462134523%_ - _%expr134454134499%_) - (cons _%hd134459134515%_ - _%hd134455134501%_)) - (_%g134435134468%_ - _%g134436134471%_)))) - (_%g134435134468%_ - _%g134436134471%_)))) - (_%g134435134468%_ _%g134436134471%_)))) - (let ((_%expr134456134528%_ - (reverse _%expr134454134499%_)) - (_%hd134457134530%_ - (reverse _%hd134455134501%_))) - ((lambda (_%L134533%_ - _%L134534%_ - _%L134535%_ - _%L134536%_) - (let ((__tmp136676 + _%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 (lambda () - (let* ((_%g134556134572%_ - (lambda (_%g134557134569%_) + (let* ((_%g135688135704%_ + (lambda (_%g135689135701%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134557134569%_)))) - (_%g134555134654%_ - (lambda (_%g134557134575%_) + _%g135689135701%_)))) + (_%g135687135786%_ + (lambda (_%g135689135707%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g134557134575%_)) - (let ((_g136677_ + _%g135689135707%_)) + (let ((_g137809_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g134557134575%_ + _%g135689135707%_ '0)))) (begin - (let ((_g136678_ + (let ((_g137810_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g136677_) - (##vector-length _g136677_) + (if (##values? _g137809_) + (##vector-length _g137809_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g136678_ 2))) - (error "Context expects 2 values" _g136678_))) - (let ((_%target134559134577%_ + (if (not (let () (declare (not safe)) (##fx= _g137810_ 2))) + (error "Context expects 2 values" _g137810_))) + (let ((_%target135691135709%_ (let () (declare (not safe)) - (##vector-ref _g136677_ 0))) - (_%tl134561134579%_ + (##vector-ref _g137809_ 0))) + (_%tl135693135711%_ (let () (declare (not safe)) - (##vector-ref _g136677_ 1)))) + (##vector-ref _g137809_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134561134579%_)) - (letrec ((_%loop134562134582%_ - (lambda (_%hd134560134585%_ - _%expr134566134587%_) + (gx#stx-null? _%tl135693135711%_)) + (letrec ((_%loop135694135714%_ + (lambda (_%hd135692135717%_ + _%expr135698135719%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134560134585%_)) - (let ((_%e134563134590%_ + (gx#stx-pair? _%hd135692135717%_)) + (let ((_%e135695135722%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134560134585%_)))) - (let ((_%lp-hd134564134593%_ + _%hd135692135717%_)))) + (let ((_%lp-hd135696135725%_ (let () (declare (not safe)) - (##car _%e134563134590%_))) - (_%lp-tl134565134595%_ + (##car _%e135695135722%_))) + (_%lp-tl135697135727%_ (let () (declare (not safe)) - (##cdr _%e134563134590%_)))) - (_%loop134562134582%_ - _%lp-tl134565134595%_ - (cons _%lp-hd134564134593%_ - _%expr134566134587%_)))) - (let ((_%expr134567134598%_ - (reverse _%expr134566134587%_))) - ((lambda (_%L134601%_) - (let* ((_%g134615134622%_ - (lambda (_%g134616134619%_) + (##cdr _%e135695135722%_)))) + (_%loop135694135714%_ + _%lp-tl135697135727%_ + (cons _%lp-hd135696135725%_ + _%expr135698135719%_)))) + (let ((_%expr135699135730%_ + (reverse _%expr135698135719%_))) + ((lambda (_%L135733%_) + (let* ((_%g135747135754%_ + (lambda (_%g135748135751%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134616134619%_)))) - (_%g134614134647%_ - (lambda (_%g134616134625%_) - ((lambda (_%L134627%_) + _%g135748135751%_)))) + (_%g135746135779%_ + (lambda (_%g135748135757%_) + ((lambda (_%L135759%_) (gxc#xform-wrap-source - (cons _%L134536%_ + (cons _%L135668%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L134601%_ - _%L134535%_)) - (let ((__tmp136679 - (lambda (_%g134636134640%_ - _%g134637134642%_ - _%g134638134644%_) - (cons (cons _%g134637134642%_ - (cons _%g134636134640%_ + _%L135733%_ + _%L135667%_)) + (let ((__tmp137811 + (lambda (_%g135768135772%_ + _%g135769135774%_ + _%g135770135776%_) + (cons (cons _%g135769135774%_ + (cons _%g135768135772%_ '())) - _%g134638134644%_)))) + _%g135770135776%_)))) (declare (not safe)) (__foldr2 - __tmp136679 + __tmp137811 '() - _%L134601%_ - _%L134535%_))) - _%L134627%_)) - _%stx134433%_)) - _%g134616134625%_)))) + _%L135733%_ + _%L135667%_))) + _%L135759%_)) + _%stx135565%_)) + _%g135748135757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134614134647%_ - (map (lambda (_%g134649134651%_) + (_%g135746135779%_ + (map (lambda (_%g135781135783%_) (gxc#compile-e__1 - _%self134432%_ - _%g134649134651%_)) - _%L134533%_)))) - _%expr134567134598%_)))))) - (_%loop134562134582%_ _%target134559134577%_ '())) - (_%g134556134572%_ _%g134557134575%_))))) + _%self135564%_ + _%g135781135783%_)) + _%L135665%_)))) + _%expr135699135730%_)))))) + (_%loop135694135714%_ _%target135691135709%_ '())) + (_%g135688135704%_ _%g135689135707%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134556134572%_ - _%g134557134575%_))))) - (_%g134555134654%_ - (map (lambda (_%g134656134658%_) + (_%g135688135704%_ + _%g135689135707%_))))) + (_%g135687135786%_ + (map (lambda (_%g135788135790%_) (gxc#compile-e__1 - _%self134432%_ - _%g134656134658%_)) - (let ((__tmp136680 - (lambda (_%g134660134663%_ - _%g134661134665%_) - (cons _%g134660134663%_ - _%g134661134665%_)))) + _%self135564%_ + _%g135788135790%_)) + (let ((__tmp137812 + (lambda (_%g135792135795%_ + _%g135793135797%_) + (cons _%g135792135795%_ + _%g135793135797%_)))) (declare (not safe)) (__foldr1 - __tmp136680 + __tmp137812 '() - _%L134534%_))))))) - (__tmp136674 + _%L135666%_))))))) + (__tmp137806 (gxc#xform-let-locals - (let ((__tmp136675 - (lambda (_%g134667134670%_ - _%g134668134672%_) - (cons _%g134667134670%_ - _%g134668134672%_)))) + (let ((__tmp137807 + (lambda (_%g135799135802%_ + _%g135800135804%_) + (cons _%g135799135802%_ + _%g135800135804%_)))) (declare (not safe)) (__foldr1 - __tmp136675 + __tmp137807 '() - _%L134535%_))))) + _%L135667%_))))) (declare (not safe)) (__call-with-parameters - __tmp136676 + __tmp137808 gxc#current-compile-local-env - __tmp136674))) - _%tl134446134486%_ - _%expr134456134528%_ - _%hd134457134530%_ - _%hd134442134476%_)))))) + __tmp137806))) + _%tl135578135618%_ + _%expr135588135660%_ + _%hd135589135662%_ + _%hd135574135608%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop134450134494%_ - _%target134447134489%_ + (_%loop135582135626%_ + _%target135579135621%_ '() '())) - (_%g134435134468%_ - _%g134436134471%_))))) - (_%g134435134468%_ _%g134436134471%_)))) - (_%g134435134468%_ _%g134436134471%_)))) - (_%g134435134468%_ _%g134436134471%_))))) - (_%g134434134675%_ _%stx134433%_)))) + (_%g135567135600%_ + _%g135568135603%_))))) + (_%g135567135600%_ _%g135568135603%_)))) + (_%g135567135600%_ _%g135568135603%_)))) + (_%g135567135600%_ _%g135568135603%_))))) + (_%g135566135807%_ _%stx135565%_)))) (define gxc#xform-let-locals - (lambda (_%bindings134299%_) - (letrec ((_%flatten134301%_ - (lambda (_%maybe-lst134359%_) + (lambda (_%bindings135431%_) + (letrec ((_%flatten135433%_ + (lambda (_%maybe-lst135491%_) (if (let () (declare (not safe)) - (gx#identifier? _%maybe-lst134359%_)) - (cons _%maybe-lst134359%_ '()) - (let _%loop134361%_ ((_%rest134363%_ - _%maybe-lst134359%_) - (_%result134364%_ '())) - (let* ((_%__stx136568136569%_ _%rest134363%_) - (_%g134368134380%_ + (gx#identifier? _%maybe-lst135491%_)) + (cons _%maybe-lst135491%_ '()) + (let _%loop135493%_ ((_%rest135495%_ + _%maybe-lst135491%_) + (_%result135496%_ '())) + (let* ((_%__stx137700137701%_ _%rest135495%_) + (_%g135500135512%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx136568136569%_))))) - (let ((_%__kont136570136571%_ - (lambda (_%L134418%_ _%L134419%_) - (_%loop134361%_ - _%L134418%_ - (let ((__tmp136681 - (_%flatten134301%_ _%L134419%_))) + _%__stx137700137701%_))))) + (let ((_%__kont137702137703%_ + (lambda (_%L135550%_ _%L135551%_) + (_%loop135493%_ + _%L135550%_ + (let ((__tmp137813 + (_%flatten135433%_ _%L135551%_))) (declare (not safe)) (__foldl1 cons - _%result134364%_ - __tmp136681))))) - (_%__kont136572136573%_ - (lambda (_%L134392%_) - (cons _%L134392%_ _%result134364%_))) - (_%__kont136574136575%_ - (lambda () _%result134364%_))) - (let ((_%g134366134405%_ + _%result135496%_ + __tmp137813))))) + (_%__kont137704137705%_ + (lambda (_%L135524%_) + (cons _%L135524%_ _%result135496%_))) + (_%__kont137706137707%_ + (lambda () _%result135496%_))) + (let ((_%g135498135537%_ (lambda () - (let ((_%L134392%_ - _%__stx136568136569%_)) + (let ((_%L135524%_ + _%__stx137700137701%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L134392%_)) - (_%__kont136572136573%_ - _%L134392%_) - (_%__kont136574136575%_)))))) + (gx#identifier? _%L135524%_)) + (_%__kont137704137705%_ + _%L135524%_) + (_%__kont137706137707%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx136568136569%_)) - (let ((_%e134372134410%_ + (gx#stx-pair? _%__stx137700137701%_)) + (let ((_%e135504135542%_ (let () (declare (not safe)) (gx#stx-e - _%__stx136568136569%_)))) - (let ((_%tl134374134415%_ + _%__stx137700137701%_)))) + (let ((_%tl135506135547%_ (let () (declare (not safe)) - (##cdr _%e134372134410%_))) - (_%hd134373134413%_ + (##cdr _%e135504135542%_))) + (_%hd135505135545%_ (let () (declare (not safe)) - (##car _%e134372134410%_)))) - (_%__kont136570136571%_ - _%tl134374134415%_ - _%hd134373134413%_))) + (##car _%e135504135542%_)))) + (_%__kont137702137703%_ + _%tl135506135547%_ + _%hd135505135545%_))) (let () (declare (not safe)) - (_%g134366134405%_))))))))))) - (let _%loop134303%_ ((_%rest134305%_ - (_%flatten134301%_ _%bindings134299%_)) - (_%locals134306%_ + (_%g135498135537%_))))))))))) + (let _%loop135435%_ ((_%rest135437%_ + (_%flatten135433%_ _%bindings135431%_)) + (_%locals135438%_ (let () (declare (not safe)) (gxc#current-compile-local-env)))) - (let* ((_%rest134307134318%_ _%rest134305%_) - (_%E134311134322%_ + (let* ((_%rest135439135450%_ _%rest135437%_) + (_%E135443135454%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest134307134318%_ + _%rest135439135450%_ '([(? identifier? id) . rest]) '((? identifier? id)) '(_))) '#!void))) - (let ((_%K134314134347%_ - (lambda (_%rest134344%_ _%id134345%_) - (_%loop134303%_ - _%rest134344%_ + (let ((_%K135446135479%_ + (lambda (_%rest135476%_ _%id135477%_) + (_%loop135435%_ + _%rest135476%_ (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id134345%_)) - _%locals134306%_)))) - (_%K134313134336%_ - (lambda (_%id134334%_) + (gxc#identifier-symbol _%id135477%_)) + _%locals135438%_)))) + (_%K135445135468%_ + (lambda (_%id135466%_) (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id134334%_)) - _%locals134306%_))) - (_%K134312134327%_ (lambda () _%locals134306%_))) - (let ((_%try-match134309134341%_ + (gxc#identifier-symbol _%id135466%_)) + _%locals135438%_))) + (_%K135444135459%_ (lambda () _%locals135438%_))) + (let ((_%try-match135441135473%_ (lambda () (if (let () (declare (not safe)) - (gx#identifier? _%rest134307134318%_)) - (let ((_%id134339%_ _%rest134307134318%_)) - (_%K134313134336%_ _%id134339%_)) - (_%K134312134327%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest134307134318%_)) - (let ((_%tl134316134352%_ + (gx#identifier? _%rest135439135450%_)) + (let ((_%id135471%_ _%rest135439135450%_)) + (_%K135445135468%_ _%id135471%_)) + (_%K135444135459%_))))) + (if (pair? _%rest135439135450%_) + (let ((_%tl135448135484%_ (let () (declare (not safe)) - (##cdr _%rest134307134318%_))) - (_%hd134315134350%_ + (##cdr _%rest135439135450%_))) + (_%hd135447135482%_ (let () (declare (not safe)) - (##car _%rest134307134318%_)))) + (##car _%rest135439135450%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd134315134350%_)) - (let ((_%id134355%_ _%hd134315134350%_) - (_%rest134357%_ _%tl134316134352%_)) - (_%K134314134347%_ _%rest134357%_ _%id134355%_)) - (_%K134312134327%_))) - (_%try-match134309134341%_))))))))) + (gx#identifier? _%hd135447135482%_)) + (let ((_%id135487%_ _%hd135447135482%_) + (_%rest135489%_ _%tl135448135484%_)) + (_%K135446135479%_ _%rest135489%_ _%id135487%_)) + (_%K135444135459%_))) + (_%try-match135441135473%_))))))))) (define gxc#xform-operands - (lambda (_%self134251%_ _%stx134252%_) - (let* ((_%g134254134265%_ - (lambda (_%g134255134262%_) + (lambda (_%self135383%_ _%stx135384%_) + (let* ((_%g135386135397%_ + (lambda (_%g135387135394%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134255134262%_)))) - (_%g134253134296%_ - (lambda (_%g134255134268%_) + _%g135387135394%_)))) + (_%g135385135428%_ + (lambda (_%g135387135400%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134255134268%_)) - (let ((_%e134258134270%_ + (gx#stx-pair? _%g135387135400%_)) + (let ((_%e135390135402%_ (let () (declare (not safe)) - (gx#stx-e _%g134255134268%_)))) - (let ((_%hd134259134273%_ + (gx#stx-e _%g135387135400%_)))) + (let ((_%hd135391135405%_ (let () (declare (not safe)) - (##car _%e134258134270%_))) - (_%tl134260134275%_ + (##car _%e135390135402%_))) + (_%tl135392135407%_ (let () (declare (not safe)) - (##cdr _%e134258134270%_)))) - ((lambda (_%L134278%_ _%L134279%_) - (let ((_%rands134294%_ - (map (lambda (_%g134289134291%_) + (##cdr _%e135390135402%_)))) + ((lambda (_%L135410%_ _%L135411%_) + (let ((_%rands135426%_ + (map (lambda (_%g135421135423%_) (gxc#compile-e__1 - _%self134251%_ - _%g134289134291%_)) - _%L134278%_))) + _%self135383%_ + _%g135421135423%_)) + _%L135410%_))) (gxc#xform-wrap-source - (cons _%L134279%_ _%rands134294%_) - _%stx134252%_))) - _%tl134260134275%_ - _%hd134259134273%_))) - (_%g134254134265%_ _%g134255134268%_))))) - (_%g134253134296%_ _%stx134252%_)))) + (cons _%L135411%_ _%rands135426%_) + _%stx135384%_))) + _%tl135392135407%_ + _%hd135391135405%_))) + (_%g135386135397%_ _%g135387135400%_))))) + (_%g135385135428%_ _%stx135384%_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_%self134181%_ _%stx134182%_) - (let* ((_%g134184134201%_ - (lambda (_%g134185134198%_) + (lambda (_%self135313%_ _%stx135314%_) + (let* ((_%g135316135333%_ + (lambda (_%g135317135330%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134185134198%_)))) - (_%g134183134248%_ - (lambda (_%g134185134204%_) + _%g135317135330%_)))) + (_%g135315135380%_ + (lambda (_%g135317135336%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134185134204%_)) - (let ((_%e134188134206%_ + (gx#stx-pair? _%g135317135336%_)) + (let ((_%e135320135338%_ (let () (declare (not safe)) - (gx#stx-e _%g134185134204%_)))) - (let ((_%hd134189134209%_ + (gx#stx-e _%g135317135336%_)))) + (let ((_%hd135321135341%_ (let () (declare (not safe)) - (##car _%e134188134206%_))) - (_%tl134190134211%_ + (##car _%e135320135338%_))) + (_%tl135322135343%_ (let () (declare (not safe)) - (##cdr _%e134188134206%_)))) + (##cdr _%e135320135338%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134190134211%_)) - (let ((_%e134191134214%_ + (gx#stx-pair? _%tl135322135343%_)) + (let ((_%e135323135346%_ (let () (declare (not safe)) - (gx#stx-e _%tl134190134211%_)))) - (let ((_%hd134192134217%_ + (gx#stx-e _%tl135322135343%_)))) + (let ((_%hd135324135349%_ (let () (declare (not safe)) - (##car _%e134191134214%_))) - (_%tl134193134219%_ + (##car _%e135323135346%_))) + (_%tl135325135351%_ (let () (declare (not safe)) - (##cdr _%e134191134214%_)))) + (##cdr _%e135323135346%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134193134219%_)) - (let ((_%e134194134222%_ + (gx#stx-pair? _%tl135325135351%_)) + (let ((_%e135326135354%_ (let () (declare (not safe)) - (gx#stx-e _%tl134193134219%_)))) - (let ((_%hd134195134225%_ + (gx#stx-e _%tl135325135351%_)))) + (let ((_%hd135327135357%_ (let () (declare (not safe)) - (##car _%e134194134222%_))) - (_%tl134196134227%_ + (##car _%e135326135354%_))) + (_%tl135328135359%_ (let () (declare (not safe)) - (##cdr _%e134194134222%_)))) + (##cdr _%e135326135354%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134196134227%_)) - ((lambda (_%L134230%_ - _%L134231%_) - (let ((_%expr134246%_ + _%tl135328135359%_)) + ((lambda (_%L135362%_ + _%L135363%_) + (let ((_%expr135378%_ (gxc#compile-e__1 - _%self134181%_ - _%L134230%_))) + _%self135313%_ + _%L135362%_))) (gxc#xform-wrap-source (cons '%#set! - (cons _%L134231%_ - (cons _%expr134246%_ + (cons _%L135363%_ + (cons _%expr135378%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx134182%_))) - _%hd134195134225%_ - _%hd134192134217%_) - (_%g134184134201%_ - _%g134185134204%_)))) - (_%g134184134201%_ _%g134185134204%_)))) - (_%g134184134201%_ _%g134185134204%_)))) - (_%g134184134201%_ _%g134185134204%_))))) - (_%g134183134248%_ _%stx134182%_)))))) + _%stx135314%_))) + _%hd135327135357%_ + _%hd135324135349%_) + (_%g135316135333%_ + _%g135317135336%_)))) + (_%g135316135333%_ _%g135317135336%_)))) + (_%g135316135333%_ _%g135317135336%_)))) + (_%g135316135333%_ _%g135317135336%_))))) + (_%g135315135380%_ _%stx135314%_)))))) diff --git a/src/bootstrap/gerbil/compiler/method~1.scm b/src/bootstrap/gerbil/compiler/method~1.scm index ab9e42f9a..d24f873d8 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]#_g136709_| + (define |gxc[1]#_g137841_| (##structure gx#syntax-quote::t '::void-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136711_| + (define |gxc[1]#_g137843_| (##structure gx#syntax-quote::t 'make-::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136713_| + (define |gxc[1]#_g137845_| (##structure gx#syntax-quote::t '::void-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136715_| + (define |gxc[1]#_g137847_| (##structure gx#syntax-quote::t '::void-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136717_| + (define |gxc[1]#_g137849_| (##structure gx#syntax-quote::t 'make-::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136719_| + (define |gxc[1]#_g137851_| (##structure gx#syntax-quote::t '::void-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136721_| + (define |gxc[1]#_g137853_| (##structure gx#syntax-quote::t '::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136722_| + (define |gxc[1]#_g137854_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136724_| + (define |gxc[1]#_g137856_| (##structure gx#syntax-quote::t '::void::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136726_| + (define |gxc[1]#_g137858_| (##structure gx#syntax-quote::t 'make-::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136728_| + (define |gxc[1]#_g137860_| (##structure gx#syntax-quote::t '::void? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136730_| + (define |gxc[1]#_g137862_| (##structure gx#syntax-quote::t '::false-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136732_| + (define |gxc[1]#_g137864_| (##structure gx#syntax-quote::t 'make-::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136734_| + (define |gxc[1]#_g137866_| (##structure gx#syntax-quote::t '::false-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136736_| + (define |gxc[1]#_g137868_| (##structure gx#syntax-quote::t '::false-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136738_| + (define |gxc[1]#_g137870_| (##structure gx#syntax-quote::t 'make-::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136740_| + (define |gxc[1]#_g137872_| (##structure gx#syntax-quote::t '::false-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136742_| + (define |gxc[1]#_g137874_| (##structure gx#syntax-quote::t '::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136743_| + (define |gxc[1]#_g137875_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136745_| + (define |gxc[1]#_g137877_| (##structure gx#syntax-quote::t '::false::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136747_| + (define |gxc[1]#_g137879_| (##structure gx#syntax-quote::t 'make-::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136749_| + (define |gxc[1]#_g137881_| (##structure gx#syntax-quote::t '::false? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136751_| + (define |gxc[1]#_g137883_| (##structure gx#syntax-quote::t '::identity-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136753_| + (define |gxc[1]#_g137885_| (##structure gx#syntax-quote::t 'make-::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136755_| + (define |gxc[1]#_g137887_| (##structure gx#syntax-quote::t '::identity-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136757_| + (define |gxc[1]#_g137889_| (##structure gx#syntax-quote::t '::identity-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136759_| + (define |gxc[1]#_g137891_| (##structure gx#syntax-quote::t 'make-::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136761_| + (define |gxc[1]#_g137893_| (##structure gx#syntax-quote::t '::identity-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136763_| + (define |gxc[1]#_g137895_| (##structure gx#syntax-quote::t '::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136764_| + (define |gxc[1]#_g137896_| (##structure gx#syntax-quote::t '::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136766_| + (define |gxc[1]#_g137898_| (##structure gx#syntax-quote::t '::identity::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136768_| + (define |gxc[1]#_g137900_| (##structure gx#syntax-quote::t 'make-::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136770_| + (define |gxc[1]#_g137902_| (##structure gx#syntax-quote::t '::identity? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136772_| + (define |gxc[1]#_g137904_| (##structure gx#syntax-quote::t '::basic-xform-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136774_| + (define |gxc[1]#_g137906_| (##structure gx#syntax-quote::t 'make-::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136776_| + (define |gxc[1]#_g137908_| (##structure gx#syntax-quote::t '::basic-xform-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136778_| + (define |gxc[1]#_g137910_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136779_| + (define |gxc[1]#_g137911_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136781_| + (define |gxc[1]#_g137913_| (##structure gx#syntax-quote::t '::basic-xform::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136783_| + (define |gxc[1]#_g137915_| (##structure gx#syntax-quote::t 'make-::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136785_| + (define |gxc[1]#_g137917_| (##structure gx#syntax-quote::t '::basic-xform? @@ -289,161 +289,161 @@ '())) (begin (define |gxc[:0:]#defcompile-method| - (lambda (_%stx132723%_) - (let* ((_%__stx136424136425%_ _%stx132723%_) - (_%g132729132923%_ + (lambda (_%stx133855%_) + (let* ((_%__stx137556137557%_ _%stx133855%_) + (_%g133861134055%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx136424136425%_))))) - (let ((_%__kont136427136428%_ - (lambda (_%L134143%_ _%L134145%_ _%L134146%_ _%L134147%_) + _%__stx137556137557%_))))) + (let ((_%__kont137559137560%_ + (lambda (_%L135275%_ _%L135277%_ _%L135278%_ _%L135279%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defcompile-method)) - (cons _%L134147%_ - (cons (cons _%L134146%_ '()) - (cons _%L134145%_ _%L134143%_)))))) - (_%__kont136429136430%_ - (lambda (_%L133897%_ - _%L133899%_ - _%L133900%_ - _%L133901%_ - _%L133902%_) - (let* ((_%g133933133961%_ - (lambda (_%g133934133957%_) + (cons _%L135279%_ + (cons (cons _%L135278%_ '()) + (cons _%L135277%_ _%L135275%_)))))) + (_%__kont137561137562%_ + (lambda (_%L135029%_ + _%L135031%_ + _%L135032%_ + _%L135033%_ + _%L135034%_) + (let* ((_%g135065135093%_ + (lambda (_%g135066135089%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133934133957%_)))) - (_%g133932134081%_ - (lambda (_%g133934133965%_) + _%g135066135089%_)))) + (_%g135064135213%_ + (lambda (_%g135066135097%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133934133965%_)) - (let ((_%e133938133968%_ + (gx#stx-pair? _%g135066135097%_)) + (let ((_%e135070135100%_ (let () (declare (not safe)) - (gx#syntax-e _%g133934133965%_)))) - (let ((_%hd133939133972%_ + (gx#syntax-e _%g135066135097%_)))) + (let ((_%hd135071135104%_ (let () (declare (not safe)) - (##car _%e133938133968%_))) - (_%tl133940133975%_ + (##car _%e135070135100%_))) + (_%tl135072135107%_ (let () (declare (not safe)) - (##cdr _%e133938133968%_)))) + (##cdr _%e135070135100%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133940133975%_)) - (let ((_%e133941133978%_ + (gx#stx-pair? _%tl135072135107%_)) + (let ((_%e135073135110%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133940133975%_)))) - (let ((_%hd133942133982%_ + _%tl135072135107%_)))) + (let ((_%hd135074135114%_ (let () (declare (not safe)) - (##car _%e133941133978%_))) - (_%tl133943133985%_ + (##car _%e135073135110%_))) + (_%tl135075135117%_ (let () (declare (not safe)) - (##cdr _%e133941133978%_)))) + (##cdr _%e135073135110%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd133942133982%_)) - (let ((_g136682_ + _%hd135074135114%_)) + (let ((_g137814_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd133942133982%_ + _%hd135074135114%_ '0)))) (begin - (let ((_g136683_ + (let ((_g137815_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g136682_) - (##vector-length _g136682_) + _g137814_) + (##vector-length _g137814_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g136683_ 2))) - (error "Context expects 2 values" _g136683_))) + (if (not (let () (declare (not safe)) (##fx= _g137815_ 2))) + (error "Context expects 2 values" _g137815_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target133944133988%_ + (let ((_%target135076135120%_ (let () (declare (not safe)) (##vector-ref - _g136682_ + _g137814_ 0))) - (_%tl133946133991%_ + (_%tl135078135123%_ (let () (declare (not safe)) (##vector-ref - _g136682_ + _g137814_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133946133991%_)) - (letrec ((_%loop133947133994%_ + _%tl135078135123%_)) + (letrec ((_%loop135079135126%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd133945133998%_ - _%super-bind-methods!133951134001%_) + (lambda (_%hd135077135130%_ + _%super-bind-methods!135083135133%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133945133998%_)) - (let ((_%e133948134004%_ + (gx#stx-pair? _%hd135077135130%_)) + (let ((_%e135080135136%_ (let () (declare (not safe)) - (gx#syntax-e _%hd133945133998%_)))) - (let ((_%lp-hd133949134008%_ + (gx#syntax-e _%hd135077135130%_)))) + (let ((_%lp-hd135081135140%_ (let () (declare (not safe)) - (##car _%e133948134004%_))) - (_%lp-tl133950134011%_ + (##car _%e135080135136%_))) + (_%lp-tl135082135143%_ (let () (declare (not safe)) - (##cdr _%e133948134004%_)))) - (_%loop133947133994%_ - _%lp-tl133950134011%_ - (cons _%lp-hd133949134008%_ - _%super-bind-methods!133951134001%_)))) - (let ((_%super-bind-methods!133952134014%_ - (reverse _%super-bind-methods!133951134001%_))) + (##cdr _%e135080135136%_)))) + (_%loop135079135126%_ + _%lp-tl135082135143%_ + (cons _%lp-hd135081135140%_ + _%super-bind-methods!135083135133%_)))) + (let ((_%super-bind-methods!135084135146%_ + (reverse _%super-bind-methods!135083135133%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133943133985%_)) - (let ((_%e133953134018%_ + (gx#stx-pair? _%tl135075135117%_)) + (let ((_%e135085135150%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133943133985%_)))) - (let ((_%hd133954134022%_ + _%tl135075135117%_)))) + (let ((_%hd135086135154%_ (let () (declare (not safe)) - (##car _%e133953134018%_))) - (_%tl133955134025%_ + (##car _%e135085135150%_))) + (_%tl135087135157%_ (let () (declare (not safe)) - (##cdr _%e133953134018%_)))) + (##cdr _%e135085135150%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133955134025%_)) - ((lambda (_%L134028%_ - _%L134030%_ - _%L134031%_) + _%tl135087135157%_)) + ((lambda (_%L135160%_ + _%L135162%_ + _%L135163%_) (cons (let () (declare (not safe)) @@ -454,22 +454,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L133902%_ - (let ((__tmp136684 - (lambda (_%g134058134061%_ - _%g134059134064%_) - (cons _%g134058134061%_ - _%g134059134064%_)))) + (cons (cons _%L135034%_ + (let ((__tmp137816 + (lambda (_%g135190135193%_ + _%g135191135196%_) + (cons _%g135190135193%_ + _%g135191135196%_)))) (declare (not safe)) (__foldr1 - __tmp136684 + __tmp137816 '() - _%L133901%_))) - (cons _%L133900%_ '()))) + _%L135033%_))) + (cons _%L135032%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L134031%_ + (cons _%L135163%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -479,234 +479,234 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp136687 - (lambda (_%g134053134067%_ _%g134054134070%_) + (let ((__tmp137819 + (lambda (_%g135185135199%_ _%g135186135202%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g134053134067%_ '())) - _%g134054134070%_))) - (__tmp136685 + (cons _%g135185135199%_ '())) + _%g135186135202%_))) + (__tmp137817 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L133897%_ - _%L133899%_)) - (let ((__tmp136686 - (lambda (_%g134055134073%_ - _%g134056134076%_ - _%g134057134078%_) + _%L135029%_ + _%L135031%_)) + (let ((__tmp137818 + (lambda (_%g135187135205%_ + _%g135188135208%_ + _%g135189135210%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L134028%_ + (cons _%L135160%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g134056134076%_ '())) - (cons _%g134055134073%_ '())))) + (cons _%g135188135208%_ '())) + (cons _%g135187135205%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g134057134078%_)))) + _%g135189135210%_)))) (declare (not safe)) (__foldr2 - __tmp136686 + __tmp137818 '() - _%L133897%_ - _%L133899%_))))) + _%L135029%_ + _%L135031%_))))) (declare (not safe)) - (__foldr1 __tmp136687 __tmp136685 _%L134030%_))) + (__foldr1 __tmp137819 __tmp137817 _%L135162%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd133954134022%_ - _%super-bind-methods!133952134014%_ - _%hd133939133972%_) - (_%g133933133961%_ - _%g133934133965%_)))) - (_%g133933133961%_ - _%g133934133965%_))))))) - (_%loop133947133994%_ _%target133944133988%_ '())) - (_%g133933133961%_ _%g133934133965%_))))) + _%hd135086135154%_ + _%super-bind-methods!135084135146%_ + _%hd135071135104%_) + (_%g135065135093%_ + _%g135066135097%_)))) + (_%g135065135093%_ + _%g135066135097%_))))))) + (_%loop135079135126%_ _%target135076135120%_ '())) + (_%g135065135093%_ _%g135066135097%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g133933133961%_ - _%g133934133965%_)))) - (_%g133933133961%_ - _%g133934133965%_)))) - (_%g133933133961%_ _%g133934133965%_))))) - (_%g133932134081%_ + (_%g135065135093%_ + _%g135066135097%_)))) + (_%g135065135093%_ + _%g135066135097%_)))) + (_%g135065135093%_ _%g135066135097%_))))) + (_%g135064135213%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L133902%_ - _%L133902%_ + _%L135034%_ + _%L135034%_ '"-bind-methods!")) - (map (lambda (_%super134085%_) + (map (lambda (_%super135217%_) (let () (declare (not safe)) (gx#stx-identifier - _%super134085%_ - _%super134085%_ + _%super135217%_ + _%super135217%_ '"-bind-methods!"))) - (let ((__tmp136688 - (lambda (_%g134087134090%_ - _%g134088134093%_) - (cons _%g134087134090%_ - _%g134088134093%_)))) + (let ((__tmp137820 + (lambda (_%g135219135222%_ + _%g135220135225%_) + (cons _%g135219135222%_ + _%g135220135225%_)))) (declare (not safe)) - (__foldr1 __tmp136688 '() _%L133901%_))) + (__foldr1 __tmp137820 '() _%L135033%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L133902%_ - _%L133902%_ + _%L135034%_ + _%L135034%_ '"::t"))))))) - (_%__kont136435136436%_ - (lambda (_%L133528%_ - _%L133530%_ - _%L133531%_ - _%L133532%_ - _%L133533%_ - _%L133534%_ - _%L133535%_) - (let* ((_%g133573133601%_ - (lambda (_%g133574133597%_) + (_%__kont137567137568%_ + (lambda (_%L134660%_ + _%L134662%_ + _%L134663%_ + _%L134664%_ + _%L134665%_ + _%L134666%_ + _%L134667%_) + (let* ((_%g134705134733%_ + (lambda (_%g134706134729%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133574133597%_)))) - (_%g133572133737%_ - (lambda (_%g133574133605%_) + _%g134706134729%_)))) + (_%g134704134869%_ + (lambda (_%g134706134737%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133574133605%_)) - (let ((_%e133578133608%_ + (gx#stx-pair? _%g134706134737%_)) + (let ((_%e134710134740%_ (let () (declare (not safe)) - (gx#syntax-e _%g133574133605%_)))) - (let ((_%hd133579133612%_ + (gx#syntax-e _%g134706134737%_)))) + (let ((_%hd134711134744%_ (let () (declare (not safe)) - (##car _%e133578133608%_))) - (_%tl133580133615%_ + (##car _%e134710134740%_))) + (_%tl134712134747%_ (let () (declare (not safe)) - (##cdr _%e133578133608%_)))) + (##cdr _%e134710134740%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133580133615%_)) - (let ((_%e133581133618%_ + (gx#stx-pair? _%tl134712134747%_)) + (let ((_%e134713134750%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133580133615%_)))) - (let ((_%hd133582133622%_ + _%tl134712134747%_)))) + (let ((_%hd134714134754%_ (let () (declare (not safe)) - (##car _%e133581133618%_))) - (_%tl133583133625%_ + (##car _%e134713134750%_))) + (_%tl134715134757%_ (let () (declare (not safe)) - (##cdr _%e133581133618%_)))) + (##cdr _%e134713134750%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd133582133622%_)) - (let ((_g136689_ + _%hd134714134754%_)) + (let ((_g137821_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd133582133622%_ + _%hd134714134754%_ '0)))) (begin - (let ((_g136690_ + (let ((_g137822_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g136689_) - (##vector-length _g136689_) + _g137821_) + (##vector-length _g137821_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g136690_ 2))) - (error "Context expects 2 values" _g136690_))) + (if (not (let () (declare (not safe)) (##fx= _g137822_ 2))) + (error "Context expects 2 values" _g137822_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target133584133628%_ + (let ((_%target134716134760%_ (let () (declare (not safe)) (##vector-ref - _g136689_ + _g137821_ 0))) - (_%tl133586133631%_ + (_%tl134718134763%_ (let () (declare (not safe)) (##vector-ref - _g136689_ + _g137821_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133586133631%_)) - (letrec ((_%loop133587133634%_ + _%tl134718134763%_)) + (letrec ((_%loop134719134766%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd133585133638%_ - _%super-bind-methods!133591133641%_) + (lambda (_%hd134717134770%_ + _%super-bind-methods!134723134773%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133585133638%_)) - (let ((_%e133588133644%_ + (gx#stx-pair? _%hd134717134770%_)) + (let ((_%e134720134776%_ (let () (declare (not safe)) - (gx#syntax-e _%hd133585133638%_)))) - (let ((_%lp-hd133589133648%_ + (gx#syntax-e _%hd134717134770%_)))) + (let ((_%lp-hd134721134780%_ (let () (declare (not safe)) - (##car _%e133588133644%_))) - (_%lp-tl133590133651%_ + (##car _%e134720134776%_))) + (_%lp-tl134722134783%_ (let () (declare (not safe)) - (##cdr _%e133588133644%_)))) - (_%loop133587133634%_ - _%lp-tl133590133651%_ - (cons _%lp-hd133589133648%_ - _%super-bind-methods!133591133641%_)))) - (let ((_%super-bind-methods!133592133654%_ - (reverse _%super-bind-methods!133591133641%_))) + (##cdr _%e134720134776%_)))) + (_%loop134719134766%_ + _%lp-tl134722134783%_ + (cons _%lp-hd134721134780%_ + _%super-bind-methods!134723134773%_)))) + (let ((_%super-bind-methods!134724134786%_ + (reverse _%super-bind-methods!134723134773%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133583133625%_)) - (let ((_%e133593133658%_ + (gx#stx-pair? _%tl134715134757%_)) + (let ((_%e134725134790%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133583133625%_)))) - (let ((_%hd133594133662%_ + _%tl134715134757%_)))) + (let ((_%hd134726134794%_ (let () (declare (not safe)) - (##car _%e133593133658%_))) - (_%tl133595133665%_ + (##car _%e134725134790%_))) + (_%tl134727134797%_ (let () (declare (not safe)) - (##cdr _%e133593133658%_)))) + (##cdr _%e134725134790%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133595133665%_)) - ((lambda (_%L133668%_ - _%L133670%_ - _%L133671%_) + _%tl134727134797%_)) + ((lambda (_%L134800%_ + _%L134802%_ + _%L134803%_) (cons (let () (declare (not safe)) @@ -717,22 +717,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L133533%_ - (let ((__tmp136691 - (lambda (_%g133702133705%_ - _%g133703133708%_) - (cons _%g133702133705%_ - _%g133703133708%_)))) + (cons (cons _%L134665%_ + (let ((__tmp137823 + (lambda (_%g134834134837%_ + _%g134835134840%_) + (cons _%g134834134837%_ + _%g134835134840%_)))) (declare (not safe)) (__foldr1 - __tmp136691 + __tmp137823 '() - _%L133532%_))) - (cons _%L133531%_ '()))) + _%L134664%_))) + (cons _%L134663%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L133671%_ + (cons _%L134803%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -742,67 +742,67 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp136694 - (lambda (_%g133697133711%_ _%g133698133714%_) + (let ((__tmp137826 + (lambda (_%g134829134843%_ _%g134830134846%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g133697133711%_ '())) - _%g133698133714%_))) - (__tmp136692 + (cons _%g134829134843%_ '())) + _%g134830134846%_))) + (__tmp137824 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L133528%_ - _%L133530%_)) - (let ((__tmp136693 - (lambda (_%g133699133717%_ - _%g133700133720%_ - _%g133701133722%_) + _%L134660%_ + _%L134662%_)) + (let ((__tmp137825 + (lambda (_%g134831134849%_ + _%g134832134852%_ + _%g134833134854%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L133668%_ + (cons _%L134800%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g133700133720%_ '())) - (cons _%g133699133717%_ '())))) + (cons _%g134832134852%_ '())) + (cons _%g134831134849%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g133701133722%_)))) + _%g134833134854%_)))) (declare (not safe)) (__foldr2 - __tmp136693 + __tmp137825 '() - _%L133528%_ - _%L133530%_))))) + _%L134660%_ + _%L134662%_))))) (declare (not safe)) - (__foldr1 __tmp136694 __tmp136692 _%L133670%_))) + (__foldr1 __tmp137826 __tmp137824 _%L134802%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L133535%_ + (cons (cons _%L134667%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp136695 + (let ((__tmp137827 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g133695133725%_ _%g133696133728%_) - (cons _%g133695133725%_ _%g133696133728%_)))) + (lambda (_%g134827134857%_ _%g134828134860%_) + (cons _%g134827134857%_ _%g134828134860%_)))) (declare (not safe)) - (__foldr1 __tmp136695 '() _%L133534%_)))) + (__foldr1 __tmp137827 '() _%L134666%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -810,7 +810,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L133671%_ + (cons _%L134803%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -819,18 +819,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L133533%_ - (let ((__tmp136696 - (lambda (_%g133693133731%_ + (cons (cons _%L134665%_ + (let ((__tmp137828 + (lambda (_%g134825134863%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g133694133734%_) - (cons _%g133693133731%_ _%g133694133734%_)))) + _%g134826134866%_) + (cons _%g134825134863%_ _%g134826134866%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp136696 + __tmp137828 '() - _%L133534%_))) + _%L134666%_))) '())) (cons (cons (let () (declare (not safe)) @@ -867,187 +867,187 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd133594133662%_ - _%super-bind-methods!133592133654%_ - _%hd133579133612%_) - (_%g133573133601%_ - _%g133574133605%_)))) - (_%g133573133601%_ - _%g133574133605%_))))))) - (_%loop133587133634%_ _%target133584133628%_ '())) - (_%g133573133601%_ _%g133574133605%_))))) + _%hd134726134794%_ + _%super-bind-methods!134724134786%_ + _%hd134711134744%_) + (_%g134705134733%_ + _%g134706134737%_)))) + (_%g134705134733%_ + _%g134706134737%_))))))) + (_%loop134719134766%_ _%target134716134760%_ '())) + (_%g134705134733%_ _%g134706134737%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g133573133601%_ - _%g133574133605%_)))) - (_%g133573133601%_ - _%g133574133605%_)))) - (_%g133573133601%_ _%g133574133605%_))))) - (_%g133572133737%_ + (_%g134705134733%_ + _%g134706134737%_)))) + (_%g134705134733%_ + _%g134706134737%_)))) + (_%g134705134733%_ _%g134706134737%_))))) + (_%g134704134869%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L133533%_ - _%L133533%_ + _%L134665%_ + _%L134665%_ '"-bind-methods!")) - (map (lambda (_%super133741%_) + (map (lambda (_%super134873%_) (let () (declare (not safe)) (gx#stx-identifier - _%super133741%_ - _%super133741%_ + _%super134873%_ + _%super134873%_ '"-bind-methods!"))) - (let ((__tmp136697 - (lambda (_%g133743133746%_ - _%g133744133749%_) - (cons _%g133743133746%_ - _%g133744133749%_)))) + (let ((__tmp137829 + (lambda (_%g134875134878%_ + _%g134876134881%_) + (cons _%g134875134878%_ + _%g134876134881%_)))) (declare (not safe)) - (__foldr1 __tmp136697 '() _%L133532%_))) + (__foldr1 __tmp137829 '() _%L134664%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L133533%_ - _%L133533%_ + _%L134665%_ + _%L134665%_ '"::t"))))))) - (_%__kont136443136444%_ - (lambda (_%L133118%_ - _%L133120%_ - _%L133121%_ - _%L133122%_ - _%L133123%_ - _%L133124%_ - _%L133125%_) - (let* ((_%g133168133196%_ - (lambda (_%g133169133192%_) + (_%__kont137575137576%_ + (lambda (_%L134250%_ + _%L134252%_ + _%L134253%_ + _%L134254%_ + _%L134255%_ + _%L134256%_ + _%L134257%_) + (let* ((_%g134300134328%_ + (lambda (_%g134301134324%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133169133192%_)))) - (_%g133167133332%_ - (lambda (_%g133169133200%_) + _%g134301134324%_)))) + (_%g134299134464%_ + (lambda (_%g134301134332%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133169133200%_)) - (let ((_%e133173133203%_ + (gx#stx-pair? _%g134301134332%_)) + (let ((_%e134305134335%_ (let () (declare (not safe)) - (gx#syntax-e _%g133169133200%_)))) - (let ((_%hd133174133207%_ + (gx#syntax-e _%g134301134332%_)))) + (let ((_%hd134306134339%_ (let () (declare (not safe)) - (##car _%e133173133203%_))) - (_%tl133175133210%_ + (##car _%e134305134335%_))) + (_%tl134307134342%_ (let () (declare (not safe)) - (##cdr _%e133173133203%_)))) + (##cdr _%e134305134335%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133175133210%_)) - (let ((_%e133176133213%_ + (gx#stx-pair? _%tl134307134342%_)) + (let ((_%e134308134345%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133175133210%_)))) - (let ((_%hd133177133217%_ + _%tl134307134342%_)))) + (let ((_%hd134309134349%_ (let () (declare (not safe)) - (##car _%e133176133213%_))) - (_%tl133178133220%_ + (##car _%e134308134345%_))) + (_%tl134310134352%_ (let () (declare (not safe)) - (##cdr _%e133176133213%_)))) + (##cdr _%e134308134345%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd133177133217%_)) - (let ((_g136698_ + _%hd134309134349%_)) + (let ((_g137830_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd133177133217%_ + _%hd134309134349%_ '0)))) (begin - (let ((_g136699_ + (let ((_g137831_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g136698_) - (##vector-length _g136698_) + _g137830_) + (##vector-length _g137830_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g136699_ 2))) - (error "Context expects 2 values" _g136699_))) + (if (not (let () (declare (not safe)) (##fx= _g137831_ 2))) + (error "Context expects 2 values" _g137831_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target133179133223%_ + (let ((_%target134311134355%_ (let () (declare (not safe)) (##vector-ref - _g136698_ + _g137830_ 0))) - (_%tl133181133226%_ + (_%tl134313134358%_ (let () (declare (not safe)) (##vector-ref - _g136698_ + _g137830_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133181133226%_)) - (letrec ((_%loop133182133229%_ + _%tl134313134358%_)) + (letrec ((_%loop134314134361%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd133180133233%_ - _%super-bind-methods!133186133236%_) + (lambda (_%hd134312134365%_ + _%super-bind-methods!134318134368%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133180133233%_)) - (let ((_%e133183133239%_ + (gx#stx-pair? _%hd134312134365%_)) + (let ((_%e134315134371%_ (let () (declare (not safe)) - (gx#syntax-e _%hd133180133233%_)))) - (let ((_%lp-hd133184133243%_ + (gx#syntax-e _%hd134312134365%_)))) + (let ((_%lp-hd134316134375%_ (let () (declare (not safe)) - (##car _%e133183133239%_))) - (_%lp-tl133185133246%_ + (##car _%e134315134371%_))) + (_%lp-tl134317134378%_ (let () (declare (not safe)) - (##cdr _%e133183133239%_)))) - (_%loop133182133229%_ - _%lp-tl133185133246%_ - (cons _%lp-hd133184133243%_ - _%super-bind-methods!133186133236%_)))) - (let ((_%super-bind-methods!133187133249%_ - (reverse _%super-bind-methods!133186133236%_))) + (##cdr _%e134315134371%_)))) + (_%loop134314134361%_ + _%lp-tl134317134378%_ + (cons _%lp-hd134316134375%_ + _%super-bind-methods!134318134368%_)))) + (let ((_%super-bind-methods!134319134381%_ + (reverse _%super-bind-methods!134318134368%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133178133220%_)) - (let ((_%e133188133253%_ + (gx#stx-pair? _%tl134310134352%_)) + (let ((_%e134320134385%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133178133220%_)))) - (let ((_%hd133189133257%_ + _%tl134310134352%_)))) + (let ((_%hd134321134389%_ (let () (declare (not safe)) - (##car _%e133188133253%_))) - (_%tl133190133260%_ + (##car _%e134320134385%_))) + (_%tl134322134392%_ (let () (declare (not safe)) - (##cdr _%e133188133253%_)))) + (##cdr _%e134320134385%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133190133260%_)) - ((lambda (_%L133263%_ - _%L133265%_ - _%L133266%_) + _%tl134322134392%_)) + ((lambda (_%L134395%_ + _%L134397%_ + _%L134398%_) (cons (let () (declare (not safe)) @@ -1058,23 +1058,23 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L133123%_ - (let ((__tmp136700 - (lambda (_%g133297133300%_ - _%g133298133303%_) - (cons _%g133297133300%_ - _%g133298133303%_)))) + (cons (cons _%L134255%_ + (let ((__tmp137832 + (lambda (_%g134429134432%_ + _%g134430134435%_) + (cons _%g134429134432%_ + _%g134430134435%_)))) (declare (not safe)) (__foldr1 - __tmp136700 + __tmp137832 '() - _%L133122%_))) - (cons _%L133121%_ + _%L134254%_))) + (cons _%L134253%_ (cons 'final: (cons '#t '()))))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L133266%_ + (cons _%L134398%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1084,75 +1084,75 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp136704 - (lambda (_%g133292133306%_ _%g133293133309%_) + (let ((__tmp137836 + (lambda (_%g134424134438%_ _%g134425134441%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g133292133306%_ '())) - _%g133293133309%_))) - (__tmp136701 + (cons _%g134424134438%_ '())) + _%g134425134441%_))) + (__tmp137833 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L133118%_ - _%L133120%_)) - (let ((__tmp136703 - (lambda (_%g133294133312%_ - _%g133295133315%_ - _%g133296133317%_) + _%L134250%_ + _%L134252%_)) + (let ((__tmp137835 + (lambda (_%g134426134444%_ + _%g134427134447%_ + _%g134428134449%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L133263%_ + (cons _%L134395%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g133295133315%_ '())) - (cons _%g133294133312%_ '())))) + (cons _%g134427134447%_ '())) + (cons _%g134426134444%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g133296133317%_))) - (__tmp136702 + _%g134428134449%_))) + (__tmp137834 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'seal-class!)) - (cons _%L133263%_ '())) + (cons _%L134395%_ '())) '()))) (declare (not safe)) (__foldr2 - __tmp136703 - __tmp136702 - _%L133118%_ - _%L133120%_))))) + __tmp137835 + __tmp137834 + _%L134250%_ + _%L134252%_))))) (declare (not safe)) - (__foldr1 __tmp136704 __tmp136701 _%L133265%_))) + (__foldr1 __tmp137836 __tmp137833 _%L134397%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L133125%_ + (cons (cons _%L134257%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp136705 + (let ((__tmp137837 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g133290133320%_ _%g133291133323%_) - (cons _%g133290133320%_ _%g133291133323%_)))) + (lambda (_%g134422134452%_ _%g134423134455%_) + (cons _%g134422134452%_ _%g134423134455%_)))) (declare (not safe)) - (__foldr1 __tmp136705 '() _%L133124%_)))) + (__foldr1 __tmp137837 '() _%L134256%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -1160,7 +1160,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L133266%_ + (cons _%L134398%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -1169,18 +1169,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L133123%_ - (let ((__tmp136706 - (lambda (_%g133288133326%_ + (cons (cons _%L134255%_ + (let ((__tmp137838 + (lambda (_%g134420134458%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g133289133329%_) - (cons _%g133288133326%_ _%g133289133329%_)))) + _%g134421134461%_) + (cons _%g134420134458%_ _%g134421134461%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp136706 + __tmp137838 '() - _%L133124%_))) + _%L134256%_))) '())) (cons (cons (let () (declare (not safe)) @@ -1217,1364 +1217,1364 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd133189133257%_ - _%super-bind-methods!133187133249%_ - _%hd133174133207%_) - (_%g133168133196%_ - _%g133169133200%_)))) - (_%g133168133196%_ - _%g133169133200%_))))))) - (_%loop133182133229%_ _%target133179133223%_ '())) - (_%g133168133196%_ _%g133169133200%_))))) + _%hd134321134389%_ + _%super-bind-methods!134319134381%_ + _%hd134306134339%_) + (_%g134300134328%_ + _%g134301134332%_)))) + (_%g134300134328%_ + _%g134301134332%_))))))) + (_%loop134314134361%_ _%target134311134355%_ '())) + (_%g134300134328%_ _%g134301134332%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g133168133196%_ - _%g133169133200%_)))) - (_%g133168133196%_ - _%g133169133200%_)))) - (_%g133168133196%_ _%g133169133200%_))))) - (_%g133167133332%_ + (_%g134300134328%_ + _%g134301134332%_)))) + (_%g134300134328%_ + _%g134301134332%_)))) + (_%g134300134328%_ _%g134301134332%_))))) + (_%g134299134464%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L133123%_ - _%L133123%_ + _%L134255%_ + _%L134255%_ '"-bind-methods!")) - (map (lambda (_%super133336%_) + (map (lambda (_%super134468%_) (let () (declare (not safe)) (gx#stx-identifier - _%super133336%_ - _%super133336%_ + _%super134468%_ + _%super134468%_ '"-bind-methods!"))) - (let ((__tmp136707 - (lambda (_%g133338133341%_ - _%g133339133344%_) - (cons _%g133338133341%_ - _%g133339133344%_)))) + (let ((__tmp137839 + (lambda (_%g134470134473%_ + _%g134471134476%_) + (cons _%g134470134473%_ + _%g134471134476%_)))) (declare (not safe)) - (__foldr1 __tmp136707 '() _%L133122%_))) + (__foldr1 __tmp137839 '() _%L134254%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L133123%_ - _%L133123%_ + _%L134255%_ + _%L134255%_ '"::t")))))))) - (let* ((_%__match136565136566%_ - (lambda (_%e132861132930%_ - _%hd132862132934%_ - _%tl132863132937%_ - _%e132864132940%_ - _%hd132865132944%_ - _%tl132866132947%_ - _%e132867132950%_ - _%hd132868132954%_ - _%tl132869132957%_ - _%__splice136445136446%_ - _%target132870132960%_ - _%tl132872132963%_) - (letrec ((_%loop132873132966%_ - (lambda (_%hd132871132970%_ - _%arg132877132973%_) + (let* ((_%__match137697137698%_ + (lambda (_%e133993134062%_ + _%hd133994134066%_ + _%tl133995134069%_ + _%e133996134072%_ + _%hd133997134076%_ + _%tl133998134079%_ + _%e133999134082%_ + _%hd134000134086%_ + _%tl134001134089%_ + _%__splice137577137578%_ + _%target134002134092%_ + _%tl134004134095%_) + (letrec ((_%loop134005134098%_ + (lambda (_%hd134003134102%_ + _%arg134009134105%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132871132970%_)) - (let ((_%e132874132976%_ + (gx#stx-pair? _%hd134003134102%_)) + (let ((_%e134006134108%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132871132970%_)))) - (let ((_%lp-tl132876132983%_ + _%hd134003134102%_)))) + (let ((_%lp-tl134008134115%_ (let () (declare (not safe)) - (##cdr _%e132874132976%_))) - (_%lp-hd132875132980%_ + (##cdr _%e134006134108%_))) + (_%lp-hd134007134112%_ (let () (declare (not safe)) - (##car _%e132874132976%_)))) - (_%loop132873132966%_ - _%lp-tl132876132983%_ - (cons _%lp-hd132875132980%_ - _%arg132877132973%_)))) - (let ((_%arg132878132986%_ - (reverse _%arg132877132973%_))) + (##car _%e134006134108%_)))) + (_%loop134005134098%_ + _%lp-tl134008134115%_ + (cons _%lp-hd134007134112%_ + _%arg134009134105%_)))) + (let ((_%arg134010134118%_ + (reverse _%arg134009134105%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132866132947%_)) - (let ((_%e132879132990%_ + _%tl133998134079%_)) + (let ((_%e134011134122%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132866132947%_)))) - (let ((_%tl132881132997%_ + _%tl133998134079%_)))) + (let ((_%tl134013134129%_ (let () (declare (not safe)) - (##cdr _%e132879132990%_))) - (_%hd132880132994%_ + (##cdr _%e134011134122%_))) + (_%hd134012134126%_ (let () (declare (not safe)) - (##car _%e132879132990%_)))) + (##car _%e134011134122%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd132880132994%_)) - (let ((_%e132882133000%_ + _%hd134012134126%_)) + (let ((_%e134014134132%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132880132994%_)))) - (let ((_%tl132884133007%_ + _%hd134012134126%_)))) + (let ((_%tl134016134139%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e132882133000%_))) - (_%hd132883133004%_ - (let () (declare (not safe)) (##car _%e132882133000%_)))) + (##cdr _%e134014134132%_))) + (_%hd134015134136%_ + (let () (declare (not safe)) (##car _%e134014134132%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl132884133007%_)) - (let ((_%__splice136447136448%_ + (gx#stx-pair/null? _%tl134016134139%_)) + (let ((_%__splice137579137580%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl132884133007%_ '0)))) - (let ((_%tl132887133013%_ + (gx#syntax-split-splice _%tl134016134139%_ '0)))) + (let ((_%tl134019134145%_ (let () (declare (not safe)) - (##vector-ref _%__splice136447136448%_ '1))) - (_%target132885133010%_ + (##vector-ref _%__splice137579137580%_ '1))) + (_%target134017134142%_ (let () (declare (not safe)) - (##vector-ref _%__splice136447136448%_ '0)))) + (##vector-ref _%__splice137579137580%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132887133013%_)) - (letrec ((_%loop132888133016%_ - (lambda (_%hd132886133020%_ - _%super132892133023%_) + (gx#stx-null? _%tl134019134145%_)) + (letrec ((_%loop134020134148%_ + (lambda (_%hd134018134152%_ + _%super134024134155%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd132886133020%_)) - (let ((_%e132889133026%_ + _%hd134018134152%_)) + (let ((_%e134021134158%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132886133020%_)))) - (let ((_%lp-tl132891133033%_ + _%hd134018134152%_)))) + (let ((_%lp-tl134023134165%_ (let () (declare (not safe)) - (##cdr _%e132889133026%_))) - (_%lp-hd132890133030%_ + (##cdr _%e134021134158%_))) + (_%lp-hd134022134162%_ (let () (declare (not safe)) - (##car _%e132889133026%_)))) - (_%loop132888133016%_ - _%lp-tl132891133033%_ - (cons _%lp-hd132890133030%_ - _%super132892133023%_)))) - (let ((_%super132893133036%_ - (reverse _%super132892133023%_))) + (##car _%e134021134158%_)))) + (_%loop134020134148%_ + _%lp-tl134023134165%_ + (cons _%lp-hd134022134162%_ + _%super134024134155%_)))) + (let ((_%super134025134168%_ + (reverse _%super134024134155%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132881132997%_)) - (let ((_%e132894133040%_ + _%tl134013134129%_)) + (let ((_%e134026134172%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132881132997%_)))) - (let ((_%tl132896133047%_ + _%tl134013134129%_)))) + (let ((_%tl134028134179%_ (let () (declare (not safe)) - (##cdr _%e132894133040%_))) - (_%hd132895133044%_ + (##cdr _%e134026134172%_))) + (_%hd134027134176%_ (let () (declare (not safe)) - (##car _%e132894133040%_)))) + (##car _%e134026134172%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132896133047%_)) - (let ((_%e132897133050%_ + _%tl134028134179%_)) + (let ((_%e134029134182%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl132896133047%_)))) - (let ((_%tl132899133057%_ + (gx#syntax-e _%tl134028134179%_)))) + (let ((_%tl134031134189%_ (let () (declare (not safe)) - (##cdr _%e132897133050%_))) - (_%hd132898133054%_ + (##cdr _%e134029134182%_))) + (_%hd134030134186%_ (let () (declare (not safe)) - (##car _%e132897133050%_)))) + (##car _%e134029134182%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd132898133054%_)) - (let ((_%e132900133060%_ + (gx#stx-datum? _%hd134030134186%_)) + (let ((_%e134032134192%_ (let () (declare (not safe)) - (gx#stx-e _%hd132898133054%_)))) - (if (equal? _%e132900133060%_ 'final:) + (gx#stx-e _%hd134030134186%_)))) + (if (equal? _%e134032134192%_ 'final:) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl132899133057%_)) - (let ((_%__splice136449136450%_ + (gx#stx-pair/null? _%tl134031134189%_)) + (let ((_%__splice137581137582%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl132899133057%_ + _%tl134031134189%_ '0)))) - (let ((_%tl132903133067%_ + (let ((_%tl134035134199%_ (let () (declare (not safe)) (##vector-ref - _%__splice136449136450%_ + _%__splice137581137582%_ '1))) - (_%target132901133064%_ + (_%target134033134196%_ (let () (declare (not safe)) (##vector-ref - _%__splice136449136450%_ + _%__splice137581137582%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132903133067%_)) - (letrec ((_%loop132904133070%_ - (lambda (_%hd132902133074%_ - _%implementation132908133077%_ - _%method132909133079%_) + _%tl134035134199%_)) + (letrec ((_%loop134036134202%_ + (lambda (_%hd134034134206%_ + _%implementation134040134209%_ + _%method134041134211%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd132902133074%_)) - (let ((_%e132905133082%_ + _%hd134034134206%_)) + (let ((_%e134037134214%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd132902133074%_)))) - (let ((_%lp-tl132907133089%_ + (gx#syntax-e _%hd134034134206%_)))) + (let ((_%lp-tl134039134221%_ (let () (declare (not safe)) - (##cdr _%e132905133082%_))) - (_%lp-hd132906133086%_ + (##cdr _%e134037134214%_))) + (_%lp-hd134038134218%_ (let () (declare (not safe)) - (##car _%e132905133082%_)))) + (##car _%e134037134214%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd132906133086%_)) - (let ((_%e132912133092%_ + (gx#stx-pair? _%lp-hd134038134218%_)) + (let ((_%e134044134224%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd132906133086%_)))) - (let ((_%tl132914133099%_ + (gx#syntax-e _%lp-hd134038134218%_)))) + (let ((_%tl134046134231%_ (let () (declare (not safe)) - (##cdr _%e132912133092%_))) - (_%hd132913133096%_ + (##cdr _%e134044134224%_))) + (_%hd134045134228%_ (let () (declare (not safe)) - (##car _%e132912133092%_)))) + (##car _%e134044134224%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132914133099%_)) - (let ((_%e132915133102%_ + (gx#stx-pair? _%tl134046134231%_)) + (let ((_%e134047134234%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132914133099%_)))) - (let ((_%tl132917133109%_ + _%tl134046134231%_)))) + (let ((_%tl134049134241%_ (let () (declare (not safe)) - (##cdr _%e132915133102%_))) - (_%hd132916133106%_ + (##cdr _%e134047134234%_))) + (_%hd134048134238%_ (let () (declare (not safe)) - (##car _%e132915133102%_)))) + (##car _%e134047134234%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132917133109%_)) - (_%loop132904133070%_ - _%lp-tl132907133089%_ - (cons _%hd132916133106%_ - _%implementation132908133077%_) - (cons _%hd132913133096%_ - _%method132909133079%_)) + _%tl134049134241%_)) + (_%loop134036134202%_ + _%lp-tl134039134221%_ + (cons _%hd134048134238%_ + _%implementation134040134209%_) + (cons _%hd134045134228%_ + _%method134041134211%_)) (let () (declare (not safe)) - (_%g132729132923%_))))) + (_%g133861134055%_))))) (let () (declare (not safe)) - (_%g132729132923%_))))) + (_%g133861134055%_))))) (let () (declare (not safe)) - (_%g132729132923%_))))) - (let ((_%method132911133115%_ - (reverse _%method132909133079%_)) - (_%implementation132910133112%_ - (reverse _%implementation132908133077%_))) - (_%__kont136443136444%_ - _%implementation132910133112%_ - _%method132911133115%_ - _%hd132895133044%_ - _%super132893133036%_ - _%hd132883133004%_ - _%arg132878132986%_ - _%hd132868132954%_)))))) + (_%g133861134055%_))))) + (let ((_%method134043134247%_ + (reverse _%method134041134211%_)) + (_%implementation134042134244%_ + (reverse _%implementation134040134209%_))) + (_%__kont137575137576%_ + _%implementation134042134244%_ + _%method134043134247%_ + _%hd134027134176%_ + _%super134025134168%_ + _%hd134015134136%_ + _%arg134010134118%_ + _%hd134000134086%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop132904133070%_ - _%target132901133064%_ + (_%loop134036134202%_ + _%target134033134196%_ '() '())) (let () (declare (not safe)) - (_%g132729132923%_))))) + (_%g133861134055%_))))) (let () (declare (not safe)) - (_%g132729132923%_))) + (_%g133861134055%_))) (let () (declare (not safe)) - (_%g132729132923%_)))) - (let () (declare (not safe)) (_%g132729132923%_))))) - (let () (declare (not safe)) (_%g132729132923%_))))) + (_%g133861134055%_)))) + (let () (declare (not safe)) (_%g133861134055%_))))) + (let () (declare (not safe)) (_%g133861134055%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g132729132923%_)))))))) - (_%loop132888133016%_ - _%target132885133010%_ + (_%g133861134055%_)))))))) + (_%loop134020134148%_ + _%target134017134142%_ '())) (let () (declare (not safe)) - (_%g132729132923%_))))) - (let () (declare (not safe)) (_%g132729132923%_))))) + (_%g133861134055%_))))) + (let () (declare (not safe)) (_%g133861134055%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g132729132923%_))))) + (_%g133861134055%_))))) (let () (declare (not safe)) - (_%g132729132923%_)))))))) - (_%loop132873132966%_ _%target132870132960%_ '())))) - (_%__match136539136540%_ - (lambda (_%e132801133354%_ - _%hd132802133358%_ - _%tl132803133361%_ - _%e132804133364%_ - _%hd132805133368%_ - _%tl132806133371%_ - _%e132807133374%_ - _%hd132808133378%_ - _%tl132809133381%_ - _%__splice136437136438%_ - _%target132810133384%_ - _%tl132812133387%_) - (letrec ((_%loop132813133390%_ - (lambda (_%hd132811133394%_ - _%arg132817133397%_) + (_%g133861134055%_)))))))) + (_%loop134005134098%_ _%target134002134092%_ '())))) + (_%__match137671137672%_ + (lambda (_%e133933134486%_ + _%hd133934134490%_ + _%tl133935134493%_ + _%e133936134496%_ + _%hd133937134500%_ + _%tl133938134503%_ + _%e133939134506%_ + _%hd133940134510%_ + _%tl133941134513%_ + _%__splice137569137570%_ + _%target133942134516%_ + _%tl133944134519%_) + (letrec ((_%loop133945134522%_ + (lambda (_%hd133943134526%_ + _%arg133949134529%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132811133394%_)) - (let ((_%e132814133400%_ + (gx#stx-pair? _%hd133943134526%_)) + (let ((_%e133946134532%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132811133394%_)))) - (let ((_%lp-tl132816133407%_ + _%hd133943134526%_)))) + (let ((_%lp-tl133948134539%_ (let () (declare (not safe)) - (##cdr _%e132814133400%_))) - (_%lp-hd132815133404%_ + (##cdr _%e133946134532%_))) + (_%lp-hd133947134536%_ (let () (declare (not safe)) - (##car _%e132814133400%_)))) - (_%loop132813133390%_ - _%lp-tl132816133407%_ - (cons _%lp-hd132815133404%_ - _%arg132817133397%_)))) - (let ((_%arg132818133410%_ - (reverse _%arg132817133397%_))) + (##car _%e133946134532%_)))) + (_%loop133945134522%_ + _%lp-tl133948134539%_ + (cons _%lp-hd133947134536%_ + _%arg133949134529%_)))) + (let ((_%arg133950134542%_ + (reverse _%arg133949134529%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132806133371%_)) - (let ((_%e132819133414%_ + _%tl133938134503%_)) + (let ((_%e133951134546%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132806133371%_)))) - (let ((_%tl132821133421%_ + _%tl133938134503%_)))) + (let ((_%tl133953134553%_ (let () (declare (not safe)) - (##cdr _%e132819133414%_))) - (_%hd132820133418%_ + (##cdr _%e133951134546%_))) + (_%hd133952134550%_ (let () (declare (not safe)) - (##car _%e132819133414%_)))) + (##car _%e133951134546%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd132820133418%_)) - (let ((_%e132822133424%_ + _%hd133952134550%_)) + (let ((_%e133954134556%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132820133418%_)))) - (let ((_%tl132824133431%_ + _%hd133952134550%_)))) + (let ((_%tl133956134563%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e132822133424%_))) - (_%hd132823133428%_ - (let () (declare (not safe)) (##car _%e132822133424%_)))) + (##cdr _%e133954134556%_))) + (_%hd133955134560%_ + (let () (declare (not safe)) (##car _%e133954134556%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl132824133431%_)) - (let ((_%__splice136439136440%_ + (gx#stx-pair/null? _%tl133956134563%_)) + (let ((_%__splice137571137572%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl132824133431%_ '0)))) - (let ((_%tl132827133437%_ + (gx#syntax-split-splice _%tl133956134563%_ '0)))) + (let ((_%tl133959134569%_ (let () (declare (not safe)) - (##vector-ref _%__splice136439136440%_ '1))) - (_%target132825133434%_ + (##vector-ref _%__splice137571137572%_ '1))) + (_%target133957134566%_ (let () (declare (not safe)) - (##vector-ref _%__splice136439136440%_ '0)))) + (##vector-ref _%__splice137571137572%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132827133437%_)) - (letrec ((_%loop132828133440%_ - (lambda (_%hd132826133444%_ - _%super132832133447%_) + (gx#stx-null? _%tl133959134569%_)) + (letrec ((_%loop133960134572%_ + (lambda (_%hd133958134576%_ + _%super133964134579%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd132826133444%_)) - (let ((_%e132829133450%_ + _%hd133958134576%_)) + (let ((_%e133961134582%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132826133444%_)))) - (let ((_%lp-tl132831133457%_ + _%hd133958134576%_)))) + (let ((_%lp-tl133963134589%_ (let () (declare (not safe)) - (##cdr _%e132829133450%_))) - (_%lp-hd132830133454%_ + (##cdr _%e133961134582%_))) + (_%lp-hd133962134586%_ (let () (declare (not safe)) - (##car _%e132829133450%_)))) - (_%loop132828133440%_ - _%lp-tl132831133457%_ - (cons _%lp-hd132830133454%_ - _%super132832133447%_)))) - (let ((_%super132833133460%_ - (reverse _%super132832133447%_))) + (##car _%e133961134582%_)))) + (_%loop133960134572%_ + _%lp-tl133963134589%_ + (cons _%lp-hd133962134586%_ + _%super133964134579%_)))) + (let ((_%super133965134592%_ + (reverse _%super133964134579%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132821133421%_)) - (let ((_%e132834133464%_ + _%tl133953134553%_)) + (let ((_%e133966134596%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132821133421%_)))) - (let ((_%tl132836133471%_ + _%tl133953134553%_)))) + (let ((_%tl133968134603%_ (let () (declare (not safe)) - (##cdr _%e132834133464%_))) - (_%hd132835133468%_ + (##cdr _%e133966134596%_))) + (_%hd133967134600%_ (let () (declare (not safe)) - (##car _%e132834133464%_)))) + (##car _%e133966134596%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl132836133471%_)) - (let ((_%__splice136441136442%_ + _%tl133968134603%_)) + (let ((_%__splice137573137574%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl132836133471%_ '0)))) - (let ((_%tl132839133477%_ + (gx#syntax-split-splice _%tl133968134603%_ '0)))) + (let ((_%tl133971134609%_ (let () (declare (not safe)) - (##vector-ref _%__splice136441136442%_ '1))) - (_%target132837133474%_ + (##vector-ref _%__splice137573137574%_ '1))) + (_%target133969134606%_ (let () (declare (not safe)) - (##vector-ref _%__splice136441136442%_ '0)))) + (##vector-ref _%__splice137573137574%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132839133477%_)) - (letrec ((_%loop132840133480%_ - (lambda (_%hd132838133484%_ - _%implementation132844133487%_ - _%method132845133489%_) + (gx#stx-null? _%tl133971134609%_)) + (letrec ((_%loop133972134612%_ + (lambda (_%hd133970134616%_ + _%implementation133976134619%_ + _%method133977134621%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132838133484%_)) - (let ((_%e132841133492%_ + (gx#stx-pair? _%hd133970134616%_)) + (let ((_%e133973134624%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132838133484%_)))) - (let ((_%lp-tl132843133499%_ + _%hd133970134616%_)))) + (let ((_%lp-tl133975134631%_ (let () (declare (not safe)) - (##cdr _%e132841133492%_))) - (_%lp-hd132842133496%_ + (##cdr _%e133973134624%_))) + (_%lp-hd133974134628%_ (let () (declare (not safe)) - (##car _%e132841133492%_)))) + (##car _%e133973134624%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd132842133496%_)) - (let ((_%e132848133502%_ + _%lp-hd133974134628%_)) + (let ((_%e133980134634%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd132842133496%_)))) - (let ((_%tl132850133509%_ + _%lp-hd133974134628%_)))) + (let ((_%tl133982134641%_ (let () (declare (not safe)) - (##cdr _%e132848133502%_))) - (_%hd132849133506%_ + (##cdr _%e133980134634%_))) + (_%hd133981134638%_ (let () (declare (not safe)) - (##car _%e132848133502%_)))) + (##car _%e133980134634%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132850133509%_)) - (let ((_%e132851133512%_ + _%tl133982134641%_)) + (let ((_%e133983134644%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl132850133509%_)))) - (let ((_%tl132853133519%_ + (gx#syntax-e _%tl133982134641%_)))) + (let ((_%tl133985134651%_ (let () (declare (not safe)) - (##cdr _%e132851133512%_))) - (_%hd132852133516%_ + (##cdr _%e133983134644%_))) + (_%hd133984134648%_ (let () (declare (not safe)) - (##car _%e132851133512%_)))) + (##car _%e133983134644%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132853133519%_)) - (_%loop132840133480%_ - _%lp-tl132843133499%_ - (cons _%hd132852133516%_ - _%implementation132844133487%_) - (cons _%hd132849133506%_ _%method132845133489%_)) - (_%__match136565136566%_ - _%e132801133354%_ - _%hd132802133358%_ - _%tl132803133361%_ - _%e132804133364%_ - _%hd132805133368%_ - _%tl132806133371%_ - _%e132807133374%_ - _%hd132808133378%_ - _%tl132809133381%_ - _%__splice136437136438%_ - _%target132810133384%_ - _%tl132812133387%_)))) - (_%__match136565136566%_ - _%e132801133354%_ - _%hd132802133358%_ - _%tl132803133361%_ - _%e132804133364%_ - _%hd132805133368%_ - _%tl132806133371%_ - _%e132807133374%_ - _%hd132808133378%_ - _%tl132809133381%_ - _%__splice136437136438%_ - _%target132810133384%_ - _%tl132812133387%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match136565136566%_ - _%e132801133354%_ - _%hd132802133358%_ - _%tl132803133361%_ - _%e132804133364%_ - _%hd132805133368%_ - _%tl132806133371%_ - _%e132807133374%_ - _%hd132808133378%_ - _%tl132809133381%_ - _%__splice136437136438%_ - _%target132810133384%_ - _%tl132812133387%_)))) - (let ((_%method132847133525%_ - (reverse _%method132845133489%_)) - (_%implementation132846133522%_ - (reverse _%implementation132844133487%_))) - (_%__kont136435136436%_ - _%implementation132846133522%_ - _%method132847133525%_ - _%hd132835133468%_ - _%super132833133460%_ - _%hd132823133428%_ - _%arg132818133410%_ - _%hd132808133378%_)))))) - (_%loop132840133480%_ - _%target132837133474%_ + (_%__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%_ '() '())) - (_%__match136565136566%_ - _%e132801133354%_ - _%hd132802133358%_ - _%tl132803133361%_ - _%e132804133364%_ - _%hd132805133368%_ - _%tl132806133371%_ - _%e132807133374%_ - _%hd132808133378%_ - _%tl132809133381%_ - _%__splice136437136438%_ - _%target132810133384%_ - _%tl132812133387%_)))) - (_%__match136565136566%_ - _%e132801133354%_ - _%hd132802133358%_ - _%tl132803133361%_ - _%e132804133364%_ - _%hd132805133368%_ - _%tl132806133371%_ - _%e132807133374%_ - _%hd132808133378%_ - _%tl132809133381%_ - _%__splice136437136438%_ - _%target132810133384%_ - _%tl132812133387%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match136565136566%_ - _%e132801133354%_ - _%hd132802133358%_ - _%tl132803133361%_ - _%e132804133364%_ - _%hd132805133368%_ - _%tl132806133371%_ - _%e132807133374%_ - _%hd132808133378%_ - _%tl132809133381%_ - _%__splice136437136438%_ - _%target132810133384%_ - _%tl132812133387%_))))))) - (_%loop132828133440%_ - _%target132825133434%_ + (_%__match137697137698%_ + _%e133933134486%_ + _%hd133934134490%_ + _%tl133935134493%_ + _%e133936134496%_ + _%hd133937134500%_ + _%tl133938134503%_ + _%e133939134506%_ + _%hd133940134510%_ + _%tl133941134513%_ + _%__splice137569137570%_ + _%target133942134516%_ + _%tl133944134519%_))))))) + (_%loop133960134572%_ + _%target133957134566%_ '())) - (_%__match136565136566%_ - _%e132801133354%_ - _%hd132802133358%_ - _%tl132803133361%_ - _%e132804133364%_ - _%hd132805133368%_ - _%tl132806133371%_ - _%e132807133374%_ - _%hd132808133378%_ - _%tl132809133381%_ - _%__splice136437136438%_ - _%target132810133384%_ - _%tl132812133387%_)))) - (_%__match136565136566%_ - _%e132801133354%_ - _%hd132802133358%_ - _%tl132803133361%_ - _%e132804133364%_ - _%hd132805133368%_ - _%tl132806133371%_ - _%e132807133374%_ - _%hd132808133378%_ - _%tl132809133381%_ - _%__splice136437136438%_ - _%target132810133384%_ - _%tl132812133387%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match136565136566%_ - _%e132801133354%_ - _%hd132802133358%_ - _%tl132803133361%_ - _%e132804133364%_ - _%hd132805133368%_ - _%tl132806133371%_ - _%e132807133374%_ - _%hd132808133378%_ - _%tl132809133381%_ - _%__splice136437136438%_ - _%target132810133384%_ - _%tl132812133387%_)))) - (_%__match136565136566%_ - _%e132801133354%_ - _%hd132802133358%_ - _%tl132803133361%_ - _%e132804133364%_ - _%hd132805133368%_ - _%tl132806133371%_ - _%e132807133374%_ - _%hd132808133378%_ - _%tl132809133381%_ - _%__splice136437136438%_ - _%target132810133384%_ - _%tl132812133387%_))))))) - (_%loop132813133390%_ _%target132810133384%_ '())))) - (_%__match136513136514%_ - (lambda (_%e132752133759%_ - _%hd132753133763%_ - _%tl132754133766%_ - _%e132755133769%_ - _%hd132756133773%_ - _%tl132757133776%_ - _%e132758133779%_ - _%e132759133783%_ - _%hd132760133787%_ - _%tl132761133790%_ - _%e132762133793%_ - _%hd132763133797%_ - _%tl132764133800%_ - _%__splice136431136432%_ - _%target132765133803%_ - _%tl132767133806%_) - (letrec ((_%loop132768133809%_ - (lambda (_%hd132766133813%_ - _%super132772133816%_) + (_%__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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132766133813%_)) - (let ((_%e132769133819%_ + (gx#stx-pair? _%hd133898134945%_)) + (let ((_%e133901134951%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132766133813%_)))) - (let ((_%lp-tl132771133826%_ + _%hd133898134945%_)))) + (let ((_%lp-tl133903134958%_ (let () (declare (not safe)) - (##cdr _%e132769133819%_))) - (_%lp-hd132770133823%_ + (##cdr _%e133901134951%_))) + (_%lp-hd133902134955%_ (let () (declare (not safe)) - (##car _%e132769133819%_)))) - (_%loop132768133809%_ - _%lp-tl132771133826%_ - (cons _%lp-hd132770133823%_ - _%super132772133816%_)))) - (let ((_%super132773133829%_ - (reverse _%super132772133816%_))) + (##car _%e133901134951%_)))) + (_%loop133900134941%_ + _%lp-tl133903134958%_ + (cons _%lp-hd133902134955%_ + _%super133904134948%_)))) + (let ((_%super133905134961%_ + (reverse _%super133904134948%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132761133790%_)) - (let ((_%e132774133833%_ + _%tl133893134922%_)) + (let ((_%e133906134965%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132761133790%_)))) - (let ((_%tl132776133840%_ + _%tl133893134922%_)))) + (let ((_%tl133908134972%_ (let () (declare (not safe)) - (##cdr _%e132774133833%_))) - (_%hd132775133837%_ + (##cdr _%e133906134965%_))) + (_%hd133907134969%_ (let () (declare (not safe)) - (##car _%e132774133833%_)))) + (##car _%e133906134965%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl132776133840%_)) - (let ((_%__splice136433136434%_ + _%tl133908134972%_)) + (let ((_%__splice137565137566%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl132776133840%_ + _%tl133908134972%_ '0)))) - (let ((_%tl132779133846%_ + (let ((_%tl133911134978%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice136433136434%_ '1))) - (_%target132777133843%_ + (##vector-ref _%__splice137565137566%_ '1))) + (_%target133909134975%_ (let () (declare (not safe)) - (##vector-ref _%__splice136433136434%_ '0)))) + (##vector-ref _%__splice137565137566%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132779133846%_)) - (letrec ((_%loop132780133849%_ - (lambda (_%hd132778133853%_ - _%implementation132784133856%_ - _%method132785133858%_) + (gx#stx-null? _%tl133911134978%_)) + (letrec ((_%loop133912134981%_ + (lambda (_%hd133910134985%_ + _%implementation133916134988%_ + _%method133917134990%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132778133853%_)) - (let ((_%e132781133861%_ + (gx#stx-pair? _%hd133910134985%_)) + (let ((_%e133913134993%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132778133853%_)))) - (let ((_%lp-tl132783133868%_ + _%hd133910134985%_)))) + (let ((_%lp-tl133915135000%_ (let () (declare (not safe)) - (##cdr _%e132781133861%_))) - (_%lp-hd132782133865%_ + (##cdr _%e133913134993%_))) + (_%lp-hd133914134997%_ (let () (declare (not safe)) - (##car _%e132781133861%_)))) + (##car _%e133913134993%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd132782133865%_)) - (let ((_%e132788133871%_ + _%lp-hd133914134997%_)) + (let ((_%e133920135003%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd132782133865%_)))) - (let ((_%tl132790133878%_ + _%lp-hd133914134997%_)))) + (let ((_%tl133922135010%_ (let () (declare (not safe)) - (##cdr _%e132788133871%_))) - (_%hd132789133875%_ + (##cdr _%e133920135003%_))) + (_%hd133921135007%_ (let () (declare (not safe)) - (##car _%e132788133871%_)))) + (##car _%e133920135003%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132790133878%_)) - (let ((_%e132791133881%_ + _%tl133922135010%_)) + (let ((_%e133923135013%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132790133878%_)))) - (let ((_%tl132793133888%_ + _%tl133922135010%_)))) + (let ((_%tl133925135020%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e132791133881%_))) - (_%hd132792133885%_ - (let () (declare (not safe)) (##car _%e132791133881%_)))) + (##cdr _%e133923135013%_))) + (_%hd133924135017%_ + (let () (declare (not safe)) (##car _%e133923135013%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132793133888%_)) - (_%loop132780133849%_ - _%lp-tl132783133868%_ - (cons _%hd132792133885%_ _%implementation132784133856%_) - (cons _%hd132789133875%_ _%method132785133858%_)) - (let () (declare (not safe)) (_%g132729132923%_))))) + (gx#stx-null? _%tl133925135020%_)) + (_%loop133912134981%_ + _%lp-tl133915135000%_ + (cons _%hd133924135017%_ _%implementation133916134988%_) + (cons _%hd133921135007%_ _%method133917134990%_)) + (let () (declare (not safe)) (_%g133861134055%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g132729132923%_))))) + (_%g133861134055%_))))) (let () (declare (not safe)) - (_%g132729132923%_))))) - (let ((_%method132787133894%_ - (reverse _%method132785133858%_)) - (_%implementation132786133891%_ - (reverse _%implementation132784133856%_))) - (_%__kont136429136430%_ - _%implementation132786133891%_ - _%method132787133894%_ - _%hd132775133837%_ - _%super132773133829%_ - _%hd132763133797%_)))))) - (_%loop132780133849%_ _%target132777133843%_ '() '())) - (let () (declare (not safe)) (_%g132729132923%_))))) + (_%g133861134055%_))))) + (let ((_%method133919135026%_ + (reverse _%method133917134990%_)) + (_%implementation133918135023%_ + (reverse _%implementation133916134988%_))) + (_%__kont137561137562%_ + _%implementation133918135023%_ + _%method133919135026%_ + _%hd133907134969%_ + _%super133905134961%_ + _%hd133895134929%_)))))) + (_%loop133912134981%_ _%target133909134975%_ '() '())) + (let () (declare (not safe)) (_%g133861134055%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g132729132923%_))))) + (_%g133861134055%_))))) (let () (declare (not safe)) - (_%g132729132923%_)))))))) - (_%loop132768133809%_ _%target132765133803%_ '())))) - (_%__match136475136476%_ - (lambda (_%e132735134103%_ - _%hd132736134107%_ - _%tl132737134110%_ - _%e132738134113%_ - _%hd132739134117%_ - _%tl132740134120%_ - _%e132741134123%_ - _%hd132742134127%_ - _%tl132743134130%_ - _%e132744134133%_ - _%hd132745134137%_ - _%tl132746134140%_) - (let ((_%L134143%_ _%tl132746134140%_) - (_%L134145%_ _%hd132745134137%_) - (_%L134146%_ _%hd132742134127%_) - (_%L134147%_ _%hd132739134117%_)) + (_%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%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L134146%_)) - (_%__kont136427136428%_ - _%L134143%_ - _%L134145%_ - _%L134146%_ - _%L134147%_) + (gx#identifier? _%L135278%_)) + (_%__kont137559137560%_ + _%L135275%_ + _%L135277%_ + _%L135278%_ + _%L135279%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd132739134117%_)) - (let ((_%e132758133779%_ + (gx#stx-datum? _%hd133871135249%_)) + (let ((_%e133890134911%_ (let () (declare (not safe)) - (gx#stx-e _%hd132739134117%_)))) - (if (equal? _%e132758133779%_ '#f) + (gx#stx-e _%hd133871135249%_)))) + (if (equal? _%e133890134911%_ '#f) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132742134127%_)) - (let ((_%e132762133793%_ + (gx#stx-pair? _%hd133874135259%_)) + (let ((_%e133894134925%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132742134127%_)))) - (let ((_%tl132764133800%_ + _%hd133874135259%_)))) + (let ((_%tl133896134932%_ (let () (declare (not safe)) - (##cdr _%e132762133793%_))) - (_%hd132763133797%_ + (##cdr _%e133894134925%_))) + (_%hd133895134929%_ (let () (declare (not safe)) - (##car _%e132762133793%_)))) + (##car _%e133894134925%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl132764133800%_)) - (let ((_%__splice136431136432%_ + _%tl133896134932%_)) + (let ((_%__splice137563137564%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl132764133800%_ + _%tl133896134932%_ '0)))) - (let ((_%tl132767133806%_ + (let ((_%tl133899134938%_ (let () (declare (not safe)) (##vector-ref - _%__splice136431136432%_ + _%__splice137563137564%_ '1))) - (_%target132765133803%_ + (_%target133897134935%_ (let () (declare (not safe)) (##vector-ref - _%__splice136431136432%_ + _%__splice137563137564%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132767133806%_)) - (_%__match136513136514%_ - _%e132735134103%_ - _%hd132736134107%_ - _%tl132737134110%_ - _%e132738134113%_ - _%hd132739134117%_ - _%tl132740134120%_ - _%e132758133779%_ - _%e132741134123%_ - _%hd132742134127%_ - _%tl132743134130%_ - _%e132762133793%_ - _%hd132763133797%_ - _%tl132764133800%_ - _%__splice136431136432%_ - _%target132765133803%_ - _%tl132767133806%_) + _%tl133899134938%_)) + (_%__match137645137646%_ + _%e133867135235%_ + _%hd133868135239%_ + _%tl133869135242%_ + _%e133870135245%_ + _%hd133871135249%_ + _%tl133872135252%_ + _%e133890134911%_ + _%e133873135255%_ + _%hd133874135259%_ + _%tl133875135262%_ + _%e133894134925%_ + _%hd133895134929%_ + _%tl133896134932%_ + _%__splice137563137564%_ + _%target133897134935%_ + _%tl133899134938%_) (let () (declare (not safe)) - (_%g132729132923%_))))) + (_%g133861134055%_))))) (let () (declare (not safe)) - (_%g132729132923%_))))) + (_%g133861134055%_))))) (let () (declare (not safe)) - (_%g132729132923%_))) + (_%g133861134055%_))) (let () (declare (not safe)) - (_%g132729132923%_)))) + (_%g133861134055%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132739134117%_)) - (let ((_%e132807133374%_ + (gx#stx-pair? _%hd133871135249%_)) + (let ((_%e133939134506%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132739134117%_)))) - (let ((_%tl132809133381%_ + _%hd133871135249%_)))) + (let ((_%tl133941134513%_ (let () (declare (not safe)) - (##cdr _%e132807133374%_))) - (_%hd132808133378%_ + (##cdr _%e133939134506%_))) + (_%hd133940134510%_ (let () (declare (not safe)) - (##car _%e132807133374%_)))) + (##car _%e133939134506%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl132809133381%_)) - (let ((_%__splice136437136438%_ + _%tl133941134513%_)) + (let ((_%__splice137569137570%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl132809133381%_ + _%tl133941134513%_ '0)))) - (let ((_%tl132812133387%_ + (let ((_%tl133944134519%_ (let () (declare (not safe)) (##vector-ref - _%__splice136437136438%_ + _%__splice137569137570%_ '1))) - (_%target132810133384%_ + (_%target133942134516%_ (let () (declare (not safe)) (##vector-ref - _%__splice136437136438%_ + _%__splice137569137570%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132812133387%_)) - (_%__match136539136540%_ - _%e132735134103%_ - _%hd132736134107%_ - _%tl132737134110%_ - _%e132738134113%_ - _%hd132739134117%_ - _%tl132740134120%_ - _%e132807133374%_ - _%hd132808133378%_ - _%tl132809133381%_ - _%__splice136437136438%_ - _%target132810133384%_ - _%tl132812133387%_) + _%tl133944134519%_)) + (_%__match137671137672%_ + _%e133867135235%_ + _%hd133868135239%_ + _%tl133869135242%_ + _%e133870135245%_ + _%hd133871135249%_ + _%tl133872135252%_ + _%e133939134506%_ + _%hd133940134510%_ + _%tl133941134513%_ + _%__splice137569137570%_ + _%target133942134516%_ + _%tl133944134519%_) (let () (declare (not safe)) - (_%g132729132923%_))))) + (_%g133861134055%_))))) (let () (declare (not safe)) - (_%g132729132923%_))))) + (_%g133861134055%_))))) (let () (declare (not safe)) - (_%g132729132923%_))))))))) + (_%g133861134055%_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx136424136425%_)) - (let ((_%e132735134103%_ + (gx#stx-pair? _%__stx137556137557%_)) + (let ((_%e133867135235%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx136424136425%_)))) - (let ((_%tl132737134110%_ + (gx#syntax-e _%__stx137556137557%_)))) + (let ((_%tl133869135242%_ (let () (declare (not safe)) - (##cdr _%e132735134103%_))) - (_%hd132736134107%_ + (##cdr _%e133867135235%_))) + (_%hd133868135239%_ (let () (declare (not safe)) - (##car _%e132735134103%_)))) + (##car _%e133867135235%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132737134110%_)) - (let ((_%e132738134113%_ + (gx#stx-pair? _%tl133869135242%_)) + (let ((_%e133870135245%_ (let () (declare (not safe)) - (gx#syntax-e _%tl132737134110%_)))) - (let ((_%tl132740134120%_ + (gx#syntax-e _%tl133869135242%_)))) + (let ((_%tl133872135252%_ (let () (declare (not safe)) - (##cdr _%e132738134113%_))) - (_%hd132739134117%_ + (##cdr _%e133870135245%_))) + (_%hd133871135249%_ (let () (declare (not safe)) - (##car _%e132738134113%_)))) + (##car _%e133870135245%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132740134120%_)) - (let ((_%e132741134123%_ + (gx#stx-pair? _%tl133872135252%_)) + (let ((_%e133873135255%_ (let () (declare (not safe)) - (gx#syntax-e _%tl132740134120%_)))) - (let ((_%tl132743134130%_ + (gx#syntax-e _%tl133872135252%_)))) + (let ((_%tl133875135262%_ (let () (declare (not safe)) - (##cdr _%e132741134123%_))) - (_%hd132742134127%_ + (##cdr _%e133873135255%_))) + (_%hd133874135259%_ (let () (declare (not safe)) - (##car _%e132741134123%_)))) + (##car _%e133873135255%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132743134130%_)) - (let ((_%e132744134133%_ + (gx#stx-pair? _%tl133875135262%_)) + (let ((_%e133876135265%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132743134130%_)))) - (let ((_%tl132746134140%_ + _%tl133875135262%_)))) + (let ((_%tl133878135272%_ (let () (declare (not safe)) - (##cdr _%e132744134133%_))) - (_%hd132745134137%_ + (##cdr _%e133876135265%_))) + (_%hd133877135269%_ (let () (declare (not safe)) - (##car _%e132744134133%_)))) - (_%__match136475136476%_ - _%e132735134103%_ - _%hd132736134107%_ - _%tl132737134110%_ - _%e132738134113%_ - _%hd132739134117%_ - _%tl132740134120%_ - _%e132741134123%_ - _%hd132742134127%_ - _%tl132743134130%_ - _%e132744134133%_ - _%hd132745134137%_ - _%tl132746134140%_))) + (##car _%e133876135265%_)))) + (_%__match137607137608%_ + _%e133867135235%_ + _%hd133868135239%_ + _%tl133869135242%_ + _%e133870135245%_ + _%hd133871135249%_ + _%tl133872135252%_ + _%e133873135255%_ + _%hd133874135259%_ + _%tl133875135262%_ + _%e133876135265%_ + _%hd133877135269%_ + _%tl133878135272%_))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd132739134117%_)) - (let ((_%e132758133779%_ + _%hd133871135249%_)) + (let ((_%e133890134911%_ (let () (declare (not safe)) (gx#stx-e - _%hd132739134117%_)))) - (if (equal? _%e132758133779%_ + _%hd133871135249%_)))) + (if (equal? _%e133890134911%_ '#f) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd132742134127%_)) - (let ((_%e132762133793%_ + _%hd133874135259%_)) + (let ((_%e133894134925%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd132742134127%_)))) - (let ((_%tl132764133800%_ + (gx#syntax-e _%hd133874135259%_)))) + (let ((_%tl133896134932%_ (let () (declare (not safe)) - (##cdr _%e132762133793%_))) - (_%hd132763133797%_ + (##cdr _%e133894134925%_))) + (_%hd133895134929%_ (let () (declare (not safe)) - (##car _%e132762133793%_)))) + (##car _%e133894134925%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl132764133800%_)) - (let ((_%__splice136431136432%_ + (gx#stx-pair/null? _%tl133896134932%_)) + (let ((_%__splice137563137564%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl132764133800%_ + _%tl133896134932%_ '0)))) - (let ((_%tl132767133806%_ + (let ((_%tl133899134938%_ (let () (declare (not safe)) - (##vector-ref _%__splice136431136432%_ '1))) - (_%target132765133803%_ + (##vector-ref _%__splice137563137564%_ '1))) + (_%target133897134935%_ (let () (declare (not safe)) (##vector-ref - _%__splice136431136432%_ + _%__splice137563137564%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132767133806%_)) - (_%__match136513136514%_ - _%e132735134103%_ - _%hd132736134107%_ - _%tl132737134110%_ - _%e132738134113%_ - _%hd132739134117%_ - _%tl132740134120%_ - _%e132758133779%_ - _%e132741134123%_ - _%hd132742134127%_ - _%tl132743134130%_ - _%e132762133793%_ - _%hd132763133797%_ - _%tl132764133800%_ - _%__splice136431136432%_ - _%target132765133803%_ - _%tl132767133806%_) + (gx#stx-null? _%tl133899134938%_)) + (_%__match137645137646%_ + _%e133867135235%_ + _%hd133868135239%_ + _%tl133869135242%_ + _%e133870135245%_ + _%hd133871135249%_ + _%tl133872135252%_ + _%e133890134911%_ + _%e133873135255%_ + _%hd133874135259%_ + _%tl133875135262%_ + _%e133894134925%_ + _%hd133895134929%_ + _%tl133896134932%_ + _%__splice137563137564%_ + _%target133897134935%_ + _%tl133899134938%_) (let () (declare (not safe)) - (_%g132729132923%_))))) - (let () (declare (not safe)) (_%g132729132923%_))))) - (let () (declare (not safe)) (_%g132729132923%_))) + (_%g133861134055%_))))) + (let () (declare (not safe)) (_%g133861134055%_))))) + (let () (declare (not safe)) (_%g133861134055%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g132729132923%_)))) + (_%g133861134055%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd132739134117%_)) - (let ((_%e132807133374%_ + _%hd133871135249%_)) + (let ((_%e133939134506%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132739134117%_)))) - (let ((_%tl132809133381%_ + _%hd133871135249%_)))) + (let ((_%tl133941134513%_ (let () (declare (not safe)) - (##cdr _%e132807133374%_))) - (_%hd132808133378%_ + (##cdr _%e133939134506%_))) + (_%hd133940134510%_ (let () (declare (not safe)) - (##car _%e132807133374%_)))) + (##car _%e133939134506%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl132809133381%_)) - (let ((_%__splice136437136438%_ + _%tl133941134513%_)) + (let ((_%__splice137569137570%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl132809133381%_ '0)))) - (let ((_%tl132812133387%_ + (gx#syntax-split-splice _%tl133941134513%_ '0)))) + (let ((_%tl133944134519%_ (let () (declare (not safe)) - (##vector-ref _%__splice136437136438%_ '1))) - (_%target132810133384%_ + (##vector-ref _%__splice137569137570%_ '1))) + (_%target133942134516%_ (let () (declare (not safe)) - (##vector-ref _%__splice136437136438%_ '0)))) + (##vector-ref _%__splice137569137570%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132812133387%_)) - (_%__match136539136540%_ - _%e132735134103%_ - _%hd132736134107%_ - _%tl132737134110%_ - _%e132738134113%_ - _%hd132739134117%_ - _%tl132740134120%_ - _%e132807133374%_ - _%hd132808133378%_ - _%tl132809133381%_ - _%__splice136437136438%_ - _%target132810133384%_ - _%tl132812133387%_) - (let () (declare (not safe)) (_%g132729132923%_))))) - (let () (declare (not safe)) (_%g132729132923%_))))) + (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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g132729132923%_))))))) + (_%g133861134055%_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd132739134117%_)) - (let ((_%e132758133779%_ + (gx#stx-datum? _%hd133871135249%_)) + (let ((_%e133890134911%_ (let () (declare (not safe)) - (gx#stx-e _%hd132739134117%_)))) + (gx#stx-e _%hd133871135249%_)))) (declare (not safe)) - (_%g132729132923%_)) + (_%g133861134055%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132739134117%_)) - (let ((_%e132807133374%_ + (gx#stx-pair? _%hd133871135249%_)) + (let ((_%e133939134506%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132739134117%_)))) - (let ((_%tl132809133381%_ + _%hd133871135249%_)))) + (let ((_%tl133941134513%_ (let () (declare (not safe)) - (##cdr _%e132807133374%_))) - (_%hd132808133378%_ + (##cdr _%e133939134506%_))) + (_%hd133940134510%_ (let () (declare (not safe)) - (##car _%e132807133374%_)))) + (##car _%e133939134506%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl132809133381%_)) - (let ((_%__splice136437136438%_ + _%tl133941134513%_)) + (let ((_%__splice137569137570%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl132809133381%_ + _%tl133941134513%_ '0)))) - (let ((_%tl132812133387%_ + (let ((_%tl133944134519%_ (let () (declare (not safe)) (##vector-ref - _%__splice136437136438%_ + _%__splice137569137570%_ '1))) - (_%target132810133384%_ + (_%target133942134516%_ (let () (declare (not safe)) (##vector-ref - _%__splice136437136438%_ + _%__splice137569137570%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132812133387%_)) - (_%__match136539136540%_ - _%e132735134103%_ - _%hd132736134107%_ - _%tl132737134110%_ - _%e132738134113%_ - _%hd132739134117%_ - _%tl132740134120%_ - _%e132807133374%_ - _%hd132808133378%_ - _%tl132809133381%_ - _%__splice136437136438%_ - _%target132810133384%_ - _%tl132812133387%_) + _%tl133944134519%_)) + (_%__match137671137672%_ + _%e133867135235%_ + _%hd133868135239%_ + _%tl133869135242%_ + _%e133870135245%_ + _%hd133871135249%_ + _%tl133872135252%_ + _%e133939134506%_ + _%hd133940134510%_ + _%tl133941134513%_ + _%__splice137569137570%_ + _%target133942134516%_ + _%tl133944134519%_) (let () (declare (not safe)) - (_%g132729132923%_))))) + (_%g133861134055%_))))) (let () (declare (not safe)) - (_%g132729132923%_))))) + (_%g133861134055%_))))) (let () (declare (not safe)) - (_%g132729132923%_))))))) - (let () (declare (not safe)) (_%g132729132923%_))))) - (let () (declare (not safe)) (_%g132729132923%_)))))))) + (_%g133861134055%_))))))) + (let () (declare (not safe)) (_%g133861134055%_))))) + (let () (declare (not safe)) (_%g133861134055%_)))))))) (define |gxc[:0:]#::void-expression| - (let ((__obj136592 + (let ((__obj137724 (let () (declare (not safe)) (##structure @@ -2603,7 +2603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136592 + __obj137724 'gxc#::void-expression::t '1 '#f @@ -2611,65 +2611,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136592 + __obj137724 '::void-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136592 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137724 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136592 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137724 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136592 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137724 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136592 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137724 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136592 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137724 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136592 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137724 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136592 '#f '11 '#f '#f)) - (let ((__tmp136708 |gxc[1]#_g136709_|)) + (##unchecked-structure-set! __obj137724 '#f '11 '#f '#f)) + (let ((__tmp137840 |gxc[1]#_g137841_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136592 __tmp136708 '12 '#f '#f)) - (let ((__tmp136710 |gxc[1]#_g136711_|)) + (##unchecked-structure-set! __obj137724 __tmp137840 '12 '#f '#f)) + (let ((__tmp137842 |gxc[1]#_g137843_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136592 __tmp136710 '13 '#f '#f)) - (let ((__tmp136712 |gxc[1]#_g136713_|)) + (##unchecked-structure-set! __obj137724 __tmp137842 '13 '#f '#f)) + (let ((__tmp137844 |gxc[1]#_g137845_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136592 __tmp136712 '14 '#f '#f)) + (##unchecked-structure-set! __obj137724 __tmp137844 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136592 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137724 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136592 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137724 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136592 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137724 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136592 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137724 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136592 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137724 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136592 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137724 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136592 '() '20 '#f '#f)) - __obj136592)) + (##unchecked-structure-set! __obj137724 '() '20 '#f '#f)) + __obj137724)) (define |gxc[:0:]#::void-special-form| - (let ((__obj136593 + (let ((__obj137725 (let () (declare (not safe)) (##structure @@ -2698,7 +2698,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136593 + __obj137725 'gxc#::void-special-form::t '1 '#f @@ -2706,65 +2706,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136593 + __obj137725 '::void-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136593 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137725 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136593 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137725 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136593 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137725 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136593 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137725 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136593 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137725 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136593 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137725 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136593 '#f '11 '#f '#f)) - (let ((__tmp136714 |gxc[1]#_g136715_|)) + (##unchecked-structure-set! __obj137725 '#f '11 '#f '#f)) + (let ((__tmp137846 |gxc[1]#_g137847_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136593 __tmp136714 '12 '#f '#f)) - (let ((__tmp136716 |gxc[1]#_g136717_|)) + (##unchecked-structure-set! __obj137725 __tmp137846 '12 '#f '#f)) + (let ((__tmp137848 |gxc[1]#_g137849_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136593 __tmp136716 '13 '#f '#f)) - (let ((__tmp136718 |gxc[1]#_g136719_|)) + (##unchecked-structure-set! __obj137725 __tmp137848 '13 '#f '#f)) + (let ((__tmp137850 |gxc[1]#_g137851_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136593 __tmp136718 '14 '#f '#f)) + (##unchecked-structure-set! __obj137725 __tmp137850 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136593 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137725 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136593 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137725 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136593 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137725 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136593 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137725 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136593 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137725 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136593 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137725 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136593 '() '20 '#f '#f)) - __obj136593)) + (##unchecked-structure-set! __obj137725 '() '20 '#f '#f)) + __obj137725)) (define |gxc[:0:]#::void| - (let ((__obj136594 + (let ((__obj137726 (let () (declare (not safe)) (##structure @@ -2792,65 +2792,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 'gxc#::void::t '1 '#f '#f)) + (##unchecked-structure-set! __obj137726 'gxc#::void::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 '::void '2 '#f '#f)) + (##unchecked-structure-set! __obj137726 '::void '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137726 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 '() '6 '#f '#f)) - (let ((__tmp136720 - (cons |gxc[1]#_g136721_| (cons |gxc[1]#_g136722_| '())))) + (##unchecked-structure-set! __obj137726 '() '6 '#f '#f)) + (let ((__tmp137852 + (cons |gxc[1]#_g137853_| (cons |gxc[1]#_g137854_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj136594 __tmp136720 '3 '#f '#f)) + (##unchecked-structure-set! __obj137726 __tmp137852 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137726 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137726 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137726 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 '#f '11 '#f '#f)) - (let ((__tmp136723 |gxc[1]#_g136724_|)) + (##unchecked-structure-set! __obj137726 '#f '11 '#f '#f)) + (let ((__tmp137855 |gxc[1]#_g137856_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136594 __tmp136723 '12 '#f '#f)) - (let ((__tmp136725 |gxc[1]#_g136726_|)) + (##unchecked-structure-set! __obj137726 __tmp137855 '12 '#f '#f)) + (let ((__tmp137857 |gxc[1]#_g137858_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136594 __tmp136725 '13 '#f '#f)) - (let ((__tmp136727 |gxc[1]#_g136728_|)) + (##unchecked-structure-set! __obj137726 __tmp137857 '13 '#f '#f)) + (let ((__tmp137859 |gxc[1]#_g137860_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136594 __tmp136727 '14 '#f '#f)) + (##unchecked-structure-set! __obj137726 __tmp137859 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137726 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137726 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137726 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137726 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137726 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137726 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136594 '() '20 '#f '#f)) - __obj136594)) + (##unchecked-structure-set! __obj137726 '() '20 '#f '#f)) + __obj137726)) (define |gxc[:0:]#::false-expression| - (let ((__obj136595 + (let ((__obj137727 (let () (declare (not safe)) (##structure @@ -2879,7 +2879,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136595 + __obj137727 'gxc#::false-expression::t '1 '#f @@ -2887,65 +2887,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136595 + __obj137727 '::false-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136595 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137727 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136595 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137727 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136595 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137727 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136595 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137727 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136595 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137727 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136595 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137727 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136595 '#f '11 '#f '#f)) - (let ((__tmp136729 |gxc[1]#_g136730_|)) + (##unchecked-structure-set! __obj137727 '#f '11 '#f '#f)) + (let ((__tmp137861 |gxc[1]#_g137862_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136595 __tmp136729 '12 '#f '#f)) - (let ((__tmp136731 |gxc[1]#_g136732_|)) + (##unchecked-structure-set! __obj137727 __tmp137861 '12 '#f '#f)) + (let ((__tmp137863 |gxc[1]#_g137864_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136595 __tmp136731 '13 '#f '#f)) - (let ((__tmp136733 |gxc[1]#_g136734_|)) + (##unchecked-structure-set! __obj137727 __tmp137863 '13 '#f '#f)) + (let ((__tmp137865 |gxc[1]#_g137866_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136595 __tmp136733 '14 '#f '#f)) + (##unchecked-structure-set! __obj137727 __tmp137865 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136595 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137727 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136595 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137727 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136595 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137727 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136595 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137727 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136595 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137727 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136595 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137727 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136595 '() '20 '#f '#f)) - __obj136595)) + (##unchecked-structure-set! __obj137727 '() '20 '#f '#f)) + __obj137727)) (define |gxc[:0:]#::false-special-form| - (let ((__obj136596 + (let ((__obj137728 (let () (declare (not safe)) (##structure @@ -2974,7 +2974,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136596 + __obj137728 'gxc#::false-special-form::t '1 '#f @@ -2982,65 +2982,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136596 + __obj137728 '::false-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136596 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137728 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136596 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137728 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136596 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137728 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136596 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137728 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136596 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137728 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136596 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137728 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136596 '#f '11 '#f '#f)) - (let ((__tmp136735 |gxc[1]#_g136736_|)) + (##unchecked-structure-set! __obj137728 '#f '11 '#f '#f)) + (let ((__tmp137867 |gxc[1]#_g137868_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136596 __tmp136735 '12 '#f '#f)) - (let ((__tmp136737 |gxc[1]#_g136738_|)) + (##unchecked-structure-set! __obj137728 __tmp137867 '12 '#f '#f)) + (let ((__tmp137869 |gxc[1]#_g137870_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136596 __tmp136737 '13 '#f '#f)) - (let ((__tmp136739 |gxc[1]#_g136740_|)) + (##unchecked-structure-set! __obj137728 __tmp137869 '13 '#f '#f)) + (let ((__tmp137871 |gxc[1]#_g137872_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136596 __tmp136739 '14 '#f '#f)) + (##unchecked-structure-set! __obj137728 __tmp137871 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136596 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137728 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136596 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137728 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136596 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137728 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136596 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137728 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136596 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137728 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136596 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137728 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136596 '() '20 '#f '#f)) - __obj136596)) + (##unchecked-structure-set! __obj137728 '() '20 '#f '#f)) + __obj137728)) (define |gxc[:0:]#::false| - (let ((__obj136597 + (let ((__obj137729 (let () (declare (not safe)) (##structure @@ -3068,65 +3068,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 'gxc#::false::t '1 '#f '#f)) + (##unchecked-structure-set! __obj137729 'gxc#::false::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 '::false '2 '#f '#f)) + (##unchecked-structure-set! __obj137729 '::false '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137729 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 '() '6 '#f '#f)) - (let ((__tmp136741 - (cons |gxc[1]#_g136742_| (cons |gxc[1]#_g136743_| '())))) + (##unchecked-structure-set! __obj137729 '() '6 '#f '#f)) + (let ((__tmp137873 + (cons |gxc[1]#_g137874_| (cons |gxc[1]#_g137875_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj136597 __tmp136741 '3 '#f '#f)) + (##unchecked-structure-set! __obj137729 __tmp137873 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137729 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137729 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137729 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 '#f '11 '#f '#f)) - (let ((__tmp136744 |gxc[1]#_g136745_|)) + (##unchecked-structure-set! __obj137729 '#f '11 '#f '#f)) + (let ((__tmp137876 |gxc[1]#_g137877_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136597 __tmp136744 '12 '#f '#f)) - (let ((__tmp136746 |gxc[1]#_g136747_|)) + (##unchecked-structure-set! __obj137729 __tmp137876 '12 '#f '#f)) + (let ((__tmp137878 |gxc[1]#_g137879_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136597 __tmp136746 '13 '#f '#f)) - (let ((__tmp136748 |gxc[1]#_g136749_|)) + (##unchecked-structure-set! __obj137729 __tmp137878 '13 '#f '#f)) + (let ((__tmp137880 |gxc[1]#_g137881_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136597 __tmp136748 '14 '#f '#f)) + (##unchecked-structure-set! __obj137729 __tmp137880 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137729 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137729 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137729 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137729 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137729 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137729 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136597 '() '20 '#f '#f)) - __obj136597)) + (##unchecked-structure-set! __obj137729 '() '20 '#f '#f)) + __obj137729)) (define |gxc[:0:]#::identity-expression| - (let ((__obj136598 + (let ((__obj137730 (let () (declare (not safe)) (##structure @@ -3155,7 +3155,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136598 + __obj137730 'gxc#::identity-expression::t '1 '#f @@ -3163,65 +3163,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136598 + __obj137730 '::identity-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136598 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137730 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136598 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137730 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136598 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137730 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136598 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137730 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136598 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137730 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136598 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137730 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136598 '#f '11 '#f '#f)) - (let ((__tmp136750 |gxc[1]#_g136751_|)) + (##unchecked-structure-set! __obj137730 '#f '11 '#f '#f)) + (let ((__tmp137882 |gxc[1]#_g137883_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136598 __tmp136750 '12 '#f '#f)) - (let ((__tmp136752 |gxc[1]#_g136753_|)) + (##unchecked-structure-set! __obj137730 __tmp137882 '12 '#f '#f)) + (let ((__tmp137884 |gxc[1]#_g137885_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136598 __tmp136752 '13 '#f '#f)) - (let ((__tmp136754 |gxc[1]#_g136755_|)) + (##unchecked-structure-set! __obj137730 __tmp137884 '13 '#f '#f)) + (let ((__tmp137886 |gxc[1]#_g137887_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136598 __tmp136754 '14 '#f '#f)) + (##unchecked-structure-set! __obj137730 __tmp137886 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136598 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137730 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136598 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137730 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136598 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137730 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136598 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137730 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136598 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137730 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136598 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137730 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136598 '() '20 '#f '#f)) - __obj136598)) + (##unchecked-structure-set! __obj137730 '() '20 '#f '#f)) + __obj137730)) (define |gxc[:0:]#::identity-special-form| - (let ((__obj136599 + (let ((__obj137731 (let () (declare (not safe)) (##structure @@ -3250,7 +3250,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136599 + __obj137731 'gxc#::identity-special-form::t '1 '#f @@ -3258,65 +3258,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136599 + __obj137731 '::identity-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136599 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137731 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136599 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137731 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136599 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137731 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136599 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137731 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136599 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137731 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136599 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137731 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136599 '#f '11 '#f '#f)) - (let ((__tmp136756 |gxc[1]#_g136757_|)) + (##unchecked-structure-set! __obj137731 '#f '11 '#f '#f)) + (let ((__tmp137888 |gxc[1]#_g137889_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136599 __tmp136756 '12 '#f '#f)) - (let ((__tmp136758 |gxc[1]#_g136759_|)) + (##unchecked-structure-set! __obj137731 __tmp137888 '12 '#f '#f)) + (let ((__tmp137890 |gxc[1]#_g137891_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136599 __tmp136758 '13 '#f '#f)) - (let ((__tmp136760 |gxc[1]#_g136761_|)) + (##unchecked-structure-set! __obj137731 __tmp137890 '13 '#f '#f)) + (let ((__tmp137892 |gxc[1]#_g137893_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136599 __tmp136760 '14 '#f '#f)) + (##unchecked-structure-set! __obj137731 __tmp137892 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136599 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137731 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136599 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137731 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136599 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137731 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136599 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137731 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136599 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137731 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136599 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137731 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136599 '() '20 '#f '#f)) - __obj136599)) + (##unchecked-structure-set! __obj137731 '() '20 '#f '#f)) + __obj137731)) (define |gxc[:0:]#::identity| - (let ((__obj136600 + (let ((__obj137732 (let () (declare (not safe)) (##structure @@ -3345,69 +3345,69 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136600 + __obj137732 'gxc#::identity::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136600 '::identity '2 '#f '#f)) + (##unchecked-structure-set! __obj137732 '::identity '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136600 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137732 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136600 '() '6 '#f '#f)) - (let ((__tmp136762 - (cons |gxc[1]#_g136763_| (cons |gxc[1]#_g136764_| '())))) + (##unchecked-structure-set! __obj137732 '() '6 '#f '#f)) + (let ((__tmp137894 + (cons |gxc[1]#_g137895_| (cons |gxc[1]#_g137896_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj136600 __tmp136762 '3 '#f '#f)) + (##unchecked-structure-set! __obj137732 __tmp137894 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136600 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137732 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136600 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137732 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136600 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137732 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136600 '#f '11 '#f '#f)) - (let ((__tmp136765 |gxc[1]#_g136766_|)) + (##unchecked-structure-set! __obj137732 '#f '11 '#f '#f)) + (let ((__tmp137897 |gxc[1]#_g137898_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136600 __tmp136765 '12 '#f '#f)) - (let ((__tmp136767 |gxc[1]#_g136768_|)) + (##unchecked-structure-set! __obj137732 __tmp137897 '12 '#f '#f)) + (let ((__tmp137899 |gxc[1]#_g137900_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136600 __tmp136767 '13 '#f '#f)) - (let ((__tmp136769 |gxc[1]#_g136770_|)) + (##unchecked-structure-set! __obj137732 __tmp137899 '13 '#f '#f)) + (let ((__tmp137901 |gxc[1]#_g137902_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136600 __tmp136769 '14 '#f '#f)) + (##unchecked-structure-set! __obj137732 __tmp137901 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136600 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137732 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136600 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137732 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136600 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137732 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136600 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137732 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136600 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137732 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136600 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137732 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136600 '() '20 '#f '#f)) - __obj136600)) + (##unchecked-structure-set! __obj137732 '() '20 '#f '#f)) + __obj137732)) (define |gxc[:0:]#::basic-xform-expression| - (let ((__obj136601 + (let ((__obj137733 (let () (declare (not safe)) (##structure @@ -3436,7 +3436,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136601 + __obj137733 'gxc#::basic-xform-expression::t '1 '#f @@ -3444,65 +3444,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136601 + __obj137733 '::basic-xform-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136601 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137733 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136601 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137733 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136601 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137733 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136601 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137733 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136601 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137733 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136601 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137733 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136601 '#f '11 '#f '#f)) - (let ((__tmp136771 |gxc[1]#_g136772_|)) + (##unchecked-structure-set! __obj137733 '#f '11 '#f '#f)) + (let ((__tmp137903 |gxc[1]#_g137904_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136601 __tmp136771 '12 '#f '#f)) - (let ((__tmp136773 |gxc[1]#_g136774_|)) + (##unchecked-structure-set! __obj137733 __tmp137903 '12 '#f '#f)) + (let ((__tmp137905 |gxc[1]#_g137906_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136601 __tmp136773 '13 '#f '#f)) - (let ((__tmp136775 |gxc[1]#_g136776_|)) + (##unchecked-structure-set! __obj137733 __tmp137905 '13 '#f '#f)) + (let ((__tmp137907 |gxc[1]#_g137908_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136601 __tmp136775 '14 '#f '#f)) + (##unchecked-structure-set! __obj137733 __tmp137907 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136601 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137733 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136601 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137733 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136601 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137733 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136601 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137733 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136601 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137733 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136601 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137733 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136601 '() '20 '#f '#f)) - __obj136601)) + (##unchecked-structure-set! __obj137733 '() '20 '#f '#f)) + __obj137733)) (define |gxc[:0:]#::basic-xform| - (let ((__obj136602 + (let ((__obj137734 (let () (declare (not safe)) (##structure @@ -3531,64 +3531,64 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136602 + __obj137734 'gxc#::basic-xform::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136602 '::basic-xform '2 '#f '#f)) + (##unchecked-structure-set! __obj137734 '::basic-xform '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136602 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137734 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136602 '() '6 '#f '#f)) - (let ((__tmp136777 - (cons |gxc[1]#_g136778_| (cons |gxc[1]#_g136779_| '())))) + (##unchecked-structure-set! __obj137734 '() '6 '#f '#f)) + (let ((__tmp137909 + (cons |gxc[1]#_g137910_| (cons |gxc[1]#_g137911_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj136602 __tmp136777 '3 '#f '#f)) + (##unchecked-structure-set! __obj137734 __tmp137909 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136602 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137734 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136602 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137734 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136602 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137734 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136602 '#f '11 '#f '#f)) - (let ((__tmp136780 |gxc[1]#_g136781_|)) + (##unchecked-structure-set! __obj137734 '#f '11 '#f '#f)) + (let ((__tmp137912 |gxc[1]#_g137913_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136602 __tmp136780 '12 '#f '#f)) - (let ((__tmp136782 |gxc[1]#_g136783_|)) + (##unchecked-structure-set! __obj137734 __tmp137912 '12 '#f '#f)) + (let ((__tmp137914 |gxc[1]#_g137915_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136602 __tmp136782 '13 '#f '#f)) - (let ((__tmp136784 |gxc[1]#_g136785_|)) + (##unchecked-structure-set! __obj137734 __tmp137914 '13 '#f '#f)) + (let ((__tmp137916 |gxc[1]#_g137917_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136602 __tmp136784 '14 '#f '#f)) + (##unchecked-structure-set! __obj137734 __tmp137916 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136602 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137734 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136602 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137734 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136602 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137734 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136602 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137734 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136602 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137734 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136602 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137734 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136602 '() '20 '#f '#f)) - __obj136602)))) + (##unchecked-structure-set! __obj137734 '() '20 '#f '#f)) + __obj137734)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~0.scm b/src/bootstrap/gerbil/compiler/optimize-ann~0.scm index 6dc4b083a..ae7b91ef4 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 1713454415) + (define gerbil/compiler/optimize-ann::timestamp 1713631271) (begin (declare (inlining-limit 200)) (define gxc#::optimize-annotated::t - (let ((__tmp191111 (list gxc#::basic-xform::t)) - (__tmp191110 (cons (cons 'final: '#t) '()))) + (let ((__tmp192243 (list gxc#::basic-xform::t)) + (__tmp192242 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-annotated::t '::optimize-annotated - __tmp191111 + __tmp192243 '() - __tmp191110 + __tmp192242 '#f))) (define gxc#::optimize-annotated? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-annotated::t))) (define gxc#make-::optimize-annotated - (lambda _%$args187996%_ - (apply make-instance gxc#::optimize-annotated::t _%$args187996%_))) + (lambda _%$args189128%_ + (apply make-instance gxc#::optimize-annotated::t _%$args189128%_))) (define gxc#::optimize-annotated-bind-methods! - (let ((__tmp191112 + (let ((__tmp192244 (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 __tmp191112))) + (__make-promise __tmp192244))) (define gxc#apply-optimize-annotated - (lambda (_%stx187988%_) + (lambda (_%stx189120%_) (force gxc#::optimize-annotated-bind-methods!) - (let* ((_%self187991%_ - (let ((__obj191102 + (let* ((_%self189123%_ + (let ((__obj192234 (let () (declare (not safe)) (##structure gxc#::optimize-annotated::t)))) - __obj191102)) - (__tmp191113 + __obj192234)) + (__tmp192245 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self187991%_ _%stx187988%_))))) + (gxc#compile-e__1 _%self189123%_ _%stx189120%_))))) (declare (not safe)) (__call-with-parameters - __tmp191113 + __tmp192245 gxc#current-compile-method - _%self187991%_)))) + _%self189123%_)))) (define gxc#::generate-runtime-repr::t - (let ((__tmp191115 (list gxc#::generate-runtime::t)) - (__tmp191114 (cons (cons 'final: '#t) '()))) + (let ((__tmp192247 (list gxc#::generate-runtime::t)) + (__tmp192246 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-repr::t '::generate-runtime-repr - __tmp191115 + __tmp192247 '() - __tmp191114 + __tmp192246 '#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 _%$args187985%_ - (apply make-instance gxc#::generate-runtime-repr::t _%$args187985%_))) + (lambda _%$args189117%_ + (apply make-instance gxc#::generate-runtime-repr::t _%$args189117%_))) (define gxc#::generate-runtime-repr-bind-methods! - (let ((__tmp191116 + (let ((__tmp192248 (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 __tmp191116))) + (__make-promise __tmp192248))) (define gxc#apply-generate-runtime-repr - (lambda (_%stx187977%_) + (lambda (_%stx189109%_) (force gxc#::generate-runtime-repr-bind-methods!) - (let* ((_%self187980%_ - (let ((__obj191104 + (let* ((_%self189112%_ + (let ((__obj192236 (let () (declare (not safe)) (##structure gxc#::generate-runtime-repr::t)))) - __obj191104)) - (__tmp191117 + __obj192236)) + (__tmp192249 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self187980%_ _%stx187977%_))))) + (gxc#compile-e__1 _%self189112%_ _%stx189109%_))))) (declare (not safe)) (__call-with-parameters - __tmp191117 + __tmp192249 gxc#current-compile-method - _%self187980%_)))) + _%self189112%_)))) (define gxc#::push-match-vars::t - (let ((__tmp191119 (list)) (__tmp191118 (cons (cons 'final: '#t) '()))) + (let ((__tmp192251 (list)) (__tmp192250 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::push-match-vars::t '::push-match-vars - __tmp191119 + __tmp192251 '(vars K) - __tmp191118 + __tmp192250 '#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 _%$args187974%_ - (apply make-instance gxc#::push-match-vars::t _%$args187974%_))) + (lambda _%$args189106%_ + (apply make-instance gxc#::push-match-vars::t _%$args189106%_))) (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 ((__tmp191120 + (let ((__tmp192252 (lambda () (let () (declare (not safe)) @@ -199,1666 +199,1646 @@ (declare (not safe)) (__seal-class! gxc#::push-match-vars::t))))) (declare (not safe)) - (__make-promise __tmp191120))) + (__make-promise __tmp192252))) (define gxc#apply-push-match-vars__% - (lambda (_%@@keywords187944%_ - _%vars187940187945%_ - _%K187941187947%_ - _%stx187949%_) - (let* ((_%vars187952%_ - (if (eq? _%vars187940187945%_ absent-value) + (lambda (_%@@keywords189076%_ + _%vars189072189077%_ + _%K189073189079%_ + _%stx189081%_) + (let* ((_%vars189084%_ + (if (eq? _%vars189072189077%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'vars:)) - _%vars187940187945%_)) - (_%K187954%_ - (if (eq? _%K187941187947%_ absent-value) + _%vars189072189077%_)) + (_%K189086%_ + (if (eq? _%K189073189079%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'K:)) - _%K187941187947%_))) + _%K189073189079%_))) (force gxc#::push-match-vars-bind-methods!) - (let* ((_%self187956%_ - (let ((__obj191106 + (let* ((_%self189088%_ + (let ((__obj192238 (let () (declare (not safe)) (##structure gxc#::push-match-vars::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj191106 - _%vars187952%_ + __obj192238 + _%vars189084%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj191106 - _%K187954%_ + __obj192238 + _%K189086%_ '2 '#f '#f)) - __obj191106)) - (__tmp191121 + __obj192238)) + (__tmp192253 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self187956%_ _%stx187949%_))))) + (gxc#compile-e__1 _%self189088%_ _%stx189081%_))))) (declare (not safe)) (__call-with-parameters - __tmp191121 + __tmp192253 gxc#current-compile-method - _%self187956%_))))) + _%self189088%_))))) (define gxc#apply-push-match-vars__@ - (lambda (_%@@keywords187963%_ . _%args187964%_) + (lambda (_%@@keywords189095%_ . _%args189096%_) (apply gxc#apply-push-match-vars__% - _%@@keywords187963%_ + _%@@keywords189095%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords187963%_ 'vars: absent-value)) + (symbolic-table-ref _%@@keywords189095%_ 'vars: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords187963%_ 'K: absent-value)) - _%args187964%_))) + (symbolic-table-ref _%@@keywords189095%_ 'K: absent-value)) + _%args189096%_))) (define gxc#apply-push-match-vars - (lambda _%args187942187970%_ + (lambda _%args189074189102%_ (apply keyword-dispatch '#(K: vars:) gxc#apply-push-match-vars__@ - _%args187942187970%_))) + _%args189074189102%_))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_%self187856%_ _%stx187857%_) - (let* ((_%__stx188012188013%_ _%stx187857%_) - (_%g187860187877%_ + (lambda (_%self188988%_ _%stx188989%_) + (let* ((_%__stx189144189145%_ _%stx188989%_) + (_%g188992189009%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188012188013%_))))) - (let ((_%__kont188014188015%_ - (lambda (_%L187913%_ _%L187914%_) - (let ((_%ann187930%_ + _%__stx189144189145%_))))) + (let ((_%__kont189146189147%_ + (lambda (_%L189045%_ _%L189046%_) + (let ((_%ann189062%_ (let () (declare (not safe)) - (gx#stx-e _%L187914%_)))) - (let ((__tmp191123 + (gx#stx-e _%L189046%_)))) + (let ((__tmp192255 (lambda () - (let ((_%$e187933%_ _%ann187930%_)) - (if (eq? '@match _%$e187933%_) + (let ((_%$e189065%_ _%ann189062%_)) + (if (eq? '@match _%$e189065%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing match expansion")) - (gxc#optimize-match _%L187913%_)) - (if (eq? '@syntax-case _%$e187933%_) + (gxc#optimize-match _%L189045%_)) + (if (eq? '@syntax-case _%$e189065%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing syntax-case expansion")) (gxc#optimize-syntax-case - _%L187913%_)) + _%L189045%_)) (let () (declare (not safe)) - (gxc#compile-e__0 _%L187913%_))))))) - (__tmp191122 - (cons _%ann187930%_ + (gxc#compile-e__0 _%L189045%_))))))) + (__tmp192254 + (cons _%ann189062%_ (let () (declare (not safe)) (gxc#current-annotation-optimizer))))) (declare (not safe)) (__call-with-parameters - __tmp191123 + __tmp192255 gxc#current-annotation-optimizer - __tmp191122))))) - (_%__kont188016188017%_ + __tmp192254))))) + (_%__kont189148189149%_ (lambda () (let () (declare (not safe)) (gxc#xform-begin-annotation% - _%self187856%_ - _%stx187857%_))))) - (let ((_%__match188037188038%_ - (lambda (_%e187864187889%_ - _%hd187865187892%_ - _%tl187866187894%_ - _%e187867187897%_ - _%hd187868187900%_ - _%tl187869187902%_ - _%e187870187905%_ - _%hd187871187908%_ - _%tl187872187910%_) - (let ((_%L187913%_ _%hd187871187908%_) - (_%L187914%_ _%hd187868187900%_)) + _%self188988%_ + _%stx188989%_))))) + (let ((_%__match189169189170%_ + (lambda (_%e188996189021%_ + _%hd188997189024%_ + _%tl188998189026%_ + _%e188999189029%_ + _%hd189000189032%_ + _%tl189001189034%_ + _%e189002189037%_ + _%hd189003189040%_ + _%tl189004189042%_) + (let ((_%L189045%_ _%hd189003189040%_) + (_%L189046%_ _%hd189000189032%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L187914%_)) - (_%__kont188014188015%_ _%L187913%_ _%L187914%_) - (_%__kont188016188017%_)))))) + (gx#identifier? _%L189046%_)) + (_%__kont189146189147%_ _%L189045%_ _%L189046%_) + (_%__kont189148189149%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx188012188013%_)) - (let ((_%e187864187889%_ + (gx#stx-pair? _%__stx189144189145%_)) + (let ((_%e188996189021%_ (let () (declare (not safe)) - (gx#stx-e _%__stx188012188013%_)))) - (let ((_%tl187866187894%_ + (gx#stx-e _%__stx189144189145%_)))) + (let ((_%tl188998189026%_ (let () (declare (not safe)) - (##cdr _%e187864187889%_))) - (_%hd187865187892%_ + (##cdr _%e188996189021%_))) + (_%hd188997189024%_ (let () (declare (not safe)) - (##car _%e187864187889%_)))) + (##car _%e188996189021%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187866187894%_)) - (let ((_%e187867187897%_ + (gx#stx-pair? _%tl188998189026%_)) + (let ((_%e188999189029%_ (let () (declare (not safe)) - (gx#stx-e _%tl187866187894%_)))) - (let ((_%tl187869187902%_ + (gx#stx-e _%tl188998189026%_)))) + (let ((_%tl189001189034%_ (let () (declare (not safe)) - (##cdr _%e187867187897%_))) - (_%hd187868187900%_ + (##cdr _%e188999189029%_))) + (_%hd189000189032%_ (let () (declare (not safe)) - (##car _%e187867187897%_)))) + (##car _%e188999189029%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187869187902%_)) - (let ((_%e187870187905%_ + (gx#stx-pair? _%tl189001189034%_)) + (let ((_%e189002189037%_ (let () (declare (not safe)) - (gx#stx-e _%tl187869187902%_)))) - (let ((_%tl187872187910%_ + (gx#stx-e _%tl189001189034%_)))) + (let ((_%tl189004189042%_ (let () (declare (not safe)) - (##cdr _%e187870187905%_))) - (_%hd187871187908%_ + (##cdr _%e189002189037%_))) + (_%hd189003189040%_ (let () (declare (not safe)) - (##car _%e187870187905%_)))) + (##car _%e189002189037%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187872187910%_)) - (_%__match188037188038%_ - _%e187864187889%_ - _%hd187865187892%_ - _%tl187866187894%_ - _%e187867187897%_ - _%hd187868187900%_ - _%tl187869187902%_ - _%e187870187905%_ - _%hd187871187908%_ - _%tl187872187910%_) - (_%__kont188016188017%_)))) - (_%__kont188016188017%_)))) - (_%__kont188016188017%_)))) - (_%__kont188016188017%_))))))) + (gx#stx-null? _%tl189004189042%_)) + (_%__match189169189170%_ + _%e188996189021%_ + _%hd188997189024%_ + _%tl188998189026%_ + _%e188999189029%_ + _%hd189000189032%_ + _%tl189001189034%_ + _%e189002189037%_ + _%hd189003189040%_ + _%tl189004189042%_) + (_%__kont189148189149%_)))) + (_%__kont189148189149%_)))) + (_%__kont189148189149%_)))) + (_%__kont189148189149%_))))))) (define gxc#optimize-match - (lambda (_%stx187155%_) - (let* ((_%g187157187187%_ - (lambda (_%g187158187184%_) + (lambda (_%stx188287%_) + (let* ((_%g188289188319%_ + (lambda (_%g188290188316%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187158187184%_)))) - (_%g187156187853%_ - (lambda (_%g187158187190%_) + _%g188290188316%_)))) + (_%g188288188985%_ + (lambda (_%g188290188322%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g187158187190%_)) - (let ((_%e187162187192%_ + (gx#stx-pair? _%g188290188322%_)) + (let ((_%e188294188324%_ (let () (declare (not safe)) - (gx#stx-e _%g187158187190%_)))) - (let ((_%hd187163187195%_ + (gx#stx-e _%g188290188322%_)))) + (let ((_%hd188295188327%_ (let () (declare (not safe)) - (##car _%e187162187192%_))) - (_%tl187164187197%_ + (##car _%e188294188324%_))) + (_%tl188296188329%_ (let () (declare (not safe)) - (##cdr _%e187162187192%_)))) + (##cdr _%e188294188324%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd187163187195%_)) + (gx#identifier? _%hd188295188327%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd187163187195%_)) + _%hd188295188327%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187164187197%_)) - (let ((_%e187165187200%_ + (gx#stx-pair? _%tl188296188329%_)) + (let ((_%e188297188332%_ (let () (declare (not safe)) - (gx#stx-e _%tl187164187197%_)))) - (let ((_%hd187166187203%_ + (gx#stx-e _%tl188296188329%_)))) + (let ((_%hd188298188335%_ (let () (declare (not safe)) - (##car _%e187165187200%_))) - (_%tl187167187205%_ + (##car _%e188297188332%_))) + (_%tl188299188337%_ (let () (declare (not safe)) - (##cdr _%e187165187200%_)))) + (##cdr _%e188297188332%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187166187203%_)) - (let ((_%e187168187208%_ + _%hd188298188335%_)) + (let ((_%e188300188340%_ (let () (declare (not safe)) (gx#stx-e - _%hd187166187203%_)))) - (let ((_%hd187169187211%_ + _%hd188298188335%_)))) + (let ((_%hd188301188343%_ (let () (declare (not safe)) - (##car _%e187168187208%_))) - (_%tl187170187213%_ + (##car _%e188300188340%_))) + (_%tl188302188345%_ (let () (declare (not safe)) - (##cdr _%e187168187208%_)))) + (##cdr _%e188300188340%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187169187211%_)) - (let ((_%e187171187216%_ + _%hd188301188343%_)) + (let ((_%e188303188348%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd187169187211%_)))) - (let ((_%hd187172187219%_ - (let () (declare (not safe)) (##car _%e187171187216%_))) - (_%tl187173187221%_ + (gx#stx-e _%hd188301188343%_)))) + (let ((_%hd188304188351%_ + (let () (declare (not safe)) (##car _%e188303188348%_))) + (_%tl188305188353%_ (let () (declare (not safe)) - (##cdr _%e187171187216%_)))) + (##cdr _%e188303188348%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187172187219%_)) - (let ((_%e187174187224%_ + (gx#stx-pair? _%hd188304188351%_)) + (let ((_%e188306188356%_ (let () (declare (not safe)) - (gx#stx-e _%hd187172187219%_)))) - (let ((_%hd187175187227%_ + (gx#stx-e _%hd188304188351%_)))) + (let ((_%hd188307188359%_ (let () (declare (not safe)) - (##car _%e187174187224%_))) - (_%tl187176187229%_ + (##car _%e188306188356%_))) + (_%tl188308188361%_ (let () (declare (not safe)) - (##cdr _%e187174187224%_)))) + (##cdr _%e188306188356%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187176187229%_)) + (gx#stx-null? _%tl188308188361%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187173187221%_)) - (let ((_%e187177187232%_ + (gx#stx-pair? _%tl188305188353%_)) + (let ((_%e188309188364%_ (let () (declare (not safe)) - (gx#stx-e _%tl187173187221%_)))) - (let ((_%hd187178187235%_ + (gx#stx-e _%tl188305188353%_)))) + (let ((_%hd188310188367%_ (let () (declare (not safe)) - (##car _%e187177187232%_))) - (_%tl187179187237%_ + (##car _%e188309188364%_))) + (_%tl188311188369%_ (let () (declare (not safe)) - (##cdr _%e187177187232%_)))) + (##cdr _%e188309188364%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187179187237%_)) + (gx#stx-null? _%tl188311188369%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187170187213%_)) + _%tl188302188345%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187167187205%_)) - (let ((_%e187180187240%_ + _%tl188299188337%_)) + (let ((_%e188312188372%_ (let () (declare (not safe)) (gx#stx-e - _%tl187167187205%_)))) - (let ((_%hd187181187243%_ + _%tl188299188337%_)))) + (let ((_%hd188313188375%_ (let () (declare (not safe)) - (##car _%e187180187240%_))) - (_%tl187182187245%_ + (##car _%e188312188372%_))) + (_%tl188314188377%_ (let () (declare (not safe)) - (##cdr _%e187180187240%_)))) + (##cdr _%e188312188372%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187182187245%_)) - ((lambda (_%L187248%_ + _%tl188314188377%_)) + ((lambda (_%L188380%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L187249%_ - _%L187250%_) - (let _%lp187274%_ ((_%body187276%_ _%L187248%_) - (_%negation187277%_ - (cons _%L187250%_ _%L187249%_)) - (_%clauses187278%_ '()) - (_%konts187279%_ '())) - (let* ((_%__stx188220188221%_ _%body187276%_) - (_%g187282187322%_ + _%L188381%_ + _%L188382%_) + (let _%lp188406%_ ((_%body188408%_ _%L188380%_) + (_%negation188409%_ + (cons _%L188382%_ _%L188381%_)) + (_%clauses188410%_ '()) + (_%konts188411%_ '())) + (let* ((_%__stx189352189353%_ _%body188408%_) + (_%g188414188454%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188220188221%_))))) - (let ((_%__kont188222188223%_ - (lambda (_%L187652%_) - (let* ((_%__stx188156188157%_ _%L187652%_) - (_%g187666187696%_ + _%__stx189352189353%_))))) + (let ((_%__kont189354189355%_ + (lambda (_%L188784%_) + (let* ((_%__stx189288189289%_ _%L188784%_) + (_%g188798188828%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188156188157%_))))) - (let ((_%__kont188158188159%_ - (lambda (_%L187792%_ - _%L187793%_ - _%L187794%_) - (if (null? _%clauses187278%_) - (let* ((_%negation187818187825%_ - _%negation187277%_) - (_%E187820187829%_ + _%__stx189288189289%_))))) + (let ((_%__kont189290189291%_ + (lambda (_%L188924%_ + _%L188925%_ + _%L188926%_) + (if (null? _%clauses188410%_) + (let* ((_%negation188950188957%_ + _%negation188409%_) + (_%E188952188961%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%negation187818187825%_ + _%negation188950188957%_ '([E . negate]))) '#!void)) - (_%K187821187835%_ - (lambda (_%negate187832%_ _%E187833%_) - (let ((__tmp191124 + (_%K188953188967%_ + (lambda (_%negate188964%_ _%E188965%_) + (let ((__tmp192256 (cons '%#let-values - (cons (cons (cons (cons _%E187833%_ '()) - (cons _%negate187832%_ '())) + (cons (cons (cons (cons _%E188965%_ '()) + (cons _%negate188964%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L187794%_ + (cons (cons (cons (cons _%L188926%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%L187793%_)) + (gxc#compile-e__0 _%L188925%_)) '())) '()) - (cons _%L187792%_ '()))) + (cons _%L188924%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp191124 _%stx187155%_))))) + (gxc#xform-wrap-source __tmp192256 _%stx188287%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%negation187818187825%_)) - (let ((_%hd187822187838%_ + (if (pair? _%negation188950188957%_) + (let ((_%hd188954188970%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%negation187818187825%_))) - (_%tl187823187840%_ + (##car _%negation188950188957%_))) + (_%tl188955188972%_ (let () (declare (not safe)) - (##cdr _%negation187818187825%_)))) - (let* ((_%E187843%_ _%hd187822187838%_) - (_%negate187845%_ _%tl187823187840%_)) - (_%K187821187835%_ _%negate187845%_ _%E187843%_))) - (_%E187820187829%_))) + (##cdr _%negation188950188957%_)))) + (let* ((_%E188975%_ _%hd188954188970%_) + (_%negate188977%_ _%tl188955188972%_)) + (_%K188953188967%_ _%negate188977%_ _%E188975%_))) + (_%E188952188961%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#optimize-match-body - _%stx187155%_ - _%negation187277%_ + _%stx188287%_ + _%negation188409%_ (cons (cons '#f (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L187792%_ '())))) - _%clauses187278%_) + (cons '() (cons _%L188924%_ '())))) + _%clauses188410%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L187794%_ + (cons (cons _%L188926%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _%L187793%_))) - _%konts187279%_))))) + (gxc#compile-e__0 _%L188925%_))) + _%konts188411%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188160188161%_ + (_%__kont189292189293%_ (lambda () - (let* ((_%negation187702187709%_ - _%negation187277%_) - (_%E187704187713%_ + (let* ((_%negation188834188841%_ + _%negation188409%_) + (_%E188836188845%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation187702187709%_ + _%negation188834188841%_ '([E ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . negate]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K187705187719%_ - (lambda (_%negate187716%_ - _%E187717%_) - (let ((__tmp191125 + (_%K188837188851%_ + (lambda (_%negate188848%_ + _%E188849%_) + (let ((__tmp192257 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%E187717%_ '()) - (cons _%negate187716%_ '())) + (cons (cons (cons (cons _%E188849%_ '()) + (cons _%negate188848%_ '())) '()) - (cons _%L187652%_ '()))))) + (cons _%L188784%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp191125 _%stx187155%_))))) + (gxc#xform-wrap-source __tmp192257 _%stx188287%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%negation187702187709%_)) - (let ((_%hd187706187722%_ + (if (pair? _%negation188834188841%_) + (let ((_%hd188838188854%_ (let () (declare (not safe)) - (##car _%negation187702187709%_))) - (_%tl187707187724%_ + (##car _%negation188834188841%_))) + (_%tl188839188856%_ (let () (declare (not safe)) - (##cdr _%negation187702187709%_)))) - (let* ((_%E187727%_ - _%hd187706187722%_) - (_%negate187729%_ - _%tl187707187724%_)) - (_%K187705187719%_ - _%negate187729%_ - _%E187727%_))) - (_%E187704187713%_)))))) - (let ((_%g187665187731%_ + (##cdr _%negation188834188841%_)))) + (let* ((_%E188859%_ + _%hd188838188854%_) + (_%negate188861%_ + _%tl188839188856%_)) + (_%K188837188851%_ + _%negate188861%_ + _%E188859%_))) + (_%E188836188845%_)))))) + (let ((_%g188797188863%_ (lambda () - (if (null? _%clauses187278%_) - (_%__kont188160188161%_) + (if (null? _%clauses188410%_) + (_%__kont189292189293%_) (let () (declare (not safe)) - (_%g187666187696%_)))))) + (_%g188798188828%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx188156188157%_)) - (let ((_%e187671187736%_ + _%__stx189288189289%_)) + (let ((_%e188803188868%_ (let () (declare (not safe)) (gx#stx-e - _%__stx188156188157%_)))) - (let ((_%tl187673187741%_ + _%__stx189288189289%_)))) + (let ((_%tl188805188873%_ (let () (declare (not safe)) - (##cdr _%e187671187736%_))) - (_%hd187672187739%_ + (##cdr _%e188803188868%_))) + (_%hd188804188871%_ (let () (declare (not safe)) - (##car _%e187671187736%_)))) + (##car _%e188803188868%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187672187739%_)) + _%hd188804188871%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd187672187739%_)) + _%hd188804188871%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187673187741%_)) - (let ((_%e187674187744%_ + _%tl188805188873%_)) + (let ((_%e188806188876%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl187673187741%_)))) - (let ((_%tl187676187749%_ + (gx#stx-e _%tl188805188873%_)))) + (let ((_%tl188808188881%_ (let () (declare (not safe)) - (##cdr _%e187674187744%_))) - (_%hd187675187747%_ + (##cdr _%e188806188876%_))) + (_%hd188807188879%_ (let () (declare (not safe)) - (##car _%e187674187744%_)))) + (##car _%e188806188876%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187675187747%_)) - (let ((_%e187677187752%_ + (gx#stx-pair? _%hd188807188879%_)) + (let ((_%e188809188884%_ (let () (declare (not safe)) - (gx#stx-e _%hd187675187747%_)))) - (let ((_%tl187679187757%_ + (gx#stx-e _%hd188807188879%_)))) + (let ((_%tl188811188889%_ (let () (declare (not safe)) - (##cdr _%e187677187752%_))) - (_%hd187678187755%_ + (##cdr _%e188809188884%_))) + (_%hd188810188887%_ (let () (declare (not safe)) - (##car _%e187677187752%_)))) + (##car _%e188809188884%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187678187755%_)) - (let ((_%e187680187760%_ + (gx#stx-pair? _%hd188810188887%_)) + (let ((_%e188812188892%_ (let () (declare (not safe)) - (gx#stx-e _%hd187678187755%_)))) - (let ((_%tl187682187765%_ + (gx#stx-e _%hd188810188887%_)))) + (let ((_%tl188814188897%_ (let () (declare (not safe)) - (##cdr _%e187680187760%_))) - (_%hd187681187763%_ + (##cdr _%e188812188892%_))) + (_%hd188813188895%_ (let () (declare (not safe)) - (##car _%e187680187760%_)))) + (##car _%e188812188892%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187681187763%_)) - (let ((_%e187683187768%_ + _%hd188813188895%_)) + (let ((_%e188815188900%_ (let () (declare (not safe)) (gx#stx-e - _%hd187681187763%_)))) - (let ((_%tl187685187773%_ + _%hd188813188895%_)))) + (let ((_%tl188817188905%_ (let () (declare (not safe)) - (##cdr _%e187683187768%_))) - (_%hd187684187771%_ + (##cdr _%e188815188900%_))) + (_%hd188816188903%_ (let () (declare (not safe)) - (##car _%e187683187768%_)))) + (##car _%e188815188900%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187685187773%_)) + _%tl188817188905%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187682187765%_)) - (let ((_%e187686187776%_ + _%tl188814188897%_)) + (let ((_%e188818188908%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl187682187765%_)))) - (let ((_%tl187688187781%_ + (gx#stx-e _%tl188814188897%_)))) + (let ((_%tl188820188913%_ (let () (declare (not safe)) - (##cdr _%e187686187776%_))) - (_%hd187687187779%_ + (##cdr _%e188818188908%_))) + (_%hd188819188911%_ (let () (declare (not safe)) - (##car _%e187686187776%_)))) + (##car _%e188818188908%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187688187781%_)) + (gx#stx-null? _%tl188820188913%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187679187757%_)) + (gx#stx-null? _%tl188811188889%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187676187749%_)) - (let ((_%e187689187784%_ + (gx#stx-pair? _%tl188808188881%_)) + (let ((_%e188821188916%_ (let () (declare (not safe)) - (gx#stx-e _%tl187676187749%_)))) - (let ((_%tl187691187789%_ + (gx#stx-e _%tl188808188881%_)))) + (let ((_%tl188823188921%_ (let () (declare (not safe)) - (##cdr _%e187689187784%_))) - (_%hd187690187787%_ + (##cdr _%e188821188916%_))) + (_%hd188822188919%_ (let () (declare (not safe)) - (##car _%e187689187784%_)))) + (##car _%e188821188916%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187691187789%_)) - (_%__kont188158188159%_ - _%hd187690187787%_ - _%hd187687187779%_ - _%hd187684187771%_) + (gx#stx-null? _%tl188823188921%_)) + (_%__kont189290189291%_ + _%hd188822188919%_ + _%hd188819188911%_ + _%hd188816188903%_) (let () (declare (not safe)) - (_%g187665187731%_))))) + (_%g188797188863%_))))) (let () (declare (not safe)) - (_%g187665187731%_))) - (let () (declare (not safe)) (_%g187665187731%_))) - (let () (declare (not safe)) (_%g187665187731%_))))) - (let () (declare (not safe)) (_%g187665187731%_))) + (_%g188797188863%_))) + (let () (declare (not safe)) (_%g188797188863%_))) + (let () (declare (not safe)) (_%g188797188863%_))))) + (let () (declare (not safe)) (_%g188797188863%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187665187731%_))))) + (_%g188797188863%_))))) (let () (declare (not safe)) - (_%g187665187731%_))))) + (_%g188797188863%_))))) (let () (declare (not safe)) - (_%g187665187731%_))))) + (_%g188797188863%_))))) (let () (declare (not safe)) - (_%g187665187731%_))))) - (let () (declare (not safe)) (_%g187665187731%_))) - (let () (declare (not safe)) (_%g187665187731%_))) + (_%g188797188863%_))))) + (let () (declare (not safe)) (_%g188797188863%_))) + (let () (declare (not safe)) (_%g188797188863%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187665187731%_))))) + (_%g188797188863%_))))) (let () (declare (not safe)) - (_%g187665187731%_)))))))) - (_%__kont188224188225%_ - (lambda (_%L187383%_ _%L187384%_ _%L187385%_) - (let* ((_%__stx188040188041%_ _%L187384%_) - (_%g187412187461%_ + (_%g188797188863%_)))))))) + (_%__kont189356189357%_ + (lambda (_%L188515%_ _%L188516%_ _%L188517%_) + (let* ((_%__stx189172189173%_ _%L188516%_) + (_%g188544188593%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188040188041%_))))) - (let ((_%__kont188042188043%_ - (lambda (_%L187589%_ - _%L187590%_ - _%L187591%_) - (_%lp187274%_ - _%L187383%_ - _%negation187277%_ - (cons (cons _%L187385%_ + _%__stx189172189173%_))))) + (let ((_%__kont189174189175%_ + (lambda (_%L188721%_ + _%L188722%_ + _%L188723%_) + (_%lp188406%_ + _%L188515%_ + _%negation188409%_ + (cons (cons _%L188517%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L187589%_ '())))) + (cons '() (cons _%L188721%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clauses187278%_) - (cons (cons _%L187591%_ + _%clauses188410%_) + (cons (cons _%L188723%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L187590%_))) - _%konts187279%_)))) - (_%__kont188044188045%_ - (lambda (_%L187490%_) - (_%lp187274%_ - _%L187383%_ - (cons _%L187385%_ + _%L188722%_))) + _%konts188411%_)))) + (_%__kont189176189177%_ + (lambda (_%L188622%_) + (_%lp188406%_ + _%L188515%_ + (cons _%L188517%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L187490%_))) - _%clauses187278%_ - _%konts187279%_)))) + _%L188622%_))) + _%clauses188410%_ + _%konts188411%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx188040188041%_)) - (let ((_%e187417187509%_ + _%__stx189172189173%_)) + (let ((_%e188549188641%_ (let () (declare (not safe)) (gx#stx-e - _%__stx188040188041%_)))) - (let ((_%tl187419187514%_ + _%__stx189172189173%_)))) + (let ((_%tl188551188646%_ (let () (declare (not safe)) - (##cdr _%e187417187509%_))) - (_%hd187418187512%_ + (##cdr _%e188549188641%_))) + (_%hd188550188644%_ (let () (declare (not safe)) - (##car _%e187417187509%_)))) + (##car _%e188549188641%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187418187512%_)) + _%hd188550188644%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187418187512%_)) + _%hd188550188644%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187419187514%_)) - (let ((_%e187420187517%_ + _%tl188551188646%_)) + (let ((_%e188552188649%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl187419187514%_)))) - (let ((_%tl187422187522%_ + (gx#stx-e _%tl188551188646%_)))) + (let ((_%tl188554188654%_ (let () (declare (not safe)) - (##cdr _%e187420187517%_))) - (_%hd187421187520%_ + (##cdr _%e188552188649%_))) + (_%hd188553188652%_ (let () (declare (not safe)) - (##car _%e187420187517%_)))) + (##car _%e188552188649%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd187421187520%_)) + (gx#stx-null? _%hd188553188652%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187422187522%_)) - (let ((_%e187423187525%_ + (gx#stx-pair? _%tl188554188654%_)) + (let ((_%e188555188657%_ (let () (declare (not safe)) - (gx#stx-e _%tl187422187522%_)))) - (let ((_%tl187425187530%_ + (gx#stx-e _%tl188554188654%_)))) + (let ((_%tl188557188662%_ (let () (declare (not safe)) - (##cdr _%e187423187525%_))) - (_%hd187424187528%_ + (##cdr _%e188555188657%_))) + (_%hd188556188660%_ (let () (declare (not safe)) - (##car _%e187423187525%_)))) + (##car _%e188555188657%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187424187528%_)) - (let ((_%e187426187533%_ + (gx#stx-pair? _%hd188556188660%_)) + (let ((_%e188558188665%_ (let () (declare (not safe)) - (gx#stx-e _%hd187424187528%_)))) - (let ((_%tl187428187538%_ + (gx#stx-e _%hd188556188660%_)))) + (let ((_%tl188560188670%_ (let () (declare (not safe)) - (##cdr _%e187426187533%_))) - (_%hd187427187536%_ + (##cdr _%e188558188665%_))) + (_%hd188559188668%_ (let () (declare (not safe)) - (##car _%e187426187533%_)))) + (##car _%e188558188665%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187427187536%_)) + _%hd188559188668%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd187427187536%_)) + _%hd188559188668%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187428187538%_)) - (let ((_%e187429187541%_ + _%tl188560188670%_)) + (let ((_%e188561188673%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187428187538%_)))) - (let ((_%tl187431187546%_ - (let () (declare (not safe)) (##cdr _%e187429187541%_))) - (_%hd187430187544%_ + (gx#stx-e _%tl188560188670%_)))) + (let ((_%tl188563188678%_ + (let () (declare (not safe)) (##cdr _%e188561188673%_))) + (_%hd188562188676%_ (let () (declare (not safe)) - (##car _%e187429187541%_)))) + (##car _%e188561188673%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187430187544%_)) - (let ((_%e187432187549%_ + (gx#stx-pair? _%hd188562188676%_)) + (let ((_%e188564188681%_ (let () (declare (not safe)) - (gx#stx-e _%hd187430187544%_)))) - (let ((_%tl187434187554%_ + (gx#stx-e _%hd188562188676%_)))) + (let ((_%tl188566188686%_ (let () (declare (not safe)) - (##cdr _%e187432187549%_))) - (_%hd187433187552%_ + (##cdr _%e188564188681%_))) + (_%hd188565188684%_ (let () (declare (not safe)) - (##car _%e187432187549%_)))) + (##car _%e188564188681%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187433187552%_)) - (let ((_%e187435187557%_ + (gx#stx-pair? _%hd188565188684%_)) + (let ((_%e188567188689%_ (let () (declare (not safe)) - (gx#stx-e _%hd187433187552%_)))) - (let ((_%tl187437187562%_ + (gx#stx-e _%hd188565188684%_)))) + (let ((_%tl188569188694%_ (let () (declare (not safe)) - (##cdr _%e187435187557%_))) - (_%hd187436187560%_ + (##cdr _%e188567188689%_))) + (_%hd188568188692%_ (let () (declare (not safe)) - (##car _%e187435187557%_)))) + (##car _%e188567188689%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187436187560%_)) - (let ((_%e187438187565%_ + (gx#stx-pair? _%hd188568188692%_)) + (let ((_%e188570188697%_ (let () (declare (not safe)) - (gx#stx-e _%hd187436187560%_)))) - (let ((_%tl187440187570%_ + (gx#stx-e _%hd188568188692%_)))) + (let ((_%tl188572188702%_ (let () (declare (not safe)) - (##cdr _%e187438187565%_))) - (_%hd187439187568%_ + (##cdr _%e188570188697%_))) + (_%hd188571188700%_ (let () (declare (not safe)) - (##car _%e187438187565%_)))) + (##car _%e188570188697%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187440187570%_)) + _%tl188572188702%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187437187562%_)) - (let ((_%e187441187573%_ + _%tl188569188694%_)) + (let ((_%e188573188705%_ (let () (declare (not safe)) (gx#stx-e - _%tl187437187562%_)))) - (let ((_%tl187443187578%_ + _%tl188569188694%_)))) + (let ((_%tl188575188710%_ (let () (declare (not safe)) - (##cdr _%e187441187573%_))) - (_%hd187442187576%_ + (##cdr _%e188573188705%_))) + (_%hd188574188708%_ (let () (declare (not safe)) - (##car _%e187441187573%_)))) + (##car _%e188573188705%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187443187578%_)) + _%tl188575188710%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl187434187554%_)) + (gx#stx-null? _%tl188566188686%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187431187546%_)) - (let ((_%e187444187581%_ + (gx#stx-pair? _%tl188563188678%_)) + (let ((_%e188576188713%_ (let () (declare (not safe)) - (gx#stx-e _%tl187431187546%_)))) - (let ((_%tl187446187586%_ + (gx#stx-e _%tl188563188678%_)))) + (let ((_%tl188578188718%_ (let () (declare (not safe)) - (##cdr _%e187444187581%_))) - (_%hd187445187584%_ + (##cdr _%e188576188713%_))) + (_%hd188577188716%_ (let () (declare (not safe)) - (##car _%e187444187581%_)))) + (##car _%e188576188713%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187446187586%_)) + (gx#stx-null? _%tl188578188718%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187425187530%_)) - (_%__kont188042188043%_ - _%hd187445187584%_ - _%hd187442187576%_ - _%hd187439187568%_) + (gx#stx-null? _%tl188557188662%_)) + (_%__kont189174189175%_ + _%hd188577188716%_ + _%hd188574188708%_ + _%hd188571188700%_) (let () (declare (not safe)) - (_%g187412187461%_))) + (_%g188544188593%_))) (let () (declare (not safe)) - (_%g187412187461%_))))) - (let () (declare (not safe)) (_%g187412187461%_))) - (let () (declare (not safe)) (_%g187412187461%_))) - (let () (declare (not safe)) (_%g187412187461%_))))) + (_%g188544188593%_))))) + (let () (declare (not safe)) (_%g188544188593%_))) + (let () (declare (not safe)) (_%g188544188593%_))) + (let () (declare (not safe)) (_%g188544188593%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187412187461%_))) + (_%g188544188593%_))) (let () (declare (not safe)) - (_%g187412187461%_))))) + (_%g188544188593%_))))) (let () (declare (not safe)) - (_%g187412187461%_))))) + (_%g188544188593%_))))) (let () (declare (not safe)) - (_%g187412187461%_))))) - (let () (declare (not safe)) (_%g187412187461%_))))) - (let () (declare (not safe)) (_%g187412187461%_))) + (_%g188544188593%_))))) + (let () (declare (not safe)) (_%g188544188593%_))))) + (let () (declare (not safe)) (_%g188544188593%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187412187461%_))) + (_%g188544188593%_))) (let () (declare (not safe)) - (_%g187412187461%_))))) + (_%g188544188593%_))))) (let () (declare (not safe)) - (_%g187412187461%_))))) + (_%g188544188593%_))))) (let () (declare (not safe)) - (_%g187412187461%_))) - (let () (declare (not safe)) (_%g187412187461%_))))) - (let () (declare (not safe)) (_%g187412187461%_))) + (_%g188544188593%_))) + (let () (declare (not safe)) (_%g188544188593%_))))) + (let () (declare (not safe)) (_%g188544188593%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _%hd187418187512%_)) + (gx#stx-eq? '%#begin-annotation _%hd188550188644%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187419187514%_)) - (let ((_%e187451187474%_ + (gx#stx-pair? _%tl188551188646%_)) + (let ((_%e188583188606%_ (let () (declare (not safe)) - (gx#stx-e _%tl187419187514%_)))) - (let ((_%tl187453187479%_ + (gx#stx-e _%tl188551188646%_)))) + (let ((_%tl188585188611%_ (let () (declare (not safe)) - (##cdr _%e187451187474%_))) - (_%hd187452187477%_ + (##cdr _%e188583188606%_))) + (_%hd188584188609%_ (let () (declare (not safe)) - (##car _%e187451187474%_)))) + (##car _%e188583188606%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd187452187477%_)) + (gx#identifier? _%hd188584188609%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-else - _%hd187452187477%_)) + _%hd188584188609%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187453187479%_)) - (let ((_%e187454187482%_ + (gx#stx-pair? _%tl188585188611%_)) + (let ((_%e188586188614%_ (let () (declare (not safe)) - (gx#stx-e _%tl187453187479%_)))) - (let ((_%tl187456187487%_ + (gx#stx-e _%tl188585188611%_)))) + (let ((_%tl188588188619%_ (let () (declare (not safe)) - (##cdr _%e187454187482%_))) - (_%hd187455187485%_ + (##cdr _%e188586188614%_))) + (_%hd188587188617%_ (let () (declare (not safe)) - (##car _%e187454187482%_)))) + (##car _%e188586188614%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187456187487%_)) - (_%__kont188044188045%_ - _%hd187455187485%_) + _%tl188588188619%_)) + (_%__kont189176189177%_ + _%hd188587188617%_) (let () (declare (not safe)) - (_%g187412187461%_))))) + (_%g188544188593%_))))) (let () (declare (not safe)) - (_%g187412187461%_))) + (_%g188544188593%_))) (let () (declare (not safe)) - (_%g187412187461%_))) + (_%g188544188593%_))) (let () (declare (not safe)) - (_%g187412187461%_))))) - (let () (declare (not safe)) (_%g187412187461%_))) - (let () (declare (not safe)) (_%g187412187461%_)))) + (_%g188544188593%_))))) + (let () (declare (not safe)) (_%g188544188593%_))) + (let () (declare (not safe)) (_%g188544188593%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187412187461%_))))) + (_%g188544188593%_))))) (let () (declare (not safe)) - (_%g187412187461%_)))))))) + (_%g188544188593%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx188220188221%_)) - (let ((_%e187285187628%_ + (gx#stx-pair? _%__stx189352189353%_)) + (let ((_%e188417188760%_ (let () (declare (not safe)) - (gx#stx-e _%__stx188220188221%_)))) - (let ((_%tl187287187633%_ + (gx#stx-e _%__stx189352189353%_)))) + (let ((_%tl188419188765%_ (let () (declare (not safe)) - (##cdr _%e187285187628%_))) - (_%hd187286187631%_ + (##cdr _%e188417188760%_))) + (_%hd188418188763%_ (let () (declare (not safe)) - (##car _%e187285187628%_)))) + (##car _%e188417188760%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd187286187631%_)) + (gx#identifier? _%hd188418188763%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _%hd187286187631%_)) + _%hd188418188763%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187287187633%_)) - (let ((_%e187288187636%_ + _%tl188419188765%_)) + (let ((_%e188420188768%_ (let () (declare (not safe)) (gx#stx-e - _%tl187287187633%_)))) - (let ((_%tl187290187641%_ + _%tl188419188765%_)))) + (let ((_%tl188422188773%_ (let () (declare (not safe)) - (##cdr _%e187288187636%_))) - (_%hd187289187639%_ + (##cdr _%e188420188768%_))) + (_%hd188421188771%_ (let () (declare (not safe)) - (##car _%e187288187636%_)))) + (##car _%e188420188768%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187289187639%_)) + _%hd188421188771%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _%hd187289187639%_)) + _%hd188421188771%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl187290187641%_)) - (let ((_%e187291187644%_ + (gx#stx-pair? _%tl188422188773%_)) + (let ((_%e188423188776%_ (let () (declare (not safe)) - (gx#stx-e _%tl187290187641%_)))) - (let ((_%tl187293187649%_ + (gx#stx-e _%tl188422188773%_)))) + (let ((_%tl188425188781%_ (let () (declare (not safe)) - (##cdr _%e187291187644%_))) - (_%hd187292187647%_ + (##cdr _%e188423188776%_))) + (_%hd188424188779%_ (let () (declare (not safe)) - (##car _%e187291187644%_)))) + (##car _%e188423188776%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187293187649%_)) - (_%__kont188222188223%_ _%hd187292187647%_) + (gx#stx-null? _%tl188425188781%_)) + (_%__kont189354189355%_ _%hd188424188779%_) (let () (declare (not safe)) - (_%g187282187322%_))))) - (let () (declare (not safe)) (_%g187282187322%_))) - (let () (declare (not safe)) (_%g187282187322%_))) - (let () (declare (not safe)) (_%g187282187322%_))))) + (_%g188414188454%_))))) + (let () (declare (not safe)) (_%g188414188454%_))) + (let () (declare (not safe)) (_%g188414188454%_))) + (let () (declare (not safe)) (_%g188414188454%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187282187322%_))) + (_%g188414188454%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd187286187631%_)) + _%hd188418188763%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187287187633%_)) - (let ((_%e187300187335%_ + _%tl188419188765%_)) + (let ((_%e188432188467%_ (let () (declare (not safe)) (gx#stx-e - _%tl187287187633%_)))) - (let ((_%tl187302187340%_ + _%tl188419188765%_)))) + (let ((_%tl188434188472%_ (let () (declare (not safe)) - (##cdr _%e187300187335%_))) - (_%hd187301187338%_ + (##cdr _%e188432188467%_))) + (_%hd188433188470%_ (let () (declare (not safe)) - (##car _%e187300187335%_)))) + (##car _%e188432188467%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187301187338%_)) - (let ((_%e187303187343%_ + _%hd188433188470%_)) + (let ((_%e188435188475%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd187301187338%_)))) - (let ((_%tl187305187348%_ + (gx#stx-e _%hd188433188470%_)))) + (let ((_%tl188437188480%_ (let () (declare (not safe)) - (##cdr _%e187303187343%_))) - (_%hd187304187346%_ + (##cdr _%e188435188475%_))) + (_%hd188436188478%_ (let () (declare (not safe)) - (##car _%e187303187343%_)))) + (##car _%e188435188475%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187304187346%_)) - (let ((_%e187306187351%_ + (gx#stx-pair? _%hd188436188478%_)) + (let ((_%e188438188483%_ (let () (declare (not safe)) - (gx#stx-e _%hd187304187346%_)))) - (let ((_%tl187308187356%_ + (gx#stx-e _%hd188436188478%_)))) + (let ((_%tl188440188488%_ (let () (declare (not safe)) - (##cdr _%e187306187351%_))) - (_%hd187307187354%_ + (##cdr _%e188438188483%_))) + (_%hd188439188486%_ (let () (declare (not safe)) - (##car _%e187306187351%_)))) + (##car _%e188438188483%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187307187354%_)) - (let ((_%e187309187359%_ + (gx#stx-pair? _%hd188439188486%_)) + (let ((_%e188441188491%_ (let () (declare (not safe)) - (gx#stx-e _%hd187307187354%_)))) - (let ((_%tl187311187364%_ + (gx#stx-e _%hd188439188486%_)))) + (let ((_%tl188443188496%_ (let () (declare (not safe)) - (##cdr _%e187309187359%_))) - (_%hd187310187362%_ + (##cdr _%e188441188491%_))) + (_%hd188442188494%_ (let () (declare (not safe)) - (##car _%e187309187359%_)))) + (##car _%e188441188491%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187311187364%_)) + (gx#stx-null? _%tl188443188496%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187308187356%_)) - (let ((_%e187312187367%_ + _%tl188440188488%_)) + (let ((_%e188444188499%_ (let () (declare (not safe)) (gx#stx-e - _%tl187308187356%_)))) - (let ((_%tl187314187372%_ + _%tl188440188488%_)))) + (let ((_%tl188446188504%_ (let () (declare (not safe)) - (##cdr _%e187312187367%_))) - (_%hd187313187370%_ + (##cdr _%e188444188499%_))) + (_%hd188445188502%_ (let () (declare (not safe)) - (##car _%e187312187367%_)))) + (##car _%e188444188499%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187314187372%_)) + _%tl188446188504%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187305187348%_)) + _%tl188437188480%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl187302187340%_)) - (let ((_%e187315187375%_ + (gx#stx-pair? _%tl188434188472%_)) + (let ((_%e188447188507%_ (let () (declare (not safe)) - (gx#stx-e _%tl187302187340%_)))) - (let ((_%tl187317187380%_ + (gx#stx-e _%tl188434188472%_)))) + (let ((_%tl188449188512%_ (let () (declare (not safe)) - (##cdr _%e187315187375%_))) - (_%hd187316187378%_ + (##cdr _%e188447188507%_))) + (_%hd188448188510%_ (let () (declare (not safe)) - (##car _%e187315187375%_)))) + (##car _%e188447188507%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187317187380%_)) - (_%__kont188224188225%_ - _%hd187316187378%_ - _%hd187313187370%_ - _%hd187310187362%_) + (gx#stx-null? _%tl188449188512%_)) + (_%__kont189356189357%_ + _%hd188448188510%_ + _%hd188445188502%_ + _%hd188442188494%_) (let () (declare (not safe)) - (_%g187282187322%_))))) - (let () (declare (not safe)) (_%g187282187322%_))) - (let () (declare (not safe)) (_%g187282187322%_))) - (let () (declare (not safe)) (_%g187282187322%_))))) + (_%g188414188454%_))))) + (let () (declare (not safe)) (_%g188414188454%_))) + (let () (declare (not safe)) (_%g188414188454%_))) + (let () (declare (not safe)) (_%g188414188454%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187282187322%_))) + (_%g188414188454%_))) (let () (declare (not safe)) - (_%g187282187322%_))))) + (_%g188414188454%_))))) (let () (declare (not safe)) - (_%g187282187322%_))))) - (let () (declare (not safe)) (_%g187282187322%_))))) - (let () (declare (not safe)) (_%g187282187322%_))))) + (_%g188414188454%_))))) + (let () (declare (not safe)) (_%g188414188454%_))))) + (let () (declare (not safe)) (_%g188414188454%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187282187322%_))) + (_%g188414188454%_))) (let () (declare (not safe)) - (_%g187282187322%_)))) + (_%g188414188454%_)))) (let () (declare (not safe)) - (_%g187282187322%_))))) + (_%g188414188454%_))))) (let () (declare (not safe)) - (_%g187282187322%_))))))) - _%hd187181187243%_ - _%hd187178187235%_ - _%hd187175187227%_) - (_%g187157187187%_ _%g187158187190%_)))) + (_%g188414188454%_))))))) + _%hd188313188375%_ + _%hd188310188367%_ + _%hd188307188359%_) + (_%g188289188319%_ _%g188290188322%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187157187187%_ - _%g187158187190%_)) - (_%g187157187187%_ - _%g187158187190%_)) - (_%g187157187187%_ - _%g187158187190%_)))) - (_%g187157187187%_ _%g187158187190%_)) - (_%g187157187187%_ _%g187158187190%_)))) - (_%g187157187187%_ _%g187158187190%_)))) - (_%g187157187187%_ _%g187158187190%_)))) + (_%g188289188319%_ + _%g188290188322%_)) + (_%g188289188319%_ + _%g188290188322%_)) + (_%g188289188319%_ + _%g188290188322%_)))) + (_%g188289188319%_ _%g188290188322%_)) + (_%g188289188319%_ _%g188290188322%_)))) + (_%g188289188319%_ _%g188290188322%_)))) + (_%g188289188319%_ _%g188290188322%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187157187187%_ - _%g187158187190%_)))) - (_%g187157187187%_ _%g187158187190%_)) - (_%g187157187187%_ _%g187158187190%_)) - (_%g187157187187%_ _%g187158187190%_)))) - (_%g187157187187%_ _%g187158187190%_))))) - (_%g187156187853%_ _%stx187155%_)))) + (_%g188289188319%_ + _%g188290188322%_)))) + (_%g188289188319%_ _%g188290188322%_)) + (_%g188289188319%_ _%g188290188322%_)) + (_%g188289188319%_ _%g188290188322%_)))) + (_%g188289188319%_ _%g188290188322%_))))) + (_%g188288188985%_ _%stx188287%_)))) (define gxc#optimize-match-body - (lambda (_%stx186861%_ - _%negation186862%_ - _%clauses186863%_ - _%konts186864%_) - (letrec ((_%push-variables186866%_ - (lambda (_%clause187113%_ _%kont187114%_) - (let ((_%clause187115187125%_ _%clause187113%_) - (_%kont187116187127%_ _%kont187114%_)) - (let* ((_%E187118187131%_ + (lambda (_%stx187993%_ + _%negation187994%_ + _%clauses187995%_ + _%konts187996%_) + (letrec ((_%push-variables187998%_ + (lambda (_%clause188245%_ _%kont188246%_) + (let ((_%clause188247188257%_ _%clause188245%_) + (_%kont188248188259%_ _%kont188246%_)) + (let* ((_%E188250188263%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause187115187125%_ - _%kont187116187127%_ + _%clause188247188257%_ + _%kont188248188259%_ '([clause-name . clause-lambda] [K . _]))) '#!void)) - (_%K187119187138%_ - (lambda (_%clause-lambda187134%_ - _%clause-name187135%_ - _%K187136%_) - (cons _%clause-name187135%_ + (_%K188251188270%_ + (lambda (_%clause-lambda188266%_ + _%clause-name188267%_ + _%K188268%_) + (cons _%clause-name188267%_ (gxc#apply-push-match-vars__% '#f '() - _%K187136%_ - _%clause-lambda187134%_))))) - (if (let () - (declare (not safe)) - (##pair? _%clause187115187125%_)) - (let ((_%hd187122187141%_ + _%K188268%_ + _%clause-lambda188266%_))))) + (if (pair? _%clause188247188257%_) + (let ((_%hd188254188273%_ (let () (declare (not safe)) - (##car _%clause187115187125%_))) - (_%tl187123187143%_ + (##car _%clause188247188257%_))) + (_%tl188255188275%_ (let () (declare (not safe)) - (##cdr _%clause187115187125%_)))) - (let* ((_%clause-name187146%_ _%hd187122187141%_) - (_%clause-lambda187148%_ - _%tl187123187143%_)) - (if (let () - (declare (not safe)) - (##pair? _%kont187116187127%_)) - (let* ((_%hd187120187150%_ + (##cdr _%clause188247188257%_)))) + (let* ((_%clause-name188278%_ _%hd188254188273%_) + (_%clause-lambda188280%_ + _%tl188255188275%_)) + (if (pair? _%kont188248188259%_) + (let* ((_%hd188252188282%_ (let () (declare (not safe)) - (##car _%kont187116187127%_))) - (_%K187153%_ _%hd187120187150%_)) - (_%K187119187138%_ - _%clause-lambda187148%_ - _%clause-name187146%_ - _%K187153%_)) - (_%E187118187131%_)))) - (_%E187118187131%_)))))) - (_%start-match186867%_ - (lambda (_%kont187047%_) - (let* ((_%g187049187065%_ - (lambda (_%g187050187062%_) + (##car _%kont188248188259%_))) + (_%K188285%_ _%hd188252188282%_)) + (_%K188251188270%_ + _%clause-lambda188280%_ + _%clause-name188278%_ + _%K188285%_)) + (_%E188250188263%_)))) + (_%E188250188263%_)))))) + (_%start-match187999%_ + (lambda (_%kont188179%_) + (let* ((_%g188181188197%_ + (lambda (_%g188182188194%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187050187062%_)))) - (_%g187048187110%_ - (lambda (_%g187050187068%_) + _%g188182188194%_)))) + (_%g188180188242%_ + (lambda (_%g188182188200%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g187050187068%_)) - (let ((_%e187052187070%_ + (gx#stx-pair? _%g188182188200%_)) + (let ((_%e188184188202%_ (let () (declare (not safe)) - (gx#stx-e _%g187050187068%_)))) - (let ((_%hd187053187073%_ + (gx#stx-e _%g188182188200%_)))) + (let ((_%hd188185188205%_ (let () (declare (not safe)) - (##car _%e187052187070%_))) - (_%tl187054187075%_ + (##car _%e188184188202%_))) + (_%tl188186188207%_ (let () (declare (not safe)) - (##cdr _%e187052187070%_)))) + (##cdr _%e188184188202%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187053187073%_)) + _%hd188185188205%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187053187073%_)) + _%hd188185188205%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187054187075%_)) - (let ((_%e187055187078%_ + _%tl188186188207%_)) + (let ((_%e188187188210%_ (let () (declare (not safe)) (gx#stx-e - _%tl187054187075%_)))) - (let ((_%hd187056187081%_ + _%tl188186188207%_)))) + (let ((_%hd188188188213%_ (let () (declare (not safe)) - (##car _%e187055187078%_))) - (_%tl187057187083%_ + (##car _%e188187188210%_))) + (_%tl188189188215%_ (let () (declare (not safe)) - (##cdr _%e187055187078%_)))) + (##cdr _%e188187188210%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd187056187081%_)) + _%hd188188188213%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187057187083%_)) - (let ((_%e187058187086%_ + (gx#stx-pair? _%tl188189188215%_)) + (let ((_%e188190188218%_ (let () (declare (not safe)) - (gx#stx-e _%tl187057187083%_)))) - (let ((_%hd187059187089%_ + (gx#stx-e _%tl188189188215%_)))) + (let ((_%hd188191188221%_ (let () (declare (not safe)) - (##car _%e187058187086%_))) - (_%tl187060187091%_ + (##car _%e188190188218%_))) + (_%tl188192188223%_ (let () (declare (not safe)) - (##cdr _%e187058187086%_)))) + (##cdr _%e188190188218%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187060187091%_)) - ((lambda (_%L187094%_) _%L187094%_) - _%hd187059187089%_) - (_%g187049187065%_ _%g187050187068%_)))) - (_%g187049187065%_ _%g187050187068%_)) - (_%g187049187065%_ _%g187050187068%_)))) + (gx#stx-null? _%tl188192188223%_)) + ((lambda (_%L188226%_) _%L188226%_) + _%hd188191188221%_) + (_%g188181188197%_ _%g188182188200%_)))) + (_%g188181188197%_ _%g188182188200%_)) + (_%g188181188197%_ _%g188182188200%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187049187065%_ - _%g187050187068%_)) - (_%g187049187065%_ - _%g187050187068%_)) - (_%g187049187065%_ - _%g187050187068%_)))) - (_%g187049187065%_ _%g187050187068%_))))) - (_%g187048187110%_ _%kont187047%_)))) - (_%match-body186868%_ - (lambda (_%blocks186944%_) - (let* ((_%blocks186945186954%_ _%blocks186944%_) - (_%E186947186958%_ + (_%g188181188197%_ + _%g188182188200%_)) + (_%g188181188197%_ + _%g188182188200%_)) + (_%g188181188197%_ + _%g188182188200%_)))) + (_%g188181188197%_ _%g188182188200%_))))) + (_%g188180188242%_ _%kont188179%_)))) + (_%match-body188000%_ + (lambda (_%blocks188076%_) + (let* ((_%blocks188077188086%_ _%blocks188076%_) + (_%E188079188090%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%blocks186945186954%_ + _%blocks188077188086%_ '([[#f . start] . rest]))) '#!void)) - (_%K186948187030%_ - (lambda (_%rest186961%_ _%start186962%_) - (let _%lp186964%_ ((_%rest186966%_ - _%rest186961%_) - (_%body186967%_ - (_%start-match186867%_ - _%start186962%_))) - (let* ((_%rest186968186976%_ _%rest186966%_) - (_%else186970186984%_ - (lambda () _%body186967%_)) - (_%K186972187018%_ - (lambda (_%rest186987%_ - _%block186988%_) - (let* ((_%block186989186996%_ - _%block186988%_) - (_%E186991187000%_ + (_%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%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block186989186996%_ + _%block188121188128%_ '([K . kont]))) '#!void)) - (_%K186992187006%_ - (lambda (_%kont187003%_ - _%K187004%_) - (_%lp186964%_ - _%rest186987%_ + (_%K188124188138%_ + (lambda (_%kont188135%_ + _%K188136%_) + (_%lp188096%_ + _%rest188119%_ (cons '%#let-values - (cons (cons (cons (cons _%K187004%_ + (cons (cons (cons (cons _%K188136%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%kont187003%_ '())) + (cons _%kont188135%_ '())) '()) - (cons _%body186967%_ '()))))))) + (cons _%body188099%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%block186989186996%_)) - (let ((_%hd186993187009%_ + (if (pair? _%block188121188128%_) + (let ((_%hd188125188141%_ (let () (declare (not safe)) - (##car _%block186989186996%_))) - (_%tl186994187011%_ + (##car _%block188121188128%_))) + (_%tl188126188143%_ (let () (declare (not safe)) - (##cdr _%block186989186996%_)))) - (let* ((_%K187014%_ - _%hd186993187009%_) - (_%kont187016%_ - _%tl186994187011%_)) - (_%K186992187006%_ - _%kont187016%_ - _%K187014%_))) - (_%E186991187000%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest186968186976%_)) - (let ((_%hd186973187021%_ + (##cdr _%block188121188128%_)))) + (let* ((_%K188146%_ + _%hd188125188141%_) + (_%kont188148%_ + _%tl188126188143%_)) + (_%K188124188138%_ + _%kont188148%_ + _%K188146%_))) + (_%E188123188132%_)))))) + (if (pair? _%rest188100188108%_) + (let ((_%hd188105188153%_ (let () (declare (not safe)) - (##car _%rest186968186976%_))) - (_%tl186974187023%_ + (##car _%rest188100188108%_))) + (_%tl188106188155%_ (let () (declare (not safe)) - (##cdr _%rest186968186976%_)))) - (let* ((_%block187026%_ - _%hd186973187021%_) - (_%rest187028%_ - _%tl186974187023%_)) - (_%K186972187018%_ - _%rest187028%_ - _%block187026%_))) - (_%else186970186984%_))))))) - (if (let () - (declare (not safe)) - (##pair? _%blocks186945186954%_)) - (let ((_%hd186949187033%_ + (##cdr _%rest188100188108%_)))) + (let* ((_%block188158%_ + _%hd188105188153%_) + (_%rest188160%_ + _%tl188106188155%_)) + (_%K188104188150%_ + _%rest188160%_ + _%block188158%_))) + (_%else188102188116%_))))))) + (if (pair? _%blocks188077188086%_) + (let ((_%hd188081188165%_ (let () (declare (not safe)) - (##car _%blocks186945186954%_))) - (_%tl186950187035%_ + (##car _%blocks188077188086%_))) + (_%tl188082188167%_ (let () (declare (not safe)) - (##cdr _%blocks186945186954%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd186949187033%_)) - (let ((_%hd186951187038%_ + (##cdr _%blocks188077188086%_)))) + (if (pair? _%hd188081188165%_) + (let ((_%hd188083188170%_ (let () (declare (not safe)) - (##car _%hd186949187033%_))) - (_%tl186952187040%_ + (##car _%hd188081188165%_))) + (_%tl188084188172%_ (let () (declare (not safe)) - (##cdr _%hd186949187033%_)))) + (##cdr _%hd188081188165%_)))) (if (let () (declare (not safe)) - (##eq? _%hd186951187038%_ '#f)) - (let* ((_%start187043%_ - _%tl186952187040%_) - (_%rest187045%_ - _%tl186950187035%_)) - (_%K186948187030%_ - _%rest187045%_ - _%start187043%_)) - (_%E186947186958%_))) - (_%E186947186958%_))) - (_%E186947186958%_)))))) - (let ((__tmp191127 + (##eq? _%hd188083188170%_ '#f)) + (let* ((_%start188175%_ + _%tl188084188172%_) + (_%rest188177%_ + _%tl188082188167%_)) + (_%K188080188162%_ + _%rest188177%_ + _%start188175%_)) + (_%E188079188090%_))) + (_%E188079188090%_))) + (_%E188079188090%_)))))) + (let ((__tmp192259 (lambda () - (let* ((_%clauses186871%_ - (map _%push-variables186866%_ - _%clauses186863%_ - _%konts186864%_)) - (_%blocks186873%_ - (gxc#optimize-match-basic-blocks _%clauses186871%_)) - (_%blocks186875%_ + (let* ((_%clauses188003%_ + (map _%push-variables187998%_ + _%clauses187995%_ + _%konts187996%_)) + (_%blocks188005%_ + (gxc#optimize-match-basic-blocks _%clauses188003%_)) + (_%blocks188007%_ (gxc#optimize-match-fold-basic-blocks - _%blocks186873%_)) - (_%body186877%_ - (_%match-body186868%_ _%blocks186875%_)) - (_%bind186911%_ - (map (lambda (_%e186878186880%_) - (let* ((_%g186882186889%_ _%e186878186880%_) - (_%E186884186893%_ + _%blocks188005%_)) + (_%body188009%_ + (_%match-body188000%_ _%blocks188007%_)) + (_%bind188043%_ + (map (lambda (_%e188010188012%_) + (let* ((_%g188014188021%_ _%e188010188012%_) + (_%E188016188025%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g186882186889%_ + _%g188014188021%_ '([K . kont]))) '#!void)) - (_%K186885186899%_ - (lambda (_%kont186896%_ _%K186897%_) - (cons (cons _%K186897%_ '()) - (cons _%kont186896%_ '()))))) - (if (let () - (declare (not safe)) - (##pair? _%g186882186889%_)) - (let ((_%hd186886186902%_ + (_%K188017188031%_ + (lambda (_%kont188028%_ _%K188029%_) + (cons (cons _%K188029%_ '()) + (cons _%kont188028%_ '()))))) + (if (pair? _%g188014188021%_) + (let ((_%hd188018188034%_ (let () (declare (not safe)) - (##car _%g186882186889%_))) - (_%tl186887186904%_ + (##car _%g188014188021%_))) + (_%tl188019188036%_ (let () (declare (not safe)) - (##cdr _%g186882186889%_)))) - (let* ((_%K186907%_ - _%hd186886186902%_) - (_%kont186909%_ - _%tl186887186904%_)) - (_%K186885186899%_ - _%kont186909%_ - _%K186907%_))) - (_%E186884186893%_)))) - _%konts186864%_)) - (_%negate186941%_ - (let* ((_%negation186912186919%_ _%negation186862%_) - (_%E186914186923%_ + (##cdr _%g188014188021%_)))) + (let* ((_%K188039%_ + _%hd188018188034%_) + (_%kont188041%_ + _%tl188019188036%_)) + (_%K188017188031%_ + _%kont188041%_ + _%K188039%_))) + (_%E188016188025%_)))) + _%konts187996%_)) + (_%negate188073%_ + (let* ((_%negation188044188051%_ _%negation187994%_) + (_%E188046188055%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation186912186919%_ + _%negation188044188051%_ '([K . kont]))) '#!void)) - (_%K186915186929%_ - (lambda (_%kont186926%_ _%K186927%_) - (cons (cons _%K186927%_ '()) - (cons _%kont186926%_ '()))))) - (if (let () - (declare (not safe)) - (##pair? _%negation186912186919%_)) - (let ((_%hd186916186932%_ + (_%K188047188061%_ + (lambda (_%kont188058%_ _%K188059%_) + (cons (cons _%K188059%_ '()) + (cons _%kont188058%_ '()))))) + (if (pair? _%negation188044188051%_) + (let ((_%hd188048188064%_ (let () (declare (not safe)) - (##car _%negation186912186919%_))) - (_%tl186917186934%_ + (##car _%negation188044188051%_))) + (_%tl188049188066%_ (let () (declare (not safe)) - (##cdr _%negation186912186919%_)))) - (let* ((_%K186937%_ _%hd186916186932%_) - (_%kont186939%_ _%tl186917186934%_)) - (_%K186915186929%_ - _%kont186939%_ - _%K186937%_))) - (_%E186914186923%_)))) - (__tmp191128 + (##cdr _%negation188044188051%_)))) + (let* ((_%K188069%_ _%hd188048188064%_) + (_%kont188071%_ _%tl188049188066%_)) + (_%K188047188061%_ + _%kont188071%_ + _%K188069%_))) + (_%E188046188055%_)))) + (__tmp192260 (cons '%#let-values - (cons (cons _%negate186941%_ '()) + (cons (cons _%negate188073%_ '()) (cons (cons '%#let-values - (cons _%bind186911%_ - (cons _%body186877%_ + (cons _%bind188043%_ + (cons _%body188009%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp191128 _%stx186861%_)))) - (__tmp191126 - (let ((__obj191107 + (gxc#xform-wrap-source __tmp192260 _%stx187993%_)))) + (__tmp192258 + (let ((__obj192239 (let () (declare (not safe)) (##structure @@ -1870,1932 +1850,1889 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj191107)) - __obj191107))) + (gx#local-context:::init!__0 __obj192239)) + __obj192239))) (declare (not safe)) (__call-with-parameters - __tmp191127 + __tmp192259 gx#current-expander-context - __tmp191126))))) + __tmp192258))))) (define gxc#optimize-match-basic-blocks - (lambda (_%clauses186821%_) - (let _%lp186823%_ ((_%rest186825%_ _%clauses186821%_) - (_%blocks186826%_ '())) - (let* ((_%rest186827186835%_ _%rest186825%_) - (_%else186829186843%_ (lambda () (reverse _%blocks186826%_))) - (_%K186831186849%_ - (lambda (_%rest186846%_ _%clause186847%_) - (_%lp186823%_ - _%rest186846%_ + (lambda (_%clauses187953%_) + (let _%lp187955%_ ((_%rest187957%_ _%clauses187953%_) + (_%blocks187958%_ '())) + (let* ((_%rest187959187967%_ _%rest187957%_) + (_%else187961187975%_ (lambda () (reverse _%blocks187958%_))) + (_%K187963187981%_ + (lambda (_%rest187978%_ _%clause187979%_) + (_%lp187955%_ + _%rest187978%_ (gxc#optimize-match-lift-basic-blocks - _%clause186847%_ - _%blocks186826%_))))) - (if (let () (declare (not safe)) (##pair? _%rest186827186835%_)) - (let ((_%hd186832186852%_ + _%clause187979%_ + _%blocks187958%_))))) + (if (pair? _%rest187959187967%_) + (let ((_%hd187964187984%_ (let () (declare (not safe)) - (##car _%rest186827186835%_))) - (_%tl186833186854%_ + (##car _%rest187959187967%_))) + (_%tl187965187986%_ (let () (declare (not safe)) - (##cdr _%rest186827186835%_)))) - (let* ((_%clause186857%_ _%hd186832186852%_) - (_%rest186859%_ _%tl186833186854%_)) - (_%K186831186849%_ _%rest186859%_ _%clause186857%_))) - (_%else186829186843%_)))))) + (##cdr _%rest187959187967%_)))) + (let* ((_%clause187989%_ _%hd187964187984%_) + (_%rest187991%_ _%tl187965187986%_)) + (_%K187963187981%_ _%rest187991%_ _%clause187989%_))) + (_%else187961187975%_)))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_%clause186164%_ _%blocks186165%_) - (letrec ((_%bind->args186167%_ - (lambda (_%bind186816%_) - (let ((__tmp191129 - (lambda (_%b186818%_ _%r186819%_) - (cons (cons '%#ref (cons (car _%b186818%_) '())) - _%r186819%_)))) + (lambda (_%clause187296%_ _%blocks187297%_) + (letrec ((_%bind->args187299%_ + (lambda (_%bind187948%_) + (let ((__tmp192261 + (lambda (_%b187950%_ _%r187951%_) + (cons (cons '%#ref (cons (car _%b187950%_) '())) + _%r187951%_)))) (declare (not safe)) - (__foldl1 __tmp191129 '() _%bind186816%_)))) - (_%create-block186168%_ - (lambda (_%body186764%_ - _%let-bind186765%_ - _%bind186766%_ - _%assert186767%_) - (let* ((_%id186769%_ - (let ((__tmp191130 + (__foldl1 __tmp192261 '() _%bind187948%_)))) + (_%create-block187300%_ + (lambda (_%body187896%_ + _%let-bind187897%_ + _%bind187898%_ + _%assert187899%_) + (let* ((_%id187901%_ + (let ((__tmp192262 (let () (declare (not safe)) (##gensym '__match)))) (declare (not safe)) - (make-symbol__0 __tmp191130))) - (_%id186771%_ + (make-symbol__0 __tmp192262))) + (_%id187903%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id186769%_))) - (_%_186773%_ + (gx#core-quote-syntax__0 _%id187901%_))) + (_%_187905%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id186771%_))) - (_%block186775%_ - (cons _%id186771%_ - (cons _%body186764%_ - (cons _%bind186766%_ - (cons _%assert186767%_ '()))))) - (_%continue186777%_ + (gx#core-bind-runtime!__0 _%id187903%_))) + (_%block187907%_ + (cons _%id187903%_ + (cons _%body187896%_ + (cons _%bind187898%_ + (cons _%assert187899%_ '()))))) + (_%continue187909%_ (cons '%#call - (cons (cons '%#ref (cons _%id186771%_ '())) - (_%bind->args186167%_ - _%bind186766%_)))) - (_%continue186813%_ - (if (null? _%let-bind186765%_) - _%continue186777%_ - (let ((_%locals186811%_ - (map (lambda (_%e186778186780%_) - (let* ((_%g186782186789%_ - _%e186778186780%_) - (_%E186784186793%_ + (cons (cons '%#ref (cons _%id187903%_ '())) + (_%bind->args187299%_ + _%bind187898%_)))) + (_%continue187945%_ + (if (null? _%let-bind187897%_) + _%continue187909%_ + (let ((_%locals187943%_ + (map (lambda (_%e187910187912%_) + (let* ((_%g187914187921%_ + _%e187910187912%_) + (_%E187916187925%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g186782186789%_ + _%g187914187921%_ '([id . expr]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K186785186799%_ - (lambda (_%expr186796%_ - _%id186797%_) - (cons (cons _%id186797%_ + (_%K187917187931%_ + (lambda (_%expr187928%_ + _%id187929%_) + (cons (cons _%id187929%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr186796%_ '()))))) + (cons _%expr187928%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%g186782186789%_)) - (let ((_%hd186786186802%_ + (if (pair? _%g187914187921%_) + (let ((_%hd187918187934%_ (let () (declare (not safe)) - (##car _%g186782186789%_))) - (_%tl186787186804%_ + (##car _%g187914187921%_))) + (_%tl187919187936%_ (let () (declare (not safe)) - (##cdr _%g186782186789%_)))) - (let* ((_%id186807%_ - _%hd186786186802%_) - (_%expr186809%_ - _%tl186787186804%_)) - (_%K186785186799%_ - _%expr186809%_ - _%id186807%_))) - (_%E186784186793%_)))) - _%let-bind186765%_))) + (##cdr _%g187914187921%_)))) + (let* ((_%id187939%_ + _%hd187918187934%_) + (_%expr187941%_ + _%tl187919187936%_)) + (_%K187917187931%_ + _%expr187941%_ + _%id187939%_))) + (_%E187916187925%_)))) + _%let-bind187897%_))) (cons '%#let-values - (cons _%locals186811%_ - (cons _%continue186777%_ + (cons _%locals187943%_ + (cons _%continue187909%_ '()))))))) - (values _%continue186813%_ _%block186775%_)))) - (_%basic-block186169%_ - (lambda (_%body186350%_ _%bind186351%_ _%assert186352%_) - (let* ((_%__stx188328188329%_ _%body186350%_) - (_%g186357186441%_ + (values _%continue187945%_ _%block187907%_)))) + (_%basic-block187301%_ + (lambda (_%body187482%_ _%bind187483%_ _%assert187484%_) + (let* ((_%__stx189460189461%_ _%body187482%_) + (_%g187489187573%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188328188329%_))))) - (let ((_%__kont188330188331%_ - (lambda (_%L186700%_ _%L186701%_ _%L186702%_) - (let ((_g191131_ - (_%create-block186168%_ - _%L186701%_ + _%__stx189460189461%_))))) + (let ((_%__kont189462189463%_ + (lambda (_%L187832%_ _%L187833%_ _%L187834%_) + (let ((_g192263_ + (_%create-block187300%_ + _%L187833%_ '() - _%bind186351%_ - (cons (cons _%L186702%_ '#t) - _%assert186352%_)))) + _%bind187483%_ + (cons (cons _%L187834%_ '#t) + _%assert187484%_)))) (begin - (let ((_g191132_ + (let ((_g192264_ (let () (declare (not safe)) - (if (##values? _g191131_) - (##vector-length _g191131_) + (if (##values? _g192263_) + (##vector-length _g192263_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g191132_ 2))) + (##fx= _g192264_ 2))) (error "Context expects 2 values" - _g191132_))) - (let ((_%k-continue186720%_ + _g192264_))) + (let ((_%k-continue187852%_ (let () (declare (not safe)) - (##vector-ref _g191131_ 0))) - (_%k-block186721%_ + (##vector-ref _g192263_ 0))) + (_%k-block187853%_ (let () (declare (not safe)) - (##vector-ref _g191131_ 1)))) - (let* ((_%__stx188310188311%_ _%L186700%_) - (_%g186724186733%_ + (##vector-ref _g192263_ 1)))) + (let* ((_%__stx189442189443%_ _%L187832%_) + (_%g187856187865%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188310188311%_))))) - (let ((_%__kont188312188313%_ + _%__stx189442189443%_))))) + (let ((_%__kont189444189445%_ (lambda () (values (cons '%#if - (cons _%L186702%_ + (cons _%L187834%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%k-continue186720%_ - (cons _%L186700%_ '())))) - (cons _%k-block186721%_ '())))) + (cons _%k-continue187852%_ + (cons _%L187832%_ '())))) + (cons _%k-block187853%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188314188315%_ + (_%__kont189446189447%_ (lambda () - (let ((_g191133_ - (_%create-block186168%_ - _%L186700%_ + (let ((_g192265_ + (_%create-block187300%_ + _%L187832%_ '() - _%bind186351%_ - (cons (cons _%L186702%_ + _%bind187483%_ + (cons (cons _%L187834%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f) - _%assert186352%_)))) + _%assert187484%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g191134_ + (let ((_g192266_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g191133_) - (##vector-length _g191133_) + _g192265_) + (##vector-length _g192265_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g191134_ 2))) - (error "Context expects 2 values" _g191134_))) + (if (not (let () (declare (not safe)) (##fx= _g192266_ 2))) + (error "Context expects 2 values" _g192266_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%e-continue186740%_ + (let ((_%e-continue187872%_ (let () (declare (not safe)) (##vector-ref - _g191133_ + _g192265_ 0))) - (_%e-block186741%_ + (_%e-block187873%_ (let () (declare (not safe)) (##vector-ref - _g191133_ + _g192265_ 1)))) (values (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L186702%_ - (cons _%k-continue186720%_ - (cons _%e-continue186740%_ '())))) - (cons _%k-block186721%_ - (cons _%e-block186741%_ '()))))))))) + (cons _%L187834%_ + (cons _%k-continue187852%_ + (cons _%e-continue187872%_ '())))) + (cons _%k-block187853%_ + (cons _%e-block187873%_ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx188310188311%_)) - (let ((_%e186726186748%_ + _%__stx189442189443%_)) + (let ((_%e187858187880%_ (let () (declare (not safe)) (gx#stx-e - _%__stx188310188311%_)))) - (let ((_%tl186728186753%_ + _%__stx189442189443%_)))) + (let ((_%tl187860187885%_ (let () (declare (not safe)) - (##cdr _%e186726186748%_))) - (_%hd186727186751%_ + (##cdr _%e187858187880%_))) + (_%hd187859187883%_ (let () (declare (not safe)) - (##car _%e186726186748%_)))) + (##car _%e187858187880%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186727186751%_)) + _%hd187859187883%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd186727186751%_)) - (_%__kont188312188313%_) - (_%__kont188314188315%_)) - (_%__kont188314188315%_)))) - (_%__kont188314188315%_))))))))) - (_%__kont188332188333%_ - (lambda () (values _%body186350%_ '()))) - (_%__kont188336188337%_ - (lambda (_%L186529%_ _%L186530%_ _%L186531%_) - (let* ((_%let-bind186566%_ + _%hd187859187883%_)) + (_%__kont189444189445%_) + (_%__kont189446189447%_)) + (_%__kont189446189447%_)))) + (_%__kont189446189447%_))))))))) + (_%__kont189464189465%_ + (lambda () (values _%body187482%_ '()))) + (_%__kont189468189469%_ + (lambda (_%L187661%_ _%L187662%_ _%L187663%_) + (let* ((_%let-bind187698%_ (map cons - (let ((__tmp191135 - (lambda (_%g186551186554%_ - _%g186552186556%_) - (cons _%g186551186554%_ - _%g186552186556%_)))) + (let ((__tmp192267 + (lambda (_%g187683187686%_ + _%g187684187688%_) + (cons _%g187683187686%_ + _%g187684187688%_)))) (declare (not safe)) (__foldr1 - __tmp191135 + __tmp192267 '() - _%L186531%_)) - (let ((__tmp191136 - (lambda (_%g186558186561%_ - _%g186559186563%_) - (cons _%g186558186561%_ - _%g186559186563%_)))) + _%L187663%_)) + (let ((__tmp192268 + (lambda (_%g187690187693%_ + _%g187691187695%_) + (cons _%g187690187693%_ + _%g187691187695%_)))) (declare (not safe)) (__foldr1 - __tmp191136 + __tmp192268 '() - _%L186530%_)))) - (_g191137_ - (_%create-block186168%_ - _%L186529%_ - _%let-bind186566%_ + _%L187662%_)))) + (_g192269_ + (_%create-block187300%_ + _%L187661%_ + _%let-bind187698%_ (let () (declare (not safe)) (__foldl1 cons - _%bind186351%_ - _%let-bind186566%_)) - _%assert186352%_))) + _%bind187483%_ + _%let-bind187698%_)) + _%assert187484%_))) (begin - (let ((_g191138_ + (let ((_g192270_ (let () (declare (not safe)) - (if (##values? _g191137_) - (##vector-length _g191137_) + (if (##values? _g192269_) + (##vector-length _g192269_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g191138_ 2))) + (##fx= _g192270_ 2))) (error "Context expects 2 values" - _g191138_))) - (let ((_%continue186568%_ + _g192270_))) + (let ((_%continue187700%_ (let () (declare (not safe)) - (##vector-ref _g191137_ 0))) - (_%block186569%_ + (##vector-ref _g192269_ 0))) + (_%block187701%_ (let () (declare (not safe)) - (##vector-ref _g191137_ 1)))) - (values _%continue186568%_ - (cons _%block186569%_ '()))))))) - (_%__kont188340188341%_ - (lambda () (values _%body186350%_ '())))) - (let* ((_%__match188419188420%_ - (lambda (_%e186408186453%_ - _%hd186409186456%_ - _%tl186410186458%_ - _%e186411186461%_ - _%hd186412186464%_ - _%tl186413186466%_ - _%__splice188338188339%_ - _%target186414186469%_ - _%tl186416186471%_) - (letrec ((_%loop186417186474%_ - (lambda (_%hd186415186477%_ - _%expr186421186479%_ - _%id186422186481%_) + (##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%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd186415186477%_)) - (let ((_%e186418186484%_ + _%hd187547187609%_)) + (let ((_%e187550187616%_ (let () (declare (not safe)) (gx#stx-e - _%hd186415186477%_)))) - (let ((_%lp-tl186420186489%_ + _%hd187547187609%_)))) + (let ((_%lp-tl187552187621%_ (let () (declare (not safe)) - (##cdr _%e186418186484%_))) - (_%lp-hd186419186487%_ + (##cdr _%e187550187616%_))) + (_%lp-hd187551187619%_ (let () (declare (not safe)) - (##car _%e186418186484%_)))) + (##car _%e187550187616%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd186419186487%_)) - (let ((_%e186428186492%_ + _%lp-hd187551187619%_)) + (let ((_%e187560187624%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd186419186487%_)))) - (let ((_%tl186430186497%_ + (gx#stx-e _%lp-hd187551187619%_)))) + (let ((_%tl187562187629%_ (let () (declare (not safe)) - (##cdr _%e186428186492%_))) - (_%hd186429186495%_ + (##cdr _%e187560187624%_))) + (_%hd187561187627%_ (let () (declare (not safe)) - (##car _%e186428186492%_)))) + (##car _%e187560187624%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186429186495%_)) - (let ((_%e186431186500%_ + (gx#stx-pair? _%hd187561187627%_)) + (let ((_%e187563187632%_ (let () (declare (not safe)) - (gx#stx-e _%hd186429186495%_)))) - (let ((_%tl186433186505%_ + (gx#stx-e _%hd187561187627%_)))) + (let ((_%tl187565187637%_ (let () (declare (not safe)) - (##cdr _%e186431186500%_))) - (_%hd186432186503%_ + (##cdr _%e187563187632%_))) + (_%hd187564187635%_ (let () (declare (not safe)) - (##car _%e186431186500%_)))) + (##car _%e187563187632%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186433186505%_)) + (gx#stx-null? _%tl187565187637%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186430186497%_)) - (let ((_%e186434186508%_ + (gx#stx-pair? _%tl187562187629%_)) + (let ((_%e187566187640%_ (let () (declare (not safe)) - (gx#stx-e _%tl186430186497%_)))) - (let ((_%tl186436186513%_ + (gx#stx-e _%tl187562187629%_)))) + (let ((_%tl187568187645%_ (let () (declare (not safe)) - (##cdr _%e186434186508%_))) - (_%hd186435186511%_ + (##cdr _%e187566187640%_))) + (_%hd187567187643%_ (let () (declare (not safe)) - (##car _%e186434186508%_)))) + (##car _%e187566187640%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186436186513%_)) - (_%loop186417186474%_ - _%lp-tl186420186489%_ - (cons _%hd186435186511%_ - _%expr186421186479%_) - (cons _%hd186432186503%_ - _%id186422186481%_)) - (_%__kont188340188341%_)))) - (_%__kont188340188341%_)) - (_%__kont188340188341%_)))) - (_%__kont188340188341%_)))) - (_%__kont188340188341%_)))) + _%tl187568187645%_)) + (_%loop187549187606%_ + _%lp-tl187552187621%_ + (cons _%hd187567187643%_ + _%expr187553187611%_) + (cons _%hd187564187635%_ + _%id187554187613%_)) + (_%__kont189472189473%_)))) + (_%__kont189472189473%_)) + (_%__kont189472189473%_)))) + (_%__kont189472189473%_)))) + (_%__kont189472189473%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id186424186518%_ - (reverse _%id186422186481%_)) - (_%expr186423186516%_ - (reverse _%expr186421186479%_))) + (let ((_%id187556187650%_ + (reverse _%id187554187613%_)) + (_%expr187555187648%_ + (reverse _%expr187553187611%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186413186466%_)) - (let ((_%e186425186521%_ + _%tl187545187598%_)) + (let ((_%e187557187653%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl186413186466%_)))) - (let ((_%tl186427186526%_ + (gx#stx-e _%tl187545187598%_)))) + (let ((_%tl187559187658%_ (let () (declare (not safe)) - (##cdr _%e186425186521%_))) - (_%hd186426186524%_ + (##cdr _%e187557187653%_))) + (_%hd187558187656%_ (let () (declare (not safe)) - (##car _%e186425186521%_)))) + (##car _%e187557187653%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186427186526%_)) - (_%__kont188336188337%_ - _%hd186426186524%_ - _%expr186423186516%_ - _%id186424186518%_) - (_%__kont188340188341%_)))) - (_%__kont188340188341%_))))))) + (gx#stx-null? _%tl187559187658%_)) + (_%__kont189468189469%_ + _%hd187558187656%_ + _%expr187555187648%_ + _%id187556187650%_) + (_%__kont189472189473%_)))) + (_%__kont189472189473%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop186417186474%_ - _%target186414186469%_ + (_%loop187549187606%_ + _%target187546187601%_ '() '())))) - (_%__match188395188396%_ - (lambda (_%e186374186577%_ - _%hd186375186580%_ - _%tl186376186582%_ - _%e186377186585%_ - _%hd186378186588%_ - _%tl186379186590%_ - _%__splice188334188335%_ - _%target186380186593%_ - _%tl186382186595%_) - (letrec ((_%loop186383186598%_ - (lambda (_%hd186381186601%_) + (_%__match189527189528%_ + (lambda (_%e187506187709%_ + _%hd187507187712%_ + _%tl187508187714%_ + _%e187509187717%_ + _%hd187510187720%_ + _%tl187511187722%_ + _%__splice189466189467%_ + _%target187512187725%_ + _%tl187514187727%_) + (letrec ((_%loop187515187730%_ + (lambda (_%hd187513187733%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd186381186601%_)) - (let ((_%e186384186604%_ + _%hd187513187733%_)) + (let ((_%e187516187736%_ (let () (declare (not safe)) (gx#stx-e - _%hd186381186601%_)))) - (let ((_%lp-tl186386186609%_ + _%hd187513187733%_)))) + (let ((_%lp-tl187518187741%_ (let () (declare (not safe)) - (##cdr _%e186384186604%_))) - (_%lp-hd186385186607%_ + (##cdr _%e187516187736%_))) + (_%lp-hd187517187739%_ (let () (declare (not safe)) - (##car _%e186384186604%_)))) + (##car _%e187516187736%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd186385186607%_)) - (let ((_%e186390186612%_ + _%lp-hd187517187739%_)) + (let ((_%e187522187744%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd186385186607%_)))) - (let ((_%tl186392186617%_ + (gx#stx-e _%lp-hd187517187739%_)))) + (let ((_%tl187524187749%_ (let () (declare (not safe)) - (##cdr _%e186390186612%_))) - (_%hd186391186615%_ + (##cdr _%e187522187744%_))) + (_%hd187523187747%_ (let () (declare (not safe)) - (##car _%e186390186612%_)))) + (##car _%e187522187744%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186391186615%_)) - (let ((_%e186393186620%_ + (gx#stx-pair? _%hd187523187747%_)) + (let ((_%e187525187752%_ (let () (declare (not safe)) - (gx#stx-e _%hd186391186615%_)))) - (let ((_%tl186395186625%_ + (gx#stx-e _%hd187523187747%_)))) + (let ((_%tl187527187757%_ (let () (declare (not safe)) - (##cdr _%e186393186620%_))) - (_%hd186394186623%_ + (##cdr _%e187525187752%_))) + (_%hd187526187755%_ (let () (declare (not safe)) - (##car _%e186393186620%_)))) + (##car _%e187525187752%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186395186625%_)) + (gx#stx-null? _%tl187527187757%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186392186617%_)) - (let ((_%e186396186628%_ + (gx#stx-pair? _%tl187524187749%_)) + (let ((_%e187528187760%_ (let () (declare (not safe)) - (gx#stx-e _%tl186392186617%_)))) - (let ((_%tl186398186633%_ + (gx#stx-e _%tl187524187749%_)))) + (let ((_%tl187530187765%_ (let () (declare (not safe)) - (##cdr _%e186396186628%_))) - (_%hd186397186631%_ + (##cdr _%e187528187760%_))) + (_%hd187529187763%_ (let () (declare (not safe)) - (##car _%e186396186628%_)))) + (##car _%e187528187760%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd186397186631%_)) - (let ((_%e186399186636%_ + _%hd187529187763%_)) + (let ((_%e187531187768%_ (let () (declare (not safe)) (gx#stx-e - _%hd186397186631%_)))) - (let ((_%tl186401186641%_ + _%hd187529187763%_)))) + (let ((_%tl187533187773%_ (let () (declare (not safe)) - (##cdr _%e186399186636%_))) - (_%hd186400186639%_ + (##cdr _%e187531187768%_))) + (_%hd187532187771%_ (let () (declare (not safe)) - (##car _%e186399186636%_)))) + (##car _%e187531187768%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186400186639%_)) + _%hd187532187771%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd186400186639%_)) + _%hd187532187771%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl186401186641%_)) - (let ((_%e186402186644%_ + (gx#stx-pair? _%tl187533187773%_)) + (let ((_%e187534187776%_ (let () (declare (not safe)) - (gx#stx-e _%tl186401186641%_)))) - (let ((_%tl186404186649%_ + (gx#stx-e _%tl187533187773%_)))) + (let ((_%tl187536187781%_ (let () (declare (not safe)) - (##cdr _%e186402186644%_))) - (_%hd186403186647%_ + (##cdr _%e187534187776%_))) + (_%hd187535187779%_ (let () (declare (not safe)) - (##car _%e186402186644%_)))) + (##car _%e187534187776%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186404186649%_)) + (gx#stx-null? _%tl187536187781%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186398186633%_)) - (_%loop186383186598%_ _%lp-tl186386186609%_) - (_%__match188419188420%_ - _%e186374186577%_ - _%hd186375186580%_ - _%tl186376186582%_ - _%e186377186585%_ - _%hd186378186588%_ - _%tl186379186590%_ - _%__splice188334188335%_ - _%target186380186593%_ - _%tl186382186595%_)) - (_%__match188419188420%_ - _%e186374186577%_ - _%hd186375186580%_ - _%tl186376186582%_ - _%e186377186585%_ - _%hd186378186588%_ - _%tl186379186590%_ - _%__splice188334188335%_ - _%target186380186593%_ - _%tl186382186595%_)))) - (_%__match188419188420%_ - _%e186374186577%_ - _%hd186375186580%_ - _%tl186376186582%_ - _%e186377186585%_ - _%hd186378186588%_ - _%tl186379186590%_ - _%__splice188334188335%_ - _%target186380186593%_ - _%tl186382186595%_)) - (_%__match188419188420%_ - _%e186374186577%_ - _%hd186375186580%_ - _%tl186376186582%_ - _%e186377186585%_ - _%hd186378186588%_ - _%tl186379186590%_ - _%__splice188334188335%_ - _%target186380186593%_ - _%tl186382186595%_)) - (_%__match188419188420%_ - _%e186374186577%_ - _%hd186375186580%_ - _%tl186376186582%_ - _%e186377186585%_ - _%hd186378186588%_ - _%tl186379186590%_ - _%__splice188334188335%_ - _%target186380186593%_ - _%tl186382186595%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match188419188420%_ - _%e186374186577%_ - _%hd186375186580%_ - _%tl186376186582%_ - _%e186377186585%_ - _%hd186378186588%_ - _%tl186379186590%_ - _%__splice188334188335%_ - _%target186380186593%_ - _%tl186382186595%_)))) - (_%__match188419188420%_ - _%e186374186577%_ - _%hd186375186580%_ - _%tl186376186582%_ - _%e186377186585%_ - _%hd186378186588%_ - _%tl186379186590%_ - _%__splice188334188335%_ - _%target186380186593%_ - _%tl186382186595%_)) - (_%__match188419188420%_ - _%e186374186577%_ - _%hd186375186580%_ - _%tl186376186582%_ - _%e186377186585%_ - _%hd186378186588%_ - _%tl186379186590%_ - _%__splice188334188335%_ - _%target186380186593%_ - _%tl186382186595%_)))) - (_%__match188419188420%_ - _%e186374186577%_ - _%hd186375186580%_ - _%tl186376186582%_ - _%e186377186585%_ - _%hd186378186588%_ - _%tl186379186590%_ - _%__splice188334188335%_ - _%target186380186593%_ - _%tl186382186595%_)))) - (_%__match188419188420%_ - _%e186374186577%_ - _%hd186375186580%_ - _%tl186376186582%_ - _%e186377186585%_ - _%hd186378186588%_ - _%tl186379186590%_ - _%__splice188334188335%_ - _%target186380186593%_ - _%tl186382186595%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186379186590%_)) - (let ((_%e186387186653%_ + _%tl187511187722%_)) + (let ((_%e187519187785%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl186379186590%_)))) - (let ((_%tl186389186658%_ - (let () (declare (not safe)) (##cdr _%e186387186653%_))) - (_%hd186388186656%_ + (gx#stx-e _%tl187511187722%_)))) + (let ((_%tl187521187790%_ + (let () (declare (not safe)) (##cdr _%e187519187785%_))) + (_%hd187520187788%_ (let () (declare (not safe)) - (##car _%e186387186653%_)))) + (##car _%e187519187785%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186389186658%_)) - (_%__kont188332188333%_) - (_%__match188419188420%_ - _%e186374186577%_ - _%hd186375186580%_ - _%tl186376186582%_ - _%e186377186585%_ - _%hd186378186588%_ - _%tl186379186590%_ - _%__splice188334188335%_ - _%target186380186593%_ - _%tl186382186595%_)))) - (_%__match188419188420%_ - _%e186374186577%_ - _%hd186375186580%_ - _%tl186376186582%_ - _%e186377186585%_ - _%hd186378186588%_ - _%tl186379186590%_ - _%__splice188334188335%_ - _%target186380186593%_ - _%tl186382186595%_)))))) + (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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop186383186598%_ - _%target186380186593%_))))) + (_%loop187515187730%_ + _%target187512187725%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx188328188329%_)) - (let ((_%e186362186668%_ + (gx#stx-pair? _%__stx189460189461%_)) + (let ((_%e187494187800%_ (let () (declare (not safe)) - (gx#stx-e _%__stx188328188329%_)))) - (let ((_%tl186364186673%_ + (gx#stx-e _%__stx189460189461%_)))) + (let ((_%tl187496187805%_ (let () (declare (not safe)) - (##cdr _%e186362186668%_))) - (_%hd186363186671%_ + (##cdr _%e187494187800%_))) + (_%hd187495187803%_ (let () (declare (not safe)) - (##car _%e186362186668%_)))) + (##car _%e187494187800%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186363186671%_)) + (gx#identifier? _%hd187495187803%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd186363186671%_)) + _%hd187495187803%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186364186673%_)) - (let ((_%e186365186676%_ + _%tl187496187805%_)) + (let ((_%e187497187808%_ (let () (declare (not safe)) (gx#stx-e - _%tl186364186673%_)))) - (let ((_%tl186367186681%_ + _%tl187496187805%_)))) + (let ((_%tl187499187813%_ (let () (declare (not safe)) - (##cdr _%e186365186676%_))) - (_%hd186366186679%_ + (##cdr _%e187497187808%_))) + (_%hd187498187811%_ (let () (declare (not safe)) - (##car _%e186365186676%_)))) + (##car _%e187497187808%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186367186681%_)) - (let ((_%e186368186684%_ + _%tl187499187813%_)) + (let ((_%e187500187816%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl186367186681%_)))) - (let ((_%tl186370186689%_ - (let () (declare (not safe)) (##cdr _%e186368186684%_))) - (_%hd186369186687%_ + (gx#stx-e _%tl187499187813%_)))) + (let ((_%tl187502187821%_ + (let () (declare (not safe)) (##cdr _%e187500187816%_))) + (_%hd187501187819%_ (let () (declare (not safe)) - (##car _%e186368186684%_)))) + (##car _%e187500187816%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186370186689%_)) - (let ((_%e186371186692%_ + (gx#stx-pair? _%tl187502187821%_)) + (let ((_%e187503187824%_ (let () (declare (not safe)) - (gx#stx-e _%tl186370186689%_)))) - (let ((_%tl186373186697%_ + (gx#stx-e _%tl187502187821%_)))) + (let ((_%tl187505187829%_ (let () (declare (not safe)) - (##cdr _%e186371186692%_))) - (_%hd186372186695%_ + (##cdr _%e187503187824%_))) + (_%hd187504187827%_ (let () (declare (not safe)) - (##car _%e186371186692%_)))) + (##car _%e187503187824%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186373186697%_)) - (_%__kont188330188331%_ - _%hd186372186695%_ - _%hd186369186687%_ - _%hd186366186679%_) - (_%__kont188340188341%_)))) - (_%__kont188340188341%_)))) - (_%__kont188340188341%_)))) + (gx#stx-null? _%tl187505187829%_)) + (_%__kont189462189463%_ + _%hd187504187827%_ + _%hd187501187819%_ + _%hd187498187811%_) + (_%__kont189472189473%_)))) + (_%__kont189472189473%_)))) + (_%__kont189472189473%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188340188341%_)) + (_%__kont189472189473%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd186363186671%_)) + _%hd187495187803%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186364186673%_)) - (let ((_%e186377186585%_ + _%tl187496187805%_)) + (let ((_%e187509187717%_ (let () (declare (not safe)) (gx#stx-e - _%tl186364186673%_)))) - (let ((_%tl186379186590%_ + _%tl187496187805%_)))) + (let ((_%tl187511187722%_ (let () (declare (not safe)) - (##cdr _%e186377186585%_))) - (_%hd186378186588%_ + (##cdr _%e187509187717%_))) + (_%hd187510187720%_ (let () (declare (not safe)) - (##car _%e186377186585%_)))) + (##car _%e187509187717%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd186378186588%_)) - (let ((_%__splice188334188335%_ + _%hd187510187720%_)) + (let ((_%__splice189466189467%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd186378186588%_ '0)))) - (let ((_%tl186382186595%_ + (gx#syntax-split-splice _%hd187510187720%_ '0)))) + (let ((_%tl187514187727%_ (let () (declare (not safe)) - (##vector-ref _%__splice188334188335%_ '1))) - (_%target186380186593%_ + (##vector-ref _%__splice189466189467%_ '1))) + (_%target187512187725%_ (let () (declare (not safe)) - (##vector-ref _%__splice188334188335%_ '0)))) + (##vector-ref _%__splice189466189467%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186382186595%_)) - (_%__match188395188396%_ - _%e186362186668%_ - _%hd186363186671%_ - _%tl186364186673%_ - _%e186377186585%_ - _%hd186378186588%_ - _%tl186379186590%_ - _%__splice188334188335%_ - _%target186380186593%_ - _%tl186382186595%_) - (_%__kont188340188341%_)))) - (_%__kont188340188341%_)))) + (gx#stx-null? _%tl187514187727%_)) + (_%__match189527189528%_ + _%e187494187800%_ + _%hd187495187803%_ + _%tl187496187805%_ + _%e187509187717%_ + _%hd187510187720%_ + _%tl187511187722%_ + _%__splice189466189467%_ + _%target187512187725%_ + _%tl187514187727%_) + (_%__kont189472189473%_)))) + (_%__kont189472189473%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188340188341%_)) - (_%__kont188340188341%_))) - (_%__kont188340188341%_)))) - (_%__kont188340188341%_))))))) - (_%fold-blocks186170%_ - (lambda (_%rest186269%_ _%blocks186270%_) - (let* ((_%rest186271186288%_ _%rest186269%_) - (_%E186274186292%_ + (_%__kont189472189473%_)) + (_%__kont189472189473%_))) + (_%__kont189472189473%_)))) + (_%__kont189472189473%_))))))) + (_%fold-blocks187302%_ + (lambda (_%rest187401%_ _%blocks187402%_) + (let* ((_%rest187403187420%_ _%rest187401%_) + (_%E187406187424%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest186271186288%_ + _%rest187403187420%_ '([[name body bind assert] . rest]) '([]))) '#!void))) - (let ((_%K186276186312%_ - (lambda (_%rest186303%_ - _%assert186304%_ - _%bind186305%_ - _%body186306%_ - _%name186307%_) - (let ((_g191139_ - (_%basic-block186169%_ - _%body186306%_ - _%bind186305%_ - _%assert186304%_))) + (let ((_%K187408187444%_ + (lambda (_%rest187435%_ + _%assert187436%_ + _%bind187437%_ + _%body187438%_ + _%name187439%_) + (let ((_g192271_ + (_%basic-block187301%_ + _%body187438%_ + _%bind187437%_ + _%assert187436%_))) (begin - (let ((_g191140_ + (let ((_g192272_ (let () (declare (not safe)) - (if (##values? _g191139_) - (##vector-length _g191139_) + (if (##values? _g192271_) + (##vector-length _g192271_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g191140_ 2))) + (##fx= _g192272_ 2))) (error "Context expects 2 values" - _g191140_))) - (let ((_%body186309%_ + _g192272_))) + (let ((_%body187441%_ (let () (declare (not safe)) - (##vector-ref _g191139_ 0))) - (_%body-blocks186310%_ + (##vector-ref _g192271_ 0))) + (_%body-blocks187442%_ (let () (declare (not safe)) - (##vector-ref _g191139_ 1)))) - (_%fold-blocks186170%_ + (##vector-ref _g192271_ 1)))) + (_%fold-blocks187302%_ (let () (declare (not safe)) (__foldl1 cons - _%rest186303%_ - _%body-blocks186310%_)) - (cons (cons _%name186307%_ + _%rest187435%_ + _%body-blocks187442%_)) + (cons (cons _%name187439%_ (cons 'continue: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let ((__tmp191141 (map car _%bind186305%_))) + (cons (let ((__tmp192273 (map car _%bind187437%_))) (declare (not safe)) - (##reverse __tmp191141)) - (cons _%body186309%_ '()))) - (cons _%assert186304%_ (cons _%bind186305%_ '()))))) + (##reverse __tmp192273)) + (cons _%body187441%_ '()))) + (cons _%assert187436%_ (cons _%bind187437%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks186270%_))))))) - (_%K186275186297%_ (lambda () _%blocks186270%_))) - (let ((_%try-match186273186300%_ + _%blocks187402%_))))))) + (_%K187407187429%_ (lambda () _%blocks187402%_))) + (let ((_%try-match187405187432%_ (lambda () - (if (let () - (declare (not safe)) - (##null? _%rest186271186288%_)) - (_%K186275186297%_) - (_%E186274186292%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest186271186288%_)) - (let ((_%tl186278186317%_ + (if (null? _%rest187403187420%_) + (_%K187407187429%_) + (_%E187406187424%_))))) + (if (pair? _%rest187403187420%_) + (let ((_%tl187410187449%_ (let () (declare (not safe)) - (##cdr _%rest186271186288%_))) - (_%hd186277186315%_ + (##cdr _%rest187403187420%_))) + (_%hd187409187447%_ (let () (declare (not safe)) - (##car _%rest186271186288%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd186277186315%_)) - (let ((_%tl186280186322%_ + (##car _%rest187403187420%_)))) + (if (pair? _%hd187409187447%_) + (let ((_%tl187412187454%_ (let () (declare (not safe)) - (##cdr _%hd186277186315%_))) - (_%hd186279186320%_ + (##cdr _%hd187409187447%_))) + (_%hd187411187452%_ (let () (declare (not safe)) - (##car _%hd186277186315%_)))) - (if (let () - (declare (not safe)) - (##pair? _%tl186280186322%_)) - (let ((_%tl186282186329%_ + (##car _%hd187409187447%_)))) + (if (pair? _%tl187412187454%_) + (let ((_%tl187414187461%_ (let () (declare (not safe)) - (##cdr _%tl186280186322%_))) - (_%hd186281186327%_ + (##cdr _%tl187412187454%_))) + (_%hd187413187459%_ (let () (declare (not safe)) - (##car _%tl186280186322%_)))) - (if (let () - (declare (not safe)) - (##pair? _%tl186282186329%_)) - (let ((_%tl186284186336%_ + (##car _%tl187412187454%_)))) + (if (pair? _%tl187414187461%_) + (let ((_%tl187416187468%_ (let () (declare (not safe)) - (##cdr _%tl186282186329%_))) - (_%hd186283186334%_ + (##cdr _%tl187414187461%_))) + (_%hd187415187466%_ (let () (declare (not safe)) - (##car _%tl186282186329%_)))) - (if (let () - (declare (not safe)) - (##pair? _%tl186284186336%_)) - (let ((_%tl186286186343%_ + (##car _%tl187414187461%_)))) + (if (pair? _%tl187416187468%_) + (let ((_%tl187418187475%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl186284186336%_))) - (_%hd186285186341%_ - (let () (declare (not safe)) (##car _%tl186284186336%_)))) - (if (let () (declare (not safe)) (##null? _%tl186286186343%_)) - (let ((_%name186325%_ _%hd186279186320%_) - (_%body186332%_ _%hd186281186327%_) - (_%bind186339%_ _%hd186283186334%_) - (_%assert186346%_ _%hd186285186341%_) - (_%rest186348%_ _%tl186278186317%_)) - (_%K186276186312%_ - _%rest186348%_ - _%assert186346%_ - _%bind186339%_ - _%body186332%_ - _%name186325%_)) - (_%E186274186292%_))) - (_%E186274186292%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E186274186292%_))) - (_%E186274186292%_))) - (_%E186274186292%_))) - (_%try-match186273186300%_)))))))) - (let* ((_%clause186171186178%_ _%clause186164%_) - (_%E186173186182%_ + (_%E187406187424%_))) + (_%E187406187424%_))) + (_%E187406187424%_))) + (_%try-match187405187432%_)))))))) + (let* ((_%clause187303187310%_ _%clause187296%_) + (_%E187305187314%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause186171186178%_ + _%clause187303187310%_ '([name . body]))) '#!void)) - (_%K186174186257%_ - (lambda (_%body186185%_ _%name186186%_) - (let* ((_%g186188186204%_ - (lambda (_%g186189186201%_) + (_%K187306187389%_ + (lambda (_%body187317%_ _%name187318%_) + (let* ((_%g187320187336%_ + (lambda (_%g187321187333%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g186189186201%_)))) - (_%g186187186254%_ - (lambda (_%g186189186207%_) + _%g187321187333%_)))) + (_%g187319187386%_ + (lambda (_%g187321187339%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g186189186207%_)) - (let ((_%e186191186209%_ + (gx#stx-pair? _%g187321187339%_)) + (let ((_%e187323187341%_ (let () (declare (not safe)) - (gx#stx-e _%g186189186207%_)))) - (let ((_%hd186192186212%_ + (gx#stx-e _%g187321187339%_)))) + (let ((_%hd187324187344%_ (let () (declare (not safe)) - (##car _%e186191186209%_))) - (_%tl186193186214%_ + (##car _%e187323187341%_))) + (_%tl187325187346%_ (let () (declare (not safe)) - (##cdr _%e186191186209%_)))) + (##cdr _%e187323187341%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186192186212%_)) + _%hd187324187344%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd186192186212%_)) + _%hd187324187344%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186193186214%_)) - (let ((_%e186194186217%_ + _%tl187325187346%_)) + (let ((_%e187326187349%_ (let () (declare (not safe)) (gx#stx-e - _%tl186193186214%_)))) - (let ((_%hd186195186220%_ + _%tl187325187346%_)))) + (let ((_%hd187327187352%_ (let () (declare (not safe)) - (##car _%e186194186217%_))) - (_%tl186196186222%_ + (##car _%e187326187349%_))) + (_%tl187328187354%_ (let () (declare (not safe)) - (##cdr _%e186194186217%_)))) + (##cdr _%e187326187349%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd186195186220%_)) + _%hd187327187352%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl186196186222%_)) - (let ((_%e186197186225%_ + (gx#stx-pair? _%tl187328187354%_)) + (let ((_%e187329187357%_ (let () (declare (not safe)) - (gx#stx-e _%tl186196186222%_)))) - (let ((_%hd186198186228%_ + (gx#stx-e _%tl187328187354%_)))) + (let ((_%hd187330187360%_ (let () (declare (not safe)) - (##car _%e186197186225%_))) - (_%tl186199186230%_ + (##car _%e187329187357%_))) + (_%tl187331187362%_ (let () (declare (not safe)) - (##cdr _%e186197186225%_)))) + (##cdr _%e187329187357%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186199186230%_)) - ((lambda (_%L186233%_) - (let ((_g191142_ - (_%basic-block186169%_ - _%L186233%_ + (gx#stx-null? _%tl187331187362%_)) + ((lambda (_%L187365%_) + (let ((_g192274_ + (_%basic-block187301%_ + _%L187365%_ '() '()))) (begin - (let ((_g191143_ + (let ((_g192275_ (let () (declare (not safe)) - (if (##values? _g191142_) - (##vector-length _g191142_) + (if (##values? _g192274_) + (##vector-length _g192274_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g191143_ 2))) + (##fx= _g192275_ 2))) (error "Context expects 2 values" - _g191143_))) - (let ((_%body186251%_ + _g192275_))) + (let ((_%body187383%_ (let () (declare (not safe)) - (##vector-ref _g191142_ 0))) - (_%body-blocks186252%_ + (##vector-ref _g192274_ 0))) + (_%body-blocks187384%_ (let () (declare (not safe)) - (##vector-ref _g191142_ 1)))) - (_%fold-blocks186170%_ - _%body-blocks186252%_ - (cons (cons _%name186186%_ + (##vector-ref _g192274_ 1)))) + (_%fold-blocks187302%_ + _%body-blocks187384%_ + (cons (cons _%name187318%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body186251%_ '()))) + (cons '() (cons _%body187383%_ '()))) (cons '() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks186165%_)))))) - _%hd186198186228%_) - (_%g186188186204%_ _%g186189186207%_)))) - (_%g186188186204%_ _%g186189186207%_)) - (_%g186188186204%_ _%g186189186207%_)))) + _%blocks187297%_)))))) + _%hd187330187360%_) + (_%g187320187336%_ _%g187321187339%_)))) + (_%g187320187336%_ _%g187321187339%_)) + (_%g187320187336%_ _%g187321187339%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g186188186204%_ - _%g186189186207%_)) - (_%g186188186204%_ - _%g186189186207%_)) - (_%g186188186204%_ - _%g186189186207%_)))) - (_%g186188186204%_ _%g186189186207%_))))) - (_%g186187186254%_ _%body186185%_))))) - (if (let () (declare (not safe)) (##pair? _%clause186171186178%_)) - (let ((_%hd186175186260%_ + (_%g187320187336%_ + _%g187321187339%_)) + (_%g187320187336%_ + _%g187321187339%_)) + (_%g187320187336%_ + _%g187321187339%_)))) + (_%g187320187336%_ _%g187321187339%_))))) + (_%g187319187386%_ _%body187317%_))))) + (if (pair? _%clause187303187310%_) + (let ((_%hd187307187392%_ (let () (declare (not safe)) - (##car _%clause186171186178%_))) - (_%tl186176186262%_ + (##car _%clause187303187310%_))) + (_%tl187308187394%_ (let () (declare (not safe)) - (##cdr _%clause186171186178%_)))) - (let* ((_%name186265%_ _%hd186175186260%_) - (_%body186267%_ _%tl186176186262%_)) - (_%K186174186257%_ _%body186267%_ _%name186265%_))) - (_%E186173186182%_)))))) + (##cdr _%clause187303187310%_)))) + (let* ((_%name187397%_ _%hd187307187392%_) + (_%body187399%_ _%tl187308187394%_)) + (_%K187306187389%_ _%body187399%_ _%name187397%_))) + (_%E187305187314%_)))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_%blocks185770%_) - (let _%lp185772%_ ((_%rest185774%_ _%blocks185770%_) - (_%blocks185775%_ '())) - (let* ((_%rest185776185784%_ _%rest185774%_) - (_%else185778185833%_ + (lambda (_%blocks186902%_) + (let _%lp186904%_ ((_%rest186906%_ _%blocks186902%_) + (_%blocks186907%_ '())) + (let* ((_%rest186908186916%_ _%rest186906%_) + (_%else186910186965%_ (lambda () - (let ((__tmp191144 - (lambda (_%block185792%_ _%r185793%_) - (let* ((_%block185794185805%_ _%block185792%_) - (_%E185796185809%_ + (let ((__tmp192276 + (lambda (_%block186924%_ _%r186925%_) + (let* ((_%block186926186937%_ _%block186924%_) + (_%E186928186941%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block185794185805%_ + _%block186926186937%_ '([name _ kont . _]))) '#!void)) - (_%K185797185815%_ - (lambda (_%kont185812%_ _%name185813%_) - (cons (cons _%name185813%_ - _%kont185812%_) - _%r185793%_)))) - (if (let () - (declare (not safe)) - (##pair? _%block185794185805%_)) - (let ((_%hd185798185818%_ + (_%K186929186947%_ + (lambda (_%kont186944%_ _%name186945%_) + (cons (cons _%name186945%_ + _%kont186944%_) + _%r186925%_)))) + (if (pair? _%block186926186937%_) + (let ((_%hd186930186950%_ (let () (declare (not safe)) - (##car _%block185794185805%_))) - (_%tl185799185820%_ + (##car _%block186926186937%_))) + (_%tl186931186952%_ (let () (declare (not safe)) - (##cdr _%block185794185805%_)))) - (let ((_%name185823%_ _%hd185798185818%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl185799185820%_)) - (let ((_%tl185801185825%_ + (##cdr _%block186926186937%_)))) + (let ((_%name186955%_ _%hd186930186950%_)) + (if (pair? _%tl186931186952%_) + (let ((_%tl186933186957%_ (let () (declare (not safe)) - (##cdr _%tl185799185820%_)))) - (if (let () - (declare (not safe)) - (##pair? _%tl185801185825%_)) - (let* ((_%hd185802185828%_ + (##cdr _%tl186931186952%_)))) + (if (pair? _%tl186933186957%_) + (let* ((_%hd186934186960%_ (let () (declare (not safe)) - (##car _%tl185801185825%_))) - (_%kont185831%_ - _%hd185802185828%_)) - (_%K185797185815%_ - _%kont185831%_ - _%name185823%_)) - (_%E185796185809%_))) - (_%E185796185809%_)))) - (_%E185796185809%_)))))) + (##car _%tl186933186957%_))) + (_%kont186963%_ + _%hd186934186960%_)) + (_%K186929186947%_ + _%kont186963%_ + _%name186955%_)) + (_%E186928186941%_))) + (_%E186928186941%_)))) + (_%E186928186941%_)))))) (declare (not safe)) - (__foldl1 __tmp191144 '() _%blocks185775%_)))) - (_%K185780186152%_ - (lambda (_%rest185836%_ _%block185837%_) - (let* ((_%block185838185863%_ _%block185837%_) - (_%E185841185867%_ + (__foldl1 __tmp192276 '() _%blocks186907%_)))) + (_%K186912187284%_ + (lambda (_%rest186968%_ _%block186969%_) + (let* ((_%block186970186995%_ _%block186969%_) + (_%E186973186999%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block185838185863%_ + _%block186970186995%_ '([name restart: kont assert]) '([name continue: kont assert bind]))) '#!void))) - (let ((_%K185853186123%_ - (lambda (_%assert186045%_ - _%kont186046%_ - _%name186047%_) - (let* ((_%g186049186065%_ - (lambda (_%g186050186062%_) + (let ((_%K186985187255%_ + (lambda (_%assert187177%_ + _%kont187178%_ + _%name187179%_) + (let* ((_%g187181187197%_ + (lambda (_%g187182187194%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g186050186062%_)))) - (_%g186048186120%_ - (lambda (_%g186050186068%_) + _%g187182187194%_)))) + (_%g187180187252%_ + (lambda (_%g187182187200%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g186050186068%_)) - (let ((_%e186052186070%_ + _%g187182187200%_)) + (let ((_%e187184187202%_ (let () (declare (not safe)) (gx#stx-e - _%g186050186068%_)))) - (let ((_%hd186053186073%_ + _%g187182187200%_)))) + (let ((_%hd187185187205%_ (let () (declare (not safe)) - (##car _%e186052186070%_))) - (_%tl186054186075%_ + (##car _%e187184187202%_))) + (_%tl187186187207%_ (let () (declare (not safe)) - (##cdr _%e186052186070%_)))) + (##cdr _%e187184187202%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186053186073%_)) + _%hd187185187205%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd186053186073%_)) + _%hd187185187205%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl186054186075%_)) - (let ((_%e186055186078%_ + (gx#stx-pair? _%tl187186187207%_)) + (let ((_%e187187187210%_ (let () (declare (not safe)) - (gx#stx-e _%tl186054186075%_)))) - (let ((_%hd186056186081%_ + (gx#stx-e _%tl187186187207%_)))) + (let ((_%hd187188187213%_ (let () (declare (not safe)) - (##car _%e186055186078%_))) - (_%tl186057186083%_ + (##car _%e187187187210%_))) + (_%tl187189187215%_ (let () (declare (not safe)) - (##cdr _%e186055186078%_)))) + (##cdr _%e187187187210%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd186056186081%_)) + (gx#stx-null? _%hd187188187213%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186057186083%_)) - (let ((_%e186058186086%_ + (gx#stx-pair? _%tl187189187215%_)) + (let ((_%e187190187218%_ (let () (declare (not safe)) - (gx#stx-e _%tl186057186083%_)))) - (let ((_%hd186059186089%_ + (gx#stx-e _%tl187189187215%_)))) + (let ((_%hd187191187221%_ (let () (declare (not safe)) - (##car _%e186058186086%_))) - (_%tl186060186091%_ + (##car _%e187190187218%_))) + (_%tl187192187223%_ (let () (declare (not safe)) - (##cdr _%e186058186086%_)))) + (##cdr _%e187190187218%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186060186091%_)) - ((lambda (_%L186094%_) - (let* ((_%body186109%_ + (gx#stx-null? _%tl187192187223%_)) + ((lambda (_%L187226%_) + (let* ((_%body187241%_ (gxc#optimize-match-block - _%L186094%_ - _%assert186045%_ + _%L187226%_ + _%assert187177%_ '() - _%rest185836%_)) - (_%block186111%_ - (cons _%name186047%_ + _%rest186968%_)) + (_%block187243%_ + (cons _%name187179%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body186109%_ '()))) - (cons _%assert186045%_ '()))))) + (cons '() (cons _%body187241%_ '()))) + (cons _%assert187177%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks186113%_ - (cons _%block186111%_ - _%blocks185775%_)) - (_%rest186115%_ + (_%blocks187245%_ + (cons _%block187243%_ + _%blocks186907%_)) + (_%rest187247%_ (gxc#optimize-match-prune-blocks - _%rest185836%_ - _%blocks186113%_)) - (_%rest186117%_ + _%rest186968%_ + _%blocks187245%_)) + (_%rest187249%_ (gxc#optimize-match-fuse-restart-blocks - _%rest186115%_ - _%blocks186113%_))) - (_%lp185772%_ - _%rest186117%_ - _%blocks186113%_))) - _%hd186059186089%_) - (_%g186049186065%_ - _%g186050186068%_)))) - (_%g186049186065%_ _%g186050186068%_)) - (_%g186049186065%_ _%g186050186068%_)))) - (_%g186049186065%_ _%g186050186068%_)) - (_%g186049186065%_ _%g186050186068%_)) + _%rest187247%_ + _%blocks187245%_))) + (_%lp186904%_ + _%rest187249%_ + _%blocks187245%_))) + _%hd187191187221%_) + (_%g187181187197%_ + _%g187182187200%_)))) + (_%g187181187197%_ _%g187182187200%_)) + (_%g187181187197%_ _%g187182187200%_)))) + (_%g187181187197%_ _%g187182187200%_)) + (_%g187181187197%_ _%g187182187200%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g186049186065%_ - _%g186050186068%_)))) - (_%g186049186065%_ - _%g186050186068%_))))) - (_%g186048186120%_ _%kont186046%_)))) - (_%K185842186006%_ - (lambda (_%bind185871%_ - _%assert185872%_ - _%kont185873%_ - _%name185874%_) - (let* ((_%g185876185902%_ - (lambda (_%g185877185899%_) + (_%g187181187197%_ + _%g187182187200%_)))) + (_%g187181187197%_ + _%g187182187200%_))))) + (_%g187180187252%_ _%kont187178%_)))) + (_%K186974187138%_ + (lambda (_%bind187003%_ + _%assert187004%_ + _%kont187005%_ + _%name187006%_) + (let* ((_%g187008187034%_ + (lambda (_%g187009187031%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g185877185899%_)))) - (_%g185875186003%_ - (lambda (_%g185877185905%_) + _%g187009187031%_)))) + (_%g187007187135%_ + (lambda (_%g187009187037%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g185877185905%_)) - (let ((_%e185880185907%_ + _%g187009187037%_)) + (let ((_%e187012187039%_ (let () (declare (not safe)) (gx#stx-e - _%g185877185905%_)))) - (let ((_%hd185881185910%_ + _%g187009187037%_)))) + (let ((_%hd187013187042%_ (let () (declare (not safe)) - (##car _%e185880185907%_))) - (_%tl185882185912%_ + (##car _%e187012187039%_))) + (_%tl187014187044%_ (let () (declare (not safe)) - (##cdr _%e185880185907%_)))) + (##cdr _%e187012187039%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185881185910%_)) + _%hd187013187042%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd185881185910%_)) + _%hd187013187042%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl185882185912%_)) - (let ((_%e185883185915%_ + (gx#stx-pair? _%tl187014187044%_)) + (let ((_%e187015187047%_ (let () (declare (not safe)) - (gx#stx-e _%tl185882185912%_)))) - (let ((_%hd185884185918%_ + (gx#stx-e _%tl187014187044%_)))) + (let ((_%hd187016187050%_ (let () (declare (not safe)) - (##car _%e185883185915%_))) - (_%tl185885185920%_ + (##car _%e187015187047%_))) + (_%tl187017187052%_ (let () (declare (not safe)) - (##cdr _%e185883185915%_)))) + (##cdr _%e187015187047%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd185884185918%_)) - (let ((_g191145_ + (gx#stx-pair/null? _%hd187016187050%_)) + (let ((_g192277_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd185884185918%_ + _%hd187016187050%_ '0)))) (begin - (let ((_g191146_ + (let ((_g192278_ (let () (declare (not safe)) - (if (##values? _g191145_) - (##vector-length _g191145_) + (if (##values? _g192277_) + (##vector-length _g192277_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g191146_ 2))) + (##fx= _g192278_ 2))) (error "Context expects 2 values" - _g191146_))) - (let ((_%target185886185923%_ + _g192278_))) + (let ((_%target187018187055%_ (let () (declare (not safe)) - (##vector-ref _g191145_ 0))) - (_%tl185888185925%_ + (##vector-ref _g192277_ 0))) + (_%tl187020187057%_ (let () (declare (not safe)) - (##vector-ref _g191145_ 1)))) + (##vector-ref _g192277_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185888185925%_)) - (letrec ((_%loop185889185928%_ - (lambda (_%hd185887185931%_ - _%id185893185933%_) + (gx#stx-null? _%tl187020187057%_)) + (letrec ((_%loop187021187060%_ + (lambda (_%hd187019187063%_ + _%id187025187065%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185887185931%_)) - (let ((_%e185890185936%_ + _%hd187019187063%_)) + (let ((_%e187022187068%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd185887185931%_)))) - (let ((_%lp-hd185891185939%_ + (gx#stx-e _%hd187019187063%_)))) + (let ((_%lp-hd187023187071%_ (let () (declare (not safe)) - (##car _%e185890185936%_))) - (_%lp-tl185892185941%_ + (##car _%e187022187068%_))) + (_%lp-tl187024187073%_ (let () (declare (not safe)) - (##cdr _%e185890185936%_)))) - (_%loop185889185928%_ - _%lp-tl185892185941%_ - (cons _%lp-hd185891185939%_ _%id185893185933%_)))) - (let ((_%id185894185944%_ (reverse _%id185893185933%_))) + (##cdr _%e187022187068%_)))) + (_%loop187021187060%_ + _%lp-tl187024187073%_ + (cons _%lp-hd187023187071%_ _%id187025187065%_)))) + (let ((_%id187026187076%_ (reverse _%id187025187065%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185885185920%_)) - (let ((_%e185895185947%_ + (gx#stx-pair? _%tl187017187052%_)) + (let ((_%e187027187079%_ (let () (declare (not safe)) - (gx#stx-e _%tl185885185920%_)))) - (let ((_%hd185896185950%_ + (gx#stx-e _%tl187017187052%_)))) + (let ((_%hd187028187082%_ (let () (declare (not safe)) - (##car _%e185895185947%_))) - (_%tl185897185952%_ + (##car _%e187027187079%_))) + (_%tl187029187084%_ (let () (declare (not safe)) - (##cdr _%e185895185947%_)))) + (##cdr _%e187027187079%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185897185952%_)) - ((lambda (_%L185955%_ _%L185956%_) - (let* ((_%body185985%_ + (gx#stx-null? _%tl187029187084%_)) + ((lambda (_%L187087%_ _%L187088%_) + (let* ((_%body187117%_ (gxc#optimize-match-block - _%L185955%_ - _%assert185872%_ - _%bind185871%_ - _%rest185836%_)) - (_%block185994%_ - (cons _%name185874%_ + _%L187087%_ + _%assert187004%_ + _%bind187003%_ + _%rest186968%_)) + (_%block187126%_ + (cons _%name187006%_ (cons 'continue: (cons (cons '%#lambda - (cons (let ((__tmp191147 + (cons (let ((__tmp192279 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g185986185989%_ - _%g185987185991%_) - (cons _%g185986185989%_ - _%g185987185991%_)))) + (lambda (_%g187118187121%_ + _%g187119187123%_) + (cons _%g187118187121%_ + _%g187119187123%_)))) (declare (not safe)) - (__foldr1 __tmp191147 '() _%L185956%_)) - (cons _%body185985%_ '()))) - (cons _%assert185872%_ (cons _%bind185871%_ '())))))) + (__foldr1 __tmp192279 '() _%L187088%_)) + (cons _%body187117%_ '()))) + (cons _%assert187004%_ (cons _%bind187003%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks185996%_ - (cons _%block185994%_ - _%blocks185775%_)) - (_%rest185998%_ + (_%blocks187128%_ + (cons _%block187126%_ + _%blocks186907%_)) + (_%rest187130%_ (gxc#optimize-match-prune-blocks - _%rest185836%_ - _%blocks185996%_)) - (_%rest186000%_ + _%rest186968%_ + _%blocks187128%_)) + (_%rest187132%_ (gxc#optimize-match-fuse-restart-blocks - _%rest185998%_ - _%blocks185996%_))) - (_%lp185772%_ - _%rest186000%_ - _%blocks185996%_))) - _%hd185896185950%_ - _%id185894185944%_) - (_%g185876185902%_ _%g185877185905%_)))) - (_%g185876185902%_ _%g185877185905%_))))))) + _%rest187130%_ + _%blocks187128%_))) + (_%lp186904%_ + _%rest187132%_ + _%blocks187128%_))) + _%hd187028187082%_ + _%id187026187076%_) + (_%g187008187034%_ _%g187009187037%_)))) + (_%g187008187034%_ _%g187009187037%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185889185928%_ - _%target185886185923%_ + (_%loop187021187060%_ + _%target187018187055%_ '())) - (_%g185876185902%_ - _%g185877185905%_))))) - (_%g185876185902%_ _%g185877185905%_)))) - (_%g185876185902%_ _%g185877185905%_)) - (_%g185876185902%_ _%g185877185905%_)) + (_%g187008187034%_ + _%g187009187037%_))))) + (_%g187008187034%_ _%g187009187037%_)))) + (_%g187008187034%_ _%g187009187037%_)) + (_%g187008187034%_ _%g187009187037%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g185876185902%_ - _%g185877185905%_)))) - (_%g185876185902%_ - _%g185877185905%_))))) - (_%g185875186003%_ _%kont185873%_))))) - (let* ((_%__match188505188506%_ - (lambda (_%hd185843186009%_ - _%tl185844186011%_ - _%hd185845186016%_ - _%tl185846186018%_ - _%hd185847186021%_ - _%tl185848186023%_ - _%hd185849186028%_ - _%tl185850186030%_ - _%hd185851186035%_ - _%tl185852186037%_) - (let ((_%name186014%_ _%hd185843186009%_) - (_%kont186026%_ _%hd185847186021%_) - (_%assert186033%_ _%hd185849186028%_) - (_%bind186040%_ _%hd185851186035%_)) - (_%E185841185867%_)))) - (_%__match188499188500%_ - (lambda (_%hd185843186009%_ - _%tl185844186011%_ - _%hd185845186016%_ - _%tl185846186018%_ - _%hd185847186021%_ - _%tl185848186023%_ - _%hd185849186028%_ - _%tl185850186030%_) - (let ((_%name186014%_ _%hd185843186009%_) - (_%kont186026%_ _%hd185847186021%_) - (_%assert186033%_ _%hd185849186028%_)) - (_%E185841185867%_)))) - (_%__match188493188494%_ - (lambda (_%hd185843186009%_ - _%tl185844186011%_ - _%hd185845186016%_ - _%tl185846186018%_ - _%hd185847186021%_ - _%tl185848186023%_) - (let ((_%name186014%_ _%hd185843186009%_) - (_%kont186026%_ _%hd185847186021%_)) - (_%E185841185867%_)))) - (_%__match188487188488%_ - (lambda (_%hd185843186009%_ - _%tl185844186011%_ - _%hd185845186016%_ - _%tl185846186018%_) - (let ((_%name186014%_ _%hd185843186009%_)) - (_%E185841185867%_)))) - (_%__match188483188484%_ - (lambda (_%hd185843186009%_ - _%tl185844186011%_ - _%hd185845186016%_ - _%tl185846186018%_) - (let ((_%name186014%_ _%hd185843186009%_)) - (_%E185841185867%_)))) - (_%__match188477188478%_ - (lambda (_%hd185843186009%_ _%tl185844186011%_) - (let ((_%name186014%_ _%hd185843186009%_)) - (_%E185841185867%_))))) - (if (let () - (declare (not safe)) - (##pair? _%block185838185863%_)) - (let ((_%tl185855186128%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%block185838185863%_))) - (_%hd185854186126%_ + (##cdr _%block186970186995%_))) + (_%hd186986187258%_ (let () (declare (not safe)) - (##car _%block185838185863%_)))) - (if (let () - (declare (not safe)) - (##pair? _%tl185855186128%_)) - (let ((_%tl185857186135%_ + (##car _%block186970186995%_)))) + (if (pair? _%tl186987187260%_) + (let ((_%tl186989187267%_ (let () (declare (not safe)) - (##cdr _%tl185855186128%_))) - (_%hd185856186133%_ + (##cdr _%tl186987187260%_))) + (_%hd186988187265%_ (let () (declare (not safe)) - (##car _%tl185855186128%_)))) + (##car _%tl186987187260%_)))) (if (let () (declare (not safe)) - (##eq? _%hd185856186133%_ + (##eq? _%hd186988187265%_ 'restart:)) - (if (let () - (declare (not safe)) - (##pair? _%tl185857186135%_)) - (let ((_%tl185859186140%_ + (if (pair? _%tl186989187267%_) + (let ((_%tl186991187272%_ (let () (declare (not safe)) - (##cdr _%tl185857186135%_))) - (_%hd185858186138%_ + (##cdr _%tl186989187267%_))) + (_%hd186990187270%_ (let () (declare (not safe)) - (##car _%tl185857186135%_)))) - (if (let () - (declare (not safe)) - (##pair? _%tl185859186140%_)) - (let ((_%tl185861186147%_ + (##car _%tl186989187267%_)))) + (if (pair? _%tl186991187272%_) + (let ((_%tl186993187279%_ (let () (declare (not safe)) - (##cdr _%tl185859186140%_))) - (_%hd185860186145%_ + (##cdr _%tl186991187272%_))) + (_%hd186992187277%_ (let () (declare (not safe)) - (##car _%tl185859186140%_)))) - (if (let () - (declare - (not safe)) - (##null? _%tl185861186147%_)) - (let ((_%name186131%_ + (##car _%tl186991187272%_)))) + (if (null? _%tl186993187279%_) + (let ((_%name187263%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd185854186126%_) - (_%kont186143%_ _%hd185858186138%_) - (_%assert186150%_ _%hd185860186145%_)) - (_%K185853186123%_ - _%assert186150%_ - _%kont186143%_ - _%name186131%_)) - (_%__match188483188484%_ - _%hd185854186126%_ - _%tl185855186128%_ - _%hd185856186133%_ - _%tl185857186135%_))) + _%hd186986187258%_) + (_%kont187275%_ _%hd186990187270%_) + (_%assert187282%_ _%hd186992187277%_)) + (_%K186985187255%_ + _%assert187282%_ + _%kont187275%_ + _%name187263%_)) + (_%__match189615189616%_ + _%hd186986187258%_ + _%tl186987187260%_ + _%hd186988187265%_ + _%tl186989187267%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match188483188484%_ - _%hd185854186126%_ - _%tl185855186128%_ - _%hd185856186133%_ - _%tl185857186135%_))) - (_%__match188483188484%_ - _%hd185854186126%_ - _%tl185855186128%_ - _%hd185856186133%_ - _%tl185857186135%_)) + (_%__match189615189616%_ + _%hd186986187258%_ + _%tl186987187260%_ + _%hd186988187265%_ + _%tl186989187267%_))) + (_%__match189615189616%_ + _%hd186986187258%_ + _%tl186987187260%_ + _%hd186988187265%_ + _%tl186989187267%_)) (if (let () (declare (not safe)) - (##eq? _%hd185856186133%_ + (##eq? _%hd186988187265%_ 'continue:)) - (if (let () - (declare (not safe)) - (##pair? _%tl185857186135%_)) - (let ((_%tl185848186023%_ + (if (pair? _%tl186989187267%_) + (let ((_%tl186980187155%_ (let () (declare (not safe)) - (##cdr _%tl185857186135%_))) - (_%hd185847186021%_ + (##cdr _%tl186989187267%_))) + (_%hd186979187153%_ (let () (declare (not safe)) - (##car _%tl185857186135%_)))) - (if (let () - (declare (not safe)) - (##pair? _%tl185848186023%_)) - (let ((_%tl185850186030%_ + (##car _%tl186989187267%_)))) + (if (pair? _%tl186980187155%_) + (let ((_%tl186982187162%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl185848186023%_))) - (_%hd185849186028%_ + (##cdr _%tl186980187155%_))) + (_%hd186981187160%_ (let () (declare (not safe)) - (##car _%tl185848186023%_)))) - (if (let () - (declare (not safe)) - (##pair? _%tl185850186030%_)) - (let ((_%tl185852186037%_ + (##car _%tl186980187155%_)))) + (if (pair? _%tl186982187162%_) + (let ((_%tl186984187169%_ (let () (declare (not safe)) - (##cdr _%tl185850186030%_))) - (_%hd185851186035%_ + (##cdr _%tl186982187162%_))) + (_%hd186983187167%_ (let () (declare (not safe)) - (##car _%tl185850186030%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl185852186037%_)) - (let ((_%name186014%_ _%hd185854186126%_) - (_%kont186026%_ _%hd185847186021%_) - (_%assert186033%_ _%hd185849186028%_) - (_%bind186040%_ _%hd185851186035%_)) - (_%K185842186006%_ - _%bind186040%_ - _%assert186033%_ - _%kont186026%_ - _%name186014%_)) - (_%__match188505188506%_ - _%hd185854186126%_ - _%tl185855186128%_ - _%hd185856186133%_ - _%tl185857186135%_ - _%hd185847186021%_ - _%tl185848186023%_ - _%hd185849186028%_ - _%tl185850186030%_ - _%hd185851186035%_ - _%tl185852186037%_))) - (_%__match188499188500%_ - _%hd185854186126%_ - _%tl185855186128%_ - _%hd185856186133%_ - _%tl185857186135%_ - _%hd185847186021%_ - _%tl185848186023%_ - _%hd185849186028%_ - _%tl185850186030%_))) - (_%__match188493188494%_ - _%hd185854186126%_ - _%tl185855186128%_ - _%hd185856186133%_ - _%tl185857186135%_ - _%hd185847186021%_ - _%tl185848186023%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match188487188488%_ - _%hd185854186126%_ - _%tl185855186128%_ - _%hd185856186133%_ - _%tl185857186135%_)) - (_%__match188483188484%_ - _%hd185854186126%_ - _%tl185855186128%_ - _%hd185856186133%_ - _%tl185857186135%_)))) - (_%__match188477188478%_ - _%hd185854186126%_ - _%tl185855186128%_))) - (_%E185841185867%_)))))))) - (if (let () (declare (not safe)) (##pair? _%rest185776185784%_)) - (let ((_%hd185781186155%_ + (_%__match189619189620%_ + _%hd186986187258%_ + _%tl186987187260%_ + _%hd186988187265%_ + _%tl186989187267%_)) + (_%__match189615189616%_ + _%hd186986187258%_ + _%tl186987187260%_ + _%hd186988187265%_ + _%tl186989187267%_)))) + (_%__match189609189610%_ + _%hd186986187258%_ + _%tl186987187260%_))) + (_%E186973186999%_)))))))) + (if (pair? _%rest186908186916%_) + (let ((_%hd186913187287%_ (let () (declare (not safe)) - (##car _%rest185776185784%_))) - (_%tl185782186157%_ + (##car _%rest186908186916%_))) + (_%tl186914187289%_ (let () (declare (not safe)) - (##cdr _%rest185776185784%_)))) - (let* ((_%block186160%_ _%hd185781186155%_) - (_%rest186162%_ _%tl185782186157%_)) - (_%K185780186152%_ _%rest186162%_ _%block186160%_))) - (_%else185778185833%_)))))) + (##cdr _%rest186908186916%_)))) + (let* ((_%block187292%_ _%hd186913187287%_) + (_%rest187294%_ _%tl186914187289%_)) + (_%K186912187284%_ _%rest187294%_ _%block187292%_))) + (_%else186910186965%_)))))) (define gxc#optimize-match-block - (lambda (_%body180393%_ _%assert180394%_ _%bind180395%_ _%blocks180396%_) - (letrec* ((_%env-assert180631%_ '()) - (_%env-type180632%_ '()) - (_%env-bind180633%_ '()) - (_%in-splice?180634%_ '#f) - (_%do-assert180635%_ - (lambda (_%assert185693%_ _%K185694%_) - (if (pair? _%assert185693%_) - (let _%lp185696%_ ((_%rest185698%_ _%assert185693%_) - (_%env-assert185699%_ - _%env-assert180631%_) - (_%env-type185700%_ - _%env-type180632%_)) - (let* ((_%rest185701185709%_ _%rest185698%_) - (_%else185703185717%_ + (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 () - (_%do-assert!180641%_ - _%env-assert185699%_ - _%env-type185700%_ - _%K185694%_))) - (_%K185705185758%_ - (lambda (_%rest185720%_ _%assert185721%_) - (let* ((_%assert185722185729%_ - _%assert185721%_) - (_%E185724185733%_ + (_%do-assert!181773%_ + _%env-assert186831%_ + _%env-type186832%_ + _%K186826%_))) + (_%K186837186890%_ + (lambda (_%rest186852%_ _%assert186853%_) + (let* ((_%assert186854186861%_ + _%assert186853%_) + (_%E186856186865%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%assert185722185729%_ + _%assert186854186861%_ '([expr . val]))) '#!void)) - (_%K185725185746%_ - (lambda (_%val185736%_ - _%expr185737%_) - (let* ((_%sexpr185739%_ + (_%K186857186878%_ + (lambda (_%val186868%_ + _%expr186869%_) + (let* ((_%sexpr186871%_ (gxc#apply-generate-runtime-repr - _%expr185737%_)) - (_%env-assert185741%_ - (cons (cons _%sexpr185739%_ + _%expr186869%_)) + (_%env-assert186873%_ + (cons (cons _%sexpr186871%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%val185736%_) - _%env-assert185699%_)) - (_%env-type185743%_ - (_%fold-assert-type180637%_ - _%expr185737%_ - _%val185736%_ - _%env-type185700%_))) + _%val186868%_) + _%env-assert186831%_)) + (_%env-type186875%_ + (_%fold-assert-type181769%_ + _%expr186869%_ + _%val186868%_ + _%env-type186832%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp185696%_ - _%rest185720%_ - _%env-assert185741%_ - _%env-type185743%_))))) - (if (let () - (declare (not safe)) - (##pair? _%assert185722185729%_)) - (let ((_%hd185726185749%_ + (_%lp186828%_ + _%rest186852%_ + _%env-assert186873%_ + _%env-type186875%_))))) + (if (pair? _%assert186854186861%_) + (let ((_%hd186858186881%_ (let () (declare (not safe)) - (##car _%assert185722185729%_))) - (_%tl185727185751%_ + (##car _%assert186854186861%_))) + (_%tl186859186883%_ (let () (declare (not safe)) - (##cdr _%assert185722185729%_)))) - (let* ((_%expr185754%_ - _%hd185726185749%_) - (_%val185756%_ - _%tl185727185751%_)) - (_%K185725185746%_ - _%val185756%_ - _%expr185754%_))) - (_%E185724185733%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest185701185709%_)) - (let ((_%hd185706185761%_ + (##cdr _%assert186854186861%_)))) + (let* ((_%expr186886%_ + _%hd186858186881%_) + (_%val186888%_ + _%tl186859186883%_)) + (_%K186857186878%_ + _%val186888%_ + _%expr186886%_))) + (_%E186856186865%_)))))) + (if (pair? _%rest186833186841%_) + (let ((_%hd186838186893%_ (let () (declare (not safe)) - (##car _%rest185701185709%_))) - (_%tl185707185763%_ + (##car _%rest186833186841%_))) + (_%tl186839186895%_ (let () (declare (not safe)) - (##cdr _%rest185701185709%_)))) - (let* ((_%assert185766%_ _%hd185706185761%_) - (_%rest185768%_ _%tl185707185763%_)) - (_%K185705185758%_ - _%rest185768%_ - _%assert185766%_))) - (_%else185703185717%_)))) - (_%K185694%_)))) - (_%predicate-type180636%_ - (lambda (_%id185638%_) - (let* ((_%sym185640%_ + (##cdr _%rest186833186841%_)))) + (let* ((_%assert186898%_ _%hd186838186893%_) + (_%rest186900%_ _%tl186839186895%_)) + (_%K186837186890%_ + _%rest186900%_ + _%assert186898%_))) + (_%else186835186849%_)))) + (_%K186826%_)))) + (_%predicate-type181768%_ + (lambda (_%id186770%_) + (let* ((_%sym186772%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id185638%_))) - (_%$e185642%_ _%sym185640%_)) - (let ((_%default185644185675%_ + (gxc#identifier-symbol _%id186770%_))) + (_%$e186774%_ _%sym186772%_)) + (let ((_%default186776186807%_ (lambda () - (let* ((_%g185647185654%_ + (let* ((_%g186779186786%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym185640%_))) - (_%else185649185662%_ (lambda () '#f)) - (_%K185651185667%_ - (lambda (_%t185665%_) - (let ((__tmp191148 + _%sym186772%_))) + (_%else186781186794%_ (lambda () '#f)) + (_%K186783186799%_ + (lambda (_%t186797%_) + (let ((__tmp192280 (cons 'predicate-type - (cons _%id185638%_ + (cons _%id186770%_ '())))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp191148 - _%t185665%_))))) + __tmp192280 + _%t186797%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g185647185654%_ + _%g186779186786%_ 'gxc#!predicate::t)) - (let* ((_%e185652185670%_ + (let* ((_%e186784186802%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g185647185654%_ + _%g186779186786%_ '1 '#f '#f))) - (_%t185673%_ _%e185652185670%_)) - (_%K185651185667%_ _%t185673%_)) - (_%else185649185662%_))))) - (_%table185645185677%_ + (_%t186805%_ _%e186784186802%_)) + (_%K186783186799%_ _%t186805%_)) + (_%else186781186794%_))))) + (_%table186777186809%_ '#(#f (##box? . 3) #f @@ -3859,48 +3796,48 @@ #f #f #f))) - (if (symbol? _%$e185642%_) - (let* ((_%h185680%_ + (if (symbol? _%$e186774%_) + (let* ((_%h186812%_ (let () (declare (not safe)) - (##symbol-hash _%$e185642%_))) - (_%ix185683%_ + (##symbol-hash _%$e186774%_))) + (_%ix186815%_ (let () (declare (not safe)) - (##fxmodulo _%h185680%_ '63))) - (_%q185686%_ + (##fxmodulo _%h186812%_ '63))) + (_%q186818%_ (let () (declare (not safe)) (##vector-ref - _%table185645185677%_ - _%ix185683%_)))) - (if _%q185686%_ + _%table186777186809%_ + _%ix186815%_)))) + (if _%q186818%_ (if (eq? (let () (declare (not safe)) - (##car _%q185686%_)) - _%$e185642%_) - (let ((_%x185690%_ + (##car _%q186818%_)) + _%$e186774%_) + (let ((_%x186822%_ (let () (declare (not safe)) - (##cdr _%q185686%_)))) + (##cdr _%q186818%_)))) (if (let () (declare (not safe)) - (##fx< _%x185690%_ '5)) + (##fx< _%x186822%_ '5)) (if (let () (declare (not safe)) - (##fx< _%x185690%_ '2)) + (##fx< _%x186822%_ '2)) (if (let () (declare (not safe)) - (##fx= _%x185690%_ '0)) + (##fx= _%x186822%_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _%x185690%_ '2)) + (##fx= _%x186822%_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _%x185690%_ + (##fx= _%x186822%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -3908,356 +3845,356 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _%x185690%_ '7)) + (##fx< _%x186822%_ '7)) (if (let () (declare (not safe)) - (##fx= _%x185690%_ '5)) + (##fx= _%x186822%_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _%x185690%_ '7)) + (##fx= _%x186822%_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _%x185690%_ + (##fx= _%x186822%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box 'stx-datum))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%default185644185675%_)) - (_%default185644185675%_))) - (_%default185644185675%_)))))) - (_%fold-assert-type180637%_ - (lambda (_%expr184584%_ _%val184585%_ _%env184586%_) - (let* ((_%__stx188602188603%_ _%expr184584%_) - (_%g184594184773%_ + (_%default186776186807%_)) + (_%default186776186807%_))) + (_%default186776186807%_)))))) + (_%fold-assert-type181769%_ + (lambda (_%expr185716%_ _%val185717%_ _%env185718%_) + (let* ((_%__stx189734189735%_ _%expr185716%_) + (_%g185726185905%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188602188603%_))))) - (let ((_%__kont188604188605%_ - (lambda (_%L185606%_ _%L185607%_) - (let ((_%$e185629%_ - (_%predicate-type180636%_ _%L185607%_))) - (if _%$e185629%_ - ((lambda (_%t185632%_) - (cons (cons _%L185606%_ - (cons _%t185632%_ - (cons _%val184585%_ + _%__stx189734189735%_))))) + (let ((_%__kont189736189737%_ + (lambda (_%L186738%_ _%L186739%_) + (let ((_%$e186761%_ + (_%predicate-type181768%_ _%L186739%_))) + (if _%$e186761%_ + ((lambda (_%t186764%_) + (cons (cons _%L186738%_ + (cons _%t186764%_ + (cons _%val185717%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env184586%_)) - _%$e185629%_) - _%env184586%_)))) - (_%__kont188606188607%_ - (lambda (_%L185295%_ _%L185296%_ _%L185297%_) - (let ((_%$e185322%_ + _%env185718%_)) + _%$e186761%_) + _%env185718%_)))) + (_%__kont189738189739%_ + (lambda (_%L186427%_ _%L186428%_ _%L186429%_) + (let ((_%$e186454%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L185297%_)))) - (if (or (eq? '##fx= _%$e185322%_) - (eq? 'fx= _%$e185322%_)) - (let* ((_%__stx188508188509%_ - _%L185296%_) - (_%g185329185358%_ + (gxc#identifier-symbol _%L186429%_)))) + (if (or (eq? '##fx= _%$e186454%_) + (eq? 'fx= _%$e186454%_)) + (let* ((_%__stx189640189641%_ + _%L186428%_) + (_%g186461186490%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188508188509%_))))) - (let ((_%__kont188510188511%_ - (lambda (_%L185426%_ - _%L185427%_) - (let ((_%$e185452%_ - (_%countf-symbol180638%_ - _%L185427%_))) - (if _%$e185452%_ - ((lambda (_%sym185455%_) - (cons (cons _%L185426%_ + _%__stx189640189641%_))))) + (let ((_%__kont189642189643%_ + (lambda (_%L186558%_ + _%L186559%_) + (let ((_%$e186584%_ + (_%countf-symbol181770%_ + _%L186559%_))) + (if _%$e186584%_ + ((lambda (_%sym186587%_) + (cons (cons _%L186558%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym185455%_ + (cons _%sym186587%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L185295%_)) - (cons _%val184585%_ '())))) - _%env184586%_)) - _%$e185452%_) - _%env184586%_)))) + (gx#stx-e _%L186427%_)) + (cons _%val185717%_ '())))) + _%env185718%_)) + _%$e186584%_) + _%env185718%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188512188513%_ - (lambda () _%env184586%_))) + (_%__kont189644189645%_ + (lambda () _%env185718%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx188508188509%_)) - (let ((_%e185333185370%_ + _%__stx189640189641%_)) + (let ((_%e186465186502%_ (let () (declare (not safe)) (gx#stx-e - _%__stx188508188509%_)))) - (let ((_%tl185335185375%_ + _%__stx189640189641%_)))) + (let ((_%tl186467186507%_ (let () (declare (not safe)) - (##cdr _%e185333185370%_))) - (_%hd185334185373%_ + (##cdr _%e186465186502%_))) + (_%hd186466186505%_ (let () (declare (not safe)) - (##car _%e185333185370%_)))) + (##car _%e186465186502%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185334185373%_)) + _%hd186466186505%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd185334185373%_)) + _%hd186466186505%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl185335185375%_)) - (let ((_%e185336185378%_ + (gx#stx-pair? _%tl186467186507%_)) + (let ((_%e186468186510%_ (let () (declare (not safe)) - (gx#stx-e _%tl185335185375%_)))) - (let ((_%tl185338185383%_ + (gx#stx-e _%tl186467186507%_)))) + (let ((_%tl186470186515%_ (let () (declare (not safe)) - (##cdr _%e185336185378%_))) - (_%hd185337185381%_ + (##cdr _%e186468186510%_))) + (_%hd186469186513%_ (let () (declare (not safe)) - (##car _%e185336185378%_)))) + (##car _%e186468186510%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185337185381%_)) - (let ((_%e185339185386%_ + (gx#stx-pair? _%hd186469186513%_)) + (let ((_%e186471186518%_ (let () (declare (not safe)) - (gx#stx-e _%hd185337185381%_)))) - (let ((_%tl185341185391%_ + (gx#stx-e _%hd186469186513%_)))) + (let ((_%tl186473186523%_ (let () (declare (not safe)) - (##cdr _%e185339185386%_))) - (_%hd185340185389%_ + (##cdr _%e186471186518%_))) + (_%hd186472186521%_ (let () (declare (not safe)) - (##car _%e185339185386%_)))) + (##car _%e186471186518%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185340185389%_)) + (gx#identifier? _%hd186472186521%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd185340185389%_)) + _%hd186472186521%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185341185391%_)) - (let ((_%e185342185394%_ + _%tl186473186523%_)) + (let ((_%e186474186526%_ (let () (declare (not safe)) (gx#stx-e - _%tl185341185391%_)))) - (let ((_%tl185344185399%_ + _%tl186473186523%_)))) + (let ((_%tl186476186531%_ (let () (declare (not safe)) - (##cdr _%e185342185394%_))) - (_%hd185343185397%_ + (##cdr _%e186474186526%_))) + (_%hd186475186529%_ (let () (declare (not safe)) - (##car _%e185342185394%_)))) + (##car _%e186474186526%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185344185399%_)) + _%tl186476186531%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185338185383%_)) - (let ((_%e185345185402%_ + _%tl186470186515%_)) + (let ((_%e186477186534%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl185338185383%_)))) - (let ((_%tl185347185407%_ + (gx#stx-e _%tl186470186515%_)))) + (let ((_%tl186479186539%_ (let () (declare (not safe)) - (##cdr _%e185345185402%_))) - (_%hd185346185405%_ + (##cdr _%e186477186534%_))) + (_%hd186478186537%_ (let () (declare (not safe)) - (##car _%e185345185402%_)))) + (##car _%e186477186534%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185346185405%_)) - (let ((_%e185348185410%_ + (gx#stx-pair? _%hd186478186537%_)) + (let ((_%e186480186542%_ (let () (declare (not safe)) - (gx#stx-e _%hd185346185405%_)))) - (let ((_%tl185350185415%_ + (gx#stx-e _%hd186478186537%_)))) + (let ((_%tl186482186547%_ (let () (declare (not safe)) - (##cdr _%e185348185410%_))) - (_%hd185349185413%_ + (##cdr _%e186480186542%_))) + (_%hd186481186545%_ (let () (declare (not safe)) - (##car _%e185348185410%_)))) + (##car _%e186480186542%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185349185413%_)) + (gx#identifier? _%hd186481186545%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185349185413%_)) + (gx#stx-eq? '%#ref _%hd186481186545%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185350185415%_)) - (let ((_%e185351185418%_ + (gx#stx-pair? _%tl186482186547%_)) + (let ((_%e186483186550%_ (let () (declare (not safe)) (gx#stx-e - _%tl185350185415%_)))) - (let ((_%tl185353185423%_ + _%tl186482186547%_)))) + (let ((_%tl186485186555%_ (let () (declare (not safe)) - (##cdr _%e185351185418%_))) - (_%hd185352185421%_ + (##cdr _%e186483186550%_))) + (_%hd186484186553%_ (let () (declare (not safe)) - (##car _%e185351185418%_)))) + (##car _%e186483186550%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185353185423%_)) + _%tl186485186555%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185347185407%_)) - (_%__kont188510188511%_ - _%hd185352185421%_ - _%hd185343185397%_) - (_%__kont188512188513%_)) - (_%__kont188512188513%_)))) - (_%__kont188512188513%_)) - (_%__kont188512188513%_)) - (_%__kont188512188513%_)))) - (_%__kont188512188513%_)))) - (_%__kont188512188513%_)) - (_%__kont188512188513%_)))) + _%tl186479186539%_)) + (_%__kont189642189643%_ + _%hd186484186553%_ + _%hd186475186529%_) + (_%__kont189644189645%_)) + (_%__kont189644189645%_)))) + (_%__kont189644189645%_)) + (_%__kont189644189645%_)) + (_%__kont189644189645%_)))) + (_%__kont189644189645%_)))) + (_%__kont189644189645%_)) + (_%__kont189644189645%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188512188513%_)) - (_%__kont188512188513%_)) - (_%__kont188512188513%_)))) - (_%__kont188512188513%_)))) - (_%__kont188512188513%_)) - (_%__kont188512188513%_)) - (_%__kont188512188513%_)))) + (_%__kont189644189645%_)) + (_%__kont189644189645%_)) + (_%__kont189644189645%_)))) + (_%__kont189644189645%_)))) + (_%__kont189644189645%_)) + (_%__kont189644189645%_)) + (_%__kont189644189645%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188512188513%_)))) - (if (or (eq? '##eq? _%$e185322%_) - (eq? 'eq? _%$e185322%_) - (eq? '##eqv? _%$e185322%_) - (eq? 'eqv? _%$e185322%_) - (eq? '##equal? _%$e185322%_) - (eq? 'equal? _%$e185322%_) + (_%__kont189644189645%_)))) + (if (or (eq? '##eq? _%$e186454%_) + (eq? 'eq? _%$e186454%_) + (eq? '##eqv? _%$e186454%_) + (eq? 'eqv? _%$e186454%_) + (eq? '##equal? _%$e186454%_) + (eq? 'equal? _%$e186454%_) (eq? 'gx#free-identifier=? - _%$e185322%_) - (eq? 'gx#stx-eq? _%$e185322%_)) - ((lambda (_%sym185482%_) - (let* ((_%sym185484%_ - (_%eqf-symbol180639%_ - _%sym185482%_)) - (_%__stx188576188577%_ - _%L185296%_) - (_%g185487185500%_ + _%$e186454%_) + (eq? 'gx#stx-eq? _%$e186454%_)) + ((lambda (_%sym186614%_) + (let* ((_%sym186616%_ + (_%eqf-symbol181771%_ + _%sym186614%_)) + (_%__stx189708189709%_ + _%L186428%_) + (_%g186619186632%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188576188577%_))))) - (let ((_%__kont188578188579%_ - (lambda (_%L185528%_) - (cons (cons _%L185528%_ + _%__stx189708189709%_))))) + (let ((_%__kont189710189711%_ + (lambda (_%L186660%_) + (cons (cons _%L186660%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym185484%_ + (cons _%sym186616%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L185295%_)) - (cons _%val184585%_ '())))) - _%env184586%_))) + (gx#stx-e _%L186427%_)) + (cons _%val185717%_ '())))) + _%env185718%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188580188581%_ + (_%__kont189712189713%_ (lambda () - _%env184586%_))) + _%env185718%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx188576188577%_)) - (let ((_%e185490185512%_ + _%__stx189708189709%_)) + (let ((_%e186622186644%_ (let () (declare (not safe)) (gx#stx-e - _%__stx188576188577%_)))) - (let ((_%tl185492185517%_ + _%__stx189708189709%_)))) + (let ((_%tl186624186649%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185490185512%_))) - (_%hd185491185515%_ - (let () (declare (not safe)) (##car _%e185490185512%_)))) + (##cdr _%e186622186644%_))) + (_%hd186623186647%_ + (let () (declare (not safe)) (##car _%e186622186644%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185491185515%_)) + (gx#identifier? _%hd186623186647%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185491185515%_)) + (gx#stx-eq? '%#ref _%hd186623186647%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185492185517%_)) - (let ((_%e185493185520%_ + (gx#stx-pair? _%tl186624186649%_)) + (let ((_%e186625186652%_ (let () (declare (not safe)) - (gx#stx-e _%tl185492185517%_)))) - (let ((_%tl185495185525%_ + (gx#stx-e _%tl186624186649%_)))) + (let ((_%tl186627186657%_ (let () (declare (not safe)) - (##cdr _%e185493185520%_))) - (_%hd185494185523%_ + (##cdr _%e186625186652%_))) + (_%hd186626186655%_ (let () (declare (not safe)) - (##car _%e185493185520%_)))) + (##car _%e186625186652%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185495185525%_)) - (_%__kont188578188579%_ - _%hd185494185523%_) - (_%__kont188580188581%_)))) - (_%__kont188580188581%_)) - (_%__kont188580188581%_)) - (_%__kont188580188581%_)))) + (gx#stx-null? _%tl186627186657%_)) + (_%__kont189710189711%_ + _%hd186626186655%_) + (_%__kont189712189713%_)))) + (_%__kont189712189713%_)) + (_%__kont189712189713%_)) + (_%__kont189712189713%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188580188581%_))))) - _%$e185322%_) - _%env184586%_))))) - (_%__kont188608188609%_ - (lambda (_%L185199%_ _%L185200%_ _%L185201%_) - (_%fold-assert-type180637%_ + (_%__kont189712189713%_))))) + _%$e186454%_) + _%env185718%_))))) + (_%__kont189740189741%_ + (lambda (_%L186331%_ _%L186332%_ _%L186333%_) + (_%fold-assert-type181769%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -4266,42 +4203,42 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L185201%_ '())) - (cons _%L185199%_ + (cons _%L186333%_ '())) + (cons _%L186331%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L185200%_ '())) + (cons _%L186332%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val184585%_ - _%env184586%_))) - (_%__kont188610188611%_ - (lambda (_%L185089%_ _%L185090%_ _%L185091%_) - (let ((_%$e185120%_ + _%val185717%_ + _%env185718%_))) + (_%__kont189742189743%_ + (lambda (_%L186221%_ _%L186222%_ _%L186223%_) + (let ((_%$e186252%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L185091%_)))) + (gxc#identifier-symbol _%L186223%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e185120%_) - (eq? 'gx#stx-eq? _%$e185120%_)) - ((lambda (_%sym185126%_) - (let ((_%sym185128%_ - (_%eqf-symbol180639%_ - _%sym185126%_))) - (cons (cons _%L185090%_ - (cons _%sym185128%_ - (cons _%L185089%_ + _%$e186252%_) + (eq? 'gx#stx-eq? _%$e186252%_)) + ((lambda (_%sym186258%_) + (let ((_%sym186260%_ + (_%eqf-symbol181771%_ + _%sym186258%_))) + (cons (cons _%L186222%_ + (cons _%sym186260%_ + (cons _%L186221%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%val184585%_ '())))) + (cons _%val185717%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env184586%_))) - _%$e185120%_) - _%env184586%_)))) - (_%__kont188612188613%_ - (lambda (_%L184973%_ _%L184974%_ _%L184975%_) - (_%fold-assert-type180637%_ + _%env185718%_))) + _%$e186252%_) + _%env185718%_)))) + (_%__kont189744189745%_ + (lambda (_%L186105%_ _%L186106%_ _%L186107%_) + (_%fold-assert-type181769%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -4310,4401 +4247,4397 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L184975%_ '())) + (cons _%L186107%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L184973%_ + (cons _%L186105%_ '())) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L184974%_ '())) + (cons _%L186106%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val184585%_ - _%env184586%_))) - (_%__kont188614188615%_ - (lambda (_%L184857%_ _%L184858%_ _%L184859%_) - (_%fold-assert-type180637%_ + _%val185717%_ + _%env185718%_))) + (_%__kont189746189747%_ + (lambda (_%L185989%_ _%L185990%_ _%L185991%_) + (_%fold-assert-type181769%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L184859%_ - _%L184857%_ - _%L184858%_)) - _%val184585%_ - _%env184586%_))) - (_%__kont188616188617%_ - (lambda () _%env184586%_))) + _%L185991%_ + _%L185989%_ + _%L185990%_)) + _%val185717%_ + _%env185718%_))) + (_%__kont189748189749%_ + (lambda () _%env185718%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx188602188603%_)) - (let ((_%e184598185550%_ + (gx#stx-pair? _%__stx189734189735%_)) + (let ((_%e185730186682%_ (let () (declare (not safe)) - (gx#stx-e _%__stx188602188603%_)))) - (let ((_%tl184600185555%_ + (gx#stx-e _%__stx189734189735%_)))) + (let ((_%tl185732186687%_ (let () (declare (not safe)) - (##cdr _%e184598185550%_))) - (_%hd184599185553%_ + (##cdr _%e185730186682%_))) + (_%hd185731186685%_ (let () (declare (not safe)) - (##car _%e184598185550%_)))) + (##car _%e185730186682%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184599185553%_)) + (gx#identifier? _%hd185731186685%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd184599185553%_)) + _%hd185731186685%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184600185555%_)) - (let ((_%e184601185558%_ + _%tl185732186687%_)) + (let ((_%e185733186690%_ (let () (declare (not safe)) (gx#stx-e - _%tl184600185555%_)))) - (let ((_%tl184603185563%_ + _%tl185732186687%_)))) + (let ((_%tl185735186695%_ (let () (declare (not safe)) - (##cdr _%e184601185558%_))) - (_%hd184602185561%_ + (##cdr _%e185733186690%_))) + (_%hd185734186693%_ (let () (declare (not safe)) - (##car _%e184601185558%_)))) + (##car _%e185733186690%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184602185561%_)) - (let ((_%e184604185566%_ + _%hd185734186693%_)) + (let ((_%e185736186698%_ (let () (declare (not safe)) (gx#stx-e - _%hd184602185561%_)))) - (let ((_%tl184606185571%_ + _%hd185734186693%_)))) + (let ((_%tl185738186703%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e184604185566%_))) - (_%hd184605185569%_ - (let () (declare (not safe)) (##car _%e184604185566%_)))) + (##cdr _%e185736186698%_))) + (_%hd185737186701%_ + (let () (declare (not safe)) (##car _%e185736186698%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184605185569%_)) + (gx#identifier? _%hd185737186701%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184605185569%_)) + (gx#stx-eq? '%#ref _%hd185737186701%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184606185571%_)) - (let ((_%e184607185574%_ + (gx#stx-pair? _%tl185738186703%_)) + (let ((_%e185739186706%_ (let () (declare (not safe)) - (gx#stx-e _%tl184606185571%_)))) - (let ((_%tl184609185579%_ + (gx#stx-e _%tl185738186703%_)))) + (let ((_%tl185741186711%_ (let () (declare (not safe)) - (##cdr _%e184607185574%_))) - (_%hd184608185577%_ + (##cdr _%e185739186706%_))) + (_%hd185740186709%_ (let () (declare (not safe)) - (##car _%e184607185574%_)))) + (##car _%e185739186706%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184609185579%_)) + (gx#stx-null? _%tl185741186711%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184603185563%_)) - (let ((_%e184610185582%_ + (gx#stx-pair? _%tl185735186695%_)) + (let ((_%e185742186714%_ (let () (declare (not safe)) (gx#stx-e - _%tl184603185563%_)))) - (let ((_%tl184612185587%_ + _%tl185735186695%_)))) + (let ((_%tl185744186719%_ (let () (declare (not safe)) - (##cdr _%e184610185582%_))) - (_%hd184611185585%_ + (##cdr _%e185742186714%_))) + (_%hd185743186717%_ (let () (declare (not safe)) - (##car _%e184610185582%_)))) + (##car _%e185742186714%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184611185585%_)) - (let ((_%e184613185590%_ + _%hd185743186717%_)) + (let ((_%e185745186722%_ (let () (declare (not safe)) (gx#stx-e - _%hd184611185585%_)))) - (let ((_%tl184615185595%_ + _%hd185743186717%_)))) + (let ((_%tl185747186727%_ (let () (declare (not safe)) - (##cdr _%e184613185590%_))) - (_%hd184614185593%_ + (##cdr _%e185745186722%_))) + (_%hd185746186725%_ (let () (declare (not safe)) - (##car _%e184613185590%_)))) + (##car _%e185745186722%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184614185593%_)) + _%hd185746186725%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd184614185593%_)) + (gx#stx-eq? '%#ref _%hd185746186725%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184615185595%_)) - (let ((_%e184616185598%_ + (gx#stx-pair? _%tl185747186727%_)) + (let ((_%e185748186730%_ (let () (declare (not safe)) - (gx#stx-e _%tl184615185595%_)))) - (let ((_%tl184618185603%_ + (gx#stx-e _%tl185747186727%_)))) + (let ((_%tl185750186735%_ (let () (declare (not safe)) - (##cdr _%e184616185598%_))) - (_%hd184617185601%_ + (##cdr _%e185748186730%_))) + (_%hd185749186733%_ (let () (declare (not safe)) - (##car _%e184616185598%_)))) + (##car _%e185748186730%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184618185603%_)) + (gx#stx-null? _%tl185750186735%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184612185587%_)) - (_%__kont188604188605%_ - _%hd184617185601%_ - _%hd184608185577%_) + (gx#stx-null? _%tl185744186719%_)) + (_%__kont189736189737%_ + _%hd185749186733%_ + _%hd185740186709%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184612185587%_)) - (let ((_%e184637185271%_ + (gx#stx-pair? _%tl185744186719%_)) + (let ((_%e185769186403%_ (let () (declare (not safe)) (gx#stx-e - _%tl184612185587%_)))) - (let ((_%tl184639185276%_ + _%tl185744186719%_)))) + (let ((_%tl185771186408%_ (let () (declare (not safe)) - (##cdr _%e184637185271%_))) - (_%hd184638185274%_ + (##cdr _%e185769186403%_))) + (_%hd185770186406%_ (let () (declare (not safe)) - (##car _%e184637185271%_)))) + (##car _%e185769186403%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184638185274%_)) - (let ((_%e184640185279%_ + _%hd185770186406%_)) + (let ((_%e185772186411%_ (let () (declare (not safe)) (gx#stx-e - _%hd184638185274%_)))) - (let ((_%tl184642185284%_ + _%hd185770186406%_)))) + (let ((_%tl185774186416%_ (let () (declare (not safe)) - (##cdr _%e184640185279%_))) - (_%hd184641185282%_ + (##cdr _%e185772186411%_))) + (_%hd185773186414%_ (let () (declare (not safe)) - (##car _%e184640185279%_)))) + (##car _%e185772186411%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184641185282%_)) + _%hd185773186414%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd184641185282%_)) + (gx#stx-eq? '%#quote _%hd185773186414%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184642185284%_)) - (let ((_%e184643185287%_ + (gx#stx-pair? _%tl185774186416%_)) + (let ((_%e185775186419%_ (let () (declare (not safe)) - (gx#stx-e _%tl184642185284%_)))) - (let ((_%tl184645185292%_ + (gx#stx-e _%tl185774186416%_)))) + (let ((_%tl185777186424%_ (let () (declare (not safe)) - (##cdr _%e184643185287%_))) - (_%hd184644185290%_ + (##cdr _%e185775186419%_))) + (_%hd185776186422%_ (let () (declare (not safe)) - (##car _%e184643185287%_)))) + (##car _%e185775186419%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184645185292%_)) + (gx#stx-null? _%tl185777186424%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184639185276%_)) - (_%__kont188606188607%_ - _%hd184644185290%_ - _%hd184611185585%_ - _%hd184608185577%_) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)) + (gx#stx-null? _%tl185771186408%_)) + (_%__kont189738189739%_ + _%hd185776186422%_ + _%hd185743186717%_ + _%hd185740186709%_) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd184641185282%_)) + (gx#stx-eq? '%#quote-syntax _%hd185773186414%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184642185284%_)) - (let ((_%e184703185081%_ + (gx#stx-pair? _%tl185774186416%_)) + (let ((_%e185835186213%_ (let () (declare (not safe)) - (gx#stx-e _%tl184642185284%_)))) - (let ((_%tl184705185086%_ + (gx#stx-e _%tl185774186416%_)))) + (let ((_%tl185837186218%_ (let () (declare (not safe)) - (##cdr _%e184703185081%_))) - (_%hd184704185084%_ + (##cdr _%e185835186213%_))) + (_%hd185836186216%_ (let () (declare (not safe)) - (##car _%e184703185081%_)))) + (##car _%e185835186213%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184705185086%_)) + (gx#stx-null? _%tl185837186218%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184639185276%_)) - (_%__kont188610188611%_ - _%hd184704185084%_ - _%hd184617185601%_ - _%hd184608185577%_) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)) - (_%__kont188616188617%_))) - (_%__kont188616188617%_)))) + (gx#stx-null? _%tl185771186408%_)) + (_%__kont189742189743%_ + _%hd185836186216%_ + _%hd185749186733%_ + _%hd185740186709%_) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_))) + (_%__kont189748189749%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188616188617%_)))) - (_%__kont188616188617%_))) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184612185587%_)) - (let ((_%e184637185271%_ + (gx#stx-pair? _%tl185744186719%_)) + (let ((_%e185769186403%_ (let () (declare (not safe)) - (gx#stx-e _%tl184612185587%_)))) - (let ((_%tl184639185276%_ + (gx#stx-e _%tl185744186719%_)))) + (let ((_%tl185771186408%_ (let () (declare (not safe)) - (##cdr _%e184637185271%_))) - (_%hd184638185274%_ + (##cdr _%e185769186403%_))) + (_%hd185770186406%_ (let () (declare (not safe)) - (##car _%e184637185271%_)))) + (##car _%e185769186403%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184638185274%_)) - (let ((_%e184640185279%_ + _%hd185770186406%_)) + (let ((_%e185772186411%_ (let () (declare (not safe)) (gx#stx-e - _%hd184638185274%_)))) - (let ((_%tl184642185284%_ + _%hd185770186406%_)))) + (let ((_%tl185774186416%_ (let () (declare (not safe)) - (##cdr _%e184640185279%_))) - (_%hd184641185282%_ + (##cdr _%e185772186411%_))) + (_%hd185773186414%_ (let () (declare (not safe)) - (##car _%e184640185279%_)))) + (##car _%e185772186411%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184641185282%_)) + _%hd185773186414%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184641185282%_)) + _%hd185773186414%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl184642185284%_)) - (let ((_%e184643185287%_ + (gx#stx-pair? _%tl185774186416%_)) + (let ((_%e185775186419%_ (let () (declare (not safe)) - (gx#stx-e _%tl184642185284%_)))) - (let ((_%tl184645185292%_ + (gx#stx-e _%tl185774186416%_)))) + (let ((_%tl185777186424%_ (let () (declare (not safe)) - (##cdr _%e184643185287%_))) - (_%hd184644185290%_ + (##cdr _%e185775186419%_))) + (_%hd185776186422%_ (let () (declare (not safe)) - (##car _%e184643185287%_)))) + (##car _%e185775186419%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184645185292%_)) + (gx#stx-null? _%tl185777186424%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184639185276%_)) - (_%__kont188606188607%_ - _%hd184644185290%_ - _%hd184611185585%_ - _%hd184608185577%_) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)) + (gx#stx-null? _%tl185771186408%_)) + (_%__kont189738189739%_ + _%hd185776186422%_ + _%hd185743186717%_ + _%hd185740186709%_) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_))))) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184612185587%_)) - (let ((_%e184637185271%_ + (gx#stx-pair? _%tl185744186719%_)) + (let ((_%e185769186403%_ (let () (declare (not safe)) - (gx#stx-e _%tl184612185587%_)))) - (let ((_%tl184639185276%_ + (gx#stx-e _%tl185744186719%_)))) + (let ((_%tl185771186408%_ (let () (declare (not safe)) - (##cdr _%e184637185271%_))) - (_%hd184638185274%_ + (##cdr _%e185769186403%_))) + (_%hd185770186406%_ (let () (declare (not safe)) - (##car _%e184637185271%_)))) + (##car _%e185769186403%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184638185274%_)) - (let ((_%e184640185279%_ + (gx#stx-pair? _%hd185770186406%_)) + (let ((_%e185772186411%_ (let () (declare (not safe)) - (gx#stx-e _%hd184638185274%_)))) - (let ((_%tl184642185284%_ + (gx#stx-e _%hd185770186406%_)))) + (let ((_%tl185774186416%_ (let () (declare (not safe)) - (##cdr _%e184640185279%_))) - (_%hd184641185282%_ + (##cdr _%e185772186411%_))) + (_%hd185773186414%_ (let () (declare (not safe)) - (##car _%e184640185279%_)))) + (##car _%e185772186411%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184641185282%_)) + _%hd185773186414%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184641185282%_)) + _%hd185773186414%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184642185284%_)) - (let ((_%e184643185287%_ + _%tl185774186416%_)) + (let ((_%e185775186419%_ (let () (declare (not safe)) (gx#stx-e - _%tl184642185284%_)))) - (let ((_%tl184645185292%_ + _%tl185774186416%_)))) + (let ((_%tl185777186424%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e184643185287%_))) - (_%hd184644185290%_ - (let () (declare (not safe)) (##car _%e184643185287%_)))) + (##cdr _%e185775186419%_))) + (_%hd185776186422%_ + (let () (declare (not safe)) (##car _%e185775186419%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184645185292%_)) + (gx#stx-null? _%tl185777186424%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184639185276%_)) - (_%__kont188606188607%_ - _%hd184644185290%_ - _%hd184611185585%_ - _%hd184608185577%_) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) + (gx#stx-null? _%tl185771186408%_)) + (_%__kont189738189739%_ + _%hd185776186422%_ + _%hd185743186717%_ + _%hd185740186709%_) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188616188617%_)) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184612185587%_)) - (let ((_%e184637185271%_ + (gx#stx-pair? _%tl185744186719%_)) + (let ((_%e185769186403%_ (let () (declare (not safe)) - (gx#stx-e _%tl184612185587%_)))) - (let ((_%tl184639185276%_ + (gx#stx-e _%tl185744186719%_)))) + (let ((_%tl185771186408%_ (let () (declare (not safe)) - (##cdr _%e184637185271%_))) - (_%hd184638185274%_ + (##cdr _%e185769186403%_))) + (_%hd185770186406%_ (let () (declare (not safe)) - (##car _%e184637185271%_)))) + (##car _%e185769186403%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184638185274%_)) - (let ((_%e184640185279%_ + (gx#stx-pair? _%hd185770186406%_)) + (let ((_%e185772186411%_ (let () (declare (not safe)) - (gx#stx-e _%hd184638185274%_)))) - (let ((_%tl184642185284%_ + (gx#stx-e _%hd185770186406%_)))) + (let ((_%tl185774186416%_ (let () (declare (not safe)) - (##cdr _%e184640185279%_))) - (_%hd184641185282%_ + (##cdr _%e185772186411%_))) + (_%hd185773186414%_ (let () (declare (not safe)) - (##car _%e184640185279%_)))) + (##car _%e185772186411%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184641185282%_)) + (gx#identifier? _%hd185773186414%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184641185282%_)) + _%hd185773186414%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184642185284%_)) - (let ((_%e184643185287%_ + _%tl185774186416%_)) + (let ((_%e185775186419%_ (let () (declare (not safe)) (gx#stx-e - _%tl184642185284%_)))) - (let ((_%tl184645185292%_ + _%tl185774186416%_)))) + (let ((_%tl185777186424%_ (let () (declare (not safe)) - (##cdr _%e184643185287%_))) - (_%hd184644185290%_ + (##cdr _%e185775186419%_))) + (_%hd185776186422%_ (let () (declare (not safe)) - (##car _%e184643185287%_)))) + (##car _%e185775186419%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184645185292%_)) + _%tl185777186424%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl184639185276%_)) - (_%__kont188606188607%_ - _%hd184644185290%_ - _%hd184611185585%_ - _%hd184608185577%_) + (gx#stx-null? _%tl185771186408%_)) + (_%__kont189738189739%_ + _%hd185776186422%_ + _%hd185743186717%_ + _%hd185740186709%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd184614185593%_)) + (gx#stx-eq? '%#quote _%hd185746186725%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184615185595%_)) - (let ((_%e184667185183%_ + (gx#stx-pair? _%tl185747186727%_)) + (let ((_%e185799186315%_ (let () (declare (not safe)) - (gx#stx-e _%tl184615185595%_)))) - (let ((_%tl184669185188%_ + (gx#stx-e _%tl185747186727%_)))) + (let ((_%tl185801186320%_ (let () (declare (not safe)) - (##cdr _%e184667185183%_))) - (_%hd184668185186%_ + (##cdr _%e185799186315%_))) + (_%hd185800186318%_ (let () (declare (not safe)) - (##car _%e184667185183%_)))) - (_%__kont188616188617%_))) - (_%__kont188616188617%_)) + (##car _%e185799186315%_)))) + (_%__kont189748189749%_))) + (_%__kont189748189749%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd184614185593%_)) + (gx#stx-eq? '%#quote-syntax _%hd185746186725%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184615185595%_)) - (let ((_%e184727184941%_ + (gx#stx-pair? _%tl185747186727%_)) + (let ((_%e185859186073%_ (let () (declare (not safe)) - (gx#stx-e _%tl184615185595%_)))) - (let ((_%tl184729184946%_ + (gx#stx-e _%tl185747186727%_)))) + (let ((_%tl185861186078%_ (let () (declare (not safe)) - (##cdr _%e184727184941%_))) - (_%hd184728184944%_ + (##cdr _%e185859186073%_))) + (_%hd185860186076%_ (let () (declare (not safe)) - (##car _%e184727184941%_)))) - (_%__kont188616188617%_))) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) + (##car _%e185859186073%_)))) + (_%__kont189748189749%_))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd184614185593%_)) + (gx#stx-eq? '%#quote _%hd185746186725%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184615185595%_)) - (let ((_%e184667185183%_ + (gx#stx-pair? _%tl185747186727%_)) + (let ((_%e185799186315%_ (let () (declare (not safe)) - (gx#stx-e _%tl184615185595%_)))) - (let ((_%tl184669185188%_ + (gx#stx-e _%tl185747186727%_)))) + (let ((_%tl185801186320%_ (let () (declare (not safe)) - (##cdr _%e184667185183%_))) - (_%hd184668185186%_ + (##cdr _%e185799186315%_))) + (_%hd185800186318%_ (let () (declare (not safe)) - (##car _%e184667185183%_)))) + (##car _%e185799186315%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184669185188%_)) + (gx#stx-null? _%tl185801186320%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184639185276%_)) - (_%__kont188608188609%_ - _%hd184638185274%_ - _%hd184668185186%_ - _%hd184608185577%_) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)) + (gx#stx-null? _%tl185771186408%_)) + (_%__kont189740189741%_ + _%hd185770186406%_ + _%hd185800186318%_ + _%hd185740186709%_) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd184614185593%_)) + (gx#stx-eq? '%#quote-syntax _%hd185746186725%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184615185595%_)) - (let ((_%e184727184941%_ + (gx#stx-pair? _%tl185747186727%_)) + (let ((_%e185859186073%_ (let () (declare (not safe)) - (gx#stx-e _%tl184615185595%_)))) - (let ((_%tl184729184946%_ + (gx#stx-e _%tl185747186727%_)))) + (let ((_%tl185861186078%_ (let () (declare (not safe)) - (##cdr _%e184727184941%_))) - (_%hd184728184944%_ + (##cdr _%e185859186073%_))) + (_%hd185860186076%_ (let () (declare (not safe)) - (##car _%e184727184941%_)))) - (_%__kont188616188617%_))) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))))) + (##car _%e185859186073%_)))) + (_%__kont189748189749%_))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184614185593%_)) + _%hd185746186725%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184615185595%_)) - (let ((_%e184667185183%_ + _%tl185747186727%_)) + (let ((_%e185799186315%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl184615185595%_)))) - (let ((_%tl184669185188%_ + (gx#stx-e _%tl185747186727%_)))) + (let ((_%tl185801186320%_ (let () (declare (not safe)) - (##cdr _%e184667185183%_))) - (_%hd184668185186%_ + (##cdr _%e185799186315%_))) + (_%hd185800186318%_ (let () (declare (not safe)) - (##car _%e184667185183%_)))) + (##car _%e185799186315%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184669185188%_)) + (gx#stx-null? _%tl185801186320%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184639185276%_)) - (_%__kont188608188609%_ - _%hd184638185274%_ - _%hd184668185186%_ - _%hd184608185577%_) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)) + (gx#stx-null? _%tl185771186408%_)) + (_%__kont189740189741%_ + _%hd185770186406%_ + _%hd185800186318%_ + _%hd185740186709%_) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd184614185593%_)) + _%hd185746186725%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl184615185595%_)) - (let ((_%e184727184941%_ + (gx#stx-pair? _%tl185747186727%_)) + (let ((_%e185859186073%_ (let () (declare (not safe)) - (gx#stx-e _%tl184615185595%_)))) - (let ((_%tl184729184946%_ + (gx#stx-e _%tl185747186727%_)))) + (let ((_%tl185861186078%_ (let () (declare (not safe)) - (##cdr _%e184727184941%_))) - (_%hd184728184944%_ + (##cdr _%e185859186073%_))) + (_%hd185860186076%_ (let () (declare (not safe)) - (##car _%e184727184941%_)))) - (_%__kont188616188617%_))) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) + (##car _%e185859186073%_)))) + (_%__kont189748189749%_))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184614185593%_)) + _%hd185746186725%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184615185595%_)) - (let ((_%e184667185183%_ + _%tl185747186727%_)) + (let ((_%e185799186315%_ (let () (declare (not safe)) (gx#stx-e - _%tl184615185595%_)))) - (let ((_%tl184669185188%_ + _%tl185747186727%_)))) + (let ((_%tl185801186320%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e184667185183%_))) - (_%hd184668185186%_ - (let () (declare (not safe)) (##car _%e184667185183%_)))) + (##cdr _%e185799186315%_))) + (_%hd185800186318%_ + (let () (declare (not safe)) (##car _%e185799186315%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184669185188%_)) + (gx#stx-null? _%tl185801186320%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184639185276%_)) - (_%__kont188608188609%_ - _%hd184638185274%_ - _%hd184668185186%_ - _%hd184608185577%_) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) + (gx#stx-null? _%tl185771186408%_)) + (_%__kont189740189741%_ + _%hd185770186406%_ + _%hd185800186318%_ + _%hd185740186709%_) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188616188617%_)) + (_%__kont189748189749%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd184614185593%_)) + _%hd185746186725%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184615185595%_)) - (let ((_%e184727184941%_ + _%tl185747186727%_)) + (let ((_%e185859186073%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl184615185595%_)))) - (let ((_%tl184729184946%_ + (gx#stx-e _%tl185747186727%_)))) + (let ((_%tl185861186078%_ (let () (declare (not safe)) - (##cdr _%e184727184941%_))) - (_%hd184728184944%_ + (##cdr _%e185859186073%_))) + (_%hd185860186076%_ (let () (declare (not safe)) - (##car _%e184727184941%_)))) + (##car _%e185859186073%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184729184946%_)) + (gx#stx-null? _%tl185861186078%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184641185282%_)) + (gx#stx-eq? '%#ref _%hd185773186414%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184642185284%_)) - (let ((_%e184736184965%_ + (gx#stx-pair? _%tl185774186416%_)) + (let ((_%e185868186097%_ (let () (declare (not safe)) - (gx#stx-e _%tl184642185284%_)))) - (let ((_%tl184738184970%_ + (gx#stx-e _%tl185774186416%_)))) + (let ((_%tl185870186102%_ (let () (declare (not safe)) - (##cdr _%e184736184965%_))) - (_%hd184737184968%_ + (##cdr _%e185868186097%_))) + (_%hd185869186100%_ (let () (declare (not safe)) - (##car _%e184736184965%_)))) + (##car _%e185868186097%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184738184970%_)) + (gx#stx-null? _%tl185870186102%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184639185276%_)) - (_%__kont188612188613%_ - _%hd184737184968%_ - _%hd184728184944%_ - _%hd184608185577%_) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)) + _%tl185771186408%_)) + (_%__kont189744189745%_ + _%hd185869186100%_ + _%hd185860186076%_ + _%hd185740186709%_) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188616188617%_)))) + (_%__kont189748189749%_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184614185593%_)) + _%hd185746186725%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184615185595%_)) - (let ((_%e184667185183%_ + _%tl185747186727%_)) + (let ((_%e185799186315%_ (let () (declare (not safe)) (gx#stx-e - _%tl184615185595%_)))) - (let ((_%tl184669185188%_ + _%tl185747186727%_)))) + (let ((_%tl185801186320%_ (let () (declare (not safe)) - (##cdr _%e184667185183%_))) - (_%hd184668185186%_ + (##cdr _%e185799186315%_))) + (_%hd185800186318%_ (let () (declare (not safe)) - (##car _%e184667185183%_)))) + (##car _%e185799186315%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184669185188%_)) + _%tl185801186320%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl184639185276%_)) - (_%__kont188608188609%_ - _%hd184638185274%_ - _%hd184668185186%_ - _%hd184608185577%_) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) + (gx#stx-null? _%tl185771186408%_)) + (_%__kont189740189741%_ + _%hd185770186406%_ + _%hd185800186318%_ + _%hd185740186709%_) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188616188617%_)) + (_%__kont189748189749%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd184614185593%_)) + _%hd185746186725%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184615185595%_)) - (let ((_%e184727184941%_ + _%tl185747186727%_)) + (let ((_%e185859186073%_ (let () (declare (not safe)) (gx#stx-e - _%tl184615185595%_)))) - (let ((_%tl184729184946%_ + _%tl185747186727%_)))) + (let ((_%tl185861186078%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e184727184941%_))) - (_%hd184728184944%_ - (let () (declare (not safe)) (##car _%e184727184941%_)))) - (_%__kont188616188617%_))) + (##cdr _%e185859186073%_))) + (_%hd185860186076%_ + (let () (declare (not safe)) (##car _%e185859186073%_)))) + (_%__kont189748189749%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184614185593%_)) + _%hd185746186725%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184615185595%_)) - (let ((_%e184667185183%_ + (gx#stx-pair? _%tl185747186727%_)) + (let ((_%e185799186315%_ (let () (declare (not safe)) (gx#stx-e - _%tl184615185595%_)))) - (let ((_%tl184669185188%_ + _%tl185747186727%_)))) + (let ((_%tl185801186320%_ (let () (declare (not safe)) - (##cdr _%e184667185183%_))) - (_%hd184668185186%_ + (##cdr _%e185799186315%_))) + (_%hd185800186318%_ (let () (declare (not safe)) - (##car _%e184667185183%_)))) + (##car _%e185799186315%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184669185188%_)) + _%tl185801186320%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184639185276%_)) - (_%__kont188608188609%_ - _%hd184638185274%_ - _%hd184668185186%_ - _%hd184608185577%_) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)) + _%tl185771186408%_)) + (_%__kont189740189741%_ + _%hd185770186406%_ + _%hd185800186318%_ + _%hd185740186709%_) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd184614185593%_)) + _%hd185746186725%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184615185595%_)) - (let ((_%e184727184941%_ + _%tl185747186727%_)) + (let ((_%e185859186073%_ (let () (declare (not safe)) (gx#stx-e - _%tl184615185595%_)))) - (let ((_%tl184729184946%_ + _%tl185747186727%_)))) + (let ((_%tl185861186078%_ (let () (declare (not safe)) - (##cdr _%e184727184941%_))) - (_%hd184728184944%_ + (##cdr _%e185859186073%_))) + (_%hd185860186076%_ (let () (declare (not safe)) - (##car _%e184727184941%_)))) - (_%__kont188616188617%_))) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))))) + (##car _%e185859186073%_)))) + (_%__kont189748189749%_))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd184614185593%_)) + (gx#stx-eq? '%#quote _%hd185746186725%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184615185595%_)) - (let ((_%e184667185183%_ + (gx#stx-pair? _%tl185747186727%_)) + (let ((_%e185799186315%_ (let () (declare (not safe)) - (gx#stx-e _%tl184615185595%_)))) - (let ((_%tl184669185188%_ + (gx#stx-e _%tl185747186727%_)))) + (let ((_%tl185801186320%_ (let () (declare (not safe)) - (##cdr _%e184667185183%_))) - (_%hd184668185186%_ + (##cdr _%e185799186315%_))) + (_%hd185800186318%_ (let () (declare (not safe)) - (##car _%e184667185183%_)))) - (_%__kont188616188617%_))) - (_%__kont188616188617%_)) + (##car _%e185799186315%_)))) + (_%__kont189748189749%_))) + (_%__kont189748189749%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd184614185593%_)) + _%hd185746186725%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184615185595%_)) - (let ((_%e184727184941%_ + (gx#stx-pair? _%tl185747186727%_)) + (let ((_%e185859186073%_ (let () (declare (not safe)) - (gx#stx-e _%tl184615185595%_)))) - (let ((_%tl184729184946%_ + (gx#stx-e _%tl185747186727%_)))) + (let ((_%tl185861186078%_ (let () (declare (not safe)) - (##cdr _%e184727184941%_))) - (_%hd184728184944%_ + (##cdr _%e185859186073%_))) + (_%hd185860186076%_ (let () (declare (not safe)) - (##car _%e184727184941%_)))) - (_%__kont188616188617%_))) - (_%__kont188616188617%_)) - (_%__kont188616188617%_))))) + (##car _%e185859186073%_)))) + (_%__kont189748189749%_))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184612185587%_)) - (let ((_%e184637185271%_ + (gx#stx-pair? _%tl185744186719%_)) + (let ((_%e185769186403%_ (let () (declare (not safe)) - (gx#stx-e _%tl184612185587%_)))) - (let ((_%tl184639185276%_ + (gx#stx-e _%tl185744186719%_)))) + (let ((_%tl185771186408%_ (let () (declare (not safe)) - (##cdr _%e184637185271%_))) - (_%hd184638185274%_ + (##cdr _%e185769186403%_))) + (_%hd185770186406%_ (let () (declare (not safe)) - (##car _%e184637185271%_)))) + (##car _%e185769186403%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184638185274%_)) - (let ((_%e184640185279%_ + (gx#stx-pair? _%hd185770186406%_)) + (let ((_%e185772186411%_ (let () (declare (not safe)) - (gx#stx-e _%hd184638185274%_)))) - (let ((_%tl184642185284%_ + (gx#stx-e _%hd185770186406%_)))) + (let ((_%tl185774186416%_ (let () (declare (not safe)) - (##cdr _%e184640185279%_))) - (_%hd184641185282%_ + (##cdr _%e185772186411%_))) + (_%hd185773186414%_ (let () (declare (not safe)) - (##car _%e184640185279%_)))) + (##car _%e185772186411%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184641185282%_)) + (gx#identifier? _%hd185773186414%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184641185282%_)) + _%hd185773186414%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184642185284%_)) - (let ((_%e184643185287%_ + _%tl185774186416%_)) + (let ((_%e185775186419%_ (let () (declare (not safe)) (gx#stx-e - _%tl184642185284%_)))) - (let ((_%tl184645185292%_ + _%tl185774186416%_)))) + (let ((_%tl185777186424%_ (let () (declare (not safe)) - (##cdr _%e184643185287%_))) - (_%hd184644185290%_ + (##cdr _%e185775186419%_))) + (_%hd185776186422%_ (let () (declare (not safe)) - (##car _%e184643185287%_)))) + (##car _%e185775186419%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184645185292%_)) + _%tl185777186424%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184639185276%_)) - (_%__kont188606188607%_ - _%hd184644185290%_ - _%hd184611185585%_ - _%hd184608185577%_) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_))))) + _%tl185771186408%_)) + (_%__kont189738189739%_ + _%hd185776186422%_ + _%hd185743186717%_ + _%hd185740186709%_) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184612185587%_)) - (let ((_%e184637185271%_ + _%tl185744186719%_)) + (let ((_%e185769186403%_ (let () (declare (not safe)) (gx#stx-e - _%tl184612185587%_)))) - (let ((_%tl184639185276%_ + _%tl185744186719%_)))) + (let ((_%tl185771186408%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e184637185271%_))) - (_%hd184638185274%_ - (let () (declare (not safe)) (##car _%e184637185271%_)))) + (##cdr _%e185769186403%_))) + (_%hd185770186406%_ + (let () (declare (not safe)) (##car _%e185769186403%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184638185274%_)) - (let ((_%e184640185279%_ + (gx#stx-pair? _%hd185770186406%_)) + (let ((_%e185772186411%_ (let () (declare (not safe)) - (gx#stx-e _%hd184638185274%_)))) - (let ((_%tl184642185284%_ + (gx#stx-e _%hd185770186406%_)))) + (let ((_%tl185774186416%_ (let () (declare (not safe)) - (##cdr _%e184640185279%_))) - (_%hd184641185282%_ + (##cdr _%e185772186411%_))) + (_%hd185773186414%_ (let () (declare (not safe)) - (##car _%e184640185279%_)))) + (##car _%e185772186411%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184641185282%_)) + (gx#identifier? _%hd185773186414%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd184641185282%_)) + (gx#stx-eq? '%#quote _%hd185773186414%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184642185284%_)) - (let ((_%e184643185287%_ + (gx#stx-pair? _%tl185774186416%_)) + (let ((_%e185775186419%_ (let () (declare (not safe)) - (gx#stx-e _%tl184642185284%_)))) - (let ((_%tl184645185292%_ + (gx#stx-e _%tl185774186416%_)))) + (let ((_%tl185777186424%_ (let () (declare (not safe)) - (##cdr _%e184643185287%_))) - (_%hd184644185290%_ + (##cdr _%e185775186419%_))) + (_%hd185776186422%_ (let () (declare (not safe)) - (##car _%e184643185287%_)))) + (##car _%e185775186419%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184645185292%_)) + _%tl185777186424%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184639185276%_)) - (_%__kont188606188607%_ - _%hd184644185290%_ - _%hd184611185585%_ - _%hd184608185577%_) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)))) + _%tl185771186408%_)) + (_%__kont189738189739%_ + _%hd185776186422%_ + _%hd185743186717%_ + _%hd185740186709%_) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188616188617%_))))) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)) + (_%__kont189748189749%_))))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd184605185569%_)) + (gx#stx-eq? '%#lambda _%hd185737186701%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184606185571%_)) - (let ((_%e184751184809%_ + (gx#stx-pair? _%tl185738186703%_)) + (let ((_%e185883185941%_ (let () (declare (not safe)) - (gx#stx-e _%tl184606185571%_)))) - (let ((_%tl184753184814%_ + (gx#stx-e _%tl185738186703%_)))) + (let ((_%tl185885185946%_ (let () (declare (not safe)) - (##cdr _%e184751184809%_))) - (_%hd184752184812%_ + (##cdr _%e185883185941%_))) + (_%hd185884185944%_ (let () (declare (not safe)) - (##car _%e184751184809%_)))) + (##car _%e185883185941%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184752184812%_)) - (let ((_%e184754184817%_ + (gx#stx-pair? _%hd185884185944%_)) + (let ((_%e185886185949%_ (let () (declare (not safe)) (gx#stx-e - _%hd184752184812%_)))) - (let ((_%tl184756184822%_ + _%hd185884185944%_)))) + (let ((_%tl185888185954%_ (let () (declare (not safe)) - (##cdr _%e184754184817%_))) - (_%hd184755184820%_ + (##cdr _%e185886185949%_))) + (_%hd185887185952%_ (let () (declare (not safe)) - (##car _%e184754184817%_)))) + (##car _%e185886185949%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184756184822%_)) + _%tl185888185954%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184753184814%_)) - (let ((_%e184757184825%_ + _%tl185885185946%_)) + (let ((_%e185889185957%_ (let () (declare (not safe)) (gx#stx-e - _%tl184753184814%_)))) - (let ((_%tl184759184830%_ + _%tl185885185946%_)))) + (let ((_%tl185891185962%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e184757184825%_))) - (_%hd184758184828%_ - (let () (declare (not safe)) (##car _%e184757184825%_)))) + (##cdr _%e185889185957%_))) + (_%hd185890185960%_ + (let () (declare (not safe)) (##car _%e185889185957%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184759184830%_)) + (gx#stx-null? _%tl185891185962%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184603185563%_)) - (let ((_%e184760184833%_ + (gx#stx-pair? _%tl185735186695%_)) + (let ((_%e185892185965%_ (let () (declare (not safe)) - (gx#stx-e _%tl184603185563%_)))) - (let ((_%tl184762184838%_ + (gx#stx-e _%tl185735186695%_)))) + (let ((_%tl185894185970%_ (let () (declare (not safe)) - (##cdr _%e184760184833%_))) - (_%hd184761184836%_ + (##cdr _%e185892185965%_))) + (_%hd185893185968%_ (let () (declare (not safe)) - (##car _%e184760184833%_)))) + (##car _%e185892185965%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184761184836%_)) - (let ((_%e184763184841%_ + (gx#stx-pair? _%hd185893185968%_)) + (let ((_%e185895185973%_ (let () (declare (not safe)) - (gx#stx-e _%hd184761184836%_)))) - (let ((_%tl184765184846%_ + (gx#stx-e _%hd185893185968%_)))) + (let ((_%tl185897185978%_ (let () (declare (not safe)) - (##cdr _%e184763184841%_))) - (_%hd184764184844%_ + (##cdr _%e185895185973%_))) + (_%hd185896185976%_ (let () (declare (not safe)) - (##car _%e184763184841%_)))) + (##car _%e185895185973%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184764184844%_)) + (gx#identifier? _%hd185896185976%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd184764184844%_)) + _%hd185896185976%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184765184846%_)) - (let ((_%e184766184849%_ + _%tl185897185978%_)) + (let ((_%e185898185981%_ (let () (declare (not safe)) (gx#stx-e - _%tl184765184846%_)))) - (let ((_%tl184768184854%_ + _%tl185897185978%_)))) + (let ((_%tl185900185986%_ (let () (declare (not safe)) - (##cdr _%e184766184849%_))) - (_%hd184767184852%_ + (##cdr _%e185898185981%_))) + (_%hd185899185984%_ (let () (declare (not safe)) - (##car _%e184766184849%_)))) + (##car _%e185898185981%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184768184854%_)) + _%tl185900185986%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl184762184838%_)) - (_%__kont188614188615%_ - _%hd184767184852%_ - _%hd184758184828%_ - _%hd184755184820%_) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) + (gx#stx-null? _%tl185894185970%_)) + (_%__kont189746189747%_ + _%hd185899185984%_ + _%hd185890185960%_ + _%hd185887185952%_) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188616188617%_)) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)) - (_%__kont188616188617%_))) - (_%__kont188616188617%_)))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_))) + (_%__kont189748189749%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)) - (_%__kont188616188617%_)))) - (_%__kont188616188617%_)))))) - (_%countf-symbol180638%_ - (lambda (_%id184576%_) - (let ((_%$e184578%_ + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_)))))) + (_%countf-symbol181770%_ + (lambda (_%id185708%_) + (let ((_%$e185710%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id184576%_)))) - (if (or (eq? '##vector-length _%$e184578%_) - (eq? 'vector-length _%$e184578%_)) + (gxc#identifier-symbol _%id185708%_)))) + (if (or (eq? '##vector-length _%$e185710%_) + (eq? 'vector-length _%$e185710%_)) 'vector-length - (if (eq? 'values-count _%$e184578%_) + (if (eq? 'values-count _%$e185710%_) 'values-count '#f))))) - (_%eqf-symbol180639%_ - (lambda (_%sym184562%_) - (let ((_%$e184564%_ _%sym184562%_)) - (if (or (eq? '##eq? _%$e184564%_) - (eq? 'eq? _%$e184564%_)) + (_%eqf-symbol181771%_ + (lambda (_%sym185694%_) + (let ((_%$e185696%_ _%sym185694%_)) + (if (or (eq? '##eq? _%$e185696%_) + (eq? 'eq? _%$e185696%_)) 'eq? - (if (or (eq? '##eqv? _%$e184564%_) - (eq? 'eqv? _%$e184564%_)) + (if (or (eq? '##eqv? _%$e185696%_) + (eq? 'eqv? _%$e185696%_)) 'eqv? - (if (or (eq? '##equal? _%$e184564%_) - (eq? 'equal? _%$e184564%_)) + (if (or (eq? '##equal? _%$e185696%_) + (eq? 'equal? _%$e185696%_)) 'equal? - (if (eq? 'gx#free-identifier=? _%$e184564%_) + (if (eq? 'gx#free-identifier=? _%$e185696%_) 'free-identifier=? - (if (eq? 'gx#stx-eq? _%$e184564%_) + (if (eq? 'gx#stx-eq? _%$e185696%_) 'stx-eq? '#f)))))))) - (_%eqf-symbol?180640%_ - (lambda (_%sym184545%_) - (let ((_%$e184547%_ _%sym184545%_)) - (if (or (eq? 'eq? _%$e184547%_) - (eq? 'eqv? _%$e184547%_) - (eq? 'equal? _%$e184547%_) - (eq? 'free-identifier=? _%$e184547%_) - (eq? 'stx-eq? _%$e184547%_)) + (_%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%_)) '#t '#f)))) - (_%do-assert!180641%_ - (lambda (_%assert184536%_ _%type184537%_ _%K184538%_) - (let ((_%unwind-assert184540%_ _%env-assert180631%_) - (_%unwind-type184541%_ _%env-type180632%_)) - (set! _%env-assert180631%_ _%assert184536%_) - (set! _%env-type180632%_ _%type184537%_) - (let ((_%val184543%_ (_%K184538%_))) - (set! _%env-assert180631%_ _%unwind-assert184540%_) - (set! _%env-type180632%_ _%unwind-type184541%_) - _%val184543%_)))) - (_%do-bind180642%_ - (lambda (_%bind184533%_ _%K184534%_) - (if (pair? _%bind184533%_) - (_%do-bind!180644%_ - (_%fold-bind-env180643%_ - _%bind184533%_ - _%env-bind180633%_) - _%K184534%_) - (_%K184534%_)))) - (_%fold-bind-env180643%_ - (lambda (_%bind184462%_ _%env184463%_) - (let _%lp184465%_ ((_%rest184467%_ _%bind184462%_) - (_%env184468%_ _%env184463%_)) - (let* ((_%rest184469184477%_ _%rest184467%_) - (_%else184471184485%_ (lambda () _%env184468%_)) - (_%K184473184521%_ - (lambda (_%rest184488%_ _%bind184489%_) - (let* ((_%bind184490184497%_ _%bind184489%_) - (_%E184492184501%_ + (_%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%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind184490184497%_ + _%bind185622185629%_ '([id . expr]))) '#!void)) - (_%K184493184509%_ - (lambda (_%expr184504%_ _%id184505%_) - (let ((_%sexpr184507%_ + (_%K185625185641%_ + (lambda (_%expr185636%_ _%id185637%_) + (let ((_%sexpr185639%_ (gxc#apply-generate-runtime-repr - _%expr184504%_))) - (_%lp184465%_ - _%rest184488%_ - (cons (cons _%sexpr184507%_ - _%id184505%_) - _%env184468%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%bind184490184497%_)) - (let ((_%hd184494184512%_ + _%expr185636%_))) + (_%lp185597%_ + _%rest185620%_ + (cons (cons _%sexpr185639%_ + _%id185637%_) + _%env185600%_)))))) + (if (pair? _%bind185622185629%_) + (let ((_%hd185626185644%_ (let () (declare (not safe)) - (##car _%bind184490184497%_))) - (_%tl184495184514%_ + (##car _%bind185622185629%_))) + (_%tl185627185646%_ (let () (declare (not safe)) - (##cdr _%bind184490184497%_)))) - (let* ((_%id184517%_ - _%hd184494184512%_) - (_%expr184519%_ - _%tl184495184514%_)) - (_%K184493184509%_ - _%expr184519%_ - _%id184517%_))) - (_%E184492184501%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest184469184477%_)) - (let ((_%hd184474184524%_ + (##cdr _%bind185622185629%_)))) + (let* ((_%id185649%_ + _%hd185626185644%_) + (_%expr185651%_ + _%tl185627185646%_)) + (_%K185625185641%_ + _%expr185651%_ + _%id185649%_))) + (_%E185624185633%_)))))) + (if (pair? _%rest185601185609%_) + (let ((_%hd185606185656%_ (let () (declare (not safe)) - (##car _%rest184469184477%_))) - (_%tl184475184526%_ + (##car _%rest185601185609%_))) + (_%tl185607185658%_ (let () (declare (not safe)) - (##cdr _%rest184469184477%_)))) - (let* ((_%bind184529%_ _%hd184474184524%_) - (_%rest184531%_ _%tl184475184526%_)) - (_%K184473184521%_ - _%rest184531%_ - _%bind184529%_))) - (_%else184471184485%_)))))) - (_%do-bind!180644%_ - (lambda (_%env184455%_ _%K184456%_) - (let ((_%unwind184458%_ _%env-bind180633%_)) - (set! _%env-bind180633%_ _%env184455%_) - (let ((_%val184460%_ (_%K184456%_))) - (set! _%env-bind180633%_ _%unwind184458%_) - _%val184460%_)))) - (_%do-splice!180645%_ - (lambda (_%K184449%_) - (let ((_%unwind184451%_ _%in-splice?180634%_)) - (set! _%in-splice?180634%_ '#t) - (let ((_%val184453%_ (_%K184449%_))) - (set! _%in-splice?180634%_ _%unwind184451%_) - _%val184453%_)))) - (_%optimize-e180646%_ - (lambda (_%expr183645%_) - (let* ((_%__stx189054189055%_ _%expr183645%_) - (_%g183652183825%_ + (##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%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189054189055%_))))) - (let ((_%__kont189056189057%_ - (lambda (_%L184421%_ _%L184422%_ _%L184423%_) - (let ((_%$e184440%_ - (_%assert-e180649%_ _%L184423%_))) - (if (eq? '#t _%$e184440%_) - (_%optimize-e180646%_ _%L184422%_) - (if (eq? '#f _%$e184440%_) - (_%optimize-e180646%_ _%L184421%_) - (let ((_%K184443%_ - (_%optimize-t__0__188001188002%_ - _%L184422%_ - _%L184423%_)) - (_%E184444%_ - (_%optimize-f__188003188004%_ - _%L184421%_ - _%L184423%_))) + _%__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%_))) (if (equal? (gxc#apply-generate-runtime-repr - _%K184443%_) + _%K185575%_) (gxc#apply-generate-runtime-repr - _%E184444%_)) - _%K184443%_ + _%E185576%_)) + _%K185575%_ (cons '%#if - (cons _%L184423%_ - (cons _%K184443%_ + (cons _%L185555%_ + (cons _%K185575%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E184444%_ '()))))))))))) + (cons _%E185576%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189058189059%_ - (lambda (_%L184350%_ _%L184351%_) - (let ((_%$e184371%_ - (_%lookup-block180654%_ _%L184351%_))) - (if _%$e184371%_ - ((lambda (_%block184374%_) - (if (_%nonlinear-block?180656%_ - _%block184374%_) - _%expr183645%_ - (_%optimize-e180646%_ - (_%inline-block180655%_ - _%block184374%_ - (let ((__tmp191149 - (lambda (_%g184375184378%_ - _%g184376184380%_) - (cons _%g184375184378%_ - _%g184376184380%_)))) + (_%__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%_)))) (declare (not safe)) (__foldr1 - __tmp191149 + __tmp192281 '() - _%L184350%_)))))) - _%$e184371%_) - _%expr183645%_)))) - (_%__kont189062189063%_ - (lambda (_%L184240%_ _%L184241%_ _%L184242%_) - (let ((_%body184261%_ - (_%optimize-e180646%_ _%L184240%_))) + _%L185482%_)))))) + _%$e185503%_) + _%expr184777%_)))) + (_%__kont190194190195%_ + (lambda (_%L185372%_ _%L185373%_ _%L185374%_) + (let ((_%body185393%_ + (_%optimize-e181778%_ _%L185372%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L184241%_ - _%L184242%_)) - (let ((__tmp191150 - (lambda (_%g184262184266%_ - _%g184263184268%_ - _%g184264184270%_) - (cons (cons (cons _%g184263184268%_ + _%L185373%_ + _%L185374%_)) + (let ((__tmp192282 + (lambda (_%g185394185398%_ + _%g185395185400%_ + _%g185396185402%_) + (cons (cons (cons _%g185395185400%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g184262184266%_ '())) + (cons _%g185394185398%_ '())) '())) - _%g184264184270%_)))) + _%g185396185402%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp191150 + __tmp192282 '() - _%L184241%_ - _%L184242%_))) - (cons _%body184261%_ '())))))) - (_%__kont189066189067%_ - (lambda (_%L184108%_ _%L184109%_ _%L184110%_) - (_%bind-e__0__188009188010%_ + _%L185373%_ + _%L185374%_))) + (cons _%body185393%_ '())))))) + (_%__kont190198190199%_ + (lambda (_%L185240%_ _%L185241%_ _%L185242%_) + (_%bind-e__0__189141189142%_ (map cons - (let ((__tmp191151 - (lambda (_%g184128184131%_ - _%g184129184133%_) - (cons _%g184128184131%_ - _%g184129184133%_)))) + (let ((__tmp192283 + (lambda (_%g185260185263%_ + _%g185261185265%_) + (cons _%g185260185263%_ + _%g185261185265%_)))) (declare (not safe)) - (__foldr1 __tmp191151 '() _%L184110%_)) - (let ((__tmp191152 - (lambda (_%g184135184138%_ - _%g184136184140%_) - (cons _%g184135184138%_ - _%g184136184140%_)))) + (__foldr1 __tmp192283 '() _%L185242%_)) + (let ((__tmp192284 + (lambda (_%g185267185270%_ + _%g185268185272%_) + (cons _%g185267185270%_ + _%g185268185272%_)))) (declare (not safe)) (__foldr1 - __tmp191152 + __tmp192284 '() - _%L184109%_))) - _%L184108%_))) - (_%__kont189070189071%_ - (lambda (_%L183965%_ - _%L183966%_ - _%L183967%_ - _%L183968%_ - _%L183969%_) - (_%do-splice!180645%_ + _%L185241%_))) + _%L185240%_))) + (_%__kont190202190203%_ + (lambda (_%L185097%_ + _%L185098%_ + _%L185099%_ + _%L185100%_ + _%L185101%_) + (_%do-splice!181777%_ (lambda () - (let ((_%expr184011%_ - (_%optimize-e180646%_ _%L183967%_))) + (let ((_%expr185143%_ + (_%optimize-e181778%_ _%L185099%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L183969%_ + (cons (cons (cons (cons _%L185101%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp191153 - (lambda (_%g184012184015%_ - _%g184013184017%_) - (cons _%g184012184015%_ - _%g184013184017%_)))) + (cons (let ((__tmp192285 + (lambda (_%g185144185147%_ + _%g185145185149%_) + (cons _%g185144185147%_ + _%g185145185149%_)))) (declare (not safe)) (__foldr1 - __tmp191153 + __tmp192285 '() - _%L183968%_)) - (cons _%expr184011%_ '()))) + _%L185100%_)) + (cons _%expr185143%_ '()))) '())) - (let ((__tmp191154 - (lambda (_%g184019184022%_ _%g184020184024%_) - (cons _%g184019184022%_ _%g184020184024%_)))) + (let ((__tmp192286 + (lambda (_%g185151185154%_ _%g185152185156%_) + (cons _%g185151185154%_ _%g185152185156%_)))) (declare (not safe)) - (__foldr1 __tmp191154 '() _%L183966%_))) + (__foldr1 __tmp192286 '() _%L185098%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L183965%_ '())))))))) - (_%__kont189076189077%_ - (lambda () _%expr183645%_))) - (let* ((_%__match189263189264%_ - (lambda (_%e183773183837%_ - _%hd183774183840%_ - _%tl183775183842%_ - _%e183776183845%_ - _%hd183777183848%_ - _%tl183778183850%_ - _%e183779183853%_ - _%hd183780183856%_ - _%tl183781183858%_ - _%e183782183861%_ - _%hd183783183864%_ - _%tl183784183866%_ - _%e183785183869%_ - _%hd183786183872%_ - _%tl183787183874%_ - _%e183788183877%_ - _%hd183789183880%_ - _%tl183790183882%_ - _%e183791183885%_ - _%hd183792183888%_ - _%tl183793183890%_ - _%e183794183893%_ - _%hd183795183896%_ - _%tl183796183898%_ - _%__splice189072189073%_ - _%target183797183901%_ - _%tl183799183903%_) - (letrec ((_%loop183800183906%_ - (lambda (_%hd183798183909%_ - _%id183804183911%_) + (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%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183798183909%_)) - (let ((_%e183801183914%_ + _%hd184930185041%_)) + (let ((_%e184933185046%_ (let () (declare (not safe)) (gx#stx-e - _%hd183798183909%_)))) - (let ((_%lp-tl183803183919%_ + _%hd184930185041%_)))) + (let ((_%lp-tl184935185051%_ (let () (declare (not safe)) - (##cdr _%e183801183914%_))) - (_%lp-hd183802183917%_ + (##cdr _%e184933185046%_))) + (_%lp-hd184934185049%_ (let () (declare (not safe)) - (##car _%e183801183914%_)))) - (_%loop183800183906%_ - _%lp-tl183803183919%_ - (cons _%lp-hd183802183917%_ - _%id183804183911%_)))) - (let ((_%id183805183922%_ - (reverse _%id183804183911%_))) + (##car _%e184933185046%_)))) + (_%loop184932185038%_ + _%lp-tl184935185051%_ + (cons _%lp-hd184934185049%_ + _%id184936185043%_)))) + (let ((_%id184937185054%_ + (reverse _%id184936185043%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183796183898%_)) - (let ((_%e183806183925%_ + _%tl184928185030%_)) + (let ((_%e184938185057%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183796183898%_)))) - (let ((_%tl183808183930%_ + (gx#stx-e _%tl184928185030%_)))) + (let ((_%tl184940185062%_ (let () (declare (not safe)) - (##cdr _%e183806183925%_))) - (_%hd183807183928%_ + (##cdr _%e184938185057%_))) + (_%hd184939185060%_ (let () (declare (not safe)) - (##car _%e183806183925%_)))) + (##car _%e184938185057%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183808183930%_)) + (gx#stx-null? _%tl184940185062%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183790183882%_)) + (gx#stx-null? _%tl184922185014%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl183781183858%_)) - (let ((_%__splice189074189075%_ + (gx#stx-pair/null? _%tl184913184990%_)) + (let ((_%__splice190206190207%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl183781183858%_ + _%tl184913184990%_ '0)))) - (let ((_%tl183811183935%_ + (let ((_%tl184943185067%_ (let () (declare (not safe)) (##vector-ref - _%__splice189074189075%_ + _%__splice190206190207%_ '1))) - (_%target183809183933%_ + (_%target184941185065%_ (let () (declare (not safe)) (##vector-ref - _%__splice189074189075%_ + _%__splice190206190207%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183811183935%_)) - (letrec ((_%loop183812183938%_ - (lambda (_%hd183810183941%_ - _%bind183816183943%_) + (gx#stx-null? _%tl184943185067%_)) + (letrec ((_%loop184944185070%_ + (lambda (_%hd184942185073%_ + _%bind184948185075%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183810183941%_)) - (let ((_%e183813183946%_ + _%hd184942185073%_)) + (let ((_%e184945185078%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd183810183941%_)))) - (let ((_%lp-tl183815183951%_ + (gx#stx-e _%hd184942185073%_)))) + (let ((_%lp-tl184947185083%_ (let () (declare (not safe)) - (##cdr _%e183813183946%_))) - (_%lp-hd183814183949%_ + (##cdr _%e184945185078%_))) + (_%lp-hd184946185081%_ (let () (declare (not safe)) - (##car _%e183813183946%_)))) - (_%loop183812183938%_ - _%lp-tl183815183951%_ - (cons _%lp-hd183814183949%_ _%bind183816183943%_)))) - (let ((_%bind183817183954%_ (reverse _%bind183816183943%_))) + (##car _%e184945185078%_)))) + (_%loop184944185070%_ + _%lp-tl184947185083%_ + (cons _%lp-hd184946185081%_ _%bind184948185075%_)))) + (let ((_%bind184949185086%_ (reverse _%bind184948185075%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183778183850%_)) - (let ((_%e183818183957%_ + (gx#stx-pair? _%tl184910184982%_)) + (let ((_%e184950185089%_ (let () (declare (not safe)) - (gx#stx-e _%tl183778183850%_)))) - (let ((_%tl183820183962%_ + (gx#stx-e _%tl184910184982%_)))) + (let ((_%tl184952185094%_ (let () (declare (not safe)) - (##cdr _%e183818183957%_))) - (_%hd183819183960%_ + (##cdr _%e184950185089%_))) + (_%hd184951185092%_ (let () (declare (not safe)) - (##car _%e183818183957%_)))) + (##car _%e184950185089%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183820183962%_)) - (_%__kont189070189071%_ - _%hd183819183960%_ - _%bind183817183954%_ - _%hd183807183928%_ - _%id183805183922%_ - _%hd183786183872%_) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_))))))) + (gx#stx-null? _%tl184952185094%_)) + (_%__kont190202190203%_ + _%hd184951185092%_ + _%bind184949185086%_ + _%hd184939185060%_ + _%id184937185054%_ + _%hd184918185004%_) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183812183938%_ - _%target183809183933%_ + (_%loop184944185070%_ + _%target184941185065%_ '())) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)) - (_%__kont189076189077%_)) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_))))))) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)) + (_%__kont190208190209%_)) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183800183906%_ - _%target183797183901%_ + (_%loop184932185038%_ + _%target184929185033%_ '())))) - (_%__match189197189198%_ - (lambda (_%e183739184032%_ - _%hd183740184035%_ - _%tl183741184037%_ - _%e183742184040%_ - _%hd183743184043%_ - _%tl183744184045%_ - _%__splice189068189069%_ - _%target183745184048%_ - _%tl183747184050%_) - (letrec ((_%loop183748184053%_ - (lambda (_%hd183746184056%_ - _%expr183752184058%_ - _%id183753184060%_) + (_%__match190329190330%_ + (lambda (_%e184871185164%_ + _%hd184872185167%_ + _%tl184873185169%_ + _%e184874185172%_ + _%hd184875185175%_ + _%tl184876185177%_ + _%__splice190200190201%_ + _%target184877185180%_ + _%tl184879185182%_) + (letrec ((_%loop184880185185%_ + (lambda (_%hd184878185188%_ + _%expr184884185190%_ + _%id184885185192%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183746184056%_)) - (let ((_%e183749184063%_ + _%hd184878185188%_)) + (let ((_%e184881185195%_ (let () (declare (not safe)) (gx#stx-e - _%hd183746184056%_)))) - (let ((_%lp-tl183751184068%_ + _%hd184878185188%_)))) + (let ((_%lp-tl184883185200%_ (let () (declare (not safe)) - (##cdr _%e183749184063%_))) - (_%lp-hd183750184066%_ + (##cdr _%e184881185195%_))) + (_%lp-hd184882185198%_ (let () (declare (not safe)) - (##car _%e183749184063%_)))) + (##car _%e184881185195%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd183750184066%_)) - (let ((_%e183759184071%_ + _%lp-hd184882185198%_)) + (let ((_%e184891185203%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd183750184066%_)))) - (let ((_%tl183761184076%_ + (gx#stx-e _%lp-hd184882185198%_)))) + (let ((_%tl184893185208%_ (let () (declare (not safe)) - (##cdr _%e183759184071%_))) - (_%hd183760184074%_ + (##cdr _%e184891185203%_))) + (_%hd184892185206%_ (let () (declare (not safe)) - (##car _%e183759184071%_)))) + (##car _%e184891185203%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183760184074%_)) - (let ((_%e183762184079%_ + (gx#stx-pair? _%hd184892185206%_)) + (let ((_%e184894185211%_ (let () (declare (not safe)) - (gx#stx-e _%hd183760184074%_)))) - (let ((_%tl183764184084%_ + (gx#stx-e _%hd184892185206%_)))) + (let ((_%tl184896185216%_ (let () (declare (not safe)) - (##cdr _%e183762184079%_))) - (_%hd183763184082%_ + (##cdr _%e184894185211%_))) + (_%hd184895185214%_ (let () (declare (not safe)) - (##car _%e183762184079%_)))) + (##car _%e184894185211%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183764184084%_)) + (gx#stx-null? _%tl184896185216%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183761184076%_)) - (let ((_%e183765184087%_ + (gx#stx-pair? _%tl184893185208%_)) + (let ((_%e184897185219%_ (let () (declare (not safe)) (gx#stx-e - _%tl183761184076%_)))) - (let ((_%tl183767184092%_ + _%tl184893185208%_)))) + (let ((_%tl184899185224%_ (let () (declare (not safe)) - (##cdr _%e183765184087%_))) - (_%hd183766184090%_ + (##cdr _%e184897185219%_))) + (_%hd184898185222%_ (let () (declare (not safe)) - (##car _%e183765184087%_)))) + (##car _%e184897185219%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183767184092%_)) - (_%loop183748184053%_ - _%lp-tl183751184068%_ - (cons _%hd183766184090%_ - _%expr183752184058%_) - (cons _%hd183763184082%_ - _%id183753184060%_)) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)))) + _%tl184899185224%_)) + (_%loop184880185185%_ + _%lp-tl184883185200%_ + (cons _%hd184898185222%_ + _%expr184884185190%_) + (cons _%hd184895185214%_ + _%id184885185192%_)) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id183755184097%_ - (reverse _%id183753184060%_)) - (_%expr183754184095%_ - (reverse _%expr183752184058%_))) + (let ((_%id184887185229%_ + (reverse _%id184885185192%_)) + (_%expr184886185227%_ + (reverse _%expr184884185190%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183744184045%_)) - (let ((_%e183756184100%_ + _%tl184876185177%_)) + (let ((_%e184888185232%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183744184045%_)))) - (let ((_%tl183758184105%_ + (gx#stx-e _%tl184876185177%_)))) + (let ((_%tl184890185237%_ (let () (declare (not safe)) - (##cdr _%e183756184100%_))) - (_%hd183757184103%_ + (##cdr _%e184888185232%_))) + (_%hd184889185235%_ (let () (declare (not safe)) - (##car _%e183756184100%_)))) + (##car _%e184888185232%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183758184105%_)) - (_%__kont189066189067%_ - _%hd183757184103%_ - _%expr183754184095%_ - _%id183755184097%_) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_))))))) + (gx#stx-null? _%tl184890185237%_)) + (_%__kont190198190199%_ + _%hd184889185235%_ + _%expr184886185227%_ + _%id184887185229%_) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183748184053%_ - _%target183745184048%_ + (_%loop184880185185%_ + _%target184877185180%_ '() '())))) - (_%__match189173189174%_ - (lambda (_%e183701184148%_ - _%hd183702184151%_ - _%tl183703184153%_ - _%e183704184156%_ - _%hd183705184159%_ - _%tl183706184161%_ - _%__splice189064189065%_ - _%target183707184164%_ - _%tl183709184166%_) - (letrec ((_%loop183710184169%_ - (lambda (_%hd183708184172%_ - _%xid183714184174%_ - _%id183715184176%_) + (_%__match190305190306%_ + (lambda (_%e184833185280%_ + _%hd184834185283%_ + _%tl184835185285%_ + _%e184836185288%_ + _%hd184837185291%_ + _%tl184838185293%_ + _%__splice190196190197%_ + _%target184839185296%_ + _%tl184841185298%_) + (letrec ((_%loop184842185301%_ + (lambda (_%hd184840185304%_ + _%xid184846185306%_ + _%id184847185308%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183708184172%_)) - (let ((_%e183711184179%_ + _%hd184840185304%_)) + (let ((_%e184843185311%_ (let () (declare (not safe)) (gx#stx-e - _%hd183708184172%_)))) - (let ((_%lp-tl183713184184%_ + _%hd184840185304%_)))) + (let ((_%lp-tl184845185316%_ (let () (declare (not safe)) - (##cdr _%e183711184179%_))) - (_%lp-hd183712184182%_ + (##cdr _%e184843185311%_))) + (_%lp-hd184844185314%_ (let () (declare (not safe)) - (##car _%e183711184179%_)))) + (##car _%e184843185311%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd183712184182%_)) - (let ((_%e183721184187%_ + _%lp-hd184844185314%_)) + (let ((_%e184853185319%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd183712184182%_)))) - (let ((_%tl183723184192%_ + (gx#stx-e _%lp-hd184844185314%_)))) + (let ((_%tl184855185324%_ (let () (declare (not safe)) - (##cdr _%e183721184187%_))) - (_%hd183722184190%_ + (##cdr _%e184853185319%_))) + (_%hd184854185322%_ (let () (declare (not safe)) - (##car _%e183721184187%_)))) + (##car _%e184853185319%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183722184190%_)) - (let ((_%e183724184195%_ + (gx#stx-pair? _%hd184854185322%_)) + (let ((_%e184856185327%_ (let () (declare (not safe)) - (gx#stx-e _%hd183722184190%_)))) - (let ((_%tl183726184200%_ + (gx#stx-e _%hd184854185322%_)))) + (let ((_%tl184858185332%_ (let () (declare (not safe)) - (##cdr _%e183724184195%_))) - (_%hd183725184198%_ + (##cdr _%e184856185327%_))) + (_%hd184857185330%_ (let () (declare (not safe)) - (##car _%e183724184195%_)))) + (##car _%e184856185327%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183726184200%_)) + (gx#stx-null? _%tl184858185332%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183723184192%_)) - (let ((_%e183727184203%_ + (gx#stx-pair? _%tl184855185324%_)) + (let ((_%e184859185335%_ (let () (declare (not safe)) (gx#stx-e - _%tl183723184192%_)))) - (let ((_%tl183729184208%_ + _%tl184855185324%_)))) + (let ((_%tl184861185340%_ (let () (declare (not safe)) - (##cdr _%e183727184203%_))) - (_%hd183728184206%_ + (##cdr _%e184859185335%_))) + (_%hd184860185338%_ (let () (declare (not safe)) - (##car _%e183727184203%_)))) + (##car _%e184859185335%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183728184206%_)) - (let ((_%e183730184211%_ + _%hd184860185338%_)) + (let ((_%e184862185343%_ (let () (declare (not safe)) (gx#stx-e - _%hd183728184206%_)))) - (let ((_%tl183732184216%_ + _%hd184860185338%_)))) + (let ((_%tl184864185348%_ (let () (declare (not safe)) - (##cdr _%e183730184211%_))) - (_%hd183731184214%_ + (##cdr _%e184862185343%_))) + (_%hd184863185346%_ (let () (declare (not safe)) - (##car _%e183730184211%_)))) + (##car _%e184862185343%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183731184214%_)) + _%hd184863185346%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183731184214%_)) + _%hd184863185346%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl183732184216%_)) - (let ((_%e183733184219%_ + (gx#stx-pair? _%tl184864185348%_)) + (let ((_%e184865185351%_ (let () (declare (not safe)) - (gx#stx-e _%tl183732184216%_)))) - (let ((_%tl183735184224%_ + (gx#stx-e _%tl184864185348%_)))) + (let ((_%tl184867185356%_ (let () (declare (not safe)) - (##cdr _%e183733184219%_))) - (_%hd183734184222%_ + (##cdr _%e184865185351%_))) + (_%hd184866185354%_ (let () (declare (not safe)) - (##car _%e183733184219%_)))) + (##car _%e184865185351%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183735184224%_)) + (gx#stx-null? _%tl184867185356%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183729184208%_)) - (_%loop183710184169%_ - _%lp-tl183713184184%_ - (cons _%hd183734184222%_ - _%xid183714184174%_) - (cons _%hd183725184198%_ - _%id183715184176%_)) - (_%__match189197189198%_ - _%e183701184148%_ - _%hd183702184151%_ - _%tl183703184153%_ - _%e183704184156%_ - _%hd183705184159%_ - _%tl183706184161%_ - _%__splice189064189065%_ - _%target183707184164%_ - _%tl183709184166%_)) - (_%__match189197189198%_ - _%e183701184148%_ - _%hd183702184151%_ - _%tl183703184153%_ - _%e183704184156%_ - _%hd183705184159%_ - _%tl183706184161%_ - _%__splice189064189065%_ - _%target183707184164%_ - _%tl183709184166%_)))) - (_%__match189197189198%_ - _%e183701184148%_ - _%hd183702184151%_ - _%tl183703184153%_ - _%e183704184156%_ - _%hd183705184159%_ - _%tl183706184161%_ - _%__splice189064189065%_ - _%target183707184164%_ - _%tl183709184166%_)) - (_%__match189197189198%_ - _%e183701184148%_ - _%hd183702184151%_ - _%tl183703184153%_ - _%e183704184156%_ - _%hd183705184159%_ - _%tl183706184161%_ - _%__splice189064189065%_ - _%target183707184164%_ - _%tl183709184166%_)) - (_%__match189197189198%_ - _%e183701184148%_ - _%hd183702184151%_ - _%tl183703184153%_ - _%e183704184156%_ - _%hd183705184159%_ - _%tl183706184161%_ - _%__splice189064189065%_ - _%target183707184164%_ - _%tl183709184166%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189197189198%_ - _%e183701184148%_ - _%hd183702184151%_ - _%tl183703184153%_ - _%e183704184156%_ - _%hd183705184159%_ - _%tl183706184161%_ - _%__splice189064189065%_ - _%target183707184164%_ - _%tl183709184166%_)))) - (_%__match189197189198%_ - _%e183701184148%_ - _%hd183702184151%_ - _%tl183703184153%_ - _%e183704184156%_ - _%hd183705184159%_ - _%tl183706184161%_ - _%__splice189064189065%_ - _%target183707184164%_ - _%tl183709184166%_)) - (_%__match189197189198%_ - _%e183701184148%_ - _%hd183702184151%_ - _%tl183703184153%_ - _%e183704184156%_ - _%hd183705184159%_ - _%tl183706184161%_ - _%__splice189064189065%_ - _%target183707184164%_ - _%tl183709184166%_)))) - (_%__match189197189198%_ - _%e183701184148%_ - _%hd183702184151%_ - _%tl183703184153%_ - _%e183704184156%_ - _%hd183705184159%_ - _%tl183706184161%_ - _%__splice189064189065%_ - _%target183707184164%_ - _%tl183709184166%_)))) - (_%__match189197189198%_ - _%e183701184148%_ - _%hd183702184151%_ - _%tl183703184153%_ - _%e183704184156%_ - _%hd183705184159%_ - _%tl183706184161%_ - _%__splice189064189065%_ - _%target183707184164%_ - _%tl183709184166%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id183717184229%_ - (reverse _%id183715184176%_)) - (_%xid183716184227%_ - (reverse _%xid183714184174%_))) + (let ((_%id184849185361%_ + (reverse _%id184847185308%_)) + (_%xid184848185359%_ + (reverse _%xid184846185306%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183706184161%_)) - (let ((_%e183718184232%_ + _%tl184838185293%_)) + (let ((_%e184850185364%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183706184161%_)))) - (let ((_%tl183720184237%_ + (gx#stx-e _%tl184838185293%_)))) + (let ((_%tl184852185369%_ (let () (declare (not safe)) - (##cdr _%e183718184232%_))) - (_%hd183719184235%_ + (##cdr _%e184850185364%_))) + (_%hd184851185367%_ (let () (declare (not safe)) - (##car _%e183718184232%_)))) + (##car _%e184850185364%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183720184237%_)) - (_%__kont189062189063%_ - _%hd183719184235%_ - _%xid183716184227%_ - _%id183717184229%_) - (_%__match189197189198%_ - _%e183701184148%_ - _%hd183702184151%_ - _%tl183703184153%_ - _%e183704184156%_ - _%hd183705184159%_ - _%tl183706184161%_ - _%__splice189064189065%_ - _%target183707184164%_ - _%tl183709184166%_)))) - (_%__match189197189198%_ - _%e183701184148%_ - _%hd183702184151%_ - _%tl183703184153%_ - _%e183704184156%_ - _%hd183705184159%_ - _%tl183706184161%_ - _%__splice189064189065%_ - _%target183707184164%_ - _%tl183709184166%_))))))) + (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%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183710184169%_ - _%target183707184164%_ + (_%loop184842185301%_ + _%target184839185296%_ '() '())))) - (_%__match189149189150%_ - (lambda (_%e183671184278%_ - _%hd183672184281%_ - _%tl183673184283%_ - _%e183674184286%_ - _%hd183675184289%_ - _%tl183676184291%_ - _%e183677184294%_ - _%hd183678184297%_ - _%tl183679184299%_ - _%e183680184302%_ - _%hd183681184305%_ - _%tl183682184307%_ - _%__splice189060189061%_ - _%target183683184310%_ - _%tl183685184312%_) - (letrec ((_%loop183686184315%_ - (lambda (_%hd183684184318%_ - _%id183690184320%_) + (_%__match190281190282%_ + (lambda (_%e184803185410%_ + _%hd184804185413%_ + _%tl184805185415%_ + _%e184806185418%_ + _%hd184807185421%_ + _%tl184808185423%_ + _%e184809185426%_ + _%hd184810185429%_ + _%tl184811185431%_ + _%e184812185434%_ + _%hd184813185437%_ + _%tl184814185439%_ + _%__splice190192190193%_ + _%target184815185442%_ + _%tl184817185444%_) + (letrec ((_%loop184818185447%_ + (lambda (_%hd184816185450%_ + _%id184822185452%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183684184318%_)) - (let ((_%e183687184323%_ + _%hd184816185450%_)) + (let ((_%e184819185455%_ (let () (declare (not safe)) (gx#stx-e - _%hd183684184318%_)))) - (let ((_%lp-tl183689184328%_ + _%hd184816185450%_)))) + (let ((_%lp-tl184821185460%_ (let () (declare (not safe)) - (##cdr _%e183687184323%_))) - (_%lp-hd183688184326%_ + (##cdr _%e184819185455%_))) + (_%lp-hd184820185458%_ (let () (declare (not safe)) - (##car _%e183687184323%_)))) + (##car _%e184819185455%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd183688184326%_)) - (let ((_%e183692184331%_ + _%lp-hd184820185458%_)) + (let ((_%e184824185463%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd183688184326%_)))) - (let ((_%tl183694184336%_ + (gx#stx-e _%lp-hd184820185458%_)))) + (let ((_%tl184826185468%_ (let () (declare (not safe)) - (##cdr _%e183692184331%_))) - (_%hd183693184334%_ + (##cdr _%e184824185463%_))) + (_%hd184825185466%_ (let () (declare (not safe)) - (##car _%e183692184331%_)))) + (##car _%e184824185463%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183693184334%_)) + (gx#identifier? _%hd184825185466%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183693184334%_)) + (gx#stx-eq? '%#ref _%hd184825185466%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183694184336%_)) - (let ((_%e183695184339%_ + (gx#stx-pair? _%tl184826185468%_)) + (let ((_%e184827185471%_ (let () (declare (not safe)) - (gx#stx-e _%tl183694184336%_)))) - (let ((_%tl183697184344%_ + (gx#stx-e _%tl184826185468%_)))) + (let ((_%tl184829185476%_ (let () (declare (not safe)) - (##cdr _%e183695184339%_))) - (_%hd183696184342%_ + (##cdr _%e184827185471%_))) + (_%hd184828185474%_ (let () (declare (not safe)) - (##car _%e183695184339%_)))) + (##car _%e184827185471%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183697184344%_)) - (_%loop183686184315%_ - _%lp-tl183689184328%_ - (cons _%hd183696184342%_ - _%id183690184320%_)) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)) - (_%__kont189076189077%_)) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)))) + (gx#stx-null? _%tl184829185476%_)) + (_%loop184818185447%_ + _%lp-tl184821185460%_ + (cons _%hd184828185474%_ + _%id184822185452%_)) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)) + (_%__kont190208190209%_)) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id183691184347%_ - (reverse _%id183690184320%_))) - (_%__kont189058189059%_ - _%id183691184347%_ - _%hd183681184305%_)))))) - (_%loop183686184315%_ - _%target183683184310%_ + (let ((_%id184823185479%_ + (reverse _%id184822185452%_))) + (_%__kont190190190191%_ + _%id184823185479%_ + _%hd184813185437%_)))))) + (_%loop184818185447%_ + _%target184815185442%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189054189055%_)) - (let ((_%e183657184389%_ + (gx#stx-pair? _%__stx190186190187%_)) + (let ((_%e184789185521%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189054189055%_)))) - (let ((_%tl183659184394%_ + (gx#stx-e _%__stx190186190187%_)))) + (let ((_%tl184791185526%_ (let () (declare (not safe)) - (##cdr _%e183657184389%_))) - (_%hd183658184392%_ + (##cdr _%e184789185521%_))) + (_%hd184790185524%_ (let () (declare (not safe)) - (##car _%e183657184389%_)))) + (##car _%e184789185521%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183658184392%_)) + (gx#identifier? _%hd184790185524%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd183658184392%_)) + _%hd184790185524%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183659184394%_)) - (let ((_%e183660184397%_ + _%tl184791185526%_)) + (let ((_%e184792185529%_ (let () (declare (not safe)) (gx#stx-e - _%tl183659184394%_)))) - (let ((_%tl183662184402%_ + _%tl184791185526%_)))) + (let ((_%tl184794185534%_ (let () (declare (not safe)) - (##cdr _%e183660184397%_))) - (_%hd183661184400%_ + (##cdr _%e184792185529%_))) + (_%hd184793185532%_ (let () (declare (not safe)) - (##car _%e183660184397%_)))) + (##car _%e184792185529%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183662184402%_)) - (let ((_%e183663184405%_ + _%tl184794185534%_)) + (let ((_%e184795185537%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183662184402%_)))) - (let ((_%tl183665184410%_ + (gx#stx-e _%tl184794185534%_)))) + (let ((_%tl184797185542%_ (let () (declare (not safe)) - (##cdr _%e183663184405%_))) - (_%hd183664184408%_ + (##cdr _%e184795185537%_))) + (_%hd184796185540%_ (let () (declare (not safe)) - (##car _%e183663184405%_)))) + (##car _%e184795185537%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183665184410%_)) - (let ((_%e183666184413%_ + (gx#stx-pair? _%tl184797185542%_)) + (let ((_%e184798185545%_ (let () (declare (not safe)) - (gx#stx-e _%tl183665184410%_)))) - (let ((_%tl183668184418%_ + (gx#stx-e _%tl184797185542%_)))) + (let ((_%tl184800185550%_ (let () (declare (not safe)) - (##cdr _%e183666184413%_))) - (_%hd183667184416%_ + (##cdr _%e184798185545%_))) + (_%hd184799185548%_ (let () (declare (not safe)) - (##car _%e183666184413%_)))) + (##car _%e184798185545%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183668184418%_)) - (_%__kont189056189057%_ - _%hd183667184416%_ - _%hd183664184408%_ - _%hd183661184400%_) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)))) + (gx#stx-null? _%tl184800185550%_)) + (_%__kont190188190189%_ + _%hd184799185548%_ + _%hd184796185540%_ + _%hd184793185532%_) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189076189077%_)) + (_%__kont190208190209%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd183658184392%_)) + _%hd184790185524%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183659184394%_)) - (let ((_%e183674184286%_ + _%tl184791185526%_)) + (let ((_%e184806185418%_ (let () (declare (not safe)) (gx#stx-e - _%tl183659184394%_)))) - (let ((_%tl183676184291%_ + _%tl184791185526%_)))) + (let ((_%tl184808185423%_ (let () (declare (not safe)) - (##cdr _%e183674184286%_))) - (_%hd183675184289%_ + (##cdr _%e184806185418%_))) + (_%hd184807185421%_ (let () (declare (not safe)) - (##car _%e183674184286%_)))) + (##car _%e184806185418%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183675184289%_)) - (let ((_%e183677184294%_ + _%hd184807185421%_)) + (let ((_%e184809185426%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd183675184289%_)))) - (let ((_%tl183679184299%_ + (gx#stx-e _%hd184807185421%_)))) + (let ((_%tl184811185431%_ (let () (declare (not safe)) - (##cdr _%e183677184294%_))) - (_%hd183678184297%_ + (##cdr _%e184809185426%_))) + (_%hd184810185429%_ (let () (declare (not safe)) - (##car _%e183677184294%_)))) + (##car _%e184809185426%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183678184297%_)) + (gx#identifier? _%hd184810185429%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183678184297%_)) + (gx#stx-eq? '%#ref _%hd184810185429%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183679184299%_)) - (let ((_%e183680184302%_ + (gx#stx-pair? _%tl184811185431%_)) + (let ((_%e184812185434%_ (let () (declare (not safe)) - (gx#stx-e _%tl183679184299%_)))) - (let ((_%tl183682184307%_ + (gx#stx-e _%tl184811185431%_)))) + (let ((_%tl184814185439%_ (let () (declare (not safe)) - (##cdr _%e183680184302%_))) - (_%hd183681184305%_ + (##cdr _%e184812185434%_))) + (_%hd184813185437%_ (let () (declare (not safe)) - (##car _%e183680184302%_)))) + (##car _%e184812185434%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183682184307%_)) + (gx#stx-null? _%tl184814185439%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl183676184291%_)) - (let ((_%__splice189060189061%_ + _%tl184808185423%_)) + (let ((_%__splice190192190193%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl183676184291%_ + _%tl184808185423%_ '0)))) - (let ((_%tl183685184312%_ + (let ((_%tl184817185444%_ (let () (declare (not safe)) (##vector-ref - _%__splice189060189061%_ + _%__splice190192190193%_ '1))) - (_%target183683184310%_ + (_%target184815185442%_ (let () (declare (not safe)) (##vector-ref - _%__splice189060189061%_ + _%__splice190192190193%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183685184312%_)) - (_%__match189149189150%_ - _%e183657184389%_ - _%hd183658184392%_ - _%tl183659184394%_ - _%e183674184286%_ - _%hd183675184289%_ - _%tl183676184291%_ - _%e183677184294%_ - _%hd183678184297%_ - _%tl183679184299%_ - _%e183680184302%_ - _%hd183681184305%_ - _%tl183682184307%_ - _%__splice189060189061%_ - _%target183683184310%_ - _%tl183685184312%_) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)) - (_%__kont189076189077%_)) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)))) + _%tl184817185444%_)) + (_%__match190281190282%_ + _%e184789185521%_ + _%hd184790185524%_ + _%tl184791185526%_ + _%e184806185418%_ + _%hd184807185421%_ + _%tl184808185423%_ + _%e184809185426%_ + _%hd184810185429%_ + _%tl184811185431%_ + _%e184812185434%_ + _%hd184813185437%_ + _%tl184814185439%_ + _%__splice190192190193%_ + _%target184815185442%_ + _%tl184817185444%_) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)) + (_%__kont190208190209%_)) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189076189077%_)) + (_%__kont190208190209%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd183658184392%_)) + _%hd184790185524%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183659184394%_)) - (let ((_%e183704184156%_ + _%tl184791185526%_)) + (let ((_%e184836185288%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183659184394%_)))) - (let ((_%tl183706184161%_ + (gx#stx-e _%tl184791185526%_)))) + (let ((_%tl184838185293%_ (let () (declare (not safe)) - (##cdr _%e183704184156%_))) - (_%hd183705184159%_ + (##cdr _%e184836185288%_))) + (_%hd184837185291%_ (let () (declare (not safe)) - (##car _%e183704184156%_)))) + (##car _%e184836185288%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd183705184159%_)) - (let ((_%__splice189064189065%_ + (gx#stx-pair/null? _%hd184837185291%_)) + (let ((_%__splice190196190197%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd183705184159%_ + _%hd184837185291%_ '0)))) - (let ((_%tl183709184166%_ + (let ((_%tl184841185298%_ (let () (declare (not safe)) - (##vector-ref _%__splice189064189065%_ '1))) - (_%target183707184164%_ + (##vector-ref _%__splice190196190197%_ '1))) + (_%target184839185296%_ (let () (declare (not safe)) - (##vector-ref _%__splice189064189065%_ '0)))) + (##vector-ref _%__splice190196190197%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183709184166%_)) - (_%__match189173189174%_ - _%e183657184389%_ - _%hd183658184392%_ - _%tl183659184394%_ - _%e183704184156%_ - _%hd183705184159%_ - _%tl183706184161%_ - _%__splice189064189065%_ - _%target183707184164%_ - _%tl183709184166%_) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)) + (gx#stx-null? _%tl184841185298%_)) + (_%__match190305190306%_ + _%e184789185521%_ + _%hd184790185524%_ + _%tl184791185526%_ + _%e184836185288%_ + _%hd184837185291%_ + _%tl184838185293%_ + _%__splice190196190197%_ + _%target184839185296%_ + _%tl184841185298%_) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd183658184392%_)) + _%hd184790185524%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183659184394%_)) - (let ((_%e183776183845%_ + _%tl184791185526%_)) + (let ((_%e184908184977%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl183659184394%_)))) - (let ((_%tl183778183850%_ + (gx#stx-e _%tl184791185526%_)))) + (let ((_%tl184910184982%_ (let () (declare (not safe)) - (##cdr _%e183776183845%_))) - (_%hd183777183848%_ + (##cdr _%e184908184977%_))) + (_%hd184909184980%_ (let () (declare (not safe)) - (##car _%e183776183845%_)))) + (##car _%e184908184977%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183777183848%_)) - (let ((_%e183779183853%_ + (gx#stx-pair? _%hd184909184980%_)) + (let ((_%e184911184985%_ (let () (declare (not safe)) - (gx#stx-e _%hd183777183848%_)))) - (let ((_%tl183781183858%_ + (gx#stx-e _%hd184909184980%_)))) + (let ((_%tl184913184990%_ (let () (declare (not safe)) - (##cdr _%e183779183853%_))) - (_%hd183780183856%_ + (##cdr _%e184911184985%_))) + (_%hd184912184988%_ (let () (declare (not safe)) - (##car _%e183779183853%_)))) + (##car _%e184911184985%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183780183856%_)) - (let ((_%e183782183861%_ + (gx#stx-pair? _%hd184912184988%_)) + (let ((_%e184914184993%_ (let () (declare (not safe)) - (gx#stx-e _%hd183780183856%_)))) - (let ((_%tl183784183866%_ + (gx#stx-e _%hd184912184988%_)))) + (let ((_%tl184916184998%_ (let () (declare (not safe)) - (##cdr _%e183782183861%_))) - (_%hd183783183864%_ + (##cdr _%e184914184993%_))) + (_%hd184915184996%_ (let () (declare (not safe)) - (##car _%e183782183861%_)))) + (##car _%e184914184993%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183783183864%_)) - (let ((_%e183785183869%_ + (gx#stx-pair? _%hd184915184996%_)) + (let ((_%e184917185001%_ (let () (declare (not safe)) (gx#stx-e - _%hd183783183864%_)))) - (let ((_%tl183787183874%_ + _%hd184915184996%_)))) + (let ((_%tl184919185006%_ (let () (declare (not safe)) - (##cdr _%e183785183869%_))) - (_%hd183786183872%_ + (##cdr _%e184917185001%_))) + (_%hd184918185004%_ (let () (declare (not safe)) - (##car _%e183785183869%_)))) + (##car _%e184917185001%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183787183874%_)) + _%tl184919185006%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183784183866%_)) - (let ((_%e183788183877%_ + _%tl184916184998%_)) + (let ((_%e184920185009%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183784183866%_)))) - (let ((_%tl183790183882%_ + (gx#stx-e _%tl184916184998%_)))) + (let ((_%tl184922185014%_ (let () (declare (not safe)) - (##cdr _%e183788183877%_))) - (_%hd183789183880%_ + (##cdr _%e184920185009%_))) + (_%hd184921185012%_ (let () (declare (not safe)) - (##car _%e183788183877%_)))) + (##car _%e184920185009%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183789183880%_)) - (let ((_%e183791183885%_ + (gx#stx-pair? _%hd184921185012%_)) + (let ((_%e184923185017%_ (let () (declare (not safe)) - (gx#stx-e _%hd183789183880%_)))) - (let ((_%tl183793183890%_ + (gx#stx-e _%hd184921185012%_)))) + (let ((_%tl184925185022%_ (let () (declare (not safe)) - (##cdr _%e183791183885%_))) - (_%hd183792183888%_ + (##cdr _%e184923185017%_))) + (_%hd184924185020%_ (let () (declare (not safe)) - (##car _%e183791183885%_)))) + (##car _%e184923185017%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183792183888%_)) + (gx#identifier? _%hd184924185020%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd183792183888%_)) + (gx#stx-eq? '%#lambda _%hd184924185020%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183793183890%_)) - (let ((_%e183794183893%_ + (gx#stx-pair? _%tl184925185022%_)) + (let ((_%e184926185025%_ (let () (declare (not safe)) (gx#stx-e - _%tl183793183890%_)))) - (let ((_%tl183796183898%_ + _%tl184925185022%_)))) + (let ((_%tl184928185030%_ (let () (declare (not safe)) - (##cdr _%e183794183893%_))) - (_%hd183795183896%_ + (##cdr _%e184926185025%_))) + (_%hd184927185028%_ (let () (declare (not safe)) - (##car _%e183794183893%_)))) + (##car _%e184926185025%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd183795183896%_)) - (let ((_%__splice189072189073%_ + _%hd184927185028%_)) + (let ((_%__splice190204190205%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd183795183896%_ + _%hd184927185028%_ '0)))) - (let ((_%tl183799183903%_ + (let ((_%tl184931185035%_ (let () (declare (not safe)) (##vector-ref - _%__splice189072189073%_ + _%__splice190204190205%_ '1))) - (_%target183797183901%_ + (_%target184929185033%_ (let () (declare (not safe)) (##vector-ref - _%__splice189072189073%_ + _%__splice190204190205%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183799183903%_)) - (_%__match189263189264%_ - _%e183657184389%_ - _%hd183658184392%_ - _%tl183659184394%_ - _%e183776183845%_ - _%hd183777183848%_ - _%tl183778183850%_ - _%e183779183853%_ - _%hd183780183856%_ - _%tl183781183858%_ - _%e183782183861%_ - _%hd183783183864%_ - _%tl183784183866%_ - _%e183785183869%_ - _%hd183786183872%_ - _%tl183787183874%_ - _%e183788183877%_ - _%hd183789183880%_ - _%tl183790183882%_ - _%e183791183885%_ - _%hd183792183888%_ - _%tl183793183890%_ - _%e183794183893%_ - _%hd183795183896%_ - _%tl183796183898%_ - _%__splice189072189073%_ - _%target183797183901%_ - _%tl183799183903%_) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)) - (_%__kont189076189077%_)) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)) + _%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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)))) - (_%__kont189076189077%_)) - (_%__kont189076189077%_))))) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)))) + (_%__kont190208190209%_)) + (_%__kont190208190209%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189076189077%_)))) - (_%__kont189076189077%_))))))) - (_%optimize-t__187999188000%_ - (lambda (_%expr183628%_ _%test183629%_ _%continue183630%_) - (_%do-assert180635%_ - (cons (cons _%test183629%_ '#t) '()) - (lambda () (_%continue183630%_ _%expr183628%_))))) - (_%optimize-t__0__188001188002%_ - (lambda (_%expr183636%_ _%test183637%_) - (let ((_%continue183639%_ _%optimize-e180646%_)) - (_%optimize-t__187999188000%_ - _%expr183636%_ - _%test183637%_ - _%continue183639%_)))) - (_%optimize-t180647%_ - (lambda _g191156_ - (let ((_g191155_ + (_%__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_ (let () (declare (not safe)) - (##length _g191156_)))) - (cond ((let () (declare (not safe)) (##fx= _g191155_ 2)) - (apply _%optimize-t__0__188001188002%_ - _g191156_)) - ((let () (declare (not safe)) (##fx= _g191155_ 3)) - (apply _%optimize-t__187999188000%_ _g191156_)) + (##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_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g191156_)))))) - (_%optimize-f__188003188004%_ - (lambda (_%expr182712%_ _%test182713%_) - (_%do-assert180635%_ - (if _%test182713%_ - (cons (cons _%test182713%_ '#f) '()) + _g192288_)))))) + (_%optimize-f__189135189136%_ + (lambda (_%expr183844%_ _%test183845%_) + (_%do-assert181767%_ + (if _%test183845%_ + (cons (cons _%test183845%_ '#f) '()) '()) (lambda () - (let* ((_%__stx189304189305%_ _%expr182712%_) - (_%g182721182894%_ + (let* ((_%__stx190436190437%_ _%expr183844%_) + (_%g183853184026%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189304189305%_))))) - (let ((_%__kont189306189307%_ - (lambda (_%L183482%_ _%L183483%_) - (let ((_%$e183503%_ - (_%lookup-block180654%_ - _%L183483%_))) - (if _%$e183503%_ - ((lambda (_%block183506%_) - (if (_%nonlinear-block?180656%_ - _%block183506%_) - _%expr182712%_ - (let* ((_%inline183515%_ - (_%inline-block180655%_ - _%block183506%_ - (let ((__tmp191157 - (lambda (_%g183507183510%_ + _%__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%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g183508183512%_) - (cons _%g183507183510%_ _%g183508183512%_)))) + _%g184640184644%_) + (cons _%g184639184642%_ _%g184640184644%_)))) (declare (not safe)) - (__foldr1 __tmp191157 '() _%L183482%_)))) - (_%__stx189266189267%_ _%inline183515%_) - (_%g183518183539%_ + (__foldr1 __tmp192289 '() _%L184614%_)))) + (_%__stx190398190399%_ _%inline184647%_) + (_%g184650184671%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189266189267%_))))) + _%__stx190398190399%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__kont189268189269%_ - (lambda (_%L183583%_ + (let ((_%__kont190400190401%_ + (lambda (_%L184715%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L183584%_ - _%L183585%_) - (let ((_%$e183607%_ (_%assert-e180649%_ _%L183585%_))) - (if (eq? '#t _%$e183607%_) - (if _%in-splice?180634%_ - (_%optimize-f__0__188005188006%_ _%L183584%_) - (_%optimize-e180646%_ _%L183584%_)) - (if (eq? '#f _%$e183607%_) - (_%optimize-f__0__188005188006%_ _%L183583%_) - _%expr182712%_))))) - (_%__kont189270189271%_ + _%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%_ (lambda () - (_%optimize-f__0__188005188006%_ _%inline183515%_)))) + (_%optimize-f__0__189137189138%_ _%inline184647%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189266189267%_)) - (let ((_%e183523183551%_ + _%__stx190398190399%_)) + (let ((_%e184655184683%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx189266189267%_)))) - (let ((_%tl183525183556%_ + (gx#stx-e _%__stx190398190399%_)))) + (let ((_%tl184657184688%_ (let () (declare (not safe)) - (##cdr _%e183523183551%_))) - (_%hd183524183554%_ + (##cdr _%e184655184683%_))) + (_%hd184656184686%_ (let () (declare (not safe)) - (##car _%e183523183551%_)))) + (##car _%e184655184683%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183524183554%_)) + (gx#identifier? _%hd184656184686%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd183524183554%_)) + (gx#stx-eq? '%#if _%hd184656184686%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183525183556%_)) - (let ((_%e183526183559%_ + (gx#stx-pair? _%tl184657184688%_)) + (let ((_%e184658184691%_ (let () (declare (not safe)) - (gx#stx-e _%tl183525183556%_)))) - (let ((_%tl183528183564%_ + (gx#stx-e _%tl184657184688%_)))) + (let ((_%tl184660184696%_ (let () (declare (not safe)) - (##cdr _%e183526183559%_))) - (_%hd183527183562%_ + (##cdr _%e184658184691%_))) + (_%hd184659184694%_ (let () (declare (not safe)) - (##car _%e183526183559%_)))) + (##car _%e184658184691%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183528183564%_)) - (let ((_%e183529183567%_ + (gx#stx-pair? _%tl184660184696%_)) + (let ((_%e184661184699%_ (let () (declare (not safe)) (gx#stx-e - _%tl183528183564%_)))) - (let ((_%tl183531183572%_ + _%tl184660184696%_)))) + (let ((_%tl184663184704%_ (let () (declare (not safe)) - (##cdr _%e183529183567%_))) - (_%hd183530183570%_ + (##cdr _%e184661184699%_))) + (_%hd184662184702%_ (let () (declare (not safe)) - (##car _%e183529183567%_)))) + (##car _%e184661184699%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183531183572%_)) - (let ((_%e183532183575%_ + _%tl184663184704%_)) + (let ((_%e184664184707%_ (let () (declare (not safe)) (gx#stx-e - _%tl183531183572%_)))) - (let ((_%tl183534183580%_ + _%tl184663184704%_)))) + (let ((_%tl184666184712%_ (let () (declare (not safe)) - (##cdr _%e183532183575%_))) - (_%hd183533183578%_ + (##cdr _%e184664184707%_))) + (_%hd184665184710%_ (let () (declare (not safe)) - (##car _%e183532183575%_)))) + (##car _%e184664184707%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183534183580%_)) - (_%__kont189268189269%_ - _%hd183533183578%_ - _%hd183530183570%_ - _%hd183527183562%_) - (_%__kont189270189271%_)))) - (_%__kont189270189271%_)))) - (_%__kont189270189271%_)))) - (_%__kont189270189271%_)) - (_%__kont189270189271%_)) - (_%__kont189270189271%_)))) - (_%__kont189270189271%_)))))) + _%tl184666184712%_)) + (_%__kont190400190401%_ + _%hd184665184710%_ + _%hd184662184702%_ + _%hd184659184694%_) + (_%__kont190402190403%_)))) + (_%__kont190402190403%_)))) + (_%__kont190402190403%_)))) + (_%__kont190402190403%_)) + (_%__kont190402190403%_)) + (_%__kont190402190403%_)))) + (_%__kont190402190403%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e183503%_) - _%expr182712%_)))) - (_%__kont189310189311%_ - (lambda (_%L183380%_ _%L183381%_ _%L183382%_) - (let ((_%$e183399%_ - (_%assert-e180649%_ _%L183382%_))) - (if (eq? '#t _%$e183399%_) - (if _%in-splice?180634%_ - (_%optimize-f__0__188005188006%_ - _%L183381%_) - (_%optimize-e180646%_ - _%L183381%_)) - (if (eq? '#f _%$e183399%_) - (_%optimize-f__0__188005188006%_ - _%L183380%_) - (let ((_%K183402%_ - (_%optimize-t__187999188000%_ - _%L183381%_ - _%L183382%_ - _%optimize-f180648%_)) - (_%E183403%_ - (_%optimize-f__188003188004%_ - _%L183380%_ - _%L183382%_))) + _%$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%_))) (if (equal? (gxc#apply-generate-runtime-repr - _%K183402%_) + _%K184534%_) (gxc#apply-generate-runtime-repr - _%E183403%_)) - _%K183402%_ + _%E184535%_)) + _%K184534%_ (cons '%#if - (cons _%L183382%_ - (cons _%K183402%_ + (cons _%L184514%_ + (cons _%K184534%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E183403%_ '()))))))))))) + (cons _%E184535%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189312189313%_ - (lambda (_%L183310%_ _%L183311%_ _%L183312%_) - (let ((_%body183331%_ - (_%optimize-f__0__188005188006%_ - _%L183310%_))) + (_%__kont190444190445%_ + (lambda (_%L184442%_ _%L184443%_ _%L184444%_) + (let ((_%body184463%_ + (_%optimize-f__0__189137189138%_ + _%L184442%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L183311%_ - _%L183312%_)) - (let ((__tmp191158 - (lambda (_%g183332183336%_ + _%L184443%_ + _%L184444%_)) + (let ((__tmp192290 + (lambda (_%g184464184468%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g183333183338%_ - _%g183334183340%_) - (cons (cons (cons _%g183333183338%_ '()) + _%g184465184470%_ + _%g184466184472%_) + (cons (cons (cons _%g184465184470%_ '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g183332183336%_ '())) + (cons _%g184464184468%_ '())) '())) - _%g183334183340%_)))) + _%g184466184472%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp191158 + __tmp192290 '() - _%L183311%_ - _%L183312%_))) - (cons _%body183331%_ '())))))) - (_%__kont189316189317%_ - (lambda (_%L183178%_ _%L183179%_ _%L183180%_) - (_%bind-e__188007188008%_ + _%L184443%_ + _%L184444%_))) + (cons _%body184463%_ '())))))) + (_%__kont190448190449%_ + (lambda (_%L184310%_ _%L184311%_ _%L184312%_) + (_%bind-e__189139189140%_ (map cons - (let ((__tmp191159 - (lambda (_%g183198183201%_ - _%g183199183203%_) - (cons _%g183198183201%_ - _%g183199183203%_)))) + (let ((__tmp192291 + (lambda (_%g184330184333%_ + _%g184331184335%_) + (cons _%g184330184333%_ + _%g184331184335%_)))) (declare (not safe)) (__foldr1 - __tmp191159 + __tmp192291 '() - _%L183180%_)) - (let ((__tmp191160 - (lambda (_%g183205183208%_ - _%g183206183210%_) - (cons _%g183205183208%_ - _%g183206183210%_)))) + _%L184312%_)) + (let ((__tmp192292 + (lambda (_%g184337184340%_ + _%g184338184342%_) + (cons _%g184337184340%_ + _%g184338184342%_)))) (declare (not safe)) (__foldr1 - __tmp191160 + __tmp192292 '() - _%L183179%_))) - _%L183178%_ - _%optimize-f180648%_))) - (_%__kont189320189321%_ - (lambda (_%L183034%_ - _%L183035%_ - _%L183036%_ - _%L183037%_ - _%L183038%_) - (_%do-splice!180645%_ + _%L184311%_))) + _%L184310%_ + _%optimize-f181780%_))) + (_%__kont190452190453%_ + (lambda (_%L184166%_ + _%L184167%_ + _%L184168%_ + _%L184169%_ + _%L184170%_) + (_%do-splice!181777%_ (lambda () - (let ((_%expr183081%_ - (_%optimize-f__0__188005188006%_ - _%L183036%_))) + (let ((_%expr184213%_ + (_%optimize-f__0__189137189138%_ + _%L184168%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L183038%_ + (cons (cons (cons (cons _%L184170%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp191161 - (lambda (_%g183082183085%_ - _%g183083183087%_) - (cons _%g183082183085%_ - _%g183083183087%_)))) + (cons (let ((__tmp192293 + (lambda (_%g184214184217%_ + _%g184215184219%_) + (cons _%g184214184217%_ + _%g184215184219%_)))) (declare (not safe)) (__foldr1 - __tmp191161 + __tmp192293 '() - _%L183037%_)) - (cons _%expr183081%_ '()))) + _%L184169%_)) + (cons _%expr184213%_ '()))) '())) - (let ((__tmp191162 - (lambda (_%g183089183092%_ _%g183090183094%_) - (cons _%g183089183092%_ _%g183090183094%_)))) + (let ((__tmp192294 + (lambda (_%g184221184224%_ _%g184222184226%_) + (cons _%g184221184224%_ _%g184222184226%_)))) (declare (not safe)) - (__foldr1 __tmp191162 '() _%L183035%_))) + (__foldr1 __tmp192294 '() _%L184167%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L183034%_ + (cons _%L184166%_ '())))))))) - (_%__kont189326189327%_ - (lambda () _%expr182712%_))) - (let* ((_%__match189513189514%_ - (lambda (_%e182842182906%_ - _%hd182843182909%_ - _%tl182844182911%_ - _%e182845182914%_ - _%hd182846182917%_ - _%tl182847182919%_ - _%e182848182922%_ - _%hd182849182925%_ - _%tl182850182927%_ - _%e182851182930%_ - _%hd182852182933%_ - _%tl182853182935%_ - _%e182854182938%_ - _%hd182855182941%_ - _%tl182856182943%_ - _%e182857182946%_ - _%hd182858182949%_ - _%tl182859182951%_ - _%e182860182954%_ - _%hd182861182957%_ - _%tl182862182959%_ - _%e182863182962%_ - _%hd182864182965%_ - _%tl182865182967%_ - _%__splice189322189323%_ - _%target182866182970%_ - _%tl182868182972%_) - (letrec ((_%loop182869182975%_ - (lambda (_%hd182867182978%_ - _%id182873182980%_) + (_%__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%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182867182978%_)) - (let ((_%e182870182983%_ + _%hd183999184110%_)) + (let ((_%e184002184115%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd182867182978%_)))) - (let ((_%lp-tl182872182988%_ - (let () (declare (not safe)) (##cdr _%e182870182983%_))) - (_%lp-hd182871182986%_ + (gx#stx-e _%hd183999184110%_)))) + (let ((_%lp-tl184004184120%_ + (let () (declare (not safe)) (##cdr _%e184002184115%_))) + (_%lp-hd184003184118%_ (let () (declare (not safe)) - (##car _%e182870182983%_)))) - (_%loop182869182975%_ - _%lp-tl182872182988%_ - (cons _%lp-hd182871182986%_ _%id182873182980%_)))) - (let ((_%id182874182991%_ (reverse _%id182873182980%_))) + (##car _%e184002184115%_)))) + (_%loop184001184107%_ + _%lp-tl184004184120%_ + (cons _%lp-hd184003184118%_ _%id184005184112%_)))) + (let ((_%id184006184123%_ (reverse _%id184005184112%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182865182967%_)) - (let ((_%e182875182994%_ + (gx#stx-pair? _%tl183997184099%_)) + (let ((_%e184007184126%_ (let () (declare (not safe)) - (gx#stx-e _%tl182865182967%_)))) - (let ((_%tl182877182999%_ + (gx#stx-e _%tl183997184099%_)))) + (let ((_%tl184009184131%_ (let () (declare (not safe)) - (##cdr _%e182875182994%_))) - (_%hd182876182997%_ + (##cdr _%e184007184126%_))) + (_%hd184008184129%_ (let () (declare (not safe)) - (##car _%e182875182994%_)))) + (##car _%e184007184126%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182877182999%_)) + (gx#stx-null? _%tl184009184131%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182859182951%_)) + (gx#stx-null? _%tl183991184083%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl182850182927%_)) - (let ((_%__splice189324189325%_ + (gx#stx-pair/null? _%tl183982184059%_)) + (let ((_%__splice190456190457%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl182850182927%_ + _%tl183982184059%_ '0)))) - (let ((_%tl182880183004%_ + (let ((_%tl184012184136%_ (let () (declare (not safe)) (##vector-ref - _%__splice189324189325%_ + _%__splice190456190457%_ '1))) - (_%target182878183002%_ + (_%target184010184134%_ (let () (declare (not safe)) (##vector-ref - _%__splice189324189325%_ + _%__splice190456190457%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182880183004%_)) - (letrec ((_%loop182881183007%_ - (lambda (_%hd182879183010%_ - _%bind182885183012%_) + _%tl184012184136%_)) + (letrec ((_%loop184013184139%_ + (lambda (_%hd184011184142%_ + _%bind184017184144%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182879183010%_)) - (let ((_%e182882183015%_ + _%hd184011184142%_)) + (let ((_%e184014184147%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd182879183010%_)))) - (let ((_%lp-tl182884183020%_ + (gx#stx-e _%hd184011184142%_)))) + (let ((_%lp-tl184016184152%_ (let () (declare (not safe)) - (##cdr _%e182882183015%_))) - (_%lp-hd182883183018%_ + (##cdr _%e184014184147%_))) + (_%lp-hd184015184150%_ (let () (declare (not safe)) - (##car _%e182882183015%_)))) - (_%loop182881183007%_ - _%lp-tl182884183020%_ - (cons _%lp-hd182883183018%_ _%bind182885183012%_)))) - (let ((_%bind182886183023%_ - (reverse _%bind182885183012%_))) + (##car _%e184014184147%_)))) + (_%loop184013184139%_ + _%lp-tl184016184152%_ + (cons _%lp-hd184015184150%_ _%bind184017184144%_)))) + (let ((_%bind184018184155%_ + (reverse _%bind184017184144%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182847182919%_)) - (let ((_%e182887183026%_ + (gx#stx-pair? _%tl183979184051%_)) + (let ((_%e184019184158%_ (let () (declare (not safe)) - (gx#stx-e _%tl182847182919%_)))) - (let ((_%tl182889183031%_ + (gx#stx-e _%tl183979184051%_)))) + (let ((_%tl184021184163%_ (let () (declare (not safe)) - (##cdr _%e182887183026%_))) - (_%hd182888183029%_ + (##cdr _%e184019184158%_))) + (_%hd184020184161%_ (let () (declare (not safe)) - (##car _%e182887183026%_)))) + (##car _%e184019184158%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182889183031%_)) - (_%__kont189320189321%_ - _%hd182888183029%_ - _%bind182886183023%_ - _%hd182876182997%_ - _%id182874182991%_ - _%hd182855182941%_) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_))))))) + (gx#stx-null? _%tl184021184163%_)) + (_%__kont190452190453%_ + _%hd184020184161%_ + _%bind184018184155%_ + _%hd184008184129%_ + _%id184006184123%_ + _%hd183987184073%_) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop182881183007%_ - _%target182878183002%_ + (_%loop184013184139%_ + _%target184010184134%_ '())) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)) - (_%__kont189326189327%_)) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_))))))) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)) + (_%__kont190458190459%_)) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop182869182975%_ - _%target182866182970%_ + (_%loop184001184107%_ + _%target183998184102%_ '())))) - (_%__match189447189448%_ - (lambda (_%e182808183102%_ - _%hd182809183105%_ - _%tl182810183107%_ - _%e182811183110%_ - _%hd182812183113%_ - _%tl182813183115%_ - _%__splice189318189319%_ - _%target182814183118%_ - _%tl182816183120%_) - (letrec ((_%loop182817183123%_ - (lambda (_%hd182815183126%_ - _%expr182821183128%_ - _%id182822183130%_) + (_%__match190579190580%_ + (lambda (_%e183940184234%_ + _%hd183941184237%_ + _%tl183942184239%_ + _%e183943184242%_ + _%hd183944184245%_ + _%tl183945184247%_ + _%__splice190450190451%_ + _%target183946184250%_ + _%tl183948184252%_) + (letrec ((_%loop183949184255%_ + (lambda (_%hd183947184258%_ + _%expr183953184260%_ + _%id183954184262%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182815183126%_)) - (let ((_%e182818183133%_ + _%hd183947184258%_)) + (let ((_%e183950184265%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd182815183126%_)))) - (let ((_%lp-tl182820183138%_ - (let () (declare (not safe)) (##cdr _%e182818183133%_))) - (_%lp-hd182819183136%_ + (gx#stx-e _%hd183947184258%_)))) + (let ((_%lp-tl183952184270%_ + (let () (declare (not safe)) (##cdr _%e183950184265%_))) + (_%lp-hd183951184268%_ (let () (declare (not safe)) - (##car _%e182818183133%_)))) + (##car _%e183950184265%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd182819183136%_)) - (let ((_%e182828183141%_ + (gx#stx-pair? _%lp-hd183951184268%_)) + (let ((_%e183960184273%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd182819183136%_)))) - (let ((_%tl182830183146%_ + (gx#stx-e _%lp-hd183951184268%_)))) + (let ((_%tl183962184278%_ (let () (declare (not safe)) - (##cdr _%e182828183141%_))) - (_%hd182829183144%_ + (##cdr _%e183960184273%_))) + (_%hd183961184276%_ (let () (declare (not safe)) - (##car _%e182828183141%_)))) + (##car _%e183960184273%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182829183144%_)) - (let ((_%e182831183149%_ + (gx#stx-pair? _%hd183961184276%_)) + (let ((_%e183963184281%_ (let () (declare (not safe)) - (gx#stx-e _%hd182829183144%_)))) - (let ((_%tl182833183154%_ + (gx#stx-e _%hd183961184276%_)))) + (let ((_%tl183965184286%_ (let () (declare (not safe)) - (##cdr _%e182831183149%_))) - (_%hd182832183152%_ + (##cdr _%e183963184281%_))) + (_%hd183964184284%_ (let () (declare (not safe)) - (##car _%e182831183149%_)))) + (##car _%e183963184281%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182833183154%_)) + (gx#stx-null? _%tl183965184286%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182830183146%_)) - (let ((_%e182834183157%_ + (gx#stx-pair? _%tl183962184278%_)) + (let ((_%e183966184289%_ (let () (declare (not safe)) (gx#stx-e - _%tl182830183146%_)))) - (let ((_%tl182836183162%_ + _%tl183962184278%_)))) + (let ((_%tl183968184294%_ (let () (declare (not safe)) - (##cdr _%e182834183157%_))) - (_%hd182835183160%_ + (##cdr _%e183966184289%_))) + (_%hd183967184292%_ (let () (declare (not safe)) - (##car _%e182834183157%_)))) + (##car _%e183966184289%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182836183162%_)) - (_%loop182817183123%_ - _%lp-tl182820183138%_ - (cons _%hd182835183160%_ - _%expr182821183128%_) - (cons _%hd182832183152%_ - _%id182822183130%_)) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)))) - (let ((_%id182824183167%_ (reverse _%id182822183130%_)) - (_%expr182823183165%_ (reverse _%expr182821183128%_))) + _%tl183968184294%_)) + (_%loop183949184255%_ + _%lp-tl183952184270%_ + (cons _%hd183967184292%_ + _%expr183953184260%_) + (cons _%hd183964184284%_ + _%id183954184262%_)) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)))) + (let ((_%id183956184299%_ (reverse _%id183954184262%_)) + (_%expr183955184297%_ (reverse _%expr183953184260%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182813183115%_)) - (let ((_%e182825183170%_ + (gx#stx-pair? _%tl183945184247%_)) + (let ((_%e183957184302%_ (let () (declare (not safe)) - (gx#stx-e _%tl182813183115%_)))) - (let ((_%tl182827183175%_ + (gx#stx-e _%tl183945184247%_)))) + (let ((_%tl183959184307%_ (let () (declare (not safe)) - (##cdr _%e182825183170%_))) - (_%hd182826183173%_ + (##cdr _%e183957184302%_))) + (_%hd183958184305%_ (let () (declare (not safe)) - (##car _%e182825183170%_)))) + (##car _%e183957184302%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182827183175%_)) - (_%__kont189316189317%_ - _%hd182826183173%_ - _%expr182823183165%_ - _%id182824183167%_) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_))))))) + (gx#stx-null? _%tl183959184307%_)) + (_%__kont190448190449%_ + _%hd183958184305%_ + _%expr183955184297%_ + _%id183956184299%_) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop182817183123%_ - _%target182814183118%_ + (_%loop183949184255%_ + _%target183946184250%_ '() '())))) - (_%__match189423189424%_ - (lambda (_%e182770183218%_ - _%hd182771183221%_ - _%tl182772183223%_ - _%e182773183226%_ - _%hd182774183229%_ - _%tl182775183231%_ - _%__splice189314189315%_ - _%target182776183234%_ - _%tl182778183236%_) - (letrec ((_%loop182779183239%_ - (lambda (_%hd182777183242%_ - _%xid182783183244%_ - _%id182784183246%_) + (_%__match190555190556%_ + (lambda (_%e183902184350%_ + _%hd183903184353%_ + _%tl183904184355%_ + _%e183905184358%_ + _%hd183906184361%_ + _%tl183907184363%_ + _%__splice190446190447%_ + _%target183908184366%_ + _%tl183910184368%_) + (letrec ((_%loop183911184371%_ + (lambda (_%hd183909184374%_ + _%xid183915184376%_ + _%id183916184378%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182777183242%_)) - (let ((_%e182780183249%_ + _%hd183909184374%_)) + (let ((_%e183912184381%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd182777183242%_)))) - (let ((_%lp-tl182782183254%_ - (let () (declare (not safe)) (##cdr _%e182780183249%_))) - (_%lp-hd182781183252%_ + (gx#stx-e _%hd183909184374%_)))) + (let ((_%lp-tl183914184386%_ + (let () (declare (not safe)) (##cdr _%e183912184381%_))) + (_%lp-hd183913184384%_ (let () (declare (not safe)) - (##car _%e182780183249%_)))) + (##car _%e183912184381%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd182781183252%_)) - (let ((_%e182790183257%_ + (gx#stx-pair? _%lp-hd183913184384%_)) + (let ((_%e183922184389%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd182781183252%_)))) - (let ((_%tl182792183262%_ + (gx#stx-e _%lp-hd183913184384%_)))) + (let ((_%tl183924184394%_ (let () (declare (not safe)) - (##cdr _%e182790183257%_))) - (_%hd182791183260%_ + (##cdr _%e183922184389%_))) + (_%hd183923184392%_ (let () (declare (not safe)) - (##car _%e182790183257%_)))) + (##car _%e183922184389%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182791183260%_)) - (let ((_%e182793183265%_ + (gx#stx-pair? _%hd183923184392%_)) + (let ((_%e183925184397%_ (let () (declare (not safe)) - (gx#stx-e _%hd182791183260%_)))) - (let ((_%tl182795183270%_ + (gx#stx-e _%hd183923184392%_)))) + (let ((_%tl183927184402%_ (let () (declare (not safe)) - (##cdr _%e182793183265%_))) - (_%hd182794183268%_ + (##cdr _%e183925184397%_))) + (_%hd183926184400%_ (let () (declare (not safe)) - (##car _%e182793183265%_)))) + (##car _%e183925184397%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182795183270%_)) + (gx#stx-null? _%tl183927184402%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182792183262%_)) - (let ((_%e182796183273%_ + (gx#stx-pair? _%tl183924184394%_)) + (let ((_%e183928184405%_ (let () (declare (not safe)) (gx#stx-e - _%tl182792183262%_)))) - (let ((_%tl182798183278%_ + _%tl183924184394%_)))) + (let ((_%tl183930184410%_ (let () (declare (not safe)) - (##cdr _%e182796183273%_))) - (_%hd182797183276%_ + (##cdr _%e183928184405%_))) + (_%hd183929184408%_ (let () (declare (not safe)) - (##car _%e182796183273%_)))) + (##car _%e183928184405%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182797183276%_)) - (let ((_%e182799183281%_ + _%hd183929184408%_)) + (let ((_%e183931184413%_ (let () (declare (not safe)) (gx#stx-e - _%hd182797183276%_)))) - (let ((_%tl182801183286%_ + _%hd183929184408%_)))) + (let ((_%tl183933184418%_ (let () (declare (not safe)) - (##cdr _%e182799183281%_))) - (_%hd182800183284%_ + (##cdr _%e183931184413%_))) + (_%hd183932184416%_ (let () (declare (not safe)) - (##car _%e182799183281%_)))) + (##car _%e183931184413%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182800183284%_)) + _%hd183932184416%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd182800183284%_)) + (gx#stx-eq? '%#ref _%hd183932184416%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182801183286%_)) - (let ((_%e182802183289%_ + (gx#stx-pair? _%tl183933184418%_)) + (let ((_%e183934184421%_ (let () (declare (not safe)) - (gx#stx-e _%tl182801183286%_)))) - (let ((_%tl182804183294%_ + (gx#stx-e _%tl183933184418%_)))) + (let ((_%tl183936184426%_ (let () (declare (not safe)) - (##cdr _%e182802183289%_))) - (_%hd182803183292%_ + (##cdr _%e183934184421%_))) + (_%hd183935184424%_ (let () (declare (not safe)) - (##car _%e182802183289%_)))) + (##car _%e183934184421%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182804183294%_)) + (gx#stx-null? _%tl183936184426%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182798183278%_)) - (_%loop182779183239%_ - _%lp-tl182782183254%_ - (cons _%hd182803183292%_ - _%xid182783183244%_) - (cons _%hd182794183268%_ - _%id182784183246%_)) - (_%__match189447189448%_ - _%e182770183218%_ - _%hd182771183221%_ - _%tl182772183223%_ - _%e182773183226%_ - _%hd182774183229%_ - _%tl182775183231%_ - _%__splice189314189315%_ - _%target182776183234%_ - _%tl182778183236%_)) - (_%__match189447189448%_ - _%e182770183218%_ - _%hd182771183221%_ - _%tl182772183223%_ - _%e182773183226%_ - _%hd182774183229%_ - _%tl182775183231%_ - _%__splice189314189315%_ - _%target182776183234%_ - _%tl182778183236%_)))) - (_%__match189447189448%_ - _%e182770183218%_ - _%hd182771183221%_ - _%tl182772183223%_ - _%e182773183226%_ - _%hd182774183229%_ - _%tl182775183231%_ - _%__splice189314189315%_ - _%target182776183234%_ - _%tl182778183236%_)) - (_%__match189447189448%_ - _%e182770183218%_ - _%hd182771183221%_ - _%tl182772183223%_ - _%e182773183226%_ - _%hd182774183229%_ - _%tl182775183231%_ - _%__splice189314189315%_ - _%target182776183234%_ - _%tl182778183236%_)) - (_%__match189447189448%_ - _%e182770183218%_ - _%hd182771183221%_ - _%tl182772183223%_ - _%e182773183226%_ - _%hd182774183229%_ - _%tl182775183231%_ - _%__splice189314189315%_ - _%target182776183234%_ - _%tl182778183236%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189447189448%_ - _%e182770183218%_ - _%hd182771183221%_ - _%tl182772183223%_ - _%e182773183226%_ - _%hd182774183229%_ - _%tl182775183231%_ - _%__splice189314189315%_ - _%target182776183234%_ - _%tl182778183236%_)))) - (_%__match189447189448%_ - _%e182770183218%_ - _%hd182771183221%_ - _%tl182772183223%_ - _%e182773183226%_ - _%hd182774183229%_ - _%tl182775183231%_ - _%__splice189314189315%_ - _%target182776183234%_ - _%tl182778183236%_)) - (_%__match189447189448%_ - _%e182770183218%_ - _%hd182771183221%_ - _%tl182772183223%_ - _%e182773183226%_ - _%hd182774183229%_ - _%tl182775183231%_ - _%__splice189314189315%_ - _%target182776183234%_ - _%tl182778183236%_)))) - (_%__match189447189448%_ - _%e182770183218%_ - _%hd182771183221%_ - _%tl182772183223%_ - _%e182773183226%_ - _%hd182774183229%_ - _%tl182775183231%_ - _%__splice189314189315%_ - _%target182776183234%_ - _%tl182778183236%_)))) - (_%__match189447189448%_ - _%e182770183218%_ - _%hd182771183221%_ - _%tl182772183223%_ - _%e182773183226%_ - _%hd182774183229%_ - _%tl182775183231%_ - _%__splice189314189315%_ - _%target182776183234%_ - _%tl182778183236%_)))) - (let ((_%id182786183299%_ (reverse _%id182784183246%_)) - (_%xid182785183297%_ (reverse _%xid182783183244%_))) + (_%__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%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182775183231%_)) - (let ((_%e182787183302%_ + (gx#stx-pair? _%tl183907184363%_)) + (let ((_%e183919184434%_ (let () (declare (not safe)) - (gx#stx-e _%tl182775183231%_)))) - (let ((_%tl182789183307%_ + (gx#stx-e _%tl183907184363%_)))) + (let ((_%tl183921184439%_ (let () (declare (not safe)) - (##cdr _%e182787183302%_))) - (_%hd182788183305%_ + (##cdr _%e183919184434%_))) + (_%hd183920184437%_ (let () (declare (not safe)) - (##car _%e182787183302%_)))) + (##car _%e183919184434%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182789183307%_)) - (_%__kont189312189313%_ - _%hd182788183305%_ - _%xid182785183297%_ - _%id182786183299%_) - (_%__match189447189448%_ - _%e182770183218%_ - _%hd182771183221%_ - _%tl182772183223%_ - _%e182773183226%_ - _%hd182774183229%_ - _%tl182775183231%_ - _%__splice189314189315%_ - _%target182776183234%_ - _%tl182778183236%_)))) - (_%__match189447189448%_ - _%e182770183218%_ - _%hd182771183221%_ - _%tl182772183223%_ - _%e182773183226%_ - _%hd182774183229%_ - _%tl182775183231%_ - _%__splice189314189315%_ - _%target182776183234%_ - _%tl182778183236%_))))))) + (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%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop182779183239%_ - _%target182776183234%_ + (_%loop183911184371%_ + _%target183908184366%_ '() '())))) - (_%__match189369189370%_ - (lambda (_%e182725183410%_ - _%hd182726183413%_ - _%tl182727183415%_ - _%e182728183418%_ - _%hd182729183421%_ - _%tl182730183423%_ - _%e182731183426%_ - _%hd182732183429%_ - _%tl182733183431%_ - _%e182734183434%_ - _%hd182735183437%_ - _%tl182736183439%_ - _%__splice189308189309%_ - _%target182737183442%_ - _%tl182739183444%_) - (letrec ((_%loop182740183447%_ - (lambda (_%hd182738183450%_ - _%id182744183452%_) + (_%__match190501190502%_ + (lambda (_%e183857184542%_ + _%hd183858184545%_ + _%tl183859184547%_ + _%e183860184550%_ + _%hd183861184553%_ + _%tl183862184555%_ + _%e183863184558%_ + _%hd183864184561%_ + _%tl183865184563%_ + _%e183866184566%_ + _%hd183867184569%_ + _%tl183868184571%_ + _%__splice190440190441%_ + _%target183869184574%_ + _%tl183871184576%_) + (letrec ((_%loop183872184579%_ + (lambda (_%hd183870184582%_ + _%id183876184584%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182738183450%_)) - (let ((_%e182741183455%_ + _%hd183870184582%_)) + (let ((_%e183873184587%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd182738183450%_)))) - (let ((_%lp-tl182743183460%_ - (let () (declare (not safe)) (##cdr _%e182741183455%_))) - (_%lp-hd182742183458%_ + (gx#stx-e _%hd183870184582%_)))) + (let ((_%lp-tl183875184592%_ + (let () (declare (not safe)) (##cdr _%e183873184587%_))) + (_%lp-hd183874184590%_ (let () (declare (not safe)) - (##car _%e182741183455%_)))) + (##car _%e183873184587%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd182742183458%_)) - (let ((_%e182746183463%_ + (gx#stx-pair? _%lp-hd183874184590%_)) + (let ((_%e183878184595%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd182742183458%_)))) - (let ((_%tl182748183468%_ + (gx#stx-e _%lp-hd183874184590%_)))) + (let ((_%tl183880184600%_ (let () (declare (not safe)) - (##cdr _%e182746183463%_))) - (_%hd182747183466%_ + (##cdr _%e183878184595%_))) + (_%hd183879184598%_ (let () (declare (not safe)) - (##car _%e182746183463%_)))) + (##car _%e183878184595%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182747183466%_)) + (gx#identifier? _%hd183879184598%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182747183466%_)) + (gx#stx-eq? '%#ref _%hd183879184598%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182748183468%_)) - (let ((_%e182749183471%_ + (gx#stx-pair? _%tl183880184600%_)) + (let ((_%e183881184603%_ (let () (declare (not safe)) - (gx#stx-e _%tl182748183468%_)))) - (let ((_%tl182751183476%_ + (gx#stx-e _%tl183880184600%_)))) + (let ((_%tl183883184608%_ (let () (declare (not safe)) - (##cdr _%e182749183471%_))) - (_%hd182750183474%_ + (##cdr _%e183881184603%_))) + (_%hd183882184606%_ (let () (declare (not safe)) - (##car _%e182749183471%_)))) + (##car _%e183881184603%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182751183476%_)) - (_%loop182740183447%_ - _%lp-tl182743183460%_ - (cons _%hd182750183474%_ - _%id182744183452%_)) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)) - (_%__kont189326189327%_)) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)))) - (let ((_%id182745183479%_ (reverse _%id182744183452%_))) - (_%__kont189306189307%_ - _%id182745183479%_ - _%hd182735183437%_)))))) + _%tl183883184608%_)) + (_%loop183872184579%_ + _%lp-tl183875184592%_ + (cons _%hd183882184606%_ + _%id183876184584%_)) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)) + (_%__kont190458190459%_)) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)))) + (let ((_%id183877184611%_ (reverse _%id183876184584%_))) + (_%__kont190438190439%_ + _%id183877184611%_ + _%hd183867184569%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop182740183447%_ - _%target182737183442%_ + (_%loop183872184579%_ + _%target183869184574%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189304189305%_)) - (let ((_%e182725183410%_ + (gx#stx-pair? _%__stx190436190437%_)) + (let ((_%e183857184542%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189304189305%_)))) - (let ((_%tl182727183415%_ + (gx#stx-e _%__stx190436190437%_)))) + (let ((_%tl183859184547%_ (let () (declare (not safe)) - (##cdr _%e182725183410%_))) - (_%hd182726183413%_ + (##cdr _%e183857184542%_))) + (_%hd183858184545%_ (let () (declare (not safe)) - (##car _%e182725183410%_)))) + (##car _%e183857184542%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182726183413%_)) + _%hd183858184545%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd182726183413%_)) + _%hd183858184545%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182727183415%_)) - (let ((_%e182728183418%_ + _%tl183859184547%_)) + (let ((_%e183860184550%_ (let () (declare (not safe)) (gx#stx-e - _%tl182727183415%_)))) - (let ((_%tl182730183423%_ + _%tl183859184547%_)))) + (let ((_%tl183862184555%_ (let () (declare (not safe)) - (##cdr _%e182728183418%_))) - (_%hd182729183421%_ + (##cdr _%e183860184550%_))) + (_%hd183861184553%_ (let () (declare (not safe)) - (##car _%e182728183418%_)))) + (##car _%e183860184550%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182729183421%_)) - (let ((_%e182731183426%_ + _%hd183861184553%_)) + (let ((_%e183863184558%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd182729183421%_)))) - (let ((_%tl182733183431%_ + (gx#stx-e _%hd183861184553%_)))) + (let ((_%tl183865184563%_ (let () (declare (not safe)) - (##cdr _%e182731183426%_))) - (_%hd182732183429%_ + (##cdr _%e183863184558%_))) + (_%hd183864184561%_ (let () (declare (not safe)) - (##car _%e182731183426%_)))) + (##car _%e183863184558%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182732183429%_)) + (gx#identifier? _%hd183864184561%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182732183429%_)) + (gx#stx-eq? '%#ref _%hd183864184561%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182733183431%_)) - (let ((_%e182734183434%_ + (gx#stx-pair? _%tl183865184563%_)) + (let ((_%e183866184566%_ (let () (declare (not safe)) - (gx#stx-e _%tl182733183431%_)))) - (let ((_%tl182736183439%_ + (gx#stx-e _%tl183865184563%_)))) + (let ((_%tl183868184571%_ (let () (declare (not safe)) - (##cdr _%e182734183434%_))) - (_%hd182735183437%_ + (##cdr _%e183866184566%_))) + (_%hd183867184569%_ (let () (declare (not safe)) - (##car _%e182734183434%_)))) + (##car _%e183866184566%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182736183439%_)) + (gx#stx-null? _%tl183868184571%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl182730183423%_)) - (let ((_%__splice189308189309%_ + _%tl183862184555%_)) + (let ((_%__splice190440190441%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl182730183423%_ + _%tl183862184555%_ '0)))) - (let ((_%tl182739183444%_ + (let ((_%tl183871184576%_ (let () (declare (not safe)) (##vector-ref - _%__splice189308189309%_ + _%__splice190440190441%_ '1))) - (_%target182737183442%_ + (_%target183869184574%_ (let () (declare (not safe)) (##vector-ref - _%__splice189308189309%_ + _%__splice190440190441%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182739183444%_)) - (_%__match189369189370%_ - _%e182725183410%_ - _%hd182726183413%_ - _%tl182727183415%_ - _%e182728183418%_ - _%hd182729183421%_ - _%tl182730183423%_ - _%e182731183426%_ - _%hd182732183429%_ - _%tl182733183431%_ - _%e182734183434%_ - _%hd182735183437%_ - _%tl182736183439%_ - _%__splice189308189309%_ - _%target182737183442%_ - _%tl182739183444%_) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)) - (_%__kont189326189327%_)) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)))) + _%tl183871184576%_)) + (_%__match190501190502%_ + _%e183857184542%_ + _%hd183858184545%_ + _%tl183859184547%_ + _%e183860184550%_ + _%hd183861184553%_ + _%tl183862184555%_ + _%e183863184558%_ + _%hd183864184561%_ + _%tl183865184563%_ + _%e183866184566%_ + _%hd183867184569%_ + _%tl183868184571%_ + _%__splice190440190441%_ + _%target183869184574%_ + _%tl183871184576%_) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)) + (_%__kont190458190459%_)) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189326189327%_)) + (_%__kont190458190459%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd182726183413%_)) + _%hd183858184545%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182727183415%_)) - (let ((_%e182758183356%_ + _%tl183859184547%_)) + (let ((_%e183890184488%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl182727183415%_)))) - (let ((_%tl182760183361%_ - (let () (declare (not safe)) (##cdr _%e182758183356%_))) - (_%hd182759183359%_ + (gx#stx-e _%tl183859184547%_)))) + (let ((_%tl183892184493%_ + (let () (declare (not safe)) (##cdr _%e183890184488%_))) + (_%hd183891184491%_ (let () (declare (not safe)) - (##car _%e182758183356%_)))) + (##car _%e183890184488%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182760183361%_)) - (let ((_%e182761183364%_ + (gx#stx-pair? _%tl183892184493%_)) + (let ((_%e183893184496%_ (let () (declare (not safe)) - (gx#stx-e _%tl182760183361%_)))) - (let ((_%tl182763183369%_ + (gx#stx-e _%tl183892184493%_)))) + (let ((_%tl183895184501%_ (let () (declare (not safe)) - (##cdr _%e182761183364%_))) - (_%hd182762183367%_ + (##cdr _%e183893184496%_))) + (_%hd183894184499%_ (let () (declare (not safe)) - (##car _%e182761183364%_)))) + (##car _%e183893184496%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182763183369%_)) - (let ((_%e182764183372%_ + (gx#stx-pair? _%tl183895184501%_)) + (let ((_%e183896184504%_ (let () (declare (not safe)) - (gx#stx-e _%tl182763183369%_)))) - (let ((_%tl182766183377%_ + (gx#stx-e _%tl183895184501%_)))) + (let ((_%tl183898184509%_ (let () (declare (not safe)) - (##cdr _%e182764183372%_))) - (_%hd182765183375%_ + (##cdr _%e183896184504%_))) + (_%hd183897184507%_ (let () (declare (not safe)) - (##car _%e182764183372%_)))) + (##car _%e183896184504%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182766183377%_)) - (_%__kont189310189311%_ - _%hd182765183375%_ - _%hd182762183367%_ - _%hd182759183359%_) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)) + (gx#stx-null? _%tl183898184509%_)) + (_%__kont190442190443%_ + _%hd183897184507%_ + _%hd183894184499%_ + _%hd183891184491%_) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd182726183413%_)) + _%hd183858184545%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182727183415%_)) - (let ((_%e182773183226%_ + _%tl183859184547%_)) + (let ((_%e183905184358%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl182727183415%_)))) - (let ((_%tl182775183231%_ + (gx#stx-e _%tl183859184547%_)))) + (let ((_%tl183907184363%_ (let () (declare (not safe)) - (##cdr _%e182773183226%_))) - (_%hd182774183229%_ + (##cdr _%e183905184358%_))) + (_%hd183906184361%_ (let () (declare (not safe)) - (##car _%e182773183226%_)))) + (##car _%e183905184358%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd182774183229%_)) - (let ((_%__splice189314189315%_ + (gx#stx-pair/null? _%hd183906184361%_)) + (let ((_%__splice190446190447%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd182774183229%_ + _%hd183906184361%_ '0)))) - (let ((_%tl182778183236%_ + (let ((_%tl183910184368%_ (let () (declare (not safe)) (##vector-ref - _%__splice189314189315%_ + _%__splice190446190447%_ '1))) - (_%target182776183234%_ + (_%target183908184366%_ (let () (declare (not safe)) (##vector-ref - _%__splice189314189315%_ + _%__splice190446190447%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182778183236%_)) - (_%__match189423189424%_ - _%e182725183410%_ - _%hd182726183413%_ - _%tl182727183415%_ - _%e182773183226%_ - _%hd182774183229%_ - _%tl182775183231%_ - _%__splice189314189315%_ - _%target182776183234%_ - _%tl182778183236%_) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)) + (gx#stx-null? _%tl183910184368%_)) + (_%__match190555190556%_ + _%e183857184542%_ + _%hd183858184545%_ + _%tl183859184547%_ + _%e183905184358%_ + _%hd183906184361%_ + _%tl183907184363%_ + _%__splice190446190447%_ + _%target183908184366%_ + _%tl183910184368%_) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _%hd182726183413%_)) + (gx#stx-eq? '%#letrec-values _%hd183858184545%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182727183415%_)) - (let ((_%e182845182914%_ + (gx#stx-pair? _%tl183859184547%_)) + (let ((_%e183977184046%_ (let () (declare (not safe)) - (gx#stx-e _%tl182727183415%_)))) - (let ((_%tl182847182919%_ + (gx#stx-e _%tl183859184547%_)))) + (let ((_%tl183979184051%_ (let () (declare (not safe)) - (##cdr _%e182845182914%_))) - (_%hd182846182917%_ + (##cdr _%e183977184046%_))) + (_%hd183978184049%_ (let () (declare (not safe)) - (##car _%e182845182914%_)))) + (##car _%e183977184046%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182846182917%_)) - (let ((_%e182848182922%_ + (gx#stx-pair? _%hd183978184049%_)) + (let ((_%e183980184054%_ (let () (declare (not safe)) - (gx#stx-e _%hd182846182917%_)))) - (let ((_%tl182850182927%_ + (gx#stx-e _%hd183978184049%_)))) + (let ((_%tl183982184059%_ (let () (declare (not safe)) - (##cdr _%e182848182922%_))) - (_%hd182849182925%_ + (##cdr _%e183980184054%_))) + (_%hd183981184057%_ (let () (declare (not safe)) - (##car _%e182848182922%_)))) + (##car _%e183980184054%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182849182925%_)) - (let ((_%e182851182930%_ + (gx#stx-pair? _%hd183981184057%_)) + (let ((_%e183983184062%_ (let () (declare (not safe)) - (gx#stx-e _%hd182849182925%_)))) - (let ((_%tl182853182935%_ + (gx#stx-e _%hd183981184057%_)))) + (let ((_%tl183985184067%_ (let () (declare (not safe)) - (##cdr _%e182851182930%_))) - (_%hd182852182933%_ + (##cdr _%e183983184062%_))) + (_%hd183984184065%_ (let () (declare (not safe)) - (##car _%e182851182930%_)))) + (##car _%e183983184062%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182852182933%_)) - (let ((_%e182854182938%_ + _%hd183984184065%_)) + (let ((_%e183986184070%_ (let () (declare (not safe)) (gx#stx-e - _%hd182852182933%_)))) - (let ((_%tl182856182943%_ + _%hd183984184065%_)))) + (let ((_%tl183988184075%_ (let () (declare (not safe)) - (##cdr _%e182854182938%_))) - (_%hd182855182941%_ + (##cdr _%e183986184070%_))) + (_%hd183987184073%_ (let () (declare (not safe)) - (##car _%e182854182938%_)))) + (##car _%e183986184070%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182856182943%_)) + _%tl183988184075%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182853182935%_)) - (let ((_%e182857182946%_ + _%tl183985184067%_)) + (let ((_%e183989184078%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl182853182935%_)))) - (let ((_%tl182859182951%_ + (gx#stx-e _%tl183985184067%_)))) + (let ((_%tl183991184083%_ (let () (declare (not safe)) - (##cdr _%e182857182946%_))) - (_%hd182858182949%_ + (##cdr _%e183989184078%_))) + (_%hd183990184081%_ (let () (declare (not safe)) - (##car _%e182857182946%_)))) + (##car _%e183989184078%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182858182949%_)) - (let ((_%e182860182954%_ + (gx#stx-pair? _%hd183990184081%_)) + (let ((_%e183992184086%_ (let () (declare (not safe)) - (gx#stx-e _%hd182858182949%_)))) - (let ((_%tl182862182959%_ + (gx#stx-e _%hd183990184081%_)))) + (let ((_%tl183994184091%_ (let () (declare (not safe)) - (##cdr _%e182860182954%_))) - (_%hd182861182957%_ + (##cdr _%e183992184086%_))) + (_%hd183993184089%_ (let () (declare (not safe)) - (##car _%e182860182954%_)))) + (##car _%e183992184086%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182861182957%_)) + (gx#identifier? _%hd183993184089%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd182861182957%_)) + _%hd183993184089%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182862182959%_)) - (let ((_%e182863182962%_ + (gx#stx-pair? _%tl183994184091%_)) + (let ((_%e183995184094%_ (let () (declare (not safe)) (gx#stx-e - _%tl182862182959%_)))) - (let ((_%tl182865182967%_ + _%tl183994184091%_)))) + (let ((_%tl183997184099%_ (let () (declare (not safe)) - (##cdr _%e182863182962%_))) - (_%hd182864182965%_ + (##cdr _%e183995184094%_))) + (_%hd183996184097%_ (let () (declare (not safe)) - (##car _%e182863182962%_)))) + (##car _%e183995184094%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd182864182965%_)) - (let ((_%__splice189322189323%_ + _%hd183996184097%_)) + (let ((_%__splice190454190455%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd182864182965%_ + _%hd183996184097%_ '0)))) - (let ((_%tl182868182972%_ + (let ((_%tl184000184104%_ (let () (declare (not safe)) (##vector-ref - _%__splice189322189323%_ + _%__splice190454190455%_ '1))) - (_%target182866182970%_ + (_%target183998184102%_ (let () (declare (not safe)) (##vector-ref - _%__splice189322189323%_ + _%__splice190454190455%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182868182972%_)) - (_%__match189513189514%_ - _%e182725183410%_ - _%hd182726183413%_ - _%tl182727183415%_ - _%e182845182914%_ - _%hd182846182917%_ - _%tl182847182919%_ - _%e182848182922%_ - _%hd182849182925%_ - _%tl182850182927%_ - _%e182851182930%_ - _%hd182852182933%_ - _%tl182853182935%_ - _%e182854182938%_ - _%hd182855182941%_ - _%tl182856182943%_ - _%e182857182946%_ - _%hd182858182949%_ - _%tl182859182951%_ - _%e182860182954%_ - _%hd182861182957%_ - _%tl182862182959%_ - _%e182863182962%_ - _%hd182864182965%_ - _%tl182865182967%_ - _%__splice189322189323%_ - _%target182866182970%_ - _%tl182868182972%_) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)) - (_%__kont189326189327%_)) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)) - (_%__kont189326189327%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)))) - (_%__kont189326189327%_)) - (_%__kont189326189327%_))))) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)))) + (_%__kont190458190459%_)) + (_%__kont190458190459%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189326189327%_)))) - (_%__kont189326189327%_))))))))) - (_%optimize-f__0__188005188006%_ - (lambda (_%expr183620%_) - (let ((_%test183622%_ '#f)) - (_%optimize-f__188003188004%_ - _%expr183620%_ - _%test183622%_)))) - (_%optimize-f180648%_ - (lambda _g191164_ - (let ((_g191163_ + (_%__kont190458190459%_)))) + (_%__kont190458190459%_))))))))) + (_%optimize-f__0__189137189138%_ + (lambda (_%expr184752%_) + (let ((_%test184754%_ '#f)) + (_%optimize-f__189135189136%_ + _%expr184752%_ + _%test184754%_)))) + (_%optimize-f181780%_ + (lambda _g192296_ + (let ((_g192295_ (let () (declare (not safe)) - (##length _g191164_)))) - (cond ((let () (declare (not safe)) (##fx= _g191163_ 1)) - (apply _%optimize-f__0__188005188006%_ - _g191164_)) - ((let () (declare (not safe)) (##fx= _g191163_ 2)) - (apply _%optimize-f__188003188004%_ _g191164_)) + (##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_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g191164_)))))) - (_%assert-e180649%_ - (lambda (_%expr181649%_) - (let* ((_%sexpr181651%_ - (gxc#apply-generate-runtime-repr _%expr181649%_)) - (_%$e181653%_ - (assoc _%sexpr181651%_ _%env-assert180631%_))) - (if _%$e181653%_ - (cdr _%$e181653%_) - (let _%assert181657%_ ((_%expr181659%_ - _%expr181649%_)) - (let* ((_%__stx189610189611%_ _%expr181659%_) - (_%g181667181846%_ + _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%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189610189611%_))))) - (let ((_%__kont189612189613%_ - (lambda (_%L182679%_ _%L182680%_) - (let ((_%$e182702%_ - (_%predicate-type180636%_ - _%L182680%_))) - (if _%$e182702%_ - ((lambda (_%t182705%_) - (_%assert-type180650%_ - _%L182679%_ - _%t182705%_)) - _%$e182702%_) + _%__stx190742190743%_))))) + (let ((_%__kont190744190745%_ + (lambda (_%L183811%_ _%L183812%_) + (let ((_%$e183834%_ + (_%predicate-type181768%_ + _%L183812%_))) + (if _%$e183834%_ + ((lambda (_%t183837%_) + (_%assert-type181782%_ + _%L183811%_ + _%t183837%_)) + _%$e183834%_) '#!void)))) - (_%__kont189614189615%_ - (lambda (_%L182371%_ - _%L182372%_ - _%L182373%_) - (let ((_%$e182398%_ + (_%__kont190746190747%_ + (lambda (_%L183503%_ + _%L183504%_ + _%L183505%_) + (let ((_%$e183530%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L182373%_)))) - (if (or (eq? '##fx= _%$e182398%_) - (eq? 'fx= _%$e182398%_)) - (let* ((_%__stx189516189517%_ - _%L182372%_) - (_%g182405182434%_ + _%L183505%_)))) + (if (or (eq? '##fx= _%$e183530%_) + (eq? 'fx= _%$e183530%_)) + (let* ((_%__stx190648190649%_ + _%L183504%_) + (_%g183537183566%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189516189517%_))))) - (let ((_%__kont189518189519%_ - (lambda (_%L182502%_ - _%L182503%_) - (let ((_%$e182528%_ - (_%countf-symbol180638%_ + _%__stx190648190649%_))))) + (let ((_%__kont190650190651%_ + (lambda (_%L183634%_ + _%L183635%_) + (let ((_%$e183660%_ + (_%countf-symbol181770%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L182503%_))) - (if _%$e182528%_ - ((lambda (_%sym182531%_) - (_%assert-count180651%_ - _%L182502%_ - _%sym182531%_ + _%L183635%_))) + (if _%$e183660%_ + ((lambda (_%sym183663%_) + (_%assert-count181783%_ + _%L183634%_ + _%sym183663%_ (let () (declare (not safe)) - (gx#stx-e _%L182371%_)))) - _%$e182528%_) + (gx#stx-e _%L183503%_)))) + _%$e183660%_) '#!void)))) - (_%__kont189520189521%_ (lambda () '#!void))) + (_%__kont190652190653%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189516189517%_)) - (let ((_%e182409182446%_ + _%__stx190648190649%_)) + (let ((_%e183541183578%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx189516189517%_)))) - (let ((_%tl182411182451%_ - (let () (declare (not safe)) (##cdr _%e182409182446%_))) - (_%hd182410182449%_ + (gx#stx-e _%__stx190648190649%_)))) + (let ((_%tl183543183583%_ + (let () (declare (not safe)) (##cdr _%e183541183578%_))) + (_%hd183542183581%_ (let () (declare (not safe)) - (##car _%e182409182446%_)))) + (##car _%e183541183578%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182410182449%_)) + (gx#identifier? _%hd183542183581%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd182410182449%_)) + (gx#stx-eq? '%#call _%hd183542183581%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182411182451%_)) - (let ((_%e182412182454%_ + (gx#stx-pair? _%tl183543183583%_)) + (let ((_%e183544183586%_ (let () (declare (not safe)) - (gx#stx-e _%tl182411182451%_)))) - (let ((_%tl182414182459%_ + (gx#stx-e _%tl183543183583%_)))) + (let ((_%tl183546183591%_ (let () (declare (not safe)) - (##cdr _%e182412182454%_))) - (_%hd182413182457%_ + (##cdr _%e183544183586%_))) + (_%hd183545183589%_ (let () (declare (not safe)) - (##car _%e182412182454%_)))) + (##car _%e183544183586%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182413182457%_)) - (let ((_%e182415182462%_ + (gx#stx-pair? _%hd183545183589%_)) + (let ((_%e183547183594%_ (let () (declare (not safe)) - (gx#stx-e _%hd182413182457%_)))) - (let ((_%tl182417182467%_ + (gx#stx-e _%hd183545183589%_)))) + (let ((_%tl183549183599%_ (let () (declare (not safe)) - (##cdr _%e182415182462%_))) - (_%hd182416182465%_ + (##cdr _%e183547183594%_))) + (_%hd183548183597%_ (let () (declare (not safe)) - (##car _%e182415182462%_)))) + (##car _%e183547183594%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182416182465%_)) + _%hd183548183597%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd182416182465%_)) + _%hd183548183597%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182417182467%_)) - (let ((_%e182418182470%_ + _%tl183549183599%_)) + (let ((_%e183550183602%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl182417182467%_)))) - (let ((_%tl182420182475%_ - (let () (declare (not safe)) (##cdr _%e182418182470%_))) - (_%hd182419182473%_ + (gx#stx-e _%tl183549183599%_)))) + (let ((_%tl183552183607%_ + (let () (declare (not safe)) (##cdr _%e183550183602%_))) + (_%hd183551183605%_ (let () (declare (not safe)) - (##car _%e182418182470%_)))) + (##car _%e183550183602%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182420182475%_)) + (gx#stx-null? _%tl183552183607%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182414182459%_)) - (let ((_%e182421182478%_ + (gx#stx-pair? _%tl183546183591%_)) + (let ((_%e183553183610%_ (let () (declare (not safe)) - (gx#stx-e _%tl182414182459%_)))) - (let ((_%tl182423182483%_ + (gx#stx-e _%tl183546183591%_)))) + (let ((_%tl183555183615%_ (let () (declare (not safe)) - (##cdr _%e182421182478%_))) - (_%hd182422182481%_ + (##cdr _%e183553183610%_))) + (_%hd183554183613%_ (let () (declare (not safe)) - (##car _%e182421182478%_)))) + (##car _%e183553183610%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182422182481%_)) - (let ((_%e182424182486%_ + (gx#stx-pair? _%hd183554183613%_)) + (let ((_%e183556183618%_ (let () (declare (not safe)) - (gx#stx-e _%hd182422182481%_)))) - (let ((_%tl182426182491%_ + (gx#stx-e _%hd183554183613%_)))) + (let ((_%tl183558183623%_ (let () (declare (not safe)) - (##cdr _%e182424182486%_))) - (_%hd182425182489%_ + (##cdr _%e183556183618%_))) + (_%hd183557183621%_ (let () (declare (not safe)) - (##car _%e182424182486%_)))) + (##car _%e183556183618%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182425182489%_)) + _%hd183557183621%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd182425182489%_)) + _%hd183557183621%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182426182491%_)) - (let ((_%e182427182494%_ + _%tl183558183623%_)) + (let ((_%e183559183626%_ (let () (declare (not safe)) (gx#stx-e - _%tl182426182491%_)))) - (let ((_%tl182429182499%_ + _%tl183558183623%_)))) + (let ((_%tl183561183631%_ (let () (declare (not safe)) - (##cdr _%e182427182494%_))) - (_%hd182428182497%_ + (##cdr _%e183559183626%_))) + (_%hd183560183629%_ (let () (declare (not safe)) - (##car _%e182427182494%_)))) + (##car _%e183559183626%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182429182499%_)) + _%tl183561183631%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl182423182483%_)) - (_%__kont189518189519%_ - _%hd182428182497%_ - _%hd182419182473%_) - (_%__kont189520189521%_)) - (_%__kont189520189521%_)))) + (gx#stx-null? _%tl183555183615%_)) + (_%__kont190650190651%_ + _%hd183560183629%_ + _%hd183551183605%_) + (_%__kont190652190653%_)) + (_%__kont190652190653%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189520189521%_)) - (_%__kont189520189521%_)) - (_%__kont189520189521%_)))) - (_%__kont189520189521%_)))) - (_%__kont189520189521%_)) - (_%__kont189520189521%_)))) - (_%__kont189520189521%_)) + (_%__kont190652190653%_)) + (_%__kont190652190653%_)) + (_%__kont190652190653%_)))) + (_%__kont190652190653%_)))) + (_%__kont190652190653%_)) + (_%__kont190652190653%_)))) + (_%__kont190652190653%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189520189521%_)) - (_%__kont189520189521%_)))) - (_%__kont189520189521%_)))) - (_%__kont189520189521%_)) - (_%__kont189520189521%_)) - (_%__kont189520189521%_)))) - (_%__kont189520189521%_)))) + (_%__kont190652190653%_)) + (_%__kont190652190653%_)))) + (_%__kont190652190653%_)))) + (_%__kont190652190653%_)) + (_%__kont190652190653%_)) + (_%__kont190652190653%_)))) + (_%__kont190652190653%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (or (eq? '##eq? _%$e182398%_) - (eq? 'eq? _%$e182398%_) + (if (or (eq? '##eq? _%$e183530%_) + (eq? 'eq? _%$e183530%_) (eq? '##eqv? - _%$e182398%_) - (eq? 'eqv? _%$e182398%_) + _%$e183530%_) + (eq? 'eqv? _%$e183530%_) (eq? '##equal? - _%$e182398%_) + _%$e183530%_) (eq? 'equal? - _%$e182398%_) + _%$e183530%_) (eq? 'gx#free-identifier=? - _%$e182398%_) + _%$e183530%_) (eq? 'gx#stx-eq? - _%$e182398%_)) - ((lambda (_%sym182558%_) - (let* ((_%__stx189584189585%_ - _%L182372%_) - (_%g182561182574%_ + _%$e183530%_)) + ((lambda (_%sym183690%_) + (let* ((_%__stx190716190717%_ + _%L183504%_) + (_%g183693183706%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -8712,71 +8645,71 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189584189585%_))))) - (let ((_%__kont189586189587%_ - (lambda (_%L182602%_) - (_%assert-eqf180652%_ - _%L182602%_ - (_%eqf-symbol180639%_ _%sym182558%_) + _%__stx190716190717%_))))) + (let ((_%__kont190718190719%_ + (lambda (_%L183734%_) + (_%assert-eqf181784%_ + _%L183734%_ + (_%eqf-symbol181771%_ _%sym183690%_) (let () (declare (not safe)) - (gx#stx-e _%L182371%_))))) - (_%__kont189588189589%_ (lambda () '#!void))) + (gx#stx-e _%L183503%_))))) + (_%__kont190720190721%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189584189585%_)) - (let ((_%e182564182586%_ + (gx#stx-pair? _%__stx190716190717%_)) + (let ((_%e183696183718%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189584189585%_)))) - (let ((_%tl182566182591%_ + (gx#stx-e _%__stx190716190717%_)))) + (let ((_%tl183698183723%_ (let () (declare (not safe)) - (##cdr _%e182564182586%_))) - (_%hd182565182589%_ + (##cdr _%e183696183718%_))) + (_%hd183697183721%_ (let () (declare (not safe)) - (##car _%e182564182586%_)))) + (##car _%e183696183718%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182565182589%_)) + (gx#identifier? _%hd183697183721%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182565182589%_)) + (gx#stx-eq? '%#ref _%hd183697183721%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182566182591%_)) - (let ((_%e182567182594%_ + (gx#stx-pair? _%tl183698183723%_)) + (let ((_%e183699183726%_ (let () (declare (not safe)) - (gx#stx-e _%tl182566182591%_)))) - (let ((_%tl182569182599%_ + (gx#stx-e _%tl183698183723%_)))) + (let ((_%tl183701183731%_ (let () (declare (not safe)) - (##cdr _%e182567182594%_))) - (_%hd182568182597%_ + (##cdr _%e183699183726%_))) + (_%hd183700183729%_ (let () (declare (not safe)) - (##car _%e182567182594%_)))) + (##car _%e183699183726%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182569182599%_)) - (_%__kont189586189587%_ - _%hd182568182597%_) - (_%__kont189588189589%_)))) - (_%__kont189588189589%_)) - (_%__kont189588189589%_)) - (_%__kont189588189589%_)))) - (_%__kont189588189589%_))))) + _%tl183701183731%_)) + (_%__kont190718190719%_ + _%hd183700183729%_) + (_%__kont190720190721%_)))) + (_%__kont190720190721%_)) + (_%__kont190720190721%_)) + (_%__kont190720190721%_)))) + (_%__kont190720190721%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e182398%_) + _%$e183530%_) '#!void))))) - (_%__kont189616189617%_ - (lambda (_%L182275%_ - _%L182276%_ - _%L182277%_) - (_%assert181657%_ + (_%__kont190748190749%_ + (lambda (_%L183407%_ + _%L183408%_ + _%L183409%_) + (_%assert182789%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -8788,44 +8721,44 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L182277%_ + (cons _%L183409%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L182275%_ + (cons _%L183407%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L182276%_ '())) + (cons _%L183408%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189618189619%_ - (lambda (_%L182167%_ - _%L182168%_ - _%L182169%_) - (let ((_%$e182198%_ + (_%__kont190750190751%_ + (lambda (_%L183299%_ + _%L183300%_ + _%L183301%_) + (let ((_%$e183330%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L182169%_)))) + _%L183301%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e182198%_) + _%$e183330%_) (eq? 'gx#stx-eq? - _%$e182198%_)) - ((lambda (_%sym182204%_) - (_%assert-eqf180652%_ - _%L182168%_ - (_%eqf-symbol180639%_ - _%sym182204%_) - _%L182167%_)) - _%$e182198%_) + _%$e183330%_)) + ((lambda (_%sym183336%_) + (_%assert-eqf181784%_ + _%L183300%_ + (_%eqf-symbol181771%_ + _%sym183336%_) + _%L183299%_)) + _%$e183330%_) '#!void)))) - (_%__kont189620189621%_ - (lambda (_%L182051%_ - _%L182052%_ - _%L182053%_) - (_%assert181657%_ + (_%__kont190752190753%_ + (lambda (_%L183183%_ + _%L183184%_ + _%L183185%_) + (_%assert182789%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -8837,7 +8770,7 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L182053%_ + (cons _%L183185%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -8845,4436 +8778,4368 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L182051%_ '())) + (cons _%L183183%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L182052%_ '())) + (cons _%L183184%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189622189623%_ - (lambda (_%L181930%_ - _%L181931%_ - _%L181932%_) - (_%assert181657%_ + (_%__kont190754190755%_ + (lambda (_%L183062%_ + _%L183063%_ + _%L183064%_) + (_%assert182789%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L181932%_ - _%L181930%_ - _%L181931%_))))) - (_%__kont189624189625%_ + _%L183064%_ + _%L183062%_ + _%L183063%_))))) + (_%__kont190756190757%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189610189611%_)) - (let ((_%e181671182623%_ + (gx#stx-pair? _%__stx190742190743%_)) + (let ((_%e182803183755%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189610189611%_)))) - (let ((_%tl181673182628%_ + _%__stx190742190743%_)))) + (let ((_%tl182805183760%_ (let () (declare (not safe)) - (##cdr _%e181671182623%_))) - (_%hd181672182626%_ + (##cdr _%e182803183755%_))) + (_%hd182804183758%_ (let () (declare (not safe)) - (##car _%e181671182623%_)))) + (##car _%e182803183755%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181672182626%_)) + _%hd182804183758%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd181672182626%_)) + _%hd182804183758%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181673182628%_)) - (let ((_%e181674182631%_ + _%tl182805183760%_)) + (let ((_%e182806183763%_ (let () (declare (not safe)) (gx#stx-e - _%tl181673182628%_)))) - (let ((_%tl181676182636%_ + _%tl182805183760%_)))) + (let ((_%tl182808183768%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e181674182631%_))) - (_%hd181675182634%_ - (let () (declare (not safe)) (##car _%e181674182631%_)))) + (##cdr _%e182806183763%_))) + (_%hd182807183766%_ + (let () (declare (not safe)) (##car _%e182806183763%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181675182634%_)) - (let ((_%e181677182639%_ + (gx#stx-pair? _%hd182807183766%_)) + (let ((_%e182809183771%_ (let () (declare (not safe)) - (gx#stx-e _%hd181675182634%_)))) - (let ((_%tl181679182644%_ + (gx#stx-e _%hd182807183766%_)))) + (let ((_%tl182811183776%_ (let () (declare (not safe)) - (##cdr _%e181677182639%_))) - (_%hd181678182642%_ + (##cdr _%e182809183771%_))) + (_%hd182810183774%_ (let () (declare (not safe)) - (##car _%e181677182639%_)))) + (##car _%e182809183771%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181678182642%_)) + (gx#identifier? _%hd182810183774%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd181678182642%_)) + (gx#stx-eq? '%#ref _%hd182810183774%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181679182644%_)) - (let ((_%e181680182647%_ + (gx#stx-pair? _%tl182811183776%_)) + (let ((_%e182812183779%_ (let () (declare (not safe)) - (gx#stx-e _%tl181679182644%_)))) - (let ((_%tl181682182652%_ + (gx#stx-e _%tl182811183776%_)))) + (let ((_%tl182814183784%_ (let () (declare (not safe)) - (##cdr _%e181680182647%_))) - (_%hd181681182650%_ + (##cdr _%e182812183779%_))) + (_%hd182813183782%_ (let () (declare (not safe)) - (##car _%e181680182647%_)))) + (##car _%e182812183779%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181682182652%_)) + _%tl182814183784%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181676182636%_)) - (let ((_%e181683182655%_ + _%tl182808183768%_)) + (let ((_%e182815183787%_ (let () (declare (not safe)) (gx#stx-e - _%tl181676182636%_)))) - (let ((_%tl181685182660%_ + _%tl182808183768%_)))) + (let ((_%tl182817183792%_ (let () (declare (not safe)) - (##cdr _%e181683182655%_))) - (_%hd181684182658%_ + (##cdr _%e182815183787%_))) + (_%hd182816183790%_ (let () (declare (not safe)) - (##car _%e181683182655%_)))) + (##car _%e182815183787%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181684182658%_)) - (let ((_%e181686182663%_ + _%hd182816183790%_)) + (let ((_%e182818183795%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd181684182658%_)))) - (let ((_%tl181688182668%_ + (gx#stx-e _%hd182816183790%_)))) + (let ((_%tl182820183800%_ (let () (declare (not safe)) - (##cdr _%e181686182663%_))) - (_%hd181687182666%_ + (##cdr _%e182818183795%_))) + (_%hd182819183798%_ (let () (declare (not safe)) - (##car _%e181686182663%_)))) + (##car _%e182818183795%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181687182666%_)) + (gx#identifier? _%hd182819183798%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd181687182666%_)) + (gx#stx-eq? '%#ref _%hd182819183798%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181688182668%_)) - (let ((_%e181689182671%_ + (gx#stx-pair? _%tl182820183800%_)) + (let ((_%e182821183803%_ (let () (declare (not safe)) - (gx#stx-e _%tl181688182668%_)))) - (let ((_%tl181691182676%_ + (gx#stx-e _%tl182820183800%_)))) + (let ((_%tl182823183808%_ (let () (declare (not safe)) - (##cdr _%e181689182671%_))) - (_%hd181690182674%_ + (##cdr _%e182821183803%_))) + (_%hd182822183806%_ (let () (declare (not safe)) - (##car _%e181689182671%_)))) + (##car _%e182821183803%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181691182676%_)) + (gx#stx-null? _%tl182823183808%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181685182660%_)) - (_%__kont189612189613%_ - _%hd181690182674%_ - _%hd181681182650%_) + _%tl182817183792%_)) + (_%__kont190744190745%_ + _%hd182822183806%_ + _%hd182813183782%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181685182660%_)) - (let ((_%e181710182347%_ + _%tl182817183792%_)) + (let ((_%e182842183479%_ (let () (declare (not safe)) (gx#stx-e - _%tl181685182660%_)))) - (let ((_%tl181712182352%_ + _%tl182817183792%_)))) + (let ((_%tl182844183484%_ (let () (declare (not safe)) - (##cdr _%e181710182347%_))) - (_%hd181711182350%_ + (##cdr _%e182842183479%_))) + (_%hd182843183482%_ (let () (declare (not safe)) - (##car _%e181710182347%_)))) + (##car _%e182842183479%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181711182350%_)) - (let ((_%e181713182355%_ + _%hd182843183482%_)) + (let ((_%e182845183487%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd181711182350%_)))) - (let ((_%tl181715182360%_ + (gx#stx-e _%hd182843183482%_)))) + (let ((_%tl182847183492%_ (let () (declare (not safe)) - (##cdr _%e181713182355%_))) - (_%hd181714182358%_ + (##cdr _%e182845183487%_))) + (_%hd182846183490%_ (let () (declare (not safe)) - (##car _%e181713182355%_)))) + (##car _%e182845183487%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181714182358%_)) + (gx#identifier? _%hd182846183490%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd181714182358%_)) + (gx#stx-eq? '%#quote _%hd182846183490%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181715182360%_)) - (let ((_%e181716182363%_ + (gx#stx-pair? _%tl182847183492%_)) + (let ((_%e182848183495%_ (let () (declare (not safe)) - (gx#stx-e _%tl181715182360%_)))) - (let ((_%tl181718182368%_ + (gx#stx-e _%tl182847183492%_)))) + (let ((_%tl182850183500%_ (let () (declare (not safe)) - (##cdr _%e181716182363%_))) - (_%hd181717182366%_ + (##cdr _%e182848183495%_))) + (_%hd182849183498%_ (let () (declare (not safe)) - (##car _%e181716182363%_)))) + (##car _%e182848183495%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181718182368%_)) + (gx#stx-null? _%tl182850183500%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181712182352%_)) - (_%__kont189614189615%_ - _%hd181717182366%_ - _%hd181684182658%_ - _%hd181681182650%_) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) + _%tl182844183484%_)) + (_%__kont190746190747%_ + _%hd182849183498%_ + _%hd182816183790%_ + _%hd182813183782%_) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd181714182358%_)) + _%hd182846183490%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181715182360%_)) - (let ((_%e181776182159%_ + (gx#stx-pair? _%tl182847183492%_)) + (let ((_%e182908183291%_ (let () (declare (not safe)) - (gx#stx-e _%tl181715182360%_)))) - (let ((_%tl181778182164%_ + (gx#stx-e _%tl182847183492%_)))) + (let ((_%tl182910183296%_ (let () (declare (not safe)) - (##cdr _%e181776182159%_))) - (_%hd181777182162%_ + (##cdr _%e182908183291%_))) + (_%hd182909183294%_ (let () (declare (not safe)) - (##car _%e181776182159%_)))) + (##car _%e182908183291%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181778182164%_)) + _%tl182910183296%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181712182352%_)) - (_%__kont189618189619%_ - _%hd181777182162%_ - _%hd181690182674%_ - _%hd181681182650%_) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) - (_%__kont189624189625%_))) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)))) + _%tl182844183484%_)) + (_%__kont190750190751%_ + _%hd182909183294%_ + _%hd182822183806%_ + _%hd182813183782%_) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_))) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189624189625%_))) + (_%__kont190756190757%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181685182660%_)) - (let ((_%e181710182347%_ + _%tl182817183792%_)) + (let ((_%e182842183479%_ (let () (declare (not safe)) (gx#stx-e - _%tl181685182660%_)))) - (let ((_%tl181712182352%_ + _%tl182817183792%_)))) + (let ((_%tl182844183484%_ (let () (declare (not safe)) - (##cdr _%e181710182347%_))) - (_%hd181711182350%_ + (##cdr _%e182842183479%_))) + (_%hd182843183482%_ (let () (declare (not safe)) - (##car _%e181710182347%_)))) + (##car _%e182842183479%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181711182350%_)) - (let ((_%e181713182355%_ + _%hd182843183482%_)) + (let ((_%e182845183487%_ (let () (declare (not safe)) (gx#stx-e - _%hd181711182350%_)))) - (let ((_%tl181715182360%_ + _%hd182843183482%_)))) + (let ((_%tl182847183492%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e181713182355%_))) - (_%hd181714182358%_ - (let () (declare (not safe)) (##car _%e181713182355%_)))) + (##cdr _%e182845183487%_))) + (_%hd182846183490%_ + (let () (declare (not safe)) (##car _%e182845183487%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181714182358%_)) + (gx#identifier? _%hd182846183490%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd181714182358%_)) + (gx#stx-eq? '%#quote _%hd182846183490%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181715182360%_)) - (let ((_%e181716182363%_ + (gx#stx-pair? _%tl182847183492%_)) + (let ((_%e182848183495%_ (let () (declare (not safe)) - (gx#stx-e _%tl181715182360%_)))) - (let ((_%tl181718182368%_ + (gx#stx-e _%tl182847183492%_)))) + (let ((_%tl182850183500%_ (let () (declare (not safe)) - (##cdr _%e181716182363%_))) - (_%hd181717182366%_ + (##cdr _%e182848183495%_))) + (_%hd182849183498%_ (let () (declare (not safe)) - (##car _%e181716182363%_)))) + (##car _%e182848183495%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181718182368%_)) + (gx#stx-null? _%tl182850183500%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181712182352%_)) - (_%__kont189614189615%_ - _%hd181717182366%_ - _%hd181684182658%_ - _%hd181681182650%_) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) + (gx#stx-null? _%tl182844183484%_)) + (_%__kont190746190747%_ + _%hd182849183498%_ + _%hd182816183790%_ + _%hd182813183782%_) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189624189625%_)))) - (_%__kont189624189625%_))))) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181685182660%_)) - (let ((_%e181710182347%_ + (gx#stx-pair? _%tl182817183792%_)) + (let ((_%e182842183479%_ (let () (declare (not safe)) - (gx#stx-e _%tl181685182660%_)))) - (let ((_%tl181712182352%_ + (gx#stx-e _%tl182817183792%_)))) + (let ((_%tl182844183484%_ (let () (declare (not safe)) - (##cdr _%e181710182347%_))) - (_%hd181711182350%_ + (##cdr _%e182842183479%_))) + (_%hd182843183482%_ (let () (declare (not safe)) - (##car _%e181710182347%_)))) + (##car _%e182842183479%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181711182350%_)) - (let ((_%e181713182355%_ + _%hd182843183482%_)) + (let ((_%e182845183487%_ (let () (declare (not safe)) (gx#stx-e - _%hd181711182350%_)))) - (let ((_%tl181715182360%_ + _%hd182843183482%_)))) + (let ((_%tl182847183492%_ (let () (declare (not safe)) - (##cdr _%e181713182355%_))) - (_%hd181714182358%_ + (##cdr _%e182845183487%_))) + (_%hd182846183490%_ (let () (declare (not safe)) - (##car _%e181713182355%_)))) + (##car _%e182845183487%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181714182358%_)) + _%hd182846183490%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181714182358%_)) + _%hd182846183490%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl181715182360%_)) - (let ((_%e181716182363%_ + (gx#stx-pair? _%tl182847183492%_)) + (let ((_%e182848183495%_ (let () (declare (not safe)) - (gx#stx-e _%tl181715182360%_)))) - (let ((_%tl181718182368%_ + (gx#stx-e _%tl182847183492%_)))) + (let ((_%tl182850183500%_ (let () (declare (not safe)) - (##cdr _%e181716182363%_))) - (_%hd181717182366%_ + (##cdr _%e182848183495%_))) + (_%hd182849183498%_ (let () (declare (not safe)) - (##car _%e181716182363%_)))) + (##car _%e182848183495%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181718182368%_)) + (gx#stx-null? _%tl182850183500%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181712182352%_)) - (_%__kont189614189615%_ - _%hd181717182366%_ - _%hd181684182658%_ - _%hd181681182650%_) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)) + (gx#stx-null? _%tl182844183484%_)) + (_%__kont190746190747%_ + _%hd182849183498%_ + _%hd182816183790%_ + _%hd182813183782%_) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_))) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181685182660%_)) - (let ((_%e181710182347%_ + (gx#stx-pair? _%tl182817183792%_)) + (let ((_%e182842183479%_ (let () (declare (not safe)) - (gx#stx-e _%tl181685182660%_)))) - (let ((_%tl181712182352%_ + (gx#stx-e _%tl182817183792%_)))) + (let ((_%tl182844183484%_ (let () (declare (not safe)) - (##cdr _%e181710182347%_))) - (_%hd181711182350%_ + (##cdr _%e182842183479%_))) + (_%hd182843183482%_ (let () (declare (not safe)) - (##car _%e181710182347%_)))) + (##car _%e182842183479%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181711182350%_)) - (let ((_%e181713182355%_ + (gx#stx-pair? _%hd182843183482%_)) + (let ((_%e182845183487%_ (let () (declare (not safe)) (gx#stx-e - _%hd181711182350%_)))) - (let ((_%tl181715182360%_ + _%hd182843183482%_)))) + (let ((_%tl182847183492%_ (let () (declare (not safe)) - (##cdr _%e181713182355%_))) - (_%hd181714182358%_ + (##cdr _%e182845183487%_))) + (_%hd182846183490%_ (let () (declare (not safe)) - (##car _%e181713182355%_)))) + (##car _%e182845183487%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181714182358%_)) + _%hd182846183490%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181714182358%_)) + _%hd182846183490%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181715182360%_)) - (let ((_%e181716182363%_ + _%tl182847183492%_)) + (let ((_%e182848183495%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl181715182360%_)))) - (let ((_%tl181718182368%_ + (gx#stx-e _%tl182847183492%_)))) + (let ((_%tl182850183500%_ (let () (declare (not safe)) - (##cdr _%e181716182363%_))) - (_%hd181717182366%_ + (##cdr _%e182848183495%_))) + (_%hd182849183498%_ (let () (declare (not safe)) - (##car _%e181716182363%_)))) + (##car _%e182848183495%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181718182368%_)) + (gx#stx-null? _%tl182850183500%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181712182352%_)) - (_%__kont189614189615%_ - _%hd181717182366%_ - _%hd181684182658%_ - _%hd181681182650%_) + (gx#stx-null? _%tl182844183484%_)) + (_%__kont190746190747%_ + _%hd182849183498%_ + _%hd182816183790%_ + _%hd182813183782%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd181687182666%_)) + (gx#stx-eq? '%#quote _%hd182819183798%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181688182668%_)) - (let ((_%e181740182259%_ + (gx#stx-pair? _%tl182820183800%_)) + (let ((_%e182872183391%_ (let () (declare (not safe)) - (gx#stx-e _%tl181688182668%_)))) - (let ((_%tl181742182264%_ + (gx#stx-e _%tl182820183800%_)))) + (let ((_%tl182874183396%_ (let () (declare (not safe)) - (##cdr _%e181740182259%_))) - (_%hd181741182262%_ + (##cdr _%e182872183391%_))) + (_%hd182873183394%_ (let () (declare (not safe)) - (##car _%e181740182259%_)))) - (_%__kont189624189625%_))) - (_%__kont189624189625%_)) + (##car _%e182872183391%_)))) + (_%__kont190756190757%_))) + (_%__kont190756190757%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd181687182666%_)) + _%hd182819183798%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181688182668%_)) - (let ((_%e181800182019%_ + (gx#stx-pair? _%tl182820183800%_)) + (let ((_%e182932183151%_ (let () (declare (not safe)) (gx#stx-e - _%tl181688182668%_)))) - (let ((_%tl181802182024%_ + _%tl182820183800%_)))) + (let ((_%tl182934183156%_ (let () (declare (not safe)) - (##cdr _%e181800182019%_))) - (_%hd181801182022%_ + (##cdr _%e182932183151%_))) + (_%hd182933183154%_ (let () (declare (not safe)) - (##car _%e181800182019%_)))) - (_%__kont189624189625%_))) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) + (##car _%e182932183151%_)))) + (_%__kont190756190757%_))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd181687182666%_)) + (gx#stx-eq? '%#quote _%hd182819183798%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181688182668%_)) - (let ((_%e181740182259%_ + (gx#stx-pair? _%tl182820183800%_)) + (let ((_%e182872183391%_ (let () (declare (not safe)) - (gx#stx-e _%tl181688182668%_)))) - (let ((_%tl181742182264%_ + (gx#stx-e _%tl182820183800%_)))) + (let ((_%tl182874183396%_ (let () (declare (not safe)) - (##cdr _%e181740182259%_))) - (_%hd181741182262%_ + (##cdr _%e182872183391%_))) + (_%hd182873183394%_ (let () (declare (not safe)) - (##car _%e181740182259%_)))) + (##car _%e182872183391%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181742182264%_)) + (gx#stx-null? _%tl182874183396%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181712182352%_)) - (_%__kont189616189617%_ - _%hd181711182350%_ - _%hd181741182262%_ - _%hd181681182650%_) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) + _%tl182844183484%_)) + (_%__kont190748190749%_ + _%hd182843183482%_ + _%hd182873183394%_ + _%hd182813183782%_) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd181687182666%_)) + _%hd182819183798%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181688182668%_)) - (let ((_%e181800182019%_ + (gx#stx-pair? _%tl182820183800%_)) + (let ((_%e182932183151%_ (let () (declare (not safe)) - (gx#stx-e _%tl181688182668%_)))) - (let ((_%tl181802182024%_ + (gx#stx-e _%tl182820183800%_)))) + (let ((_%tl182934183156%_ (let () (declare (not safe)) - (##cdr _%e181800182019%_))) - (_%hd181801182022%_ + (##cdr _%e182932183151%_))) + (_%hd182933183154%_ (let () (declare (not safe)) - (##car _%e181800182019%_)))) - (_%__kont189624189625%_))) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))))) + (##car _%e182932183151%_)))) + (_%__kont190756190757%_))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd181687182666%_)) + (gx#stx-eq? '%#quote _%hd182819183798%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181688182668%_)) - (let ((_%e181740182259%_ + (gx#stx-pair? _%tl182820183800%_)) + (let ((_%e182872183391%_ (let () (declare (not safe)) - (gx#stx-e _%tl181688182668%_)))) - (let ((_%tl181742182264%_ + (gx#stx-e _%tl182820183800%_)))) + (let ((_%tl182874183396%_ (let () (declare (not safe)) - (##cdr _%e181740182259%_))) - (_%hd181741182262%_ + (##cdr _%e182872183391%_))) + (_%hd182873183394%_ (let () (declare (not safe)) - (##car _%e181740182259%_)))) + (##car _%e182872183391%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181742182264%_)) + (gx#stx-null? _%tl182874183396%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181712182352%_)) - (_%__kont189616189617%_ - _%hd181711182350%_ - _%hd181741182262%_ - _%hd181681182650%_) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) + (gx#stx-null? _%tl182844183484%_)) + (_%__kont190748190749%_ + _%hd182843183482%_ + _%hd182873183394%_ + _%hd182813183782%_) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd181687182666%_)) + (gx#stx-eq? '%#quote-syntax _%hd182819183798%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181688182668%_)) - (let ((_%e181800182019%_ + (gx#stx-pair? _%tl182820183800%_)) + (let ((_%e182932183151%_ (let () (declare (not safe)) - (gx#stx-e _%tl181688182668%_)))) - (let ((_%tl181802182024%_ + (gx#stx-e _%tl182820183800%_)))) + (let ((_%tl182934183156%_ (let () (declare (not safe)) - (##cdr _%e181800182019%_))) - (_%hd181801182022%_ + (##cdr _%e182932183151%_))) + (_%hd182933183154%_ (let () (declare (not safe)) - (##car _%e181800182019%_)))) - (_%__kont189624189625%_))) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) + (##car _%e182932183151%_)))) + (_%__kont190756190757%_))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181687182666%_)) + _%hd182819183798%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl181688182668%_)) - (let ((_%e181740182259%_ + (gx#stx-pair? _%tl182820183800%_)) + (let ((_%e182872183391%_ (let () (declare (not safe)) - (gx#stx-e _%tl181688182668%_)))) - (let ((_%tl181742182264%_ + (gx#stx-e _%tl182820183800%_)))) + (let ((_%tl182874183396%_ (let () (declare (not safe)) - (##cdr _%e181740182259%_))) - (_%hd181741182262%_ + (##cdr _%e182872183391%_))) + (_%hd182873183394%_ (let () (declare (not safe)) - (##car _%e181740182259%_)))) + (##car _%e182872183391%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181742182264%_)) + (gx#stx-null? _%tl182874183396%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181712182352%_)) - (_%__kont189616189617%_ - _%hd181711182350%_ - _%hd181741182262%_ - _%hd181681182650%_) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) + (gx#stx-null? _%tl182844183484%_)) + (_%__kont190748190749%_ + _%hd182843183482%_ + _%hd182873183394%_ + _%hd182813183782%_) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd181687182666%_)) + (gx#stx-eq? '%#quote-syntax _%hd182819183798%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181688182668%_)) - (let ((_%e181800182019%_ + (gx#stx-pair? _%tl182820183800%_)) + (let ((_%e182932183151%_ (let () (declare (not safe)) - (gx#stx-e _%tl181688182668%_)))) - (let ((_%tl181802182024%_ + (gx#stx-e _%tl182820183800%_)))) + (let ((_%tl182934183156%_ (let () (declare (not safe)) - (##cdr _%e181800182019%_))) - (_%hd181801182022%_ + (##cdr _%e182932183151%_))) + (_%hd182933183154%_ (let () (declare (not safe)) - (##car _%e181800182019%_)))) + (##car _%e182932183151%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181802182024%_)) + (gx#stx-null? _%tl182934183156%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd181714182358%_)) + (gx#stx-eq? '%#ref _%hd182846183490%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181715182360%_)) - (let ((_%e181809182043%_ + (gx#stx-pair? _%tl182847183492%_)) + (let ((_%e182941183175%_ (let () (declare (not safe)) (gx#stx-e - _%tl181715182360%_)))) - (let ((_%tl181811182048%_ + _%tl182847183492%_)))) + (let ((_%tl182943183180%_ (let () (declare (not safe)) - (##cdr _%e181809182043%_))) - (_%hd181810182046%_ + (##cdr _%e182941183175%_))) + (_%hd182942183178%_ (let () (declare (not safe)) - (##car _%e181809182043%_)))) + (##car _%e182941183175%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181811182048%_)) + _%tl182943183180%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181712182352%_)) - (_%__kont189620189621%_ - _%hd181810182046%_ - _%hd181801182022%_ - _%hd181681182650%_) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) + _%tl182844183484%_)) + (_%__kont190752190753%_ + _%hd182942183178%_ + _%hd182933183154%_ + _%hd182813183782%_) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181687182666%_)) + _%hd182819183798%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181688182668%_)) - (let ((_%e181740182259%_ + _%tl182820183800%_)) + (let ((_%e182872183391%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl181688182668%_)))) - (let ((_%tl181742182264%_ + (gx#stx-e _%tl182820183800%_)))) + (let ((_%tl182874183396%_ (let () (declare (not safe)) - (##cdr _%e181740182259%_))) - (_%hd181741182262%_ + (##cdr _%e182872183391%_))) + (_%hd182873183394%_ (let () (declare (not safe)) - (##car _%e181740182259%_)))) + (##car _%e182872183391%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181742182264%_)) + (gx#stx-null? _%tl182874183396%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181712182352%_)) - (_%__kont189616189617%_ - _%hd181711182350%_ - _%hd181741182262%_ - _%hd181681182650%_) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) + (gx#stx-null? _%tl182844183484%_)) + (_%__kont190748190749%_ + _%hd182843183482%_ + _%hd182873183394%_ + _%hd182813183782%_) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd181687182666%_)) + _%hd182819183798%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl181688182668%_)) - (let ((_%e181800182019%_ + (gx#stx-pair? _%tl182820183800%_)) + (let ((_%e182932183151%_ (let () (declare (not safe)) - (gx#stx-e _%tl181688182668%_)))) - (let ((_%tl181802182024%_ + (gx#stx-e _%tl182820183800%_)))) + (let ((_%tl182934183156%_ (let () (declare (not safe)) - (##cdr _%e181800182019%_))) - (_%hd181801182022%_ + (##cdr _%e182932183151%_))) + (_%hd182933183154%_ (let () (declare (not safe)) - (##car _%e181800182019%_)))) - (_%__kont189624189625%_))) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))))) + (##car _%e182932183151%_)))) + (_%__kont190756190757%_))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181687182666%_)) + _%hd182819183798%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181688182668%_)) - (let ((_%e181740182259%_ + _%tl182820183800%_)) + (let ((_%e182872183391%_ (let () (declare (not safe)) (gx#stx-e - _%tl181688182668%_)))) - (let ((_%tl181742182264%_ + _%tl182820183800%_)))) + (let ((_%tl182874183396%_ (let () (declare (not safe)) - (##cdr _%e181740182259%_))) - (_%hd181741182262%_ + (##cdr _%e182872183391%_))) + (_%hd182873183394%_ (let () (declare (not safe)) - (##car _%e181740182259%_)))) + (##car _%e182872183391%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181742182264%_)) + _%tl182874183396%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl181712182352%_)) - (_%__kont189616189617%_ - _%hd181711182350%_ - _%hd181741182262%_ - _%hd181681182650%_) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) + (gx#stx-null? _%tl182844183484%_)) + (_%__kont190748190749%_ + _%hd182843183482%_ + _%hd182873183394%_ + _%hd182813183782%_) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189624189625%_)) + (_%__kont190756190757%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd181687182666%_)) + _%hd182819183798%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181688182668%_)) - (let ((_%e181800182019%_ + _%tl182820183800%_)) + (let ((_%e182932183151%_ (let () (declare (not safe)) (gx#stx-e - _%tl181688182668%_)))) - (let ((_%tl181802182024%_ + _%tl182820183800%_)))) + (let ((_%tl182934183156%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e181800182019%_))) - (_%hd181801182022%_ - (let () (declare (not safe)) (##car _%e181800182019%_)))) - (_%__kont189624189625%_))) + (##cdr _%e182932183151%_))) + (_%hd182933183154%_ + (let () (declare (not safe)) (##car _%e182932183151%_)))) + (_%__kont190756190757%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181687182666%_)) + _%hd182819183798%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181688182668%_)) - (let ((_%e181740182259%_ + (gx#stx-pair? _%tl182820183800%_)) + (let ((_%e182872183391%_ (let () (declare (not safe)) (gx#stx-e - _%tl181688182668%_)))) - (let ((_%tl181742182264%_ + _%tl182820183800%_)))) + (let ((_%tl182874183396%_ (let () (declare (not safe)) - (##cdr _%e181740182259%_))) - (_%hd181741182262%_ + (##cdr _%e182872183391%_))) + (_%hd182873183394%_ (let () (declare (not safe)) - (##car _%e181740182259%_)))) - (_%__kont189624189625%_))) - (_%__kont189624189625%_)) + (##car _%e182872183391%_)))) + (_%__kont190756190757%_))) + (_%__kont190756190757%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd181687182666%_)) + _%hd182819183798%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181688182668%_)) - (let ((_%e181800182019%_ + _%tl182820183800%_)) + (let ((_%e182932183151%_ (let () (declare (not safe)) (gx#stx-e - _%tl181688182668%_)))) - (let ((_%tl181802182024%_ + _%tl182820183800%_)))) + (let ((_%tl182934183156%_ (let () (declare (not safe)) - (##cdr _%e181800182019%_))) - (_%hd181801182022%_ + (##cdr _%e182932183151%_))) + (_%hd182933183154%_ (let () (declare (not safe)) - (##car _%e181800182019%_)))) - (_%__kont189624189625%_))) - (_%__kont189624189625%_)) - (_%__kont189624189625%_))))) + (##car _%e182932183151%_)))) + (_%__kont190756190757%_))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181685182660%_)) - (let ((_%e181710182347%_ + (gx#stx-pair? _%tl182817183792%_)) + (let ((_%e182842183479%_ (let () (declare (not safe)) - (gx#stx-e _%tl181685182660%_)))) - (let ((_%tl181712182352%_ + (gx#stx-e _%tl182817183792%_)))) + (let ((_%tl182844183484%_ (let () (declare (not safe)) - (##cdr _%e181710182347%_))) - (_%hd181711182350%_ + (##cdr _%e182842183479%_))) + (_%hd182843183482%_ (let () (declare (not safe)) - (##car _%e181710182347%_)))) + (##car _%e182842183479%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181711182350%_)) - (let ((_%e181713182355%_ + (gx#stx-pair? _%hd182843183482%_)) + (let ((_%e182845183487%_ (let () (declare (not safe)) - (gx#stx-e _%hd181711182350%_)))) - (let ((_%tl181715182360%_ + (gx#stx-e _%hd182843183482%_)))) + (let ((_%tl182847183492%_ (let () (declare (not safe)) - (##cdr _%e181713182355%_))) - (_%hd181714182358%_ + (##cdr _%e182845183487%_))) + (_%hd182846183490%_ (let () (declare (not safe)) - (##car _%e181713182355%_)))) + (##car _%e182845183487%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181714182358%_)) + _%hd182846183490%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181714182358%_)) + _%hd182846183490%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181715182360%_)) - (let ((_%e181716182363%_ + _%tl182847183492%_)) + (let ((_%e182848183495%_ (let () (declare (not safe)) (gx#stx-e - _%tl181715182360%_)))) - (let ((_%tl181718182368%_ + _%tl182847183492%_)))) + (let ((_%tl182850183500%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e181716182363%_))) - (_%hd181717182366%_ - (let () (declare (not safe)) (##car _%e181716182363%_)))) + (##cdr _%e182848183495%_))) + (_%hd182849183498%_ + (let () (declare (not safe)) (##car _%e182848183495%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181718182368%_)) + (gx#stx-null? _%tl182850183500%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181712182352%_)) - (_%__kont189614189615%_ - _%hd181717182366%_ - _%hd181684182658%_ - _%hd181681182650%_) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) + (gx#stx-null? _%tl182844183484%_)) + (_%__kont190746190747%_ + _%hd182849183498%_ + _%hd182816183790%_ + _%hd182813183782%_) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189624189625%_)) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_))))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181685182660%_)) - (let ((_%e181710182347%_ + (gx#stx-pair? _%tl182817183792%_)) + (let ((_%e182842183479%_ (let () (declare (not safe)) - (gx#stx-e _%tl181685182660%_)))) - (let ((_%tl181712182352%_ + (gx#stx-e _%tl182817183792%_)))) + (let ((_%tl182844183484%_ (let () (declare (not safe)) - (##cdr _%e181710182347%_))) - (_%hd181711182350%_ + (##cdr _%e182842183479%_))) + (_%hd182843183482%_ (let () (declare (not safe)) - (##car _%e181710182347%_)))) + (##car _%e182842183479%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181711182350%_)) - (let ((_%e181713182355%_ + (gx#stx-pair? _%hd182843183482%_)) + (let ((_%e182845183487%_ (let () (declare (not safe)) - (gx#stx-e _%hd181711182350%_)))) - (let ((_%tl181715182360%_ + (gx#stx-e _%hd182843183482%_)))) + (let ((_%tl182847183492%_ (let () (declare (not safe)) - (##cdr _%e181713182355%_))) - (_%hd181714182358%_ + (##cdr _%e182845183487%_))) + (_%hd182846183490%_ (let () (declare (not safe)) - (##car _%e181713182355%_)))) + (##car _%e182845183487%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181714182358%_)) + (gx#identifier? _%hd182846183490%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181714182358%_)) + _%hd182846183490%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181715182360%_)) - (let ((_%e181716182363%_ + _%tl182847183492%_)) + (let ((_%e182848183495%_ (let () (declare (not safe)) (gx#stx-e - _%tl181715182360%_)))) - (let ((_%tl181718182368%_ + _%tl182847183492%_)))) + (let ((_%tl182850183500%_ (let () (declare (not safe)) - (##cdr _%e181716182363%_))) - (_%hd181717182366%_ + (##cdr _%e182848183495%_))) + (_%hd182849183498%_ (let () (declare (not safe)) - (##car _%e181716182363%_)))) + (##car _%e182848183495%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181718182368%_)) + _%tl182850183500%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181712182352%_)) - (_%__kont189614189615%_ - _%hd181717182366%_ - _%hd181684182658%_ - _%hd181681182650%_) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_))))) + _%tl182844183484%_)) + (_%__kont190746190747%_ + _%hd182849183498%_ + _%hd182816183790%_ + _%hd182813183782%_) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd181678182642%_)) + _%hd182810183774%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181679182644%_)) - (let ((_%e181824181882%_ + (gx#stx-pair? _%tl182811183776%_)) + (let ((_%e182956183014%_ (let () (declare (not safe)) (gx#stx-e - _%tl181679182644%_)))) - (let ((_%tl181826181887%_ + _%tl182811183776%_)))) + (let ((_%tl182958183019%_ (let () (declare (not safe)) - (##cdr _%e181824181882%_))) - (_%hd181825181885%_ + (##cdr _%e182956183014%_))) + (_%hd182957183017%_ (let () (declare (not safe)) - (##car _%e181824181882%_)))) + (##car _%e182956183014%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181825181885%_)) - (let ((_%e181827181890%_ + _%hd182957183017%_)) + (let ((_%e182959183022%_ (let () (declare (not safe)) (gx#stx-e - _%hd181825181885%_)))) - (let ((_%tl181829181895%_ + _%hd182957183017%_)))) + (let ((_%tl182961183027%_ (let () (declare (not safe)) - (##cdr _%e181827181890%_))) - (_%hd181828181893%_ + (##cdr _%e182959183022%_))) + (_%hd182960183025%_ (let () (declare (not safe)) - (##car _%e181827181890%_)))) + (##car _%e182959183022%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181829181895%_)) + _%tl182961183027%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl181826181887%_)) - (let ((_%e181830181898%_ + (gx#stx-pair? _%tl182958183019%_)) + (let ((_%e182962183030%_ (let () (declare (not safe)) - (gx#stx-e _%tl181826181887%_)))) - (let ((_%tl181832181903%_ + (gx#stx-e _%tl182958183019%_)))) + (let ((_%tl182964183035%_ (let () (declare (not safe)) - (##cdr _%e181830181898%_))) - (_%hd181831181901%_ + (##cdr _%e182962183030%_))) + (_%hd182963183033%_ (let () (declare (not safe)) - (##car _%e181830181898%_)))) + (##car _%e182962183030%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181832181903%_)) + (gx#stx-null? _%tl182964183035%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181676182636%_)) - (let ((_%e181833181906%_ + (gx#stx-pair? _%tl182808183768%_)) + (let ((_%e182965183038%_ (let () (declare (not safe)) - (gx#stx-e _%tl181676182636%_)))) - (let ((_%tl181835181911%_ + (gx#stx-e _%tl182808183768%_)))) + (let ((_%tl182967183043%_ (let () (declare (not safe)) - (##cdr _%e181833181906%_))) - (_%hd181834181909%_ + (##cdr _%e182965183038%_))) + (_%hd182966183041%_ (let () (declare (not safe)) - (##car _%e181833181906%_)))) + (##car _%e182965183038%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181834181909%_)) - (let ((_%e181836181914%_ + (gx#stx-pair? _%hd182966183041%_)) + (let ((_%e182968183046%_ (let () (declare (not safe)) (gx#stx-e - _%hd181834181909%_)))) - (let ((_%tl181838181919%_ + _%hd182966183041%_)))) + (let ((_%tl182970183051%_ (let () (declare (not safe)) - (##cdr _%e181836181914%_))) - (_%hd181837181917%_ + (##cdr _%e182968183046%_))) + (_%hd182969183049%_ (let () (declare (not safe)) - (##car _%e181836181914%_)))) + (##car _%e182968183046%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181837181917%_)) + _%hd182969183049%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd181837181917%_)) + _%hd182969183049%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181838181919%_)) - (let ((_%e181839181922%_ + _%tl182970183051%_)) + (let ((_%e182971183054%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl181838181919%_)))) - (let ((_%tl181841181927%_ + (gx#stx-e _%tl182970183051%_)))) + (let ((_%tl182973183059%_ (let () (declare (not safe)) - (##cdr _%e181839181922%_))) - (_%hd181840181925%_ + (##cdr _%e182971183054%_))) + (_%hd182972183057%_ (let () (declare (not safe)) - (##car _%e181839181922%_)))) + (##car _%e182971183054%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181841181927%_)) + (gx#stx-null? _%tl182973183059%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181835181911%_)) - (_%__kont189622189623%_ - _%hd181840181925%_ - _%hd181831181901%_ - _%hd181828181893%_) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) + (gx#stx-null? _%tl182967183043%_)) + (_%__kont190754190755%_ + _%hd182972183057%_ + _%hd182963183033%_ + _%hd182960183025%_) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)) - (_%__kont189624189625%_))) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_)))) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)) + (_%__kont190756190757%_))) + (_%__kont190756190757%_)))) + (_%__kont190756190757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189624189625%_)) - (_%__kont189624189625%_)) - (_%__kont189624189625%_)))) - (_%__kont189624189625%_))))))))) - (_%assert-type180650%_ - (lambda (_%id181556%_ _%t181557%_) - (let _%lp181559%_ ((_%rest181561%_ _%env-type180632%_)) - (let* ((_%rest181562181570%_ _%rest181561%_) - (_%else181564181578%_ (lambda () '#!void)) - (_%K181566181637%_ - (lambda (_%rest181581%_ _%type-info181582%_) - (let* ((_%type-info181583181595%_ - _%type-info181582%_) - (_%else181585181603%_ + (_%__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%_ (lambda () - (_%lp181559%_ _%rest181581%_))) - (_%K181587181613%_ - (lambda (_%val181606%_ - _%xt181607%_ - _%xid181608%_) + (_%lp182691%_ _%rest182713%_))) + (_%K182719182745%_ + (lambda (_%val182738%_ + _%xt182739%_ + _%xid182740%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%id181556%_ - _%xid181608%_)) - (if (eq? _%t181557%_ - _%xt181607%_) - _%val181606%_ - (if _%val181606%_ + _%id182688%_ + _%xid182740%_)) + (if (eq? _%t182689%_ + _%xt182739%_) + _%val182738%_ + (if _%val182738%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%t181557%_ + _%t182689%_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure-instance-of? - _%xt181607%_ + _%xt182739%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t181557%_ _%xt181607%_)) + (gxc#!class-subclass? _%t182689%_ _%xt182739%_)) '#f) '#f) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%t181557%_ + _%t182689%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%xt181607%_ + _%xt182739%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t181557%_ _%xt181607%_))) + (gxc#!class-subclass? _%t182689%_ _%xt182739%_))) '#f - (_%lp181559%_ _%rest181581%_)))) + (_%lp182691%_ _%rest182713%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp181559%_ - _%rest181581%_))))) - (if (let () - (declare (not safe)) - (##pair? _%type-info181583181595%_)) - (let ((_%hd181588181616%_ + (_%lp182691%_ + _%rest182713%_))))) + (if (pair? _%type-info182715182727%_) + (let ((_%hd182720182748%_ (let () (declare (not safe)) - (##car _%type-info181583181595%_))) - (_%tl181589181618%_ + (##car _%type-info182715182727%_))) + (_%tl182721182750%_ (let () (declare (not safe)) - (##cdr _%type-info181583181595%_)))) - (let ((_%xid181621%_ - _%hd181588181616%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl181589181618%_)) - (let ((_%hd181590181623%_ + (##cdr _%type-info182715182727%_)))) + (let ((_%xid182753%_ + _%hd182720182748%_)) + (if (pair? _%tl182721182750%_) + (let ((_%hd182722182755%_ (let () (declare (not safe)) - (##car _%tl181589181618%_))) - (_%tl181591181625%_ + (##car _%tl182721182750%_))) + (_%tl182723182757%_ (let () (declare (not safe)) - (##cdr _%tl181589181618%_)))) - (let ((_%xt181628%_ - _%hd181590181623%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl181591181625%_)) - (let ((_%hd181592181630%_ + (##cdr _%tl182721182750%_)))) + (let ((_%xt182760%_ + _%hd182722182755%_)) + (if (pair? _%tl182723182757%_) + (let ((_%hd182724182762%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl181591181625%_))) - (_%tl181593181632%_ + (##car _%tl182723182757%_))) + (_%tl182725182764%_ (let () (declare (not safe)) - (##cdr _%tl181591181625%_)))) - (let ((_%val181635%_ _%hd181592181630%_)) - (if (let () - (declare (not safe)) - (##null? _%tl181593181632%_)) - (_%K181587181613%_ - _%val181635%_ - _%xt181628%_ - _%xid181621%_) - (_%else181585181603%_)))) - (_%else181585181603%_)))) + (##cdr _%tl182723182757%_)))) + (let ((_%val182767%_ _%hd182724182762%_)) + (if (null? _%tl182725182764%_) + (_%K182719182745%_ + _%val182767%_ + _%xt182760%_ + _%xid182753%_) + (_%else182717182735%_)))) + (_%else182717182735%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else181585181603%_)))) - (_%else181585181603%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest181562181570%_)) - (let ((_%hd181567181640%_ + (_%else182717182735%_)))) + (_%else182717182735%_)))))) + (if (pair? _%rest182694182702%_) + (let ((_%hd182699182772%_ (let () (declare (not safe)) - (##car _%rest181562181570%_))) - (_%tl181568181642%_ + (##car _%rest182694182702%_))) + (_%tl182700182774%_ (let () (declare (not safe)) - (##cdr _%rest181562181570%_)))) - (let* ((_%type-info181645%_ _%hd181567181640%_) - (_%rest181647%_ _%tl181568181642%_)) - (_%K181566181637%_ - _%rest181647%_ - _%type-info181645%_))) - (_%else181564181578%_)))))) - (_%assert-count180651%_ - (lambda (_%id181452%_ _%sym181453%_ _%count181454%_) - (let _%lp181456%_ ((_%rest181458%_ _%env-type180632%_)) - (let* ((_%rest181459181467%_ _%rest181458%_) - (_%else181461181475%_ (lambda () '#!void)) - (_%K181463181544%_ - (lambda (_%rest181478%_ _%type-info181479%_) - (let* ((_%type-info181480181494%_ - _%type-info181479%_) - (_%else181482181502%_ + (##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%_ (lambda () - (_%lp181456%_ _%rest181478%_))) - (_%K181484181513%_ - (lambda (_%val181505%_ - _%xcount181506%_ - _%xsym181507%_ - _%xid181508%_) - (if (and (eq? _%sym181453%_ - _%xsym181507%_) + (_%lp182588%_ _%rest182610%_))) + (_%K182616182645%_ + (lambda (_%val182637%_ + _%xcount182638%_ + _%xsym182639%_ + _%xid182640%_) + (if (and (eq? _%sym182585%_ + _%xsym182639%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id181452%_ - _%xid181508%_))) - (if _%val181505%_ - (fx= _%count181454%_ - _%xcount181506%_) - (if (fx= _%count181454%_ - _%xcount181506%_) + _%id182584%_ + _%xid182640%_))) + (if _%val182637%_ + (fx= _%count182586%_ + _%xcount182638%_) + (if (fx= _%count182586%_ + _%xcount182638%_) '#f - (_%lp181456%_ - _%rest181478%_))) - (_%lp181456%_ - _%rest181478%_))))) - (if (let () - (declare (not safe)) - (##pair? _%type-info181480181494%_)) - (let ((_%hd181485181516%_ + (_%lp182588%_ + _%rest182610%_))) + (_%lp182588%_ + _%rest182610%_))))) + (if (pair? _%type-info182612182626%_) + (let ((_%hd182617182648%_ (let () (declare (not safe)) - (##car _%type-info181480181494%_))) - (_%tl181486181518%_ + (##car _%type-info182612182626%_))) + (_%tl182618182650%_ (let () (declare (not safe)) - (##cdr _%type-info181480181494%_)))) - (let ((_%xid181521%_ - _%hd181485181516%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl181486181518%_)) - (let ((_%hd181487181523%_ + (##cdr _%type-info182612182626%_)))) + (let ((_%xid182653%_ + _%hd182617182648%_)) + (if (pair? _%tl182618182650%_) + (let ((_%hd182619182655%_ (let () (declare (not safe)) - (##car _%tl181486181518%_))) - (_%tl181488181525%_ + (##car _%tl182618182650%_))) + (_%tl182620182657%_ (let () (declare (not safe)) - (##cdr _%tl181486181518%_)))) - (let ((_%xsym181528%_ - _%hd181487181523%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl181488181525%_)) - (let ((_%hd181489181530%_ + (##cdr _%tl182618182650%_)))) + (let ((_%xsym182660%_ + _%hd182619182655%_)) + (if (pair? _%tl182620182657%_) + (let ((_%hd182621182662%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl181488181525%_))) - (_%tl181490181532%_ + (##car _%tl182620182657%_))) + (_%tl182622182664%_ (let () (declare (not safe)) - (##cdr _%tl181488181525%_)))) - (let ((_%xcount181535%_ _%hd181489181530%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl181490181532%_)) - (let ((_%hd181491181537%_ + (##cdr _%tl182620182657%_)))) + (let ((_%xcount182667%_ _%hd182621182662%_)) + (if (pair? _%tl182622182664%_) + (let ((_%hd182623182669%_ (let () (declare (not safe)) - (##car _%tl181490181532%_))) - (_%tl181492181539%_ + (##car _%tl182622182664%_))) + (_%tl182624182671%_ (let () (declare (not safe)) - (##cdr _%tl181490181532%_)))) - (let ((_%val181542%_ _%hd181491181537%_)) - (if (let () - (declare (not safe)) - (##null? _%tl181492181539%_)) - (_%K181484181513%_ - _%val181542%_ - _%xcount181535%_ - _%xsym181528%_ - _%xid181521%_) - (_%else181482181502%_)))) - (_%else181482181502%_)))) - (_%else181482181502%_)))) + (##cdr _%tl182622182664%_)))) + (let ((_%val182674%_ _%hd182623182669%_)) + (if (null? _%tl182624182671%_) + (_%K182616182645%_ + _%val182674%_ + _%xcount182667%_ + _%xsym182660%_ + _%xid182653%_) + (_%else182614182634%_)))) + (_%else182614182634%_)))) + (_%else182614182634%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else181482181502%_)))) - (_%else181482181502%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest181459181467%_)) - (let ((_%hd181464181547%_ + (_%else182614182634%_)))) + (_%else182614182634%_)))))) + (if (pair? _%rest182591182599%_) + (let ((_%hd182596182679%_ (let () (declare (not safe)) - (##car _%rest181459181467%_))) - (_%tl181465181549%_ + (##car _%rest182591182599%_))) + (_%tl182597182681%_ (let () (declare (not safe)) - (##cdr _%rest181459181467%_)))) - (let* ((_%type-info181552%_ _%hd181464181547%_) - (_%rest181554%_ _%tl181465181549%_)) - (_%K181463181544%_ - _%rest181554%_ - _%type-info181552%_))) - (_%else181461181475%_)))))) - (_%assert-eqf180652%_ - (lambda (_%id181339%_ _%sym181340%_ _%datum181341%_) - (letrec ((_%eqf181343%_ - (lambda (_%sym181447%_) - (let ((_%$e181449%_ _%sym181447%_)) - (if (eq? 'eq? _%$e181449%_) + (##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%_) eq? - (if (eq? 'eqv? _%$e181449%_) + (if (eq? 'eqv? _%$e182581%_) eqv? - (if (eq? 'equal? _%$e181449%_) + (if (eq? 'equal? _%$e182581%_) equal? (if (eq? 'free-identifier=? - _%$e181449%_) + _%$e182581%_) gx#free-identifier=? (if (eq? 'stx-eq? - _%$e181449%_) + _%$e182581%_) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _%body180393%_ - _%sym181447%_))))))))))) - (let _%lp181345%_ ((_%rest181347%_ _%env-type180632%_)) - (let* ((_%rest181348181356%_ _%rest181347%_) - (_%else181350181364%_ (lambda () '#!void)) - (_%K181352181435%_ - (lambda (_%rest181367%_ _%type-info181368%_) - (let* ((_%type-info181369181383%_ - _%type-info181368%_) - (_%else181371181391%_ + _%body181525%_ + _%sym182579%_))))))))))) + (let _%lp182477%_ ((_%rest182479%_ _%env-type181764%_)) + (let* ((_%rest182480182488%_ _%rest182479%_) + (_%else182482182496%_ (lambda () '#!void)) + (_%K182484182567%_ + (lambda (_%rest182499%_ _%type-info182500%_) + (let* ((_%type-info182501182515%_ + _%type-info182500%_) + (_%else182503182523%_ (lambda () - (_%lp181345%_ _%rest181367%_))) - (_%K181373181404%_ - (lambda (_%val181394%_ - _%xdatum181395%_ - _%xsym181396%_ - _%xid181397%_) - (if (and (eq? _%sym181340%_ - _%xsym181396%_) + (_%lp182477%_ _%rest182499%_))) + (_%K182505182536%_ + (lambda (_%val182526%_ + _%xdatum182527%_ + _%xsym182528%_ + _%xid182529%_) + (if (and (eq? _%sym182472%_ + _%xsym182528%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id181339%_ - _%xid181397%_))) - (let ((_%=?181399%_ - (_%eqf181343%_ - _%sym181340%_))) - (if _%val181394%_ - (_%=?181399%_ - _%datum181341%_ - _%xdatum181395%_) - (if (_%=?181399%_ - _%datum181341%_ - _%xdatum181395%_) + _%id182471%_ + _%xid182529%_))) + (let ((_%=?182531%_ + (_%eqf182475%_ + _%sym182472%_))) + (if _%val182526%_ + (_%=?182531%_ + _%datum182473%_ + _%xdatum182527%_) + (if (_%=?182531%_ + _%datum182473%_ + _%xdatum182527%_) '#f - (_%lp181345%_ - _%rest181367%_)))) - (_%lp181345%_ - _%rest181367%_))))) - (if (let () - (declare (not safe)) - (##pair? _%type-info181369181383%_)) - (let ((_%hd181374181407%_ + (_%lp182477%_ + _%rest182499%_)))) + (_%lp182477%_ + _%rest182499%_))))) + (if (pair? _%type-info182501182515%_) + (let ((_%hd182506182539%_ (let () (declare (not safe)) - (##car _%type-info181369181383%_))) - (_%tl181375181409%_ + (##car _%type-info182501182515%_))) + (_%tl182507182541%_ (let () (declare (not safe)) - (##cdr _%type-info181369181383%_)))) - (let ((_%xid181412%_ - _%hd181374181407%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl181375181409%_)) - (let ((_%hd181376181414%_ + (##cdr _%type-info182501182515%_)))) + (let ((_%xid182544%_ + _%hd182506182539%_)) + (if (pair? _%tl182507182541%_) + (let ((_%hd182508182546%_ (let () (declare (not safe)) - (##car _%tl181375181409%_))) - (_%tl181377181416%_ + (##car _%tl182507182541%_))) + (_%tl182509182548%_ (let () (declare (not safe)) - (##cdr _%tl181375181409%_)))) - (let ((_%xsym181419%_ - _%hd181376181414%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl181377181416%_)) - (let ((_%hd181378181421%_ + (##cdr _%tl182507182541%_)))) + (let ((_%xsym182551%_ + _%hd182508182546%_)) + (if (pair? _%tl182509182548%_) + (let ((_%hd182510182553%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%tl181377181416%_))) - (_%tl181379181423%_ + (##car _%tl182509182548%_))) + (_%tl182511182555%_ (let () (declare (not safe)) - (##cdr _%tl181377181416%_)))) - (let ((_%xdatum181426%_ _%hd181378181421%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl181379181423%_)) - (let ((_%hd181380181428%_ + (##cdr _%tl182509182548%_)))) + (let ((_%xdatum182558%_ _%hd182510182553%_)) + (if (pair? _%tl182511182555%_) + (let ((_%hd182512182560%_ (let () (declare (not safe)) - (##car _%tl181379181423%_))) - (_%tl181381181430%_ + (##car _%tl182511182555%_))) + (_%tl182513182562%_ (let () (declare (not safe)) - (##cdr _%tl181379181423%_)))) - (let ((_%val181433%_ _%hd181380181428%_)) - (if (let () - (declare (not safe)) - (##null? _%tl181381181430%_)) - (_%K181373181404%_ - _%val181433%_ - _%xdatum181426%_ - _%xsym181419%_ - _%xid181412%_) - (_%else181371181391%_)))) - (_%else181371181391%_)))) - (_%else181371181391%_)))) + (##cdr _%tl182511182555%_)))) + (let ((_%val182565%_ _%hd182512182560%_)) + (if (null? _%tl182513182562%_) + (_%K182505182536%_ + _%val182565%_ + _%xdatum182558%_ + _%xsym182551%_ + _%xid182544%_) + (_%else182503182523%_)))) + (_%else182503182523%_)))) + (_%else182503182523%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else181371181391%_)))) - (_%else181371181391%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest181348181356%_)) - (let ((_%hd181353181438%_ + (_%else182503182523%_)))) + (_%else182503182523%_)))))) + (if (pair? _%rest182480182488%_) + (let ((_%hd182485182570%_ (let () (declare (not safe)) - (##car _%rest181348181356%_))) - (_%tl181354181440%_ + (##car _%rest182480182488%_))) + (_%tl182486182572%_ (let () (declare (not safe)) - (##cdr _%rest181348181356%_)))) - (let* ((_%type-info181443%_ - _%hd181353181438%_) - (_%rest181445%_ _%tl181354181440%_)) - (_%K181352181435%_ - _%rest181445%_ - _%type-info181443%_))) - (_%else181350181364%_))))))) - (_%bind-e__188007188008%_ - (lambda (_%bind181241%_ _%body181242%_ _%continue181243%_) - (let _%lp181245%_ ((_%rest181247%_ _%bind181241%_) - (_%subst181248%_ '()) - (_%locals181249%_ '()) - (_%env181250%_ _%env-bind180633%_)) - (let* ((_%rest181251181259%_ _%rest181247%_) - (_%else181253181273%_ + (##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%_ (lambda () - (let* ((_%body181267%_ - (if (null? _%subst181248%_) - _%body181242%_ + (let* ((_%body182399%_ + (if (null? _%subst182380%_) + _%body182374%_ (let () (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst181248%_ - _%body181242%_)))) - (_%body181270%_ - (_%do-bind!180644%_ - _%env181250%_ + _%subst182380%_ + _%body182374%_)))) + (_%body182402%_ + (_%do-bind!181776%_ + _%env182382%_ (lambda () - (_%continue181243%_ - _%body181267%_))))) - (if (null? _%locals181249%_) - _%body181270%_ + (_%continue182375%_ + _%body182399%_))))) + (if (null? _%locals182381%_) + _%body182402%_ (cons '%#let-values - (cons _%locals181249%_ - (cons _%body181270%_ + (cons _%locals182381%_ + (cons _%body182402%_ '()))))))) - (_%K181255181315%_ - (lambda (_%rest181276%_ _%bind181277%_) - (let* ((_%bind181278181285%_ _%bind181277%_) - (_%E181280181289%_ + (_%K182387182447%_ + (lambda (_%rest182408%_ _%bind182409%_) + (let* ((_%bind182410182417%_ _%bind182409%_) + (_%E182412182421%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind181278181285%_ + _%bind182410182417%_ '([id . expr]))) '#!void)) - (_%K181281181303%_ - (lambda (_%expr181292%_ _%id181293%_) - (let* ((_%sexpr181295%_ + (_%K182413182435%_ + (lambda (_%expr182424%_ _%id182425%_) + (let* ((_%sexpr182427%_ (gxc#apply-generate-runtime-repr - _%expr181292%_)) - (_%$e181297%_ + _%expr182424%_)) + (_%$e182429%_ (let () (declare (not safe)) - (aget__0 _%sexpr181295%_ - _%env-bind180633%_)))) - (if _%$e181297%_ - ((lambda (_%xid181300%_) - (_%lp181245%_ - _%rest181276%_ - (cons (cons _%id181293%_ + (aget__0 _%sexpr182427%_ + _%env-bind181765%_)))) + (if _%$e182429%_ + ((lambda (_%xid182432%_) + (_%lp182377%_ + _%rest182408%_ + (cons (cons _%id182425%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%xid181300%_) - _%subst181248%_) + _%xid182432%_) + _%subst182380%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%locals181249%_ - _%env181250%_)) - _%$e181297%_) - (_%lp181245%_ - _%rest181276%_ - _%subst181248%_ - (cons (cons (cons _%id181293%_ + _%locals182381%_ + _%env182382%_)) + _%$e182429%_) + (_%lp182377%_ + _%rest182408%_ + _%subst182380%_ + (cons (cons (cons _%id182425%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr181292%_ '())) - _%locals181249%_) + (cons _%expr182424%_ '())) + _%locals182381%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%sexpr181295%_ - _%id181293%_) - _%env181250%_))))))) - (if (let () - (declare (not safe)) - (##pair? _%bind181278181285%_)) - (let ((_%hd181282181306%_ + (cons (cons _%sexpr182427%_ + _%id182425%_) + _%env182382%_))))))) + (if (pair? _%bind182410182417%_) + (let ((_%hd182414182438%_ (let () (declare (not safe)) - (##car _%bind181278181285%_))) - (_%tl181283181308%_ + (##car _%bind182410182417%_))) + (_%tl182415182440%_ (let () (declare (not safe)) - (##cdr _%bind181278181285%_)))) - (let* ((_%id181311%_ - _%hd181282181306%_) - (_%expr181313%_ - _%tl181283181308%_)) - (_%K181281181303%_ - _%expr181313%_ - _%id181311%_))) - (_%E181280181289%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest181251181259%_)) - (let ((_%hd181256181318%_ + (##cdr _%bind182410182417%_)))) + (let* ((_%id182443%_ + _%hd182414182438%_) + (_%expr182445%_ + _%tl182415182440%_)) + (_%K182413182435%_ + _%expr182445%_ + _%id182443%_))) + (_%E182412182421%_)))))) + (if (pair? _%rest182383182391%_) + (let ((_%hd182388182450%_ (let () (declare (not safe)) - (##car _%rest181251181259%_))) - (_%tl181257181320%_ + (##car _%rest182383182391%_))) + (_%tl182389182452%_ (let () (declare (not safe)) - (##cdr _%rest181251181259%_)))) - (let* ((_%bind181323%_ _%hd181256181318%_) - (_%rest181325%_ _%tl181257181320%_)) - (_%K181255181315%_ - _%rest181325%_ - _%bind181323%_))) - (_%else181253181273%_)))))) - (_%bind-e__0__188009188010%_ - (lambda (_%bind181330%_ _%body181331%_) - (let ((_%continue181333%_ _%optimize-e180646%_)) - (_%bind-e__188007188008%_ - _%bind181330%_ - _%body181331%_ - _%continue181333%_)))) - (_%bind-e180653%_ - (lambda _g191166_ - (let ((_g191165_ + (##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_ (let () (declare (not safe)) - (##length _g191166_)))) - (cond ((let () (declare (not safe)) (##fx= _g191165_ 2)) - (apply _%bind-e__0__188009188010%_ _g191166_)) - ((let () (declare (not safe)) (##fx= _g191165_ 3)) - (apply _%bind-e__188007188008%_ _g191166_)) + (##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_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g191166_)))))) - (_%lookup-block180654%_ - (lambda (_%id181236%_) - (let ((__tmp191167 - (lambda (_%block181238%_) - (let ((__tmp191168 (car _%block181238%_))) + _g192298_)))))) + (_%lookup-block181786%_ + (lambda (_%id182368%_) + (let ((__tmp192299 + (lambda (_%block182370%_) + (let ((__tmp192300 (car _%block182370%_))) (declare (not safe)) (gx#free-identifier=? - __tmp191168 - _%id181236%_))))) + __tmp192300 + _%id182368%_))))) (declare (not safe)) - (__find __tmp191167 _%blocks180396%_)))) - (_%inline-block180655%_ - (lambda (_%block181112%_ _%args181113%_) - (let* ((_%kont181115%_ (caddr _%block181112%_)) - (_%g181117181143%_ - (lambda (_%g181118181140%_) + (__find __tmp192299 _%blocks181528%_)))) + (_%inline-block181787%_ + (lambda (_%block182244%_ _%args182245%_) + (let* ((_%kont182247%_ (caddr _%block182244%_)) + (_%g182249182275%_ + (lambda (_%g182250182272%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g181118181140%_)))) - (_%g181116181233%_ - (lambda (_%g181118181146%_) + _%g182250182272%_)))) + (_%g182248182365%_ + (lambda (_%g182250182278%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g181118181146%_)) - (let ((_%e181121181148%_ + (gx#stx-pair? _%g182250182278%_)) + (let ((_%e182253182280%_ (let () (declare (not safe)) - (gx#stx-e _%g181118181146%_)))) - (let ((_%hd181122181151%_ + (gx#stx-e _%g182250182278%_)))) + (let ((_%hd182254182283%_ (let () (declare (not safe)) - (##car _%e181121181148%_))) - (_%tl181123181153%_ + (##car _%e182253182280%_))) + (_%tl182255182285%_ (let () (declare (not safe)) - (##cdr _%e181121181148%_)))) + (##cdr _%e182253182280%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181122181151%_)) + _%hd182254182283%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd181122181151%_)) + _%hd182254182283%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181123181153%_)) - (let ((_%e181124181156%_ + _%tl182255182285%_)) + (let ((_%e182256182288%_ (let () (declare (not safe)) (gx#stx-e - _%tl181123181153%_)))) - (let ((_%hd181125181159%_ + _%tl182255182285%_)))) + (let ((_%hd182257182291%_ (let () (declare (not safe)) - (##car _%e181124181156%_))) - (_%tl181126181161%_ + (##car _%e182256182288%_))) + (_%tl182258182293%_ (let () (declare (not safe)) - (##cdr _%e181124181156%_)))) + (##cdr _%e182256182288%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd181125181159%_)) - (let ((_g191169_ + _%hd182257182291%_)) + (let ((_g192301_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd181125181159%_ '0)))) + (gx#syntax-split-splice _%hd182257182291%_ '0)))) (begin - (let ((_g191170_ + (let ((_g192302_ (let () (declare (not safe)) - (if (##values? _g191169_) - (##vector-length _g191169_) + (if (##values? _g192301_) + (##vector-length _g192301_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g191170_ 2))) - (error "Context expects 2 values" _g191170_))) - (let ((_%target181127181164%_ + (##fx= _g192302_ 2))) + (error "Context expects 2 values" _g192302_))) + (let ((_%target182259182296%_ (let () (declare (not safe)) - (##vector-ref _g191169_ 0))) - (_%tl181129181166%_ + (##vector-ref _g192301_ 0))) + (_%tl182261182298%_ (let () (declare (not safe)) - (##vector-ref _g191169_ 1)))) + (##vector-ref _g192301_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181129181166%_)) - (letrec ((_%loop181130181169%_ - (lambda (_%hd181128181172%_ - _%id181134181174%_) + (gx#stx-null? _%tl182261182298%_)) + (letrec ((_%loop182262182301%_ + (lambda (_%hd182260182304%_ + _%id182266182306%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181128181172%_)) - (let ((_%e181131181177%_ + _%hd182260182304%_)) + (let ((_%e182263182309%_ (let () (declare (not safe)) (gx#stx-e - _%hd181128181172%_)))) - (let ((_%lp-hd181132181180%_ + _%hd182260182304%_)))) + (let ((_%lp-hd182264182312%_ (let () (declare (not safe)) - (##car _%e181131181177%_))) - (_%lp-tl181133181182%_ + (##car _%e182263182309%_))) + (_%lp-tl182265182314%_ (let () (declare (not safe)) - (##cdr _%e181131181177%_)))) - (_%loop181130181169%_ - _%lp-tl181133181182%_ - (cons _%lp-hd181132181180%_ - _%id181134181174%_)))) - (let ((_%id181135181185%_ - (reverse _%id181134181174%_))) + (##cdr _%e182263182309%_)))) + (_%loop182262182301%_ + _%lp-tl182265182314%_ + (cons _%lp-hd182264182312%_ + _%id182266182306%_)))) + (let ((_%id182267182317%_ + (reverse _%id182266182306%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181126181161%_)) - (let ((_%e181136181188%_ + _%tl182258182293%_)) + (let ((_%e182268182320%_ (let () (declare (not safe)) (gx#stx-e - _%tl181126181161%_)))) - (let ((_%hd181137181191%_ + _%tl182258182293%_)))) + (let ((_%hd182269182323%_ (let () (declare (not safe)) - (##car _%e181136181188%_))) - (_%tl181138181193%_ + (##car _%e182268182320%_))) + (_%tl182270182325%_ (let () (declare (not safe)) - (##cdr _%e181136181188%_)))) + (##cdr _%e182268182320%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181138181193%_)) - ((lambda (_%L181196%_ + _%tl182270182325%_)) + ((lambda (_%L182328%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L181197%_) - (if (null? (let ((__tmp191171 - (lambda (_%g181216181219%_ - _%g181217181221%_) - (cons _%g181216181219%_ - _%g181217181221%_)))) + _%L182329%_) + (if (null? (let ((__tmp192303 + (lambda (_%g182348182351%_ + _%g182349182353%_) + (cons _%g182348182351%_ + _%g182349182353%_)))) (declare (not safe)) - (__foldr1 __tmp191171 '() _%L181197%_))) - _%L181196%_ - (let ((_%subst181231%_ + (__foldr1 __tmp192303 '() _%L182329%_))) + _%L182328%_ + (let ((_%subst182363%_ (map cons - (let ((__tmp191172 - (lambda (_%g181223181226%_ - _%g181224181228%_) - (cons _%g181223181226%_ - _%g181224181228%_)))) + (let ((__tmp192304 + (lambda (_%g182355182358%_ + _%g182356182360%_) + (cons _%g182355182358%_ + _%g182356182360%_)))) (declare (not safe)) - (__foldr1 __tmp191172 '() _%L181197%_)) - _%args181113%_))) + (__foldr1 __tmp192304 '() _%L182329%_)) + _%args182245%_))) (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst181231%_ - _%L181196%_)))) - _%hd181137181191%_ - _%id181135181185%_) - (_%g181117181143%_ _%g181118181146%_)))) + _%subst182363%_ + _%L182328%_)))) + _%hd182269182323%_ + _%id182267182317%_) + (_%g182249182275%_ _%g182250182278%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g181117181143%_ - _%g181118181146%_))))))) - (_%loop181130181169%_ - _%target181127181164%_ + (_%g182249182275%_ + _%g182250182278%_))))))) + (_%loop182262182301%_ + _%target182259182296%_ '())) - (_%g181117181143%_ _%g181118181146%_))))) - (_%g181117181143%_ _%g181118181146%_)))) + (_%g182249182275%_ _%g182250182278%_))))) + (_%g182249182275%_ _%g182250182278%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g181117181143%_ - _%g181118181146%_)) - (_%g181117181143%_ - _%g181118181146%_)) - (_%g181117181143%_ - _%g181118181146%_)))) - (_%g181117181143%_ _%g181118181146%_))))) - (_%g181116181233%_ _%kont181115%_)))) - (_%nonlinear-block?180656%_ - (lambda (_%block180661%_) - (letrec ((_%nonlinear-expr?180663%_ - (lambda (_%expr180771%_) - (let* ((_%__stx190080190081%_ _%expr180771%_) - (_%g180777180843%_ + (_%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%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190080190081%_))))) - (let ((_%__kont190082190083%_ + _%__stx191212191213%_))))) + (let ((_%__kont191214191215%_ (lambda () '#t)) - (_%__kont190084190085%_ - (lambda (_%L181042%_) - (let* ((_%__stx190062190063%_ - _%L181042%_) - (_%g181060181069%_ + (_%__kont191216191217%_ + (lambda (_%L182174%_) + (let* ((_%__stx191194191195%_ + _%L182174%_) + (_%g182192182201%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190062190063%_))))) - (let ((_%__kont190064190065%_ + _%__stx191194191195%_))))) + (let ((_%__kont191196191197%_ (lambda () '#f)) - (_%__kont190066190067%_ + (_%__kont191198191199%_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190062190063%_)) - (let ((_%e181062181081%_ + _%__stx191194191195%_)) + (let ((_%e182194182213%_ (let () (declare (not safe)) (gx#stx-e - _%__stx190062190063%_)))) - (let ((_%tl181064181086%_ + _%__stx191194191195%_)))) + (let ((_%tl182196182218%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e181062181081%_))) - (_%hd181063181084%_ - (let () (declare (not safe)) (##car _%e181062181081%_)))) + (##cdr _%e182194182213%_))) + (_%hd182195182216%_ + (let () (declare (not safe)) (##car _%e182194182213%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181063181084%_)) + (gx#identifier? _%hd182195182216%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd181063181084%_)) - (_%__kont190064190065%_) - (_%__kont190066190067%_)) - (_%__kont190066190067%_)))) + (gx#stx-eq? '%#call _%hd182195182216%_)) + (_%__kont191196191197%_) + (_%__kont191198191199%_)) + (_%__kont191198191199%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190066190067%_)))))) - (_%__kont190088190089%_ - (lambda (_%L180940%_) - (_%nonlinear-expr?180663%_ - _%L180940%_))) - (_%__kont190090190091%_ - (lambda (_%L180887%_ - _%L180888%_ - _%L180889%_) - (let ((_%$e180908%_ - (_%nonlinear-expr?180663%_ - _%L180888%_))) - (if _%$e180908%_ - _%$e180908%_ - (_%nonlinear-expr?180663%_ - _%L180887%_))))) - (_%__kont190092190093%_ + (_%__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%_ (lambda () '#f))) - (let* ((_%__match190143190144%_ - (lambda (_%e180815180916%_ - _%hd180816180919%_ - _%tl180817180921%_ - _%e180818180924%_ - _%hd180819180927%_ - _%tl180820180929%_) + (let* ((_%__match191275191276%_ + (lambda (_%e181947182048%_ + _%hd181948182051%_ + _%tl181949182053%_ + _%e181950182056%_ + _%hd181951182059%_ + _%tl181952182061%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180820180929%_)) - (let ((_%e180821180932%_ + _%tl181952182061%_)) + (let ((_%e181953182064%_ (let () (declare (not safe)) (gx#stx-e - _%tl180820180929%_)))) - (let ((_%tl180823180937%_ + _%tl181952182061%_)))) + (let ((_%tl181955182069%_ (let () (declare (not safe)) - (##cdr _%e180821180932%_))) - (_%hd180822180935%_ + (##cdr _%e181953182064%_))) + (_%hd181954182067%_ (let () (declare (not safe)) - (##car _%e180821180932%_)))) + (##car _%e181953182064%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180823180937%_)) - (_%__kont190088190089%_ - _%hd180822180935%_) - (_%__kont190092190093%_)))) - (_%__kont190092190093%_)))) - (_%__match190127190128%_ - (lambda (_%e180783180958%_ - _%hd180784180961%_ - _%tl180785180963%_ - _%e180786180966%_ - _%hd180787180969%_ - _%tl180788180971%_ - _%__splice190086190087%_ - _%target180789180974%_ - _%tl180791180976%_) - (letrec ((_%loop180792180979%_ - (lambda (_%hd180790180982%_) + _%tl181955182069%_)) + (_%__kont191220191221%_ + _%hd181954182067%_) + (_%__kont191224191225%_)))) + (_%__kont191224191225%_)))) + (_%__match191259191260%_ + (lambda (_%e181915182090%_ + _%hd181916182093%_ + _%tl181917182095%_ + _%e181918182098%_ + _%hd181919182101%_ + _%tl181920182103%_ + _%__splice191218191219%_ + _%target181921182106%_ + _%tl181923182108%_) + (letrec ((_%loop181924182111%_ + (lambda (_%hd181922182114%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%hd180790180982%_)) - (let ((_%e180793180985%_ + (gx#stx-pair? _%hd181922182114%_)) + (let ((_%e181925182117%_ (let () (declare (not safe)) - (gx#stx-e _%hd180790180982%_)))) - (let ((_%lp-tl180795180990%_ + (gx#stx-e _%hd181922182114%_)))) + (let ((_%lp-tl181927182122%_ (let () (declare (not safe)) - (##cdr _%e180793180985%_))) - (_%lp-hd180794180988%_ + (##cdr _%e181925182117%_))) + (_%lp-hd181926182120%_ (let () (declare (not safe)) - (##car _%e180793180985%_)))) + (##car _%e181925182117%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd180794180988%_)) - (let ((_%e180799180993%_ + (gx#stx-pair? _%lp-hd181926182120%_)) + (let ((_%e181931182125%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd180794180988%_)))) - (let ((_%tl180801180998%_ + (gx#stx-e _%lp-hd181926182120%_)))) + (let ((_%tl181933182130%_ (let () (declare (not safe)) - (##cdr _%e180799180993%_))) - (_%hd180800180996%_ + (##cdr _%e181931182125%_))) + (_%hd181932182128%_ (let () (declare (not safe)) - (##car _%e180799180993%_)))) + (##car _%e181931182125%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180800180996%_)) - (let ((_%e180802181001%_ + (gx#stx-pair? _%hd181932182128%_)) + (let ((_%e181934182133%_ (let () (declare (not safe)) (gx#stx-e - _%hd180800180996%_)))) - (let ((_%tl180804181006%_ + _%hd181932182128%_)))) + (let ((_%tl181936182138%_ (let () (declare (not safe)) - (##cdr _%e180802181001%_))) - (_%hd180803181004%_ + (##cdr _%e181934182133%_))) + (_%hd181935182136%_ (let () (declare (not safe)) - (##car _%e180802181001%_)))) + (##car _%e181934182133%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180804181006%_)) + _%tl181936182138%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180801180998%_)) - (let ((_%e180805181009%_ + _%tl181933182130%_)) + (let ((_%e181937182141%_ (let () (declare (not safe)) (gx#stx-e - _%tl180801180998%_)))) - (let ((_%tl180807181014%_ + _%tl181933182130%_)))) + (let ((_%tl181939182146%_ (let () (declare (not safe)) - (##cdr _%e180805181009%_))) - (_%hd180806181012%_ + (##cdr _%e181937182141%_))) + (_%hd181938182144%_ (let () (declare (not safe)) - (##car _%e180805181009%_)))) + (##car _%e181937182141%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180806181012%_)) - (let ((_%e180808181017%_ + _%hd181938182144%_)) + (let ((_%e181940182149%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd180806181012%_)))) - (let ((_%tl180810181022%_ + (gx#stx-e _%hd181938182144%_)))) + (let ((_%tl181942182154%_ (let () (declare (not safe)) - (##cdr _%e180808181017%_))) - (_%hd180809181020%_ + (##cdr _%e181940182149%_))) + (_%hd181941182152%_ (let () (declare (not safe)) - (##car _%e180808181017%_)))) + (##car _%e181940182149%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180809181020%_)) + (gx#identifier? _%hd181941182152%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd180809181020%_)) + (gx#stx-eq? '%#ref _%hd181941182152%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180810181022%_)) - (let ((_%e180811181025%_ + (gx#stx-pair? _%tl181942182154%_)) + (let ((_%e181943182157%_ (let () (declare (not safe)) - (gx#stx-e _%tl180810181022%_)))) - (let ((_%tl180813181030%_ + (gx#stx-e _%tl181942182154%_)))) + (let ((_%tl181945182162%_ (let () (declare (not safe)) - (##cdr _%e180811181025%_))) - (_%hd180812181028%_ + (##cdr _%e181943182157%_))) + (_%hd181944182160%_ (let () (declare (not safe)) - (##car _%e180811181025%_)))) + (##car _%e181943182157%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180813181030%_)) + (gx#stx-null? _%tl181945182162%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180807181014%_)) - (_%loop180792180979%_ - _%lp-tl180795180990%_) - (_%__match190143190144%_ - _%e180783180958%_ - _%hd180784180961%_ - _%tl180785180963%_ - _%e180786180966%_ - _%hd180787180969%_ - _%tl180788180971%_)) - (_%__match190143190144%_ - _%e180783180958%_ - _%hd180784180961%_ - _%tl180785180963%_ - _%e180786180966%_ - _%hd180787180969%_ - _%tl180788180971%_)))) - (_%__match190143190144%_ - _%e180783180958%_ - _%hd180784180961%_ - _%tl180785180963%_ - _%e180786180966%_ - _%hd180787180969%_ - _%tl180788180971%_)) - (_%__match190143190144%_ - _%e180783180958%_ - _%hd180784180961%_ - _%tl180785180963%_ - _%e180786180966%_ - _%hd180787180969%_ - _%tl180788180971%_)) - (_%__match190143190144%_ - _%e180783180958%_ - _%hd180784180961%_ - _%tl180785180963%_ - _%e180786180966%_ - _%hd180787180969%_ - _%tl180788180971%_)))) - (_%__match190143190144%_ - _%e180783180958%_ - _%hd180784180961%_ - _%tl180785180963%_ - _%e180786180966%_ - _%hd180787180969%_ - _%tl180788180971%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match190143190144%_ - _%e180783180958%_ - _%hd180784180961%_ - _%tl180785180963%_ - _%e180786180966%_ - _%hd180787180969%_ - _%tl180788180971%_)) - (_%__match190143190144%_ - _%e180783180958%_ - _%hd180784180961%_ - _%tl180785180963%_ - _%e180786180966%_ - _%hd180787180969%_ - _%tl180788180971%_)))) - (_%__match190143190144%_ - _%e180783180958%_ - _%hd180784180961%_ - _%tl180785180963%_ - _%e180786180966%_ - _%hd180787180969%_ - _%tl180788180971%_)))) - (_%__match190143190144%_ - _%e180783180958%_ - _%hd180784180961%_ - _%tl180785180963%_ - _%e180786180966%_ - _%hd180787180969%_ - _%tl180788180971%_)))) + (_%__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%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180788180971%_)) - (let ((_%e180796181034%_ + (gx#stx-pair? _%tl181920182103%_)) + (let ((_%e181928182166%_ (let () (declare (not safe)) - (gx#stx-e _%tl180788180971%_)))) - (let ((_%tl180798181039%_ + (gx#stx-e _%tl181920182103%_)))) + (let ((_%tl181930182171%_ (let () (declare (not safe)) - (##cdr _%e180796181034%_))) - (_%hd180797181037%_ + (##cdr _%e181928182166%_))) + (_%hd181929182169%_ (let () (declare (not safe)) - (##car _%e180796181034%_)))) + (##car _%e181928182166%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180798181039%_)) - (_%__kont190084190085%_ _%hd180797181037%_) - (_%__kont190092190093%_)))) - (_%__kont190092190093%_)))))) + (gx#stx-null? _%tl181930182171%_)) + (_%__kont191216191217%_ _%hd181929182169%_) + (_%__kont191224191225%_)))) + (_%__kont191224191225%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop180792180979%_ - _%target180789180974%_))))) + (_%loop181924182111%_ + _%target181921182106%_))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190080190081%_)) - (let ((_%e180779181099%_ + _%__stx191212191213%_)) + (let ((_%e181911182231%_ (let () (declare (not safe)) (gx#stx-e - _%__stx190080190081%_)))) - (let ((_%tl180781181104%_ + _%__stx191212191213%_)))) + (let ((_%tl181913182236%_ (let () (declare (not safe)) - (##cdr _%e180779181099%_))) - (_%hd180780181102%_ + (##cdr _%e181911182231%_))) + (_%hd181912182234%_ (let () (declare (not safe)) - (##car _%e180779181099%_)))) + (##car _%e181911182231%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180780181102%_)) + _%hd181912182234%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd180780181102%_)) - (_%__kont190082190083%_) + _%hd181912182234%_)) + (_%__kont191214191215%_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd180780181102%_)) + _%hd181912182234%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl180781181104%_)) - (let ((_%e180786180966%_ + (gx#stx-pair? _%tl181913182236%_)) + (let ((_%e181918182098%_ (let () (declare (not safe)) - (gx#stx-e _%tl180781181104%_)))) - (let ((_%tl180788180971%_ + (gx#stx-e _%tl181913182236%_)))) + (let ((_%tl181920182103%_ (let () (declare (not safe)) - (##cdr _%e180786180966%_))) - (_%hd180787180969%_ + (##cdr _%e181918182098%_))) + (_%hd181919182101%_ (let () (declare (not safe)) - (##car _%e180786180966%_)))) + (##car _%e181918182098%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd180787180969%_)) - (let ((_%__splice190086190087%_ + (gx#stx-pair/null? _%hd181919182101%_)) + (let ((_%__splice191218191219%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd180787180969%_ + _%hd181919182101%_ '0)))) - (let ((_%tl180791180976%_ + (let ((_%tl181923182108%_ (let () (declare (not safe)) (##vector-ref - _%__splice190086190087%_ + _%__splice191218191219%_ '1))) - (_%target180789180974%_ + (_%target181921182106%_ (let () (declare (not safe)) (##vector-ref - _%__splice190086190087%_ + _%__splice191218191219%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180791180976%_)) - (_%__match190127190128%_ - _%e180779181099%_ - _%hd180780181102%_ - _%tl180781181104%_ - _%e180786180966%_ - _%hd180787180969%_ - _%tl180788180971%_ - _%__splice190086190087%_ - _%target180789180974%_ - _%tl180791180976%_) + (gx#stx-null? _%tl181923182108%_)) + (_%__match191259191260%_ + _%e181911182231%_ + _%hd181912182234%_ + _%tl181913182236%_ + _%e181918182098%_ + _%hd181919182101%_ + _%tl181920182103%_ + _%__splice191218191219%_ + _%target181921182106%_ + _%tl181923182108%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180788180971%_)) - (let ((_%e180821180932%_ + (gx#stx-pair? _%tl181920182103%_)) + (let ((_%e181953182064%_ (let () (declare (not safe)) (gx#stx-e - _%tl180788180971%_)))) - (let ((_%tl180823180937%_ + _%tl181920182103%_)))) + (let ((_%tl181955182069%_ (let () (declare (not safe)) - (##cdr _%e180821180932%_))) - (_%hd180822180935%_ + (##cdr _%e181953182064%_))) + (_%hd181954182067%_ (let () (declare (not safe)) - (##car _%e180821180932%_)))) + (##car _%e181953182064%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180823180937%_)) - (_%__kont190088190089%_ - _%hd180822180935%_) - (_%__kont190092190093%_)))) - (_%__kont190092190093%_))))) + _%tl181955182069%_)) + (_%__kont191220191221%_ + _%hd181954182067%_) + (_%__kont191224191225%_)))) + (_%__kont191224191225%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180788180971%_)) - (let ((_%e180821180932%_ + (gx#stx-pair? _%tl181920182103%_)) + (let ((_%e181953182064%_ (let () (declare (not safe)) - (gx#stx-e _%tl180788180971%_)))) - (let ((_%tl180823180937%_ + (gx#stx-e _%tl181920182103%_)))) + (let ((_%tl181955182069%_ (let () (declare (not safe)) - (##cdr _%e180821180932%_))) - (_%hd180822180935%_ + (##cdr _%e181953182064%_))) + (_%hd181954182067%_ (let () (declare (not safe)) - (##car _%e180821180932%_)))) + (##car _%e181953182064%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180823180937%_)) - (_%__kont190088190089%_ - _%hd180822180935%_) - (_%__kont190092190093%_)))) - (_%__kont190092190093%_))))) - (_%__kont190092190093%_)) + (gx#stx-null? _%tl181955182069%_)) + (_%__kont191220191221%_ + _%hd181954182067%_) + (_%__kont191224191225%_)))) + (_%__kont191224191225%_))))) + (_%__kont191224191225%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd180780181102%_)) + (gx#stx-eq? '%#if _%hd181912182234%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180781181104%_)) - (let ((_%e180830180863%_ + (gx#stx-pair? _%tl181913182236%_)) + (let ((_%e181962181995%_ (let () (declare (not safe)) - (gx#stx-e _%tl180781181104%_)))) - (let ((_%tl180832180868%_ + (gx#stx-e _%tl181913182236%_)))) + (let ((_%tl181964182000%_ (let () (declare (not safe)) - (##cdr _%e180830180863%_))) - (_%hd180831180866%_ + (##cdr _%e181962181995%_))) + (_%hd181963181998%_ (let () (declare (not safe)) - (##car _%e180830180863%_)))) + (##car _%e181962181995%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180832180868%_)) - (let ((_%e180833180871%_ + (gx#stx-pair? _%tl181964182000%_)) + (let ((_%e181965182003%_ (let () (declare (not safe)) - (gx#stx-e _%tl180832180868%_)))) - (let ((_%tl180835180876%_ + (gx#stx-e _%tl181964182000%_)))) + (let ((_%tl181967182008%_ (let () (declare (not safe)) - (##cdr _%e180833180871%_))) - (_%hd180834180874%_ + (##cdr _%e181965182003%_))) + (_%hd181966182006%_ (let () (declare (not safe)) - (##car _%e180833180871%_)))) + (##car _%e181965182003%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180835180876%_)) - (let ((_%e180836180879%_ + (gx#stx-pair? _%tl181967182008%_)) + (let ((_%e181968182011%_ (let () (declare (not safe)) (gx#stx-e - _%tl180835180876%_)))) - (let ((_%tl180838180884%_ + _%tl181967182008%_)))) + (let ((_%tl181970182016%_ (let () (declare (not safe)) - (##cdr _%e180836180879%_))) - (_%hd180837180882%_ + (##cdr _%e181968182011%_))) + (_%hd181969182014%_ (let () (declare (not safe)) - (##car _%e180836180879%_)))) + (##car _%e181968182011%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180838180884%_)) - (_%__kont190090190091%_ - _%hd180837180882%_ - _%hd180834180874%_ - _%hd180831180866%_) - (_%__kont190092190093%_)))) - (_%__kont190092190093%_)))) - (_%__kont190092190093%_)))) - (_%__kont190092190093%_)) - (_%__kont190092190093%_)))) + _%tl181970182016%_)) + (_%__kont191222191223%_ + _%hd181969182014%_ + _%hd181966182006%_ + _%hd181963181998%_) + (_%__kont191224191225%_)))) + (_%__kont191224191225%_)))) + (_%__kont191224191225%_)))) + (_%__kont191224191225%_)) + (_%__kont191224191225%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190092190093%_)))) - (_%__kont190092190093%_)))))))) - (let* ((_%kont180665%_ (caddr _%block180661%_)) - (_%g180667180693%_ - (lambda (_%g180668180690%_) + (_%__kont191224191225%_)))) + (_%__kont191224191225%_)))))))) + (let* ((_%kont181797%_ (caddr _%block181793%_)) + (_%g181799181825%_ + (lambda (_%g181800181822%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g180668180690%_)))) - (_%g180666180768%_ - (lambda (_%g180668180696%_) + _%g181800181822%_)))) + (_%g181798181900%_ + (lambda (_%g181800181828%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g180668180696%_)) - (let ((_%e180671180698%_ + (gx#stx-pair? _%g181800181828%_)) + (let ((_%e181803181830%_ (let () (declare (not safe)) - (gx#stx-e _%g180668180696%_)))) - (let ((_%hd180672180701%_ + (gx#stx-e _%g181800181828%_)))) + (let ((_%hd181804181833%_ (let () (declare (not safe)) - (##car _%e180671180698%_))) - (_%tl180673180703%_ + (##car _%e181803181830%_))) + (_%tl181805181835%_ (let () (declare (not safe)) - (##cdr _%e180671180698%_)))) + (##cdr _%e181803181830%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180672180701%_)) + _%hd181804181833%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd180672180701%_)) + _%hd181804181833%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180673180703%_)) - (let ((_%e180674180706%_ + _%tl181805181835%_)) + (let ((_%e181806181838%_ (let () (declare (not safe)) (gx#stx-e - _%tl180673180703%_)))) - (let ((_%hd180675180709%_ + _%tl181805181835%_)))) + (let ((_%hd181807181841%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e180674180706%_))) - (_%tl180676180711%_ - (let () (declare (not safe)) (##cdr _%e180674180706%_)))) + (##car _%e181806181838%_))) + (_%tl181808181843%_ + (let () (declare (not safe)) (##cdr _%e181806181838%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd180675180709%_)) - (let ((_g191173_ + (gx#stx-pair/null? _%hd181807181841%_)) + (let ((_g192305_ (let () (declare (not safe)) - (gx#syntax-split-splice _%hd180675180709%_ '0)))) + (gx#syntax-split-splice _%hd181807181841%_ '0)))) (begin - (let ((_g191174_ + (let ((_g192306_ (let () (declare (not safe)) - (if (##values? _g191173_) - (##vector-length _g191173_) + (if (##values? _g192305_) + (##vector-length _g192305_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g191174_ 2))) - (error "Context expects 2 values" _g191174_))) - (let ((_%target180677180714%_ + (##fx= _g192306_ 2))) + (error "Context expects 2 values" _g192306_))) + (let ((_%target181809181846%_ (let () (declare (not safe)) - (##vector-ref _g191173_ 0))) - (_%tl180679180716%_ + (##vector-ref _g192305_ 0))) + (_%tl181811181848%_ (let () (declare (not safe)) - (##vector-ref _g191173_ 1)))) + (##vector-ref _g192305_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180679180716%_)) - (letrec ((_%loop180680180719%_ - (lambda (_%hd180678180722%_ - _%id180684180724%_) + (gx#stx-null? _%tl181811181848%_)) + (letrec ((_%loop181812181851%_ + (lambda (_%hd181810181854%_ + _%id181816181856%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180678180722%_)) - (let ((_%e180681180727%_ + _%hd181810181854%_)) + (let ((_%e181813181859%_ (let () (declare (not safe)) (gx#stx-e - _%hd180678180722%_)))) - (let ((_%lp-hd180682180730%_ + _%hd181810181854%_)))) + (let ((_%lp-hd181814181862%_ (let () (declare (not safe)) - (##car _%e180681180727%_))) - (_%lp-tl180683180732%_ + (##car _%e181813181859%_))) + (_%lp-tl181815181864%_ (let () (declare (not safe)) - (##cdr _%e180681180727%_)))) - (_%loop180680180719%_ - _%lp-tl180683180732%_ - (cons _%lp-hd180682180730%_ - _%id180684180724%_)))) - (let ((_%id180685180735%_ - (reverse _%id180684180724%_))) + (##cdr _%e181813181859%_)))) + (_%loop181812181851%_ + _%lp-tl181815181864%_ + (cons _%lp-hd181814181862%_ + _%id181816181856%_)))) + (let ((_%id181817181867%_ + (reverse _%id181816181856%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180676180711%_)) - (let ((_%e180686180738%_ + _%tl181808181843%_)) + (let ((_%e181818181870%_ (let () (declare (not safe)) (gx#stx-e - _%tl180676180711%_)))) - (let ((_%hd180687180741%_ + _%tl181808181843%_)))) + (let ((_%hd181819181873%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e180686180738%_))) - (_%tl180688180743%_ - (let () (declare (not safe)) (##cdr _%e180686180738%_)))) + (##car _%e181818181870%_))) + (_%tl181820181875%_ + (let () (declare (not safe)) (##cdr _%e181818181870%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180688180743%_)) - ((lambda (_%L180746%_ _%L180747%_) - (_%nonlinear-expr?180663%_ _%L180746%_)) - _%hd180687180741%_ - _%id180685180735%_) - (_%g180667180693%_ _%g180668180696%_)))) + (gx#stx-null? _%tl181820181875%_)) + ((lambda (_%L181878%_ _%L181879%_) + (_%nonlinear-expr?181795%_ _%L181878%_)) + _%hd181819181873%_ + _%id181817181867%_) + (_%g181799181825%_ _%g181800181828%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180667180693%_ - _%g180668180696%_))))))) - (_%loop180680180719%_ - _%target180677180714%_ + (_%g181799181825%_ + _%g181800181828%_))))))) + (_%loop181812181851%_ + _%target181809181846%_ '())) - (_%g180667180693%_ _%g180668180696%_))))) - (_%g180667180693%_ _%g180668180696%_)))) + (_%g181799181825%_ _%g181800181828%_))))) + (_%g181799181825%_ _%g181800181828%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180667180693%_ - _%g180668180696%_)) - (_%g180667180693%_ - _%g180668180696%_)) - (_%g180667180693%_ - _%g180668180696%_)))) - (_%g180667180693%_ _%g180668180696%_))))) - (_%g180666180768%_ _%kont180665%_)))))) - (_%do-assert180635%_ - _%assert180394%_ + (_%g181799181825%_ + _%g181800181828%_)) + (_%g181799181825%_ + _%g181800181828%_)) + (_%g181799181825%_ + _%g181800181828%_)))) + (_%g181799181825%_ _%g181800181828%_))))) + (_%g181798181900%_ _%kont181797%_)))))) + (_%do-assert181767%_ + _%assert181526%_ (lambda () - (_%do-bind180642%_ - _%bind180395%_ + (_%do-bind181774%_ + _%bind181527%_ (lambda () (if (memq '@match:prefix (let () (declare (not safe)) (gxc#current-annotation-optimizer))) - (_%do-splice!180645%_ - (lambda () (_%optimize-e180646%_ _%body180393%_))) - (_%optimize-e180646%_ _%body180393%_))))))))) + (_%do-splice!181777%_ + (lambda () (_%optimize-e181778%_ _%body181525%_))) + (_%optimize-e181778%_ _%body181525%_))))))))) (define gxc#optimize-match-prune-blocks - (lambda (_%blocks180305%_ _%konts180306%_) - (letrec* ((_%rtab180308%_ + (lambda (_%blocks181437%_ _%konts181438%_) + (letrec* ((_%rtab181440%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block180310%_) - (let ((__tmp191175 (caddr _%block180310%_))) + (lambda (_%block181442%_) + (let ((__tmp192307 (caddr _%block181442%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab180308%_ - __tmp191175))) - _%konts180306%_) - (let _%lp180312%_ ((_%rest180314%_ _%blocks180305%_) - (_%r180315%_ '())) - (let* ((_%rest180316180324%_ _%rest180314%_) - (_%else180318180332%_ (lambda () (reverse _%r180315%_))) - (_%K180320180381%_ - (lambda (_%rest180335%_ _%block180336%_) - (let* ((_%block180337180348%_ _%block180336%_) - (_%E180339180352%_ + _%rtab181440%_ + __tmp192307))) + _%konts181438%_) + (let _%lp181444%_ ((_%rest181446%_ _%blocks181437%_) + (_%r181447%_ '())) + (let* ((_%rest181448181456%_ _%rest181446%_) + (_%else181450181464%_ (lambda () (reverse _%r181447%_))) + (_%K181452181513%_ + (lambda (_%rest181467%_ _%block181468%_) + (let* ((_%block181469181480%_ _%block181468%_) + (_%E181471181484%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block180337180348%_ + _%block181469181480%_ '([name type kont . _]))) '#!void)) - (_%K180340180359%_ - (lambda (_%kont180355%_ - _%type180356%_ - _%name180357%_) - (if (let ((__tmp191176 + (_%K181472181491%_ + (lambda (_%kont181487%_ + _%type181488%_ + _%name181489%_) + (if (let ((__tmp192308 (let () (declare (not safe)) (gxc#identifier-symbol - _%name180357%_)))) + _%name181489%_)))) (declare (not safe)) - (__hash-get _%rtab180308%_ __tmp191176)) + (__hash-get _%rtab181440%_ __tmp192308)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab180308%_ - _%kont180355%_)) - (_%lp180312%_ - _%rest180335%_ - (cons _%block180336%_ _%r180315%_))) - (_%lp180312%_ - _%rest180335%_ - _%r180315%_))))) - (if (let () - (declare (not safe)) - (##pair? _%block180337180348%_)) - (let ((_%hd180341180362%_ + _%rtab181440%_ + _%kont181487%_)) + (_%lp181444%_ + _%rest181467%_ + (cons _%block181468%_ _%r181447%_))) + (_%lp181444%_ + _%rest181467%_ + _%r181447%_))))) + (if (pair? _%block181469181480%_) + (let ((_%hd181473181494%_ (let () (declare (not safe)) - (##car _%block180337180348%_))) - (_%tl180342180364%_ + (##car _%block181469181480%_))) + (_%tl181474181496%_ (let () (declare (not safe)) - (##cdr _%block180337180348%_)))) - (let ((_%name180367%_ _%hd180341180362%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl180342180364%_)) - (let ((_%hd180343180369%_ + (##cdr _%block181469181480%_)))) + (let ((_%name181499%_ _%hd181473181494%_)) + (if (pair? _%tl181474181496%_) + (let ((_%hd181475181501%_ (let () (declare (not safe)) - (##car _%tl180342180364%_))) - (_%tl180344180371%_ + (##car _%tl181474181496%_))) + (_%tl181476181503%_ (let () (declare (not safe)) - (##cdr _%tl180342180364%_)))) - (let ((_%type180374%_ - _%hd180343180369%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl180344180371%_)) - (let* ((_%hd180345180376%_ + (##cdr _%tl181474181496%_)))) + (let ((_%type181506%_ + _%hd181475181501%_)) + (if (pair? _%tl181476181503%_) + (let* ((_%hd181477181508%_ (let () (declare (not safe)) - (##car _%tl180344180371%_))) - (_%kont180379%_ - _%hd180345180376%_)) - (_%K180340180359%_ - _%kont180379%_ - _%type180374%_ - _%name180367%_)) - (_%E180339180352%_)))) - (_%E180339180352%_)))) - (_%E180339180352%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest180316180324%_)) - (let ((_%hd180321180384%_ + (##car _%tl181476181503%_))) + (_%kont181511%_ + _%hd181477181508%_)) + (_%K181472181491%_ + _%kont181511%_ + _%type181506%_ + _%name181499%_)) + (_%E181471181484%_)))) + (_%E181471181484%_)))) + (_%E181471181484%_)))))) + (if (pair? _%rest181448181456%_) + (let ((_%hd181453181516%_ (let () (declare (not safe)) - (##car _%rest180316180324%_))) - (_%tl180322180386%_ + (##car _%rest181448181456%_))) + (_%tl181454181518%_ (let () (declare (not safe)) - (##cdr _%rest180316180324%_)))) - (let* ((_%block180389%_ _%hd180321180384%_) - (_%rest180391%_ _%tl180322180386%_)) - (_%K180320180381%_ _%rest180391%_ _%block180389%_))) - (_%else180318180332%_))))))) + (##cdr _%rest181448181456%_)))) + (let* ((_%block181521%_ _%hd181453181516%_) + (_%rest181523%_ _%tl181454181518%_)) + (_%K181452181513%_ _%rest181523%_ _%block181521%_))) + (_%else181450181464%_))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_%blocks180229%_ _%konts180230%_) - (let* ((_%blocks180231180247%_ _%blocks180229%_) - (_%else180233180255%_ (lambda () _%blocks180229%_)) - (_%K180235180273%_ - (lambda (_%rest180258%_ _%kont180259%_ _%name180260%_) - (letrec* ((_%rtab180262%_ + (lambda (_%blocks181361%_ _%konts181362%_) + (let* ((_%blocks181363181379%_ _%blocks181361%_) + (_%else181365181387%_ (lambda () _%blocks181361%_)) + (_%K181367181405%_ + (lambda (_%rest181390%_ _%kont181391%_ _%name181392%_) + (letrec* ((_%rtab181394%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block180264%_) - (let ((__tmp191177 (caddr _%block180264%_))) + (lambda (_%block181396%_) + (let ((__tmp192309 (caddr _%block181396%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab180262%_ - __tmp191177))) - _%konts180230%_) - (if (let ((__tmp191178 - (let ((__tmp191179 + _%rtab181394%_ + __tmp192309))) + _%konts181362%_) + (if (let ((__tmp192310 + (let ((__tmp192311 (let () (declare (not safe)) (gxc#identifier-symbol - _%name180260%_)))) + _%name181392%_)))) (declare (not safe)) - (hash-ref__0 _%rtab180262%_ __tmp191179)))) + (hash-ref__0 _%rtab181394%_ __tmp192311)))) (declare (not safe)) - (##fx= __tmp191178 '1)) - (let* ((_%rblock180268%_ - (let ((__tmp191180 - (lambda (_%block180266%_) - (let ((__tmp191182 - (cons _%name180260%_ '())) - (__tmp191181 - (caddr _%block180266%_))) + (##fx= __tmp192310 '1)) + (let* ((_%rblock181400%_ + (let ((__tmp192312 + (lambda (_%block181398%_) + (let ((__tmp192314 + (cons _%name181392%_ '())) + (__tmp192313 + (caddr _%block181398%_))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp191182 - __tmp191181))))) + __tmp192314 + __tmp192313))))) (declare (not safe)) - (__find __tmp191180 _%konts180230%_))) - (_%assert180270%_ + (__find __tmp192312 _%konts181362%_))) + (_%assert181402%_ (gxc#optimize-match-assert-restart - _%rblock180268%_ - _%name180260%_))) - (cons (cons _%name180260%_ + _%rblock181400%_ + _%name181392%_))) + (cons (cons _%name181392%_ (cons 'restart: - (cons _%kont180259%_ - (cons _%assert180270%_ + (cons _%kont181391%_ + (cons _%assert181402%_ '())))) - _%rest180258%_)) - _%blocks180229%_))))) - (if (let () (declare (not safe)) (##pair? _%blocks180231180247%_)) - (let ((_%hd180236180276%_ + _%rest181390%_)) + _%blocks181361%_))))) + (if (pair? _%blocks181363181379%_) + (let ((_%hd181368181408%_ (let () (declare (not safe)) - (##car _%blocks180231180247%_))) - (_%tl180237180278%_ + (##car _%blocks181363181379%_))) + (_%tl181369181410%_ (let () (declare (not safe)) - (##cdr _%blocks180231180247%_)))) - (if (let () (declare (not safe)) (##pair? _%hd180236180276%_)) - (let ((_%hd180238180281%_ + (##cdr _%blocks181363181379%_)))) + (if (pair? _%hd181368181408%_) + (let ((_%hd181370181413%_ (let () (declare (not safe)) - (##car _%hd180236180276%_))) - (_%tl180239180283%_ + (##car _%hd181368181408%_))) + (_%tl181371181415%_ (let () (declare (not safe)) - (##cdr _%hd180236180276%_)))) - (let ((_%name180286%_ _%hd180238180281%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl180239180283%_)) - (let ((_%hd180240180288%_ + (##cdr _%hd181368181408%_)))) + (let ((_%name181418%_ _%hd181370181413%_)) + (if (pair? _%tl181371181415%_) + (let ((_%hd181372181420%_ (let () (declare (not safe)) - (##car _%tl180239180283%_))) - (_%tl180241180290%_ + (##car _%tl181371181415%_))) + (_%tl181373181422%_ (let () (declare (not safe)) - (##cdr _%tl180239180283%_)))) + (##cdr _%tl181371181415%_)))) (if (let () (declare (not safe)) - (##eq? _%hd180240180288%_ 'restart:)) - (if (let () - (declare (not safe)) - (##pair? _%tl180241180290%_)) - (let ((_%hd180242180293%_ + (##eq? _%hd181372181420%_ 'restart:)) + (if (pair? _%tl181373181422%_) + (let ((_%hd181374181425%_ (let () (declare (not safe)) - (##car _%tl180241180290%_))) - (_%tl180243180295%_ + (##car _%tl181373181422%_))) + (_%tl181375181427%_ (let () (declare (not safe)) - (##cdr _%tl180241180290%_)))) - (let ((_%kont180298%_ - _%hd180242180293%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl180243180295%_)) - (let ((_%tl180245180300%_ + (##cdr _%tl181373181422%_)))) + (let ((_%kont181430%_ + _%hd181374181425%_)) + (if (pair? _%tl181375181427%_) + (let ((_%tl181377181432%_ (let () (declare (not safe)) - (##cdr _%tl180243180295%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl180245180300%_)) - (let ((_%rest180303%_ - _%tl180237180278%_)) - (_%K180235180273%_ - _%rest180303%_ - _%kont180298%_ - _%name180286%_)) - (_%else180233180255%_))) - (_%else180233180255%_)))) - (_%else180233180255%_)) - (_%else180233180255%_))) - (_%else180233180255%_)))) - (_%else180233180255%_))) - (_%else180233180255%_))))) + (##cdr _%tl181375181427%_)))) + (if (null? _%tl181377181432%_) + (let ((_%rest181435%_ + _%tl181369181410%_)) + (_%K181367181405%_ + _%rest181435%_ + _%kont181430%_ + _%name181418%_)) + (_%else181365181387%_))) + (_%else181365181387%_)))) + (_%else181365181387%_)) + (_%else181365181387%_))) + (_%else181365181387%_)))) + (_%else181365181387%_))) + (_%else181365181387%_))))) (define gxc#optimize-match-assert-restart - (lambda (_%block179625%_ _%name179626%_) - (letrec ((_%assert-restart179628%_ - (lambda (_%expr179784%_ _%assert179785%_) - (let* ((_%__stx190184190185%_ _%expr179784%_) - (_%g179791179888%_ + (lambda (_%block180757%_ _%name180758%_) + (letrec ((_%assert-restart180760%_ + (lambda (_%expr180916%_ _%assert180917%_) + (let* ((_%__stx191316191317%_ _%expr180916%_) + (_%g180923181020%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190184190185%_))))) - (let ((_%__kont190186190187%_ - (lambda (_%L180204%_ _%L180205%_ _%L180206%_) - (let ((_%$e180223%_ - (_%assert-restart179628%_ - _%L180205%_ - (cons (cons _%L180206%_ '#t) - _%assert179785%_)))) - (if _%$e180223%_ - _%$e180223%_ - (_%assert-restart179628%_ - _%L180204%_ - (cons (cons _%L180206%_ '#f) - _%assert179785%_)))))) - (_%__kont190188190189%_ - (lambda (_%L180152%_) + _%__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%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L180152%_ - _%name179626%_)) - _%assert179785%_ + _%L181284%_ + _%name180758%_)) + _%assert180917%_ '#f))) - (_%__kont190190190191%_ - (lambda (_%L180102%_) - (_%assert-restart179628%_ - _%L180102%_ - _%assert179785%_))) - (_%__kont190192190193%_ - (lambda (_%L180028%_ - _%L180029%_ - _%L180030%_ - _%L180031%_ - _%L180032%_) - (_%assert-restart179628%_ - _%L180030%_ - _%assert179785%_))) - (_%__kont190198190199%_ (lambda () '#f))) - (let ((_%__match190353190354%_ - (lambda (_%e179836179900%_ - _%hd179837179903%_ - _%tl179838179905%_ - _%e179839179908%_ - _%hd179840179911%_ - _%tl179841179913%_ - _%e179842179916%_ - _%hd179843179919%_ - _%tl179844179921%_ - _%e179845179924%_ - _%hd179846179927%_ - _%tl179847179929%_ - _%e179848179932%_ - _%hd179849179935%_ - _%tl179850179937%_ - _%e179851179940%_ - _%hd179852179943%_ - _%tl179853179945%_ - _%e179854179948%_ - _%hd179855179951%_ - _%tl179856179953%_ - _%e179857179956%_ - _%hd179858179959%_ - _%tl179859179961%_ - _%__splice190194190195%_ - _%target179860179964%_ - _%tl179862179966%_) - (letrec ((_%loop179863179969%_ - (lambda (_%hd179861179972%_ - _%id179867179974%_) + (_%__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%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179861179972%_)) - (let ((_%e179864179977%_ + _%hd180993181104%_)) + (let ((_%e180996181109%_ (let () (declare (not safe)) (gx#stx-e - _%hd179861179972%_)))) - (let ((_%lp-tl179866179982%_ + _%hd180993181104%_)))) + (let ((_%lp-tl180998181114%_ (let () (declare (not safe)) - (##cdr _%e179864179977%_))) - (_%lp-hd179865179980%_ + (##cdr _%e180996181109%_))) + (_%lp-hd180997181112%_ (let () (declare (not safe)) - (##car _%e179864179977%_)))) - (_%loop179863179969%_ - _%lp-tl179866179982%_ - (cons _%lp-hd179865179980%_ - _%id179867179974%_)))) - (let ((_%id179868179985%_ - (reverse _%id179867179974%_))) + (##car _%e180996181109%_)))) + (_%loop180995181101%_ + _%lp-tl180998181114%_ + (cons _%lp-hd180997181112%_ + _%id180999181106%_)))) + (let ((_%id181000181117%_ + (reverse _%id180999181106%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179859179961%_)) - (let ((_%e179869179988%_ + _%tl180991181093%_)) + (let ((_%e181001181120%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179859179961%_)))) - (let ((_%tl179871179993%_ + (gx#stx-e _%tl180991181093%_)))) + (let ((_%tl181003181125%_ (let () (declare (not safe)) - (##cdr _%e179869179988%_))) - (_%hd179870179991%_ + (##cdr _%e181001181120%_))) + (_%hd181002181123%_ (let () (declare (not safe)) - (##car _%e179869179988%_)))) + (##car _%e181001181120%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179871179993%_)) + (gx#stx-null? _%tl181003181125%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179853179945%_)) + (gx#stx-null? _%tl180985181077%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl179844179921%_)) - (let ((_%__splice190196190197%_ + (gx#stx-pair/null? _%tl180976181053%_)) + (let ((_%__splice191328191329%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl179844179921%_ + _%tl180976181053%_ '0)))) - (let ((_%tl179874179998%_ + (let ((_%tl181006181130%_ (let () (declare (not safe)) (##vector-ref - _%__splice190196190197%_ + _%__splice191328191329%_ '1))) - (_%target179872179996%_ + (_%target181004181128%_ (let () (declare (not safe)) (##vector-ref - _%__splice190196190197%_ + _%__splice191328191329%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179874179998%_)) - (letrec ((_%loop179875180001%_ - (lambda (_%hd179873180004%_ - _%bind179879180006%_) + (gx#stx-null? _%tl181006181130%_)) + (letrec ((_%loop181007181133%_ + (lambda (_%hd181005181136%_ + _%bind181011181138%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179873180004%_)) - (let ((_%e179876180009%_ + _%hd181005181136%_)) + (let ((_%e181008181141%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd179873180004%_)))) - (let ((_%lp-tl179878180014%_ + (gx#stx-e _%hd181005181136%_)))) + (let ((_%lp-tl181010181146%_ (let () (declare (not safe)) - (##cdr _%e179876180009%_))) - (_%lp-hd179877180012%_ + (##cdr _%e181008181141%_))) + (_%lp-hd181009181144%_ (let () (declare (not safe)) - (##car _%e179876180009%_)))) - (_%loop179875180001%_ - _%lp-tl179878180014%_ - (cons _%lp-hd179877180012%_ _%bind179879180006%_)))) - (let ((_%bind179880180017%_ (reverse _%bind179879180006%_))) + (##car _%e181008181141%_)))) + (_%loop181007181133%_ + _%lp-tl181010181146%_ + (cons _%lp-hd181009181144%_ _%bind181011181138%_)))) + (let ((_%bind181012181149%_ (reverse _%bind181011181138%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179841179913%_)) - (let ((_%e179881180020%_ + (gx#stx-pair? _%tl180973181045%_)) + (let ((_%e181013181152%_ (let () (declare (not safe)) - (gx#stx-e _%tl179841179913%_)))) - (let ((_%tl179883180025%_ + (gx#stx-e _%tl180973181045%_)))) + (let ((_%tl181015181157%_ (let () (declare (not safe)) - (##cdr _%e179881180020%_))) - (_%hd179882180023%_ + (##cdr _%e181013181152%_))) + (_%hd181014181155%_ (let () (declare (not safe)) - (##car _%e179881180020%_)))) + (##car _%e181013181152%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179883180025%_)) - (_%__kont190192190193%_ - _%hd179882180023%_ - _%bind179880180017%_ - _%hd179870179991%_ - _%id179868179985%_ - _%hd179849179935%_) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_))))))) + (gx#stx-null? _%tl181015181157%_)) + (_%__kont191324191325%_ + _%hd181014181155%_ + _%bind181012181149%_ + _%hd181002181123%_ + _%id181000181117%_ + _%hd180981181067%_) + (_%__kont191330191331%_)))) + (_%__kont191330191331%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop179875180001%_ - _%target179872179996%_ + (_%loop181007181133%_ + _%target181004181128%_ '())) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)) - (_%__kont190198190199%_)) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_))))))) + (_%__kont191330191331%_)))) + (_%__kont191330191331%_)) + (_%__kont191330191331%_)) + (_%__kont191330191331%_)))) + (_%__kont191330191331%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop179863179969%_ - _%target179860179964%_ + (_%loop180995181101%_ + _%target180992181096%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190184190185%_)) - (let ((_%e179796180172%_ + (gx#stx-pair? _%__stx191316191317%_)) + (let ((_%e180928181304%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190184190185%_)))) - (let ((_%tl179798180177%_ + (gx#stx-e _%__stx191316191317%_)))) + (let ((_%tl180930181309%_ (let () (declare (not safe)) - (##cdr _%e179796180172%_))) - (_%hd179797180175%_ + (##cdr _%e180928181304%_))) + (_%hd180929181307%_ (let () (declare (not safe)) - (##car _%e179796180172%_)))) + (##car _%e180928181304%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179797180175%_)) + (gx#identifier? _%hd180929181307%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd179797180175%_)) + _%hd180929181307%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179798180177%_)) - (let ((_%e179799180180%_ + _%tl180930181309%_)) + (let ((_%e180931181312%_ (let () (declare (not safe)) (gx#stx-e - _%tl179798180177%_)))) - (let ((_%tl179801180185%_ + _%tl180930181309%_)))) + (let ((_%tl180933181317%_ (let () (declare (not safe)) - (##cdr _%e179799180180%_))) - (_%hd179800180183%_ + (##cdr _%e180931181312%_))) + (_%hd180932181315%_ (let () (declare (not safe)) - (##car _%e179799180180%_)))) + (##car _%e180931181312%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179801180185%_)) - (let ((_%e179802180188%_ + _%tl180933181317%_)) + (let ((_%e180934181320%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179801180185%_)))) - (let ((_%tl179804180193%_ - (let () (declare (not safe)) (##cdr _%e179802180188%_))) - (_%hd179803180191%_ + (gx#stx-e _%tl180933181317%_)))) + (let ((_%tl180936181325%_ + (let () (declare (not safe)) (##cdr _%e180934181320%_))) + (_%hd180935181323%_ (let () (declare (not safe)) - (##car _%e179802180188%_)))) + (##car _%e180934181320%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179804180193%_)) - (let ((_%e179805180196%_ + (gx#stx-pair? _%tl180936181325%_)) + (let ((_%e180937181328%_ (let () (declare (not safe)) - (gx#stx-e _%tl179804180193%_)))) - (let ((_%tl179807180201%_ + (gx#stx-e _%tl180936181325%_)))) + (let ((_%tl180939181333%_ (let () (declare (not safe)) - (##cdr _%e179805180196%_))) - (_%hd179806180199%_ + (##cdr _%e180937181328%_))) + (_%hd180938181331%_ (let () (declare (not safe)) - (##car _%e179805180196%_)))) + (##car _%e180937181328%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179807180201%_)) - (_%__kont190186190187%_ - _%hd179806180199%_ - _%hd179803180191%_ - _%hd179800180183%_) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)))) + (gx#stx-null? _%tl180939181333%_)) + (_%__kont191318191319%_ + _%hd180938181331%_ + _%hd180935181323%_ + _%hd180932181315%_) + (_%__kont191330191331%_)))) + (_%__kont191330191331%_)))) + (_%__kont191330191331%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190198190199%_)) + (_%__kont191330191331%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd179797180175%_)) + _%hd180929181307%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179798180177%_)) - (let ((_%e179812180128%_ + _%tl180930181309%_)) + (let ((_%e180944181260%_ (let () (declare (not safe)) (gx#stx-e - _%tl179798180177%_)))) - (let ((_%tl179814180133%_ + _%tl180930181309%_)))) + (let ((_%tl180946181265%_ (let () (declare (not safe)) - (##cdr _%e179812180128%_))) - (_%hd179813180131%_ + (##cdr _%e180944181260%_))) + (_%hd180945181263%_ (let () (declare (not safe)) - (##car _%e179812180128%_)))) + (##car _%e180944181260%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179813180131%_)) - (let ((_%e179815180136%_ + _%hd180945181263%_)) + (let ((_%e180947181268%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179813180131%_)))) - (let ((_%tl179817180141%_ + (gx#stx-e _%hd180945181263%_)))) + (let ((_%tl180949181273%_ (let () (declare (not safe)) - (##cdr _%e179815180136%_))) - (_%hd179816180139%_ + (##cdr _%e180947181268%_))) + (_%hd180948181271%_ (let () (declare (not safe)) - (##car _%e179815180136%_)))) + (##car _%e180947181268%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179816180139%_)) + (gx#identifier? _%hd180948181271%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd179816180139%_)) + (gx#stx-eq? '%#ref _%hd180948181271%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179817180141%_)) - (let ((_%e179818180144%_ + (gx#stx-pair? _%tl180949181273%_)) + (let ((_%e180950181276%_ (let () (declare (not safe)) - (gx#stx-e _%tl179817180141%_)))) - (let ((_%tl179820180149%_ + (gx#stx-e _%tl180949181273%_)))) + (let ((_%tl180952181281%_ (let () (declare (not safe)) - (##cdr _%e179818180144%_))) - (_%hd179819180147%_ + (##cdr _%e180950181276%_))) + (_%hd180951181279%_ (let () (declare (not safe)) - (##car _%e179818180144%_)))) + (##car _%e180950181276%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179820180149%_)) - (_%__kont190188190189%_ - _%hd179819180147%_) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)) - (_%__kont190198190199%_)) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)))) + (gx#stx-null? _%tl180952181281%_)) + (_%__kont191320191321%_ + _%hd180951181279%_) + (_%__kont191330191331%_)))) + (_%__kont191330191331%_)) + (_%__kont191330191331%_)) + (_%__kont191330191331%_)))) + (_%__kont191330191331%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190198190199%_)) + (_%__kont191330191331%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd179797180175%_)) + _%hd180929181307%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179798180177%_)) - (let ((_%e179825180086%_ + _%tl180930181309%_)) + (let ((_%e180957181218%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179798180177%_)))) - (let ((_%tl179827180091%_ - (let () (declare (not safe)) (##cdr _%e179825180086%_))) - (_%hd179826180089%_ + (gx#stx-e _%tl180930181309%_)))) + (let ((_%tl180959181223%_ + (let () (declare (not safe)) (##cdr _%e180957181218%_))) + (_%hd180958181221%_ (let () (declare (not safe)) - (##car _%e179825180086%_)))) + (##car _%e180957181218%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179827180091%_)) - (let ((_%e179828180094%_ + (gx#stx-pair? _%tl180959181223%_)) + (let ((_%e180960181226%_ (let () (declare (not safe)) - (gx#stx-e _%tl179827180091%_)))) - (let ((_%tl179830180099%_ + (gx#stx-e _%tl180959181223%_)))) + (let ((_%tl180962181231%_ (let () (declare (not safe)) - (##cdr _%e179828180094%_))) - (_%hd179829180097%_ + (##cdr _%e180960181226%_))) + (_%hd180961181229%_ (let () (declare (not safe)) - (##car _%e179828180094%_)))) + (##car _%e180960181226%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179830180099%_)) - (_%__kont190190190191%_ _%hd179829180097%_) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)) + (gx#stx-null? _%tl180962181231%_)) + (_%__kont191322191323%_ _%hd180961181229%_) + (_%__kont191330191331%_)))) + (_%__kont191330191331%_)))) + (_%__kont191330191331%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd179797180175%_)) + _%hd180929181307%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179798180177%_)) - (let ((_%e179839179908%_ + _%tl180930181309%_)) + (let ((_%e180971181040%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl179798180177%_)))) - (let ((_%tl179841179913%_ + (gx#stx-e _%tl180930181309%_)))) + (let ((_%tl180973181045%_ (let () (declare (not safe)) - (##cdr _%e179839179908%_))) - (_%hd179840179911%_ + (##cdr _%e180971181040%_))) + (_%hd180972181043%_ (let () (declare (not safe)) - (##car _%e179839179908%_)))) + (##car _%e180971181040%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179840179911%_)) - (let ((_%e179842179916%_ + (gx#stx-pair? _%hd180972181043%_)) + (let ((_%e180974181048%_ (let () (declare (not safe)) - (gx#stx-e _%hd179840179911%_)))) - (let ((_%tl179844179921%_ + (gx#stx-e _%hd180972181043%_)))) + (let ((_%tl180976181053%_ (let () (declare (not safe)) - (##cdr _%e179842179916%_))) - (_%hd179843179919%_ + (##cdr _%e180974181048%_))) + (_%hd180975181051%_ (let () (declare (not safe)) - (##car _%e179842179916%_)))) + (##car _%e180974181048%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179843179919%_)) - (let ((_%e179845179924%_ + (gx#stx-pair? _%hd180975181051%_)) + (let ((_%e180977181056%_ (let () (declare (not safe)) - (gx#stx-e _%hd179843179919%_)))) - (let ((_%tl179847179929%_ + (gx#stx-e _%hd180975181051%_)))) + (let ((_%tl180979181061%_ (let () (declare (not safe)) - (##cdr _%e179845179924%_))) - (_%hd179846179927%_ + (##cdr _%e180977181056%_))) + (_%hd180978181059%_ (let () (declare (not safe)) - (##car _%e179845179924%_)))) + (##car _%e180977181056%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179846179927%_)) - (let ((_%e179848179932%_ + (gx#stx-pair? _%hd180978181059%_)) + (let ((_%e180980181064%_ (let () (declare (not safe)) (gx#stx-e - _%hd179846179927%_)))) - (let ((_%tl179850179937%_ + _%hd180978181059%_)))) + (let ((_%tl180982181069%_ (let () (declare (not safe)) - (##cdr _%e179848179932%_))) - (_%hd179849179935%_ + (##cdr _%e180980181064%_))) + (_%hd180981181067%_ (let () (declare (not safe)) - (##car _%e179848179932%_)))) + (##car _%e180980181064%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179850179937%_)) + _%tl180982181069%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179847179929%_)) - (let ((_%e179851179940%_ + _%tl180979181061%_)) + (let ((_%e180983181072%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179847179929%_)))) - (let ((_%tl179853179945%_ - (let () (declare (not safe)) (##cdr _%e179851179940%_))) - (_%hd179852179943%_ + (gx#stx-e _%tl180979181061%_)))) + (let ((_%tl180985181077%_ + (let () (declare (not safe)) (##cdr _%e180983181072%_))) + (_%hd180984181075%_ (let () (declare (not safe)) - (##car _%e179851179940%_)))) + (##car _%e180983181072%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179852179943%_)) - (let ((_%e179854179948%_ + (gx#stx-pair? _%hd180984181075%_)) + (let ((_%e180986181080%_ (let () (declare (not safe)) - (gx#stx-e _%hd179852179943%_)))) - (let ((_%tl179856179953%_ + (gx#stx-e _%hd180984181075%_)))) + (let ((_%tl180988181085%_ (let () (declare (not safe)) - (##cdr _%e179854179948%_))) - (_%hd179855179951%_ + (##cdr _%e180986181080%_))) + (_%hd180987181083%_ (let () (declare (not safe)) - (##car _%e179854179948%_)))) + (##car _%e180986181080%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179855179951%_)) + (gx#identifier? _%hd180987181083%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd179855179951%_)) + (gx#stx-eq? '%#lambda _%hd180987181083%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179856179953%_)) - (let ((_%e179857179956%_ + (gx#stx-pair? _%tl180988181085%_)) + (let ((_%e180989181088%_ (let () (declare (not safe)) - (gx#stx-e _%tl179856179953%_)))) - (let ((_%tl179859179961%_ + (gx#stx-e _%tl180988181085%_)))) + (let ((_%tl180991181093%_ (let () (declare (not safe)) - (##cdr _%e179857179956%_))) - (_%hd179858179959%_ + (##cdr _%e180989181088%_))) + (_%hd180990181091%_ (let () (declare (not safe)) - (##car _%e179857179956%_)))) + (##car _%e180989181088%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179858179959%_)) - (let ((_%__splice190194190195%_ + _%hd180990181091%_)) + (let ((_%__splice191326191327%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd179858179959%_ + _%hd180990181091%_ '0)))) - (let ((_%tl179862179966%_ + (let ((_%tl180994181098%_ (let () (declare (not safe)) (##vector-ref - _%__splice190194190195%_ + _%__splice191326191327%_ '1))) - (_%target179860179964%_ + (_%target180992181096%_ (let () (declare (not safe)) (##vector-ref - _%__splice190194190195%_ + _%__splice191326191327%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179862179966%_)) - (_%__match190353190354%_ - _%e179796180172%_ - _%hd179797180175%_ - _%tl179798180177%_ - _%e179839179908%_ - _%hd179840179911%_ - _%tl179841179913%_ - _%e179842179916%_ - _%hd179843179919%_ - _%tl179844179921%_ - _%e179845179924%_ - _%hd179846179927%_ - _%tl179847179929%_ - _%e179848179932%_ - _%hd179849179935%_ - _%tl179850179937%_ - _%e179851179940%_ - _%hd179852179943%_ - _%tl179853179945%_ - _%e179854179948%_ - _%hd179855179951%_ - _%tl179856179953%_ - _%e179857179956%_ - _%hd179858179959%_ - _%tl179859179961%_ - _%__splice190194190195%_ - _%target179860179964%_ - _%tl179862179966%_) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)) - (_%__kont190198190199%_)) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)) + _%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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)) - (_%__kont190198190199%_))))) + (_%__kont191330191331%_)))) + (_%__kont191330191331%_)))) + (_%__kont191330191331%_)))) + (_%__kont191330191331%_)))) + (_%__kont191330191331%_)) + (_%__kont191330191331%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190198190199%_)))) - (_%__kont190198190199%_)))))))) - (let* ((_%block179629179642%_ _%block179625%_) - (_%E179631179646%_ + (_%__kont191330191331%_)))) + (_%__kont191330191331%_)))))))) + (let* ((_%block180761180774%_ _%block180757%_) + (_%E180763180778%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block179629179642%_ + _%block180761180774%_ '([_ _ kont assert . maybe-bind]))) '#!void)) - (_%K179632179759%_ - (lambda (_%maybe-bind179649%_ - _%assert179650%_ - _%kont179651%_) - (let* ((_%g179653179679%_ - (lambda (_%g179654179676%_) + (_%K180764180891%_ + (lambda (_%maybe-bind180781%_ + _%assert180782%_ + _%kont180783%_) + (let* ((_%g180785180811%_ + (lambda (_%g180786180808%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g179654179676%_)))) - (_%g179652179756%_ - (lambda (_%g179654179682%_) + _%g180786180808%_)))) + (_%g180784180888%_ + (lambda (_%g180786180814%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g179654179682%_)) - (let ((_%e179657179684%_ + (gx#stx-pair? _%g180786180814%_)) + (let ((_%e180789180816%_ (let () (declare (not safe)) - (gx#stx-e _%g179654179682%_)))) - (let ((_%hd179658179687%_ + (gx#stx-e _%g180786180814%_)))) + (let ((_%hd180790180819%_ (let () (declare (not safe)) - (##car _%e179657179684%_))) - (_%tl179659179689%_ + (##car _%e180789180816%_))) + (_%tl180791180821%_ (let () (declare (not safe)) - (##cdr _%e179657179684%_)))) + (##cdr _%e180789180816%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179658179687%_)) + _%hd180790180819%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179658179687%_)) + _%hd180790180819%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179659179689%_)) - (let ((_%e179660179692%_ + _%tl180791180821%_)) + (let ((_%e180792180824%_ (let () (declare (not safe)) (gx#stx-e - _%tl179659179689%_)))) - (let ((_%hd179661179695%_ + _%tl180791180821%_)))) + (let ((_%hd180793180827%_ (let () (declare (not safe)) - (##car _%e179660179692%_))) - (_%tl179662179697%_ + (##car _%e180792180824%_))) + (_%tl180794180829%_ (let () (declare (not safe)) - (##cdr _%e179660179692%_)))) + (##cdr _%e180792180824%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179661179695%_)) - (let ((_g191183_ + _%hd180793180827%_)) + (let ((_g192315_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd179661179695%_ '0)))) + (gx#syntax-split-splice _%hd180793180827%_ '0)))) (begin - (let ((_g191184_ + (let ((_g192316_ (let () (declare (not safe)) - (if (##values? _g191183_) - (##vector-length _g191183_) + (if (##values? _g192315_) + (##vector-length _g192315_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g191184_ 2))) - (error "Context expects 2 values" _g191184_))) - (let ((_%target179663179700%_ + (##fx= _g192316_ 2))) + (error "Context expects 2 values" _g192316_))) + (let ((_%target180795180832%_ (let () (declare (not safe)) - (##vector-ref _g191183_ 0))) - (_%tl179665179702%_ + (##vector-ref _g192315_ 0))) + (_%tl180797180834%_ (let () (declare (not safe)) - (##vector-ref _g191183_ 1)))) + (##vector-ref _g192315_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179665179702%_)) - (letrec ((_%loop179666179705%_ - (lambda (_%hd179664179708%_ - _%id179670179710%_) + (gx#stx-null? _%tl180797180834%_)) + (letrec ((_%loop180798180837%_ + (lambda (_%hd180796180840%_ + _%id180802180842%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179664179708%_)) - (let ((_%e179667179713%_ + _%hd180796180840%_)) + (let ((_%e180799180845%_ (let () (declare (not safe)) (gx#stx-e - _%hd179664179708%_)))) - (let ((_%lp-hd179668179716%_ + _%hd180796180840%_)))) + (let ((_%lp-hd180800180848%_ (let () (declare (not safe)) - (##car _%e179667179713%_))) - (_%lp-tl179669179718%_ + (##car _%e180799180845%_))) + (_%lp-tl180801180850%_ (let () (declare (not safe)) - (##cdr _%e179667179713%_)))) - (_%loop179666179705%_ - _%lp-tl179669179718%_ - (cons _%lp-hd179668179716%_ - _%id179670179710%_)))) - (let ((_%id179671179721%_ - (reverse _%id179670179710%_))) + (##cdr _%e180799180845%_)))) + (_%loop180798180837%_ + _%lp-tl180801180850%_ + (cons _%lp-hd180800180848%_ + _%id180802180842%_)))) + (let ((_%id180803180853%_ + (reverse _%id180802180842%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179662179697%_)) - (let ((_%e179672179724%_ + _%tl180794180829%_)) + (let ((_%e180804180856%_ (let () (declare (not safe)) (gx#stx-e - _%tl179662179697%_)))) - (let ((_%hd179673179727%_ + _%tl180794180829%_)))) + (let ((_%hd180805180859%_ (let () (declare (not safe)) - (##car _%e179672179724%_))) - (_%tl179674179729%_ + (##car _%e180804180856%_))) + (_%tl180806180861%_ (let () (declare (not safe)) - (##cdr _%e179672179724%_)))) + (##cdr _%e180804180856%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179674179729%_)) - ((lambda (_%L179732%_ + _%tl180806180861%_)) + ((lambda (_%L180864%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L179733%_) - (_%assert-restart179628%_ _%L179732%_ _%assert179650%_)) - _%hd179673179727%_ - _%id179671179721%_) - (_%g179653179679%_ _%g179654179682%_)))) + _%L180865%_) + (_%assert-restart180760%_ _%L180864%_ _%assert180782%_)) + _%hd180805180859%_ + _%id180803180853%_) + (_%g180785180811%_ _%g180786180814%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179653179679%_ - _%g179654179682%_))))))) - (_%loop179666179705%_ - _%target179663179700%_ + (_%g180785180811%_ + _%g180786180814%_))))))) + (_%loop180798180837%_ + _%target180795180832%_ '())) - (_%g179653179679%_ _%g179654179682%_))))) - (_%g179653179679%_ _%g179654179682%_)))) + (_%g180785180811%_ _%g180786180814%_))))) + (_%g180785180811%_ _%g180786180814%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179653179679%_ - _%g179654179682%_)) - (_%g179653179679%_ - _%g179654179682%_)) - (_%g179653179679%_ - _%g179654179682%_)))) - (_%g179653179679%_ _%g179654179682%_))))) - (_%g179652179756%_ _%kont179651%_))))) - (if (let () (declare (not safe)) (##pair? _%block179629179642%_)) - (let ((_%tl179634179762%_ + (_%g180785180811%_ + _%g180786180814%_)) + (_%g180785180811%_ + _%g180786180814%_)) + (_%g180785180811%_ + _%g180786180814%_)))) + (_%g180785180811%_ _%g180786180814%_))))) + (_%g180784180888%_ _%kont180783%_))))) + (if (pair? _%block180761180774%_) + (let ((_%tl180766180894%_ (let () (declare (not safe)) - (##cdr _%block179629179642%_)))) - (if (let () - (declare (not safe)) - (##pair? _%tl179634179762%_)) - (let ((_%tl179636179765%_ + (##cdr _%block180761180774%_)))) + (if (pair? _%tl180766180894%_) + (let ((_%tl180768180897%_ (let () (declare (not safe)) - (##cdr _%tl179634179762%_)))) - (if (let () - (declare (not safe)) - (##pair? _%tl179636179765%_)) - (let ((_%hd179637179768%_ + (##cdr _%tl180766180894%_)))) + (if (pair? _%tl180768180897%_) + (let ((_%hd180769180900%_ (let () (declare (not safe)) - (##car _%tl179636179765%_))) - (_%tl179638179770%_ + (##car _%tl180768180897%_))) + (_%tl180770180902%_ (let () (declare (not safe)) - (##cdr _%tl179636179765%_)))) - (let ((_%kont179773%_ _%hd179637179768%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl179638179770%_)) - (let ((_%hd179639179775%_ + (##cdr _%tl180768180897%_)))) + (let ((_%kont180905%_ _%hd180769180900%_)) + (if (pair? _%tl180770180902%_) + (let ((_%hd180771180907%_ (let () (declare (not safe)) - (##car _%tl179638179770%_))) - (_%tl179640179777%_ + (##car _%tl180770180902%_))) + (_%tl180772180909%_ (let () (declare (not safe)) - (##cdr _%tl179638179770%_)))) - (let* ((_%assert179780%_ - _%hd179639179775%_) - (_%maybe-bind179782%_ - _%tl179640179777%_)) - (_%K179632179759%_ - _%maybe-bind179782%_ - _%assert179780%_ - _%kont179773%_))) - (_%E179631179646%_)))) - (_%E179631179646%_))) - (_%E179631179646%_))) - (_%E179631179646%_)))))) + (##cdr _%tl180770180902%_)))) + (let* ((_%assert180912%_ + _%hd180771180907%_) + (_%maybe-bind180914%_ + _%tl180772180909%_)) + (_%K180764180891%_ + _%maybe-bind180914%_ + _%assert180912%_ + _%kont180905%_))) + (_%E180763180778%_)))) + (_%E180763180778%_))) + (_%E180763180778%_))) + (_%E180763180778%_)))))) (define gxc#optimize-syntax-case - (lambda (_%stx179256%_) - (let* ((_%g179258179288%_ - (lambda (_%g179259179285%_) + (lambda (_%stx180388%_) + (let* ((_%g180390180420%_ + (lambda (_%g180391180417%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g179259179285%_)))) - (_%g179257179622%_ - (lambda (_%g179259179291%_) + _%g180391180417%_)))) + (_%g180389180754%_ + (lambda (_%g180391180423%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g179259179291%_)) - (let ((_%e179263179293%_ + (gx#stx-pair? _%g180391180423%_)) + (let ((_%e180395180425%_ (let () (declare (not safe)) - (gx#stx-e _%g179259179291%_)))) - (let ((_%hd179264179296%_ + (gx#stx-e _%g180391180423%_)))) + (let ((_%hd180396180428%_ (let () (declare (not safe)) - (##car _%e179263179293%_))) - (_%tl179265179298%_ + (##car _%e180395180425%_))) + (_%tl180397180430%_ (let () (declare (not safe)) - (##cdr _%e179263179293%_)))) + (##cdr _%e180395180425%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179264179296%_)) + (gx#identifier? _%hd180396180428%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd179264179296%_)) + _%hd180396180428%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179265179298%_)) - (let ((_%e179266179301%_ + (gx#stx-pair? _%tl180397180430%_)) + (let ((_%e180398180433%_ (let () (declare (not safe)) - (gx#stx-e _%tl179265179298%_)))) - (let ((_%hd179267179304%_ + (gx#stx-e _%tl180397180430%_)))) + (let ((_%hd180399180436%_ (let () (declare (not safe)) - (##car _%e179266179301%_))) - (_%tl179268179306%_ + (##car _%e180398180433%_))) + (_%tl180400180438%_ (let () (declare (not safe)) - (##cdr _%e179266179301%_)))) + (##cdr _%e180398180433%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179267179304%_)) - (let ((_%e179269179309%_ + _%hd180399180436%_)) + (let ((_%e180401180441%_ (let () (declare (not safe)) (gx#stx-e - _%hd179267179304%_)))) - (let ((_%hd179270179312%_ + _%hd180399180436%_)))) + (let ((_%hd180402180444%_ (let () (declare (not safe)) - (##car _%e179269179309%_))) - (_%tl179271179314%_ + (##car _%e180401180441%_))) + (_%tl180403180446%_ (let () (declare (not safe)) - (##cdr _%e179269179309%_)))) + (##cdr _%e180401180441%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179270179312%_)) - (let ((_%e179272179317%_ + _%hd180402180444%_)) + (let ((_%e180404180449%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd179270179312%_)))) - (let ((_%hd179273179320%_ - (let () (declare (not safe)) (##car _%e179272179317%_))) - (_%tl179274179322%_ + (gx#stx-e _%hd180402180444%_)))) + (let ((_%hd180405180452%_ + (let () (declare (not safe)) (##car _%e180404180449%_))) + (_%tl180406180454%_ (let () (declare (not safe)) - (##cdr _%e179272179317%_)))) + (##cdr _%e180404180449%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179273179320%_)) - (let ((_%e179275179325%_ + (gx#stx-pair? _%hd180405180452%_)) + (let ((_%e180407180457%_ (let () (declare (not safe)) - (gx#stx-e _%hd179273179320%_)))) - (let ((_%hd179276179328%_ + (gx#stx-e _%hd180405180452%_)))) + (let ((_%hd180408180460%_ (let () (declare (not safe)) - (##car _%e179275179325%_))) - (_%tl179277179330%_ + (##car _%e180407180457%_))) + (_%tl180409180462%_ (let () (declare (not safe)) - (##cdr _%e179275179325%_)))) + (##cdr _%e180407180457%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179277179330%_)) + (gx#stx-null? _%tl180409180462%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179274179322%_)) - (let ((_%e179278179333%_ + (gx#stx-pair? _%tl180406180454%_)) + (let ((_%e180410180465%_ (let () (declare (not safe)) - (gx#stx-e _%tl179274179322%_)))) - (let ((_%hd179279179336%_ + (gx#stx-e _%tl180406180454%_)))) + (let ((_%hd180411180468%_ (let () (declare (not safe)) - (##car _%e179278179333%_))) - (_%tl179280179338%_ + (##car _%e180410180465%_))) + (_%tl180412180470%_ (let () (declare (not safe)) - (##cdr _%e179278179333%_)))) + (##cdr _%e180410180465%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179280179338%_)) + (gx#stx-null? _%tl180412180470%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179271179314%_)) + _%tl180403180446%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179268179306%_)) - (let ((_%e179281179341%_ + _%tl180400180438%_)) + (let ((_%e180413180473%_ (let () (declare (not safe)) (gx#stx-e - _%tl179268179306%_)))) - (let ((_%hd179282179344%_ + _%tl180400180438%_)))) + (let ((_%hd180414180476%_ (let () (declare (not safe)) - (##car _%e179281179341%_))) - (_%tl179283179346%_ + (##car _%e180413180473%_))) + (_%tl180415180478%_ (let () (declare (not safe)) - (##cdr _%e179281179341%_)))) + (##cdr _%e180413180473%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179283179346%_)) - ((lambda (_%L179349%_ + _%tl180415180478%_)) + ((lambda (_%L180481%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L179350%_ - _%L179351%_) - (let _%lp179375%_ ((_%body179377%_ _%L179349%_) - (_%clauses179378%_ '())) - (let* ((_%__stx190356190357%_ _%body179377%_) - (_%g179381179428%_ + _%L180482%_ + _%L180483%_) + (let _%lp180507%_ ((_%body180509%_ _%L180481%_) + (_%clauses180510%_ '())) + (let* ((_%__stx191488191489%_ _%body180509%_) + (_%g180513180560%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190356190357%_))))) - (let ((_%__kont190358190359%_ - (lambda (_%L179594%_ _%L179595%_ _%L179596%_) - (_%lp179375%_ - _%L179594%_ - (cons (cons _%L179596%_ + _%__stx191488191489%_))))) + (let ((_%__kont191490191491%_ + (lambda (_%L180726%_ _%L180727%_ _%L180728%_) + (_%lp180507%_ + _%L180726%_ + (cons (cons _%L180728%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L179595%_))) - _%clauses179378%_)))) - (_%__kont190360190361%_ - (lambda (_%L179473%_ _%L179474%_) - (let ((_%$e179495%_ - (length _%clauses179378%_))) - (if (eq? '0 _%$e179495%_) - (let ((__tmp191185 + _%L180727%_))) + _%clauses180510%_)))) + (_%__kont191492191493%_ + (lambda (_%L180605%_ _%L180606%_) + (let ((_%$e180627%_ + (length _%clauses180510%_))) + (if (eq? '0 _%$e180627%_) + (let ((__tmp192317 (cons '%#let-values - (cons (cons (cons (cons _%L179351%_ + (cons (cons (cons (cons _%L180483%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L179350%_ '())) + (cons _%L180482%_ '())) '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%body179377%_)) + (gxc#compile-e__0 _%body180509%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp191185 - _%stx179256%_)) - (if (eq? '1 _%$e179495%_) - (let* ((_%clauses179497179506%_ - _%clauses179378%_) - (_%E179499179510%_ + __tmp192317 + _%stx180388%_)) + (if (eq? '1 _%$e180627%_) + (let* ((_%clauses180629180638%_ + _%clauses180510%_) + (_%E180631180642%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses179497179506%_ + _%clauses180629180638%_ '([[clause ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . clause-lambda]]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K179500179516%_ - (lambda (_%clause-lambda179513%_ - _%clause179514%_) - (let ((__tmp191186 + (_%K180632180648%_ + (lambda (_%clause-lambda180645%_ + _%clause180646%_) + (let ((__tmp192318 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L179351%_ '()) - (cons _%L179350%_ '())) + (cons (cons (cons (cons _%L180483%_ '()) + (cons _%L180482%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%clause179514%_ + (cons (cons (cons (cons _%clause180646%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%clause-lambda179513%_ '())) + (cons _%clause-lambda180645%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%body179377%_)) + _%body180509%_)) '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp191186 _%stx179256%_))))) + (gxc#xform-wrap-source __tmp192318 _%stx180388%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%clauses179497179506%_)) - (let ((_%hd179501179519%_ + (if (pair? _%clauses180629180638%_) + (let ((_%hd180633180651%_ (let () (declare (not safe)) - (##car _%clauses179497179506%_))) - (_%tl179502179521%_ + (##car _%clauses180629180638%_))) + (_%tl180634180653%_ (let () (declare (not safe)) - (##cdr _%clauses179497179506%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd179501179519%_)) - (let ((_%hd179503179524%_ + (##cdr _%clauses180629180638%_)))) + (if (pair? _%hd180633180651%_) + (let ((_%hd180635180656%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%hd179501179519%_))) - (_%tl179504179526%_ + (##car _%hd180633180651%_))) + (_%tl180636180658%_ (let () (declare (not safe)) - (##cdr _%hd179501179519%_)))) - (let* ((_%clause179529%_ _%hd179503179524%_) - (_%clause-lambda179531%_ _%tl179504179526%_)) - (if (let () - (declare (not safe)) - (##null? _%tl179502179521%_)) - (_%K179500179516%_ - _%clause-lambda179531%_ - _%clause179529%_) - (_%E179499179510%_)))) - (_%E179499179510%_))) + (##cdr _%hd180633180651%_)))) + (let* ((_%clause180661%_ _%hd180635180656%_) + (_%clause-lambda180663%_ _%tl180636180658%_)) + (if (null? _%tl180634180653%_) + (_%K180632180648%_ + _%clause-lambda180663%_ + _%clause180661%_) + (_%E180631180642%_)))) + (_%E180631180642%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E179499179510%_))) + (_%E180631180642%_))) (gxc#optimize-syntax-case-body - _%stx179256%_ + _%stx180388%_ (let () (declare (not safe)) - (gxc#compile-e__0 _%L179473%_)) - (cons _%L179351%_ _%L179350%_) - _%clauses179378%_))))))) + (gxc#compile-e__0 _%L180605%_)) + (cons _%L180483%_ _%L180482%_) + _%clauses180510%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190356190357%_)) - (let ((_%e179386179538%_ + (gx#stx-pair? _%__stx191488191489%_)) + (let ((_%e180518180670%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190356190357%_)))) - (let ((_%tl179388179543%_ + (gx#stx-e _%__stx191488191489%_)))) + (let ((_%tl180520180675%_ (let () (declare (not safe)) - (##cdr _%e179386179538%_))) - (_%hd179387179541%_ + (##cdr _%e180518180670%_))) + (_%hd180519180673%_ (let () (declare (not safe)) - (##car _%e179386179538%_)))) + (##car _%e180518180670%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179387179541%_)) + (gx#identifier? _%hd180519180673%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd179387179541%_)) + _%hd180519180673%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179388179543%_)) - (let ((_%e179389179546%_ + _%tl180520180675%_)) + (let ((_%e180521180678%_ (let () (declare (not safe)) (gx#stx-e - _%tl179388179543%_)))) - (let ((_%tl179391179551%_ + _%tl180520180675%_)))) + (let ((_%tl180523180683%_ (let () (declare (not safe)) - (##cdr _%e179389179546%_))) - (_%hd179390179549%_ + (##cdr _%e180521180678%_))) + (_%hd180522180681%_ (let () (declare (not safe)) - (##car _%e179389179546%_)))) + (##car _%e180521180678%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179390179549%_)) - (let ((_%e179392179554%_ + _%hd180522180681%_)) + (let ((_%e180524180686%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd179390179549%_)))) - (let ((_%tl179394179559%_ + (gx#stx-e _%hd180522180681%_)))) + (let ((_%tl180526180691%_ (let () (declare (not safe)) - (##cdr _%e179392179554%_))) - (_%hd179393179557%_ + (##cdr _%e180524180686%_))) + (_%hd180525180689%_ (let () (declare (not safe)) - (##car _%e179392179554%_)))) + (##car _%e180524180686%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179393179557%_)) - (let ((_%e179395179562%_ + (gx#stx-pair? _%hd180525180689%_)) + (let ((_%e180527180694%_ (let () (declare (not safe)) - (gx#stx-e _%hd179393179557%_)))) - (let ((_%tl179397179567%_ + (gx#stx-e _%hd180525180689%_)))) + (let ((_%tl180529180699%_ (let () (declare (not safe)) - (##cdr _%e179395179562%_))) - (_%hd179396179565%_ + (##cdr _%e180527180694%_))) + (_%hd180528180697%_ (let () (declare (not safe)) - (##car _%e179395179562%_)))) + (##car _%e180527180694%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179396179565%_)) - (let ((_%e179398179570%_ + (gx#stx-pair? _%hd180528180697%_)) + (let ((_%e180530180702%_ (let () (declare (not safe)) - (gx#stx-e _%hd179396179565%_)))) - (let ((_%tl179400179575%_ + (gx#stx-e _%hd180528180697%_)))) + (let ((_%tl180532180707%_ (let () (declare (not safe)) - (##cdr _%e179398179570%_))) - (_%hd179399179573%_ + (##cdr _%e180530180702%_))) + (_%hd180531180705%_ (let () (declare (not safe)) - (##car _%e179398179570%_)))) + (##car _%e180530180702%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179400179575%_)) + (gx#stx-null? _%tl180532180707%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179397179567%_)) - (let ((_%e179401179578%_ + (gx#stx-pair? _%tl180529180699%_)) + (let ((_%e180533180710%_ (let () (declare (not safe)) (gx#stx-e - _%tl179397179567%_)))) - (let ((_%tl179403179583%_ + _%tl180529180699%_)))) + (let ((_%tl180535180715%_ (let () (declare (not safe)) - (##cdr _%e179401179578%_))) - (_%hd179402179581%_ + (##cdr _%e180533180710%_))) + (_%hd180534180713%_ (let () (declare (not safe)) - (##car _%e179401179578%_)))) + (##car _%e180533180710%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179403179583%_)) + _%tl180535180715%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179394179559%_)) + _%tl180526180691%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179391179551%_)) - (let ((_%e179404179586%_ + _%tl180523180683%_)) + (let ((_%e180536180718%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl179391179551%_)))) - (let ((_%tl179406179591%_ + (gx#stx-e _%tl180523180683%_)))) + (let ((_%tl180538180723%_ (let () (declare (not safe)) - (##cdr _%e179404179586%_))) - (_%hd179405179589%_ + (##cdr _%e180536180718%_))) + (_%hd180537180721%_ (let () (declare (not safe)) - (##car _%e179404179586%_)))) + (##car _%e180536180718%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179406179591%_)) - (_%__kont190358190359%_ - _%hd179405179589%_ - _%hd179402179581%_ - _%hd179399179573%_) - (let () (declare (not safe)) (_%g179381179428%_))))) - (let () (declare (not safe)) (_%g179381179428%_))) - (let () (declare (not safe)) (_%g179381179428%_))) + (gx#stx-null? _%tl180538180723%_)) + (_%__kont191490191491%_ + _%hd180537180721%_ + _%hd180534180713%_ + _%hd180531180705%_) + (let () (declare (not safe)) (_%g180513180560%_))))) + (let () (declare (not safe)) (_%g180513180560%_))) + (let () (declare (not safe)) (_%g180513180560%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179381179428%_))))) + (_%g180513180560%_))))) (let () (declare (not safe)) - (_%g179381179428%_))) + (_%g180513180560%_))) (let () (declare (not safe)) - (_%g179381179428%_))))) + (_%g180513180560%_))))) (let () (declare (not safe)) - (_%g179381179428%_))))) - (let () (declare (not safe)) (_%g179381179428%_))))) - (let () (declare (not safe)) (_%g179381179428%_))))) + (_%g180513180560%_))))) + (let () (declare (not safe)) (_%g180513180560%_))))) + (let () (declare (not safe)) (_%g180513180560%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179381179428%_))) + (_%g180513180560%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd179387179541%_)) + _%hd180519180673%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179388179543%_)) - (let ((_%e179412179441%_ + _%tl180520180675%_)) + (let ((_%e180544180573%_ (let () (declare (not safe)) (gx#stx-e - _%tl179388179543%_)))) - (let ((_%tl179414179446%_ + _%tl180520180675%_)))) + (let ((_%tl180546180578%_ (let () (declare (not safe)) - (##cdr _%e179412179441%_))) - (_%hd179413179444%_ + (##cdr _%e180544180573%_))) + (_%hd180545180576%_ (let () (declare (not safe)) - (##car _%e179412179441%_)))) + (##car _%e180544180573%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179413179444%_)) - (let ((_%e179415179449%_ + _%hd180545180576%_)) + (let ((_%e180547180581%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179413179444%_)))) - (let ((_%tl179417179454%_ + (gx#stx-e _%hd180545180576%_)))) + (let ((_%tl180549180586%_ (let () (declare (not safe)) - (##cdr _%e179415179449%_))) - (_%hd179416179452%_ + (##cdr _%e180547180581%_))) + (_%hd180548180584%_ (let () (declare (not safe)) - (##car _%e179415179449%_)))) + (##car _%e180547180581%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179416179452%_)) + (gx#identifier? _%hd180548180584%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd179416179452%_)) + (gx#stx-eq? '%#ref _%hd180548180584%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179417179454%_)) - (let ((_%e179418179457%_ + (gx#stx-pair? _%tl180549180586%_)) + (let ((_%e180550180589%_ (let () (declare (not safe)) - (gx#stx-e _%tl179417179454%_)))) - (let ((_%tl179420179462%_ + (gx#stx-e _%tl180549180586%_)))) + (let ((_%tl180552180594%_ (let () (declare (not safe)) - (##cdr _%e179418179457%_))) - (_%hd179419179460%_ + (##cdr _%e180550180589%_))) + (_%hd180551180592%_ (let () (declare (not safe)) - (##car _%e179418179457%_)))) + (##car _%e180550180589%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179420179462%_)) + (gx#stx-null? _%tl180552180594%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179414179446%_)) - (let ((_%e179421179465%_ + _%tl180546180578%_)) + (let ((_%e180553180597%_ (let () (declare (not safe)) (gx#stx-e - _%tl179414179446%_)))) - (let ((_%tl179423179470%_ + _%tl180546180578%_)))) + (let ((_%tl180555180602%_ (let () (declare (not safe)) - (##cdr _%e179421179465%_))) - (_%hd179422179468%_ + (##cdr _%e180553180597%_))) + (_%hd180554180600%_ (let () (declare (not safe)) - (##car _%e179421179465%_)))) + (##car _%e180553180597%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179423179470%_)) - (_%__kont190360190361%_ - _%hd179422179468%_ - _%hd179419179460%_) + _%tl180555180602%_)) + (_%__kont191492191493%_ + _%hd180554180600%_ + _%hd180551180592%_) (let () (declare (not safe)) - (_%g179381179428%_))))) + (_%g180513180560%_))))) (let () (declare (not safe)) - (_%g179381179428%_))) + (_%g180513180560%_))) (let () (declare (not safe)) - (_%g179381179428%_))))) + (_%g180513180560%_))))) (let () (declare (not safe)) - (_%g179381179428%_))) + (_%g180513180560%_))) (let () (declare (not safe)) - (_%g179381179428%_))) - (let () (declare (not safe)) (_%g179381179428%_))))) - (let () (declare (not safe)) (_%g179381179428%_))))) + (_%g180513180560%_))) + (let () (declare (not safe)) (_%g180513180560%_))))) + (let () (declare (not safe)) (_%g180513180560%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179381179428%_))) + (_%g180513180560%_))) (let () (declare (not safe)) - (_%g179381179428%_)))) + (_%g180513180560%_)))) (let () (declare (not safe)) - (_%g179381179428%_))))) + (_%g180513180560%_))))) (let () (declare (not safe)) - (_%g179381179428%_))))))) - _%hd179282179344%_ - _%hd179279179336%_ - _%hd179276179328%_) - (_%g179258179288%_ _%g179259179291%_)))) + (_%g180513180560%_))))))) + _%hd180414180476%_ + _%hd180411180468%_ + _%hd180408180460%_) + (_%g180390180420%_ _%g180391180423%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179258179288%_ - _%g179259179291%_)) - (_%g179258179288%_ - _%g179259179291%_)) - (_%g179258179288%_ - _%g179259179291%_)))) - (_%g179258179288%_ _%g179259179291%_)) - (_%g179258179288%_ _%g179259179291%_)))) - (_%g179258179288%_ _%g179259179291%_)))) - (_%g179258179288%_ _%g179259179291%_)))) + (_%g180390180420%_ + _%g180391180423%_)) + (_%g180390180420%_ + _%g180391180423%_)) + (_%g180390180420%_ + _%g180391180423%_)))) + (_%g180390180420%_ _%g180391180423%_)) + (_%g180390180420%_ _%g180391180423%_)))) + (_%g180390180420%_ _%g180391180423%_)))) + (_%g180390180420%_ _%g180391180423%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179258179288%_ - _%g179259179291%_)))) - (_%g179258179288%_ _%g179259179291%_)) - (_%g179258179288%_ _%g179259179291%_)) - (_%g179258179288%_ _%g179259179291%_)))) - (_%g179258179288%_ _%g179259179291%_))))) - (_%g179257179622%_ _%stx179256%_)))) + (_%g180390180420%_ + _%g180391180423%_)))) + (_%g180390180420%_ _%g180391180423%_)) + (_%g180390180420%_ _%g180391180423%_)) + (_%g180390180420%_ _%g180391180423%_)))) + (_%g180390180420%_ _%g180391180423%_))))) + (_%g180389180754%_ _%stx180388%_)))) (define gxc#optimize-syntax-case-body - (lambda (_%stx179183%_ - _%expr179184%_ - _%negation179185%_ - _%clauses179186%_) - (letrec ((_%normalize179188%_ - (lambda (_%clauses179216%_) - (let* ((_%clauses179217179226%_ _%clauses179216%_) - (_%E179219179230%_ + (lambda (_%stx180315%_ + _%expr180316%_ + _%negation180317%_ + _%clauses180318%_) + (letrec ((_%normalize180320%_ + (lambda (_%clauses180348%_) + (let* ((_%clauses180349180358%_ _%clauses180348%_) + (_%E180351180362%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses179217179226%_ + _%clauses180349180358%_ '([[id . kont] . rest]))) '#!void)) - (_%K179220179237%_ - (lambda (_%rest179233%_ - _%kont179234%_ - _%id179235%_) - (cons (cons '#f _%kont179234%_) - _%rest179233%_)))) - (if (let () - (declare (not safe)) - (##pair? _%clauses179217179226%_)) - (let ((_%hd179221179240%_ + (_%K180352180369%_ + (lambda (_%rest180365%_ + _%kont180366%_ + _%id180367%_) + (cons (cons '#f _%kont180366%_) + _%rest180365%_)))) + (if (pair? _%clauses180349180358%_) + (let ((_%hd180353180372%_ (let () (declare (not safe)) - (##car _%clauses179217179226%_))) - (_%tl179222179242%_ + (##car _%clauses180349180358%_))) + (_%tl180354180374%_ (let () (declare (not safe)) - (##cdr _%clauses179217179226%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd179221179240%_)) - (let ((_%hd179223179245%_ + (##cdr _%clauses180349180358%_)))) + (if (pair? _%hd180353180372%_) + (let ((_%hd180355180377%_ (let () (declare (not safe)) - (##car _%hd179221179240%_))) - (_%tl179224179247%_ + (##car _%hd180353180372%_))) + (_%tl180356180379%_ (let () (declare (not safe)) - (##cdr _%hd179221179240%_)))) - (let* ((_%id179250%_ _%hd179223179245%_) - (_%kont179252%_ _%tl179224179247%_) - (_%rest179254%_ _%tl179222179242%_)) - (_%K179220179237%_ - _%rest179254%_ - _%kont179252%_ - _%id179250%_))) - (_%E179219179230%_))) - (_%E179219179230%_)))))) - (let ((__tmp191188 + (##cdr _%hd180353180372%_)))) + (let* ((_%id180382%_ _%hd180355180377%_) + (_%kont180384%_ _%tl180356180379%_) + (_%rest180386%_ _%tl180354180374%_)) + (_%K180352180369%_ + _%rest180386%_ + _%kont180384%_ + _%id180382%_))) + (_%E180351180362%_))) + (_%E180351180362%_)))))) + (let ((__tmp192320 (lambda () - (let* ((_%id179191%_ - (let ((__tmp191189 + (let* ((_%id180323%_ + (let ((__tmp192321 (let () (declare (not safe)) (##gensym '__stx)))) (declare (not safe)) - (make-symbol__0 __tmp191189))) - (_%id179193%_ + (make-symbol__0 __tmp192321))) + (_%id180325%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id179191%_))) - (_%_179195%_ + (gx#core-quote-syntax__0 _%id180323%_))) + (_%_180327%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id179193%_))) - (_g191190_ + (gx#core-bind-runtime!__0 _%id180325%_))) + (_g192322_ (gxc#optimize-syntax-case-clauses - _%clauses179186%_ - (car _%negation179185%_)))) + _%clauses180318%_ + (car _%negation180317%_)))) (begin - (let ((_g191191_ + (let ((_g192323_ (let () (declare (not safe)) - (if (##values? _g191190_) - (##vector-length _g191190_) + (if (##values? _g192322_) + (##vector-length _g192322_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g191191_ 2))) - (error "Context expects 2 values" _g191191_))) - (let ((_%clauses179197%_ + (##fx= _g192323_ 2))) + (error "Context expects 2 values" _g192323_))) + (let ((_%clauses180329%_ (let () (declare (not safe)) - (##vector-ref _g191190_ 0))) - (_%konts179198%_ + (##vector-ref _g192322_ 0))) + (_%konts180330%_ (let () (declare (not safe)) - (##vector-ref _g191190_ 1)))) - (let* ((_%clauses179207%_ - (map (lambda (_%g179199179202%_ - _%g179200179204%_) + (##vector-ref _g192322_ 1)))) + (let* ((_%clauses180339%_ + (map (lambda (_%g180331180334%_ + _%g180332180336%_) (gxc#optimize-syntax-case-closure - _%g179199179202%_ - _%g179200179204%_ - _%id179193%_)) - _%clauses179197%_ - (let ((__tmp191193 - (cons (car _%negation179185%_) + _%g180331180334%_ + _%g180332180336%_ + _%id180325%_)) + _%clauses180329%_ + (let ((__tmp192325 + (cons (car _%negation180317%_) '())) - (__tmp191192 + (__tmp192324 (map car - (cdr _%clauses179197%_)))) + (cdr _%clauses180329%_)))) (declare (not safe)) (__foldr1 cons - __tmp191193 - __tmp191192)))) - (_%clauses179209%_ - (_%normalize179188%_ _%clauses179207%_)) - (_%negation179211%_ + __tmp192325 + __tmp192324)))) + (_%clauses180341%_ + (_%normalize180320%_ _%clauses180339%_)) + (_%negation180343%_ (gxc#optimize-syntax-case-closure - _%negation179185%_ + _%negation180317%_ '#f - _%id179193%_)) - (_%body179213%_ + _%id180325%_)) + (_%body180345%_ (gxc#optimize-match-body - _%stx179183%_ - _%negation179211%_ - _%clauses179209%_ - _%konts179198%_)) - (__tmp191194 + _%stx180315%_ + _%negation180343%_ + _%clauses180341%_ + _%konts180330%_)) + (__tmp192326 (cons '%#let-values - (cons (cons (cons (cons _%id179193%_ + (cons (cons (cons (cons _%id180325%_ '()) - (cons _%expr179184%_ + (cons _%expr180316%_ '())) '()) - (cons _%body179213%_ '()))))) + (cons _%body180345%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp191194 - _%stx179183%_))))))) - (__tmp191187 - (let ((__obj191108 + __tmp192326 + _%stx180315%_))))))) + (__tmp192319 + (let ((__obj192240 (let () (declare (not safe)) (##structure @@ -13286,72 +13151,72 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj191108)) - __obj191108))) + (gx#local-context:::init!__0 __obj192240)) + __obj192240))) (declare (not safe)) (__call-with-parameters - __tmp191188 + __tmp192320 gx#current-expander-context - __tmp191187))))) + __tmp192319))))) (define gxc#optimize-syntax-case-clauses - (lambda (_%clauses177939%_ _%negation-id177940%_) - (letrec ((_%xform-e177942%_ - (lambda (_%expr178327%_ - _%kont-id178328%_ - _%kont-box178329%_ - _%negation-id178330%_) - (let* ((_%__stx190558190559%_ _%expr178327%_) - (_%g178336178469%_ + (lambda (_%clauses179071%_ _%negation-id179072%_) + (letrec ((_%xform-e179074%_ + (lambda (_%expr179459%_ + _%kont-id179460%_ + _%kont-box179461%_ + _%negation-id179462%_) + (let* ((_%__stx191690191691%_ _%expr179459%_) + (_%g179468179601%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190558190559%_))))) - (let ((_%__kont190560190561%_ - (lambda (_%L179159%_ _%L179160%_ _%L179161%_) - (let ((_%K179178%_ - (_%xform-e177942%_ - _%L179160%_ - _%kont-id178328%_ - _%kont-box178329%_ - _%negation-id178330%_))) + _%__stx191690191691%_))))) + (let ((_%__kont191692191693%_ + (lambda (_%L180291%_ _%L180292%_ _%L180293%_) + (let ((_%K180310%_ + (_%xform-e179074%_ + _%L180292%_ + _%kont-id179460%_ + _%kont-box179461%_ + _%negation-id179462%_))) (cons '%#if - (cons _%L179161%_ - (cons _%K179178%_ - (cons _%L179159%_ '()))))))) - (_%__kont190562190563%_ - (lambda (_%L179074%_ - _%L179075%_ - _%L179076%_ - _%L179077%_ - _%L179078%_) - (let* ((_%id179113%_ - (let ((__tmp191195 + (cons _%L180293%_ + (cons _%K180310%_ + (cons _%L180291%_ '()))))))) + (_%__kont191694191695%_ + (lambda (_%L180206%_ + _%L180207%_ + _%L180208%_ + _%L180209%_ + _%L180210%_) + (let* ((_%id180245%_ + (let ((__tmp192327 (let () (declare (not safe)) (##gensym '__splice)))) (declare (not safe)) - (make-symbol__0 __tmp191195))) - (_%id179115%_ + (make-symbol__0 __tmp192327))) + (_%id180247%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id179113%_))) - (_%_179117%_ + _%id180245%_))) + (_%_180249%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id179115%_))) - (_%body179119%_ - (_%xform-e177942%_ - _%L179074%_ - _%kont-id178328%_ - _%kont-box178329%_ - _%negation-id178330%_))) + _%id180247%_))) + (_%body180251%_ + (_%xform-e179074%_ + _%L180206%_ + _%kont-id179460%_ + _%kont-box179461%_ + _%negation-id179462%_))) (cons '%#let-values - (cons (cons (cons (cons _%id179115%_ + (cons (cons (cons (cons _%id180247%_ '()) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -13360,113 +13225,113 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L179076%_ '())) - _%L179075%_)) + (cons _%L180208%_ '())) + _%L180207%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L179078%_ + (cons (cons (cons (cons _%L180210%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id179115%_ '())) + (cons _%id180247%_ '())) (cons '(%#quote 0) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L179077%_ '()) + (cons (cons (cons _%L180209%_ '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id179115%_ '())) + (cons _%id180247%_ '())) (cons '(%#quote 1) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (cons _%body179119%_ '()))) + (cons _%body180251%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont190564190565%_ - (lambda (_%L178956%_ _%L178957%_) - (let ((_%body178971%_ - (_%xform-e177942%_ - _%L178956%_ - _%kont-id178328%_ - _%kont-box178329%_ - _%negation-id178330%_))) + (_%__kont191696191697%_ + (lambda (_%L180088%_ _%L180089%_) + (let ((_%body180103%_ + (_%xform-e179074%_ + _%L180088%_ + _%kont-id179460%_ + _%kont-box179461%_ + _%negation-id179462%_))) (cons '%#let-values - (cons _%L178957%_ - (cons _%body178971%_ '())))))) - (_%__kont190566190567%_ - (lambda (_%L178900%_ _%L178901%_ _%L178902%_) - (let ((_%lambda-expr178925%_ - (_%xform-loop-e177943%_ - _%L178901%_ - _%kont-id178328%_ - _%kont-box178329%_ - _%negation-id178330%_))) + (cons _%L180089%_ + (cons _%body180103%_ '())))))) + (_%__kont191698191699%_ + (lambda (_%L180032%_ _%L180033%_ _%L180034%_) + (let ((_%lambda-expr180057%_ + (_%xform-loop-e179075%_ + _%L180033%_ + _%kont-id179460%_ + _%kont-box179461%_ + _%negation-id179462%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L178902%_ '()) - (cons _%lambda-expr178925%_ + (cons (cons (cons (cons _%L180034%_ '()) + (cons _%lambda-expr180057%_ '())) '()) - (cons _%L178900%_ '())))))) - (_%__kont190568190569%_ - (lambda (_%L178562%_ _%L178563%_ _%L178564%_) - (let* ((_%__stx190460190461%_ _%L178563%_) - (_%g178593178636%_ + (cons _%L180032%_ '())))))) + (_%__kont191700191701%_ + (lambda (_%L179694%_ _%L179695%_ _%L179696%_) + (let* ((_%__stx191592191593%_ _%L179695%_) + (_%g179725179768%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190460190461%_))))) - (let ((_%__kont190462190463%_ - (lambda (_%L178752%_ - _%L178753%_ - _%L178754%_ - _%L178755%_) - (let ((_%kont178796%_ + _%__stx191592191593%_))))) + (let ((_%__kont191594191595%_ + (lambda (_%L179884%_ + _%L179885%_ + _%L179886%_ + _%L179887%_) + (let ((_%kont179928%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp191196 + (cons (let ((__tmp192328 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g178788178791%_ _%g178789178793%_) - (cons _%g178788178791%_ _%g178789178793%_)))) + (lambda (_%g179920179923%_ _%g179921179925%_) + (cons _%g179920179923%_ _%g179921179925%_)))) (declare (not safe)) - (__foldr1 __tmp191196 '() _%L178564%_)) - (cons _%L178754%_ '()))))) + (__foldr1 __tmp192328 '() _%L179696%_)) + (cons _%L179886%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box178329%_ - _%kont178796%_) - (let* ((_%kont-args178807%_ - (map (lambda (_%id178798%_) + _%kont-box179461%_ + _%kont179928%_) + (let* ((_%kont-args179939%_ + (map (lambda (_%id179930%_) (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id178798%_ '()))) - (let ((__tmp191197 - (lambda (_%g178799178802%_ _%g178800178804%_) - (cons _%g178799178802%_ _%g178800178804%_)))) + (cons _%id179930%_ '()))) + (let ((__tmp192329 + (lambda (_%g179931179934%_ _%g179932179936%_) + (cons _%g179931179934%_ _%g179932179936%_)))) (declare (not safe)) - (__foldr1 __tmp191197 '() _%L178564%_)))) + (__foldr1 __tmp192329 '() _%L179696%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body178809%_ + (_%body179941%_ (cons '%#if - (cons _%L178755%_ + (cons _%L179887%_ (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref - (cons _%kont-id178328%_ '())) - _%kont-args178807%_)) + (cons _%kont-id179460%_ '())) + _%kont-args179939%_)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -13475,3162 +13340,3156 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L178753%_ '())) + (cons _%L179885%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L178752%_ + (cons _%L179884%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? (let ((__tmp191198 - (lambda (_%g178811178814%_ + (if (null? (let ((__tmp192330 + (lambda (_%g179943179946%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g178812178816%_) - (cons _%g178811178814%_ _%g178812178816%_)))) + _%g179944179948%_) + (cons _%g179943179946%_ _%g179944179948%_)))) (declare (not safe)) - (__foldr1 __tmp191198 '() _%L178564%_))) + (__foldr1 __tmp192330 '() _%L179696%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body178809%_ + _%body179941%_ (cons '%#let-values - (cons (map (lambda (_%id178819%_ + (cons (map (lambda (_%id179951%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg178820%_) - (cons (cons _%id178819%_ '()) - (cons _%arg178820%_ '()))) - (let ((__tmp191199 - (lambda (_%g178821178824%_ _%g178822178826%_) - (cons _%g178821178824%_ - _%g178822178826%_)))) + _%arg179952%_) + (cons (cons _%id179951%_ '()) + (cons _%arg179952%_ '()))) + (let ((__tmp192331 + (lambda (_%g179953179956%_ _%g179954179958%_) + (cons _%g179953179956%_ + _%g179954179958%_)))) (declare (not safe)) - (__foldr1 __tmp191199 '() _%L178564%_)) - (let ((__tmp191200 - (lambda (_%g178828178831%_ _%g178829178833%_) - (cons _%g178828178831%_ - _%g178829178833%_)))) + (__foldr1 __tmp192331 '() _%L179696%_)) + (let ((__tmp192332 + (lambda (_%g179960179963%_ _%g179961179965%_) + (cons _%g179960179963%_ + _%g179961179965%_)))) (declare (not safe)) - (__foldr1 __tmp191200 '() _%L178562%_))) - (cons _%body178809%_ '())))))))) + (__foldr1 __tmp192332 '() _%L179694%_))) + (cons _%body179941%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190464190465%_ + (_%__kont191596191597%_ (lambda () - (let ((_%kont178650%_ + (let ((_%kont179782%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp191201 + (cons (let ((__tmp192333 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g178642178645%_ _%g178643178647%_) - (cons _%g178642178645%_ _%g178643178647%_)))) + (lambda (_%g179774179777%_ _%g179775179779%_) + (cons _%g179774179777%_ _%g179775179779%_)))) (declare (not safe)) - (__foldr1 __tmp191201 '() _%L178564%_)) - (cons _%L178563%_ '()))))) + (__foldr1 __tmp192333 '() _%L179696%_)) + (cons _%L179695%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box178329%_ - _%kont178650%_) + _%kont-box179461%_ + _%kont179782%_) (cons '%#call (cons (cons '%#ref - (cons _%kont-id178328%_ + (cons _%kont-id179460%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp191202 - (lambda (_%g178651178654%_ _%g178652178656%_) - (cons _%g178651178654%_ _%g178652178656%_)))) + (let ((__tmp192334 + (lambda (_%g179783179786%_ _%g179784179788%_) + (cons _%g179783179786%_ _%g179784179788%_)))) (declare (not safe)) - (__foldr1 __tmp191202 '() _%L178562%_)))))))) + (__foldr1 __tmp192334 '() _%L179694%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match190555190556%_ - (lambda (_%e178599178664%_ - _%hd178600178667%_ - _%tl178601178669%_ - _%e178602178672%_ - _%hd178603178675%_ - _%tl178604178677%_ - _%e178605178680%_ - _%hd178606178683%_ - _%tl178607178685%_ - _%e178608178688%_ - _%hd178609178691%_ - _%tl178610178693%_ - _%e178611178696%_ - _%hd178612178699%_ - _%tl178613178701%_ - _%e178614178704%_ - _%hd178615178707%_ - _%tl178616178709%_ - _%e178617178712%_ - _%hd178618178715%_ - _%tl178619178717%_ - _%e178620178720%_ - _%hd178621178723%_ - _%tl178622178725%_ - _%e178623178728%_ - _%hd178624178731%_ - _%tl178625178733%_ - _%e178626178736%_ - _%hd178627178739%_ - _%tl178628178741%_ - _%e178629178744%_ - _%hd178630178747%_ - _%tl178631178749%_) - (let ((_%L178752%_ - _%hd178630178747%_) - (_%L178753%_ - _%hd178621178723%_) - (_%L178754%_ - _%hd178606178683%_) - (_%L178755%_ - _%hd178603178675%_)) + (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%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L178753%_ - _%negation-id178330%_)) - (_%__kont190462190463%_ - _%L178752%_ - _%L178753%_ - _%L178754%_ - _%L178755%_) - (_%__kont190464190465%_)))))) + _%L179885%_ + _%negation-id179462%_)) + (_%__kont191594191595%_ + _%L179884%_ + _%L179885%_ + _%L179886%_ + _%L179887%_) + (_%__kont191596191597%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190460190461%_)) - (let ((_%e178599178664%_ + _%__stx191592191593%_)) + (let ((_%e179731179796%_ (let () (declare (not safe)) (gx#stx-e - _%__stx190460190461%_)))) - (let ((_%tl178601178669%_ + _%__stx191592191593%_)))) + (let ((_%tl179733179801%_ (let () (declare (not safe)) - (##cdr _%e178599178664%_))) - (_%hd178600178667%_ + (##cdr _%e179731179796%_))) + (_%hd179732179799%_ (let () (declare (not safe)) - (##car _%e178599178664%_)))) + (##car _%e179731179796%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178600178667%_)) + _%hd179732179799%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd178600178667%_)) + _%hd179732179799%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178601178669%_)) - (let ((_%e178602178672%_ + _%tl179733179801%_)) + (let ((_%e179734179804%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl178601178669%_)))) - (let ((_%tl178604178677%_ + (gx#stx-e _%tl179733179801%_)))) + (let ((_%tl179736179809%_ (let () (declare (not safe)) - (##cdr _%e178602178672%_))) - (_%hd178603178675%_ + (##cdr _%e179734179804%_))) + (_%hd179735179807%_ (let () (declare (not safe)) - (##car _%e178602178672%_)))) + (##car _%e179734179804%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178604178677%_)) - (let ((_%e178605178680%_ + (gx#stx-pair? _%tl179736179809%_)) + (let ((_%e179737179812%_ (let () (declare (not safe)) - (gx#stx-e _%tl178604178677%_)))) - (let ((_%tl178607178685%_ + (gx#stx-e _%tl179736179809%_)))) + (let ((_%tl179739179817%_ (let () (declare (not safe)) - (##cdr _%e178605178680%_))) - (_%hd178606178683%_ + (##cdr _%e179737179812%_))) + (_%hd179738179815%_ (let () (declare (not safe)) - (##car _%e178605178680%_)))) + (##car _%e179737179812%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178607178685%_)) - (let ((_%e178608178688%_ + (gx#stx-pair? _%tl179739179817%_)) + (let ((_%e179740179820%_ (let () (declare (not safe)) - (gx#stx-e _%tl178607178685%_)))) - (let ((_%tl178610178693%_ + (gx#stx-e _%tl179739179817%_)))) + (let ((_%tl179742179825%_ (let () (declare (not safe)) - (##cdr _%e178608178688%_))) - (_%hd178609178691%_ + (##cdr _%e179740179820%_))) + (_%hd179741179823%_ (let () (declare (not safe)) - (##car _%e178608178688%_)))) + (##car _%e179740179820%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178609178691%_)) - (let ((_%e178611178696%_ + (gx#stx-pair? _%hd179741179823%_)) + (let ((_%e179743179828%_ (let () (declare (not safe)) (gx#stx-e - _%hd178609178691%_)))) - (let ((_%tl178613178701%_ + _%hd179741179823%_)))) + (let ((_%tl179745179833%_ (let () (declare (not safe)) - (##cdr _%e178611178696%_))) - (_%hd178612178699%_ + (##cdr _%e179743179828%_))) + (_%hd179744179831%_ (let () (declare (not safe)) - (##car _%e178611178696%_)))) + (##car _%e179743179828%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178612178699%_)) + _%hd179744179831%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd178612178699%_)) + _%hd179744179831%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178613178701%_)) - (let ((_%e178614178704%_ + _%tl179745179833%_)) + (let ((_%e179746179836%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl178613178701%_)))) - (let ((_%tl178616178709%_ + (gx#stx-e _%tl179745179833%_)))) + (let ((_%tl179748179841%_ (let () (declare (not safe)) - (##cdr _%e178614178704%_))) - (_%hd178615178707%_ + (##cdr _%e179746179836%_))) + (_%hd179747179839%_ (let () (declare (not safe)) - (##car _%e178614178704%_)))) + (##car _%e179746179836%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178615178707%_)) - (let ((_%e178617178712%_ + (gx#stx-pair? _%hd179747179839%_)) + (let ((_%e179749179844%_ (let () (declare (not safe)) - (gx#stx-e _%hd178615178707%_)))) - (let ((_%tl178619178717%_ + (gx#stx-e _%hd179747179839%_)))) + (let ((_%tl179751179849%_ (let () (declare (not safe)) - (##cdr _%e178617178712%_))) - (_%hd178618178715%_ + (##cdr _%e179749179844%_))) + (_%hd179750179847%_ (let () (declare (not safe)) - (##car _%e178617178712%_)))) + (##car _%e179749179844%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178618178715%_)) + (gx#identifier? _%hd179750179847%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd178618178715%_)) + (gx#stx-eq? '%#ref _%hd179750179847%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178619178717%_)) - (let ((_%e178620178720%_ + (gx#stx-pair? _%tl179751179849%_)) + (let ((_%e179752179852%_ (let () (declare (not safe)) (gx#stx-e - _%tl178619178717%_)))) - (let ((_%tl178622178725%_ + _%tl179751179849%_)))) + (let ((_%tl179754179857%_ (let () (declare (not safe)) - (##cdr _%e178620178720%_))) - (_%hd178621178723%_ + (##cdr _%e179752179852%_))) + (_%hd179753179855%_ (let () (declare (not safe)) - (##car _%e178620178720%_)))) + (##car _%e179752179852%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178622178725%_)) + _%tl179754179857%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178616178709%_)) - (let ((_%e178623178728%_ + _%tl179748179841%_)) + (let ((_%e179755179860%_ (let () (declare (not safe)) (gx#stx-e - _%tl178616178709%_)))) - (let ((_%tl178625178733%_ + _%tl179748179841%_)))) + (let ((_%tl179757179865%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e178623178728%_))) - (_%hd178624178731%_ - (let () (declare (not safe)) (##car _%e178623178728%_)))) + (##cdr _%e179755179860%_))) + (_%hd179756179863%_ + (let () (declare (not safe)) (##car _%e179755179860%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178624178731%_)) - (let ((_%e178626178736%_ + (gx#stx-pair? _%hd179756179863%_)) + (let ((_%e179758179868%_ (let () (declare (not safe)) - (gx#stx-e _%hd178624178731%_)))) - (let ((_%tl178628178741%_ + (gx#stx-e _%hd179756179863%_)))) + (let ((_%tl179760179873%_ (let () (declare (not safe)) - (##cdr _%e178626178736%_))) - (_%hd178627178739%_ + (##cdr _%e179758179868%_))) + (_%hd179759179871%_ (let () (declare (not safe)) - (##car _%e178626178736%_)))) + (##car _%e179758179868%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178627178739%_)) + (gx#identifier? _%hd179759179871%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd178627178739%_)) + (gx#stx-eq? '%#ref _%hd179759179871%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178628178741%_)) - (let ((_%e178629178744%_ + (gx#stx-pair? _%tl179760179873%_)) + (let ((_%e179761179876%_ (let () (declare (not safe)) - (gx#stx-e _%tl178628178741%_)))) - (let ((_%tl178631178749%_ + (gx#stx-e _%tl179760179873%_)))) + (let ((_%tl179763179881%_ (let () (declare (not safe)) - (##cdr _%e178629178744%_))) - (_%hd178630178747%_ + (##cdr _%e179761179876%_))) + (_%hd179762179879%_ (let () (declare (not safe)) - (##car _%e178629178744%_)))) + (##car _%e179761179876%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178631178749%_)) + _%tl179763179881%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178625178733%_)) + _%tl179757179865%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178610178693%_)) - (_%__match190555190556%_ - _%e178599178664%_ - _%hd178600178667%_ - _%tl178601178669%_ - _%e178602178672%_ - _%hd178603178675%_ - _%tl178604178677%_ - _%e178605178680%_ - _%hd178606178683%_ - _%tl178607178685%_ - _%e178608178688%_ - _%hd178609178691%_ - _%tl178610178693%_ - _%e178611178696%_ - _%hd178612178699%_ - _%tl178613178701%_ - _%e178614178704%_ - _%hd178615178707%_ - _%tl178616178709%_ - _%e178617178712%_ - _%hd178618178715%_ - _%tl178619178717%_ - _%e178620178720%_ - _%hd178621178723%_ - _%tl178622178725%_ - _%e178623178728%_ - _%hd178624178731%_ - _%tl178625178733%_ - _%e178626178736%_ - _%hd178627178739%_ - _%tl178628178741%_ - _%e178629178744%_ - _%hd178630178747%_ - _%tl178631178749%_) - (_%__kont190464190465%_)) - (_%__kont190464190465%_)) - (_%__kont190464190465%_)))) - (_%__kont190464190465%_)) - (_%__kont190464190465%_)) - (_%__kont190464190465%_)))) - (_%__kont190464190465%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190464190465%_)) - (_%__kont190464190465%_)))) - (_%__kont190464190465%_)) - (_%__kont190464190465%_)) - (_%__kont190464190465%_)))) - (_%__kont190464190465%_)))) - (_%__kont190464190465%_)) + (_%__kont191596191597%_)) + (_%__kont191596191597%_)))) + (_%__kont191596191597%_)) + (_%__kont191596191597%_)) + (_%__kont191596191597%_)))) + (_%__kont191596191597%_)))) + (_%__kont191596191597%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190464190465%_)) - (_%__kont190464190465%_)))) - (_%__kont190464190465%_)))) - (_%__kont190464190465%_)))) - (_%__kont190464190465%_)))) - (_%__kont190464190465%_)) + (_%__kont191596191597%_)) + (_%__kont191596191597%_)))) + (_%__kont191596191597%_)))) + (_%__kont191596191597%_)))) + (_%__kont191596191597%_)))) + (_%__kont191596191597%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190464190465%_)) - (_%__kont190464190465%_)))) - (_%__kont190464190465%_)))))))) - (let* ((_%__match190815190816%_ - (lambda (_%e178432178474%_ - _%hd178433178477%_ - _%tl178434178479%_ - _%e178435178482%_ - _%hd178436178485%_ - _%tl178437178487%_ - _%e178438178490%_ - _%hd178439178493%_ - _%tl178440178495%_ - _%e178441178498%_ - _%hd178442178501%_ - _%tl178443178503%_ - _%__splice190570190571%_ - _%target178444178506%_ - _%tl178446178508%_) - (letrec ((_%loop178447178511%_ - (lambda (_%hd178445178514%_ - _%id178451178516%_) + (_%__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%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178445178514%_)) - (let ((_%e178448178519%_ + _%hd179577179646%_)) + (let ((_%e179580179651%_ (let () (declare (not safe)) (gx#stx-e - _%hd178445178514%_)))) - (let ((_%lp-tl178450178524%_ + _%hd179577179646%_)))) + (let ((_%lp-tl179582179656%_ (let () (declare (not safe)) - (##cdr _%e178448178519%_))) - (_%lp-hd178449178522%_ + (##cdr _%e179580179651%_))) + (_%lp-hd179581179654%_ (let () (declare (not safe)) - (##car _%e178448178519%_)))) - (_%loop178447178511%_ - _%lp-tl178450178524%_ - (cons _%lp-hd178449178522%_ - _%id178451178516%_)))) - (let ((_%id178452178527%_ - (reverse _%id178451178516%_))) + (##car _%e179580179651%_)))) + (_%loop179579179643%_ + _%lp-tl179582179656%_ + (cons _%lp-hd179581179654%_ + _%id179583179648%_)))) + (let ((_%id179584179659%_ + (reverse _%id179583179648%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178443178503%_)) - (let ((_%e178453178530%_ + _%tl179575179635%_)) + (let ((_%e179585179662%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl178443178503%_)))) - (let ((_%tl178455178535%_ + (gx#stx-e _%tl179575179635%_)))) + (let ((_%tl179587179667%_ (let () (declare (not safe)) - (##cdr _%e178453178530%_))) - (_%hd178454178533%_ + (##cdr _%e179585179662%_))) + (_%hd179586179665%_ (let () (declare (not safe)) - (##car _%e178453178530%_)))) + (##car _%e179585179662%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178455178535%_)) + (gx#stx-null? _%tl179587179667%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl178437178487%_)) - (let ((_%__splice190572190573%_ + (gx#stx-pair/null? _%tl179569179619%_)) + (let ((_%__splice191704191705%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178437178487%_ + _%tl179569179619%_ '0)))) - (let ((_%tl178458178540%_ + (let ((_%tl179590179672%_ (let () (declare (not safe)) (##vector-ref - _%__splice190572190573%_ + _%__splice191704191705%_ '1))) - (_%target178456178538%_ + (_%target179588179670%_ (let () (declare (not safe)) (##vector-ref - _%__splice190572190573%_ + _%__splice191704191705%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178458178540%_)) - (letrec ((_%loop178459178543%_ - (lambda (_%hd178457178546%_ - _%arg178463178548%_) + (gx#stx-null? _%tl179590179672%_)) + (letrec ((_%loop179591179675%_ + (lambda (_%hd179589179678%_ + _%arg179595179680%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178457178546%_)) - (let ((_%e178460178551%_ + _%hd179589179678%_)) + (let ((_%e179592179683%_ (let () (declare (not safe)) (gx#stx-e - _%hd178457178546%_)))) - (let ((_%lp-tl178462178556%_ + _%hd179589179678%_)))) + (let ((_%lp-tl179594179688%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e178460178551%_))) - (_%lp-hd178461178554%_ - (let () (declare (not safe)) (##car _%e178460178551%_)))) - (_%loop178459178543%_ - _%lp-tl178462178556%_ - (cons _%lp-hd178461178554%_ _%arg178463178548%_)))) + (##cdr _%e179592179683%_))) + (_%lp-hd179593179686%_ + (let () (declare (not safe)) (##car _%e179592179683%_)))) + (_%loop179591179675%_ + _%lp-tl179594179688%_ + (cons _%lp-hd179593179686%_ _%arg179595179680%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg178464178559%_ - (reverse _%arg178463178548%_))) - (_%__kont190568190569%_ - _%arg178464178559%_ - _%hd178454178533%_ - _%id178452178527%_)))))) - (_%loop178459178543%_ - _%target178456178538%_ + (let ((_%arg179596179691%_ + (reverse _%arg179595179680%_))) + (_%__kont191700191701%_ + _%arg179596179691%_ + _%hd179586179665%_ + _%id179584179659%_)))))) + (_%loop179591179675%_ + _%target179588179670%_ '())) (let () (declare (not safe)) - (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_))) - (let () (declare (not safe)) (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_)))))))) + (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_))) + (let () (declare (not safe)) (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop178447178511%_ - _%target178444178506%_ + (_%loop179579179643%_ + _%target179576179638%_ '())))) - (_%__match190697190698%_ - (lambda (_%e178358178978%_ - _%hd178359178981%_ - _%tl178360178983%_ - _%e178361178986%_ - _%hd178362178989%_ - _%tl178363178991%_ - _%e178364178994%_ - _%hd178365178997%_ - _%tl178366178999%_ - _%e178367179002%_ - _%hd178368179005%_ - _%tl178369179007%_ - _%e178370179010%_ - _%hd178371179013%_ - _%tl178372179015%_ - _%e178373179018%_ - _%hd178374179021%_ - _%tl178375179023%_ - _%e178376179026%_ - _%hd178377179029%_ - _%tl178378179031%_ - _%e178379179034%_ - _%hd178380179037%_ - _%tl178381179039%_ - _%e178382179042%_ - _%hd178383179045%_ - _%tl178384179047%_ - _%e178385179050%_ - _%hd178386179053%_ - _%tl178387179055%_ - _%e178388179058%_ - _%hd178389179061%_ - _%tl178390179063%_ - _%e178391179066%_ - _%hd178392179069%_ - _%tl178393179071%_) - (let ((_%L179074%_ _%hd178392179069%_) - (_%L179075%_ _%tl178384179047%_) - (_%L179076%_ _%hd178389179061%_) - (_%L179077%_ _%hd178374179021%_) - (_%L179078%_ _%hd178371179013%_)) + (_%__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%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L179076%_ + _%L180208%_ 'gx#syntax-split-splice)) - (_%__kont190562190563%_ - _%L179074%_ - _%L179075%_ - _%L179076%_ - _%L179077%_ - _%L179078%_) - (_%__kont190564190565%_ - _%hd178392179069%_ - _%hd178362178989%_)))))) + (_%__kont191694191695%_ + _%L180206%_ + _%L180207%_ + _%L180208%_ + _%L180209%_ + _%L180210%_) + (_%__kont191696191697%_ + _%hd179524180201%_ + _%hd179494180121%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190558190559%_)) - (let ((_%e178341179127%_ + (gx#stx-pair? _%__stx191690191691%_)) + (let ((_%e179473180259%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190558190559%_)))) - (let ((_%tl178343179132%_ + (gx#stx-e _%__stx191690191691%_)))) + (let ((_%tl179475180264%_ (let () (declare (not safe)) - (##cdr _%e178341179127%_))) - (_%hd178342179130%_ + (##cdr _%e179473180259%_))) + (_%hd179474180262%_ (let () (declare (not safe)) - (##car _%e178341179127%_)))) + (##car _%e179473180259%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178342179130%_)) + (gx#identifier? _%hd179474180262%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd178342179130%_)) + _%hd179474180262%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178343179132%_)) - (let ((_%e178344179135%_ + _%tl179475180264%_)) + (let ((_%e179476180267%_ (let () (declare (not safe)) (gx#stx-e - _%tl178343179132%_)))) - (let ((_%tl178346179140%_ + _%tl179475180264%_)))) + (let ((_%tl179478180272%_ (let () (declare (not safe)) - (##cdr _%e178344179135%_))) - (_%hd178345179138%_ + (##cdr _%e179476180267%_))) + (_%hd179477180270%_ (let () (declare (not safe)) - (##car _%e178344179135%_)))) + (##car _%e179476180267%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178346179140%_)) - (let ((_%e178347179143%_ + _%tl179478180272%_)) + (let ((_%e179479180275%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178346179140%_)))) - (let ((_%tl178349179148%_ - (let () (declare (not safe)) (##cdr _%e178347179143%_))) - (_%hd178348179146%_ + (gx#stx-e _%tl179478180272%_)))) + (let ((_%tl179481180280%_ + (let () (declare (not safe)) (##cdr _%e179479180275%_))) + (_%hd179480180278%_ (let () (declare (not safe)) - (##car _%e178347179143%_)))) + (##car _%e179479180275%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178349179148%_)) - (let ((_%e178350179151%_ + (gx#stx-pair? _%tl179481180280%_)) + (let ((_%e179482180283%_ (let () (declare (not safe)) - (gx#stx-e _%tl178349179148%_)))) - (let ((_%tl178352179156%_ + (gx#stx-e _%tl179481180280%_)))) + (let ((_%tl179484180288%_ (let () (declare (not safe)) - (##cdr _%e178350179151%_))) - (_%hd178351179154%_ + (##cdr _%e179482180283%_))) + (_%hd179483180286%_ (let () (declare (not safe)) - (##car _%e178350179151%_)))) + (##car _%e179482180283%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178352179156%_)) - (_%__kont190560190561%_ - _%hd178351179154%_ - _%hd178348179146%_ - _%hd178345179138%_) + (gx#stx-null? _%tl179484180288%_)) + (_%__kont191692191693%_ + _%hd179483180286%_ + _%hd179480180278%_ + _%hd179477180270%_) (let () (declare (not safe)) - (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_))))) + (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178336178469%_))) + (_%g179468179601%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd178342179130%_)) + _%hd179474180262%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178343179132%_)) - (let ((_%e178361178986%_ + _%tl179475180264%_)) + (let ((_%e179493180118%_ (let () (declare (not safe)) (gx#stx-e - _%tl178343179132%_)))) - (let ((_%tl178363178991%_ + _%tl179475180264%_)))) + (let ((_%tl179495180123%_ (let () (declare (not safe)) - (##cdr _%e178361178986%_))) - (_%hd178362178989%_ + (##cdr _%e179493180118%_))) + (_%hd179494180121%_ (let () (declare (not safe)) - (##car _%e178361178986%_)))) + (##car _%e179493180118%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178362178989%_)) - (let ((_%e178364178994%_ + _%hd179494180121%_)) + (let ((_%e179496180126%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd178362178989%_)))) - (let ((_%tl178366178999%_ + (gx#stx-e _%hd179494180121%_)))) + (let ((_%tl179498180131%_ (let () (declare (not safe)) - (##cdr _%e178364178994%_))) - (_%hd178365178997%_ + (##cdr _%e179496180126%_))) + (_%hd179497180129%_ (let () (declare (not safe)) - (##car _%e178364178994%_)))) + (##car _%e179496180126%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178365178997%_)) - (let ((_%e178367179002%_ + (gx#stx-pair? _%hd179497180129%_)) + (let ((_%e179499180134%_ (let () (declare (not safe)) - (gx#stx-e _%hd178365178997%_)))) - (let ((_%tl178369179007%_ + (gx#stx-e _%hd179497180129%_)))) + (let ((_%tl179501180139%_ (let () (declare (not safe)) - (##cdr _%e178367179002%_))) - (_%hd178368179005%_ + (##cdr _%e179499180134%_))) + (_%hd179500180137%_ (let () (declare (not safe)) - (##car _%e178367179002%_)))) + (##car _%e179499180134%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178368179005%_)) - (let ((_%e178370179010%_ + (gx#stx-pair? _%hd179500180137%_)) + (let ((_%e179502180142%_ (let () (declare (not safe)) - (gx#stx-e _%hd178368179005%_)))) - (let ((_%tl178372179015%_ + (gx#stx-e _%hd179500180137%_)))) + (let ((_%tl179504180147%_ (let () (declare (not safe)) - (##cdr _%e178370179010%_))) - (_%hd178371179013%_ + (##cdr _%e179502180142%_))) + (_%hd179503180145%_ (let () (declare (not safe)) - (##car _%e178370179010%_)))) + (##car _%e179502180142%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178372179015%_)) - (let ((_%e178373179018%_ + (gx#stx-pair? _%tl179504180147%_)) + (let ((_%e179505180150%_ (let () (declare (not safe)) (gx#stx-e - _%tl178372179015%_)))) - (let ((_%tl178375179023%_ + _%tl179504180147%_)))) + (let ((_%tl179507180155%_ (let () (declare (not safe)) - (##cdr _%e178373179018%_))) - (_%hd178374179021%_ + (##cdr _%e179505180150%_))) + (_%hd179506180153%_ (let () (declare (not safe)) - (##car _%e178373179018%_)))) + (##car _%e179505180150%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178375179023%_)) + _%tl179507180155%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178369179007%_)) - (let ((_%e178376179026%_ + _%tl179501180139%_)) + (let ((_%e179508180158%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178369179007%_)))) - (let ((_%tl178378179031%_ - (let () (declare (not safe)) (##cdr _%e178376179026%_))) - (_%hd178377179029%_ + (gx#stx-e _%tl179501180139%_)))) + (let ((_%tl179510180163%_ + (let () (declare (not safe)) (##cdr _%e179508180158%_))) + (_%hd179509180161%_ (let () (declare (not safe)) - (##car _%e178376179026%_)))) + (##car _%e179508180158%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178377179029%_)) - (let ((_%e178379179034%_ + (gx#stx-pair? _%hd179509180161%_)) + (let ((_%e179511180166%_ (let () (declare (not safe)) - (gx#stx-e _%hd178377179029%_)))) - (let ((_%tl178381179039%_ + (gx#stx-e _%hd179509180161%_)))) + (let ((_%tl179513180171%_ (let () (declare (not safe)) - (##cdr _%e178379179034%_))) - (_%hd178380179037%_ + (##cdr _%e179511180166%_))) + (_%hd179512180169%_ (let () (declare (not safe)) - (##car _%e178379179034%_)))) + (##car _%e179511180166%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178380179037%_)) + (gx#identifier? _%hd179512180169%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd178380179037%_)) + (gx#stx-eq? '%#call _%hd179512180169%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178381179039%_)) - (let ((_%e178382179042%_ + (gx#stx-pair? _%tl179513180171%_)) + (let ((_%e179514180174%_ (let () (declare (not safe)) - (gx#stx-e _%tl178381179039%_)))) - (let ((_%tl178384179047%_ + (gx#stx-e _%tl179513180171%_)))) + (let ((_%tl179516180179%_ (let () (declare (not safe)) - (##cdr _%e178382179042%_))) - (_%hd178383179045%_ + (##cdr _%e179514180174%_))) + (_%hd179515180177%_ (let () (declare (not safe)) - (##car _%e178382179042%_)))) + (##car _%e179514180174%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178383179045%_)) - (let ((_%e178385179050%_ + _%hd179515180177%_)) + (let ((_%e179517180182%_ (let () (declare (not safe)) (gx#stx-e - _%hd178383179045%_)))) - (let ((_%tl178387179055%_ + _%hd179515180177%_)))) + (let ((_%tl179519180187%_ (let () (declare (not safe)) - (##cdr _%e178385179050%_))) - (_%hd178386179053%_ + (##cdr _%e179517180182%_))) + (_%hd179518180185%_ (let () (declare (not safe)) - (##car _%e178385179050%_)))) + (##car _%e179517180182%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178386179053%_)) + _%hd179518180185%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd178386179053%_)) + _%hd179518180185%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl178387179055%_)) - (let ((_%e178388179058%_ + (gx#stx-pair? _%tl179519180187%_)) + (let ((_%e179520180190%_ (let () (declare (not safe)) - (gx#stx-e _%tl178387179055%_)))) - (let ((_%tl178390179063%_ + (gx#stx-e _%tl179519180187%_)))) + (let ((_%tl179522180195%_ (let () (declare (not safe)) - (##cdr _%e178388179058%_))) - (_%hd178389179061%_ + (##cdr _%e179520180190%_))) + (_%hd179521180193%_ (let () (declare (not safe)) - (##car _%e178388179058%_)))) + (##car _%e179520180190%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178390179063%_)) + (gx#stx-null? _%tl179522180195%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178378179031%_)) + (gx#stx-null? _%tl179510180163%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178366178999%_)) + (gx#stx-null? _%tl179498180131%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178391179066%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179523180198%_ (let () (declare (not safe)) (gx#stx-e - _%tl178363178991%_)))) - (let ((_%tl178393179071%_ + _%tl179495180123%_)))) + (let ((_%tl179525180203%_ (let () (declare (not safe)) - (##cdr _%e178391179066%_))) - (_%hd178392179069%_ + (##cdr _%e179523180198%_))) + (_%hd179524180201%_ (let () (declare (not safe)) - (##car _%e178391179066%_)))) + (##car _%e179523180198%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178393179071%_)) - (_%__match190697190698%_ - _%e178341179127%_ - _%hd178342179130%_ - _%tl178343179132%_ - _%e178361178986%_ - _%hd178362178989%_ - _%tl178363178991%_ - _%e178364178994%_ - _%hd178365178997%_ - _%tl178366178999%_ - _%e178367179002%_ - _%hd178368179005%_ - _%tl178369179007%_ - _%e178370179010%_ - _%hd178371179013%_ - _%tl178372179015%_ - _%e178373179018%_ - _%hd178374179021%_ - _%tl178375179023%_ - _%e178376179026%_ - _%hd178377179029%_ - _%tl178378179031%_ - _%e178379179034%_ - _%hd178380179037%_ - _%tl178381179039%_ - _%e178382179042%_ - _%hd178383179045%_ - _%tl178384179047%_ - _%e178385179050%_ - _%hd178386179053%_ - _%tl178387179055%_ - _%e178388179058%_ - _%hd178389179061%_ - _%tl178390179063%_ - _%e178391179066%_ - _%hd178392179069%_ - _%tl178393179071%_) + _%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%_) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_))) + (_%g179468179601%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178402178948%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) (gx#stx-e - _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) + _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_)))) + (_%g179468179601%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178402178948%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) - (gx#stx-e _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + (gx#stx-e _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) + _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_)))) + (_%g179468179601%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178402178948%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) - (gx#stx-e _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + (gx#stx-e _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) + (gx#stx-null? _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_)))))) + (_%g179468179601%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178402178948%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) - (gx#stx-e _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + (gx#stx-e _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) + (gx#stx-null? _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) (let () (declare (not safe)) - (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_)))) + (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178402178948%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) - (gx#stx-e _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + (gx#stx-e _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) + (gx#stx-null? _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) (let () (declare (not safe)) - (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_)))) + (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178402178948%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) - (gx#stx-e _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + (gx#stx-e _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) - (let () (declare (not safe)) (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_)))))) + (gx#stx-null? _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) + (let () (declare (not safe)) (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178363178991%_)) - (let ((_%e178402178948%_ + _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) (gx#stx-e - _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) + _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_)))))) + (_%g179468179601%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178402178948%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) (gx#stx-e - _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) + _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_)))) + (_%g179468179601%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178402178948%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) - (gx#stx-e _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + (gx#stx-e _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) + _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_)))) + (_%g179468179601%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178402178948%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) - (gx#stx-e _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + (gx#stx-e _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) + (gx#stx-null? _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_)))))) + (_%g179468179601%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178402178948%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) - (gx#stx-e _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + (gx#stx-e _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) + (gx#stx-null? _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) (let () (declare (not safe)) - (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_)))))) + (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178402178948%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) - (gx#stx-e _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + (gx#stx-e _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) - (let () (declare (not safe)) (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_)))) + (gx#stx-null? _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) + (let () (declare (not safe)) (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178363178991%_)) - (let ((_%e178402178948%_ + _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178363178991%_)))) - (let ((_%tl178404178953%_ - (let () (declare (not safe)) (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (gx#stx-e _%tl179495180123%_)))) + (let ((_%tl179536180085%_ + (let () (declare (not safe)) (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) - (let () (declare (not safe)) (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_)))))) + (gx#stx-null? _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) + (let () (declare (not safe)) (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178363178991%_)) - (let ((_%e178402178948%_ + _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) (gx#stx-e - _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) + _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_)))))) + (_%g179468179601%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178402178948%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) - (gx#stx-e _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + (gx#stx-e _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) + _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_)))))) + (_%g179468179601%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178402178948%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) - (gx#stx-e _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + (gx#stx-e _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) + (gx#stx-null? _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_)))))) + (_%g179468179601%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178363178991%_)) - (let ((_%e178402178948%_ + (gx#stx-pair? _%tl179495180123%_)) + (let ((_%e179534180080%_ (let () (declare (not safe)) - (gx#stx-e _%tl178363178991%_)))) - (let ((_%tl178404178953%_ + (gx#stx-e _%tl179495180123%_)))) + (let ((_%tl179536180085%_ (let () (declare (not safe)) - (##cdr _%e178402178948%_))) - (_%hd178403178951%_ + (##cdr _%e179534180080%_))) + (_%hd179535180083%_ (let () (declare (not safe)) - (##car _%e178402178948%_)))) + (##car _%e179534180080%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178404178953%_)) - (_%__kont190564190565%_ - _%hd178403178951%_ - _%hd178362178989%_) + (gx#stx-null? _%tl179536180085%_)) + (_%__kont191696191697%_ + _%hd179535180083%_ + _%hd179494180121%_) (let () (declare (not safe)) - (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_)))))) + (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178336178469%_))) + (_%g179468179601%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd178342179130%_)) + _%hd179474180262%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178343179132%_)) - (let ((_%e178411178852%_ + _%tl179475180264%_)) + (let ((_%e179543179984%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178343179132%_)))) - (let ((_%tl178413178857%_ - (let () (declare (not safe)) (##cdr _%e178411178852%_))) - (_%hd178412178855%_ + (gx#stx-e _%tl179475180264%_)))) + (let ((_%tl179545179989%_ + (let () (declare (not safe)) (##cdr _%e179543179984%_))) + (_%hd179544179987%_ (let () (declare (not safe)) - (##car _%e178411178852%_)))) + (##car _%e179543179984%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178412178855%_)) - (let ((_%e178414178860%_ + (gx#stx-pair? _%hd179544179987%_)) + (let ((_%e179546179992%_ (let () (declare (not safe)) - (gx#stx-e _%hd178412178855%_)))) - (let ((_%tl178416178865%_ + (gx#stx-e _%hd179544179987%_)))) + (let ((_%tl179548179997%_ (let () (declare (not safe)) - (##cdr _%e178414178860%_))) - (_%hd178415178863%_ + (##cdr _%e179546179992%_))) + (_%hd179547179995%_ (let () (declare (not safe)) - (##car _%e178414178860%_)))) + (##car _%e179546179992%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178415178863%_)) - (let ((_%e178417178868%_ + (gx#stx-pair? _%hd179547179995%_)) + (let ((_%e179549180000%_ (let () (declare (not safe)) - (gx#stx-e _%hd178415178863%_)))) - (let ((_%tl178419178873%_ + (gx#stx-e _%hd179547179995%_)))) + (let ((_%tl179551180005%_ (let () (declare (not safe)) - (##cdr _%e178417178868%_))) - (_%hd178418178871%_ + (##cdr _%e179549180000%_))) + (_%hd179550180003%_ (let () (declare (not safe)) - (##car _%e178417178868%_)))) + (##car _%e179549180000%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178418178871%_)) - (let ((_%e178420178876%_ + (gx#stx-pair? _%hd179550180003%_)) + (let ((_%e179552180008%_ (let () (declare (not safe)) - (gx#stx-e _%hd178418178871%_)))) - (let ((_%tl178422178881%_ + (gx#stx-e _%hd179550180003%_)))) + (let ((_%tl179554180013%_ (let () (declare (not safe)) - (##cdr _%e178420178876%_))) - (_%hd178421178879%_ + (##cdr _%e179552180008%_))) + (_%hd179553180011%_ (let () (declare (not safe)) - (##car _%e178420178876%_)))) + (##car _%e179552180008%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178422178881%_)) + _%tl179554180013%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178419178873%_)) - (let ((_%e178423178884%_ + _%tl179551180005%_)) + (let ((_%e179555180016%_ (let () (declare (not safe)) (gx#stx-e - _%tl178419178873%_)))) - (let ((_%tl178425178889%_ + _%tl179551180005%_)))) + (let ((_%tl179557180021%_ (let () (declare (not safe)) - (##cdr _%e178423178884%_))) - (_%hd178424178887%_ + (##cdr _%e179555180016%_))) + (_%hd179556180019%_ (let () (declare (not safe)) - (##car _%e178423178884%_)))) + (##car _%e179555180016%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178425178889%_)) + _%tl179557180021%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl178416178865%_)) + (gx#stx-null? _%tl179548179997%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178413178857%_)) - (let ((_%e178426178892%_ + (gx#stx-pair? _%tl179545179989%_)) + (let ((_%e179558180024%_ (let () (declare (not safe)) - (gx#stx-e _%tl178413178857%_)))) - (let ((_%tl178428178897%_ + (gx#stx-e _%tl179545179989%_)))) + (let ((_%tl179560180029%_ (let () (declare (not safe)) - (##cdr _%e178426178892%_))) - (_%hd178427178895%_ + (##cdr _%e179558180024%_))) + (_%hd179559180027%_ (let () (declare (not safe)) - (##car _%e178426178892%_)))) + (##car _%e179558180024%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178428178897%_)) - (_%__kont190566190567%_ - _%hd178427178895%_ - _%hd178424178887%_ - _%hd178421178879%_) + (gx#stx-null? _%tl179560180029%_)) + (_%__kont191698191699%_ + _%hd179559180027%_ + _%hd179556180019%_ + _%hd179553180011%_) (let () (declare (not safe)) - (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_))) - (let () (declare (not safe)) (_%g178336178469%_))) - (let () (declare (not safe)) (_%g178336178469%_))))) + (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_))) + (let () (declare (not safe)) (_%g179468179601%_))) + (let () (declare (not safe)) (_%g179468179601%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178336178469%_))) + (_%g179468179601%_))) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_))) + (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd178342179130%_)) + _%hd179474180262%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178343179132%_)) - (let ((_%e178435178482%_ + _%tl179475180264%_)) + (let ((_%e179567179614%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178343179132%_)))) - (let ((_%tl178437178487%_ + (gx#stx-e _%tl179475180264%_)))) + (let ((_%tl179569179619%_ (let () (declare (not safe)) - (##cdr _%e178435178482%_))) - (_%hd178436178485%_ + (##cdr _%e179567179614%_))) + (_%hd179568179617%_ (let () (declare (not safe)) - (##car _%e178435178482%_)))) + (##car _%e179567179614%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178436178485%_)) - (let ((_%e178438178490%_ + (gx#stx-pair? _%hd179568179617%_)) + (let ((_%e179570179622%_ (let () (declare (not safe)) - (gx#stx-e _%hd178436178485%_)))) - (let ((_%tl178440178495%_ + (gx#stx-e _%hd179568179617%_)))) + (let ((_%tl179572179627%_ (let () (declare (not safe)) - (##cdr _%e178438178490%_))) - (_%hd178439178493%_ + (##cdr _%e179570179622%_))) + (_%hd179571179625%_ (let () (declare (not safe)) - (##car _%e178438178490%_)))) + (##car _%e179570179622%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178439178493%_)) + (gx#identifier? _%hd179571179625%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd178439178493%_)) + _%hd179571179625%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178440178495%_)) - (let ((_%e178441178498%_ + (gx#stx-pair? _%tl179572179627%_)) + (let ((_%e179573179630%_ (let () (declare (not safe)) (gx#stx-e - _%tl178440178495%_)))) - (let ((_%tl178443178503%_ + _%tl179572179627%_)))) + (let ((_%tl179575179635%_ (let () (declare (not safe)) - (##cdr _%e178441178498%_))) - (_%hd178442178501%_ + (##cdr _%e179573179630%_))) + (_%hd179574179633%_ (let () (declare (not safe)) - (##car _%e178441178498%_)))) + (##car _%e179573179630%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd178442178501%_)) - (let ((_%__splice190570190571%_ + _%hd179574179633%_)) + (let ((_%__splice191702191703%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd178442178501%_ + _%hd179574179633%_ '0)))) - (let ((_%tl178446178508%_ + (let ((_%tl179578179640%_ (let () (declare (not safe)) (##vector-ref - _%__splice190570190571%_ + _%__splice191702191703%_ '1))) - (_%target178444178506%_ + (_%target179576179638%_ (let () (declare (not safe)) (##vector-ref - _%__splice190570190571%_ + _%__splice191702191703%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178446178508%_)) - (_%__match190815190816%_ - _%e178341179127%_ - _%hd178342179130%_ - _%tl178343179132%_ - _%e178435178482%_ - _%hd178436178485%_ - _%tl178437178487%_ - _%e178438178490%_ - _%hd178439178493%_ - _%tl178440178495%_ - _%e178441178498%_ - _%hd178442178501%_ - _%tl178443178503%_ - _%__splice190570190571%_ - _%target178444178506%_ - _%tl178446178508%_) + _%tl179578179640%_)) + (_%__match191947191948%_ + _%e179473180259%_ + _%hd179474180262%_ + _%tl179475180264%_ + _%e179567179614%_ + _%hd179568179617%_ + _%tl179569179619%_ + _%e179570179622%_ + _%hd179571179625%_ + _%tl179572179627%_ + _%e179573179630%_ + _%hd179574179633%_ + _%tl179575179635%_ + _%__splice191702191703%_ + _%target179576179638%_ + _%tl179578179640%_) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_))) + (_%g179468179601%_))) (let () (declare (not safe)) - (_%g178336178469%_))) + (_%g179468179601%_))) (let () (declare (not safe)) - (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_))))) - (let () (declare (not safe)) (_%g178336178469%_))) - (let () (declare (not safe)) (_%g178336178469%_)))))) + (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_))))) + (let () (declare (not safe)) (_%g179468179601%_))) + (let () (declare (not safe)) (_%g179468179601%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178336178469%_))))) + (_%g179468179601%_))))) (let () (declare (not safe)) - (_%g178336178469%_)))))))) - (_%xform-loop-e177943%_ - (lambda (_%expr178153%_ - _%kont-id178154%_ - _%kont-box178155%_ - _%negation-id178156%_) - (let* ((_%g178158178198%_ - (lambda (_%g178159178195%_) + (_%g179468179601%_)))))))) + (_%xform-loop-e179075%_ + (lambda (_%expr179285%_ + _%kont-id179286%_ + _%kont-box179287%_ + _%negation-id179288%_) + (let* ((_%g179290179330%_ + (lambda (_%g179291179327%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178159178195%_)))) - (_%g178157178324%_ - (lambda (_%g178159178201%_) + _%g179291179327%_)))) + (_%g179289179456%_ + (lambda (_%g179291179333%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178159178201%_)) - (let ((_%e178164178203%_ + (gx#stx-pair? _%g179291179333%_)) + (let ((_%e179296179335%_ (let () (declare (not safe)) - (gx#stx-e _%g178159178201%_)))) - (let ((_%hd178165178206%_ + (gx#stx-e _%g179291179333%_)))) + (let ((_%hd179297179338%_ (let () (declare (not safe)) - (##car _%e178164178203%_))) - (_%tl178166178208%_ + (##car _%e179296179335%_))) + (_%tl179298179340%_ (let () (declare (not safe)) - (##cdr _%e178164178203%_)))) + (##cdr _%e179296179335%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178165178206%_)) + _%hd179297179338%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd178165178206%_)) + _%hd179297179338%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178166178208%_)) - (let ((_%e178167178211%_ + _%tl179298179340%_)) + (let ((_%e179299179343%_ (let () (declare (not safe)) (gx#stx-e - _%tl178166178208%_)))) - (let ((_%hd178168178214%_ + _%tl179298179340%_)))) + (let ((_%hd179300179346%_ (let () (declare (not safe)) - (##car _%e178167178211%_))) - (_%tl178169178216%_ + (##car _%e179299179343%_))) + (_%tl179301179348%_ (let () (declare (not safe)) - (##cdr _%e178167178211%_)))) + (##cdr _%e179299179343%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd178168178214%_)) - (let ((_g191203_ + _%hd179300179346%_)) + (let ((_g192335_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd178168178214%_ '0)))) + (gx#syntax-split-splice _%hd179300179346%_ '0)))) (begin - (let ((_g191204_ + (let ((_g192336_ (let () (declare (not safe)) - (if (##values? _g191203_) - (##vector-length _g191203_) + (if (##values? _g192335_) + (##vector-length _g192335_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g191204_ 2))) - (error "Context expects 2 values" _g191204_))) - (let ((_%target178170178219%_ + (##fx= _g192336_ 2))) + (error "Context expects 2 values" _g192336_))) + (let ((_%target179302179351%_ (let () (declare (not safe)) - (##vector-ref _g191203_ 0))) - (_%tl178172178221%_ + (##vector-ref _g192335_ 0))) + (_%tl179304179353%_ (let () (declare (not safe)) - (##vector-ref _g191203_ 1)))) + (##vector-ref _g192335_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178172178221%_)) - (letrec ((_%loop178173178224%_ - (lambda (_%hd178171178227%_ - _%id178177178229%_) + (gx#stx-null? _%tl179304179353%_)) + (letrec ((_%loop179305179356%_ + (lambda (_%hd179303179359%_ + _%id179309179361%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178171178227%_)) - (let ((_%e178174178232%_ + _%hd179303179359%_)) + (let ((_%e179306179364%_ (let () (declare (not safe)) (gx#stx-e - _%hd178171178227%_)))) - (let ((_%lp-hd178175178235%_ + _%hd179303179359%_)))) + (let ((_%lp-hd179307179367%_ (let () (declare (not safe)) - (##car _%e178174178232%_))) - (_%lp-tl178176178237%_ + (##car _%e179306179364%_))) + (_%lp-tl179308179369%_ (let () (declare (not safe)) - (##cdr _%e178174178232%_)))) - (_%loop178173178224%_ - _%lp-tl178176178237%_ - (cons _%lp-hd178175178235%_ - _%id178177178229%_)))) - (let ((_%id178178178240%_ - (reverse _%id178177178229%_))) + (##cdr _%e179306179364%_)))) + (_%loop179305179356%_ + _%lp-tl179308179369%_ + (cons _%lp-hd179307179367%_ + _%id179309179361%_)))) + (let ((_%id179310179372%_ + (reverse _%id179309179361%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178169178216%_)) - (let ((_%e178179178243%_ + _%tl179301179348%_)) + (let ((_%e179311179375%_ (let () (declare (not safe)) (gx#stx-e - _%tl178169178216%_)))) - (let ((_%hd178180178246%_ + _%tl179301179348%_)))) + (let ((_%hd179312179378%_ (let () (declare (not safe)) - (##car _%e178179178243%_))) - (_%tl178181178248%_ + (##car _%e179311179375%_))) + (_%tl179313179380%_ (let () (declare (not safe)) - (##cdr _%e178179178243%_)))) + (##cdr _%e179311179375%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178180178246%_)) - (let ((_%e178182178251%_ + _%hd179312179378%_)) + (let ((_%e179314179383%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd178180178246%_)))) - (let ((_%hd178183178254%_ + (gx#stx-e _%hd179312179378%_)))) + (let ((_%hd179315179386%_ (let () (declare (not safe)) - (##car _%e178182178251%_))) - (_%tl178184178256%_ + (##car _%e179314179383%_))) + (_%tl179316179388%_ (let () (declare (not safe)) - (##cdr _%e178182178251%_)))) + (##cdr _%e179314179383%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178183178254%_)) + (gx#identifier? _%hd179315179386%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd178183178254%_)) + (gx#stx-eq? '%#if _%hd179315179386%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178184178256%_)) - (let ((_%e178185178259%_ + (gx#stx-pair? _%tl179316179388%_)) + (let ((_%e179317179391%_ (let () (declare (not safe)) - (gx#stx-e _%tl178184178256%_)))) - (let ((_%hd178186178262%_ + (gx#stx-e _%tl179316179388%_)))) + (let ((_%hd179318179394%_ (let () (declare (not safe)) - (##car _%e178185178259%_))) - (_%tl178187178264%_ + (##car _%e179317179391%_))) + (_%tl179319179396%_ (let () (declare (not safe)) - (##cdr _%e178185178259%_)))) + (##cdr _%e179317179391%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178187178264%_)) - (let ((_%e178188178267%_ + (gx#stx-pair? _%tl179319179396%_)) + (let ((_%e179320179399%_ (let () (declare (not safe)) (gx#stx-e - _%tl178187178264%_)))) - (let ((_%hd178189178270%_ + _%tl179319179396%_)))) + (let ((_%hd179321179402%_ (let () (declare (not safe)) - (##car _%e178188178267%_))) - (_%tl178190178272%_ + (##car _%e179320179399%_))) + (_%tl179322179404%_ (let () (declare (not safe)) - (##cdr _%e178188178267%_)))) + (##cdr _%e179320179399%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178190178272%_)) - (let ((_%e178191178275%_ + _%tl179322179404%_)) + (let ((_%e179323179407%_ (let () (declare (not safe)) (gx#stx-e - _%tl178190178272%_)))) - (let ((_%hd178192178278%_ + _%tl179322179404%_)))) + (let ((_%hd179324179410%_ (let () (declare (not safe)) - (##car _%e178191178275%_))) - (_%tl178193178280%_ + (##car _%e179323179407%_))) + (_%tl179325179412%_ (let () (declare (not safe)) - (##cdr _%e178191178275%_)))) + (##cdr _%e179323179407%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178193178280%_)) + _%tl179325179412%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl178181178248%_)) - ((lambda (_%L178283%_ - _%L178284%_ - _%L178285%_ - _%L178286%_) - (let ((_%E178315%_ - (_%xform-e177942%_ - _%L178283%_ - _%kont-id178154%_ - _%kont-box178155%_ - _%negation-id178156%_))) + (gx#stx-null? _%tl179313179380%_)) + ((lambda (_%L179415%_ + _%L179416%_ + _%L179417%_ + _%L179418%_) + (let ((_%E179447%_ + (_%xform-e179074%_ + _%L179415%_ + _%kont-id179286%_ + _%kont-box179287%_ + _%negation-id179288%_))) (cons '%#lambda - (cons (let ((__tmp191205 - (lambda (_%g178316178319%_ - _%g178317178321%_) - (cons _%g178316178319%_ - _%g178317178321%_)))) + (cons (let ((__tmp192337 + (lambda (_%g179448179451%_ + _%g179449179453%_) + (cons _%g179448179451%_ + _%g179449179453%_)))) (declare (not safe)) (__foldr1 - __tmp191205 + __tmp192337 '() - _%L178286%_)) + _%L179418%_)) (cons (cons '%#if - (cons _%L178285%_ - (cons _%L178284%_ - (cons _%E178315%_ + (cons _%L179417%_ + (cons _%L179416%_ + (cons _%E179447%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd178192178278%_ - _%hd178189178270%_ - _%hd178186178262%_ - _%id178178178240%_) - (_%g178158178198%_ _%g178159178201%_)) - (_%g178158178198%_ _%g178159178201%_)))) + _%hd179324179410%_ + _%hd179321179402%_ + _%hd179318179394%_ + _%id179310179372%_) + (_%g179290179330%_ _%g179291179333%_)) + (_%g179290179330%_ _%g179291179333%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178158178198%_ - _%g178159178201%_)))) - (_%g178158178198%_ - _%g178159178201%_)))) - (_%g178158178198%_ _%g178159178201%_)) - (_%g178158178198%_ _%g178159178201%_)) - (_%g178158178198%_ _%g178159178201%_)))) - (_%g178158178198%_ _%g178159178201%_)))) + (_%g179290179330%_ + _%g179291179333%_)))) + (_%g179290179330%_ + _%g179291179333%_)))) + (_%g179290179330%_ _%g179291179333%_)) + (_%g179290179330%_ _%g179291179333%_)) + (_%g179290179330%_ _%g179291179333%_)))) + (_%g179290179330%_ _%g179291179333%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178158178198%_ - _%g178159178201%_))))))) - (_%loop178173178224%_ - _%target178170178219%_ + (_%g179290179330%_ + _%g179291179333%_))))))) + (_%loop179305179356%_ + _%target179302179351%_ '())) - (_%g178158178198%_ _%g178159178201%_))))) - (_%g178158178198%_ _%g178159178201%_)))) + (_%g179290179330%_ _%g179291179333%_))))) + (_%g179290179330%_ _%g179291179333%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178158178198%_ - _%g178159178201%_)) - (_%g178158178198%_ - _%g178159178201%_)) - (_%g178158178198%_ - _%g178159178201%_)))) - (_%g178158178198%_ _%g178159178201%_))))) - (_%g178157178324%_ _%expr178153%_)))) - (_%clause-e177944%_ - (lambda (_%clause-lambda178023%_ - _%kont-id178024%_ - _%rest178025%_) - (letrec* ((_%kont-box178027%_ (box '#f))) - (let* ((_%negation-id178067%_ - (let* ((_%rest178028178038%_ _%rest178025%_) - (_%else178030178046%_ - (lambda () _%negation-id177940%_)) - (_%K178032178052%_ - (lambda (_%clause178049%_ - _%clause-id178050%_) - _%clause-id178050%_))) - (if (let () - (declare (not safe)) - (##pair? _%rest178028178038%_)) - (let ((_%hd178033178055%_ + (_%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%_ (let () (declare (not safe)) - (##car _%rest178028178038%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd178033178055%_)) - (let ((_%hd178035178058%_ + (##car _%rest179160179170%_)))) + (if (pair? _%hd179165179187%_) + (let ((_%hd179167179190%_ (let () (declare (not safe)) - (##car _%hd178033178055%_))) - (_%tl178036178060%_ + (##car _%hd179165179187%_))) + (_%tl179168179192%_ (let () (declare (not safe)) - (##cdr _%hd178033178055%_)))) - (let* ((_%clause-id178063%_ - _%hd178035178058%_) - (_%clause178065%_ - _%tl178036178060%_)) - (_%K178032178052%_ - _%clause178065%_ - _%clause-id178063%_))) - (_%else178030178046%_))) - (_%else178030178046%_)))) - (_%g178069178089%_ - (lambda (_%g178070178086%_) + (##cdr _%hd179165179187%_)))) + (let* ((_%clause-id179195%_ + _%hd179167179190%_) + (_%clause179197%_ + _%tl179168179192%_)) + (_%K179164179184%_ + _%clause179197%_ + _%clause-id179195%_))) + (_%else179162179178%_))) + (_%else179162179178%_)))) + (_%g179201179221%_ + (lambda (_%g179202179218%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178070178086%_)))) - (_%g178068178150%_ - (lambda (_%g178070178092%_) + _%g179202179218%_)))) + (_%g179200179282%_ + (lambda (_%g179202179224%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178070178092%_)) - (let ((_%e178073178094%_ + (gx#stx-pair? _%g179202179224%_)) + (let ((_%e179205179226%_ (let () (declare (not safe)) - (gx#stx-e _%g178070178092%_)))) - (let ((_%hd178074178097%_ + (gx#stx-e _%g179202179224%_)))) + (let ((_%hd179206179229%_ (let () (declare (not safe)) - (##car _%e178073178094%_))) - (_%tl178075178099%_ + (##car _%e179205179226%_))) + (_%tl179207179231%_ (let () (declare (not safe)) - (##cdr _%e178073178094%_)))) + (##cdr _%e179205179226%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178074178097%_)) + _%hd179206179229%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd178074178097%_)) + _%hd179206179229%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178075178099%_)) - (let ((_%e178076178102%_ + _%tl179207179231%_)) + (let ((_%e179208179234%_ (let () (declare (not safe)) (gx#stx-e - _%tl178075178099%_)))) - (let ((_%hd178077178105%_ + _%tl179207179231%_)))) + (let ((_%hd179209179237%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e178076178102%_))) - (_%tl178078178107%_ - (let () (declare (not safe)) (##cdr _%e178076178102%_)))) + (##car _%e179208179234%_))) + (_%tl179210179239%_ + (let () (declare (not safe)) (##cdr _%e179208179234%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178077178105%_)) - (let ((_%e178079178110%_ + (gx#stx-pair? _%hd179209179237%_)) + (let ((_%e179211179242%_ (let () (declare (not safe)) - (gx#stx-e _%hd178077178105%_)))) - (let ((_%hd178080178113%_ + (gx#stx-e _%hd179209179237%_)))) + (let ((_%hd179212179245%_ (let () (declare (not safe)) - (##car _%e178079178110%_))) - (_%tl178081178115%_ + (##car _%e179211179242%_))) + (_%tl179213179247%_ (let () (declare (not safe)) - (##cdr _%e178079178110%_)))) + (##cdr _%e179211179242%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178081178115%_)) + (gx#stx-null? _%tl179213179247%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178078178107%_)) - (let ((_%e178082178118%_ + (gx#stx-pair? _%tl179210179239%_)) + (let ((_%e179214179250%_ (let () (declare (not safe)) - (gx#stx-e _%tl178078178107%_)))) - (let ((_%hd178083178121%_ + (gx#stx-e _%tl179210179239%_)))) + (let ((_%hd179215179253%_ (let () (declare (not safe)) - (##car _%e178082178118%_))) - (_%tl178084178123%_ + (##car _%e179214179250%_))) + (_%tl179216179255%_ (let () (declare (not safe)) - (##cdr _%e178082178118%_)))) + (##cdr _%e179214179250%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178084178123%_)) - ((lambda (_%L178126%_ _%L178127%_) - (let ((_%body178148%_ - (_%xform-e177942%_ - _%L178126%_ - _%kont-id178024%_ - _%kont-box178027%_ - _%negation-id178067%_))) + (gx#stx-null? _%tl179216179255%_)) + ((lambda (_%L179258%_ _%L179259%_) + (let ((_%body179280%_ + (_%xform-e179074%_ + _%L179258%_ + _%kont-id179156%_ + _%kont-box179159%_ + _%negation-id179199%_))) (values (cons '%#lambda - (cons (cons _%L178127%_ + (cons (cons _%L179259%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%body178148%_ '()))) + (cons _%body179280%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _%kont-box178027%_)))) - _%hd178083178121%_ - _%hd178080178113%_) - (_%g178069178089%_ - _%g178070178092%_)))) - (_%g178069178089%_ _%g178070178092%_)) - (_%g178069178089%_ _%g178070178092%_)))) - (_%g178069178089%_ _%g178070178092%_)))) + (unbox _%kont-box179159%_)))) + _%hd179215179253%_ + _%hd179212179245%_) + (_%g179201179221%_ + _%g179202179224%_)))) + (_%g179201179221%_ _%g179202179224%_)) + (_%g179201179221%_ _%g179202179224%_)))) + (_%g179201179221%_ _%g179202179224%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178069178089%_ - _%g178070178092%_)) - (_%g178069178089%_ - _%g178070178092%_)) - (_%g178069178089%_ - _%g178070178092%_)))) - (_%g178069178089%_ _%g178070178092%_))))) - (_%g178068178150%_ _%clause-lambda178023%_)))))) - (let _%lp177946%_ ((_%rest177948%_ _%clauses177939%_) - (_%clauses177949%_ '()) - (_%konts177950%_ '())) - (let* ((_%rest177951177959%_ _%rest177948%_) - (_%else177953177967%_ + (_%g179201179221%_ + _%g179202179224%_)) + (_%g179201179221%_ + _%g179202179224%_)) + (_%g179201179221%_ + _%g179202179224%_)))) + (_%g179201179221%_ _%g179202179224%_))))) + (_%g179200179282%_ _%clause-lambda179155%_)))))) + (let _%lp179078%_ ((_%rest179080%_ _%clauses179071%_) + (_%clauses179081%_ '()) + (_%konts179082%_ '())) + (let* ((_%rest179083179091%_ _%rest179080%_) + (_%else179085179099%_ (lambda () - (values (reverse _%clauses177949%_) - (reverse _%konts177950%_)))) - (_%K177955178011%_ - (lambda (_%rest177970%_ _%clause177971%_) - (let* ((_%clause177972177979%_ _%clause177971%_) - (_%E177974177983%_ + (values (reverse _%clauses179081%_) + (reverse _%konts179082%_)))) + (_%K179087179143%_ + (lambda (_%rest179102%_ _%clause179103%_) + (let* ((_%clause179104179111%_ _%clause179103%_) + (_%E179106179115%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause177972177979%_ + _%clause179104179111%_ '([clause-id . clause-lambda]))) '#!void)) - (_%K177975177999%_ - (lambda (_%clause-lambda177986%_ - _%clause-id177987%_) - (let* ((_%id177989%_ - (let ((__tmp191206 + (_%K179107179131%_ + (lambda (_%clause-lambda179118%_ + _%clause-id179119%_) + (let* ((_%id179121%_ + (let ((__tmp192338 (let () (declare (not safe)) (##gensym '__kont)))) (declare (not safe)) - (make-symbol__0 __tmp191206))) - (_%id177991%_ + (make-symbol__0 __tmp192338))) + (_%id179123%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id177989%_))) - (_%_177993%_ + _%id179121%_))) + (_%_179125%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id177991%_))) - (_g191207_ - (_%clause-e177944%_ - _%clause-lambda177986%_ - _%id177991%_ - _%rest177970%_))) + _%id179123%_))) + (_g192339_ + (_%clause-e179076%_ + _%clause-lambda179118%_ + _%id179123%_ + _%rest179102%_))) (begin - (let ((_g191208_ + (let ((_g192340_ (let () (declare (not safe)) - (if (##values? _g191207_) - (##vector-length _g191207_) + (if (##values? _g192339_) + (##vector-length _g192339_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g191208_ 2))) + (##fx= _g192340_ 2))) (error "Context expects 2 values" - _g191208_))) - (let ((_%clause-lambda177995%_ + _g192340_))) + (let ((_%clause-lambda179127%_ (let () (declare (not safe)) - (##vector-ref _g191207_ 0))) - (_%kont177996%_ + (##vector-ref _g192339_ 0))) + (_%kont179128%_ (let () (declare (not safe)) - (##vector-ref _g191207_ 1)))) - (_%lp177946%_ - _%rest177970%_ - (cons (cons _%clause-id177987%_ - _%clause-lambda177995%_) - _%clauses177949%_) - (cons (cons _%id177991%_ _%kont177996%_) - _%konts177950%_)))))))) - (if (let () - (declare (not safe)) - (##pair? _%clause177972177979%_)) - (let ((_%hd177976178002%_ + (##vector-ref _g192339_ 1)))) + (_%lp179078%_ + _%rest179102%_ + (cons (cons _%clause-id179119%_ + _%clause-lambda179127%_) + _%clauses179081%_) + (cons (cons _%id179123%_ _%kont179128%_) + _%konts179082%_)))))))) + (if (pair? _%clause179104179111%_) + (let ((_%hd179108179134%_ (let () (declare (not safe)) - (##car _%clause177972177979%_))) - (_%tl177977178004%_ + (##car _%clause179104179111%_))) + (_%tl179109179136%_ (let () (declare (not safe)) - (##cdr _%clause177972177979%_)))) - (let* ((_%clause-id178007%_ _%hd177976178002%_) - (_%clause-lambda178009%_ - _%tl177977178004%_)) - (_%K177975177999%_ - _%clause-lambda178009%_ - _%clause-id178007%_))) - (_%E177974177983%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest177951177959%_)) - (let ((_%hd177956178014%_ + (##cdr _%clause179104179111%_)))) + (let* ((_%clause-id179139%_ _%hd179108179134%_) + (_%clause-lambda179141%_ + _%tl179109179136%_)) + (_%K179107179131%_ + _%clause-lambda179141%_ + _%clause-id179139%_))) + (_%E179106179115%_)))))) + (if (pair? _%rest179083179091%_) + (let ((_%hd179088179146%_ (let () (declare (not safe)) - (##car _%rest177951177959%_))) - (_%tl177957178016%_ + (##car _%rest179083179091%_))) + (_%tl179089179148%_ (let () (declare (not safe)) - (##cdr _%rest177951177959%_)))) - (let* ((_%clause178019%_ _%hd177956178014%_) - (_%rest178021%_ _%tl177957178016%_)) - (_%K177955178011%_ _%rest178021%_ _%clause178019%_))) - (_%else177953177967%_))))))) + (##cdr _%rest179083179091%_)))) + (let* ((_%clause179151%_ _%hd179088179146%_) + (_%rest179153%_ _%tl179089179148%_)) + (_%K179087179143%_ _%rest179153%_ _%clause179151%_))) + (_%else179085179099%_))))))) (define gxc#optimize-syntax-case-closure - (lambda (_%clause177283%_ _%negation177284%_ _%target177285%_) - (letrec ((_%closure-e177287%_ - (lambda (_%expr177404%_) - (let* ((_%__stx190818190819%_ _%expr177404%_) - (_%g177411177526%_ + (lambda (_%clause178415%_ _%negation178416%_ _%target178417%_) + (letrec ((_%closure-e178419%_ + (lambda (_%expr178536%_) + (let* ((_%__stx191950191951%_ _%expr178536%_) + (_%g178543178658%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190818190819%_))))) - (let ((_%__kont190820190821%_ - (lambda (_%L177917%_ _%L177918%_ _%L177919%_) + _%__stx191950191951%_))))) + (let ((_%__kont191952191953%_ + (lambda (_%L179049%_ _%L179050%_ _%L179051%_) (cons '%#if - (cons _%L177919%_ - (cons (_%closure-e177287%_ - _%L177918%_) - (cons (_%closure-e177287%_ - _%L177917%_) + (cons _%L179051%_ + (cons (_%closure-e178419%_ + _%L179050%_) + (cons (_%closure-e178419%_ + _%L179049%_) '())))))) - (_%__kont190822190823%_ - (lambda (_%L177865%_ _%L177866%_) + (_%__kont191954191955%_ + (lambda (_%L178997%_ _%L178998%_) (cons '%#let-values - (cons _%L177866%_ - (cons (_%closure-e177287%_ - _%L177865%_) + (cons _%L178998%_ + (cons (_%closure-e178419%_ + _%L178997%_) '()))))) - (_%__kont190824190825%_ - (lambda (_%L177811%_ _%L177812%_ _%L177813%_) + (_%__kont191956191957%_ + (lambda (_%L178943%_ _%L178944%_ _%L178945%_) (cons '%#letrec-values - (cons (cons (cons (cons _%L177813%_ '()) - (cons (_%closure-e177287%_ - _%L177812%_) + (cons (cons (cons (cons _%L178945%_ '()) + (cons (_%closure-e178419%_ + _%L178944%_) '())) '()) - (cons _%L177811%_ '()))))) - (_%__kont190826190827%_ - (lambda (_%L177724%_ _%L177725%_) + (cons _%L178943%_ '()))))) + (_%__kont191958191959%_ + (lambda (_%L178856%_ _%L178857%_) (cons '%#lambda - (cons (let ((__tmp191209 - (lambda (_%g177742177745%_ - _%g177743177747%_) - (cons _%g177742177745%_ - _%g177743177747%_)))) + (cons (let ((__tmp192341 + (lambda (_%g178874178877%_ + _%g178875178879%_) + (cons _%g178874178877%_ + _%g178875178879%_)))) (declare (not safe)) (__foldr1 - __tmp191209 + __tmp192341 '() - _%L177725%_)) - (cons (_%closure-e177287%_ - _%L177724%_) + _%L178857%_)) + (cons (_%closure-e178419%_ + _%L178856%_) '()))))) - (_%__kont190830190831%_ - (lambda (_%L177654%_) + (_%__kont191962191963%_ + (lambda (_%L178786%_) (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L177654%_ '())) + (cons _%L178786%_ '())) '())))) - (_%__kont190832190833%_ - (lambda (_%L177587%_ _%L177588%_) - _%expr177404%_))) - (let* ((_%__match191051191052%_ - (lambda (_%e177501177531%_ - _%hd177502177534%_ - _%tl177503177536%_ - _%e177504177539%_ - _%hd177505177542%_ - _%tl177506177544%_ - _%e177507177547%_ - _%hd177508177550%_ - _%tl177509177552%_ - _%e177510177555%_ - _%hd177511177558%_ - _%tl177512177560%_ - _%__splice190834190835%_ - _%target177513177563%_ - _%tl177515177565%_) - (letrec ((_%loop177516177568%_ - (lambda (_%hd177514177571%_ - _%arg177520177573%_) + (_%__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%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177514177571%_)) - (let ((_%e177517177576%_ + _%hd178646178703%_)) + (let ((_%e178649178708%_ (let () (declare (not safe)) (gx#stx-e - _%hd177514177571%_)))) - (let ((_%lp-tl177519177581%_ + _%hd178646178703%_)))) + (let ((_%lp-tl178651178713%_ (let () (declare (not safe)) - (##cdr _%e177517177576%_))) - (_%lp-hd177518177579%_ + (##cdr _%e178649178708%_))) + (_%lp-hd178650178711%_ (let () (declare (not safe)) - (##car _%e177517177576%_)))) - (_%loop177516177568%_ - _%lp-tl177519177581%_ - (cons _%lp-hd177518177579%_ - _%arg177520177573%_)))) - (let ((_%arg177521177584%_ - (reverse _%arg177520177573%_))) - (_%__kont190832190833%_ - _%arg177521177584%_ - _%hd177511177558%_)))))) - (_%loop177516177568%_ - _%target177513177563%_ + (##car _%e178649178708%_)))) + (_%loop178648178700%_ + _%lp-tl178651178713%_ + (cons _%lp-hd178650178711%_ + _%arg178652178705%_)))) + (let ((_%arg178653178716%_ + (reverse _%arg178652178705%_))) + (_%__kont191964191965%_ + _%arg178653178716%_ + _%hd178643178690%_)))))) + (_%loop178648178700%_ + _%target178645178695%_ '())))) - (_%__match191009191010%_ - (lambda (_%e177484177614%_ - _%hd177485177617%_ - _%tl177486177619%_ - _%e177487177622%_ - _%hd177488177625%_ - _%tl177489177627%_ - _%e177490177630%_ - _%hd177491177633%_ - _%tl177492177635%_ - _%e177493177638%_ - _%hd177494177641%_ - _%tl177495177643%_ - _%e177496177646%_ - _%hd177497177649%_ - _%tl177498177651%_) - (let ((_%L177654%_ _%hd177494177641%_)) + (_%__match192141192142%_ + (lambda (_%e178616178746%_ + _%hd178617178749%_ + _%tl178618178751%_ + _%e178619178754%_ + _%hd178620178757%_ + _%tl178621178759%_ + _%e178622178762%_ + _%hd178623178765%_ + _%tl178624178767%_ + _%e178625178770%_ + _%hd178626178773%_ + _%tl178627178775%_ + _%e178628178778%_ + _%hd178629178781%_ + _%tl178630178783%_) + (let ((_%L178786%_ _%hd178626178773%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L177654%_ - _%negation177284%_)) - (_%__kont190830190831%_ _%L177654%_) + _%L178786%_ + _%negation178416%_)) + (_%__kont191962191963%_ _%L178786%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl177489177627%_)) - (let ((_%__splice190834190835%_ + _%tl178621178759%_)) + (let ((_%__splice191966191967%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl177489177627%_ + _%tl178621178759%_ '0)))) - (let ((_%tl177515177565%_ + (let ((_%tl178647178697%_ (let () (declare (not safe)) (##vector-ref - _%__splice190834190835%_ + _%__splice191966191967%_ '1))) - (_%target177513177563%_ + (_%target178645178695%_ (let () (declare (not safe)) (##vector-ref - _%__splice190834190835%_ + _%__splice191966191967%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177515177565%_)) - (_%__match191051191052%_ - _%e177484177614%_ - _%hd177485177617%_ - _%tl177486177619%_ - _%e177487177622%_ - _%hd177488177625%_ - _%tl177489177627%_ - _%e177490177630%_ - _%hd177491177633%_ - _%tl177492177635%_ - _%e177493177638%_ - _%hd177494177641%_ - _%tl177495177643%_ - _%__splice190834190835%_ - _%target177513177563%_ - _%tl177515177565%_) + _%tl178647178697%_)) + (_%__match192183192184%_ + _%e178616178746%_ + _%hd178617178749%_ + _%tl178618178751%_ + _%e178619178754%_ + _%hd178620178757%_ + _%tl178621178759%_ + _%e178622178762%_ + _%hd178623178765%_ + _%tl178624178767%_ + _%e178625178770%_ + _%hd178626178773%_ + _%tl178627178775%_ + _%__splice191966191967%_ + _%target178645178695%_ + _%tl178647178697%_) (let () (declare (not safe)) - (_%g177411177526%_))))) + (_%g178543178658%_))))) (let () (declare (not safe)) - (_%g177411177526%_))))))) - (_%__match190967190968%_ - (lambda (_%e177465177676%_ - _%hd177466177679%_ - _%tl177467177681%_ - _%e177468177684%_ - _%hd177469177687%_ - _%tl177470177689%_ - _%__splice190828190829%_ - _%target177471177692%_ - _%tl177473177694%_) - (letrec ((_%loop177474177697%_ - (lambda (_%hd177472177700%_ - _%id177478177702%_) + (_%g178543178658%_))))))) + (_%__match192099192100%_ + (lambda (_%e178597178808%_ + _%hd178598178811%_ + _%tl178599178813%_ + _%e178600178816%_ + _%hd178601178819%_ + _%tl178602178821%_ + _%__splice191960191961%_ + _%target178603178824%_ + _%tl178605178826%_) + (letrec ((_%loop178606178829%_ + (lambda (_%hd178604178832%_ + _%id178610178834%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177472177700%_)) - (let ((_%e177475177705%_ + _%hd178604178832%_)) + (let ((_%e178607178837%_ (let () (declare (not safe)) (gx#stx-e - _%hd177472177700%_)))) - (let ((_%lp-tl177477177710%_ + _%hd178604178832%_)))) + (let ((_%lp-tl178609178842%_ (let () (declare (not safe)) - (##cdr _%e177475177705%_))) - (_%lp-hd177476177708%_ + (##cdr _%e178607178837%_))) + (_%lp-hd178608178840%_ (let () (declare (not safe)) - (##car _%e177475177705%_)))) - (_%loop177474177697%_ - _%lp-tl177477177710%_ - (cons _%lp-hd177476177708%_ - _%id177478177702%_)))) - (let ((_%id177479177713%_ - (reverse _%id177478177702%_))) + (##car _%e178607178837%_)))) + (_%loop178606178829%_ + _%lp-tl178609178842%_ + (cons _%lp-hd178608178840%_ + _%id178610178834%_)))) + (let ((_%id178611178845%_ + (reverse _%id178610178834%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177470177689%_)) - (let ((_%e177480177716%_ + _%tl178602178821%_)) + (let ((_%e178612178848%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl177470177689%_)))) - (let ((_%tl177482177721%_ + (gx#stx-e _%tl178602178821%_)))) + (let ((_%tl178614178853%_ (let () (declare (not safe)) - (##cdr _%e177480177716%_))) - (_%hd177481177719%_ + (##cdr _%e178612178848%_))) + (_%hd178613178851%_ (let () (declare (not safe)) - (##car _%e177480177716%_)))) + (##car _%e178612178848%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177482177721%_)) - (_%__kont190826190827%_ - _%hd177481177719%_ - _%id177479177713%_) - (let () (declare (not safe)) (_%g177411177526%_))))) - (let () (declare (not safe)) (_%g177411177526%_)))))))) + (gx#stx-null? _%tl178614178853%_)) + (_%__kont191958191959%_ + _%hd178613178851%_ + _%id178611178845%_) + (let () (declare (not safe)) (_%g178543178658%_))))) + (let () (declare (not safe)) (_%g178543178658%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop177474177697%_ - _%target177471177692%_ + (_%loop178606178829%_ + _%target178603178824%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190818190819%_)) - (let ((_%e177416177885%_ + (gx#stx-pair? _%__stx191950191951%_)) + (let ((_%e178548179017%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190818190819%_)))) - (let ((_%tl177418177890%_ + (gx#stx-e _%__stx191950191951%_)))) + (let ((_%tl178550179022%_ (let () (declare (not safe)) - (##cdr _%e177416177885%_))) - (_%hd177417177888%_ + (##cdr _%e178548179017%_))) + (_%hd178549179020%_ (let () (declare (not safe)) - (##car _%e177416177885%_)))) + (##car _%e178548179017%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd177417177888%_)) + (gx#identifier? _%hd178549179020%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd177417177888%_)) + _%hd178549179020%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177418177890%_)) - (let ((_%e177419177893%_ + _%tl178550179022%_)) + (let ((_%e178551179025%_ (let () (declare (not safe)) (gx#stx-e - _%tl177418177890%_)))) - (let ((_%tl177421177898%_ + _%tl178550179022%_)))) + (let ((_%tl178553179030%_ (let () (declare (not safe)) - (##cdr _%e177419177893%_))) - (_%hd177420177896%_ + (##cdr _%e178551179025%_))) + (_%hd178552179028%_ (let () (declare (not safe)) - (##car _%e177419177893%_)))) + (##car _%e178551179025%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177421177898%_)) - (let ((_%e177422177901%_ + _%tl178553179030%_)) + (let ((_%e178554179033%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl177421177898%_)))) - (let ((_%tl177424177906%_ - (let () (declare (not safe)) (##cdr _%e177422177901%_))) - (_%hd177423177904%_ + (gx#stx-e _%tl178553179030%_)))) + (let ((_%tl178556179038%_ + (let () (declare (not safe)) (##cdr _%e178554179033%_))) + (_%hd178555179036%_ (let () (declare (not safe)) - (##car _%e177422177901%_)))) + (##car _%e178554179033%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177424177906%_)) - (let ((_%e177425177909%_ + (gx#stx-pair? _%tl178556179038%_)) + (let ((_%e178557179041%_ (let () (declare (not safe)) - (gx#stx-e _%tl177424177906%_)))) - (let ((_%tl177427177914%_ + (gx#stx-e _%tl178556179038%_)))) + (let ((_%tl178559179046%_ (let () (declare (not safe)) - (##cdr _%e177425177909%_))) - (_%hd177426177912%_ + (##cdr _%e178557179041%_))) + (_%hd178558179044%_ (let () (declare (not safe)) - (##car _%e177425177909%_)))) + (##car _%e178557179041%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177427177914%_)) - (_%__kont190820190821%_ - _%hd177426177912%_ - _%hd177423177904%_ - _%hd177420177896%_) + (gx#stx-null? _%tl178559179046%_)) + (_%__kont191952191953%_ + _%hd178558179044%_ + _%hd178555179036%_ + _%hd178552179028%_) (let () (declare (not safe)) - (_%g177411177526%_))))) - (let () (declare (not safe)) (_%g177411177526%_))))) - (let () (declare (not safe)) (_%g177411177526%_))))) + (_%g178543178658%_))))) + (let () (declare (not safe)) (_%g178543178658%_))))) + (let () (declare (not safe)) (_%g178543178658%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g177411177526%_))) + (_%g178543178658%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd177417177888%_)) + _%hd178549179020%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177418177890%_)) - (let ((_%e177433177849%_ + _%tl178550179022%_)) + (let ((_%e178565178981%_ (let () (declare (not safe)) (gx#stx-e - _%tl177418177890%_)))) - (let ((_%tl177435177854%_ + _%tl178550179022%_)))) + (let ((_%tl178567178986%_ (let () (declare (not safe)) - (##cdr _%e177433177849%_))) - (_%hd177434177852%_ + (##cdr _%e178565178981%_))) + (_%hd178566178984%_ (let () (declare (not safe)) - (##car _%e177433177849%_)))) + (##car _%e178565178981%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177435177854%_)) - (let ((_%e177436177857%_ + _%tl178567178986%_)) + (let ((_%e178568178989%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl177435177854%_)))) - (let ((_%tl177438177862%_ + (gx#stx-e _%tl178567178986%_)))) + (let ((_%tl178570178994%_ (let () (declare (not safe)) - (##cdr _%e177436177857%_))) - (_%hd177437177860%_ + (##cdr _%e178568178989%_))) + (_%hd178569178992%_ (let () (declare (not safe)) - (##car _%e177436177857%_)))) + (##car _%e178568178989%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177438177862%_)) - (_%__kont190822190823%_ - _%hd177437177860%_ - _%hd177434177852%_) - (let () (declare (not safe)) (_%g177411177526%_))))) - (let () (declare (not safe)) (_%g177411177526%_))))) + (gx#stx-null? _%tl178570178994%_)) + (_%__kont191954191955%_ + _%hd178569178992%_ + _%hd178566178984%_) + (let () (declare (not safe)) (_%g178543178658%_))))) + (let () (declare (not safe)) (_%g178543178658%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g177411177526%_))) + (_%g178543178658%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd177417177888%_)) + _%hd178549179020%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177418177890%_)) - (let ((_%e177445177763%_ + _%tl178550179022%_)) + (let ((_%e178577178895%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl177418177890%_)))) - (let ((_%tl177447177768%_ - (let () (declare (not safe)) (##cdr _%e177445177763%_))) - (_%hd177446177766%_ + (gx#stx-e _%tl178550179022%_)))) + (let ((_%tl178579178900%_ + (let () (declare (not safe)) (##cdr _%e178577178895%_))) + (_%hd178578178898%_ (let () (declare (not safe)) - (##car _%e177445177763%_)))) + (##car _%e178577178895%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177446177766%_)) - (let ((_%e177448177771%_ + (gx#stx-pair? _%hd178578178898%_)) + (let ((_%e178580178903%_ (let () (declare (not safe)) - (gx#stx-e _%hd177446177766%_)))) - (let ((_%tl177450177776%_ + (gx#stx-e _%hd178578178898%_)))) + (let ((_%tl178582178908%_ (let () (declare (not safe)) - (##cdr _%e177448177771%_))) - (_%hd177449177774%_ + (##cdr _%e178580178903%_))) + (_%hd178581178906%_ (let () (declare (not safe)) - (##car _%e177448177771%_)))) + (##car _%e178580178903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177449177774%_)) - (let ((_%e177451177779%_ + (gx#stx-pair? _%hd178581178906%_)) + (let ((_%e178583178911%_ (let () (declare (not safe)) - (gx#stx-e _%hd177449177774%_)))) - (let ((_%tl177453177784%_ + (gx#stx-e _%hd178581178906%_)))) + (let ((_%tl178585178916%_ (let () (declare (not safe)) - (##cdr _%e177451177779%_))) - (_%hd177452177782%_ + (##cdr _%e178583178911%_))) + (_%hd178584178914%_ (let () (declare (not safe)) - (##car _%e177451177779%_)))) + (##car _%e178583178911%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177452177782%_)) - (let ((_%e177454177787%_ + (gx#stx-pair? _%hd178584178914%_)) + (let ((_%e178586178919%_ (let () (declare (not safe)) - (gx#stx-e _%hd177452177782%_)))) - (let ((_%tl177456177792%_ + (gx#stx-e _%hd178584178914%_)))) + (let ((_%tl178588178924%_ (let () (declare (not safe)) - (##cdr _%e177454177787%_))) - (_%hd177455177790%_ + (##cdr _%e178586178919%_))) + (_%hd178587178922%_ (let () (declare (not safe)) - (##car _%e177454177787%_)))) + (##car _%e178586178919%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177456177792%_)) + _%tl178588178924%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177453177784%_)) - (let ((_%e177457177795%_ + _%tl178585178916%_)) + (let ((_%e178589178927%_ (let () (declare (not safe)) (gx#stx-e - _%tl177453177784%_)))) - (let ((_%tl177459177800%_ + _%tl178585178916%_)))) + (let ((_%tl178591178932%_ (let () (declare (not safe)) - (##cdr _%e177457177795%_))) - (_%hd177458177798%_ + (##cdr _%e178589178927%_))) + (_%hd178590178930%_ (let () (declare (not safe)) - (##car _%e177457177795%_)))) + (##car _%e178589178927%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177459177800%_)) + _%tl178591178932%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl177450177776%_)) + (gx#stx-null? _%tl178582178908%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177447177768%_)) - (let ((_%e177460177803%_ + (gx#stx-pair? _%tl178579178900%_)) + (let ((_%e178592178935%_ (let () (declare (not safe)) - (gx#stx-e _%tl177447177768%_)))) - (let ((_%tl177462177808%_ + (gx#stx-e _%tl178579178900%_)))) + (let ((_%tl178594178940%_ (let () (declare (not safe)) - (##cdr _%e177460177803%_))) - (_%hd177461177806%_ + (##cdr _%e178592178935%_))) + (_%hd178593178938%_ (let () (declare (not safe)) - (##car _%e177460177803%_)))) + (##car _%e178592178935%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177462177808%_)) - (_%__kont190824190825%_ - _%hd177461177806%_ - _%hd177458177798%_ - _%hd177455177790%_) + (gx#stx-null? _%tl178594178940%_)) + (_%__kont191956191957%_ + _%hd178593178938%_ + _%hd178590178930%_ + _%hd178587178922%_) (let () (declare (not safe)) - (_%g177411177526%_))))) - (let () (declare (not safe)) (_%g177411177526%_))) - (let () (declare (not safe)) (_%g177411177526%_))) - (let () (declare (not safe)) (_%g177411177526%_))))) + (_%g178543178658%_))))) + (let () (declare (not safe)) (_%g178543178658%_))) + (let () (declare (not safe)) (_%g178543178658%_))) + (let () (declare (not safe)) (_%g178543178658%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g177411177526%_))) + (_%g178543178658%_))) (let () (declare (not safe)) - (_%g177411177526%_))))) + (_%g178543178658%_))))) (let () (declare (not safe)) - (_%g177411177526%_))))) + (_%g178543178658%_))))) (let () (declare (not safe)) - (_%g177411177526%_))))) - (let () (declare (not safe)) (_%g177411177526%_))))) - (let () (declare (not safe)) (_%g177411177526%_))) + (_%g178543178658%_))))) + (let () (declare (not safe)) (_%g178543178658%_))))) + (let () (declare (not safe)) (_%g178543178658%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd177417177888%_)) + _%hd178549179020%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177418177890%_)) - (let ((_%e177468177684%_ + _%tl178550179022%_)) + (let ((_%e178600178816%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl177418177890%_)))) - (let ((_%tl177470177689%_ + (gx#stx-e _%tl178550179022%_)))) + (let ((_%tl178602178821%_ (let () (declare (not safe)) - (##cdr _%e177468177684%_))) - (_%hd177469177687%_ + (##cdr _%e178600178816%_))) + (_%hd178601178819%_ (let () (declare (not safe)) - (##car _%e177468177684%_)))) + (##car _%e178600178816%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd177469177687%_)) - (let ((_%__splice190828190829%_ + (gx#stx-pair/null? _%hd178601178819%_)) + (let ((_%__splice191960191961%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd177469177687%_ + _%hd178601178819%_ '0)))) - (let ((_%tl177473177694%_ + (let ((_%tl178605178826%_ (let () (declare (not safe)) (##vector-ref - _%__splice190828190829%_ + _%__splice191960191961%_ '1))) - (_%target177471177692%_ + (_%target178603178824%_ (let () (declare (not safe)) (##vector-ref - _%__splice190828190829%_ + _%__splice191960191961%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177473177694%_)) - (_%__match190967190968%_ - _%e177416177885%_ - _%hd177417177888%_ - _%tl177418177890%_ - _%e177468177684%_ - _%hd177469177687%_ - _%tl177470177689%_ - _%__splice190828190829%_ - _%target177471177692%_ - _%tl177473177694%_) + (gx#stx-null? _%tl178605178826%_)) + (_%__match192099192100%_ + _%e178548179017%_ + _%hd178549179020%_ + _%tl178550179022%_ + _%e178600178816%_ + _%hd178601178819%_ + _%tl178602178821%_ + _%__splice191960191961%_ + _%target178603178824%_ + _%tl178605178826%_) (let () (declare (not safe)) - (_%g177411177526%_))))) - (let () (declare (not safe)) (_%g177411177526%_))))) - (let () (declare (not safe)) (_%g177411177526%_))) + (_%g178543178658%_))))) + (let () (declare (not safe)) (_%g178543178658%_))))) + (let () (declare (not safe)) (_%g178543178658%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd177417177888%_)) + (gx#stx-eq? '%#call _%hd178549179020%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177418177890%_)) - (let ((_%e177487177622%_ + (gx#stx-pair? _%tl178550179022%_)) + (let ((_%e178619178754%_ (let () (declare (not safe)) - (gx#stx-e _%tl177418177890%_)))) - (let ((_%tl177489177627%_ + (gx#stx-e _%tl178550179022%_)))) + (let ((_%tl178621178759%_ (let () (declare (not safe)) - (##cdr _%e177487177622%_))) - (_%hd177488177625%_ + (##cdr _%e178619178754%_))) + (_%hd178620178757%_ (let () (declare (not safe)) - (##car _%e177487177622%_)))) + (##car _%e178619178754%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177488177625%_)) - (let ((_%e177490177630%_ + (gx#stx-pair? _%hd178620178757%_)) + (let ((_%e178622178762%_ (let () (declare (not safe)) - (gx#stx-e _%hd177488177625%_)))) - (let ((_%tl177492177635%_ + (gx#stx-e _%hd178620178757%_)))) + (let ((_%tl178624178767%_ (let () (declare (not safe)) - (##cdr _%e177490177630%_))) - (_%hd177491177633%_ + (##cdr _%e178622178762%_))) + (_%hd178623178765%_ (let () (declare (not safe)) - (##car _%e177490177630%_)))) + (##car _%e178622178762%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd177491177633%_)) + (gx#identifier? _%hd178623178765%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd177491177633%_)) + _%hd178623178765%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177492177635%_)) - (let ((_%e177493177638%_ + _%tl178624178767%_)) + (let ((_%e178625178770%_ (let () (declare (not safe)) (gx#stx-e - _%tl177492177635%_)))) - (let ((_%tl177495177643%_ + _%tl178624178767%_)))) + (let ((_%tl178627178775%_ (let () (declare (not safe)) - (##cdr _%e177493177638%_))) - (_%hd177494177641%_ + (##cdr _%e178625178770%_))) + (_%hd178626178773%_ (let () (declare (not safe)) - (##car _%e177493177638%_)))) + (##car _%e178625178770%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177495177643%_)) + _%tl178627178775%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177489177627%_)) - (let ((_%e177496177646%_ + _%tl178621178759%_)) + (let ((_%e178628178778%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl177489177627%_)))) - (let ((_%tl177498177651%_ + (gx#stx-e _%tl178621178759%_)))) + (let ((_%tl178630178783%_ (let () (declare (not safe)) - (##cdr _%e177496177646%_))) - (_%hd177497177649%_ + (##cdr _%e178628178778%_))) + (_%hd178629178781%_ (let () (declare (not safe)) - (##car _%e177496177646%_)))) + (##car _%e178628178778%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177498177651%_)) - (_%__match191009191010%_ - _%e177416177885%_ - _%hd177417177888%_ - _%tl177418177890%_ - _%e177487177622%_ - _%hd177488177625%_ - _%tl177489177627%_ - _%e177490177630%_ - _%hd177491177633%_ - _%tl177492177635%_ - _%e177493177638%_ - _%hd177494177641%_ - _%tl177495177643%_ - _%e177496177646%_ - _%hd177497177649%_ - _%tl177498177651%_) + (gx#stx-null? _%tl178630178783%_)) + (_%__match192141192142%_ + _%e178548179017%_ + _%hd178549179020%_ + _%tl178550179022%_ + _%e178619178754%_ + _%hd178620178757%_ + _%tl178621178759%_ + _%e178622178762%_ + _%hd178623178765%_ + _%tl178624178767%_ + _%e178625178770%_ + _%hd178626178773%_ + _%tl178627178775%_ + _%e178628178778%_ + _%hd178629178781%_ + _%tl178630178783%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl177489177627%_)) - (let ((_%__splice190834190835%_ + (gx#stx-pair/null? _%tl178621178759%_)) + (let ((_%__splice191966191967%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl177489177627%_ + _%tl178621178759%_ '0)))) - (let ((_%tl177515177565%_ + (let ((_%tl178647178697%_ (let () (declare (not safe)) (##vector-ref - _%__splice190834190835%_ + _%__splice191966191967%_ '1))) - (_%target177513177563%_ + (_%target178645178695%_ (let () (declare (not safe)) (##vector-ref - _%__splice190834190835%_ + _%__splice191966191967%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177515177565%_)) - (_%__match191051191052%_ - _%e177416177885%_ - _%hd177417177888%_ - _%tl177418177890%_ - _%e177487177622%_ - _%hd177488177625%_ - _%tl177489177627%_ - _%e177490177630%_ - _%hd177491177633%_ - _%tl177492177635%_ - _%e177493177638%_ - _%hd177494177641%_ - _%tl177495177643%_ - _%__splice190834190835%_ - _%target177513177563%_ - _%tl177515177565%_) + (gx#stx-null? _%tl178647178697%_)) + (_%__match192183192184%_ + _%e178548179017%_ + _%hd178549179020%_ + _%tl178550179022%_ + _%e178619178754%_ + _%hd178620178757%_ + _%tl178621178759%_ + _%e178622178762%_ + _%hd178623178765%_ + _%tl178624178767%_ + _%e178625178770%_ + _%hd178626178773%_ + _%tl178627178775%_ + _%__splice191966191967%_ + _%target178645178695%_ + _%tl178647178697%_) (let () (declare (not safe)) - (_%g177411177526%_))))) + (_%g178543178658%_))))) (let () (declare (not safe)) - (_%g177411177526%_)))))) + (_%g178543178658%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl177489177627%_)) - (let ((_%__splice190834190835%_ + (gx#stx-pair/null? _%tl178621178759%_)) + (let ((_%__splice191966191967%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl177489177627%_ + _%tl178621178759%_ '0)))) - (let ((_%tl177515177565%_ + (let ((_%tl178647178697%_ (let () (declare (not safe)) - (##vector-ref _%__splice190834190835%_ '1))) - (_%target177513177563%_ + (##vector-ref _%__splice191966191967%_ '1))) + (_%target178645178695%_ (let () (declare (not safe)) - (##vector-ref _%__splice190834190835%_ '0)))) + (##vector-ref _%__splice191966191967%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177515177565%_)) - (_%__match191051191052%_ - _%e177416177885%_ - _%hd177417177888%_ - _%tl177418177890%_ - _%e177487177622%_ - _%hd177488177625%_ - _%tl177489177627%_ - _%e177490177630%_ - _%hd177491177633%_ - _%tl177492177635%_ - _%e177493177638%_ - _%hd177494177641%_ - _%tl177495177643%_ - _%__splice190834190835%_ - _%target177513177563%_ - _%tl177515177565%_) + (gx#stx-null? _%tl178647178697%_)) + (_%__match192183192184%_ + _%e178548179017%_ + _%hd178549179020%_ + _%tl178550179022%_ + _%e178619178754%_ + _%hd178620178757%_ + _%tl178621178759%_ + _%e178622178762%_ + _%hd178623178765%_ + _%tl178624178767%_ + _%e178625178770%_ + _%hd178626178773%_ + _%tl178627178775%_ + _%__splice191966191967%_ + _%target178645178695%_ + _%tl178647178697%_) (let () (declare (not safe)) - (_%g177411177526%_))))) - (let () (declare (not safe)) (_%g177411177526%_)))) - (let () (declare (not safe)) (_%g177411177526%_))))) + (_%g178543178658%_))))) + (let () (declare (not safe)) (_%g178543178658%_)))) + (let () (declare (not safe)) (_%g178543178658%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g177411177526%_))) + (_%g178543178658%_))) (let () (declare (not safe)) - (_%g177411177526%_))) + (_%g178543178658%_))) (let () (declare (not safe)) - (_%g177411177526%_))))) + (_%g178543178658%_))))) (let () (declare (not safe)) - (_%g177411177526%_))))) - (let () (declare (not safe)) (_%g177411177526%_))) - (let () (declare (not safe)) (_%g177411177526%_))))))) + (_%g178543178658%_))))) + (let () (declare (not safe)) (_%g178543178658%_))) + (let () (declare (not safe)) (_%g178543178658%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g177411177526%_))))) + (_%g178543178658%_))))) (let () (declare (not safe)) - (_%g177411177526%_))))))))) - (let* ((_%clause177288177295%_ _%clause177283%_) - (_%E177290177299%_ + (_%g178543178658%_))))))))) + (let* ((_%clause178420178427%_ _%clause178415%_) + (_%E178422178431%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause177288177295%_ + _%clause178420178427%_ '([id . kont]))) '#!void)) - (_%K177291177392%_ - (lambda (_%kont177302%_ _%id177303%_) - (let* ((_%g177305177325%_ - (lambda (_%g177306177322%_) + (_%K178423178524%_ + (lambda (_%kont178434%_ _%id178435%_) + (let* ((_%g178437178457%_ + (lambda (_%g178438178454%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g177306177322%_)))) - (_%g177304177389%_ - (lambda (_%g177306177328%_) + _%g178438178454%_)))) + (_%g178436178521%_ + (lambda (_%g178438178460%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g177306177328%_)) - (let ((_%e177309177330%_ + (gx#stx-pair? _%g178438178460%_)) + (let ((_%e178441178462%_ (let () (declare (not safe)) - (gx#stx-e _%g177306177328%_)))) - (let ((_%hd177310177333%_ + (gx#stx-e _%g178438178460%_)))) + (let ((_%hd178442178465%_ (let () (declare (not safe)) - (##car _%e177309177330%_))) - (_%tl177311177335%_ + (##car _%e178441178462%_))) + (_%tl178443178467%_ (let () (declare (not safe)) - (##cdr _%e177309177330%_)))) + (##cdr _%e178441178462%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd177310177333%_)) + _%hd178442178465%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd177310177333%_)) + _%hd178442178465%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177311177335%_)) - (let ((_%e177312177338%_ + _%tl178443178467%_)) + (let ((_%e178444178470%_ (let () (declare (not safe)) (gx#stx-e - _%tl177311177335%_)))) - (let ((_%hd177313177341%_ + _%tl178443178467%_)))) + (let ((_%hd178445178473%_ (let () (declare (not safe)) - (##car _%e177312177338%_))) - (_%tl177314177343%_ + (##car _%e178444178470%_))) + (_%tl178446178475%_ (let () (declare (not safe)) - (##cdr _%e177312177338%_)))) + (##cdr _%e178444178470%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177313177341%_)) - (let ((_%e177315177346%_ + _%hd178445178473%_)) + (let ((_%e178447178478%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd177313177341%_)))) - (let ((_%hd177316177349%_ + (gx#stx-e _%hd178445178473%_)))) + (let ((_%hd178448178481%_ (let () (declare (not safe)) - (##car _%e177315177346%_))) - (_%tl177317177351%_ + (##car _%e178447178478%_))) + (_%tl178449178483%_ (let () (declare (not safe)) - (##cdr _%e177315177346%_)))) + (##cdr _%e178447178478%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177317177351%_)) + (gx#stx-null? _%tl178449178483%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177314177343%_)) - (let ((_%e177318177354%_ + (gx#stx-pair? _%tl178446178475%_)) + (let ((_%e178450178486%_ (let () (declare (not safe)) - (gx#stx-e _%tl177314177343%_)))) - (let ((_%hd177319177357%_ + (gx#stx-e _%tl178446178475%_)))) + (let ((_%hd178451178489%_ (let () (declare (not safe)) - (##car _%e177318177354%_))) - (_%tl177320177359%_ + (##car _%e178450178486%_))) + (_%tl178452178491%_ (let () (declare (not safe)) - (##cdr _%e177318177354%_)))) + (##cdr _%e178450178486%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177320177359%_)) - ((lambda (_%L177362%_ _%L177363%_) - (let* ((_%body177384%_ + (gx#stx-null? _%tl178452178491%_)) + ((lambda (_%L178494%_ _%L178495%_) + (let* ((_%body178516%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L177363%_ - _%target177285%_ - _%L177362%_))) - (_%body177386%_ - (if _%negation177284%_ - (_%closure-e177287%_ - _%body177384%_) - _%body177384%_))) - (let ((__tmp191211 + _%L178495%_ + _%target178417%_ + _%L178494%_))) + (_%body178518%_ + (if _%negation178416%_ + (_%closure-e178419%_ + _%body178516%_) + _%body178516%_))) + (let ((__tmp192343 (let () (declare (not safe)) (gxc#identifier-symbol - _%id177303%_))) - (__tmp191210 - (let ((__obj191109 + _%id178435%_))) + (__tmp192342 + (let ((__obj192241 (let () (declare (not safe)) (##structure @@ -16646,577 +16505,575 @@ (gxc#!lambda:::init!__% '#f absent-value - __obj191109 + __obj192241 '0 '#f)) - __obj191109))) + __obj192241))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp191211 - __tmp191210 + __tmp192343 + __tmp192342 '#t)) - (cons _%id177303%_ + (cons _%id178435%_ (cons '%#lambda (cons '() - (cons _%body177386%_ + (cons _%body178518%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd177319177357%_ - _%hd177316177349%_) - (_%g177305177325%_ _%g177306177328%_)))) - (_%g177305177325%_ _%g177306177328%_)) - (_%g177305177325%_ _%g177306177328%_)))) - (_%g177305177325%_ _%g177306177328%_)))) + _%hd178451178489%_ + _%hd178448178481%_) + (_%g178437178457%_ _%g178438178460%_)))) + (_%g178437178457%_ _%g178438178460%_)) + (_%g178437178457%_ _%g178438178460%_)))) + (_%g178437178457%_ _%g178438178460%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g177305177325%_ - _%g177306177328%_)) - (_%g177305177325%_ - _%g177306177328%_)) - (_%g177305177325%_ - _%g177306177328%_)))) - (_%g177305177325%_ _%g177306177328%_))))) - (_%g177304177389%_ _%kont177302%_))))) - (if (let () (declare (not safe)) (##pair? _%clause177288177295%_)) - (let ((_%hd177292177395%_ + (_%g178437178457%_ + _%g178438178460%_)) + (_%g178437178457%_ + _%g178438178460%_)) + (_%g178437178457%_ + _%g178438178460%_)))) + (_%g178437178457%_ _%g178438178460%_))))) + (_%g178436178521%_ _%kont178434%_))))) + (if (pair? _%clause178420178427%_) + (let ((_%hd178424178527%_ (let () (declare (not safe)) - (##car _%clause177288177295%_))) - (_%tl177293177397%_ + (##car _%clause178420178427%_))) + (_%tl178425178529%_ (let () (declare (not safe)) - (##cdr _%clause177288177295%_)))) - (let* ((_%id177400%_ _%hd177292177395%_) - (_%kont177402%_ _%tl177293177397%_)) - (_%K177291177392%_ _%kont177402%_ _%id177400%_))) - (_%E177290177299%_)))))) + (##cdr _%clause178420178427%_)))) + (let* ((_%id178532%_ _%hd178424178527%_) + (_%kont178534%_ _%tl178425178529%_)) + (_%K178423178524%_ _%kont178534%_ _%id178532%_))) + (_%E178422178431%_)))))) (define gxc#push-match-vars-let-values% - (lambda (_%self177067%_ _%stx177068%_) - (let* ((_%g177070177087%_ - (lambda (_%g177071177084%_) + (lambda (_%self178199%_ _%stx178200%_) + (let* ((_%g178202178219%_ + (lambda (_%g178203178216%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g177071177084%_)))) - (_%g177069177280%_ - (lambda (_%g177071177090%_) + _%g178203178216%_)))) + (_%g178201178412%_ + (lambda (_%g178203178222%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g177071177090%_)) - (let ((_%e177074177092%_ + (gx#stx-pair? _%g178203178222%_)) + (let ((_%e178206178224%_ (let () (declare (not safe)) - (gx#stx-e _%g177071177090%_)))) - (let ((_%hd177075177095%_ + (gx#stx-e _%g178203178222%_)))) + (let ((_%hd178207178227%_ (let () (declare (not safe)) - (##car _%e177074177092%_))) - (_%tl177076177097%_ + (##car _%e178206178224%_))) + (_%tl178208178229%_ (let () (declare (not safe)) - (##cdr _%e177074177092%_)))) + (##cdr _%e178206178224%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177076177097%_)) - (let ((_%e177077177100%_ + (gx#stx-pair? _%tl178208178229%_)) + (let ((_%e178209178232%_ (let () (declare (not safe)) - (gx#stx-e _%tl177076177097%_)))) - (let ((_%hd177078177103%_ + (gx#stx-e _%tl178208178229%_)))) + (let ((_%hd178210178235%_ (let () (declare (not safe)) - (##car _%e177077177100%_))) - (_%tl177079177105%_ + (##car _%e178209178232%_))) + (_%tl178211178237%_ (let () (declare (not safe)) - (##cdr _%e177077177100%_)))) + (##cdr _%e178209178232%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177079177105%_)) - (let ((_%e177080177108%_ + (gx#stx-pair? _%tl178211178237%_)) + (let ((_%e178212178240%_ (let () (declare (not safe)) - (gx#stx-e _%tl177079177105%_)))) - (let ((_%hd177081177111%_ + (gx#stx-e _%tl178211178237%_)))) + (let ((_%hd178213178243%_ (let () (declare (not safe)) - (##car _%e177080177108%_))) - (_%tl177082177113%_ + (##car _%e178212178240%_))) + (_%tl178214178245%_ (let () (declare (not safe)) - (##cdr _%e177080177108%_)))) + (##cdr _%e178212178240%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177082177113%_)) - ((lambda (_%L177116%_ - _%L177117%_) - (let _%lp177132%_ ((_%rest177134%_ + _%tl178214178245%_)) + ((lambda (_%L178248%_ + _%L178249%_) + (let _%lp178264%_ ((_%rest178266%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L177117%_) - (_%rebind177135%_ '()) - (_%vars177136%_ + _%L178249%_) + (_%rebind178267%_ '()) + (_%vars178268%_ (let () (declare (not safe)) - (slot-ref__0 _%self177067%_ 'vars)))) + (slot-ref__0 _%self178199%_ 'vars)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest177137177145%_ - _%rest177134%_) - (_%else177139177156%_ + (let* ((_%rest178269178277%_ + _%rest178266%_) + (_%else178271178288%_ (lambda () - (let ((_%sibling177153%_ + (let ((_%sibling178285%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (struct-copy _%self177067%_)))) + (struct-copy _%self178199%_)))) (let () (declare (not safe)) - (slot-set!__0 _%sibling177153%_ 'vars _%vars177136%_)) - (let ((__tmp191212 + (slot-set!__0 _%sibling178285%_ 'vars _%vars178268%_)) + (let ((__tmp192344 (lambda () - (if (null? _%rebind177135%_) + (if (null? _%rebind178267%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%sibling177153%_ - _%L177116%_)) - (let ((__tmp191213 + _%sibling178285%_ + _%L178248%_)) + (let ((__tmp192345 (cons '%#let-values - (cons (reverse _%rebind177135%_) + (cons (reverse _%rebind178267%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__1 _%sibling177153%_ _%L177116%_)) + (gxc#compile-e__1 _%sibling178285%_ _%L178248%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp191213 - _%stx177068%_)))))) + __tmp192345 + _%stx178200%_)))))) (declare (not safe)) (__call-with-parameters - __tmp191212 + __tmp192344 gxc#current-compile-method - _%sibling177153%_))))) - (_%K177141177268%_ - (lambda (_%rest177159%_ _%bind177160%_) - (let* ((_%__stx191054191055%_ _%bind177160%_) - (_%g177163177186%_ + _%sibling178285%_))))) + (_%K178273178400%_ + (lambda (_%rest178291%_ _%bind178292%_) + (let* ((_%__stx192186192187%_ _%bind178292%_) + (_%g178295178318%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191054191055%_))))) - (let ((_%__kont191056191057%_ - (lambda (_%L177238%_ _%L177239%_) - (_%lp177132%_ - _%rest177159%_ - _%rebind177135%_ - (cons _%bind177160%_ _%vars177136%_)))) - (_%__kont191058191059%_ + _%__stx192186192187%_))))) + (let ((_%__kont192188192189%_ + (lambda (_%L178370%_ _%L178371%_) + (_%lp178264%_ + _%rest178291%_ + _%rebind178267%_ + (cons _%bind178292%_ _%vars178268%_)))) + (_%__kont192190192191%_ (lambda () - (_%lp177132%_ - _%rest177159%_ - (cons _%bind177160%_ _%rebind177135%_) - _%vars177136%_)))) + (_%lp178264%_ + _%rest178291%_ + (cons _%bind178292%_ _%rebind178267%_) + _%vars178268%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191054191055%_)) - (let ((_%e177167177198%_ + (gx#stx-pair? _%__stx192186192187%_)) + (let ((_%e178299178330%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191054191055%_)))) - (let ((_%tl177169177203%_ + (gx#stx-e _%__stx192186192187%_)))) + (let ((_%tl178301178335%_ (let () (declare (not safe)) - (##cdr _%e177167177198%_))) - (_%hd177168177201%_ + (##cdr _%e178299178330%_))) + (_%hd178300178333%_ (let () (declare (not safe)) - (##car _%e177167177198%_)))) + (##car _%e178299178330%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177168177201%_)) - (let ((_%e177170177206%_ + (gx#stx-pair? _%hd178300178333%_)) + (let ((_%e178302178338%_ (let () (declare (not safe)) - (gx#stx-e _%hd177168177201%_)))) - (let ((_%tl177172177211%_ + (gx#stx-e _%hd178300178333%_)))) + (let ((_%tl178304178343%_ (let () (declare (not safe)) - (##cdr _%e177170177206%_))) - (_%hd177171177209%_ + (##cdr _%e178302178338%_))) + (_%hd178303178341%_ (let () (declare (not safe)) - (##car _%e177170177206%_)))) + (##car _%e178302178338%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177172177211%_)) + _%tl178304178343%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177169177203%_)) - (let ((_%e177173177214%_ + _%tl178301178335%_)) + (let ((_%e178305178346%_ (let () (declare (not safe)) (gx#stx-e - _%tl177169177203%_)))) - (let ((_%tl177175177219%_ + _%tl178301178335%_)))) + (let ((_%tl178307178351%_ (let () (declare (not safe)) - (##cdr _%e177173177214%_))) - (_%hd177174177217%_ + (##cdr _%e178305178346%_))) + (_%hd178306178349%_ (let () (declare (not safe)) - (##car _%e177173177214%_)))) + (##car _%e178305178346%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177174177217%_)) - (let ((_%e177176177222%_ + _%hd178306178349%_)) + (let ((_%e178308178354%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd177174177217%_)))) - (let ((_%tl177178177227%_ + (gx#stx-e _%hd178306178349%_)))) + (let ((_%tl178310178359%_ (let () (declare (not safe)) - (##cdr _%e177176177222%_))) - (_%hd177177177225%_ + (##cdr _%e178308178354%_))) + (_%hd178309178357%_ (let () (declare (not safe)) - (##car _%e177176177222%_)))) + (##car _%e178308178354%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd177177177225%_)) + (gx#identifier? _%hd178309178357%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd177177177225%_)) + (gx#stx-eq? '%#ref _%hd178309178357%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177178177227%_)) - (let ((_%e177179177230%_ + (gx#stx-pair? _%tl178310178359%_)) + (let ((_%e178311178362%_ (let () (declare (not safe)) - (gx#stx-e _%tl177178177227%_)))) - (let ((_%tl177181177235%_ + (gx#stx-e _%tl178310178359%_)))) + (let ((_%tl178313178367%_ (let () (declare (not safe)) - (##cdr _%e177179177230%_))) - (_%hd177180177233%_ + (##cdr _%e178311178362%_))) + (_%hd178312178365%_ (let () (declare (not safe)) - (##car _%e177179177230%_)))) + (##car _%e178311178362%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177181177235%_)) + (gx#stx-null? _%tl178313178367%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177175177219%_)) - (_%__kont191056191057%_ - _%hd177180177233%_ - _%hd177171177209%_) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)))) + _%tl178307178351%_)) + (_%__kont192188192189%_ + _%hd178312178365%_ + _%hd178303178341%_) + (_%__kont192190192191%_)) + (_%__kont192190192191%_)))) + (_%__kont192190192191%_)) + (_%__kont192190192191%_)) + (_%__kont192190192191%_)))) + (_%__kont192190192191%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_))))))) + (_%__kont192190192191%_)) + (_%__kont192190192191%_)))) + (_%__kont192190192191%_)))) + (_%__kont192190192191%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%rest177137177145%_)) - (let ((_%hd177142177271%_ + (if (pair? _%rest178269178277%_) + (let ((_%hd178274178403%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%rest177137177145%_))) - (_%tl177143177273%_ + (##car _%rest178269178277%_))) + (_%tl178275178405%_ (let () (declare (not safe)) - (##cdr _%rest177137177145%_)))) - (let* ((_%bind177276%_ _%hd177142177271%_) - (_%rest177278%_ _%tl177143177273%_)) - (_%K177141177268%_ _%rest177278%_ _%bind177276%_))) - (_%else177139177156%_))))) + (##cdr _%rest178269178277%_)))) + (let* ((_%bind178408%_ _%hd178274178403%_) + (_%rest178410%_ _%tl178275178405%_)) + (_%K178273178400%_ _%rest178410%_ _%bind178408%_))) + (_%else178271178288%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd177081177111%_ - _%hd177078177103%_) - (_%g177070177087%_ - _%g177071177090%_)))) - (_%g177070177087%_ _%g177071177090%_)))) - (_%g177070177087%_ _%g177071177090%_)))) - (_%g177070177087%_ _%g177071177090%_))))) - (_%g177069177280%_ _%stx177068%_)))) + _%hd178213178243%_ + _%hd178210178235%_) + (_%g178202178219%_ + _%g178203178222%_)))) + (_%g178202178219%_ _%g178203178222%_)))) + (_%g178202178219%_ _%g178203178222%_)))) + (_%g178202178219%_ _%g178203178222%_))))) + (_%g178201178412%_ _%stx178200%_)))) (define gxc#push-match-vars-if% - (lambda (_%self176983%_ _%stx176984%_) - (let* ((_%g176986177007%_ - (lambda (_%g176987177004%_) + (lambda (_%self178115%_ _%stx178116%_) + (let* ((_%g178118178139%_ + (lambda (_%g178119178136%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176987177004%_)))) - (_%g176985177064%_ - (lambda (_%g176987177010%_) + _%g178119178136%_)))) + (_%g178117178196%_ + (lambda (_%g178119178142%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176987177010%_)) - (let ((_%e176991177012%_ + (gx#stx-pair? _%g178119178142%_)) + (let ((_%e178123178144%_ (let () (declare (not safe)) - (gx#stx-e _%g176987177010%_)))) - (let ((_%hd176992177015%_ + (gx#stx-e _%g178119178142%_)))) + (let ((_%hd178124178147%_ (let () (declare (not safe)) - (##car _%e176991177012%_))) - (_%tl176993177017%_ + (##car _%e178123178144%_))) + (_%tl178125178149%_ (let () (declare (not safe)) - (##cdr _%e176991177012%_)))) + (##cdr _%e178123178144%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176993177017%_)) - (let ((_%e176994177020%_ + (gx#stx-pair? _%tl178125178149%_)) + (let ((_%e178126178152%_ (let () (declare (not safe)) - (gx#stx-e _%tl176993177017%_)))) - (let ((_%hd176995177023%_ + (gx#stx-e _%tl178125178149%_)))) + (let ((_%hd178127178155%_ (let () (declare (not safe)) - (##car _%e176994177020%_))) - (_%tl176996177025%_ + (##car _%e178126178152%_))) + (_%tl178128178157%_ (let () (declare (not safe)) - (##cdr _%e176994177020%_)))) + (##cdr _%e178126178152%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176996177025%_)) - (let ((_%e176997177028%_ + (gx#stx-pair? _%tl178128178157%_)) + (let ((_%e178129178160%_ (let () (declare (not safe)) - (gx#stx-e _%tl176996177025%_)))) - (let ((_%hd176998177031%_ + (gx#stx-e _%tl178128178157%_)))) + (let ((_%hd178130178163%_ (let () (declare (not safe)) - (##car _%e176997177028%_))) - (_%tl176999177033%_ + (##car _%e178129178160%_))) + (_%tl178131178165%_ (let () (declare (not safe)) - (##cdr _%e176997177028%_)))) + (##cdr _%e178129178160%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176999177033%_)) - (let ((_%e177000177036%_ + _%tl178131178165%_)) + (let ((_%e178132178168%_ (let () (declare (not safe)) (gx#stx-e - _%tl176999177033%_)))) - (let ((_%hd177001177039%_ + _%tl178131178165%_)))) + (let ((_%hd178133178171%_ (let () (declare (not safe)) - (##car _%e177000177036%_))) - (_%tl177002177041%_ + (##car _%e178132178168%_))) + (_%tl178134178173%_ (let () (declare (not safe)) - (##cdr _%e177000177036%_)))) + (##cdr _%e178132178168%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177002177041%_)) - ((lambda (_%L177044%_ - _%L177045%_ - _%L177046%_) - (if (let ((__tmp191214 + _%tl178134178173%_)) + ((lambda (_%L178176%_ + _%L178177%_ + _%L178178%_) + (if (let ((__tmp192346 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map caar (let () (declare (not safe)) - (slot-ref__0 _%self176983%_ 'vars))))) + (slot-ref__0 _%self178115%_ 'vars))))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp191214 - _%L177046%_)) - (gxc#push-match-vars-stop _%self176983%_ _%stx176984%_) - (let ((__tmp191215 + __tmp192346 + _%L178178%_)) + (gxc#push-match-vars-stop _%self178115%_ _%stx178116%_) + (let ((__tmp192347 (cons '%#if - (cons _%L177046%_ + (cons _%L178178%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self176983%_ - _%L177045%_)) + _%self178115%_ + _%L178177%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self176983%_ - _%L177044%_)) + _%self178115%_ + _%L178176%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp191215 _%stx176984%_)))) - _%hd177001177039%_ - _%hd176998177031%_ - _%hd176995177023%_) - (_%g176986177007%_ _%g176987177010%_)))) + (gxc#xform-wrap-source __tmp192347 _%stx178116%_)))) + _%hd178133178171%_ + _%hd178130178163%_ + _%hd178127178155%_) + (_%g178118178139%_ _%g178119178142%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176986177007%_ - _%g176987177010%_)))) - (_%g176986177007%_ _%g176987177010%_)))) - (_%g176986177007%_ _%g176987177010%_)))) - (_%g176986177007%_ _%g176987177010%_))))) - (_%g176985177064%_ _%stx176984%_)))) + (_%g178118178139%_ + _%g178119178142%_)))) + (_%g178118178139%_ _%g178119178142%_)))) + (_%g178118178139%_ _%g178119178142%_)))) + (_%g178118178139%_ _%g178119178142%_))))) + (_%g178117178196%_ _%stx178116%_)))) (define gxc#push-match-vars-call% - (lambda (_%self176905%_ _%stx176906%_) - (let* ((_%g176908176927%_ - (lambda (_%g176909176924%_) + (lambda (_%self178037%_ _%stx178038%_) + (let* ((_%g178040178059%_ + (lambda (_%g178041178056%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176909176924%_)))) - (_%g176907176980%_ - (lambda (_%g176909176930%_) + _%g178041178056%_)))) + (_%g178039178112%_ + (lambda (_%g178041178062%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176909176930%_)) - (let ((_%e176911176932%_ + (gx#stx-pair? _%g178041178062%_)) + (let ((_%e178043178064%_ (let () (declare (not safe)) - (gx#stx-e _%g176909176930%_)))) - (let ((_%hd176912176935%_ + (gx#stx-e _%g178041178062%_)))) + (let ((_%hd178044178067%_ (let () (declare (not safe)) - (##car _%e176911176932%_))) - (_%tl176913176937%_ + (##car _%e178043178064%_))) + (_%tl178045178069%_ (let () (declare (not safe)) - (##cdr _%e176911176932%_)))) + (##cdr _%e178043178064%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176913176937%_)) - (let ((_%e176914176940%_ + (gx#stx-pair? _%tl178045178069%_)) + (let ((_%e178046178072%_ (let () (declare (not safe)) - (gx#stx-e _%tl176913176937%_)))) - (let ((_%hd176915176943%_ + (gx#stx-e _%tl178045178069%_)))) + (let ((_%hd178047178075%_ (let () (declare (not safe)) - (##car _%e176914176940%_))) - (_%tl176916176945%_ + (##car _%e178046178072%_))) + (_%tl178048178077%_ (let () (declare (not safe)) - (##cdr _%e176914176940%_)))) + (##cdr _%e178046178072%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176915176943%_)) - (let ((_%e176917176948%_ + (gx#stx-pair? _%hd178047178075%_)) + (let ((_%e178049178080%_ (let () (declare (not safe)) - (gx#stx-e _%hd176915176943%_)))) - (let ((_%hd176918176951%_ + (gx#stx-e _%hd178047178075%_)))) + (let ((_%hd178050178083%_ (let () (declare (not safe)) - (##car _%e176917176948%_))) - (_%tl176919176953%_ + (##car _%e178049178080%_))) + (_%tl178051178085%_ (let () (declare (not safe)) - (##cdr _%e176917176948%_)))) + (##cdr _%e178049178080%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd176918176951%_)) + _%hd178050178083%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd176918176951%_)) + _%hd178050178083%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176919176953%_)) - (let ((_%e176920176956%_ + _%tl178051178085%_)) + (let ((_%e178052178088%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl176919176953%_)))) - (let ((_%hd176921176959%_ - (let () (declare (not safe)) (##car _%e176920176956%_))) - (_%tl176922176961%_ + (gx#stx-e _%tl178051178085%_)))) + (let ((_%hd178053178091%_ + (let () (declare (not safe)) (##car _%e178052178088%_))) + (_%tl178054178093%_ (let () (declare (not safe)) - (##cdr _%e176920176956%_)))) + (##cdr _%e178052178088%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176922176961%_)) - ((lambda (_%L176964%_) - (if (and (let ((__tmp191216 + (gx#stx-null? _%tl178054178093%_)) + ((lambda (_%L178096%_) + (if (and (let ((__tmp192348 (let () (declare (not safe)) - (slot-ref__0 _%self176905%_ 'K)))) + (slot-ref__0 _%self178037%_ 'K)))) (declare (not safe)) (gx#free-identifier=? - _%L176964%_ - __tmp191216)) + _%L178096%_ + __tmp192348)) (pair? (let () (declare (not safe)) (slot-ref__0 - _%self176905%_ + _%self178037%_ 'vars)))) - (let ((__tmp191217 + (let ((__tmp192349 (cons '%#let-values (cons (reverse (let () (declare (not safe)) (slot-ref__0 - _%self176905%_ + _%self178037%_ 'vars))) - (cons _%stx176906%_ '()))))) + (cons _%stx178038%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp191217 - _%stx176906%_)) - _%stx176906%_)) - _%hd176921176959%_) - (_%g176908176927%_ _%g176909176930%_)))) - (_%g176908176927%_ _%g176909176930%_)) + __tmp192349 + _%stx178038%_)) + _%stx178038%_)) + _%hd178053178091%_) + (_%g178040178059%_ _%g178041178062%_)))) + (_%g178040178059%_ _%g178041178062%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176908176927%_ - _%g176909176930%_)) - (_%g176908176927%_ - _%g176909176930%_)))) - (_%g176908176927%_ _%g176909176930%_)))) - (_%g176908176927%_ _%g176909176930%_)))) - (_%g176908176927%_ _%g176909176930%_))))) - (_%g176907176980%_ _%stx176906%_)))) + (_%g178040178059%_ + _%g178041178062%_)) + (_%g178040178059%_ + _%g178041178062%_)))) + (_%g178040178059%_ _%g178041178062%_)))) + (_%g178040178059%_ _%g178041178062%_)))) + (_%g178040178059%_ _%g178041178062%_))))) + (_%g178039178112%_ _%stx178038%_)))) (define gxc#push-match-vars-stop - (lambda (_%self176902%_ _%stx176903%_) + (lambda (_%self178034%_ _%stx178035%_) (if (null? (let () (declare (not safe)) - (slot-ref__0 _%self176902%_ 'vars))) - _%stx176903%_ - (let ((__tmp191218 + (slot-ref__0 _%self178034%_ 'vars))) + _%stx178035%_ + (let ((__tmp192350 (cons '%#let-values (cons (reverse (let () (declare (not safe)) - (slot-ref__0 _%self176902%_ 'vars))) - (cons _%stx176903%_ '()))))) + (slot-ref__0 _%self178034%_ 'vars))) + (cons _%stx178035%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp191218 _%stx176903%_))))))) + (gxc#xform-wrap-source __tmp192350 _%stx178035%_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~1.scm b/src/bootstrap/gerbil/compiler/optimize-ann~1.scm index b61835f4a..24894888e 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]#_g191220_| + (define |gxc[1]#_g192352_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191222_| + (define |gxc[1]#_g192354_| (##structure gx#syntax-quote::t '::optimize-annotated::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191224_| + (define |gxc[1]#_g192356_| (##structure gx#syntax-quote::t 'make-::optimize-annotated #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191226_| + (define |gxc[1]#_g192358_| (##structure gx#syntax-quote::t '::optimize-annotated? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191228_| + (define |gxc[1]#_g192360_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191230_| + (define |gxc[1]#_g192362_| (##structure gx#syntax-quote::t '::generate-runtime-repr::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191232_| + (define |gxc[1]#_g192364_| (##structure gx#syntax-quote::t 'make-::generate-runtime-repr #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191234_| + (define |gxc[1]#_g192366_| (##structure gx#syntax-quote::t '::generate-runtime-repr? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191236_| + (define |gxc[1]#_g192368_| (##structure gx#syntax-quote::t '::push-match-vars::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191238_| + (define |gxc[1]#_g192370_| (##structure gx#syntax-quote::t 'make-::push-match-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191240_| + (define |gxc[1]#_g192372_| (##structure gx#syntax-quote::t '::push-match-vars? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191242_| + (define |gxc[1]#_g192374_| (##structure gx#syntax-quote::t '::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191243_| + (define |gxc[1]#_g192375_| (##structure gx#syntax-quote::t '::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191245_| + (define |gxc[1]#_g192377_| (##structure gx#syntax-quote::t '::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191246_| + (define |gxc[1]#_g192378_| (##structure gx#syntax-quote::t '::push-match-vars-K-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191248_| + (define |gxc[1]#_g192380_| (##structure gx#syntax-quote::t '&::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191249_| + (define |gxc[1]#_g192381_| (##structure gx#syntax-quote::t '&::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191251_| + (define |gxc[1]#_g192383_| (##structure gx#syntax-quote::t '&::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191252_| + (define |gxc[1]#_g192384_| (##structure gx#syntax-quote::t '&::push-match-vars-K-set! @@ -135,7 +135,7 @@ '())) (begin (define |gxc[:0:]#::optimize-annotated| - (let ((__obj191101 + (let ((__obj192233 (let () (declare (not safe)) (##structure @@ -164,7 +164,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj191101 + __obj192233 'gxc#::optimize-annotated::t '1 '#f @@ -172,65 +172,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj191101 + __obj192233 '::optimize-annotated '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191101 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj192233 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191101 '() '6 '#f '#f)) - (let ((__tmp191219 (cons |gxc[1]#_g191220_| '()))) + (##unchecked-structure-set! __obj192233 '() '6 '#f '#f)) + (let ((__tmp192351 (cons |gxc[1]#_g192352_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj191101 __tmp191219 '3 '#f '#f)) + (##unchecked-structure-set! __obj192233 __tmp192351 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191101 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj192233 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191101 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj192233 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191101 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj192233 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191101 '#f '11 '#f '#f)) - (let ((__tmp191221 |gxc[1]#_g191222_|)) + (##unchecked-structure-set! __obj192233 '#f '11 '#f '#f)) + (let ((__tmp192353 |gxc[1]#_g192354_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191101 __tmp191221 '12 '#f '#f)) - (let ((__tmp191223 |gxc[1]#_g191224_|)) + (##unchecked-structure-set! __obj192233 __tmp192353 '12 '#f '#f)) + (let ((__tmp192355 |gxc[1]#_g192356_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191101 __tmp191223 '13 '#f '#f)) - (let ((__tmp191225 |gxc[1]#_g191226_|)) + (##unchecked-structure-set! __obj192233 __tmp192355 '13 '#f '#f)) + (let ((__tmp192357 |gxc[1]#_g192358_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191101 __tmp191225 '14 '#f '#f)) + (##unchecked-structure-set! __obj192233 __tmp192357 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191101 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj192233 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191101 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj192233 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191101 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj192233 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191101 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj192233 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191101 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj192233 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191101 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj192233 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191101 '() '20 '#f '#f)) - __obj191101)) + (##unchecked-structure-set! __obj192233 '() '20 '#f '#f)) + __obj192233)) (define |gxc[:0:]#::generate-runtime-repr| - (let ((__obj191103 + (let ((__obj192235 (let () (declare (not safe)) (##structure @@ -259,7 +259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj191103 + __obj192235 'gxc#::generate-runtime-repr::t '1 '#f @@ -267,65 +267,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj191103 + __obj192235 '::generate-runtime-repr '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191103 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj192235 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191103 '() '6 '#f '#f)) - (let ((__tmp191227 (cons |gxc[1]#_g191228_| '()))) + (##unchecked-structure-set! __obj192235 '() '6 '#f '#f)) + (let ((__tmp192359 (cons |gxc[1]#_g192360_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj191103 __tmp191227 '3 '#f '#f)) + (##unchecked-structure-set! __obj192235 __tmp192359 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191103 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj192235 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191103 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj192235 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191103 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj192235 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191103 '#f '11 '#f '#f)) - (let ((__tmp191229 |gxc[1]#_g191230_|)) + (##unchecked-structure-set! __obj192235 '#f '11 '#f '#f)) + (let ((__tmp192361 |gxc[1]#_g192362_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191103 __tmp191229 '12 '#f '#f)) - (let ((__tmp191231 |gxc[1]#_g191232_|)) + (##unchecked-structure-set! __obj192235 __tmp192361 '12 '#f '#f)) + (let ((__tmp192363 |gxc[1]#_g192364_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191103 __tmp191231 '13 '#f '#f)) - (let ((__tmp191233 |gxc[1]#_g191234_|)) + (##unchecked-structure-set! __obj192235 __tmp192363 '13 '#f '#f)) + (let ((__tmp192365 |gxc[1]#_g192366_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191103 __tmp191233 '14 '#f '#f)) + (##unchecked-structure-set! __obj192235 __tmp192365 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191103 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj192235 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191103 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj192235 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191103 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj192235 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191103 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj192235 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191103 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj192235 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191103 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj192235 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191103 '() '20 '#f '#f)) - __obj191103)) + (##unchecked-structure-set! __obj192235 '() '20 '#f '#f)) + __obj192235)) (define |gxc[:0:]#::push-match-vars| - (let ((__obj191105 + (let ((__obj192237 (let () (declare (not safe)) (##structure @@ -354,7 +354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj191105 + __obj192237 'gxc#::push-match-vars::t '1 '#f @@ -362,68 +362,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj191105 + __obj192237 '::push-match-vars '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191105 '(vars K) '4 '#f '#f)) + (##unchecked-structure-set! __obj192237 '(vars K) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191105 '(vars K) '6 '#f '#f)) + (##unchecked-structure-set! __obj192237 '(vars K) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191105 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj192237 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191105 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj192237 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191105 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj192237 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191105 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj192237 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191105 '#f '11 '#f '#f)) - (let ((__tmp191235 |gxc[1]#_g191236_|)) + (##unchecked-structure-set! __obj192237 '#f '11 '#f '#f)) + (let ((__tmp192367 |gxc[1]#_g192368_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191105 __tmp191235 '12 '#f '#f)) - (let ((__tmp191237 |gxc[1]#_g191238_|)) + (##unchecked-structure-set! __obj192237 __tmp192367 '12 '#f '#f)) + (let ((__tmp192369 |gxc[1]#_g192370_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191105 __tmp191237 '13 '#f '#f)) - (let ((__tmp191239 |gxc[1]#_g191240_|)) + (##unchecked-structure-set! __obj192237 __tmp192369 '13 '#f '#f)) + (let ((__tmp192371 |gxc[1]#_g192372_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191105 __tmp191239 '14 '#f '#f)) - (let ((__tmp191241 - (cons (cons 'vars |gxc[1]#_g191242_|) - (cons (cons 'K |gxc[1]#_g191243_|) '())))) + (##unchecked-structure-set! __obj192237 __tmp192371 '14 '#f '#f)) + (let ((__tmp192373 + (cons (cons 'vars |gxc[1]#_g192374_|) + (cons (cons 'K |gxc[1]#_g192375_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj191105 __tmp191241 '15 '#f '#f)) - (let ((__tmp191244 - (cons (cons 'vars |gxc[1]#_g191245_|) - (cons (cons 'K |gxc[1]#_g191246_|) '())))) + (##unchecked-structure-set! __obj192237 __tmp192373 '15 '#f '#f)) + (let ((__tmp192376 + (cons (cons 'vars |gxc[1]#_g192377_|) + (cons (cons 'K |gxc[1]#_g192378_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj191105 __tmp191244 '16 '#f '#f)) - (let ((__tmp191247 - (cons (cons 'vars |gxc[1]#_g191248_|) - (cons (cons 'K |gxc[1]#_g191249_|) '())))) + (##unchecked-structure-set! __obj192237 __tmp192376 '16 '#f '#f)) + (let ((__tmp192379 + (cons (cons 'vars |gxc[1]#_g192380_|) + (cons (cons 'K |gxc[1]#_g192381_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj191105 __tmp191247 '17 '#f '#f)) - (let ((__tmp191250 - (cons (cons 'vars |gxc[1]#_g191251_|) - (cons (cons 'K |gxc[1]#_g191252_|) '())))) + (##unchecked-structure-set! __obj192237 __tmp192379 '17 '#f '#f)) + (let ((__tmp192382 + (cons (cons 'vars |gxc[1]#_g192383_|) + (cons (cons 'K |gxc[1]#_g192384_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj191105 __tmp191250 '18 '#f '#f)) + (##unchecked-structure-set! __obj192237 __tmp192382 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191105 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj192237 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191105 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj192237 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191105 '() '20 '#f '#f)) - __obj191105)))) + (##unchecked-structure-set! __obj192237 '() '20 '#f '#f)) + __obj192237)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base~0.scm b/src/bootstrap/gerbil/compiler/optimize-base~0.scm index 5af724b74..96d930aa3 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 1713454412) + (define gerbil/compiler/optimize-base::timestamp 1713631268) (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 ((__tmp150972 (list)) (__tmp150971 (cons (cons 'struct: '#t) '()))) + (let ((__tmp152104 (list)) (__tmp152103 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp150972 + __tmp152104 '(type classes ssxi methods) - __tmp150971 + __tmp152103 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (__make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _%$args150943%_ - (apply make-instance gxc#optimizer-info::t _%$args150943%_))) + (lambda _%$args152075%_ + (apply make-instance gxc#optimizer-info::t _%$args152075%_))) (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 (_%self148084150928%_) - (let* ((_%self150931%_ _%self148084150928%_) - (_%self150933%_ _%self150931%_)) - (if (let ((__tmp150973 + (lambda (_%self149216152060%_) + (let* ((_%self152063%_ _%self149216152060%_) + (_%self152065%_ _%self152063%_)) + (if (let ((__tmp152105 (let () (declare (not safe)) - (##structure-length _%self150933%_)))) + (##structure-length _%self152065%_)))) (declare (not safe)) - (##fx< '4 __tmp150973)) + (##fx< '4 __tmp152105)) (begin - (let ((__tmp150974 + (let ((__tmp152106 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self150933%_ - __tmp150974 + _%self152065%_ + __tmp152106 '1 '#f '#f)) - (let ((__tmp150975 + (let ((__tmp152107 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self150933%_ - __tmp150975 + _%self152065%_ + __tmp152107 '2 '#f '#f)) - (let ((__tmp150976 + (let ((__tmp152108 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self150933%_ - __tmp150976 + _%self152065%_ + __tmp152108 '3 '#f '#f)) - (let ((__tmp150977 + (let ((__tmp152109 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self150933%_ - __tmp150977 + _%self152065%_ + __tmp152109 '4 '#f '#f)) '#!void) - (let ((__tmp150978 + (let ((__tmp152110 (let () (declare (not safe)) - (##vector-length _%self150933%_)))) + (##vector-length _%self152065%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self150933%_ + _%self152065%_ '4 - __tmp150978)))))) + __tmp152110)))))) (let () (declare (not safe)) (__bind-method!__% @@ -152,22 +152,22 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp150980 (list)) - (__tmp150979 + (let ((__tmp152112 (list)) + (__tmp152111 (cons (cons 'struct: '#t) '((equal: id) (print: id))))) (declare (not safe)) (__make-class-type 'gxc#!type::t '!type - __tmp150980 + __tmp152112 '(id) - __tmp150979 + __tmp152111 '#f))) (define gxc#!type? (let () (declare (not safe)) (__make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _%$args150803%_ - (apply make-instance gxc#!type::t _%$args150803%_))) + (lambda _%$args151935%_ + (apply make-instance gxc#!type::t _%$args151935%_))) (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 ((__tmp150982 (list gxc#!type::t)) - (__tmp150981 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152114 (list gxc#!type::t)) + (__tmp152113 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!abort::t '!abort - __tmp150982 + __tmp152114 '() - __tmp150981 + __tmp152113 ':init!))) (define gxc#!abort? (let () (declare (not safe)) (__make-class-predicate gxc#!abort::t))) (define gxc#make-!abort - (lambda _%$args150800%_ - (apply make-instance gxc#!abort::t _%$args150800%_))) + (lambda _%$args151932%_ + (apply make-instance gxc#!abort::t _%$args151932%_))) (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 ((__tmp150984 (list gxc#!type::t)) - (__tmp150983 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152116 (list gxc#!type::t)) + (__tmp152115 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!alias::t '!alias - __tmp150984 + __tmp152116 '() - __tmp150983 + __tmp152115 '#f))) (define gxc#!alias? (let () (declare (not safe)) (__make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _%$args150797%_ - (apply make-instance gxc#!alias::t _%$args150797%_))) + (lambda _%$args151929%_ + (apply make-instance gxc#!alias::t _%$args151929%_))) (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 ((__tmp150986 (list)) - (__tmp150985 + (let ((__tmp152118 (list)) + (__tmp152117 (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 - __tmp150986 + __tmp152118 '(return effect arguments unchecked origin) - __tmp150985 + __tmp152117 '#f))) (define gxc#!signature? (let () (declare (not safe)) (__make-class-predicate gxc#!signature::t))) (define gxc#make-!signature - (lambda _%$args150794%_ - (apply make-instance gxc#!signature::t _%$args150794%_))) + (lambda _%$args151926%_ + (apply make-instance gxc#!signature::t _%$args151926%_))) (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 ((__tmp150988 (list gxc#!type::t)) - (__tmp150987 + (let ((__tmp152120 (list gxc#!type::t)) + (__tmp152119 (cons (cons 'struct: '#t) '((equal: signature) (print: signature))))) (declare (not safe)) (__make-class-type 'gxc#!procedure::t '!procedure - __tmp150988 + __tmp152120 '(signature) - __tmp150987 + __tmp152119 '#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 (_%id150773%_ _%signature150774%_) - (if ((lambda (_%$obj150777%_) - (or (not _%$obj150777%_) + (lambda (_%id151905%_ _%signature151906%_) + (if ((lambda (_%$obj151909%_) + (or (not _%$obj151909%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj150777%_ + _%$obj151909%_ 'gxc#!signature::t)))) - _%signature150774%_) - (let ((_%signature150784%_ _%signature150774%_)) - (gxc#__make-!procedure _%id150773%_ _%signature150784%_)) + _%signature151906%_) + (let ((_%signature151916%_ _%signature151906%_)) + (gxc#__make-!procedure _%id151905%_ _%signature151916%_)) (begin (raise-contract-violation-error '"contract violation" @@ -414,31 +414,31 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature150774%_) + _%signature151906%_) '#!void)))) (define gxc#__make-!procedure - (lambda (_%id150759%_ _%signature150761%_) - (let ((_%signature150764%_ _%signature150761%_)) + (lambda (_%id151891%_ _%signature151893%_) + (let ((_%signature151896%_ _%signature151893%_)) (declare (not safe)) - (##structure gxc#!procedure::t _%id150759%_ _%signature150764%_)))) + (##structure gxc#!procedure::t _%id151891%_ _%signature151896%_)))) (define gxc#!procedure-signature-set! - (lambda (_%$obj150728%_ _%signature150729%_) + (lambda (_%$obj151860%_ _%signature151861%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%$obj150728%_ 'gxc#!procedure::t)) - (let ((_%$obj150733%_ _%$obj150728%_)) - (if ((lambda (_%$obj150742%_) - (or (not _%$obj150742%_) + (##structure-instance-of? _%$obj151860%_ 'gxc#!procedure::t)) + (let ((_%$obj151865%_ _%$obj151860%_)) + (if ((lambda (_%$obj151874%_) + (or (not _%$obj151874%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj150742%_ + _%$obj151874%_ 'gxc#!signature::t)))) - _%signature150729%_) - (let ((_%signature150749%_ _%signature150729%_)) + _%signature151861%_) + (let ((_%signature151881%_ _%signature151861%_)) (gxc#__!procedure-signature-set! - _%$obj150733%_ - _%signature150749%_)) + _%$obj151865%_ + _%signature151881%_)) (begin (raise-contract-violation-error '"contract violation" @@ -447,7 +447,7 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature150729%_) + _%signature151861%_) '#!void))) (begin (raise-contract-violation-error @@ -457,37 +457,37 @@ 'contract: '!procedure? 'value: - _%$obj150728%_) + _%$obj151860%_) '#!void)))) (define gxc#__!procedure-signature-set! - (lambda (_%$obj150705%_ _%signature150707%_) - (let* ((_%$obj150711%_ _%$obj150705%_) - (_%signature150719%_ _%signature150707%_)) + (lambda (_%$obj151837%_ _%signature151839%_) + (let* ((_%$obj151843%_ _%$obj151837%_) + (_%signature151851%_ _%signature151839%_)) (declare (not safe)) (##unchecked-structure-set! - _%$obj150711%_ - _%signature150719%_ + _%$obj151843%_ + _%signature151851%_ '2 '#f '#f)))) (define gxc#!class-meta::t - (let ((__tmp150990 (list gxc#!type::t)) - (__tmp150989 (cons (cons 'struct: '#t) '()))) + (let ((__tmp152122 (list gxc#!type::t)) + (__tmp152121 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!class-meta::t '!class-meta - __tmp150990 + __tmp152122 '(class) - __tmp150989 + __tmp152121 ':init!))) (define gxc#!class-meta? (let () (declare (not safe)) (__make-class-predicate gxc#!class-meta::t))) (define gxc#make-!class-meta - (lambda _%$args150702%_ - (apply make-instance gxc#!class-meta::t _%$args150702%_))) + (lambda _%$args151834%_ + (apply make-instance gxc#!class-meta::t _%$args151834%_))) (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 ((__tmp150992 (list gxc#!type::t)) - (__tmp150991 + (let ((__tmp152124 (list gxc#!type::t)) + (__tmp152123 (cons (cons 'struct: '#t) '((equal: super @@ -540,7 +540,7 @@ (__make-class-type 'gxc#!class::t '!class - __tmp150992 + __tmp152124 '(super precedence-list slots fields @@ -550,13 +550,13 @@ system? metaclass methods) - __tmp150991 + __tmp152123 ':init!))) (define gxc#!class? (let () (declare (not safe)) (__make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _%$args150699%_ - (apply make-instance gxc#!class::t _%$args150699%_))) + (lambda _%$args151831%_ + (apply make-instance gxc#!class::t _%$args151831%_))) (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 ((__tmp150994 (list gxc#!procedure::t)) - (__tmp150993 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152126 (list gxc#!procedure::t)) + (__tmp152125 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!predicate::t '!predicate - __tmp150994 + __tmp152126 '() - __tmp150993 + __tmp152125 ':init!))) (define gxc#!predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _%$args150696%_ - (apply make-instance gxc#!predicate::t _%$args150696%_))) + (lambda _%$args151828%_ + (apply make-instance gxc#!predicate::t _%$args151828%_))) (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 ((__tmp150996 (list gxc#!procedure::t)) - (__tmp150995 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152128 (list gxc#!procedure::t)) + (__tmp152127 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!constructor::t '!constructor - __tmp150996 + __tmp152128 '() - __tmp150995 + __tmp152127 ':init!))) (define gxc#!constructor? (let () (declare (not safe)) (__make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _%$args150693%_ - (apply make-instance gxc#!constructor::t _%$args150693%_))) + (lambda _%$args151825%_ + (apply make-instance gxc#!constructor::t _%$args151825%_))) (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 ((__tmp150998 (list gxc#!procedure::t)) - (__tmp150997 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp152130 (list gxc#!procedure::t)) + (__tmp152129 (cons (cons 'struct: '#t) '((equal: slot checked?))))) (declare (not safe)) (__make-class-type 'gxc#!accessor::t '!accessor - __tmp150998 + __tmp152130 '(slot checked?) - __tmp150997 + __tmp152129 ':init!))) (define gxc#!accessor? (let () (declare (not safe)) (__make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _%$args150690%_ - (apply make-instance gxc#!accessor::t _%$args150690%_))) + (lambda _%$args151822%_ + (apply make-instance gxc#!accessor::t _%$args151822%_))) (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 ((__tmp151000 (list gxc#!procedure::t)) - (__tmp150999 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp152132 (list gxc#!procedure::t)) + (__tmp152131 (cons (cons 'struct: '#t) '((equal: slot checked?))))) (declare (not safe)) (__make-class-type 'gxc#!mutator::t '!mutator - __tmp151000 + __tmp152132 '(slot checked?) - __tmp150999 + __tmp152131 ':init!))) (define gxc#!mutator? (let () (declare (not safe)) (__make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _%$args150687%_ - (apply make-instance gxc#!mutator::t _%$args150687%_))) + (lambda _%$args151819%_ + (apply make-instance gxc#!mutator::t _%$args151819%_))) (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 ((__tmp151002 (list gxc#!type::t)) - (__tmp151001 (cons (cons 'struct: '#t) '((equal: methods))))) + (let ((__tmp152134 (list gxc#!type::t)) + (__tmp152133 (cons (cons 'struct: '#t) '((equal: methods))))) (declare (not safe)) (__make-class-type 'gxc#!interface::t '!interface - __tmp151002 + __tmp152134 '(methods) - __tmp151001 + __tmp152133 '#f))) (define gxc#!interface? (let () (declare (not safe)) (__make-class-predicate gxc#!interface::t))) (define gxc#make-!interface - (lambda _%$args150684%_ - (apply make-instance gxc#!interface::t _%$args150684%_))) + (lambda _%$args151816%_ + (apply make-instance gxc#!interface::t _%$args151816%_))) (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 ((__tmp151004 (list gxc#!procedure::t)) - (__tmp151003 + (let ((__tmp152136 (list gxc#!procedure::t)) + (__tmp152135 (cons (cons 'struct: '#t) '((equal: arity dispatch inline inline-typedecl))))) (declare (not safe)) (__make-class-type 'gxc#!lambda::t '!lambda - __tmp151004 + __tmp152136 '(arity dispatch inline inline-typedecl) - __tmp151003 + __tmp152135 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _%$args150681%_ - (apply make-instance gxc#!lambda::t _%$args150681%_))) + (lambda _%$args151813%_ + (apply make-instance gxc#!lambda::t _%$args151813%_))) (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 ((__tmp151006 (list gxc#!procedure::t)) - (__tmp151005 (cons (cons 'struct: '#t) '((equal: clauses))))) + (let ((__tmp152138 (list gxc#!procedure::t)) + (__tmp152137 (cons (cons 'struct: '#t) '((equal: clauses))))) (declare (not safe)) (__make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp151006 + __tmp152138 '(clauses) - __tmp151005 + __tmp152137 ':init!))) (define gxc#!case-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _%$args150678%_ - (apply make-instance gxc#!case-lambda::t _%$args150678%_))) + (lambda _%$args151810%_ + (apply make-instance gxc#!case-lambda::t _%$args151810%_))) (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 ((__tmp151008 (list gxc#!procedure::t)) - (__tmp151007 + (let ((__tmp152140 (list gxc#!procedure::t)) + (__tmp152139 (cons (cons 'struct: '#t) '((equal: table dispatch))))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp151008 + __tmp152140 '(table dispatch) - __tmp151007 + __tmp152139 ':init!))) (define gxc#!kw-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _%$args150675%_ - (apply make-instance gxc#!kw-lambda::t _%$args150675%_))) + (lambda _%$args151807%_ + (apply make-instance gxc#!kw-lambda::t _%$args151807%_))) (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 ((__tmp151010 (list gxc#!procedure::t)) - (__tmp151009 (cons (cons 'struct: '#t) '((equal: keys main))))) + (let ((__tmp152142 (list gxc#!procedure::t)) + (__tmp152141 (cons (cons 'struct: '#t) '((equal: keys main))))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp151010 + __tmp152142 '(keys main) - __tmp151009 + __tmp152141 ':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 _%$args150672%_ - (apply make-instance gxc#!kw-lambda-primary::t _%$args150672%_))) + (lambda _%$args151804%_ + (apply make-instance gxc#!kw-lambda-primary::t _%$args151804%_))) (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 ((__tmp151011 (list))) + (let ((__tmp152143 (list))) (declare (not safe)) (__make-class-type 'gxc#!primitive::t '!primitive - __tmp151011 + __tmp152143 '() '((equal:)) '#f))) (define gxc#!primitive? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _%$args150669%_ - (apply make-instance gxc#!primitive::t _%$args150669%_))) + (lambda _%$args151801%_ + (apply make-instance gxc#!primitive::t _%$args151801%_))) (define gxc#!primitive-predicate::t - (let ((__tmp151013 (list gxc#!primitive::t gxc#!procedure::t)) - (__tmp151012 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152145 (list gxc#!primitive::t gxc#!procedure::t)) + (__tmp152144 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-predicate::t '!primitive-predicate - __tmp151013 + __tmp152145 '() - __tmp151012 + __tmp152144 ':init!))) (define gxc#!primitive-predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-predicate::t))) (define gxc#make-!primitive-predicate - (lambda _%$args150666%_ - (apply make-instance gxc#!primitive-predicate::t _%$args150666%_))) + (lambda _%$args151798%_ + (apply make-instance gxc#!primitive-predicate::t _%$args151798%_))) (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 ((__tmp151015 (list gxc#!primitive::t gxc#!lambda::t)) - (__tmp151014 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152147 (list gxc#!primitive::t gxc#!lambda::t)) + (__tmp152146 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp151015 + __tmp152147 '() - __tmp151014 + __tmp152146 ':init!))) (define gxc#!primitive-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _%$args150663%_ - (apply make-instance gxc#!primitive-lambda::t _%$args150663%_))) + (lambda _%$args151795%_ + (apply make-instance gxc#!primitive-lambda::t _%$args151795%_))) (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 ((__tmp151017 (list gxc#!primitive::t gxc#!case-lambda::t)) - (__tmp151016 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152149 (list gxc#!primitive::t gxc#!case-lambda::t)) + (__tmp152148 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp151017 + __tmp152149 '() - __tmp151016 + __tmp152148 ':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 _%$args150660%_ - (apply make-instance gxc#!primitive-case-lambda::t _%$args150660%_))) + (lambda _%$args151792%_ + (apply make-instance gxc#!primitive-case-lambda::t _%$args151792%_))) (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 (_%self148085150645%_) - (let* ((_%self150648%_ _%self148085150645%_) - (_%self150650%_ _%self150648%_)) + (lambda (_%self149217151777%_) + (let* ((_%self151780%_ _%self149217151777%_) + (_%self151782%_ _%self151780%_)) (declare (not safe)) - (##unchecked-structure-set! _%self150650%_ 'abort '1 '#f '#f)))) + (##unchecked-structure-set! _%self151782%_ 'abort '1 '#f '#f)))) (let () (declare (not safe)) (__bind-method!__% gxc#!abort::t ':init! gxc#!abort:::init! '#f)) (define gxc#!class-meta:::init! - (lambda (_%self148086150507%_ _%klass150509%_) - (let* ((_%self150511%_ _%self148086150507%_) - (_%self150513%_ _%self150511%_)) + (lambda (_%self149218151639%_ _%klass151641%_) + (let* ((_%self151643%_ _%self149218151639%_) + (_%self151645%_ _%self151643%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150513%_ 'class '1 '#f '#f)) + (##unchecked-structure-set! _%self151645%_ 'class '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150513%_ - _%klass150509%_ + _%self151645%_ + _%klass151641%_ '2 '#f '#f))))) @@ -1707,598 +1707,592 @@ gxc#!class-meta:::init! '#f)) (define gxc#!class:::init!__0 - (lambda (_%self148087150195%_ - _%id150197%_ - _%super150198%_ - _%slots150199%_ - _%ctor-method150200%_ - _%struct?150201%_ - _%final?150202%_ - _%system?150203%_ - _%metaclass150204%_) - (let* ((_%self150206%_ _%self148087150195%_) - (_%self150208%_ _%self150206%_)) - (let _%lp150218%_ ((_%rest150220%_ _%super150198%_)) - (let* ((_%rest150221150229%_ _%rest150220%_) - (_%else150223150237%_ (lambda () '#!void)) - (_%K150225150243%_ - (lambda (_%rest150240%_ _%super-id150241%_) - (if (let ((__tmp151018 + (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 (gxc#optimizer-resolve-class - (cons '!class (cons _%id150197%_ '())) - _%super-id150241%_))) + (cons '!class (cons _%id151329%_ '())) + _%super-id151373%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp151018 '8 '#f '#f)) - (let ((__tmp151019 - (cons '!class (cons _%id150197%_ '())))) + (##unchecked-structure-ref __tmp152150 '8 '#f '#f)) + (let ((__tmp152151 + (cons '!class (cons _%id151329%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp151019 - _%super-id150241%_)) + __tmp152151 + _%super-id151373%_)) '#!void) - (_%lp150218%_ _%rest150240%_)))) - (if (let () (declare (not safe)) (##pair? _%rest150221150229%_)) - (let ((_%hd150226150246%_ + (_%lp151350%_ _%rest151372%_)))) + (if (pair? _%rest151353151361%_) + (let ((_%hd151358151378%_ (let () (declare (not safe)) - (##car _%rest150221150229%_))) - (_%tl150227150248%_ + (##car _%rest151353151361%_))) + (_%tl151359151380%_ (let () (declare (not safe)) - (##cdr _%rest150221150229%_)))) - (let* ((_%super-id150251%_ _%hd150226150246%_) - (_%rest150253%_ _%tl150227150248%_)) - (_%K150225150243%_ _%rest150253%_ _%super-id150251%_))) + (##cdr _%rest151353151361%_)))) + (let* ((_%super-id151383%_ _%hd151358151378%_) + (_%rest151385%_ _%tl151359151380%_)) + (_%K151357151375%_ _%rest151385%_ _%super-id151383%_))) '#!void))) - (let* ((_%ctor-method150304%_ - (let ((_%$e150255%_ _%ctor-method150200%_)) - (if _%$e150255%_ - _%$e150255%_ - (let _%lp150258%_ ((_%rest150260%_ _%super150198%_) - (_%method150261%_ '#f)) - (let* ((_%rest150262150270%_ _%rest150260%_) - (_%else150264150278%_ - (lambda () _%method150261%_)) - (_%K150266150292%_ - (lambda (_%rest150281%_ _%super-id150282%_) - (let* ((_%klass150284%_ + (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%_ (gxc#optimizer-resolve-class (cons '!class - (cons _%id150197%_ '())) - _%super-id150282%_)) - (_%$e150286%_ + (cons _%id151329%_ '())) + _%super-id151414%_)) + (_%$e151418%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass150284%_ + _%klass151416%_ '6 '#f '#f)))) - (if _%$e150286%_ - ((lambda (_%ctor-method150289%_) - (if _%method150261%_ - (if (eq? _%ctor-method150289%_ - _%method150261%_) - (_%lp150258%_ - _%rest150281%_ - _%ctor-method150289%_) - (let ((__tmp151020 + (if _%$e151418%_ + ((lambda (_%ctor-method151421%_) + (if _%method151393%_ + (if (eq? _%ctor-method151421%_ + _%method151393%_) + (_%lp151390%_ + _%rest151413%_ + _%ctor-method151421%_) + (let ((__tmp152152 (cons '!class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id150197%_ '())))) + (cons _%id151329%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp151020 - _%method150261%_ - _%ctor-method150289%_))) + __tmp152152 + _%method151393%_ + _%ctor-method151421%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp150258%_ - _%rest150281%_ - _%ctor-method150289%_))) - _%$e150286%_) - (_%lp150258%_ - _%rest150281%_ - _%method150261%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest150262150270%_)) - (let ((_%hd150267150295%_ + (_%lp151390%_ + _%rest151413%_ + _%ctor-method151421%_))) + _%$e151418%_) + (_%lp151390%_ + _%rest151413%_ + _%method151393%_)))))) + (if (pair? _%rest151394151402%_) + (let ((_%hd151399151427%_ (let () (declare (not safe)) - (##car _%rest150262150270%_))) - (_%tl150268150297%_ + (##car _%rest151394151402%_))) + (_%tl151400151429%_ (let () (declare (not safe)) - (##cdr _%rest150262150270%_)))) - (let* ((_%super-id150300%_ - _%hd150267150295%_) - (_%rest150302%_ _%tl150268150297%_)) - (_%K150266150292%_ - _%rest150302%_ - _%super-id150300%_))) - (_%else150264150278%_))))))) - (_g151021_ - (let ((__tmp151025 - (lambda (_%klass-id150306%_) - (cons _%klass-id150306%_ - (let ((__tmp151026 + (##cdr _%rest151394151402%_)))) + (let* ((_%super-id151432%_ + _%hd151399151427%_) + (_%rest151434%_ _%tl151400151429%_)) + (_%K151398151424%_ + _%rest151434%_ + _%super-id151432%_))) + (_%else151396151410%_))))))) + (_g152153_ + (let ((__tmp152157 + (lambda (_%klass-id151438%_) + (cons _%klass-id151438%_ + (let ((__tmp152158 (gxc#optimizer-resolve-class - (cons '!class (cons _%id150197%_ '())) - _%klass-id150306%_))) + (cons '!class (cons _%id151329%_ '())) + _%klass-id151438%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp151026 + __tmp152158 '3 '#f '#f))))) - (__tmp151023 - (lambda (_%klass-id150308%_) - (let ((__tmp151024 + (__tmp152155 + (lambda (_%klass-id151440%_) + (let ((__tmp152156 (gxc#optimizer-resolve-class - (cons '!class (cons _%id150197%_ '())) - _%klass-id150308%_))) + (cons '!class (cons _%id151329%_ '())) + _%klass-id151440%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp151024 + __tmp152156 '7 '#f '#f))))) (declare (not safe)) (c4-linearize__% '#f - __tmp151025 - __tmp151023 + __tmp152157 + __tmp152155 eq? identity '() - _%super150198%_)))) + _%super151330%_)))) (begin - (let ((_g151022_ + (let ((_g152154_ (let () (declare (not safe)) - (if (##values? _g151021_) - (##vector-length _g151021_) + (if (##values? _g152153_) + (##vector-length _g152153_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g151022_ 2))) - (error "Context expects 2 values" _g151022_))) - (let ((_%precedence-list150310%_ - (let () (declare (not safe)) (##vector-ref _g151021_ 0))) - (_%base-struct150311%_ - (let () (declare (not safe)) (##vector-ref _g151021_ 1)))) - (let* ((_%precedence-list150355%_ + (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 (let () (declare (not safe)) - (##memq _%id150197%_ '(t object class))) - _%precedence-list150310%_ - (if (memq 'object::t _%precedence-list150310%_) - _%precedence-list150310%_ - (if _%system?150203%_ - (if (memq 't::t _%precedence-list150310%_) - _%precedence-list150310%_ + (##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%_ (let () (declare (not safe)) (##append - _%precedence-list150310%_ + _%precedence-list151442%_ '(t::t)))) - (let _%loop150317%_ ((_%tail150319%_ - _%precedence-list150310%_) - (_%head150320%_ '())) - (let* ((_%tail150321150329%_ - _%tail150319%_) - (_%else150323150337%_ + (let _%loop151449%_ ((_%tail151451%_ + _%precedence-list151442%_) + (_%head151452%_ '())) + (let* ((_%tail151453151461%_ + _%tail151451%_) + (_%else151455151469%_ (lambda () (let () (declare (not safe)) (__foldl1 cons '(object::t t::t) - _%head150320%_)))) - (_%K150325150343%_ - (lambda (_%rest150340%_ - _%hd150341%_) - (if (eq? _%hd150341%_ 't::t) - (let ((__tmp151027 + _%head151452%_)))) + (_%K151457151475%_ + (lambda (_%rest151472%_ + _%hd151473%_) + (if (eq? _%hd151473%_ 't::t) + (let ((__tmp152159 (cons 'object::t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tail150319%_))) + _%tail151451%_))) (declare (not safe)) - (__foldl1 cons __tmp151027 _%head150320%_)) + (__foldl1 cons __tmp152159 _%head151452%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop150317%_ - _%rest150340%_ - (cons _%hd150341%_ - _%head150320%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%tail150321150329%_)) - (let ((_%hd150326150346%_ + (_%loop151449%_ + _%rest151472%_ + (cons _%hd151473%_ + _%head151452%_)))))) + (if (pair? _%tail151453151461%_) + (let ((_%hd151458151478%_ (let () (declare (not safe)) - (##car _%tail150321150329%_))) - (_%tl150327150348%_ + (##car _%tail151453151461%_))) + (_%tl151459151480%_ (let () (declare (not safe)) - (##cdr _%tail150321150329%_)))) - (let* ((_%hd150351%_ - _%hd150326150346%_) - (_%rest150353%_ - _%tl150327150348%_)) - (_%K150325150343%_ - _%rest150353%_ - _%hd150351%_))) - (_%else150323150337%_)))))))) - (_%fields150357%_ + (##cdr _%tail151453151461%_)))) + (let* ((_%hd151483%_ + _%hd151458151478%_) + (_%rest151485%_ + _%tl151459151480%_)) + (_%K151457151475%_ + _%rest151485%_ + _%hd151483%_))) + (_%else151455151469%_)))))))) + (_%fields151489%_ (gxc#compute-class-fields - (cons '!class (cons _%id150197%_ '())) - _%base-struct150311%_ - _%precedence-list150355%_ - _%slots150199%_))) + (cons '!class (cons _%id151329%_ '())) + _%base-struct151443%_ + _%precedence-list151487%_ + _%slots151331%_))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150208%_ - _%id150197%_ + _%self151340%_ + _%id151329%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150208%_ - _%super150198%_ + _%self151340%_ + _%super151330%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150208%_ - _%precedence-list150355%_ + _%self151340%_ + _%precedence-list151487%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150208%_ - _%slots150199%_ + _%self151340%_ + _%slots151331%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150208%_ - _%fields150357%_ + _%self151340%_ + _%fields151489%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150208%_ - _%ctor-method150304%_ + _%self151340%_ + _%ctor-method151436%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150208%_ - _%struct?150201%_ + _%self151340%_ + _%struct?151333%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150208%_ - _%final?150202%_ + _%self151340%_ + _%final?151334%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150208%_ - _%metaclass150204%_ + _%self151340%_ + _%metaclass151336%_ '10 '#f '#f))))))))) (define gxc#!class:::init!__1 - (lambda (_%self148088150360%_ - _%id150362%_ - _%super150363%_ - _%precedence-list150364%_ - _%slots150365%_ - _%fields150366%_ - _%constructor150367%_ - _%struct?150368%_ - _%final?150369%_ - _%system?150370%_ - _%metaclass150371%_ - _%methods150372%_) - (let* ((_%self150374%_ _%self148088150360%_) - (_%self150376%_ _%self150374%_)) + (lambda (_%self149220151492%_ + _%id151494%_ + _%super151495%_ + _%precedence-list151496%_ + _%slots151497%_ + _%fields151498%_ + _%constructor151499%_ + _%struct?151500%_ + _%final?151501%_ + _%system?151502%_ + _%metaclass151503%_ + _%methods151504%_) + (let* ((_%self151506%_ _%self149220151492%_) + (_%self151508%_ _%self151506%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150376%_ - _%id150362%_ + _%self151508%_ + _%id151494%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150376%_ - _%super150363%_ + _%self151508%_ + _%super151495%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150376%_ - _%precedence-list150364%_ + _%self151508%_ + _%precedence-list151496%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150376%_ - _%slots150365%_ + _%self151508%_ + _%slots151497%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150376%_ - _%fields150366%_ + _%self151508%_ + _%fields151498%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150376%_ - _%constructor150367%_ + _%self151508%_ + _%constructor151499%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150376%_ - _%struct?150368%_ + _%self151508%_ + _%struct?151500%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150376%_ - _%final?150369%_ + _%self151508%_ + _%final?151501%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150376%_ - _%metaclass150371%_ + _%self151508%_ + _%metaclass151503%_ '10 '#f '#f)) - (if _%methods150372%_ - (let ((__tmp151028 + (if _%methods151504%_ + (let ((__tmp152160 (let () (declare (not safe)) - (list->hash-table-eq _%methods150372%_)))) + (list->hash-table-eq _%methods151504%_)))) (declare (not safe)) (##unchecked-structure-set! - _%self150376%_ - __tmp151028 + _%self151508%_ + __tmp152160 '11 '#f '#f)) '#!void)))) (define gxc#!class:::init! - (lambda _g151030_ - (let ((_g151029_ (let () (declare (not safe)) (##length _g151030_)))) - (cond ((let () (declare (not safe)) (##fx= _g151029_ 9)) - (apply gxc#!class:::init!__0 _g151030_)) - ((let () (declare (not safe)) (##fx= _g151029_ 12)) - (apply gxc#!class:::init!__1 _g151030_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g151030_)))))) + _g152162_)))))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_%where150047%_ - _%base-struct150048%_ - _%precedence-list150049%_ - _%direct-slots150050%_) - (let* ((_%base-fields150052%_ - (if _%base-struct150048%_ - (let ((__tmp151031 + (lambda (_%where151179%_ + _%base-struct151180%_ + _%precedence-list151181%_ + _%direct-slots151182%_) + (let* ((_%base-fields151184%_ + (if _%base-struct151180%_ + (let ((__tmp152163 (gxc#optimizer-resolve-class - _%where150047%_ - _%base-struct150048%_))) + _%where151179%_ + _%base-struct151180%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp151031 '5 '#f '#f)) + (##unchecked-structure-ref __tmp152163 '5 '#f '#f)) '())) - (_%r-fields150054%_ (reverse _%base-fields150052%_)) - (_%seen-slots150062%_ - (let ((_%tab150056%_ + (_%r-fields151186%_ (reverse _%base-fields151184%_)) + (_%seen-slots151194%_ + (let ((_%tab151188%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%g150057150059%_) + (lambda (_%g151189151191%_) (let () (declare (not safe)) - (__hash-put! _%tab150056%_ _%g150057150059%_ '#t))) - _%base-fields150052%_) - _%tab150056%_)) - (_%process-slot150066%_ - (lambda (_%slot150064%_) + (__hash-put! _%tab151188%_ _%g151189151191%_ '#t))) + _%base-fields151184%_) + _%tab151188%_)) + (_%process-slot151198%_ + (lambda (_%slot151196%_) (if (let () (declare (not safe)) - (__hash-get _%seen-slots150062%_ _%slot150064%_)) + (__hash-get _%seen-slots151194%_ _%slot151196%_)) '#!void (begin (let () (declare (not safe)) (__hash-put! - _%seen-slots150062%_ - _%slot150064%_ + _%seen-slots151194%_ + _%slot151196%_ '#t)) - (set! _%r-fields150054%_ - (cons _%slot150064%_ _%r-fields150054%_))))))) + (set! _%r-fields151186%_ + (cons _%slot151196%_ _%r-fields151186%_))))))) (for-each - (lambda (_%mixin150069%_) - (let ((_%klass150071%_ + (lambda (_%mixin151201%_) + (let ((_%klass151203%_ (gxc#optimizer-resolve-class - _%where150047%_ - _%mixin150069%_))) + _%where151179%_ + _%mixin151201%_))) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%klass150071%_ '7 '#f '#f)) + (##unchecked-structure-ref _%klass151203%_ '7 '#f '#f)) '#!void (for-each - _%process-slot150066%_ + _%process-slot151198%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass150071%_ + _%klass151203%_ '5 '#f '#f)))))) - _%precedence-list150049%_) - (for-each _%process-slot150066%_ _%direct-slots150050%_) - (let () (declare (not safe)) (##reverse _%r-fields150054%_))))) + _%precedence-list151181%_) + (for-each _%process-slot151198%_ _%direct-slots151182%_) + (let () (declare (not safe)) (##reverse _%r-fields151186%_))))) (define gxc#!class-slot->field-offset - (lambda (_%klass150006%_ _%slot150007%_) - (let _%lp150009%_ ((_%rest150011%_ + (lambda (_%klass151138%_ _%slot151139%_) + (let _%lp151141%_ ((_%rest151143%_ (##structure-ref - _%klass150006%_ + _%klass151138%_ '5 gxc#!class::t '#f)) - (_%offset150012%_ '1)) - (let* ((_%rest150013150021%_ _%rest150011%_) - (_%else150015150029%_ + (_%offset151144%_ '1)) + (let* ((_%rest151145151153%_ _%rest151143%_) + (_%else151147151161%_ (lambda () - (let ((__tmp151033 + (let ((__tmp152165 (##structure-ref - _%klass150006%_ + _%klass151138%_ '1 gxc#!type::t '#f)) - (__tmp151032 + (__tmp152164 (##structure-ref - _%klass150006%_ + _%klass151138%_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp151033 - __tmp151032 - _%slot150007%_)))) - (_%K150017150035%_ - (lambda (_%rest150032%_ _%s150033%_) - (if (eq? _%s150033%_ _%slot150007%_) - _%offset150012%_ - (_%lp150009%_ - _%rest150032%_ + __tmp152165 + __tmp152164 + _%slot151139%_)))) + (_%K151149151167%_ + (lambda (_%rest151164%_ _%s151165%_) + (if (eq? _%s151165%_ _%slot151139%_) + _%offset151144%_ + (_%lp151141%_ + _%rest151164%_ (let () (declare (not safe)) - (##fx+ _%offset150012%_ '1))))))) - (if (let () (declare (not safe)) (##pair? _%rest150013150021%_)) - (let ((_%hd150018150038%_ + (##fx+ _%offset151144%_ '1))))))) + (if (pair? _%rest151145151153%_) + (let ((_%hd151150151170%_ (let () (declare (not safe)) - (##car _%rest150013150021%_))) - (_%tl150019150040%_ + (##car _%rest151145151153%_))) + (_%tl151151151172%_ (let () (declare (not safe)) - (##cdr _%rest150013150021%_)))) - (let* ((_%s150043%_ _%hd150018150038%_) - (_%rest150045%_ _%tl150019150040%_)) - (_%K150017150035%_ _%rest150045%_ _%s150043%_))) - (_%else150015150029%_)))))) + (##cdr _%rest151145151153%_)))) + (let* ((_%s151175%_ _%hd151150151170%_) + (_%rest151177%_ _%tl151151151172%_)) + (_%K151149151167%_ _%rest151177%_ _%s151175%_))) + (_%else151147151161%_)))))) (define gxc#!class-slot-find-struct - (lambda (_%klass149964%_ _%slot149965%_) - (if (gxc#!class-struct-slot? _%klass149964%_ _%slot149965%_) - _%klass149964%_ - (let _%lp149967%_ ((_%rest149969%_ + (lambda (_%klass151096%_ _%slot151097%_) + (if (gxc#!class-struct-slot? _%klass151096%_ _%slot151097%_) + _%klass151096%_ + (let _%lp151099%_ ((_%rest151101%_ (##structure-ref - _%klass149964%_ + _%klass151096%_ '3 gxc#!class::t '#f))) - (let* ((_%rest149970149978%_ _%rest149969%_) - (_%else149972149986%_ (lambda () '#f)) - (_%K149974149994%_ - (lambda (_%rest149989%_ _%super149990%_) - (let ((_%super-class149992%_ + (let* ((_%rest151102151110%_ _%rest151101%_) + (_%else151104151118%_ (lambda () '#f)) + (_%K151106151126%_ + (lambda (_%rest151121%_ _%super151122%_) + (let ((_%super-class151124%_ (gxc#optimizer-resolve-class (cons '!class-slot-find-struct (cons (##structure-ref - _%klass149964%_ + _%klass151096%_ '1 gxc#!type::t '#f) - (cons _%slot149965%_ '()))) - _%super149990%_))) + (cons _%slot151097%_ '()))) + _%super151122%_))) (if (gxc#!class-struct-slot? - _%super-class149992%_ - _%slot149965%_) - _%super-class149992%_ - (_%lp149967%_ _%rest149989%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest149970149978%_)) - (let ((_%hd149975149997%_ + _%super-class151124%_ + _%slot151097%_) + _%super-class151124%_ + (_%lp151099%_ _%rest151121%_)))))) + (if (pair? _%rest151102151110%_) + (let ((_%hd151107151129%_ (let () (declare (not safe)) - (##car _%rest149970149978%_))) - (_%tl149976149999%_ + (##car _%rest151102151110%_))) + (_%tl151108151131%_ (let () (declare (not safe)) - (##cdr _%rest149970149978%_)))) - (let* ((_%super150002%_ _%hd149975149997%_) - (_%rest150004%_ _%tl149976149999%_)) - (_%K149974149994%_ _%rest150004%_ _%super150002%_))) - (_%else149972149986%_))))))) + (##cdr _%rest151102151110%_)))) + (let* ((_%super151134%_ _%hd151107151129%_) + (_%rest151136%_ _%tl151108151131%_)) + (_%K151106151126%_ _%rest151136%_ _%super151134%_))) + (_%else151104151118%_))))))) (define gxc#!class-struct-slot? - (lambda (_%klass149961%_ _%slot149962%_) - (if (##structure-ref _%klass149961%_ '7 gxc#!class::t '#f) - (memq _%slot149962%_ - (##structure-ref _%klass149961%_ '5 gxc#!class::t '#f)) + (lambda (_%klass151093%_ _%slot151094%_) + (if (##structure-ref _%klass151093%_ '7 gxc#!class::t '#f) + (memq _%slot151094%_ + (##structure-ref _%klass151093%_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_%self148089149945%_ _%id149947%_) - (let* ((_%self149949%_ _%self148089149945%_) - (_%self149951%_ _%self149949%_)) + (lambda (_%self149221151077%_ _%id151079%_) + (let* ((_%self151081%_ _%self149221151077%_) + (_%self151083%_ _%self151081%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149951%_ - _%id149947%_ + _%self151083%_ + _%id151079%_ '1 '#f '#f)) - (let ((__tmp151034 - (let ((__obj150966 + (let ((__tmp152166 + (let ((__obj152098 (let () (declare (not safe)) (##structure @@ -2311,7 +2305,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150966 + __obj152098 'boolean::t '1 '#f @@ -2319,7 +2313,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150966 + __obj152098 '(pure predicate) '2 '#f @@ -2327,16 +2321,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150966 + __obj152098 '(t::t) '3 '#f '#f)) - __obj150966))) + __obj152098))) (declare (not safe)) (##unchecked-structure-set! - _%self149951%_ - __tmp151034 + _%self151083%_ + __tmp152166 '2 '#f '#f))))) @@ -2344,19 +2338,19 @@ (declare (not safe)) (__bind-method!__% gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) (define gxc#!constructor:::init! - (lambda (_%self148090149807%_ _%id149809%_) - (let* ((_%self149811%_ _%self148090149807%_) - (_%self149813%_ _%self149811%_)) + (lambda (_%self149222150939%_ _%id150941%_) + (let* ((_%self150943%_ _%self149222150939%_) + (_%self150945%_ _%self150943%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149813%_ - _%id149809%_ + _%self150945%_ + _%id150941%_ '1 '#f '#f)) - (let ((__tmp151035 - (let ((__obj150967 + (let ((__tmp152167 + (let ((__obj152099 (let () (declare (not safe)) (##structure @@ -2369,24 +2363,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150967 - _%id149809%_ + __obj152099 + _%id150941%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150967 + __obj152099 '(alloc) '2 '#f '#f)) - __obj150967))) + __obj152099))) (declare (not safe)) (##unchecked-structure-set! - _%self149813%_ - __tmp151035 + _%self150945%_ + __tmp152167 '2 '#f '#f))))) @@ -2398,38 +2392,38 @@ gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_%self148091149667%_ - _%id149669%_ - _%slot149670%_ - _%checked?149671%_) - (let* ((_%self149673%_ _%self148091149667%_) - (_%self149675%_ _%self149673%_)) + (lambda (_%self149223150799%_ + _%id150801%_ + _%slot150802%_ + _%checked?150803%_) + (let* ((_%self150805%_ _%self149223150799%_) + (_%self150807%_ _%self150805%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149675%_ - _%id149669%_ + _%self150807%_ + _%id150801%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149675%_ - _%slot149670%_ + _%self150807%_ + _%slot150802%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149675%_ - _%checked?149671%_ + _%self150807%_ + _%checked?150803%_ '4 '#f '#f)) - (let ((__tmp151036 - (let ((__obj150968 + (let ((__tmp152168 + (let ((__obj152100 (let () (declare (not safe)) (##structure @@ -2441,28 +2435,28 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150968 't::t '1 '#f '#f)) + (##unchecked-structure-set! __obj152100 't::t '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150968 + __obj152100 '(pure) '2 '#f '#f)) - (let ((__tmp151037 (cons _%id149669%_ '()))) + (let ((__tmp152169 (cons _%id150801%_ '()))) (declare (not safe)) (##unchecked-structure-set! - __obj150968 - __tmp151037 + __obj152100 + __tmp152169 '3 '#f '#f)) - __obj150968))) + __obj152100))) (declare (not safe)) (##unchecked-structure-set! - _%self149675%_ - __tmp151036 + _%self150807%_ + __tmp152168 '2 '#f '#f))))) @@ -2470,38 +2464,38 @@ (declare (not safe)) (__bind-method!__% gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) (define gxc#!mutator:::init! - (lambda (_%self148092149527%_ - _%id149529%_ - _%slot149530%_ - _%checked?149531%_) - (let* ((_%self149533%_ _%self148092149527%_) - (_%self149535%_ _%self149533%_)) + (lambda (_%self149224150659%_ + _%id150661%_ + _%slot150662%_ + _%checked?150663%_) + (let* ((_%self150665%_ _%self149224150659%_) + (_%self150667%_ _%self150665%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149535%_ - _%id149529%_ + _%self150667%_ + _%id150661%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149535%_ - _%slot149530%_ + _%self150667%_ + _%slot150662%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149535%_ - _%checked?149531%_ + _%self150667%_ + _%checked?150663%_ '4 '#f '#f)) - (let ((__tmp151038 - (let ((__obj150969 + (let ((__tmp152170 + (let ((__obj152101 (let () (declare (not safe)) (##structure @@ -2514,7 +2508,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150969 + __obj152101 'void::t '1 '#f @@ -2522,24 +2516,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150969 + __obj152101 '(mut) '2 '#f '#f)) - (let ((__tmp151039 (cons _%id149529%_ (cons 't::t '())))) + (let ((__tmp152171 (cons _%id150661%_ (cons 't::t '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150969 - __tmp151039 + __obj152101 + __tmp152171 '3 '#f '#f)) - __obj150969))) + __obj152101))) (declare (not safe)) (##unchecked-structure-set! - _%self149535%_ - __tmp151038 + _%self150667%_ + __tmp152170 '2 '#f '#f))))) @@ -2547,111 +2541,111 @@ (declare (not safe)) (__bind-method!__% gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_%@@keywords149369%_ - _%signature149366149370%_ - _%self148093149372%_ - _%arity149374%_ - _%dispatch149375%_) - (let* ((_%signature149377%_ - (if (eq? _%signature149366149370%_ absent-value) + (lambda (_%@@keywords150501%_ + _%signature150498150502%_ + _%self149225150504%_ + _%arity150506%_ + _%dispatch150507%_) + (let* ((_%signature150509%_ + (if (eq? _%signature150498150502%_ absent-value) '#f - _%signature149366149370%_)) - (_%self149379%_ _%self148093149372%_) - (_%self149381%_ _%self149379%_)) + _%signature150498150502%_)) + (_%self150511%_ _%self149225150504%_) + (_%self150513%_ _%self150511%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self149381%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150513%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149381%_ - _%arity149374%_ + _%self150513%_ + _%arity150506%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149381%_ - _%dispatch149375%_ + _%self150513%_ + _%dispatch150507%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149381%_ - _%signature149377%_ + _%self150513%_ + _%signature150509%_ '2 '#f '#f))))) (define gxc#!lambda:::init!__@ - (lambda (_%@@keywords149395%_ . _%args149396%_) + (lambda (_%@@keywords150527%_ . _%args150528%_) (apply gxc#!lambda:::init!__% - _%@@keywords149395%_ + _%@@keywords150527%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords149395%_ + _%@@keywords150527%_ 'signature: absent-value)) - _%args149396%_))) + _%args150528%_))) (define gxc#!lambda:::init! - (lambda _%args149367149402%_ + (lambda _%args150499150534%_ (apply keyword-dispatch '#(signature:) gxc#!lambda:::init!__@ - _%args149367149402%_))) + _%args150499150534%_))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) (define gxc#!case-lambda:::init!__% - (lambda (_%@@keywords149208%_ - _%signature149205149209%_ - _%self148094149211%_ - _%clauses149213%_) - (let* ((_%signature149215%_ - (if (eq? _%signature149205149209%_ absent-value) + (lambda (_%@@keywords150340%_ + _%signature150337150341%_ + _%self149226150343%_ + _%clauses150345%_) + (let* ((_%signature150347%_ + (if (eq? _%signature150337150341%_ absent-value) '#f - _%signature149205149209%_)) - (_%self149217%_ _%self148094149211%_) - (_%self149219%_ _%self149217%_)) + _%signature150337150341%_)) + (_%self150349%_ _%self149226150343%_) + (_%self150351%_ _%self150349%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self149219%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150351%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149219%_ - _%signature149215%_ + _%self150351%_ + _%signature150347%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149219%_ - _%clauses149213%_ + _%self150351%_ + _%clauses150345%_ '3 '#f '#f))))) (define gxc#!case-lambda:::init!__@ - (lambda (_%@@keywords149233%_ . _%args149234%_) + (lambda (_%@@keywords150365%_ . _%args150366%_) (apply gxc#!case-lambda:::init!__% - _%@@keywords149233%_ + _%@@keywords150365%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords149233%_ + _%@@keywords150365%_ 'signature: absent-value)) - _%args149234%_))) + _%args150366%_))) (define gxc#!case-lambda:::init! - (lambda _%args149206149240%_ + (lambda _%args150338150372%_ (apply keyword-dispatch '#(signature:) gxc#!case-lambda:::init!__@ - _%args149206149240%_))) + _%args150338150372%_))) (let () (declare (not safe)) (__bind-method!__% @@ -2660,25 +2654,25 @@ gxc#!case-lambda:::init! '#f)) (define gxc#!kw-lambda:::init! - (lambda (_%self148095149065%_ _%tab149067%_ _%dispatch149068%_) - (let* ((_%self149070%_ _%self148095149065%_) - (_%self149072%_ _%self149070%_)) + (lambda (_%self149227150197%_ _%tab150199%_ _%dispatch150200%_) + (let* ((_%self150202%_ _%self149227150197%_) + (_%self150204%_ _%self150202%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self149072%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150204%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149072%_ - _%tab149067%_ + _%self150204%_ + _%tab150199%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149072%_ - _%dispatch149068%_ + _%self150204%_ + _%dispatch150200%_ '4 '#f '#f))))) @@ -2686,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 (_%self148096148926%_ _%keys148928%_ _%main148929%_) - (let* ((_%self148931%_ _%self148096148926%_) - (_%self148933%_ _%self148931%_)) + (lambda (_%self149228150058%_ _%keys150060%_ _%main150061%_) + (let* ((_%self150063%_ _%self149228150058%_) + (_%self150065%_ _%self150063%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self148933%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150065%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148933%_ - _%keys148928%_ + _%self150065%_ + _%keys150060%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148933%_ - _%main148929%_ + _%self150065%_ + _%main150061%_ '4 '#f '#f))))) @@ -2732,19 +2726,19 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!primitive-predicate:::init! - (lambda (_%self148097148544%_ _%id148546%_) - (let* ((_%self148548%_ _%self148097148544%_) - (_%self148550%_ _%self148548%_)) + (lambda (_%self149229149676%_ _%id149678%_) + (let* ((_%self149680%_ _%self149229149676%_) + (_%self149682%_ _%self149680%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148550%_ - _%id148546%_ + _%self149682%_ + _%id149678%_ '1 '#f '#f)) - (let ((__tmp151040 - (let ((__obj150970 + (let ((__tmp152172 + (let ((__obj152102 (let () (declare (not safe)) (##structure @@ -2757,7 +2751,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150970 + __obj152102 'boolean::t '1 '#f @@ -2765,7 +2759,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150970 + __obj152102 '(pure) '2 '#f @@ -2773,16 +2767,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150970 + __obj152102 '(t::t) '3 '#f '#f)) - __obj150970))) + __obj152102))) (declare (not safe)) (##unchecked-structure-set! - _%self148550%_ - __tmp151040 + _%self149682%_ + __tmp152172 '2 '#f '#f))))) @@ -2794,160 +2788,158 @@ gxc#!primitive-predicate:::init! '#f)) (define gxc#!class-method-table - (lambda (_%klass148413%_) - (let ((_%$e148415%_ - (##structure-ref _%klass148413%_ '11 gxc#!class::t '#f))) - (if _%$e148415%_ - _%$e148415%_ - (let ((_%tab148419%_ + (lambda (_%klass149545%_) + (let ((_%$e149547%_ + (##structure-ref _%klass149545%_ '11 gxc#!class::t '#f))) + (if _%$e149547%_ + _%$e149547%_ + (let ((_%tab149551%_ (let () (declare (not safe)) (make-hash-table-eq)))) (##structure-set! - _%klass148413%_ - _%tab148419%_ + _%klass149545%_ + _%tab149551%_ '11 gxc#!class::t '#f) - _%tab148419%_))))) + _%tab149551%_))))) (define gxc#!class-lookup-method - (lambda (_%klass148404%_ _%method148405%_) - (let ((_%tab148406148408%_ - (##structure-ref _%klass148404%_ '11 gxc#!class::t '#f))) - (if _%tab148406148408%_ - (let ((_%tab148411%_ _%tab148406148408%_)) + (lambda (_%klass149536%_ _%method149537%_) + (let ((_%tab149538149540%_ + (##structure-ref _%klass149536%_ '11 gxc#!class::t '#f))) + (if _%tab149538149540%_ + (let ((_%tab149543%_ _%tab149538149540%_)) (declare (not safe)) - (hash-get _%tab148411%_ _%method148405%_)) + (hash-get _%tab149543%_ _%method149537%_)) '#f)))) (define gxc#!type-subtype? - (lambda (_%type-a148392%_ _%type-b148393%_) - (if _%type-a148392%_ - (if _%type-b148393%_ - (let ((_%$e148395%_ (eq? _%type-a148392%_ _%type-b148393%_))) - (if _%$e148395%_ - _%$e148395%_ - (let ((_%$e148398%_ + (lambda (_%type-a149524%_ _%type-b149525%_) + (if _%type-a149524%_ + (if _%type-b149525%_ + (let ((_%$e149527%_ (eq? _%type-a149524%_ _%type-b149525%_))) + (if _%$e149527%_ + _%$e149527%_ + (let ((_%$e149530%_ (eq? (##structure-ref - _%type-b148393%_ + _%type-b149525%_ '1 gxc#!type::t '#f) 't))) - (if _%$e148398%_ - _%$e148398%_ - (let ((_%$e148401%_ + (if _%$e149530%_ + _%$e149530%_ + (let ((_%$e149533%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a148392%_ + _%type-a149524%_ 'gxc#!procedure::t)) (eq? (##structure-ref - _%type-b148393%_ + _%type-b149525%_ '1 gxc#!type::t '#f) 'procedure) '#f))) - (if _%$e148401%_ - _%$e148401%_ + (if _%$e149533%_ + _%$e149533%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a148392%_ + _%type-a149524%_ 'gxc#!class::t)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-b148393%_ + _%type-b149525%_ 'gxc#!class::t)) (gxc#!class-subclass? - _%type-a148392%_ - _%type-b148393%_) + _%type-a149524%_ + _%type-b149525%_) '#f) '#f))))))) '#f) '#f))) (define gxc#!class-subclass? - (lambda (_%klass-a148343%_ _%klass-b148344%_) - (let ((_%$e148346%_ - (eq? (##structure-ref _%klass-a148343%_ '1 gxc#!type::t '#f) - (##structure-ref _%klass-b148344%_ '1 gxc#!type::t '#f)))) - (if _%$e148346%_ - _%$e148346%_ - (let ((_%klass-id-b148349%_ - (##structure-ref _%klass-b148344%_ '1 gxc#!type::t '#f)) - (_%precedence-list148350%_ - (##structure-ref _%klass-a148343%_ '3 gxc#!class::t '#f))) - (let _%loop148352%_ ((_%rest148354%_ - _%precedence-list148350%_)) - (let* ((_%rest148355148363%_ _%rest148354%_) - (_%else148357148371%_ (lambda () '#f)) - (_%K148359148380%_ - (lambda (_%rest148374%_ _%klass-name148375%_) - (let ((_%$e148377%_ - (eq? (let ((__tmp151041 + (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 (gxc#optimizer-resolve-class (cons 'subclass? - (cons _%klass-a148343%_ - (cons _%klass-b148344%_ + (cons _%klass-a149475%_ + (cons _%klass-b149476%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%klass-name148375%_))) + _%klass-name149507%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp151041 + __tmp152173 '1 '#f '#f)) - _%klass-id-b148349%_))) - (if _%$e148377%_ - _%$e148377%_ - (_%loop148352%_ _%rest148374%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest148355148363%_)) - (let ((_%hd148360148383%_ + _%klass-id-b149481%_))) + (if _%$e149509%_ + _%$e149509%_ + (_%loop149484%_ _%rest149506%_)))))) + (if (pair? _%rest149487149495%_) + (let ((_%hd149492149515%_ (let () (declare (not safe)) - (##car _%rest148355148363%_))) - (_%tl148361148385%_ + (##car _%rest149487149495%_))) + (_%tl149493149517%_ (let () (declare (not safe)) - (##cdr _%rest148355148363%_)))) - (let* ((_%klass-name148388%_ _%hd148360148383%_) - (_%rest148390%_ _%tl148361148385%_)) - (_%K148359148380%_ - _%rest148390%_ - _%klass-name148388%_))) - (_%else148357148371%_))))))))) + (##cdr _%rest149487149495%_)))) + (let* ((_%klass-name149520%_ _%hd149492149515%_) + (_%rest149522%_ _%tl149493149517%_)) + (_%K149491149512%_ + _%rest149522%_ + _%klass-name149520%_))) + (_%else149489149503%_))))))))) (define gxc#!interface-instance? - (lambda (_%type148341%_) + (lambda (_%type149473%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type148341%_ 'gxc#!class::t)) + (##structure-instance-of? _%type149473%_ 'gxc#!class::t)) (memq 'interface-instance::t (let () (declare (not safe)) - (##unchecked-structure-ref _%type148341%_ '3 '#f '#f))) + (##unchecked-structure-ref _%type149473%_ '3 '#f '#f))) '#f))) (define gxc#!procedure-origin - (lambda (_%proc148330%_) + (lambda (_%proc149462%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%proc148330%_ 'gxc#!procedure::t)) - (let ((_%proc148333%_ _%proc148330%_)) + (##structure-instance-of? _%proc149462%_ 'gxc#!procedure::t)) + (let ((_%proc149465%_ _%proc149462%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%proc148333%_ '2 '#f '#f)) - (let ((__tmp151042 + (##unchecked-structure-ref _%proc149465%_ '2 '#f '#f)) + (let ((__tmp152174 (let () (declare (not safe)) (##unchecked-structure-ref - _%proc148333%_ + _%proc149465%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp151042 '5 '#f '#f)) + (##unchecked-structure-ref __tmp152174 '5 '#f '#f)) '#f)) (begin (raise-contract-violation-error @@ -2957,24 +2949,24 @@ 'contract: '!procedure? 'value: - _%proc148330%_) + _%proc149462%_) '#!void)))) (define gxc#optimizer-declare-type!__% - (lambda (_%sym148312%_ _%type148313%_ _%local?148314%_) + (lambda (_%sym149444%_ _%type149445%_ _%local?149446%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type148313%_ 'gxc#!type::t)) + (##structure-instance-of? _%type149445%_ 'gxc#!type::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !type" - _%sym148312%_ - _%type148313%_))) + _%sym149444%_ + _%type149445%_))) (let () (declare (not safe)) - (gxc#verbose '"declare-type " _%sym148312%_ '" " _%type148313%_)) - (let ((_%table148316%_ - (if _%local?148314%_ + (gxc#verbose '"declare-type " _%sym149444%_ '" " _%type149445%_)) + (let ((_%table149448%_ + (if _%local?149446%_ (let () (declare (not safe)) (gxc#current-compile-local-type)) @@ -2986,37 +2978,37 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-put! _%table148316%_ _%sym148312%_ _%type148313%_)))) + (hash-put! _%table149448%_ _%sym149444%_ _%type149445%_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_%sym148321%_ _%type148322%_) - (let ((_%local?148324%_ '#f)) + (lambda (_%sym149453%_ _%type149454%_) + (let ((_%local?149456%_ '#f)) (gxc#optimizer-declare-type!__% - _%sym148321%_ - _%type148322%_ - _%local?148324%_)))) + _%sym149453%_ + _%type149454%_ + _%local?149456%_)))) (define gxc#optimizer-declare-type! - (lambda _g151044_ - (let ((_g151043_ (let () (declare (not safe)) (##length _g151044_)))) - (cond ((let () (declare (not safe)) (##fx= _g151043_ 2)) - (apply gxc#optimizer-declare-type!__0 _g151044_)) - ((let () (declare (not safe)) (##fx= _g151043_ 3)) - (apply gxc#optimizer-declare-type!__% _g151044_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g151044_)))))) + _g152176_)))))) (define gxc#optimizer-declare-class! - (lambda (_%sym148306%_ _%type148307%_) + (lambda (_%sym149438%_ _%type149439%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type148307%_ 'gxc#!class::t)) + (##structure-instance-of? _%type149439%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym148306%_ - _%type148307%_))) - (let ((_%table148309%_ + _%sym149438%_ + _%type149439%_))) + (let ((_%table149441%_ (##structure-ref (let () (declare (not safe)) @@ -3024,28 +3016,28 @@ '2 gxc#optimizer-info::t '#f))) - (let ((__tmp151045 - (let () (declare (not safe)) (struct->list _%type148307%_)))) + (let ((__tmp152177 + (let () (declare (not safe)) (struct->list _%type149439%_)))) (declare (not safe)) - (gxc#verbose '"declare-class " _%sym148306%_ '" " __tmp151045)) + (gxc#verbose '"declare-class " _%sym149438%_ '" " __tmp152177)) (let () (declare (not safe)) - (hash-put! _%table148309%_ _%sym148306%_ _%type148307%_)) + (hash-put! _%table149441%_ _%sym149438%_ _%type149439%_)) (let () (declare (not safe)) - (hash-put! _%table148309%_ _%type148307%_ _%sym148306%_))))) + (hash-put! _%table149441%_ _%type149439%_ _%sym149438%_))))) (define gxc#optimizer-declare-builtin-class! - (lambda (_%sym148301%_ _%type148302%_) + (lambda (_%sym149433%_ _%type149434%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type148302%_ 'gxc#!class::t)) + (##structure-instance-of? _%type149434%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym148301%_ - _%type148302%_))) - (let ((_%table148304%_ + _%sym149433%_ + _%type149434%_))) + (let ((_%table149436%_ (##structure-ref (let () (declare (not safe)) @@ -3055,38 +3047,38 @@ '#f))) (if (let () (declare (not safe)) - (hash-get _%table148304%_ _%sym148301%_)) + (hash-get _%table149436%_ _%sym149433%_)) '#!void (begin - (let ((__tmp151046 + (let ((__tmp152178 (let () (declare (not safe)) - (struct->list _%type148302%_)))) + (struct->list _%type149434%_)))) (declare (not safe)) (gxc#verbose '"declare-builtin-class " - _%sym148301%_ + _%sym149433%_ '" " - __tmp151046)) + __tmp152178)) (let () (declare (not safe)) - (hash-put! _%table148304%_ _%sym148301%_ _%type148302%_)) + (hash-put! _%table149436%_ _%sym149433%_ _%type149434%_)) (let () (declare (not safe)) (hash-put! - _%table148304%_ - _%type148302%_ - _%sym148301%_))))))) + _%table149436%_ + _%type149434%_ + _%sym149433%_))))))) (define gxc#optimizer-clear-type! - (lambda (_%sym148299%_) + (lambda (_%sym149431%_) (let () (declare (not safe)) - (gxc#verbose '"clear-type " _%sym148299%_)) - (let ((__tmp151047 + (gxc#verbose '"clear-type " _%sym149431%_)) + (let ((__tmp152179 (let () (declare (not safe)) (gxc#current-compile-local-type)))) (declare (not safe)) - (hash-remove! __tmp151047 _%sym148299%_)) - (let ((__tmp151048 + (hash-remove! __tmp152179 _%sym149431%_)) + (let ((__tmp152180 (##structure-ref (let () (declare (not safe)) @@ -3095,13 +3087,13 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-remove! __tmp151048 _%sym148299%_)))) + (hash-remove! __tmp152180 _%sym149431%_)))) (define gxc#optimizer-declare-method!__% - (lambda (_%type-t148267%_ - _%method148268%_ - _%sym148269%_ - _%rebind?148270%_) - (let ((__tmp151049 + (lambda (_%type-t149399%_ + _%method149400%_ + _%sym149401%_ + _%rebind?149402%_) + (let ((__tmp152181 (##structure-ref (let () (declare (not safe)) @@ -3110,109 +3102,109 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp151049 _%sym148269%_ '#t)) - (let ((_%klass148272%_ (gxc#optimizer-lookup-class _%type-t148267%_))) - (if _%klass148272%_ - (let* ((_%vtab148274%_ (gxc#!class-method-table _%klass148272%_)) - (_%$e148276%_ + (hash-put! __tmp152181 _%sym149401%_ '#t)) + (let ((_%klass149404%_ (gxc#optimizer-lookup-class _%type-t149399%_))) + (if _%klass149404%_ + (let* ((_%vtab149406%_ (gxc#!class-method-table _%klass149404%_)) + (_%$e149408%_ (let () (declare (not safe)) - (hash-get _%vtab148274%_ _%method148268%_)))) - (if _%$e148276%_ - ((lambda (_%existing148279%_) - (if _%rebind?148270%_ + (hash-get _%vtab149406%_ _%method149400%_)))) + (if _%$e149408%_ + ((lambda (_%existing149411%_) + (if _%rebind?149402%_ (let () (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _%type-t148267%_ + _%type-t149399%_ '" " - _%method148268%_)) + _%method149400%_)) (let () (declare (not safe)) (hash-put! - _%vtab148274%_ - _%method148268%_ - _%sym148269%_))) - (if (eq? _%existing148279%_ _%sym148269%_) + _%vtab149406%_ + _%method149400%_ + _%sym149401%_))) + (if (eq? _%existing149411%_ _%sym149401%_) '#!void - (let ((__tmp151050 + (let ((__tmp152182 (cons 'bind-method! - (cons _%type-t148267%_ - (cons _%method148268%_ - (cons _%sym148269%_ + (cons _%type-t149399%_ + (cons _%method149400%_ + (cons _%sym149401%_ '())))))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp151050 - _%method148268%_))))) - _%$e148276%_) + __tmp152182 + _%method149400%_))))) + _%$e149408%_) (let () (let () (declare (not safe)) (gxc#verbose '"declare-method " - _%type-t148267%_ + _%type-t149399%_ '" " - _%method148268%_ + _%method149400%_ '" => " - _%sym148269%_)) + _%sym149401%_)) (let () (declare (not safe)) (hash-put! - _%vtab148274%_ - _%method148268%_ - _%sym148269%_))))) + _%vtab149406%_ + _%method149400%_ + _%sym149401%_))))) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown class" - _%type-t148267%_)))))) + _%type-t149399%_)))))) (define gxc#optimizer-declare-method!__0 - (lambda (_%type-t148288%_ _%method148289%_ _%sym148290%_) - (let ((_%rebind?148292%_ '#f)) + (lambda (_%type-t149420%_ _%method149421%_ _%sym149422%_) + (let ((_%rebind?149424%_ '#f)) (gxc#optimizer-declare-method!__% - _%type-t148288%_ - _%method148289%_ - _%sym148290%_ - _%rebind?148292%_)))) + _%type-t149420%_ + _%method149421%_ + _%sym149422%_ + _%rebind?149424%_)))) (define gxc#optimizer-declare-method! - (lambda _g151052_ - (let ((_g151051_ (let () (declare (not safe)) (##length _g151052_)))) - (cond ((let () (declare (not safe)) (##fx= _g151051_ 3)) - (apply gxc#optimizer-declare-method!__0 _g151052_)) - ((let () (declare (not safe)) (##fx= _g151051_ 4)) - (apply gxc#optimizer-declare-method!__% _g151052_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g151052_)))))) + _g152184_)))))) (define gxc#optimizer-lookup-type - (lambda (_%sym148252%_) - (let ((_%$e148254%_ - (let ((__tmp151053 + (lambda (_%sym149384%_) + (let ((_%$e149386%_ + (let ((__tmp152185 (let () (declare (not safe)) (gxc#current-compile-path-type)))) (declare (not safe)) - (agetq__0 _%sym148252%_ __tmp151053)))) - (if _%$e148254%_ - _%$e148254%_ - (let ((_%$e148263%_ - (let ((_%ht148256148258%_ + (agetq__0 _%sym149384%_ __tmp152185)))) + (if _%$e149386%_ + _%$e149386%_ + (let ((_%$e149395%_ + (let ((_%ht149388149390%_ (let () (declare (not safe)) (gxc#current-compile-local-type)))) - (if _%ht148256148258%_ - (let ((_%ht148261%_ _%ht148256148258%_)) + (if _%ht149388149390%_ + (let ((_%ht149393%_ _%ht149388149390%_)) (declare (not safe)) - (hash-get _%ht148261%_ _%sym148252%_)) + (hash-get _%ht149393%_ _%sym149384%_)) '#f)))) - (if _%$e148263%_ - _%$e148263%_ - (let ((__tmp151054 + (if _%$e149395%_ + _%$e149395%_ + (let ((__tmp152186 (##structure-ref (let () (declare (not safe)) @@ -3221,24 +3213,24 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp151054 _%sym148252%_)))))))) + (hash-get __tmp152186 _%sym149384%_)))))))) (define gxc#optimizer-resolve-type - (lambda (_%sym148244%_) - (let ((_%type148245148247%_ (gxc#optimizer-lookup-type _%sym148244%_))) - (if _%type148245148247%_ - (let ((_%type148250%_ _%type148245148247%_)) + (lambda (_%sym149376%_) + (let ((_%type149377149379%_ (gxc#optimizer-lookup-type _%sym149376%_))) + (if _%type149377149379%_ + (let ((_%type149382%_ _%type149377149379%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%type148250%_ 'gxc#!alias::t)) + (##structure-instance-of? _%type149382%_ 'gxc#!alias::t)) (gxc#optimizer-resolve-type (let () (declare (not safe)) - (##unchecked-structure-ref _%type148250%_ '1 '#f '#f))) - _%type148250%_)) + (##unchecked-structure-ref _%type149382%_ '1 '#f '#f))) + _%type149382%_)) '#f)))) (define gxc#optimizer-lookup-class - (lambda (_%sym148240%_) - (let ((_%table148242%_ + (lambda (_%sym149372%_) + (let ((_%table149374%_ (##structure-ref (let () (declare (not safe)) @@ -3247,34 +3239,34 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get _%table148242%_ _%sym148240%_)))) + (hash-get _%table149374%_ _%sym149372%_)))) (define gxc#optimizer-resolve-class - (lambda (_%where148225%_ _%sym148226%_) - (let ((_%$e148229%_ (gxc#optimizer-lookup-class _%sym148226%_))) - (if _%$e148229%_ - ((lambda (_%g148231148233%_) - (let ((_%val148236%_ _%g148231148233%_)) + (lambda (_%where149357%_ _%sym149358%_) + (let ((_%$e149361%_ (gxc#optimizer-lookup-class _%sym149358%_))) + (if _%$e149361%_ + ((lambda (_%g149363149365%_) + (let ((_%val149368%_ _%g149363149365%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%val148236%_ + _%val149368%_ 'gxc#!class::t)) - _%val148236%_ + _%val149368%_ (let () (declare (not safe)) - (error '"bad cast" gxc#!class::t _%val148236%_))))) - _%$e148229%_) + (error '"bad cast" gxc#!class::t _%val149368%_))))) + _%$e149361%_) (let () (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _%where148225%_ - _%sym148226%_)) + _%where149357%_ + _%sym149358%_)) '#!void))))) (define gxc#optimizer-lookup-class-name - (lambda (_%klass148223%_) - (let ((__tmp151055 + (lambda (_%klass149355%_) + (let ((__tmp152187 (##structure-ref (let () (declare (not safe)) @@ -3283,15 +3275,15 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp151055 _%klass148223%_)))) + (hash-get __tmp152187 _%klass149355%_)))) (define gxc#optimizer-lookup-method - (lambda (_%type-t148220%_ _%method148221%_) + (lambda (_%type-t149352%_ _%method149353%_) (gxc#!class-lookup-method - (gxc#optimizer-resolve-class 'lookup-method _%type-t148220%_) - _%method148221%_))) + (gxc#optimizer-resolve-class 'lookup-method _%type-t149352%_) + _%method149353%_))) (define gxc#optimizer-top-level-method? - (lambda (_%sym148218%_) - (let ((__tmp151056 + (lambda (_%sym149350%_) + (let ((__tmp152188 (##structure-ref (let () (declare (not safe)) @@ -3300,59 +3292,59 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp151056 _%sym148218%_)))) + (hash-get __tmp152188 _%sym149350%_)))) (define gxc#optimizer-current-types (lambda () - (letrec ((_%type-e148100%_ - (lambda (_%t148201%_) - (if (symbol? _%t148201%_) - (_%type-e148100%_ - (gxc#optimizer-lookup-type _%t148201%_)) + (letrec ((_%type-e149232%_ + (lambda (_%t149333%_) + (if (symbol? _%t149333%_) + (_%type-e149232%_ + (gxc#optimizer-lookup-type _%t149333%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%t148201%_ + _%t149333%_ 'gxc#!lambda::t)) - (_%__lambda-type148102%_ _%t148201%_) + (_%__lambda-type149234%_ _%t149333%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t148201%_ + _%t149333%_ 'gxc#!kw-lambda::t)) - (_%__kw-lambda-type148104%_ _%t148201%_) + (_%__kw-lambda-type149236%_ _%t149333%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t148201%_ + _%t149333%_ 'gxc#!kw-lambda-primary::t)) - (_%__kw-lambda-primary-type148106%_ - _%t148201%_) + (_%__kw-lambda-primary-type149238%_ + _%t149333%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t148201%_ + _%t149333%_ 'gxc#!procedure::t)) (cons 'procedure - (let ((_%t148208%_ _%t148201%_)) + (let ((_%t149340%_ _%t149333%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t148208%_ + _%t149340%_ '2 '#f '#f)) - (let ((__tmp151057 + (let ((__tmp152189 (let () (declare (not safe)) (##unchecked-structure-ref - _%t148208%_ + _%t149340%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp151057 + __tmp152189 '1 '#f '#f)) @@ -3360,31 +3352,31 @@ (if (let () (declare (not safe)) (##structure-instance-of? - _%t148201%_ + _%t149333%_ 'gxc#!type::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%t148201%_ + _%t149333%_ '1 '#f '#f)) '#f)))))))) - (_%lambda-type148101%_ - (lambda (_%t148189%_) - (let ((_%t148192%_ _%t148189%_)) - (_%__lambda-type148102%_ _%t148192%_)))) - (_%__lambda-type148102%_ - (lambda (_%t148177%_) - (let ((_%t148180%_ _%t148177%_)) + (_%lambda-type149233%_ + (lambda (_%t149321%_) + (let ((_%t149324%_ _%t149321%_)) + (_%__lambda-type149234%_ _%t149324%_)))) + (_%__lambda-type149234%_ + (lambda (_%t149309%_) + (let ((_%t149312%_ _%t149309%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%t148180%_ '4 '#f '#f)) - (_%type-e148100%_ + (##unchecked-structure-ref _%t149312%_ '4 '#f '#f)) + (_%type-e149232%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t148180%_ + _%t149312%_ '4 '#f '#f))) @@ -3392,56 +3384,56 @@ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t148180%_ + _%t149312%_ '2 '#f '#f)) - (let ((__tmp151058 + (let ((__tmp152190 (let () (declare (not safe)) (##unchecked-structure-ref - _%t148180%_ + _%t149312%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp151058 + __tmp152190 '1 '#f '#f)) '#f)))))) - (_%kw-lambda-type148103%_ - (lambda (_%t148165%_) - (let ((_%t148168%_ _%t148165%_)) - (_%__kw-lambda-type148104%_ _%t148168%_)))) - (_%__kw-lambda-type148104%_ - (lambda (_%t148153%_) - (let ((_%t148156%_ _%t148153%_)) - (_%type-e148100%_ + (_%kw-lambda-type149235%_ + (lambda (_%t149297%_) + (let ((_%t149300%_ _%t149297%_)) + (_%__kw-lambda-type149236%_ _%t149300%_)))) + (_%__kw-lambda-type149236%_ + (lambda (_%t149285%_) + (let ((_%t149288%_ _%t149285%_)) + (_%type-e149232%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t148156%_ + _%t149288%_ '4 '#f '#f)))))) - (_%kw-lambda-primary-type148105%_ - (lambda (_%t148141%_) - (let ((_%t148144%_ _%t148141%_)) - (_%__kw-lambda-primary-type148106%_ _%t148144%_)))) - (_%__kw-lambda-primary-type148106%_ - (lambda (_%t148127%_) - (let ((_%t148130%_ _%t148127%_)) - (_%type-e148100%_ + (_%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%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t148130%_ + _%t149262%_ '4 '#f '#f))))))) - (let* ((_%ht1148108%_ + (let* ((_%ht1149240%_ (##structure-ref (let () (declare (not safe)) @@ -3449,33 +3441,33 @@ '1 gxc#optimizer-info::t '#f)) - (_%ht2148110%_ + (_%ht2149242%_ (let () (declare (not safe)) (gxc#current-compile-local-type))) - (_%result148112%_ - (if _%ht1148108%_ - (let () (declare (not safe)) (hash->list _%ht1148108%_)) + (_%result149244%_ + (if _%ht1149240%_ + (let () (declare (not safe)) (hash->list _%ht1149240%_)) '())) - (_%result148114%_ - (if _%ht2148110%_ - (let ((__tmp151059 + (_%result149246%_ + (if _%ht2149242%_ + (let ((__tmp152191 (let () (declare (not safe)) - (hash->list _%ht2148110%_)))) + (hash->list _%ht2149242%_)))) (declare (not safe)) - (__foldl1 cons _%result148112%_ __tmp151059)) - _%result148112%_))) + (__foldl1 cons _%result149244%_ __tmp152191)) + _%result149244%_))) (for-each - (lambda (_%p148117%_) - (let* ((_%t148119%_ (cdr _%p148117%_)) - (_%tr148121%_ (_%type-e148100%_ _%t148119%_))) - (set-cdr! _%p148117%_ _%tr148121%_))) - _%result148114%_) + (lambda (_%p149249%_) + (let* ((_%t149251%_ (cdr _%p149249%_)) + (_%tr149253%_ (_%type-e149232%_ _%t149251%_))) + (set-cdr! _%p149249%_ _%tr149253%_))) + _%result149246%_) (list-sort - (lambda (_%a148124%_ _%b148125%_) - (let ((__tmp151061 (symbol->string (car _%a148124%_))) - (__tmp151060 (symbol->string (car _%b148125%_)))) + (lambda (_%a149256%_ _%b149257%_) + (let ((__tmp152193 (symbol->string (car _%a149256%_))) + (__tmp152192 (symbol->string (car _%b149257%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj150952 __tmp151211 '15 '#f '#f)) - (let ((__tmp151223 - (cons (cons 'super |gxc[1]#_g151224_|) - (cons (cons 'precedence-list |gxc[1]#_g151225_|) - (cons (cons 'slots |gxc[1]#_g151226_|) - (cons (cons 'fields |gxc[1]#_g151227_|) + (##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_|) (cons (cons 'constructor - |gxc[1]#_g151228_|) + |gxc[1]#_g152360_|) (cons (cons 'struct? - |gxc[1]#_g151229_|) + |gxc[1]#_g152361_|) (cons (cons 'final? - |gxc[1]#_g151230_|) + |gxc[1]#_g152362_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g151231_|) - (cons (cons 'metaclass |gxc[1]#_g151232_|) - (cons (cons 'methods |gxc[1]#_g151233_|) - (cons (cons 'id |gxc[1]#_g151234_|) + |gxc[1]#_g152363_|) + (cons (cons 'metaclass |gxc[1]#_g152364_|) + (cons (cons 'methods |gxc[1]#_g152365_|) + (cons (cons 'id |gxc[1]#_g152366_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj150952 __tmp151223 '16 '#f '#f)) - (let ((__tmp151235 - (cons (cons 'super |gxc[1]#_g151236_|) - (cons (cons 'precedence-list |gxc[1]#_g151237_|) - (cons (cons 'slots |gxc[1]#_g151238_|) - (cons (cons 'fields |gxc[1]#_g151239_|) + (##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_|) (cons (cons 'constructor - |gxc[1]#_g151240_|) + |gxc[1]#_g152372_|) (cons (cons 'struct? - |gxc[1]#_g151241_|) + |gxc[1]#_g152373_|) (cons (cons 'final? - |gxc[1]#_g151242_|) + |gxc[1]#_g152374_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g151243_|) - (cons (cons 'metaclass |gxc[1]#_g151244_|) - (cons (cons 'methods |gxc[1]#_g151245_|) - (cons (cons 'id |gxc[1]#_g151246_|) + |gxc[1]#_g152375_|) + (cons (cons 'metaclass |gxc[1]#_g152376_|) + (cons (cons 'methods |gxc[1]#_g152377_|) + (cons (cons 'id |gxc[1]#_g152378_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj150952 __tmp151235 '17 '#f '#f)) - (let ((__tmp151247 - (cons (cons 'super |gxc[1]#_g151248_|) - (cons (cons 'precedence-list |gxc[1]#_g151249_|) - (cons (cons 'slots |gxc[1]#_g151250_|) - (cons (cons 'fields |gxc[1]#_g151251_|) + (##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_|) (cons (cons 'constructor - |gxc[1]#_g151252_|) + |gxc[1]#_g152384_|) (cons (cons 'struct? - |gxc[1]#_g151253_|) + |gxc[1]#_g152385_|) (cons (cons 'final? - |gxc[1]#_g151254_|) + |gxc[1]#_g152386_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g151255_|) - (cons (cons 'metaclass |gxc[1]#_g151256_|) - (cons (cons 'methods |gxc[1]#_g151257_|) - (cons (cons 'id |gxc[1]#_g151258_|) + |gxc[1]#_g152387_|) + (cons (cons 'metaclass |gxc[1]#_g152388_|) + (cons (cons 'methods |gxc[1]#_g152389_|) + (cons (cons 'id |gxc[1]#_g152390_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj150952 __tmp151247 '18 '#f '#f)) + (##unchecked-structure-set! __obj152084 __tmp152379 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150952 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152084 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150952 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152084 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150952 '() '20 '#f '#f)) - __obj150952)) + (##unchecked-structure-set! __obj152084 '() '20 '#f '#f)) + __obj152084)) (define |gxc[:0:]#!predicate| - (let ((__obj150953 + (let ((__obj152085 (let () (declare (not safe)) (##structure @@ -3325,76 +3325,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150953 + __obj152085 'gxc#!predicate::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150953 '!predicate '2 '#f '#f)) + (##unchecked-structure-set! __obj152085 '!predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150953 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152085 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150953 '(id signature) '6 '#f '#f)) - (let ((__tmp151259 (cons |gxc[1]#_g151260_| '()))) + (##unchecked-structure-set! __obj152085 '(id signature) '6 '#f '#f)) + (let ((__tmp152391 (cons |gxc[1]#_g152392_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150953 __tmp151259 '3 '#f '#f)) + (##unchecked-structure-set! __obj152085 __tmp152391 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150953 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152085 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150953 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152085 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150953 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152085 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150953 ':init! '11 '#f '#f)) - (let ((__tmp151261 |gxc[1]#_g151262_|)) + (##unchecked-structure-set! __obj152085 ':init! '11 '#f '#f)) + (let ((__tmp152393 |gxc[1]#_g152394_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150953 __tmp151261 '12 '#f '#f)) - (let ((__tmp151263 |gxc[1]#_g151264_|)) + (##unchecked-structure-set! __obj152085 __tmp152393 '12 '#f '#f)) + (let ((__tmp152395 |gxc[1]#_g152396_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150953 __tmp151263 '13 '#f '#f)) - (let ((__tmp151265 |gxc[1]#_g151266_|)) + (##unchecked-structure-set! __obj152085 __tmp152395 '13 '#f '#f)) + (let ((__tmp152397 |gxc[1]#_g152398_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150953 __tmp151265 '14 '#f '#f)) - (let ((__tmp151267 - (cons (cons 'signature |gxc[1]#_g151268_|) - (cons (cons 'id |gxc[1]#_g151269_|) '())))) + (##unchecked-structure-set! __obj152085 __tmp152397 '14 '#f '#f)) + (let ((__tmp152399 + (cons (cons 'signature |gxc[1]#_g152400_|) + (cons (cons 'id |gxc[1]#_g152401_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150953 __tmp151267 '15 '#f '#f)) - (let ((__tmp151270 - (cons (cons 'signature |gxc[1]#_g151271_|) - (cons (cons 'id |gxc[1]#_g151272_|) '())))) + (##unchecked-structure-set! __obj152085 __tmp152399 '15 '#f '#f)) + (let ((__tmp152402 + (cons (cons 'signature |gxc[1]#_g152403_|) + (cons (cons 'id |gxc[1]#_g152404_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150953 __tmp151270 '16 '#f '#f)) - (let ((__tmp151273 - (cons (cons 'signature |gxc[1]#_g151274_|) - (cons (cons 'id |gxc[1]#_g151275_|) '())))) + (##unchecked-structure-set! __obj152085 __tmp152402 '16 '#f '#f)) + (let ((__tmp152405 + (cons (cons 'signature |gxc[1]#_g152406_|) + (cons (cons 'id |gxc[1]#_g152407_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150953 __tmp151273 '17 '#f '#f)) - (let ((__tmp151276 - (cons (cons 'signature |gxc[1]#_g151277_|) - (cons (cons 'id |gxc[1]#_g151278_|) '())))) + (##unchecked-structure-set! __obj152085 __tmp152405 '17 '#f '#f)) + (let ((__tmp152408 + (cons (cons 'signature |gxc[1]#_g152409_|) + (cons (cons 'id |gxc[1]#_g152410_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150953 __tmp151276 '18 '#f '#f)) - (let ((__tmp151279 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) + (##unchecked-structure-set! __obj152085 __tmp152408 '18 '#f '#f)) + (let ((__tmp152411 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150953 __tmp151279 '19 '#f '#f)) + (##unchecked-structure-set! __obj152085 __tmp152411 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150953 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152085 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150953 '() '20 '#f '#f)) - __obj150953)) + (##unchecked-structure-set! __obj152085 '() '20 '#f '#f)) + __obj152085)) (define |gxc[:0:]#!constructor| - (let ((__obj150954 + (let ((__obj152086 (let () (declare (not safe)) (##structure @@ -3423,76 +3423,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150954 + __obj152086 'gxc#!constructor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150954 '!constructor '2 '#f '#f)) + (##unchecked-structure-set! __obj152086 '!constructor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150954 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152086 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150954 '(id signature) '6 '#f '#f)) - (let ((__tmp151280 (cons |gxc[1]#_g151260_| '()))) + (##unchecked-structure-set! __obj152086 '(id signature) '6 '#f '#f)) + (let ((__tmp152412 (cons |gxc[1]#_g152392_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150954 __tmp151280 '3 '#f '#f)) + (##unchecked-structure-set! __obj152086 __tmp152412 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150954 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152086 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150954 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152086 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150954 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152086 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150954 ':init! '11 '#f '#f)) - (let ((__tmp151281 |gxc[1]#_g151282_|)) + (##unchecked-structure-set! __obj152086 ':init! '11 '#f '#f)) + (let ((__tmp152413 |gxc[1]#_g152414_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150954 __tmp151281 '12 '#f '#f)) - (let ((__tmp151283 |gxc[1]#_g151284_|)) + (##unchecked-structure-set! __obj152086 __tmp152413 '12 '#f '#f)) + (let ((__tmp152415 |gxc[1]#_g152416_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150954 __tmp151283 '13 '#f '#f)) - (let ((__tmp151285 |gxc[1]#_g151286_|)) + (##unchecked-structure-set! __obj152086 __tmp152415 '13 '#f '#f)) + (let ((__tmp152417 |gxc[1]#_g152418_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150954 __tmp151285 '14 '#f '#f)) - (let ((__tmp151287 - (cons (cons 'signature |gxc[1]#_g151288_|) - (cons (cons 'id |gxc[1]#_g151289_|) '())))) + (##unchecked-structure-set! __obj152086 __tmp152417 '14 '#f '#f)) + (let ((__tmp152419 + (cons (cons 'signature |gxc[1]#_g152420_|) + (cons (cons 'id |gxc[1]#_g152421_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150954 __tmp151287 '15 '#f '#f)) - (let ((__tmp151290 - (cons (cons 'signature |gxc[1]#_g151291_|) - (cons (cons 'id |gxc[1]#_g151292_|) '())))) + (##unchecked-structure-set! __obj152086 __tmp152419 '15 '#f '#f)) + (let ((__tmp152422 + (cons (cons 'signature |gxc[1]#_g152423_|) + (cons (cons 'id |gxc[1]#_g152424_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150954 __tmp151290 '16 '#f '#f)) - (let ((__tmp151293 - (cons (cons 'signature |gxc[1]#_g151294_|) - (cons (cons 'id |gxc[1]#_g151295_|) '())))) + (##unchecked-structure-set! __obj152086 __tmp152422 '16 '#f '#f)) + (let ((__tmp152425 + (cons (cons 'signature |gxc[1]#_g152426_|) + (cons (cons 'id |gxc[1]#_g152427_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150954 __tmp151293 '17 '#f '#f)) - (let ((__tmp151296 - (cons (cons 'signature |gxc[1]#_g151297_|) - (cons (cons 'id |gxc[1]#_g151298_|) '())))) + (##unchecked-structure-set! __obj152086 __tmp152425 '17 '#f '#f)) + (let ((__tmp152428 + (cons (cons 'signature |gxc[1]#_g152429_|) + (cons (cons 'id |gxc[1]#_g152430_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150954 __tmp151296 '18 '#f '#f)) - (let ((__tmp151299 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) + (##unchecked-structure-set! __obj152086 __tmp152428 '18 '#f '#f)) + (let ((__tmp152431 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150954 __tmp151299 '19 '#f '#f)) + (##unchecked-structure-set! __obj152086 __tmp152431 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150954 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152086 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150954 '() '20 '#f '#f)) - __obj150954)) + (##unchecked-structure-set! __obj152086 '() '20 '#f '#f)) + __obj152086)) (define |gxc[:0:]#!accessor| - (let ((__obj150955 + (let ((__obj152087 (let () (declare (not safe)) (##structure @@ -3521,89 +3521,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150955 + __obj152087 'gxc#!accessor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150955 '!accessor '2 '#f '#f)) + (##unchecked-structure-set! __obj152087 '!accessor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150955 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj152087 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150955 + __obj152087 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp151300 (cons |gxc[1]#_g151260_| '()))) + (let ((__tmp152432 (cons |gxc[1]#_g152392_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150955 __tmp151300 '3 '#f '#f)) + (##unchecked-structure-set! __obj152087 __tmp152432 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150955 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152087 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150955 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152087 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150955 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152087 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150955 ':init! '11 '#f '#f)) - (let ((__tmp151301 |gxc[1]#_g151302_|)) + (##unchecked-structure-set! __obj152087 ':init! '11 '#f '#f)) + (let ((__tmp152433 |gxc[1]#_g152434_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150955 __tmp151301 '12 '#f '#f)) - (let ((__tmp151303 |gxc[1]#_g151304_|)) + (##unchecked-structure-set! __obj152087 __tmp152433 '12 '#f '#f)) + (let ((__tmp152435 |gxc[1]#_g152436_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150955 __tmp151303 '13 '#f '#f)) - (let ((__tmp151305 |gxc[1]#_g151306_|)) + (##unchecked-structure-set! __obj152087 __tmp152435 '13 '#f '#f)) + (let ((__tmp152437 |gxc[1]#_g152438_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150955 __tmp151305 '14 '#f '#f)) - (let ((__tmp151307 - (cons (cons 'slot |gxc[1]#_g151308_|) - (cons (cons 'checked? |gxc[1]#_g151309_|) - (cons (cons 'signature |gxc[1]#_g151310_|) - (cons (cons 'id |gxc[1]#_g151311_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150955 __tmp151307 '15 '#f '#f)) - (let ((__tmp151312 - (cons (cons 'slot |gxc[1]#_g151313_|) - (cons (cons 'checked? |gxc[1]#_g151314_|) - (cons (cons 'signature |gxc[1]#_g151315_|) - (cons (cons 'id |gxc[1]#_g151316_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150955 __tmp151312 '16 '#f '#f)) - (let ((__tmp151317 - (cons (cons 'slot |gxc[1]#_g151318_|) - (cons (cons 'checked? |gxc[1]#_g151319_|) - (cons (cons 'signature |gxc[1]#_g151320_|) - (cons (cons 'id |gxc[1]#_g151321_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150955 __tmp151317 '17 '#f '#f)) - (let ((__tmp151322 - (cons (cons 'slot |gxc[1]#_g151323_|) - (cons (cons 'checked? |gxc[1]#_g151324_|) - (cons (cons 'signature |gxc[1]#_g151325_|) - (cons (cons 'id |gxc[1]#_g151326_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150955 __tmp151322 '18 '#f '#f)) - (let ((__tmp151327 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) + (##unchecked-structure-set! __obj152087 __tmp152454 '18 '#f '#f)) + (let ((__tmp152459 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150955 __tmp151327 '19 '#f '#f)) + (##unchecked-structure-set! __obj152087 __tmp152459 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150955 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152087 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150955 '() '20 '#f '#f)) - __obj150955)) + (##unchecked-structure-set! __obj152087 '() '20 '#f '#f)) + __obj152087)) (define |gxc[:0:]#!mutator| - (let ((__obj150956 + (let ((__obj152088 (let () (declare (not safe)) (##structure @@ -3631,85 +3631,85 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150956 'gxc#!mutator::t '1 '#f '#f)) + (##unchecked-structure-set! __obj152088 'gxc#!mutator::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150956 '!mutator '2 '#f '#f)) + (##unchecked-structure-set! __obj152088 '!mutator '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150956 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj152088 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150956 + __obj152088 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp151328 (cons |gxc[1]#_g151260_| '()))) + (let ((__tmp152460 (cons |gxc[1]#_g152392_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150956 __tmp151328 '3 '#f '#f)) + (##unchecked-structure-set! __obj152088 __tmp152460 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150956 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152088 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150956 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152088 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150956 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152088 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150956 ':init! '11 '#f '#f)) - (let ((__tmp151329 |gxc[1]#_g151330_|)) + (##unchecked-structure-set! __obj152088 ':init! '11 '#f '#f)) + (let ((__tmp152461 |gxc[1]#_g152462_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150956 __tmp151329 '12 '#f '#f)) - (let ((__tmp151331 |gxc[1]#_g151332_|)) + (##unchecked-structure-set! __obj152088 __tmp152461 '12 '#f '#f)) + (let ((__tmp152463 |gxc[1]#_g152464_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150956 __tmp151331 '13 '#f '#f)) - (let ((__tmp151333 |gxc[1]#_g151334_|)) + (##unchecked-structure-set! __obj152088 __tmp152463 '13 '#f '#f)) + (let ((__tmp152465 |gxc[1]#_g152466_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150956 __tmp151333 '14 '#f '#f)) - (let ((__tmp151335 - (cons (cons 'slot |gxc[1]#_g151336_|) - (cons (cons 'checked? |gxc[1]#_g151337_|) - (cons (cons 'signature |gxc[1]#_g151338_|) - (cons (cons 'id |gxc[1]#_g151339_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150956 __tmp151335 '15 '#f '#f)) - (let ((__tmp151340 - (cons (cons 'slot |gxc[1]#_g151341_|) - (cons (cons 'checked? |gxc[1]#_g151342_|) - (cons (cons 'signature |gxc[1]#_g151343_|) - (cons (cons 'id |gxc[1]#_g151344_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150956 __tmp151340 '16 '#f '#f)) - (let ((__tmp151345 - (cons (cons 'slot |gxc[1]#_g151346_|) - (cons (cons 'checked? |gxc[1]#_g151347_|) - (cons (cons 'signature |gxc[1]#_g151348_|) - (cons (cons 'id |gxc[1]#_g151349_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150956 __tmp151345 '17 '#f '#f)) - (let ((__tmp151350 - (cons (cons 'slot |gxc[1]#_g151351_|) - (cons (cons 'checked? |gxc[1]#_g151352_|) - (cons (cons 'signature |gxc[1]#_g151353_|) - (cons (cons 'id |gxc[1]#_g151354_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150956 __tmp151350 '18 '#f '#f)) - (let ((__tmp151355 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) + (##unchecked-structure-set! __obj152088 __tmp152482 '18 '#f '#f)) + (let ((__tmp152487 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150956 __tmp151355 '19 '#f '#f)) + (##unchecked-structure-set! __obj152088 __tmp152487 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150956 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152088 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150956 '() '20 '#f '#f)) - __obj150956)) + (##unchecked-structure-set! __obj152088 '() '20 '#f '#f)) + __obj152088)) (define |gxc[:0:]#!interface| - (let ((__obj150957 + (let ((__obj152089 (let () (declare (not safe)) (##structure @@ -3738,76 +3738,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150957 + __obj152089 'gxc#!interface::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150957 '!interface '2 '#f '#f)) + (##unchecked-structure-set! __obj152089 '!interface '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150957 '(methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj152089 '(methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150957 '(id methods) '6 '#f '#f)) - (let ((__tmp151356 (cons |gxc[1]#_g151103_| '()))) + (##unchecked-structure-set! __obj152089 '(id methods) '6 '#f '#f)) + (let ((__tmp152488 (cons |gxc[1]#_g152235_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150957 __tmp151356 '3 '#f '#f)) + (##unchecked-structure-set! __obj152089 __tmp152488 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150957 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152089 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150957 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152089 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150957 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152089 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150957 '#f '11 '#f '#f)) - (let ((__tmp151357 |gxc[1]#_g151358_|)) + (##unchecked-structure-set! __obj152089 '#f '11 '#f '#f)) + (let ((__tmp152489 |gxc[1]#_g152490_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150957 __tmp151357 '12 '#f '#f)) - (let ((__tmp151359 |gxc[1]#_g151360_|)) + (##unchecked-structure-set! __obj152089 __tmp152489 '12 '#f '#f)) + (let ((__tmp152491 |gxc[1]#_g152492_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150957 __tmp151359 '13 '#f '#f)) - (let ((__tmp151361 |gxc[1]#_g151362_|)) + (##unchecked-structure-set! __obj152089 __tmp152491 '13 '#f '#f)) + (let ((__tmp152493 |gxc[1]#_g152494_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150957 __tmp151361 '14 '#f '#f)) - (let ((__tmp151363 - (cons (cons 'methods |gxc[1]#_g151364_|) - (cons (cons 'id |gxc[1]#_g151365_|) '())))) + (##unchecked-structure-set! __obj152089 __tmp152493 '14 '#f '#f)) + (let ((__tmp152495 + (cons (cons 'methods |gxc[1]#_g152496_|) + (cons (cons 'id |gxc[1]#_g152497_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150957 __tmp151363 '15 '#f '#f)) - (let ((__tmp151366 - (cons (cons 'methods |gxc[1]#_g151367_|) - (cons (cons 'id |gxc[1]#_g151368_|) '())))) + (##unchecked-structure-set! __obj152089 __tmp152495 '15 '#f '#f)) + (let ((__tmp152498 + (cons (cons 'methods |gxc[1]#_g152499_|) + (cons (cons 'id |gxc[1]#_g152500_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150957 __tmp151366 '16 '#f '#f)) - (let ((__tmp151369 - (cons (cons 'methods |gxc[1]#_g151370_|) - (cons (cons 'id |gxc[1]#_g151371_|) '())))) + (##unchecked-structure-set! __obj152089 __tmp152498 '16 '#f '#f)) + (let ((__tmp152501 + (cons (cons 'methods |gxc[1]#_g152502_|) + (cons (cons 'id |gxc[1]#_g152503_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150957 __tmp151369 '17 '#f '#f)) - (let ((__tmp151372 - (cons (cons 'methods |gxc[1]#_g151373_|) - (cons (cons 'id |gxc[1]#_g151374_|) '())))) + (##unchecked-structure-set! __obj152089 __tmp152501 '17 '#f '#f)) + (let ((__tmp152504 + (cons (cons 'methods |gxc[1]#_g152505_|) + (cons (cons 'id |gxc[1]#_g152506_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150957 __tmp151372 '18 '#f '#f)) + (##unchecked-structure-set! __obj152089 __tmp152504 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150957 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152089 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150957 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152089 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150957 '() '20 '#f '#f)) - __obj150957)) + (##unchecked-structure-set! __obj152089 '() '20 '#f '#f)) + __obj152089)) (define |gxc[:0:]#!lambda| - (let ((__obj150958 + (let ((__obj152090 (let () (declare (not safe)) (##structure @@ -3835,14 +3835,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150958 'gxc#!lambda::t '1 '#f '#f)) + (##unchecked-structure-set! __obj152090 'gxc#!lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150958 '!lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj152090 '!lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150958 + __obj152090 '(arity dispatch inline inline-typedecl) '4 '#f @@ -3850,99 +3850,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150958 + __obj152090 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp151375 (cons |gxc[1]#_g151260_| '()))) + (let ((__tmp152507 (cons |gxc[1]#_g152392_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150958 __tmp151375 '3 '#f '#f)) + (##unchecked-structure-set! __obj152090 __tmp152507 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150958 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152090 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150958 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152090 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150958 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152090 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150958 ':init! '11 '#f '#f)) - (let ((__tmp151376 |gxc[1]#_g151377_|)) + (##unchecked-structure-set! __obj152090 ':init! '11 '#f '#f)) + (let ((__tmp152508 |gxc[1]#_g152509_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150958 __tmp151376 '12 '#f '#f)) - (let ((__tmp151378 |gxc[1]#_g151379_|)) + (##unchecked-structure-set! __obj152090 __tmp152508 '12 '#f '#f)) + (let ((__tmp152510 |gxc[1]#_g152511_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150958 __tmp151378 '13 '#f '#f)) - (let ((__tmp151380 |gxc[1]#_g151381_|)) + (##unchecked-structure-set! __obj152090 __tmp152510 '13 '#f '#f)) + (let ((__tmp152512 |gxc[1]#_g152513_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150958 __tmp151380 '14 '#f '#f)) - (let ((__tmp151382 - (cons (cons 'arity |gxc[1]#_g151383_|) - (cons (cons 'dispatch |gxc[1]#_g151384_|) - (cons (cons 'inline |gxc[1]#_g151385_|) + (##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_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151386_|) + |gxc[1]#_g152518_|) (cons (cons 'signature - |gxc[1]#_g151387_|) + |gxc[1]#_g152519_|) (cons (cons 'id - |gxc[1]#_g151388_|) + |gxc[1]#_g152520_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150958 __tmp151382 '15 '#f '#f)) - (let ((__tmp151389 - (cons (cons 'arity |gxc[1]#_g151390_|) - (cons (cons 'dispatch |gxc[1]#_g151391_|) - (cons (cons 'inline |gxc[1]#_g151392_|) + (##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_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151393_|) + |gxc[1]#_g152525_|) (cons (cons 'signature - |gxc[1]#_g151394_|) + |gxc[1]#_g152526_|) (cons (cons 'id - |gxc[1]#_g151395_|) + |gxc[1]#_g152527_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150958 __tmp151389 '16 '#f '#f)) - (let ((__tmp151396 - (cons (cons 'arity |gxc[1]#_g151397_|) - (cons (cons 'dispatch |gxc[1]#_g151398_|) - (cons (cons 'inline |gxc[1]#_g151399_|) + (##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_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151400_|) + |gxc[1]#_g152532_|) (cons (cons 'signature - |gxc[1]#_g151401_|) + |gxc[1]#_g152533_|) (cons (cons 'id - |gxc[1]#_g151402_|) + |gxc[1]#_g152534_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150958 __tmp151396 '17 '#f '#f)) - (let ((__tmp151403 - (cons (cons 'arity |gxc[1]#_g151404_|) - (cons (cons 'dispatch |gxc[1]#_g151405_|) - (cons (cons 'inline |gxc[1]#_g151406_|) + (##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_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151407_|) + |gxc[1]#_g152539_|) (cons (cons 'signature - |gxc[1]#_g151408_|) + |gxc[1]#_g152540_|) (cons (cons 'id - |gxc[1]#_g151409_|) + |gxc[1]#_g152541_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150958 __tmp151403 '18 '#f '#f)) - (let ((__tmp151410 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) + (##unchecked-structure-set! __obj152090 __tmp152535 '18 '#f '#f)) + (let ((__tmp152542 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150958 __tmp151410 '19 '#f '#f)) + (##unchecked-structure-set! __obj152090 __tmp152542 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150958 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152090 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150958 '() '20 '#f '#f)) - __obj150958)) + (##unchecked-structure-set! __obj152090 '() '20 '#f '#f)) + __obj152090)) (define |gxc[:0:]#!case-lambda| - (let ((__obj150959 + (let ((__obj152091 (let () (declare (not safe)) (##structure @@ -3971,85 +3971,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150959 + __obj152091 'gxc#!case-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150959 '!case-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj152091 '!case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150959 '(clauses) '4 '#f '#f)) + (##unchecked-structure-set! __obj152091 '(clauses) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150959 + __obj152091 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp151411 (cons |gxc[1]#_g151260_| '()))) + (let ((__tmp152543 (cons |gxc[1]#_g152392_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150959 __tmp151411 '3 '#f '#f)) + (##unchecked-structure-set! __obj152091 __tmp152543 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150959 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152091 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150959 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152091 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150959 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152091 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150959 ':init! '11 '#f '#f)) - (let ((__tmp151412 |gxc[1]#_g151413_|)) + (##unchecked-structure-set! __obj152091 ':init! '11 '#f '#f)) + (let ((__tmp152544 |gxc[1]#_g152545_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150959 __tmp151412 '12 '#f '#f)) - (let ((__tmp151414 |gxc[1]#_g151415_|)) + (##unchecked-structure-set! __obj152091 __tmp152544 '12 '#f '#f)) + (let ((__tmp152546 |gxc[1]#_g152547_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150959 __tmp151414 '13 '#f '#f)) - (let ((__tmp151416 |gxc[1]#_g151417_|)) + (##unchecked-structure-set! __obj152091 __tmp152546 '13 '#f '#f)) + (let ((__tmp152548 |gxc[1]#_g152549_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150959 __tmp151416 '14 '#f '#f)) - (let ((__tmp151418 - (cons (cons 'clauses |gxc[1]#_g151419_|) - (cons (cons 'signature |gxc[1]#_g151420_|) - (cons (cons 'id |gxc[1]#_g151421_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150959 __tmp151418 '15 '#f '#f)) - (let ((__tmp151422 - (cons (cons 'clauses |gxc[1]#_g151423_|) - (cons (cons 'signature |gxc[1]#_g151424_|) - (cons (cons 'id |gxc[1]#_g151425_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150959 __tmp151422 '16 '#f '#f)) - (let ((__tmp151426 - (cons (cons 'clauses |gxc[1]#_g151427_|) - (cons (cons 'signature |gxc[1]#_g151428_|) - (cons (cons 'id |gxc[1]#_g151429_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150959 __tmp151426 '17 '#f '#f)) - (let ((__tmp151430 - (cons (cons 'clauses |gxc[1]#_g151431_|) - (cons (cons 'signature |gxc[1]#_g151432_|) - (cons (cons 'id |gxc[1]#_g151433_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150959 __tmp151430 '18 '#f '#f)) - (let ((__tmp151434 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) + (##unchecked-structure-set! __obj152091 __tmp152562 '18 '#f '#f)) + (let ((__tmp152566 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150959 __tmp151434 '19 '#f '#f)) + (##unchecked-structure-set! __obj152091 __tmp152566 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150959 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152091 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150959 '() '20 '#f '#f)) - __obj150959)) + (##unchecked-structure-set! __obj152091 '() '20 '#f '#f)) + __obj152091)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj150960 + (let ((__obj152092 (let () (declare (not safe)) (##structure @@ -4078,18 +4078,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150960 + __obj152092 'gxc#!kw-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150960 '!kw-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj152092 '!kw-lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150960 + __obj152092 '(table dispatch) '4 '#f @@ -4097,75 +4097,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150960 + __obj152092 '(id signature table dispatch) '6 '#f '#f)) - (let ((__tmp151435 (cons |gxc[1]#_g151260_| '()))) + (let ((__tmp152567 (cons |gxc[1]#_g152392_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150960 __tmp151435 '3 '#f '#f)) + (##unchecked-structure-set! __obj152092 __tmp152567 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150960 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152092 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150960 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152092 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150960 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152092 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150960 ':init! '11 '#f '#f)) - (let ((__tmp151436 |gxc[1]#_g151437_|)) + (##unchecked-structure-set! __obj152092 ':init! '11 '#f '#f)) + (let ((__tmp152568 |gxc[1]#_g152569_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150960 __tmp151436 '12 '#f '#f)) - (let ((__tmp151438 |gxc[1]#_g151439_|)) + (##unchecked-structure-set! __obj152092 __tmp152568 '12 '#f '#f)) + (let ((__tmp152570 |gxc[1]#_g152571_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150960 __tmp151438 '13 '#f '#f)) - (let ((__tmp151440 |gxc[1]#_g151441_|)) + (##unchecked-structure-set! __obj152092 __tmp152570 '13 '#f '#f)) + (let ((__tmp152572 |gxc[1]#_g152573_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150960 __tmp151440 '14 '#f '#f)) - (let ((__tmp151442 - (cons (cons 'table |gxc[1]#_g151443_|) - (cons (cons 'dispatch |gxc[1]#_g151444_|) - (cons (cons 'signature |gxc[1]#_g151445_|) - (cons (cons 'id |gxc[1]#_g151446_|) '())))))) + (##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! __obj150960 __tmp151442 '15 '#f '#f)) - (let ((__tmp151447 - (cons (cons 'table |gxc[1]#_g151448_|) - (cons (cons 'dispatch |gxc[1]#_g151449_|) - (cons (cons 'signature |gxc[1]#_g151450_|) - (cons (cons 'id |gxc[1]#_g151451_|) '())))))) + (##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! __obj150960 __tmp151447 '16 '#f '#f)) - (let ((__tmp151452 - (cons (cons 'table |gxc[1]#_g151453_|) - (cons (cons 'dispatch |gxc[1]#_g151454_|) - (cons (cons 'signature |gxc[1]#_g151455_|) - (cons (cons 'id |gxc[1]#_g151456_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150960 __tmp151452 '17 '#f '#f)) - (let ((__tmp151457 - (cons (cons 'table |gxc[1]#_g151458_|) - (cons (cons 'dispatch |gxc[1]#_g151459_|) - (cons (cons 'signature |gxc[1]#_g151460_|) - (cons (cons 'id |gxc[1]#_g151461_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150960 __tmp151457 '18 '#f '#f)) - (let ((__tmp151462 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) + (##unchecked-structure-set! __obj152092 __tmp152589 '18 '#f '#f)) + (let ((__tmp152594 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150960 __tmp151462 '19 '#f '#f)) + (##unchecked-structure-set! __obj152092 __tmp152594 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150960 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152092 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150960 '() '20 '#f '#f)) - __obj150960)) + (##unchecked-structure-set! __obj152092 '() '20 '#f '#f)) + __obj152092)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj150961 + (let ((__obj152093 (let () (declare (not safe)) (##structure @@ -4194,7 +4194,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150961 + __obj152093 'gxc#!kw-lambda-primary::t '1 '#f @@ -4202,86 +4202,86 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150961 + __obj152093 '!kw-lambda-primary '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150961 '(keys main) '4 '#f '#f)) + (##unchecked-structure-set! __obj152093 '(keys main) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150961 + __obj152093 '(id signature keys main) '6 '#f '#f)) - (let ((__tmp151463 (cons |gxc[1]#_g151260_| '()))) + (let ((__tmp152595 (cons |gxc[1]#_g152392_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150961 __tmp151463 '3 '#f '#f)) + (##unchecked-structure-set! __obj152093 __tmp152595 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150961 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152093 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150961 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152093 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150961 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152093 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150961 ':init! '11 '#f '#f)) - (let ((__tmp151464 |gxc[1]#_g151465_|)) + (##unchecked-structure-set! __obj152093 ':init! '11 '#f '#f)) + (let ((__tmp152596 |gxc[1]#_g152597_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150961 __tmp151464 '12 '#f '#f)) - (let ((__tmp151466 |gxc[1]#_g151467_|)) + (##unchecked-structure-set! __obj152093 __tmp152596 '12 '#f '#f)) + (let ((__tmp152598 |gxc[1]#_g152599_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150961 __tmp151466 '13 '#f '#f)) - (let ((__tmp151468 |gxc[1]#_g151469_|)) + (##unchecked-structure-set! __obj152093 __tmp152598 '13 '#f '#f)) + (let ((__tmp152600 |gxc[1]#_g152601_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150961 __tmp151468 '14 '#f '#f)) - (let ((__tmp151470 - (cons (cons 'keys |gxc[1]#_g151471_|) - (cons (cons 'main |gxc[1]#_g151472_|) - (cons (cons 'signature |gxc[1]#_g151473_|) - (cons (cons 'id |gxc[1]#_g151474_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150961 __tmp151470 '15 '#f '#f)) - (let ((__tmp151475 - (cons (cons 'keys |gxc[1]#_g151476_|) - (cons (cons 'main |gxc[1]#_g151477_|) - (cons (cons 'signature |gxc[1]#_g151478_|) - (cons (cons 'id |gxc[1]#_g151479_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150961 __tmp151475 '16 '#f '#f)) - (let ((__tmp151480 - (cons (cons 'keys |gxc[1]#_g151481_|) - (cons (cons 'main |gxc[1]#_g151482_|) - (cons (cons 'signature |gxc[1]#_g151483_|) - (cons (cons 'id |gxc[1]#_g151484_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150961 __tmp151480 '17 '#f '#f)) - (let ((__tmp151485 - (cons (cons 'keys |gxc[1]#_g151486_|) - (cons (cons 'main |gxc[1]#_g151487_|) - (cons (cons 'signature |gxc[1]#_g151488_|) - (cons (cons 'id |gxc[1]#_g151489_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150961 __tmp151485 '18 '#f '#f)) - (let ((__tmp151490 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) + (##unchecked-structure-set! __obj152093 __tmp152617 '18 '#f '#f)) + (let ((__tmp152622 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150961 __tmp151490 '19 '#f '#f)) + (##unchecked-structure-set! __obj152093 __tmp152622 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150961 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152093 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150961 '() '20 '#f '#f)) - __obj150961)) + (##unchecked-structure-set! __obj152093 '() '20 '#f '#f)) + __obj152093)) (define |gxc[:0:]#!primitive| - (let ((__obj150962 + (let ((__obj152094 (let () (declare (not safe)) (##structure @@ -4310,68 +4310,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150962 + __obj152094 'gxc#!primitive::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '!primitive '2 '#f '#f)) + (##unchecked-structure-set! __obj152094 '!primitive '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152094 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj152094 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj152094 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj152094 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152094 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152094 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '#f '11 '#f '#f)) - (let ((__tmp151491 |gxc[1]#_g151492_|)) + (##unchecked-structure-set! __obj152094 '#f '11 '#f '#f)) + (let ((__tmp152623 |gxc[1]#_g152624_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150962 __tmp151491 '12 '#f '#f)) - (let ((__tmp151493 |gxc[1]#_g151494_|)) + (##unchecked-structure-set! __obj152094 __tmp152623 '12 '#f '#f)) + (let ((__tmp152625 |gxc[1]#_g152626_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150962 __tmp151493 '13 '#f '#f)) - (let ((__tmp151495 |gxc[1]#_g151496_|)) + (##unchecked-structure-set! __obj152094 __tmp152625 '13 '#f '#f)) + (let ((__tmp152627 |gxc[1]#_g152628_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150962 __tmp151495 '14 '#f '#f)) + (##unchecked-structure-set! __obj152094 __tmp152627 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj152094 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj152094 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj152094 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj152094 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152094 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152094 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150962 '() '20 '#f '#f)) - __obj150962)) + (##unchecked-structure-set! __obj152094 '() '20 '#f '#f)) + __obj152094)) (define |gxc[:0:]#!primitive-predicate| - (let ((__obj150963 + (let ((__obj152095 (let () (declare (not safe)) (##structure @@ -4400,7 +4400,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150963 + __obj152095 'gxc#!primitive-predicate::t '1 '#f @@ -4408,74 +4408,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150963 + __obj152095 '!primitive-predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150963 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152095 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150963 '(id signature) '6 '#f '#f)) - (let ((__tmp151497 - (cons |gxc[1]#_g151498_| (cons |gxc[1]#_g151260_| '())))) + (##unchecked-structure-set! __obj152095 '(id signature) '6 '#f '#f)) + (let ((__tmp152629 + (cons |gxc[1]#_g152630_| (cons |gxc[1]#_g152392_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150963 __tmp151497 '3 '#f '#f)) + (##unchecked-structure-set! __obj152095 __tmp152629 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150963 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152095 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150963 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152095 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150963 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152095 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150963 ':init! '11 '#f '#f)) - (let ((__tmp151499 |gxc[1]#_g151500_|)) + (##unchecked-structure-set! __obj152095 ':init! '11 '#f '#f)) + (let ((__tmp152631 |gxc[1]#_g152632_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150963 __tmp151499 '12 '#f '#f)) - (let ((__tmp151501 |gxc[1]#_g151502_|)) + (##unchecked-structure-set! __obj152095 __tmp152631 '12 '#f '#f)) + (let ((__tmp152633 |gxc[1]#_g152634_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150963 __tmp151501 '13 '#f '#f)) - (let ((__tmp151503 |gxc[1]#_g151504_|)) + (##unchecked-structure-set! __obj152095 __tmp152633 '13 '#f '#f)) + (let ((__tmp152635 |gxc[1]#_g152636_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150963 __tmp151503 '14 '#f '#f)) - (let ((__tmp151505 - (cons (cons 'signature |gxc[1]#_g151506_|) - (cons (cons 'id |gxc[1]#_g151507_|) '())))) + (##unchecked-structure-set! __obj152095 __tmp152635 '14 '#f '#f)) + (let ((__tmp152637 + (cons (cons 'signature |gxc[1]#_g152638_|) + (cons (cons 'id |gxc[1]#_g152639_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150963 __tmp151505 '15 '#f '#f)) - (let ((__tmp151508 - (cons (cons 'signature |gxc[1]#_g151509_|) - (cons (cons 'id |gxc[1]#_g151510_|) '())))) + (##unchecked-structure-set! __obj152095 __tmp152637 '15 '#f '#f)) + (let ((__tmp152640 + (cons (cons 'signature |gxc[1]#_g152641_|) + (cons (cons 'id |gxc[1]#_g152642_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150963 __tmp151508 '16 '#f '#f)) - (let ((__tmp151511 - (cons (cons 'signature |gxc[1]#_g151512_|) - (cons (cons 'id |gxc[1]#_g151513_|) '())))) + (##unchecked-structure-set! __obj152095 __tmp152640 '16 '#f '#f)) + (let ((__tmp152643 + (cons (cons 'signature |gxc[1]#_g152644_|) + (cons (cons 'id |gxc[1]#_g152645_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150963 __tmp151511 '17 '#f '#f)) - (let ((__tmp151514 - (cons (cons 'signature |gxc[1]#_g151515_|) - (cons (cons 'id |gxc[1]#_g151516_|) '())))) + (##unchecked-structure-set! __obj152095 __tmp152643 '17 '#f '#f)) + (let ((__tmp152646 + (cons (cons 'signature |gxc[1]#_g152647_|) + (cons (cons 'id |gxc[1]#_g152648_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150963 __tmp151514 '18 '#f '#f)) - (let ((__tmp151517 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) + (##unchecked-structure-set! __obj152095 __tmp152646 '18 '#f '#f)) + (let ((__tmp152649 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150963 __tmp151517 '19 '#f '#f)) + (##unchecked-structure-set! __obj152095 __tmp152649 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150963 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152095 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150963 '() '20 '#f '#f)) - __obj150963)) + (##unchecked-structure-set! __obj152095 '() '20 '#f '#f)) + __obj152095)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj150964 + (let ((__obj152096 (let () (declare (not safe)) (##structure @@ -4504,7 +4504,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150964 + __obj152096 'gxc#!primitive-lambda::t '1 '#f @@ -4512,111 +4512,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150964 + __obj152096 '!primitive-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150964 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152096 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150964 + __obj152096 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp151518 - (cons |gxc[1]#_g151498_| (cons |gxc[1]#_g151519_| '())))) + (let ((__tmp152650 + (cons |gxc[1]#_g152630_| (cons |gxc[1]#_g152651_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150964 __tmp151518 '3 '#f '#f)) + (##unchecked-structure-set! __obj152096 __tmp152650 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150964 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152096 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150964 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152096 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150964 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152096 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150964 ':init! '11 '#f '#f)) - (let ((__tmp151520 |gxc[1]#_g151521_|)) + (##unchecked-structure-set! __obj152096 ':init! '11 '#f '#f)) + (let ((__tmp152652 |gxc[1]#_g152653_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150964 __tmp151520 '12 '#f '#f)) - (let ((__tmp151522 |gxc[1]#_g151523_|)) + (##unchecked-structure-set! __obj152096 __tmp152652 '12 '#f '#f)) + (let ((__tmp152654 |gxc[1]#_g152655_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150964 __tmp151522 '13 '#f '#f)) - (let ((__tmp151524 |gxc[1]#_g151525_|)) + (##unchecked-structure-set! __obj152096 __tmp152654 '13 '#f '#f)) + (let ((__tmp152656 |gxc[1]#_g152657_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150964 __tmp151524 '14 '#f '#f)) - (let ((__tmp151526 - (cons (cons 'arity |gxc[1]#_g151527_|) - (cons (cons 'dispatch |gxc[1]#_g151528_|) - (cons (cons 'inline |gxc[1]#_g151529_|) + (##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_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151530_|) + |gxc[1]#_g152662_|) (cons (cons 'signature - |gxc[1]#_g151531_|) + |gxc[1]#_g152663_|) (cons (cons 'id - |gxc[1]#_g151532_|) + |gxc[1]#_g152664_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150964 __tmp151526 '15 '#f '#f)) - (let ((__tmp151533 - (cons (cons 'arity |gxc[1]#_g151534_|) - (cons (cons 'dispatch |gxc[1]#_g151535_|) - (cons (cons 'inline |gxc[1]#_g151536_|) + (##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_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151537_|) + |gxc[1]#_g152669_|) (cons (cons 'signature - |gxc[1]#_g151538_|) + |gxc[1]#_g152670_|) (cons (cons 'id - |gxc[1]#_g151539_|) + |gxc[1]#_g152671_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150964 __tmp151533 '16 '#f '#f)) - (let ((__tmp151540 - (cons (cons 'arity |gxc[1]#_g151541_|) - (cons (cons 'dispatch |gxc[1]#_g151542_|) - (cons (cons 'inline |gxc[1]#_g151543_|) + (##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_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151544_|) + |gxc[1]#_g152676_|) (cons (cons 'signature - |gxc[1]#_g151545_|) + |gxc[1]#_g152677_|) (cons (cons 'id - |gxc[1]#_g151546_|) + |gxc[1]#_g152678_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150964 __tmp151540 '17 '#f '#f)) - (let ((__tmp151547 - (cons (cons 'arity |gxc[1]#_g151548_|) - (cons (cons 'dispatch |gxc[1]#_g151549_|) - (cons (cons 'inline |gxc[1]#_g151550_|) + (##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_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151551_|) + |gxc[1]#_g152683_|) (cons (cons 'signature - |gxc[1]#_g151552_|) + |gxc[1]#_g152684_|) (cons (cons 'id - |gxc[1]#_g151553_|) + |gxc[1]#_g152685_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150964 __tmp151547 '18 '#f '#f)) - (let ((__tmp151554 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) + (##unchecked-structure-set! __obj152096 __tmp152679 '18 '#f '#f)) + (let ((__tmp152686 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150964 __tmp151554 '19 '#f '#f)) + (##unchecked-structure-set! __obj152096 __tmp152686 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150964 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152096 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150964 '() '20 '#f '#f)) - __obj150964)) + (##unchecked-structure-set! __obj152096 '() '20 '#f '#f)) + __obj152096)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj150965 + (let ((__obj152097 (let () (declare (not safe)) (##structure @@ -4645,7 +4645,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150965 + __obj152097 'gxc#!primitive-case-lambda::t '1 '#f @@ -4653,78 +4653,78 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150965 + __obj152097 '!primitive-case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150965 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152097 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150965 + __obj152097 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp151555 - (cons |gxc[1]#_g151498_| (cons |gxc[1]#_g151556_| '())))) + (let ((__tmp152687 + (cons |gxc[1]#_g152630_| (cons |gxc[1]#_g152688_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150965 __tmp151555 '3 '#f '#f)) + (##unchecked-structure-set! __obj152097 __tmp152687 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150965 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152097 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150965 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152097 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150965 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152097 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150965 ':init! '11 '#f '#f)) - (let ((__tmp151557 |gxc[1]#_g151558_|)) + (##unchecked-structure-set! __obj152097 ':init! '11 '#f '#f)) + (let ((__tmp152689 |gxc[1]#_g152690_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150965 __tmp151557 '12 '#f '#f)) - (let ((__tmp151559 |gxc[1]#_g151560_|)) + (##unchecked-structure-set! __obj152097 __tmp152689 '12 '#f '#f)) + (let ((__tmp152691 |gxc[1]#_g152692_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150965 __tmp151559 '13 '#f '#f)) - (let ((__tmp151561 |gxc[1]#_g151562_|)) + (##unchecked-structure-set! __obj152097 __tmp152691 '13 '#f '#f)) + (let ((__tmp152693 |gxc[1]#_g152694_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150965 __tmp151561 '14 '#f '#f)) - (let ((__tmp151563 - (cons (cons 'clauses |gxc[1]#_g151564_|) - (cons (cons 'signature |gxc[1]#_g151565_|) - (cons (cons 'id |gxc[1]#_g151566_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150965 __tmp151563 '15 '#f '#f)) - (let ((__tmp151567 - (cons (cons 'clauses |gxc[1]#_g151568_|) - (cons (cons 'signature |gxc[1]#_g151569_|) - (cons (cons 'id |gxc[1]#_g151570_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150965 __tmp151567 '16 '#f '#f)) - (let ((__tmp151571 - (cons (cons 'clauses |gxc[1]#_g151572_|) - (cons (cons 'signature |gxc[1]#_g151573_|) - (cons (cons 'id |gxc[1]#_g151574_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150965 __tmp151571 '17 '#f '#f)) - (let ((__tmp151575 - (cons (cons 'clauses |gxc[1]#_g151576_|) - (cons (cons 'signature |gxc[1]#_g151577_|) - (cons (cons 'id |gxc[1]#_g151578_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150965 __tmp151575 '18 '#f '#f)) - (let ((__tmp151579 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) + (##unchecked-structure-set! __obj152097 __tmp152707 '18 '#f '#f)) + (let ((__tmp152711 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150965 __tmp151579 '19 '#f '#f)) + (##unchecked-structure-set! __obj152097 __tmp152711 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150965 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152097 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150965 '() '20 '#f '#f)) - __obj150965)))) + (##unchecked-structure-set! __obj152097 '() '20 '#f '#f)) + __obj152097)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~0.scm b/src/bootstrap/gerbil/compiler/optimize-call~0.scm index 787af5906..e1ef26713 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 1713454417) + (define gerbil/compiler/optimize-call::timestamp 1713631273) (begin (define gxc#::optimize-call::t - (let ((__tmp196016 (list gxc#::basic-xform::t)) - (__tmp196015 (cons (cons 'final: '#t) '()))) + (let ((__tmp197148 (list gxc#::basic-xform::t)) + (__tmp197147 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-call::t '::optimize-call - __tmp196016 + __tmp197148 '() - __tmp196015 + __tmp197147 '#f))) (define gxc#::optimize-call? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-call::t))) (define gxc#make-::optimize-call - (lambda _%$args195293%_ - (apply make-instance gxc#::optimize-call::t _%$args195293%_))) + (lambda _%$args196425%_ + (apply make-instance gxc#::optimize-call::t _%$args196425%_))) (define gxc#::optimize-call-bind-methods! - (let ((__tmp196017 + (let ((__tmp197149 (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 __tmp196017))) + (__make-promise __tmp197149))) (define gxc#apply-optimize-call - (lambda (_%stx195285%_) + (lambda (_%stx196417%_) (force gxc#::optimize-call-bind-methods!) - (let* ((_%self195288%_ - (let ((__obj196007 + (let* ((_%self196420%_ + (let ((__obj197139 (let () (declare (not safe)) (##structure gxc#::optimize-call::t)))) - __obj196007)) - (__tmp196018 + __obj197139)) + (__tmp197150 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self195288%_ _%stx195285%_))))) + (gxc#compile-e__1 _%self196420%_ _%stx196417%_))))) (declare (not safe)) (__call-with-parameters - __tmp196018 + __tmp197150 gxc#current-compile-method - _%self195288%_)))) + _%self196420%_)))) (define gxc#::check-return-type::t - (let ((__tmp196020 (list gxc#::void::t)) - (__tmp196019 (cons (cons 'final: '#t) '()))) + (let ((__tmp197152 (list gxc#::void::t)) + (__tmp197151 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::check-return-type::t '::check-return-type - __tmp196020 + __tmp197152 '() - __tmp196019 + __tmp197151 '#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 _%$args195282%_ - (apply make-instance gxc#::check-return-type::t _%$args195282%_))) + (lambda _%$args196414%_ + (apply make-instance gxc#::check-return-type::t _%$args196414%_))) (define gxc#::check-return-type-bind-methods! - (let ((__tmp196021 + (let ((__tmp197153 (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 __tmp196021))) + (__make-promise __tmp197153))) (define gxc#apply-check-return-type - (lambda (_%stx195274%_) + (lambda (_%stx196406%_) (force gxc#::check-return-type-bind-methods!) - (let* ((_%self195277%_ - (let ((__obj196009 + (let* ((_%self196409%_ + (let ((__obj197141 (let () (declare (not safe)) (##structure gxc#::check-return-type::t)))) - __obj196009)) - (__tmp196022 + __obj197141)) + (__tmp197154 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self195277%_ _%stx195274%_))))) + (gxc#compile-e__1 _%self196409%_ _%stx196406%_))))) (declare (not safe)) (__call-with-parameters - __tmp196022 + __tmp197154 gxc#current-compile-method - _%self195277%_)))) + _%self196409%_)))) (define gxc#optimize-call% - (lambda (_%self194875%_ _%stx194876%_) - (let* ((_%__stx195362195363%_ _%stx194876%_) - (_%g194879194925%_ + (lambda (_%self196007%_ _%stx196008%_) + (let* ((_%__stx196494196495%_ _%stx196008%_) + (_%g196011196057%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195362195363%_))))) - (let ((_%__kont195364195365%_ - (lambda (_%L195068%_ _%L195069%_) - (let* ((_%rator-id195089%_ + _%__stx196494196495%_))))) + (let ((_%__kont196496196497%_ + (lambda (_%L196200%_ _%L196201%_) + (let* ((_%rator-id196221%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L195069%_))) - (_%rator-type195091%_ + (gxc#identifier-symbol _%L196201%_))) + (_%rator-type196223%_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _%rator-id195089%_)))) - (if (or (not _%rator-type195091%_) + (gxc#optimizer-resolve-type _%rator-id196221%_)))) + (if (or (not _%rator-type196223%_) (eq? (##structure-ref - _%rator-type195091%_ + _%rator-type196223%_ '1 gxc#!type::t '#f) 't)) (let () (declare (not safe)) - (gxc#xform-call% _%self194875%_ _%stx194876%_)) + (gxc#xform-call% _%self196007%_ _%stx196008%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type195091%_ + _%rator-type196223%_ 'gxc#!procedure::t)) (let () - (let ((__tmp196023 + (let ((__tmp197155 (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type195091%_ + _%rator-type196223%_ '1 '#f '#f)))) (declare (not safe)) (gxc#verbose '"optimize-call " - _%rator-id195089%_ + _%rator-id196221%_ '" => " - _%rator-type195091%_ + _%rator-type196223%_ '" " - __tmp196023)) - (let* ((_%optimized195106%_ - (let ((__method196010 + __tmp197155)) + (let* ((_%optimized196238%_ + (let ((__method197142 (let () (declare (not safe)) (__method-ref - _%rator-type195091%_ + _%rator-type196223%_ 'optimize-call)))) - (if __method196010 - (let ((__tmp196024 - (let ((__tmp196025 - (lambda (_%g195098195101%_ + (if __method197142 + (let ((__tmp197156 + (let ((__tmp197157 + (lambda (_%g196230196233%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g195099195103%_) - (cons _%g195098195101%_ _%g195099195103%_)))) + _%g196231196235%_) + (cons _%g196230196233%_ _%g196231196235%_)))) (declare (not safe)) - (__foldr1 __tmp196025 '() _%L195068%_)))) + (__foldr1 __tmp197157 '() _%L196200%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (__method196010 - _%rator-type195091%_ - _%self194875%_ - _%stx194876%_ - __tmp196024)) + (__method197142 + _%rator-type196223%_ + _%self196007%_ + _%stx196008%_ + __tmp197156)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type195091%_ + _%rator-type196223%_ 'optimize-call)) '#!void)))) - (_%__stx195310195311%_ - _%optimized195106%_) - (_%g195109195138%_ + (_%__stx196442196443%_ + _%optimized196238%_) + (_%g196241196270%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195310195311%_))))) - (let ((_%__kont195312195313%_ - (lambda (_%L195206%_ _%L195207%_) - (let* ((_%optimized-rator-id195234%_ + _%__stx196442196443%_))))) + (let ((_%__kont196444196445%_ + (lambda (_%L196338%_ _%L196339%_) + (let* ((_%optimized-rator-id196366%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L195207%_))) - (_%rator-type195239%_ - (let ((_%$e195236%_ + _%L196339%_))) + (_%rator-type196371%_ + (let ((_%$e196368%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%optimized-rator-id195234%_)))) - (if _%$e195236%_ - _%$e195236%_ - _%rator-type195091%_)))) + _%optimized-rator-id196366%_)))) + (if _%$e196368%_ + _%$e196368%_ + _%rator-type196223%_)))) (if (or (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type195239%_)) + _%rator-type196371%_)) (let () (declare (not safe)) - (##memq _%optimized-rator-id195234%_ + (##memq _%optimized-rator-id196366%_ gxc#checked-primitives)) (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type195239%_ + _%rator-type196371%_ 'gxc#!procedure::t)) (eq? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#!procedure-origin _%rator-type195239%_)) + (gxc#!procedure-origin _%rator-type196371%_)) (##structure-ref (let () (declare (not safe)) @@ -326,226 +326,226 @@ gx#expander-context::t '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%optimized195106%_ - (let ((__tmp196026 + _%optimized196238%_ + (let ((__tmp197158 (cons '%#call-unchecked (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L195207%_ '())) - (let ((__tmp196027 - (lambda (_%g195247195250%_ _%g195248195252%_) - (cons _%g195247195250%_ - _%g195248195252%_)))) + (cons _%L196339%_ '())) + (let ((__tmp197159 + (lambda (_%g196379196382%_ _%g196380196384%_) + (cons _%g196379196382%_ + _%g196380196384%_)))) (declare (not safe)) - (__foldr1 __tmp196027 '() _%L195206%_)))))) + (__foldr1 __tmp197159 '() _%L196338%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196026 - _%stx194876%_)))))) - (_%__kont195316195317%_ - (lambda () _%optimized195106%_))) - (let ((_%__match195359195360%_ - (lambda (_%e195113195150%_ - _%hd195114195153%_ - _%tl195115195155%_ - _%e195116195158%_ - _%hd195117195161%_ - _%tl195118195163%_ - _%e195119195166%_ - _%hd195120195169%_ - _%tl195121195171%_ - _%e195122195174%_ - _%hd195123195177%_ - _%tl195124195179%_ - _%__splice195314195315%_ - _%target195125195182%_ - _%tl195127195184%_) - (letrec ((_%loop195128195187%_ - (lambda (_%hd195126195190%_ - _%arg195132195192%_) + __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%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd195126195190%_)) - (let ((_%e195129195195%_ + _%hd196258196322%_)) + (let ((_%e196261196327%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd195126195190%_)))) - (let ((_%lp-tl195131195200%_ + (gx#stx-e _%hd196258196322%_)))) + (let ((_%lp-tl196263196332%_ (let () (declare (not safe)) - (##cdr _%e195129195195%_))) - (_%lp-hd195130195198%_ + (##cdr _%e196261196327%_))) + (_%lp-hd196262196330%_ (let () (declare (not safe)) - (##car _%e195129195195%_)))) - (_%loop195128195187%_ - _%lp-tl195131195200%_ - (cons _%lp-hd195130195198%_ _%arg195132195192%_)))) - (let ((_%arg195133195203%_ (reverse _%arg195132195192%_))) - (_%__kont195312195313%_ - _%arg195133195203%_ - _%hd195123195177%_)))))) + (##car _%e196261196327%_)))) + (_%loop196260196319%_ + _%lp-tl196263196332%_ + (cons _%lp-hd196262196330%_ _%arg196264196324%_)))) + (let ((_%arg196265196335%_ (reverse _%arg196264196324%_))) + (_%__kont196444196445%_ + _%arg196265196335%_ + _%hd196255196309%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop195128195187%_ - _%target195125195182%_ + (_%loop196260196319%_ + _%target196257196314%_ '()))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx195310195311%_)) - (let ((_%e195113195150%_ + _%__stx196442196443%_)) + (let ((_%e196245196282%_ (let () (declare (not safe)) (gx#stx-e - _%__stx195310195311%_)))) - (let ((_%tl195115195155%_ + _%__stx196442196443%_)))) + (let ((_%tl196247196287%_ (let () (declare (not safe)) - (##cdr _%e195113195150%_))) - (_%hd195114195153%_ + (##cdr _%e196245196282%_))) + (_%hd196246196285%_ (let () (declare (not safe)) - (##car _%e195113195150%_)))) + (##car _%e196245196282%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd195114195153%_)) + _%hd196246196285%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd195114195153%_)) + _%hd196246196285%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl195115195155%_)) - (let ((_%e195116195158%_ + _%tl196247196287%_)) + (let ((_%e196248196290%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl195115195155%_)))) - (let ((_%tl195118195163%_ + (gx#stx-e _%tl196247196287%_)))) + (let ((_%tl196250196295%_ (let () (declare (not safe)) - (##cdr _%e195116195158%_))) - (_%hd195117195161%_ + (##cdr _%e196248196290%_))) + (_%hd196249196293%_ (let () (declare (not safe)) - (##car _%e195116195158%_)))) + (##car _%e196248196290%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd195117195161%_)) - (let ((_%e195119195166%_ + (gx#stx-pair? _%hd196249196293%_)) + (let ((_%e196251196298%_ (let () (declare (not safe)) - (gx#stx-e _%hd195117195161%_)))) - (let ((_%tl195121195171%_ + (gx#stx-e _%hd196249196293%_)))) + (let ((_%tl196253196303%_ (let () (declare (not safe)) - (##cdr _%e195119195166%_))) - (_%hd195120195169%_ + (##cdr _%e196251196298%_))) + (_%hd196252196301%_ (let () (declare (not safe)) - (##car _%e195119195166%_)))) + (##car _%e196251196298%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd195120195169%_)) + (gx#identifier? _%hd196252196301%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd195120195169%_)) + (gx#stx-eq? '%#ref _%hd196252196301%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195121195171%_)) - (let ((_%e195122195174%_ + (gx#stx-pair? _%tl196253196303%_)) + (let ((_%e196254196306%_ (let () (declare (not safe)) (gx#stx-e - _%tl195121195171%_)))) - (let ((_%tl195124195179%_ + _%tl196253196303%_)))) + (let ((_%tl196256196311%_ (let () (declare (not safe)) - (##cdr _%e195122195174%_))) - (_%hd195123195177%_ + (##cdr _%e196254196306%_))) + (_%hd196255196309%_ (let () (declare (not safe)) - (##car _%e195122195174%_)))) + (##car _%e196254196306%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl195124195179%_)) + _%tl196256196311%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl195118195163%_)) - (let ((_%__splice195314195315%_ + _%tl196250196295%_)) + (let ((_%__splice196446196447%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl195118195163%_ + _%tl196250196295%_ '0)))) - (let ((_%tl195127195184%_ + (let ((_%tl196259196316%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice195314195315%_ '1))) - (_%target195125195182%_ + (##vector-ref _%__splice196446196447%_ '1))) + (_%target196257196314%_ (let () (declare (not safe)) - (##vector-ref _%__splice195314195315%_ '0)))) + (##vector-ref _%__splice196446196447%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195127195184%_)) - (_%__match195359195360%_ - _%e195113195150%_ - _%hd195114195153%_ - _%tl195115195155%_ - _%e195116195158%_ - _%hd195117195161%_ - _%tl195118195163%_ - _%e195119195166%_ - _%hd195120195169%_ - _%tl195121195171%_ - _%e195122195174%_ - _%hd195123195177%_ - _%tl195124195179%_ - _%__splice195314195315%_ - _%target195125195182%_ - _%tl195127195184%_) - (_%__kont195316195317%_)))) + (gx#stx-null? _%tl196259196316%_)) + (_%__match196491196492%_ + _%e196245196282%_ + _%hd196246196285%_ + _%tl196247196287%_ + _%e196248196290%_ + _%hd196249196293%_ + _%tl196250196295%_ + _%e196251196298%_ + _%hd196252196301%_ + _%tl196253196303%_ + _%e196254196306%_ + _%hd196255196309%_ + _%tl196256196311%_ + _%__splice196446196447%_ + _%target196257196314%_ + _%tl196259196316%_) + (_%__kont196448196449%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont195316195317%_)) - (_%__kont195316195317%_)))) - (_%__kont195316195317%_)) - (_%__kont195316195317%_)) - (_%__kont195316195317%_)))) - (_%__kont195316195317%_)))) - (_%__kont195316195317%_)) + (_%__kont196448196449%_)) + (_%__kont196448196449%_)))) + (_%__kont196448196449%_)) + (_%__kont196448196449%_)) + (_%__kont196448196449%_)))) + (_%__kont196448196449%_)))) + (_%__kont196448196449%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont195316195317%_)) - (_%__kont195316195317%_)))) - (_%__kont195316195317%_)))))) + (_%__kont196448196449%_)) + (_%__kont196448196449%_)))) + (_%__kont196448196449%_)))))) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type195091%_ + _%rator-type196223%_ 'gxc#!class::t)) (eq? (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type195091%_ + _%rator-type196223%_ '1 '#f '#f)) 'procedure)) - (let ((__tmp196028 + (let ((__tmp197160 (cons '%#call-unchecked (cons (cons (let () (declare @@ -553,42 +553,42 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L195069%_ + (cons _%L196201%_ '())) - (map (lambda (_%g195258195260%_) + (map (lambda (_%g196390196392%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self194875%_ - _%g195258195260%_))) - (let ((__tmp196029 - (lambda (_%g195262195265%_ + _%self196007%_ + _%g196390196392%_))) + (let ((__tmp197161 + (lambda (_%g196394196397%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g195263195267%_) - (cons _%g195262195265%_ _%g195263195267%_)))) + _%g196395196399%_) + (cons _%g196394196397%_ _%g196395196399%_)))) (declare (not safe)) - (__foldr1 __tmp196029 '() _%L195068%_))))))) + (__foldr1 __tmp197161 '() _%L196200%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196028 - _%stx194876%_)) + __tmp197160 + _%stx196008%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx194876%_ - _%rator-type195091%_)))))))) - (_%__kont195368195369%_ - (lambda (_%L194970%_ _%L194971%_) - (let ((_%rator-type194988%_ + _%stx196008%_ + _%rator-type196223%_)))))))) + (_%__kont196500196501%_ + (lambda (_%L196102%_ _%L196103%_) + (let ((_%rator-type196120%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%L194971%_)))) - (if (and _%rator-type194988%_ + (gxc#apply-basic-expression-type _%L196103%_)))) + (if (and _%rator-type196120%_ (eq? (##structure-ref - _%rator-type194988%_ + _%rator-type196120%_ '1 gxc#!type::t '#f) @@ -597,17 +597,17 @@ (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type194988%_)) + _%rator-type196120%_)) '#f (not (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type194988%_ + _%rator-type196120%_ 'gxc#!procedure::t)) (eq? (let () (declare (not safe)) (gxc#!procedure-origin - _%rator-type194988%_)) + _%rator-type196120%_)) (##structure-ref (let () (declare (not safe)) @@ -615,607 +615,607 @@ '1 gx#expander-context::t '#f)))))) - (let ((__tmp196030 + (let ((__tmp197162 (cons '%#call-unchecked (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self194875%_ - _%L194971%_)) - (map (lambda (_%g194990194992%_) + _%self196007%_ + _%L196103%_)) + (map (lambda (_%g196122196124%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self194875%_ - _%g194990194992%_))) - (let ((__tmp196031 - (lambda (_%g194994194997%_ + _%self196007%_ + _%g196122196124%_))) + (let ((__tmp197163 + (lambda (_%g196126196129%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g194995194999%_) - (cons _%g194994194997%_ _%g194995194999%_)))) + _%g196127196131%_) + (cons _%g196126196129%_ _%g196127196131%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp196031 + __tmp197163 '() - _%L194970%_))))))) + _%L196102%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196030 _%stx194876%_)) - (if (or (not _%rator-type194988%_) - (let ((__tmp196032 + (gxc#xform-wrap-source __tmp197162 _%stx196008%_)) + (if (or (not _%rator-type196120%_) + (let ((__tmp197164 (##structure-ref - _%rator-type194988%_ + _%rator-type196120%_ '1 gxc#!type::t '#f))) (declare (not safe)) - (##memq __tmp196032 '(t procedure)))) + (##memq __tmp197164 '(t procedure)))) (let () (declare (not safe)) - (gxc#xform-call% _%self194875%_ _%stx194876%_)) + (gxc#xform-call% _%self196007%_ _%stx196008%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx194876%_ - _%rator-type194988%_)))))))) - (let* ((_%__match195429195430%_ - (lambda (_%e194906194930%_ - _%hd194907194933%_ - _%tl194908194935%_ - _%e194909194938%_ - _%hd194910194941%_ - _%tl194911194943%_ - _%__splice195370195371%_ - _%target194912194946%_ - _%tl194914194948%_) - (letrec ((_%loop194915194951%_ - (lambda (_%hd194913194954%_ - _%rand194919194956%_) + _%stx196008%_ + _%rator-type196120%_)))))))) + (let* ((_%__match196561196562%_ + (lambda (_%e196038196062%_ + _%hd196039196065%_ + _%tl196040196067%_ + _%e196041196070%_ + _%hd196042196073%_ + _%tl196043196075%_ + _%__splice196502196503%_ + _%target196044196078%_ + _%tl196046196080%_) + (letrec ((_%loop196047196083%_ + (lambda (_%hd196045196086%_ + _%rand196051196088%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd194913194954%_)) - (let ((_%e194916194959%_ + (gx#stx-pair? _%hd196045196086%_)) + (let ((_%e196048196091%_ (let () (declare (not safe)) - (gx#stx-e _%hd194913194954%_)))) - (let ((_%lp-tl194918194964%_ + (gx#stx-e _%hd196045196086%_)))) + (let ((_%lp-tl196050196096%_ (let () (declare (not safe)) - (##cdr _%e194916194959%_))) - (_%lp-hd194917194962%_ + (##cdr _%e196048196091%_))) + (_%lp-hd196049196094%_ (let () (declare (not safe)) - (##car _%e194916194959%_)))) - (_%loop194915194951%_ - _%lp-tl194918194964%_ - (cons _%lp-hd194917194962%_ - _%rand194919194956%_)))) - (let ((_%rand194920194967%_ - (reverse _%rand194919194956%_))) - (_%__kont195368195369%_ - _%rand194920194967%_ - _%hd194910194941%_)))))) - (_%loop194915194951%_ _%target194912194946%_ '())))) - (_%__match195409195410%_ - (lambda (_%e194883195012%_ - _%hd194884195015%_ - _%tl194885195017%_ - _%e194886195020%_ - _%hd194887195023%_ - _%tl194888195025%_ - _%e194889195028%_ - _%hd194890195031%_ - _%tl194891195033%_ - _%e194892195036%_ - _%hd194893195039%_ - _%tl194894195041%_ - _%__splice195366195367%_ - _%target194895195044%_ - _%tl194897195046%_) - (letrec ((_%loop194898195049%_ - (lambda (_%hd194896195052%_ - _%rand194902195054%_) + (##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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd194896195052%_)) - (let ((_%e194899195057%_ + (gx#stx-pair? _%hd196028196184%_)) + (let ((_%e196031196189%_ (let () (declare (not safe)) - (gx#stx-e _%hd194896195052%_)))) - (let ((_%lp-tl194901195062%_ + (gx#stx-e _%hd196028196184%_)))) + (let ((_%lp-tl196033196194%_ (let () (declare (not safe)) - (##cdr _%e194899195057%_))) - (_%lp-hd194900195060%_ + (##cdr _%e196031196189%_))) + (_%lp-hd196032196192%_ (let () (declare (not safe)) - (##car _%e194899195057%_)))) - (_%loop194898195049%_ - _%lp-tl194901195062%_ - (cons _%lp-hd194900195060%_ - _%rand194902195054%_)))) - (let ((_%rand194903195065%_ - (reverse _%rand194902195054%_))) - (_%__kont195364195365%_ - _%rand194903195065%_ - _%hd194893195039%_)))))) - (_%loop194898195049%_ _%target194895195044%_ '()))))) + (##car _%e196031196189%_)))) + (_%loop196030196181%_ + _%lp-tl196033196194%_ + (cons _%lp-hd196032196192%_ + _%rand196034196186%_)))) + (let ((_%rand196035196197%_ + (reverse _%rand196034196186%_))) + (_%__kont196496196497%_ + _%rand196035196197%_ + _%hd196025196171%_)))))) + (_%loop196030196181%_ _%target196027196176%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx195362195363%_)) - (let ((_%e194883195012%_ + (gx#stx-pair? _%__stx196494196495%_)) + (let ((_%e196015196144%_ (let () (declare (not safe)) - (gx#stx-e _%__stx195362195363%_)))) - (let ((_%tl194885195017%_ + (gx#stx-e _%__stx196494196495%_)))) + (let ((_%tl196017196149%_ (let () (declare (not safe)) - (##cdr _%e194883195012%_))) - (_%hd194884195015%_ + (##cdr _%e196015196144%_))) + (_%hd196016196147%_ (let () (declare (not safe)) - (##car _%e194883195012%_)))) + (##car _%e196015196144%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194885195017%_)) - (let ((_%e194886195020%_ + (gx#stx-pair? _%tl196017196149%_)) + (let ((_%e196018196152%_ (let () (declare (not safe)) - (gx#stx-e _%tl194885195017%_)))) - (let ((_%tl194888195025%_ + (gx#stx-e _%tl196017196149%_)))) + (let ((_%tl196020196157%_ (let () (declare (not safe)) - (##cdr _%e194886195020%_))) - (_%hd194887195023%_ + (##cdr _%e196018196152%_))) + (_%hd196019196155%_ (let () (declare (not safe)) - (##car _%e194886195020%_)))) + (##car _%e196018196152%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd194887195023%_)) - (let ((_%e194889195028%_ + (gx#stx-pair? _%hd196019196155%_)) + (let ((_%e196021196160%_ (let () (declare (not safe)) - (gx#stx-e _%hd194887195023%_)))) - (let ((_%tl194891195033%_ + (gx#stx-e _%hd196019196155%_)))) + (let ((_%tl196023196165%_ (let () (declare (not safe)) - (##cdr _%e194889195028%_))) - (_%hd194890195031%_ + (##cdr _%e196021196160%_))) + (_%hd196022196163%_ (let () (declare (not safe)) - (##car _%e194889195028%_)))) + (##car _%e196021196160%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd194890195031%_)) + _%hd196022196163%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd194890195031%_)) + _%hd196022196163%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194891195033%_)) - (let ((_%e194892195036%_ + _%tl196023196165%_)) + (let ((_%e196024196168%_ (let () (declare (not safe)) (gx#stx-e - _%tl194891195033%_)))) - (let ((_%tl194894195041%_ + _%tl196023196165%_)))) + (let ((_%tl196026196173%_ (let () (declare (not safe)) - (##cdr _%e194892195036%_))) - (_%hd194893195039%_ + (##cdr _%e196024196168%_))) + (_%hd196025196171%_ (let () (declare (not safe)) - (##car _%e194892195036%_)))) + (##car _%e196024196168%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194894195041%_)) + _%tl196026196173%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl194888195025%_)) - (let ((_%__splice195366195367%_ + (gx#stx-pair/null? _%tl196020196157%_)) + (let ((_%__splice196498196499%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl194888195025%_ + _%tl196020196157%_ '0)))) - (let ((_%tl194897195046%_ + (let ((_%tl196029196178%_ (let () (declare (not safe)) - (##vector-ref _%__splice195366195367%_ '1))) - (_%target194895195044%_ + (##vector-ref _%__splice196498196499%_ '1))) + (_%target196027196176%_ (let () (declare (not safe)) - (##vector-ref _%__splice195366195367%_ '0)))) + (##vector-ref _%__splice196498196499%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194897195046%_)) - (_%__match195409195410%_ - _%e194883195012%_ - _%hd194884195015%_ - _%tl194885195017%_ - _%e194886195020%_ - _%hd194887195023%_ - _%tl194888195025%_ - _%e194889195028%_ - _%hd194890195031%_ - _%tl194891195033%_ - _%e194892195036%_ - _%hd194893195039%_ - _%tl194894195041%_ - _%__splice195366195367%_ - _%target194895195044%_ - _%tl194897195046%_) + (gx#stx-null? _%tl196029196178%_)) + (_%__match196541196542%_ + _%e196015196144%_ + _%hd196016196147%_ + _%tl196017196149%_ + _%e196018196152%_ + _%hd196019196155%_ + _%tl196020196157%_ + _%e196021196160%_ + _%hd196022196163%_ + _%tl196023196165%_ + _%e196024196168%_ + _%hd196025196171%_ + _%tl196026196173%_ + _%__splice196498196499%_ + _%target196027196176%_ + _%tl196029196178%_) (let () (declare (not safe)) - (_%g194879194925%_))))) - (let () (declare (not safe)) (_%g194879194925%_))) + (_%g196011196057%_))))) + (let () (declare (not safe)) (_%g196011196057%_))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl194888195025%_)) - (let ((_%__splice195370195371%_ + (gx#stx-pair/null? _%tl196020196157%_)) + (let ((_%__splice196502196503%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl194888195025%_ + _%tl196020196157%_ '0)))) - (let ((_%tl194914194948%_ + (let ((_%tl196046196080%_ (let () (declare (not safe)) - (##vector-ref _%__splice195370195371%_ '1))) - (_%target194912194946%_ + (##vector-ref _%__splice196502196503%_ '1))) + (_%target196044196078%_ (let () (declare (not safe)) - (##vector-ref _%__splice195370195371%_ '0)))) + (##vector-ref _%__splice196502196503%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194914194948%_)) - (_%__match195429195430%_ - _%e194883195012%_ - _%hd194884195015%_ - _%tl194885195017%_ - _%e194886195020%_ - _%hd194887195023%_ - _%tl194888195025%_ - _%__splice195370195371%_ - _%target194912194946%_ - _%tl194914194948%_) + (gx#stx-null? _%tl196046196080%_)) + (_%__match196561196562%_ + _%e196015196144%_ + _%hd196016196147%_ + _%tl196017196149%_ + _%e196018196152%_ + _%hd196019196155%_ + _%tl196020196157%_ + _%__splice196502196503%_ + _%target196044196078%_ + _%tl196046196080%_) (let () (declare (not safe)) - (_%g194879194925%_))))) - (let () (declare (not safe)) (_%g194879194925%_)))))) + (_%g196011196057%_))))) + (let () (declare (not safe)) (_%g196011196057%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl194888195025%_)) - (let ((_%__splice195370195371%_ + _%tl196020196157%_)) + (let ((_%__splice196502196503%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl194888195025%_ '0)))) - (let ((_%tl194914194948%_ + (gx#syntax-split-splice _%tl196020196157%_ '0)))) + (let ((_%tl196046196080%_ (let () (declare (not safe)) - (##vector-ref _%__splice195370195371%_ '1))) - (_%target194912194946%_ + (##vector-ref _%__splice196502196503%_ '1))) + (_%target196044196078%_ (let () (declare (not safe)) - (##vector-ref _%__splice195370195371%_ '0)))) + (##vector-ref _%__splice196502196503%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194914194948%_)) - (_%__match195429195430%_ - _%e194883195012%_ - _%hd194884195015%_ - _%tl194885195017%_ - _%e194886195020%_ - _%hd194887195023%_ - _%tl194888195025%_ - _%__splice195370195371%_ - _%target194912194946%_ - _%tl194914194948%_) - (let () (declare (not safe)) (_%g194879194925%_))))) - (let () (declare (not safe)) (_%g194879194925%_)))) + (gx#stx-null? _%tl196046196080%_)) + (_%__match196561196562%_ + _%e196015196144%_ + _%hd196016196147%_ + _%tl196017196149%_ + _%e196018196152%_ + _%hd196019196155%_ + _%tl196020196157%_ + _%__splice196502196503%_ + _%target196044196078%_ + _%tl196046196080%_) + (let () (declare (not safe)) (_%g196011196057%_))))) + (let () (declare (not safe)) (_%g196011196057%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl194888195025%_)) - (let ((_%__splice195370195371%_ + _%tl196020196157%_)) + (let ((_%__splice196502196503%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl194888195025%_ + _%tl196020196157%_ '0)))) - (let ((_%tl194914194948%_ + (let ((_%tl196046196080%_ (let () (declare (not safe)) (##vector-ref - _%__splice195370195371%_ + _%__splice196502196503%_ '1))) - (_%target194912194946%_ + (_%target196044196078%_ (let () (declare (not safe)) (##vector-ref - _%__splice195370195371%_ + _%__splice196502196503%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194914194948%_)) - (_%__match195429195430%_ - _%e194883195012%_ - _%hd194884195015%_ - _%tl194885195017%_ - _%e194886195020%_ - _%hd194887195023%_ - _%tl194888195025%_ - _%__splice195370195371%_ - _%target194912194946%_ - _%tl194914194948%_) + _%tl196046196080%_)) + (_%__match196561196562%_ + _%e196015196144%_ + _%hd196016196147%_ + _%tl196017196149%_ + _%e196018196152%_ + _%hd196019196155%_ + _%tl196020196157%_ + _%__splice196502196503%_ + _%target196044196078%_ + _%tl196046196080%_) (let () (declare (not safe)) - (_%g194879194925%_))))) + (_%g196011196057%_))))) (let () (declare (not safe)) - (_%g194879194925%_)))) + (_%g196011196057%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl194888195025%_)) - (let ((_%__splice195370195371%_ + _%tl196020196157%_)) + (let ((_%__splice196502196503%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl194888195025%_ + _%tl196020196157%_ '0)))) - (let ((_%tl194914194948%_ + (let ((_%tl196046196080%_ (let () (declare (not safe)) (##vector-ref - _%__splice195370195371%_ + _%__splice196502196503%_ '1))) - (_%target194912194946%_ + (_%target196044196078%_ (let () (declare (not safe)) (##vector-ref - _%__splice195370195371%_ + _%__splice196502196503%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194914194948%_)) - (_%__match195429195430%_ - _%e194883195012%_ - _%hd194884195015%_ - _%tl194885195017%_ - _%e194886195020%_ - _%hd194887195023%_ - _%tl194888195025%_ - _%__splice195370195371%_ - _%target194912194946%_ - _%tl194914194948%_) + _%tl196046196080%_)) + (_%__match196561196562%_ + _%e196015196144%_ + _%hd196016196147%_ + _%tl196017196149%_ + _%e196018196152%_ + _%hd196019196155%_ + _%tl196020196157%_ + _%__splice196502196503%_ + _%target196044196078%_ + _%tl196046196080%_) (let () (declare (not safe)) - (_%g194879194925%_))))) + (_%g196011196057%_))))) (let () (declare (not safe)) - (_%g194879194925%_)))))) + (_%g196011196057%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl194888195025%_)) - (let ((_%__splice195370195371%_ + (gx#stx-pair/null? _%tl196020196157%_)) + (let ((_%__splice196502196503%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl194888195025%_ + _%tl196020196157%_ '0)))) - (let ((_%tl194914194948%_ + (let ((_%tl196046196080%_ (let () (declare (not safe)) (##vector-ref - _%__splice195370195371%_ + _%__splice196502196503%_ '1))) - (_%target194912194946%_ + (_%target196044196078%_ (let () (declare (not safe)) (##vector-ref - _%__splice195370195371%_ + _%__splice196502196503%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194914194948%_)) - (_%__match195429195430%_ - _%e194883195012%_ - _%hd194884195015%_ - _%tl194885195017%_ - _%e194886195020%_ - _%hd194887195023%_ - _%tl194888195025%_ - _%__splice195370195371%_ - _%target194912194946%_ - _%tl194914194948%_) + _%tl196046196080%_)) + (_%__match196561196562%_ + _%e196015196144%_ + _%hd196016196147%_ + _%tl196017196149%_ + _%e196018196152%_ + _%hd196019196155%_ + _%tl196020196157%_ + _%__splice196502196503%_ + _%target196044196078%_ + _%tl196046196080%_) (let () (declare (not safe)) - (_%g194879194925%_))))) + (_%g196011196057%_))))) (let () (declare (not safe)) - (_%g194879194925%_)))))) - (let () (declare (not safe)) (_%g194879194925%_))))) - (let () (declare (not safe)) (_%g194879194925%_)))))))) + (_%g196011196057%_)))))) + (let () (declare (not safe)) (_%g196011196057%_))))) + (let () (declare (not safe)) (_%g196011196057%_)))))))) (define gxc#!procedure::optimize-call - (lambda (_%self191254194835%_ _%ctx194837%_ _%stx194838%_ _%args194839%_) - (let* ((_%self194841%_ _%self191254194835%_) - (_%self194843%_ _%self194841%_)) - (if (let ((__method196011 + (lambda (_%self192386195967%_ _%ctx195969%_ _%stx195970%_ _%args195971%_) + (let* ((_%self195973%_ _%self192386195967%_) + (_%self195975%_ _%self195973%_)) + (if (let ((__method197143 (let () (declare (not safe)) - (__method-ref _%self194843%_ 'check-arguments)))) - (if __method196011 + (__method-ref _%self195975%_ 'check-arguments)))) + (if __method197143 (let () (declare (not safe)) - (__method196011 - _%self194843%_ - _%ctx194837%_ - _%stx194838%_ - _%args194839%_)) + (__method197143 + _%self195975%_ + _%ctx195969%_ + _%stx195970%_ + _%args195971%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self194843%_ + _%self195975%_ 'check-arguments)) '#!void))) - (let* ((_%signature194853%_ + (let* ((_%signature195985%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194843%_ '2 '#f '#f))) - (_%signature194855%_ _%signature194853%_) - (_%$e194865%_ - (if _%signature194855%_ + (##unchecked-structure-ref _%self195975%_ '2 '#f '#f))) + (_%signature195987%_ _%signature195985%_) + (_%$e195997%_ + (if _%signature195987%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature194855%_ + _%signature195987%_ '4 '#f '#f)) '#f))) - (if _%$e194865%_ - ((lambda (_%unchecked194868%_) + (if _%$e195997%_ + ((lambda (_%unchecked196000%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%unchecked194868%_)) - (let ((__tmp196033 + (gxc#symbol-in-local-scope? _%unchecked196000%_)) + (let ((__tmp197165 (cons '%#call (cons (cons '%#ref - (cons _%unchecked194868%_ + (cons _%unchecked196000%_ '())) - (map (lambda (_%g194869194871%_) + (map (lambda (_%g196001196003%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194837%_ - _%g194869194871%_))) - _%args194839%_))))) + _%ctx195969%_ + _%g196001196003%_))) + _%args195971%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp196033 - _%stx194838%_ - _%ctx194837%_)) + __tmp197165 + _%stx195970%_ + _%ctx195969%_)) (let () (declare (not safe)) - (gxc#xform-call% _%ctx194837%_ _%stx194838%_)))) - _%$e194865%_) + (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))) + _%$e195997%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx194837%_ _%stx194838%_)))) + (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx194837%_ _%stx194838%_)))))) + (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))))) (define gxc#!procedure::optimize-call::specialize - (lambda (__klass195295 __method-table195296) - (let ((__check-arguments195297 - (let ((__tmp196034 + (lambda (__klass196427 __method-table196428) + (let ((__check-arguments196429 + (let ((__tmp197166 (lambda () - (let ((__method195298 + (let ((__method196430 (let () (declare (not safe)) (symbolic-table-ref - __method-table195296 + __method-table196428 'check-arguments '#f)))) - (if __method195298 - __method195298 + (if __method196430 + __method196430 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp196034)))) - (lambda (_%self191254194835%_ - _%ctx194837%_ - _%stx194838%_ - _%args194839%_) - (let* ((_%self194841%_ _%self191254194835%_) - (_%self194843%_ _%self194841%_)) - (if ((force __check-arguments195297) - _%self194843%_ - _%ctx194837%_ - _%stx194838%_ - _%args194839%_) - (let* ((_%signature194853%_ + (__make-promise __tmp197166)))) + (lambda (_%self192386195967%_ + _%ctx195969%_ + _%stx195970%_ + _%args195971%_) + (let* ((_%self195973%_ _%self192386195967%_) + (_%self195975%_ _%self195973%_)) + (if ((force __check-arguments196429) + _%self195975%_ + _%ctx195969%_ + _%stx195970%_ + _%args195971%_) + (let* ((_%signature195985%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self194843%_ + _%self195975%_ '2 '#f '#f))) - (_%signature194855%_ _%signature194853%_) - (_%$e194865%_ - (if _%signature194855%_ + (_%signature195987%_ _%signature195985%_) + (_%$e195997%_ + (if _%signature195987%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature194855%_ + _%signature195987%_ '4 '#f '#f)) '#f))) - (if _%$e194865%_ - ((lambda (_%unchecked194868%_) + (if _%$e195997%_ + ((lambda (_%unchecked196000%_) (if (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%unchecked194868%_)) - (let ((__tmp196035 + _%unchecked196000%_)) + (let ((__tmp197167 (cons '%#call (cons (cons '%#ref - (cons _%unchecked194868%_ + (cons _%unchecked196000%_ '())) - (map (lambda (_%g194869194871%_) + (map (lambda (_%g196001196003%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194837%_ - _%g194869194871%_))) - _%args194839%_))))) + _%ctx195969%_ + _%g196001196003%_))) + _%args195971%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp196035 - _%stx194838%_ - _%ctx194837%_)) + __tmp197167 + _%stx195970%_ + _%ctx195969%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx194837%_ - _%stx194838%_)))) - _%$e194865%_) + _%ctx195969%_ + _%stx195970%_)))) + _%$e195997%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx194837%_ _%stx194838%_)))) + (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx194837%_ _%stx194838%_)))))))) + (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))))))) (let () (declare (not safe)) (bind-specializer! @@ -1229,142 +1229,136 @@ gxc#!procedure::optimize-call '#f)) (define gxc#!procedure::check-arguments - (lambda (_%self191255194584%_ _%ctx194586%_ _%stx194587%_ _%args194588%_) - (let* ((_%self194590%_ _%self191255194584%_) - (_%self194592%_ _%self194590%_) - (_%signature194601194603%_ + (lambda (_%self192387195716%_ _%ctx195718%_ _%stx195719%_ _%args195720%_) + (let* ((_%self195722%_ _%self192387195716%_) + (_%self195724%_ _%self195722%_) + (_%signature195733195735%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194592%_ '2 '#f '#f)))) - (if _%signature194601194603%_ - (let* ((_%signature194606%_ _%signature194601194603%_) - (_%argument-types194607194609%_ + (##unchecked-structure-ref _%self195724%_ '2 '#f '#f)))) + (if _%signature195733195735%_ + (let* ((_%signature195738%_ _%signature195733195735%_) + (_%argument-types195739195741%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature194606%_ + _%signature195738%_ '3 '#f '#f)))) - (if _%argument-types194607194609%_ - (let* ((_%argument-types194612%_ - _%argument-types194607194609%_) - (_%argument-types194617%_ - (let ((__tmp196036 - (lambda (_%t194615%_) - (if _%t194615%_ + (if _%argument-types195739195741%_ + (let* ((_%argument-types195744%_ + _%argument-types195739195741%_) + (_%argument-types195749%_ + (let ((__tmp197168 + (lambda (_%t195747%_) + (if _%t195747%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194587%_ - _%t194615%_)) + _%stx195719%_ + _%t195747%_)) '#f)))) (declare (not safe)) (gxc#map* - __tmp196036 - _%argument-types194612%_)))) - (let _%loop194619%_ ((_%rest-args194621%_ _%args194588%_) - (_%rest-types194622%_ - _%argument-types194617%_) - (_%result194623%_ '#t)) - (let* ((_%rest-args194624194632%_ _%rest-args194621%_) - (_%else194626194640%_ - (lambda () _%result194623%_)) - (_%K194628194701%_ - (lambda (_%rest-args194643%_ _%arg194644%_) - (let* ((_%rest-types194645194656%_ - _%rest-types194622%_) - (_%E194649194660%_ + __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%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-types194645194656%_ + _%rest-types195777195788%_ '([type . rest-types]) '([]) '(tail-type))) '#!void))) - (let ((_%K194652194689%_ - (lambda (_%rest-types194686%_ - _%type194687%_) - (_%loop194619%_ - _%rest-args194643%_ - _%rest-types194686%_ + (let ((_%K195784195821%_ + (lambda (_%rest-types195818%_ + _%type195819%_) + (_%loop195751%_ + _%rest-args195775%_ + _%rest-types195818%_ (if (gxc#check-expression-type! - _%stx194587%_ - _%arg194644%_ - _%type194687%_) - _%result194623%_ + _%stx195719%_ + _%arg195776%_ + _%type195819%_) + _%result195755%_ '#f)))) - (_%K194651194680%_ + (_%K195783195812%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"signature arity mismatch" - _%stx194587%_ - _%argument-types194617%_)))) - (_%K194650194670%_ - (lambda (_%tail-type194664%_) - (if (let ((__tmp196037 - (lambda (_%g194665194667%_) + _%stx195719%_ + _%argument-types195749%_)))) + (_%K195782195802%_ + (lambda (_%tail-type195796%_) + (if (let ((__tmp197169 + (lambda (_%g195797195799%_) (gxc#check-expression-type! - _%stx194587%_ - _%g194665194667%_ - _%tail-type194664%_)))) + _%stx195719%_ + _%g195797195799%_ + _%tail-type195796%_)))) (declare (not safe)) (__andmap1 - __tmp196037 - _%rest-args194643%_)) - _%result194623%_ + __tmp197169 + _%rest-args195775%_)) + _%result195755%_ '#f)))) - (let ((_%try-match194647194683%_ + (let ((_%try-match195779195815%_ (lambda () - (if (let () - (declare (not safe)) - (##null? _%rest-types194645194656%_)) - (_%K194651194680%_) - (let ((_%tail-type194673%_ - _%rest-types194645194656%_)) - (_%K194650194670%_ - _%tail-type194673%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest-types194645194656%_)) - (let ((_%tl194654194694%_ + (if (null? _%rest-types195777195788%_) + (_%K195783195812%_) + (let ((_%tail-type195805%_ + _%rest-types195777195788%_)) + (_%K195782195802%_ + _%tail-type195805%_)))))) + (if (pair? _%rest-types195777195788%_) + (let ((_%tl195786195826%_ (let () (declare (not safe)) - (##cdr _%rest-types194645194656%_))) - (_%hd194653194692%_ + (##cdr _%rest-types195777195788%_))) + (_%hd195785195824%_ (let () (declare (not safe)) - (##car _%rest-types194645194656%_)))) - (let ((_%type194697%_ - _%hd194653194692%_) - (_%rest-types194699%_ - _%tl194654194694%_)) - (_%K194652194689%_ - _%rest-types194699%_ - _%type194697%_))) - (_%try-match194647194683%_)))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest-args194624194632%_)) - (let ((_%hd194629194704%_ + (##car _%rest-types195777195788%_)))) + (let ((_%type195829%_ + _%hd195785195824%_) + (_%rest-types195831%_ + _%tl195786195826%_)) + (_%K195784195821%_ + _%rest-types195831%_ + _%type195829%_))) + (_%try-match195779195815%_)))))))) + (if (pair? _%rest-args195756195764%_) + (let ((_%hd195761195836%_ (let () (declare (not safe)) - (##car _%rest-args194624194632%_))) - (_%tl194630194706%_ + (##car _%rest-args195756195764%_))) + (_%tl195762195838%_ (let () (declare (not safe)) - (##cdr _%rest-args194624194632%_)))) - (let* ((_%arg194709%_ _%hd194629194704%_) - (_%rest-args194711%_ - _%tl194630194706%_)) - (_%K194628194701%_ - _%rest-args194711%_ - _%arg194709%_))) - (_%else194626194640%_))))) + (##cdr _%rest-args195756195764%_)))) + (let* ((_%arg195841%_ _%hd195761195836%_) + (_%rest-args195843%_ + _%tl195762195838%_)) + (_%K195760195833%_ + _%rest-args195843%_ + _%arg195841%_))) + (_%else195758195772%_))))) '#f)) '#f)))) (let () @@ -1375,94 +1369,94 @@ gxc#!procedure::check-arguments '#f)) (define gxc#!primitive-predicate::optimize-call - (lambda (_%self191256194393%_ _%ctx194395%_ _%stx194396%_ _%args194397%_) - (let* ((_%self194399%_ _%self191256194393%_) - (_%self194401%_ _%self194399%_) - (_%g194411194421%_ - (lambda (_%g194412194418%_) + (lambda (_%self192388195525%_ _%ctx195527%_ _%stx195528%_ _%args195529%_) + (let* ((_%self195531%_ _%self192388195525%_) + (_%self195533%_ _%self195531%_) + (_%g195543195553%_ + (lambda (_%g195544195550%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194412194418%_)))) - (_%g194410194459%_ - (lambda (_%g194412194424%_) + _%g195544195550%_)))) + (_%g195542195591%_ + (lambda (_%g195544195556%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194412194424%_)) - (let ((_%e194414194426%_ + (gx#stx-pair? _%g195544195556%_)) + (let ((_%e195546195558%_ (let () (declare (not safe)) - (gx#stx-e _%g194412194424%_)))) - (let ((_%hd194415194429%_ + (gx#stx-e _%g195544195556%_)))) + (let ((_%hd195547195561%_ (let () (declare (not safe)) - (##car _%e194414194426%_))) - (_%tl194416194431%_ + (##car _%e195546195558%_))) + (_%tl195548195563%_ (let () (declare (not safe)) - (##cdr _%e194414194426%_)))) + (##cdr _%e195546195558%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194416194431%_)) - ((lambda (_%L194434%_) - (let* ((_%klass194446%_ - (let ((__tmp196038 + (gx#stx-null? _%tl195548195563%_)) + ((lambda (_%L195566%_) + (let* ((_%klass195578%_ + (let ((__tmp197170 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194401%_ + _%self195533%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194396%_ - __tmp196038))) - (_%object194448%_ + _%stx195528%_ + __tmp197170))) + (_%object195580%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194395%_ - _%L194434%_))) - (_%instance?194453%_ - (let ((_%$e194450%_ + _%ctx195527%_ + _%L195566%_))) + (_%instance?195585%_ + (let ((_%$e195582%_ (gxc#expression-type? - _%object194448%_ - _%klass194446%_))) - (if _%$e194450%_ - _%$e194450%_ + _%object195580%_ + _%klass195578%_))) + (if _%$e195582%_ + _%$e195582%_ (gxc#expression-type? - _%L194434%_ - _%klass194446%_))))) - (if _%instance?194453%_ - (let ((__tmp196039 + _%L195566%_ + _%klass195578%_))))) + (if _%instance?195585%_ + (let ((__tmp197171 (if (or (gxc#expression-no-side-effects? - _%object194448%_) + _%object195580%_) (gxc#expression-no-side-effects? - _%L194434%_)) + _%L195566%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object194448%_ + (cons _%object195580%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196039 - _%stx194396%_)) + __tmp197171 + _%stx195528%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx194395%_ - _%stx194396%_))))) - _%hd194415194429%_) - (_%g194411194421%_ _%g194412194424%_)))) - (_%g194411194421%_ _%g194412194424%_))))) - (_%g194410194459%_ _%args194397%_)))) + _%ctx195527%_ + _%stx195528%_))))) + _%hd195547195561%_) + (_%g195543195553%_ _%g195544195556%_)))) + (_%g195543195553%_ _%g195544195556%_))))) + (_%g195542195591%_ _%args195529%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -1471,137 +1465,137 @@ gxc#!primitive-predicate::optimize-call '#f)) (define gxc#!predicate::optimize-call - (lambda (_%self191257194187%_ _%ctx194189%_ _%stx194190%_ _%args194191%_) - (let* ((_%self194193%_ _%self191257194187%_) - (_%self194195%_ _%self194193%_) - (_%g194205194215%_ - (lambda (_%g194206194212%_) + (lambda (_%self192389195319%_ _%ctx195321%_ _%stx195322%_ _%args195323%_) + (let* ((_%self195325%_ _%self192389195319%_) + (_%self195327%_ _%self195325%_) + (_%g195337195347%_ + (lambda (_%g195338195344%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194206194212%_)))) - (_%g194204194268%_ - (lambda (_%g194206194218%_) + _%g195338195344%_)))) + (_%g195336195400%_ + (lambda (_%g195338195350%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194206194218%_)) - (let ((_%e194208194220%_ + (gx#stx-pair? _%g195338195350%_)) + (let ((_%e195340195352%_ (let () (declare (not safe)) - (gx#stx-e _%g194206194218%_)))) - (let ((_%hd194209194223%_ + (gx#stx-e _%g195338195350%_)))) + (let ((_%hd195341195355%_ (let () (declare (not safe)) - (##car _%e194208194220%_))) - (_%tl194210194225%_ + (##car _%e195340195352%_))) + (_%tl195342195357%_ (let () (declare (not safe)) - (##cdr _%e194208194220%_)))) + (##cdr _%e195340195352%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194210194225%_)) - ((lambda (_%L194228%_) - (let* ((_%klass194240%_ - (let ((__tmp196040 + (gx#stx-null? _%tl195342195357%_)) + ((lambda (_%L195360%_) + (let* ((_%klass195372%_ + (let ((__tmp197172 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194195%_ + _%self195327%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194190%_ - __tmp196040))) - (_%object194242%_ + _%stx195322%_ + __tmp197172))) + (_%object195374%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194189%_ - _%L194228%_))) - (_%instance?194247%_ - (let ((_%$e194244%_ + _%ctx195321%_ + _%L195360%_))) + (_%instance?195379%_ + (let ((_%$e195376%_ (gxc#expression-type? - _%object194242%_ - _%klass194240%_))) - (if _%$e194244%_ - _%$e194244%_ + _%object195374%_ + _%klass195372%_))) + (if _%$e195376%_ + _%$e195376%_ (gxc#expression-type? - _%L194228%_ - _%klass194240%_)))) - (_%klass194250%_ _%klass194240%_)) - (if _%instance?194247%_ - (let ((__tmp196041 + _%L195360%_ + _%klass195372%_)))) + (_%klass195382%_ _%klass195372%_)) + (if _%instance?195379%_ + (let ((__tmp197173 (if (or (gxc#expression-no-side-effects? - _%object194242%_) + _%object195374%_) (gxc#expression-no-side-effects? - _%L194228%_)) + _%L195360%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object194242%_ + (cons _%object195374%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196041 - _%stx194190%_)) + __tmp197173 + _%stx195322%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194250%_ + _%klass195382%_ '8 '#f '#f)) - (let ((__tmp196042 + (let ((__tmp197174 (cons '%#struct-direct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194250%_ + _%klass195382%_ '1 '#f '#f)) '())) - (cons _%object194242%_ '()))))) + (cons _%object195374%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196042 - _%stx194190%_)) + __tmp197174 + _%stx195322%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194250%_ + _%klass195382%_ '7 '#f '#f)) - (let ((__tmp196043 + (let ((__tmp197175 (cons '%#struct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194250%_ + _%klass195382%_ '1 '#f '#f)) '())) - (cons _%object194242%_ '()))))) + (cons _%object195374%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196043 - _%stx194190%_)) - (let ((__tmp196044 + __tmp197175 + _%stx195322%_)) + (let ((__tmp197176 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1610,21 +1604,21 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194195%_ + _%self195327%_ '1 '#f '#f)) '())) - (cons _%object194242%_ '())))))) + (cons _%object195374%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196044 - _%stx194190%_))))))) - _%hd194209194223%_) - (_%g194205194215%_ _%g194206194218%_)))) - (_%g194205194215%_ _%g194206194218%_))))) - (_%g194204194268%_ _%args194191%_)))) + __tmp197176 + _%stx195322%_))))))) + _%hd195341195355%_) + (_%g195337195347%_ _%g195338195350%_)))) + (_%g195337195347%_ _%g195338195350%_))))) + (_%g195336195400%_ _%args195323%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -1633,419 +1627,419 @@ gxc#!predicate::optimize-call '#f)) (define gxc#expression-no-side-effects? - (lambda (_%stx193850%_) - (let* ((_%__stx195439195440%_ _%stx193850%_) - (_%g193855193896%_ + (lambda (_%stx194982%_) + (let* ((_%__stx196571196572%_ _%stx194982%_) + (_%g194987195028%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195439195440%_))))) - (let ((_%__kont195441195442%_ (lambda () '#t)) - (_%__kont195443195444%_ (lambda () '#t)) - (_%__kont195445195446%_ - (lambda (_%L193964%_ _%L193965%_) - (let ((_%rator-type193986193988%_ - (let ((__tmp196045 + _%__stx196571196572%_))))) + (let ((_%__kont196573196574%_ (lambda () '#t)) + (_%__kont196575196576%_ (lambda () '#t)) + (_%__kont196577196578%_ + (lambda (_%L195096%_ _%L195097%_) + (let ((_%rator-type195118195120%_ + (let ((__tmp197177 (let () (declare (not safe)) - (gxc#identifier-symbol _%L193965%_)))) + (gxc#identifier-symbol _%L195097%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp196045)))) - (if _%rator-type193986193988%_ - (let* ((_%rator-type193991%_ - _%rator-type193986193988%_) - (_%rator-signature193992193994%_ + (gxc#optimizer-resolve-type __tmp197177)))) + (if _%rator-type195118195120%_ + (let* ((_%rator-type195123%_ + _%rator-type195118195120%_) + (_%rator-signature195124195126%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type193991%_ + _%rator-type195123%_ 'gxc#!procedure::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type193991%_ + _%rator-type195123%_ '2 '#f '#f)) '#f))) - (if _%rator-signature193992193994%_ - (let* ((_%rator-signature193997%_ - _%rator-signature193992193994%_) - (_%rator-effect193998194000%_ - (if _%rator-signature193997%_ + (if _%rator-signature195124195126%_ + (let* ((_%rator-signature195129%_ + _%rator-signature195124195126%_) + (_%rator-effect195130195132%_ + (if _%rator-signature195129%_ (##direct-structure-ref - _%rator-signature193997%_ + _%rator-signature195129%_ '2 gxc#!signature::t '#f) '#f))) - (if _%rator-effect193998194000%_ - (let ((_%rator-effect194003%_ - _%rator-effect193998194000%_)) + (if _%rator-effect195130195132%_ + (let ((_%rator-effect195135%_ + _%rator-effect195130195132%_)) (if (or (equal? '(pure) - _%rator-effect194003%_) + _%rator-effect195135%_) (equal? '(alloc) - _%rator-effect194003%_)) - (let ((__tmp196046 - (let ((__tmp196047 - (lambda (_%g194008194011%_ + _%rator-effect195135%_)) + (let ((__tmp197178 + (let ((__tmp197179 + (lambda (_%g195140195143%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g194009194013%_) - (cons _%g194008194011%_ _%g194009194013%_)))) + _%g195141195145%_) + (cons _%g195140195143%_ _%g195141195145%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp196047 + __tmp197179 '() - _%L193964%_)))) + _%L195096%_)))) (declare (not safe)) (__andmap1 gxc#expression-no-side-effects? - __tmp196046)) + __tmp197178)) '#f)) '#f)) '#f)) '#f)))) - (_%__kont195449195450%_ (lambda () '#f))) - (let ((_%__match195528195529%_ - (lambda (_%e193871193908%_ - _%hd193872193911%_ - _%tl193873193913%_ - _%e193874193916%_ - _%hd193875193919%_ - _%tl193876193921%_ - _%e193877193924%_ - _%hd193878193927%_ - _%tl193879193929%_ - _%e193880193932%_ - _%hd193881193935%_ - _%tl193882193937%_ - _%__splice195447195448%_ - _%target193883193940%_ - _%tl193885193942%_) - (letrec ((_%loop193886193945%_ - (lambda (_%hd193884193948%_ - _%rand193890193950%_) + (_%__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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193884193948%_)) - (let ((_%e193887193953%_ + (gx#stx-pair? _%hd195016195080%_)) + (let ((_%e195019195085%_ (let () (declare (not safe)) - (gx#stx-e _%hd193884193948%_)))) - (let ((_%lp-tl193889193958%_ + (gx#stx-e _%hd195016195080%_)))) + (let ((_%lp-tl195021195090%_ (let () (declare (not safe)) - (##cdr _%e193887193953%_))) - (_%lp-hd193888193956%_ + (##cdr _%e195019195085%_))) + (_%lp-hd195020195088%_ (let () (declare (not safe)) - (##car _%e193887193953%_)))) - (_%loop193886193945%_ - _%lp-tl193889193958%_ - (cons _%lp-hd193888193956%_ - _%rand193890193950%_)))) - (let ((_%rand193891193961%_ - (reverse _%rand193890193950%_))) - (_%__kont195445195446%_ - _%rand193891193961%_ - _%hd193881193935%_)))))) - (_%loop193886193945%_ _%target193883193940%_ '()))))) + (##car _%e195019195085%_)))) + (_%loop195018195077%_ + _%lp-tl195021195090%_ + (cons _%lp-hd195020195088%_ + _%rand195022195082%_)))) + (let ((_%rand195023195093%_ + (reverse _%rand195022195082%_))) + (_%__kont196577196578%_ + _%rand195023195093%_ + _%hd195013195067%_)))))) + (_%loop195018195077%_ _%target195015195072%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx195439195440%_)) - (let ((_%e193857194044%_ + (gx#stx-pair? _%__stx196571196572%_)) + (let ((_%e194989195176%_ (let () (declare (not safe)) - (gx#stx-e _%__stx195439195440%_)))) - (let ((_%tl193859194049%_ + (gx#stx-e _%__stx196571196572%_)))) + (let ((_%tl194991195181%_ (let () (declare (not safe)) - (##cdr _%e193857194044%_))) - (_%hd193858194047%_ + (##cdr _%e194989195176%_))) + (_%hd194990195179%_ (let () (declare (not safe)) - (##car _%e193857194044%_)))) + (##car _%e194989195176%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193858194047%_)) + (gx#identifier? _%hd194990195179%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd193858194047%_)) + (gx#stx-eq? '%#quote _%hd194990195179%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193859194049%_)) - (let ((_%e193860194052%_ + (gx#stx-pair? _%tl194991195181%_)) + (let ((_%e194992195184%_ (let () (declare (not safe)) - (gx#stx-e _%tl193859194049%_)))) - (let ((_%tl193862194057%_ + (gx#stx-e _%tl194991195181%_)))) + (let ((_%tl194994195189%_ (let () (declare (not safe)) - (##cdr _%e193860194052%_))) - (_%hd193861194055%_ + (##cdr _%e194992195184%_))) + (_%hd194993195187%_ (let () (declare (not safe)) - (##car _%e193860194052%_)))) + (##car _%e194992195184%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193862194057%_)) - (_%__kont195441195442%_) - (_%__kont195449195450%_)))) - (_%__kont195449195450%_)) + (gx#stx-null? _%tl194994195189%_)) + (_%__kont196573196574%_) + (_%__kont196581196582%_)))) + (_%__kont196581196582%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd193858194047%_)) + (gx#stx-eq? '%#ref _%hd194990195179%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193859194049%_)) - (let ((_%e193866194029%_ + (gx#stx-pair? _%tl194991195181%_)) + (let ((_%e194998195161%_ (let () (declare (not safe)) - (gx#stx-e _%tl193859194049%_)))) - (let ((_%tl193868194034%_ + (gx#stx-e _%tl194991195181%_)))) + (let ((_%tl195000195166%_ (let () (declare (not safe)) - (##cdr _%e193866194029%_))) - (_%hd193867194032%_ + (##cdr _%e194998195161%_))) + (_%hd194999195164%_ (let () (declare (not safe)) - (##car _%e193866194029%_)))) + (##car _%e194998195161%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193868194034%_)) - (_%__kont195443195444%_) - (_%__kont195449195450%_)))) - (_%__kont195449195450%_)) + _%tl195000195166%_)) + (_%__kont196575196576%_) + (_%__kont196581196582%_)))) + (_%__kont196581196582%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd193858194047%_)) + _%hd194990195179%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193859194049%_)) - (let ((_%e193874193916%_ + (gx#stx-pair? _%tl194991195181%_)) + (let ((_%e195006195048%_ (let () (declare (not safe)) (gx#stx-e - _%tl193859194049%_)))) - (let ((_%tl193876193921%_ + _%tl194991195181%_)))) + (let ((_%tl195008195053%_ (let () (declare (not safe)) - (##cdr _%e193874193916%_))) - (_%hd193875193919%_ + (##cdr _%e195006195048%_))) + (_%hd195007195051%_ (let () (declare (not safe)) - (##car _%e193874193916%_)))) + (##car _%e195006195048%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd193875193919%_)) - (let ((_%e193877193924%_ + _%hd195007195051%_)) + (let ((_%e195009195056%_ (let () (declare (not safe)) (gx#stx-e - _%hd193875193919%_)))) - (let ((_%tl193879193929%_ + _%hd195007195051%_)))) + (let ((_%tl195011195061%_ (let () (declare (not safe)) - (##cdr _%e193877193924%_))) - (_%hd193878193927%_ + (##cdr _%e195009195056%_))) + (_%hd195010195059%_ (let () (declare (not safe)) - (##car _%e193877193924%_)))) + (##car _%e195009195056%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd193878193927%_)) + _%hd195010195059%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd193878193927%_)) + (gx#stx-eq? '%#ref _%hd195010195059%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193879193929%_)) - (let ((_%e193880193932%_ + (gx#stx-pair? _%tl195011195061%_)) + (let ((_%e195012195064%_ (let () (declare (not safe)) - (gx#stx-e _%tl193879193929%_)))) - (let ((_%tl193882193937%_ + (gx#stx-e _%tl195011195061%_)))) + (let ((_%tl195014195069%_ (let () (declare (not safe)) - (##cdr _%e193880193932%_))) - (_%hd193881193935%_ + (##cdr _%e195012195064%_))) + (_%hd195013195067%_ (let () (declare (not safe)) - (##car _%e193880193932%_)))) + (##car _%e195012195064%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193882193937%_)) + (gx#stx-null? _%tl195014195069%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl193876193921%_)) - (let ((_%__splice195447195448%_ + (gx#stx-pair/null? _%tl195008195053%_)) + (let ((_%__splice196579196580%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl193876193921%_ + _%tl195008195053%_ '0)))) - (let ((_%tl193885193942%_ + (let ((_%tl195017195074%_ (let () (declare (not safe)) (##vector-ref - _%__splice195447195448%_ + _%__splice196579196580%_ '1))) - (_%target193883193940%_ + (_%target195015195072%_ (let () (declare (not safe)) (##vector-ref - _%__splice195447195448%_ + _%__splice196579196580%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193885193942%_)) - (_%__match195528195529%_ - _%e193857194044%_ - _%hd193858194047%_ - _%tl193859194049%_ - _%e193874193916%_ - _%hd193875193919%_ - _%tl193876193921%_ - _%e193877193924%_ - _%hd193878193927%_ - _%tl193879193929%_ - _%e193880193932%_ - _%hd193881193935%_ - _%tl193882193937%_ - _%__splice195447195448%_ - _%target193883193940%_ - _%tl193885193942%_) - (_%__kont195449195450%_)))) - (_%__kont195449195450%_)) - (_%__kont195449195450%_)))) - (_%__kont195449195450%_)) - (_%__kont195449195450%_)) - (_%__kont195449195450%_)))) + _%tl195017195074%_)) + (_%__match196660196661%_ + _%e194989195176%_ + _%hd194990195179%_ + _%tl194991195181%_ + _%e195006195048%_ + _%hd195007195051%_ + _%tl195008195053%_ + _%e195009195056%_ + _%hd195010195059%_ + _%tl195011195061%_ + _%e195012195064%_ + _%hd195013195067%_ + _%tl195014195069%_ + _%__splice196579196580%_ + _%target195015195072%_ + _%tl195017195074%_) + (_%__kont196581196582%_)))) + (_%__kont196581196582%_)) + (_%__kont196581196582%_)))) + (_%__kont196581196582%_)) + (_%__kont196581196582%_)) + (_%__kont196581196582%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont195449195450%_)))) - (_%__kont195449195450%_)) - (_%__kont195449195450%_)))) - (_%__kont195449195450%_)))) - (_%__kont195449195450%_))))))) + (_%__kont196581196582%_)))) + (_%__kont196581196582%_)) + (_%__kont196581196582%_)))) + (_%__kont196581196582%_)))) + (_%__kont196581196582%_))))))) (define gxc#expression-type? - (lambda (_%stx193845%_ _%klass193846%_) - (let ((_%expr-type193848%_ + (lambda (_%stx194977%_ _%klass194978%_) + (let ((_%expr-type194980%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%stx193845%_)))) - (if _%expr-type193848%_ + (gxc#apply-basic-expression-type _%stx194977%_)))) + (if _%expr-type194980%_ (let () (declare (not safe)) - (gxc#!type-subtype? _%expr-type193848%_ _%klass193846%_)) + (gxc#!type-subtype? _%expr-type194980%_ _%klass194978%_)) '#f)))) (define gxc#check-expression-type! - (lambda (_%stx193823%_ _%expr193824%_ _%type193825%_) - (if (not _%type193825%_) + (lambda (_%stx194955%_ _%expr194956%_ _%type194957%_) + (if (not _%type194957%_) '#f - (let ((_%$e193828%_ - (eq? (##structure-ref _%type193825%_ '1 gxc#!type::t '#f) + (let ((_%$e194960%_ + (eq? (##structure-ref _%type194957%_ '1 gxc#!type::t '#f) 't))) - (if _%$e193828%_ - _%$e193828%_ - (let ((_%expr-type193832%_ + (if _%$e194960%_ + _%$e194960%_ + (let ((_%expr-type194964%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%expr193824%_)))) - (if (not _%expr-type193832%_) + (gxc#apply-basic-expression-type _%expr194956%_)))) + (if (not _%expr-type194964%_) '#f (if (eq? 't (##structure-ref - _%expr-type193832%_ + _%expr-type194964%_ '1 gxc#!type::t '#f)) '#f - (let ((_%$e193836%_ + (let ((_%$e194968%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type193832%_ + _%expr-type194964%_ 'gxc#!abort::t)))) - (if _%$e193836%_ - _%$e193836%_ - (let ((_%$e193839%_ + (if _%$e194968%_ + _%$e194968%_ + (let ((_%$e194971%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type193832%_ - _%type193825%_)))) - (if _%$e193839%_ - _%$e193839%_ + _%expr-type194964%_ + _%type194957%_)))) + (if _%$e194971%_ + _%$e194971%_ (if (let () (declare (not safe)) (gxc#!interface-instance? - _%type193825%_)) + _%type194957%_)) '#f (if (let () (declare (not safe)) (gxc#!type-subtype? - _%type193825%_ - _%expr-type193832%_)) + _%type194957%_ + _%expr-type194964%_)) '#f (let () (declare (not safe)) (gxc#raise-compile-error '"signature type mismatch" - _%stx193823%_ - _%expr193824%_ - _%expr-type193832%_ - _%type193825%_)))))))))))))))) + _%stx194955%_ + _%expr194956%_ + _%expr-type194964%_ + _%type194957%_)))))))))))))))) (define gxc#!constructor::optimize-call - (lambda (_%self191258193635%_ _%ctx193637%_ _%stx193638%_ _%args193639%_) - (let* ((_%self193641%_ _%self191258193635%_) - (_%self193643%_ _%self193641%_) - (_%klass193653%_ - (let ((__tmp196048 + (lambda (_%self192390194767%_ _%ctx194769%_ _%stx194770%_ _%args194771%_) + (let* ((_%self194773%_ _%self192390194767%_) + (_%self194775%_ _%self194773%_) + (_%klass194785%_ + (let ((__tmp197180 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193643%_ + _%self194775%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx193638%_ __tmp196048))) - (_%fields193655%_ + (gxc#optimizer-resolve-class _%stx194770%_ __tmp197180))) + (_%fields194787%_ (length (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193653%_ + _%klass194785%_ '5 '#f '#f)))) - (_%args193661%_ - (map (lambda (_%g193656193658%_) + (_%args194793%_ + (map (lambda (_%g194788194790%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%ctx193637%_ _%g193656193658%_))) - _%args193639%_)) - (_%inline-make-object193663%_ + (gxc#compile-e__1 _%ctx194769%_ _%g194788194790%_))) + _%args194771%_)) + (_%inline-make-object194795%_ (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193643%_ + _%self194775%_ '1 '#f '#f)) @@ -2058,66 +2052,66 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193643%_ + _%self194775%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (make-list - _%fields193655%_ + _%fields194787%_ '(%#quote #f))))) '())))) - (_%klass193666%_ _%klass193653%_) - (_%$e193680%_ + (_%klass194798%_ _%klass194785%_) + (_%$e194812%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass193666%_ '6 '#f '#f)))) - (if _%$e193680%_ - ((lambda (_%ctor193683%_) - (let ((_%$obj193685%_ - (let ((__tmp196049 + (##unchecked-structure-ref _%klass194798%_ '6 '#f '#f)))) + (if _%$e194812%_ + ((lambda (_%ctor194815%_) + (let ((_%$obj194817%_ + (let ((__tmp197181 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp196049))) - (_%ctor-impl193686%_ + (make-symbol__0 __tmp197181))) + (_%ctor-impl194818%_ (let () (declare (not safe)) (gxc#!class-lookup-method - _%klass193666%_ - _%ctor193683%_)))) - (let ((__tmp196050 + _%klass194798%_ + _%ctor194815%_)))) + (let ((__tmp197182 (cons '%#let-values - (cons (cons (cons (cons _%$obj193685%_ '()) - (cons _%inline-make-object193663%_ + (cons (cons (cons (cons _%$obj194817%_ '()) + (cons _%inline-make-object194795%_ '())) '()) (cons (cons '%#begin - (cons (if _%ctor-impl193686%_ - (let ((__tmp196051 + (cons (if _%ctor-impl194818%_ + (let ((__tmp197183 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%ctor-impl193686%_ '())) + (cons _%ctor-impl194818%_ '())) (cons (cons '%#ref - (cons _%$obj193685%_ '())) - _%args193661%_))))) + (cons _%$obj194817%_ '())) + _%args194793%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp196051 - _%stx193638%_ - _%ctx193637%_)) - (let ((_%$ctor193688%_ - (let ((__tmp196052 + __tmp197183 + _%stx194770%_ + _%ctx194769%_)) + (let ((_%$ctor194820%_ + (let ((__tmp197184 (let () (declare (not safe)) (##gensym '__constructor)))) (declare (not safe)) - (make-symbol__0 __tmp196052)))) + (make-symbol__0 __tmp197184)))) (cons '%#let-values - (cons (cons (cons (cons _%$ctor193688%_ '()) + (cons (cons (cons (cons _%$ctor194820%_ '()) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -2126,28 +2120,28 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193643%_ + _%self194775%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj193685%_ '())) + (cons (cons '%#ref (cons _%$obj194817%_ '())) (cons (cons '%#quote - (cons _%ctor193683%_ '())) + (cons _%ctor194815%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons '%#if (cons (cons '%#ref - (cons _%$ctor193688%_ + (cons _%$ctor194820%_ '())) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$ctor193688%_ '())) - (cons (cons '%#ref (cons _%$obj193685%_ '())) - _%args193661%_))) + (cons _%$ctor194820%_ '())) + (cons (cons '%#ref (cons _%$obj194817%_ '())) + _%args194793%_))) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote @@ -2160,92 +2154,92 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193643%_ + _%self194775%_ '1 '#f '#f)) '())) (cons (cons '%#quote (cons 'method: '())) - (cons (cons '%#quote (cons _%ctor193683%_ '())) '()))))))) + (cons (cons '%#quote (cons _%ctor194815%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (cons (cons '%#ref (cons _%$obj193685%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj194817%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196050 _%stx193638%_)))) - _%$e193680%_) - (let ((_%$e193690%_ + (gxc#xform-wrap-source __tmp197182 _%stx194770%_)))) + _%$e194812%_) + (let ((_%$e194822%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193666%_ + _%klass194798%_ '10 '#f '#f)))) - (if _%$e193690%_ - ((lambda (_%metaclass193693%_) - (let* ((_%$obj193695%_ - (let ((__tmp196053 + (if _%$e194822%_ + ((lambda (_%metaclass194825%_) + (let* ((_%$obj194827%_ + (let ((__tmp197185 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp196053))) - (_%metakons193697%_ - (let ((__tmp196054 + (make-symbol__0 __tmp197185))) + (_%metakons194829%_ + (let ((__tmp197186 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx193638%_ - _%metaclass193693%_)))) + _%stx194770%_ + _%metaclass194825%_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp196054 + __tmp197186 'instance-init!))) - (__tmp196055 + (__tmp197187 (cons '%#let-values - (cons (cons (cons (cons _%$obj193695%_ + (cons (cons (cons (cons _%$obj194827%_ '()) - (cons _%inline-make-object193663%_ + (cons _%inline-make-object194795%_ '())) '()) (cons (cons '%#begin - (cons (if _%metakons193697%_ + (cons (if _%metakons194829%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp196056 + (let ((__tmp197188 (cons '%#call (cons (cons '%#ref - (cons _%metakons193697%_ + (cons _%metakons194829%_ '())) (cons (cons '%#ref (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self193643%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self194775%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj193695%_ + (cons _%$obj194827%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args193661%_)))))) + _%args194793%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp196056 - _%stx193638%_ - _%ctx193637%_)) + __tmp197188 + _%stx194770%_ + _%ctx194769%_)) (cons '%#call (cons (cons '%#ref (cons 'call-method '())) (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193643%_ + _%self194775%_ '1 '#f '#f)) @@ -2254,38 +2248,38 @@ (cons 'instance-init! '())) (cons (cons '%#ref - (cons _%$obj193695%_ + (cons _%$obj194827%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args193661%_)))))) + _%args194793%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons '%#ref (cons _%$obj193695%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj194827%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196055 _%stx193638%_))) - _%$e193690%_) + (gxc#xform-wrap-source __tmp197187 _%stx194770%_))) + _%$e194822%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193666%_ + _%klass194798%_ '7 '#f '#f)) - (if (let ((__tmp196057 + (if (let ((__tmp197189 (let () (declare (not safe)) - (##length _%args193661%_)))) + (##length _%args194793%_)))) (declare (not safe)) - (##fx= __tmp196057 _%fields193655%_)) - (let ((__tmp196058 + (##fx= __tmp197189 _%fields194787%_)) + (let ((__tmp197190 (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193643%_ + _%self194775%_ '1 '#f '#f)) @@ -2298,151 +2292,151 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193643%_ + _%self194775%_ '1 '#f '#f)) '())) - _%args193661%_))) + _%args194793%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp196058 - _%stx193638%_)) - (let ((__tmp196060 + __tmp197190 + _%stx194770%_)) + (let ((__tmp197192 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193643%_ + _%self194775%_ '1 '#f '#f))) - (__tmp196059 + (__tmp197191 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193666%_ + _%klass194798%_ '5 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _%stx193638%_ - __tmp196060 - __tmp196059))) - (let ((_%$obj193702%_ - (let ((__tmp196061 + _%stx194770%_ + __tmp197192 + __tmp197191))) + (let ((_%$obj194834%_ + (let ((__tmp197193 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp196061)))) - (let _%lp193704%_ ((_%rest193706%_ _%args193661%_) - (_%initializers193707%_ '())) - (let* ((_%__stx195531195532%_ _%rest193706%_) - (_%g193711193732%_ + (make-symbol__0 __tmp197193)))) + (let _%lp194836%_ ((_%rest194838%_ _%args194793%_) + (_%initializers194839%_ '())) + (let* ((_%__stx196663196664%_ _%rest194838%_) + (_%g194843194864%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195531195532%_))))) - (let ((_%__kont195533195534%_ - (lambda (_%L193786%_ - _%L193787%_ - _%L193788%_) - (let* ((_%slot193815%_ - (let ((__tmp196062 + _%__stx196663196664%_))))) + (let ((_%__kont196665196666%_ + (lambda (_%L194918%_ + _%L194919%_ + _%L194920%_) + (let* ((_%slot194947%_ + (let ((__tmp197194 (let () (declare (not safe)) (gx#stx-e - _%L193788%_)))) + _%L194920%_)))) (declare (not safe)) (keyword->symbol - __tmp196062))) - (_%off193817%_ + __tmp197194))) + (_%off194949%_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _%klass193666%_ - _%slot193815%_)))) - (if _%off193817%_ - (_%lp193704%_ - _%L193786%_ - (cons (cons _%off193817%_ - _%L193787%_) - _%initializers193707%_)) - (let ((__tmp196063 + _%klass194798%_ + _%slot194947%_)))) + (if _%off194949%_ + (_%lp194836%_ + _%L194918%_ + (cons (cons _%off194949%_ + _%L194919%_) + _%initializers194839%_)) + (let ((__tmp197195 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193643%_ + _%self194775%_ '1 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _%stx193638%_ - __tmp196063 - _%slot193815%_)))))) - (_%__kont195535195536%_ + _%stx194770%_ + __tmp197195 + _%slot194947%_)))))) + (_%__kont196667196668%_ (lambda () - (let ((__tmp196064 + (let ((__tmp197196 (cons '%#let-values - (cons (cons (cons (cons _%$obj193702%_ + (cons (cons (cons (cons _%$obj194834%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object193663%_ '())) + (cons _%inline-make-object194795%_ '())) '()) (cons (cons '%#begin - (let ((__tmp196067 + (let ((__tmp197199 (cons (cons '%#ref - (cons _%$obj193702%_ '())) + (cons _%$obj194834%_ '())) '())) - (__tmp196065 - (let ((__tmp196066 - (lambda (_%i193746%_ _%r193747%_) + (__tmp197197 + (let ((__tmp197198 + (lambda (_%i194878%_ _%r194879%_) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193643%_ + _%self194775%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons (car _%i193746%_) '())) - (cons (cons '%#ref (cons _%$obj193702%_ '())) - (cons (cdr _%i193746%_) '()))))) + (cons (cons '%#quote (cons (car _%i194878%_) '())) + (cons (cons '%#ref (cons _%$obj194834%_ '())) + (cons (cdr _%i194878%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r193747%_)))) + _%r194879%_)))) (declare (not safe)) (__foldl1 - __tmp196066 + __tmp197198 '() - _%initializers193707%_)))) + _%initializers194839%_)))) (declare (not safe)) - (__foldr1 cons __tmp196067 __tmp196065))) + (__foldr1 cons __tmp197199 __tmp197197))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196064 - _%stx193638%_)))) - (_%__kont195537195538%_ + __tmp197196 + _%stx194770%_)))) + (_%__kont196669196670%_ (lambda () - (let ((__tmp196068 + (let ((__tmp197200 (cons '%#let-values - (cons (cons (cons (cons _%$obj193702%_ + (cons (cons (cons (cons _%$obj194834%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object193663%_ '())) + (cons _%inline-make-object194795%_ '())) '()) (cons (cons '%#begin (cons (cons '%#call @@ -2450,157 +2444,157 @@ (cons 'class-instance-init! '())) (cons (cons '%#ref - (cons _%$obj193702%_ + (cons _%$obj194834%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args193661%_))) + _%args194793%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj193702%_ '())) + (cons _%$obj194834%_ '())) '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196068 - _%stx193638%_))))) - (let* ((_%g193709193749%_ + __tmp197200 + _%stx194770%_))))) + (let* ((_%g194841194881%_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - _%__stx195531195532%_)) - (_%__kont195535195536%_) - (_%__kont195537195538%_)))) - (_%__match195568195569%_ - (lambda (_%e193716193754%_ - _%hd193717193757%_ - _%tl193718193759%_ - _%e193719193762%_ - _%hd193720193765%_ - _%tl193721193767%_ - _%e193722193770%_ - _%hd193723193773%_ - _%tl193724193775%_ - _%e193725193778%_ - _%hd193726193781%_ - _%tl193727193783%_) - (let ((_%L193786%_ - _%tl193727193783%_) - (_%L193787%_ - _%hd193726193781%_) - (_%L193788%_ - _%hd193723193773%_)) + _%__stx196663196664%_)) + (_%__kont196667196668%_) + (_%__kont196669196670%_)))) + (_%__match196700196701%_ + (lambda (_%e194848194886%_ + _%hd194849194889%_ + _%tl194850194891%_ + _%e194851194894%_ + _%hd194852194897%_ + _%tl194853194899%_ + _%e194854194902%_ + _%hd194855194905%_ + _%tl194856194907%_ + _%e194857194910%_ + _%hd194858194913%_ + _%tl194859194915%_) + (let ((_%L194918%_ + _%tl194859194915%_) + (_%L194919%_ + _%hd194858194913%_) + (_%L194920%_ + _%hd194855194905%_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _%L193788%_)) - (_%__kont195533195534%_ - _%L193786%_ - _%L193787%_ - _%L193788%_) - (_%__kont195537195538%_)))))) + _%L194920%_)) + (_%__kont196665196666%_ + _%L194918%_ + _%L194919%_ + _%L194920%_) + (_%__kont196669196670%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx195531195532%_)) - (let ((_%e193716193754%_ + (gx#stx-pair? _%__stx196663196664%_)) + (let ((_%e194848194886%_ (let () (declare (not safe)) (gx#stx-e - _%__stx195531195532%_)))) - (let ((_%tl193718193759%_ + _%__stx196663196664%_)))) + (let ((_%tl194850194891%_ (let () (declare (not safe)) - (##cdr _%e193716193754%_))) - (_%hd193717193757%_ + (##cdr _%e194848194886%_))) + (_%hd194849194889%_ (let () (declare (not safe)) - (##car _%e193716193754%_)))) + (##car _%e194848194886%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd193717193757%_)) - (let ((_%e193719193762%_ + _%hd194849194889%_)) + (let ((_%e194851194894%_ (let () (declare (not safe)) (gx#stx-e - _%hd193717193757%_)))) - (let ((_%tl193721193767%_ + _%hd194849194889%_)))) + (let ((_%tl194853194899%_ (let () (declare (not safe)) - (##cdr _%e193719193762%_))) - (_%hd193720193765%_ + (##cdr _%e194851194894%_))) + (_%hd194852194897%_ (let () (declare (not safe)) - (##car _%e193719193762%_)))) + (##car _%e194851194894%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd193720193765%_)) + _%hd194852194897%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd193720193765%_)) + _%hd194852194897%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl193721193767%_)) - (let ((_%e193722193770%_ + (gx#stx-pair? _%tl194853194899%_)) + (let ((_%e194854194902%_ (let () (declare (not safe)) - (gx#stx-e _%tl193721193767%_)))) - (let ((_%tl193724193775%_ + (gx#stx-e _%tl194853194899%_)))) + (let ((_%tl194856194907%_ (let () (declare (not safe)) - (##cdr _%e193722193770%_))) - (_%hd193723193773%_ + (##cdr _%e194854194902%_))) + (_%hd194855194905%_ (let () (declare (not safe)) - (##car _%e193722193770%_)))) + (##car _%e194854194902%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193724193775%_)) + (gx#stx-null? _%tl194856194907%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193718193759%_)) - (let ((_%e193725193778%_ + (gx#stx-pair? _%tl194850194891%_)) + (let ((_%e194857194910%_ (let () (declare (not safe)) - (gx#stx-e _%tl193718193759%_)))) - (let ((_%tl193727193783%_ + (gx#stx-e _%tl194850194891%_)))) + (let ((_%tl194859194915%_ (let () (declare (not safe)) - (##cdr _%e193725193778%_))) - (_%hd193726193781%_ + (##cdr _%e194857194910%_))) + (_%hd194858194913%_ (let () (declare (not safe)) - (##car _%e193725193778%_)))) - (_%__match195568195569%_ - _%e193716193754%_ - _%hd193717193757%_ - _%tl193718193759%_ - _%e193719193762%_ - _%hd193720193765%_ - _%tl193721193767%_ - _%e193722193770%_ - _%hd193723193773%_ - _%tl193724193775%_ - _%e193725193778%_ - _%hd193726193781%_ - _%tl193727193783%_))) - (_%__kont195537195538%_)) - (_%__kont195537195538%_)))) - (_%__kont195537195538%_)) - (_%__kont195537195538%_)) - (_%__kont195537195538%_)))) + (##car _%e194857194910%_)))) + (_%__match196700196701%_ + _%e194848194886%_ + _%hd194849194889%_ + _%tl194850194891%_ + _%e194851194894%_ + _%hd194852194897%_ + _%tl194853194899%_ + _%e194854194902%_ + _%hd194855194905%_ + _%tl194856194907%_ + _%e194857194910%_ + _%hd194858194913%_ + _%tl194859194915%_))) + (_%__kont196669196670%_)) + (_%__kont196669196670%_)))) + (_%__kont196669196670%_)) + (_%__kont196669196670%_)) + (_%__kont196669196670%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont195537195538%_)))) + (_%__kont196669196670%_)))) (let () (declare (not safe)) - (_%g193709193749%_))))))))))))))) + (_%g194841194881%_))))))))))))))) (let () (declare (not safe)) (__bind-method!__% @@ -2609,105 +2603,105 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_%self191259193416%_ _%ctx193418%_ _%stx193419%_ _%args193420%_) - (let* ((_%self193422%_ _%self191259193416%_) - (_%self193424%_ _%self193422%_) - (_%arguments-ok?193434%_ - (let ((__method196012 + (lambda (_%self192391194548%_ _%ctx194550%_ _%stx194551%_ _%args194552%_) + (let* ((_%self194554%_ _%self192391194548%_) + (_%self194556%_ _%self194554%_) + (_%arguments-ok?194566%_ + (let ((__method197144 (let () (declare (not safe)) - (__method-ref _%self193424%_ 'check-arguments)))) - (if __method196012 + (__method-ref _%self194556%_ 'check-arguments)))) + (if __method197144 (let () (declare (not safe)) - (__method196012 - _%self193424%_ - _%ctx193418%_ - _%stx193419%_ - _%args193420%_)) + (__method197144 + _%self194556%_ + _%ctx194550%_ + _%stx194551%_ + _%args194552%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self193424%_ + _%self194556%_ 'check-arguments)) '#!void)))) - (_%g193436193446%_ - (lambda (_%g193437193443%_) + (_%g194568194578%_ + (lambda (_%g194569194575%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g193437193443%_)))) - (_%g193435193510%_ - (lambda (_%g193437193449%_) + _%g194569194575%_)))) + (_%g194567194642%_ + (lambda (_%g194569194581%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g193437193449%_)) - (let ((_%e193439193451%_ + (gx#stx-pair? _%g194569194581%_)) + (let ((_%e194571194583%_ (let () (declare (not safe)) - (gx#stx-e _%g193437193449%_)))) - (let ((_%hd193440193454%_ + (gx#stx-e _%g194569194581%_)))) + (let ((_%hd194572194586%_ (let () (declare (not safe)) - (##car _%e193439193451%_))) - (_%tl193441193456%_ + (##car _%e194571194583%_))) + (_%tl194573194588%_ (let () (declare (not safe)) - (##cdr _%e193439193451%_)))) + (##cdr _%e194571194583%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193441193456%_)) - ((lambda (_%L193459%_) - (let* ((_%klass193472%_ - (let ((__tmp196069 + (gx#stx-null? _%tl194573194588%_)) + ((lambda (_%L194591%_) + (let* ((_%klass194604%_ + (let ((__tmp197201 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx193419%_ - __tmp196069))) - (_%field193474%_ - (let ((__tmp196070 + _%stx194551%_ + __tmp197201))) + (_%field194606%_ + (let ((__tmp197202 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass193472%_ - __tmp196070))) - (_%object193476%_ + _%klass194604%_ + __tmp197202))) + (_%object194608%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx193418%_ - _%L193459%_))) - (_%klass193479%_ _%klass193472%_)) + _%ctx194550%_ + _%L194591%_))) + (_%klass194611%_ _%klass194604%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193479%_ + _%klass194611%_ '8 '#f '#f)) - (let ((__tmp196071 - (cons (if (or _%arguments-ok?193434%_ + (let ((__tmp197203 + (cons (if (or _%arguments-ok?194566%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '4 '#f '#f)))) @@ -2719,32 +2713,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193474%_ '())) - (cons _%object193476%_ '())))))) + (cons (cons '%#quote (cons _%field194606%_ '())) + (cons _%object194608%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196071 - _%stx193419%_)) + __tmp197203 + _%stx194551%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193479%_ + _%klass194611%_ '7 '#f '#f)) - (let ((__tmp196072 - (cons (if (or _%arguments-ok?193434%_ + (let ((__tmp197204 + (cons (if (or _%arguments-ok?194566%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '4 '#f '#f)))) @@ -2754,40 +2748,40 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193474%_ '())) - (cons _%object193476%_ '())))))) + (cons (cons '%#quote (cons _%field194606%_ '())) + (cons _%object194608%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196072 - _%stx193419%_)) - (let ((_%$e193498%_ - (let ((__tmp196073 + __tmp197204 + _%stx194551%_)) + (let ((_%$e194630%_ + (let ((__tmp197205 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass193479%_ - __tmp196073)))) - (if _%$e193498%_ - ((lambda (_%klass193501%_) - (let ((__tmp196074 - (cons (if (or _%arguments-ok?193434%_ + _%klass194611%_ + __tmp197205)))) + (if _%$e194630%_ + ((lambda (_%klass194633%_) + (let ((__tmp197206 + (cons (if (or _%arguments-ok?194566%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '4 '#f '#f)))) @@ -2797,36 +2791,36 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193474%_ '())) - (cons _%object193476%_ '())))))) + (cons (cons '%#quote (cons _%field194606%_ '())) + (cons _%object194608%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196074 _%stx193419%_))) + (gxc#xform-wrap-source __tmp197206 _%stx194551%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e193498%_) + _%$e194630%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '4 '#f '#f)) - (let ((__tmp196075 - (let ((_%$obj193507%_ + (let ((__tmp197207 + (let ((_%$obj194639%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp196076 + (let ((__tmp197208 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp196076)))) + (make-symbol__0 __tmp197208)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj193507%_ '()) - (cons _%object193476%_ '())) + (cons (cons (cons (cons _%$obj194639%_ '()) + (cons _%object194608%_ '())) '()) (cons (cons '%#if (cons (cons '%#struct-direct-instance? @@ -2835,12 +2829,12 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193479%_ + _%klass194611%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj193507%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj194639%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref @@ -2848,27 +2842,27 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193474%_ '())) + (cons (cons '%#quote (cons _%field194606%_ '())) (cons (cons '%#ref - (cons _%$obj193507%_ '())) + (cons _%$obj194639%_ '())) '())))) - (cons (if _%arguments-ok?193434%_ + (cons (if _%arguments-ok?194566%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj193507%_ '())) + (cons _%$obj194639%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '3 '#f '#f)) @@ -2883,20 +2877,20 @@ (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj193507%_ + (cons _%$obj194639%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '3 '#f '#f)) @@ -2907,148 +2901,148 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196075 _%stx193419%_)) + (gxc#xform-wrap-source __tmp197207 _%stx194551%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp196077 + (let ((__tmp197209 (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object193476%_ + (cons _%object194608%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196077 _%stx193419%_))))))))) + (gxc#xform-wrap-source __tmp197209 _%stx194551%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd193440193454%_) - (_%g193436193446%_ _%g193437193449%_)))) - (_%g193436193446%_ _%g193437193449%_))))) - (_%g193435193510%_ _%args193420%_)))) + _%hd194572194586%_) + (_%g194568194578%_ _%g194569194581%_)))) + (_%g194568194578%_ _%g194569194581%_))))) + (_%g194567194642%_ _%args194552%_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__klass195299 __method-table195300) - (let ((__check-arguments195301 - (let ((__tmp196078 + (lambda (__klass196431 __method-table196432) + (let ((__check-arguments196433 + (let ((__tmp197210 (lambda () - (let ((__method195302 + (let ((__method196434 (let () (declare (not safe)) (symbolic-table-ref - __method-table195300 + __method-table196432 'check-arguments '#f)))) - (if __method195302 - __method195302 + (if __method196434 + __method196434 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp196078))) - (__slot195303 - (let ((__slot195304 + (__make-promise __tmp197210))) + (__slot196435 + (let ((__slot196436 (let () (declare (not safe)) - (class-slot-offset __klass195299 'slot)))) - (if __slot195304 - __slot195304 + (class-slot-offset __klass196431 'slot)))) + (if __slot196436 + __slot196436 (let () (declare (not safe)) (error '"Unknown slot" 'slot)))))) - (lambda (_%self191259193416%_ - _%ctx193418%_ - _%stx193419%_ - _%args193420%_) - (let* ((_%self193422%_ _%self191259193416%_) - (_%self193424%_ _%self193422%_) - (_%arguments-ok?193434%_ - ((force __check-arguments195301) - _%self193424%_ - _%ctx193418%_ - _%stx193419%_ - _%args193420%_)) - (_%g193436193446%_ - (lambda (_%g193437193443%_) + (lambda (_%self192391194548%_ + _%ctx194550%_ + _%stx194551%_ + _%args194552%_) + (let* ((_%self194554%_ _%self192391194548%_) + (_%self194556%_ _%self194554%_) + (_%arguments-ok?194566%_ + ((force __check-arguments196433) + _%self194556%_ + _%ctx194550%_ + _%stx194551%_ + _%args194552%_)) + (_%g194568194578%_ + (lambda (_%g194569194575%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g193437193443%_)))) - (_%g193435193510%_ - (lambda (_%g193437193449%_) + _%g194569194575%_)))) + (_%g194567194642%_ + (lambda (_%g194569194581%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g193437193449%_)) - (let ((_%e193439193451%_ + (gx#stx-pair? _%g194569194581%_)) + (let ((_%e194571194583%_ (let () (declare (not safe)) - (gx#stx-e _%g193437193449%_)))) - (let ((_%hd193440193454%_ + (gx#stx-e _%g194569194581%_)))) + (let ((_%hd194572194586%_ (let () (declare (not safe)) - (##car _%e193439193451%_))) - (_%tl193441193456%_ + (##car _%e194571194583%_))) + (_%tl194573194588%_ (let () (declare (not safe)) - (##cdr _%e193439193451%_)))) + (##cdr _%e194571194583%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193441193456%_)) - ((lambda (_%L193459%_) - (let* ((_%klass193472%_ - (let ((__tmp196079 + (gx#stx-null? _%tl194573194588%_)) + ((lambda (_%L194591%_) + (let* ((_%klass194604%_ + (let ((__tmp197211 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx193419%_ - __tmp196079))) - (_%field193474%_ - (let ((__tmp196080 + _%stx194551%_ + __tmp197211))) + (_%field194606%_ + (let ((__tmp197212 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass193472%_ - __tmp196080))) - (_%object193476%_ + _%klass194604%_ + __tmp197212))) + (_%object194608%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx193418%_ - _%L193459%_))) - (_%klass193479%_ _%klass193472%_)) + _%ctx194550%_ + _%L194591%_))) + (_%klass194611%_ _%klass194604%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193479%_ + _%klass194611%_ '8 '#f '#f)) - (let ((__tmp196081 - (cons (if (or _%arguments-ok?193434%_ + (let ((__tmp197213 + (cons (if (or _%arguments-ok?194566%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '4 '#f '#f)))) @@ -3058,32 +3052,32 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193474%_ '())) - (cons _%object193476%_ '())))))) + (cons (cons '%#quote (cons _%field194606%_ '())) + (cons _%object194608%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196081 - _%stx193419%_)) + __tmp197213 + _%stx194551%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193479%_ + _%klass194611%_ '7 '#f '#f)) - (let ((__tmp196082 - (cons (if (or _%arguments-ok?193434%_ + (let ((__tmp197214 + (cons (if (or _%arguments-ok?194566%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '4 '#f '#f)))) @@ -3093,37 +3087,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193474%_ '())) - (cons _%object193476%_ '())))))) + (cons (cons '%#quote (cons _%field194606%_ '())) + (cons _%object194608%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196082 - _%stx193419%_)) - (let ((_%$e193498%_ - (let ((__tmp196083 + __tmp197214 + _%stx194551%_)) + (let ((_%$e194630%_ + (let ((__tmp197215 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self193424%_ '3 '#f '#f)))) + (##unchecked-structure-ref _%self194556%_ '3 '#f '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _%klass193479%_ __tmp196083)))) + (gxc#!class-slot-find-struct _%klass194611%_ __tmp197215)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e193498%_ - ((lambda (_%klass193501%_) - (let ((__tmp196084 - (cons (if (or _%arguments-ok?193434%_ + (if _%$e194630%_ + ((lambda (_%klass194633%_) + (let ((__tmp197216 + (cons (if (or _%arguments-ok?194566%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '4 '#f '#f)))) @@ -3133,37 +3127,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field193474%_ '())) - (cons _%object193476%_ '())))))) + (cons _%field194606%_ '())) + (cons _%object194608%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196084 _%stx193419%_))) - _%$e193498%_) + (gxc#xform-wrap-source __tmp197216 _%stx194551%_))) + _%$e194630%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '4 '#f '#f)) - (let ((__tmp196085 - (let ((_%$obj193507%_ + (let ((__tmp197217 + (let ((_%$obj194639%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp196086 + (let ((__tmp197218 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp196086)))) + (make-symbol__0 __tmp197218)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj193507%_ '()) - (cons _%object193476%_ '())) + (cons (cons (cons (cons _%$obj194639%_ '()) + (cons _%object194608%_ '())) '()) (cons (cons '%#if (cons (cons '%#struct-direct-instance? @@ -3172,43 +3166,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193479%_ + _%klass194611%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj193507%_ '())) + (cons (cons '%#ref (cons _%$obj194639%_ '())) '()))) (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field193474%_ '())) + (cons _%field194606%_ '())) (cons (cons '%#ref - (cons _%$obj193507%_ '())) + (cons _%$obj194639%_ '())) '())))) - (cons (if _%arguments-ok?193434%_ + (cons (if _%arguments-ok?194566%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj193507%_ + (cons _%$obj194639%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ - __slot195303 + _%self194556%_ + __slot196435 '#f '#f)) '())) @@ -3222,18 +3216,18 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self193424%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self194556%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj193507%_ + (cons _%$obj194639%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '3 '#f '#f)) @@ -3244,30 +3238,30 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196085 _%stx193419%_)) - (let ((__tmp196087 + (gxc#xform-wrap-source __tmp197217 _%stx194551%_)) + (let ((__tmp197219 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object193476%_ + (cons _%object194608%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193424%_ + _%self194556%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196087 _%stx193419%_))))))))) + (gxc#xform-wrap-source __tmp197219 _%stx194551%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd193440193454%_) - (_%g193436193446%_ _%g193437193449%_)))) - (_%g193436193446%_ _%g193437193449%_))))) - (_%g193435193510%_ _%args193420%_)))))) + _%hd194572194586%_) + (_%g194568194578%_ _%g194569194581%_)))) + (_%g194568194578%_ _%g194569194581%_))))) + (_%g194567194642%_ _%args194552%_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3281,127 +3275,127 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_%self191260193178%_ _%ctx193180%_ _%stx193181%_ _%args193182%_) - (let* ((_%self193184%_ _%self191260193178%_) - (_%self193186%_ _%self193184%_) - (_%arguments-ok?193196%_ - (let ((__method196013 + (lambda (_%self192392194310%_ _%ctx194312%_ _%stx194313%_ _%args194314%_) + (let* ((_%self194316%_ _%self192392194310%_) + (_%self194318%_ _%self194316%_) + (_%arguments-ok?194328%_ + (let ((__method197145 (let () (declare (not safe)) - (__method-ref _%self193186%_ 'check-arguments)))) - (if __method196013 + (__method-ref _%self194318%_ 'check-arguments)))) + (if __method197145 (let () (declare (not safe)) - (__method196013 - _%self193186%_ - _%ctx193180%_ - _%stx193181%_ - _%args193182%_)) + (__method197145 + _%self194318%_ + _%ctx194312%_ + _%stx194313%_ + _%args194314%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self193186%_ + _%self194318%_ 'check-arguments)) '#!void)))) - (_%g193198193212%_ - (lambda (_%g193199193209%_) + (_%g194330194344%_ + (lambda (_%g194331194341%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g193199193209%_)))) - (_%g193197193291%_ - (lambda (_%g193199193215%_) + _%g194331194341%_)))) + (_%g194329194423%_ + (lambda (_%g194331194347%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g193199193215%_)) - (let ((_%e193202193217%_ + (gx#stx-pair? _%g194331194347%_)) + (let ((_%e194334194349%_ (let () (declare (not safe)) - (gx#stx-e _%g193199193215%_)))) - (let ((_%hd193203193220%_ + (gx#stx-e _%g194331194347%_)))) + (let ((_%hd194335194352%_ (let () (declare (not safe)) - (##car _%e193202193217%_))) - (_%tl193204193222%_ + (##car _%e194334194349%_))) + (_%tl194336194354%_ (let () (declare (not safe)) - (##cdr _%e193202193217%_)))) + (##cdr _%e194334194349%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193204193222%_)) - (let ((_%e193205193225%_ + (gx#stx-pair? _%tl194336194354%_)) + (let ((_%e194337194357%_ (let () (declare (not safe)) - (gx#stx-e _%tl193204193222%_)))) - (let ((_%hd193206193228%_ + (gx#stx-e _%tl194336194354%_)))) + (let ((_%hd194338194360%_ (let () (declare (not safe)) - (##car _%e193205193225%_))) - (_%tl193207193230%_ + (##car _%e194337194357%_))) + (_%tl194339194362%_ (let () (declare (not safe)) - (##cdr _%e193205193225%_)))) + (##cdr _%e194337194357%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193207193230%_)) - ((lambda (_%L193233%_ _%L193234%_) - (let* ((_%klass193250%_ - (let ((__tmp196088 + (gx#stx-null? _%tl194339194362%_)) + ((lambda (_%L194365%_ _%L194366%_) + (let* ((_%klass194382%_ + (let ((__tmp197220 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx193181%_ - __tmp196088))) - (_%field193252%_ - (let ((__tmp196089 + _%stx194313%_ + __tmp197220))) + (_%field194384%_ + (let ((__tmp197221 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass193250%_ - __tmp196089))) - (_%object193254%_ + _%klass194382%_ + __tmp197221))) + (_%object194386%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx193180%_ - _%L193234%_))) - (_%value193256%_ + _%ctx194312%_ + _%L194366%_))) + (_%value194388%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx193180%_ - _%L193233%_))) - (_%klass193259%_ - _%klass193250%_)) + _%ctx194312%_ + _%L194365%_))) + (_%klass194391%_ + _%klass194382%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193259%_ + _%klass194391%_ '8 '#f '#f)) - (let ((__tmp196090 - (cons (if (or _%arguments-ok?193196%_ + (let ((__tmp197222 + (cons (if (or _%arguments-ok?194328%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '4 '#f '#f)))) @@ -3411,33 +3405,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193252%_ '())) - (cons _%object193254%_ - (cons _%value193256%_ '()))))))) + (cons (cons '%#quote (cons _%field194384%_ '())) + (cons _%object194386%_ + (cons _%value194388%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196090 - _%stx193181%_)) + __tmp197222 + _%stx194313%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193259%_ + _%klass194391%_ '7 '#f '#f)) - (let ((__tmp196091 - (cons (if (or _%arguments-ok?193196%_ + (let ((__tmp197223 + (cons (if (or _%arguments-ok?194328%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '4 '#f '#f)))) @@ -3447,43 +3441,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193252%_ '())) - (cons _%object193254%_ - (cons _%value193256%_ '()))))))) + (cons (cons '%#quote (cons _%field194384%_ '())) + (cons _%object194386%_ + (cons _%value194388%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196091 - _%stx193181%_)) - (let ((_%$e193279%_ - (let ((__tmp196092 + __tmp197223 + _%stx194313%_)) + (let ((_%$e194411%_ + (let ((__tmp197224 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass193259%_ - __tmp196092)))) + _%klass194391%_ + __tmp197224)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e193279%_ - ((lambda (_%klass193282%_) - (let ((__tmp196093 + (if _%$e194411%_ + ((lambda (_%klass194414%_) + (let ((__tmp197225 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (if (or _%arguments-ok?193196%_ + (cons (if (or _%arguments-ok?194328%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '3 '#f '#f)))) @@ -3493,33 +3487,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field193252%_ '())) - (cons _%object193254%_ - (cons _%value193256%_ + (cons _%field194384%_ '())) + (cons _%object194386%_ + (cons _%value194388%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196093 _%stx193181%_))) - _%$e193279%_) + (gxc#xform-wrap-source __tmp197225 _%stx194313%_))) + _%$e194411%_) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self193186%_ '4 '#f '#f)) - (let ((__tmp196094 - (let ((_%$obj193288%_ - (let ((__tmp196095 + (##unchecked-structure-ref _%self194318%_ '4 '#f '#f)) + (let ((__tmp197226 + (let ((_%$obj194420%_ + (let ((__tmp197227 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp196095)))) + (make-symbol__0 __tmp197227)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj193288%_ '()) - (cons _%object193254%_ + (cons (cons (cons (cons _%$obj194420%_ '()) + (cons _%object194386%_ '())) '()) (cons (cons '%#if @@ -3529,49 +3523,49 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193259%_ + _%klass194391%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj193288%_ '())) + (cons (cons '%#ref (cons _%$obj194420%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field193252%_ '())) + (cons _%field194384%_ '())) (cons (cons '%#ref - (cons _%$obj193288%_ + (cons _%$obj194420%_ '())) - (cons _%value193256%_ + (cons _%value194388%_ '()))))) - (cons (if _%arguments-ok?193196%_ + (cons (if _%arguments-ok?194328%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj193288%_ + (cons _%$obj194420%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '3 '#f '#f)) '())) - (cons _%value193256%_ '()))))) + (cons _%value194388%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3582,189 +3576,189 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj193288%_ '())) + (cons (cons '%#ref (cons _%$obj194420%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '3 '#f '#f)) '())) - (cons _%value193256%_ '()))))))) + (cons _%value194388%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196094 _%stx193181%_)) - (let ((__tmp196096 + (gxc#xform-wrap-source __tmp197226 _%stx194313%_)) + (let ((__tmp197228 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object193254%_ + (cons _%object194386%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '3 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%value193256%_ + (cons _%value194388%_ '()))))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp196096 - _%stx193181%_))))))))) + __tmp197228 + _%stx194313%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd193206193228%_ - _%hd193203193220%_) - (_%g193198193212%_ _%g193199193215%_)))) - (_%g193198193212%_ _%g193199193215%_)))) - (_%g193198193212%_ _%g193199193215%_))))) - (_%g193197193291%_ _%args193182%_)))) + _%hd194338194360%_ + _%hd194335194352%_) + (_%g194330194344%_ _%g194331194347%_)))) + (_%g194330194344%_ _%g194331194347%_)))) + (_%g194330194344%_ _%g194331194347%_))))) + (_%g194329194423%_ _%args194314%_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__klass195305 __method-table195306) - (let ((__check-arguments195307 - (let ((__tmp196097 + (lambda (__klass196437 __method-table196438) + (let ((__check-arguments196439 + (let ((__tmp197229 (lambda () - (let ((__method195308 + (let ((__method196440 (let () (declare (not safe)) (symbolic-table-ref - __method-table195306 + __method-table196438 'check-arguments '#f)))) - (if __method195308 - __method195308 + (if __method196440 + __method196440 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp196097)))) - (lambda (_%self191260193178%_ - _%ctx193180%_ - _%stx193181%_ - _%args193182%_) - (let* ((_%self193184%_ _%self191260193178%_) - (_%self193186%_ _%self193184%_) - (_%arguments-ok?193196%_ - ((force __check-arguments195307) - _%self193186%_ - _%ctx193180%_ - _%stx193181%_ - _%args193182%_)) - (_%g193198193212%_ - (lambda (_%g193199193209%_) + (__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%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g193199193209%_)))) - (_%g193197193291%_ - (lambda (_%g193199193215%_) + _%g194331194341%_)))) + (_%g194329194423%_ + (lambda (_%g194331194347%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g193199193215%_)) - (let ((_%e193202193217%_ + (gx#stx-pair? _%g194331194347%_)) + (let ((_%e194334194349%_ (let () (declare (not safe)) - (gx#stx-e _%g193199193215%_)))) - (let ((_%hd193203193220%_ + (gx#stx-e _%g194331194347%_)))) + (let ((_%hd194335194352%_ (let () (declare (not safe)) - (##car _%e193202193217%_))) - (_%tl193204193222%_ + (##car _%e194334194349%_))) + (_%tl194336194354%_ (let () (declare (not safe)) - (##cdr _%e193202193217%_)))) + (##cdr _%e194334194349%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193204193222%_)) - (let ((_%e193205193225%_ + (gx#stx-pair? _%tl194336194354%_)) + (let ((_%e194337194357%_ (let () (declare (not safe)) - (gx#stx-e _%tl193204193222%_)))) - (let ((_%hd193206193228%_ + (gx#stx-e _%tl194336194354%_)))) + (let ((_%hd194338194360%_ (let () (declare (not safe)) - (##car _%e193205193225%_))) - (_%tl193207193230%_ + (##car _%e194337194357%_))) + (_%tl194339194362%_ (let () (declare (not safe)) - (##cdr _%e193205193225%_)))) + (##cdr _%e194337194357%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193207193230%_)) - ((lambda (_%L193233%_ _%L193234%_) - (let* ((_%klass193250%_ - (let ((__tmp196098 + (gx#stx-null? _%tl194339194362%_)) + ((lambda (_%L194365%_ _%L194366%_) + (let* ((_%klass194382%_ + (let ((__tmp197230 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx193181%_ - __tmp196098))) - (_%field193252%_ - (let ((__tmp196099 + _%stx194313%_ + __tmp197230))) + (_%field194384%_ + (let ((__tmp197231 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass193250%_ - __tmp196099))) - (_%object193254%_ + _%klass194382%_ + __tmp197231))) + (_%object194386%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx193180%_ - _%L193234%_))) - (_%value193256%_ + _%ctx194312%_ + _%L194366%_))) + (_%value194388%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx193180%_ - _%L193233%_))) - (_%klass193259%_ - _%klass193250%_)) + _%ctx194312%_ + _%L194365%_))) + (_%klass194391%_ + _%klass194382%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193259%_ + _%klass194391%_ '8 '#f '#f)) - (let ((__tmp196100 - (cons (if (or _%arguments-ok?193196%_ + (let ((__tmp197232 + (cons (if (or _%arguments-ok?194328%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '4 '#f '#f)))) @@ -3774,33 +3768,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193252%_ '())) - (cons _%object193254%_ - (cons _%value193256%_ '()))))))) + (cons (cons '%#quote (cons _%field194384%_ '())) + (cons _%object194386%_ + (cons _%value194388%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196100 - _%stx193181%_)) + __tmp197232 + _%stx194313%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193259%_ + _%klass194391%_ '7 '#f '#f)) - (let ((__tmp196101 - (cons (if (or _%arguments-ok?193196%_ + (let ((__tmp197233 + (cons (if (or _%arguments-ok?194328%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '4 '#f '#f)))) @@ -3810,38 +3804,38 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field193252%_ '())) - (cons _%object193254%_ - (cons _%value193256%_ '()))))))) + (cons _%field194384%_ '())) + (cons _%object194386%_ + (cons _%value194388%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196101 _%stx193181%_)) - (let ((_%$e193279%_ - (let ((__tmp196102 + (gxc#xform-wrap-source __tmp197233 _%stx194313%_)) + (let ((_%$e194411%_ + (let ((__tmp197234 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass193259%_ - __tmp196102)))) - (if _%$e193279%_ - ((lambda (_%klass193282%_) - (let ((__tmp196103 - (cons (if (or _%arguments-ok?193196%_ + _%klass194391%_ + __tmp197234)))) + (if _%$e194411%_ + ((lambda (_%klass194414%_) + (let ((__tmp197235 + (cons (if (or _%arguments-ok?194328%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '3 '#f '#f)))) @@ -3851,39 +3845,39 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field193252%_ + (cons _%field194384%_ '())) - (cons _%object193254%_ - (cons _%value193256%_ + (cons _%object194386%_ + (cons _%value194388%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196103 _%stx193181%_))) - _%$e193279%_) + (gxc#xform-wrap-source __tmp197235 _%stx194313%_))) + _%$e194411%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '4 '#f '#f)) - (let ((__tmp196104 - (let ((_%$obj193288%_ - (let ((__tmp196105 + (let ((__tmp197236 + (let ((_%$obj194420%_ + (let ((__tmp197237 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp196105)))) + (make-symbol__0 __tmp197237)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj193288%_ + (cons (cons (cons (cons _%$obj194420%_ '()) - (cons _%object193254%_ + (cons _%object194386%_ '())) '()) (cons (cons '%#if @@ -3893,52 +3887,52 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193259%_ + _%klass194391%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj193288%_ '())) + (cons _%$obj194420%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field193252%_ + (cons _%field194384%_ '())) (cons (cons '%#ref - (cons _%$obj193288%_ + (cons _%$obj194420%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%value193256%_ '()))))) + (cons _%value194388%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (if _%arguments-ok?193196%_ + (cons (if _%arguments-ok?194328%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj193288%_ + (cons _%$obj194420%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '3 '#f '#f)) '())) - (cons _%value193256%_ '()))))) + (cons _%value194388%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3949,58 +3943,58 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj193288%_ '())) + (cons (cons '%#ref (cons _%$obj194420%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '3 '#f '#f)) '())) - (cons _%value193256%_ '()))))))) + (cons _%value194388%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196104 _%stx193181%_)) - (let ((__tmp196106 + (gxc#xform-wrap-source __tmp197236 _%stx194313%_)) + (let ((__tmp197238 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object193254%_ + (cons _%object194386%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193186%_ + _%self194318%_ '3 '#f '#f)) '())) - (cons _%value193256%_ '()))))))) + (cons _%value194388%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196106 - _%stx193181%_))))))))) + __tmp197238 + _%stx194313%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd193206193228%_ - _%hd193203193220%_) - (_%g193198193212%_ - _%g193199193215%_)))) - (_%g193198193212%_ _%g193199193215%_)))) - (_%g193198193212%_ _%g193199193215%_))))) - (_%g193197193291%_ _%args193182%_)))))) + _%hd194338194360%_ + _%hd194335194352%_) + (_%g194330194344%_ + _%g194331194347%_)))) + (_%g194330194344%_ _%g194331194347%_)))) + (_%g194330194344%_ _%g194331194347%_))))) + (_%g194329194423%_ _%args194314%_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4014,97 +4008,97 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_%self191261192991%_ _%ctx192993%_ _%stx192994%_ _%args192995%_) - (let* ((_%self192997%_ _%self191261192991%_) - (_%self192999%_ _%self192997%_) - (_%self193008193018%_ _%self192999%_) - (_%E193010193022%_ + (lambda (_%self192393194123%_ _%ctx194125%_ _%stx194126%_ _%args194127%_) + (let* ((_%self194129%_ _%self192393194123%_) + (_%self194131%_ _%self194129%_) + (_%self194140194150%_ _%self194131%_) + (_%E194142194154%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self193008193018%_ + _%self194140194150%_ '((!lambda _ _ arity dispatch inline)))) '#!void)) - (_%K193011193032%_ - (lambda (_%inline193025%_ _%dispatch193026%_ _%arity193027%_) + (_%K194143194164%_ + (lambda (_%inline194157%_ _%dispatch194158%_ _%arity194159%_) (if (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%self192999%_ - _%args192995%_)) + _%self194131%_ + _%args194127%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _%stx192994%_ - _%arity193027%_))) - (if _%inline193025%_ + _%stx194126%_ + _%arity194159%_))) + (if _%inline194157%_ (let () (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp196107 (_%inline193025%_ _%stx192994%_))) + (let ((__tmp197239 (_%inline194157%_ _%stx194126%_))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp196107 - _%stx192994%_ - _%ctx192993%_))) - (if (and _%dispatch193026%_ + __tmp197239 + _%stx194126%_ + _%ctx194125%_))) + (if (and _%dispatch194158%_ (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%dispatch193026%_))) + _%dispatch194158%_))) (let () (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _%dispatch193026%_)) - (let ((__tmp196108 + _%dispatch194158%_)) + (let ((__tmp197240 (cons '%#call (cons (cons '%#ref - (cons _%dispatch193026%_ + (cons _%dispatch194158%_ '())) - _%args192995%_)))) + _%args194127%_)))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp196108 - _%stx192994%_ - _%ctx192993%_))) + __tmp197240 + _%stx194126%_ + _%ctx194125%_))) (gxc#!procedure::optimize-call - _%self192999%_ - _%ctx192993%_ - _%stx192994%_ - _%args192995%_))))) - (_%e193012193035%_ + _%self194131%_ + _%ctx194125%_ + _%stx194126%_ + _%args194127%_))))) + (_%e194144194167%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193008193018%_ '1 '#f '#f))) - (_%e193013193038%_ + (##unchecked-structure-ref _%self194140194150%_ '1 '#f '#f))) + (_%e194145194170%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193008193018%_ '2 '#f '#f))) - (_%e193014193041%_ + (##unchecked-structure-ref _%self194140194150%_ '2 '#f '#f))) + (_%e194146194173%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193008193018%_ '3 '#f '#f))) - (_%arity193044%_ _%e193014193041%_) - (_%e193015193046%_ + (##unchecked-structure-ref _%self194140194150%_ '3 '#f '#f))) + (_%arity194176%_ _%e194146194173%_) + (_%e194147194178%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193008193018%_ '4 '#f '#f))) - (_%dispatch193049%_ _%e193015193046%_) - (_%e193016193051%_ + (##unchecked-structure-ref _%self194140194150%_ '4 '#f '#f))) + (_%dispatch194181%_ _%e194147194178%_) + (_%e194148194183%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193008193018%_ '5 '#f '#f))) - (_%inline193054%_ _%e193016193051%_)) - (_%K193011193032%_ - _%inline193054%_ - _%dispatch193049%_ - _%arity193044%_)))) + (##unchecked-structure-ref _%self194140194150%_ '5 '#f '#f))) + (_%inline194186%_ _%e194148194183%_)) + (_%K194143194164%_ + _%inline194186%_ + _%dispatch194181%_ + _%arity194176%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4113,63 +4107,63 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_%self191262192841%_ _%ctx192843%_ _%stx192844%_ _%args192845%_) - (let* ((_%self192847%_ _%self191262192841%_) - (_%self192849%_ _%self192847%_) - (_%$e192863%_ - (let ((__tmp196110 - (lambda (_%g192858192860%_) + (lambda (_%self192394193973%_ _%ctx193975%_ _%stx193976%_ _%args193977%_) + (let* ((_%self193979%_ _%self192394193973%_) + (_%self193981%_ _%self193979%_) + (_%$e193995%_ + (let ((__tmp197242 + (lambda (_%g193990193992%_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%g192858192860%_ - _%args192845%_)))) - (__tmp196109 + _%g193990193992%_ + _%args193977%_)))) + (__tmp197241 (let () (declare (not safe)) (##unchecked-structure-ref - _%self192849%_ + _%self193981%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp196110 __tmp196109)))) - (if _%$e192863%_ - ((lambda (_%clause192866%_) - (let ((__method196014 + (__find __tmp197242 __tmp197241)))) + (if _%$e193995%_ + ((lambda (_%clause193998%_) + (let ((__method197146 (let () (declare (not safe)) - (__method-ref _%clause192866%_ 'optimize-call)))) - (if __method196014 + (__method-ref _%clause193998%_ 'optimize-call)))) + (if __method197146 (let () (declare (not safe)) - (__method196014 - _%clause192866%_ - _%ctx192843%_ - _%stx192844%_ - _%args192845%_)) + (__method197146 + _%clause193998%_ + _%ctx193975%_ + _%stx193976%_ + _%args193977%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause192866%_ + _%clause193998%_ 'optimize-call)) '#!void)))) - _%$e192863%_) - (let ((__tmp196111 + _%$e193995%_) + (let ((__tmp197243 (map gxc#!lambda-arity (let () (declare (not safe)) (##unchecked-structure-ref - _%self192849%_ + _%self193981%_ '3 '#f '#f))))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _%stx192844%_ - __tmp196111)))))) + _%stx193976%_ + __tmp197243)))))) (let () (declare (not safe)) (__bind-method!__% @@ -4178,116 +4172,116 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!kw-lambda::optimize-call - (lambda (_%self191263192579%_ _%ctx192581%_ _%stx192582%_ _%args192583%_) - (let* ((_%self192585%_ _%self191263192579%_) - (_%self192587%_ _%self192585%_) - (_%self192596192605%_ _%self192587%_) - (_%E192598192609%_ + (lambda (_%self192395193711%_ _%ctx193713%_ _%stx193714%_ _%args193715%_) + (let* ((_%self193717%_ _%self192395193711%_) + (_%self193719%_ _%self193717%_) + (_%self193728193737%_ _%self193719%_) + (_%E193730193741%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self192596192605%_ + _%self193728193737%_ '((!kw-lambda _ _ table dispatch)))) '#!void)) - (_%K192599192700%_ - (lambda (_%dispatch192612%_ _%table192613%_) + (_%K193731193832%_ + (lambda (_%dispatch193744%_ _%table193745%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%dispatch192612%_)) - (let* ((_%g192614192624%_ + (gxc#symbol-in-local-scope? _%dispatch193744%_)) + (let* ((_%g193746193756%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%dispatch192612%_))) - (_%else192616192632%_ + _%dispatch193744%_))) + (_%else193748193764%_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _%dispatch192612%_)) + _%dispatch193744%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx192581%_ - _%stx192582%_)))) - (_%K192618192681%_ - (lambda (_%main192635%_ _%keys192636%_) - (let ((_g196112_ + _%ctx193713%_ + _%stx193714%_)))) + (_%K193750193813%_ + (lambda (_%main193767%_ _%keys193768%_) + (let ((_g197244_ (gxc#!kw-lambda-split-args - _%stx192582%_ - _%args192583%_))) + _%stx193714%_ + _%args193715%_))) (begin - (let ((_g196113_ + (let ((_g197245_ (let () (declare (not safe)) - (if (##values? _g196112_) - (##vector-length _g196112_) + (if (##values? _g197244_) + (##vector-length _g197244_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g196113_ 2))) + (##fx= _g197245_ 2))) (error "Context expects 2 values" - _g196113_))) - (let ((_%pargs192638%_ + _g197245_))) + (let ((_%pargs193770%_ (let () (declare (not safe)) - (##vector-ref _g196112_ 0))) - (_%kwargs192639%_ + (##vector-ref _g197244_ 0))) + (_%kwargs193771%_ (let () (declare (not safe)) - (##vector-ref _g196112_ 1)))) + (##vector-ref _g197244_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _%main192635%_)) - (if _%table192613%_ - (let ((_%xargs192647%_ - (map (lambda (_%key192641%_) - (let ((_%$e192643%_ + _%main193767%_)) + (if _%table193745%_ + (let ((_%xargs193779%_ + (map (lambda (_%key193773%_) + (let ((_%$e193775%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key192641%_ _%kwargs192639%_)))) - (if _%$e192643%_ _%$e192643%_ '(%#ref absent-value)))) - _%keys192636%_))) + (agetq__0 _%key193773%_ _%kwargs193771%_)))) + (if _%$e193775%_ _%$e193775%_ '(%#ref absent-value)))) + _%keys193768%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%kw192649%_) - (if (memq (car _%kw192649%_) - _%keys192636%_) + (lambda (_%kw193781%_) + (if (memq (car _%kw193781%_) + _%keys193768%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _%stx192582%_ - _%keys192636%_ - _%kw192649%_)))) - _%kwargs192639%_) - (let ((__tmp196114 + _%stx193714%_ + _%keys193768%_ + _%kw193781%_)))) + _%kwargs193771%_) + (let ((__tmp197246 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%main192635%_ '())) + (cons _%main193767%_ '())) (cons (cons '%#quote (cons '#f '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs192638%_ - _%xargs192647%_))))))) + _%pargs193770%_ + _%xargs193779%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp196114 - _%stx192582%_ - _%ctx192581%_))) - (let* ((_%kwt192651%_ - (let ((__tmp196115 + __tmp197246 + _%stx193714%_ + _%ctx193713%_))) + (let* ((_%kwt193783%_ + (let ((__tmp197247 (let () (declare (not safe)) @@ -4295,175 +4289,175 @@ '__kwt)))) (declare (not safe)) (make-symbol__0 - __tmp196115))) - (_%kwvars192655%_ - (map (lambda (_%_192653%_) - (let ((__tmp196116 + __tmp197247))) + (_%kwvars193787%_ + (map (lambda (_%_193785%_) + (let ((__tmp197248 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__kw)))) (declare (not safe)) - (make-symbol__0 __tmp196116))) - _%kwargs192639%_)) + (make-symbol__0 __tmp197248))) + _%kwargs193771%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwbind192660%_ - (map (lambda (_%kw192657%_ + (_%kwbind193792%_ + (map (lambda (_%kw193789%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar192658%_) - (cons (cons _%kwvar192658%_ '()) - (cons (cdr _%kw192657%_) '()))) - _%kwargs192639%_ - _%kwvars192655%_)) + _%kwvar193790%_) + (cons (cons _%kwvar193790%_ '()) + (cons (cdr _%kw193789%_) '()))) + _%kwargs193771%_ + _%kwvars193787%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwset192665%_ - (map (lambda (_%kw192662%_ + (_%kwset193797%_ + (map (lambda (_%kw193794%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar192663%_) + _%kwvar193795%_) (cons '%#call (cons '(%#ref symbolic-table-set!) - (cons (cons '%#ref (cons _%kwt192651%_ '())) + (cons (cons '%#ref (cons _%kwt193783%_ '())) (cons (cons '%#quote - (cons (car _%kw192662%_) '())) + (cons (car _%kw193794%_) '())) (cons (cons '%#ref - (cons _%kwvar192663%_ + (cons _%kwvar193795%_ '())) '())))))) - _%kwargs192639%_ - _%kwvars192655%_)) + _%kwargs193771%_ + _%kwvars193787%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xkwargs192670%_ - (map (lambda (_%kw192667%_ + (_%xkwargs193802%_ + (map (lambda (_%kw193799%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar192668%_) - (cons (car _%kw192667%_) - (cons '%#ref (cons _%kwvar192668%_ '())))) - _%kwargs192639%_ - _%kwvars192655%_)) + _%kwvar193800%_) + (cons (car _%kw193799%_) + (cons '%#ref (cons _%kwvar193800%_ '())))) + _%kwargs193771%_ + _%kwvars193787%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xargs192678%_ - (map (lambda (_%key192672%_) - (let ((_%$e192674%_ + (_%xargs193810%_ + (map (lambda (_%key193804%_) + (let ((_%$e193806%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key192672%_ _%xkwargs192670%_)))) - (if _%$e192674%_ _%$e192674%_ '(%#ref absent-value)))) - _%keys192636%_)) + (agetq__0 _%key193804%_ _%xkwargs193802%_)))) + (if _%$e193806%_ _%$e193806%_ '(%#ref absent-value)))) + _%keys193768%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp196117 + (__tmp197249 (cons '%#let-values - (cons _%kwbind192660%_ + (cons _%kwbind193792%_ (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%kwt192651%_ '()) - (cons (let ((__tmp196118 + (cons (cons (cons (cons _%kwt193783%_ '()) + (cons (let ((__tmp197250 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons '(%#ref make-symbolic-table) (cons (cons '%#quote - (cons (length _%kwargs192639%_) + (cons (length _%kwargs193771%_) '())) (cons '(%#quote (length kwvars)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196118 _%stx192582%_)) + (gxc#xform-wrap-source __tmp197250 _%stx193714%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#begin - (let ((__tmp196119 - (cons (let ((__tmp196120 + (let ((__tmp197251 + (cons (let ((__tmp197252 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%main192635%_ '())) + (cons _%main193767%_ '())) (cons (cons '%#ref - (cons _%kwt192651%_ + (cons _%kwt193783%_ '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs192638%_ - _%xargs192678%_))))))) + _%pargs193770%_ + _%xargs193810%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196120 _%stx192582%_)) + (gxc#xform-wrap-source __tmp197252 _%stx193714%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp196119 _%kwset192665%_))) + (__foldr1 cons __tmp197251 _%kwset193797%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp196117 - _%stx192582%_ - _%ctx192581%_)))))))))) + __tmp197249 + _%stx193714%_ + _%ctx193713%_)))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g192614192624%_ + _%g193746193756%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e192619192684%_ + (let* ((_%e193751193816%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g192614192624%_ + _%g193746193756%_ '1 '#f '#f))) - (_%e192620192687%_ + (_%e193752193819%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g192614192624%_ + _%g193746193756%_ '2 '#f '#f))) - (_%e192621192690%_ + (_%e193753193822%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g192614192624%_ + _%g193746193756%_ '3 '#f '#f))) - (_%keys192693%_ _%e192621192690%_) - (_%e192622192695%_ + (_%keys193825%_ _%e193753193822%_) + (_%e193754193827%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g192614192624%_ + _%g193746193756%_ '4 '#f '#f))) - (_%main192698%_ _%e192622192695%_)) - (_%K192618192681%_ - _%main192698%_ - _%keys192693%_)) - (_%else192616192632%_))) + (_%main193830%_ _%e193754193827%_)) + (_%K193750193813%_ + _%main193830%_ + _%keys193825%_)) + (_%else193748193764%_))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx192581%_ _%stx192582%_))))) - (_%e192600192703%_ + (gxc#xform-call% _%ctx193713%_ _%stx193714%_))))) + (_%e193732193835%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self192596192605%_ '1 '#f '#f))) - (_%e192601192706%_ + (##unchecked-structure-ref _%self193728193737%_ '1 '#f '#f))) + (_%e193733193838%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self192596192605%_ '2 '#f '#f))) - (_%e192602192709%_ + (##unchecked-structure-ref _%self193728193737%_ '2 '#f '#f))) + (_%e193734193841%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self192596192605%_ '3 '#f '#f))) - (_%table192712%_ _%e192602192709%_) - (_%e192603192714%_ + (##unchecked-structure-ref _%self193728193737%_ '3 '#f '#f))) + (_%table193844%_ _%e193734193841%_) + (_%e193735193846%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self192596192605%_ '4 '#f '#f))) - (_%dispatch192717%_ _%e192603192714%_)) - (_%K192599192700%_ _%dispatch192717%_ _%table192712%_)))) + (##unchecked-structure-ref _%self193728193737%_ '4 '#f '#f))) + (_%dispatch193849%_ _%e193735193846%_)) + (_%K193731193832%_ _%dispatch193849%_ _%table193844%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4472,287 +4466,287 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_%stx192192%_ _%args192193%_) - (let _%lp192195%_ ((_%rest192197%_ _%args192193%_) - (_%pargs192198%_ '()) - (_%kwargs192199%_ '())) - (let* ((_%__stx195573195574%_ _%rest192197%_) - (_%g192205192257%_ + (lambda (_%stx193324%_ _%args193325%_) + (let _%lp193327%_ ((_%rest193329%_ _%args193325%_) + (_%pargs193330%_ '()) + (_%kwargs193331%_ '())) + (let* ((_%__stx196705196706%_ _%rest193329%_) + (_%g193337193389%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195573195574%_))))) - (let ((_%__kont195575195576%_ - (lambda (_%L192436%_ _%L192437%_) - (_%lp192195%_ - _%L192436%_ - (cons _%L192437%_ _%pargs192198%_) - _%kwargs192199%_))) - (_%__kont195577195578%_ - (lambda (_%L192382%_) + _%__stx196705196706%_))))) + (let ((_%__kont196707196708%_ + (lambda (_%L193568%_ _%L193569%_) + (_%lp193327%_ + _%L193568%_ + (cons _%L193569%_ _%pargs193330%_) + _%kwargs193331%_))) + (_%__kont196709196710%_ + (lambda (_%L193514%_) (values (let () (declare (not safe)) - (__foldl1 cons _%L192382%_ _%pargs192198%_)) - (reverse _%kwargs192199%_)))) - (_%__kont195579195580%_ - (lambda (_%L192329%_ _%L192330%_ _%L192331%_) - (let ((_%kw192348%_ + (__foldl1 cons _%L193514%_ _%pargs193330%_)) + (reverse _%kwargs193331%_)))) + (_%__kont196711196712%_ + (lambda (_%L193461%_ _%L193462%_ _%L193463%_) + (let ((_%kw193480%_ (let () (declare (not safe)) - (gx#stx-e _%L192331%_)))) - (if (assq _%kw192348%_ _%kwargs192199%_) + (gx#stx-e _%L193463%_)))) + (if (assq _%kw193480%_ _%kwargs193331%_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _%stx192192%_ - _%kw192348%_)) - (_%lp192195%_ - _%L192329%_ - _%pargs192198%_ - (cons (cons _%kw192348%_ _%L192330%_) - _%kwargs192199%_)))))) - (_%__kont195581195582%_ - (lambda (_%L192277%_ _%L192278%_) - (_%lp192195%_ - _%L192277%_ - (cons _%L192278%_ _%pargs192198%_) - _%kwargs192199%_))) - (_%__kont195583195584%_ + _%stx193324%_ + _%kw193480%_)) + (_%lp193327%_ + _%L193461%_ + _%pargs193330%_ + (cons (cons _%kw193480%_ _%L193462%_) + _%kwargs193331%_)))))) + (_%__kont196713196714%_ + (lambda (_%L193409%_ _%L193410%_) + (_%lp193327%_ + _%L193409%_ + (cons _%L193410%_ _%pargs193330%_) + _%kwargs193331%_))) + (_%__kont196715196716%_ (lambda () - (values (reverse _%pargs192198%_) - (reverse _%kwargs192199%_))))) - (let ((_%__match195680195681%_ - (lambda (_%e192236192297%_ - _%hd192237192300%_ - _%tl192238192302%_ - _%e192239192305%_ - _%hd192240192308%_ - _%tl192241192310%_ - _%e192242192313%_ - _%hd192243192316%_ - _%tl192244192318%_ - _%e192245192321%_ - _%hd192246192324%_ - _%tl192247192326%_) - (let ((_%L192329%_ _%tl192247192326%_) - (_%L192330%_ _%hd192246192324%_) - (_%L192331%_ _%hd192243192316%_)) + (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%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L192331%_)) - (_%__kont195579195580%_ - _%L192329%_ - _%L192330%_ - _%L192331%_) - (_%__kont195581195582%_ - _%tl192238192302%_ - _%hd192237192300%_)))))) + (gx#stx-keyword? _%L193463%_)) + (_%__kont196711196712%_ + _%L193461%_ + _%L193462%_ + _%L193463%_) + (_%__kont196713196714%_ + _%tl193370193434%_ + _%hd193369193432%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx195573195574%_)) - (let ((_%e192209192401%_ + (gx#stx-pair? _%__stx196705196706%_)) + (let ((_%e193341193533%_ (let () (declare (not safe)) - (gx#stx-e _%__stx195573195574%_)))) - (let ((_%tl192211192406%_ + (gx#stx-e _%__stx196705196706%_)))) + (let ((_%tl193343193538%_ (let () (declare (not safe)) - (##cdr _%e192209192401%_))) - (_%hd192210192404%_ + (##cdr _%e193341193533%_))) + (_%hd193342193536%_ (let () (declare (not safe)) - (##car _%e192209192401%_)))) + (##car _%e193341193533%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192210192404%_)) - (let ((_%e192212192409%_ + (gx#stx-pair? _%hd193342193536%_)) + (let ((_%e193344193541%_ (let () (declare (not safe)) - (gx#stx-e _%hd192210192404%_)))) - (let ((_%tl192214192414%_ + (gx#stx-e _%hd193342193536%_)))) + (let ((_%tl193346193546%_ (let () (declare (not safe)) - (##cdr _%e192212192409%_))) - (_%hd192213192412%_ + (##cdr _%e193344193541%_))) + (_%hd193345193544%_ (let () (declare (not safe)) - (##car _%e192212192409%_)))) + (##car _%e193344193541%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192213192412%_)) + (gx#identifier? _%hd193345193544%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd192213192412%_)) + _%hd193345193544%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192214192414%_)) - (let ((_%e192215192417%_ + _%tl193346193546%_)) + (let ((_%e193347193549%_ (let () (declare (not safe)) (gx#stx-e - _%tl192214192414%_)))) - (let ((_%tl192217192422%_ + _%tl193346193546%_)))) + (let ((_%tl193349193554%_ (let () (declare (not safe)) - (##cdr _%e192215192417%_))) - (_%hd192216192420%_ + (##cdr _%e193347193549%_))) + (_%hd193348193552%_ (let () (declare (not safe)) - (##car _%e192215192417%_)))) + (##car _%e193347193549%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd192216192420%_)) - (let ((_%e192218192425%_ + _%hd193348193552%_)) + (let ((_%e193350193557%_ (let () (declare (not safe)) (gx#stx-e - _%hd192216192420%_)))) - (if (equal? _%e192218192425%_ + _%hd193348193552%_)))) + (if (equal? _%e193350193557%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192217192422%_)) + (gx#stx-null? _%tl193349193554%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192211192406%_)) - (let ((_%e192219192428%_ + (gx#stx-pair? _%tl193343193538%_)) + (let ((_%e193351193560%_ (let () (declare (not safe)) - (gx#stx-e _%tl192211192406%_)))) - (let ((_%tl192221192433%_ + (gx#stx-e _%tl193343193538%_)))) + (let ((_%tl193353193565%_ (let () (declare (not safe)) - (##cdr _%e192219192428%_))) - (_%hd192220192431%_ + (##cdr _%e193351193560%_))) + (_%hd193352193563%_ (let () (declare (not safe)) - (##car _%e192219192428%_)))) - (_%__kont195575195576%_ - _%tl192221192433%_ - _%hd192220192431%_))) - (_%__kont195581195582%_ - _%tl192211192406%_ - _%hd192210192404%_)) - (_%__kont195581195582%_ - _%tl192211192406%_ - _%hd192210192404%_)) - (if (equal? _%e192218192425%_ '#!rest) + (##car _%e193351193560%_)))) + (_%__kont196707196708%_ + _%tl193353193565%_ + _%hd193352193563%_))) + (_%__kont196713196714%_ + _%tl193343193538%_ + _%hd193342193536%_)) + (_%__kont196713196714%_ + _%tl193343193538%_ + _%hd193342193536%_)) + (if (equal? _%e193350193557%_ '#!rest) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192217192422%_)) - (_%__kont195577195578%_ _%tl192211192406%_) - (_%__kont195581195582%_ - _%tl192211192406%_ - _%hd192210192404%_)) + (gx#stx-null? _%tl193349193554%_)) + (_%__kont196709196710%_ _%tl193343193538%_) + (_%__kont196713196714%_ + _%tl193343193538%_ + _%hd193342193536%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192217192422%_)) + (gx#stx-null? _%tl193349193554%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192211192406%_)) - (let ((_%e192245192321%_ + (gx#stx-pair? _%tl193343193538%_)) + (let ((_%e193377193453%_ (let () (declare (not safe)) - (gx#stx-e _%tl192211192406%_)))) - (let ((_%tl192247192326%_ + (gx#stx-e _%tl193343193538%_)))) + (let ((_%tl193379193458%_ (let () (declare (not safe)) - (##cdr _%e192245192321%_))) - (_%hd192246192324%_ + (##cdr _%e193377193453%_))) + (_%hd193378193456%_ (let () (declare (not safe)) - (##car _%e192245192321%_)))) - (_%__match195680195681%_ - _%e192209192401%_ - _%hd192210192404%_ - _%tl192211192406%_ - _%e192212192409%_ - _%hd192213192412%_ - _%tl192214192414%_ - _%e192215192417%_ - _%hd192216192420%_ - _%tl192217192422%_ - _%e192245192321%_ - _%hd192246192324%_ - _%tl192247192326%_))) - (_%__kont195581195582%_ - _%tl192211192406%_ - _%hd192210192404%_)) - (_%__kont195581195582%_ - _%tl192211192406%_ - _%hd192210192404%_))))) + (##car _%e193377193453%_)))) + (_%__match196812196813%_ + _%e193341193533%_ + _%hd193342193536%_ + _%tl193343193538%_ + _%e193344193541%_ + _%hd193345193544%_ + _%tl193346193546%_ + _%e193347193549%_ + _%hd193348193552%_ + _%tl193349193554%_ + _%e193377193453%_ + _%hd193378193456%_ + _%tl193379193458%_))) + (_%__kont196713196714%_ + _%tl193343193538%_ + _%hd193342193536%_)) + (_%__kont196713196714%_ + _%tl193343193538%_ + _%hd193342193536%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl192217192422%_)) + _%tl193349193554%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192211192406%_)) - (let ((_%e192245192321%_ + _%tl193343193538%_)) + (let ((_%e193377193453%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192211192406%_)))) - (let ((_%tl192247192326%_ + (gx#stx-e _%tl193343193538%_)))) + (let ((_%tl193379193458%_ (let () (declare (not safe)) - (##cdr _%e192245192321%_))) - (_%hd192246192324%_ + (##cdr _%e193377193453%_))) + (_%hd193378193456%_ (let () (declare (not safe)) - (##car _%e192245192321%_)))) - (_%__match195680195681%_ - _%e192209192401%_ - _%hd192210192404%_ - _%tl192211192406%_ - _%e192212192409%_ - _%hd192213192412%_ - _%tl192214192414%_ - _%e192215192417%_ - _%hd192216192420%_ - _%tl192217192422%_ - _%e192245192321%_ - _%hd192246192324%_ - _%tl192247192326%_))) - (_%__kont195581195582%_ - _%tl192211192406%_ - _%hd192210192404%_)) - (_%__kont195581195582%_ - _%tl192211192406%_ - _%hd192210192404%_))))) + (##car _%e193377193453%_)))) + (_%__match196812196813%_ + _%e193341193533%_ + _%hd193342193536%_ + _%tl193343193538%_ + _%e193344193541%_ + _%hd193345193544%_ + _%tl193346193546%_ + _%e193347193549%_ + _%hd193348193552%_ + _%tl193349193554%_ + _%e193377193453%_ + _%hd193378193456%_ + _%tl193379193458%_))) + (_%__kont196713196714%_ + _%tl193343193538%_ + _%hd193342193536%_)) + (_%__kont196713196714%_ + _%tl193343193538%_ + _%hd193342193536%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont195581195582%_ - _%tl192211192406%_ - _%hd192210192404%_)) - (_%__kont195581195582%_ - _%tl192211192406%_ - _%hd192210192404%_)) - (_%__kont195581195582%_ - _%tl192211192406%_ - _%hd192210192404%_)))) - (_%__kont195581195582%_ - _%tl192211192406%_ - _%hd192210192404%_)))) - (_%__kont195583195584%_)))))))) + (_%__kont196713196714%_ + _%tl193343193538%_ + _%hd193342193536%_)) + (_%__kont196713196714%_ + _%tl193343193538%_ + _%hd193342193536%_)) + (_%__kont196713196714%_ + _%tl193343193538%_ + _%hd193342193536%_)))) + (_%__kont196713196714%_ + _%tl193343193538%_ + _%hd193342193536%_)))) + (_%__kont196715196716%_)))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_%self191264192174%_ _%ctx192176%_ _%stx192177%_ _%args192178%_) - (let* ((_%self192180%_ _%self191264192174%_) - (_%self192182%_ _%self192180%_)) + (lambda (_%self192396193306%_ _%ctx193308%_ _%stx193309%_ _%args193310%_) + (let* ((_%self193312%_ _%self192396193306%_) + (_%self193314%_ _%self193312%_)) (declare (not safe)) - (gxc#xform-call% _%ctx192176%_ _%stx192177%_)))) + (gxc#xform-call% _%ctx193308%_ _%stx193309%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4761,394 +4755,394 @@ gxc#!kw-lambda-primary::optimize-call '#f)) (define gxc#apply-check-return-type-begin-annotation% - (lambda (_%self191862%_ _%stx191863%_) - (let* ((_%__stx195689195690%_ _%stx191863%_) - (_%g191866191906%_ + (lambda (_%self192994%_ _%stx192995%_) + (let* ((_%__stx196821196822%_ _%stx192995%_) + (_%g192998193038%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195689195690%_))))) - (let ((_%__kont195691195692%_ - (lambda (_%L192012%_ _%L192013%_) - (let ((_%$e192040%_ + _%__stx196821196822%_))))) + (let ((_%__kont196823196824%_ + (lambda (_%L193144%_ _%L193145%_) + (let ((_%$e193172%_ (member 'return: - (let ((__tmp196121 - (lambda (_%g192032192035%_ - _%g192033192037%_) - (cons _%g192032192035%_ - _%g192033192037%_)))) + (let ((__tmp197253 + (lambda (_%g193164193167%_ + _%g193165193169%_) + (cons _%g193164193167%_ + _%g193165193169%_)))) (declare (not safe)) - (__foldr1 __tmp196121 '() _%L192013%_)) + (__foldr1 __tmp197253 '() _%L193145%_)) gx#stx-eq?))) - (if _%$e192040%_ - ((lambda (_%tail192043%_) - (let ((_%type192045%_ - (let ((__tmp196122 - (let ((__tmp196123 - (cadr _%tail192043%_))) + (if _%$e193172%_ + ((lambda (_%tail193175%_) + (let ((_%type193177%_ + (let ((__tmp197254 + (let ((__tmp197255 + (cadr _%tail193175%_))) (declare (not safe)) (gxc#identifier-symbol - __tmp196123)))) + __tmp197255)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx191863%_ - __tmp196122)))) + _%stx192995%_ + __tmp197254)))) (gxc#check-return-type! - _%stx191863%_ - _%L192012%_ - _%type192045%_) + _%stx192995%_ + _%L193144%_ + _%type193177%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self191862%_ - _%L192012%_)))) - _%$e192040%_) + _%self192994%_ + _%L193144%_)))) + _%$e193172%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self191862%_ _%L192012%_)))))) - (_%__kont195695195696%_ - (lambda (_%L191935%_ _%L191936%_) + (gxc#compile-e__1 _%self192994%_ _%L193144%_)))))) + (_%__kont196827196828%_ + (lambda (_%L193067%_ _%L193068%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self191862%_ _%L191935%_))))) - (let ((_%__match195726195727%_ - (lambda (_%e191870191956%_ - _%hd191871191959%_ - _%tl191872191961%_ - _%e191873191964%_ - _%hd191874191967%_ - _%tl191875191969%_ - _%e191876191972%_ - _%hd191877191975%_ - _%tl191878191977%_ - _%__splice195693195694%_ - _%target191879191980%_ - _%tl191881191982%_) - (letrec ((_%loop191882191985%_ - (lambda (_%hd191880191988%_ - _%signature191886191990%_) + (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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd191880191988%_)) - (let ((_%e191883191993%_ + (gx#stx-pair? _%hd193012193120%_)) + (let ((_%e193015193125%_ (let () (declare (not safe)) - (gx#stx-e _%hd191880191988%_)))) - (let ((_%lp-tl191885191998%_ + (gx#stx-e _%hd193012193120%_)))) + (let ((_%lp-tl193017193130%_ (let () (declare (not safe)) - (##cdr _%e191883191993%_))) - (_%lp-hd191884191996%_ + (##cdr _%e193015193125%_))) + (_%lp-hd193016193128%_ (let () (declare (not safe)) - (##car _%e191883191993%_)))) - (_%loop191882191985%_ - _%lp-tl191885191998%_ - (cons _%lp-hd191884191996%_ - _%signature191886191990%_)))) - (let ((_%signature191887192001%_ - (reverse _%signature191886191990%_))) + (##car _%e193015193125%_)))) + (_%loop193014193117%_ + _%lp-tl193017193130%_ + (cons _%lp-hd193016193128%_ + _%signature193018193122%_)))) + (let ((_%signature193019193133%_ + (reverse _%signature193018193122%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191875191969%_)) - (let ((_%e191888192004%_ + (gx#stx-pair? _%tl193007193101%_)) + (let ((_%e193020193136%_ (let () (declare (not safe)) (gx#stx-e - _%tl191875191969%_)))) - (let ((_%tl191890192009%_ + _%tl193007193101%_)))) + (let ((_%tl193022193141%_ (let () (declare (not safe)) - (##cdr _%e191888192004%_))) - (_%hd191889192007%_ + (##cdr _%e193020193136%_))) + (_%hd193021193139%_ (let () (declare (not safe)) - (##car _%e191888192004%_)))) + (##car _%e193020193136%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191890192009%_)) - (_%__kont195691195692%_ - _%hd191889192007%_ - _%signature191887192001%_) + _%tl193022193141%_)) + (_%__kont196823196824%_ + _%hd193021193139%_ + _%signature193019193133%_) (let () (declare (not safe)) - (_%g191866191906%_))))) + (_%g192998193038%_))))) (let () (declare (not safe)) - (_%g191866191906%_)))))))) - (_%loop191882191985%_ _%target191879191980%_ '()))))) + (_%g192998193038%_)))))))) + (_%loop193014193117%_ _%target193011193112%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx195689195690%_)) - (let ((_%e191870191956%_ + (gx#stx-pair? _%__stx196821196822%_)) + (let ((_%e193002193088%_ (let () (declare (not safe)) - (gx#stx-e _%__stx195689195690%_)))) - (let ((_%tl191872191961%_ + (gx#stx-e _%__stx196821196822%_)))) + (let ((_%tl193004193093%_ (let () (declare (not safe)) - (##cdr _%e191870191956%_))) - (_%hd191871191959%_ + (##cdr _%e193002193088%_))) + (_%hd193003193091%_ (let () (declare (not safe)) - (##car _%e191870191956%_)))) + (##car _%e193002193088%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191872191961%_)) - (let ((_%e191873191964%_ + (gx#stx-pair? _%tl193004193093%_)) + (let ((_%e193005193096%_ (let () (declare (not safe)) - (gx#stx-e _%tl191872191961%_)))) - (let ((_%tl191875191969%_ + (gx#stx-e _%tl193004193093%_)))) + (let ((_%tl193007193101%_ (let () (declare (not safe)) - (##cdr _%e191873191964%_))) - (_%hd191874191967%_ + (##cdr _%e193005193096%_))) + (_%hd193006193099%_ (let () (declare (not safe)) - (##car _%e191873191964%_)))) + (##car _%e193005193096%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd191874191967%_)) - (let ((_%e191876191972%_ + (gx#stx-pair? _%hd193006193099%_)) + (let ((_%e193008193104%_ (let () (declare (not safe)) - (gx#stx-e _%hd191874191967%_)))) - (let ((_%tl191878191977%_ + (gx#stx-e _%hd193006193099%_)))) + (let ((_%tl193010193109%_ (let () (declare (not safe)) - (##cdr _%e191876191972%_))) - (_%hd191877191975%_ + (##cdr _%e193008193104%_))) + (_%hd193009193107%_ (let () (declare (not safe)) - (##car _%e191876191972%_)))) + (##car _%e193008193104%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd191877191975%_)) + _%hd193009193107%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd191877191975%_)) + _%hd193009193107%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl191878191977%_)) - (let ((_%__splice195693195694%_ + _%tl193010193109%_)) + (let ((_%__splice196825196826%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl191878191977%_ + _%tl193010193109%_ '0)))) - (let ((_%tl191881191982%_ + (let ((_%tl193013193114%_ (let () (declare (not safe)) (##vector-ref - _%__splice195693195694%_ + _%__splice196825196826%_ '1))) - (_%target191879191980%_ + (_%target193011193112%_ (let () (declare (not safe)) (##vector-ref - _%__splice195693195694%_ + _%__splice196825196826%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191881191982%_)) - (_%__match195726195727%_ - _%e191870191956%_ - _%hd191871191959%_ - _%tl191872191961%_ - _%e191873191964%_ - _%hd191874191967%_ - _%tl191875191969%_ - _%e191876191972%_ - _%hd191877191975%_ - _%tl191878191977%_ - _%__splice195693195694%_ - _%target191879191980%_ - _%tl191881191982%_) + _%tl193013193114%_)) + (_%__match196858196859%_ + _%e193002193088%_ + _%hd193003193091%_ + _%tl193004193093%_ + _%e193005193096%_ + _%hd193006193099%_ + _%tl193007193101%_ + _%e193008193104%_ + _%hd193009193107%_ + _%tl193010193109%_ + _%__splice196825196826%_ + _%target193011193112%_ + _%tl193013193114%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl191875191969%_)) - (let ((_%e191899191927%_ + (gx#stx-pair? _%tl193007193101%_)) + (let ((_%e193031193059%_ (let () (declare (not safe)) - (gx#stx-e _%tl191875191969%_)))) - (let ((_%tl191901191932%_ + (gx#stx-e _%tl193007193101%_)))) + (let ((_%tl193033193064%_ (let () (declare (not safe)) - (##cdr _%e191899191927%_))) - (_%hd191900191930%_ + (##cdr _%e193031193059%_))) + (_%hd193032193062%_ (let () (declare (not safe)) - (##car _%e191899191927%_)))) + (##car _%e193031193059%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191901191932%_)) - (_%__kont195695195696%_ - _%hd191900191930%_ - _%hd191874191967%_) + (gx#stx-null? _%tl193033193064%_)) + (_%__kont196827196828%_ + _%hd193032193062%_ + _%hd193006193099%_) (let () (declare (not safe)) - (_%g191866191906%_))))) - (let () (declare (not safe)) (_%g191866191906%_)))))) + (_%g192998193038%_))))) + (let () (declare (not safe)) (_%g192998193038%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191875191969%_)) - (let ((_%e191899191927%_ + _%tl193007193101%_)) + (let ((_%e193031193059%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl191875191969%_)))) - (let ((_%tl191901191932%_ - (let () (declare (not safe)) (##cdr _%e191899191927%_))) - (_%hd191900191930%_ + (gx#stx-e _%tl193007193101%_)))) + (let ((_%tl193033193064%_ + (let () (declare (not safe)) (##cdr _%e193031193059%_))) + (_%hd193032193062%_ (let () (declare (not safe)) - (##car _%e191899191927%_)))) + (##car _%e193031193059%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191901191932%_)) - (_%__kont195695195696%_ - _%hd191900191930%_ - _%hd191874191967%_) - (let () (declare (not safe)) (_%g191866191906%_))))) - (let () (declare (not safe)) (_%g191866191906%_)))) + (gx#stx-null? _%tl193033193064%_)) + (_%__kont196827196828%_ + _%hd193032193062%_ + _%hd193006193099%_) + (let () (declare (not safe)) (_%g192998193038%_))))) + (let () (declare (not safe)) (_%g192998193038%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191875191969%_)) - (let ((_%e191899191927%_ + _%tl193007193101%_)) + (let ((_%e193031193059%_ (let () (declare (not safe)) (gx#stx-e - _%tl191875191969%_)))) - (let ((_%tl191901191932%_ + _%tl193007193101%_)))) + (let ((_%tl193033193064%_ (let () (declare (not safe)) - (##cdr _%e191899191927%_))) - (_%hd191900191930%_ + (##cdr _%e193031193059%_))) + (_%hd193032193062%_ (let () (declare (not safe)) - (##car _%e191899191927%_)))) + (##car _%e193031193059%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191901191932%_)) - (_%__kont195695195696%_ - _%hd191900191930%_ - _%hd191874191967%_) + _%tl193033193064%_)) + (_%__kont196827196828%_ + _%hd193032193062%_ + _%hd193006193099%_) (let () (declare (not safe)) - (_%g191866191906%_))))) + (_%g192998193038%_))))) (let () (declare (not safe)) - (_%g191866191906%_)))) + (_%g192998193038%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191875191969%_)) - (let ((_%e191899191927%_ + _%tl193007193101%_)) + (let ((_%e193031193059%_ (let () (declare (not safe)) (gx#stx-e - _%tl191875191969%_)))) - (let ((_%tl191901191932%_ + _%tl193007193101%_)))) + (let ((_%tl193033193064%_ (let () (declare (not safe)) - (##cdr _%e191899191927%_))) - (_%hd191900191930%_ + (##cdr _%e193031193059%_))) + (_%hd193032193062%_ (let () (declare (not safe)) - (##car _%e191899191927%_)))) + (##car _%e193031193059%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191901191932%_)) - (_%__kont195695195696%_ - _%hd191900191930%_ - _%hd191874191967%_) + _%tl193033193064%_)) + (_%__kont196827196828%_ + _%hd193032193062%_ + _%hd193006193099%_) (let () (declare (not safe)) - (_%g191866191906%_))))) + (_%g192998193038%_))))) (let () (declare (not safe)) - (_%g191866191906%_)))))) + (_%g192998193038%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191875191969%_)) - (let ((_%e191899191927%_ + (gx#stx-pair? _%tl193007193101%_)) + (let ((_%e193031193059%_ (let () (declare (not safe)) - (gx#stx-e _%tl191875191969%_)))) - (let ((_%tl191901191932%_ + (gx#stx-e _%tl193007193101%_)))) + (let ((_%tl193033193064%_ (let () (declare (not safe)) - (##cdr _%e191899191927%_))) - (_%hd191900191930%_ + (##cdr _%e193031193059%_))) + (_%hd193032193062%_ (let () (declare (not safe)) - (##car _%e191899191927%_)))) + (##car _%e193031193059%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191901191932%_)) - (_%__kont195695195696%_ - _%hd191900191930%_ - _%hd191874191967%_) + _%tl193033193064%_)) + (_%__kont196827196828%_ + _%hd193032193062%_ + _%hd193006193099%_) (let () (declare (not safe)) - (_%g191866191906%_))))) + (_%g192998193038%_))))) (let () (declare (not safe)) - (_%g191866191906%_)))))) - (let () (declare (not safe)) (_%g191866191906%_))))) - (let () (declare (not safe)) (_%g191866191906%_)))))))) + (_%g192998193038%_)))))) + (let () (declare (not safe)) (_%g192998193038%_))))) + (let () (declare (not safe)) (_%g192998193038%_)))))))) (define gxc#check-return-type! - (lambda (_%stx191840%_ _%expr191841%_ _%type191842%_) - (let ((_%$e191844%_ (not _%type191842%_))) - (if _%$e191844%_ - _%$e191844%_ - (let ((_%$e191847%_ - (eq? (##structure-ref _%type191842%_ '1 gxc#!type::t '#f) + (lambda (_%stx192972%_ _%expr192973%_ _%type192974%_) + (let ((_%$e192976%_ (not _%type192974%_))) + (if _%$e192976%_ + _%$e192976%_ + (let ((_%$e192979%_ + (eq? (##structure-ref _%type192974%_ '1 gxc#!type::t '#f) 't))) - (if _%$e191847%_ - _%$e191847%_ - (let ((_%expr-type191851%_ + (if _%$e192979%_ + _%$e192979%_ + (let ((_%expr-type192983%_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _%expr191841%_)))) - (if (not _%expr-type191851%_) + _%expr192973%_)))) + (if (not _%expr-type192983%_) (let () (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; no type information" - _%stx191840%_ - _%type191842%_)) + _%stx192972%_ + _%type192974%_)) (if (eq? 't (##structure-ref - _%expr-type191851%_ + _%expr-type192983%_ '1 gxc#!type::t '#f)) @@ -5156,75 +5150,75 @@ (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; unspecific type" - _%stx191840%_ - _%type191842%_ - _%expr-type191851%_)) - (let ((_%$e191855%_ + _%stx192972%_ + _%type192974%_ + _%expr-type192983%_)) + (let ((_%$e192987%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type191851%_ + _%expr-type192983%_ 'gxc#!abort::t)))) - (if _%$e191855%_ - _%$e191855%_ - (let ((_%$e191858%_ + (if _%$e192987%_ + _%$e192987%_ + (let ((_%$e192990%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type191851%_ - _%type191842%_)))) - (if _%$e191858%_ - _%$e191858%_ + _%expr-type192983%_ + _%type192974%_)))) + (if _%$e192990%_ + _%$e192990%_ (let () (declare (not safe)) (gxc#raise-compile-error '"procedure return type does not match signature" - _%stx191840%_ - _%type191842%_ - _%expr-type191851%_))))))))))))))) + _%stx192972%_ + _%type192974%_ + _%expr-type192983%_))))))))))))))) (define gxc#optimize-if% - (lambda (_%self191266%_ _%stx191267%_) - (let* ((_%__stx195771195772%_ _%stx191267%_) - (_%g191272191382%_ + (lambda (_%self192398%_ _%stx192399%_) + (let* ((_%__stx196903196904%_ _%stx192399%_) + (_%g192404192514%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195771195772%_))))) - (let ((_%__kont195773195774%_ - (lambda (_%L191814%_ _%L191815%_ _%L191816%_) - (if (let () (declare (not safe)) (gx#stx-e _%L191816%_)) + _%__stx196903196904%_))))) + (let ((_%__kont196905196906%_ + (lambda (_%L192946%_ _%L192947%_ _%L192948%_) + (if (let () (declare (not safe)) (gx#stx-e _%L192948%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self191266%_ _%L191815%_)) + (gxc#compile-e__1 _%self192398%_ _%L192947%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self191266%_ _%L191814%_))))) - (_%__kont195775195776%_ - (lambda (_%L191640%_ _%L191641%_ _%L191642%_ _%L191643%_) - (let ((_%$e191675%_ - (let ((__tmp196124 + (gxc#compile-e__1 _%self192398%_ _%L192946%_))))) + (_%__kont196907196908%_ + (lambda (_%L192772%_ _%L192773%_ _%L192774%_ _%L192775%_) + (let ((_%$e192807%_ + (let ((__tmp197256 (let () (declare (not safe)) - (gxc#identifier-symbol _%L191643%_)))) + (gxc#identifier-symbol _%L192775%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp196124)))) - (if _%$e191675%_ - ((lambda (_%pred-type191678%_) + (gxc#optimizer-lookup-type __tmp197256)))) + (if _%$e192807%_ + ((lambda (_%pred-type192810%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type191678%_ + _%pred-type192810%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type191678%_ + _%pred-type192810%_ 'gxc#!primitive-predicate::t))) - (let* ((_%test191683%_ - (let ((__tmp196125 + (let* ((_%test192815%_ + (let ((__tmp197257 (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -5234,1749 +5228,1749 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L191643%_ '())) + (cons _%L192775%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L191642%_ '())) + (cons _%L192774%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp196125 - _%stx191267%_ - _%self191266%_))) - (_%K191687%_ - (let ((__tmp196126 + __tmp197257 + _%stx192399%_ + _%self192398%_))) + (_%K192819%_ + (let ((__tmp197258 (lambda () - (let ((__tmp196129 + (let ((__tmp197261 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self191266%_ - _%L191641%_)))) - (__tmp196127 + _%self192398%_ + _%L192773%_)))) + (__tmp197259 (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%L191642%_)) - (let ((__tmp196128 + (gxc#identifier-symbol _%L192774%_)) + (let ((__tmp197260 (##structure-ref - _%pred-type191678%_ + _%pred-type192810%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx191267%_ - __tmp196128))) + _%stx192399%_ + __tmp197260))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp196129 + __tmp197261 gxc#current-compile-path-type - __tmp196127))))) + __tmp197259))))) (declare (not safe)) - (__make-promise __tmp196126))) - (_%E191690%_ - (let ((__tmp196130 + (__make-promise __tmp197258))) + (_%E192822%_ + (let ((__tmp197262 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self191266%_ - _%L191640%_))))) + _%self192398%_ + _%L192772%_))))) (declare (not safe)) - (__make-promise __tmp196130))) - (_%__stx195749195750%_ _%test191683%_) - (_%g191694191708%_ + (__make-promise __tmp197262))) + (_%__stx196881196882%_ _%test192815%_) + (_%g192826192840%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195749195750%_))))) - (let ((_%__kont195751195752%_ - (lambda (_%L191736%_ _%L191737%_) + _%__stx196881196882%_))))) + (let ((_%__kont196883196884%_ + (lambda (_%L192868%_ _%L192869%_) (if (let () (declare (not safe)) - (gx#stx-e _%L191736%_)) - (force _%K191687%_) - (force _%E191690%_)))) - (_%__kont195753195754%_ + (gx#stx-e _%L192868%_)) + (force _%K192819%_) + (force _%E192822%_)))) + (_%__kont196885196886%_ (lambda () - (let ((__tmp196131 + (let ((__tmp197263 (cons '%#if - (cons _%test191683%_ - (cons (force _%K191687%_) + (cons _%test192815%_ + (cons (force _%K192819%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (force _%E191690%_) '())))))) + (cons (force _%E192822%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp196131 - _%stx191267%_))))) + __tmp197263 + _%stx192399%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx195749195750%_)) - (let ((_%e191698191720%_ + (gx#stx-pair? _%__stx196881196882%_)) + (let ((_%e192830192852%_ (let () (declare (not safe)) (gx#stx-e - _%__stx195749195750%_)))) - (let ((_%tl191700191725%_ + _%__stx196881196882%_)))) + (let ((_%tl192832192857%_ (let () (declare (not safe)) - (##cdr _%e191698191720%_))) - (_%hd191699191723%_ + (##cdr _%e192830192852%_))) + (_%hd192831192855%_ (let () (declare (not safe)) - (##car _%e191698191720%_)))) + (##car _%e192830192852%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191700191725%_)) - (let ((_%e191701191728%_ + _%tl192832192857%_)) + (let ((_%e192833192860%_ (let () (declare (not safe)) (gx#stx-e - _%tl191700191725%_)))) - (let ((_%tl191703191733%_ + _%tl192832192857%_)))) + (let ((_%tl192835192865%_ (let () (declare (not safe)) - (##cdr _%e191701191728%_))) - (_%hd191702191731%_ + (##cdr _%e192833192860%_))) + (_%hd192834192863%_ (let () (declare (not safe)) - (##car _%e191701191728%_)))) + (##car _%e192833192860%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191703191733%_)) - (_%__kont195751195752%_ - _%hd191702191731%_ - _%hd191699191723%_) - (_%__kont195753195754%_)))) - (_%__kont195753195754%_)))) - (_%__kont195753195754%_)))) + _%tl192835192865%_)) + (_%__kont196883196884%_ + _%hd192834192863%_ + _%hd192831192855%_) + (_%__kont196885196886%_)))) + (_%__kont196885196886%_)))) + (_%__kont196885196886%_)))) (let () (declare (not safe)) (gxc#xform-operands - _%self191266%_ - _%stx191267%_)))) - _%$e191675%_) + _%self192398%_ + _%stx192399%_)))) + _%$e192807%_) (let () (declare (not safe)) (gxc#xform-operands - _%self191266%_ - _%stx191267%_)))))) - (_%__kont195777195778%_ - (lambda (_%L191516%_ _%L191517%_ _%L191518%_ _%L191519%_) + _%self192398%_ + _%stx192399%_)))))) + (_%__kont196909196910%_ + (lambda (_%L192648%_ _%L192649%_ _%L192650%_ _%L192651%_) (gxc#optimize-if% - _%self191266%_ - (let ((__tmp196132 + _%self192398%_ + (let ((__tmp197264 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L191518%_ - (cons _%L191516%_ - (cons _%L191517%_ '())))))) + (cons _%L192650%_ + (cons _%L192648%_ + (cons _%L192649%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp196132 _%stx191267%_))))) - (_%__kont195779195780%_ - (lambda (_%L191419%_ _%L191420%_ _%L191421%_) + (gxc#xform-wrap-source __tmp197264 _%stx192399%_))))) + (_%__kont196911196912%_ + (lambda (_%L192551%_ _%L192552%_ _%L192553%_) (let () (declare (not safe)) - (gxc#xform-operands _%self191266%_ _%stx191267%_))))) - (let ((_%__match195978195979%_ - (lambda (_%e191336191444%_ - _%hd191337191447%_ - _%tl191338191449%_ - _%e191339191452%_ - _%hd191340191455%_ - _%tl191341191457%_ - _%e191342191460%_ - _%hd191343191463%_ - _%tl191344191465%_ - _%e191345191468%_ - _%hd191346191471%_ - _%tl191347191473%_ - _%e191348191476%_ - _%hd191349191479%_ - _%tl191350191481%_ - _%e191351191484%_ - _%hd191352191487%_ - _%tl191353191489%_ - _%e191354191492%_ - _%hd191355191495%_ - _%tl191356191497%_ - _%e191357191500%_ - _%hd191358191503%_ - _%tl191359191505%_ - _%e191360191508%_ - _%hd191361191511%_ - _%tl191362191513%_) - (let ((_%L191516%_ _%hd191361191511%_) - (_%L191517%_ _%hd191358191503%_) - (_%L191518%_ _%hd191355191495%_) - (_%L191519%_ _%hd191352191487%_)) + (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%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L191519%_ 'not)) - (_%__kont195777195778%_ - _%L191516%_ - _%L191517%_ - _%L191518%_ - _%L191519%_) - (_%__kont195779195780%_ - _%hd191361191511%_ - _%hd191358191503%_ - _%hd191340191455%_)))))) + (gxc#runtime-identifier=? _%L192651%_ 'not)) + (_%__kont196909196910%_ + _%L192648%_ + _%L192649%_ + _%L192650%_ + _%L192651%_) + (_%__kont196911196912%_ + _%hd192493192643%_ + _%hd192490192635%_ + _%hd192472192587%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx195771195772%_)) - (let ((_%e191277191766%_ + (gx#stx-pair? _%__stx196903196904%_)) + (let ((_%e192409192898%_ (let () (declare (not safe)) - (gx#stx-e _%__stx195771195772%_)))) - (let ((_%tl191279191771%_ + (gx#stx-e _%__stx196903196904%_)))) + (let ((_%tl192411192903%_ (let () (declare (not safe)) - (##cdr _%e191277191766%_))) - (_%hd191278191769%_ + (##cdr _%e192409192898%_))) + (_%hd192410192901%_ (let () (declare (not safe)) - (##car _%e191277191766%_)))) + (##car _%e192409192898%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191279191771%_)) - (let ((_%e191280191774%_ + (gx#stx-pair? _%tl192411192903%_)) + (let ((_%e192412192906%_ (let () (declare (not safe)) - (gx#stx-e _%tl191279191771%_)))) - (let ((_%tl191282191779%_ + (gx#stx-e _%tl192411192903%_)))) + (let ((_%tl192414192911%_ (let () (declare (not safe)) - (##cdr _%e191280191774%_))) - (_%hd191281191777%_ + (##cdr _%e192412192906%_))) + (_%hd192413192909%_ (let () (declare (not safe)) - (##car _%e191280191774%_)))) + (##car _%e192412192906%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd191281191777%_)) - (let ((_%e191283191782%_ + (gx#stx-pair? _%hd192413192909%_)) + (let ((_%e192415192914%_ (let () (declare (not safe)) - (gx#stx-e _%hd191281191777%_)))) - (let ((_%tl191285191787%_ + (gx#stx-e _%hd192413192909%_)))) + (let ((_%tl192417192919%_ (let () (declare (not safe)) - (##cdr _%e191283191782%_))) - (_%hd191284191785%_ + (##cdr _%e192415192914%_))) + (_%hd192416192917%_ (let () (declare (not safe)) - (##car _%e191283191782%_)))) + (##car _%e192415192914%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd191284191785%_)) + _%hd192416192917%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd191284191785%_)) + _%hd192416192917%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191285191787%_)) - (let ((_%e191286191790%_ + _%tl192417192919%_)) + (let ((_%e192418192922%_ (let () (declare (not safe)) (gx#stx-e - _%tl191285191787%_)))) - (let ((_%tl191288191795%_ + _%tl192417192919%_)))) + (let ((_%tl192420192927%_ (let () (declare (not safe)) - (##cdr _%e191286191790%_))) - (_%hd191287191793%_ + (##cdr _%e192418192922%_))) + (_%hd192419192925%_ (let () (declare (not safe)) - (##car _%e191286191790%_)))) + (##car _%e192418192922%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191288191795%_)) + _%tl192420192927%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191289191798%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192421192930%_ (let () (declare (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191291191803%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192423192935%_ (let () (declare (not safe)) - (##cdr _%e191289191798%_))) - (_%hd191290191801%_ + (##cdr _%e192421192930%_))) + (_%hd192422192933%_ (let () (declare (not safe)) - (##car _%e191289191798%_)))) + (##car _%e192421192930%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191291191803%_)) - (let ((_%e191292191806%_ + (gx#stx-pair? _%tl192423192935%_)) + (let ((_%e192424192938%_ (let () (declare (not safe)) - (gx#stx-e _%tl191291191803%_)))) - (let ((_%tl191294191811%_ + (gx#stx-e _%tl192423192935%_)))) + (let ((_%tl192426192943%_ (let () (declare (not safe)) - (##cdr _%e191292191806%_))) - (_%hd191293191809%_ + (##cdr _%e192424192938%_))) + (_%hd192425192941%_ (let () (declare (not safe)) - (##car _%e191292191806%_)))) + (##car _%e192424192938%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191294191811%_)) - (_%__kont195773195774%_ - _%hd191293191809%_ - _%hd191290191801%_ - _%hd191287191793%_) + (gx#stx-null? _%tl192426192943%_)) + (_%__kont196905196906%_ + _%hd192425192941%_ + _%hd192422192933%_ + _%hd192419192925%_) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_))) + (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191372191403%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191374191408%_)) - (let ((_%e191375191411%_ + (gx#stx-pair? _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare (not safe)) - (gx#stx-e _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + (gx#stx-e _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) + (gx#stx-null? _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_)))))) + (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191282191779%_)) - (let ((_%e191372191403%_ + _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191374191408%_ - (let () (declare (not safe)) (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192506192540%_ + (let () (declare (not safe)) (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191374191408%_)) - (let ((_%e191375191411%_ + (gx#stx-pair? _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare (not safe)) - (gx#stx-e _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + (gx#stx-e _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) + (gx#stx-null? _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) (let () (declare (not safe)) - (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_)))) + (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd191284191785%_)) + _%hd192416192917%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191285191787%_)) - (let ((_%e191308191576%_ + _%tl192417192919%_)) + (let ((_%e192440192708%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl191285191787%_)))) - (let ((_%tl191310191581%_ - (let () (declare (not safe)) (##cdr _%e191308191576%_))) - (_%hd191309191579%_ + (gx#stx-e _%tl192417192919%_)))) + (let ((_%tl192442192713%_ + (let () (declare (not safe)) (##cdr _%e192440192708%_))) + (_%hd192441192711%_ (let () (declare (not safe)) - (##car _%e191308191576%_)))) + (##car _%e192440192708%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd191309191579%_)) - (let ((_%e191311191584%_ + (gx#stx-pair? _%hd192441192711%_)) + (let ((_%e192443192716%_ (let () (declare (not safe)) - (gx#stx-e _%hd191309191579%_)))) - (let ((_%tl191313191589%_ + (gx#stx-e _%hd192441192711%_)))) + (let ((_%tl192445192721%_ (let () (declare (not safe)) - (##cdr _%e191311191584%_))) - (_%hd191312191587%_ + (##cdr _%e192443192716%_))) + (_%hd192444192719%_ (let () (declare (not safe)) - (##car _%e191311191584%_)))) + (##car _%e192443192716%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd191312191587%_)) + (gx#identifier? _%hd192444192719%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd191312191587%_)) + (gx#stx-eq? '%#ref _%hd192444192719%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191313191589%_)) - (let ((_%e191314191592%_ + (gx#stx-pair? _%tl192445192721%_)) + (let ((_%e192446192724%_ (let () (declare (not safe)) - (gx#stx-e _%tl191313191589%_)))) - (let ((_%tl191316191597%_ + (gx#stx-e _%tl192445192721%_)))) + (let ((_%tl192448192729%_ (let () (declare (not safe)) - (##cdr _%e191314191592%_))) - (_%hd191315191595%_ + (##cdr _%e192446192724%_))) + (_%hd192447192727%_ (let () (declare (not safe)) - (##car _%e191314191592%_)))) + (##car _%e192446192724%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191316191597%_)) + _%tl192448192729%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191310191581%_)) - (let ((_%e191317191600%_ + _%tl192442192713%_)) + (let ((_%e192449192732%_ (let () (declare (not safe)) (gx#stx-e - _%tl191310191581%_)))) - (let ((_%tl191319191605%_ + _%tl192442192713%_)))) + (let ((_%tl192451192737%_ (let () (declare (not safe)) - (##cdr _%e191317191600%_))) - (_%hd191318191603%_ + (##cdr _%e192449192732%_))) + (_%hd192450192735%_ (let () (declare (not safe)) - (##car _%e191317191600%_)))) + (##car _%e192449192732%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd191318191603%_)) - (let ((_%e191320191608%_ + _%hd192450192735%_)) + (let ((_%e192452192740%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd191318191603%_)))) - (let ((_%tl191322191613%_ + (gx#stx-e _%hd192450192735%_)))) + (let ((_%tl192454192745%_ (let () (declare (not safe)) - (##cdr _%e191320191608%_))) - (_%hd191321191611%_ + (##cdr _%e192452192740%_))) + (_%hd192453192743%_ (let () (declare (not safe)) - (##car _%e191320191608%_)))) + (##car _%e192452192740%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd191321191611%_)) + (gx#identifier? _%hd192453192743%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd191321191611%_)) + (gx#stx-eq? '%#ref _%hd192453192743%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191322191613%_)) - (let ((_%e191323191616%_ + (gx#stx-pair? _%tl192454192745%_)) + (let ((_%e192455192748%_ (let () (declare (not safe)) - (gx#stx-e _%tl191322191613%_)))) - (let ((_%tl191325191621%_ + (gx#stx-e _%tl192454192745%_)))) + (let ((_%tl192457192753%_ (let () (declare (not safe)) - (##cdr _%e191323191616%_))) - (_%hd191324191619%_ + (##cdr _%e192455192748%_))) + (_%hd192456192751%_ (let () (declare (not safe)) - (##car _%e191323191616%_)))) + (##car _%e192455192748%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191325191621%_)) + (gx#stx-null? _%tl192457192753%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191319191605%_)) + _%tl192451192737%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191282191779%_)) - (let ((_%e191326191624%_ + _%tl192414192911%_)) + (let ((_%e192458192756%_ (let () (declare (not safe)) (gx#stx-e - _%tl191282191779%_)))) - (let ((_%tl191328191629%_ + _%tl192414192911%_)))) + (let ((_%tl192460192761%_ (let () (declare (not safe)) - (##cdr _%e191326191624%_))) - (_%hd191327191627%_ + (##cdr _%e192458192756%_))) + (_%hd192459192759%_ (let () (declare (not safe)) - (##car _%e191326191624%_)))) + (##car _%e192458192756%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191328191629%_)) - (let ((_%e191329191632%_ + _%tl192460192761%_)) + (let ((_%e192461192764%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl191328191629%_)))) - (let ((_%tl191331191637%_ + (gx#stx-e _%tl192460192761%_)))) + (let ((_%tl192463192769%_ (let () (declare (not safe)) - (##cdr _%e191329191632%_))) - (_%hd191330191635%_ + (##cdr _%e192461192764%_))) + (_%hd192462192767%_ (let () (declare (not safe)) - (##car _%e191329191632%_)))) + (##car _%e192461192764%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191331191637%_)) - (_%__kont195775195776%_ - _%hd191330191635%_ - _%hd191327191627%_ - _%hd191324191619%_ - _%hd191315191595%_) - (let () (declare (not safe)) (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_))))) + (gx#stx-null? _%tl192463192769%_)) + (_%__kont196907196908%_ + _%hd192462192767%_ + _%hd192459192759%_ + _%hd192456192751%_ + _%hd192447192727%_) + (let () (declare (not safe)) (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g191272191382%_))) + (_%g192404192514%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191282191779%_)) - (let ((_%e191372191403%_ + _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) (gx#stx-e - _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191374191408%_)) - (let ((_%e191375191411%_ + _%tl192506192540%_)) + (let ((_%e192507192543%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + (gx#stx-e _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) - (let () (declare (not safe)) (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_))))) + (gx#stx-null? _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) + (let () (declare (not safe)) (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g191272191382%_)))) + (_%g192404192514%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191319191605%_)) + _%tl192451192737%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191282191779%_)) - (let ((_%e191357191500%_ + _%tl192414192911%_)) + (let ((_%e192489192632%_ (let () (declare (not safe)) (gx#stx-e - _%tl191282191779%_)))) - (let ((_%tl191359191505%_ + _%tl192414192911%_)))) + (let ((_%tl192491192637%_ (let () (declare (not safe)) - (##cdr _%e191357191500%_))) - (_%hd191358191503%_ + (##cdr _%e192489192632%_))) + (_%hd192490192635%_ (let () (declare (not safe)) - (##car _%e191357191500%_)))) + (##car _%e192489192632%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191359191505%_)) - (let ((_%e191360191508%_ + _%tl192491192637%_)) + (let ((_%e192492192640%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl191359191505%_)))) - (let ((_%tl191362191513%_ + (gx#stx-e _%tl192491192637%_)))) + (let ((_%tl192494192645%_ (let () (declare (not safe)) - (##cdr _%e191360191508%_))) - (_%hd191361191511%_ + (##cdr _%e192492192640%_))) + (_%hd192493192643%_ (let () (declare (not safe)) - (##car _%e191360191508%_)))) + (##car _%e192492192640%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191362191513%_)) - (_%__match195978195979%_ - _%e191277191766%_ - _%hd191278191769%_ - _%tl191279191771%_ - _%e191280191774%_ - _%hd191281191777%_ - _%tl191282191779%_ - _%e191283191782%_ - _%hd191284191785%_ - _%tl191285191787%_ - _%e191308191576%_ - _%hd191309191579%_ - _%tl191310191581%_ - _%e191311191584%_ - _%hd191312191587%_ - _%tl191313191589%_ - _%e191314191592%_ - _%hd191315191595%_ - _%tl191316191597%_ - _%e191317191600%_ - _%hd191318191603%_ - _%tl191319191605%_ - _%e191357191500%_ - _%hd191358191503%_ - _%tl191359191505%_ - _%e191360191508%_ - _%hd191361191511%_ - _%tl191362191513%_) - (let () (declare (not safe)) (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_))))) + (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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g191272191382%_))) + (_%g192404192514%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191282191779%_)) - (let ((_%e191372191403%_ + _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) (gx#stx-e - _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191374191408%_)) - (let ((_%e191375191411%_ + _%tl192506192540%_)) + (let ((_%e192507192543%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + (gx#stx-e _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) - (let () (declare (not safe)) (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_))))) + (gx#stx-null? _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) + (let () (declare (not safe)) (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g191272191382%_))))))) + (_%g192404192514%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191319191605%_)) + (gx#stx-null? _%tl192451192737%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191357191500%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192489192632%_ (let () (declare (not safe)) (gx#stx-e - _%tl191282191779%_)))) - (let ((_%tl191359191505%_ + _%tl192414192911%_)))) + (let ((_%tl192491192637%_ (let () (declare (not safe)) - (##cdr _%e191357191500%_))) - (_%hd191358191503%_ + (##cdr _%e192489192632%_))) + (_%hd192490192635%_ (let () (declare (not safe)) - (##car _%e191357191500%_)))) + (##car _%e192489192632%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191359191505%_)) - (let ((_%e191360191508%_ + _%tl192491192637%_)) + (let ((_%e192492192640%_ (let () (declare (not safe)) (gx#stx-e - _%tl191359191505%_)))) - (let ((_%tl191362191513%_ + _%tl192491192637%_)))) + (let ((_%tl192494192645%_ (let () (declare (not safe)) - (##cdr _%e191360191508%_))) - (_%hd191361191511%_ + (##cdr _%e192492192640%_))) + (_%hd192493192643%_ (let () (declare (not safe)) - (##car _%e191360191508%_)))) + (##car _%e192492192640%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191362191513%_)) - (_%__match195978195979%_ - _%e191277191766%_ - _%hd191278191769%_ - _%tl191279191771%_ - _%e191280191774%_ - _%hd191281191777%_ - _%tl191282191779%_ - _%e191283191782%_ - _%hd191284191785%_ - _%tl191285191787%_ - _%e191308191576%_ - _%hd191309191579%_ - _%tl191310191581%_ - _%e191311191584%_ - _%hd191312191587%_ - _%tl191313191589%_ - _%e191314191592%_ - _%hd191315191595%_ - _%tl191316191597%_ - _%e191317191600%_ - _%hd191318191603%_ - _%tl191319191605%_ - _%e191357191500%_ - _%hd191358191503%_ - _%tl191359191505%_ - _%e191360191508%_ - _%hd191361191511%_ - _%tl191362191513%_) + _%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)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))) + (_%g192404192514%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191372191403%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) (gx#stx-e - _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191374191408%_)) - (let ((_%e191375191411%_ + _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare (not safe)) (gx#stx-e - _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) + _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191319191605%_)) + (gx#stx-null? _%tl192451192737%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191357191500%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192489192632%_ (let () (declare (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191359191505%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192491192637%_ (let () (declare (not safe)) - (##cdr _%e191357191500%_))) - (_%hd191358191503%_ + (##cdr _%e192489192632%_))) + (_%hd192490192635%_ (let () (declare (not safe)) - (##car _%e191357191500%_)))) + (##car _%e192489192632%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191359191505%_)) - (let ((_%e191360191508%_ + _%tl192491192637%_)) + (let ((_%e192492192640%_ (let () (declare (not safe)) (gx#stx-e - _%tl191359191505%_)))) - (let ((_%tl191362191513%_ + _%tl192491192637%_)))) + (let ((_%tl192494192645%_ (let () (declare (not safe)) - (##cdr _%e191360191508%_))) - (_%hd191361191511%_ + (##cdr _%e192492192640%_))) + (_%hd192493192643%_ (let () (declare (not safe)) - (##car _%e191360191508%_)))) + (##car _%e192492192640%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191362191513%_)) - (_%__match195978195979%_ - _%e191277191766%_ - _%hd191278191769%_ - _%tl191279191771%_ - _%e191280191774%_ - _%hd191281191777%_ - _%tl191282191779%_ - _%e191283191782%_ - _%hd191284191785%_ - _%tl191285191787%_ - _%e191308191576%_ - _%hd191309191579%_ - _%tl191310191581%_ - _%e191311191584%_ - _%hd191312191587%_ - _%tl191313191589%_ - _%e191314191592%_ - _%hd191315191595%_ - _%tl191316191597%_ - _%e191317191600%_ - _%hd191318191603%_ - _%tl191319191605%_ - _%e191357191500%_ - _%hd191358191503%_ - _%tl191359191505%_ - _%e191360191508%_ - _%hd191361191511%_ - _%tl191362191513%_) + _%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)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))) + (_%g192404192514%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191372191403%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191374191408%_)) - (let ((_%e191375191411%_ + _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare (not safe)) (gx#stx-e - _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) + _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191319191605%_)) + (gx#stx-null? _%tl192451192737%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191357191500%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192489192632%_ (let () (declare (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191359191505%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192491192637%_ (let () (declare (not safe)) - (##cdr _%e191357191500%_))) - (_%hd191358191503%_ + (##cdr _%e192489192632%_))) + (_%hd192490192635%_ (let () (declare (not safe)) - (##car _%e191357191500%_)))) + (##car _%e192489192632%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191359191505%_)) - (let ((_%e191360191508%_ + (gx#stx-pair? _%tl192491192637%_)) + (let ((_%e192492192640%_ (let () (declare (not safe)) (gx#stx-e - _%tl191359191505%_)))) - (let ((_%tl191362191513%_ + _%tl192491192637%_)))) + (let ((_%tl192494192645%_ (let () (declare (not safe)) - (##cdr _%e191360191508%_))) - (_%hd191361191511%_ + (##cdr _%e192492192640%_))) + (_%hd192493192643%_ (let () (declare (not safe)) - (##car _%e191360191508%_)))) + (##car _%e192492192640%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191362191513%_)) - (_%__match195978195979%_ - _%e191277191766%_ - _%hd191278191769%_ - _%tl191279191771%_ - _%e191280191774%_ - _%hd191281191777%_ - _%tl191282191779%_ - _%e191283191782%_ - _%hd191284191785%_ - _%tl191285191787%_ - _%e191308191576%_ - _%hd191309191579%_ - _%tl191310191581%_ - _%e191311191584%_ - _%hd191312191587%_ - _%tl191313191589%_ - _%e191314191592%_ - _%hd191315191595%_ - _%tl191316191597%_ - _%e191317191600%_ - _%hd191318191603%_ - _%tl191319191605%_ - _%e191357191500%_ - _%hd191358191503%_ - _%tl191359191505%_ - _%e191360191508%_ - _%hd191361191511%_ - _%tl191362191513%_) + _%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)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))) + (_%g192404192514%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191372191403%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191374191408%_)) - (let ((_%e191375191411%_ + (gx#stx-pair? _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare (not safe)) (gx#stx-e - _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) + _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))))) + (_%g192404192514%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191319191605%_)) + (gx#stx-null? _%tl192451192737%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191357191500%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192489192632%_ (let () (declare (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191359191505%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192491192637%_ (let () (declare (not safe)) - (##cdr _%e191357191500%_))) - (_%hd191358191503%_ + (##cdr _%e192489192632%_))) + (_%hd192490192635%_ (let () (declare (not safe)) - (##car _%e191357191500%_)))) + (##car _%e192489192632%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191359191505%_)) - (let ((_%e191360191508%_ + (gx#stx-pair? _%tl192491192637%_)) + (let ((_%e192492192640%_ (let () (declare (not safe)) - (gx#stx-e _%tl191359191505%_)))) - (let ((_%tl191362191513%_ + (gx#stx-e _%tl192491192637%_)))) + (let ((_%tl192494192645%_ (let () (declare (not safe)) - (##cdr _%e191360191508%_))) - (_%hd191361191511%_ + (##cdr _%e192492192640%_))) + (_%hd192493192643%_ (let () (declare (not safe)) - (##car _%e191360191508%_)))) + (##car _%e192492192640%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191362191513%_)) - (_%__match195978195979%_ - _%e191277191766%_ - _%hd191278191769%_ - _%tl191279191771%_ - _%e191280191774%_ - _%hd191281191777%_ - _%tl191282191779%_ - _%e191283191782%_ - _%hd191284191785%_ - _%tl191285191787%_ - _%e191308191576%_ - _%hd191309191579%_ - _%tl191310191581%_ - _%e191311191584%_ - _%hd191312191587%_ - _%tl191313191589%_ - _%e191314191592%_ - _%hd191315191595%_ - _%tl191316191597%_ - _%e191317191600%_ - _%hd191318191603%_ - _%tl191319191605%_ - _%e191357191500%_ - _%hd191358191503%_ - _%tl191359191505%_ - _%e191360191508%_ - _%hd191361191511%_ - _%tl191362191513%_) + (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)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_))) + (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191372191403%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191374191408%_)) - (let ((_%e191375191411%_ + (gx#stx-pair? _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare (not safe)) - (gx#stx-e _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + (gx#stx-e _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) + (gx#stx-null? _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))))) + (_%g192404192514%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191282191779%_)) - (let ((_%e191372191403%_ + _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191374191408%_ - (let () (declare (not safe)) (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192506192540%_ + (let () (declare (not safe)) (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191374191408%_)) - (let ((_%e191375191411%_ + (gx#stx-pair? _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare (not safe)) - (gx#stx-e _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + (gx#stx-e _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) + (gx#stx-null? _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) (let () (declare (not safe)) - (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_)))) + (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191282191779%_)) - (let ((_%e191372191403%_ + _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) (gx#stx-e - _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191374191408%_)) - (let ((_%e191375191411%_ + _%tl192506192540%_)) + (let ((_%e192507192543%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + (gx#stx-e _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) - (let () (declare (not safe)) (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_))))) + (gx#stx-null? _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) + (let () (declare (not safe)) (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g191272191382%_)))))) + (_%g192404192514%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191372191403%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) (gx#stx-e - _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191374191408%_)) - (let ((_%e191375191411%_ + _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare (not safe)) (gx#stx-e - _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) + _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_)))) + (_%g192404192514%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191372191403%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191374191408%_)) - (let ((_%e191375191411%_ + _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare (not safe)) (gx#stx-e - _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) + _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_)))) + (_%g192404192514%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191372191403%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191374191408%_)) - (let ((_%e191375191411%_ + (gx#stx-pair? _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare (not safe)) (gx#stx-e - _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) + _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_)))))) + (_%g192404192514%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191372191403%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191374191408%_)) - (let ((_%e191375191411%_ + (gx#stx-pair? _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare (not safe)) - (gx#stx-e _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + (gx#stx-e _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) + (gx#stx-null? _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_)))))) + (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191372191403%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191374191408%_)) - (let ((_%e191375191411%_ + (gx#stx-pair? _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare (not safe)) - (gx#stx-e _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + (gx#stx-e _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) + (gx#stx-null? _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) (let () (declare (not safe)) - (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_)))) + (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191282191779%_)) - (let ((_%e191372191403%_ + _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191374191408%_ - (let () (declare (not safe)) (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192506192540%_ + (let () (declare (not safe)) (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191374191408%_)) - (let ((_%e191375191411%_ + (gx#stx-pair? _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare (not safe)) - (gx#stx-e _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + (gx#stx-e _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) + (gx#stx-null? _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) (let () (declare (not safe)) - (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_))))) + (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191282191779%_)) - (let ((_%e191372191403%_ + _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) (gx#stx-e - _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191374191408%_)) - (let ((_%e191375191411%_ + _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl191374191408%_)))) - (let ((_%tl191377191416%_ - (let () (declare (not safe)) (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (gx#stx-e _%tl192506192540%_)))) + (let ((_%tl192509192548%_ + (let () (declare (not safe)) (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) - (let () (declare (not safe)) (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_))))) + (gx#stx-null? _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) + (let () (declare (not safe)) (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g191272191382%_)))))) + (_%g192404192514%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191282191779%_)) - (let ((_%e191372191403%_ + (gx#stx-pair? _%tl192414192911%_)) + (let ((_%e192504192535%_ (let () (declare (not safe)) - (gx#stx-e _%tl191282191779%_)))) - (let ((_%tl191374191408%_ + (gx#stx-e _%tl192414192911%_)))) + (let ((_%tl192506192540%_ (let () (declare (not safe)) - (##cdr _%e191372191403%_))) - (_%hd191373191406%_ + (##cdr _%e192504192535%_))) + (_%hd192505192538%_ (let () (declare (not safe)) - (##car _%e191372191403%_)))) + (##car _%e192504192535%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191374191408%_)) - (let ((_%e191375191411%_ + _%tl192506192540%_)) + (let ((_%e192507192543%_ (let () (declare (not safe)) (gx#stx-e - _%tl191374191408%_)))) - (let ((_%tl191377191416%_ + _%tl192506192540%_)))) + (let ((_%tl192509192548%_ (let () (declare (not safe)) - (##cdr _%e191375191411%_))) - (_%hd191376191414%_ + (##cdr _%e192507192543%_))) + (_%hd192508192546%_ (let () (declare (not safe)) - (##car _%e191375191411%_)))) + (##car _%e192507192543%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191377191416%_)) - (_%__kont195779195780%_ - _%hd191376191414%_ - _%hd191373191406%_ - _%hd191281191777%_) + _%tl192509192548%_)) + (_%__kont196911196912%_ + _%hd192508192546%_ + _%hd192505192538%_ + _%hd192413192909%_) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_))))) + (_%g192404192514%_))))) (let () (declare (not safe)) - (_%g191272191382%_)))))) - (let () (declare (not safe)) (_%g191272191382%_))))) - (let () (declare (not safe)) (_%g191272191382%_)))))))))) + (_%g192404192514%_)))))) + (let () (declare (not safe)) (_%g192404192514%_))))) + (let () (declare (not safe)) (_%g192404192514%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~1.scm b/src/bootstrap/gerbil/compiler/optimize-call~1.scm index 1022d36ea..23e87d192 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]#_g196134_| + (define |gxc[1]#_g197266_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196136_| + (define |gxc[1]#_g197268_| (##structure gx#syntax-quote::t '::optimize-call::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196138_| + (define |gxc[1]#_g197270_| (##structure gx#syntax-quote::t 'make-::optimize-call #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196140_| + (define |gxc[1]#_g197272_| (##structure gx#syntax-quote::t '::optimize-call? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196142_| + (define |gxc[1]#_g197274_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196144_| + (define |gxc[1]#_g197276_| (##structure gx#syntax-quote::t '::check-return-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196146_| + (define |gxc[1]#_g197278_| (##structure gx#syntax-quote::t 'make-::check-return-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196148_| + (define |gxc[1]#_g197280_| (##structure gx#syntax-quote::t '::check-return-type? @@ -58,7 +58,7 @@ '())) (begin (define |gxc[:0:]#::optimize-call| - (let ((__obj196006 + (let ((__obj197138 (let () (declare (not safe)) (##structure @@ -87,68 +87,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj196006 + __obj197138 'gxc#::optimize-call::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196006 '::optimize-call '2 '#f '#f)) + (##unchecked-structure-set! __obj197138 '::optimize-call '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196006 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj197138 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196006 '() '6 '#f '#f)) - (let ((__tmp196133 (cons |gxc[1]#_g196134_| '()))) + (##unchecked-structure-set! __obj197138 '() '6 '#f '#f)) + (let ((__tmp197265 (cons |gxc[1]#_g197266_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj196006 __tmp196133 '3 '#f '#f)) + (##unchecked-structure-set! __obj197138 __tmp197265 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196006 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj197138 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196006 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj197138 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196006 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj197138 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196006 '#f '11 '#f '#f)) - (let ((__tmp196135 |gxc[1]#_g196136_|)) + (##unchecked-structure-set! __obj197138 '#f '11 '#f '#f)) + (let ((__tmp197267 |gxc[1]#_g197268_|)) (declare (not safe)) - (##unchecked-structure-set! __obj196006 __tmp196135 '12 '#f '#f)) - (let ((__tmp196137 |gxc[1]#_g196138_|)) + (##unchecked-structure-set! __obj197138 __tmp197267 '12 '#f '#f)) + (let ((__tmp197269 |gxc[1]#_g197270_|)) (declare (not safe)) - (##unchecked-structure-set! __obj196006 __tmp196137 '13 '#f '#f)) - (let ((__tmp196139 |gxc[1]#_g196140_|)) + (##unchecked-structure-set! __obj197138 __tmp197269 '13 '#f '#f)) + (let ((__tmp197271 |gxc[1]#_g197272_|)) (declare (not safe)) - (##unchecked-structure-set! __obj196006 __tmp196139 '14 '#f '#f)) + (##unchecked-structure-set! __obj197138 __tmp197271 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196006 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj197138 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196006 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj197138 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196006 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj197138 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196006 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj197138 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196006 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj197138 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196006 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj197138 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196006 '() '20 '#f '#f)) - __obj196006)) + (##unchecked-structure-set! __obj197138 '() '20 '#f '#f)) + __obj197138)) (define |gxc[:0:]#::check-return-type| - (let ((__obj196008 + (let ((__obj197140 (let () (declare (not safe)) (##structure @@ -177,7 +177,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj196008 + __obj197140 'gxc#::check-return-type::t '1 '#f @@ -185,60 +185,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj196008 + __obj197140 '::check-return-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196008 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj197140 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196008 '() '6 '#f '#f)) - (let ((__tmp196141 (cons |gxc[1]#_g196142_| '()))) + (##unchecked-structure-set! __obj197140 '() '6 '#f '#f)) + (let ((__tmp197273 (cons |gxc[1]#_g197274_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj196008 __tmp196141 '3 '#f '#f)) + (##unchecked-structure-set! __obj197140 __tmp197273 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196008 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj197140 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196008 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj197140 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196008 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj197140 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196008 '#f '11 '#f '#f)) - (let ((__tmp196143 |gxc[1]#_g196144_|)) + (##unchecked-structure-set! __obj197140 '#f '11 '#f '#f)) + (let ((__tmp197275 |gxc[1]#_g197276_|)) (declare (not safe)) - (##unchecked-structure-set! __obj196008 __tmp196143 '12 '#f '#f)) - (let ((__tmp196145 |gxc[1]#_g196146_|)) + (##unchecked-structure-set! __obj197140 __tmp197275 '12 '#f '#f)) + (let ((__tmp197277 |gxc[1]#_g197278_|)) (declare (not safe)) - (##unchecked-structure-set! __obj196008 __tmp196145 '13 '#f '#f)) - (let ((__tmp196147 |gxc[1]#_g196148_|)) + (##unchecked-structure-set! __obj197140 __tmp197277 '13 '#f '#f)) + (let ((__tmp197279 |gxc[1]#_g197280_|)) (declare (not safe)) - (##unchecked-structure-set! __obj196008 __tmp196147 '14 '#f '#f)) + (##unchecked-structure-set! __obj197140 __tmp197279 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196008 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj197140 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196008 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj197140 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196008 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj197140 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196008 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj197140 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196008 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj197140 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196008 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj197140 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj196008 '() '20 '#f '#f)) - __obj196008)))) + (##unchecked-structure-set! __obj197140 '() '20 '#f '#f)) + __obj197140)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~0.scm b/src/bootstrap/gerbil/compiler/optimize-spec~0.scm index c1ff9dde3..ba0d63ac5 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 1713454414) + (define gerbil/compiler/optimize-spec::timestamp 1713631270) (begin (define gxc#::generate-method-specializers::t - (let ((__tmp176679 (list gxc#::identity::t)) - (__tmp176678 (cons (cons 'final: '#t) '()))) + (let ((__tmp177811 (list gxc#::identity::t)) + (__tmp177810 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-method-specializers::t '::generate-method-specializers - __tmp176679 + __tmp177811 '() - __tmp176678 + __tmp177810 '#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 _%$args175476%_ + (lambda _%$args176608%_ (apply make-instance gxc#::generate-method-specializers::t - _%$args175476%_))) + _%$args176608%_))) (define gxc#::generate-method-specializers-bind-methods! - (let ((__tmp176680 + (let ((__tmp177812 (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 __tmp176680))) + (__make-promise __tmp177812))) (define gxc#apply-generate-method-specializers - (lambda (_%stx175468%_) + (lambda (_%stx176600%_) (force gxc#::generate-method-specializers-bind-methods!) - (let* ((_%self175471%_ - (let ((__obj176671 + (let* ((_%self176603%_ + (let ((__obj177803 (let () (declare (not safe)) (##structure gxc#::generate-method-specializers::t)))) - __obj176671)) - (__tmp176681 + __obj177803)) + (__tmp177813 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self175471%_ _%stx175468%_))))) + (gxc#compile-e__1 _%self176603%_ _%stx176600%_))))) (declare (not safe)) (__call-with-parameters - __tmp176681 + __tmp177813 gxc#current-compile-method - _%self175471%_)))) + _%self176603%_)))) (define gxc#::extract-receiver::t - (let ((__tmp176683 (list gxc#::false::t)) - (__tmp176682 (cons (cons 'final: '#t) '()))) + (let ((__tmp177815 (list gxc#::false::t)) + (__tmp177814 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-receiver::t '::extract-receiver - __tmp176683 + __tmp177815 '() - __tmp176682 + __tmp177814 '#f))) (define gxc#::extract-receiver? (let () (declare (not safe)) (__make-class-predicate gxc#::extract-receiver::t))) (define gxc#make-::extract-receiver - (lambda _%$args175465%_ - (apply make-instance gxc#::extract-receiver::t _%$args175465%_))) + (lambda _%$args176597%_ + (apply make-instance gxc#::extract-receiver::t _%$args176597%_))) (define gxc#::extract-receiver-bind-methods! - (let ((__tmp176684 + (let ((__tmp177816 (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 __tmp176684))) + (__make-promise __tmp177816))) (define gxc#apply-extract-receiver - (lambda (_%stx175457%_) + (lambda (_%stx176589%_) (force gxc#::extract-receiver-bind-methods!) - (let* ((_%self175460%_ - (let ((__obj176673 + (let* ((_%self176592%_ + (let ((__obj177805 (let () (declare (not safe)) (##structure gxc#::extract-receiver::t)))) - __obj176673)) - (__tmp176685 + __obj177805)) + (__tmp177817 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self175460%_ _%stx175457%_))))) + (gxc#compile-e__1 _%self176592%_ _%stx176589%_))))) (declare (not safe)) (__call-with-parameters - __tmp176685 + __tmp177817 gxc#current-compile-method - _%self175460%_)))) + _%self176592%_)))) (define gxc#::collect-object-refs::t - (let ((__tmp176687 (list gxc#::void::t)) - (__tmp176686 (cons (cons 'final: '#t) '()))) + (let ((__tmp177819 (list gxc#::void::t)) + (__tmp177818 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-object-refs::t '::collect-object-refs - __tmp176687 + __tmp177819 '(receiver methods slots) - __tmp176686 + __tmp177818 '#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 _%$args175454%_ - (apply make-instance gxc#::collect-object-refs::t _%$args175454%_))) + (lambda _%$args176586%_ + (apply make-instance gxc#::collect-object-refs::t _%$args176586%_))) (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 ((__tmp176688 + (let ((__tmp177820 (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 __tmp176688))) + (__make-promise __tmp177820))) (define gxc#apply-collect-object-refs__% - (lambda (_%@@keywords175420%_ - _%receiver175415175421%_ - _%methods175416175423%_ - _%slots175417175425%_ - _%stx175427%_) - (let* ((_%receiver175430%_ - (if (eq? _%receiver175415175421%_ absent-value) + (lambda (_%@@keywords176552%_ + _%receiver176547176553%_ + _%methods176548176555%_ + _%slots176549176557%_ + _%stx176559%_) + (let* ((_%receiver176562%_ + (if (eq? _%receiver176547176553%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver175415175421%_)) - (_%methods175432%_ - (if (eq? _%methods175416175423%_ absent-value) + _%receiver176547176553%_)) + (_%methods176564%_ + (if (eq? _%methods176548176555%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods175416175423%_)) - (_%slots175434%_ - (if (eq? _%slots175417175425%_ absent-value) + _%methods176548176555%_)) + (_%slots176566%_ + (if (eq? _%slots176549176557%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots175417175425%_))) + _%slots176549176557%_))) (force gxc#::collect-object-refs-bind-methods!) - (let* ((_%self175436%_ - (let ((__obj176675 + (let* ((_%self176568%_ + (let ((__obj177807 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176675 - _%receiver175430%_ + __obj177807 + _%receiver176562%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj176675 - _%methods175432%_ + __obj177807 + _%methods176564%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj176675 - _%slots175434%_ + __obj177807 + _%slots176566%_ '3 '#f '#f)) - __obj176675)) - (__tmp176689 + __obj177807)) + (__tmp177821 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self175436%_ _%stx175427%_))))) + (gxc#compile-e__1 _%self176568%_ _%stx176559%_))))) (declare (not safe)) (__call-with-parameters - __tmp176689 + __tmp177821 gxc#current-compile-method - _%self175436%_))))) + _%self176568%_))))) (define gxc#apply-collect-object-refs__@ - (lambda (_%@@keywords175443%_ . _%args175444%_) + (lambda (_%@@keywords176575%_ . _%args176576%_) (apply gxc#apply-collect-object-refs__% - _%@@keywords175443%_ + _%@@keywords176575%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords175443%_ + _%@@keywords176575%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords175443%_ + _%@@keywords176575%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords175443%_ + _%@@keywords176575%_ 'slots: absent-value)) - _%args175444%_))) + _%args176576%_))) (define gxc#apply-collect-object-refs - (lambda _%args175418175450%_ + (lambda _%args176550176582%_ (apply keyword-dispatch '#(receiver: slots: methods:) gxc#apply-collect-object-refs__@ - _%args175418175450%_))) + _%args176550176582%_))) (define gxc#::subst-object-refs::t - (let ((__tmp176691 (list gxc#::basic-xform-expression::t)) - (__tmp176690 (cons (cons 'final: '#t) '()))) + (let ((__tmp177823 (list gxc#::basic-xform-expression::t)) + (__tmp177822 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::subst-object-refs::t '::subst-object-refs - __tmp176691 + __tmp177823 '(receiver klass methods slots) - __tmp176690 + __tmp177822 '#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 _%$args175411%_ - (apply make-instance gxc#::subst-object-refs::t _%$args175411%_))) + (lambda _%$args176543%_ + (apply make-instance gxc#::subst-object-refs::t _%$args176543%_))) (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 ((__tmp176692 + (let ((__tmp177824 (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 __tmp176692))) + (__make-promise __tmp177824))) (define gxc#apply-subst-object-refs__% - (lambda (_%@@keywords175373%_ - _%receiver175367175374%_ - _%klass175368175376%_ - _%methods175369175378%_ - _%slots175370175380%_ - _%stx175382%_) - (let* ((_%receiver175385%_ - (if (eq? _%receiver175367175374%_ absent-value) + (lambda (_%@@keywords176505%_ + _%receiver176499176506%_ + _%klass176500176508%_ + _%methods176501176510%_ + _%slots176502176512%_ + _%stx176514%_) + (let* ((_%receiver176517%_ + (if (eq? _%receiver176499176506%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver175367175374%_)) - (_%klass175387%_ - (if (eq? _%klass175368175376%_ absent-value) + _%receiver176499176506%_)) + (_%klass176519%_ + (if (eq? _%klass176500176508%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'klass:)) - _%klass175368175376%_)) - (_%methods175389%_ - (if (eq? _%methods175369175378%_ absent-value) + _%klass176500176508%_)) + (_%methods176521%_ + (if (eq? _%methods176501176510%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods175369175378%_)) - (_%slots175391%_ - (if (eq? _%slots175370175380%_ absent-value) + _%methods176501176510%_)) + (_%slots176523%_ + (if (eq? _%slots176502176512%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots175370175380%_))) + _%slots176502176512%_))) (force gxc#::subst-object-refs-bind-methods!) - (let* ((_%self175393%_ - (let ((__obj176677 + (let* ((_%self176525%_ + (let ((__obj177809 (let () (declare (not safe)) (##structure @@ -601,96 +601,96 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176677 - _%receiver175385%_ + __obj177809 + _%receiver176517%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj176677 - _%klass175387%_ + __obj177809 + _%klass176519%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj176677 - _%methods175389%_ + __obj177809 + _%methods176521%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj176677 - _%slots175391%_ + __obj177809 + _%slots176523%_ '4 '#f '#f)) - __obj176677)) - (__tmp176693 + __obj177809)) + (__tmp177825 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self175393%_ _%stx175382%_))))) + (gxc#compile-e__1 _%self176525%_ _%stx176514%_))))) (declare (not safe)) (__call-with-parameters - __tmp176693 + __tmp177825 gxc#current-compile-method - _%self175393%_))))) + _%self176525%_))))) (define gxc#apply-subst-object-refs__@ - (lambda (_%@@keywords175400%_ . _%args175401%_) + (lambda (_%@@keywords176532%_ . _%args176533%_) (apply gxc#apply-subst-object-refs__% - _%@@keywords175400%_ + _%@@keywords176532%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords175400%_ + _%@@keywords176532%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords175400%_ + _%@@keywords176532%_ 'klass: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords175400%_ + _%@@keywords176532%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords175400%_ + _%@@keywords176532%_ 'slots: absent-value)) - _%args175401%_))) + _%args176533%_))) (define gxc#apply-subst-object-refs - (lambda _%args175371175407%_ + (lambda _%args176503176539%_ (apply keyword-dispatch '#(receiver: methods: slots: klass:) gxc#apply-subst-object-refs__@ - _%args175371175407%_))) + _%args176503176539%_))) (define gxc#generate-method-specializers-define-values% - (lambda (_%self172482%_ _%stx172483%_) - (letrec ((_%generate-method-bind172485%_ - (lambda (_%$klass175359%_ - _%$method-table175360%_ - _%id175361%_ - _%$id175362%_) - (let ((_%$tmp175364%_ - (let ((__tmp176694 + (lambda (_%self173614%_ _%stx173615%_) + (letrec ((_%generate-method-bind173617%_ + (lambda (_%$klass176491%_ + _%$method-table176492%_ + _%id176493%_ + _%$id176494%_) + (let ((_%$tmp176496%_ + (let ((__tmp177826 (let () (declare (not safe)) (##gensym '__method)))) (declare (not safe)) - (make-symbol__0 __tmp176694)))) - (cons (cons _%$id175362%_ '()) + (make-symbol__0 __tmp177826)))) + (cons (cons _%$id176494%_ '()) (cons (cons '%#call (cons (cons '%#ref (cons 'make-promise '())) @@ -698,14 +698,14 @@ (cons '() (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%$tmp175364%_ '()) + (cons (cons (cons (cons _%$tmp176496%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'symbolic-table-ref '())) (cons (cons '%#ref - (cons _%$method-table175360%_ '())) + (cons _%$method-table176492%_ '())) (cons (cons '%#quote - (cons _%id175361%_ '())) + (cons _%id176493%_ '())) (cons (cons '%#quote (cons '#f '())) '()))))) @@ -715,15 +715,15 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp175364%_ '())) - (cons (cons '%#ref (cons _%$tmp175364%_ '())) + (cons _%$tmp176496%_ '())) + (cons (cons '%#ref (cons _%$tmp176496%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Missing method" '())) (cons (cons '%#quote - (cons _%id175361%_ + (cons _%id176493%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) @@ -735,26 +735,26 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-slot-bind172486%_ - (lambda (_%$klass175353%_ _%id175354%_ _%$id175355%_) - (let ((_%$tmp175357%_ - (let ((__tmp176695 + (_%generate-slot-bind173618%_ + (lambda (_%$klass176485%_ _%id176486%_ _%$id176487%_) + (let ((_%$tmp176489%_ + (let ((__tmp177827 (let () (declare (not safe)) (##gensym '__slot)))) (declare (not safe)) - (make-symbol__0 __tmp176695)))) - (cons (cons _%$id175355%_ '()) + (make-symbol__0 __tmp177827)))) + (cons (cons _%$id176487%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%$tmp175357%_ + (cons (cons (cons (cons _%$tmp176489%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'class-slot-offset '())) (cons (cons '%#ref - (cons _%$klass175353%_ '())) + (cons _%$klass176485%_ '())) (cons (cons '%#quote - (cons _%id175354%_ '())) + (cons _%id176486%_ '())) '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -762,465 +762,465 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp175357%_ '())) - (cons (cons '%#ref (cons _%$tmp175357%_ '())) + (cons _%$tmp176489%_ '())) + (cons (cons '%#ref (cons _%$tmp176489%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons '%#quote (cons _%id175354%_ '())) '())))) + (cons (cons '%#quote (cons _%id176486%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-specializer-impl172487%_ - (lambda (_%$klass175347%_ - _%$method-table175348%_ - _%methods-bind175349%_ - _%slots-bind175350%_ - _%specializer-impl175351%_) - (let ((__tmp176696 + (_%generate-specializer-impl173619%_ + (lambda (_%$klass176479%_ + _%$method-table176480%_ + _%methods-bind176481%_ + _%slots-bind176482%_ + _%specializer-impl176483%_) + (let ((__tmp177828 (cons '%#lambda - (cons (cons _%$klass175347%_ - (cons _%$method-table175348%_ + (cons (cons _%$klass176479%_ + (cons _%$method-table176480%_ '())) (cons (cons '%#let-values (cons (let () (declare (not safe)) (__foldr1 cons - _%slots-bind175350%_ - _%methods-bind175349%_)) - (cons _%specializer-impl175351%_ + _%slots-bind176482%_ + _%methods-bind176481%_)) + (cons _%specializer-impl176483%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176696 _%stx172483%_)))) - (_%generate-specializer-def172488%_ - (lambda (_%id175343%_ - _%specializer-id175344%_ - _%specializer-impl175345%_) - (let ((__tmp176697 + (gxc#xform-wrap-source __tmp177828 _%stx173615%_)))) + (_%generate-specializer-def173620%_ + (lambda (_%id176475%_ + _%specializer-id176476%_ + _%specializer-impl176477%_) + (let ((__tmp177829 (cons '%#begin - (cons _%stx172483%_ - (cons (let ((__tmp176698 + (cons _%stx173615%_ + (cons (let ((__tmp177830 (cons '%#define-values - (cons (cons _%specializer-id175344%_ + (cons (cons _%specializer-id176476%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-impl175345%_ '()))))) + (cons _%specializer-impl176477%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176698 - _%stx172483%_)) - (cons (let ((__tmp176699 + __tmp177830 + _%stx173615%_)) + (cons (let ((__tmp177831 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'bind-specializer! '())) - (cons (cons '%#ref (cons _%id175343%_ '())) + (cons (cons '%#ref (cons _%id176475%_ '())) (cons (cons '%#ref - (cons _%specializer-id175344%_ + (cons _%specializer-id176476%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176699 - _%stx172483%_)) + __tmp177831 + _%stx173615%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176697 _%stx172483%_))))) - (let* ((_%__stx175565175566%_ _%stx172483%_) - (_%g172491172511%_ + (gxc#xform-wrap-source __tmp177829 _%stx173615%_))))) + (let* ((_%__stx176697176698%_ _%stx173615%_) + (_%g173623173643%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175565175566%_))))) - (let ((_%__kont175567175568%_ - (lambda (_%L172555%_ _%L172556%_) - (let ((_%method-calls172575%_ + _%__stx176697176698%_))))) + (let ((_%__kont176699176700%_ + (lambda (_%L173687%_ _%L173688%_) + (let ((_%method-calls173707%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%slot-refs172576%_ + (_%slot-refs173708%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%empty172577%_ + (_%empty173709%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (letrec ((_%no-specializer?172579%_ + (letrec ((_%no-specializer?173711%_ (lambda () (if (fxzero? (let () (declare (not safe)) (__hash-length - _%method-calls172575%_))) + _%method-calls173707%_))) (fxzero? (let () (declare (not safe)) (__hash-length - _%slot-refs172576%_))) + _%slot-refs173708%_))) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L172555%_)) - (let* ((_%__stx175479175480%_ _%L172555%_) - (_%g172967172985%_ + (gxc#lambda-expr? _%L173687%_)) + (let* ((_%__stx176611176612%_ _%L173687%_) + (_%g174099174117%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175479175480%_))))) - (let ((_%__kont175481175482%_ - (lambda (_%L173021%_ - _%L173022%_ - _%L173023%_) - (let ((_%receiver173043%_ - (let ((_%$e173040%_ + _%__stx176611176612%_))))) + (let ((_%__kont176613176614%_ + (lambda (_%L174153%_ + _%L174154%_ + _%L174155%_) + (let ((_%receiver174175%_ + (let ((_%$e174172%_ (gxc#apply-extract-receiver (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L173021%_)))) + _%L174153%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e173040%_ - _%$e173040%_ - _%L173023%_)))) + (if _%$e174172%_ + _%$e174172%_ + _%L174155%_)))) (for-each - (lambda (_%g173044173046%_) + (lambda (_%g174176174178%_) (gxc#apply-collect-object-refs__% '#f - _%receiver173043%_ - _%method-calls172575%_ - _%slot-refs172576%_ - _%g173044173046%_)) - _%L173021%_) - (if (_%no-specializer?172579%_) - _%stx172483%_ - (let* ((_%specializer-id173055%_ - (let* ((_%id173049%_ - (let ((__tmp176700 + _%receiver174175%_ + _%method-calls173707%_ + _%slot-refs173708%_ + _%g174176174178%_)) + _%L174153%_) + (if (_%no-specializer?173711%_) + _%stx173615%_ + (let* ((_%specializer-id174187%_ + (let* ((_%id174181%_ + (let ((__tmp177832 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L172556%_)))) + (gx#stx-e _%L173688%_)))) (declare (not safe)) - (make-symbol__1 __tmp176700 '"::specialize"))) - (_%specializer-id173052%_ - (let ((__tmp176701 + (make-symbol__1 __tmp177832 '"::specialize"))) + (_%specializer-id174184%_ + (let ((__tmp177833 (let () (declare (not safe)) - (gx#stx-source _%stx172483%_)))) + (gx#stx-source _%stx173615%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id173049%_ __tmp176701)))) + (gx#core-quote-syntax__1 _%id174181%_ __tmp177833)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id173052%_)) - _%specializer-id173052%_)) + (gx#core-bind-runtime!__0 _%specializer-id174184%_)) + _%specializer-id174184%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass173057%_ - (let ((__tmp176702 + (_%$klass174189%_ + (let ((__tmp177834 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp176702))) + (make-symbol__0 __tmp177834))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table173059%_ - (let ((__tmp176703 + (_%$method-table174191%_ + (let ((__tmp177835 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp176703))) + (make-symbol__0 __tmp177835))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods173061%_ + (_%methods174193%_ (let () (declare (not safe)) (__hash-keys - _%method-calls172575%_))) - (_%$methods173065%_ - (map (lambda (_%id173063%_) - (let ((__tmp176704 + _%method-calls173707%_))) + (_%$methods174197%_ + (map (lambda (_%id174195%_) + (let ((__tmp177836 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id173063%_))) + (gensym _%id174195%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176704))) - _%methods173061%_)) + (make-symbol__1 '"__" __tmp177836))) + _%methods174193%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_173074%_ + (_%_174206%_ (for-each - (lambda (_%g173066173069%_ - _%g173067173071%_) + (lambda (_%g174198174201%_ + _%g174199174203%_) (let () (declare (not safe)) (__hash-put! - _%method-calls172575%_ - _%g173066173069%_ - _%g173067173071%_))) - _%methods173061%_ - _%$methods173065%_)) - (_%methods-bind173084%_ - (map (lambda (_%g173076173079%_ + _%method-calls173707%_ + _%g174198174201%_ + _%g174199174203%_))) + _%methods174193%_ + _%$methods174197%_)) + (_%methods-bind174216%_ + (map (lambda (_%g174208174211%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g173077173081%_) - (_%generate-method-bind172485%_ - _%$klass173057%_ - _%$method-table173059%_ - _%g173076173079%_ - _%g173077173081%_)) - _%methods173061%_ - _%$methods173065%_)) + _%g174209174213%_) + (_%generate-method-bind173617%_ + _%$klass174189%_ + _%$method-table174191%_ + _%g174208174211%_ + _%g174209174213%_)) + _%methods174193%_ + _%$methods174197%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots173086%_ + (_%slots174218%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs172576%_))) - (_%$slots173090%_ - (map (lambda (_%id173088%_) - (let ((__tmp176705 + _%slot-refs173708%_))) + (_%$slots174222%_ + (map (lambda (_%id174220%_) + (let ((__tmp177837 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id173088%_))) + (gensym _%id174220%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176705))) - _%slots173086%_)) + (make-symbol__1 '"__" __tmp177837))) + _%slots174218%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_173099%_ + (_%_174231%_ (for-each - (lambda (_%g173091173094%_ - _%g173092173096%_) + (lambda (_%g174223174226%_ + _%g174224174228%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs172576%_ - _%g173091173094%_ - _%g173092173096%_))) - _%slots173086%_ - _%$slots173090%_)) - (_%slots-bind173108%_ - (map (lambda (_%g173100173103%_ + _%slot-refs173708%_ + _%g174223174226%_ + _%g174224174228%_))) + _%slots174218%_ + _%$slots174222%_)) + (_%slots-bind174240%_ + (map (lambda (_%g174232174235%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g173101173105%_) - (_%generate-slot-bind172486%_ - _%$klass173057%_ - _%g173100173103%_ - _%g173101173105%_)) - _%slots173086%_ - _%$slots173090%_)) + _%g174233174237%_) + (_%generate-slot-bind173618%_ + _%$klass174189%_ + _%g174232174235%_ + _%g174233174237%_)) + _%slots174218%_ + _%$slots174222%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-body173114%_ - (map (lambda (_%g173109173111%_) + (_%specializer-body174246%_ + (map (lambda (_%g174241174243%_) (gxc#apply-subst-object-refs__% '#f - _%receiver173043%_ - _%$klass173057%_ - _%method-calls172575%_ - _%slot-refs172576%_ - _%g173109173111%_)) - _%L173021%_)) - (_%specializer-impl173116%_ - (let ((__tmp176706 + _%receiver174175%_ + _%$klass174189%_ + _%method-calls173707%_ + _%slot-refs173708%_ + _%g174241174243%_)) + _%L174153%_)) + (_%specializer-impl174248%_ + (let ((__tmp177838 (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L173023%_ _%L173022%_) - _%specializer-body173114%_)))) + (cons (cons _%L174155%_ _%L174154%_) + _%specializer-body174246%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176706 _%stx172483%_))) + (gxc#xform-wrap-source __tmp177838 _%stx173615%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl173118%_ - (_%generate-specializer-impl172487%_ - _%$klass173057%_ - _%$method-table173059%_ - _%methods-bind173084%_ - _%slots-bind173108%_ - _%specializer-impl173116%_))) - (let ((__tmp176708 + (_%specializer-impl174250%_ + (_%generate-specializer-impl173619%_ + _%$klass174189%_ + _%$method-table174191%_ + _%methods-bind174216%_ + _%slots-bind174240%_ + _%specializer-impl174248%_))) + (let ((__tmp177840 (let () (declare (not safe)) (gx#stx-e - _%L172556%_))) - (__tmp176707 + _%L173688%_))) + (__tmp177839 (let () (declare (not safe)) (gx#stx-e - _%specializer-id173055%_)))) + _%specializer-id174187%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp176708 + __tmp177840 '" => " - __tmp176707)) - (_%generate-specializer-def172488%_ - _%L172556%_ - _%specializer-id173055%_ - _%specializer-impl173118%_)))))) - (_%__kont175483175484%_ - (lambda () _%stx172483%_))) + __tmp177839)) + (_%generate-specializer-def173620%_ + _%L173688%_ + _%specializer-id174187%_ + _%specializer-impl174250%_)))))) + (_%__kont176615176616%_ + (lambda () _%stx173615%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx175479175480%_)) - (let ((_%e172972172997%_ + (gx#stx-pair? _%__stx176611176612%_)) + (let ((_%e174104174129%_ (let () (declare (not safe)) (gx#stx-e - _%__stx175479175480%_)))) - (let ((_%tl172974173002%_ + _%__stx176611176612%_)))) + (let ((_%tl174106174134%_ (let () (declare (not safe)) - (##cdr _%e172972172997%_))) - (_%hd172973173000%_ + (##cdr _%e174104174129%_))) + (_%hd174105174132%_ (let () (declare (not safe)) - (##car _%e172972172997%_)))) + (##car _%e174104174129%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172974173002%_)) - (let ((_%e172975173005%_ + _%tl174106174134%_)) + (let ((_%e174107174137%_ (let () (declare (not safe)) (gx#stx-e - _%tl172974173002%_)))) - (let ((_%tl172977173010%_ + _%tl174106174134%_)))) + (let ((_%tl174109174142%_ (let () (declare (not safe)) - (##cdr _%e172975173005%_))) - (_%hd172976173008%_ + (##cdr _%e174107174137%_))) + (_%hd174108174140%_ (let () (declare (not safe)) - (##car _%e172975173005%_)))) + (##car _%e174107174137%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd172976173008%_)) - (let ((_%e172978173013%_ + _%hd174108174140%_)) + (let ((_%e174110174145%_ (let () (declare (not safe)) (gx#stx-e - _%hd172976173008%_)))) - (let ((_%tl172980173018%_ + _%hd174108174140%_)))) + (let ((_%tl174112174150%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e172978173013%_))) - (_%hd172979173016%_ - (let () (declare (not safe)) (##car _%e172978173013%_)))) - (_%__kont175481175482%_ - _%tl172977173010%_ - _%tl172980173018%_ - _%hd172979173016%_))) + (##cdr _%e174110174145%_))) + (_%hd174111174148%_ + (let () (declare (not safe)) (##car _%e174110174145%_)))) + (_%__kont176613176614%_ + _%tl174109174142%_ + _%tl174112174150%_ + _%hd174111174148%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175483175484%_)))) - (_%__kont175483175484%_)))) - (_%__kont175483175484%_)))) + (_%__kont176615176616%_)))) + (_%__kont176615176616%_)))) + (_%__kont176615176616%_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _%L172555%_)) - (let* ((_%g173125173144%_ - (lambda (_%g173126173141%_) + (gxc#case-lambda-expr? _%L173687%_)) + (let* ((_%g174257174276%_ + (lambda (_%g174258174273%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173126173141%_)))) - (_%g173124173442%_ - (lambda (_%g173126173147%_) + _%g174258174273%_)))) + (_%g174256174574%_ + (lambda (_%g174258174279%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g173126173147%_)) - (let ((_%e173128173149%_ + _%g174258174279%_)) + (let ((_%e174260174281%_ (let () (declare (not safe)) (gx#stx-e - _%g173126173147%_)))) - (let ((_%hd173129173152%_ + _%g174258174279%_)))) + (let ((_%hd174261174284%_ (let () (declare (not safe)) - (##car _%e173128173149%_))) - (_%tl173130173154%_ + (##car _%e174260174281%_))) + (_%tl174262174286%_ (let () (declare (not safe)) - (##cdr _%e173128173149%_)))) + (##cdr _%e174260174281%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl173130173154%_)) - (let ((_g176709_ + _%tl174262174286%_)) + (let ((_g177841_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl173130173154%_ '0)))) + (gx#syntax-split-splice _%tl174262174286%_ '0)))) (begin - (let ((_g176710_ + (let ((_g177842_ (let () (declare (not safe)) - (if (##values? _g176709_) - (##vector-length _g176709_) + (if (##values? _g177841_) + (##vector-length _g177841_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176710_ 2))) - (error "Context expects 2 values" _g176710_))) - (let ((_%target173131173157%_ + (##fx= _g177842_ 2))) + (error "Context expects 2 values" _g177842_))) + (let ((_%target174263174289%_ (let () (declare (not safe)) - (##vector-ref _g176709_ 0))) - (_%tl173133173159%_ + (##vector-ref _g177841_ 0))) + (_%tl174265174291%_ (let () (declare (not safe)) - (##vector-ref _g176709_ 1)))) + (##vector-ref _g177841_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173133173159%_)) - (letrec ((_%loop173134173162%_ - (lambda (_%hd173132173165%_ - _%clause173138173167%_) + (gx#stx-null? _%tl174265174291%_)) + (letrec ((_%loop174266174294%_ + (lambda (_%hd174264174297%_ + _%clause174270174299%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173132173165%_)) - (let ((_%e173135173170%_ + (gx#stx-pair? _%hd174264174297%_)) + (let ((_%e174267174302%_ (let () (declare (not safe)) (gx#stx-e - _%hd173132173165%_)))) - (let ((_%lp-hd173136173173%_ + _%hd174264174297%_)))) + (let ((_%lp-hd174268174305%_ (let () (declare (not safe)) - (##car _%e173135173170%_))) - (_%lp-tl173137173175%_ + (##car _%e174267174302%_))) + (_%lp-tl174269174307%_ (let () (declare (not safe)) - (##cdr _%e173135173170%_)))) - (_%loop173134173162%_ - _%lp-tl173137173175%_ - (cons _%lp-hd173136173173%_ - _%clause173138173167%_)))) - (let ((_%clause173139173178%_ - (reverse _%clause173138173167%_))) - ((lambda (_%L173181%_) + (##cdr _%e174267174302%_)))) + (_%loop174266174294%_ + _%lp-tl174269174307%_ + (cons _%lp-hd174268174305%_ + _%clause174270174299%_)))) + (let ((_%clause174271174310%_ + (reverse _%clause174270174299%_))) + ((lambda (_%L174313%_) (for-each - (lambda (_%clause173195%_) - (let* ((_%__stx175505175506%_ - _%clause173195%_) - (_%g173198173213%_ + (lambda (_%clause174327%_) + (let* ((_%__stx176637176638%_ + _%clause174327%_) + (_%g174330174345%_ (lambda () (let () (declare @@ -1228,190 +1228,190 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175505175506%_))))) - (let ((_%__kont175507175508%_ - (lambda (_%L173241%_ + _%__stx176637176638%_))))) + (let ((_%__kont176639176640%_ + (lambda (_%L174373%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L173242%_ - _%L173243%_) - (let ((_%receiver173262%_ - (let ((_%$e173259%_ + _%L174374%_ + _%L174375%_) + (let ((_%receiver174394%_ + (let ((_%$e174391%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L173241%_)))) - (if _%$e173259%_ _%$e173259%_ _%L173243%_)))) + _%L174373%_)))) + (if _%$e174391%_ _%$e174391%_ _%L174375%_)))) (for-each - (lambda (_%g173263173265%_) + (lambda (_%g174395174397%_) (gxc#apply-collect-object-refs__% '#f - _%receiver173262%_ - _%method-calls172575%_ - _%slot-refs172576%_ - _%g173263173265%_)) - _%L173241%_)))) - (_%__kont175509175510%_ (lambda () '#!void))) + _%receiver174394%_ + _%method-calls173707%_ + _%slot-refs173708%_ + _%g174395174397%_)) + _%L174373%_)))) + (_%__kont176641176642%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx175505175506%_)) - (let ((_%e173203173225%_ + _%__stx176637176638%_)) + (let ((_%e174335174357%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx175505175506%_)))) - (let ((_%tl173205173230%_ + (gx#stx-e _%__stx176637176638%_)))) + (let ((_%tl174337174362%_ (let () (declare (not safe)) - (##cdr _%e173203173225%_))) - (_%hd173204173228%_ + (##cdr _%e174335174357%_))) + (_%hd174336174360%_ (let () (declare (not safe)) - (##car _%e173203173225%_)))) + (##car _%e174335174357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173204173228%_)) - (let ((_%e173206173233%_ + (gx#stx-pair? _%hd174336174360%_)) + (let ((_%e174338174365%_ (let () (declare (not safe)) - (gx#stx-e _%hd173204173228%_)))) - (let ((_%tl173208173238%_ + (gx#stx-e _%hd174336174360%_)))) + (let ((_%tl174340174370%_ (let () (declare (not safe)) - (##cdr _%e173206173233%_))) - (_%hd173207173236%_ + (##cdr _%e174338174365%_))) + (_%hd174339174368%_ (let () (declare (not safe)) - (##car _%e173206173233%_)))) - (_%__kont175507175508%_ - _%tl173205173230%_ - _%tl173208173238%_ - _%hd173207173236%_))) - (_%__kont175509175510%_)))) - (_%__kont175509175510%_))))) + (##car _%e174338174365%_)))) + (_%__kont176639176640%_ + _%tl174337174362%_ + _%tl174340174370%_ + _%hd174339174368%_))) + (_%__kont176641176642%_)))) + (_%__kont176641176642%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp176711 - (lambda (_%g173270173273%_ - _%g173271173275%_) - (cons _%g173270173273%_ - _%g173271173275%_)))) + (let ((__tmp177843 + (lambda (_%g174402174405%_ + _%g174403174407%_) + (cons _%g174402174405%_ + _%g174403174407%_)))) (declare (not safe)) (__foldr1 - __tmp176711 + __tmp177843 '() - _%L173181%_))) - (if (_%no-specializer?172579%_) - _%stx172483%_ - (let* ((_%specializer-id173284%_ - (let* ((_%id173278%_ + _%L174313%_))) + (if (_%no-specializer?173711%_) + _%stx173615%_ + (let* ((_%specializer-id174416%_ + (let* ((_%id174410%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp176712 + (let ((__tmp177844 (let () (declare (not safe)) - (gx#stx-e _%L172556%_)))) + (gx#stx-e _%L173688%_)))) (declare (not safe)) - (make-symbol__1 __tmp176712 '"::specialize"))) - (_%specializer-id173281%_ - (let ((__tmp176713 + (make-symbol__1 __tmp177844 '"::specialize"))) + (_%specializer-id174413%_ + (let ((__tmp177845 (let () (declare (not safe)) - (gx#stx-source _%stx172483%_)))) + (gx#stx-source _%stx173615%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id173278%_ - __tmp176713)))) + _%id174410%_ + __tmp177845)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id173281%_)) - _%specializer-id173281%_)) - (_%$klass173286%_ - (let ((__tmp176714 + (gx#core-bind-runtime!__0 _%specializer-id174413%_)) + _%specializer-id174413%_)) + (_%$klass174418%_ + (let ((__tmp177846 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp176714))) - (_%$method-table173288%_ - (let ((__tmp176715 + (make-symbol__0 __tmp177846))) + (_%$method-table174420%_ + (let ((__tmp177847 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp176715))) - (_%methods173290%_ + (make-symbol__0 __tmp177847))) + (_%methods174422%_ (let () (declare (not safe)) - (__hash-keys _%method-calls172575%_))) - (_%$methods173294%_ - (map (lambda (_%id173292%_) - (let ((__tmp176716 (gensym _%id173292%_))) + (__hash-keys _%method-calls173707%_))) + (_%$methods174426%_ + (map (lambda (_%id174424%_) + (let ((__tmp177848 (gensym _%id174424%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176716))) - _%methods173290%_)) - (_%_173303%_ + (make-symbol__1 '"__" __tmp177848))) + _%methods174422%_)) + (_%_174435%_ (for-each - (lambda (_%g173295173298%_ _%g173296173300%_) + (lambda (_%g174427174430%_ _%g174428174432%_) (let () (declare (not safe)) (__hash-put! - _%method-calls172575%_ - _%g173295173298%_ - _%g173296173300%_))) - _%methods173290%_ - _%$methods173294%_)) - (_%methods-bind173313%_ - (map (lambda (_%g173305173308%_ _%g173306173310%_) - (_%generate-method-bind172485%_ - _%$klass173286%_ - _%$method-table173288%_ - _%g173305173308%_ - _%g173306173310%_)) - _%methods173290%_ - _%$methods173294%_)) - (_%slots173315%_ + _%method-calls173707%_ + _%g174427174430%_ + _%g174428174432%_))) + _%methods174422%_ + _%$methods174426%_)) + (_%methods-bind174445%_ + (map (lambda (_%g174437174440%_ _%g174438174442%_) + (_%generate-method-bind173617%_ + _%$klass174418%_ + _%$method-table174420%_ + _%g174437174440%_ + _%g174438174442%_)) + _%methods174422%_ + _%$methods174426%_)) + (_%slots174447%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs172576%_))) - (_%$slots173319%_ - (map (lambda (_%id173317%_) - (let ((__tmp176717 (gensym _%id173317%_))) + (__hash-keys _%slot-refs173708%_))) + (_%$slots174451%_ + (map (lambda (_%id174449%_) + (let ((__tmp177849 (gensym _%id174449%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176717))) - _%slots173315%_)) - (_%_173328%_ + (make-symbol__1 '"__" __tmp177849))) + _%slots174447%_)) + (_%_174460%_ (for-each - (lambda (_%g173320173323%_ _%g173321173325%_) + (lambda (_%g174452174455%_ _%g174453174457%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs172576%_ - _%g173320173323%_ - _%g173321173325%_))) - _%slots173315%_ - _%$slots173319%_)) - (_%slots-bind173337%_ - (map (lambda (_%g173329173332%_ _%g173330173334%_) - (_%generate-slot-bind172486%_ - _%$klass173286%_ - _%g173329173332%_ - _%g173330173334%_)) - _%slots173315%_ - _%$slots173319%_)) - (_%specializer-clauses173435%_ - (map (lambda (_%clause173339%_) - (let* ((_%__stx175525175526%_ _%clause173339%_) - (_%g173342173357%_ + _%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%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175525175526%_))))) - (let ((_%__kont175527175528%_ - (lambda (_%L173385%_ _%L173386%_ _%L173387%_) - (let* ((_%receiver173416%_ - (let ((_%$e173413%_ + _%__stx176657176658%_))))) + (let ((_%__kont176659176660%_ + (lambda (_%L174517%_ _%L174518%_ _%L174519%_) + (let* ((_%receiver174548%_ + (let ((_%$e174545%_ (gxc#apply-extract-receiver (cons (let () (declare @@ -1419,317 +1419,317 @@ (gx#datum->syntax__0 '#f '%#begin)) - _%L173385%_)))) - (if _%$e173413%_ - _%$e173413%_ - _%L173387%_))) - (_%body173422%_ - (map (lambda (_%g173417173419%_) + _%L174517%_)))) + (if _%$e174545%_ + _%$e174545%_ + _%L174519%_))) + (_%body174554%_ + (map (lambda (_%g174549174551%_) (gxc#apply-subst-object-refs__% '#f - _%receiver173416%_ - _%$klass173286%_ - _%method-calls172575%_ - _%slot-refs172576%_ - _%g173417173419%_)) - _%L173385%_))) - (cons (cons _%L173387%_ _%L173386%_) - _%body173422%_)))) - (_%__kont175529175530%_ - (lambda () _%clause173339%_))) + _%receiver174548%_ + _%$klass174418%_ + _%method-calls173707%_ + _%slot-refs173708%_ + _%g174549174551%_)) + _%L174517%_))) + (cons (cons _%L174519%_ _%L174518%_) + _%body174554%_)))) + (_%__kont176661176662%_ + (lambda () _%clause174471%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx175525175526%_)) - (let ((_%e173347173369%_ + (gx#stx-pair? _%__stx176657176658%_)) + (let ((_%e174479174501%_ (let () (declare (not safe)) - (gx#stx-e _%__stx175525175526%_)))) - (let ((_%tl173349173374%_ + (gx#stx-e _%__stx176657176658%_)))) + (let ((_%tl174481174506%_ (let () (declare (not safe)) - (##cdr _%e173347173369%_))) - (_%hd173348173372%_ + (##cdr _%e174479174501%_))) + (_%hd174480174504%_ (let () (declare (not safe)) - (##car _%e173347173369%_)))) + (##car _%e174479174501%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173348173372%_)) - (let ((_%e173350173377%_ + (gx#stx-pair? _%hd174480174504%_)) + (let ((_%e174482174509%_ (let () (declare (not safe)) (gx#stx-e - _%hd173348173372%_)))) - (let ((_%tl173352173382%_ + _%hd174480174504%_)))) + (let ((_%tl174484174514%_ (let () (declare (not safe)) - (##cdr _%e173350173377%_))) - (_%hd173351173380%_ + (##cdr _%e174482174509%_))) + (_%hd174483174512%_ (let () (declare (not safe)) - (##car _%e173350173377%_)))) - (_%__kont175527175528%_ - _%tl173349173374%_ - _%tl173352173382%_ - _%hd173351173380%_))) - (_%__kont175529175530%_)))) - (_%__kont175529175530%_))))) - (let ((__tmp176718 - (lambda (_%g173427173430%_ _%g173428173432%_) - (cons _%g173427173430%_ _%g173428173432%_)))) + (##car _%e174482174509%_)))) + (_%__kont176659176660%_ + _%tl174481174506%_ + _%tl174484174514%_ + _%hd174483174512%_))) + (_%__kont176661176662%_)))) + (_%__kont176661176662%_))))) + (let ((__tmp177850 + (lambda (_%g174559174562%_ _%g174560174564%_) + (cons _%g174559174562%_ _%g174560174564%_)))) (declare (not safe)) - (__foldr1 __tmp176718 '() _%L173181%_)))) - (_%specializer-impl173437%_ - (let ((__tmp176719 - (cons '%#case-lambda _%specializer-clauses173435%_))) + (__foldr1 __tmp177850 '() _%L174313%_)))) + (_%specializer-impl174569%_ + (let ((__tmp177851 + (cons '%#case-lambda _%specializer-clauses174567%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176719 _%stx172483%_))) - (_%specializer-impl173439%_ - (_%generate-specializer-impl172487%_ - _%$klass173286%_ - _%$method-table173288%_ - _%methods-bind173313%_ - _%slots-bind173337%_ - _%specializer-impl173437%_))) + (gxc#xform-wrap-source __tmp177851 _%stx173615%_))) + (_%specializer-impl174571%_ + (_%generate-specializer-impl173619%_ + _%$klass174418%_ + _%$method-table174420%_ + _%methods-bind174445%_ + _%slots-bind174469%_ + _%specializer-impl174569%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp176721 + (let ((__tmp177853 (let () (declare (not safe)) (gx#stx-e - _%L172556%_))) - (__tmp176720 + _%L173688%_))) + (__tmp177852 (let () (declare (not safe)) (gx#stx-e - _%specializer-id173284%_)))) + _%specializer-id174416%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp176721 + __tmp177853 '" => " - __tmp176720)) - (_%generate-specializer-def172488%_ - _%L172556%_ - _%specializer-id173284%_ - _%specializer-impl173439%_)))) - _%clause173139173178%_)))))) - (_%loop173134173162%_ _%target173131173157%_ '())) - (_%g173125173144%_ _%g173126173147%_))))) - (_%g173125173144%_ _%g173126173147%_)))) + __tmp177852)) + (_%generate-specializer-def173620%_ + _%L173688%_ + _%specializer-id174416%_ + _%specializer-impl174571%_)))) + _%clause174271174310%_)))))) + (_%loop174266174294%_ _%target174263174289%_ '())) + (_%g174257174276%_ _%g174258174279%_))))) + (_%g174257174276%_ _%g174258174279%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g173125173144%_ - _%g173126173147%_))))) - (_%g173124173442%_ _%L172555%_)) + (_%g174257174276%_ + _%g174258174279%_))))) + (_%g174256174574%_ _%L173687%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L172555%_)) - (let* ((_%g173446173476%_ - (lambda (_%g173447173473%_) + (gxc#opt-lambda-expr? _%L173687%_)) + (let* ((_%g174578174608%_ + (lambda (_%g174579174605%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173447173473%_)))) - (_%g173445174107%_ - (lambda (_%g173447173479%_) + _%g174579174605%_)))) + (_%g174577175239%_ + (lambda (_%g174579174611%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g173447173479%_)) - (let ((_%e173451173481%_ + _%g174579174611%_)) + (let ((_%e174583174613%_ (let () (declare (not safe)) (gx#stx-e - _%g173447173479%_)))) - (let ((_%hd173452173484%_ + _%g174579174611%_)))) + (let ((_%hd174584174616%_ (let () (declare (not safe)) - (##car _%e173451173481%_))) - (_%tl173453173486%_ + (##car _%e174583174613%_))) + (_%tl174585174618%_ (let () (declare (not safe)) - (##cdr _%e173451173481%_)))) + (##cdr _%e174583174613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173453173486%_)) - (let ((_%e173454173489%_ + _%tl174585174618%_)) + (let ((_%e174586174621%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl173453173486%_)))) - (let ((_%hd173455173492%_ + (gx#stx-e _%tl174585174618%_)))) + (let ((_%hd174587174624%_ (let () (declare (not safe)) - (##car _%e173454173489%_))) - (_%tl173456173494%_ + (##car _%e174586174621%_))) + (_%tl174588174626%_ (let () (declare (not safe)) - (##cdr _%e173454173489%_)))) + (##cdr _%e174586174621%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173455173492%_)) - (let ((_%e173457173497%_ + (gx#stx-pair? _%hd174587174624%_)) + (let ((_%e174589174629%_ (let () (declare (not safe)) - (gx#stx-e _%hd173455173492%_)))) - (let ((_%hd173458173500%_ + (gx#stx-e _%hd174587174624%_)))) + (let ((_%hd174590174632%_ (let () (declare (not safe)) - (##car _%e173457173497%_))) - (_%tl173459173502%_ + (##car _%e174589174629%_))) + (_%tl174591174634%_ (let () (declare (not safe)) - (##cdr _%e173457173497%_)))) + (##cdr _%e174589174629%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173458173500%_)) - (let ((_%e173460173505%_ + (gx#stx-pair? _%hd174590174632%_)) + (let ((_%e174592174637%_ (let () (declare (not safe)) - (gx#stx-e _%hd173458173500%_)))) - (let ((_%hd173461173508%_ + (gx#stx-e _%hd174590174632%_)))) + (let ((_%hd174593174640%_ (let () (declare (not safe)) - (##car _%e173460173505%_))) - (_%tl173462173510%_ + (##car _%e174592174637%_))) + (_%tl174594174642%_ (let () (declare (not safe)) - (##cdr _%e173460173505%_)))) + (##cdr _%e174592174637%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173461173508%_)) - (let ((_%e173463173513%_ + (gx#stx-pair? _%hd174593174640%_)) + (let ((_%e174595174645%_ (let () (declare (not safe)) (gx#stx-e - _%hd173461173508%_)))) - (let ((_%hd173464173516%_ + _%hd174593174640%_)))) + (let ((_%hd174596174648%_ (let () (declare (not safe)) - (##car _%e173463173513%_))) - (_%tl173465173518%_ + (##car _%e174595174645%_))) + (_%tl174597174650%_ (let () (declare (not safe)) - (##cdr _%e173463173513%_)))) + (##cdr _%e174595174645%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173465173518%_)) + _%tl174597174650%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173462173510%_)) - (let ((_%e173466173521%_ + _%tl174594174642%_)) + (let ((_%e174598174653%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl173462173510%_)))) - (let ((_%hd173467173524%_ + (gx#stx-e _%tl174594174642%_)))) + (let ((_%hd174599174656%_ (let () (declare (not safe)) - (##car _%e173466173521%_))) - (_%tl173468173526%_ + (##car _%e174598174653%_))) + (_%tl174600174658%_ (let () (declare (not safe)) - (##cdr _%e173466173521%_)))) + (##cdr _%e174598174653%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173468173526%_)) + (gx#stx-null? _%tl174600174658%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173459173502%_)) + (gx#stx-null? _%tl174591174634%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173456173494%_)) - (let ((_%e173469173529%_ + (gx#stx-pair? _%tl174588174626%_)) + (let ((_%e174601174661%_ (let () (declare (not safe)) - (gx#stx-e _%tl173456173494%_)))) - (let ((_%hd173470173532%_ + (gx#stx-e _%tl174588174626%_)))) + (let ((_%hd174602174664%_ (let () (declare (not safe)) - (##car _%e173469173529%_))) - (_%tl173471173534%_ + (##car _%e174601174661%_))) + (_%tl174603174666%_ (let () (declare (not safe)) - (##cdr _%e173469173529%_)))) + (##cdr _%e174601174661%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173471173534%_)) - ((lambda (_%L173537%_ - _%L173538%_ - _%L173539%_) - (let* ((_%g173563173581%_ - (lambda (_%g173564173578%_) + (gx#stx-null? _%tl174603174666%_)) + ((lambda (_%L174669%_ + _%L174670%_ + _%L174671%_) + (let* ((_%g174695174713%_ + (lambda (_%g174696174710%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173564173578%_)))) - (_%g173562173637%_ - (lambda (_%g173564173584%_) + _%g174696174710%_)))) + (_%g174694174769%_ + (lambda (_%g174696174716%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g173564173584%_)) - (let ((_%e173568173586%_ + _%g174696174716%_)) + (let ((_%e174700174718%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g173564173584%_)))) - (let ((_%hd173569173589%_ + (gx#stx-e _%g174696174716%_)))) + (let ((_%hd174701174721%_ (let () (declare (not safe)) - (##car _%e173568173586%_))) - (_%tl173570173591%_ + (##car _%e174700174718%_))) + (_%tl174702174723%_ (let () (declare (not safe)) - (##cdr _%e173568173586%_)))) + (##cdr _%e174700174718%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173570173591%_)) - (let ((_%e173571173594%_ + (gx#stx-pair? _%tl174702174723%_)) + (let ((_%e174703174726%_ (let () (declare (not safe)) - (gx#stx-e _%tl173570173591%_)))) - (let ((_%hd173572173597%_ + (gx#stx-e _%tl174702174723%_)))) + (let ((_%hd174704174729%_ (let () (declare (not safe)) - (##car _%e173571173594%_))) - (_%tl173573173599%_ + (##car _%e174703174726%_))) + (_%tl174705174731%_ (let () (declare (not safe)) - (##cdr _%e173571173594%_)))) + (##cdr _%e174703174726%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173572173597%_)) - (let ((_%e173574173602%_ + (gx#stx-pair? _%hd174704174729%_)) + (let ((_%e174706174734%_ (let () (declare (not safe)) - (gx#stx-e _%hd173572173597%_)))) - (let ((_%hd173575173605%_ + (gx#stx-e _%hd174704174729%_)))) + (let ((_%hd174707174737%_ (let () (declare (not safe)) - (##car _%e173574173602%_))) - (_%tl173576173607%_ + (##car _%e174706174734%_))) + (_%tl174708174739%_ (let () (declare (not safe)) - (##cdr _%e173574173602%_)))) - ((lambda (_%L173610%_ - _%L173611%_ - _%L173612%_) - (let ((_%receiver173631%_ - (let ((_%$e173628%_ + (##cdr _%e174706174734%_)))) + ((lambda (_%L174742%_ + _%L174743%_ + _%L174744%_) + (let ((_%receiver174763%_ + (let ((_%$e174760%_ (gxc#apply-extract-receiver (cons (let () (declare @@ -1737,3099 +1737,3099 @@ (gx#datum->syntax__0 '#f '%#begin)) - _%L173610%_)))) - (if _%$e173628%_ - _%$e173628%_ - _%L173612%_)))) + _%L174742%_)))) + (if _%$e174760%_ + _%$e174760%_ + _%L174744%_)))) (for-each - (lambda (_%g173632173634%_) + (lambda (_%g174764174766%_) (gxc#apply-collect-object-refs__% '#f - _%receiver173631%_ - _%method-calls172575%_ - _%slot-refs172576%_ - _%g173632173634%_)) - _%L173610%_))) - _%tl173573173599%_ - _%tl173576173607%_ - _%hd173575173605%_))) - (_%g173563173581%_ _%g173564173584%_)))) - (_%g173563173581%_ _%g173564173584%_)))) - (_%g173563173581%_ _%g173564173584%_))))) + _%receiver174763%_ + _%method-calls173707%_ + _%slot-refs173708%_ + _%g174764174766%_)) + _%L174742%_))) + _%tl174705174731%_ + _%tl174708174739%_ + _%hd174707174737%_))) + (_%g174695174713%_ _%g174696174716%_)))) + (_%g174695174713%_ _%g174696174716%_)))) + (_%g174695174713%_ _%g174696174716%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g173562173637%_ _%L173538%_)) - (let* ((_%g173640173659%_ - (lambda (_%g173641173656%_) + (_%g174694174769%_ _%L174670%_)) + (let* ((_%g174772174791%_ + (lambda (_%g174773174788%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173641173656%_)))) - (_%g173639173783%_ - (lambda (_%g173641173662%_) + _%g174773174788%_)))) + (_%g174771174915%_ + (lambda (_%g174773174794%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g173641173662%_)) - (let ((_%e173643173664%_ + _%g174773174794%_)) + (let ((_%e174775174796%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g173641173662%_)))) - (let ((_%hd173644173667%_ + (gx#stx-e _%g174773174794%_)))) + (let ((_%hd174776174799%_ (let () (declare (not safe)) - (##car _%e173643173664%_))) - (_%tl173645173669%_ + (##car _%e174775174796%_))) + (_%tl174777174801%_ (let () (declare (not safe)) - (##cdr _%e173643173664%_)))) + (##cdr _%e174775174796%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl173645173669%_)) - (let ((_g176722_ + (gx#stx-pair/null? _%tl174777174801%_)) + (let ((_g177854_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl173645173669%_ + _%tl174777174801%_ '0)))) (begin - (let ((_g176723_ + (let ((_g177855_ (let () (declare (not safe)) - (if (##values? _g176722_) - (##vector-length _g176722_) + (if (##values? _g177854_) + (##vector-length _g177854_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176723_ 2))) + (##fx= _g177855_ 2))) (error "Context expects 2 values" - _g176723_))) - (let ((_%target173646173672%_ + _g177855_))) + (let ((_%target174778174804%_ (let () (declare (not safe)) - (##vector-ref _g176722_ 0))) - (_%tl173648173674%_ + (##vector-ref _g177854_ 0))) + (_%tl174780174806%_ (let () (declare (not safe)) - (##vector-ref _g176722_ 1)))) + (##vector-ref _g177854_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173648173674%_)) - (letrec ((_%loop173649173677%_ - (lambda (_%hd173647173680%_ - _%clause173653173682%_) + (gx#stx-null? _%tl174780174806%_)) + (letrec ((_%loop174781174809%_ + (lambda (_%hd174779174812%_ + _%clause174785174814%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd173647173680%_)) - (let ((_%e173650173685%_ + _%hd174779174812%_)) + (let ((_%e174782174817%_ (let () (declare (not safe)) (gx#stx-e - _%hd173647173680%_)))) - (let ((_%lp-hd173651173688%_ + _%hd174779174812%_)))) + (let ((_%lp-hd174783174820%_ (let () (declare (not safe)) - (##car _%e173650173685%_))) - (_%lp-tl173652173690%_ + (##car _%e174782174817%_))) + (_%lp-tl174784174822%_ (let () (declare (not safe)) - (##cdr _%e173650173685%_)))) - (_%loop173649173677%_ - _%lp-tl173652173690%_ - (cons _%lp-hd173651173688%_ - _%clause173653173682%_)))) - (let ((_%clause173654173693%_ - (reverse _%clause173653173682%_))) - ((lambda (_%L173696%_) + (##cdr _%e174782174817%_)))) + (_%loop174781174809%_ + _%lp-tl174784174822%_ + (cons _%lp-hd174783174820%_ + _%clause174785174814%_)))) + (let ((_%clause174786174825%_ + (reverse _%clause174785174814%_))) + ((lambda (_%L174828%_) (for-each - (lambda (_%clause173709%_) - (let* ((_%g173711173726%_ + (lambda (_%clause174841%_) + (let* ((_%g174843174858%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g173712173723%_) + (lambda (_%g174844174855%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173712173723%_)))) - (_%g173710173773%_ - (lambda (_%g173712173729%_) + _%g174844174855%_)))) + (_%g174842174905%_ + (lambda (_%g174844174861%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173712173729%_)) - (let ((_%e173716173731%_ + (gx#stx-pair? _%g174844174861%_)) + (let ((_%e174848174863%_ (let () (declare (not safe)) - (gx#stx-e _%g173712173729%_)))) - (let ((_%hd173717173734%_ + (gx#stx-e _%g174844174861%_)))) + (let ((_%hd174849174866%_ (let () (declare (not safe)) - (##car _%e173716173731%_))) - (_%tl173718173736%_ + (##car _%e174848174863%_))) + (_%tl174850174868%_ (let () (declare (not safe)) - (##cdr _%e173716173731%_)))) + (##cdr _%e174848174863%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173717173734%_)) - (let ((_%e173719173739%_ + (gx#stx-pair? _%hd174849174866%_)) + (let ((_%e174851174871%_ (let () (declare (not safe)) (gx#stx-e - _%hd173717173734%_)))) - (let ((_%hd173720173742%_ + _%hd174849174866%_)))) + (let ((_%hd174852174874%_ (let () (declare (not safe)) - (##car _%e173719173739%_))) - (_%tl173721173744%_ + (##car _%e174851174871%_))) + (_%tl174853174876%_ (let () (declare (not safe)) - (##cdr _%e173719173739%_)))) - ((lambda (_%L173747%_ - _%L173748%_ - _%L173749%_) - (let ((_%receiver173767%_ - (let ((_%$e173764%_ + (##cdr _%e174851174871%_)))) + ((lambda (_%L174879%_ + _%L174880%_ + _%L174881%_) + (let ((_%receiver174899%_ + (let ((_%$e174896%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L173747%_)))) - (if _%$e173764%_ _%$e173764%_ _%L173749%_)))) + _%L174879%_)))) + (if _%$e174896%_ _%$e174896%_ _%L174881%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g173768173770%_) + (lambda (_%g174900174902%_) (gxc#apply-collect-object-refs__% '#f - _%receiver173767%_ - _%method-calls172575%_ - _%slot-refs172576%_ - _%g173768173770%_)) - _%L173747%_))) - _%tl173718173736%_ - _%tl173721173744%_ - _%hd173720173742%_))) - (_%g173711173726%_ - _%g173712173729%_)))) - (_%g173711173726%_ _%g173712173729%_))))) - (_%g173710173773%_ _%clause173709%_))) - (let ((__tmp176724 - (lambda (_%g173775173778%_ _%g173776173780%_) - (cons _%g173775173778%_ _%g173776173780%_)))) + _%receiver174899%_ + _%method-calls173707%_ + _%slot-refs173708%_ + _%g174900174902%_)) + _%L174879%_))) + _%tl174850174868%_ + _%tl174853174876%_ + _%hd174852174874%_))) + (_%g174843174858%_ + _%g174844174861%_)))) + (_%g174843174858%_ _%g174844174861%_))))) + (_%g174842174905%_ _%clause174841%_))) + (let ((__tmp177856 + (lambda (_%g174907174910%_ _%g174908174912%_) + (cons _%g174907174910%_ _%g174908174912%_)))) (declare (not safe)) - (__foldr1 __tmp176724 '() _%L173696%_)))) + (__foldr1 __tmp177856 '() _%L174828%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause173654173693%_)))))) - (_%loop173649173677%_ - _%target173646173672%_ + _%clause174786174825%_)))))) + (_%loop174781174809%_ + _%target174778174804%_ '())) - (_%g173640173659%_ _%g173641173662%_))))) - (_%g173640173659%_ _%g173641173662%_)))) - (_%g173640173659%_ _%g173641173662%_))))) + (_%g174772174791%_ _%g174773174794%_))))) + (_%g174772174791%_ _%g174773174794%_)))) + (_%g174772174791%_ _%g174773174794%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g173639173783%_ _%L173537%_)) - (if (_%no-specializer?172579%_) - _%stx172483%_ - (let* ((_%specializer-id173792%_ - (let* ((_%id173786%_ - (let ((__tmp176725 + (_%g174771174915%_ _%L174669%_)) + (if (_%no-specializer?173711%_) + _%stx173615%_ + (let* ((_%specializer-id174924%_ + (let* ((_%id174918%_ + (let ((__tmp177857 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L172556%_)))) + (gx#stx-e _%L173688%_)))) (declare (not safe)) - (make-symbol__1 __tmp176725 '"::specialize"))) - (_%specializer-id173789%_ - (let ((__tmp176726 + (make-symbol__1 __tmp177857 '"::specialize"))) + (_%specializer-id174921%_ + (let ((__tmp177858 (let () (declare (not safe)) - (gx#stx-source _%stx172483%_)))) + (gx#stx-source _%stx173615%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id173786%_ __tmp176726)))) + (gx#core-quote-syntax__1 _%id174918%_ __tmp177858)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id173789%_)) - _%specializer-id173789%_)) + (gx#core-bind-runtime!__0 _%specializer-id174921%_)) + _%specializer-id174921%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass173794%_ - (let ((__tmp176727 + (_%$klass174926%_ + (let ((__tmp177859 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp176727))) + (make-symbol__0 __tmp177859))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table173796%_ - (let ((__tmp176728 + (_%$method-table174928%_ + (let ((__tmp177860 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp176728))) + (make-symbol__0 __tmp177860))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods173798%_ + (_%methods174930%_ (let () (declare (not safe)) (__hash-keys - _%method-calls172575%_))) - (_%$methods173802%_ - (map (lambda (_%id173800%_) - (let ((__tmp176729 + _%method-calls173707%_))) + (_%$methods174934%_ + (map (lambda (_%id174932%_) + (let ((__tmp177861 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id173800%_))) + (gensym _%id174932%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176729))) - _%methods173798%_)) + (make-symbol__1 '"__" __tmp177861))) + _%methods174930%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_173811%_ + (_%_174943%_ (for-each - (lambda (_%g173803173806%_ - _%g173804173808%_) + (lambda (_%g174935174938%_ + _%g174936174940%_) (let () (declare (not safe)) (__hash-put! - _%method-calls172575%_ - _%g173803173806%_ - _%g173804173808%_))) - _%methods173798%_ - _%$methods173802%_)) - (_%methods-bind173821%_ - (map (lambda (_%g173813173816%_ + _%method-calls173707%_ + _%g174935174938%_ + _%g174936174940%_))) + _%methods174930%_ + _%$methods174934%_)) + (_%methods-bind174953%_ + (map (lambda (_%g174945174948%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g173814173818%_) - (_%generate-method-bind172485%_ - _%$klass173794%_ - _%$method-table173796%_ - _%g173813173816%_ - _%g173814173818%_)) - _%methods173798%_ - _%$methods173802%_)) + _%g174946174950%_) + (_%generate-method-bind173617%_ + _%$klass174926%_ + _%$method-table174928%_ + _%g174945174948%_ + _%g174946174950%_)) + _%methods174930%_ + _%$methods174934%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots173823%_ + (_%slots174955%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs172576%_))) - (_%$slots173827%_ - (map (lambda (_%id173825%_) - (let ((__tmp176730 + _%slot-refs173708%_))) + (_%$slots174959%_ + (map (lambda (_%id174957%_) + (let ((__tmp177862 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id173825%_))) + (gensym _%id174957%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176730))) - _%slots173823%_)) + (make-symbol__1 '"__" __tmp177862))) + _%slots174955%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_173836%_ + (_%_174968%_ (for-each - (lambda (_%g173828173831%_ - _%g173829173833%_) + (lambda (_%g174960174963%_ + _%g174961174965%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs172576%_ - _%g173828173831%_ - _%g173829173833%_))) - _%slots173823%_ - _%$slots173827%_)) - (_%slots-bind173845%_ - (map (lambda (_%g173837173840%_ + _%slot-refs173708%_ + _%g174960174963%_ + _%g174961174965%_))) + _%slots174955%_ + _%$slots174959%_)) + (_%slots-bind174977%_ + (map (lambda (_%g174969174972%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g173838173842%_) - (_%generate-slot-bind172486%_ - _%$klass173794%_ - _%g173837173840%_ - _%g173838173842%_)) - _%slots173823%_ - _%$slots173827%_)) + _%g174970174974%_) + (_%generate-slot-bind173618%_ + _%$klass174926%_ + _%g174969174972%_ + _%g174970174974%_)) + _%slots174955%_ + _%$slots174959%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-lambda-expr173937%_ - (let* ((_%g173847173865%_ - (lambda (_%g173848173862%_) + (_%specializer-lambda-expr175069%_ + (let* ((_%g174979174997%_ + (lambda (_%g174980174994%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173848173862%_)))) - (_%g173846173934%_ - (lambda (_%g173848173868%_) + _%g174980174994%_)))) + (_%g174978175066%_ + (lambda (_%g174980175000%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173848173868%_)) - (let ((_%e173852173870%_ + (gx#stx-pair? _%g174980175000%_)) + (let ((_%e174984175002%_ (let () (declare (not safe)) - (gx#stx-e _%g173848173868%_)))) - (let ((_%hd173853173873%_ + (gx#stx-e _%g174980175000%_)))) + (let ((_%hd174985175005%_ (let () (declare (not safe)) - (##car _%e173852173870%_))) - (_%tl173854173875%_ + (##car _%e174984175002%_))) + (_%tl174986175007%_ (let () (declare (not safe)) - (##cdr _%e173852173870%_)))) + (##cdr _%e174984175002%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173854173875%_)) - (let ((_%e173855173878%_ + (gx#stx-pair? _%tl174986175007%_)) + (let ((_%e174987175010%_ (let () (declare (not safe)) - (gx#stx-e _%tl173854173875%_)))) - (let ((_%hd173856173881%_ + (gx#stx-e _%tl174986175007%_)))) + (let ((_%hd174988175013%_ (let () (declare (not safe)) - (##car _%e173855173878%_))) - (_%tl173857173883%_ + (##car _%e174987175010%_))) + (_%tl174989175015%_ (let () (declare (not safe)) - (##cdr _%e173855173878%_)))) + (##cdr _%e174987175010%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd173856173881%_)) - (let ((_%e173858173886%_ + _%hd174988175013%_)) + (let ((_%e174990175018%_ (let () (declare (not safe)) (gx#stx-e - _%hd173856173881%_)))) - (let ((_%hd173859173889%_ + _%hd174988175013%_)))) + (let ((_%hd174991175021%_ (let () (declare (not safe)) - (##car _%e173858173886%_))) - (_%tl173860173891%_ + (##car _%e174990175018%_))) + (_%tl174992175023%_ (let () (declare (not safe)) - (##cdr _%e173858173886%_)))) - ((lambda (_%L173894%_ - _%L173895%_ - _%L173896%_) - (let* ((_%receiver173925%_ - (let ((_%$e173922%_ + (##cdr _%e174990175018%_)))) + ((lambda (_%L175026%_ + _%L175027%_ + _%L175028%_) + (let* ((_%receiver175057%_ + (let ((_%$e175054%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L173894%_)))) - (if _%$e173922%_ _%$e173922%_ _%L173896%_))) - (_%body173931%_ - (map (lambda (_%g173926173928%_) + _%L175026%_)))) + (if _%$e175054%_ _%$e175054%_ _%L175028%_))) + (_%body175063%_ + (map (lambda (_%g175058175060%_) (gxc#apply-subst-object-refs__% '#f - _%receiver173925%_ - _%$klass173794%_ - _%method-calls172575%_ - _%slot-refs172576%_ - _%g173926173928%_)) - _%L173894%_)) - (__tmp176731 + _%receiver175057%_ + _%$klass174926%_ + _%method-calls173707%_ + _%slot-refs173708%_ + _%g175058175060%_)) + _%L175026%_)) + (__tmp177863 (cons '%#lambda - (cons (cons _%L173896%_ _%L173895%_) - _%body173931%_)))) + (cons (cons _%L175028%_ _%L175027%_) + _%body175063%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176731 - _%L173538%_))) - _%tl173857173883%_ - _%tl173860173891%_ - _%hd173859173889%_))) - (_%g173847173865%_ - _%g173848173868%_)))) - (_%g173847173865%_ _%g173848173868%_)))) - (_%g173847173865%_ _%g173848173868%_))))) - (_%g173846173934%_ _%L173538%_))) + __tmp177863 + _%L174670%_))) + _%tl174989175015%_ + _%tl174992175023%_ + _%hd174991175021%_))) + (_%g174979174997%_ + _%g174980175000%_)))) + (_%g174979174997%_ _%g174980175000%_)))) + (_%g174979174997%_ _%g174980175000%_))))) + (_%g174978175066%_ _%L174670%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-case-lambda-expr174100%_ - (let* ((_%g173939173958%_ - (lambda (_%g173940173955%_) + (_%specializer-case-lambda-expr175232%_ + (let* ((_%g175071175090%_ + (lambda (_%g175072175087%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173940173955%_)))) - (_%g173938174097%_ - (lambda (_%g173940173961%_) + _%g175072175087%_)))) + (_%g175070175229%_ + (lambda (_%g175072175093%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173940173961%_)) - (let ((_%e173942173963%_ + (gx#stx-pair? _%g175072175093%_)) + (let ((_%e175074175095%_ (let () (declare (not safe)) - (gx#stx-e _%g173940173961%_)))) - (let ((_%hd173943173966%_ + (gx#stx-e _%g175072175093%_)))) + (let ((_%hd175075175098%_ (let () (declare (not safe)) - (##car _%e173942173963%_))) - (_%tl173944173968%_ + (##car _%e175074175095%_))) + (_%tl175076175100%_ (let () (declare (not safe)) - (##cdr _%e173942173963%_)))) + (##cdr _%e175074175095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl173944173968%_)) - (let ((_g176732_ + (gx#stx-pair/null? _%tl175076175100%_)) + (let ((_g177864_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl173944173968%_ + _%tl175076175100%_ '0)))) (begin - (let ((_g176733_ + (let ((_g177865_ (let () (declare (not safe)) - (if (##values? _g176732_) + (if (##values? _g177864_) (##vector-length - _g176732_) + _g177864_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176733_ 2))) + (##fx= _g177865_ 2))) (error "Context expects 2 values" - _g176733_))) - (let ((_%target173945173971%_ + _g177865_))) + (let ((_%target175077175103%_ (let () (declare (not safe)) - (##vector-ref _g176732_ 0))) - (_%tl173947173973%_ + (##vector-ref _g177864_ 0))) + (_%tl175079175105%_ (let () (declare (not safe)) - (##vector-ref _g176732_ 1)))) + (##vector-ref _g177864_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173947173973%_)) - (letrec ((_%loop173948173976%_ - (lambda (_%hd173946173979%_ + _%tl175079175105%_)) + (letrec ((_%loop175080175108%_ + (lambda (_%hd175078175111%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause173952173981%_) + _%clause175084175113%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173946173979%_)) - (let ((_%e173949173984%_ + (gx#stx-pair? _%hd175078175111%_)) + (let ((_%e175081175116%_ (let () (declare (not safe)) - (gx#stx-e _%hd173946173979%_)))) - (let ((_%lp-hd173950173987%_ + (gx#stx-e _%hd175078175111%_)))) + (let ((_%lp-hd175082175119%_ (let () (declare (not safe)) - (##car _%e173949173984%_))) - (_%lp-tl173951173989%_ + (##car _%e175081175116%_))) + (_%lp-tl175083175121%_ (let () (declare (not safe)) - (##cdr _%e173949173984%_)))) - (_%loop173948173976%_ - _%lp-tl173951173989%_ - (cons _%lp-hd173950173987%_ - _%clause173952173981%_)))) - (let ((_%clause173953173992%_ - (reverse _%clause173952173981%_))) - ((lambda (_%L173995%_) - (let* ((_%clauses174095%_ - (map (lambda (_%clause174009%_) - (let* ((_%__stx175545175546%_ - _%clause174009%_) - (_%g174012174027%_ + (##cdr _%e175081175116%_)))) + (_%loop175080175108%_ + _%lp-tl175083175121%_ + (cons _%lp-hd175082175119%_ + _%clause175084175113%_)))) + (let ((_%clause175085175124%_ + (reverse _%clause175084175113%_))) + ((lambda (_%L175127%_) + (let* ((_%clauses175227%_ + (map (lambda (_%clause175141%_) + (let* ((_%__stx176677176678%_ + _%clause175141%_) + (_%g175144175159%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175545175546%_))))) - (let ((_%__kont175547175548%_ - (lambda (_%L174055%_ - _%L174056%_ - _%L174057%_) - (let* ((_%receiver174076%_ - (let ((_%$e174073%_ + _%__stx176677176678%_))))) + (let ((_%__kont176679176680%_ + (lambda (_%L175187%_ + _%L175188%_ + _%L175189%_) + (let* ((_%receiver175208%_ + (let ((_%$e175205%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174055%_)))) - (if _%$e174073%_ _%$e174073%_ _%L174057%_))) - (_%body174082%_ - (map (lambda (_%g174077174079%_) + _%L175187%_)))) + (if _%$e175205%_ _%$e175205%_ _%L175189%_))) + (_%body175214%_ + (map (lambda (_%g175209175211%_) (gxc#apply-subst-object-refs__% '#f - _%receiver174076%_ - _%$klass173794%_ - _%method-calls172575%_ - _%slot-refs172576%_ - _%g174077174079%_)) - _%L174055%_))) - (cons (cons _%L174057%_ _%L174056%_) _%body174082%_)))) + _%receiver175208%_ + _%$klass174926%_ + _%method-calls173707%_ + _%slot-refs173708%_ + _%g175209175211%_)) + _%L175187%_))) + (cons (cons _%L175189%_ _%L175188%_) _%body175214%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175549175550%_ + (_%__kont176681176682%_ (lambda () - _%clause174009%_))) + _%clause175141%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx175545175546%_)) - (let ((_%e174017174039%_ + _%__stx176677176678%_)) + (let ((_%e175149175171%_ (let () (declare (not safe)) (gx#stx-e - _%__stx175545175546%_)))) - (let ((_%tl174019174044%_ + _%__stx176677176678%_)))) + (let ((_%tl175151175176%_ (let () (declare (not safe)) - (##cdr _%e174017174039%_))) - (_%hd174018174042%_ + (##cdr _%e175149175171%_))) + (_%hd175150175174%_ (let () (declare (not safe)) - (##car _%e174017174039%_)))) + (##car _%e175149175171%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174018174042%_)) - (let ((_%e174020174047%_ + _%hd175150175174%_)) + (let ((_%e175152175179%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd174018174042%_)))) - (let ((_%tl174022174052%_ + (gx#stx-e _%hd175150175174%_)))) + (let ((_%tl175154175184%_ (let () (declare (not safe)) - (##cdr _%e174020174047%_))) - (_%hd174021174050%_ + (##cdr _%e175152175179%_))) + (_%hd175153175182%_ (let () (declare (not safe)) - (##car _%e174020174047%_)))) - (_%__kont175547175548%_ - _%tl174019174044%_ - _%tl174022174052%_ - _%hd174021174050%_))) - (_%__kont175549175550%_)))) + (##car _%e175152175179%_)))) + (_%__kont176679176680%_ + _%tl175151175176%_ + _%tl175154175184%_ + _%hd175153175182%_))) + (_%__kont176681176682%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175549175550%_))))) - (let ((__tmp176734 - (lambda (_%g174087174090%_ - _%g174088174092%_) - (cons _%g174087174090%_ - _%g174088174092%_)))) + (_%__kont176681176682%_))))) + (let ((__tmp177866 + (lambda (_%g175219175222%_ + _%g175220175224%_) + (cons _%g175219175222%_ + _%g175220175224%_)))) (declare (not safe)) (__foldr1 - __tmp176734 + __tmp177866 '() - _%L173995%_)))) - (__tmp176735 - (cons '%#case-lambda _%clauses174095%_))) + _%L175127%_)))) + (__tmp177867 + (cons '%#case-lambda _%clauses175227%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176735 _%L173537%_))) - _%clause173953173992%_)))))) + (gxc#xform-wrap-source __tmp177867 _%L174669%_))) + _%clause175085175124%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop173948173976%_ - _%target173945173971%_ + (_%loop175080175108%_ + _%target175077175103%_ '())) - (_%g173939173958%_ - _%g173940173961%_))))) - (_%g173939173958%_ _%g173940173961%_)))) - (_%g173939173958%_ _%g173940173961%_))))) - (_%g173938174097%_ _%L173537%_))) + (_%g175071175090%_ + _%g175072175093%_))))) + (_%g175071175090%_ _%g175072175093%_)))) + (_%g175071175090%_ _%g175072175093%_))))) + (_%g175070175229%_ _%L174669%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl174102%_ - (let ((__tmp176736 + (_%specializer-impl175234%_ + (let ((__tmp177868 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L173539%_ '()) - (cons _%specializer-lambda-expr173937%_ + (cons (cons (cons (cons _%L174671%_ '()) + (cons _%specializer-lambda-expr175069%_ '())) '()) - (cons _%specializer-case-lambda-expr174100%_ + (cons _%specializer-case-lambda-expr175232%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176736 _%stx172483%_))) + (gxc#xform-wrap-source __tmp177868 _%stx173615%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl174104%_ - (_%generate-specializer-impl172487%_ - _%$klass173794%_ - _%$method-table173796%_ - _%methods-bind173821%_ - _%slots-bind173845%_ - _%specializer-impl174102%_))) - (let ((__tmp176738 + (_%specializer-impl175236%_ + (_%generate-specializer-impl173619%_ + _%$klass174926%_ + _%$method-table174928%_ + _%methods-bind174953%_ + _%slots-bind174977%_ + _%specializer-impl175234%_))) + (let ((__tmp177870 (let () (declare (not safe)) (gx#stx-e - _%L172556%_))) - (__tmp176737 + _%L173688%_))) + (__tmp177869 (let () (declare (not safe)) (gx#stx-e - _%specializer-id173792%_)))) + _%specializer-id174924%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp176738 + __tmp177870 '" => " - __tmp176737)) - (_%generate-specializer-def172488%_ - _%L172556%_ - _%specializer-id173792%_ - _%specializer-impl174104%_)))) - _%hd173470173532%_ - _%hd173467173524%_ - _%hd173464173516%_) - (_%g173446173476%_ _%g173447173479%_)))) - (_%g173446173476%_ _%g173447173479%_)) - (_%g173446173476%_ _%g173447173479%_)) - (_%g173446173476%_ _%g173447173479%_)))) - (_%g173446173476%_ _%g173447173479%_)) + __tmp177869)) + (_%generate-specializer-def173620%_ + _%L173688%_ + _%specializer-id174924%_ + _%specializer-impl175236%_)))) + _%hd174602174664%_ + _%hd174599174656%_ + _%hd174596174648%_) + (_%g174578174608%_ _%g174579174611%_)))) + (_%g174578174608%_ _%g174579174611%_)) + (_%g174578174608%_ _%g174579174611%_)) + (_%g174578174608%_ _%g174579174611%_)))) + (_%g174578174608%_ _%g174579174611%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g173446173476%_ - _%g173447173479%_)))) - (_%g173446173476%_ - _%g173447173479%_)))) - (_%g173446173476%_ _%g173447173479%_)))) - (_%g173446173476%_ _%g173447173479%_)))) - (_%g173446173476%_ _%g173447173479%_)))) + (_%g174578174608%_ + _%g174579174611%_)))) + (_%g174578174608%_ + _%g174579174611%_)))) + (_%g174578174608%_ _%g174579174611%_)))) + (_%g174578174608%_ _%g174579174611%_)))) + (_%g174578174608%_ _%g174579174611%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g173446173476%_ - _%g173447173479%_))))) - (_%g173445174107%_ _%L172555%_)) + (_%g174578174608%_ + _%g174579174611%_))))) + (_%g174577175239%_ _%L173687%_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _%L172555%_)) - (let* ((_%g174111174164%_ - (lambda (_%g174112174161%_) + (gxc#kw-lambda-expr? _%L173687%_)) + (let* ((_%g175243175296%_ + (lambda (_%g175244175293%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174112174161%_)))) - (_%g174110175335%_ - (lambda (_%g174112174167%_) + _%g175244175293%_)))) + (_%g175242176467%_ + (lambda (_%g175244175299%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174112174167%_)) - (let ((_%e174118174169%_ + _%g175244175299%_)) + (let ((_%e175250175301%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g174112174167%_)))) - (let ((_%hd174119174172%_ + (gx#stx-e _%g175244175299%_)))) + (let ((_%hd175251175304%_ (let () (declare (not safe)) - (##car _%e174118174169%_))) - (_%tl174120174174%_ + (##car _%e175250175301%_))) + (_%tl175252175306%_ (let () (declare (not safe)) - (##cdr _%e174118174169%_)))) + (##cdr _%e175250175301%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174119174172%_)) + (gx#identifier? _%hd175251175304%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd174119174172%_)) + (gx#stx-eq? '%#let-values _%hd175251175304%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174120174174%_)) - (let ((_%e174121174177%_ + (gx#stx-pair? _%tl175252175306%_)) + (let ((_%e175253175309%_ (let () (declare (not safe)) - (gx#stx-e _%tl174120174174%_)))) - (let ((_%hd174122174180%_ + (gx#stx-e _%tl175252175306%_)))) + (let ((_%hd175254175312%_ (let () (declare (not safe)) - (##car _%e174121174177%_))) - (_%tl174123174182%_ + (##car _%e175253175309%_))) + (_%tl175255175314%_ (let () (declare (not safe)) - (##cdr _%e174121174177%_)))) + (##cdr _%e175253175309%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174122174180%_)) - (let ((_%e174124174185%_ + (gx#stx-pair? _%hd175254175312%_)) + (let ((_%e175256175317%_ (let () (declare (not safe)) (gx#stx-e - _%hd174122174180%_)))) - (let ((_%hd174125174188%_ + _%hd175254175312%_)))) + (let ((_%hd175257175320%_ (let () (declare (not safe)) - (##car _%e174124174185%_))) - (_%tl174126174190%_ + (##car _%e175256175317%_))) + (_%tl175258175322%_ (let () (declare (not safe)) - (##cdr _%e174124174185%_)))) + (##cdr _%e175256175317%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174125174188%_)) - (let ((_%e174127174193%_ + _%hd175257175320%_)) + (let ((_%e175259175325%_ (let () (declare (not safe)) (gx#stx-e - _%hd174125174188%_)))) - (let ((_%hd174128174196%_ + _%hd175257175320%_)))) + (let ((_%hd175260175328%_ (let () (declare (not safe)) - (##car _%e174127174193%_))) - (_%tl174129174198%_ + (##car _%e175259175325%_))) + (_%tl175261175330%_ (let () (declare (not safe)) - (##cdr _%e174127174193%_)))) + (##cdr _%e175259175325%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174128174196%_)) - (let ((_%e174130174201%_ + _%hd175260175328%_)) + (let ((_%e175262175333%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd174128174196%_)))) - (let ((_%hd174131174204%_ + (gx#stx-e _%hd175260175328%_)))) + (let ((_%hd175263175336%_ (let () (declare (not safe)) - (##car _%e174130174201%_))) - (_%tl174132174206%_ + (##car _%e175262175333%_))) + (_%tl175264175338%_ (let () (declare (not safe)) - (##cdr _%e174130174201%_)))) + (##cdr _%e175262175333%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174132174206%_)) + (gx#stx-null? _%tl175264175338%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174129174198%_)) - (let ((_%e174133174209%_ + (gx#stx-pair? _%tl175261175330%_)) + (let ((_%e175265175341%_ (let () (declare (not safe)) - (gx#stx-e _%tl174129174198%_)))) - (let ((_%hd174134174212%_ + (gx#stx-e _%tl175261175330%_)))) + (let ((_%hd175266175344%_ (let () (declare (not safe)) - (##car _%e174133174209%_))) - (_%tl174135174214%_ + (##car _%e175265175341%_))) + (_%tl175267175346%_ (let () (declare (not safe)) - (##cdr _%e174133174209%_)))) + (##cdr _%e175265175341%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174134174212%_)) - (let ((_%e174136174217%_ + (gx#stx-pair? _%hd175266175344%_)) + (let ((_%e175268175349%_ (let () (declare (not safe)) - (gx#stx-e _%hd174134174212%_)))) - (let ((_%hd174137174220%_ + (gx#stx-e _%hd175266175344%_)))) + (let ((_%hd175269175352%_ (let () (declare (not safe)) - (##car _%e174136174217%_))) - (_%tl174138174222%_ + (##car _%e175268175349%_))) + (_%tl175270175354%_ (let () (declare (not safe)) - (##cdr _%e174136174217%_)))) + (##cdr _%e175268175349%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd174137174220%_)) + _%hd175269175352%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd174137174220%_)) + _%hd175269175352%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174138174222%_)) - (let ((_%e174139174225%_ + _%tl175270175354%_)) + (let ((_%e175271175357%_ (let () (declare (not safe)) (gx#stx-e - _%tl174138174222%_)))) - (let ((_%hd174140174228%_ + _%tl175270175354%_)))) + (let ((_%hd175272175360%_ (let () (declare (not safe)) - (##car _%e174139174225%_))) - (_%tl174141174230%_ + (##car _%e175271175357%_))) + (_%tl175273175362%_ (let () (declare (not safe)) - (##cdr _%e174139174225%_)))) + (##cdr _%e175271175357%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174140174228%_)) - (let ((_%e174142174233%_ + _%hd175272175360%_)) + (let ((_%e175274175365%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd174140174228%_)))) - (let ((_%hd174143174236%_ + (gx#stx-e _%hd175272175360%_)))) + (let ((_%hd175275175368%_ (let () (declare (not safe)) - (##car _%e174142174233%_))) - (_%tl174144174238%_ + (##car _%e175274175365%_))) + (_%tl175276175370%_ (let () (declare (not safe)) - (##cdr _%e174142174233%_)))) + (##cdr _%e175274175365%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174143174236%_)) - (let ((_%e174145174241%_ + (gx#stx-pair? _%hd175275175368%_)) + (let ((_%e175277175373%_ (let () (declare (not safe)) - (gx#stx-e _%hd174143174236%_)))) - (let ((_%hd174146174244%_ + (gx#stx-e _%hd175275175368%_)))) + (let ((_%hd175278175376%_ (let () (declare (not safe)) - (##car _%e174145174241%_))) - (_%tl174147174246%_ + (##car _%e175277175373%_))) + (_%tl175279175378%_ (let () (declare (not safe)) - (##cdr _%e174145174241%_)))) + (##cdr _%e175277175373%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174146174244%_)) - (let ((_%e174148174249%_ + (gx#stx-pair? _%hd175278175376%_)) + (let ((_%e175280175381%_ (let () (declare (not safe)) - (gx#stx-e _%hd174146174244%_)))) - (let ((_%hd174149174252%_ + (gx#stx-e _%hd175278175376%_)))) + (let ((_%hd175281175384%_ (let () (declare (not safe)) - (##car _%e174148174249%_))) - (_%tl174150174254%_ + (##car _%e175280175381%_))) + (_%tl175282175386%_ (let () (declare (not safe)) - (##cdr _%e174148174249%_)))) + (##cdr _%e175280175381%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174150174254%_)) + (gx#stx-null? _%tl175282175386%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174147174246%_)) - (let ((_%e174151174257%_ + _%tl175279175378%_)) + (let ((_%e175283175389%_ (let () (declare (not safe)) (gx#stx-e - _%tl174147174246%_)))) - (let ((_%hd174152174260%_ + _%tl175279175378%_)))) + (let ((_%hd175284175392%_ (let () (declare (not safe)) - (##car _%e174151174257%_))) - (_%tl174153174262%_ + (##car _%e175283175389%_))) + (_%tl175285175394%_ (let () (declare (not safe)) - (##cdr _%e174151174257%_)))) + (##cdr _%e175283175389%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174153174262%_)) + _%tl175285175394%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174144174238%_)) + _%tl175276175370%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl174141174230%_)) - (let ((_%e174154174265%_ + (gx#stx-pair? _%tl175273175362%_)) + (let ((_%e175286175397%_ (let () (declare (not safe)) - (gx#stx-e _%tl174141174230%_)))) - (let ((_%hd174155174268%_ + (gx#stx-e _%tl175273175362%_)))) + (let ((_%hd175287175400%_ (let () (declare (not safe)) - (##car _%e174154174265%_))) - (_%tl174156174270%_ + (##car _%e175286175397%_))) + (_%tl175288175402%_ (let () (declare (not safe)) - (##cdr _%e174154174265%_)))) + (##cdr _%e175286175397%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174156174270%_)) + (gx#stx-null? _%tl175288175402%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174135174214%_)) + (gx#stx-null? _%tl175267175346%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174126174190%_)) + (gx#stx-null? _%tl175258175322%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174123174182%_)) - (let ((_%e174157174273%_ + (gx#stx-pair? _%tl175255175314%_)) + (let ((_%e175289175405%_ (let () (declare (not safe)) (gx#stx-e - _%tl174123174182%_)))) - (let ((_%hd174158174276%_ + _%tl175255175314%_)))) + (let ((_%hd175290175408%_ (let () (declare (not safe)) - (##car _%e174157174273%_))) - (_%tl174159174278%_ + (##car _%e175289175405%_))) + (_%tl175291175410%_ (let () (declare (not safe)) - (##cdr _%e174157174273%_)))) + (##cdr _%e175289175405%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174159174278%_)) - ((lambda (_%L174281%_ - _%L174282%_ - _%L174283%_ - _%L174284%_ - _%L174285%_) - (let* ((_%g174325174387%_ - (lambda (_%g174326174384%_) + _%tl175291175410%_)) + ((lambda (_%L175413%_ + _%L175414%_ + _%L175415%_ + _%L175416%_ + _%L175417%_) + (let* ((_%g175457175519%_ + (lambda (_%g175458175516%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174326174384%_)))) - (_%g174324175332%_ - (lambda (_%g174326174390%_) + _%g175458175516%_)))) + (_%g175456176464%_ + (lambda (_%g175458175522%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g174326174390%_)) - (let ((_%e174332174392%_ + (gx#stx-pair? _%g175458175522%_)) + (let ((_%e175464175524%_ (let () (declare (not safe)) - (gx#stx-e _%g174326174390%_)))) - (let ((_%hd174333174395%_ + (gx#stx-e _%g175458175522%_)))) + (let ((_%hd175465175527%_ (let () (declare (not safe)) - (##car _%e174332174392%_))) - (_%tl174334174397%_ + (##car _%e175464175524%_))) + (_%tl175466175529%_ (let () (declare (not safe)) - (##cdr _%e174332174392%_)))) + (##cdr _%e175464175524%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174333174395%_)) + (gx#identifier? _%hd175465175527%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd174333174395%_)) + _%hd175465175527%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174334174397%_)) - (let ((_%e174335174400%_ + _%tl175466175529%_)) + (let ((_%e175467175532%_ (let () (declare (not safe)) (gx#stx-e - _%tl174334174397%_)))) - (let ((_%hd174336174403%_ + _%tl175466175529%_)))) + (let ((_%hd175468175535%_ (let () (declare (not safe)) - (##car _%e174335174400%_))) - (_%tl174337174405%_ + (##car _%e175467175532%_))) + (_%tl175469175537%_ (let () (declare (not safe)) - (##cdr _%e174335174400%_)))) + (##cdr _%e175467175532%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174337174405%_)) - (let ((_%e174338174408%_ + _%tl175469175537%_)) + (let ((_%e175470175540%_ (let () (declare (not safe)) (gx#stx-e - _%tl174337174405%_)))) - (let ((_%hd174339174411%_ + _%tl175469175537%_)))) + (let ((_%hd175471175543%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e174338174408%_))) - (_%tl174340174413%_ - (let () (declare (not safe)) (##cdr _%e174338174408%_)))) + (##car _%e175470175540%_))) + (_%tl175472175545%_ + (let () (declare (not safe)) (##cdr _%e175470175540%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174339174411%_)) - (let ((_%e174341174416%_ + (gx#stx-pair? _%hd175471175543%_)) + (let ((_%e175473175548%_ (let () (declare (not safe)) - (gx#stx-e _%hd174339174411%_)))) - (let ((_%hd174342174419%_ + (gx#stx-e _%hd175471175543%_)))) + (let ((_%hd175474175551%_ (let () (declare (not safe)) - (##car _%e174341174416%_))) - (_%tl174343174421%_ + (##car _%e175473175548%_))) + (_%tl175475175553%_ (let () (declare (not safe)) - (##cdr _%e174341174416%_)))) + (##cdr _%e175473175548%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174342174419%_)) + (gx#identifier? _%hd175474175551%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd174342174419%_)) + (gx#stx-eq? '%#call _%hd175474175551%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174343174421%_)) - (let ((_%e174344174424%_ + (gx#stx-pair? _%tl175475175553%_)) + (let ((_%e175476175556%_ (let () (declare (not safe)) - (gx#stx-e _%tl174343174421%_)))) - (let ((_%hd174345174427%_ + (gx#stx-e _%tl175475175553%_)))) + (let ((_%hd175477175559%_ (let () (declare (not safe)) - (##car _%e174344174424%_))) - (_%tl174346174429%_ + (##car _%e175476175556%_))) + (_%tl175478175561%_ (let () (declare (not safe)) - (##cdr _%e174344174424%_)))) + (##cdr _%e175476175556%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174345174427%_)) - (let ((_%e174347174432%_ + _%hd175477175559%_)) + (let ((_%e175479175564%_ (let () (declare (not safe)) (gx#stx-e - _%hd174345174427%_)))) - (let ((_%hd174348174435%_ + _%hd175477175559%_)))) + (let ((_%hd175480175567%_ (let () (declare (not safe)) - (##car _%e174347174432%_))) - (_%tl174349174437%_ + (##car _%e175479175564%_))) + (_%tl175481175569%_ (let () (declare (not safe)) - (##cdr _%e174347174432%_)))) + (##cdr _%e175479175564%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd174348174435%_)) + _%hd175480175567%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd174348174435%_)) + _%hd175480175567%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174349174437%_)) - (let ((_%e174350174440%_ + _%tl175481175569%_)) + (let ((_%e175482175572%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174349174437%_)))) - (let ((_%hd174351174443%_ + (gx#stx-e _%tl175481175569%_)))) + (let ((_%hd175483175575%_ (let () (declare (not safe)) - (##car _%e174350174440%_))) - (_%tl174352174445%_ + (##car _%e175482175572%_))) + (_%tl175484175577%_ (let () (declare (not safe)) - (##cdr _%e174350174440%_)))) + (##cdr _%e175482175572%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174352174445%_)) + (gx#stx-null? _%tl175484175577%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174346174429%_)) - (let ((_%e174353174448%_ + (gx#stx-pair? _%tl175478175561%_)) + (let ((_%e175485175580%_ (let () (declare (not safe)) - (gx#stx-e _%tl174346174429%_)))) - (let ((_%hd174354174451%_ + (gx#stx-e _%tl175478175561%_)))) + (let ((_%hd175486175583%_ (let () (declare (not safe)) - (##car _%e174353174448%_))) - (_%tl174355174453%_ + (##car _%e175485175580%_))) + (_%tl175487175585%_ (let () (declare (not safe)) - (##cdr _%e174353174448%_)))) + (##cdr _%e175485175580%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174354174451%_)) - (let ((_%e174356174456%_ + (gx#stx-pair? _%hd175486175583%_)) + (let ((_%e175488175588%_ (let () (declare (not safe)) (gx#stx-e - _%hd174354174451%_)))) - (let ((_%hd174357174459%_ + _%hd175486175583%_)))) + (let ((_%hd175489175591%_ (let () (declare (not safe)) - (##car _%e174356174456%_))) - (_%tl174358174461%_ + (##car _%e175488175588%_))) + (_%tl175490175593%_ (let () (declare (not safe)) - (##cdr _%e174356174456%_)))) + (##cdr _%e175488175588%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd174357174459%_)) + _%hd175489175591%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd174357174459%_)) + _%hd175489175591%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174358174461%_)) - (let ((_%e174359174464%_ + _%tl175490175593%_)) + (let ((_%e175491175596%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl174358174461%_)))) - (let ((_%hd174360174467%_ + (gx#stx-e _%tl175490175593%_)))) + (let ((_%hd175492175599%_ (let () (declare (not safe)) - (##car _%e174359174464%_))) - (_%tl174361174469%_ + (##car _%e175491175596%_))) + (_%tl175493175601%_ (let () (declare (not safe)) - (##cdr _%e174359174464%_)))) + (##cdr _%e175491175596%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174361174469%_)) + (gx#stx-null? _%tl175493175601%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174355174453%_)) - (let ((_%e174362174472%_ + (gx#stx-pair? _%tl175487175585%_)) + (let ((_%e175494175604%_ (let () (declare (not safe)) - (gx#stx-e _%tl174355174453%_)))) - (let ((_%hd174363174475%_ + (gx#stx-e _%tl175487175585%_)))) + (let ((_%hd175495175607%_ (let () (declare (not safe)) - (##car _%e174362174472%_))) - (_%tl174364174477%_ + (##car _%e175494175604%_))) + (_%tl175496175609%_ (let () (declare (not safe)) - (##cdr _%e174362174472%_)))) + (##cdr _%e175494175604%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174363174475%_)) - (let ((_%e174365174480%_ + (gx#stx-pair? _%hd175495175607%_)) + (let ((_%e175497175612%_ (let () (declare (not safe)) - (gx#stx-e _%hd174363174475%_)))) - (let ((_%hd174366174483%_ + (gx#stx-e _%hd175495175607%_)))) + (let ((_%hd175498175615%_ (let () (declare (not safe)) - (##car _%e174365174480%_))) - (_%tl174367174485%_ + (##car _%e175497175612%_))) + (_%tl175499175617%_ (let () (declare (not safe)) - (##cdr _%e174365174480%_)))) + (##cdr _%e175497175612%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd174366174483%_)) + _%hd175498175615%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd174366174483%_)) + _%hd175498175615%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174367174485%_)) - (let ((_%e174368174488%_ + _%tl175499175617%_)) + (let ((_%e175500175620%_ (let () (declare (not safe)) (gx#stx-e - _%tl174367174485%_)))) - (let ((_%hd174369174491%_ + _%tl175499175617%_)))) + (let ((_%hd175501175623%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e174368174488%_))) - (_%tl174370174493%_ - (let () (declare (not safe)) (##cdr _%e174368174488%_)))) + (##car _%e175500175620%_))) + (_%tl175502175625%_ + (let () (declare (not safe)) (##cdr _%e175500175620%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174370174493%_)) + (gx#stx-null? _%tl175502175625%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174364174477%_)) - (if (let ((__tmp176739 + (gx#stx-pair/null? _%tl175496175609%_)) + (if (let ((__tmp177871 (let () (declare (not safe)) - (gx#stx-length _%tl174364174477%_)))) + (gx#stx-length _%tl175496175609%_)))) (declare (not safe)) - (##fx>= __tmp176739 '1)) - (let ((_g176740_ + (##fx>= __tmp177871 '1)) + (let ((_g177872_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl174364174477%_ + _%tl175496175609%_ '1)))) (begin - (let ((_g176741_ + (let ((_g177873_ (let () (declare (not safe)) - (if (##values? _g176740_) - (##vector-length _g176740_) + (if (##values? _g177872_) + (##vector-length _g177872_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176741_ 2))) + (##fx= _g177873_ 2))) (error "Context expects 2 values" - _g176741_))) - (let ((_%target174371174496%_ + _g177873_))) + (let ((_%target175503175628%_ (let () (declare (not safe)) - (##vector-ref _g176740_ 0))) - (_%tl174373174498%_ + (##vector-ref _g177872_ 0))) + (_%tl175505175630%_ (let () (declare (not safe)) - (##vector-ref _g176740_ 1)))) + (##vector-ref _g177872_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174373174498%_)) - (let ((_%e174380174501%_ + (gx#stx-pair? _%tl175505175630%_)) + (let ((_%e175512175633%_ (let () (declare (not safe)) - (gx#stx-e _%tl174373174498%_)))) - (let ((_%hd174381174504%_ + (gx#stx-e _%tl175505175630%_)))) + (let ((_%hd175513175636%_ (let () (declare (not safe)) - (##car _%e174380174501%_))) - (_%tl174382174506%_ + (##car _%e175512175633%_))) + (_%tl175514175638%_ (let () (declare (not safe)) - (##cdr _%e174380174501%_)))) + (##cdr _%e175512175633%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174382174506%_)) - (letrec ((_%loop174374174509%_ - (lambda (_%hd174372174512%_ + _%tl175514175638%_)) + (letrec ((_%loop175506175641%_ + (lambda (_%hd175504175644%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kw-ref174378174514%_) + _%kw-ref175510175646%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174372174512%_)) - (let ((_%e174375174517%_ + (gx#stx-pair? _%hd175504175644%_)) + (let ((_%e175507175649%_ (let () (declare (not safe)) - (gx#stx-e _%hd174372174512%_)))) - (let ((_%lp-hd174376174520%_ + (gx#stx-e _%hd175504175644%_)))) + (let ((_%lp-hd175508175652%_ (let () (declare (not safe)) - (##car _%e174375174517%_))) - (_%lp-tl174377174522%_ + (##car _%e175507175649%_))) + (_%lp-tl175509175654%_ (let () (declare (not safe)) - (##cdr _%e174375174517%_)))) - (_%loop174374174509%_ - _%lp-tl174377174522%_ - (cons _%lp-hd174376174520%_ - _%kw-ref174378174514%_)))) - (let ((_%kw-ref174379174525%_ - (reverse _%kw-ref174378174514%_))) + (##cdr _%e175507175649%_)))) + (_%loop175506175641%_ + _%lp-tl175509175654%_ + (cons _%lp-hd175508175652%_ + _%kw-ref175510175646%_)))) + (let ((_%kw-ref175511175657%_ + (reverse _%kw-ref175510175646%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174340174413%_)) - ((lambda (_%L174528%_ - _%L174529%_ - _%L174530%_ - _%L174531%_ - _%L174532%_) - (let* ((_%kw-count174583%_ - (length (let ((__tmp176742 - (lambda (_%g174575174578%_ - _%g174576174580%_) - (cons _%g174575174578%_ - _%g174576174580%_)))) + (gx#stx-null? _%tl175472175545%_)) + ((lambda (_%L175660%_ + _%L175661%_ + _%L175662%_ + _%L175663%_ + _%L175664%_) + (let* ((_%kw-count175715%_ + (length (let ((__tmp177874 + (lambda (_%g175707175710%_ + _%g175708175712%_) + (cons _%g175707175710%_ + _%g175708175712%_)))) (declare (not safe)) (__foldr1 - __tmp176742 + __tmp177874 '() - _%L174529%_)))) - (_%self-index174585%_ + _%L175661%_)))) + (_%self-index175717%_ (let () (declare (not safe)) - (##fx+ _%kw-count174583%_ '1)))) + (##fx+ _%kw-count175715%_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L174283%_)) - (let* ((_%g174589174603%_ - (lambda (_%g174590174600%_) + (gxc#lambda-expr? _%L175415%_)) + (let* ((_%g175721175735%_ + (lambda (_%g175722175732%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174590174600%_)))) - (_%g174588174726%_ - (lambda (_%g174590174606%_) + _%g175722175732%_)))) + (_%g175720175858%_ + (lambda (_%g175722175738%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174590174606%_)) - (let ((_%e174593174608%_ + _%g175722175738%_)) + (let ((_%e175725175740%_ (let () (declare (not safe)) (gx#stx-e - _%g174590174606%_)))) - (let ((_%hd174594174611%_ + _%g175722175738%_)))) + (let ((_%hd175726175743%_ (let () (declare (not safe)) - (##car _%e174593174608%_))) - (_%tl174595174613%_ + (##car _%e175725175740%_))) + (_%tl175727175745%_ (let () (declare (not safe)) - (##cdr _%e174593174608%_)))) + (##cdr _%e175725175740%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174595174613%_)) - (let ((_%e174596174616%_ + _%tl175727175745%_)) + (let ((_%e175728175748%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174595174613%_)))) - (let ((_%hd174597174619%_ + (gx#stx-e _%tl175727175745%_)))) + (let ((_%hd175729175751%_ (let () (declare (not safe)) - (##car _%e174596174616%_))) - (_%tl174598174621%_ + (##car _%e175728175748%_))) + (_%tl175730175753%_ (let () (declare (not safe)) - (##cdr _%e174596174616%_)))) - ((lambda (_%L174624%_ _%L174625%_) - (let* ((_%self174642%_ - (list-ref _%L174625%_ _%self-index174585%_)) - (_%receiver174647%_ - (let ((_%$e174644%_ + (##cdr _%e175728175748%_)))) + ((lambda (_%L175756%_ _%L175757%_) + (let* ((_%self175774%_ + (list-ref _%L175757%_ _%self-index175717%_)) + (_%receiver175779%_ + (let ((_%$e175776%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174624%_)))) - (if _%$e174644%_ - _%$e174644%_ - _%self174642%_)))) + _%L175756%_)))) + (if _%$e175776%_ + _%$e175776%_ + _%self175774%_)))) (for-each - (lambda (_%g174649174651%_) + (lambda (_%g175781175783%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174647%_ - _%method-calls172575%_ - _%slot-refs172576%_ - _%g174649174651%_)) - _%L174624%_) - (if (_%no-specializer?172579%_) - _%stx172483%_ - (let* ((_%specializer-id174660%_ - (let* ((_%id174654%_ - (let ((__tmp176743 + _%receiver175779%_ + _%method-calls173707%_ + _%slot-refs173708%_ + _%g175781175783%_)) + _%L175756%_) + (if (_%no-specializer?173711%_) + _%stx173615%_ + (let* ((_%specializer-id175792%_ + (let* ((_%id175786%_ + (let ((__tmp177875 (let () (declare (not safe)) (gx#stx-e - _%L172556%_)))) + _%L173688%_)))) (declare (not safe)) (make-symbol__1 - __tmp176743 + __tmp177875 '"::specialize"))) - (_%specializer-id174657%_ - (let ((__tmp176744 + (_%specializer-id175789%_ + (let ((__tmp177876 (let () (declare (not safe)) (gx#stx-source - _%stx172483%_)))) + _%stx173615%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id174654%_ - __tmp176744)))) + _%id175786%_ + __tmp177876)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%specializer-id174657%_)) - _%specializer-id174657%_)) - (_%$klass174662%_ - (let ((__tmp176745 + _%specializer-id175789%_)) + _%specializer-id175789%_)) + (_%$klass175794%_ + (let ((__tmp177877 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp176745))) - (_%$method-table174664%_ - (let ((__tmp176746 + (make-symbol__0 __tmp177877))) + (_%$method-table175796%_ + (let ((__tmp177878 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp176746))) - (_%methods174666%_ + (make-symbol__0 __tmp177878))) + (_%methods175798%_ (let () (declare (not safe)) (__hash-keys - _%method-calls172575%_))) - (_%$methods174670%_ - (map (lambda (_%id174668%_) - (let ((__tmp176747 - (gensym _%id174668%_))) + _%method-calls173707%_))) + (_%$methods175802%_ + (map (lambda (_%id175800%_) + (let ((__tmp177879 + (gensym _%id175800%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp176747))) - _%methods174666%_)) - (_%_174679%_ + __tmp177879))) + _%methods175798%_)) + (_%_175811%_ (for-each - (lambda (_%g174671174674%_ - _%g174672174676%_) + (lambda (_%g175803175806%_ + _%g175804175808%_) (let () (declare (not safe)) (__hash-put! - _%method-calls172575%_ - _%g174671174674%_ - _%g174672174676%_))) - _%methods174666%_ - _%$methods174670%_)) - (_%methods-bind174689%_ - (map (lambda (_%g174681174684%_ - _%g174682174686%_) - (_%generate-method-bind172485%_ - _%$klass174662%_ - _%$method-table174664%_ - _%g174681174684%_ - _%g174682174686%_)) - _%methods174666%_ - _%$methods174670%_)) - (_%slots174691%_ + _%method-calls173707%_ + _%g175803175806%_ + _%g175804175808%_))) + _%methods175798%_ + _%$methods175802%_)) + (_%methods-bind175821%_ + (map (lambda (_%g175813175816%_ + _%g175814175818%_) + (_%generate-method-bind173617%_ + _%$klass175794%_ + _%$method-table175796%_ + _%g175813175816%_ + _%g175814175818%_)) + _%methods175798%_ + _%$methods175802%_)) + (_%slots175823%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs172576%_))) - (_%$slots174695%_ - (map (lambda (_%id174693%_) - (let ((__tmp176748 - (gensym _%id174693%_))) + (__hash-keys _%slot-refs173708%_))) + (_%$slots175827%_ + (map (lambda (_%id175825%_) + (let ((__tmp177880 + (gensym _%id175825%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp176748))) - _%slots174691%_)) - (_%_174704%_ + __tmp177880))) + _%slots175823%_)) + (_%_175836%_ (for-each - (lambda (_%g174696174699%_ - _%g174697174701%_) + (lambda (_%g175828175831%_ + _%g175829175833%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs172576%_ - _%g174696174699%_ - _%g174697174701%_))) - _%slots174691%_ - _%$slots174695%_)) - (_%slots-bind174713%_ - (map (lambda (_%g174705174708%_ - _%g174706174710%_) - (_%generate-slot-bind172486%_ - _%$klass174662%_ - _%g174705174708%_ - _%g174706174710%_)) - _%slots174691%_ - _%$slots174695%_)) - (_%specializer-impl174721%_ - (let* ((_%specializer-body174719%_ - (map (lambda (_%g174714174716%_) + _%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%_) (gxc#apply-subst-object-refs__% '#f - _%receiver174647%_ - _%$klass174662%_ - _%method-calls172575%_ - _%slot-refs172576%_ - _%g174714174716%_)) - _%L174624%_)) - (__tmp176749 + _%receiver175779%_ + _%$klass175794%_ + _%method-calls173707%_ + _%slot-refs173708%_ + _%g175846175848%_)) + _%L175756%_)) + (__tmp177881 (cons '%#let-values - (cons (cons (cons (cons _%L174285%_ + (cons (cons (cons (cons _%L175417%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L174284%_ + (cons (cons (cons (cons _%L175416%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp176750 + (cons (let ((__tmp177882 (cons '%#lambda - (cons _%L174625%_ - _%specializer-body174719%_)))) + (cons _%L175757%_ + _%specializer-body175851%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176750 _%L174283%_)) + (gxc#xform-wrap-source __tmp177882 _%L175415%_)) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L174282%_ '()))) + (cons _%L175414%_ '()))) '())) '()) - (cons _%L174281%_ '()))))) + (cons _%L175413%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176749 - _%stx172483%_))) - (_%specializer-impl174723%_ - (_%generate-specializer-impl172487%_ - _%$klass174662%_ - _%$method-table174664%_ - _%methods-bind174689%_ - _%slots-bind174713%_ - _%specializer-impl174721%_))) - (let ((__tmp176752 + __tmp177881 + _%stx173615%_))) + (_%specializer-impl175855%_ + (_%generate-specializer-impl173619%_ + _%$klass175794%_ + _%$method-table175796%_ + _%methods-bind175821%_ + _%slots-bind175845%_ + _%specializer-impl175853%_))) + (let ((__tmp177884 (let () (declare (not safe)) - (gx#stx-e _%L172556%_))) - (__tmp176751 + (gx#stx-e _%L173688%_))) + (__tmp177883 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174660%_)))) + _%specializer-id175792%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp176752 + __tmp177884 '" => " - __tmp176751)) - (_%generate-specializer-def172488%_ - _%L172556%_ - _%specializer-id174660%_ - _%specializer-impl174723%_))))) - _%tl174598174621%_ - _%hd174597174619%_))) - (_%g174589174603%_ _%g174590174606%_)))) + __tmp177883)) + (_%generate-specializer-def173620%_ + _%L173688%_ + _%specializer-id175792%_ + _%specializer-impl175855%_))))) + _%tl175730175753%_ + _%hd175729175751%_))) + (_%g175721175735%_ _%g175722175738%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174589174603%_ - _%g174590174606%_))))) - (_%g174588174726%_ _%L174283%_)) + (_%g175721175735%_ + _%g175722175738%_))))) + (_%g175720175858%_ _%L175415%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L174283%_)) - (let* ((_%g174730174760%_ - (lambda (_%g174731174757%_) + (gxc#opt-lambda-expr? _%L175415%_)) + (let* ((_%g175862175892%_ + (lambda (_%g175863175889%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174731174757%_)))) - (_%g174729175328%_ - (lambda (_%g174731174763%_) + _%g175863175889%_)))) + (_%g175861176460%_ + (lambda (_%g175863175895%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174731174763%_)) - (let ((_%e174735174765%_ + _%g175863175895%_)) + (let ((_%e175867175897%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g174731174763%_)))) - (let ((_%hd174736174768%_ + (gx#stx-e _%g175863175895%_)))) + (let ((_%hd175868175900%_ (let () (declare (not safe)) - (##car _%e174735174765%_))) - (_%tl174737174770%_ + (##car _%e175867175897%_))) + (_%tl175869175902%_ (let () (declare (not safe)) - (##cdr _%e174735174765%_)))) + (##cdr _%e175867175897%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174737174770%_)) - (let ((_%e174738174773%_ + (gx#stx-pair? _%tl175869175902%_)) + (let ((_%e175870175905%_ (let () (declare (not safe)) - (gx#stx-e _%tl174737174770%_)))) - (let ((_%hd174739174776%_ + (gx#stx-e _%tl175869175902%_)))) + (let ((_%hd175871175908%_ (let () (declare (not safe)) - (##car _%e174738174773%_))) - (_%tl174740174778%_ + (##car _%e175870175905%_))) + (_%tl175872175910%_ (let () (declare (not safe)) - (##cdr _%e174738174773%_)))) + (##cdr _%e175870175905%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174739174776%_)) - (let ((_%e174741174781%_ + (gx#stx-pair? _%hd175871175908%_)) + (let ((_%e175873175913%_ (let () (declare (not safe)) - (gx#stx-e _%hd174739174776%_)))) - (let ((_%hd174742174784%_ + (gx#stx-e _%hd175871175908%_)))) + (let ((_%hd175874175916%_ (let () (declare (not safe)) - (##car _%e174741174781%_))) - (_%tl174743174786%_ + (##car _%e175873175913%_))) + (_%tl175875175918%_ (let () (declare (not safe)) - (##cdr _%e174741174781%_)))) + (##cdr _%e175873175913%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174742174784%_)) - (let ((_%e174744174789%_ + (gx#stx-pair? _%hd175874175916%_)) + (let ((_%e175876175921%_ (let () (declare (not safe)) (gx#stx-e - _%hd174742174784%_)))) - (let ((_%hd174745174792%_ + _%hd175874175916%_)))) + (let ((_%hd175877175924%_ (let () (declare (not safe)) - (##car _%e174744174789%_))) - (_%tl174746174794%_ + (##car _%e175876175921%_))) + (_%tl175878175926%_ (let () (declare (not safe)) - (##cdr _%e174744174789%_)))) + (##cdr _%e175876175921%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174745174792%_)) - (let ((_%e174747174797%_ + _%hd175877175924%_)) + (let ((_%e175879175929%_ (let () (declare (not safe)) (gx#stx-e - _%hd174745174792%_)))) - (let ((_%hd174748174800%_ + _%hd175877175924%_)))) + (let ((_%hd175880175932%_ (let () (declare (not safe)) - (##car _%e174747174797%_))) - (_%tl174749174802%_ + (##car _%e175879175929%_))) + (_%tl175881175934%_ (let () (declare (not safe)) - (##cdr _%e174747174797%_)))) + (##cdr _%e175879175929%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174749174802%_)) + _%tl175881175934%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174746174794%_)) - (let ((_%e174750174805%_ + _%tl175878175926%_)) + (let ((_%e175882175937%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174746174794%_)))) - (let ((_%hd174751174808%_ + (gx#stx-e _%tl175878175926%_)))) + (let ((_%hd175883175940%_ (let () (declare (not safe)) - (##car _%e174750174805%_))) - (_%tl174752174810%_ + (##car _%e175882175937%_))) + (_%tl175884175942%_ (let () (declare (not safe)) - (##cdr _%e174750174805%_)))) + (##cdr _%e175882175937%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174752174810%_)) + (gx#stx-null? _%tl175884175942%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174743174786%_)) + (gx#stx-null? _%tl175875175918%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174740174778%_)) - (let ((_%e174753174813%_ + (gx#stx-pair? _%tl175872175910%_)) + (let ((_%e175885175945%_ (let () (declare (not safe)) - (gx#stx-e _%tl174740174778%_)))) - (let ((_%hd174754174816%_ + (gx#stx-e _%tl175872175910%_)))) + (let ((_%hd175886175948%_ (let () (declare (not safe)) - (##car _%e174753174813%_))) - (_%tl174755174818%_ + (##car _%e175885175945%_))) + (_%tl175887175950%_ (let () (declare (not safe)) - (##cdr _%e174753174813%_)))) + (##cdr _%e175885175945%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174755174818%_)) - ((lambda (_%L174821%_ - _%L174822%_ - _%L174823%_) - (let* ((_%g174847174861%_ - (lambda (_%g174848174858%_) + (gx#stx-null? _%tl175887175950%_)) + ((lambda (_%L175953%_ + _%L175954%_ + _%L175955%_) + (let* ((_%g175979175993%_ + (lambda (_%g175980175990%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174848174858%_)))) - (_%g174846174908%_ - (lambda (_%g174848174864%_) + _%g175980175990%_)))) + (_%g175978176040%_ + (lambda (_%g175980175996%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174848174864%_)) - (let ((_%e174851174866%_ + _%g175980175996%_)) + (let ((_%e175983175998%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g174848174864%_)))) - (let ((_%hd174852174869%_ + (gx#stx-e _%g175980175996%_)))) + (let ((_%hd175984176001%_ (let () (declare (not safe)) - (##car _%e174851174866%_))) - (_%tl174853174871%_ + (##car _%e175983175998%_))) + (_%tl175985176003%_ (let () (declare (not safe)) - (##cdr _%e174851174866%_)))) + (##cdr _%e175983175998%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174853174871%_)) - (let ((_%e174854174874%_ + (gx#stx-pair? _%tl175985176003%_)) + (let ((_%e175986176006%_ (let () (declare (not safe)) - (gx#stx-e _%tl174853174871%_)))) - (let ((_%hd174855174877%_ + (gx#stx-e _%tl175985176003%_)))) + (let ((_%hd175987176009%_ (let () (declare (not safe)) - (##car _%e174854174874%_))) - (_%tl174856174879%_ + (##car _%e175986176006%_))) + (_%tl175988176011%_ (let () (declare (not safe)) - (##cdr _%e174854174874%_)))) - ((lambda (_%L174882%_ _%L174883%_) - (let* ((_%self174896%_ + (##cdr _%e175986176006%_)))) + ((lambda (_%L176014%_ _%L176015%_) + (let* ((_%self176028%_ (list-ref - _%L174883%_ - _%self-index174585%_)) - (_%receiver174901%_ - (let ((_%$e174898%_ + _%L176015%_ + _%self-index175717%_)) + (_%receiver176033%_ + (let ((_%$e176030%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174882%_)))) - (if _%$e174898%_ - _%$e174898%_ - _%self174896%_)))) + _%L176014%_)))) + (if _%$e176030%_ + _%$e176030%_ + _%self176028%_)))) (for-each - (lambda (_%g174903174905%_) + (lambda (_%g176035176037%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174901%_ - _%method-calls172575%_ - _%slot-refs172576%_ - _%g174903174905%_)) - _%L174882%_))) - _%tl174856174879%_ - _%hd174855174877%_))) - (_%g174847174861%_ _%g174848174864%_)))) - (_%g174847174861%_ _%g174848174864%_))))) + _%receiver176033%_ + _%method-calls173707%_ + _%slot-refs173708%_ + _%g176035176037%_)) + _%L176014%_))) + _%tl175988176011%_ + _%hd175987176009%_))) + (_%g175979175993%_ _%g175980175996%_)))) + (_%g175979175993%_ _%g175980175996%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174846174908%_ - _%L174822%_)) - (let* ((_%g174911174930%_ - (lambda (_%g174912174927%_) + (_%g175978176040%_ + _%L175954%_)) + (let* ((_%g176043176062%_ + (lambda (_%g176044176059%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174912174927%_)))) - (_%g174910175041%_ - (lambda (_%g174912174933%_) + _%g176044176059%_)))) + (_%g176042176173%_ + (lambda (_%g176044176065%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174912174933%_)) - (let ((_%e174914174935%_ + _%g176044176065%_)) + (let ((_%e176046176067%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g174912174933%_)))) - (let ((_%hd174915174938%_ + (gx#stx-e _%g176044176065%_)))) + (let ((_%hd176047176070%_ (let () (declare (not safe)) - (##car _%e174914174935%_))) - (_%tl174916174940%_ + (##car _%e176046176067%_))) + (_%tl176048176072%_ (let () (declare (not safe)) - (##cdr _%e174914174935%_)))) + (##cdr _%e176046176067%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174916174940%_)) - (let ((_g176753_ + (gx#stx-pair/null? _%tl176048176072%_)) + (let ((_g177885_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl174916174940%_ + _%tl176048176072%_ '0)))) (begin - (let ((_g176754_ + (let ((_g177886_ (let () (declare (not safe)) - (if (##values? _g176753_) - (##vector-length _g176753_) + (if (##values? _g177885_) + (##vector-length _g177885_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176754_ 2))) + (##fx= _g177886_ 2))) (error "Context expects 2 values" - _g176754_))) - (let ((_%target174917174943%_ + _g177886_))) + (let ((_%target176049176075%_ (let () (declare (not safe)) - (##vector-ref _g176753_ 0))) - (_%tl174919174945%_ + (##vector-ref _g177885_ 0))) + (_%tl176051176077%_ (let () (declare (not safe)) - (##vector-ref _g176753_ 1)))) + (##vector-ref _g177885_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174919174945%_)) - (letrec ((_%loop174920174948%_ - (lambda (_%hd174918174951%_ - _%clause174924174953%_) + (gx#stx-null? _%tl176051176077%_)) + (letrec ((_%loop176052176080%_ + (lambda (_%hd176050176083%_ + _%clause176056176085%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174918174951%_)) - (let ((_%e174921174956%_ + _%hd176050176083%_)) + (let ((_%e176053176088%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd174918174951%_)))) - (let ((_%lp-hd174922174959%_ - (let () (declare (not safe)) (##car _%e174921174956%_))) - (_%lp-tl174923174961%_ + (gx#stx-e _%hd176050176083%_)))) + (let ((_%lp-hd176054176091%_ + (let () (declare (not safe)) (##car _%e176053176088%_))) + (_%lp-tl176055176093%_ (let () (declare (not safe)) - (##cdr _%e174921174956%_)))) - (_%loop174920174948%_ - _%lp-tl174923174961%_ - (cons _%lp-hd174922174959%_ _%clause174924174953%_)))) - (let ((_%clause174925174964%_ (reverse _%clause174924174953%_))) - ((lambda (_%L174967%_) + (##cdr _%e176053176088%_)))) + (_%loop176052176080%_ + _%lp-tl176055176093%_ + (cons _%lp-hd176054176091%_ _%clause176056176085%_)))) + (let ((_%clause176057176096%_ (reverse _%clause176056176085%_))) + ((lambda (_%L176099%_) (for-each - (lambda (_%clause174980%_) - (let* ((_%g174982174993%_ - (lambda (_%g174983174990%_) + (lambda (_%clause176112%_) + (let* ((_%g176114176125%_ + (lambda (_%g176115176122%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174983174990%_)))) - (_%g174981175031%_ - (lambda (_%g174983174996%_) + _%g176115176122%_)))) + (_%g176113176163%_ + (lambda (_%g176115176128%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g174983174996%_)) - (let ((_%e174986174998%_ + (gx#stx-pair? _%g176115176128%_)) + (let ((_%e176118176130%_ (let () (declare (not safe)) - (gx#stx-e _%g174983174996%_)))) - (let ((_%hd174987175001%_ + (gx#stx-e _%g176115176128%_)))) + (let ((_%hd176119176133%_ (let () (declare (not safe)) - (##car _%e174986174998%_))) - (_%tl174988175003%_ + (##car _%e176118176130%_))) + (_%tl176120176135%_ (let () (declare (not safe)) - (##cdr _%e174986174998%_)))) - ((lambda (_%L175006%_ _%L175007%_) - (let* ((_%self175019%_ + (##cdr _%e176118176130%_)))) + ((lambda (_%L176138%_ _%L176139%_) + (let* ((_%self176151%_ (list-ref - _%L175007%_ - _%self-index174585%_)) - (_%receiver175024%_ - (let ((_%$e175021%_ + _%L176139%_ + _%self-index175717%_)) + (_%receiver176156%_ + (let ((_%$e176153%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175006%_)))) + _%L176138%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e175021%_ - _%$e175021%_ - _%self175019%_)))) + (if _%$e176153%_ + _%$e176153%_ + _%self176151%_)))) (for-each - (lambda (_%g175026175028%_) + (lambda (_%g176158176160%_) (gxc#apply-collect-object-refs__% '#f - _%receiver175024%_ - _%method-calls172575%_ - _%slot-refs172576%_ - _%g175026175028%_)) - _%L175006%_))) - _%tl174988175003%_ - _%hd174987175001%_))) - (_%g174982174993%_ _%g174983174996%_))))) - (_%g174981175031%_ _%clause174980%_))) - (let ((__tmp176755 - (lambda (_%g175033175036%_ _%g175034175038%_) - (cons _%g175033175036%_ _%g175034175038%_)))) + _%receiver176156%_ + _%method-calls173707%_ + _%slot-refs173708%_ + _%g176158176160%_)) + _%L176138%_))) + _%tl176120176135%_ + _%hd176119176133%_))) + (_%g176114176125%_ _%g176115176128%_))))) + (_%g176113176163%_ _%clause176112%_))) + (let ((__tmp177887 + (lambda (_%g176165176168%_ _%g176166176170%_) + (cons _%g176165176168%_ _%g176166176170%_)))) (declare (not safe)) - (__foldr1 __tmp176755 '() _%L174967%_)))) - _%clause174925174964%_)))))) + (__foldr1 __tmp177887 '() _%L176099%_)))) + _%clause176057176096%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop174920174948%_ - _%target174917174943%_ + (_%loop176052176080%_ + _%target176049176075%_ '())) - (_%g174911174930%_ _%g174912174933%_))))) - (_%g174911174930%_ _%g174912174933%_)))) - (_%g174911174930%_ _%g174912174933%_))))) + (_%g176043176062%_ _%g176044176065%_))))) + (_%g176043176062%_ _%g176044176065%_)))) + (_%g176043176062%_ _%g176044176065%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174910175041%_ - _%L174821%_)) - (if (_%no-specializer?172579%_) - _%stx172483%_ - (let* ((_%specializer-id175050%_ - (let* ((_%id175044%_ + (_%g176042176173%_ + _%L175953%_)) + (if (_%no-specializer?173711%_) + _%stx173615%_ + (let* ((_%specializer-id176182%_ + (let* ((_%id176176%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp176756 + (let ((__tmp177888 (let () (declare (not safe)) - (gx#stx-e _%L172556%_)))) + (gx#stx-e _%L173688%_)))) (declare (not safe)) - (make-symbol__1 __tmp176756 '"::specialize"))) - (_%specializer-id175047%_ - (let ((__tmp176757 + (make-symbol__1 __tmp177888 '"::specialize"))) + (_%specializer-id176179%_ + (let ((__tmp177889 (let () (declare (not safe)) - (gx#stx-source _%stx172483%_)))) + (gx#stx-source _%stx173615%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id175044%_ - __tmp176757)))) + _%id176176%_ + __tmp177889)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id175047%_)) - _%specializer-id175047%_)) - (_%$klass175052%_ - (let ((__tmp176758 + (gx#core-bind-runtime!__0 _%specializer-id176179%_)) + _%specializer-id176179%_)) + (_%$klass176184%_ + (let ((__tmp177890 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp176758))) - (_%$method-table175054%_ - (let ((__tmp176759 + (make-symbol__0 __tmp177890))) + (_%$method-table176186%_ + (let ((__tmp177891 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp176759))) - (_%methods175056%_ + (make-symbol__0 __tmp177891))) + (_%methods176188%_ (let () (declare (not safe)) - (__hash-keys _%method-calls172575%_))) - (_%$methods175060%_ - (map (lambda (_%id175058%_) - (let ((__tmp176760 (gensym _%id175058%_))) + (__hash-keys _%method-calls173707%_))) + (_%$methods176192%_ + (map (lambda (_%id176190%_) + (let ((__tmp177892 (gensym _%id176190%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176760))) - _%methods175056%_)) - (_%_175069%_ + (make-symbol__1 '"__" __tmp177892))) + _%methods176188%_)) + (_%_176201%_ (for-each - (lambda (_%g175061175064%_ _%g175062175066%_) + (lambda (_%g176193176196%_ _%g176194176198%_) (let () (declare (not safe)) (__hash-put! - _%method-calls172575%_ - _%g175061175064%_ - _%g175062175066%_))) - _%methods175056%_ - _%$methods175060%_)) - (_%methods-bind175079%_ - (map (lambda (_%g175071175074%_ _%g175072175076%_) - (_%generate-method-bind172485%_ - _%$klass175052%_ - _%$method-table175054%_ - _%g175071175074%_ - _%g175072175076%_)) - _%methods175056%_ - _%$methods175060%_)) - (_%slots175081%_ + _%method-calls173707%_ + _%g176193176196%_ + _%g176194176198%_))) + _%methods176188%_ + _%$methods176192%_)) + (_%methods-bind176211%_ + (map (lambda (_%g176203176206%_ _%g176204176208%_) + (_%generate-method-bind173617%_ + _%$klass176184%_ + _%$method-table176186%_ + _%g176203176206%_ + _%g176204176208%_)) + _%methods176188%_ + _%$methods176192%_)) + (_%slots176213%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs172576%_))) - (_%$slots175085%_ - (map (lambda (_%id175083%_) - (let ((__tmp176761 (gensym _%id175083%_))) + (__hash-keys _%slot-refs173708%_))) + (_%$slots176217%_ + (map (lambda (_%id176215%_) + (let ((__tmp177893 (gensym _%id176215%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176761))) - _%slots175081%_)) - (_%_175094%_ + (make-symbol__1 '"__" __tmp177893))) + _%slots176213%_)) + (_%_176226%_ (for-each - (lambda (_%g175086175089%_ _%g175087175091%_) + (lambda (_%g176218176221%_ _%g176219176223%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs172576%_ - _%g175086175089%_ - _%g175087175091%_))) - _%slots175081%_ - _%$slots175085%_)) - (_%slots-bind175103%_ - (map (lambda (_%g175095175098%_ _%g175096175100%_) - (_%generate-slot-bind172486%_ - _%$klass175052%_ - _%g175095175098%_ - _%g175096175100%_)) - _%slots175081%_ - _%$slots175085%_)) - (_%specializer-lambda-expr175181%_ - (let* ((_%g175105175119%_ - (lambda (_%g175106175116%_) + _%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%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175106175116%_)))) - (_%g175104175178%_ - (lambda (_%g175106175122%_) + _%g176238176248%_)))) + (_%g176236176310%_ + (lambda (_%g176238176254%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175106175122%_)) - (let ((_%e175109175124%_ + (gx#stx-pair? _%g176238176254%_)) + (let ((_%e176241176256%_ (let () (declare (not safe)) - (gx#stx-e _%g175106175122%_)))) - (let ((_%hd175110175127%_ + (gx#stx-e _%g176238176254%_)))) + (let ((_%hd176242176259%_ (let () (declare (not safe)) - (##car _%e175109175124%_))) - (_%tl175111175129%_ + (##car _%e176241176256%_))) + (_%tl176243176261%_ (let () (declare (not safe)) - (##cdr _%e175109175124%_)))) + (##cdr _%e176241176256%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175111175129%_)) - (let ((_%e175112175132%_ + (gx#stx-pair? _%tl176243176261%_)) + (let ((_%e176244176264%_ (let () (declare (not safe)) (gx#stx-e - _%tl175111175129%_)))) - (let ((_%hd175113175135%_ + _%tl176243176261%_)))) + (let ((_%hd176245176267%_ (let () (declare (not safe)) - (##car _%e175112175132%_))) - (_%tl175114175137%_ + (##car _%e176244176264%_))) + (_%tl176246176269%_ (let () (declare (not safe)) - (##cdr _%e175112175132%_)))) - ((lambda (_%L175140%_ _%L175141%_) - (let* ((_%self175164%_ + (##cdr _%e176244176264%_)))) + ((lambda (_%L176272%_ _%L176273%_) + (let* ((_%self176296%_ (list-ref - _%L175141%_ - _%self-index174585%_)) - (_%receiver175169%_ - (let ((_%$e175166%_ + _%L176273%_ + _%self-index175717%_)) + (_%receiver176301%_ + (let ((_%$e176298%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175140%_)))) - (if _%$e175166%_ _%$e175166%_ _%self175164%_))) - (_%body175175%_ - (map (lambda (_%g175170175172%_) + _%L176272%_)))) + (if _%$e176298%_ _%$e176298%_ _%self176296%_))) + (_%body176307%_ + (map (lambda (_%g176302176304%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175169%_ - _%$klass175052%_ - _%method-calls172575%_ - _%slot-refs172576%_ - _%g175170175172%_)) - _%L175140%_)) - (__tmp176762 (cons '%#lambda (cons _%L175141%_ _%body175175%_)))) + _%receiver176301%_ + _%$klass176184%_ + _%method-calls173707%_ + _%slot-refs173708%_ + _%g176302176304%_)) + _%L176272%_)) + (__tmp177894 (cons '%#lambda (cons _%L176273%_ _%body176307%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176762 - _%L174822%_))) - _%tl175114175137%_ - _%hd175113175135%_))) - (_%g175105175119%_ - _%g175106175122%_)))) - (_%g175105175119%_ _%g175106175122%_))))) - (_%g175104175178%_ _%L174822%_))) - (_%specializer-case-lambda-expr175321%_ - (let* ((_%g175183175202%_ - (lambda (_%g175184175199%_) + __tmp177894 + _%L175954%_))) + _%tl176246176269%_ + _%hd176245176267%_))) + (_%g176237176251%_ + _%g176238176254%_)))) + (_%g176237176251%_ _%g176238176254%_))))) + (_%g176236176310%_ _%L175954%_))) + (_%specializer-case-lambda-expr176453%_ + (let* ((_%g176315176334%_ + (lambda (_%g176316176331%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175184175199%_)))) - (_%g175182175318%_ - (lambda (_%g175184175205%_) + _%g176316176331%_)))) + (_%g176314176450%_ + (lambda (_%g176316176337%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175184175205%_)) - (let ((_%e175186175207%_ + (gx#stx-pair? _%g176316176337%_)) + (let ((_%e176318176339%_ (let () (declare (not safe)) - (gx#stx-e _%g175184175205%_)))) - (let ((_%hd175187175210%_ + (gx#stx-e _%g176316176337%_)))) + (let ((_%hd176319176342%_ (let () (declare (not safe)) - (##car _%e175186175207%_))) - (_%tl175188175212%_ + (##car _%e176318176339%_))) + (_%tl176320176344%_ (let () (declare (not safe)) - (##cdr _%e175186175207%_)))) + (##cdr _%e176318176339%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl175188175212%_)) - (let ((_g176763_ + _%tl176320176344%_)) + (let ((_g177895_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl175188175212%_ + _%tl176320176344%_ '0)))) (begin - (let ((_g176764_ + (let ((_g177896_ (let () (declare (not safe)) - (if (##values? _g176763_) + (if (##values? _g177895_) (##vector-length - _g176763_) + _g177895_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176764_ 2))) + (##fx= _g177896_ 2))) (error "Context expects 2 values" - _g176764_))) - (let ((_%target175189175215%_ + _g177896_))) + (let ((_%target176321176347%_ (let () (declare (not safe)) (##vector-ref - _g176763_ + _g177895_ 0))) - (_%tl175191175217%_ + (_%tl176323176349%_ (let () (declare (not safe)) (##vector-ref - _g176763_ + _g177895_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175191175217%_)) - (letrec ((_%loop175192175220%_ - (lambda (_%hd175190175223%_ + _%tl176323176349%_)) + (letrec ((_%loop176324176352%_ + (lambda (_%hd176322176355%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause175196175225%_) + _%clause176328176357%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175190175223%_)) - (let ((_%e175193175228%_ + (gx#stx-pair? _%hd176322176355%_)) + (let ((_%e176325176360%_ (let () (declare (not safe)) - (gx#stx-e _%hd175190175223%_)))) - (let ((_%lp-hd175194175231%_ + (gx#stx-e _%hd176322176355%_)))) + (let ((_%lp-hd176326176363%_ (let () (declare (not safe)) - (##car _%e175193175228%_))) - (_%lp-tl175195175233%_ + (##car _%e176325176360%_))) + (_%lp-tl176327176365%_ (let () (declare (not safe)) - (##cdr _%e175193175228%_)))) - (_%loop175192175220%_ - _%lp-tl175195175233%_ - (cons _%lp-hd175194175231%_ - _%clause175196175225%_)))) - (let ((_%clause175197175236%_ - (reverse _%clause175196175225%_))) - ((lambda (_%L175239%_) - (let* ((_%clauses175316%_ - (map (lambda (_%clause175253%_) - (let* ((_%g175255175266%_ - (lambda (_%g175256175263%_) + (##cdr _%e176325176360%_)))) + (_%loop176324176352%_ + _%lp-tl176327176365%_ + (cons _%lp-hd176326176363%_ + _%clause176328176357%_)))) + (let ((_%clause176329176368%_ + (reverse _%clause176328176357%_))) + ((lambda (_%L176371%_) + (let* ((_%clauses176448%_ + (map (lambda (_%clause176385%_) + (let* ((_%g176387176398%_ + (lambda (_%g176388176395%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175256175263%_)))) - (_%g175254175306%_ - (lambda (_%g175256175269%_) + _%g176388176395%_)))) + (_%g176386176438%_ + (lambda (_%g176388176401%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175256175269%_)) - (let ((_%e175259175271%_ + _%g176388176401%_)) + (let ((_%e176391176403%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g175256175269%_)))) - (let ((_%hd175260175274%_ + (gx#stx-e _%g176388176401%_)))) + (let ((_%hd176392176406%_ (let () (declare (not safe)) - (##car _%e175259175271%_))) - (_%tl175261175276%_ + (##car _%e176391176403%_))) + (_%tl176393176408%_ (let () (declare (not safe)) - (##cdr _%e175259175271%_)))) - ((lambda (_%L175279%_ _%L175280%_) - (let* ((_%self175292%_ - (list-ref _%L175280%_ _%self-index174585%_)) - (_%receiver175297%_ - (let ((_%$e175294%_ + (##cdr _%e176391176403%_)))) + ((lambda (_%L176411%_ _%L176412%_) + (let* ((_%self176424%_ + (list-ref _%L176412%_ _%self-index175717%_)) + (_%receiver176429%_ + (let ((_%$e176426%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175279%_)))) - (if _%$e175294%_ - _%$e175294%_ - _%self175292%_))) - (_%body175303%_ - (map (lambda (_%g175298175300%_) + _%L176411%_)))) + (if _%$e176426%_ + _%$e176426%_ + _%self176424%_))) + (_%body176435%_ + (map (lambda (_%g176430176432%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175297%_ - _%$klass175052%_ - _%method-calls172575%_ - _%slot-refs172576%_ - _%g175298175300%_)) - _%L175279%_))) - (cons _%L175280%_ _%body175303%_))) - _%tl175261175276%_ - _%hd175260175274%_))) - (_%g175255175266%_ _%g175256175269%_))))) + _%receiver176429%_ + _%$klass176184%_ + _%method-calls173707%_ + _%slot-refs173708%_ + _%g176430176432%_)) + _%L176411%_))) + (cons _%L176412%_ _%body176435%_))) + _%tl176393176408%_ + _%hd176392176406%_))) + (_%g176387176398%_ _%g176388176401%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175254175306%_ - _%clause175253%_))) - (let ((__tmp176765 - (lambda (_%g175308175311%_ - _%g175309175313%_) - (cons _%g175308175311%_ - _%g175309175313%_)))) + (_%g176386176438%_ + _%clause176385%_))) + (let ((__tmp177897 + (lambda (_%g176440176443%_ + _%g176441176445%_) + (cons _%g176440176443%_ + _%g176441176445%_)))) (declare (not safe)) (__foldr1 - __tmp176765 + __tmp177897 '() - _%L175239%_)))) - (__tmp176766 + _%L176371%_)))) + (__tmp177898 (cons '%#case-lambda - _%clauses175316%_))) + _%clauses176448%_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp176766 - _%L174821%_))) - _%clause175197175236%_)))))) + __tmp177898 + _%L175953%_))) + _%clause176329176368%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop175192175220%_ - _%target175189175215%_ + (_%loop176324176352%_ + _%target176321176347%_ '())) - (_%g175183175202%_ - _%g175184175205%_))))) - (_%g175183175202%_ - _%g175184175205%_)))) - (_%g175183175202%_ _%g175184175205%_))))) - (_%g175182175318%_ _%L174821%_))) - (_%specializer-impl175323%_ - (let ((__tmp176767 + (_%g176315176334%_ + _%g176316176337%_))))) + (_%g176315176334%_ + _%g176316176337%_)))) + (_%g176315176334%_ _%g176316176337%_))))) + (_%g176314176450%_ _%L175953%_))) + (_%specializer-impl176455%_ + (let ((__tmp177899 (cons '%#let-values - (cons (cons (cons (cons _%L174285%_ '()) + (cons (cons (cons (cons _%L175417%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L174284%_ + (cons (cons (cons (cons _%L175416%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp176768 + (cons (let ((__tmp177900 (cons '%#let-values - (cons (cons (cons (cons _%L174823%_ + (cons (cons (cons (cons _%L175955%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-lambda-expr175181%_ + (cons _%specializer-lambda-expr176313%_ '())) '()) - (cons _%specializer-case-lambda-expr175321%_ '()))))) + (cons _%specializer-case-lambda-expr176453%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176768 - _%stx172483%_)) + __tmp177900 + _%stx173615%_)) '())) '()) - (cons _%L174282%_ '()))) + (cons _%L175414%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L174281%_ '()))))) + (cons _%L175413%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176767 _%stx172483%_))) - (_%specializer-impl175325%_ - (_%generate-specializer-impl172487%_ - _%$klass175052%_ - _%$method-table175054%_ - _%methods-bind175079%_ - _%slots-bind175103%_ - _%specializer-impl175323%_))) + (gxc#xform-wrap-source __tmp177899 _%stx173615%_))) + (_%specializer-impl176457%_ + (_%generate-specializer-impl173619%_ + _%$klass176184%_ + _%$method-table176186%_ + _%methods-bind176211%_ + _%slots-bind176235%_ + _%specializer-impl176455%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp176770 + (let ((__tmp177902 (let () (declare (not safe)) (gx#stx-e - _%L172556%_))) - (__tmp176769 + _%L173688%_))) + (__tmp177901 (let () (declare (not safe)) (gx#stx-e - _%specializer-id175050%_)))) + _%specializer-id176182%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp176770 + __tmp177902 '" => " - __tmp176769)) - (_%generate-specializer-def172488%_ - _%L172556%_ - _%specializer-id175050%_ - _%specializer-impl175325%_)))) - _%hd174754174816%_ - _%hd174751174808%_ - _%hd174748174800%_) - (_%g174730174760%_ - _%g174731174763%_)))) - (_%g174730174760%_ _%g174731174763%_)) - (_%g174730174760%_ _%g174731174763%_)) - (_%g174730174760%_ _%g174731174763%_)))) - (_%g174730174760%_ _%g174731174763%_)) - (_%g174730174760%_ _%g174731174763%_)))) + __tmp177901)) + (_%generate-specializer-def173620%_ + _%L173688%_ + _%specializer-id176182%_ + _%specializer-impl176457%_)))) + _%hd175886175948%_ + _%hd175883175940%_ + _%hd175880175932%_) + (_%g175862175892%_ + _%g175863175895%_)))) + (_%g175862175892%_ _%g175863175895%_)) + (_%g175862175892%_ _%g175863175895%_)) + (_%g175862175892%_ _%g175863175895%_)))) + (_%g175862175892%_ _%g175863175895%_)) + (_%g175862175892%_ _%g175863175895%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174730174760%_ - _%g174731174763%_)))) - (_%g174730174760%_ _%g174731174763%_)))) - (_%g174730174760%_ _%g174731174763%_)))) - (_%g174730174760%_ _%g174731174763%_)))) - (_%g174730174760%_ _%g174731174763%_))))) + (_%g175862175892%_ + _%g175863175895%_)))) + (_%g175862175892%_ _%g175863175895%_)))) + (_%g175862175892%_ _%g175863175895%_)))) + (_%g175862175892%_ _%g175863175895%_)))) + (_%g175862175892%_ _%g175863175895%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174729175328%_ _%L174283%_)) - _%stx172483%_)))) - _%hd174381174504%_ - _%kw-ref174379174525%_ - _%hd174369174491%_ - _%hd174360174467%_ - _%hd174351174443%_) - (_%g174325174387%_ _%g174326174390%_))))))) + (_%g175861176460%_ _%L175415%_)) + _%stx173615%_)))) + _%hd175513175636%_ + _%kw-ref175511175657%_ + _%hd175501175623%_ + _%hd175492175599%_ + _%hd175483175575%_) + (_%g175457175519%_ _%g175458175522%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop174374174509%_ - _%target174371174496%_ + (_%loop175506175641%_ + _%target175503175628%_ '())) - (_%g174325174387%_ - _%g174326174390%_)))) - (_%g174325174387%_ _%g174326174390%_))))) - (_%g174325174387%_ _%g174326174390%_)) - (_%g174325174387%_ _%g174326174390%_)) - (_%g174325174387%_ _%g174326174390%_)))) + (_%g175457175519%_ + _%g175458175522%_)))) + (_%g175457175519%_ _%g175458175522%_))))) + (_%g175457175519%_ _%g175458175522%_)) + (_%g175457175519%_ _%g175458175522%_)) + (_%g175457175519%_ _%g175458175522%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174325174387%_ - _%g174326174390%_)) - (_%g174325174387%_ - _%g174326174390%_)) - (_%g174325174387%_ - _%g174326174390%_)))) - (_%g174325174387%_ _%g174326174390%_)))) - (_%g174325174387%_ _%g174326174390%_)) - (_%g174325174387%_ _%g174326174390%_)))) - (_%g174325174387%_ _%g174326174390%_)) + (_%g175457175519%_ + _%g175458175522%_)) + (_%g175457175519%_ + _%g175458175522%_)) + (_%g175457175519%_ + _%g175458175522%_)))) + (_%g175457175519%_ _%g175458175522%_)))) + (_%g175457175519%_ _%g175458175522%_)) + (_%g175457175519%_ _%g175458175522%_)))) + (_%g175457175519%_ _%g175458175522%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174325174387%_ - _%g174326174390%_)) - (_%g174325174387%_ - _%g174326174390%_)))) - (_%g174325174387%_ - _%g174326174390%_)))) - (_%g174325174387%_ _%g174326174390%_)) - (_%g174325174387%_ _%g174326174390%_)))) - (_%g174325174387%_ _%g174326174390%_)) - (_%g174325174387%_ _%g174326174390%_)) + (_%g175457175519%_ + _%g175458175522%_)) + (_%g175457175519%_ + _%g175458175522%_)))) + (_%g175457175519%_ + _%g175458175522%_)))) + (_%g175457175519%_ _%g175458175522%_)) + (_%g175457175519%_ _%g175458175522%_)))) + (_%g175457175519%_ _%g175458175522%_)) + (_%g175457175519%_ _%g175458175522%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174325174387%_ - _%g174326174390%_)))) - (_%g174325174387%_ - _%g174326174390%_)))) - (_%g174325174387%_ _%g174326174390%_)) - (_%g174325174387%_ _%g174326174390%_)) - (_%g174325174387%_ _%g174326174390%_)))) - (_%g174325174387%_ _%g174326174390%_)))) + (_%g175457175519%_ + _%g175458175522%_)))) + (_%g175457175519%_ + _%g175458175522%_)))) + (_%g175457175519%_ _%g175458175522%_)) + (_%g175457175519%_ _%g175458175522%_)) + (_%g175457175519%_ _%g175458175522%_)))) + (_%g175457175519%_ _%g175458175522%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174325174387%_ - _%g174326174390%_)))) - (_%g174325174387%_ - _%g174326174390%_)) - (_%g174325174387%_ _%g174326174390%_)) - (_%g174325174387%_ _%g174326174390%_)))) - (_%g174325174387%_ _%g174326174390%_))))) - (_%g174324175332%_ _%L174282%_))) + (_%g175457175519%_ + _%g175458175522%_)))) + (_%g175457175519%_ + _%g175458175522%_)) + (_%g175457175519%_ _%g175458175522%_)) + (_%g175457175519%_ _%g175458175522%_)))) + (_%g175457175519%_ _%g175458175522%_))))) + (_%g175456176464%_ _%L175414%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd174158174276%_ - _%hd174155174268%_ - _%hd174152174260%_ - _%hd174149174252%_ - _%hd174131174204%_) - (_%g174111174164%_ - _%g174112174167%_)))) - (_%g174111174164%_ - _%g174112174167%_)) - (_%g174111174164%_ _%g174112174167%_)) - (_%g174111174164%_ _%g174112174167%_)) - (_%g174111174164%_ _%g174112174167%_)))) - (_%g174111174164%_ _%g174112174167%_)) - (_%g174111174164%_ _%g174112174167%_)) - (_%g174111174164%_ _%g174112174167%_)))) + _%hd175290175408%_ + _%hd175287175400%_ + _%hd175284175392%_ + _%hd175281175384%_ + _%hd175263175336%_) + (_%g175243175296%_ + _%g175244175299%_)))) + (_%g175243175296%_ + _%g175244175299%_)) + (_%g175243175296%_ _%g175244175299%_)) + (_%g175243175296%_ _%g175244175299%_)) + (_%g175243175296%_ _%g175244175299%_)))) + (_%g175243175296%_ _%g175244175299%_)) + (_%g175243175296%_ _%g175244175299%_)) + (_%g175243175296%_ _%g175244175299%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174111174164%_ - _%g174112174167%_)) - (_%g174111174164%_ - _%g174112174167%_)))) - (_%g174111174164%_ _%g174112174167%_)))) - (_%g174111174164%_ _%g174112174167%_)))) - (_%g174111174164%_ _%g174112174167%_)))) + (_%g175243175296%_ + _%g175244175299%_)) + (_%g175243175296%_ + _%g175244175299%_)))) + (_%g175243175296%_ _%g175244175299%_)))) + (_%g175243175296%_ _%g175244175299%_)))) + (_%g175243175296%_ _%g175244175299%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174111174164%_ - _%g174112174167%_)) - (_%g174111174164%_ - _%g174112174167%_)) - (_%g174111174164%_ - _%g174112174167%_)))) - (_%g174111174164%_ _%g174112174167%_)))) - (_%g174111174164%_ _%g174112174167%_)) - (_%g174111174164%_ _%g174112174167%_)))) - (_%g174111174164%_ _%g174112174167%_)))) + (_%g175243175296%_ + _%g175244175299%_)) + (_%g175243175296%_ + _%g175244175299%_)) + (_%g175243175296%_ + _%g175244175299%_)))) + (_%g175243175296%_ _%g175244175299%_)))) + (_%g175243175296%_ _%g175244175299%_)) + (_%g175243175296%_ _%g175244175299%_)))) + (_%g175243175296%_ _%g175244175299%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174111174164%_ - _%g174112174167%_)))) - (_%g174111174164%_ _%g174112174167%_)))) - (_%g174111174164%_ _%g174112174167%_)) - (_%g174111174164%_ _%g174112174167%_)) - (_%g174111174164%_ _%g174112174167%_)))) - (_%g174111174164%_ _%g174112174167%_))))) + (_%g175243175296%_ + _%g175244175299%_)))) + (_%g175243175296%_ _%g175244175299%_)))) + (_%g175243175296%_ _%g175244175299%_)) + (_%g175243175296%_ _%g175244175299%_)) + (_%g175243175296%_ _%g175244175299%_)))) + (_%g175243175296%_ _%g175244175299%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174110175335%_ _%L172555%_)) - _%stx172483%_)))))))) - (_%__kont175569175570%_ (lambda () _%stx172483%_))) - (let ((_%__match175598175599%_ - (lambda (_%e172495172523%_ - _%hd172496172526%_ - _%tl172497172528%_ - _%e172498172531%_ - _%hd172499172534%_ - _%tl172500172536%_ - _%e172501172539%_ - _%hd172502172542%_ - _%tl172503172544%_ - _%e172504172547%_ - _%hd172505172550%_ - _%tl172506172552%_) - (let ((_%L172555%_ _%hd172505172550%_) - (_%L172556%_ _%hd172502172542%_)) - (if (let ((__tmp176771 + (_%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 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172556%_)))) + (gxc#identifier-symbol _%L173688%_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp176771)) - (_%__kont175567175568%_ _%L172555%_ _%L172556%_) - (_%__kont175569175570%_)))))) + (gxc#optimizer-top-level-method? __tmp177903)) + (_%__kont176699176700%_ _%L173687%_ _%L173688%_) + (_%__kont176701176702%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx175565175566%_)) - (let ((_%e172495172523%_ + (gx#stx-pair? _%__stx176697176698%_)) + (let ((_%e173627173655%_ (let () (declare (not safe)) - (gx#stx-e _%__stx175565175566%_)))) - (let ((_%tl172497172528%_ + (gx#stx-e _%__stx176697176698%_)))) + (let ((_%tl173629173660%_ (let () (declare (not safe)) - (##cdr _%e172495172523%_))) - (_%hd172496172526%_ + (##cdr _%e173627173655%_))) + (_%hd173628173658%_ (let () (declare (not safe)) - (##car _%e172495172523%_)))) + (##car _%e173627173655%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172497172528%_)) - (let ((_%e172498172531%_ + (gx#stx-pair? _%tl173629173660%_)) + (let ((_%e173630173663%_ (let () (declare (not safe)) - (gx#stx-e _%tl172497172528%_)))) - (let ((_%tl172500172536%_ + (gx#stx-e _%tl173629173660%_)))) + (let ((_%tl173632173668%_ (let () (declare (not safe)) - (##cdr _%e172498172531%_))) - (_%hd172499172534%_ + (##cdr _%e173630173663%_))) + (_%hd173631173666%_ (let () (declare (not safe)) - (##car _%e172498172531%_)))) + (##car _%e173630173663%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172499172534%_)) - (let ((_%e172501172539%_ + (gx#stx-pair? _%hd173631173666%_)) + (let ((_%e173633173671%_ (let () (declare (not safe)) - (gx#stx-e _%hd172499172534%_)))) - (let ((_%tl172503172544%_ + (gx#stx-e _%hd173631173666%_)))) + (let ((_%tl173635173676%_ (let () (declare (not safe)) - (##cdr _%e172501172539%_))) - (_%hd172502172542%_ + (##cdr _%e173633173671%_))) + (_%hd173634173674%_ (let () (declare (not safe)) - (##car _%e172501172539%_)))) + (##car _%e173633173671%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172503172544%_)) + _%tl173635173676%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172500172536%_)) - (let ((_%e172504172547%_ + _%tl173632173668%_)) + (let ((_%e173636173679%_ (let () (declare (not safe)) (gx#stx-e - _%tl172500172536%_)))) - (let ((_%tl172506172552%_ + _%tl173632173668%_)))) + (let ((_%tl173638173684%_ (let () (declare (not safe)) - (##cdr _%e172504172547%_))) - (_%hd172505172550%_ + (##cdr _%e173636173679%_))) + (_%hd173637173682%_ (let () (declare (not safe)) - (##car _%e172504172547%_)))) + (##car _%e173636173679%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172506172552%_)) - (_%__match175598175599%_ - _%e172495172523%_ - _%hd172496172526%_ - _%tl172497172528%_ - _%e172498172531%_ - _%hd172499172534%_ - _%tl172500172536%_ - _%e172501172539%_ - _%hd172502172542%_ - _%tl172503172544%_ - _%e172504172547%_ - _%hd172505172550%_ - _%tl172506172552%_) - (_%__kont175569175570%_)))) - (_%__kont175569175570%_)) - (_%__kont175569175570%_)))) - (_%__kont175569175570%_)))) - (_%__kont175569175570%_)))) - (_%__kont175569175570%_)))))))) + _%tl173638173684%_)) + (_%__match176730176731%_ + _%e173627173655%_ + _%hd173628173658%_ + _%tl173629173660%_ + _%e173630173663%_ + _%hd173631173666%_ + _%tl173632173668%_ + _%e173633173671%_ + _%hd173634173674%_ + _%tl173635173676%_ + _%e173636173679%_ + _%hd173637173682%_ + _%tl173638173684%_) + (_%__kont176701176702%_)))) + (_%__kont176701176702%_)) + (_%__kont176701176702%_)))) + (_%__kont176701176702%_)))) + (_%__kont176701176702%_)))) + (_%__kont176701176702%_)))))))) (define gxc#extract-receiver-begin-annotation% - (lambda (_%self172335%_ _%stx172336%_) - (let* ((_%__stx175601175602%_ _%stx172336%_) - (_%g172339172372%_ + (lambda (_%self173467%_ _%stx173468%_) + (let* ((_%__stx176733176734%_ _%stx173468%_) + (_%g173471173504%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175601175602%_))))) - (let ((_%__kont175603175604%_ (lambda (_%L172462%_) _%L172462%_)) - (_%__kont175605175606%_ - (lambda (_%L172401%_ _%L172402%_) + _%__stx176733176734%_))))) + (let ((_%__kont176735176736%_ (lambda (_%L173594%_) _%L173594%_)) + (_%__kont176737176738%_ + (lambda (_%L173533%_ _%L173534%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172335%_ _%L172401%_))))) + (gxc#compile-e__1 _%self173467%_ _%L173533%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx175601175602%_)) - (let ((_%e172342172422%_ + (gx#stx-pair? _%__stx176733176734%_)) + (let ((_%e173474173554%_ (let () (declare (not safe)) - (gx#stx-e _%__stx175601175602%_)))) - (let ((_%tl172344172427%_ + (gx#stx-e _%__stx176733176734%_)))) + (let ((_%tl173476173559%_ (let () (declare (not safe)) - (##cdr _%e172342172422%_))) - (_%hd172343172425%_ + (##cdr _%e173474173554%_))) + (_%hd173475173557%_ (let () (declare (not safe)) - (##car _%e172342172422%_)))) + (##car _%e173474173554%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172344172427%_)) - (let ((_%e172345172430%_ + (gx#stx-pair? _%tl173476173559%_)) + (let ((_%e173477173562%_ (let () (declare (not safe)) - (gx#stx-e _%tl172344172427%_)))) - (let ((_%tl172347172435%_ + (gx#stx-e _%tl173476173559%_)))) + (let ((_%tl173479173567%_ (let () (declare (not safe)) - (##cdr _%e172345172430%_))) - (_%hd172346172433%_ + (##cdr _%e173477173562%_))) + (_%hd173478173565%_ (let () (declare (not safe)) - (##car _%e172345172430%_)))) + (##car _%e173477173562%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172346172433%_)) - (let ((_%e172348172438%_ + (gx#stx-pair? _%hd173478173565%_)) + (let ((_%e173480173570%_ (let () (declare (not safe)) - (gx#stx-e _%hd172346172433%_)))) - (let ((_%tl172350172443%_ + (gx#stx-e _%hd173478173565%_)))) + (let ((_%tl173482173575%_ (let () (declare (not safe)) - (##cdr _%e172348172438%_))) - (_%hd172349172441%_ + (##cdr _%e173480173570%_))) + (_%hd173481173573%_ (let () (declare (not safe)) - (##car _%e172348172438%_)))) + (##car _%e173480173570%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd172349172441%_)) + (gx#identifier? _%hd173481173573%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@receiver - _%hd172349172441%_)) + _%hd173481173573%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172350172443%_)) - (let ((_%e172351172446%_ + _%tl173482173575%_)) + (let ((_%e173483173578%_ (let () (declare (not safe)) (gx#stx-e - _%tl172350172443%_)))) - (let ((_%tl172353172451%_ + _%tl173482173575%_)))) + (let ((_%tl173485173583%_ (let () (declare (not safe)) - (##cdr _%e172351172446%_))) - (_%hd172352172449%_ + (##cdr _%e173483173578%_))) + (_%hd173484173581%_ (let () (declare (not safe)) - (##car _%e172351172446%_)))) + (##car _%e173483173578%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172353172451%_)) + _%tl173485173583%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172347172435%_)) - (let ((_%e172354172454%_ + _%tl173479173567%_)) + (let ((_%e173486173586%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl172347172435%_)))) - (let ((_%tl172356172459%_ + (gx#stx-e _%tl173479173567%_)))) + (let ((_%tl173488173591%_ (let () (declare (not safe)) - (##cdr _%e172354172454%_))) - (_%hd172355172457%_ + (##cdr _%e173486173586%_))) + (_%hd173487173589%_ (let () (declare (not safe)) - (##car _%e172354172454%_)))) + (##car _%e173486173586%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172356172459%_)) - (_%__kont175603175604%_ _%hd172352172449%_) + (gx#stx-null? _%tl173488173591%_)) + (_%__kont176735176736%_ _%hd173484173581%_) (let () (declare (not safe)) - (_%g172339172372%_))))) - (let () (declare (not safe)) (_%g172339172372%_))) + (_%g173471173504%_))))) + (let () (declare (not safe)) (_%g173471173504%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172347172435%_)) - (let ((_%e172365172393%_ + (gx#stx-pair? _%tl173479173567%_)) + (let ((_%e173497173525%_ (let () (declare (not safe)) - (gx#stx-e _%tl172347172435%_)))) - (let ((_%tl172367172398%_ + (gx#stx-e _%tl173479173567%_)))) + (let ((_%tl173499173530%_ (let () (declare (not safe)) - (##cdr _%e172365172393%_))) - (_%hd172366172396%_ + (##cdr _%e173497173525%_))) + (_%hd173498173528%_ (let () (declare (not safe)) - (##car _%e172365172393%_)))) + (##car _%e173497173525%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172367172398%_)) - (_%__kont175605175606%_ - _%hd172366172396%_ - _%hd172346172433%_) + (gx#stx-null? _%tl173499173530%_)) + (_%__kont176737176738%_ + _%hd173498173528%_ + _%hd173478173565%_) (let () (declare (not safe)) - (_%g172339172372%_))))) - (let () (declare (not safe)) (_%g172339172372%_)))))) + (_%g173471173504%_))))) + (let () (declare (not safe)) (_%g173471173504%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172347172435%_)) - (let ((_%e172365172393%_ + _%tl173479173567%_)) + (let ((_%e173497173525%_ (let () (declare (not safe)) (gx#stx-e - _%tl172347172435%_)))) - (let ((_%tl172367172398%_ + _%tl173479173567%_)))) + (let ((_%tl173499173530%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e172365172393%_))) - (_%hd172366172396%_ - (let () (declare (not safe)) (##car _%e172365172393%_)))) + (##cdr _%e173497173525%_))) + (_%hd173498173528%_ + (let () (declare (not safe)) (##car _%e173497173525%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172367172398%_)) - (_%__kont175605175606%_ - _%hd172366172396%_ - _%hd172346172433%_) - (let () (declare (not safe)) (_%g172339172372%_))))) + (gx#stx-null? _%tl173499173530%_)) + (_%__kont176737176738%_ + _%hd173498173528%_ + _%hd173478173565%_) + (let () (declare (not safe)) (_%g173471173504%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g172339172372%_)))) + (_%g173471173504%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172347172435%_)) - (let ((_%e172365172393%_ + _%tl173479173567%_)) + (let ((_%e173497173525%_ (let () (declare (not safe)) (gx#stx-e - _%tl172347172435%_)))) - (let ((_%tl172367172398%_ + _%tl173479173567%_)))) + (let ((_%tl173499173530%_ (let () (declare (not safe)) - (##cdr _%e172365172393%_))) - (_%hd172366172396%_ + (##cdr _%e173497173525%_))) + (_%hd173498173528%_ (let () (declare (not safe)) - (##car _%e172365172393%_)))) + (##car _%e173497173525%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172367172398%_)) - (_%__kont175605175606%_ - _%hd172366172396%_ - _%hd172346172433%_) + _%tl173499173530%_)) + (_%__kont176737176738%_ + _%hd173498173528%_ + _%hd173478173565%_) (let () (declare (not safe)) - (_%g172339172372%_))))) + (_%g173471173504%_))))) (let () (declare (not safe)) - (_%g172339172372%_)))) + (_%g173471173504%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172347172435%_)) - (let ((_%e172365172393%_ + _%tl173479173567%_)) + (let ((_%e173497173525%_ (let () (declare (not safe)) (gx#stx-e - _%tl172347172435%_)))) - (let ((_%tl172367172398%_ + _%tl173479173567%_)))) + (let ((_%tl173499173530%_ (let () (declare (not safe)) - (##cdr _%e172365172393%_))) - (_%hd172366172396%_ + (##cdr _%e173497173525%_))) + (_%hd173498173528%_ (let () (declare (not safe)) - (##car _%e172365172393%_)))) + (##car _%e173497173525%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172367172398%_)) - (_%__kont175605175606%_ - _%hd172366172396%_ - _%hd172346172433%_) + _%tl173499173530%_)) + (_%__kont176737176738%_ + _%hd173498173528%_ + _%hd173478173565%_) (let () (declare (not safe)) - (_%g172339172372%_))))) + (_%g173471173504%_))))) (let () (declare (not safe)) - (_%g172339172372%_)))))) + (_%g173471173504%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172347172435%_)) - (let ((_%e172365172393%_ + (gx#stx-pair? _%tl173479173567%_)) + (let ((_%e173497173525%_ (let () (declare (not safe)) - (gx#stx-e _%tl172347172435%_)))) - (let ((_%tl172367172398%_ + (gx#stx-e _%tl173479173567%_)))) + (let ((_%tl173499173530%_ (let () (declare (not safe)) - (##cdr _%e172365172393%_))) - (_%hd172366172396%_ + (##cdr _%e173497173525%_))) + (_%hd173498173528%_ (let () (declare (not safe)) - (##car _%e172365172393%_)))) + (##car _%e173497173525%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172367172398%_)) - (_%__kont175605175606%_ - _%hd172366172396%_ - _%hd172346172433%_) + _%tl173499173530%_)) + (_%__kont176737176738%_ + _%hd173498173528%_ + _%hd173478173565%_) (let () (declare (not safe)) - (_%g172339172372%_))))) + (_%g173471173504%_))))) (let () (declare (not safe)) - (_%g172339172372%_)))))) - (let () (declare (not safe)) (_%g172339172372%_))))) - (let () (declare (not safe)) (_%g172339172372%_))))))) + (_%g173471173504%_)))))) + (let () (declare (not safe)) (_%g173471173504%_))))) + (let () (declare (not safe)) (_%g173471173504%_))))))) (define gxc#extract-receiver-if% - (lambda (_%self172251%_ _%stx172252%_) - (let* ((_%g172254172275%_ - (lambda (_%g172255172272%_) + (lambda (_%self173383%_ _%stx173384%_) + (let* ((_%g173386173407%_ + (lambda (_%g173387173404%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g172255172272%_)))) - (_%g172253172332%_ - (lambda (_%g172255172278%_) + _%g173387173404%_)))) + (_%g173385173464%_ + (lambda (_%g173387173410%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g172255172278%_)) - (let ((_%e172259172280%_ + (gx#stx-pair? _%g173387173410%_)) + (let ((_%e173391173412%_ (let () (declare (not safe)) - (gx#stx-e _%g172255172278%_)))) - (let ((_%hd172260172283%_ + (gx#stx-e _%g173387173410%_)))) + (let ((_%hd173392173415%_ (let () (declare (not safe)) - (##car _%e172259172280%_))) - (_%tl172261172285%_ + (##car _%e173391173412%_))) + (_%tl173393173417%_ (let () (declare (not safe)) - (##cdr _%e172259172280%_)))) + (##cdr _%e173391173412%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172261172285%_)) - (let ((_%e172262172288%_ + (gx#stx-pair? _%tl173393173417%_)) + (let ((_%e173394173420%_ (let () (declare (not safe)) - (gx#stx-e _%tl172261172285%_)))) - (let ((_%hd172263172291%_ + (gx#stx-e _%tl173393173417%_)))) + (let ((_%hd173395173423%_ (let () (declare (not safe)) - (##car _%e172262172288%_))) - (_%tl172264172293%_ + (##car _%e173394173420%_))) + (_%tl173396173425%_ (let () (declare (not safe)) - (##cdr _%e172262172288%_)))) + (##cdr _%e173394173420%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172264172293%_)) - (let ((_%e172265172296%_ + (gx#stx-pair? _%tl173396173425%_)) + (let ((_%e173397173428%_ (let () (declare (not safe)) - (gx#stx-e _%tl172264172293%_)))) - (let ((_%hd172266172299%_ + (gx#stx-e _%tl173396173425%_)))) + (let ((_%hd173398173431%_ (let () (declare (not safe)) - (##car _%e172265172296%_))) - (_%tl172267172301%_ + (##car _%e173397173428%_))) + (_%tl173399173433%_ (let () (declare (not safe)) - (##cdr _%e172265172296%_)))) + (##cdr _%e173397173428%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172267172301%_)) - (let ((_%e172268172304%_ + _%tl173399173433%_)) + (let ((_%e173400173436%_ (let () (declare (not safe)) (gx#stx-e - _%tl172267172301%_)))) - (let ((_%hd172269172307%_ + _%tl173399173433%_)))) + (let ((_%hd173401173439%_ (let () (declare (not safe)) - (##car _%e172268172304%_))) - (_%tl172270172309%_ + (##car _%e173400173436%_))) + (_%tl173402173441%_ (let () (declare (not safe)) - (##cdr _%e172268172304%_)))) + (##cdr _%e173400173436%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172270172309%_)) - ((lambda (_%L172312%_ - _%L172313%_ - _%L172314%_) + _%tl173402173441%_)) + ((lambda (_%L173444%_ + _%L173445%_ + _%L173446%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self172251%_ - _%L172313%_))) - _%hd172269172307%_ - _%hd172266172299%_ - _%hd172263172291%_) - (_%g172254172275%_ - _%g172255172278%_)))) - (_%g172254172275%_ - _%g172255172278%_)))) - (_%g172254172275%_ _%g172255172278%_)))) - (_%g172254172275%_ _%g172255172278%_)))) - (_%g172254172275%_ _%g172255172278%_))))) - (_%g172253172332%_ _%stx172252%_)))) + _%self173383%_ + _%L173445%_))) + _%hd173401173439%_ + _%hd173398173431%_ + _%hd173395173423%_) + (_%g173386173407%_ + _%g173387173410%_)))) + (_%g173386173407%_ + _%g173387173410%_)))) + (_%g173386173407%_ _%g173387173410%_)))) + (_%g173386173407%_ _%g173387173410%_)))) + (_%g173386173407%_ _%g173387173410%_))))) + (_%g173385173464%_ _%stx173384%_)))) (define gxc#collect-object-refs-call% - (lambda (_%self171212%_ _%stx171213%_) - (let* ((_%__stx175667175668%_ _%stx171213%_) - (_%g171221171443%_ + (lambda (_%self172344%_ _%stx172345%_) + (let* ((_%__stx176799176800%_ _%stx172345%_) + (_%g172353172575%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175667175668%_))))) - (let ((_%__kont175669175670%_ - (lambda (_%L172200%_ _%L172201%_ _%L172202%_ _%L172203%_) - (let ((__tmp176773 + _%__stx176799176800%_))))) + (let ((_%__kont176801176802%_ + (lambda (_%L173332%_ _%L173333%_ _%L173334%_ _%L173335%_) + (let ((__tmp177905 (let () (declare (not safe)) - (slot-ref__0 _%self171212%_ 'methods))) - (__tmp176772 + (slot-ref__0 _%self172344%_ 'methods))) + (__tmp177904 (let () (declare (not safe)) - (gx#stx-e _%L172201%_)))) + (gx#stx-e _%L173333%_)))) (declare (not safe)) - (hash-put! __tmp176773 __tmp176772 '#t)) + (hash-put! __tmp177905 __tmp177904 '#t)) (for-each - (lambda (_%g172236172238%_) + (lambda (_%g173368173370%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self171212%_ _%g172236172238%_))) - (let ((__tmp176774 - (lambda (_%g172240172243%_ _%g172241172245%_) - (cons _%g172240172243%_ _%g172241172245%_)))) + (gxc#compile-e__1 _%self172344%_ _%g173368173370%_))) + (let ((__tmp177906 + (lambda (_%g173372173375%_ _%g173373173377%_) + (cons _%g173372173375%_ _%g173373173377%_)))) (declare (not safe)) - (__foldr1 __tmp176774 '() _%L172200%_))))) - (_%__kont175673175674%_ - (lambda (_%L172035%_ - _%L172036%_ - _%L172037%_ - _%L172038%_ - _%L172039%_) - (let ((__tmp176776 + (__foldr1 __tmp177906 '() _%L173332%_))))) + (_%__kont176805176806%_ + (lambda (_%L173167%_ + _%L173168%_ + _%L173169%_ + _%L173170%_ + _%L173171%_) + (let ((__tmp177908 (let () (declare (not safe)) - (slot-ref__0 _%self171212%_ 'methods))) - (__tmp176775 + (slot-ref__0 _%self172344%_ 'methods))) + (__tmp177907 (let () (declare (not safe)) - (gx#stx-e _%L172036%_)))) + (gx#stx-e _%L173168%_)))) (declare (not safe)) - (hash-put! __tmp176776 __tmp176775 '#t)) + (hash-put! __tmp177908 __tmp177907 '#t)) (for-each - (lambda (_%g172079172081%_) + (lambda (_%g173211173213%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self171212%_ _%g172079172081%_))) - (let ((__tmp176777 - (lambda (_%g172083172086%_ _%g172084172088%_) - (cons _%g172083172086%_ _%g172084172088%_)))) + (gxc#compile-e__1 _%self172344%_ _%g173211173213%_))) + (let ((__tmp177909 + (lambda (_%g173215173218%_ _%g173216173220%_) + (cons _%g173215173218%_ _%g173216173220%_)))) (declare (not safe)) - (__foldr1 __tmp176777 '() _%L172035%_))))) - (_%__kont175677175678%_ - (lambda (_%L171868%_ _%L171869%_ _%L171870%_) - (let ((__tmp176779 + (__foldr1 __tmp177909 '() _%L173167%_))))) + (_%__kont176809176810%_ + (lambda (_%L173000%_ _%L173001%_ _%L173002%_) + (let ((__tmp177911 (let () (declare (not safe)) - (slot-ref__0 _%self171212%_ 'slots))) - (__tmp176778 + (slot-ref__0 _%self172344%_ 'slots))) + (__tmp177910 (let () (declare (not safe)) - (gx#stx-e _%L171868%_)))) + (gx#stx-e _%L173000%_)))) (declare (not safe)) - (hash-put! __tmp176779 __tmp176778 '#t)))) - (_%__kont175679175680%_ - (lambda (_%L171745%_ _%L171746%_ _%L171747%_ _%L171748%_) - (let ((__tmp176781 + (hash-put! __tmp177911 __tmp177910 '#t)))) + (_%__kont176811176812%_ + (lambda (_%L172877%_ _%L172878%_ _%L172879%_ _%L172880%_) + (let ((__tmp177913 (let () (declare (not safe)) - (slot-ref__0 _%self171212%_ 'slots))) - (__tmp176780 + (slot-ref__0 _%self172344%_ 'slots))) + (__tmp177912 (let () (declare (not safe)) - (gx#stx-e _%L171746%_)))) + (gx#stx-e _%L172878%_)))) (declare (not safe)) - (hash-put! __tmp176781 __tmp176780 '#t)) + (hash-put! __tmp177913 __tmp177912 '#t)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self171212%_ _%L171745%_)))) - (_%__kont175681175682%_ - (lambda (_%L171619%_ _%L171620%_) - (let* ((_%accessor171642%_ - (let ((__tmp176782 + (gxc#compile-e__1 _%self172344%_ _%L172877%_)))) + (_%__kont176813176814%_ + (lambda (_%L172751%_ _%L172752%_) + (let* ((_%accessor172774%_ + (let ((__tmp177914 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171620%_)))) + (gxc#identifier-symbol _%L172752%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp176782))) - (_%klass171644%_ - (let ((__tmp176783 + (gxc#optimizer-resolve-type __tmp177914))) + (_%klass172776%_ + (let ((__tmp177915 (##structure-ref - _%accessor171642%_ + _%accessor172774%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx171213%_ - __tmp176783))) - (_%slot171646%_ + _%stx172345%_ + __tmp177915))) + (_%slot172778%_ (##structure-ref - _%accessor171642%_ + _%accessor172774%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor171642%_ + _%accessor172774%_ '4 gxc#!accessor::t '#f) @@ -4837,56 +4837,56 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass171644%_ - _%slot171646%_)) + _%klass172776%_ + _%slot172778%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass171644%_ + _%klass172776%_ '8 '#f '#f)))) '#!void - (let ((__tmp176785 + (let ((__tmp177917 (let () (declare (not safe)) - (slot-ref__0 _%self171212%_ 'slots))) - (__tmp176784 + (slot-ref__0 _%self172344%_ 'slots))) + (__tmp177916 (##structure-ref - _%accessor171642%_ + _%accessor172774%_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (hash-put! __tmp176785 __tmp176784 '#t)))))) - (_%__kont175683175684%_ - (lambda (_%L171519%_ _%L171520%_ _%L171521%_) - (let* ((_%mutator171548%_ - (let ((__tmp176786 + (hash-put! __tmp177917 __tmp177916 '#t)))))) + (_%__kont176815176816%_ + (lambda (_%L172651%_ _%L172652%_ _%L172653%_) + (let* ((_%mutator172680%_ + (let ((__tmp177918 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171521%_)))) + (gxc#identifier-symbol _%L172653%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp176786))) - (_%klass171550%_ - (let ((__tmp176787 + (gxc#optimizer-resolve-type __tmp177918))) + (_%klass172682%_ + (let ((__tmp177919 (##structure-ref - _%mutator171548%_ + _%mutator172680%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx171213%_ - __tmp176787))) - (_%slot171552%_ + _%stx172345%_ + __tmp177919))) + (_%slot172684%_ (##structure-ref - _%mutator171548%_ + _%mutator172680%_ '3 gxc#!mutator::t '#f))) (if (if (##structure-ref - _%mutator171548%_ + _%mutator172680%_ '4 gxc#!mutator::t '#f) @@ -4894,2064 +4894,2064 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass171550%_ - _%slot171552%_)) + _%klass172682%_ + _%slot172684%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass171550%_ + _%klass172682%_ '8 '#f '#f)))) '#!void - (let ((__tmp176788 + (let ((__tmp177920 (let () (declare (not safe)) - (slot-ref__0 _%self171212%_ 'slots)))) + (slot-ref__0 _%self172344%_ 'slots)))) (declare (not safe)) - (hash-put! __tmp176788 _%slot171552%_ '#t))) + (hash-put! __tmp177920 _%slot172684%_ '#t))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self171212%_ _%L171519%_))))) - (_%__kont175685175686%_ + (gxc#compile-e__1 _%self172344%_ _%L172651%_))))) + (_%__kont176817176818%_ (lambda () (let () (declare (not safe)) - (gxc#apply-operands _%self171212%_ _%stx171213%_))))) - (let* ((_%__match176166176167%_ - (lambda (_%e171415171455%_ - _%hd171416171458%_ - _%tl171417171460%_ - _%e171418171463%_ - _%hd171419171466%_ - _%tl171420171468%_ - _%e171421171471%_ - _%hd171422171474%_ - _%tl171423171476%_ - _%e171424171479%_ - _%hd171425171482%_ - _%tl171426171484%_ - _%e171427171487%_ - _%hd171428171490%_ - _%tl171429171492%_ - _%e171430171495%_ - _%hd171431171498%_ - _%tl171432171500%_ - _%e171433171503%_ - _%hd171434171506%_ - _%tl171435171508%_ - _%e171436171511%_ - _%hd171437171514%_ - _%tl171438171516%_) - (let ((_%L171519%_ _%hd171437171514%_) - (_%L171520%_ _%hd171434171506%_) - (_%L171521%_ _%hd171425171482%_)) - (if (and (let ((__tmp176789 - (let ((__tmp176790 + (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 (let () (declare (not safe)) (gxc#identifier-symbol - _%L171521%_)))) + _%L172653%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp176790)))) + __tmp177922)))) (declare (not safe)) (##structure-instance-of? - __tmp176789 + __tmp177921 'gxc#!mutator::t)) - (let ((__tmp176791 + (let ((__tmp177923 (let () (declare (not safe)) (slot-ref__0 - _%self171212%_ + _%self172344%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171520%_ - __tmp176791))) - (_%__kont175683175684%_ - _%L171519%_ - _%L171520%_ - _%L171521%_) - (_%__kont175685175686%_))))) - (_%__match176164176165%_ - (lambda (_%e171415171455%_ - _%hd171416171458%_ - _%tl171417171460%_ - _%e171418171463%_ - _%hd171419171466%_ - _%tl171420171468%_ - _%e171421171471%_ - _%hd171422171474%_ - _%tl171423171476%_ - _%e171424171479%_ - _%hd171425171482%_ - _%tl171426171484%_ - _%e171427171487%_ - _%hd171428171490%_ - _%tl171429171492%_ - _%e171430171495%_ - _%hd171431171498%_ - _%tl171432171500%_ - _%e171433171503%_ - _%hd171434171506%_ - _%tl171435171508%_ - _%e171436171511%_ - _%hd171437171514%_ - _%tl171438171516%_) + _%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%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171438171516%_)) - (_%__match176166176167%_ - _%e171415171455%_ - _%hd171416171458%_ - _%tl171417171460%_ - _%e171418171463%_ - _%hd171419171466%_ - _%tl171420171468%_ - _%e171421171471%_ - _%hd171422171474%_ - _%tl171423171476%_ - _%e171424171479%_ - _%hd171425171482%_ - _%tl171426171484%_ - _%e171427171487%_ - _%hd171428171490%_ - _%tl171429171492%_ - _%e171430171495%_ - _%hd171431171498%_ - _%tl171432171500%_ - _%e171433171503%_ - _%hd171434171506%_ - _%tl171435171508%_ - _%e171436171511%_ - _%hd171437171514%_ - _%tl171438171516%_) - (_%__kont175685175686%_)))) - (_%__match176158176159%_ - (lambda (_%e171415171455%_ - _%hd171416171458%_ - _%tl171417171460%_ - _%e171418171463%_ - _%hd171419171466%_ - _%tl171420171468%_ - _%e171421171471%_ - _%hd171422171474%_ - _%tl171423171476%_ - _%e171424171479%_ - _%hd171425171482%_ - _%tl171426171484%_ - _%e171427171487%_ - _%hd171428171490%_ - _%tl171429171492%_ - _%e171430171495%_ - _%hd171431171498%_ - _%tl171432171500%_ - _%e171433171503%_ - _%hd171434171506%_ - _%tl171435171508%_) + (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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171429171492%_)) - (let ((_%e171436171511%_ + (gx#stx-pair? _%tl172561172624%_)) + (let ((_%e172568172643%_ (let () (declare (not safe)) - (gx#stx-e _%tl171429171492%_)))) - (let ((_%tl171438171516%_ + (gx#stx-e _%tl172561172624%_)))) + (let ((_%tl172570172648%_ (let () (declare (not safe)) - (##cdr _%e171436171511%_))) - (_%hd171437171514%_ + (##cdr _%e172568172643%_))) + (_%hd172569172646%_ (let () (declare (not safe)) - (##car _%e171436171511%_)))) + (##car _%e172568172643%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171438171516%_)) - (_%__match176166176167%_ - _%e171415171455%_ - _%hd171416171458%_ - _%tl171417171460%_ - _%e171418171463%_ - _%hd171419171466%_ - _%tl171420171468%_ - _%e171421171471%_ - _%hd171422171474%_ - _%tl171423171476%_ - _%e171424171479%_ - _%hd171425171482%_ - _%tl171426171484%_ - _%e171427171487%_ - _%hd171428171490%_ - _%tl171429171492%_ - _%e171430171495%_ - _%hd171431171498%_ - _%tl171432171500%_ - _%e171433171503%_ - _%hd171434171506%_ - _%tl171435171508%_ - _%e171436171511%_ - _%hd171437171514%_ - _%tl171438171516%_) - (_%__kont175685175686%_)))) - (_%__kont175685175686%_)))) - (_%__match176104176105%_ - (lambda (_%e171391171563%_ - _%hd171392171566%_ - _%tl171393171568%_ - _%e171394171571%_ - _%hd171395171574%_ - _%tl171396171576%_ - _%e171397171579%_ - _%hd171398171582%_ - _%tl171399171584%_ - _%e171400171587%_ - _%hd171401171590%_ - _%tl171402171592%_ - _%e171403171595%_ - _%hd171404171598%_ - _%tl171405171600%_ - _%e171406171603%_ - _%hd171407171606%_ - _%tl171408171608%_ - _%e171409171611%_ - _%hd171410171614%_ - _%tl171411171616%_) - (let ((_%L171619%_ _%hd171410171614%_) - (_%L171620%_ _%hd171401171590%_)) - (if (and (let ((__tmp176792 - (let ((__tmp176793 + (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 (let () (declare (not safe)) (gxc#identifier-symbol - _%L171620%_)))) + _%L172752%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp176793)))) + __tmp177925)))) (declare (not safe)) (##structure-instance-of? - __tmp176792 + __tmp177924 'gxc#!accessor::t)) - (let ((__tmp176794 + (let ((__tmp177926 (let () (declare (not safe)) (slot-ref__0 - _%self171212%_ + _%self172344%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171619%_ - __tmp176794))) - (_%__kont175681175682%_ _%L171619%_ _%L171620%_) - (_%__kont175685175686%_))))) - (_%__match176102176103%_ - (lambda (_%e171391171563%_ - _%hd171392171566%_ - _%tl171393171568%_ - _%e171394171571%_ - _%hd171395171574%_ - _%tl171396171576%_ - _%e171397171579%_ - _%hd171398171582%_ - _%tl171399171584%_ - _%e171400171587%_ - _%hd171401171590%_ - _%tl171402171592%_ - _%e171403171595%_ - _%hd171404171598%_ - _%tl171405171600%_ - _%e171406171603%_ - _%hd171407171606%_ - _%tl171408171608%_ - _%e171409171611%_ - _%hd171410171614%_ - _%tl171411171616%_) + _%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%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171405171600%_)) - (_%__match176104176105%_ - _%e171391171563%_ - _%hd171392171566%_ - _%tl171393171568%_ - _%e171394171571%_ - _%hd171395171574%_ - _%tl171396171576%_ - _%e171397171579%_ - _%hd171398171582%_ - _%tl171399171584%_ - _%e171400171587%_ - _%hd171401171590%_ - _%tl171402171592%_ - _%e171403171595%_ - _%hd171404171598%_ - _%tl171405171600%_ - _%e171406171603%_ - _%hd171407171606%_ - _%tl171408171608%_ - _%e171409171611%_ - _%hd171410171614%_ - _%tl171411171616%_) - (_%__match176158176159%_ - _%e171391171563%_ - _%hd171392171566%_ - _%tl171393171568%_ - _%e171394171571%_ - _%hd171395171574%_ - _%tl171396171576%_ - _%e171397171579%_ - _%hd171398171582%_ - _%tl171399171584%_ - _%e171400171587%_ - _%hd171401171590%_ - _%tl171402171592%_ - _%e171403171595%_ - _%hd171404171598%_ - _%tl171405171600%_ - _%e171406171603%_ - _%hd171407171606%_ - _%tl171408171608%_ - _%e171409171611%_ - _%hd171410171614%_ - _%tl171411171616%_)))) - (_%__match176048176049%_ - (lambda (_%e171356171657%_ - _%hd171357171660%_ - _%tl171358171662%_ - _%e171359171665%_ - _%hd171360171668%_ - _%tl171361171670%_ - _%e171362171673%_ - _%hd171363171676%_ - _%tl171364171678%_ - _%e171365171681%_ - _%hd171366171684%_ - _%tl171367171686%_ - _%e171368171689%_ - _%hd171369171692%_ - _%tl171370171694%_ - _%e171371171697%_ - _%hd171372171700%_ - _%tl171373171702%_ - _%e171374171705%_ - _%hd171375171708%_ - _%tl171376171710%_ - _%e171377171713%_ - _%hd171378171716%_ - _%tl171379171718%_ - _%e171380171721%_ - _%hd171381171724%_ - _%tl171382171726%_ - _%e171383171729%_ - _%hd171384171732%_ - _%tl171385171734%_ - _%e171386171737%_ - _%hd171387171740%_ - _%tl171388171742%_) - (let ((_%L171745%_ _%hd171387171740%_) - (_%L171746%_ _%hd171384171732%_) - (_%L171747%_ _%hd171375171708%_) - (_%L171748%_ _%hd171366171684%_)) + (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%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171748%_ + _%L172880%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171748%_ + _%L172880%_ 'unchecked-slot-set!))) - (let ((__tmp176795 + (let ((__tmp177927 (let () (declare (not safe)) (slot-ref__0 - _%self171212%_ + _%self172344%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171747%_ - __tmp176795))) - (_%__kont175679175680%_ - _%L171745%_ - _%L171746%_ - _%L171747%_ - _%L171748%_) - (_%__kont175685175686%_))))) - (_%__match176040176041%_ - (lambda (_%e171356171657%_ - _%hd171357171660%_ - _%tl171358171662%_ - _%e171359171665%_ - _%hd171360171668%_ - _%tl171361171670%_ - _%e171362171673%_ - _%hd171363171676%_ - _%tl171364171678%_ - _%e171365171681%_ - _%hd171366171684%_ - _%tl171367171686%_ - _%e171368171689%_ - _%hd171369171692%_ - _%tl171370171694%_ - _%e171371171697%_ - _%hd171372171700%_ - _%tl171373171702%_ - _%e171374171705%_ - _%hd171375171708%_ - _%tl171376171710%_ - _%e171377171713%_ - _%hd171378171716%_ - _%tl171379171718%_ - _%e171380171721%_ - _%hd171381171724%_ - _%tl171382171726%_ - _%e171383171729%_ - _%hd171384171732%_ - _%tl171385171734%_) + _%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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171379171718%_)) - (let ((_%e171386171737%_ + (gx#stx-pair? _%tl172511172850%_)) + (let ((_%e172518172869%_ (let () (declare (not safe)) - (gx#stx-e _%tl171379171718%_)))) - (let ((_%tl171388171742%_ + (gx#stx-e _%tl172511172850%_)))) + (let ((_%tl172520172874%_ (let () (declare (not safe)) - (##cdr _%e171386171737%_))) - (_%hd171387171740%_ + (##cdr _%e172518172869%_))) + (_%hd172519172872%_ (let () (declare (not safe)) - (##car _%e171386171737%_)))) + (##car _%e172518172869%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171388171742%_)) - (_%__match176048176049%_ - _%e171356171657%_ - _%hd171357171660%_ - _%tl171358171662%_ - _%e171359171665%_ - _%hd171360171668%_ - _%tl171361171670%_ - _%e171362171673%_ - _%hd171363171676%_ - _%tl171364171678%_ - _%e171365171681%_ - _%hd171366171684%_ - _%tl171367171686%_ - _%e171368171689%_ - _%hd171369171692%_ - _%tl171370171694%_ - _%e171371171697%_ - _%hd171372171700%_ - _%tl171373171702%_ - _%e171374171705%_ - _%hd171375171708%_ - _%tl171376171710%_ - _%e171377171713%_ - _%hd171378171716%_ - _%tl171379171718%_ - _%e171380171721%_ - _%hd171381171724%_ - _%tl171382171726%_ - _%e171383171729%_ - _%hd171384171732%_ - _%tl171385171734%_ - _%e171386171737%_ - _%hd171387171740%_ - _%tl171388171742%_) - (_%__kont175685175686%_)))) - (_%__match176164176165%_ - _%e171356171657%_ - _%hd171357171660%_ - _%tl171358171662%_ - _%e171359171665%_ - _%hd171360171668%_ - _%tl171361171670%_ - _%e171362171673%_ - _%hd171363171676%_ - _%tl171364171678%_ - _%e171365171681%_ - _%hd171366171684%_ - _%tl171367171686%_ - _%e171368171689%_ - _%hd171369171692%_ - _%tl171370171694%_ - _%e171371171697%_ - _%hd171372171700%_ - _%tl171373171702%_ - _%e171374171705%_ - _%hd171375171708%_ - _%tl171376171710%_ - _%e171377171713%_ - _%hd171378171716%_ - _%tl171379171718%_)))) - (_%__match175962175963%_ - (lambda (_%e171322171788%_ - _%hd171323171791%_ - _%tl171324171793%_ - _%e171325171796%_ - _%hd171326171799%_ - _%tl171327171801%_ - _%e171328171804%_ - _%hd171329171807%_ - _%tl171330171809%_ - _%e171331171812%_ - _%hd171332171815%_ - _%tl171333171817%_ - _%e171334171820%_ - _%hd171335171823%_ - _%tl171336171825%_ - _%e171337171828%_ - _%hd171338171831%_ - _%tl171339171833%_ - _%e171340171836%_ - _%hd171341171839%_ - _%tl171342171841%_ - _%e171343171844%_ - _%hd171344171847%_ - _%tl171345171849%_ - _%e171346171852%_ - _%hd171347171855%_ - _%tl171348171857%_ - _%e171349171860%_ - _%hd171350171863%_ - _%tl171351171865%_) - (let ((_%L171868%_ _%hd171350171863%_) - (_%L171869%_ _%hd171341171839%_) - (_%L171870%_ _%hd171332171815%_)) + (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%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171870%_ + _%L173002%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171870%_ + _%L173002%_ 'unchecked-slot-ref))) - (let ((__tmp176796 + (let ((__tmp177928 (let () (declare (not safe)) (slot-ref__0 - _%self171212%_ + _%self172344%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171869%_ - __tmp176796))) - (_%__kont175677175678%_ - _%L171868%_ - _%L171869%_ - _%L171870%_) - (_%__match176166176167%_ - _%e171322171788%_ - _%hd171323171791%_ - _%tl171324171793%_ - _%e171325171796%_ - _%hd171326171799%_ - _%tl171327171801%_ - _%e171328171804%_ - _%hd171329171807%_ - _%tl171330171809%_ - _%e171331171812%_ - _%hd171332171815%_ - _%tl171333171817%_ - _%e171334171820%_ - _%hd171335171823%_ - _%tl171336171825%_ - _%e171337171828%_ - _%hd171338171831%_ - _%tl171339171833%_ - _%e171340171836%_ - _%hd171341171839%_ - _%tl171342171841%_ - _%e171343171844%_ - _%hd171344171847%_ - _%tl171345171849%_))))) - (_%__match175960175961%_ - (lambda (_%e171322171788%_ - _%hd171323171791%_ - _%tl171324171793%_ - _%e171325171796%_ - _%hd171326171799%_ - _%tl171327171801%_ - _%e171328171804%_ - _%hd171329171807%_ - _%tl171330171809%_ - _%e171331171812%_ - _%hd171332171815%_ - _%tl171333171817%_ - _%e171334171820%_ - _%hd171335171823%_ - _%tl171336171825%_ - _%e171337171828%_ - _%hd171338171831%_ - _%tl171339171833%_ - _%e171340171836%_ - _%hd171341171839%_ - _%tl171342171841%_ - _%e171343171844%_ - _%hd171344171847%_ - _%tl171345171849%_ - _%e171346171852%_ - _%hd171347171855%_ - _%tl171348171857%_ - _%e171349171860%_ - _%hd171350171863%_ - _%tl171351171865%_) + _%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%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171345171849%_)) - (_%__match175962175963%_ - _%e171322171788%_ - _%hd171323171791%_ - _%tl171324171793%_ - _%e171325171796%_ - _%hd171326171799%_ - _%tl171327171801%_ - _%e171328171804%_ - _%hd171329171807%_ - _%tl171330171809%_ - _%e171331171812%_ - _%hd171332171815%_ - _%tl171333171817%_ - _%e171334171820%_ - _%hd171335171823%_ - _%tl171336171825%_ - _%e171337171828%_ - _%hd171338171831%_ - _%tl171339171833%_ - _%e171340171836%_ - _%hd171341171839%_ - _%tl171342171841%_ - _%e171343171844%_ - _%hd171344171847%_ - _%tl171345171849%_ - _%e171346171852%_ - _%hd171347171855%_ - _%tl171348171857%_ - _%e171349171860%_ - _%hd171350171863%_ - _%tl171351171865%_) - (_%__match176040176041%_ - _%e171322171788%_ - _%hd171323171791%_ - _%tl171324171793%_ - _%e171325171796%_ - _%hd171326171799%_ - _%tl171327171801%_ - _%e171328171804%_ - _%hd171329171807%_ - _%tl171330171809%_ - _%e171331171812%_ - _%hd171332171815%_ - _%tl171333171817%_ - _%e171334171820%_ - _%hd171335171823%_ - _%tl171336171825%_ - _%e171337171828%_ - _%hd171338171831%_ - _%tl171339171833%_ - _%e171340171836%_ - _%hd171341171839%_ - _%tl171342171841%_ - _%e171343171844%_ - _%hd171344171847%_ - _%tl171345171849%_ - _%e171346171852%_ - _%hd171347171855%_ - _%tl171348171857%_ - _%e171349171860%_ - _%hd171350171863%_ - _%tl171351171865%_)))) - (_%__match175950175951%_ - (lambda (_%e171322171788%_ - _%hd171323171791%_ - _%tl171324171793%_ - _%e171325171796%_ - _%hd171326171799%_ - _%tl171327171801%_ - _%e171328171804%_ - _%hd171329171807%_ - _%tl171330171809%_ - _%e171331171812%_ - _%hd171332171815%_ - _%tl171333171817%_ - _%e171334171820%_ - _%hd171335171823%_ - _%tl171336171825%_ - _%e171337171828%_ - _%hd171338171831%_ - _%tl171339171833%_ - _%e171340171836%_ - _%hd171341171839%_ - _%tl171342171841%_ - _%e171343171844%_ - _%hd171344171847%_ - _%tl171345171849%_ - _%e171346171852%_ - _%hd171347171855%_ - _%tl171348171857%_) + (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%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd171347171855%_)) + (gx#stx-eq? '%#quote _%hd172479172987%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171348171857%_)) - (let ((_%e171349171860%_ + (gx#stx-pair? _%tl172480172989%_)) + (let ((_%e172481172992%_ (let () (declare (not safe)) - (gx#stx-e _%tl171348171857%_)))) - (let ((_%tl171351171865%_ + (gx#stx-e _%tl172480172989%_)))) + (let ((_%tl172483172997%_ (let () (declare (not safe)) - (##cdr _%e171349171860%_))) - (_%hd171350171863%_ + (##cdr _%e172481172992%_))) + (_%hd172482172995%_ (let () (declare (not safe)) - (##car _%e171349171860%_)))) + (##car _%e172481172992%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171351171865%_)) + (gx#stx-null? _%tl172483172997%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171345171849%_)) - (_%__match175962175963%_ - _%e171322171788%_ - _%hd171323171791%_ - _%tl171324171793%_ - _%e171325171796%_ - _%hd171326171799%_ - _%tl171327171801%_ - _%e171328171804%_ - _%hd171329171807%_ - _%tl171330171809%_ - _%e171331171812%_ - _%hd171332171815%_ - _%tl171333171817%_ - _%e171334171820%_ - _%hd171335171823%_ - _%tl171336171825%_ - _%e171337171828%_ - _%hd171338171831%_ - _%tl171339171833%_ - _%e171340171836%_ - _%hd171341171839%_ - _%tl171342171841%_ - _%e171343171844%_ - _%hd171344171847%_ - _%tl171345171849%_ - _%e171346171852%_ - _%hd171347171855%_ - _%tl171348171857%_ - _%e171349171860%_ - _%hd171350171863%_ - _%tl171351171865%_) - (_%__match176040176041%_ - _%e171322171788%_ - _%hd171323171791%_ - _%tl171324171793%_ - _%e171325171796%_ - _%hd171326171799%_ - _%tl171327171801%_ - _%e171328171804%_ - _%hd171329171807%_ - _%tl171330171809%_ - _%e171331171812%_ - _%hd171332171815%_ - _%tl171333171817%_ - _%e171334171820%_ - _%hd171335171823%_ - _%tl171336171825%_ - _%e171337171828%_ - _%hd171338171831%_ - _%tl171339171833%_ - _%e171340171836%_ - _%hd171341171839%_ - _%tl171342171841%_ - _%e171343171844%_ - _%hd171344171847%_ - _%tl171345171849%_ - _%e171346171852%_ - _%hd171347171855%_ - _%tl171348171857%_ - _%e171349171860%_ - _%hd171350171863%_ - _%tl171351171865%_)) - (_%__match176164176165%_ - _%e171322171788%_ - _%hd171323171791%_ - _%tl171324171793%_ - _%e171325171796%_ - _%hd171326171799%_ - _%tl171327171801%_ - _%e171328171804%_ - _%hd171329171807%_ - _%tl171330171809%_ - _%e171331171812%_ - _%hd171332171815%_ - _%tl171333171817%_ - _%e171334171820%_ - _%hd171335171823%_ - _%tl171336171825%_ - _%e171337171828%_ - _%hd171338171831%_ - _%tl171339171833%_ - _%e171340171836%_ - _%hd171341171839%_ - _%tl171342171841%_ - _%e171343171844%_ - _%hd171344171847%_ - _%tl171345171849%_)))) - (_%__match176164176165%_ - _%e171322171788%_ - _%hd171323171791%_ - _%tl171324171793%_ - _%e171325171796%_ - _%hd171326171799%_ - _%tl171327171801%_ - _%e171328171804%_ - _%hd171329171807%_ - _%tl171330171809%_ - _%e171331171812%_ - _%hd171332171815%_ - _%tl171333171817%_ - _%e171334171820%_ - _%hd171335171823%_ - _%tl171336171825%_ - _%e171337171828%_ - _%hd171338171831%_ - _%tl171339171833%_ - _%e171340171836%_ - _%hd171341171839%_ - _%tl171342171841%_ - _%e171343171844%_ - _%hd171344171847%_ - _%tl171345171849%_)) - (_%__match176164176165%_ - _%e171322171788%_ - _%hd171323171791%_ - _%tl171324171793%_ - _%e171325171796%_ - _%hd171326171799%_ - _%tl171327171801%_ - _%e171328171804%_ - _%hd171329171807%_ - _%tl171330171809%_ - _%e171331171812%_ - _%hd171332171815%_ - _%tl171333171817%_ - _%e171334171820%_ - _%hd171335171823%_ - _%tl171336171825%_ - _%e171337171828%_ - _%hd171338171831%_ - _%tl171339171833%_ - _%e171340171836%_ - _%hd171341171839%_ - _%tl171342171841%_ - _%e171343171844%_ - _%hd171344171847%_ - _%tl171345171849%_)))) - (_%__match175882175883%_ - (lambda (_%e171271171907%_ - _%hd171272171910%_ - _%tl171273171912%_ - _%e171274171915%_ - _%hd171275171918%_ - _%tl171276171920%_ - _%e171277171923%_ - _%hd171278171926%_ - _%tl171279171928%_ - _%e171280171931%_ - _%hd171281171934%_ - _%tl171282171936%_ - _%e171283171939%_ - _%hd171284171942%_ - _%tl171285171944%_ - _%e171286171947%_ - _%hd171287171950%_ - _%tl171288171952%_ - _%e171289171955%_ - _%hd171290171958%_ - _%tl171291171960%_ - _%e171292171963%_ - _%hd171293171966%_ - _%tl171294171968%_ - _%e171295171971%_ - _%hd171296171974%_ - _%tl171297171976%_ - _%e171298171979%_ - _%hd171299171982%_ - _%tl171300171984%_ - _%e171301171987%_ - _%hd171302171990%_ - _%tl171303171992%_ - _%e171304171995%_ - _%hd171305171998%_ - _%tl171306172000%_ - _%e171307172003%_ - _%hd171308172006%_ - _%tl171309172008%_ - _%__splice175675175676%_ - _%target171310172011%_ - _%tl171312172013%_) - (letrec ((_%loop171313172016%_ - (lambda (_%hd171311172019%_ - _%args171317172021%_) + (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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171311172019%_)) - (let ((_%e171314172024%_ + (gx#stx-pair? _%hd172443173151%_)) + (let ((_%e172446173156%_ (let () (declare (not safe)) - (gx#stx-e _%hd171311172019%_)))) - (let ((_%lp-tl171316172029%_ + (gx#stx-e _%hd172443173151%_)))) + (let ((_%lp-tl172448173161%_ (let () (declare (not safe)) - (##cdr _%e171314172024%_))) - (_%lp-hd171315172027%_ + (##cdr _%e172446173156%_))) + (_%lp-hd172447173159%_ (let () (declare (not safe)) - (##car _%e171314172024%_)))) - (_%loop171313172016%_ - _%lp-tl171316172029%_ - (cons _%lp-hd171315172027%_ - _%args171317172021%_)))) - (let ((_%args171318172032%_ - (reverse _%args171317172021%_))) - (let ((_%L172035%_ - _%args171318172032%_) - (_%L172036%_ _%hd171308172006%_) - (_%L172037%_ _%hd171299171982%_) - (_%L172038%_ _%hd171290171958%_) - (_%L172039%_ _%hd171281171934%_)) + (##car _%e172446173156%_)))) + (_%loop172445173148%_ + _%lp-tl172448173161%_ + (cons _%lp-hd172447173159%_ + _%args172449173153%_)))) + (let ((_%args172450173164%_ + (reverse _%args172449173153%_))) + (let ((_%L173167%_ + _%args172450173164%_) + (_%L173168%_ _%hd172440173138%_) + (_%L173169%_ _%hd172431173114%_) + (_%L173170%_ _%hd172422173090%_) + (_%L173171%_ _%hd172413173066%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172039%_ + _%L173171%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172038%_ + _%L173170%_ 'call-method)) - (let ((__tmp176797 + (let ((__tmp177929 (let () (declare (not safe)) (slot-ref__0 - _%self171212%_ + _%self172344%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172037%_ - __tmp176797))) - (_%__kont175673175674%_ - _%L172035%_ - _%L172036%_ - _%L172037%_ - _%L172038%_ - _%L172039%_) - (_%__kont175685175686%_)))))))) - (_%loop171313172016%_ _%target171310172011%_ '())))) - (_%__match175840175841%_ - (lambda (_%e171271171907%_ - _%hd171272171910%_ - _%tl171273171912%_ - _%e171274171915%_ - _%hd171275171918%_ - _%tl171276171920%_ - _%e171277171923%_ - _%hd171278171926%_ - _%tl171279171928%_ - _%e171280171931%_ - _%hd171281171934%_ - _%tl171282171936%_ - _%e171283171939%_ - _%hd171284171942%_ - _%tl171285171944%_ - _%e171286171947%_ - _%hd171287171950%_ - _%tl171288171952%_ - _%e171289171955%_ - _%hd171290171958%_ - _%tl171291171960%_ - _%e171292171963%_ - _%hd171293171966%_ - _%tl171294171968%_ - _%e171295171971%_ - _%hd171296171974%_ - _%tl171297171976%_) + _%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%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171296171974%_)) + (gx#stx-eq? '%#ref _%hd172428173106%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171297171976%_)) - (let ((_%e171298171979%_ + (gx#stx-pair? _%tl172429173108%_)) + (let ((_%e172430173111%_ (let () (declare (not safe)) - (gx#stx-e _%tl171297171976%_)))) - (let ((_%tl171300171984%_ + (gx#stx-e _%tl172429173108%_)))) + (let ((_%tl172432173116%_ (let () (declare (not safe)) - (##cdr _%e171298171979%_))) - (_%hd171299171982%_ + (##cdr _%e172430173111%_))) + (_%hd172431173114%_ (let () (declare (not safe)) - (##car _%e171298171979%_)))) + (##car _%e172430173111%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171300171984%_)) + (gx#stx-null? _%tl172432173116%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171294171968%_)) - (let ((_%e171301171987%_ + (gx#stx-pair? _%tl172426173100%_)) + (let ((_%e172433173119%_ (let () (declare (not safe)) (gx#stx-e - _%tl171294171968%_)))) - (let ((_%tl171303171992%_ + _%tl172426173100%_)))) + (let ((_%tl172435173124%_ (let () (declare (not safe)) - (##cdr _%e171301171987%_))) - (_%hd171302171990%_ + (##cdr _%e172433173119%_))) + (_%hd172434173122%_ (let () (declare (not safe)) - (##car _%e171301171987%_)))) + (##car _%e172433173119%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd171302171990%_)) - (let ((_%e171304171995%_ + _%hd172434173122%_)) + (let ((_%e172436173127%_ (let () (declare (not safe)) (gx#stx-e - _%hd171302171990%_)))) - (let ((_%tl171306172000%_ + _%hd172434173122%_)))) + (let ((_%tl172438173132%_ (let () (declare (not safe)) - (##cdr _%e171304171995%_))) - (_%hd171305171998%_ + (##cdr _%e172436173127%_))) + (_%hd172437173130%_ (let () (declare (not safe)) - (##car _%e171304171995%_)))) + (##car _%e172436173127%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd171305171998%_)) + _%hd172437173130%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd171305171998%_)) + (gx#stx-eq? '%#quote _%hd172437173130%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171306172000%_)) - (let ((_%e171307172003%_ + (gx#stx-pair? _%tl172438173132%_)) + (let ((_%e172439173135%_ (let () (declare (not safe)) - (gx#stx-e _%tl171306172000%_)))) - (let ((_%tl171309172008%_ + (gx#stx-e _%tl172438173132%_)))) + (let ((_%tl172441173140%_ (let () (declare (not safe)) - (##cdr _%e171307172003%_))) - (_%hd171308172006%_ + (##cdr _%e172439173135%_))) + (_%hd172440173138%_ (let () (declare (not safe)) - (##car _%e171307172003%_)))) + (##car _%e172439173135%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171309172008%_)) + (gx#stx-null? _%tl172441173140%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl171303171992%_)) - (let ((_%__splice175675175676%_ + (gx#stx-pair/null? _%tl172435173124%_)) + (let ((_%__splice176807176808%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl171303171992%_ + _%tl172435173124%_ '0)))) - (let ((_%tl171312172013%_ + (let ((_%tl172444173145%_ (let () (declare (not safe)) (##vector-ref - _%__splice175675175676%_ + _%__splice176807176808%_ '1))) - (_%target171310172011%_ + (_%target172442173143%_ (let () (declare (not safe)) (##vector-ref - _%__splice175675175676%_ + _%__splice176807176808%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171312172013%_)) - (_%__match175882175883%_ - _%e171271171907%_ - _%hd171272171910%_ - _%tl171273171912%_ - _%e171274171915%_ - _%hd171275171918%_ - _%tl171276171920%_ - _%e171277171923%_ - _%hd171278171926%_ - _%tl171279171928%_ - _%e171280171931%_ - _%hd171281171934%_ - _%tl171282171936%_ - _%e171283171939%_ - _%hd171284171942%_ - _%tl171285171944%_ - _%e171286171947%_ - _%hd171287171950%_ - _%tl171288171952%_ - _%e171289171955%_ - _%hd171290171958%_ - _%tl171291171960%_ - _%e171292171963%_ - _%hd171293171966%_ - _%tl171294171968%_ - _%e171295171971%_ - _%hd171296171974%_ - _%tl171297171976%_ - _%e171298171979%_ - _%hd171299171982%_ - _%tl171300171984%_ - _%e171301171987%_ - _%hd171302171990%_ - _%tl171303171992%_ - _%e171304171995%_ - _%hd171305171998%_ - _%tl171306172000%_ - _%e171307172003%_ - _%hd171308172006%_ - _%tl171309172008%_ - _%__splice175675175676%_ - _%target171310172011%_ - _%tl171312172013%_) - (_%__kont175685175686%_)))) - (_%__kont175685175686%_)) - (_%__kont175685175686%_)))) - (_%__kont175685175686%_)) - (_%__kont175685175686%_)) - (_%__kont175685175686%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175685175686%_)))) - (_%__match176164176165%_ - _%e171271171907%_ - _%hd171272171910%_ - _%tl171273171912%_ - _%e171274171915%_ - _%hd171275171918%_ - _%tl171276171920%_ - _%e171277171923%_ - _%hd171278171926%_ - _%tl171279171928%_ - _%e171280171931%_ - _%hd171281171934%_ - _%tl171282171936%_ - _%e171283171939%_ - _%hd171284171942%_ - _%tl171285171944%_ - _%e171286171947%_ - _%hd171287171950%_ - _%tl171288171952%_ - _%e171289171955%_ - _%hd171290171958%_ - _%tl171291171960%_ - _%e171292171963%_ - _%hd171293171966%_ - _%tl171294171968%_)) - (_%__match176164176165%_ - _%e171271171907%_ - _%hd171272171910%_ - _%tl171273171912%_ - _%e171274171915%_ - _%hd171275171918%_ - _%tl171276171920%_ - _%e171277171923%_ - _%hd171278171926%_ - _%tl171279171928%_ - _%e171280171931%_ - _%hd171281171934%_ - _%tl171282171936%_ - _%e171283171939%_ - _%hd171284171942%_ - _%tl171285171944%_ - _%e171286171947%_ - _%hd171287171950%_ - _%tl171288171952%_ - _%e171289171955%_ - _%hd171290171958%_ - _%tl171291171960%_ - _%e171292171963%_ - _%hd171293171966%_ - _%tl171294171968%_)))) - (_%__match176164176165%_ - _%e171271171907%_ - _%hd171272171910%_ - _%tl171273171912%_ - _%e171274171915%_ - _%hd171275171918%_ - _%tl171276171920%_ - _%e171277171923%_ - _%hd171278171926%_ - _%tl171279171928%_ - _%e171280171931%_ - _%hd171281171934%_ - _%tl171282171936%_ - _%e171283171939%_ - _%hd171284171942%_ - _%tl171285171944%_ - _%e171286171947%_ - _%hd171287171950%_ - _%tl171288171952%_ - _%e171289171955%_ - _%hd171290171958%_ - _%tl171291171960%_ - _%e171292171963%_ - _%hd171293171966%_ - _%tl171294171968%_)) - (_%__match175950175951%_ - _%e171271171907%_ - _%hd171272171910%_ - _%tl171273171912%_ - _%e171274171915%_ - _%hd171275171918%_ - _%tl171276171920%_ - _%e171277171923%_ - _%hd171278171926%_ - _%tl171279171928%_ - _%e171280171931%_ - _%hd171281171934%_ - _%tl171282171936%_ - _%e171283171939%_ - _%hd171284171942%_ - _%tl171285171944%_ - _%e171286171947%_ - _%hd171287171950%_ - _%tl171288171952%_ - _%e171289171955%_ - _%hd171290171958%_ - _%tl171291171960%_ - _%e171292171963%_ - _%hd171293171966%_ - _%tl171294171968%_ - _%e171295171971%_ - _%hd171296171974%_ - _%tl171297171976%_)))) - (_%__match175772175773%_ - (lambda (_%e171227172096%_ - _%hd171228172099%_ - _%tl171229172101%_ - _%e171230172104%_ - _%hd171231172107%_ - _%tl171232172109%_ - _%e171233172112%_ - _%hd171234172115%_ - _%tl171235172117%_ - _%e171236172120%_ - _%hd171237172123%_ - _%tl171238172125%_ - _%e171239172128%_ - _%hd171240172131%_ - _%tl171241172133%_ - _%e171242172136%_ - _%hd171243172139%_ - _%tl171244172141%_ - _%e171245172144%_ - _%hd171246172147%_ - _%tl171247172149%_ - _%e171248172152%_ - _%hd171249172155%_ - _%tl171250172157%_ - _%e171251172160%_ - _%hd171252172163%_ - _%tl171253172165%_ - _%e171254172168%_ - _%hd171255172171%_ - _%tl171256172173%_ - _%__splice175671175672%_ - _%target171257172176%_ - _%tl171259172178%_) - (letrec ((_%loop171260172181%_ - (lambda (_%hd171258172184%_ - _%args171264172186%_) + (_%__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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171258172184%_)) - (let ((_%e171261172189%_ + (gx#stx-pair? _%hd172390173316%_)) + (let ((_%e172393173321%_ (let () (declare (not safe)) - (gx#stx-e _%hd171258172184%_)))) - (let ((_%lp-tl171263172194%_ + (gx#stx-e _%hd172390173316%_)))) + (let ((_%lp-tl172395173326%_ (let () (declare (not safe)) - (##cdr _%e171261172189%_))) - (_%lp-hd171262172192%_ + (##cdr _%e172393173321%_))) + (_%lp-hd172394173324%_ (let () (declare (not safe)) - (##car _%e171261172189%_)))) - (_%loop171260172181%_ - _%lp-tl171263172194%_ - (cons _%lp-hd171262172192%_ - _%args171264172186%_)))) - (let ((_%args171265172197%_ - (reverse _%args171264172186%_))) - (let ((_%L172200%_ - _%args171265172197%_) - (_%L172201%_ _%hd171255172171%_) - (_%L172202%_ _%hd171246172147%_) - (_%L172203%_ _%hd171237172123%_)) + (##car _%e172393173321%_)))) + (_%loop172392173313%_ + _%lp-tl172395173326%_ + (cons _%lp-hd172394173324%_ + _%args172396173318%_)))) + (let ((_%args172397173329%_ + (reverse _%args172396173318%_))) + (let ((_%L173332%_ + _%args172397173329%_) + (_%L173333%_ _%hd172387173303%_) + (_%L173334%_ _%hd172378173279%_) + (_%L173335%_ _%hd172369173255%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172203%_ + _%L173335%_ 'call-method)) - (let ((__tmp176798 + (let ((__tmp177930 (let () (declare (not safe)) (slot-ref__0 - _%self171212%_ + _%self172344%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172202%_ - __tmp176798))) - (_%__kont175669175670%_ - _%L172200%_ - _%L172201%_ - _%L172202%_ - _%L172203%_) - (_%__match175960175961%_ - _%e171227172096%_ - _%hd171228172099%_ - _%tl171229172101%_ - _%e171230172104%_ - _%hd171231172107%_ - _%tl171232172109%_ - _%e171233172112%_ - _%hd171234172115%_ - _%tl171235172117%_ - _%e171236172120%_ - _%hd171237172123%_ - _%tl171238172125%_ - _%e171239172128%_ - _%hd171240172131%_ - _%tl171241172133%_ - _%e171242172136%_ - _%hd171243172139%_ - _%tl171244172141%_ - _%e171245172144%_ - _%hd171246172147%_ - _%tl171247172149%_ - _%e171248172152%_ - _%hd171249172155%_ - _%tl171250172157%_ - _%e171251172160%_ - _%hd171252172163%_ - _%tl171253172165%_ - _%e171254172168%_ - _%hd171255172171%_ - _%tl171256172173%_)))))))) - (_%loop171260172181%_ _%target171257172176%_ '()))))) + _%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%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx175667175668%_)) - (let ((_%e171227172096%_ + (gx#stx-pair? _%__stx176799176800%_)) + (let ((_%e172359173228%_ (let () (declare (not safe)) - (gx#stx-e _%__stx175667175668%_)))) - (let ((_%tl171229172101%_ + (gx#stx-e _%__stx176799176800%_)))) + (let ((_%tl172361173233%_ (let () (declare (not safe)) - (##cdr _%e171227172096%_))) - (_%hd171228172099%_ + (##cdr _%e172359173228%_))) + (_%hd172360173231%_ (let () (declare (not safe)) - (##car _%e171227172096%_)))) + (##car _%e172359173228%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171229172101%_)) - (let ((_%e171230172104%_ + (gx#stx-pair? _%tl172361173233%_)) + (let ((_%e172362173236%_ (let () (declare (not safe)) - (gx#stx-e _%tl171229172101%_)))) - (let ((_%tl171232172109%_ + (gx#stx-e _%tl172361173233%_)))) + (let ((_%tl172364173241%_ (let () (declare (not safe)) - (##cdr _%e171230172104%_))) - (_%hd171231172107%_ + (##cdr _%e172362173236%_))) + (_%hd172363173239%_ (let () (declare (not safe)) - (##car _%e171230172104%_)))) + (##car _%e172362173236%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171231172107%_)) - (let ((_%e171233172112%_ + (gx#stx-pair? _%hd172363173239%_)) + (let ((_%e172365173244%_ (let () (declare (not safe)) - (gx#stx-e _%hd171231172107%_)))) - (let ((_%tl171235172117%_ + (gx#stx-e _%hd172363173239%_)))) + (let ((_%tl172367173249%_ (let () (declare (not safe)) - (##cdr _%e171233172112%_))) - (_%hd171234172115%_ + (##cdr _%e172365173244%_))) + (_%hd172366173247%_ (let () (declare (not safe)) - (##car _%e171233172112%_)))) + (##car _%e172365173244%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd171234172115%_)) + _%hd172366173247%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd171234172115%_)) + _%hd172366173247%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171235172117%_)) - (let ((_%e171236172120%_ + _%tl172367173249%_)) + (let ((_%e172368173252%_ (let () (declare (not safe)) (gx#stx-e - _%tl171235172117%_)))) - (let ((_%tl171238172125%_ + _%tl172367173249%_)))) + (let ((_%tl172370173257%_ (let () (declare (not safe)) - (##cdr _%e171236172120%_))) - (_%hd171237172123%_ + (##cdr _%e172368173252%_))) + (_%hd172369173255%_ (let () (declare (not safe)) - (##car _%e171236172120%_)))) + (##car _%e172368173252%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171238172125%_)) + _%tl172370173257%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl171232172109%_)) - (let ((_%e171239172128%_ + (gx#stx-pair? _%tl172364173241%_)) + (let ((_%e172371173260%_ (let () (declare (not safe)) - (gx#stx-e _%tl171232172109%_)))) - (let ((_%tl171241172133%_ + (gx#stx-e _%tl172364173241%_)))) + (let ((_%tl172373173265%_ (let () (declare (not safe)) - (##cdr _%e171239172128%_))) - (_%hd171240172131%_ + (##cdr _%e172371173260%_))) + (_%hd172372173263%_ (let () (declare (not safe)) - (##car _%e171239172128%_)))) + (##car _%e172371173260%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171240172131%_)) - (let ((_%e171242172136%_ + (gx#stx-pair? _%hd172372173263%_)) + (let ((_%e172374173268%_ (let () (declare (not safe)) - (gx#stx-e _%hd171240172131%_)))) - (let ((_%tl171244172141%_ + (gx#stx-e _%hd172372173263%_)))) + (let ((_%tl172376173273%_ (let () (declare (not safe)) - (##cdr _%e171242172136%_))) - (_%hd171243172139%_ + (##cdr _%e172374173268%_))) + (_%hd172375173271%_ (let () (declare (not safe)) - (##car _%e171242172136%_)))) + (##car _%e172374173268%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171243172139%_)) + (gx#identifier? _%hd172375173271%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd171243172139%_)) + _%hd172375173271%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171244172141%_)) - (let ((_%e171245172144%_ + _%tl172376173273%_)) + (let ((_%e172377173276%_ (let () (declare (not safe)) (gx#stx-e - _%tl171244172141%_)))) - (let ((_%tl171247172149%_ + _%tl172376173273%_)))) + (let ((_%tl172379173281%_ (let () (declare (not safe)) - (##cdr _%e171245172144%_))) - (_%hd171246172147%_ + (##cdr _%e172377173276%_))) + (_%hd172378173279%_ (let () (declare (not safe)) - (##car _%e171245172144%_)))) + (##car _%e172377173276%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171247172149%_)) + _%tl172379173281%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171241172133%_)) - (let ((_%e171248172152%_ + _%tl172373173265%_)) + (let ((_%e172380173284%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl171241172133%_)))) - (let ((_%tl171250172157%_ + (gx#stx-e _%tl172373173265%_)))) + (let ((_%tl172382173289%_ (let () (declare (not safe)) - (##cdr _%e171248172152%_))) - (_%hd171249172155%_ + (##cdr _%e172380173284%_))) + (_%hd172381173287%_ (let () (declare (not safe)) - (##car _%e171248172152%_)))) + (##car _%e172380173284%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171249172155%_)) - (let ((_%e171251172160%_ + (gx#stx-pair? _%hd172381173287%_)) + (let ((_%e172383173292%_ (let () (declare (not safe)) - (gx#stx-e _%hd171249172155%_)))) - (let ((_%tl171253172165%_ + (gx#stx-e _%hd172381173287%_)))) + (let ((_%tl172385173297%_ (let () (declare (not safe)) - (##cdr _%e171251172160%_))) - (_%hd171252172163%_ + (##cdr _%e172383173292%_))) + (_%hd172384173295%_ (let () (declare (not safe)) - (##car _%e171251172160%_)))) + (##car _%e172383173292%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171252172163%_)) + (gx#identifier? _%hd172384173295%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd171252172163%_)) + _%hd172384173295%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171253172165%_)) - (let ((_%e171254172168%_ + (gx#stx-pair? _%tl172385173297%_)) + (let ((_%e172386173300%_ (let () (declare (not safe)) (gx#stx-e - _%tl171253172165%_)))) - (let ((_%tl171256172173%_ + _%tl172385173297%_)))) + (let ((_%tl172388173305%_ (let () (declare (not safe)) - (##cdr _%e171254172168%_))) - (_%hd171255172171%_ + (##cdr _%e172386173300%_))) + (_%hd172387173303%_ (let () (declare (not safe)) - (##car _%e171254172168%_)))) + (##car _%e172386173300%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171256172173%_)) + _%tl172388173305%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl171250172157%_)) - (let ((_%__splice175671175672%_ + _%tl172382173289%_)) + (let ((_%__splice176803176804%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl171250172157%_ '0)))) - (let ((_%tl171259172178%_ + (gx#syntax-split-splice _%tl172382173289%_ '0)))) + (let ((_%tl172391173310%_ (let () (declare (not safe)) - (##vector-ref _%__splice175671175672%_ '1))) - (_%target171257172176%_ + (##vector-ref _%__splice176803176804%_ '1))) + (_%target172389173308%_ (let () (declare (not safe)) - (##vector-ref _%__splice175671175672%_ '0)))) + (##vector-ref _%__splice176803176804%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171259172178%_)) - (_%__match175772175773%_ - _%e171227172096%_ - _%hd171228172099%_ - _%tl171229172101%_ - _%e171230172104%_ - _%hd171231172107%_ - _%tl171232172109%_ - _%e171233172112%_ - _%hd171234172115%_ - _%tl171235172117%_ - _%e171236172120%_ - _%hd171237172123%_ - _%tl171238172125%_ - _%e171239172128%_ - _%hd171240172131%_ - _%tl171241172133%_ - _%e171242172136%_ - _%hd171243172139%_ - _%tl171244172141%_ - _%e171245172144%_ - _%hd171246172147%_ - _%tl171247172149%_ - _%e171248172152%_ - _%hd171249172155%_ - _%tl171250172157%_ - _%e171251172160%_ - _%hd171252172163%_ - _%tl171253172165%_ - _%e171254172168%_ - _%hd171255172171%_ - _%tl171256172173%_ - _%__splice175671175672%_ - _%target171257172176%_ - _%tl171259172178%_) - (_%__match175960175961%_ - _%e171227172096%_ - _%hd171228172099%_ - _%tl171229172101%_ - _%e171230172104%_ - _%hd171231172107%_ - _%tl171232172109%_ - _%e171233172112%_ - _%hd171234172115%_ - _%tl171235172117%_ - _%e171236172120%_ - _%hd171237172123%_ - _%tl171238172125%_ - _%e171239172128%_ - _%hd171240172131%_ - _%tl171241172133%_ - _%e171242172136%_ - _%hd171243172139%_ - _%tl171244172141%_ - _%e171245172144%_ - _%hd171246172147%_ - _%tl171247172149%_ - _%e171248172152%_ - _%hd171249172155%_ - _%tl171250172157%_ - _%e171251172160%_ - _%hd171252172163%_ - _%tl171253172165%_ - _%e171254172168%_ - _%hd171255172171%_ - _%tl171256172173%_)))) - (_%__match175960175961%_ - _%e171227172096%_ - _%hd171228172099%_ - _%tl171229172101%_ - _%e171230172104%_ - _%hd171231172107%_ - _%tl171232172109%_ - _%e171233172112%_ - _%hd171234172115%_ - _%tl171235172117%_ - _%e171236172120%_ - _%hd171237172123%_ - _%tl171238172125%_ - _%e171239172128%_ - _%hd171240172131%_ - _%tl171241172133%_ - _%e171242172136%_ - _%hd171243172139%_ - _%tl171244172141%_ - _%e171245172144%_ - _%hd171246172147%_ - _%tl171247172149%_ - _%e171248172152%_ - _%hd171249172155%_ - _%tl171250172157%_ - _%e171251172160%_ - _%hd171252172163%_ - _%tl171253172165%_ - _%e171254172168%_ - _%hd171255172171%_ - _%tl171256172173%_)) + (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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match176164176165%_ - _%e171227172096%_ - _%hd171228172099%_ - _%tl171229172101%_ - _%e171230172104%_ - _%hd171231172107%_ - _%tl171232172109%_ - _%e171233172112%_ - _%hd171234172115%_ - _%tl171235172117%_ - _%e171236172120%_ - _%hd171237172123%_ - _%tl171238172125%_ - _%e171239172128%_ - _%hd171240172131%_ - _%tl171241172133%_ - _%e171242172136%_ - _%hd171243172139%_ - _%tl171244172141%_ - _%e171245172144%_ - _%hd171246172147%_ - _%tl171247172149%_ - _%e171248172152%_ - _%hd171249172155%_ - _%tl171250172157%_)))) - (_%__match176164176165%_ - _%e171227172096%_ - _%hd171228172099%_ - _%tl171229172101%_ - _%e171230172104%_ - _%hd171231172107%_ - _%tl171232172109%_ - _%e171233172112%_ - _%hd171234172115%_ - _%tl171235172117%_ - _%e171236172120%_ - _%hd171237172123%_ - _%tl171238172125%_ - _%e171239172128%_ - _%hd171240172131%_ - _%tl171241172133%_ - _%e171242172136%_ - _%hd171243172139%_ - _%tl171244172141%_ - _%e171245172144%_ - _%hd171246172147%_ - _%tl171247172149%_ - _%e171248172152%_ - _%hd171249172155%_ - _%tl171250172157%_)) - (_%__match175840175841%_ - _%e171227172096%_ - _%hd171228172099%_ - _%tl171229172101%_ - _%e171230172104%_ - _%hd171231172107%_ - _%tl171232172109%_ - _%e171233172112%_ - _%hd171234172115%_ - _%tl171235172117%_ - _%e171236172120%_ - _%hd171237172123%_ - _%tl171238172125%_ - _%e171239172128%_ - _%hd171240172131%_ - _%tl171241172133%_ - _%e171242172136%_ - _%hd171243172139%_ - _%tl171244172141%_ - _%e171245172144%_ - _%hd171246172147%_ - _%tl171247172149%_ - _%e171248172152%_ - _%hd171249172155%_ - _%tl171250172157%_ - _%e171251172160%_ - _%hd171252172163%_ - _%tl171253172165%_)) - (_%__match176164176165%_ - _%e171227172096%_ - _%hd171228172099%_ - _%tl171229172101%_ - _%e171230172104%_ - _%hd171231172107%_ - _%tl171232172109%_ - _%e171233172112%_ - _%hd171234172115%_ - _%tl171235172117%_ - _%e171236172120%_ - _%hd171237172123%_ - _%tl171238172125%_ - _%e171239172128%_ - _%hd171240172131%_ - _%tl171241172133%_ - _%e171242172136%_ - _%hd171243172139%_ - _%tl171244172141%_ - _%e171245172144%_ - _%hd171246172147%_ - _%tl171247172149%_ - _%e171248172152%_ - _%hd171249172155%_ - _%tl171250172157%_)))) - (_%__match176164176165%_ - _%e171227172096%_ - _%hd171228172099%_ - _%tl171229172101%_ - _%e171230172104%_ - _%hd171231172107%_ - _%tl171232172109%_ - _%e171233172112%_ - _%hd171234172115%_ - _%tl171235172117%_ - _%e171236172120%_ - _%hd171237172123%_ - _%tl171238172125%_ - _%e171239172128%_ - _%hd171240172131%_ - _%tl171241172133%_ - _%e171242172136%_ - _%hd171243172139%_ - _%tl171244172141%_ - _%e171245172144%_ - _%hd171246172147%_ - _%tl171247172149%_ - _%e171248172152%_ - _%hd171249172155%_ - _%tl171250172157%_)))) - (_%__match176102176103%_ - _%e171227172096%_ - _%hd171228172099%_ - _%tl171229172101%_ - _%e171230172104%_ - _%hd171231172107%_ - _%tl171232172109%_ - _%e171233172112%_ - _%hd171234172115%_ - _%tl171235172117%_ - _%e171236172120%_ - _%hd171237172123%_ - _%tl171238172125%_ - _%e171239172128%_ - _%hd171240172131%_ - _%tl171241172133%_ - _%e171242172136%_ - _%hd171243172139%_ - _%tl171244172141%_ - _%e171245172144%_ - _%hd171246172147%_ - _%tl171247172149%_)) - (_%__kont175685175686%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175685175686%_)) - (_%__kont175685175686%_)) - (_%__kont175685175686%_)))) - (_%__kont175685175686%_)))) - (_%__kont175685175686%_)) - (_%__kont175685175686%_)))) + (_%__kont176817176818%_)) + (_%__kont176817176818%_)) + (_%__kont176817176818%_)))) + (_%__kont176817176818%_)))) + (_%__kont176817176818%_)) + (_%__kont176817176818%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175685175686%_)) - (_%__kont175685175686%_)) - (_%__kont175685175686%_)))) - (_%__kont175685175686%_)))) - (_%__kont175685175686%_)))) - (_%__kont175685175686%_))))))) + (_%__kont176817176818%_)) + (_%__kont176817176818%_)) + (_%__kont176817176818%_)))) + (_%__kont176817176818%_)))) + (_%__kont176817176818%_)))) + (_%__kont176817176818%_))))))) (define gxc#subst-object-refs-call% - (lambda (_%self170151%_ _%stx170152%_) - (letrec ((_%force-e170154%_ - (lambda (_%target171210%_) + (lambda (_%self171283%_ _%stx171284%_) + (letrec ((_%force-e171286%_ + (lambda (_%target172342%_) (cons '%#call (cons (cons '%#ref (cons 'force '())) - (cons (cons '%#ref (cons _%target171210%_ '())) + (cons (cons '%#ref (cons _%target172342%_ '())) '())))))) - (let* ((_%__stx176169176170%_ _%stx170152%_) - (_%g170162170384%_ + (let* ((_%__stx177301177302%_ _%stx171284%_) + (_%g171294171516%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176169176170%_))))) - (let ((_%__kont176171176172%_ - (lambda (_%L171156%_ _%L171157%_ _%L171158%_ _%L171159%_) - (let ((_%$method171204%_ - (let ((__tmp176800 + _%__stx177301177302%_))))) + (let ((_%__kont177303177304%_ + (lambda (_%L172288%_ _%L172289%_ _%L172290%_ _%L172291%_) + (let ((_%$method172336%_ + (let ((__tmp177932 (let () (declare (not safe)) - (slot-ref__0 _%self170151%_ 'methods))) - (__tmp176799 + (slot-ref__0 _%self171283%_ 'methods))) + (__tmp177931 (let () (declare (not safe)) - (gx#stx-e _%L171157%_)))) + (gx#stx-e _%L172289%_)))) (declare (not safe)) - (hash-ref__0 __tmp176800 __tmp176799))) - (_%args171205%_ - (map (lambda (_%g171192171194%_) + (hash-ref__0 __tmp177932 __tmp177931))) + (_%args172337%_ + (map (lambda (_%g172324172326%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self170151%_ - _%g171192171194%_))) - (let ((__tmp176801 - (lambda (_%g171196171199%_ - _%g171197171201%_) - (cons _%g171196171199%_ - _%g171197171201%_)))) + _%self171283%_ + _%g172324172326%_))) + (let ((__tmp177933 + (lambda (_%g172328172331%_ + _%g172329172333%_) + (cons _%g172328172331%_ + _%g172329172333%_)))) (declare (not safe)) - (__foldr1 __tmp176801 '() _%L171156%_))))) - (let ((__tmp176802 + (__foldr1 __tmp177933 '() _%L172288%_))))) + (let ((__tmp177934 (cons '%#call - (cons (_%force-e170154%_ _%$method171204%_) + (cons (_%force-e171286%_ _%$method172336%_) (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self170151%_ + _%self171283%_ 'receiver)) '())) - _%args171205%_))))) + _%args172337%_))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176802 _%stx170152%_))))) - (_%__kont176175176176%_ - (lambda (_%L170988%_ - _%L170989%_ - _%L170990%_ - _%L170991%_ - _%L170992%_) - (let ((_%$method171044%_ - (let ((__tmp176804 + (gxc#xform-wrap-source __tmp177934 _%stx171284%_))))) + (_%__kont177307177308%_ + (lambda (_%L172120%_ + _%L172121%_ + _%L172122%_ + _%L172123%_ + _%L172124%_) + (let ((_%$method172176%_ + (let ((__tmp177936 (let () (declare (not safe)) - (slot-ref__0 _%self170151%_ 'methods))) - (__tmp176803 + (slot-ref__0 _%self171283%_ 'methods))) + (__tmp177935 (let () (declare (not safe)) - (gx#stx-e _%L170989%_)))) + (gx#stx-e _%L172121%_)))) (declare (not safe)) - (hash-ref__0 __tmp176804 __tmp176803))) - (_%args171045%_ - (map (lambda (_%g171032171034%_) + (hash-ref__0 __tmp177936 __tmp177935))) + (_%args172177%_ + (map (lambda (_%g172164172166%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self170151%_ - _%g171032171034%_))) - (let ((__tmp176805 - (lambda (_%g171036171039%_ - _%g171037171041%_) - (cons _%g171036171039%_ - _%g171037171041%_)))) + _%self171283%_ + _%g172164172166%_))) + (let ((__tmp177937 + (lambda (_%g172168172171%_ + _%g172169172173%_) + (cons _%g172168172171%_ + _%g172169172173%_)))) (declare (not safe)) - (__foldr1 __tmp176805 '() _%L170988%_))))) - (let ((__tmp176806 + (__foldr1 __tmp177937 '() _%L172120%_))))) + (let ((__tmp177938 (cons '%#call (cons (cons '%#ref (cons 'apply '())) - (cons (_%force-e170154%_ - _%$method171044%_) + (cons (_%force-e171286%_ + _%$method172176%_) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self170151%_ 'receiver)) + (slot-ref__0 _%self171283%_ 'receiver)) '())) - _%args171045%_)))))) + _%args172177%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp176806 _%stx170152%_))))) - (_%__kont176179176180%_ - (lambda (_%L170819%_ _%L170820%_ _%L170821%_) - (let* ((_%$field170853%_ - (let ((__tmp176808 + (gxc#xform-wrap-source __tmp177938 _%stx171284%_))))) + (_%__kont177311177312%_ + (lambda (_%L171951%_ _%L171952%_ _%L171953%_) + (let* ((_%$field171985%_ + (let ((__tmp177940 (let () (declare (not safe)) - (slot-ref__0 _%self170151%_ 'slots))) - (__tmp176807 + (slot-ref__0 _%self171283%_ 'slots))) + (__tmp177939 (let () (declare (not safe)) - (gx#stx-e _%L170819%_)))) + (gx#stx-e _%L171951%_)))) (declare (not safe)) - (hash-ref__0 __tmp176808 __tmp176807))) - (__tmp176809 + (hash-ref__0 __tmp177940 __tmp177939))) + (__tmp177941 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self170151%_ + _%self171283%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field170853%_ + (cons _%$field171985%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self170151%_ 'receiver)) + (slot-ref__0 _%self171283%_ 'receiver)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176809 _%stx170152%_)))) - (_%__kont176181176182%_ - (lambda (_%L170693%_ _%L170694%_ _%L170695%_ _%L170696%_) - (let ((_%$field170731%_ - (let ((__tmp176811 + (gxc#xform-wrap-source __tmp177941 _%stx171284%_)))) + (_%__kont177313177314%_ + (lambda (_%L171825%_ _%L171826%_ _%L171827%_ _%L171828%_) + (let ((_%$field171863%_ + (let ((__tmp177943 (let () (declare (not safe)) - (slot-ref__0 _%self170151%_ 'slots))) - (__tmp176810 + (slot-ref__0 _%self171283%_ 'slots))) + (__tmp177942 (let () (declare (not safe)) - (gx#stx-e _%L170694%_)))) + (gx#stx-e _%L171826%_)))) (declare (not safe)) - (hash-ref__0 __tmp176811 __tmp176810))) - (_%expr170732%_ + (hash-ref__0 __tmp177943 __tmp177942))) + (_%expr171864%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self170151%_ _%L170693%_)))) - (let ((__tmp176812 + (gxc#compile-e__1 _%self171283%_ _%L171825%_)))) + (let ((__tmp177944 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self170151%_ + _%self171283%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field170731%_ + (cons _%$field171863%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self170151%_ 'receiver)) + (slot-ref__0 _%self171283%_ 'receiver)) '())) - (cons _%expr170732%_ '()))))))) + (cons _%expr171864%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp176812 _%stx170152%_))))) - (_%__kont176183176184%_ - (lambda (_%L170565%_ _%L170566%_) - (let* ((_%accessor170588%_ - (let ((__tmp176813 + (gxc#xform-wrap-source __tmp177944 _%stx171284%_))))) + (_%__kont177315177316%_ + (lambda (_%L171697%_ _%L171698%_) + (let* ((_%accessor171720%_ + (let ((__tmp177945 (let () (declare (not safe)) - (gxc#identifier-symbol _%L170566%_)))) + (gxc#identifier-symbol _%L171698%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp176813))) - (_%klass170590%_ - (let ((__tmp176814 + (gxc#optimizer-resolve-type __tmp177945))) + (_%klass171722%_ + (let ((__tmp177946 (##structure-ref - _%accessor170588%_ + _%accessor171720%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx170152%_ - __tmp176814))) - (_%slot170592%_ + _%stx171284%_ + __tmp177946))) + (_%slot171724%_ (##structure-ref - _%accessor170588%_ + _%accessor171720%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor170588%_ + _%accessor171720%_ '4 gxc#!accessor::t '#f) @@ -6959,37 +6959,37 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass170590%_ - _%slot170592%_)) + _%klass171722%_ + _%slot171724%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass170590%_ + _%klass171722%_ '8 '#f '#f)))) - _%stx170152%_ - (let* ((_%$field170598%_ - (let ((__tmp176815 + _%stx171284%_ + (let* ((_%$field171730%_ + (let ((__tmp177947 (let () (declare (not safe)) (slot-ref__0 - _%self170151%_ + _%self171283%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp176815 _%slot170592%_))) - (__tmp176816 + (hash-ref__0 __tmp177947 _%slot171724%_))) + (__tmp177948 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self170151%_ + _%self171283%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field170598%_ + (cons _%$field171730%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6997,46 +6997,46 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self170151%_ 'receiver)) + (slot-ref__0 _%self171283%_ 'receiver)) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176816 - _%stx170152%_)))))) - (_%__kont176185176186%_ - (lambda (_%L170460%_ _%L170461%_ _%L170462%_) - (let* ((_%mutator170490%_ - (let ((__tmp176817 + __tmp177948 + _%stx171284%_)))))) + (_%__kont177317177318%_ + (lambda (_%L171592%_ _%L171593%_ _%L171594%_) + (let* ((_%mutator171622%_ + (let ((__tmp177949 (let () (declare (not safe)) - (gxc#identifier-symbol _%L170462%_)))) + (gxc#identifier-symbol _%L171594%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp176817))) - (_%klass170492%_ - (let ((__tmp176818 + (gxc#optimizer-resolve-type __tmp177949))) + (_%klass171624%_ + (let ((__tmp177950 (##structure-ref - _%mutator170490%_ + _%mutator171622%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx170152%_ - __tmp176818))) - (_%slot170494%_ + _%stx171284%_ + __tmp177950))) + (_%slot171626%_ (##structure-ref - _%mutator170490%_ + _%mutator171622%_ '3 gxc#!mutator::t '#f)) - (_%expr170496%_ + (_%expr171628%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self170151%_ _%L170460%_)))) + (gxc#compile-e__1 _%self171283%_ _%L171592%_)))) (if (if (##structure-ref - _%mutator170490%_ + _%mutator171622%_ '4 gxc#!mutator::t '#f) @@ -7044,56 +7044,56 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass170492%_ - _%slot170494%_)) + _%klass171624%_ + _%slot171626%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass170492%_ + _%klass171624%_ '8 '#f '#f)))) - (let ((__tmp176819 + (let ((__tmp177951 (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L170462%_ '())) + (cons _%L171594%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L170461%_ + (cons _%L171593%_ '())) - (cons _%expr170496%_ + (cons _%expr171628%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176819 _%stx170152%_)) - (let* ((_%$field170502%_ - (let ((__tmp176820 + (gxc#xform-wrap-source __tmp177951 _%stx171284%_)) + (let* ((_%$field171634%_ + (let ((__tmp177952 (let () (declare (not safe)) (slot-ref__0 - _%self170151%_ + _%self171283%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp176820 _%slot170494%_))) - (__tmp176821 + (hash-ref__0 __tmp177952 _%slot171626%_))) + (__tmp177953 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self170151%_ + _%self171283%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field170502%_ + (cons _%$field171634%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -7101,1846 +7101,1846 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self170151%_ 'receiver)) + (slot-ref__0 _%self171283%_ 'receiver)) '())) - (cons _%expr170496%_ '()))))))) + (cons _%expr171628%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176821 - _%stx170152%_)))))) - (_%__kont176187176188%_ + __tmp177953 + _%stx171284%_)))))) + (_%__kont177319177320%_ (lambda () (let () (declare (not safe)) - (gxc#xform-operands _%self170151%_ _%stx170152%_))))) - (let* ((_%__match176668176669%_ - (lambda (_%e170356170396%_ - _%hd170357170399%_ - _%tl170358170401%_ - _%e170359170404%_ - _%hd170360170407%_ - _%tl170361170409%_ - _%e170362170412%_ - _%hd170363170415%_ - _%tl170364170417%_ - _%e170365170420%_ - _%hd170366170423%_ - _%tl170367170425%_ - _%e170368170428%_ - _%hd170369170431%_ - _%tl170370170433%_ - _%e170371170436%_ - _%hd170372170439%_ - _%tl170373170441%_ - _%e170374170444%_ - _%hd170375170447%_ - _%tl170376170449%_ - _%e170377170452%_ - _%hd170378170455%_ - _%tl170379170457%_) - (let ((_%L170460%_ _%hd170378170455%_) - (_%L170461%_ _%hd170375170447%_) - (_%L170462%_ _%hd170366170423%_)) - (if (and (let ((__tmp176822 + (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 (let () (declare (not safe)) (slot-ref__0 - _%self170151%_ + _%self171283%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L170461%_ - __tmp176822)) - (let ((__tmp176823 - (let ((__tmp176824 + _%L171593%_ + __tmp177954)) + (let ((__tmp177955 + (let ((__tmp177956 (let () (declare (not safe)) (gxc#identifier-symbol - _%L170462%_)))) + _%L171594%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp176824)))) + __tmp177956)))) (declare (not safe)) (##structure-instance-of? - __tmp176823 + __tmp177955 'gxc#!mutator::t))) - (_%__kont176185176186%_ - _%L170460%_ - _%L170461%_ - _%L170462%_) - (_%__kont176187176188%_))))) - (_%__match176666176667%_ - (lambda (_%e170356170396%_ - _%hd170357170399%_ - _%tl170358170401%_ - _%e170359170404%_ - _%hd170360170407%_ - _%tl170361170409%_ - _%e170362170412%_ - _%hd170363170415%_ - _%tl170364170417%_ - _%e170365170420%_ - _%hd170366170423%_ - _%tl170367170425%_ - _%e170368170428%_ - _%hd170369170431%_ - _%tl170370170433%_ - _%e170371170436%_ - _%hd170372170439%_ - _%tl170373170441%_ - _%e170374170444%_ - _%hd170375170447%_ - _%tl170376170449%_ - _%e170377170452%_ - _%hd170378170455%_ - _%tl170379170457%_) + (_%__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%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170379170457%_)) - (_%__match176668176669%_ - _%e170356170396%_ - _%hd170357170399%_ - _%tl170358170401%_ - _%e170359170404%_ - _%hd170360170407%_ - _%tl170361170409%_ - _%e170362170412%_ - _%hd170363170415%_ - _%tl170364170417%_ - _%e170365170420%_ - _%hd170366170423%_ - _%tl170367170425%_ - _%e170368170428%_ - _%hd170369170431%_ - _%tl170370170433%_ - _%e170371170436%_ - _%hd170372170439%_ - _%tl170373170441%_ - _%e170374170444%_ - _%hd170375170447%_ - _%tl170376170449%_ - _%e170377170452%_ - _%hd170378170455%_ - _%tl170379170457%_) - (_%__kont176187176188%_)))) - (_%__match176660176661%_ - (lambda (_%e170356170396%_ - _%hd170357170399%_ - _%tl170358170401%_ - _%e170359170404%_ - _%hd170360170407%_ - _%tl170361170409%_ - _%e170362170412%_ - _%hd170363170415%_ - _%tl170364170417%_ - _%e170365170420%_ - _%hd170366170423%_ - _%tl170367170425%_ - _%e170368170428%_ - _%hd170369170431%_ - _%tl170370170433%_ - _%e170371170436%_ - _%hd170372170439%_ - _%tl170373170441%_ - _%e170374170444%_ - _%hd170375170447%_ - _%tl170376170449%_) + (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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl170370170433%_)) - (let ((_%e170377170452%_ + (gx#stx-pair? _%tl171502171565%_)) + (let ((_%e171509171584%_ (let () (declare (not safe)) - (gx#stx-e _%tl170370170433%_)))) - (let ((_%tl170379170457%_ + (gx#stx-e _%tl171502171565%_)))) + (let ((_%tl171511171589%_ (let () (declare (not safe)) - (##cdr _%e170377170452%_))) - (_%hd170378170455%_ + (##cdr _%e171509171584%_))) + (_%hd171510171587%_ (let () (declare (not safe)) - (##car _%e170377170452%_)))) + (##car _%e171509171584%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170379170457%_)) - (_%__match176668176669%_ - _%e170356170396%_ - _%hd170357170399%_ - _%tl170358170401%_ - _%e170359170404%_ - _%hd170360170407%_ - _%tl170361170409%_ - _%e170362170412%_ - _%hd170363170415%_ - _%tl170364170417%_ - _%e170365170420%_ - _%hd170366170423%_ - _%tl170367170425%_ - _%e170368170428%_ - _%hd170369170431%_ - _%tl170370170433%_ - _%e170371170436%_ - _%hd170372170439%_ - _%tl170373170441%_ - _%e170374170444%_ - _%hd170375170447%_ - _%tl170376170449%_ - _%e170377170452%_ - _%hd170378170455%_ - _%tl170379170457%_) - (_%__kont176187176188%_)))) - (_%__kont176187176188%_)))) - (_%__match176606176607%_ - (lambda (_%e170332170509%_ - _%hd170333170512%_ - _%tl170334170514%_ - _%e170335170517%_ - _%hd170336170520%_ - _%tl170337170522%_ - _%e170338170525%_ - _%hd170339170528%_ - _%tl170340170530%_ - _%e170341170533%_ - _%hd170342170536%_ - _%tl170343170538%_ - _%e170344170541%_ - _%hd170345170544%_ - _%tl170346170546%_ - _%e170347170549%_ - _%hd170348170552%_ - _%tl170349170554%_ - _%e170350170557%_ - _%hd170351170560%_ - _%tl170352170562%_) - (let ((_%L170565%_ _%hd170351170560%_) - (_%L170566%_ _%hd170342170536%_)) - (if (and (let ((__tmp176825 + (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 (let () (declare (not safe)) (slot-ref__0 - _%self170151%_ + _%self171283%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L170565%_ - __tmp176825)) - (let ((__tmp176826 - (let ((__tmp176827 + _%L171697%_ + __tmp177957)) + (let ((__tmp177958 + (let ((__tmp177959 (let () (declare (not safe)) (gxc#identifier-symbol - _%L170566%_)))) + _%L171698%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp176827)))) + __tmp177959)))) (declare (not safe)) (##structure-instance-of? - __tmp176826 + __tmp177958 'gxc#!accessor::t))) - (_%__kont176183176184%_ _%L170565%_ _%L170566%_) - (_%__kont176187176188%_))))) - (_%__match176604176605%_ - (lambda (_%e170332170509%_ - _%hd170333170512%_ - _%tl170334170514%_ - _%e170335170517%_ - _%hd170336170520%_ - _%tl170337170522%_ - _%e170338170525%_ - _%hd170339170528%_ - _%tl170340170530%_ - _%e170341170533%_ - _%hd170342170536%_ - _%tl170343170538%_ - _%e170344170541%_ - _%hd170345170544%_ - _%tl170346170546%_ - _%e170347170549%_ - _%hd170348170552%_ - _%tl170349170554%_ - _%e170350170557%_ - _%hd170351170560%_ - _%tl170352170562%_) + (_%__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%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170346170546%_)) - (_%__match176606176607%_ - _%e170332170509%_ - _%hd170333170512%_ - _%tl170334170514%_ - _%e170335170517%_ - _%hd170336170520%_ - _%tl170337170522%_ - _%e170338170525%_ - _%hd170339170528%_ - _%tl170340170530%_ - _%e170341170533%_ - _%hd170342170536%_ - _%tl170343170538%_ - _%e170344170541%_ - _%hd170345170544%_ - _%tl170346170546%_ - _%e170347170549%_ - _%hd170348170552%_ - _%tl170349170554%_ - _%e170350170557%_ - _%hd170351170560%_ - _%tl170352170562%_) - (_%__match176660176661%_ - _%e170332170509%_ - _%hd170333170512%_ - _%tl170334170514%_ - _%e170335170517%_ - _%hd170336170520%_ - _%tl170337170522%_ - _%e170338170525%_ - _%hd170339170528%_ - _%tl170340170530%_ - _%e170341170533%_ - _%hd170342170536%_ - _%tl170343170538%_ - _%e170344170541%_ - _%hd170345170544%_ - _%tl170346170546%_ - _%e170347170549%_ - _%hd170348170552%_ - _%tl170349170554%_ - _%e170350170557%_ - _%hd170351170560%_ - _%tl170352170562%_)))) - (_%__match176550176551%_ - (lambda (_%e170297170605%_ - _%hd170298170608%_ - _%tl170299170610%_ - _%e170300170613%_ - _%hd170301170616%_ - _%tl170302170618%_ - _%e170303170621%_ - _%hd170304170624%_ - _%tl170305170626%_ - _%e170306170629%_ - _%hd170307170632%_ - _%tl170308170634%_ - _%e170309170637%_ - _%hd170310170640%_ - _%tl170311170642%_ - _%e170312170645%_ - _%hd170313170648%_ - _%tl170314170650%_ - _%e170315170653%_ - _%hd170316170656%_ - _%tl170317170658%_ - _%e170318170661%_ - _%hd170319170664%_ - _%tl170320170666%_ - _%e170321170669%_ - _%hd170322170672%_ - _%tl170323170674%_ - _%e170324170677%_ - _%hd170325170680%_ - _%tl170326170682%_ - _%e170327170685%_ - _%hd170328170688%_ - _%tl170329170690%_) - (let ((_%L170693%_ _%hd170328170688%_) - (_%L170694%_ _%hd170325170680%_) - (_%L170695%_ _%hd170316170656%_) - (_%L170696%_ _%hd170307170632%_)) + (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%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L170696%_ + _%L171828%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L170696%_ + _%L171828%_ 'unchecked-slot-set!))) - (let ((__tmp176828 + (let ((__tmp177960 (let () (declare (not safe)) (slot-ref__0 - _%self170151%_ + _%self171283%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L170695%_ - __tmp176828))) - (_%__kont176181176182%_ - _%L170693%_ - _%L170694%_ - _%L170695%_ - _%L170696%_) - (_%__kont176187176188%_))))) - (_%__match176542176543%_ - (lambda (_%e170297170605%_ - _%hd170298170608%_ - _%tl170299170610%_ - _%e170300170613%_ - _%hd170301170616%_ - _%tl170302170618%_ - _%e170303170621%_ - _%hd170304170624%_ - _%tl170305170626%_ - _%e170306170629%_ - _%hd170307170632%_ - _%tl170308170634%_ - _%e170309170637%_ - _%hd170310170640%_ - _%tl170311170642%_ - _%e170312170645%_ - _%hd170313170648%_ - _%tl170314170650%_ - _%e170315170653%_ - _%hd170316170656%_ - _%tl170317170658%_ - _%e170318170661%_ - _%hd170319170664%_ - _%tl170320170666%_ - _%e170321170669%_ - _%hd170322170672%_ - _%tl170323170674%_ - _%e170324170677%_ - _%hd170325170680%_ - _%tl170326170682%_) + _%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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl170320170666%_)) - (let ((_%e170327170685%_ + (gx#stx-pair? _%tl171452171798%_)) + (let ((_%e171459171817%_ (let () (declare (not safe)) - (gx#stx-e _%tl170320170666%_)))) - (let ((_%tl170329170690%_ + (gx#stx-e _%tl171452171798%_)))) + (let ((_%tl171461171822%_ (let () (declare (not safe)) - (##cdr _%e170327170685%_))) - (_%hd170328170688%_ + (##cdr _%e171459171817%_))) + (_%hd171460171820%_ (let () (declare (not safe)) - (##car _%e170327170685%_)))) + (##car _%e171459171817%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170329170690%_)) - (_%__match176550176551%_ - _%e170297170605%_ - _%hd170298170608%_ - _%tl170299170610%_ - _%e170300170613%_ - _%hd170301170616%_ - _%tl170302170618%_ - _%e170303170621%_ - _%hd170304170624%_ - _%tl170305170626%_ - _%e170306170629%_ - _%hd170307170632%_ - _%tl170308170634%_ - _%e170309170637%_ - _%hd170310170640%_ - _%tl170311170642%_ - _%e170312170645%_ - _%hd170313170648%_ - _%tl170314170650%_ - _%e170315170653%_ - _%hd170316170656%_ - _%tl170317170658%_ - _%e170318170661%_ - _%hd170319170664%_ - _%tl170320170666%_ - _%e170321170669%_ - _%hd170322170672%_ - _%tl170323170674%_ - _%e170324170677%_ - _%hd170325170680%_ - _%tl170326170682%_ - _%e170327170685%_ - _%hd170328170688%_ - _%tl170329170690%_) - (_%__kont176187176188%_)))) - (_%__match176666176667%_ - _%e170297170605%_ - _%hd170298170608%_ - _%tl170299170610%_ - _%e170300170613%_ - _%hd170301170616%_ - _%tl170302170618%_ - _%e170303170621%_ - _%hd170304170624%_ - _%tl170305170626%_ - _%e170306170629%_ - _%hd170307170632%_ - _%tl170308170634%_ - _%e170309170637%_ - _%hd170310170640%_ - _%tl170311170642%_ - _%e170312170645%_ - _%hd170313170648%_ - _%tl170314170650%_ - _%e170315170653%_ - _%hd170316170656%_ - _%tl170317170658%_ - _%e170318170661%_ - _%hd170319170664%_ - _%tl170320170666%_)))) - (_%__match176464176465%_ - (lambda (_%e170263170739%_ - _%hd170264170742%_ - _%tl170265170744%_ - _%e170266170747%_ - _%hd170267170750%_ - _%tl170268170752%_ - _%e170269170755%_ - _%hd170270170758%_ - _%tl170271170760%_ - _%e170272170763%_ - _%hd170273170766%_ - _%tl170274170768%_ - _%e170275170771%_ - _%hd170276170774%_ - _%tl170277170776%_ - _%e170278170779%_ - _%hd170279170782%_ - _%tl170280170784%_ - _%e170281170787%_ - _%hd170282170790%_ - _%tl170283170792%_ - _%e170284170795%_ - _%hd170285170798%_ - _%tl170286170800%_ - _%e170287170803%_ - _%hd170288170806%_ - _%tl170289170808%_ - _%e170290170811%_ - _%hd170291170814%_ - _%tl170292170816%_) - (let ((_%L170819%_ _%hd170291170814%_) - (_%L170820%_ _%hd170282170790%_) - (_%L170821%_ _%hd170273170766%_)) + (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%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L170821%_ + _%L171953%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L170821%_ + _%L171953%_ 'unchecked-slot-ref))) - (let ((__tmp176829 + (let ((__tmp177961 (let () (declare (not safe)) (slot-ref__0 - _%self170151%_ + _%self171283%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L170820%_ - __tmp176829))) - (_%__kont176179176180%_ - _%L170819%_ - _%L170820%_ - _%L170821%_) - (_%__match176668176669%_ - _%e170263170739%_ - _%hd170264170742%_ - _%tl170265170744%_ - _%e170266170747%_ - _%hd170267170750%_ - _%tl170268170752%_ - _%e170269170755%_ - _%hd170270170758%_ - _%tl170271170760%_ - _%e170272170763%_ - _%hd170273170766%_ - _%tl170274170768%_ - _%e170275170771%_ - _%hd170276170774%_ - _%tl170277170776%_ - _%e170278170779%_ - _%hd170279170782%_ - _%tl170280170784%_ - _%e170281170787%_ - _%hd170282170790%_ - _%tl170283170792%_ - _%e170284170795%_ - _%hd170285170798%_ - _%tl170286170800%_))))) - (_%__match176462176463%_ - (lambda (_%e170263170739%_ - _%hd170264170742%_ - _%tl170265170744%_ - _%e170266170747%_ - _%hd170267170750%_ - _%tl170268170752%_ - _%e170269170755%_ - _%hd170270170758%_ - _%tl170271170760%_ - _%e170272170763%_ - _%hd170273170766%_ - _%tl170274170768%_ - _%e170275170771%_ - _%hd170276170774%_ - _%tl170277170776%_ - _%e170278170779%_ - _%hd170279170782%_ - _%tl170280170784%_ - _%e170281170787%_ - _%hd170282170790%_ - _%tl170283170792%_ - _%e170284170795%_ - _%hd170285170798%_ - _%tl170286170800%_ - _%e170287170803%_ - _%hd170288170806%_ - _%tl170289170808%_ - _%e170290170811%_ - _%hd170291170814%_ - _%tl170292170816%_) + _%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%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170286170800%_)) - (_%__match176464176465%_ - _%e170263170739%_ - _%hd170264170742%_ - _%tl170265170744%_ - _%e170266170747%_ - _%hd170267170750%_ - _%tl170268170752%_ - _%e170269170755%_ - _%hd170270170758%_ - _%tl170271170760%_ - _%e170272170763%_ - _%hd170273170766%_ - _%tl170274170768%_ - _%e170275170771%_ - _%hd170276170774%_ - _%tl170277170776%_ - _%e170278170779%_ - _%hd170279170782%_ - _%tl170280170784%_ - _%e170281170787%_ - _%hd170282170790%_ - _%tl170283170792%_ - _%e170284170795%_ - _%hd170285170798%_ - _%tl170286170800%_ - _%e170287170803%_ - _%hd170288170806%_ - _%tl170289170808%_ - _%e170290170811%_ - _%hd170291170814%_ - _%tl170292170816%_) - (_%__match176542176543%_ - _%e170263170739%_ - _%hd170264170742%_ - _%tl170265170744%_ - _%e170266170747%_ - _%hd170267170750%_ - _%tl170268170752%_ - _%e170269170755%_ - _%hd170270170758%_ - _%tl170271170760%_ - _%e170272170763%_ - _%hd170273170766%_ - _%tl170274170768%_ - _%e170275170771%_ - _%hd170276170774%_ - _%tl170277170776%_ - _%e170278170779%_ - _%hd170279170782%_ - _%tl170280170784%_ - _%e170281170787%_ - _%hd170282170790%_ - _%tl170283170792%_ - _%e170284170795%_ - _%hd170285170798%_ - _%tl170286170800%_ - _%e170287170803%_ - _%hd170288170806%_ - _%tl170289170808%_ - _%e170290170811%_ - _%hd170291170814%_ - _%tl170292170816%_)))) - (_%__match176452176453%_ - (lambda (_%e170263170739%_ - _%hd170264170742%_ - _%tl170265170744%_ - _%e170266170747%_ - _%hd170267170750%_ - _%tl170268170752%_ - _%e170269170755%_ - _%hd170270170758%_ - _%tl170271170760%_ - _%e170272170763%_ - _%hd170273170766%_ - _%tl170274170768%_ - _%e170275170771%_ - _%hd170276170774%_ - _%tl170277170776%_ - _%e170278170779%_ - _%hd170279170782%_ - _%tl170280170784%_ - _%e170281170787%_ - _%hd170282170790%_ - _%tl170283170792%_ - _%e170284170795%_ - _%hd170285170798%_ - _%tl170286170800%_ - _%e170287170803%_ - _%hd170288170806%_ - _%tl170289170808%_) + (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%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd170288170806%_)) + (gx#stx-eq? '%#quote _%hd171420171938%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl170289170808%_)) - (let ((_%e170290170811%_ + (gx#stx-pair? _%tl171421171940%_)) + (let ((_%e171422171943%_ (let () (declare (not safe)) - (gx#stx-e _%tl170289170808%_)))) - (let ((_%tl170292170816%_ + (gx#stx-e _%tl171421171940%_)))) + (let ((_%tl171424171948%_ (let () (declare (not safe)) - (##cdr _%e170290170811%_))) - (_%hd170291170814%_ + (##cdr _%e171422171943%_))) + (_%hd171423171946%_ (let () (declare (not safe)) - (##car _%e170290170811%_)))) + (##car _%e171422171943%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170292170816%_)) + (gx#stx-null? _%tl171424171948%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl170286170800%_)) - (_%__match176464176465%_ - _%e170263170739%_ - _%hd170264170742%_ - _%tl170265170744%_ - _%e170266170747%_ - _%hd170267170750%_ - _%tl170268170752%_ - _%e170269170755%_ - _%hd170270170758%_ - _%tl170271170760%_ - _%e170272170763%_ - _%hd170273170766%_ - _%tl170274170768%_ - _%e170275170771%_ - _%hd170276170774%_ - _%tl170277170776%_ - _%e170278170779%_ - _%hd170279170782%_ - _%tl170280170784%_ - _%e170281170787%_ - _%hd170282170790%_ - _%tl170283170792%_ - _%e170284170795%_ - _%hd170285170798%_ - _%tl170286170800%_ - _%e170287170803%_ - _%hd170288170806%_ - _%tl170289170808%_ - _%e170290170811%_ - _%hd170291170814%_ - _%tl170292170816%_) - (_%__match176542176543%_ - _%e170263170739%_ - _%hd170264170742%_ - _%tl170265170744%_ - _%e170266170747%_ - _%hd170267170750%_ - _%tl170268170752%_ - _%e170269170755%_ - _%hd170270170758%_ - _%tl170271170760%_ - _%e170272170763%_ - _%hd170273170766%_ - _%tl170274170768%_ - _%e170275170771%_ - _%hd170276170774%_ - _%tl170277170776%_ - _%e170278170779%_ - _%hd170279170782%_ - _%tl170280170784%_ - _%e170281170787%_ - _%hd170282170790%_ - _%tl170283170792%_ - _%e170284170795%_ - _%hd170285170798%_ - _%tl170286170800%_ - _%e170287170803%_ - _%hd170288170806%_ - _%tl170289170808%_ - _%e170290170811%_ - _%hd170291170814%_ - _%tl170292170816%_)) - (_%__match176666176667%_ - _%e170263170739%_ - _%hd170264170742%_ - _%tl170265170744%_ - _%e170266170747%_ - _%hd170267170750%_ - _%tl170268170752%_ - _%e170269170755%_ - _%hd170270170758%_ - _%tl170271170760%_ - _%e170272170763%_ - _%hd170273170766%_ - _%tl170274170768%_ - _%e170275170771%_ - _%hd170276170774%_ - _%tl170277170776%_ - _%e170278170779%_ - _%hd170279170782%_ - _%tl170280170784%_ - _%e170281170787%_ - _%hd170282170790%_ - _%tl170283170792%_ - _%e170284170795%_ - _%hd170285170798%_ - _%tl170286170800%_)))) - (_%__match176666176667%_ - _%e170263170739%_ - _%hd170264170742%_ - _%tl170265170744%_ - _%e170266170747%_ - _%hd170267170750%_ - _%tl170268170752%_ - _%e170269170755%_ - _%hd170270170758%_ - _%tl170271170760%_ - _%e170272170763%_ - _%hd170273170766%_ - _%tl170274170768%_ - _%e170275170771%_ - _%hd170276170774%_ - _%tl170277170776%_ - _%e170278170779%_ - _%hd170279170782%_ - _%tl170280170784%_ - _%e170281170787%_ - _%hd170282170790%_ - _%tl170283170792%_ - _%e170284170795%_ - _%hd170285170798%_ - _%tl170286170800%_)) - (_%__match176666176667%_ - _%e170263170739%_ - _%hd170264170742%_ - _%tl170265170744%_ - _%e170266170747%_ - _%hd170267170750%_ - _%tl170268170752%_ - _%e170269170755%_ - _%hd170270170758%_ - _%tl170271170760%_ - _%e170272170763%_ - _%hd170273170766%_ - _%tl170274170768%_ - _%e170275170771%_ - _%hd170276170774%_ - _%tl170277170776%_ - _%e170278170779%_ - _%hd170279170782%_ - _%tl170280170784%_ - _%e170281170787%_ - _%hd170282170790%_ - _%tl170283170792%_ - _%e170284170795%_ - _%hd170285170798%_ - _%tl170286170800%_)))) - (_%__match176384176385%_ - (lambda (_%e170212170860%_ - _%hd170213170863%_ - _%tl170214170865%_ - _%e170215170868%_ - _%hd170216170871%_ - _%tl170217170873%_ - _%e170218170876%_ - _%hd170219170879%_ - _%tl170220170881%_ - _%e170221170884%_ - _%hd170222170887%_ - _%tl170223170889%_ - _%e170224170892%_ - _%hd170225170895%_ - _%tl170226170897%_ - _%e170227170900%_ - _%hd170228170903%_ - _%tl170229170905%_ - _%e170230170908%_ - _%hd170231170911%_ - _%tl170232170913%_ - _%e170233170916%_ - _%hd170234170919%_ - _%tl170235170921%_ - _%e170236170924%_ - _%hd170237170927%_ - _%tl170238170929%_ - _%e170239170932%_ - _%hd170240170935%_ - _%tl170241170937%_ - _%e170242170940%_ - _%hd170243170943%_ - _%tl170244170945%_ - _%e170245170948%_ - _%hd170246170951%_ - _%tl170247170953%_ - _%e170248170956%_ - _%hd170249170959%_ - _%tl170250170961%_ - _%__splice176177176178%_ - _%target170251170964%_ - _%tl170253170966%_) - (letrec ((_%loop170254170969%_ - (lambda (_%hd170252170972%_ - _%args170258170974%_) + _%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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd170252170972%_)) - (let ((_%e170255170977%_ + (gx#stx-pair? _%hd171384172104%_)) + (let ((_%e171387172109%_ (let () (declare (not safe)) (gx#stx-e - _%hd170252170972%_)))) - (let ((_%lp-tl170257170982%_ + _%hd171384172104%_)))) + (let ((_%lp-tl171389172114%_ (let () (declare (not safe)) - (##cdr _%e170255170977%_))) - (_%lp-hd170256170980%_ + (##cdr _%e171387172109%_))) + (_%lp-hd171388172112%_ (let () (declare (not safe)) - (##car _%e170255170977%_)))) - (_%loop170254170969%_ - _%lp-tl170257170982%_ - (cons _%lp-hd170256170980%_ - _%args170258170974%_)))) - (let ((_%args170259170985%_ - (reverse _%args170258170974%_))) - (let ((_%L170988%_ - _%args170259170985%_) - (_%L170989%_ - _%hd170249170959%_) - (_%L170990%_ - _%hd170240170935%_) - (_%L170991%_ - _%hd170231170911%_) - (_%L170992%_ - _%hd170222170887%_)) + (##car _%e171387172109%_)))) + (_%loop171386172101%_ + _%lp-tl171389172114%_ + (cons _%lp-hd171388172112%_ + _%args171390172106%_)))) + (let ((_%args171391172117%_ + (reverse _%args171390172106%_))) + (let ((_%L172120%_ + _%args171391172117%_) + (_%L172121%_ + _%hd171381172091%_) + (_%L172122%_ + _%hd171372172067%_) + (_%L172123%_ + _%hd171363172043%_) + (_%L172124%_ + _%hd171354172019%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L170992%_ + _%L172124%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L170991%_ + _%L172123%_ 'call-method)) - (let ((__tmp176830 + (let ((__tmp177962 (let () (declare (not safe)) (slot-ref__0 - _%self170151%_ + _%self171283%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L170990%_ - __tmp176830))) - (_%__kont176175176176%_ - _%L170988%_ - _%L170989%_ - _%L170990%_ - _%L170991%_ - _%L170992%_) - (_%__kont176187176188%_)))))))) - (_%loop170254170969%_ _%target170251170964%_ '())))) - (_%__match176342176343%_ - (lambda (_%e170212170860%_ - _%hd170213170863%_ - _%tl170214170865%_ - _%e170215170868%_ - _%hd170216170871%_ - _%tl170217170873%_ - _%e170218170876%_ - _%hd170219170879%_ - _%tl170220170881%_ - _%e170221170884%_ - _%hd170222170887%_ - _%tl170223170889%_ - _%e170224170892%_ - _%hd170225170895%_ - _%tl170226170897%_ - _%e170227170900%_ - _%hd170228170903%_ - _%tl170229170905%_ - _%e170230170908%_ - _%hd170231170911%_ - _%tl170232170913%_ - _%e170233170916%_ - _%hd170234170919%_ - _%tl170235170921%_ - _%e170236170924%_ - _%hd170237170927%_ - _%tl170238170929%_) + _%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%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd170237170927%_)) + (gx#stx-eq? '%#ref _%hd171369172059%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl170238170929%_)) - (let ((_%e170239170932%_ + (gx#stx-pair? _%tl171370172061%_)) + (let ((_%e171371172064%_ (let () (declare (not safe)) - (gx#stx-e _%tl170238170929%_)))) - (let ((_%tl170241170937%_ + (gx#stx-e _%tl171370172061%_)))) + (let ((_%tl171373172069%_ (let () (declare (not safe)) - (##cdr _%e170239170932%_))) - (_%hd170240170935%_ + (##cdr _%e171371172064%_))) + (_%hd171372172067%_ (let () (declare (not safe)) - (##car _%e170239170932%_)))) + (##car _%e171371172064%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170241170937%_)) + (gx#stx-null? _%tl171373172069%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl170235170921%_)) - (let ((_%e170242170940%_ + _%tl171367172053%_)) + (let ((_%e171374172072%_ (let () (declare (not safe)) (gx#stx-e - _%tl170235170921%_)))) - (let ((_%tl170244170945%_ + _%tl171367172053%_)))) + (let ((_%tl171376172077%_ (let () (declare (not safe)) - (##cdr _%e170242170940%_))) - (_%hd170243170943%_ + (##cdr _%e171374172072%_))) + (_%hd171375172075%_ (let () (declare (not safe)) - (##car _%e170242170940%_)))) + (##car _%e171374172072%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd170243170943%_)) - (let ((_%e170245170948%_ + _%hd171375172075%_)) + (let ((_%e171377172080%_ (let () (declare (not safe)) (gx#stx-e - _%hd170243170943%_)))) - (let ((_%tl170247170953%_ + _%hd171375172075%_)))) + (let ((_%tl171379172085%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e170245170948%_))) - (_%hd170246170951%_ - (let () (declare (not safe)) (##car _%e170245170948%_)))) + (##cdr _%e171377172080%_))) + (_%hd171378172083%_ + (let () (declare (not safe)) (##car _%e171377172080%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd170246170951%_)) + (gx#identifier? _%hd171378172083%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd170246170951%_)) + (gx#stx-eq? '%#quote _%hd171378172083%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl170247170953%_)) - (let ((_%e170248170956%_ + (gx#stx-pair? _%tl171379172085%_)) + (let ((_%e171380172088%_ (let () (declare (not safe)) - (gx#stx-e _%tl170247170953%_)))) - (let ((_%tl170250170961%_ + (gx#stx-e _%tl171379172085%_)))) + (let ((_%tl171382172093%_ (let () (declare (not safe)) - (##cdr _%e170248170956%_))) - (_%hd170249170959%_ + (##cdr _%e171380172088%_))) + (_%hd171381172091%_ (let () (declare (not safe)) - (##car _%e170248170956%_)))) + (##car _%e171380172088%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170250170961%_)) + (gx#stx-null? _%tl171382172093%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl170244170945%_)) - (let ((_%__splice176177176178%_ + _%tl171376172077%_)) + (let ((_%__splice177309177310%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl170244170945%_ + _%tl171376172077%_ '0)))) - (let ((_%tl170253170966%_ + (let ((_%tl171385172098%_ (let () (declare (not safe)) (##vector-ref - _%__splice176177176178%_ + _%__splice177309177310%_ '1))) - (_%target170251170964%_ + (_%target171383172096%_ (let () (declare (not safe)) (##vector-ref - _%__splice176177176178%_ + _%__splice177309177310%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl170253170966%_)) - (_%__match176384176385%_ - _%e170212170860%_ - _%hd170213170863%_ - _%tl170214170865%_ - _%e170215170868%_ - _%hd170216170871%_ - _%tl170217170873%_ - _%e170218170876%_ - _%hd170219170879%_ - _%tl170220170881%_ - _%e170221170884%_ - _%hd170222170887%_ - _%tl170223170889%_ - _%e170224170892%_ - _%hd170225170895%_ - _%tl170226170897%_ - _%e170227170900%_ - _%hd170228170903%_ - _%tl170229170905%_ - _%e170230170908%_ - _%hd170231170911%_ - _%tl170232170913%_ - _%e170233170916%_ - _%hd170234170919%_ - _%tl170235170921%_ - _%e170236170924%_ - _%hd170237170927%_ - _%tl170238170929%_ - _%e170239170932%_ - _%hd170240170935%_ - _%tl170241170937%_ - _%e170242170940%_ - _%hd170243170943%_ - _%tl170244170945%_ - _%e170245170948%_ - _%hd170246170951%_ - _%tl170247170953%_ - _%e170248170956%_ - _%hd170249170959%_ - _%tl170250170961%_ - _%__splice176177176178%_ - _%target170251170964%_ - _%tl170253170966%_) - (_%__kont176187176188%_)))) - (_%__kont176187176188%_)) - (_%__kont176187176188%_)))) - (_%__kont176187176188%_)) - (_%__kont176187176188%_)) - (_%__kont176187176188%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176187176188%_)))) - (_%__match176666176667%_ - _%e170212170860%_ - _%hd170213170863%_ - _%tl170214170865%_ - _%e170215170868%_ - _%hd170216170871%_ - _%tl170217170873%_ - _%e170218170876%_ - _%hd170219170879%_ - _%tl170220170881%_ - _%e170221170884%_ - _%hd170222170887%_ - _%tl170223170889%_ - _%e170224170892%_ - _%hd170225170895%_ - _%tl170226170897%_ - _%e170227170900%_ - _%hd170228170903%_ - _%tl170229170905%_ - _%e170230170908%_ - _%hd170231170911%_ - _%tl170232170913%_ - _%e170233170916%_ - _%hd170234170919%_ - _%tl170235170921%_)) - (_%__match176666176667%_ - _%e170212170860%_ - _%hd170213170863%_ - _%tl170214170865%_ - _%e170215170868%_ - _%hd170216170871%_ - _%tl170217170873%_ - _%e170218170876%_ - _%hd170219170879%_ - _%tl170220170881%_ - _%e170221170884%_ - _%hd170222170887%_ - _%tl170223170889%_ - _%e170224170892%_ - _%hd170225170895%_ - _%tl170226170897%_ - _%e170227170900%_ - _%hd170228170903%_ - _%tl170229170905%_ - _%e170230170908%_ - _%hd170231170911%_ - _%tl170232170913%_ - _%e170233170916%_ - _%hd170234170919%_ - _%tl170235170921%_)))) - (_%__match176666176667%_ - _%e170212170860%_ - _%hd170213170863%_ - _%tl170214170865%_ - _%e170215170868%_ - _%hd170216170871%_ - _%tl170217170873%_ - _%e170218170876%_ - _%hd170219170879%_ - _%tl170220170881%_ - _%e170221170884%_ - _%hd170222170887%_ - _%tl170223170889%_ - _%e170224170892%_ - _%hd170225170895%_ - _%tl170226170897%_ - _%e170227170900%_ - _%hd170228170903%_ - _%tl170229170905%_ - _%e170230170908%_ - _%hd170231170911%_ - _%tl170232170913%_ - _%e170233170916%_ - _%hd170234170919%_ - _%tl170235170921%_)) - (_%__match176452176453%_ - _%e170212170860%_ - _%hd170213170863%_ - _%tl170214170865%_ - _%e170215170868%_ - _%hd170216170871%_ - _%tl170217170873%_ - _%e170218170876%_ - _%hd170219170879%_ - _%tl170220170881%_ - _%e170221170884%_ - _%hd170222170887%_ - _%tl170223170889%_ - _%e170224170892%_ - _%hd170225170895%_ - _%tl170226170897%_ - _%e170227170900%_ - _%hd170228170903%_ - _%tl170229170905%_ - _%e170230170908%_ - _%hd170231170911%_ - _%tl170232170913%_ - _%e170233170916%_ - _%hd170234170919%_ - _%tl170235170921%_ - _%e170236170924%_ - _%hd170237170927%_ - _%tl170238170929%_)))) - (_%__match176274176275%_ - (lambda (_%e170168171052%_ - _%hd170169171055%_ - _%tl170170171057%_ - _%e170171171060%_ - _%hd170172171063%_ - _%tl170173171065%_ - _%e170174171068%_ - _%hd170175171071%_ - _%tl170176171073%_ - _%e170177171076%_ - _%hd170178171079%_ - _%tl170179171081%_ - _%e170180171084%_ - _%hd170181171087%_ - _%tl170182171089%_ - _%e170183171092%_ - _%hd170184171095%_ - _%tl170185171097%_ - _%e170186171100%_ - _%hd170187171103%_ - _%tl170188171105%_ - _%e170189171108%_ - _%hd170190171111%_ - _%tl170191171113%_ - _%e170192171116%_ - _%hd170193171119%_ - _%tl170194171121%_ - _%e170195171124%_ - _%hd170196171127%_ - _%tl170197171129%_ - _%__splice176173176174%_ - _%target170198171132%_ - _%tl170200171134%_) - (letrec ((_%loop170201171137%_ - (lambda (_%hd170199171140%_ - _%args170205171142%_) + (_%__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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd170199171140%_)) - (let ((_%e170202171145%_ + (gx#stx-pair? _%hd171331172272%_)) + (let ((_%e171334172277%_ (let () (declare (not safe)) (gx#stx-e - _%hd170199171140%_)))) - (let ((_%lp-tl170204171150%_ + _%hd171331172272%_)))) + (let ((_%lp-tl171336172282%_ (let () (declare (not safe)) - (##cdr _%e170202171145%_))) - (_%lp-hd170203171148%_ + (##cdr _%e171334172277%_))) + (_%lp-hd171335172280%_ (let () (declare (not safe)) - (##car _%e170202171145%_)))) - (_%loop170201171137%_ - _%lp-tl170204171150%_ - (cons _%lp-hd170203171148%_ - _%args170205171142%_)))) - (let ((_%args170206171153%_ - (reverse _%args170205171142%_))) - (let ((_%L171156%_ - _%args170206171153%_) - (_%L171157%_ - _%hd170196171127%_) - (_%L171158%_ - _%hd170187171103%_) - (_%L171159%_ - _%hd170178171079%_)) + (##car _%e171334172277%_)))) + (_%loop171333172269%_ + _%lp-tl171336172282%_ + (cons _%lp-hd171335172280%_ + _%args171337172274%_)))) + (let ((_%args171338172285%_ + (reverse _%args171337172274%_))) + (let ((_%L172288%_ + _%args171338172285%_) + (_%L172289%_ + _%hd171328172259%_) + (_%L172290%_ + _%hd171319172235%_) + (_%L172291%_ + _%hd171310172211%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171159%_ + _%L172291%_ 'call-method)) - (let ((__tmp176831 + (let ((__tmp177963 (let () (declare (not safe)) (slot-ref__0 - _%self170151%_ + _%self171283%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171158%_ - __tmp176831))) - (_%__kont176171176172%_ - _%L171156%_ - _%L171157%_ - _%L171158%_ - _%L171159%_) - (_%__match176462176463%_ - _%e170168171052%_ - _%hd170169171055%_ - _%tl170170171057%_ - _%e170171171060%_ - _%hd170172171063%_ - _%tl170173171065%_ - _%e170174171068%_ - _%hd170175171071%_ - _%tl170176171073%_ - _%e170177171076%_ - _%hd170178171079%_ - _%tl170179171081%_ - _%e170180171084%_ - _%hd170181171087%_ - _%tl170182171089%_ - _%e170183171092%_ - _%hd170184171095%_ - _%tl170185171097%_ - _%e170186171100%_ - _%hd170187171103%_ - _%tl170188171105%_ - _%e170189171108%_ - _%hd170190171111%_ - _%tl170191171113%_ - _%e170192171116%_ - _%hd170193171119%_ - _%tl170194171121%_ - _%e170195171124%_ - _%hd170196171127%_ - _%tl170197171129%_)))))))) - (_%loop170201171137%_ _%target170198171132%_ '()))))) + _%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%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176169176170%_)) - (let ((_%e170168171052%_ + (gx#stx-pair? _%__stx177301177302%_)) + (let ((_%e171300172184%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176169176170%_)))) - (let ((_%tl170170171057%_ + (gx#stx-e _%__stx177301177302%_)))) + (let ((_%tl171302172189%_ (let () (declare (not safe)) - (##cdr _%e170168171052%_))) - (_%hd170169171055%_ + (##cdr _%e171300172184%_))) + (_%hd171301172187%_ (let () (declare (not safe)) - (##car _%e170168171052%_)))) + (##car _%e171300172184%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl170170171057%_)) - (let ((_%e170171171060%_ + (gx#stx-pair? _%tl171302172189%_)) + (let ((_%e171303172192%_ (let () (declare (not safe)) - (gx#stx-e _%tl170170171057%_)))) - (let ((_%tl170173171065%_ + (gx#stx-e _%tl171302172189%_)))) + (let ((_%tl171305172197%_ (let () (declare (not safe)) - (##cdr _%e170171171060%_))) - (_%hd170172171063%_ + (##cdr _%e171303172192%_))) + (_%hd171304172195%_ (let () (declare (not safe)) - (##car _%e170171171060%_)))) + (##car _%e171303172192%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd170172171063%_)) - (let ((_%e170174171068%_ + (gx#stx-pair? _%hd171304172195%_)) + (let ((_%e171306172200%_ (let () (declare (not safe)) - (gx#stx-e _%hd170172171063%_)))) - (let ((_%tl170176171073%_ + (gx#stx-e _%hd171304172195%_)))) + (let ((_%tl171308172205%_ (let () (declare (not safe)) - (##cdr _%e170174171068%_))) - (_%hd170175171071%_ + (##cdr _%e171306172200%_))) + (_%hd171307172203%_ (let () (declare (not safe)) - (##car _%e170174171068%_)))) + (##car _%e171306172200%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd170175171071%_)) + _%hd171307172203%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd170175171071%_)) + _%hd171307172203%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl170176171073%_)) - (let ((_%e170177171076%_ + _%tl171308172205%_)) + (let ((_%e171309172208%_ (let () (declare (not safe)) (gx#stx-e - _%tl170176171073%_)))) - (let ((_%tl170179171081%_ + _%tl171308172205%_)))) + (let ((_%tl171311172213%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e170177171076%_))) - (_%hd170178171079%_ - (let () (declare (not safe)) (##car _%e170177171076%_)))) + (##cdr _%e171309172208%_))) + (_%hd171310172211%_ + (let () (declare (not safe)) (##car _%e171309172208%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170179171081%_)) + (gx#stx-null? _%tl171311172213%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl170173171065%_)) - (let ((_%e170180171084%_ + (gx#stx-pair? _%tl171305172197%_)) + (let ((_%e171312172216%_ (let () (declare (not safe)) - (gx#stx-e _%tl170173171065%_)))) - (let ((_%tl170182171089%_ + (gx#stx-e _%tl171305172197%_)))) + (let ((_%tl171314172221%_ (let () (declare (not safe)) - (##cdr _%e170180171084%_))) - (_%hd170181171087%_ + (##cdr _%e171312172216%_))) + (_%hd171313172219%_ (let () (declare (not safe)) - (##car _%e170180171084%_)))) + (##car _%e171312172216%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd170181171087%_)) - (let ((_%e170183171092%_ + (gx#stx-pair? _%hd171313172219%_)) + (let ((_%e171315172224%_ (let () (declare (not safe)) - (gx#stx-e _%hd170181171087%_)))) - (let ((_%tl170185171097%_ + (gx#stx-e _%hd171313172219%_)))) + (let ((_%tl171317172229%_ (let () (declare (not safe)) - (##cdr _%e170183171092%_))) - (_%hd170184171095%_ + (##cdr _%e171315172224%_))) + (_%hd171316172227%_ (let () (declare (not safe)) - (##car _%e170183171092%_)))) + (##car _%e171315172224%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd170184171095%_)) + (gx#identifier? _%hd171316172227%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd170184171095%_)) + _%hd171316172227%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl170185171097%_)) - (let ((_%e170186171100%_ + _%tl171317172229%_)) + (let ((_%e171318172232%_ (let () (declare (not safe)) (gx#stx-e - _%tl170185171097%_)))) - (let ((_%tl170188171105%_ + _%tl171317172229%_)))) + (let ((_%tl171320172237%_ (let () (declare (not safe)) - (##cdr _%e170186171100%_))) - (_%hd170187171103%_ + (##cdr _%e171318172232%_))) + (_%hd171319172235%_ (let () (declare (not safe)) - (##car _%e170186171100%_)))) + (##car _%e171318172232%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl170188171105%_)) + _%tl171320172237%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl170182171089%_)) - (let ((_%e170189171108%_ + _%tl171314172221%_)) + (let ((_%e171321172240%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl170182171089%_)))) - (let ((_%tl170191171113%_ + (gx#stx-e _%tl171314172221%_)))) + (let ((_%tl171323172245%_ (let () (declare (not safe)) - (##cdr _%e170189171108%_))) - (_%hd170190171111%_ + (##cdr _%e171321172240%_))) + (_%hd171322172243%_ (let () (declare (not safe)) - (##car _%e170189171108%_)))) + (##car _%e171321172240%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd170190171111%_)) - (let ((_%e170192171116%_ + (gx#stx-pair? _%hd171322172243%_)) + (let ((_%e171324172248%_ (let () (declare (not safe)) - (gx#stx-e _%hd170190171111%_)))) - (let ((_%tl170194171121%_ + (gx#stx-e _%hd171322172243%_)))) + (let ((_%tl171326172253%_ (let () (declare (not safe)) - (##cdr _%e170192171116%_))) - (_%hd170193171119%_ + (##cdr _%e171324172248%_))) + (_%hd171325172251%_ (let () (declare (not safe)) - (##car _%e170192171116%_)))) + (##car _%e171324172248%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd170193171119%_)) + (gx#identifier? _%hd171325172251%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd170193171119%_)) + _%hd171325172251%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl170194171121%_)) - (let ((_%e170195171124%_ + _%tl171326172253%_)) + (let ((_%e171327172256%_ (let () (declare (not safe)) (gx#stx-e - _%tl170194171121%_)))) - (let ((_%tl170197171129%_ + _%tl171326172253%_)))) + (let ((_%tl171329172261%_ (let () (declare (not safe)) - (##cdr _%e170195171124%_))) - (_%hd170196171127%_ + (##cdr _%e171327172256%_))) + (_%hd171328172259%_ (let () (declare (not safe)) - (##car _%e170195171124%_)))) + (##car _%e171327172256%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl170197171129%_)) + _%tl171329172261%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl170191171113%_)) - (let ((_%__splice176173176174%_ + _%tl171323172245%_)) + (let ((_%__splice177305177306%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl170191171113%_ '0)))) - (let ((_%tl170200171134%_ + (gx#syntax-split-splice _%tl171323172245%_ '0)))) + (let ((_%tl171332172266%_ (let () (declare (not safe)) - (##vector-ref _%__splice176173176174%_ '1))) - (_%target170198171132%_ + (##vector-ref _%__splice177305177306%_ '1))) + (_%target171330172264%_ (let () (declare (not safe)) - (##vector-ref _%__splice176173176174%_ '0)))) + (##vector-ref _%__splice177305177306%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170200171134%_)) - (_%__match176274176275%_ - _%e170168171052%_ - _%hd170169171055%_ - _%tl170170171057%_ - _%e170171171060%_ - _%hd170172171063%_ - _%tl170173171065%_ - _%e170174171068%_ - _%hd170175171071%_ - _%tl170176171073%_ - _%e170177171076%_ - _%hd170178171079%_ - _%tl170179171081%_ - _%e170180171084%_ - _%hd170181171087%_ - _%tl170182171089%_ - _%e170183171092%_ - _%hd170184171095%_ - _%tl170185171097%_ - _%e170186171100%_ - _%hd170187171103%_ - _%tl170188171105%_ - _%e170189171108%_ - _%hd170190171111%_ - _%tl170191171113%_ - _%e170192171116%_ - _%hd170193171119%_ - _%tl170194171121%_ - _%e170195171124%_ - _%hd170196171127%_ - _%tl170197171129%_ - _%__splice176173176174%_ - _%target170198171132%_ - _%tl170200171134%_) - (_%__match176462176463%_ - _%e170168171052%_ - _%hd170169171055%_ - _%tl170170171057%_ - _%e170171171060%_ - _%hd170172171063%_ - _%tl170173171065%_ - _%e170174171068%_ - _%hd170175171071%_ - _%tl170176171073%_ - _%e170177171076%_ - _%hd170178171079%_ - _%tl170179171081%_ - _%e170180171084%_ - _%hd170181171087%_ - _%tl170182171089%_ - _%e170183171092%_ - _%hd170184171095%_ - _%tl170185171097%_ - _%e170186171100%_ - _%hd170187171103%_ - _%tl170188171105%_ - _%e170189171108%_ - _%hd170190171111%_ - _%tl170191171113%_ - _%e170192171116%_ - _%hd170193171119%_ - _%tl170194171121%_ - _%e170195171124%_ - _%hd170196171127%_ - _%tl170197171129%_)))) - (_%__match176462176463%_ - _%e170168171052%_ - _%hd170169171055%_ - _%tl170170171057%_ - _%e170171171060%_ - _%hd170172171063%_ - _%tl170173171065%_ - _%e170174171068%_ - _%hd170175171071%_ - _%tl170176171073%_ - _%e170177171076%_ - _%hd170178171079%_ - _%tl170179171081%_ - _%e170180171084%_ - _%hd170181171087%_ - _%tl170182171089%_ - _%e170183171092%_ - _%hd170184171095%_ - _%tl170185171097%_ - _%e170186171100%_ - _%hd170187171103%_ - _%tl170188171105%_ - _%e170189171108%_ - _%hd170190171111%_ - _%tl170191171113%_ - _%e170192171116%_ - _%hd170193171119%_ - _%tl170194171121%_ - _%e170195171124%_ - _%hd170196171127%_ - _%tl170197171129%_)) + (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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match176666176667%_ - _%e170168171052%_ - _%hd170169171055%_ - _%tl170170171057%_ - _%e170171171060%_ - _%hd170172171063%_ - _%tl170173171065%_ - _%e170174171068%_ - _%hd170175171071%_ - _%tl170176171073%_ - _%e170177171076%_ - _%hd170178171079%_ - _%tl170179171081%_ - _%e170180171084%_ - _%hd170181171087%_ - _%tl170182171089%_ - _%e170183171092%_ - _%hd170184171095%_ - _%tl170185171097%_ - _%e170186171100%_ - _%hd170187171103%_ - _%tl170188171105%_ - _%e170189171108%_ - _%hd170190171111%_ - _%tl170191171113%_)))) - (_%__match176666176667%_ - _%e170168171052%_ - _%hd170169171055%_ - _%tl170170171057%_ - _%e170171171060%_ - _%hd170172171063%_ - _%tl170173171065%_ - _%e170174171068%_ - _%hd170175171071%_ - _%tl170176171073%_ - _%e170177171076%_ - _%hd170178171079%_ - _%tl170179171081%_ - _%e170180171084%_ - _%hd170181171087%_ - _%tl170182171089%_ - _%e170183171092%_ - _%hd170184171095%_ - _%tl170185171097%_ - _%e170186171100%_ - _%hd170187171103%_ - _%tl170188171105%_ - _%e170189171108%_ - _%hd170190171111%_ - _%tl170191171113%_)) - (_%__match176342176343%_ - _%e170168171052%_ - _%hd170169171055%_ - _%tl170170171057%_ - _%e170171171060%_ - _%hd170172171063%_ - _%tl170173171065%_ - _%e170174171068%_ - _%hd170175171071%_ - _%tl170176171073%_ - _%e170177171076%_ - _%hd170178171079%_ - _%tl170179171081%_ - _%e170180171084%_ - _%hd170181171087%_ - _%tl170182171089%_ - _%e170183171092%_ - _%hd170184171095%_ - _%tl170185171097%_ - _%e170186171100%_ - _%hd170187171103%_ - _%tl170188171105%_ - _%e170189171108%_ - _%hd170190171111%_ - _%tl170191171113%_ - _%e170192171116%_ - _%hd170193171119%_ - _%tl170194171121%_)) - (_%__match176666176667%_ - _%e170168171052%_ - _%hd170169171055%_ - _%tl170170171057%_ - _%e170171171060%_ - _%hd170172171063%_ - _%tl170173171065%_ - _%e170174171068%_ - _%hd170175171071%_ - _%tl170176171073%_ - _%e170177171076%_ - _%hd170178171079%_ - _%tl170179171081%_ - _%e170180171084%_ - _%hd170181171087%_ - _%tl170182171089%_ - _%e170183171092%_ - _%hd170184171095%_ - _%tl170185171097%_ - _%e170186171100%_ - _%hd170187171103%_ - _%tl170188171105%_ - _%e170189171108%_ - _%hd170190171111%_ - _%tl170191171113%_)))) - (_%__match176666176667%_ - _%e170168171052%_ - _%hd170169171055%_ - _%tl170170171057%_ - _%e170171171060%_ - _%hd170172171063%_ - _%tl170173171065%_ - _%e170174171068%_ - _%hd170175171071%_ - _%tl170176171073%_ - _%e170177171076%_ - _%hd170178171079%_ - _%tl170179171081%_ - _%e170180171084%_ - _%hd170181171087%_ - _%tl170182171089%_ - _%e170183171092%_ - _%hd170184171095%_ - _%tl170185171097%_ - _%e170186171100%_ - _%hd170187171103%_ - _%tl170188171105%_ - _%e170189171108%_ - _%hd170190171111%_ - _%tl170191171113%_)))) - (_%__match176604176605%_ - _%e170168171052%_ - _%hd170169171055%_ - _%tl170170171057%_ - _%e170171171060%_ - _%hd170172171063%_ - _%tl170173171065%_ - _%e170174171068%_ - _%hd170175171071%_ - _%tl170176171073%_ - _%e170177171076%_ - _%hd170178171079%_ - _%tl170179171081%_ - _%e170180171084%_ - _%hd170181171087%_ - _%tl170182171089%_ - _%e170183171092%_ - _%hd170184171095%_ - _%tl170185171097%_ - _%e170186171100%_ - _%hd170187171103%_ - _%tl170188171105%_)) - (_%__kont176187176188%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176187176188%_)) - (_%__kont176187176188%_)) - (_%__kont176187176188%_)))) - (_%__kont176187176188%_)))) - (_%__kont176187176188%_)) - (_%__kont176187176188%_)))) + (_%__kont177319177320%_)) + (_%__kont177319177320%_)) + (_%__kont177319177320%_)))) + (_%__kont177319177320%_)))) + (_%__kont177319177320%_)) + (_%__kont177319177320%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176187176188%_)) - (_%__kont176187176188%_)) - (_%__kont176187176188%_)))) - (_%__kont176187176188%_)))) - (_%__kont176187176188%_)))) - (_%__kont176187176188%_)))))))))) + (_%__kont177319177320%_)) + (_%__kont177319177320%_)) + (_%__kont177319177320%_)))) + (_%__kont177319177320%_)))) + (_%__kont177319177320%_)))) + (_%__kont177319177320%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm index 2a420e1d7..93dfe8dd4 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]#_g176833_| + (define |gxc[1]#_g177965_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176835_| + (define |gxc[1]#_g177967_| (##structure gx#syntax-quote::t '::generate-method-specializers::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176837_| + (define |gxc[1]#_g177969_| (##structure gx#syntax-quote::t 'make-::generate-method-specializers #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176839_| + (define |gxc[1]#_g177971_| (##structure gx#syntax-quote::t '::generate-method-specializers? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176841_| + (define |gxc[1]#_g177973_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176843_| + (define |gxc[1]#_g177975_| (##structure gx#syntax-quote::t '::extract-receiver::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176845_| + (define |gxc[1]#_g177977_| (##structure gx#syntax-quote::t 'make-::extract-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176847_| + (define |gxc[1]#_g177979_| (##structure gx#syntax-quote::t '::extract-receiver? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176849_| + (define |gxc[1]#_g177981_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176851_| + (define |gxc[1]#_g177983_| (##structure gx#syntax-quote::t '::collect-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176853_| + (define |gxc[1]#_g177985_| (##structure gx#syntax-quote::t 'make-::collect-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176855_| + (define |gxc[1]#_g177987_| (##structure gx#syntax-quote::t '::collect-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176857_| + (define |gxc[1]#_g177989_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176858_| + (define |gxc[1]#_g177990_| (##structure gx#syntax-quote::t '::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176859_| + (define |gxc[1]#_g177991_| (##structure gx#syntax-quote::t '::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176861_| + (define |gxc[1]#_g177993_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176862_| + (define |gxc[1]#_g177994_| (##structure gx#syntax-quote::t '::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176863_| + (define |gxc[1]#_g177995_| (##structure gx#syntax-quote::t '::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176865_| + (define |gxc[1]#_g177997_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176866_| + (define |gxc[1]#_g177998_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176867_| + (define |gxc[1]#_g177999_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176869_| + (define |gxc[1]#_g178001_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176870_| + (define |gxc[1]#_g178002_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176871_| + (define |gxc[1]#_g178003_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176873_| + (define |gxc[1]#_g178005_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176875_| + (define |gxc[1]#_g178007_| (##structure gx#syntax-quote::t '::subst-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176877_| + (define |gxc[1]#_g178009_| (##structure gx#syntax-quote::t 'make-::subst-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176879_| + (define |gxc[1]#_g178011_| (##structure gx#syntax-quote::t '::subst-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176881_| + (define |gxc[1]#_g178013_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176882_| + (define |gxc[1]#_g178014_| (##structure gx#syntax-quote::t '::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176883_| + (define |gxc[1]#_g178015_| (##structure gx#syntax-quote::t '::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176884_| + (define |gxc[1]#_g178016_| (##structure gx#syntax-quote::t '::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176886_| + (define |gxc[1]#_g178018_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176887_| + (define |gxc[1]#_g178019_| (##structure gx#syntax-quote::t '::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176888_| + (define |gxc[1]#_g178020_| (##structure gx#syntax-quote::t '::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176889_| + (define |gxc[1]#_g178021_| (##structure gx#syntax-quote::t '::subst-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176891_| + (define |gxc[1]#_g178023_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176892_| + (define |gxc[1]#_g178024_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176893_| + (define |gxc[1]#_g178025_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176894_| + (define |gxc[1]#_g178026_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176896_| + (define |gxc[1]#_g178028_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176897_| + (define |gxc[1]#_g178029_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176898_| + (define |gxc[1]#_g178030_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176899_| + (define |gxc[1]#_g178031_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots-set! @@ -310,7 +310,7 @@ '())) (begin (define |gxc[:0:]#::generate-method-specializers| - (let ((__obj176670 + (let ((__obj177802 (let () (declare (not safe)) (##structure @@ -339,7 +339,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176670 + __obj177802 'gxc#::generate-method-specializers::t '1 '#f @@ -347,65 +347,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176670 + __obj177802 '::generate-method-specializers '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176670 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj177802 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176670 '() '6 '#f '#f)) - (let ((__tmp176832 (cons |gxc[1]#_g176833_| '()))) + (##unchecked-structure-set! __obj177802 '() '6 '#f '#f)) + (let ((__tmp177964 (cons |gxc[1]#_g177965_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj176670 __tmp176832 '3 '#f '#f)) + (##unchecked-structure-set! __obj177802 __tmp177964 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176670 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj177802 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176670 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj177802 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176670 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj177802 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176670 '#f '11 '#f '#f)) - (let ((__tmp176834 |gxc[1]#_g176835_|)) + (##unchecked-structure-set! __obj177802 '#f '11 '#f '#f)) + (let ((__tmp177966 |gxc[1]#_g177967_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176670 __tmp176834 '12 '#f '#f)) - (let ((__tmp176836 |gxc[1]#_g176837_|)) + (##unchecked-structure-set! __obj177802 __tmp177966 '12 '#f '#f)) + (let ((__tmp177968 |gxc[1]#_g177969_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176670 __tmp176836 '13 '#f '#f)) - (let ((__tmp176838 |gxc[1]#_g176839_|)) + (##unchecked-structure-set! __obj177802 __tmp177968 '13 '#f '#f)) + (let ((__tmp177970 |gxc[1]#_g177971_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176670 __tmp176838 '14 '#f '#f)) + (##unchecked-structure-set! __obj177802 __tmp177970 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176670 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj177802 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176670 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj177802 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176670 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj177802 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176670 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj177802 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176670 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj177802 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176670 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj177802 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176670 '() '20 '#f '#f)) - __obj176670)) + (##unchecked-structure-set! __obj177802 '() '20 '#f '#f)) + __obj177802)) (define |gxc[:0:]#::extract-receiver| - (let ((__obj176672 + (let ((__obj177804 (let () (declare (not safe)) (##structure @@ -434,7 +434,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176672 + __obj177804 'gxc#::extract-receiver::t '1 '#f @@ -442,65 +442,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176672 + __obj177804 '::extract-receiver '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176672 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj177804 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176672 '() '6 '#f '#f)) - (let ((__tmp176840 (cons |gxc[1]#_g176841_| '()))) + (##unchecked-structure-set! __obj177804 '() '6 '#f '#f)) + (let ((__tmp177972 (cons |gxc[1]#_g177973_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj176672 __tmp176840 '3 '#f '#f)) + (##unchecked-structure-set! __obj177804 __tmp177972 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176672 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj177804 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176672 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj177804 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176672 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj177804 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176672 '#f '11 '#f '#f)) - (let ((__tmp176842 |gxc[1]#_g176843_|)) + (##unchecked-structure-set! __obj177804 '#f '11 '#f '#f)) + (let ((__tmp177974 |gxc[1]#_g177975_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176672 __tmp176842 '12 '#f '#f)) - (let ((__tmp176844 |gxc[1]#_g176845_|)) + (##unchecked-structure-set! __obj177804 __tmp177974 '12 '#f '#f)) + (let ((__tmp177976 |gxc[1]#_g177977_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176672 __tmp176844 '13 '#f '#f)) - (let ((__tmp176846 |gxc[1]#_g176847_|)) + (##unchecked-structure-set! __obj177804 __tmp177976 '13 '#f '#f)) + (let ((__tmp177978 |gxc[1]#_g177979_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176672 __tmp176846 '14 '#f '#f)) + (##unchecked-structure-set! __obj177804 __tmp177978 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176672 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj177804 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176672 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj177804 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176672 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj177804 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176672 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj177804 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176672 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj177804 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176672 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj177804 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176672 '() '20 '#f '#f)) - __obj176672)) + (##unchecked-structure-set! __obj177804 '() '20 '#f '#f)) + __obj177804)) (define |gxc[:0:]#::collect-object-refs| - (let ((__obj176674 + (let ((__obj177806 (let () (declare (not safe)) (##structure @@ -529,7 +529,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176674 + __obj177806 'gxc#::collect-object-refs::t '1 '#f @@ -537,7 +537,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176674 + __obj177806 '::collect-object-refs '2 '#f @@ -545,7 +545,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176674 + __obj177806 '(receiver methods slots) '4 '#f @@ -553,71 +553,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176674 + __obj177806 '(receiver methods slots) '6 '#f '#f)) - (let ((__tmp176848 (cons |gxc[1]#_g176849_| '()))) + (let ((__tmp177980 (cons |gxc[1]#_g177981_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj176674 __tmp176848 '3 '#f '#f)) + (##unchecked-structure-set! __obj177806 __tmp177980 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176674 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj177806 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176674 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj177806 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176674 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj177806 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176674 '#f '11 '#f '#f)) - (let ((__tmp176850 |gxc[1]#_g176851_|)) + (##unchecked-structure-set! __obj177806 '#f '11 '#f '#f)) + (let ((__tmp177982 |gxc[1]#_g177983_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176674 __tmp176850 '12 '#f '#f)) - (let ((__tmp176852 |gxc[1]#_g176853_|)) + (##unchecked-structure-set! __obj177806 __tmp177982 '12 '#f '#f)) + (let ((__tmp177984 |gxc[1]#_g177985_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176674 __tmp176852 '13 '#f '#f)) - (let ((__tmp176854 |gxc[1]#_g176855_|)) + (##unchecked-structure-set! __obj177806 __tmp177984 '13 '#f '#f)) + (let ((__tmp177986 |gxc[1]#_g177987_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176674 __tmp176854 '14 '#f '#f)) - (let ((__tmp176856 - (cons (cons 'receiver |gxc[1]#_g176857_|) - (cons (cons 'methods |gxc[1]#_g176858_|) - (cons (cons 'slots |gxc[1]#_g176859_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj176674 __tmp176856 '15 '#f '#f)) - (let ((__tmp176860 - (cons (cons 'receiver |gxc[1]#_g176861_|) - (cons (cons 'methods |gxc[1]#_g176862_|) - (cons (cons 'slots |gxc[1]#_g176863_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj176674 __tmp176860 '16 '#f '#f)) - (let ((__tmp176864 - (cons (cons 'receiver |gxc[1]#_g176865_|) - (cons (cons 'methods |gxc[1]#_g176866_|) - (cons (cons 'slots |gxc[1]#_g176867_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj176674 __tmp176864 '17 '#f '#f)) - (let ((__tmp176868 - (cons (cons 'receiver |gxc[1]#_g176869_|) - (cons (cons 'methods |gxc[1]#_g176870_|) - (cons (cons 'slots |gxc[1]#_g176871_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj176674 __tmp176868 '18 '#f '#f)) + (##unchecked-structure-set! __obj177806 __tmp178000 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176674 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj177806 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176674 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj177806 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176674 '() '20 '#f '#f)) - __obj176674)) + (##unchecked-structure-set! __obj177806 '() '20 '#f '#f)) + __obj177806)) (define |gxc[:0:]#::subst-object-refs| - (let ((__obj176676 + (let ((__obj177808 (let () (declare (not safe)) (##structure @@ -646,7 +646,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176676 + __obj177808 'gxc#::subst-object-refs::t '1 '#f @@ -654,7 +654,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176676 + __obj177808 '::subst-object-refs '2 '#f @@ -662,7 +662,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176676 + __obj177808 '(receiver klass methods slots) '4 '#f @@ -670,74 +670,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176676 + __obj177808 '(receiver klass methods slots) '6 '#f '#f)) - (let ((__tmp176872 (cons |gxc[1]#_g176873_| '()))) + (let ((__tmp178004 (cons |gxc[1]#_g178005_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj176676 __tmp176872 '3 '#f '#f)) + (##unchecked-structure-set! __obj177808 __tmp178004 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176676 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj177808 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176676 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj177808 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176676 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj177808 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176676 '#f '11 '#f '#f)) - (let ((__tmp176874 |gxc[1]#_g176875_|)) + (##unchecked-structure-set! __obj177808 '#f '11 '#f '#f)) + (let ((__tmp178006 |gxc[1]#_g178007_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176676 __tmp176874 '12 '#f '#f)) - (let ((__tmp176876 |gxc[1]#_g176877_|)) + (##unchecked-structure-set! __obj177808 __tmp178006 '12 '#f '#f)) + (let ((__tmp178008 |gxc[1]#_g178009_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176676 __tmp176876 '13 '#f '#f)) - (let ((__tmp176878 |gxc[1]#_g176879_|)) + (##unchecked-structure-set! __obj177808 __tmp178008 '13 '#f '#f)) + (let ((__tmp178010 |gxc[1]#_g178011_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176676 __tmp176878 '14 '#f '#f)) - (let ((__tmp176880 - (cons (cons 'receiver |gxc[1]#_g176881_|) - (cons (cons 'klass |gxc[1]#_g176882_|) - (cons (cons 'methods |gxc[1]#_g176883_|) - (cons (cons 'slots |gxc[1]#_g176884_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj176676 __tmp176880 '15 '#f '#f)) - (let ((__tmp176885 - (cons (cons 'receiver |gxc[1]#_g176886_|) - (cons (cons 'klass |gxc[1]#_g176887_|) - (cons (cons 'methods |gxc[1]#_g176888_|) - (cons (cons 'slots |gxc[1]#_g176889_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj176676 __tmp176885 '16 '#f '#f)) - (let ((__tmp176890 - (cons (cons 'receiver |gxc[1]#_g176891_|) - (cons (cons 'klass |gxc[1]#_g176892_|) - (cons (cons 'methods |gxc[1]#_g176893_|) - (cons (cons 'slots |gxc[1]#_g176894_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj176676 __tmp176890 '17 '#f '#f)) - (let ((__tmp176895 - (cons (cons 'receiver |gxc[1]#_g176896_|) - (cons (cons 'klass |gxc[1]#_g176897_|) - (cons (cons 'methods |gxc[1]#_g176898_|) - (cons (cons 'slots |gxc[1]#_g176899_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj176676 __tmp176895 '18 '#f '#f)) + (##unchecked-structure-set! __obj177808 __tmp178027 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176676 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj177808 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176676 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj177808 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176676 '() '20 '#f '#f)) - __obj176676)))) + (##unchecked-structure-set! __obj177808 '() '20 '#f '#f)) + __obj177808)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~0.scm b/src/bootstrap/gerbil/compiler/optimize-top~0.scm index eee14d99b..9e8ac5508 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 1713454413) + (define gerbil/compiler/optimize-top::timestamp 1713631268) (begin (define gxc#::collect-top-level-type-info::t - (let ((__tmp169719 (list gxc#::void::t)) - (__tmp169718 (cons (cons 'final: '#t) '()))) + (let ((__tmp170851 (list gxc#::void::t)) + (__tmp170850 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-type-info::t '::collect-top-level-type-info - __tmp169719 + __tmp170851 '() - __tmp169718 + __tmp170850 '#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 _%$args166661%_ + (lambda _%$args167793%_ (apply make-instance gxc#::collect-top-level-type-info::t - _%$args166661%_))) + _%$args167793%_))) (define gxc#::collect-top-level-type-info-bind-methods! - (let ((__tmp169720 + (let ((__tmp170852 (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 __tmp169720))) + (__make-promise __tmp170852))) (define gxc#apply-collect-top-level-type-info - (lambda (_%stx166653%_) + (lambda (_%stx167785%_) (force gxc#::collect-top-level-type-info-bind-methods!) - (let* ((_%self166656%_ - (let ((__obj169665 + (let* ((_%self167788%_ + (let ((__obj170797 (let () (declare (not safe)) (##structure gxc#::collect-top-level-type-info::t)))) - __obj169665)) - (__tmp169721 + __obj170797)) + (__tmp170853 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166656%_ _%stx166653%_))))) + (gxc#compile-e__1 _%self167788%_ _%stx167785%_))))) (declare (not safe)) (__call-with-parameters - __tmp169721 + __tmp170853 gxc#current-compile-method - _%self166656%_)))) + _%self167788%_)))) (define gxc#::collect-top-level-declarations::t - (let ((__tmp169723 (list gxc#::void::t)) - (__tmp169722 (cons (cons 'final: '#t) '()))) + (let ((__tmp170855 (list gxc#::void::t)) + (__tmp170854 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-declarations::t '::collect-top-level-declarations - __tmp169723 + __tmp170855 '() - __tmp169722 + __tmp170854 '#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 _%$args166650%_ + (lambda _%$args167782%_ (apply make-instance gxc#::collect-top-level-declarations::t - _%$args166650%_))) + _%$args167782%_))) (define gxc#::collect-top-level-declarations-bind-methods! - (let ((__tmp169724 + (let ((__tmp170856 (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 __tmp169724))) + (__make-promise __tmp170856))) (define gxc#apply-collect-top-level-declarations - (lambda (_%stx166642%_) + (lambda (_%stx167774%_) (force gxc#::collect-top-level-declarations-bind-methods!) - (let* ((_%self166645%_ - (let ((__obj169667 + (let* ((_%self167777%_ + (let ((__obj170799 (let () (declare (not safe)) (##structure gxc#::collect-top-level-declarations::t)))) - __obj169667)) - (__tmp169725 + __obj170799)) + (__tmp170857 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166645%_ _%stx166642%_))))) + (gxc#compile-e__1 _%self167777%_ _%stx167774%_))))) (declare (not safe)) (__call-with-parameters - __tmp169725 + __tmp170857 gxc#current-compile-method - _%self166645%_)))) + _%self167777%_)))) (define gxc#::basic-expression-top-level-type::t - (let ((__tmp169727 (list gxc#::false::t)) - (__tmp169726 (cons (cons 'final: '#t) '()))) + (let ((__tmp170859 (list gxc#::false::t)) + (__tmp170858 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-top-level-type::t '::basic-expression-top-level-type - __tmp169727 + __tmp170859 '() - __tmp169726 + __tmp170858 '#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 _%$args166639%_ + (lambda _%$args167771%_ (apply make-instance gxc#::basic-expression-top-level-type::t - _%$args166639%_))) + _%$args167771%_))) (define gxc#::basic-expression-top-level-type-bind-methods! - (let ((__tmp169728 + (let ((__tmp170860 (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 __tmp169728))) + (__make-promise __tmp170860))) (define gxc#apply-basic-expression-top-level-type - (lambda (_%stx166631%_) + (lambda (_%stx167763%_) (force gxc#::basic-expression-top-level-type-bind-methods!) - (let* ((_%self166634%_ - (let ((__obj169669 + (let* ((_%self167766%_ + (let ((__obj170801 (let () (declare (not safe)) (##structure gxc#::basic-expression-top-level-type::t)))) - __obj169669)) - (__tmp169729 + __obj170801)) + (__tmp170861 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166634%_ _%stx166631%_))))) + (gxc#compile-e__1 _%self167766%_ _%stx167763%_))))) (declare (not safe)) (__call-with-parameters - __tmp169729 + __tmp170861 gxc#current-compile-method - _%self166634%_)))) + _%self167766%_)))) (define gxc#::collect-type-info::t - (let ((__tmp169731 (list gxc#::void::t)) - (__tmp169730 (cons (cons 'final: '#t) '()))) + (let ((__tmp170863 (list gxc#::void::t)) + (__tmp170862 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-type-info::t '::collect-type-info - __tmp169731 + __tmp170863 '() - __tmp169730 + __tmp170862 '#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 _%$args166628%_ - (apply make-instance gxc#::collect-type-info::t _%$args166628%_))) + (lambda _%$args167760%_ + (apply make-instance gxc#::collect-type-info::t _%$args167760%_))) (define gxc#::collect-type-info-bind-methods! - (let ((__tmp169732 + (let ((__tmp170864 (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 __tmp169732))) + (__make-promise __tmp170864))) (define gxc#apply-collect-type-info - (lambda (_%stx166620%_) + (lambda (_%stx167752%_) (force gxc#::collect-type-info-bind-methods!) - (let* ((_%self166623%_ - (let ((__obj169671 + (let* ((_%self167755%_ + (let ((__obj170803 (let () (declare (not safe)) (##structure gxc#::collect-type-info::t)))) - __obj169671)) - (__tmp169733 + __obj170803)) + (__tmp170865 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166623%_ _%stx166620%_))))) + (gxc#compile-e__1 _%self167755%_ _%stx167752%_))))) (declare (not safe)) (__call-with-parameters - __tmp169733 + __tmp170865 gxc#current-compile-method - _%self166623%_)))) + _%self167755%_)))) (define gxc#::collect-mutable-type-info::t - (let ((__tmp169735 (list gxc#::void::t)) - (__tmp169734 (cons (cons 'final: '#t) '()))) + (let ((__tmp170867 (list gxc#::void::t)) + (__tmp170866 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutable-type-info::t '::collect-mutable-type-info - __tmp169735 + __tmp170867 '() - __tmp169734 + __tmp170866 '#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 _%$args166617%_ + (lambda _%$args167749%_ (apply make-instance gxc#::collect-mutable-type-info::t - _%$args166617%_))) + _%$args167749%_))) (define gxc#::collect-mutable-type-info-bind-methods! - (let ((__tmp169736 + (let ((__tmp170868 (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 __tmp169736))) + (__make-promise __tmp170868))) (define gxc#apply-collect-mutable-type-info - (lambda (_%stx166609%_) + (lambda (_%stx167741%_) (force gxc#::collect-mutable-type-info-bind-methods!) - (let* ((_%self166612%_ - (let ((__obj169673 + (let* ((_%self167744%_ + (let ((__obj170805 (let () (declare (not safe)) (##structure gxc#::collect-mutable-type-info::t)))) - __obj169673)) - (__tmp169737 + __obj170805)) + (__tmp170869 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166612%_ _%stx166609%_))))) + (gxc#compile-e__1 _%self167744%_ _%stx167741%_))))) (declare (not safe)) (__call-with-parameters - __tmp169737 + __tmp170869 gxc#current-compile-method - _%self166612%_)))) + _%self167744%_)))) (define gxc#::refine-type-info::t - (let ((__tmp169739 (list gxc#::void::t)) - (__tmp169738 (cons (cons 'final: '#t) '()))) + (let ((__tmp170871 (list gxc#::void::t)) + (__tmp170870 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::refine-type-info::t '::refine-type-info - __tmp169739 + __tmp170871 '() - __tmp169738 + __tmp170870 '#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 _%$args166606%_ - (apply make-instance gxc#::refine-type-info::t _%$args166606%_))) + (lambda _%$args167738%_ + (apply make-instance gxc#::refine-type-info::t _%$args167738%_))) (define gxc#::refine-type-info-bind-methods! - (let ((__tmp169740 + (let ((__tmp170872 (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 __tmp169740))) + (__make-promise __tmp170872))) (define gxc#apply-refine-type-info - (lambda (_%stx166598%_) + (lambda (_%stx167730%_) (force gxc#::refine-type-info-bind-methods!) - (let* ((_%self166601%_ - (let ((__obj169675 + (let* ((_%self167733%_ + (let ((__obj170807 (let () (declare (not safe)) (##structure gxc#::refine-type-info::t)))) - __obj169675)) - (__tmp169741 + __obj170807)) + (__tmp170873 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166601%_ _%stx166598%_))))) + (gxc#compile-e__1 _%self167733%_ _%stx167730%_))))) (declare (not safe)) (__call-with-parameters - __tmp169741 + __tmp170873 gxc#current-compile-method - _%self166601%_)))) + _%self167733%_)))) (define gxc#::raw-expression-type::t - (let ((__tmp169742 (list gxc#::false::t))) + (let ((__tmp170874 (list gxc#::false::t))) (declare (not safe)) (__make-class-type 'gxc#::raw-expression-type::t '::raw-expression-type - __tmp169742 + __tmp170874 '() '() '#f))) @@ -639,10 +639,10 @@ (declare (not safe)) (__make-class-predicate gxc#::raw-expression-type::t))) (define gxc#make-::raw-expression-type - (lambda _%$args166595%_ - (apply make-instance gxc#::raw-expression-type::t _%$args166595%_))) + (lambda _%$args167727%_ + (apply make-instance gxc#::raw-expression-type::t _%$args167727%_))) (define gxc#::raw-expression-type-bind-methods! - (let ((__tmp169743 + (let ((__tmp170875 (lambda () (force gxc#::false-bind-methods!) (let () @@ -712,46 +712,46 @@ '%#quote gxc#basic-expression-type-quote%))))) (declare (not safe)) - (__make-promise __tmp169743))) + (__make-promise __tmp170875))) (define gxc#apply-raw-expression-type - (lambda (_%stx166587%_) + (lambda (_%stx167719%_) (force gxc#::raw-expression-type-bind-methods!) - (let* ((_%self166590%_ - (let ((__obj169677 + (let* ((_%self167722%_ + (let ((__obj170809 (let () (declare (not safe)) (##structure gxc#::raw-expression-type::t)))) - __obj169677)) - (__tmp169744 + __obj170809)) + (__tmp170876 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166590%_ _%stx166587%_))))) + (gxc#compile-e__1 _%self167722%_ _%stx167719%_))))) (declare (not safe)) (__call-with-parameters - __tmp169744 + __tmp170876 gxc#current-compile-method - _%self166590%_)))) + _%self167722%_)))) (define gxc#::basic-expression-type::t - (let ((__tmp169746 (list gxc#::raw-expression-type::t gxc#::false::t)) - (__tmp169745 (cons (cons 'final: '#t) '()))) + (let ((__tmp170878 (list gxc#::raw-expression-type::t gxc#::false::t)) + (__tmp170877 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-type::t '::basic-expression-type - __tmp169746 + __tmp170878 '() - __tmp169745 + __tmp170877 '#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 _%$args166584%_ - (apply make-instance gxc#::basic-expression-type::t _%$args166584%_))) + (lambda _%$args167716%_ + (apply make-instance gxc#::basic-expression-type::t _%$args167716%_))) (define gxc#::basic-expression-type-bind-methods! - (let ((__tmp169747 + (let ((__tmp170879 (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 __tmp169747))) + (__make-promise __tmp170879))) (define gxc#apply-basic-expression-type - (lambda (_%stx166576%_) + (lambda (_%stx167708%_) (force gxc#::basic-expression-type-bind-methods!) - (let* ((_%self166579%_ - (let ((__obj169679 + (let* ((_%self167711%_ + (let ((__obj170811 (let () (declare (not safe)) (##structure gxc#::basic-expression-type::t)))) - __obj169679)) - (__tmp169748 + __obj170811)) + (__tmp170880 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166579%_ _%stx166576%_))))) + (gxc#compile-e__1 _%self167711%_ _%stx167708%_))))) (declare (not safe)) (__call-with-parameters - __tmp169748 + __tmp170880 gxc#current-compile-method - _%self166579%_)))) + _%self167711%_)))) (define gxc#::lift-top-lambdas::t - (let ((__tmp169750 (list gxc#::basic-xform::t)) - (__tmp169749 (cons (cons 'final: '#t) '()))) + (let ((__tmp170882 (list gxc#::basic-xform::t)) + (__tmp170881 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-top-lambdas::t '::lift-top-lambdas - __tmp169750 + __tmp170882 '() - __tmp169749 + __tmp170881 '#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 _%$args166573%_ - (apply make-instance gxc#::lift-top-lambdas::t _%$args166573%_))) + (lambda _%$args167705%_ + (apply make-instance gxc#::lift-top-lambdas::t _%$args167705%_))) (define gxc#::lift-top-lambdas-bind-methods! - (let ((__tmp169751 + (let ((__tmp170883 (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 __tmp169751))) + (__make-promise __tmp170883))) (define gxc#apply-lift-top-lambdas - (lambda (_%stx166565%_) + (lambda (_%stx167697%_) (force gxc#::lift-top-lambdas-bind-methods!) - (let* ((_%self166568%_ - (let ((__obj169681 + (let* ((_%self167700%_ + (let ((__obj170813 (let () (declare (not safe)) (##structure gxc#::lift-top-lambdas::t)))) - __obj169681)) - (__tmp169752 + __obj170813)) + (__tmp170884 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166568%_ _%stx166565%_))))) + (gxc#compile-e__1 _%self167700%_ _%stx167697%_))))) (declare (not safe)) (__call-with-parameters - __tmp169752 + __tmp170884 gxc#current-compile-method - _%self166568%_)))) + _%self167700%_)))) (define gxc#::extract-lambda-signature::t - (let ((__tmp169754 (list gxc#::false::t)) - (__tmp169753 (cons (cons 'final: '#t) '()))) + (let ((__tmp170886 (list gxc#::false::t)) + (__tmp170885 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-lambda-signature::t '::extract-lambda-signature - __tmp169754 + __tmp170886 '() - __tmp169753 + __tmp170885 '#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 _%$args166562%_ + (lambda _%$args167694%_ (apply make-instance gxc#::extract-lambda-signature::t - _%$args166562%_))) + _%$args167694%_))) (define gxc#::extract-lambda-signature-bind-methods! - (let ((__tmp169755 + (let ((__tmp170887 (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 __tmp169755))) + (__make-promise __tmp170887))) (define gxc#apply-extract-lambda-signature - (lambda (_%stx166554%_) + (lambda (_%stx167686%_) (force gxc#::extract-lambda-signature-bind-methods!) - (let* ((_%self166557%_ - (let ((__obj169683 + (let* ((_%self167689%_ + (let ((__obj170815 (let () (declare (not safe)) (##structure gxc#::extract-lambda-signature::t)))) - __obj169683)) - (__tmp169756 + __obj170815)) + (__tmp170888 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166557%_ _%stx166554%_))))) + (gxc#compile-e__1 _%self167689%_ _%stx167686%_))))) (declare (not safe)) (__call-with-parameters - __tmp169756 + __tmp170888 gxc#current-compile-method - _%self166557%_)))) + _%self167689%_)))) (define gxc#collect-top-level-type-define-values% - (lambda (_%self166456%_ _%stx166457%_) - (let* ((_%__stx166674166675%_ _%stx166457%_) - (_%g166460166480%_ + (lambda (_%self167588%_ _%stx167589%_) + (let* ((_%__stx167806167807%_ _%stx167589%_) + (_%g167592167612%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166674166675%_))))) - (let ((_%__kont166676166677%_ - (lambda (_%L166524%_ _%L166525%_) - (let ((_%sym166543%_ + _%__stx167806167807%_))))) + (let ((_%__kont167808167809%_ + (lambda (_%L167656%_ _%L167657%_) + (let ((_%sym167675%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L166525%_)))) + (gxc#identifier-symbol _%L167657%_)))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self166456%_ _%L166524%_)) - (let ((_%type166544166546%_ + (gxc#compile-e__1 _%self167588%_ _%L167656%_)) + (let ((_%type167676167678%_ (gxc#apply-basic-expression-top-level-type - _%L166524%_))) - (if _%type166544166546%_ - (let ((_%type166549%_ _%type166544166546%_)) + _%L167656%_))) + (if _%type167676167678%_ + (let ((_%type167681%_ _%type167676167678%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type166549%_ + _%type167681%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp169757 + (let ((__tmp170889 (let () (declare (not safe)) (##unchecked-structure-ref - _%type166549%_ + _%type167681%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym166543%_ - __tmp169757)) - (let ((__tmp169758 + _%sym167675%_ + __tmp170889)) + (let ((__tmp170890 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166457%_ + _%stx167589%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym166543%_ - __tmp169758))) + _%sym167675%_ + __tmp170890))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym166543%_ - _%type166549%_)))) + _%sym167675%_ + _%type167681%_)))) '#f))))) - (_%__kont166678166679%_ (lambda () '#!void))) - (let ((_%__match166707166708%_ - (lambda (_%e166464166492%_ - _%hd166465166495%_ - _%tl166466166497%_ - _%e166467166500%_ - _%hd166468166503%_ - _%tl166469166505%_ - _%e166470166508%_ - _%hd166471166511%_ - _%tl166472166513%_ - _%e166473166516%_ - _%hd166474166519%_ - _%tl166475166521%_) - (let ((_%L166524%_ _%hd166474166519%_) - (_%L166525%_ _%hd166471166511%_)) + (_%__kont167810167811%_ (lambda () '#!void))) + (let ((_%__match167839167840%_ + (lambda (_%e167596167624%_ + _%hd167597167627%_ + _%tl167598167629%_ + _%e167599167632%_ + _%hd167600167635%_ + _%tl167601167637%_ + _%e167602167640%_ + _%hd167603167643%_ + _%tl167604167645%_ + _%e167605167648%_ + _%hd167606167651%_ + _%tl167607167653%_) + (let ((_%L167656%_ _%hd167606167651%_) + (_%L167657%_ _%hd167603167643%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166525%_)) - (_%__kont166676166677%_ _%L166524%_ _%L166525%_) - (_%__kont166678166679%_)))))) + (gx#identifier? _%L167657%_)) + (_%__kont167808167809%_ _%L167656%_ _%L167657%_) + (_%__kont167810167811%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166674166675%_)) - (let ((_%e166464166492%_ + (gx#stx-pair? _%__stx167806167807%_)) + (let ((_%e167596167624%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166674166675%_)))) - (let ((_%tl166466166497%_ + (gx#stx-e _%__stx167806167807%_)))) + (let ((_%tl167598167629%_ (let () (declare (not safe)) - (##cdr _%e166464166492%_))) - (_%hd166465166495%_ + (##cdr _%e167596167624%_))) + (_%hd167597167627%_ (let () (declare (not safe)) - (##car _%e166464166492%_)))) + (##car _%e167596167624%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166466166497%_)) - (let ((_%e166467166500%_ + (gx#stx-pair? _%tl167598167629%_)) + (let ((_%e167599167632%_ (let () (declare (not safe)) - (gx#stx-e _%tl166466166497%_)))) - (let ((_%tl166469166505%_ + (gx#stx-e _%tl167598167629%_)))) + (let ((_%tl167601167637%_ (let () (declare (not safe)) - (##cdr _%e166467166500%_))) - (_%hd166468166503%_ + (##cdr _%e167599167632%_))) + (_%hd167600167635%_ (let () (declare (not safe)) - (##car _%e166467166500%_)))) + (##car _%e167599167632%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166468166503%_)) - (let ((_%e166470166508%_ + (gx#stx-pair? _%hd167600167635%_)) + (let ((_%e167602167640%_ (let () (declare (not safe)) - (gx#stx-e _%hd166468166503%_)))) - (let ((_%tl166472166513%_ + (gx#stx-e _%hd167600167635%_)))) + (let ((_%tl167604167645%_ (let () (declare (not safe)) - (##cdr _%e166470166508%_))) - (_%hd166471166511%_ + (##cdr _%e167602167640%_))) + (_%hd167603167643%_ (let () (declare (not safe)) - (##car _%e166470166508%_)))) + (##car _%e167602167640%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166472166513%_)) + (gx#stx-null? _%tl167604167645%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166469166505%_)) - (let ((_%e166473166516%_ + _%tl167601167637%_)) + (let ((_%e167605167648%_ (let () (declare (not safe)) (gx#stx-e - _%tl166469166505%_)))) - (let ((_%tl166475166521%_ + _%tl167601167637%_)))) + (let ((_%tl167607167653%_ (let () (declare (not safe)) - (##cdr _%e166473166516%_))) - (_%hd166474166519%_ + (##cdr _%e167605167648%_))) + (_%hd167606167651%_ (let () (declare (not safe)) - (##car _%e166473166516%_)))) + (##car _%e167605167648%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166475166521%_)) - (_%__match166707166708%_ - _%e166464166492%_ - _%hd166465166495%_ - _%tl166466166497%_ - _%e166467166500%_ - _%hd166468166503%_ - _%tl166469166505%_ - _%e166470166508%_ - _%hd166471166511%_ - _%tl166472166513%_ - _%e166473166516%_ - _%hd166474166519%_ - _%tl166475166521%_) - (_%__kont166678166679%_)))) - (_%__kont166678166679%_)) - (_%__kont166678166679%_)))) - (_%__kont166678166679%_)))) - (_%__kont166678166679%_)))) - (_%__kont166678166679%_))))))) + _%tl167607167653%_)) + (_%__match167839167840%_ + _%e167596167624%_ + _%hd167597167627%_ + _%tl167598167629%_ + _%e167599167632%_ + _%hd167600167635%_ + _%tl167601167637%_ + _%e167602167640%_ + _%hd167603167643%_ + _%tl167604167645%_ + _%e167605167648%_ + _%hd167606167651%_ + _%tl167607167653%_) + (_%__kont167810167811%_)))) + (_%__kont167810167811%_)) + (_%__kont167810167811%_)))) + (_%__kont167810167811%_)))) + (_%__kont167810167811%_)))) + (_%__kont167810167811%_))))))) (define gxc#collect-top-level-decl-begin-annotation% - (lambda (_%self166278%_ _%stx166279%_) - (let* ((_%__stx166710166711%_ _%stx166279%_) - (_%g166282166322%_ + (lambda (_%self167410%_ _%stx167411%_) + (let* ((_%__stx167842167843%_ _%stx167411%_) + (_%g167414167454%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166710166711%_))))) - (let ((_%__kont166712166713%_ - (lambda (_%L166428%_ _%L166429%_) - (let ((_%type166451%_ - (let ((__tmp169759 + _%__stx167842167843%_))))) + (let ((_%__kont167844167845%_ + (lambda (_%L167560%_ _%L167561%_) + (let ((_%type167583%_ + (let ((__tmp170891 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166429%_)))) + (gxc#identifier-symbol _%L167561%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp169759)))) + (gxc#optimizer-lookup-type __tmp170891)))) (if (let () (declare (not safe)) (##structure-instance-of? - _%type166451%_ + _%type167583%_ 'gxc#!lambda::t)) - (let ((__tmp169760 - (gxc#eval-in-ssxi-context _%L166428%_))) + (let ((__tmp170892 + (gxc#eval-in-ssxi-context _%L167560%_))) (declare (not safe)) (##unchecked-structure-set! - _%type166451%_ - __tmp169760 + _%type167583%_ + __tmp170892 '5 '#f '#f)) @@ -1139,6747 +1139,6747 @@ (declare (not safe)) (gxc#raise-compile-error '"inline rule for non lambda procedure" - _%stx166279%_ - _%L166429%_)))))) - (_%__kont166714166715%_ - (lambda (_%L166351%_ _%L166352%_) '#!void))) + _%stx167411%_ + _%L167561%_)))))) + (_%__kont167846167847%_ + (lambda (_%L167483%_ _%L167484%_) '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166710166711%_)) - (let ((_%e166286166372%_ + (gx#stx-pair? _%__stx167842167843%_)) + (let ((_%e167418167504%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166710166711%_)))) - (let ((_%tl166288166377%_ + (gx#stx-e _%__stx167842167843%_)))) + (let ((_%tl167420167509%_ (let () (declare (not safe)) - (##cdr _%e166286166372%_))) - (_%hd166287166375%_ + (##cdr _%e167418167504%_))) + (_%hd167419167507%_ (let () (declare (not safe)) - (##car _%e166286166372%_)))) + (##car _%e167418167504%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166288166377%_)) - (let ((_%e166289166380%_ + (gx#stx-pair? _%tl167420167509%_)) + (let ((_%e167421167512%_ (let () (declare (not safe)) - (gx#stx-e _%tl166288166377%_)))) - (let ((_%tl166291166385%_ + (gx#stx-e _%tl167420167509%_)))) + (let ((_%tl167423167517%_ (let () (declare (not safe)) - (##cdr _%e166289166380%_))) - (_%hd166290166383%_ + (##cdr _%e167421167512%_))) + (_%hd167422167515%_ (let () (declare (not safe)) - (##car _%e166289166380%_)))) + (##car _%e167421167512%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166290166383%_)) - (let ((_%e166292166388%_ + (gx#stx-pair? _%hd167422167515%_)) + (let ((_%e167424167520%_ (let () (declare (not safe)) - (gx#stx-e _%hd166290166383%_)))) - (let ((_%tl166294166393%_ + (gx#stx-e _%hd167422167515%_)))) + (let ((_%tl167426167525%_ (let () (declare (not safe)) - (##cdr _%e166292166388%_))) - (_%hd166293166391%_ + (##cdr _%e167424167520%_))) + (_%hd167425167523%_ (let () (declare (not safe)) - (##car _%e166292166388%_)))) + (##car _%e167424167520%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166293166391%_)) + (gx#identifier? _%hd167425167523%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd166293166391%_)) + _%hd167425167523%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166294166393%_)) - (let ((_%e166295166396%_ + _%tl167426167525%_)) + (let ((_%e167427167528%_ (let () (declare (not safe)) (gx#stx-e - _%tl166294166393%_)))) - (let ((_%tl166297166401%_ + _%tl167426167525%_)))) + (let ((_%tl167429167533%_ (let () (declare (not safe)) - (##cdr _%e166295166396%_))) - (_%hd166296166399%_ + (##cdr _%e167427167528%_))) + (_%hd167428167531%_ (let () (declare (not safe)) - (##car _%e166295166396%_)))) + (##car _%e167427167528%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166297166401%_)) + _%tl167429167533%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166291166385%_)) - (let ((_%e166298166404%_ + _%tl167423167517%_)) + (let ((_%e167430167536%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl166291166385%_)))) - (let ((_%tl166300166409%_ + (gx#stx-e _%tl167423167517%_)))) + (let ((_%tl167432167541%_ (let () (declare (not safe)) - (##cdr _%e166298166404%_))) - (_%hd166299166407%_ + (##cdr _%e167430167536%_))) + (_%hd167431167539%_ (let () (declare (not safe)) - (##car _%e166298166404%_)))) + (##car _%e167430167536%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166299166407%_)) - (let ((_%e166301166412%_ + (gx#stx-pair? _%hd167431167539%_)) + (let ((_%e167433167544%_ (let () (declare (not safe)) - (gx#stx-e _%hd166299166407%_)))) - (let ((_%tl166303166417%_ + (gx#stx-e _%hd167431167539%_)))) + (let ((_%tl167435167549%_ (let () (declare (not safe)) - (##cdr _%e166301166412%_))) - (_%hd166302166415%_ + (##cdr _%e167433167544%_))) + (_%hd167434167547%_ (let () (declare (not safe)) - (##car _%e166301166412%_)))) + (##car _%e167433167544%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166302166415%_)) + (gx#identifier? _%hd167434167547%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd166302166415%_)) + _%hd167434167547%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166303166417%_)) - (let ((_%e166304166420%_ + _%tl167435167549%_)) + (let ((_%e167436167552%_ (let () (declare (not safe)) (gx#stx-e - _%tl166303166417%_)))) - (let ((_%tl166306166425%_ + _%tl167435167549%_)))) + (let ((_%tl167438167557%_ (let () (declare (not safe)) - (##cdr _%e166304166420%_))) - (_%hd166305166423%_ + (##cdr _%e167436167552%_))) + (_%hd167437167555%_ (let () (declare (not safe)) - (##car _%e166304166420%_)))) + (##car _%e167436167552%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166306166425%_)) + _%tl167438167557%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166300166409%_)) - (_%__kont166712166713%_ - _%hd166305166423%_ - _%hd166296166399%_) + _%tl167432167541%_)) + (_%__kont167844167845%_ + _%hd167437167555%_ + _%hd167428167531%_) (let () (declare (not safe)) - (_%g166282166322%_))) + (_%g167414167454%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166300166409%_)) - (_%__kont166714166715%_ - _%hd166299166407%_ - _%hd166290166383%_) + _%tl167432167541%_)) + (_%__kont167846167847%_ + _%hd167431167539%_ + _%hd167422167515%_) (let () (declare (not safe)) - (_%g166282166322%_)))))) + (_%g167414167454%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166300166409%_)) - (_%__kont166714166715%_ - _%hd166299166407%_ - _%hd166290166383%_) + _%tl167432167541%_)) + (_%__kont167846167847%_ + _%hd167431167539%_ + _%hd167422167515%_) (let () (declare (not safe)) - (_%g166282166322%_)))) + (_%g167414167454%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166300166409%_)) - (_%__kont166714166715%_ - _%hd166299166407%_ - _%hd166290166383%_) + _%tl167432167541%_)) + (_%__kont167846167847%_ + _%hd167431167539%_ + _%hd167422167515%_) (let () (declare (not safe)) - (_%g166282166322%_)))) + (_%g167414167454%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166300166409%_)) - (_%__kont166714166715%_ - _%hd166299166407%_ - _%hd166290166383%_) + (gx#stx-null? _%tl167432167541%_)) + (_%__kont167846167847%_ + _%hd167431167539%_ + _%hd167422167515%_) (let () (declare (not safe)) - (_%g166282166322%_)))))) + (_%g167414167454%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166300166409%_)) - (_%__kont166714166715%_ - _%hd166299166407%_ - _%hd166290166383%_) + (gx#stx-null? _%tl167432167541%_)) + (_%__kont167846167847%_ + _%hd167431167539%_ + _%hd167422167515%_) (let () (declare (not safe)) - (_%g166282166322%_)))))) - (let () (declare (not safe)) (_%g166282166322%_))) + (_%g167414167454%_)))))) + (let () (declare (not safe)) (_%g167414167454%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166291166385%_)) - (let ((_%e166315166343%_ + (gx#stx-pair? _%tl167423167517%_)) + (let ((_%e167447167475%_ (let () (declare (not safe)) - (gx#stx-e _%tl166291166385%_)))) - (let ((_%tl166317166348%_ + (gx#stx-e _%tl167423167517%_)))) + (let ((_%tl167449167480%_ (let () (declare (not safe)) - (##cdr _%e166315166343%_))) - (_%hd166316166346%_ + (##cdr _%e167447167475%_))) + (_%hd167448167478%_ (let () (declare (not safe)) - (##car _%e166315166343%_)))) + (##car _%e167447167475%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166317166348%_)) - (_%__kont166714166715%_ - _%hd166316166346%_ - _%hd166290166383%_) + (gx#stx-null? _%tl167449167480%_)) + (_%__kont167846167847%_ + _%hd167448167478%_ + _%hd167422167515%_) (let () (declare (not safe)) - (_%g166282166322%_))))) - (let () (declare (not safe)) (_%g166282166322%_)))))) + (_%g167414167454%_))))) + (let () (declare (not safe)) (_%g167414167454%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166291166385%_)) - (let ((_%e166315166343%_ + _%tl167423167517%_)) + (let ((_%e167447167475%_ (let () (declare (not safe)) (gx#stx-e - _%tl166291166385%_)))) - (let ((_%tl166317166348%_ + _%tl167423167517%_)))) + (let ((_%tl167449167480%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e166315166343%_))) - (_%hd166316166346%_ - (let () (declare (not safe)) (##car _%e166315166343%_)))) + (##cdr _%e167447167475%_))) + (_%hd167448167478%_ + (let () (declare (not safe)) (##car _%e167447167475%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166317166348%_)) - (_%__kont166714166715%_ - _%hd166316166346%_ - _%hd166290166383%_) - (let () (declare (not safe)) (_%g166282166322%_))))) + (gx#stx-null? _%tl167449167480%_)) + (_%__kont167846167847%_ + _%hd167448167478%_ + _%hd167422167515%_) + (let () (declare (not safe)) (_%g167414167454%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g166282166322%_)))) + (_%g167414167454%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166291166385%_)) - (let ((_%e166315166343%_ + _%tl167423167517%_)) + (let ((_%e167447167475%_ (let () (declare (not safe)) (gx#stx-e - _%tl166291166385%_)))) - (let ((_%tl166317166348%_ + _%tl167423167517%_)))) + (let ((_%tl167449167480%_ (let () (declare (not safe)) - (##cdr _%e166315166343%_))) - (_%hd166316166346%_ + (##cdr _%e167447167475%_))) + (_%hd167448167478%_ (let () (declare (not safe)) - (##car _%e166315166343%_)))) + (##car _%e167447167475%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166317166348%_)) - (_%__kont166714166715%_ - _%hd166316166346%_ - _%hd166290166383%_) + _%tl167449167480%_)) + (_%__kont167846167847%_ + _%hd167448167478%_ + _%hd167422167515%_) (let () (declare (not safe)) - (_%g166282166322%_))))) + (_%g167414167454%_))))) (let () (declare (not safe)) - (_%g166282166322%_)))) + (_%g167414167454%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166291166385%_)) - (let ((_%e166315166343%_ + _%tl167423167517%_)) + (let ((_%e167447167475%_ (let () (declare (not safe)) (gx#stx-e - _%tl166291166385%_)))) - (let ((_%tl166317166348%_ + _%tl167423167517%_)))) + (let ((_%tl167449167480%_ (let () (declare (not safe)) - (##cdr _%e166315166343%_))) - (_%hd166316166346%_ + (##cdr _%e167447167475%_))) + (_%hd167448167478%_ (let () (declare (not safe)) - (##car _%e166315166343%_)))) + (##car _%e167447167475%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166317166348%_)) - (_%__kont166714166715%_ - _%hd166316166346%_ - _%hd166290166383%_) + _%tl167449167480%_)) + (_%__kont167846167847%_ + _%hd167448167478%_ + _%hd167422167515%_) (let () (declare (not safe)) - (_%g166282166322%_))))) + (_%g167414167454%_))))) (let () (declare (not safe)) - (_%g166282166322%_)))))) + (_%g167414167454%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166291166385%_)) - (let ((_%e166315166343%_ + (gx#stx-pair? _%tl167423167517%_)) + (let ((_%e167447167475%_ (let () (declare (not safe)) - (gx#stx-e _%tl166291166385%_)))) - (let ((_%tl166317166348%_ + (gx#stx-e _%tl167423167517%_)))) + (let ((_%tl167449167480%_ (let () (declare (not safe)) - (##cdr _%e166315166343%_))) - (_%hd166316166346%_ + (##cdr _%e167447167475%_))) + (_%hd167448167478%_ (let () (declare (not safe)) - (##car _%e166315166343%_)))) + (##car _%e167447167475%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166317166348%_)) - (_%__kont166714166715%_ - _%hd166316166346%_ - _%hd166290166383%_) + _%tl167449167480%_)) + (_%__kont167846167847%_ + _%hd167448167478%_ + _%hd167422167515%_) (let () (declare (not safe)) - (_%g166282166322%_))))) + (_%g167414167454%_))))) (let () (declare (not safe)) - (_%g166282166322%_)))))) - (let () (declare (not safe)) (_%g166282166322%_))))) - (let () (declare (not safe)) (_%g166282166322%_))))))) + (_%g167414167454%_)))))) + (let () (declare (not safe)) (_%g167414167454%_))))) + (let () (declare (not safe)) (_%g167414167454%_))))))) (define gxc#eval-in-ssxi-context - (lambda (_%expr166275%_) - (let ((__tmp169762 + (lambda (_%expr167407%_) + (let ((__tmp170894 (lambda () (eval '(import :gerbil/compiler/ssxi)) (let () (declare (not safe)) - (gx#eval-syntax__0 _%expr166275%_)))) - (__tmp169761 - (let ((__obj169684 + (gx#eval-syntax__0 _%expr167407%_)))) + (__tmp170893 + (let ((__obj170816 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gx#top-context:::init!__0 __obj169684)) - __obj169684))) + (gx#top-context:::init!__0 __obj170816)) + __obj170816))) (declare (not safe)) (__call-with-parameters - __tmp169762 + __tmp170894 gx#current-expander-context - __tmp169761)))) + __tmp170893)))) (define gxc#collect-type-define-values% - (lambda (_%self166137%_ _%stx166138%_) - (let* ((_%__stx166794166795%_ _%stx166138%_) - (_%g166141166171%_ + (lambda (_%self167269%_ _%stx167270%_) + (let* ((_%__stx167926167927%_ _%stx167270%_) + (_%g167273167303%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166794166795%_))))) - (let ((_%__kont166796166797%_ - (lambda (_%L166251%_ _%L166252%_) - (let ((_%sym166268%_ + _%__stx167926167927%_))))) + (let ((_%__kont167928167929%_ + (lambda (_%L167383%_ _%L167384%_) + (let ((_%sym167400%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L166252%_)))) + (gxc#identifier-symbol _%L167384%_)))) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym166268%_)) + (gxc#optimizer-lookup-type _%sym167400%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self166137%_ _%L166251%_)) - (let ((_%type166270%_ - (gxc#apply-basic-expression-type _%L166251%_))) - (if _%type166270%_ + (gxc#compile-e__1 _%self167269%_ _%L167383%_)) + (let ((_%type167402%_ + (gxc#apply-basic-expression-type _%L167383%_))) + (if _%type167402%_ (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym166268%_ - _%type166270%_)) + _%sym167400%_ + _%type167402%_)) '#!void) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166137%_ - _%L166251%_))))))) - (_%__kont166798166799%_ - (lambda (_%L166200%_) + _%self167269%_ + _%L167383%_))))))) + (_%__kont167930167931%_ + (lambda (_%L167332%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self166137%_ _%L166200%_))))) - (let ((_%__match166827166828%_ - (lambda (_%e166145166219%_ - _%hd166146166222%_ - _%tl166147166224%_ - _%e166148166227%_ - _%hd166149166230%_ - _%tl166150166232%_ - _%e166151166235%_ - _%hd166152166238%_ - _%tl166153166240%_ - _%e166154166243%_ - _%hd166155166246%_ - _%tl166156166248%_) - (let ((_%L166251%_ _%hd166155166246%_) - (_%L166252%_ _%hd166152166238%_)) + (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%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166252%_)) - (_%__kont166796166797%_ _%L166251%_ _%L166252%_) - (_%__kont166798166799%_ _%hd166155166246%_)))))) + (gx#identifier? _%L167384%_)) + (_%__kont167928167929%_ _%L167383%_ _%L167384%_) + (_%__kont167930167931%_ _%hd167287167378%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166794166795%_)) - (let ((_%e166145166219%_ + (gx#stx-pair? _%__stx167926167927%_)) + (let ((_%e167277167351%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166794166795%_)))) - (let ((_%tl166147166224%_ + (gx#stx-e _%__stx167926167927%_)))) + (let ((_%tl167279167356%_ (let () (declare (not safe)) - (##cdr _%e166145166219%_))) - (_%hd166146166222%_ + (##cdr _%e167277167351%_))) + (_%hd167278167354%_ (let () (declare (not safe)) - (##car _%e166145166219%_)))) + (##car _%e167277167351%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166147166224%_)) - (let ((_%e166148166227%_ + (gx#stx-pair? _%tl167279167356%_)) + (let ((_%e167280167359%_ (let () (declare (not safe)) - (gx#stx-e _%tl166147166224%_)))) - (let ((_%tl166150166232%_ + (gx#stx-e _%tl167279167356%_)))) + (let ((_%tl167282167364%_ (let () (declare (not safe)) - (##cdr _%e166148166227%_))) - (_%hd166149166230%_ + (##cdr _%e167280167359%_))) + (_%hd167281167362%_ (let () (declare (not safe)) - (##car _%e166148166227%_)))) + (##car _%e167280167359%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166149166230%_)) - (let ((_%e166151166235%_ + (gx#stx-pair? _%hd167281167362%_)) + (let ((_%e167283167367%_ (let () (declare (not safe)) - (gx#stx-e _%hd166149166230%_)))) - (let ((_%tl166153166240%_ + (gx#stx-e _%hd167281167362%_)))) + (let ((_%tl167285167372%_ (let () (declare (not safe)) - (##cdr _%e166151166235%_))) - (_%hd166152166238%_ + (##cdr _%e167283167367%_))) + (_%hd167284167370%_ (let () (declare (not safe)) - (##car _%e166151166235%_)))) + (##car _%e167283167367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166153166240%_)) + (gx#stx-null? _%tl167285167372%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166150166232%_)) - (let ((_%e166154166243%_ + _%tl167282167364%_)) + (let ((_%e167286167375%_ (let () (declare (not safe)) (gx#stx-e - _%tl166150166232%_)))) - (let ((_%tl166156166248%_ + _%tl167282167364%_)))) + (let ((_%tl167288167380%_ (let () (declare (not safe)) - (##cdr _%e166154166243%_))) - (_%hd166155166246%_ + (##cdr _%e167286167375%_))) + (_%hd167287167378%_ (let () (declare (not safe)) - (##car _%e166154166243%_)))) + (##car _%e167286167375%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166156166248%_)) - (_%__match166827166828%_ - _%e166145166219%_ - _%hd166146166222%_ - _%tl166147166224%_ - _%e166148166227%_ - _%hd166149166230%_ - _%tl166150166232%_ - _%e166151166235%_ - _%hd166152166238%_ - _%tl166153166240%_ - _%e166154166243%_ - _%hd166155166246%_ - _%tl166156166248%_) + _%tl167288167380%_)) + (_%__match167959167960%_ + _%e167277167351%_ + _%hd167278167354%_ + _%tl167279167356%_ + _%e167280167359%_ + _%hd167281167362%_ + _%tl167282167364%_ + _%e167283167367%_ + _%hd167284167370%_ + _%tl167285167372%_ + _%e167286167375%_ + _%hd167287167378%_ + _%tl167288167380%_) (let () (declare (not safe)) - (_%g166141166171%_))))) + (_%g167273167303%_))))) (let () (declare (not safe)) - (_%g166141166171%_))) + (_%g167273167303%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166150166232%_)) - (let ((_%e166164166192%_ + _%tl167282167364%_)) + (let ((_%e167296167324%_ (let () (declare (not safe)) (gx#stx-e - _%tl166150166232%_)))) - (let ((_%tl166166166197%_ + _%tl167282167364%_)))) + (let ((_%tl167298167329%_ (let () (declare (not safe)) - (##cdr _%e166164166192%_))) - (_%hd166165166195%_ + (##cdr _%e167296167324%_))) + (_%hd167297167327%_ (let () (declare (not safe)) - (##car _%e166164166192%_)))) + (##car _%e167296167324%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166166166197%_)) - (_%__kont166798166799%_ - _%hd166165166195%_) + _%tl167298167329%_)) + (_%__kont167930167931%_ + _%hd167297167327%_) (let () (declare (not safe)) - (_%g166141166171%_))))) + (_%g167273167303%_))))) (let () (declare (not safe)) - (_%g166141166171%_)))))) + (_%g167273167303%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166150166232%_)) - (let ((_%e166164166192%_ + (gx#stx-pair? _%tl167282167364%_)) + (let ((_%e167296167324%_ (let () (declare (not safe)) - (gx#stx-e _%tl166150166232%_)))) - (let ((_%tl166166166197%_ + (gx#stx-e _%tl167282167364%_)))) + (let ((_%tl167298167329%_ (let () (declare (not safe)) - (##cdr _%e166164166192%_))) - (_%hd166165166195%_ + (##cdr _%e167296167324%_))) + (_%hd167297167327%_ (let () (declare (not safe)) - (##car _%e166164166192%_)))) + (##car _%e167296167324%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166166166197%_)) - (_%__kont166798166799%_ - _%hd166165166195%_) + _%tl167298167329%_)) + (_%__kont167930167931%_ + _%hd167297167327%_) (let () (declare (not safe)) - (_%g166141166171%_))))) + (_%g167273167303%_))))) (let () (declare (not safe)) - (_%g166141166171%_)))))) - (let () (declare (not safe)) (_%g166141166171%_))))) - (let () (declare (not safe)) (_%g166141166171%_)))))))) + (_%g167273167303%_)))))) + (let () (declare (not safe)) (_%g167273167303%_))))) + (let () (declare (not safe)) (_%g167273167303%_)))))))) (define gxc#collect-type-begin-annotation% - (lambda (_%self165892%_ _%stx165893%_) - (let* ((_%__stx166872166873%_ _%stx165893%_) - (_%g165896165936%_ + (lambda (_%self167024%_ _%stx167025%_) + (let* ((_%__stx168004168005%_ _%stx167025%_) + (_%g167028167068%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166872166873%_))))) - (let ((_%__kont166874166875%_ - (lambda (_%L166042%_ _%L166043%_) + _%__stx168004168005%_))))) + (let ((_%__kont168006168007%_ + (lambda (_%L167174%_ _%L167175%_) (for-each - (lambda (_%assertion166063%_) - (let* ((_%__stx166850166851%_ _%assertion166063%_) - (_%g166066166080%_ + (lambda (_%assertion167195%_) + (let* ((_%__stx167982167983%_ _%assertion167195%_) + (_%g167198167212%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166850166851%_))))) - (let ((_%__kont166852166853%_ - (lambda (_%L166108%_ _%L166109%_) - (let ((__tmp169765 + _%__stx167982167983%_))))) + (let ((_%__kont167984167985%_ + (lambda (_%L167240%_ _%L167241%_) + (let ((__tmp170897 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166109%_))) - (__tmp169763 - (let ((__tmp169764 + (gxc#identifier-symbol _%L167241%_))) + (__tmp170895 + (let ((__tmp170896 (let () (declare (not safe)) (gxc#identifier-symbol - _%L166108%_)))) + _%L167240%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx165893%_ - __tmp169764)))) + _%stx167025%_ + __tmp170896)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp169765 - __tmp169763 + __tmp170897 + __tmp170895 '#t)))) - (_%__kont166854166855%_ + (_%__kont167986167987%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"malformed type assertion" - _%stx165893%_ - _%assertion166063%_))))) - (let ((_%__match166869166870%_ - (lambda (_%e166070166092%_ - _%hd166071166095%_ - _%tl166072166097%_ - _%e166073166100%_ - _%hd166074166103%_ - _%tl166075166105%_) - (let ((_%L166108%_ _%hd166074166103%_) - (_%L166109%_ _%hd166071166095%_)) + _%stx167025%_ + _%assertion167195%_))))) + (let ((_%__match168001168002%_ + (lambda (_%e167202167224%_ + _%hd167203167227%_ + _%tl167204167229%_ + _%e167205167232%_ + _%hd167206167235%_ + _%tl167207167237%_) + (let ((_%L167240%_ _%hd167206167235%_) + (_%L167241%_ _%hd167203167227%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L166109%_)) + (gx#identifier? _%L167241%_)) (let () (declare (not safe)) - (gx#identifier? _%L166108%_))) - (_%__kont166852166853%_ - _%L166108%_ - _%L166109%_) - (_%__kont166854166855%_)))))) + (gx#identifier? _%L167240%_))) + (_%__kont167984167985%_ + _%L167240%_ + _%L167241%_) + (_%__kont167986167987%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166850166851%_)) - (let ((_%e166070166092%_ + (gx#stx-pair? _%__stx167982167983%_)) + (let ((_%e167202167224%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166850166851%_)))) - (let ((_%tl166072166097%_ + (gx#stx-e _%__stx167982167983%_)))) + (let ((_%tl167204167229%_ (let () (declare (not safe)) - (##cdr _%e166070166092%_))) - (_%hd166071166095%_ + (##cdr _%e167202167224%_))) + (_%hd167203167227%_ (let () (declare (not safe)) - (##car _%e166070166092%_)))) + (##car _%e167202167224%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166072166097%_)) - (let ((_%e166073166100%_ + (gx#stx-pair? _%tl167204167229%_)) + (let ((_%e167205167232%_ (let () (declare (not safe)) (gx#stx-e - _%tl166072166097%_)))) - (let ((_%tl166075166105%_ + _%tl167204167229%_)))) + (let ((_%tl167207167237%_ (let () (declare (not safe)) - (##cdr _%e166073166100%_))) - (_%hd166074166103%_ + (##cdr _%e167205167232%_))) + (_%hd167206167235%_ (let () (declare (not safe)) - (##car _%e166073166100%_)))) + (##car _%e167205167232%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166075166105%_)) - (_%__match166869166870%_ - _%e166070166092%_ - _%hd166071166095%_ - _%tl166072166097%_ - _%e166073166100%_ - _%hd166074166103%_ - _%tl166075166105%_) - (_%__kont166854166855%_)))) - (_%__kont166854166855%_)))) - (_%__kont166854166855%_)))))) - (let ((__tmp169766 - (lambda (_%g166126166129%_ _%g166127166131%_) - (cons _%g166126166129%_ _%g166127166131%_)))) + _%tl167207167237%_)) + (_%__match168001168002%_ + _%e167202167224%_ + _%hd167203167227%_ + _%tl167204167229%_ + _%e167205167232%_ + _%hd167206167235%_ + _%tl167207167237%_) + (_%__kont167986167987%_)))) + (_%__kont167986167987%_)))) + (_%__kont167986167987%_)))))) + (let ((__tmp170898 + (lambda (_%g167258167261%_ _%g167259167263%_) + (cons _%g167258167261%_ _%g167259167263%_)))) (declare (not safe)) - (__foldr1 __tmp169766 '() _%L166043%_))) + (__foldr1 __tmp170898 '() _%L167175%_))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165892%_ _%L166042%_)))) - (_%__kont166878166879%_ - (lambda (_%L165965%_ _%L165966%_) + (gxc#compile-e__1 _%self167024%_ _%L167174%_)))) + (_%__kont168010168011%_ + (lambda (_%L167097%_ _%L167098%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165892%_ _%L165965%_))))) - (let ((_%__match166909166910%_ - (lambda (_%e165900165986%_ - _%hd165901165989%_ - _%tl165902165991%_ - _%e165903165994%_ - _%hd165904165997%_ - _%tl165905165999%_ - _%e165906166002%_ - _%hd165907166005%_ - _%tl165908166007%_ - _%__splice166876166877%_ - _%target165909166010%_ - _%tl165911166012%_) - (letrec ((_%loop165912166015%_ - (lambda (_%hd165910166018%_ - _%assertion165916166020%_) + (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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165910166018%_)) - (let ((_%e165913166023%_ + (gx#stx-pair? _%hd167042167150%_)) + (let ((_%e167045167155%_ (let () (declare (not safe)) - (gx#stx-e _%hd165910166018%_)))) - (let ((_%lp-tl165915166028%_ + (gx#stx-e _%hd167042167150%_)))) + (let ((_%lp-tl167047167160%_ (let () (declare (not safe)) - (##cdr _%e165913166023%_))) - (_%lp-hd165914166026%_ + (##cdr _%e167045167155%_))) + (_%lp-hd167046167158%_ (let () (declare (not safe)) - (##car _%e165913166023%_)))) - (_%loop165912166015%_ - _%lp-tl165915166028%_ - (cons _%lp-hd165914166026%_ - _%assertion165916166020%_)))) - (let ((_%assertion165917166031%_ - (reverse _%assertion165916166020%_))) + (##car _%e167045167155%_)))) + (_%loop167044167147%_ + _%lp-tl167047167160%_ + (cons _%lp-hd167046167158%_ + _%assertion167048167152%_)))) + (let ((_%assertion167049167163%_ + (reverse _%assertion167048167152%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165905165999%_)) - (let ((_%e165918166034%_ + (gx#stx-pair? _%tl167037167131%_)) + (let ((_%e167050167166%_ (let () (declare (not safe)) (gx#stx-e - _%tl165905165999%_)))) - (let ((_%tl165920166039%_ + _%tl167037167131%_)))) + (let ((_%tl167052167171%_ (let () (declare (not safe)) - (##cdr _%e165918166034%_))) - (_%hd165919166037%_ + (##cdr _%e167050167166%_))) + (_%hd167051167169%_ (let () (declare (not safe)) - (##car _%e165918166034%_)))) + (##car _%e167050167166%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165920166039%_)) - (_%__kont166874166875%_ - _%hd165919166037%_ - _%assertion165917166031%_) + _%tl167052167171%_)) + (_%__kont168006168007%_ + _%hd167051167169%_ + _%assertion167049167163%_) (let () (declare (not safe)) - (_%g165896165936%_))))) + (_%g167028167068%_))))) (let () (declare (not safe)) - (_%g165896165936%_)))))))) - (_%loop165912166015%_ _%target165909166010%_ '()))))) + (_%g167028167068%_)))))))) + (_%loop167044167147%_ _%target167041167142%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166872166873%_)) - (let ((_%e165900165986%_ + (gx#stx-pair? _%__stx168004168005%_)) + (let ((_%e167032167118%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166872166873%_)))) - (let ((_%tl165902165991%_ + (gx#stx-e _%__stx168004168005%_)))) + (let ((_%tl167034167123%_ (let () (declare (not safe)) - (##cdr _%e165900165986%_))) - (_%hd165901165989%_ + (##cdr _%e167032167118%_))) + (_%hd167033167121%_ (let () (declare (not safe)) - (##car _%e165900165986%_)))) + (##car _%e167032167118%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165902165991%_)) - (let ((_%e165903165994%_ + (gx#stx-pair? _%tl167034167123%_)) + (let ((_%e167035167126%_ (let () (declare (not safe)) - (gx#stx-e _%tl165902165991%_)))) - (let ((_%tl165905165999%_ + (gx#stx-e _%tl167034167123%_)))) + (let ((_%tl167037167131%_ (let () (declare (not safe)) - (##cdr _%e165903165994%_))) - (_%hd165904165997%_ + (##cdr _%e167035167126%_))) + (_%hd167036167129%_ (let () (declare (not safe)) - (##car _%e165903165994%_)))) + (##car _%e167035167126%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165904165997%_)) - (let ((_%e165906166002%_ + (gx#stx-pair? _%hd167036167129%_)) + (let ((_%e167038167134%_ (let () (declare (not safe)) - (gx#stx-e _%hd165904165997%_)))) - (let ((_%tl165908166007%_ + (gx#stx-e _%hd167036167129%_)))) + (let ((_%tl167040167139%_ (let () (declare (not safe)) - (##cdr _%e165906166002%_))) - (_%hd165907166005%_ + (##cdr _%e167038167134%_))) + (_%hd167039167137%_ (let () (declare (not safe)) - (##car _%e165906166002%_)))) + (##car _%e167038167134%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd165907166005%_)) + _%hd167039167137%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.assert - _%hd165907166005%_)) + _%hd167039167137%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165908166007%_)) - (let ((_%__splice166876166877%_ + _%tl167040167139%_)) + (let ((_%__splice168008168009%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165908166007%_ + _%tl167040167139%_ '0)))) - (let ((_%tl165911166012%_ + (let ((_%tl167043167144%_ (let () (declare (not safe)) (##vector-ref - _%__splice166876166877%_ + _%__splice168008168009%_ '1))) - (_%target165909166010%_ + (_%target167041167142%_ (let () (declare (not safe)) (##vector-ref - _%__splice166876166877%_ + _%__splice168008168009%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165911166012%_)) - (_%__match166909166910%_ - _%e165900165986%_ - _%hd165901165989%_ - _%tl165902165991%_ - _%e165903165994%_ - _%hd165904165997%_ - _%tl165905165999%_ - _%e165906166002%_ - _%hd165907166005%_ - _%tl165908166007%_ - _%__splice166876166877%_ - _%target165909166010%_ - _%tl165911166012%_) + _%tl167043167144%_)) + (_%__match168041168042%_ + _%e167032167118%_ + _%hd167033167121%_ + _%tl167034167123%_ + _%e167035167126%_ + _%hd167036167129%_ + _%tl167037167131%_ + _%e167038167134%_ + _%hd167039167137%_ + _%tl167040167139%_ + _%__splice168008168009%_ + _%target167041167142%_ + _%tl167043167144%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl165905165999%_)) - (let ((_%e165929165957%_ + (gx#stx-pair? _%tl167037167131%_)) + (let ((_%e167061167089%_ (let () (declare (not safe)) - (gx#stx-e _%tl165905165999%_)))) - (let ((_%tl165931165962%_ + (gx#stx-e _%tl167037167131%_)))) + (let ((_%tl167063167094%_ (let () (declare (not safe)) - (##cdr _%e165929165957%_))) - (_%hd165930165960%_ + (##cdr _%e167061167089%_))) + (_%hd167062167092%_ (let () (declare (not safe)) - (##car _%e165929165957%_)))) + (##car _%e167061167089%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165931165962%_)) - (_%__kont166878166879%_ - _%hd165930165960%_ - _%hd165904165997%_) + (gx#stx-null? _%tl167063167094%_)) + (_%__kont168010168011%_ + _%hd167062167092%_ + _%hd167036167129%_) (let () (declare (not safe)) - (_%g165896165936%_))))) - (let () (declare (not safe)) (_%g165896165936%_)))))) + (_%g167028167068%_))))) + (let () (declare (not safe)) (_%g167028167068%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165905165999%_)) - (let ((_%e165929165957%_ + _%tl167037167131%_)) + (let ((_%e167061167089%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165905165999%_)))) - (let ((_%tl165931165962%_ - (let () (declare (not safe)) (##cdr _%e165929165957%_))) - (_%hd165930165960%_ + (gx#stx-e _%tl167037167131%_)))) + (let ((_%tl167063167094%_ + (let () (declare (not safe)) (##cdr _%e167061167089%_))) + (_%hd167062167092%_ (let () (declare (not safe)) - (##car _%e165929165957%_)))) + (##car _%e167061167089%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165931165962%_)) - (_%__kont166878166879%_ - _%hd165930165960%_ - _%hd165904165997%_) - (let () (declare (not safe)) (_%g165896165936%_))))) - (let () (declare (not safe)) (_%g165896165936%_)))) + (gx#stx-null? _%tl167063167094%_)) + (_%__kont168010168011%_ + _%hd167062167092%_ + _%hd167036167129%_) + (let () (declare (not safe)) (_%g167028167068%_))))) + (let () (declare (not safe)) (_%g167028167068%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165905165999%_)) - (let ((_%e165929165957%_ + _%tl167037167131%_)) + (let ((_%e167061167089%_ (let () (declare (not safe)) (gx#stx-e - _%tl165905165999%_)))) - (let ((_%tl165931165962%_ + _%tl167037167131%_)))) + (let ((_%tl167063167094%_ (let () (declare (not safe)) - (##cdr _%e165929165957%_))) - (_%hd165930165960%_ + (##cdr _%e167061167089%_))) + (_%hd167062167092%_ (let () (declare (not safe)) - (##car _%e165929165957%_)))) + (##car _%e167061167089%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165931165962%_)) - (_%__kont166878166879%_ - _%hd165930165960%_ - _%hd165904165997%_) + _%tl167063167094%_)) + (_%__kont168010168011%_ + _%hd167062167092%_ + _%hd167036167129%_) (let () (declare (not safe)) - (_%g165896165936%_))))) + (_%g167028167068%_))))) (let () (declare (not safe)) - (_%g165896165936%_)))) + (_%g167028167068%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165905165999%_)) - (let ((_%e165929165957%_ + _%tl167037167131%_)) + (let ((_%e167061167089%_ (let () (declare (not safe)) (gx#stx-e - _%tl165905165999%_)))) - (let ((_%tl165931165962%_ + _%tl167037167131%_)))) + (let ((_%tl167063167094%_ (let () (declare (not safe)) - (##cdr _%e165929165957%_))) - (_%hd165930165960%_ + (##cdr _%e167061167089%_))) + (_%hd167062167092%_ (let () (declare (not safe)) - (##car _%e165929165957%_)))) + (##car _%e167061167089%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165931165962%_)) - (_%__kont166878166879%_ - _%hd165930165960%_ - _%hd165904165997%_) + _%tl167063167094%_)) + (_%__kont168010168011%_ + _%hd167062167092%_ + _%hd167036167129%_) (let () (declare (not safe)) - (_%g165896165936%_))))) + (_%g167028167068%_))))) (let () (declare (not safe)) - (_%g165896165936%_)))))) + (_%g167028167068%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165905165999%_)) - (let ((_%e165929165957%_ + (gx#stx-pair? _%tl167037167131%_)) + (let ((_%e167061167089%_ (let () (declare (not safe)) - (gx#stx-e _%tl165905165999%_)))) - (let ((_%tl165931165962%_ + (gx#stx-e _%tl167037167131%_)))) + (let ((_%tl167063167094%_ (let () (declare (not safe)) - (##cdr _%e165929165957%_))) - (_%hd165930165960%_ + (##cdr _%e167061167089%_))) + (_%hd167062167092%_ (let () (declare (not safe)) - (##car _%e165929165957%_)))) + (##car _%e167061167089%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165931165962%_)) - (_%__kont166878166879%_ - _%hd165930165960%_ - _%hd165904165997%_) + _%tl167063167094%_)) + (_%__kont168010168011%_ + _%hd167062167092%_ + _%hd167036167129%_) (let () (declare (not safe)) - (_%g165896165936%_))))) + (_%g167028167068%_))))) (let () (declare (not safe)) - (_%g165896165936%_)))))) - (let () (declare (not safe)) (_%g165896165936%_))))) - (let () (declare (not safe)) (_%g165896165936%_)))))))) + (_%g167028167068%_)))))) + (let () (declare (not safe)) (_%g167028167068%_))))) + (let () (declare (not safe)) (_%g167028167068%_)))))))) (define gxc#collect-type-lambda% - (lambda (_%self165836%_ _%stx165837%_) - (let* ((_%g165839165853%_ - (lambda (_%g165840165850%_) + (lambda (_%self166968%_ _%stx166969%_) + (let* ((_%g166971166985%_ + (lambda (_%g166972166982%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165840165850%_)))) - (_%g165838165889%_ - (lambda (_%g165840165856%_) + _%g166972166982%_)))) + (_%g166970167021%_ + (lambda (_%g166972166988%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165840165856%_)) - (let ((_%e165843165858%_ + (gx#stx-pair? _%g166972166988%_)) + (let ((_%e166975166990%_ (let () (declare (not safe)) - (gx#stx-e _%g165840165856%_)))) - (let ((_%hd165844165861%_ + (gx#stx-e _%g166972166988%_)))) + (let ((_%hd166976166993%_ (let () (declare (not safe)) - (##car _%e165843165858%_))) - (_%tl165845165863%_ + (##car _%e166975166990%_))) + (_%tl166977166995%_ (let () (declare (not safe)) - (##cdr _%e165843165858%_)))) + (##cdr _%e166975166990%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165845165863%_)) - (let ((_%e165846165866%_ + (gx#stx-pair? _%tl166977166995%_)) + (let ((_%e166978166998%_ (let () (declare (not safe)) - (gx#stx-e _%tl165845165863%_)))) - (let ((_%hd165847165869%_ + (gx#stx-e _%tl166977166995%_)))) + (let ((_%hd166979167001%_ (let () (declare (not safe)) - (##car _%e165846165866%_))) - (_%tl165848165871%_ + (##car _%e166978166998%_))) + (_%tl166980167003%_ (let () (declare (not safe)) - (##cdr _%e165846165866%_)))) - ((lambda (_%L165874%_ _%L165875%_) - (let ((__tmp169768 + (##cdr _%e166978166998%_)))) + ((lambda (_%L167006%_ _%L167007%_) + (let ((__tmp170900 (lambda () (gxc#collect-type-lambda-formals-tail - _%stx165837%_ - _%L165875%_) + _%stx166969%_ + _%L167007%_) (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self165836%_ - _%stx165837%_)))) - (__tmp169767 + _%self166968%_ + _%stx166969%_)))) + (__tmp170899 (let () (declare (not safe)) (gxc#xform-let-locals - _%L165875%_)))) + _%L167007%_)))) (declare (not safe)) (__call-with-parameters - __tmp169768 + __tmp170900 gxc#current-compile-local-env - __tmp169767))) - _%tl165848165871%_ - _%hd165847165869%_))) - (_%g165839165853%_ _%g165840165856%_)))) - (_%g165839165853%_ _%g165840165856%_))))) - (_%g165838165889%_ _%stx165837%_)))) + __tmp170899))) + _%tl166980167003%_ + _%hd166979167001%_))) + (_%g166971166985%_ _%g166972166988%_)))) + (_%g166971166985%_ _%g166972166988%_))))) + (_%g166970167021%_ _%stx166969%_)))) (define gxc#collect-type-case-lambda% - (lambda (_%self165652%_ _%stx165653%_) - (let* ((_%g165655165683%_ - (lambda (_%g165656165680%_) + (lambda (_%self166784%_ _%stx166785%_) + (let* ((_%g166787166815%_ + (lambda (_%g166788166812%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165656165680%_)))) - (_%g165654165833%_ - (lambda (_%g165656165686%_) + _%g166788166812%_)))) + (_%g166786166965%_ + (lambda (_%g166788166818%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165656165686%_)) - (let ((_%e165659165688%_ + (gx#stx-pair? _%g166788166818%_)) + (let ((_%e166791166820%_ (let () (declare (not safe)) - (gx#stx-e _%g165656165686%_)))) - (let ((_%hd165660165691%_ + (gx#stx-e _%g166788166818%_)))) + (let ((_%hd166792166823%_ (let () (declare (not safe)) - (##car _%e165659165688%_))) - (_%tl165661165693%_ + (##car _%e166791166820%_))) + (_%tl166793166825%_ (let () (declare (not safe)) - (##cdr _%e165659165688%_)))) + (##cdr _%e166791166820%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165661165693%_)) - (let ((_g169769_ + (gx#stx-pair/null? _%tl166793166825%_)) + (let ((_g170901_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165661165693%_ + _%tl166793166825%_ '0)))) (begin - (let ((_g169770_ + (let ((_g170902_ (let () (declare (not safe)) - (if (##values? _g169769_) - (##vector-length _g169769_) + (if (##values? _g170901_) + (##vector-length _g170901_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169770_ 2))) + (##fx= _g170902_ 2))) (error "Context expects 2 values" - _g169770_))) - (let ((_%target165662165696%_ + _g170902_))) + (let ((_%target166794166828%_ (let () (declare (not safe)) - (##vector-ref _g169769_ 0))) - (_%tl165664165698%_ + (##vector-ref _g170901_ 0))) + (_%tl166796166830%_ (let () (declare (not safe)) - (##vector-ref _g169769_ 1)))) + (##vector-ref _g170901_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165664165698%_)) - (letrec ((_%loop165665165701%_ - (lambda (_%hd165663165704%_ - _%body165669165706%_ - _%hd165670165708%_) + (gx#stx-null? _%tl166796166830%_)) + (letrec ((_%loop166797166833%_ + (lambda (_%hd166795166836%_ + _%body166801166838%_ + _%hd166802166840%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165663165704%_)) - (let ((_%e165666165711%_ + _%hd166795166836%_)) + (let ((_%e166798166843%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd165663165704%_)))) - (let ((_%lp-hd165667165714%_ + (gx#stx-e _%hd166795166836%_)))) + (let ((_%lp-hd166799166846%_ (let () (declare (not safe)) - (##car _%e165666165711%_))) - (_%lp-tl165668165716%_ + (##car _%e166798166843%_))) + (_%lp-tl166800166848%_ (let () (declare (not safe)) - (##cdr _%e165666165711%_)))) + (##cdr _%e166798166843%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd165667165714%_)) - (let ((_%e165673165719%_ + (gx#stx-pair? _%lp-hd166799166846%_)) + (let ((_%e166805166851%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd165667165714%_)))) - (let ((_%hd165674165722%_ + (gx#stx-e _%lp-hd166799166846%_)))) + (let ((_%hd166806166854%_ (let () (declare (not safe)) - (##car _%e165673165719%_))) - (_%tl165675165724%_ + (##car _%e166805166851%_))) + (_%tl166807166856%_ (let () (declare (not safe)) - (##cdr _%e165673165719%_)))) + (##cdr _%e166805166851%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165675165724%_)) - (let ((_%e165676165727%_ + (gx#stx-pair? _%tl166807166856%_)) + (let ((_%e166808166859%_ (let () (declare (not safe)) - (gx#stx-e _%tl165675165724%_)))) - (let ((_%hd165677165730%_ + (gx#stx-e _%tl166807166856%_)))) + (let ((_%hd166809166862%_ (let () (declare (not safe)) - (##car _%e165676165727%_))) - (_%tl165678165732%_ + (##car _%e166808166859%_))) + (_%tl166810166864%_ (let () (declare (not safe)) - (##cdr _%e165676165727%_)))) + (##cdr _%e166808166859%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165678165732%_)) - (_%loop165665165701%_ - _%lp-tl165668165716%_ - (cons _%hd165677165730%_ - _%body165669165706%_) - (cons _%hd165674165722%_ - _%hd165670165708%_)) - (_%g165655165683%_ - _%g165656165686%_)))) - (_%g165655165683%_ _%g165656165686%_)))) - (_%g165655165683%_ _%g165656165686%_)))) - (let ((_%body165671165735%_ (reverse _%body165669165706%_)) - (_%hd165672165737%_ (reverse _%hd165670165708%_))) - ((lambda (_%L165740%_ _%L165741%_) + (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%_) (for-each - (lambda (_%g165755165757%_) + (lambda (_%g166887166889%_) (gxc#collect-type-lambda-formals-tail - _%stx165653%_ - _%g165755165757%_)) - (let ((__tmp169771 - (lambda (_%g165759165762%_ _%g165760165764%_) - (cons _%g165759165762%_ _%g165760165764%_)))) + _%stx166785%_ + _%g166887166889%_)) + (let ((__tmp170903 + (lambda (_%g166891166894%_ _%g166892166896%_) + (cons _%g166891166894%_ _%g166892166896%_)))) (declare (not safe)) - (__foldr1 __tmp169771 '() _%L165741%_))) + (__foldr1 __tmp170903 '() _%L166873%_))) (for-each - (lambda (_%clause165767%_) - (let* ((_%g165769165783%_ - (lambda (_%g165770165780%_) + (lambda (_%clause166899%_) + (let* ((_%g166901166915%_ + (lambda (_%g166902166912%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165770165780%_)))) - (_%g165768165820%_ - (lambda (_%g165770165786%_) + _%g166902166912%_)))) + (_%g166900166952%_ + (lambda (_%g166902166918%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165770165786%_)) - (let ((_%e165773165788%_ + (gx#stx-pair? _%g166902166918%_)) + (let ((_%e166905166920%_ (let () (declare (not safe)) - (gx#stx-e _%g165770165786%_)))) - (let ((_%hd165774165791%_ + (gx#stx-e _%g166902166918%_)))) + (let ((_%hd166906166923%_ (let () (declare (not safe)) - (##car _%e165773165788%_))) - (_%tl165775165793%_ + (##car _%e166905166920%_))) + (_%tl166907166925%_ (let () (declare (not safe)) - (##cdr _%e165773165788%_)))) + (##cdr _%e166905166920%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165775165793%_)) - (let ((_%e165776165796%_ + _%tl166907166925%_)) + (let ((_%e166908166928%_ (let () (declare (not safe)) (gx#stx-e - _%tl165775165793%_)))) - (let ((_%hd165777165799%_ + _%tl166907166925%_)))) + (let ((_%hd166909166931%_ (let () (declare (not safe)) - (##car _%e165776165796%_))) - (_%tl165778165801%_ + (##car _%e166908166928%_))) + (_%tl166910166933%_ (let () (declare (not safe)) - (##cdr _%e165776165796%_)))) + (##cdr _%e166908166928%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165778165801%_)) - ((lambda (_%L165804%_ - _%L165805%_) - (let ((__tmp169773 + _%tl166910166933%_)) + ((lambda (_%L166936%_ + _%L166937%_) + (let ((__tmp170905 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self165652%_ - _%stx165653%_)))) - (__tmp169772 + _%self166784%_ + _%stx166785%_)))) + (__tmp170904 (let () (declare (not safe)) - (gxc#xform-let-locals _%L165805%_)))) + (gxc#xform-let-locals _%L166937%_)))) (declare (not safe)) (__call-with-parameters - __tmp169773 + __tmp170905 gxc#current-compile-local-env - __tmp169772))) - _%hd165777165799%_ - _%hd165774165791%_) - (_%g165769165783%_ _%g165770165786%_)))) + __tmp170904))) + _%hd166909166931%_ + _%hd166906166923%_) + (_%g166901166915%_ _%g166902166918%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g165769165783%_ - _%g165770165786%_)))) - (_%g165769165783%_ _%g165770165786%_))))) - (_%g165768165820%_ _%clause165767%_))) + (_%g166901166915%_ + _%g166902166918%_)))) + (_%g166901166915%_ _%g166902166918%_))))) + (_%g166900166952%_ _%clause166899%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L165740%_ - _%L165741%_)) - (let ((__tmp169774 - (lambda (_%g165822165826%_ - _%g165823165828%_ - _%g165824165830%_) - (cons (cons _%g165823165828%_ - (cons _%g165822165826%_ '())) - _%g165824165830%_)))) + _%L166872%_ + _%L166873%_)) + (let ((__tmp170906 + (lambda (_%g166954166958%_ + _%g166955166960%_ + _%g166956166962%_) + (cons (cons _%g166955166960%_ + (cons _%g166954166958%_ '())) + _%g166956166962%_)))) (declare (not safe)) (__foldr2 - __tmp169774 + __tmp170906 '() - _%L165740%_ - _%L165741%_))))) - _%body165671165735%_ - _%hd165672165737%_)))))) + _%L166872%_ + _%L166873%_))))) + _%body166803166867%_ + _%hd166804166869%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop165665165701%_ - _%target165662165696%_ + (_%loop166797166833%_ + _%target166794166828%_ '() '())) - (_%g165655165683%_ - _%g165656165686%_))))) - (_%g165655165683%_ _%g165656165686%_)))) - (_%g165655165683%_ _%g165656165686%_))))) - (_%g165654165833%_ _%stx165653%_)))) + (_%g166787166815%_ + _%g166788166818%_))))) + (_%g166787166815%_ _%g166788166818%_)))) + (_%g166787166815%_ _%g166788166818%_))))) + (_%g166786166965%_ _%stx166785%_)))) (define gxc#collect-type-lambda-formals-tail - (lambda (_%stx165584%_ _%formals165585%_) - (let _%loop165587%_ ((_%rest165589%_ _%formals165585%_)) - (let* ((_%__stx166932166933%_ _%rest165589%_) - (_%g165593165604%_ + (lambda (_%stx166716%_ _%formals166717%_) + (let _%loop166719%_ ((_%rest166721%_ _%formals166717%_)) + (let* ((_%__stx168064168065%_ _%rest166721%_) + (_%g166725166736%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166932166933%_))))) - (let ((_%__kont166934166935%_ - (lambda (_%L165640%_) (_%loop165587%_ _%L165640%_))) - (_%__kont166936166937%_ - (lambda (_%L165616%_) - (let ((__tmp169776 + _%__stx168064168065%_))))) + (let ((_%__kont168066168067%_ + (lambda (_%L166772%_) (_%loop166719%_ _%L166772%_))) + (_%__kont168068168069%_ + (lambda (_%L166748%_) + (let ((__tmp170908 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165616%_))) - (__tmp169775 + (gxc#identifier-symbol _%L166748%_))) + (__tmp170907 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx165584%_ + _%stx166716%_ 'list::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp169776 - __tmp169775 + __tmp170908 + __tmp170907 '#t)))) - (_%__kont166938166939%_ (lambda () '#!void))) - (let ((_%g165591165627%_ + (_%__kont168070168071%_ (lambda () '#!void))) + (let ((_%g166723166759%_ (lambda () - (let ((_%L165616%_ _%__stx166932166933%_)) + (let ((_%L166748%_ _%__stx168064168065%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165616%_)) - (_%__kont166936166937%_ _%L165616%_) - (_%__kont166938166939%_)))))) + (gx#identifier? _%L166748%_)) + (_%__kont168068168069%_ _%L166748%_) + (_%__kont168070168071%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166932166933%_)) - (let ((_%e165596165632%_ + (gx#stx-pair? _%__stx168064168065%_)) + (let ((_%e166728166764%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166932166933%_)))) - (let ((_%tl165598165637%_ + (gx#stx-e _%__stx168064168065%_)))) + (let ((_%tl166730166769%_ (let () (declare (not safe)) - (##cdr _%e165596165632%_))) - (_%hd165597165635%_ + (##cdr _%e166728166764%_))) + (_%hd166729166767%_ (let () (declare (not safe)) - (##car _%e165596165632%_)))) - (_%__kont166934166935%_ _%tl165598165637%_))) - (let () (declare (not safe)) (_%g165591165627%_))))))))) + (##car _%e166728166764%_)))) + (_%__kont168066168067%_ _%tl166730166769%_))) + (let () (declare (not safe)) (_%g166723166759%_))))))))) (define gxc#collect-type-let-values%__% - (lambda (_%self165343%_ _%stx165344%_ _%expression-type165345%_) - (letrec ((_%collect-e165347%_ - (lambda (_%hd165516%_ _%expr165517%_) - (let* ((_%__stx166948166949%_ _%hd165516%_) - (_%g165520165530%_ + (lambda (_%self166475%_ _%stx166476%_ _%expression-type166477%_) + (letrec ((_%collect-e166479%_ + (lambda (_%hd166648%_ _%expr166649%_) + (let* ((_%__stx168080168081%_ _%hd166648%_) + (_%g166652166662%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166948166949%_))))) - (let ((_%__kont166950166951%_ - (lambda (_%L165550%_) - (let* ((_%sym165561%_ + _%__stx168080168081%_))))) + (let ((_%__kont168082168083%_ + (lambda (_%L166682%_) + (let* ((_%sym166693%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165550%_))) - (_%type165562165564%_ - (_%expression-type165345%_ - _%expr165517%_))) - (if _%type165562165564%_ - (let ((_%type165567%_ - _%type165562165564%_)) + (gxc#identifier-symbol _%L166682%_))) + (_%type166694166696%_ + (_%expression-type166477%_ + _%expr166649%_))) + (if _%type166694166696%_ + (let ((_%type166699%_ + _%type166694166696%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165567%_ + _%type166699%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp169777 + (let ((__tmp170909 (let () (declare (not safe)) (##unchecked-structure-ref - _%type165567%_ + _%type166699%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym165561%_ - __tmp169777)) - (let ((__tmp169778 + _%sym166693%_ + __tmp170909)) + (let ((__tmp170910 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx165344%_ + _%stx166476%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165561%_ - __tmp169778 + _%sym166693%_ + __tmp170910 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165561%_ - _%type165567%_ + _%sym166693%_ + _%type166699%_ '#t)))) '#f)))) - (_%__kont166952166953%_ (lambda () '#!void))) - (let ((_%__match166961166962%_ - (lambda (_%e165523165542%_ - _%hd165524165545%_ - _%tl165525165547%_) - (let ((_%L165550%_ _%hd165524165545%_)) + (_%__kont168084168085%_ (lambda () '#!void))) + (let ((_%__match168093168094%_ + (lambda (_%e166655166674%_ + _%hd166656166677%_ + _%tl166657166679%_) + (let ((_%L166682%_ _%hd166656166677%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165550%_)) - (_%__kont166950166951%_ _%L165550%_) - (_%__kont166952166953%_)))))) + (gx#identifier? _%L166682%_)) + (_%__kont168082168083%_ _%L166682%_) + (_%__kont168084168085%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166948166949%_)) - (let ((_%e165523165542%_ + (gx#stx-pair? _%__stx168080168081%_)) + (let ((_%e166655166674%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166948166949%_)))) - (let ((_%tl165525165547%_ + (gx#stx-e _%__stx168080168081%_)))) + (let ((_%tl166657166679%_ (let () (declare (not safe)) - (##cdr _%e165523165542%_))) - (_%hd165524165545%_ + (##cdr _%e166655166674%_))) + (_%hd166656166677%_ (let () (declare (not safe)) - (##car _%e165523165542%_)))) + (##car _%e166655166674%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165525165547%_)) - (_%__match166961166962%_ - _%e165523165542%_ - _%hd165524165545%_ - _%tl165525165547%_) - (_%__kont166952166953%_)))) - (_%__kont166952166953%_)))))))) - (let* ((_%g165349165384%_ - (lambda (_%g165350165381%_) + (gx#stx-null? _%tl166657166679%_)) + (_%__match168093168094%_ + _%e166655166674%_ + _%hd166656166677%_ + _%tl166657166679%_) + (_%__kont168084168085%_)))) + (_%__kont168084168085%_)))))))) + (let* ((_%g166481166516%_ + (lambda (_%g166482166513%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165350165381%_)))) - (_%g165348165513%_ - (lambda (_%g165350165387%_) + _%g166482166513%_)))) + (_%g166480166645%_ + (lambda (_%g166482166519%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165350165387%_)) - (let ((_%e165354165389%_ + (gx#stx-pair? _%g166482166519%_)) + (let ((_%e166486166521%_ (let () (declare (not safe)) - (gx#stx-e _%g165350165387%_)))) - (let ((_%hd165355165392%_ + (gx#stx-e _%g166482166519%_)))) + (let ((_%hd166487166524%_ (let () (declare (not safe)) - (##car _%e165354165389%_))) - (_%tl165356165394%_ + (##car _%e166486166521%_))) + (_%tl166488166526%_ (let () (declare (not safe)) - (##cdr _%e165354165389%_)))) + (##cdr _%e166486166521%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165356165394%_)) - (let ((_%e165357165397%_ + (gx#stx-pair? _%tl166488166526%_)) + (let ((_%e166489166529%_ (let () (declare (not safe)) - (gx#stx-e _%tl165356165394%_)))) - (let ((_%hd165358165400%_ + (gx#stx-e _%tl166488166526%_)))) + (let ((_%hd166490166532%_ (let () (declare (not safe)) - (##car _%e165357165397%_))) - (_%tl165359165402%_ + (##car _%e166489166529%_))) + (_%tl166491166534%_ (let () (declare (not safe)) - (##cdr _%e165357165397%_)))) + (##cdr _%e166489166529%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd165358165400%_)) - (let ((_g169779_ + _%hd166490166532%_)) + (let ((_g170911_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd165358165400%_ + _%hd166490166532%_ '0)))) (begin - (let ((_g169780_ + (let ((_g170912_ (let () (declare (not safe)) - (if (##values? _g169779_) + (if (##values? _g170911_) (##vector-length - _g169779_) + _g170911_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169780_ 2))) + (##fx= _g170912_ 2))) (error "Context expects 2 values" - _g169780_))) - (let ((_%target165360165405%_ + _g170912_))) + (let ((_%target166492166537%_ (let () (declare (not safe)) (##vector-ref - _g169779_ + _g170911_ 0))) - (_%tl165362165407%_ + (_%tl166494166539%_ (let () (declare (not safe)) (##vector-ref - _g169779_ + _g170911_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165362165407%_)) - (letrec ((_%loop165363165410%_ - (lambda (_%hd165361165413%_ + _%tl166494166539%_)) + (letrec ((_%loop166495166542%_ + (lambda (_%hd166493166545%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr165367165415%_ - _%hd165368165417%_) + _%expr166499166547%_ + _%hd166500166549%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165361165413%_)) - (let ((_%e165364165420%_ + (gx#stx-pair? _%hd166493166545%_)) + (let ((_%e166496166552%_ (let () (declare (not safe)) - (gx#stx-e _%hd165361165413%_)))) - (let ((_%lp-hd165365165423%_ + (gx#stx-e _%hd166493166545%_)))) + (let ((_%lp-hd166497166555%_ (let () (declare (not safe)) - (##car _%e165364165420%_))) - (_%lp-tl165366165425%_ + (##car _%e166496166552%_))) + (_%lp-tl166498166557%_ (let () (declare (not safe)) - (##cdr _%e165364165420%_)))) + (##cdr _%e166496166552%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd165365165423%_)) - (let ((_%e165374165428%_ + (gx#stx-pair? _%lp-hd166497166555%_)) + (let ((_%e166506166560%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd165365165423%_)))) - (let ((_%hd165375165431%_ + (gx#stx-e _%lp-hd166497166555%_)))) + (let ((_%hd166507166563%_ (let () (declare (not safe)) - (##car _%e165374165428%_))) - (_%tl165376165433%_ + (##car _%e166506166560%_))) + (_%tl166508166565%_ (let () (declare (not safe)) - (##cdr _%e165374165428%_)))) + (##cdr _%e166506166560%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165376165433%_)) - (let ((_%e165377165436%_ + (gx#stx-pair? _%tl166508166565%_)) + (let ((_%e166509166568%_ (let () (declare (not safe)) (gx#stx-e - _%tl165376165433%_)))) - (let ((_%hd165378165439%_ + _%tl166508166565%_)))) + (let ((_%hd166510166571%_ (let () (declare (not safe)) - (##car _%e165377165436%_))) - (_%tl165379165441%_ + (##car _%e166509166568%_))) + (_%tl166511166573%_ (let () (declare (not safe)) - (##cdr _%e165377165436%_)))) + (##cdr _%e166509166568%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165379165441%_)) - (_%loop165363165410%_ - _%lp-tl165366165425%_ - (cons _%hd165378165439%_ - _%expr165367165415%_) - (cons _%hd165375165431%_ - _%hd165368165417%_)) - (_%g165349165384%_ - _%g165350165387%_)))) - (_%g165349165384%_ - _%g165350165387%_)))) - (_%g165349165384%_ _%g165350165387%_)))) - (let ((_%expr165369165444%_ - (reverse _%expr165367165415%_)) - (_%hd165370165446%_ - (reverse _%hd165368165417%_))) + _%tl166511166573%_)) + (_%loop166495166542%_ + _%lp-tl166498166557%_ + (cons _%hd166510166571%_ + _%expr166499166547%_) + (cons _%hd166507166563%_ + _%hd166500166549%_)) + (_%g166481166516%_ + _%g166482166519%_)))) + (_%g166481166516%_ + _%g166482166519%_)))) + (_%g166481166516%_ _%g166482166519%_)))) + (let ((_%expr166501166576%_ + (reverse _%expr166499166547%_)) + (_%hd166502166578%_ + (reverse _%hd166500166549%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165359165402%_)) - (let ((_%e165371165449%_ + (gx#stx-pair? _%tl166491166534%_)) + (let ((_%e166503166581%_ (let () (declare (not safe)) - (gx#stx-e _%tl165359165402%_)))) - (let ((_%hd165372165452%_ + (gx#stx-e _%tl166491166534%_)))) + (let ((_%hd166504166584%_ (let () (declare (not safe)) - (##car _%e165371165449%_))) - (_%tl165373165454%_ + (##car _%e166503166581%_))) + (_%tl166505166586%_ (let () (declare (not safe)) - (##cdr _%e165371165449%_)))) + (##cdr _%e166503166581%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165373165454%_)) - ((lambda (_%L165457%_ - _%L165458%_ - _%L165459%_) + (gx#stx-null? _%tl166505166586%_)) + ((lambda (_%L166589%_ + _%L166590%_ + _%L166591%_) (for-each - _%collect-e165347%_ - (let ((__tmp169781 - (lambda (_%g165479165482%_ - _%g165480165484%_) - (cons _%g165479165482%_ - _%g165480165484%_)))) + _%collect-e166479%_ + (let ((__tmp170913 + (lambda (_%g166611166614%_ + _%g166612166616%_) + (cons _%g166611166614%_ + _%g166612166616%_)))) (declare (not safe)) (__foldr1 - __tmp169781 + __tmp170913 '() - _%L165459%_)) - (let ((__tmp169782 - (lambda (_%g165486165489%_ - _%g165487165491%_) - (cons _%g165486165489%_ - _%g165487165491%_)))) + _%L166591%_)) + (let ((__tmp170914 + (lambda (_%g166618166621%_ + _%g166619166623%_) + (cons _%g166618166621%_ + _%g166619166623%_)))) (declare (not safe)) (__foldr1 - __tmp169782 + __tmp170914 '() - _%L165458%_))) + _%L166590%_))) (for-each - (lambda (_%g165493165495%_) + (lambda (_%g166625166627%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self165343%_ - _%g165493165495%_))) - (let ((__tmp169783 - (lambda (_%g165497165500%_ - _%g165498165502%_) - (cons _%g165497165500%_ - _%g165498165502%_)))) + _%self166475%_ + _%g166625166627%_))) + (let ((__tmp170915 + (lambda (_%g166629166632%_ + _%g166630166634%_) + (cons _%g166629166632%_ + _%g166630166634%_)))) (declare (not safe)) (__foldr1 - __tmp169783 + __tmp170915 '() - _%L165458%_))) - (let ((__tmp169787 + _%L166590%_))) + (let ((__tmp170919 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self165343%_ - _%L165457%_)))) - (__tmp169784 - (let ((__tmp169785 - (let ((__tmp169786 - (lambda (_%g165505165508%_ + _%self166475%_ + _%L166589%_)))) + (__tmp170916 + (let ((__tmp170917 + (let ((__tmp170918 + (lambda (_%g166637166640%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165506165510%_) - (cons _%g165505165508%_ _%g165506165510%_)))) + _%g166638166642%_) + (cons _%g166637166640%_ _%g166638166642%_)))) (declare (not safe)) - (__foldr1 __tmp169786 '() _%L165459%_)))) + (__foldr1 __tmp170918 '() _%L166591%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp169785)))) + __tmp170917)))) (declare (not safe)) (__call-with-parameters - __tmp169787 + __tmp170919 gxc#current-compile-local-env - __tmp169784))) - _%hd165372165452%_ - _%expr165369165444%_ - _%hd165370165446%_) - (_%g165349165384%_ - _%g165350165387%_)))) - (_%g165349165384%_ _%g165350165387%_))))))) + __tmp170916))) + _%hd166504166584%_ + _%expr166501166576%_ + _%hd166502166578%_) + (_%g166481166516%_ + _%g166482166519%_)))) + (_%g166481166516%_ _%g166482166519%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop165363165410%_ - _%target165360165405%_ + (_%loop166495166542%_ + _%target166492166537%_ '() '())) - (_%g165349165384%_ - _%g165350165387%_))))) - (_%g165349165384%_ - _%g165350165387%_)))) - (_%g165349165384%_ _%g165350165387%_)))) - (_%g165349165384%_ _%g165350165387%_))))) - (_%g165348165513%_ _%stx165344%_))))) + (_%g166481166516%_ + _%g166482166519%_))))) + (_%g166481166516%_ + _%g166482166519%_)))) + (_%g166481166516%_ _%g166482166519%_)))) + (_%g166481166516%_ _%g166482166519%_))))) + (_%g166480166645%_ _%stx166476%_))))) (define gxc#collect-type-let-values%__0 - (lambda (_%self165575%_ _%stx165576%_) - (let ((_%expression-type165578%_ gxc#apply-basic-expression-type)) + (lambda (_%self166707%_ _%stx166708%_) + (let ((_%expression-type166710%_ gxc#apply-basic-expression-type)) (gxc#collect-type-let-values%__% - _%self165575%_ - _%stx165576%_ - _%expression-type165578%_)))) + _%self166707%_ + _%stx166708%_ + _%expression-type166710%_)))) (define gxc#collect-type-let-values% - (lambda _g169789_ - (let ((_g169788_ (let () (declare (not safe)) (##length _g169789_)))) - (cond ((let () (declare (not safe)) (##fx= _g169788_ 2)) - (apply gxc#collect-type-let-values%__0 _g169789_)) - ((let () (declare (not safe)) (##fx= _g169788_ 3)) - (apply gxc#collect-type-let-values%__% _g169789_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-let-values% - _g169789_)))))) + _g170921_)))))) (define gxc#collect-type-letrec-values%__% - (lambda (_%self165076%_ _%stx165077%_ _%expression-type165078%_) - (letrec ((_%collect-e165080%_ - (lambda (_%hd165274%_ _%expr165275%_) - (let* ((_%__stx166964166965%_ _%hd165274%_) - (_%g165278165288%_ + (lambda (_%self166208%_ _%stx166209%_ _%expression-type166210%_) + (letrec ((_%collect-e166212%_ + (lambda (_%hd166406%_ _%expr166407%_) + (let* ((_%__stx168096168097%_ _%hd166406%_) + (_%g166410166420%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166964166965%_))))) - (let ((_%__kont166966166967%_ - (lambda (_%L165308%_) - (let* ((_%sym165319%_ + _%__stx168096168097%_))))) + (let ((_%__kont168098168099%_ + (lambda (_%L166440%_) + (let* ((_%sym166451%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165308%_))) - (_%type165320165322%_ - (_%expression-type165078%_ - _%expr165275%_))) - (if _%type165320165322%_ - (let ((_%type165325%_ - _%type165320165322%_)) + (gxc#identifier-symbol _%L166440%_))) + (_%type166452166454%_ + (_%expression-type166210%_ + _%expr166407%_))) + (if _%type166452166454%_ + (let ((_%type166457%_ + _%type166452166454%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165325%_ + _%type166457%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp169790 + (let ((__tmp170922 (let () (declare (not safe)) (##unchecked-structure-ref - _%type165325%_ + _%type166457%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym165319%_ - __tmp169790)) - (let ((__tmp169791 + _%sym166451%_ + __tmp170922)) + (let ((__tmp170923 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx165077%_ + _%stx166209%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165319%_ - __tmp169791 + _%sym166451%_ + __tmp170923 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165319%_ - _%type165325%_ + _%sym166451%_ + _%type166457%_ '#t)))) '#f)))) - (_%__kont166968166969%_ (lambda () '#!void))) - (let ((_%__match166977166978%_ - (lambda (_%e165281165300%_ - _%hd165282165303%_ - _%tl165283165305%_) - (let ((_%L165308%_ _%hd165282165303%_)) + (_%__kont168100168101%_ (lambda () '#!void))) + (let ((_%__match168109168110%_ + (lambda (_%e166413166432%_ + _%hd166414166435%_ + _%tl166415166437%_) + (let ((_%L166440%_ _%hd166414166435%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165308%_)) - (_%__kont166966166967%_ _%L165308%_) - (_%__kont166968166969%_)))))) + (gx#identifier? _%L166440%_)) + (_%__kont168098168099%_ _%L166440%_) + (_%__kont168100168101%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166964166965%_)) - (let ((_%e165281165300%_ + (gx#stx-pair? _%__stx168096168097%_)) + (let ((_%e166413166432%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166964166965%_)))) - (let ((_%tl165283165305%_ + (gx#stx-e _%__stx168096168097%_)))) + (let ((_%tl166415166437%_ (let () (declare (not safe)) - (##cdr _%e165281165300%_))) - (_%hd165282165303%_ + (##cdr _%e166413166432%_))) + (_%hd166414166435%_ (let () (declare (not safe)) - (##car _%e165281165300%_)))) + (##car _%e166413166432%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165283165305%_)) - (_%__match166977166978%_ - _%e165281165300%_ - _%hd165282165303%_ - _%tl165283165305%_) - (_%__kont166968166969%_)))) - (_%__kont166968166969%_)))))))) - (let* ((_%g165082165117%_ - (lambda (_%g165083165114%_) + (gx#stx-null? _%tl166415166437%_)) + (_%__match168109168110%_ + _%e166413166432%_ + _%hd166414166435%_ + _%tl166415166437%_) + (_%__kont168100168101%_)))) + (_%__kont168100168101%_)))))))) + (let* ((_%g166214166249%_ + (lambda (_%g166215166246%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165083165114%_)))) - (_%g165081165271%_ - (lambda (_%g165083165120%_) + _%g166215166246%_)))) + (_%g166213166403%_ + (lambda (_%g166215166252%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165083165120%_)) - (let ((_%e165087165122%_ + (gx#stx-pair? _%g166215166252%_)) + (let ((_%e166219166254%_ (let () (declare (not safe)) - (gx#stx-e _%g165083165120%_)))) - (let ((_%hd165088165125%_ + (gx#stx-e _%g166215166252%_)))) + (let ((_%hd166220166257%_ (let () (declare (not safe)) - (##car _%e165087165122%_))) - (_%tl165089165127%_ + (##car _%e166219166254%_))) + (_%tl166221166259%_ (let () (declare (not safe)) - (##cdr _%e165087165122%_)))) + (##cdr _%e166219166254%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165089165127%_)) - (let ((_%e165090165130%_ + (gx#stx-pair? _%tl166221166259%_)) + (let ((_%e166222166262%_ (let () (declare (not safe)) - (gx#stx-e _%tl165089165127%_)))) - (let ((_%hd165091165133%_ + (gx#stx-e _%tl166221166259%_)))) + (let ((_%hd166223166265%_ (let () (declare (not safe)) - (##car _%e165090165130%_))) - (_%tl165092165135%_ + (##car _%e166222166262%_))) + (_%tl166224166267%_ (let () (declare (not safe)) - (##cdr _%e165090165130%_)))) + (##cdr _%e166222166262%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd165091165133%_)) - (let ((_g169792_ + _%hd166223166265%_)) + (let ((_g170924_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd165091165133%_ + _%hd166223166265%_ '0)))) (begin - (let ((_g169793_ + (let ((_g170925_ (let () (declare (not safe)) - (if (##values? _g169792_) + (if (##values? _g170924_) (##vector-length - _g169792_) + _g170924_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169793_ 2))) + (##fx= _g170925_ 2))) (error "Context expects 2 values" - _g169793_))) - (let ((_%target165093165138%_ + _g170925_))) + (let ((_%target166225166270%_ (let () (declare (not safe)) (##vector-ref - _g169792_ + _g170924_ 0))) - (_%tl165095165140%_ + (_%tl166227166272%_ (let () (declare (not safe)) (##vector-ref - _g169792_ + _g170924_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165095165140%_)) - (letrec ((_%loop165096165143%_ - (lambda (_%hd165094165146%_ + _%tl166227166272%_)) + (letrec ((_%loop166228166275%_ + (lambda (_%hd166226166278%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr165100165148%_ - _%hd165101165150%_) + _%expr166232166280%_ + _%hd166233166282%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165094165146%_)) - (let ((_%e165097165153%_ + (gx#stx-pair? _%hd166226166278%_)) + (let ((_%e166229166285%_ (let () (declare (not safe)) - (gx#stx-e _%hd165094165146%_)))) - (let ((_%lp-hd165098165156%_ + (gx#stx-e _%hd166226166278%_)))) + (let ((_%lp-hd166230166288%_ (let () (declare (not safe)) - (##car _%e165097165153%_))) - (_%lp-tl165099165158%_ + (##car _%e166229166285%_))) + (_%lp-tl166231166290%_ (let () (declare (not safe)) - (##cdr _%e165097165153%_)))) + (##cdr _%e166229166285%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd165098165156%_)) - (let ((_%e165107165161%_ + (gx#stx-pair? _%lp-hd166230166288%_)) + (let ((_%e166239166293%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd165098165156%_)))) - (let ((_%hd165108165164%_ + (gx#stx-e _%lp-hd166230166288%_)))) + (let ((_%hd166240166296%_ (let () (declare (not safe)) - (##car _%e165107165161%_))) - (_%tl165109165166%_ + (##car _%e166239166293%_))) + (_%tl166241166298%_ (let () (declare (not safe)) - (##cdr _%e165107165161%_)))) + (##cdr _%e166239166293%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165109165166%_)) - (let ((_%e165110165169%_ + (gx#stx-pair? _%tl166241166298%_)) + (let ((_%e166242166301%_ (let () (declare (not safe)) (gx#stx-e - _%tl165109165166%_)))) - (let ((_%hd165111165172%_ + _%tl166241166298%_)))) + (let ((_%hd166243166304%_ (let () (declare (not safe)) - (##car _%e165110165169%_))) - (_%tl165112165174%_ + (##car _%e166242166301%_))) + (_%tl166244166306%_ (let () (declare (not safe)) - (##cdr _%e165110165169%_)))) + (##cdr _%e166242166301%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165112165174%_)) - (_%loop165096165143%_ - _%lp-tl165099165158%_ - (cons _%hd165111165172%_ - _%expr165100165148%_) - (cons _%hd165108165164%_ - _%hd165101165150%_)) - (_%g165082165117%_ - _%g165083165120%_)))) - (_%g165082165117%_ - _%g165083165120%_)))) - (_%g165082165117%_ _%g165083165120%_)))) - (let ((_%expr165102165177%_ - (reverse _%expr165100165148%_)) - (_%hd165103165179%_ - (reverse _%hd165101165150%_))) + _%tl166244166306%_)) + (_%loop166228166275%_ + _%lp-tl166231166290%_ + (cons _%hd166243166304%_ + _%expr166232166280%_) + (cons _%hd166240166296%_ + _%hd166233166282%_)) + (_%g166214166249%_ + _%g166215166252%_)))) + (_%g166214166249%_ + _%g166215166252%_)))) + (_%g166214166249%_ _%g166215166252%_)))) + (let ((_%expr166234166309%_ + (reverse _%expr166232166280%_)) + (_%hd166235166311%_ + (reverse _%hd166233166282%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165092165135%_)) - (let ((_%e165104165182%_ + (gx#stx-pair? _%tl166224166267%_)) + (let ((_%e166236166314%_ (let () (declare (not safe)) - (gx#stx-e _%tl165092165135%_)))) - (let ((_%hd165105165185%_ + (gx#stx-e _%tl166224166267%_)))) + (let ((_%hd166237166317%_ (let () (declare (not safe)) - (##car _%e165104165182%_))) - (_%tl165106165187%_ + (##car _%e166236166314%_))) + (_%tl166238166319%_ (let () (declare (not safe)) - (##cdr _%e165104165182%_)))) + (##cdr _%e166236166314%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165106165187%_)) - ((lambda (_%L165190%_ - _%L165191%_ - _%L165192%_) - (let ((__tmp169797 + (gx#stx-null? _%tl166238166319%_)) + ((lambda (_%L166322%_ + _%L166323%_ + _%L166324%_) + (let ((__tmp170929 (lambda () (for-each - _%collect-e165080%_ - (let ((__tmp169798 - (lambda (_%g165213165216%_ + _%collect-e166212%_ + (let ((__tmp170930 + (lambda (_%g166345166348%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165214165218%_) - (cons _%g165213165216%_ _%g165214165218%_)))) + _%g166346166350%_) + (cons _%g166345166348%_ _%g166346166350%_)))) (declare (not safe)) - (__foldr1 __tmp169798 '() _%L165192%_)) + (__foldr1 __tmp170930 '() _%L166324%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp169799 - (lambda (_%g165220165223%_ + (let ((__tmp170931 + (lambda (_%g166352166355%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165221165225%_) - (cons _%g165220165223%_ _%g165221165225%_)))) + _%g166353166357%_) + (cons _%g166352166355%_ _%g166353166357%_)))) (declare (not safe)) - (__foldr1 __tmp169799 '() _%L165191%_))) + (__foldr1 __tmp170931 '() _%L166323%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g165227165229%_) + (lambda (_%g166359166361%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self165076%_ - _%g165227165229%_))) - (let ((__tmp169800 - (lambda (_%g165231165234%_ + _%self166208%_ + _%g166359166361%_))) + (let ((__tmp170932 + (lambda (_%g166363166366%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165232165236%_) - (cons _%g165231165234%_ _%g165232165236%_)))) + _%g166364166368%_) + (cons _%g166363166366%_ _%g166364166368%_)))) (declare (not safe)) - (__foldr1 __tmp169800 '() _%L165191%_))) + (__foldr1 __tmp170932 '() _%L166323%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - _%collect-e165080%_ - (let ((__tmp169801 - (lambda (_%g165238165241%_ + _%collect-e166212%_ + (let ((__tmp170933 + (lambda (_%g166370166373%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165239165243%_) - (cons _%g165238165241%_ _%g165239165243%_)))) + _%g166371166375%_) + (cons _%g166370166373%_ _%g166371166375%_)))) (declare (not safe)) - (__foldr1 __tmp169801 '() _%L165192%_)) + (__foldr1 __tmp170933 '() _%L166324%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp169802 - (lambda (_%g165245165248%_ + (let ((__tmp170934 + (lambda (_%g166377166380%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165246165250%_) - (cons _%g165245165248%_ _%g165246165250%_)))) + _%g166378166382%_) + (cons _%g166377166380%_ _%g166378166382%_)))) (declare (not safe)) - (__foldr1 __tmp169802 '() _%L165191%_))) + (__foldr1 __tmp170934 '() _%L166323%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g165252165254%_) + (lambda (_%g166384166386%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self165076%_ - _%g165252165254%_))) - (let ((__tmp169803 - (lambda (_%g165256165259%_ + _%self166208%_ + _%g166384166386%_))) + (let ((__tmp170935 + (lambda (_%g166388166391%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165257165261%_) - (cons _%g165256165259%_ _%g165257165261%_)))) + _%g166389166393%_) + (cons _%g166388166391%_ _%g166389166393%_)))) (declare (not safe)) - (__foldr1 __tmp169803 '() _%L165191%_))) + (__foldr1 __tmp170935 '() _%L166323%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self165076%_ - _%L165190%_)))) - (__tmp169794 - (let ((__tmp169795 - (let ((__tmp169796 - (lambda (_%g165263165266%_ + _%self166208%_ + _%L166322%_)))) + (__tmp170926 + (let ((__tmp170927 + (let ((__tmp170928 + (lambda (_%g166395166398%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165264165268%_) - (cons _%g165263165266%_ _%g165264165268%_)))) + _%g166396166400%_) + (cons _%g166395166398%_ _%g166396166400%_)))) (declare (not safe)) - (__foldr1 __tmp169796 '() _%L165192%_)))) + (__foldr1 __tmp170928 '() _%L166324%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp169795)))) + __tmp170927)))) (declare (not safe)) (__call-with-parameters - __tmp169797 + __tmp170929 gxc#current-compile-local-env - __tmp169794))) - _%hd165105165185%_ - _%expr165102165177%_ - _%hd165103165179%_) - (_%g165082165117%_ - _%g165083165120%_)))) - (_%g165082165117%_ _%g165083165120%_))))))) + __tmp170926))) + _%hd166237166317%_ + _%expr166234166309%_ + _%hd166235166311%_) + (_%g166214166249%_ + _%g166215166252%_)))) + (_%g166214166249%_ _%g166215166252%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop165096165143%_ - _%target165093165138%_ + (_%loop166228166275%_ + _%target166225166270%_ '() '())) - (_%g165082165117%_ - _%g165083165120%_))))) - (_%g165082165117%_ - _%g165083165120%_)))) - (_%g165082165117%_ _%g165083165120%_)))) - (_%g165082165117%_ _%g165083165120%_))))) - (_%g165081165271%_ _%stx165077%_))))) + (_%g166214166249%_ + _%g166215166252%_))))) + (_%g166214166249%_ + _%g166215166252%_)))) + (_%g166214166249%_ _%g166215166252%_)))) + (_%g166214166249%_ _%g166215166252%_))))) + (_%g166213166403%_ _%stx166209%_))))) (define gxc#collect-type-letrec-values%__0 - (lambda (_%self165333%_ _%stx165334%_) - (let ((_%expression-type165336%_ gxc#apply-basic-expression-type)) + (lambda (_%self166465%_ _%stx166466%_) + (let ((_%expression-type166468%_ gxc#apply-basic-expression-type)) (gxc#collect-type-letrec-values%__% - _%self165333%_ - _%stx165334%_ - _%expression-type165336%_)))) + _%self166465%_ + _%stx166466%_ + _%expression-type166468%_)))) (define gxc#collect-type-letrec-values% - (lambda _g169805_ - (let ((_g169804_ (let () (declare (not safe)) (##length _g169805_)))) - (cond ((let () (declare (not safe)) (##fx= _g169804_ 2)) - (apply gxc#collect-type-letrec-values%__0 _g169805_)) - ((let () (declare (not safe)) (##fx= _g169804_ 3)) - (apply gxc#collect-type-letrec-values%__% _g169805_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-letrec-values% - _g169805_)))))) + _g170937_)))))) (define gxc#collect-top-level-type-let-values% - (lambda (_%self165072%_ _%stx165073%_) + (lambda (_%self166204%_ _%stx166205%_) (gxc#collect-type-let-values%__% - _%self165072%_ - _%stx165073%_ + _%self166204%_ + _%stx166205%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-letrec-values% - (lambda (_%self165069%_ _%stx165070%_) + (lambda (_%self166201%_ _%stx166202%_) (gxc#collect-type-letrec-values%__% - _%self165069%_ - _%stx165070%_ + _%self166201%_ + _%stx166202%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-call% - (lambda (_%self164556%_ _%stx164557%_) - (let* ((_%__stx166980166981%_ _%stx164557%_) - (_%g164561164676%_ + (lambda (_%self165688%_ _%stx165689%_) + (let* ((_%__stx168112168113%_ _%stx165689%_) + (_%g165693165808%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166980166981%_))))) - (let ((_%__kont166982166983%_ - (lambda (_%L165019%_ - _%L165020%_ - _%L165021%_ - _%L165022%_ - _%L165023%_) - (let ((__tmp169809 + _%__stx168112168113%_))))) + (let ((_%__kont168114168115%_ + (lambda (_%L166151%_ + _%L166152%_ + _%L166153%_ + _%L166154%_ + _%L166155%_) + (let ((__tmp170941 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165022%_))) - (__tmp169808 - (let () (declare (not safe)) (gx#stx-e _%L165021%_))) - (__tmp169807 + (gxc#identifier-symbol _%L166154%_))) + (__tmp170940 + (let () (declare (not safe)) (gx#stx-e _%L166153%_))) + (__tmp170939 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165020%_))) - (__tmp169806 + (gxc#identifier-symbol _%L166152%_))) + (__tmp170938 (let () (declare (not safe)) - (gx#stx-e _%L165019%_)))) + (gx#stx-e _%L166151%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp169809 - __tmp169808 - __tmp169807 - __tmp169806)))) - (_%__kont166984166985%_ - (lambda (_%L164847%_ _%L164848%_ _%L164849%_ _%L164850%_) - (let ((__tmp169812 + __tmp170941 + __tmp170940 + __tmp170939 + __tmp170938)))) + (_%__kont168116168117%_ + (lambda (_%L165979%_ _%L165980%_ _%L165981%_ _%L165982%_) + (let ((__tmp170944 (let () (declare (not safe)) - (gxc#identifier-symbol _%L164849%_))) - (__tmp169811 - (let () (declare (not safe)) (gx#stx-e _%L164848%_))) - (__tmp169810 + (gxc#identifier-symbol _%L165981%_))) + (__tmp170943 + (let () (declare (not safe)) (gx#stx-e _%L165980%_))) + (__tmp170942 (let () (declare (not safe)) - (gxc#identifier-symbol _%L164847%_)))) + (gxc#identifier-symbol _%L165979%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp169812 - __tmp169811 - __tmp169810 + __tmp170944 + __tmp170943 + __tmp170942 '#f)))) - (_%__kont166986166987%_ - (lambda (_%L164713%_) + (_%__kont168118168119%_ + (lambda (_%L165845%_) (for-each - (lambda (_%g164726164728%_) + (lambda (_%g165858165860%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self164556%_ _%g164726164728%_))) - (let ((__tmp169813 - (lambda (_%g164730164733%_ _%g164731164735%_) - (cons _%g164730164733%_ _%g164731164735%_)))) + (gxc#compile-e__1 _%self165688%_ _%g165858165860%_))) + (let ((__tmp170945 + (lambda (_%g165862165865%_ _%g165863165867%_) + (cons _%g165862165865%_ _%g165863165867%_)))) (declare (not safe)) - (__foldr1 __tmp169813 '() _%L164713%_)))))) - (let* ((_%__match167237167238%_ - (lambda (_%e164660164681%_ - _%hd164661164684%_ - _%tl164662164686%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) - (letrec ((_%loop164666164694%_ - (lambda (_%hd164664164697%_ - _%expr164670164699%_) + (__foldr1 __tmp170945 '() _%L165845%_)))))) + (let* ((_%__match168369168370%_ + (lambda (_%e165792165813%_ + _%hd165793165816%_ + _%tl165794165818%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) + (letrec ((_%loop165798165826%_ + (lambda (_%hd165796165829%_ + _%expr165802165831%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164664164697%_)) - (let ((_%e164667164702%_ + (gx#stx-pair? _%hd165796165829%_)) + (let ((_%e165799165834%_ (let () (declare (not safe)) - (gx#stx-e _%hd164664164697%_)))) - (let ((_%lp-tl164669164707%_ + (gx#stx-e _%hd165796165829%_)))) + (let ((_%lp-tl165801165839%_ (let () (declare (not safe)) - (##cdr _%e164667164702%_))) - (_%lp-hd164668164705%_ + (##cdr _%e165799165834%_))) + (_%lp-hd165800165837%_ (let () (declare (not safe)) - (##car _%e164667164702%_)))) - (_%loop164666164694%_ - _%lp-tl164669164707%_ - (cons _%lp-hd164668164705%_ - _%expr164670164699%_)))) - (let ((_%expr164671164710%_ - (reverse _%expr164670164699%_))) - (_%__kont166986166987%_ - _%expr164671164710%_)))))) - (_%loop164666164694%_ _%target164663164689%_ '())))) - (_%__match167117167118%_ - (lambda (_%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%e164571164899%_ - _%hd164572164902%_ - _%tl164573164904%_ - _%e164574164907%_ - _%hd164575164910%_ - _%tl164576164912%_ - _%e164577164915%_ - _%hd164578164918%_ - _%tl164579164920%_ - _%e164580164923%_ - _%hd164581164926%_ - _%tl164582164928%_ - _%e164583164931%_ - _%hd164584164934%_ - _%tl164585164936%_ - _%e164586164939%_ - _%hd164587164942%_ - _%tl164588164944%_ - _%e164589164947%_ - _%hd164590164950%_ - _%tl164591164952%_ - _%e164592164955%_ - _%hd164593164958%_ - _%tl164594164960%_ - _%e164595164963%_ - _%hd164596164966%_ - _%tl164597164968%_ - _%e164598164971%_ - _%hd164599164974%_ - _%tl164600164976%_ - _%e164601164979%_ - _%hd164602164982%_ - _%tl164603164984%_ - _%e164604164987%_ - _%hd164605164990%_ - _%tl164606164992%_ - _%e164607164995%_ - _%hd164608164998%_ - _%tl164609165000%_ - _%e164610165003%_ - _%hd164611165006%_ - _%tl164612165008%_ - _%e164613165011%_ - _%hd164614165014%_ - _%tl164615165016%_) - (let ((_%L165019%_ _%hd164614165014%_) - (_%L165020%_ _%hd164605164990%_) - (_%L165021%_ _%hd164596164966%_) - (_%L165022%_ _%hd164587164942%_) - (_%L165023%_ _%hd164578164918%_)) + (##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%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L165023%_ + _%L166155%_ 'bind-method!)) - (_%__kont166982166983%_ - _%L165019%_ - _%L165020%_ - _%L165021%_ - _%L165022%_ - _%L165023%_) + (_%__kont168114168115%_ + _%L166151%_ + _%L166152%_ + _%L166153%_ + _%L166154%_ + _%L166155%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))))))) + (_%g165693165808%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166980166981%_)) - (let ((_%e164568164891%_ + (gx#stx-pair? _%__stx168112168113%_)) + (let ((_%e165700166023%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166980166981%_)))) - (let ((_%tl164570164896%_ + (gx#stx-e _%__stx168112168113%_)))) + (let ((_%tl165702166028%_ (let () (declare (not safe)) - (##cdr _%e164568164891%_))) - (_%hd164569164894%_ + (##cdr _%e165700166023%_))) + (_%hd165701166026%_ (let () (declare (not safe)) - (##car _%e164568164891%_)))) + (##car _%e165700166023%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164570164896%_)) - (let ((_%e164571164899%_ + (gx#stx-pair? _%tl165702166028%_)) + (let ((_%e165703166031%_ (let () (declare (not safe)) - (gx#stx-e _%tl164570164896%_)))) - (let ((_%tl164573164904%_ + (gx#stx-e _%tl165702166028%_)))) + (let ((_%tl165705166036%_ (let () (declare (not safe)) - (##cdr _%e164571164899%_))) - (_%hd164572164902%_ + (##cdr _%e165703166031%_))) + (_%hd165704166034%_ (let () (declare (not safe)) - (##car _%e164571164899%_)))) + (##car _%e165703166031%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164572164902%_)) - (let ((_%e164574164907%_ + (gx#stx-pair? _%hd165704166034%_)) + (let ((_%e165706166039%_ (let () (declare (not safe)) - (gx#stx-e _%hd164572164902%_)))) - (let ((_%tl164576164912%_ + (gx#stx-e _%hd165704166034%_)))) + (let ((_%tl165708166044%_ (let () (declare (not safe)) - (##cdr _%e164574164907%_))) - (_%hd164575164910%_ + (##cdr _%e165706166039%_))) + (_%hd165707166042%_ (let () (declare (not safe)) - (##car _%e164574164907%_)))) + (##car _%e165706166039%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd164575164910%_)) + _%hd165707166042%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd164575164910%_)) + _%hd165707166042%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164576164912%_)) - (let ((_%e164577164915%_ + _%tl165708166044%_)) + (let ((_%e165709166047%_ (let () (declare (not safe)) (gx#stx-e - _%tl164576164912%_)))) - (let ((_%tl164579164920%_ + _%tl165708166044%_)))) + (let ((_%tl165711166052%_ (let () (declare (not safe)) - (##cdr _%e164577164915%_))) - (_%hd164578164918%_ + (##cdr _%e165709166047%_))) + (_%hd165710166050%_ (let () (declare (not safe)) - (##car _%e164577164915%_)))) + (##car _%e165709166047%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164579164920%_)) + _%tl165711166052%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl164573164904%_)) - (let ((_%e164580164923%_ + (gx#stx-pair? _%tl165705166036%_)) + (let ((_%e165712166055%_ (let () (declare (not safe)) - (gx#stx-e _%tl164573164904%_)))) - (let ((_%tl164582164928%_ + (gx#stx-e _%tl165705166036%_)))) + (let ((_%tl165714166060%_ (let () (declare (not safe)) - (##cdr _%e164580164923%_))) - (_%hd164581164926%_ + (##cdr _%e165712166055%_))) + (_%hd165713166058%_ (let () (declare (not safe)) - (##car _%e164580164923%_)))) + (##car _%e165712166055%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164581164926%_)) - (let ((_%e164583164931%_ + (gx#stx-pair? _%hd165713166058%_)) + (let ((_%e165715166063%_ (let () (declare (not safe)) - (gx#stx-e _%hd164581164926%_)))) - (let ((_%tl164585164936%_ + (gx#stx-e _%hd165713166058%_)))) + (let ((_%tl165717166068%_ (let () (declare (not safe)) - (##cdr _%e164583164931%_))) - (_%hd164584164934%_ + (##cdr _%e165715166063%_))) + (_%hd165716166066%_ (let () (declare (not safe)) - (##car _%e164583164931%_)))) + (##car _%e165715166063%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd164584164934%_)) + (gx#identifier? _%hd165716166066%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd164584164934%_)) + _%hd165716166066%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164585164936%_)) - (let ((_%e164586164939%_ + _%tl165717166068%_)) + (let ((_%e165718166071%_ (let () (declare (not safe)) (gx#stx-e - _%tl164585164936%_)))) - (let ((_%tl164588164944%_ + _%tl165717166068%_)))) + (let ((_%tl165720166076%_ (let () (declare (not safe)) - (##cdr _%e164586164939%_))) - (_%hd164587164942%_ + (##cdr _%e165718166071%_))) + (_%hd165719166074%_ (let () (declare (not safe)) - (##car _%e164586164939%_)))) + (##car _%e165718166071%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164588164944%_)) + _%tl165720166076%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164582164928%_)) - (let ((_%e164589164947%_ + _%tl165714166060%_)) + (let ((_%e165721166079%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl164582164928%_)))) - (let ((_%tl164591164952%_ + (gx#stx-e _%tl165714166060%_)))) + (let ((_%tl165723166084%_ (let () (declare (not safe)) - (##cdr _%e164589164947%_))) - (_%hd164590164950%_ + (##cdr _%e165721166079%_))) + (_%hd165722166082%_ (let () (declare (not safe)) - (##car _%e164589164947%_)))) + (##car _%e165721166079%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164590164950%_)) - (let ((_%e164592164955%_ + (gx#stx-pair? _%hd165722166082%_)) + (let ((_%e165724166087%_ (let () (declare (not safe)) - (gx#stx-e _%hd164590164950%_)))) - (let ((_%tl164594164960%_ + (gx#stx-e _%hd165722166082%_)))) + (let ((_%tl165726166092%_ (let () (declare (not safe)) - (##cdr _%e164592164955%_))) - (_%hd164593164958%_ + (##cdr _%e165724166087%_))) + (_%hd165725166090%_ (let () (declare (not safe)) - (##car _%e164592164955%_)))) + (##car _%e165724166087%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd164593164958%_)) + (gx#identifier? _%hd165725166090%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd164593164958%_)) + _%hd165725166090%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164594164960%_)) - (let ((_%e164595164963%_ + (gx#stx-pair? _%tl165726166092%_)) + (let ((_%e165727166095%_ (let () (declare (not safe)) (gx#stx-e - _%tl164594164960%_)))) - (let ((_%tl164597164968%_ + _%tl165726166092%_)))) + (let ((_%tl165729166100%_ (let () (declare (not safe)) - (##cdr _%e164595164963%_))) - (_%hd164596164966%_ + (##cdr _%e165727166095%_))) + (_%hd165728166098%_ (let () (declare (not safe)) - (##car _%e164595164963%_)))) + (##car _%e165727166095%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164597164968%_)) + _%tl165729166100%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164591164952%_)) - (let ((_%e164598164971%_ + _%tl165723166084%_)) + (let ((_%e165730166103%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164591164952%_)))) - (let ((_%tl164600164976%_ - (let () (declare (not safe)) (##cdr _%e164598164971%_))) - (_%hd164599164974%_ + (gx#stx-e _%tl165723166084%_)))) + (let ((_%tl165732166108%_ + (let () (declare (not safe)) (##cdr _%e165730166103%_))) + (_%hd165731166106%_ (let () (declare (not safe)) - (##car _%e164598164971%_)))) + (##car _%e165730166103%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164599164974%_)) - (let ((_%e164601164979%_ + (gx#stx-pair? _%hd165731166106%_)) + (let ((_%e165733166111%_ (let () (declare (not safe)) - (gx#stx-e _%hd164599164974%_)))) - (let ((_%tl164603164984%_ + (gx#stx-e _%hd165731166106%_)))) + (let ((_%tl165735166116%_ (let () (declare (not safe)) - (##cdr _%e164601164979%_))) - (_%hd164602164982%_ + (##cdr _%e165733166111%_))) + (_%hd165734166114%_ (let () (declare (not safe)) - (##car _%e164601164979%_)))) + (##car _%e165733166111%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd164602164982%_)) + (gx#identifier? _%hd165734166114%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd164602164982%_)) + (gx#stx-eq? '%#ref _%hd165734166114%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164603164984%_)) - (let ((_%e164604164987%_ + (gx#stx-pair? _%tl165735166116%_)) + (let ((_%e165736166119%_ (let () (declare (not safe)) - (gx#stx-e _%tl164603164984%_)))) - (let ((_%tl164606164992%_ + (gx#stx-e _%tl165735166116%_)))) + (let ((_%tl165738166124%_ (let () (declare (not safe)) - (##cdr _%e164604164987%_))) - (_%hd164605164990%_ + (##cdr _%e165736166119%_))) + (_%hd165737166122%_ (let () (declare (not safe)) - (##car _%e164604164987%_)))) + (##car _%e165736166119%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164606164992%_)) + _%tl165738166124%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164600164976%_)) - (let ((_%e164607164995%_ + _%tl165732166108%_)) + (let ((_%e165739166127%_ (let () (declare (not safe)) (gx#stx-e - _%tl164600164976%_)))) - (let ((_%tl164609165000%_ + _%tl165732166108%_)))) + (let ((_%tl165741166132%_ (let () (declare (not safe)) - (##cdr _%e164607164995%_))) - (_%hd164608164998%_ + (##cdr _%e165739166127%_))) + (_%hd165740166130%_ (let () (declare (not safe)) - (##car _%e164607164995%_)))) + (##car _%e165739166127%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164608164998%_)) - (let ((_%e164610165003%_ + _%hd165740166130%_)) + (let ((_%e165742166135%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd164608164998%_)))) - (let ((_%tl164612165008%_ + (gx#stx-e _%hd165740166130%_)))) + (let ((_%tl165744166140%_ (let () (declare (not safe)) - (##cdr _%e164610165003%_))) - (_%hd164611165006%_ + (##cdr _%e165742166135%_))) + (_%hd165743166138%_ (let () (declare (not safe)) - (##car _%e164610165003%_)))) + (##car _%e165742166135%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd164611165006%_)) + (gx#identifier? _%hd165743166138%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd164611165006%_)) + (gx#stx-eq? '%#quote _%hd165743166138%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164612165008%_)) - (let ((_%e164613165011%_ + (gx#stx-pair? _%tl165744166140%_)) + (let ((_%e165745166143%_ (let () (declare (not safe)) - (gx#stx-e _%tl164612165008%_)))) - (let ((_%tl164615165016%_ + (gx#stx-e _%tl165744166140%_)))) + (let ((_%tl165747166148%_ (let () (declare (not safe)) - (##cdr _%e164613165011%_))) - (_%hd164614165014%_ + (##cdr _%e165745166143%_))) + (_%hd165746166146%_ (let () (declare (not safe)) - (##car _%e164613165011%_)))) + (##car _%e165745166143%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164615165016%_)) + (gx#stx-null? _%tl165747166148%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164609165000%_)) - (_%__match167117167118%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%e164571164899%_ - _%hd164572164902%_ - _%tl164573164904%_ - _%e164574164907%_ - _%hd164575164910%_ - _%tl164576164912%_ - _%e164577164915%_ - _%hd164578164918%_ - _%tl164579164920%_ - _%e164580164923%_ - _%hd164581164926%_ - _%tl164582164928%_ - _%e164583164931%_ - _%hd164584164934%_ - _%tl164585164936%_ - _%e164586164939%_ - _%hd164587164942%_ - _%tl164588164944%_ - _%e164589164947%_ - _%hd164590164950%_ - _%tl164591164952%_ - _%e164592164955%_ - _%hd164593164958%_ - _%tl164594164960%_ - _%e164595164963%_ - _%hd164596164966%_ - _%tl164597164968%_ - _%e164598164971%_ - _%hd164599164974%_ - _%tl164600164976%_ - _%e164601164979%_ - _%hd164602164982%_ - _%tl164603164984%_ - _%e164604164987%_ - _%hd164605164990%_ - _%tl164606164992%_ - _%e164607164995%_ - _%hd164608164998%_ - _%tl164609165000%_ - _%e164610165003%_ - _%hd164611165006%_ - _%tl164612165008%_ - _%e164613165011%_ - _%hd164614165014%_ - _%tl164615165016%_) + _%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%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))) + (_%g165693165808%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))))) + (_%g165693165808%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))) + (_%g165693165808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))) + (_%g165693165808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))))) + (_%g165693165808%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '1))) - (_%target164663164689%_ + (##vector-ref _%__splice168120168121%_ '1))) + (_%target165795165821%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '0)))) + (##vector-ref _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) - (let () (declare (not safe)) (_%g164561164676%_)))))) + (_%g165693165808%_))))) + (let () (declare (not safe)) (_%g165693165808%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl164600164976%_)) - (if (let ((__tmp169814 + _%tl165732166108%_)) + (if (let ((__tmp170946 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp169814 'bind-method!)) - (let ((_%L164847%_ _%hd164605164990%_) - (_%L164848%_ _%hd164596164966%_) - (_%L164849%_ _%hd164587164942%_) - (_%L164850%_ _%hd164578164918%_)) - (_%__kont166984166985%_ - _%L164847%_ - _%L164848%_ - _%L164849%_ - _%L164850%_)) + (gxc#runtime-identifier=? __tmp170946 'bind-method!)) + (let ((_%L165979%_ _%hd165737166122%_) + (_%L165980%_ _%hd165728166098%_) + (_%L165981%_ _%hd165719166074%_) + (_%L165982%_ _%hd165710166050%_)) + (_%__kont168116168117%_ + _%L165979%_ + _%L165980%_ + _%L165981%_ + _%L165982%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '1))) - (_%target164663164689%_ + (##vector-ref _%__splice168120168121%_ '1))) + (_%target165795165821%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '0)))) + (##vector-ref _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) - (let () (declare (not safe)) (_%g164561164676%_)))) + (_%g165693165808%_))))) + (let () (declare (not safe)) (_%g165693165808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl164570164896%_ '0)))) - (let ((_%tl164665164691%_ + (gx#syntax-split-splice _%tl165702166028%_ '0)))) + (let ((_%tl165797165823%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '1))) - (_%target164663164689%_ + (##vector-ref _%__splice168120168121%_ '1))) + (_%target165795165821%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '0)))) + (##vector-ref _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) - (let () (declare (not safe)) (_%g164561164676%_))))) - (let () (declare (not safe)) (_%g164561164676%_))))) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) + (let () (declare (not safe)) (_%g165693165808%_))))) + (let () (declare (not safe)) (_%g165693165808%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))))) + (_%g165693165808%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))) + (_%g165693165808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))) + (_%g165693165808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))))) + (_%g165693165808%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) - (let () (declare (not safe)) (_%g164561164676%_)))))) + (_%g165693165808%_))))) + (let () (declare (not safe)) (_%g165693165808%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl164570164896%_ '0)))) - (let ((_%tl164665164691%_ + (gx#syntax-split-splice _%tl165702166028%_ '0)))) + (let ((_%tl165797165823%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '1))) - (_%target164663164689%_ + (##vector-ref _%__splice168120168121%_ '1))) + (_%target165795165821%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '0)))) + (##vector-ref _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) - (let () (declare (not safe)) (_%g164561164676%_))))) - (let () (declare (not safe)) (_%g164561164676%_)))) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) + (let () (declare (not safe)) (_%g165693165808%_))))) + (let () (declare (not safe)) (_%g165693165808%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl164570164896%_ '0)))) - (let ((_%tl164665164691%_ + (gx#syntax-split-splice _%tl165702166028%_ '0)))) + (let ((_%tl165797165823%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '1))) - (_%target164663164689%_ + (##vector-ref _%__splice168120168121%_ '1))) + (_%target165795165821%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '0)))) + (##vector-ref _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) - (let () (declare (not safe)) (_%g164561164676%_))))) - (let () (declare (not safe)) (_%g164561164676%_)))))) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) + (let () (declare (not safe)) (_%g165693165808%_))))) + (let () (declare (not safe)) (_%g165693165808%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))) + (_%g165693165808%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))) + (_%g165693165808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))))) + (_%g165693165808%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))))) + (_%g165693165808%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '1))) - (_%target164663164689%_ + (##vector-ref _%__splice168120168121%_ '1))) + (_%target165795165821%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '0)))) + (##vector-ref _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) - (let () (declare (not safe)) (_%g164561164676%_)))) + (_%g165693165808%_))))) + (let () (declare (not safe)) (_%g165693165808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl164570164896%_ '0)))) - (let ((_%tl164665164691%_ + (gx#syntax-split-splice _%tl165702166028%_ '0)))) + (let ((_%tl165797165823%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '1))) - (_%target164663164689%_ + (##vector-ref _%__splice168120168121%_ '1))) + (_%target165795165821%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '0)))) + (##vector-ref _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) - (let () (declare (not safe)) (_%g164561164676%_))))) - (let () (declare (not safe)) (_%g164561164676%_)))))) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) + (let () (declare (not safe)) (_%g165693165808%_))))) + (let () (declare (not safe)) (_%g165693165808%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))) + (_%g165693165808%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))) + (_%g165693165808%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))))) + (_%g165693165808%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))))) + (_%g165693165808%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) - (let () (declare (not safe)) (_%g164561164676%_)))) + (_%g165693165808%_))))) + (let () (declare (not safe)) (_%g165693165808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '1))) - (_%target164663164689%_ + (##vector-ref _%__splice168120168121%_ '1))) + (_%target165795165821%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '0)))) + (##vector-ref _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) - (let () (declare (not safe)) (_%g164561164676%_)))))) + (_%g165693165808%_))))) + (let () (declare (not safe)) (_%g165693165808%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl164570164896%_ '0)))) - (let ((_%tl164665164691%_ + (gx#syntax-split-splice _%tl165702166028%_ '0)))) + (let ((_%tl165797165823%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '1))) - (_%target164663164689%_ + (##vector-ref _%__splice168120168121%_ '1))) + (_%target165795165821%_ (let () (declare (not safe)) - (##vector-ref _%__splice166988166989%_ '0)))) + (##vector-ref _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) - (let () (declare (not safe)) (_%g164561164676%_))))) - (let () (declare (not safe)) (_%g164561164676%_)))) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) + (let () (declare (not safe)) (_%g165693165808%_))))) + (let () (declare (not safe)) (_%g165693165808%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))) + (_%g165693165808%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))))) + (_%g165693165808%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))))) + (_%g165693165808%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164570164896%_)) - (let ((_%__splice166988166989%_ + (gx#stx-pair/null? _%tl165702166028%_)) + (let ((_%__splice168120168121%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164570164896%_ + _%tl165702166028%_ '0)))) - (let ((_%tl164665164691%_ + (let ((_%tl165797165823%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '1))) - (_%target164663164689%_ + (_%target165795165821%_ (let () (declare (not safe)) (##vector-ref - _%__splice166988166989%_ + _%__splice168120168121%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164665164691%_)) - (_%__match167237167238%_ - _%e164568164891%_ - _%hd164569164894%_ - _%tl164570164896%_ - _%__splice166988166989%_ - _%target164663164689%_ - _%tl164665164691%_) + (gx#stx-null? _%tl165797165823%_)) + (_%__match168369168370%_ + _%e165700166023%_ + _%hd165701166026%_ + _%tl165702166028%_ + _%__splice168120168121%_ + _%target165795165821%_ + _%tl165797165823%_) (let () (declare (not safe)) - (_%g164561164676%_))))) + (_%g165693165808%_))))) (let () (declare (not safe)) - (_%g164561164676%_)))))) - (let () (declare (not safe)) (_%g164561164676%_)))))))) + (_%g165693165808%_)))))) + (let () (declare (not safe)) (_%g165693165808%_)))))))) (define gxc#collect-type-setq% - (lambda (_%self164479%_ _%stx164480%_) - (let* ((_%g164482164499%_ - (lambda (_%g164483164496%_) + (lambda (_%self165611%_ _%stx165612%_) + (let* ((_%g165614165631%_ + (lambda (_%g165615165628%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164483164496%_)))) - (_%g164481164553%_ - (lambda (_%g164483164502%_) + _%g165615165628%_)))) + (_%g165613165685%_ + (lambda (_%g165615165634%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164483164502%_)) - (let ((_%e164486164504%_ + (gx#stx-pair? _%g165615165634%_)) + (let ((_%e165618165636%_ (let () (declare (not safe)) - (gx#stx-e _%g164483164502%_)))) - (let ((_%hd164487164507%_ + (gx#stx-e _%g165615165634%_)))) + (let ((_%hd165619165639%_ (let () (declare (not safe)) - (##car _%e164486164504%_))) - (_%tl164488164509%_ + (##car _%e165618165636%_))) + (_%tl165620165641%_ (let () (declare (not safe)) - (##cdr _%e164486164504%_)))) + (##cdr _%e165618165636%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164488164509%_)) - (let ((_%e164489164512%_ + (gx#stx-pair? _%tl165620165641%_)) + (let ((_%e165621165644%_ (let () (declare (not safe)) - (gx#stx-e _%tl164488164509%_)))) - (let ((_%hd164490164515%_ + (gx#stx-e _%tl165620165641%_)))) + (let ((_%hd165622165647%_ (let () (declare (not safe)) - (##car _%e164489164512%_))) - (_%tl164491164517%_ + (##car _%e165621165644%_))) + (_%tl165623165649%_ (let () (declare (not safe)) - (##cdr _%e164489164512%_)))) + (##cdr _%e165621165644%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164491164517%_)) - (let ((_%e164492164520%_ + (gx#stx-pair? _%tl165623165649%_)) + (let ((_%e165624165652%_ (let () (declare (not safe)) - (gx#stx-e _%tl164491164517%_)))) - (let ((_%hd164493164523%_ + (gx#stx-e _%tl165623165649%_)))) + (let ((_%hd165625165655%_ (let () (declare (not safe)) - (##car _%e164492164520%_))) - (_%tl164494164525%_ + (##car _%e165624165652%_))) + (_%tl165626165657%_ (let () (declare (not safe)) - (##cdr _%e164492164520%_)))) + (##cdr _%e165624165652%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164494164525%_)) - ((lambda (_%L164528%_ - _%L164529%_) - (let* ((_%sym164544%_ + _%tl165626165657%_)) + ((lambda (_%L165660%_ + _%L165661%_) + (let* ((_%sym165676%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L164529%_))) - (_%bind-type164546%_ + _%L165661%_))) + (_%bind-type165678%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym164544%_))) - (_%expr-type164548%_ + _%sym165676%_))) + (_%expr-type165680%_ (gxc#apply-basic-expression-type - _%L164528%_)) - (_%reduced-type164550%_ + _%L165660%_)) + (_%reduced-type165682%_ (gxc#greatest-common-type - _%stx164480%_ - _%bind-type164546%_ - _%expr-type164548%_))) - (if _%reduced-type164550%_ - (let ((__tmp169815 - (memq _%sym164544%_ + _%stx165612%_ + _%bind-type165678%_ + _%expr-type165680%_))) + (if _%reduced-type165682%_ + (let ((__tmp170947 + (memq _%sym165676%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#current-compile-local-env))))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym164544%_ - _%reduced-type164550%_ - __tmp169815)) + _%sym165676%_ + _%reduced-type165682%_ + __tmp170947)) '#!void) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self164479%_ - _%L164528%_)))) - _%hd164493164523%_ - _%hd164490164515%_) - (_%g164482164499%_ - _%g164483164502%_)))) - (_%g164482164499%_ _%g164483164502%_)))) - (_%g164482164499%_ _%g164483164502%_)))) - (_%g164482164499%_ _%g164483164502%_))))) - (_%g164481164553%_ _%stx164480%_)))) + _%self165611%_ + _%L165660%_)))) + _%hd165625165655%_ + _%hd165622165647%_) + (_%g165614165631%_ + _%g165615165634%_)))) + (_%g165614165631%_ _%g165615165634%_)))) + (_%g165614165631%_ _%g165615165634%_)))) + (_%g165614165631%_ _%g165615165634%_))))) + (_%g165613165685%_ _%stx165612%_)))) (define gxc#apply-path-type-if% - (lambda (_%self164079%_ _%stx164080%_) - (let* ((_%__stx167240167241%_ _%stx164080%_) - (_%g164084164173%_ + (lambda (_%self165211%_ _%stx165212%_) + (let* ((_%__stx168372168373%_ _%stx165212%_) + (_%g165216165305%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167240167241%_))))) - (let ((_%__kont167242167243%_ - (lambda (_%L164431%_ _%L164432%_ _%L164433%_ _%L164434%_) - (let ((_%$e164466%_ - (let ((__tmp169816 + _%__stx168372168373%_))))) + (let ((_%__kont168374168375%_ + (lambda (_%L165563%_ _%L165564%_ _%L165565%_ _%L165566%_) + (let ((_%$e165598%_ + (let ((__tmp170948 (let () (declare (not safe)) - (gxc#identifier-symbol _%L164434%_)))) + (gxc#identifier-symbol _%L165566%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp169816)))) - (if _%$e164466%_ - ((lambda (_%pred-type164469%_) + (gxc#optimizer-lookup-type __tmp170948)))) + (if _%$e165598%_ + ((lambda (_%pred-type165601%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type164469%_ + _%pred-type165601%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type164469%_ + _%pred-type165601%_ 'gxc#!primitive-predicate::t))) (begin - (let ((__tmp169819 + (let ((__tmp170951 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self164079%_ - _%L164432%_)))) - (__tmp169817 + _%self165211%_ + _%L165564%_)))) + (__tmp170949 (cons (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L164433%_)) - (let ((__tmp169818 + _%L165565%_)) + (let ((__tmp170950 (##structure-ref - _%pred-type164469%_ + _%pred-type165601%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx164080%_ - __tmp169818))) + _%stx165212%_ + __tmp170950))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) (declare (not safe)) (__call-with-parameters - __tmp169819 + __tmp170951 gxc#current-compile-path-type - __tmp169817)) + __tmp170949)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self164079%_ - _%L164431%_))) + _%self165211%_ + _%L165563%_))) (let () (declare (not safe)) (gxc#apply-operands - _%self164079%_ - _%stx164080%_)))) - _%$e164466%_) + _%self165211%_ + _%stx165212%_)))) + _%$e165598%_) (let () (declare (not safe)) (gxc#apply-operands - _%self164079%_ - _%stx164080%_)))))) - (_%__kont167244167245%_ - (lambda (_%L164307%_ _%L164308%_ _%L164309%_ _%L164310%_) + _%self165211%_ + _%stx165212%_)))))) + (_%__kont168376168377%_ + (lambda (_%L165439%_ _%L165440%_ _%L165441%_ _%L165442%_) (gxc#apply-path-type-if% - _%self164079%_ - (let ((__tmp169820 + _%self165211%_ + (let ((__tmp170952 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L164309%_ - (cons _%L164307%_ - (cons _%L164308%_ '())))))) + (cons _%L165441%_ + (cons _%L165439%_ + (cons _%L165440%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169820 _%stx164080%_))))) - (_%__kont167246167247%_ - (lambda (_%L164210%_ _%L164211%_ _%L164212%_) + (gxc#xform-wrap-source __tmp170952 _%stx165212%_))))) + (_%__kont168378168379%_ + (lambda (_%L165342%_ _%L165343%_ _%L165344%_) (let () (declare (not safe)) - (gxc#apply-operands _%self164079%_ _%stx164080%_))))) - (let ((_%__match167401167402%_ - (lambda (_%e164127164235%_ - _%hd164128164238%_ - _%tl164129164240%_ - _%e164130164243%_ - _%hd164131164246%_ - _%tl164132164248%_ - _%e164133164251%_ - _%hd164134164254%_ - _%tl164135164256%_ - _%e164136164259%_ - _%hd164137164262%_ - _%tl164138164264%_ - _%e164139164267%_ - _%hd164140164270%_ - _%tl164141164272%_ - _%e164142164275%_ - _%hd164143164278%_ - _%tl164144164280%_ - _%e164145164283%_ - _%hd164146164286%_ - _%tl164147164288%_ - _%e164148164291%_ - _%hd164149164294%_ - _%tl164150164296%_ - _%e164151164299%_ - _%hd164152164302%_ - _%tl164153164304%_) - (let ((_%L164307%_ _%hd164152164302%_) - (_%L164308%_ _%hd164149164294%_) - (_%L164309%_ _%hd164146164286%_) - (_%L164310%_ _%hd164143164278%_)) + (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%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L164310%_ 'not)) - (_%__kont167244167245%_ - _%L164307%_ - _%L164308%_ - _%L164309%_ - _%L164310%_) - (_%__kont167246167247%_ - _%hd164152164302%_ - _%hd164149164294%_ - _%hd164131164246%_)))))) + (gxc#runtime-identifier=? _%L165442%_ 'not)) + (_%__kont168376168377%_ + _%L165439%_ + _%L165440%_ + _%L165441%_ + _%L165442%_) + (_%__kont168378168379%_ + _%hd165284165434%_ + _%hd165281165426%_ + _%hd165263165378%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167240167241%_)) - (let ((_%e164090164343%_ + (gx#stx-pair? _%__stx168372168373%_)) + (let ((_%e165222165475%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167240167241%_)))) - (let ((_%tl164092164348%_ + (gx#stx-e _%__stx168372168373%_)))) + (let ((_%tl165224165480%_ (let () (declare (not safe)) - (##cdr _%e164090164343%_))) - (_%hd164091164346%_ + (##cdr _%e165222165475%_))) + (_%hd165223165478%_ (let () (declare (not safe)) - (##car _%e164090164343%_)))) + (##car _%e165222165475%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164092164348%_)) - (let ((_%e164093164351%_ + (gx#stx-pair? _%tl165224165480%_)) + (let ((_%e165225165483%_ (let () (declare (not safe)) - (gx#stx-e _%tl164092164348%_)))) - (let ((_%tl164095164356%_ + (gx#stx-e _%tl165224165480%_)))) + (let ((_%tl165227165488%_ (let () (declare (not safe)) - (##cdr _%e164093164351%_))) - (_%hd164094164354%_ + (##cdr _%e165225165483%_))) + (_%hd165226165486%_ (let () (declare (not safe)) - (##car _%e164093164351%_)))) + (##car _%e165225165483%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164094164354%_)) - (let ((_%e164096164359%_ + (gx#stx-pair? _%hd165226165486%_)) + (let ((_%e165228165491%_ (let () (declare (not safe)) - (gx#stx-e _%hd164094164354%_)))) - (let ((_%tl164098164364%_ + (gx#stx-e _%hd165226165486%_)))) + (let ((_%tl165230165496%_ (let () (declare (not safe)) - (##cdr _%e164096164359%_))) - (_%hd164097164362%_ + (##cdr _%e165228165491%_))) + (_%hd165229165494%_ (let () (declare (not safe)) - (##car _%e164096164359%_)))) + (##car _%e165228165491%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd164097164362%_)) + _%hd165229165494%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd164097164362%_)) + _%hd165229165494%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164098164364%_)) - (let ((_%e164099164367%_ + _%tl165230165496%_)) + (let ((_%e165231165499%_ (let () (declare (not safe)) (gx#stx-e - _%tl164098164364%_)))) - (let ((_%tl164101164372%_ + _%tl165230165496%_)))) + (let ((_%tl165233165504%_ (let () (declare (not safe)) - (##cdr _%e164099164367%_))) - (_%hd164100164370%_ + (##cdr _%e165231165499%_))) + (_%hd165232165502%_ (let () (declare (not safe)) - (##car _%e164099164367%_)))) + (##car _%e165231165499%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164100164370%_)) - (let ((_%e164102164375%_ + _%hd165232165502%_)) + (let ((_%e165234165507%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd164100164370%_)))) - (let ((_%tl164104164380%_ + (gx#stx-e _%hd165232165502%_)))) + (let ((_%tl165236165512%_ (let () (declare (not safe)) - (##cdr _%e164102164375%_))) - (_%hd164103164378%_ + (##cdr _%e165234165507%_))) + (_%hd165235165510%_ (let () (declare (not safe)) - (##car _%e164102164375%_)))) + (##car _%e165234165507%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd164103164378%_)) + (gx#identifier? _%hd165235165510%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd164103164378%_)) + (gx#stx-eq? '%#ref _%hd165235165510%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164104164380%_)) - (let ((_%e164105164383%_ + (gx#stx-pair? _%tl165236165512%_)) + (let ((_%e165237165515%_ (let () (declare (not safe)) - (gx#stx-e _%tl164104164380%_)))) - (let ((_%tl164107164388%_ + (gx#stx-e _%tl165236165512%_)))) + (let ((_%tl165239165520%_ (let () (declare (not safe)) - (##cdr _%e164105164383%_))) - (_%hd164106164386%_ + (##cdr _%e165237165515%_))) + (_%hd165238165518%_ (let () (declare (not safe)) - (##car _%e164105164383%_)))) + (##car _%e165237165515%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164107164388%_)) + (gx#stx-null? _%tl165239165520%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164101164372%_)) - (let ((_%e164108164391%_ + _%tl165233165504%_)) + (let ((_%e165240165523%_ (let () (declare (not safe)) (gx#stx-e - _%tl164101164372%_)))) - (let ((_%tl164110164396%_ + _%tl165233165504%_)))) + (let ((_%tl165242165528%_ (let () (declare (not safe)) - (##cdr _%e164108164391%_))) - (_%hd164109164394%_ + (##cdr _%e165240165523%_))) + (_%hd165241165526%_ (let () (declare (not safe)) - (##car _%e164108164391%_)))) + (##car _%e165240165523%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164109164394%_)) - (let ((_%e164111164399%_ + _%hd165241165526%_)) + (let ((_%e165243165531%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd164109164394%_)))) - (let ((_%tl164113164404%_ - (let () (declare (not safe)) (##cdr _%e164111164399%_))) - (_%hd164112164402%_ + (gx#stx-e _%hd165241165526%_)))) + (let ((_%tl165245165536%_ + (let () (declare (not safe)) (##cdr _%e165243165531%_))) + (_%hd165244165534%_ (let () (declare (not safe)) - (##car _%e164111164399%_)))) + (##car _%e165243165531%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd164112164402%_)) + (gx#identifier? _%hd165244165534%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd164112164402%_)) + (gx#stx-eq? '%#ref _%hd165244165534%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164113164404%_)) - (let ((_%e164114164407%_ + (gx#stx-pair? _%tl165245165536%_)) + (let ((_%e165246165539%_ (let () (declare (not safe)) - (gx#stx-e _%tl164113164404%_)))) - (let ((_%tl164116164412%_ + (gx#stx-e _%tl165245165536%_)))) + (let ((_%tl165248165544%_ (let () (declare (not safe)) - (##cdr _%e164114164407%_))) - (_%hd164115164410%_ + (##cdr _%e165246165539%_))) + (_%hd165247165542%_ (let () (declare (not safe)) - (##car _%e164114164407%_)))) + (##car _%e165246165539%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164116164412%_)) + (gx#stx-null? _%tl165248165544%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164110164396%_)) + (gx#stx-null? _%tl165242165528%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164095164356%_)) - (let ((_%e164117164415%_ + _%tl165227165488%_)) + (let ((_%e165249165547%_ (let () (declare (not safe)) (gx#stx-e - _%tl164095164356%_)))) - (let ((_%tl164119164420%_ + _%tl165227165488%_)))) + (let ((_%tl165251165552%_ (let () (declare (not safe)) - (##cdr _%e164117164415%_))) - (_%hd164118164418%_ + (##cdr _%e165249165547%_))) + (_%hd165250165550%_ (let () (declare (not safe)) - (##car _%e164117164415%_)))) + (##car _%e165249165547%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164119164420%_)) - (let ((_%e164120164423%_ + _%tl165251165552%_)) + (let ((_%e165252165555%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164119164420%_)))) - (let ((_%tl164122164428%_ - (let () (declare (not safe)) (##cdr _%e164120164423%_))) - (_%hd164121164426%_ + (gx#stx-e _%tl165251165552%_)))) + (let ((_%tl165254165560%_ + (let () (declare (not safe)) (##cdr _%e165252165555%_))) + (_%hd165253165558%_ (let () (declare (not safe)) - (##car _%e164120164423%_)))) + (##car _%e165252165555%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164122164428%_)) - (_%__kont167242167243%_ - _%hd164121164426%_ - _%hd164118164418%_ - _%hd164115164410%_ - _%hd164106164386%_) - (let () (declare (not safe)) (_%g164084164173%_))))) - (let () (declare (not safe)) (_%g164084164173%_))))) + (gx#stx-null? _%tl165254165560%_)) + (_%__kont168374168375%_ + _%hd165253165558%_ + _%hd165250165550%_ + _%hd165247165542%_ + _%hd165238165518%_) + (let () (declare (not safe)) (_%g165216165305%_))))) + (let () (declare (not safe)) (_%g165216165305%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g164084164173%_))) + (_%g165216165305%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164095164356%_)) - (let ((_%e164163164194%_ + _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) (gx#stx-e - _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164165164199%_)) - (let ((_%e164166164202%_ + _%tl165297165331%_)) + (let ((_%e165298165334%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164165164199%_)))) - (let ((_%tl164168164207%_ - (let () (declare (not safe)) (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (gx#stx-e _%tl165297165331%_)))) + (let ((_%tl165300165339%_ + (let () (declare (not safe)) (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) - (let () (declare (not safe)) (_%g164084164173%_))))) - (let () (declare (not safe)) (_%g164084164173%_))))) + (gx#stx-null? _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) + (let () (declare (not safe)) (_%g165216165305%_))))) + (let () (declare (not safe)) (_%g165216165305%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g164084164173%_)))) + (_%g165216165305%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164110164396%_)) + (gx#stx-null? _%tl165242165528%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164095164356%_)) - (let ((_%e164148164291%_ + _%tl165227165488%_)) + (let ((_%e165280165423%_ (let () (declare (not safe)) (gx#stx-e - _%tl164095164356%_)))) - (let ((_%tl164150164296%_ + _%tl165227165488%_)))) + (let ((_%tl165282165428%_ (let () (declare (not safe)) - (##cdr _%e164148164291%_))) - (_%hd164149164294%_ + (##cdr _%e165280165423%_))) + (_%hd165281165426%_ (let () (declare (not safe)) - (##car _%e164148164291%_)))) + (##car _%e165280165423%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164150164296%_)) - (let ((_%e164151164299%_ + _%tl165282165428%_)) + (let ((_%e165283165431%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164150164296%_)))) - (let ((_%tl164153164304%_ - (let () (declare (not safe)) (##cdr _%e164151164299%_))) - (_%hd164152164302%_ + (gx#stx-e _%tl165282165428%_)))) + (let ((_%tl165285165436%_ + (let () (declare (not safe)) (##cdr _%e165283165431%_))) + (_%hd165284165434%_ (let () (declare (not safe)) - (##car _%e164151164299%_)))) + (##car _%e165283165431%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164153164304%_)) - (_%__match167401167402%_ - _%e164090164343%_ - _%hd164091164346%_ - _%tl164092164348%_ - _%e164093164351%_ - _%hd164094164354%_ - _%tl164095164356%_ - _%e164096164359%_ - _%hd164097164362%_ - _%tl164098164364%_ - _%e164099164367%_ - _%hd164100164370%_ - _%tl164101164372%_ - _%e164102164375%_ - _%hd164103164378%_ - _%tl164104164380%_ - _%e164105164383%_ - _%hd164106164386%_ - _%tl164107164388%_ - _%e164108164391%_ - _%hd164109164394%_ - _%tl164110164396%_ - _%e164148164291%_ - _%hd164149164294%_ - _%tl164150164296%_ - _%e164151164299%_ - _%hd164152164302%_ - _%tl164153164304%_) - (let () (declare (not safe)) (_%g164084164173%_))))) - (let () (declare (not safe)) (_%g164084164173%_))))) + (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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g164084164173%_))) + (_%g165216165305%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164095164356%_)) - (let ((_%e164163164194%_ + _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) (gx#stx-e - _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164165164199%_)) - (let ((_%e164166164202%_ + _%tl165297165331%_)) + (let ((_%e165298165334%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164165164199%_)))) - (let ((_%tl164168164207%_ - (let () (declare (not safe)) (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (gx#stx-e _%tl165297165331%_)))) + (let ((_%tl165300165339%_ + (let () (declare (not safe)) (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) - (let () (declare (not safe)) (_%g164084164173%_))))) - (let () (declare (not safe)) (_%g164084164173%_))))) + (gx#stx-null? _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) + (let () (declare (not safe)) (_%g165216165305%_))))) + (let () (declare (not safe)) (_%g165216165305%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g164084164173%_))))))) + (_%g165216165305%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164110164396%_)) + (gx#stx-null? _%tl165242165528%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164095164356%_)) - (let ((_%e164148164291%_ + (gx#stx-pair? _%tl165227165488%_)) + (let ((_%e165280165423%_ (let () (declare (not safe)) - (gx#stx-e _%tl164095164356%_)))) - (let ((_%tl164150164296%_ + (gx#stx-e _%tl165227165488%_)))) + (let ((_%tl165282165428%_ (let () (declare (not safe)) - (##cdr _%e164148164291%_))) - (_%hd164149164294%_ + (##cdr _%e165280165423%_))) + (_%hd165281165426%_ (let () (declare (not safe)) - (##car _%e164148164291%_)))) + (##car _%e165280165423%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164150164296%_)) - (let ((_%e164151164299%_ + _%tl165282165428%_)) + (let ((_%e165283165431%_ (let () (declare (not safe)) (gx#stx-e - _%tl164150164296%_)))) - (let ((_%tl164153164304%_ + _%tl165282165428%_)))) + (let ((_%tl165285165436%_ (let () (declare (not safe)) - (##cdr _%e164151164299%_))) - (_%hd164152164302%_ + (##cdr _%e165283165431%_))) + (_%hd165284165434%_ (let () (declare (not safe)) - (##car _%e164151164299%_)))) + (##car _%e165283165431%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164153164304%_)) - (_%__match167401167402%_ - _%e164090164343%_ - _%hd164091164346%_ - _%tl164092164348%_ - _%e164093164351%_ - _%hd164094164354%_ - _%tl164095164356%_ - _%e164096164359%_ - _%hd164097164362%_ - _%tl164098164364%_ - _%e164099164367%_ - _%hd164100164370%_ - _%tl164101164372%_ - _%e164102164375%_ - _%hd164103164378%_ - _%tl164104164380%_ - _%e164105164383%_ - _%hd164106164386%_ - _%tl164107164388%_ - _%e164108164391%_ - _%hd164109164394%_ - _%tl164110164396%_ - _%e164148164291%_ - _%hd164149164294%_ - _%tl164150164296%_ - _%e164151164299%_ - _%hd164152164302%_ - _%tl164153164304%_) + _%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)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))) + (_%g165216165305%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164095164356%_)) - (let ((_%e164163164194%_ + (gx#stx-pair? _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) - (gx#stx-e _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + (gx#stx-e _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164165164199%_)) - (let ((_%e164166164202%_ + _%tl165297165331%_)) + (let ((_%e165298165334%_ (let () (declare (not safe)) (gx#stx-e - _%tl164165164199%_)))) - (let ((_%tl164168164207%_ + _%tl165297165331%_)))) + (let ((_%tl165300165339%_ (let () (declare (not safe)) - (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) + _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164110164396%_)) + (gx#stx-null? _%tl165242165528%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164095164356%_)) - (let ((_%e164148164291%_ + (gx#stx-pair? _%tl165227165488%_)) + (let ((_%e165280165423%_ (let () (declare (not safe)) - (gx#stx-e _%tl164095164356%_)))) - (let ((_%tl164150164296%_ + (gx#stx-e _%tl165227165488%_)))) + (let ((_%tl165282165428%_ (let () (declare (not safe)) - (##cdr _%e164148164291%_))) - (_%hd164149164294%_ + (##cdr _%e165280165423%_))) + (_%hd165281165426%_ (let () (declare (not safe)) - (##car _%e164148164291%_)))) + (##car _%e165280165423%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164150164296%_)) - (let ((_%e164151164299%_ + (gx#stx-pair? _%tl165282165428%_)) + (let ((_%e165283165431%_ (let () (declare (not safe)) (gx#stx-e - _%tl164150164296%_)))) - (let ((_%tl164153164304%_ + _%tl165282165428%_)))) + (let ((_%tl165285165436%_ (let () (declare (not safe)) - (##cdr _%e164151164299%_))) - (_%hd164152164302%_ + (##cdr _%e165283165431%_))) + (_%hd165284165434%_ (let () (declare (not safe)) - (##car _%e164151164299%_)))) + (##car _%e165283165431%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164153164304%_)) - (_%__match167401167402%_ - _%e164090164343%_ - _%hd164091164346%_ - _%tl164092164348%_ - _%e164093164351%_ - _%hd164094164354%_ - _%tl164095164356%_ - _%e164096164359%_ - _%hd164097164362%_ - _%tl164098164364%_ - _%e164099164367%_ - _%hd164100164370%_ - _%tl164101164372%_ - _%e164102164375%_ - _%hd164103164378%_ - _%tl164104164380%_ - _%e164105164383%_ - _%hd164106164386%_ - _%tl164107164388%_ - _%e164108164391%_ - _%hd164109164394%_ - _%tl164110164396%_ - _%e164148164291%_ - _%hd164149164294%_ - _%tl164150164296%_ - _%e164151164299%_ - _%hd164152164302%_ - _%tl164153164304%_) + _%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)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))) + (_%g165216165305%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164095164356%_)) - (let ((_%e164163164194%_ + (gx#stx-pair? _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) - (gx#stx-e _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + (gx#stx-e _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164165164199%_)) - (let ((_%e164166164202%_ + (gx#stx-pair? _%tl165297165331%_)) + (let ((_%e165298165334%_ (let () (declare (not safe)) (gx#stx-e - _%tl164165164199%_)))) - (let ((_%tl164168164207%_ + _%tl165297165331%_)))) + (let ((_%tl165300165339%_ (let () (declare (not safe)) - (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) + _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164110164396%_)) + (gx#stx-null? _%tl165242165528%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164095164356%_)) - (let ((_%e164148164291%_ + (gx#stx-pair? _%tl165227165488%_)) + (let ((_%e165280165423%_ (let () (declare (not safe)) - (gx#stx-e _%tl164095164356%_)))) - (let ((_%tl164150164296%_ + (gx#stx-e _%tl165227165488%_)))) + (let ((_%tl165282165428%_ (let () (declare (not safe)) - (##cdr _%e164148164291%_))) - (_%hd164149164294%_ + (##cdr _%e165280165423%_))) + (_%hd165281165426%_ (let () (declare (not safe)) - (##car _%e164148164291%_)))) + (##car _%e165280165423%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164150164296%_)) - (let ((_%e164151164299%_ + (gx#stx-pair? _%tl165282165428%_)) + (let ((_%e165283165431%_ (let () (declare (not safe)) - (gx#stx-e _%tl164150164296%_)))) - (let ((_%tl164153164304%_ + (gx#stx-e _%tl165282165428%_)))) + (let ((_%tl165285165436%_ (let () (declare (not safe)) - (##cdr _%e164151164299%_))) - (_%hd164152164302%_ + (##cdr _%e165283165431%_))) + (_%hd165284165434%_ (let () (declare (not safe)) - (##car _%e164151164299%_)))) + (##car _%e165283165431%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164153164304%_)) - (_%__match167401167402%_ - _%e164090164343%_ - _%hd164091164346%_ - _%tl164092164348%_ - _%e164093164351%_ - _%hd164094164354%_ - _%tl164095164356%_ - _%e164096164359%_ - _%hd164097164362%_ - _%tl164098164364%_ - _%e164099164367%_ - _%hd164100164370%_ - _%tl164101164372%_ - _%e164102164375%_ - _%hd164103164378%_ - _%tl164104164380%_ - _%e164105164383%_ - _%hd164106164386%_ - _%tl164107164388%_ - _%e164108164391%_ - _%hd164109164394%_ - _%tl164110164396%_ - _%e164148164291%_ - _%hd164149164294%_ - _%tl164150164296%_ - _%e164151164299%_ - _%hd164152164302%_ - _%tl164153164304%_) + _%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)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))) + (_%g165216165305%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164095164356%_)) - (let ((_%e164163164194%_ + (gx#stx-pair? _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) - (gx#stx-e _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + (gx#stx-e _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164165164199%_)) - (let ((_%e164166164202%_ + (gx#stx-pair? _%tl165297165331%_)) + (let ((_%e165298165334%_ (let () (declare (not safe)) - (gx#stx-e _%tl164165164199%_)))) - (let ((_%tl164168164207%_ + (gx#stx-e _%tl165297165331%_)))) + (let ((_%tl165300165339%_ (let () (declare (not safe)) - (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) + _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))))) + (_%g165216165305%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164110164396%_)) + (gx#stx-null? _%tl165242165528%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164095164356%_)) - (let ((_%e164148164291%_ + (gx#stx-pair? _%tl165227165488%_)) + (let ((_%e165280165423%_ (let () (declare (not safe)) - (gx#stx-e _%tl164095164356%_)))) - (let ((_%tl164150164296%_ + (gx#stx-e _%tl165227165488%_)))) + (let ((_%tl165282165428%_ (let () (declare (not safe)) - (##cdr _%e164148164291%_))) - (_%hd164149164294%_ + (##cdr _%e165280165423%_))) + (_%hd165281165426%_ (let () (declare (not safe)) - (##car _%e164148164291%_)))) + (##car _%e165280165423%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164150164296%_)) - (let ((_%e164151164299%_ + (gx#stx-pair? _%tl165282165428%_)) + (let ((_%e165283165431%_ (let () (declare (not safe)) - (gx#stx-e _%tl164150164296%_)))) - (let ((_%tl164153164304%_ + (gx#stx-e _%tl165282165428%_)))) + (let ((_%tl165285165436%_ (let () (declare (not safe)) - (##cdr _%e164151164299%_))) - (_%hd164152164302%_ + (##cdr _%e165283165431%_))) + (_%hd165284165434%_ (let () (declare (not safe)) - (##car _%e164151164299%_)))) + (##car _%e165283165431%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164153164304%_)) - (_%__match167401167402%_ - _%e164090164343%_ - _%hd164091164346%_ - _%tl164092164348%_ - _%e164093164351%_ - _%hd164094164354%_ - _%tl164095164356%_ - _%e164096164359%_ - _%hd164097164362%_ - _%tl164098164364%_ - _%e164099164367%_ - _%hd164100164370%_ - _%tl164101164372%_ - _%e164102164375%_ - _%hd164103164378%_ - _%tl164104164380%_ - _%e164105164383%_ - _%hd164106164386%_ - _%tl164107164388%_ - _%e164108164391%_ - _%hd164109164394%_ - _%tl164110164396%_ - _%e164148164291%_ - _%hd164149164294%_ - _%tl164150164296%_ - _%e164151164299%_ - _%hd164152164302%_ - _%tl164153164304%_) + (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)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) - (let () (declare (not safe)) (_%g164084164173%_))) + (_%g165216165305%_))))) + (let () (declare (not safe)) (_%g165216165305%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164095164356%_)) - (let ((_%e164163164194%_ + (gx#stx-pair? _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) - (gx#stx-e _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + (gx#stx-e _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164165164199%_)) - (let ((_%e164166164202%_ + (gx#stx-pair? _%tl165297165331%_)) + (let ((_%e165298165334%_ (let () (declare (not safe)) - (gx#stx-e _%tl164165164199%_)))) - (let ((_%tl164168164207%_ + (gx#stx-e _%tl165297165331%_)))) + (let ((_%tl165300165339%_ (let () (declare (not safe)) - (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) + (gx#stx-null? _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) - (let () (declare (not safe)) (_%g164084164173%_))))))) + (_%g165216165305%_))))) + (let () (declare (not safe)) (_%g165216165305%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164095164356%_)) - (let ((_%e164163164194%_ + _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) (gx#stx-e - _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164165164199%_)) - (let ((_%e164166164202%_ + _%tl165297165331%_)) + (let ((_%e165298165334%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl164165164199%_)))) - (let ((_%tl164168164207%_ + (gx#stx-e _%tl165297165331%_)))) + (let ((_%tl165300165339%_ (let () (declare (not safe)) - (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) - (let () (declare (not safe)) (_%g164084164173%_))))) - (let () (declare (not safe)) (_%g164084164173%_))))) + (gx#stx-null? _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) + (let () (declare (not safe)) (_%g165216165305%_))))) + (let () (declare (not safe)) (_%g165216165305%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g164084164173%_)))) + (_%g165216165305%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164095164356%_)) - (let ((_%e164163164194%_ + _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) (gx#stx-e - _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164165164199%_)) - (let ((_%e164166164202%_ + _%tl165297165331%_)) + (let ((_%e165298165334%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164165164199%_)))) - (let ((_%tl164168164207%_ - (let () (declare (not safe)) (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (gx#stx-e _%tl165297165331%_)))) + (let ((_%tl165300165339%_ + (let () (declare (not safe)) (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) - (let () (declare (not safe)) (_%g164084164173%_))))) - (let () (declare (not safe)) (_%g164084164173%_))))) + (gx#stx-null? _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) + (let () (declare (not safe)) (_%g165216165305%_))))) + (let () (declare (not safe)) (_%g165216165305%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g164084164173%_)))))) + (_%g165216165305%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164095164356%_)) - (let ((_%e164163164194%_ + (gx#stx-pair? _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) - (gx#stx-e _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + (gx#stx-e _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164165164199%_)) - (let ((_%e164166164202%_ + _%tl165297165331%_)) + (let ((_%e165298165334%_ (let () (declare (not safe)) (gx#stx-e - _%tl164165164199%_)))) - (let ((_%tl164168164207%_ + _%tl165297165331%_)))) + (let ((_%tl165300165339%_ (let () (declare (not safe)) - (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) + _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_)))) + (_%g165216165305%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164095164356%_)) - (let ((_%e164163164194%_ + (gx#stx-pair? _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) - (gx#stx-e _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + (gx#stx-e _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164165164199%_)) - (let ((_%e164166164202%_ + (gx#stx-pair? _%tl165297165331%_)) + (let ((_%e165298165334%_ (let () (declare (not safe)) (gx#stx-e - _%tl164165164199%_)))) - (let ((_%tl164168164207%_ + _%tl165297165331%_)))) + (let ((_%tl165300165339%_ (let () (declare (not safe)) - (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) + _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_)))) + (_%g165216165305%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164095164356%_)) - (let ((_%e164163164194%_ + (gx#stx-pair? _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) - (gx#stx-e _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + (gx#stx-e _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164165164199%_)) - (let ((_%e164166164202%_ + (gx#stx-pair? _%tl165297165331%_)) + (let ((_%e165298165334%_ (let () (declare (not safe)) - (gx#stx-e _%tl164165164199%_)))) - (let ((_%tl164168164207%_ + (gx#stx-e _%tl165297165331%_)))) + (let ((_%tl165300165339%_ (let () (declare (not safe)) - (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) + _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_)))))) + (_%g165216165305%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164095164356%_)) - (let ((_%e164163164194%_ + (gx#stx-pair? _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) - (gx#stx-e _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + (gx#stx-e _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164165164199%_)) - (let ((_%e164166164202%_ + (gx#stx-pair? _%tl165297165331%_)) + (let ((_%e165298165334%_ (let () (declare (not safe)) - (gx#stx-e _%tl164165164199%_)))) - (let ((_%tl164168164207%_ + (gx#stx-e _%tl165297165331%_)))) + (let ((_%tl165300165339%_ (let () (declare (not safe)) - (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) + (gx#stx-null? _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) - (let () (declare (not safe)) (_%g164084164173%_)))))) + (_%g165216165305%_))))) + (let () (declare (not safe)) (_%g165216165305%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164095164356%_)) - (let ((_%e164163164194%_ + _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164095164356%_)))) - (let ((_%tl164165164199%_ - (let () (declare (not safe)) (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (gx#stx-e _%tl165227165488%_)))) + (let ((_%tl165297165331%_ + (let () (declare (not safe)) (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164165164199%_)) - (let ((_%e164166164202%_ + (gx#stx-pair? _%tl165297165331%_)) + (let ((_%e165298165334%_ (let () (declare (not safe)) - (gx#stx-e _%tl164165164199%_)))) - (let ((_%tl164168164207%_ + (gx#stx-e _%tl165297165331%_)))) + (let ((_%tl165300165339%_ (let () (declare (not safe)) - (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) + (gx#stx-null? _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) (let () (declare (not safe)) - (_%g164084164173%_))))) - (let () (declare (not safe)) (_%g164084164173%_))))) - (let () (declare (not safe)) (_%g164084164173%_)))) + (_%g165216165305%_))))) + (let () (declare (not safe)) (_%g165216165305%_))))) + (let () (declare (not safe)) (_%g165216165305%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164095164356%_)) - (let ((_%e164163164194%_ + _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) (gx#stx-e - _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164165164199%_)) - (let ((_%e164166164202%_ + _%tl165297165331%_)) + (let ((_%e165298165334%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl164165164199%_)))) - (let ((_%tl164168164207%_ + (gx#stx-e _%tl165297165331%_)))) + (let ((_%tl165300165339%_ (let () (declare (not safe)) - (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) - (let () (declare (not safe)) (_%g164084164173%_))))) - (let () (declare (not safe)) (_%g164084164173%_))))) + (gx#stx-null? _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) + (let () (declare (not safe)) (_%g165216165305%_))))) + (let () (declare (not safe)) (_%g165216165305%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g164084164173%_)))) + (_%g165216165305%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164095164356%_)) - (let ((_%e164163164194%_ + _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) (gx#stx-e - _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164165164199%_)) - (let ((_%e164166164202%_ + _%tl165297165331%_)) + (let ((_%e165298165334%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164165164199%_)))) - (let ((_%tl164168164207%_ - (let () (declare (not safe)) (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (gx#stx-e _%tl165297165331%_)))) + (let ((_%tl165300165339%_ + (let () (declare (not safe)) (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) - (let () (declare (not safe)) (_%g164084164173%_))))) - (let () (declare (not safe)) (_%g164084164173%_))))) + (gx#stx-null? _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) + (let () (declare (not safe)) (_%g165216165305%_))))) + (let () (declare (not safe)) (_%g165216165305%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g164084164173%_)))))) + (_%g165216165305%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164095164356%_)) - (let ((_%e164163164194%_ + (gx#stx-pair? _%tl165227165488%_)) + (let ((_%e165295165326%_ (let () (declare (not safe)) - (gx#stx-e _%tl164095164356%_)))) - (let ((_%tl164165164199%_ + (gx#stx-e _%tl165227165488%_)))) + (let ((_%tl165297165331%_ (let () (declare (not safe)) - (##cdr _%e164163164194%_))) - (_%hd164164164197%_ + (##cdr _%e165295165326%_))) + (_%hd165296165329%_ (let () (declare (not safe)) - (##car _%e164163164194%_)))) + (##car _%e165295165326%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164165164199%_)) - (let ((_%e164166164202%_ + _%tl165297165331%_)) + (let ((_%e165298165334%_ (let () (declare (not safe)) (gx#stx-e - _%tl164165164199%_)))) - (let ((_%tl164168164207%_ + _%tl165297165331%_)))) + (let ((_%tl165300165339%_ (let () (declare (not safe)) - (##cdr _%e164166164202%_))) - (_%hd164167164205%_ + (##cdr _%e165298165334%_))) + (_%hd165299165337%_ (let () (declare (not safe)) - (##car _%e164166164202%_)))) + (##car _%e165298165334%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164168164207%_)) - (_%__kont167246167247%_ - _%hd164167164205%_ - _%hd164164164197%_ - _%hd164094164354%_) + _%tl165300165339%_)) + (_%__kont168378168379%_ + _%hd165299165337%_ + _%hd165296165329%_ + _%hd165226165486%_) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_))))) + (_%g165216165305%_))))) (let () (declare (not safe)) - (_%g164084164173%_)))))) - (let () (declare (not safe)) (_%g164084164173%_))))) - (let () (declare (not safe)) (_%g164084164173%_)))))))) + (_%g165216165305%_)))))) + (let () (declare (not safe)) (_%g165216165305%_))))) + (let () (declare (not safe)) (_%g165216165305%_)))))))) (define gxc#refine-type-define-values% - (lambda (_%self163937%_ _%stx163938%_) - (let* ((_%__stx167430167431%_ _%stx163938%_) - (_%g163941163971%_ + (lambda (_%self165069%_ _%stx165070%_) + (let* ((_%__stx168562168563%_ _%stx165070%_) + (_%g165073165103%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167430167431%_))))) - (let ((_%__kont167432167433%_ - (lambda (_%L164051%_ _%L164052%_) - (let ((_%sym164068%_ + _%__stx168562168563%_))))) + (let ((_%__kont168564168565%_ + (lambda (_%L165183%_ _%L165184%_) + (let ((_%sym165200%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L164052%_)))) - (if (let ((__tmp169821 + (gxc#identifier-symbol _%L165184%_)))) + (if (let ((__tmp170953 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp169821 _%sym164068%_)) + (hash-get __tmp170953 _%sym165200%_)) '#!void - (let ((_%type164069164071%_ - (gxc#apply-basic-expression-type _%L164051%_))) - (if _%type164069164071%_ - (let ((_%type164074%_ _%type164069164071%_)) + (let ((_%type165201165203%_ + (gxc#apply-basic-expression-type _%L165183%_))) + (if _%type165201165203%_ + (let ((_%type165206%_ _%type165201165203%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type164074%_ + _%type165206%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym164068%_ - _%type164074%_)))) + _%sym165200%_ + _%type165206%_)))) '#f))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self163937%_ _%L164051%_))))) - (_%__kont167434167435%_ - (lambda (_%L164000%_) + (gxc#compile-e__1 _%self165069%_ _%L165183%_))))) + (_%__kont168566168567%_ + (lambda (_%L165132%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self163937%_ _%L164000%_))))) - (let ((_%__match167463167464%_ - (lambda (_%e163945164019%_ - _%hd163946164022%_ - _%tl163947164024%_ - _%e163948164027%_ - _%hd163949164030%_ - _%tl163950164032%_ - _%e163951164035%_ - _%hd163952164038%_ - _%tl163953164040%_ - _%e163954164043%_ - _%hd163955164046%_ - _%tl163956164048%_) - (let ((_%L164051%_ _%hd163955164046%_) - (_%L164052%_ _%hd163952164038%_)) + (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%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L164052%_)) - (_%__kont167432167433%_ _%L164051%_ _%L164052%_) - (_%__kont167434167435%_ _%hd163955164046%_)))))) + (gx#identifier? _%L165184%_)) + (_%__kont168564168565%_ _%L165183%_ _%L165184%_) + (_%__kont168566168567%_ _%hd165087165178%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167430167431%_)) - (let ((_%e163945164019%_ + (gx#stx-pair? _%__stx168562168563%_)) + (let ((_%e165077165151%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167430167431%_)))) - (let ((_%tl163947164024%_ + (gx#stx-e _%__stx168562168563%_)))) + (let ((_%tl165079165156%_ (let () (declare (not safe)) - (##cdr _%e163945164019%_))) - (_%hd163946164022%_ + (##cdr _%e165077165151%_))) + (_%hd165078165154%_ (let () (declare (not safe)) - (##car _%e163945164019%_)))) + (##car _%e165077165151%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163947164024%_)) - (let ((_%e163948164027%_ + (gx#stx-pair? _%tl165079165156%_)) + (let ((_%e165080165159%_ (let () (declare (not safe)) - (gx#stx-e _%tl163947164024%_)))) - (let ((_%tl163950164032%_ + (gx#stx-e _%tl165079165156%_)))) + (let ((_%tl165082165164%_ (let () (declare (not safe)) - (##cdr _%e163948164027%_))) - (_%hd163949164030%_ + (##cdr _%e165080165159%_))) + (_%hd165081165162%_ (let () (declare (not safe)) - (##car _%e163948164027%_)))) + (##car _%e165080165159%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163949164030%_)) - (let ((_%e163951164035%_ + (gx#stx-pair? _%hd165081165162%_)) + (let ((_%e165083165167%_ (let () (declare (not safe)) - (gx#stx-e _%hd163949164030%_)))) - (let ((_%tl163953164040%_ + (gx#stx-e _%hd165081165162%_)))) + (let ((_%tl165085165172%_ (let () (declare (not safe)) - (##cdr _%e163951164035%_))) - (_%hd163952164038%_ + (##cdr _%e165083165167%_))) + (_%hd165084165170%_ (let () (declare (not safe)) - (##car _%e163951164035%_)))) + (##car _%e165083165167%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163953164040%_)) + (gx#stx-null? _%tl165085165172%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163950164032%_)) - (let ((_%e163954164043%_ + _%tl165082165164%_)) + (let ((_%e165086165175%_ (let () (declare (not safe)) (gx#stx-e - _%tl163950164032%_)))) - (let ((_%tl163956164048%_ + _%tl165082165164%_)))) + (let ((_%tl165088165180%_ (let () (declare (not safe)) - (##cdr _%e163954164043%_))) - (_%hd163955164046%_ + (##cdr _%e165086165175%_))) + (_%hd165087165178%_ (let () (declare (not safe)) - (##car _%e163954164043%_)))) + (##car _%e165086165175%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163956164048%_)) - (_%__match167463167464%_ - _%e163945164019%_ - _%hd163946164022%_ - _%tl163947164024%_ - _%e163948164027%_ - _%hd163949164030%_ - _%tl163950164032%_ - _%e163951164035%_ - _%hd163952164038%_ - _%tl163953164040%_ - _%e163954164043%_ - _%hd163955164046%_ - _%tl163956164048%_) + _%tl165088165180%_)) + (_%__match168595168596%_ + _%e165077165151%_ + _%hd165078165154%_ + _%tl165079165156%_ + _%e165080165159%_ + _%hd165081165162%_ + _%tl165082165164%_ + _%e165083165167%_ + _%hd165084165170%_ + _%tl165085165172%_ + _%e165086165175%_ + _%hd165087165178%_ + _%tl165088165180%_) (let () (declare (not safe)) - (_%g163941163971%_))))) + (_%g165073165103%_))))) (let () (declare (not safe)) - (_%g163941163971%_))) + (_%g165073165103%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163950164032%_)) - (let ((_%e163964163992%_ + _%tl165082165164%_)) + (let ((_%e165096165124%_ (let () (declare (not safe)) (gx#stx-e - _%tl163950164032%_)))) - (let ((_%tl163966163997%_ + _%tl165082165164%_)))) + (let ((_%tl165098165129%_ (let () (declare (not safe)) - (##cdr _%e163964163992%_))) - (_%hd163965163995%_ + (##cdr _%e165096165124%_))) + (_%hd165097165127%_ (let () (declare (not safe)) - (##car _%e163964163992%_)))) + (##car _%e165096165124%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163966163997%_)) - (_%__kont167434167435%_ - _%hd163965163995%_) + _%tl165098165129%_)) + (_%__kont168566168567%_ + _%hd165097165127%_) (let () (declare (not safe)) - (_%g163941163971%_))))) + (_%g165073165103%_))))) (let () (declare (not safe)) - (_%g163941163971%_)))))) + (_%g165073165103%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163950164032%_)) - (let ((_%e163964163992%_ + (gx#stx-pair? _%tl165082165164%_)) + (let ((_%e165096165124%_ (let () (declare (not safe)) - (gx#stx-e _%tl163950164032%_)))) - (let ((_%tl163966163997%_ + (gx#stx-e _%tl165082165164%_)))) + (let ((_%tl165098165129%_ (let () (declare (not safe)) - (##cdr _%e163964163992%_))) - (_%hd163965163995%_ + (##cdr _%e165096165124%_))) + (_%hd165097165127%_ (let () (declare (not safe)) - (##car _%e163964163992%_)))) + (##car _%e165096165124%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163966163997%_)) - (_%__kont167434167435%_ - _%hd163965163995%_) + _%tl165098165129%_)) + (_%__kont168566168567%_ + _%hd165097165127%_) (let () (declare (not safe)) - (_%g163941163971%_))))) + (_%g165073165103%_))))) (let () (declare (not safe)) - (_%g163941163971%_)))))) - (let () (declare (not safe)) (_%g163941163971%_))))) - (let () (declare (not safe)) (_%g163941163971%_)))))))) + (_%g165073165103%_)))))) + (let () (declare (not safe)) (_%g165073165103%_))))) + (let () (declare (not safe)) (_%g165073165103%_)))))))) (define gxc#refine-type-let-values% - (lambda (_%self163709%_ _%stx163710%_) - (letrec ((_%collect-e163712%_ - (lambda (_%hd163881%_ _%expr163882%_) - (let* ((_%__stx167486167487%_ _%hd163881%_) - (_%g163885163895%_ + (lambda (_%self164841%_ _%stx164842%_) + (letrec ((_%collect-e164844%_ + (lambda (_%hd165013%_ _%expr165014%_) + (let* ((_%__stx168618168619%_ _%hd165013%_) + (_%g165017165027%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167486167487%_))))) - (let ((_%__kont167488167489%_ - (lambda (_%L163915%_) - (let ((_%sym163926%_ + _%__stx168618168619%_))))) + (let ((_%__kont168620168621%_ + (lambda (_%L165047%_) + (let ((_%sym165058%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L163915%_)))) - (if (let ((__tmp169822 + (gxc#identifier-symbol _%L165047%_)))) + (if (let ((__tmp170954 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp169822 _%sym163926%_)) + (hash-get __tmp170954 _%sym165058%_)) '#!void - (let ((_%type163927163929%_ + (let ((_%type165059165061%_ (gxc#apply-basic-expression-type - _%expr163882%_))) - (if _%type163927163929%_ - (let ((_%type163932%_ - _%type163927163929%_)) + _%expr165014%_))) + (if _%type165059165061%_ + (let ((_%type165064%_ + _%type165059165061%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type163932%_ + _%type165064%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym163926%_ - _%type163932%_ + _%sym165058%_ + _%type165064%_ '#t)))) '#f)))))) - (_%__kont167490167491%_ (lambda () '#!void))) - (let ((_%__match167499167500%_ - (lambda (_%e163888163907%_ - _%hd163889163910%_ - _%tl163890163912%_) - (let ((_%L163915%_ _%hd163889163910%_)) + (_%__kont168622168623%_ (lambda () '#!void))) + (let ((_%__match168631168632%_ + (lambda (_%e165020165039%_ + _%hd165021165042%_ + _%tl165022165044%_) + (let ((_%L165047%_ _%hd165021165042%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L163915%_)) - (_%__kont167488167489%_ _%L163915%_) - (_%__kont167490167491%_)))))) + (gx#identifier? _%L165047%_)) + (_%__kont168620168621%_ _%L165047%_) + (_%__kont168622168623%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167486167487%_)) - (let ((_%e163888163907%_ + (gx#stx-pair? _%__stx168618168619%_)) + (let ((_%e165020165039%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167486167487%_)))) - (let ((_%tl163890163912%_ + (gx#stx-e _%__stx168618168619%_)))) + (let ((_%tl165022165044%_ (let () (declare (not safe)) - (##cdr _%e163888163907%_))) - (_%hd163889163910%_ + (##cdr _%e165020165039%_))) + (_%hd165021165042%_ (let () (declare (not safe)) - (##car _%e163888163907%_)))) + (##car _%e165020165039%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163890163912%_)) - (_%__match167499167500%_ - _%e163888163907%_ - _%hd163889163910%_ - _%tl163890163912%_) - (_%__kont167490167491%_)))) - (_%__kont167490167491%_)))))))) - (let* ((_%g163714163749%_ - (lambda (_%g163715163746%_) + (gx#stx-null? _%tl165022165044%_)) + (_%__match168631168632%_ + _%e165020165039%_ + _%hd165021165042%_ + _%tl165022165044%_) + (_%__kont168622168623%_)))) + (_%__kont168622168623%_)))))))) + (let* ((_%g164846164881%_ + (lambda (_%g164847164878%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163715163746%_)))) - (_%g163713163878%_ - (lambda (_%g163715163752%_) + _%g164847164878%_)))) + (_%g164845165010%_ + (lambda (_%g164847164884%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163715163752%_)) - (let ((_%e163719163754%_ + (gx#stx-pair? _%g164847164884%_)) + (let ((_%e164851164886%_ (let () (declare (not safe)) - (gx#stx-e _%g163715163752%_)))) - (let ((_%hd163720163757%_ + (gx#stx-e _%g164847164884%_)))) + (let ((_%hd164852164889%_ (let () (declare (not safe)) - (##car _%e163719163754%_))) - (_%tl163721163759%_ + (##car _%e164851164886%_))) + (_%tl164853164891%_ (let () (declare (not safe)) - (##cdr _%e163719163754%_)))) + (##cdr _%e164851164886%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163721163759%_)) - (let ((_%e163722163762%_ + (gx#stx-pair? _%tl164853164891%_)) + (let ((_%e164854164894%_ (let () (declare (not safe)) - (gx#stx-e _%tl163721163759%_)))) - (let ((_%hd163723163765%_ + (gx#stx-e _%tl164853164891%_)))) + (let ((_%hd164855164897%_ (let () (declare (not safe)) - (##car _%e163722163762%_))) - (_%tl163724163767%_ + (##car _%e164854164894%_))) + (_%tl164856164899%_ (let () (declare (not safe)) - (##cdr _%e163722163762%_)))) + (##cdr _%e164854164894%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd163723163765%_)) - (let ((_g169823_ + _%hd164855164897%_)) + (let ((_g170955_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd163723163765%_ + _%hd164855164897%_ '0)))) (begin - (let ((_g169824_ + (let ((_g170956_ (let () (declare (not safe)) - (if (##values? _g169823_) + (if (##values? _g170955_) (##vector-length - _g169823_) + _g170955_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169824_ 2))) + (##fx= _g170956_ 2))) (error "Context expects 2 values" - _g169824_))) - (let ((_%target163725163770%_ + _g170956_))) + (let ((_%target164857164902%_ (let () (declare (not safe)) (##vector-ref - _g169823_ + _g170955_ 0))) - (_%tl163727163772%_ + (_%tl164859164904%_ (let () (declare (not safe)) (##vector-ref - _g169823_ + _g170955_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163727163772%_)) - (letrec ((_%loop163728163775%_ - (lambda (_%hd163726163778%_ + _%tl164859164904%_)) + (letrec ((_%loop164860164907%_ + (lambda (_%hd164858164910%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr163732163780%_ - _%hd163733163782%_) + _%expr164864164912%_ + _%hd164865164914%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163726163778%_)) - (let ((_%e163729163785%_ + (gx#stx-pair? _%hd164858164910%_)) + (let ((_%e164861164917%_ (let () (declare (not safe)) - (gx#stx-e _%hd163726163778%_)))) - (let ((_%lp-hd163730163788%_ + (gx#stx-e _%hd164858164910%_)))) + (let ((_%lp-hd164862164920%_ (let () (declare (not safe)) - (##car _%e163729163785%_))) - (_%lp-tl163731163790%_ + (##car _%e164861164917%_))) + (_%lp-tl164863164922%_ (let () (declare (not safe)) - (##cdr _%e163729163785%_)))) + (##cdr _%e164861164917%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd163730163788%_)) - (let ((_%e163739163793%_ + (gx#stx-pair? _%lp-hd164862164920%_)) + (let ((_%e164871164925%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd163730163788%_)))) - (let ((_%hd163740163796%_ + (gx#stx-e _%lp-hd164862164920%_)))) + (let ((_%hd164872164928%_ (let () (declare (not safe)) - (##car _%e163739163793%_))) - (_%tl163741163798%_ + (##car _%e164871164925%_))) + (_%tl164873164930%_ (let () (declare (not safe)) - (##cdr _%e163739163793%_)))) + (##cdr _%e164871164925%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163741163798%_)) - (let ((_%e163742163801%_ + (gx#stx-pair? _%tl164873164930%_)) + (let ((_%e164874164933%_ (let () (declare (not safe)) (gx#stx-e - _%tl163741163798%_)))) - (let ((_%hd163743163804%_ + _%tl164873164930%_)))) + (let ((_%hd164875164936%_ (let () (declare (not safe)) - (##car _%e163742163801%_))) - (_%tl163744163806%_ + (##car _%e164874164933%_))) + (_%tl164876164938%_ (let () (declare (not safe)) - (##cdr _%e163742163801%_)))) + (##cdr _%e164874164933%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163744163806%_)) - (_%loop163728163775%_ - _%lp-tl163731163790%_ - (cons _%hd163743163804%_ - _%expr163732163780%_) - (cons _%hd163740163796%_ - _%hd163733163782%_)) - (_%g163714163749%_ - _%g163715163752%_)))) - (_%g163714163749%_ - _%g163715163752%_)))) - (_%g163714163749%_ _%g163715163752%_)))) - (let ((_%expr163734163809%_ - (reverse _%expr163732163780%_)) - (_%hd163735163811%_ - (reverse _%hd163733163782%_))) + _%tl164876164938%_)) + (_%loop164860164907%_ + _%lp-tl164863164922%_ + (cons _%hd164875164936%_ + _%expr164864164912%_) + (cons _%hd164872164928%_ + _%hd164865164914%_)) + (_%g164846164881%_ + _%g164847164884%_)))) + (_%g164846164881%_ + _%g164847164884%_)))) + (_%g164846164881%_ _%g164847164884%_)))) + (let ((_%expr164866164941%_ + (reverse _%expr164864164912%_)) + (_%hd164867164943%_ + (reverse _%hd164865164914%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163724163767%_)) - (let ((_%e163736163814%_ + (gx#stx-pair? _%tl164856164899%_)) + (let ((_%e164868164946%_ (let () (declare (not safe)) - (gx#stx-e _%tl163724163767%_)))) - (let ((_%hd163737163817%_ + (gx#stx-e _%tl164856164899%_)))) + (let ((_%hd164869164949%_ (let () (declare (not safe)) - (##car _%e163736163814%_))) - (_%tl163738163819%_ + (##car _%e164868164946%_))) + (_%tl164870164951%_ (let () (declare (not safe)) - (##cdr _%e163736163814%_)))) + (##cdr _%e164868164946%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163738163819%_)) - ((lambda (_%L163822%_ - _%L163823%_ - _%L163824%_) + (gx#stx-null? _%tl164870164951%_)) + ((lambda (_%L164954%_ + _%L164955%_ + _%L164956%_) (for-each - _%collect-e163712%_ - (let ((__tmp169825 - (lambda (_%g163844163847%_ - _%g163845163849%_) - (cons _%g163844163847%_ - _%g163845163849%_)))) + _%collect-e164844%_ + (let ((__tmp170957 + (lambda (_%g164976164979%_ + _%g164977164981%_) + (cons _%g164976164979%_ + _%g164977164981%_)))) (declare (not safe)) (__foldr1 - __tmp169825 + __tmp170957 '() - _%L163824%_)) - (let ((__tmp169826 - (lambda (_%g163851163854%_ - _%g163852163856%_) - (cons _%g163851163854%_ - _%g163852163856%_)))) + _%L164956%_)) + (let ((__tmp170958 + (lambda (_%g164983164986%_ + _%g164984164988%_) + (cons _%g164983164986%_ + _%g164984164988%_)))) (declare (not safe)) (__foldr1 - __tmp169826 + __tmp170958 '() - _%L163823%_))) + _%L164955%_))) (for-each - (lambda (_%g163858163860%_) + (lambda (_%g164990164992%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self163709%_ - _%g163858163860%_))) - (let ((__tmp169827 - (lambda (_%g163862163865%_ - _%g163863163867%_) - (cons _%g163862163865%_ - _%g163863163867%_)))) + _%self164841%_ + _%g164990164992%_))) + (let ((__tmp170959 + (lambda (_%g164994164997%_ + _%g164995164999%_) + (cons _%g164994164997%_ + _%g164995164999%_)))) (declare (not safe)) (__foldr1 - __tmp169827 + __tmp170959 '() - _%L163823%_))) - (let ((__tmp169831 + _%L164955%_))) + (let ((__tmp170963 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self163709%_ - _%L163822%_)))) - (__tmp169828 - (let ((__tmp169829 - (let ((__tmp169830 - (lambda (_%g163870163873%_ + _%self164841%_ + _%L164954%_)))) + (__tmp170960 + (let ((__tmp170961 + (let ((__tmp170962 + (lambda (_%g165002165005%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g163871163875%_) - (cons _%g163870163873%_ _%g163871163875%_)))) + _%g165003165007%_) + (cons _%g165002165005%_ _%g165003165007%_)))) (declare (not safe)) - (__foldr1 __tmp169830 '() _%L163824%_)))) + (__foldr1 __tmp170962 '() _%L164956%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp169829)))) + __tmp170961)))) (declare (not safe)) (__call-with-parameters - __tmp169831 + __tmp170963 gxc#current-compile-local-env - __tmp169828))) - _%hd163737163817%_ - _%expr163734163809%_ - _%hd163735163811%_) - (_%g163714163749%_ - _%g163715163752%_)))) - (_%g163714163749%_ _%g163715163752%_))))))) + __tmp170960))) + _%hd164869164949%_ + _%expr164866164941%_ + _%hd164867164943%_) + (_%g164846164881%_ + _%g164847164884%_)))) + (_%g164846164881%_ _%g164847164884%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop163728163775%_ - _%target163725163770%_ + (_%loop164860164907%_ + _%target164857164902%_ '() '())) - (_%g163714163749%_ - _%g163715163752%_))))) - (_%g163714163749%_ - _%g163715163752%_)))) - (_%g163714163749%_ _%g163715163752%_)))) - (_%g163714163749%_ _%g163715163752%_))))) - (_%g163713163878%_ _%stx163710%_))))) + (_%g164846164881%_ + _%g164847164884%_))))) + (_%g164846164881%_ + _%g164847164884%_)))) + (_%g164846164881%_ _%g164847164884%_)))) + (_%g164846164881%_ _%g164847164884%_))))) + (_%g164845165010%_ _%stx164842%_))))) (define gxc#refine-type-letrec-values% - (lambda (_%self163481%_ _%stx163482%_) - (letrec ((_%collect-e163484%_ - (lambda (_%hd163653%_ _%expr163654%_) - (let* ((_%__stx167502167503%_ _%hd163653%_) - (_%g163657163667%_ + (lambda (_%self164613%_ _%stx164614%_) + (letrec ((_%collect-e164616%_ + (lambda (_%hd164785%_ _%expr164786%_) + (let* ((_%__stx168634168635%_ _%hd164785%_) + (_%g164789164799%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167502167503%_))))) - (let ((_%__kont167504167505%_ - (lambda (_%L163687%_) - (let ((_%sym163698%_ + _%__stx168634168635%_))))) + (let ((_%__kont168636168637%_ + (lambda (_%L164819%_) + (let ((_%sym164830%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L163687%_)))) - (if (let ((__tmp169832 + (gxc#identifier-symbol _%L164819%_)))) + (if (let ((__tmp170964 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp169832 _%sym163698%_)) + (hash-get __tmp170964 _%sym164830%_)) '#!void - (let ((_%type163699163701%_ + (let ((_%type164831164833%_ (gxc#apply-basic-expression-type - _%expr163654%_))) - (if _%type163699163701%_ - (let ((_%type163704%_ - _%type163699163701%_)) + _%expr164786%_))) + (if _%type164831164833%_ + (let ((_%type164836%_ + _%type164831164833%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type163704%_ + _%type164836%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym163698%_ - _%type163704%_ + _%sym164830%_ + _%type164836%_ '#t)))) '#f)))))) - (_%__kont167506167507%_ (lambda () '#!void))) - (let ((_%__match167515167516%_ - (lambda (_%e163660163679%_ - _%hd163661163682%_ - _%tl163662163684%_) - (let ((_%L163687%_ _%hd163661163682%_)) + (_%__kont168638168639%_ (lambda () '#!void))) + (let ((_%__match168647168648%_ + (lambda (_%e164792164811%_ + _%hd164793164814%_ + _%tl164794164816%_) + (let ((_%L164819%_ _%hd164793164814%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L163687%_)) - (_%__kont167504167505%_ _%L163687%_) - (_%__kont167506167507%_)))))) + (gx#identifier? _%L164819%_)) + (_%__kont168636168637%_ _%L164819%_) + (_%__kont168638168639%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167502167503%_)) - (let ((_%e163660163679%_ + (gx#stx-pair? _%__stx168634168635%_)) + (let ((_%e164792164811%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167502167503%_)))) - (let ((_%tl163662163684%_ + (gx#stx-e _%__stx168634168635%_)))) + (let ((_%tl164794164816%_ (let () (declare (not safe)) - (##cdr _%e163660163679%_))) - (_%hd163661163682%_ + (##cdr _%e164792164811%_))) + (_%hd164793164814%_ (let () (declare (not safe)) - (##car _%e163660163679%_)))) + (##car _%e164792164811%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163662163684%_)) - (_%__match167515167516%_ - _%e163660163679%_ - _%hd163661163682%_ - _%tl163662163684%_) - (_%__kont167506167507%_)))) - (_%__kont167506167507%_)))))))) - (let* ((_%g163486163521%_ - (lambda (_%g163487163518%_) + (gx#stx-null? _%tl164794164816%_)) + (_%__match168647168648%_ + _%e164792164811%_ + _%hd164793164814%_ + _%tl164794164816%_) + (_%__kont168638168639%_)))) + (_%__kont168638168639%_)))))))) + (let* ((_%g164618164653%_ + (lambda (_%g164619164650%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163487163518%_)))) - (_%g163485163650%_ - (lambda (_%g163487163524%_) + _%g164619164650%_)))) + (_%g164617164782%_ + (lambda (_%g164619164656%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163487163524%_)) - (let ((_%e163491163526%_ + (gx#stx-pair? _%g164619164656%_)) + (let ((_%e164623164658%_ (let () (declare (not safe)) - (gx#stx-e _%g163487163524%_)))) - (let ((_%hd163492163529%_ + (gx#stx-e _%g164619164656%_)))) + (let ((_%hd164624164661%_ (let () (declare (not safe)) - (##car _%e163491163526%_))) - (_%tl163493163531%_ + (##car _%e164623164658%_))) + (_%tl164625164663%_ (let () (declare (not safe)) - (##cdr _%e163491163526%_)))) + (##cdr _%e164623164658%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163493163531%_)) - (let ((_%e163494163534%_ + (gx#stx-pair? _%tl164625164663%_)) + (let ((_%e164626164666%_ (let () (declare (not safe)) - (gx#stx-e _%tl163493163531%_)))) - (let ((_%hd163495163537%_ + (gx#stx-e _%tl164625164663%_)))) + (let ((_%hd164627164669%_ (let () (declare (not safe)) - (##car _%e163494163534%_))) - (_%tl163496163539%_ + (##car _%e164626164666%_))) + (_%tl164628164671%_ (let () (declare (not safe)) - (##cdr _%e163494163534%_)))) + (##cdr _%e164626164666%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd163495163537%_)) - (let ((_g169833_ + _%hd164627164669%_)) + (let ((_g170965_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd163495163537%_ + _%hd164627164669%_ '0)))) (begin - (let ((_g169834_ + (let ((_g170966_ (let () (declare (not safe)) - (if (##values? _g169833_) + (if (##values? _g170965_) (##vector-length - _g169833_) + _g170965_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169834_ 2))) + (##fx= _g170966_ 2))) (error "Context expects 2 values" - _g169834_))) - (let ((_%target163497163542%_ + _g170966_))) + (let ((_%target164629164674%_ (let () (declare (not safe)) (##vector-ref - _g169833_ + _g170965_ 0))) - (_%tl163499163544%_ + (_%tl164631164676%_ (let () (declare (not safe)) (##vector-ref - _g169833_ + _g170965_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163499163544%_)) - (letrec ((_%loop163500163547%_ - (lambda (_%hd163498163550%_ + _%tl164631164676%_)) + (letrec ((_%loop164632164679%_ + (lambda (_%hd164630164682%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr163504163552%_ - _%hd163505163554%_) + _%expr164636164684%_ + _%hd164637164686%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163498163550%_)) - (let ((_%e163501163557%_ + (gx#stx-pair? _%hd164630164682%_)) + (let ((_%e164633164689%_ (let () (declare (not safe)) - (gx#stx-e _%hd163498163550%_)))) - (let ((_%lp-hd163502163560%_ + (gx#stx-e _%hd164630164682%_)))) + (let ((_%lp-hd164634164692%_ (let () (declare (not safe)) - (##car _%e163501163557%_))) - (_%lp-tl163503163562%_ + (##car _%e164633164689%_))) + (_%lp-tl164635164694%_ (let () (declare (not safe)) - (##cdr _%e163501163557%_)))) + (##cdr _%e164633164689%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd163502163560%_)) - (let ((_%e163511163565%_ + (gx#stx-pair? _%lp-hd164634164692%_)) + (let ((_%e164643164697%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd163502163560%_)))) - (let ((_%hd163512163568%_ + (gx#stx-e _%lp-hd164634164692%_)))) + (let ((_%hd164644164700%_ (let () (declare (not safe)) - (##car _%e163511163565%_))) - (_%tl163513163570%_ + (##car _%e164643164697%_))) + (_%tl164645164702%_ (let () (declare (not safe)) - (##cdr _%e163511163565%_)))) + (##cdr _%e164643164697%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163513163570%_)) - (let ((_%e163514163573%_ + (gx#stx-pair? _%tl164645164702%_)) + (let ((_%e164646164705%_ (let () (declare (not safe)) (gx#stx-e - _%tl163513163570%_)))) - (let ((_%hd163515163576%_ + _%tl164645164702%_)))) + (let ((_%hd164647164708%_ (let () (declare (not safe)) - (##car _%e163514163573%_))) - (_%tl163516163578%_ + (##car _%e164646164705%_))) + (_%tl164648164710%_ (let () (declare (not safe)) - (##cdr _%e163514163573%_)))) + (##cdr _%e164646164705%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163516163578%_)) - (_%loop163500163547%_ - _%lp-tl163503163562%_ - (cons _%hd163515163576%_ - _%expr163504163552%_) - (cons _%hd163512163568%_ - _%hd163505163554%_)) - (_%g163486163521%_ - _%g163487163524%_)))) - (_%g163486163521%_ - _%g163487163524%_)))) - (_%g163486163521%_ _%g163487163524%_)))) - (let ((_%expr163506163581%_ - (reverse _%expr163504163552%_)) - (_%hd163507163583%_ - (reverse _%hd163505163554%_))) + _%tl164648164710%_)) + (_%loop164632164679%_ + _%lp-tl164635164694%_ + (cons _%hd164647164708%_ + _%expr164636164684%_) + (cons _%hd164644164700%_ + _%hd164637164686%_)) + (_%g164618164653%_ + _%g164619164656%_)))) + (_%g164618164653%_ + _%g164619164656%_)))) + (_%g164618164653%_ _%g164619164656%_)))) + (let ((_%expr164638164713%_ + (reverse _%expr164636164684%_)) + (_%hd164639164715%_ + (reverse _%hd164637164686%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163496163539%_)) - (let ((_%e163508163586%_ + (gx#stx-pair? _%tl164628164671%_)) + (let ((_%e164640164718%_ (let () (declare (not safe)) - (gx#stx-e _%tl163496163539%_)))) - (let ((_%hd163509163589%_ + (gx#stx-e _%tl164628164671%_)))) + (let ((_%hd164641164721%_ (let () (declare (not safe)) - (##car _%e163508163586%_))) - (_%tl163510163591%_ + (##car _%e164640164718%_))) + (_%tl164642164723%_ (let () (declare (not safe)) - (##cdr _%e163508163586%_)))) + (##cdr _%e164640164718%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163510163591%_)) - ((lambda (_%L163594%_ - _%L163595%_ - _%L163596%_) - (let ((__tmp169838 + (gx#stx-null? _%tl164642164723%_)) + ((lambda (_%L164726%_ + _%L164727%_ + _%L164728%_) + (let ((__tmp170970 (lambda () (for-each - _%collect-e163484%_ - (let ((__tmp169839 - (lambda (_%g163617163620%_ + _%collect-e164616%_ + (let ((__tmp170971 + (lambda (_%g164749164752%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g163618163622%_) - (cons _%g163617163620%_ _%g163618163622%_)))) + _%g164750164754%_) + (cons _%g164749164752%_ _%g164750164754%_)))) (declare (not safe)) - (__foldr1 __tmp169839 '() _%L163596%_)) + (__foldr1 __tmp170971 '() _%L164728%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp169840 - (lambda (_%g163624163627%_ + (let ((__tmp170972 + (lambda (_%g164756164759%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g163625163629%_) - (cons _%g163624163627%_ _%g163625163629%_)))) + _%g164757164761%_) + (cons _%g164756164759%_ _%g164757164761%_)))) (declare (not safe)) - (__foldr1 __tmp169840 '() _%L163595%_))) + (__foldr1 __tmp170972 '() _%L164727%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g163631163633%_) + (lambda (_%g164763164765%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self163481%_ - _%g163631163633%_))) - (let ((__tmp169841 - (lambda (_%g163635163638%_ + _%self164613%_ + _%g164763164765%_))) + (let ((__tmp170973 + (lambda (_%g164767164770%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g163636163640%_) - (cons _%g163635163638%_ _%g163636163640%_)))) + _%g164768164772%_) + (cons _%g164767164770%_ _%g164768164772%_)))) (declare (not safe)) - (__foldr1 __tmp169841 '() _%L163595%_))) + (__foldr1 __tmp170973 '() _%L164727%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self163481%_ - _%L163594%_)))) - (__tmp169835 - (let ((__tmp169836 - (let ((__tmp169837 - (lambda (_%g163642163645%_ + _%self164613%_ + _%L164726%_)))) + (__tmp170967 + (let ((__tmp170968 + (let ((__tmp170969 + (lambda (_%g164774164777%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g163643163647%_) - (cons _%g163642163645%_ _%g163643163647%_)))) + _%g164775164779%_) + (cons _%g164774164777%_ _%g164775164779%_)))) (declare (not safe)) - (__foldr1 __tmp169837 '() _%L163596%_)))) + (__foldr1 __tmp170969 '() _%L164728%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp169836)))) + __tmp170968)))) (declare (not safe)) (__call-with-parameters - __tmp169838 + __tmp170970 gxc#current-compile-local-env - __tmp169835))) - _%hd163509163589%_ - _%expr163506163581%_ - _%hd163507163583%_) - (_%g163486163521%_ - _%g163487163524%_)))) - (_%g163486163521%_ _%g163487163524%_))))))) + __tmp170967))) + _%hd164641164721%_ + _%expr164638164713%_ + _%hd164639164715%_) + (_%g164618164653%_ + _%g164619164656%_)))) + (_%g164618164653%_ _%g164619164656%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop163500163547%_ - _%target163497163542%_ + (_%loop164632164679%_ + _%target164629164674%_ '() '())) - (_%g163486163521%_ - _%g163487163524%_))))) - (_%g163486163521%_ - _%g163487163524%_)))) - (_%g163486163521%_ _%g163487163524%_)))) - (_%g163486163521%_ _%g163487163524%_))))) - (_%g163485163650%_ _%stx163482%_))))) + (_%g164618164653%_ + _%g164619164656%_))))) + (_%g164618164653%_ + _%g164619164656%_)))) + (_%g164618164653%_ _%g164619164656%_)))) + (_%g164618164653%_ _%g164619164656%_))))) + (_%g164617164782%_ _%stx164614%_))))) (define gxc#refine-type-lambda% - (lambda (_%self163425%_ _%stx163426%_) - (let* ((_%g163428163442%_ - (lambda (_%g163429163439%_) + (lambda (_%self164557%_ _%stx164558%_) + (let* ((_%g164560164574%_ + (lambda (_%g164561164571%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163429163439%_)))) - (_%g163427163478%_ - (lambda (_%g163429163445%_) + _%g164561164571%_)))) + (_%g164559164610%_ + (lambda (_%g164561164577%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163429163445%_)) - (let ((_%e163432163447%_ + (gx#stx-pair? _%g164561164577%_)) + (let ((_%e164564164579%_ (let () (declare (not safe)) - (gx#stx-e _%g163429163445%_)))) - (let ((_%hd163433163450%_ + (gx#stx-e _%g164561164577%_)))) + (let ((_%hd164565164582%_ (let () (declare (not safe)) - (##car _%e163432163447%_))) - (_%tl163434163452%_ + (##car _%e164564164579%_))) + (_%tl164566164584%_ (let () (declare (not safe)) - (##cdr _%e163432163447%_)))) + (##cdr _%e164564164579%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163434163452%_)) - (let ((_%e163435163455%_ + (gx#stx-pair? _%tl164566164584%_)) + (let ((_%e164567164587%_ (let () (declare (not safe)) - (gx#stx-e _%tl163434163452%_)))) - (let ((_%hd163436163458%_ + (gx#stx-e _%tl164566164584%_)))) + (let ((_%hd164568164590%_ (let () (declare (not safe)) - (##car _%e163435163455%_))) - (_%tl163437163460%_ + (##car _%e164567164587%_))) + (_%tl164569164592%_ (let () (declare (not safe)) - (##cdr _%e163435163455%_)))) - ((lambda (_%L163463%_ _%L163464%_) - (let ((__tmp169843 + (##cdr _%e164567164587%_)))) + ((lambda (_%L164595%_ _%L164596%_) + (let ((__tmp170975 (lambda () (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self163425%_ - _%stx163426%_)))) - (__tmp169842 + _%self164557%_ + _%stx164558%_)))) + (__tmp170974 (let () (declare (not safe)) (gxc#xform-let-locals - _%L163464%_)))) + _%L164596%_)))) (declare (not safe)) (__call-with-parameters - __tmp169843 + __tmp170975 gxc#current-compile-local-env - __tmp169842))) - _%tl163437163460%_ - _%hd163436163458%_))) - (_%g163428163442%_ _%g163429163445%_)))) - (_%g163428163442%_ _%g163429163445%_))))) - (_%g163427163478%_ _%stx163426%_)))) + __tmp170974))) + _%tl164569164592%_ + _%hd164568164590%_))) + (_%g164560164574%_ _%g164561164577%_)))) + (_%g164560164574%_ _%g164561164577%_))))) + (_%g164559164610%_ _%stx164558%_)))) (define gxc#refine-type-case-lambda% - (lambda (_%self163252%_ _%stx163253%_) - (let* ((_%g163255163283%_ - (lambda (_%g163256163280%_) + (lambda (_%self164384%_ _%stx164385%_) + (let* ((_%g164387164415%_ + (lambda (_%g164388164412%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163256163280%_)))) - (_%g163254163422%_ - (lambda (_%g163256163286%_) + _%g164388164412%_)))) + (_%g164386164554%_ + (lambda (_%g164388164418%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163256163286%_)) - (let ((_%e163259163288%_ + (gx#stx-pair? _%g164388164418%_)) + (let ((_%e164391164420%_ (let () (declare (not safe)) - (gx#stx-e _%g163256163286%_)))) - (let ((_%hd163260163291%_ + (gx#stx-e _%g164388164418%_)))) + (let ((_%hd164392164423%_ (let () (declare (not safe)) - (##car _%e163259163288%_))) - (_%tl163261163293%_ + (##car _%e164391164420%_))) + (_%tl164393164425%_ (let () (declare (not safe)) - (##cdr _%e163259163288%_)))) + (##cdr _%e164391164420%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl163261163293%_)) - (let ((_g169844_ + (gx#stx-pair/null? _%tl164393164425%_)) + (let ((_g170976_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl163261163293%_ + _%tl164393164425%_ '0)))) (begin - (let ((_g169845_ + (let ((_g170977_ (let () (declare (not safe)) - (if (##values? _g169844_) - (##vector-length _g169844_) + (if (##values? _g170976_) + (##vector-length _g170976_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169845_ 2))) + (##fx= _g170977_ 2))) (error "Context expects 2 values" - _g169845_))) - (let ((_%target163262163296%_ + _g170977_))) + (let ((_%target164394164428%_ (let () (declare (not safe)) - (##vector-ref _g169844_ 0))) - (_%tl163264163298%_ + (##vector-ref _g170976_ 0))) + (_%tl164396164430%_ (let () (declare (not safe)) - (##vector-ref _g169844_ 1)))) + (##vector-ref _g170976_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163264163298%_)) - (letrec ((_%loop163265163301%_ - (lambda (_%hd163263163304%_ - _%body163269163306%_ - _%hd163270163308%_) + (gx#stx-null? _%tl164396164430%_)) + (letrec ((_%loop164397164433%_ + (lambda (_%hd164395164436%_ + _%body164401164438%_ + _%hd164402164440%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd163263163304%_)) - (let ((_%e163266163311%_ + _%hd164395164436%_)) + (let ((_%e164398164443%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd163263163304%_)))) - (let ((_%lp-hd163267163314%_ + (gx#stx-e _%hd164395164436%_)))) + (let ((_%lp-hd164399164446%_ (let () (declare (not safe)) - (##car _%e163266163311%_))) - (_%lp-tl163268163316%_ + (##car _%e164398164443%_))) + (_%lp-tl164400164448%_ (let () (declare (not safe)) - (##cdr _%e163266163311%_)))) + (##cdr _%e164398164443%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd163267163314%_)) - (let ((_%e163273163319%_ + (gx#stx-pair? _%lp-hd164399164446%_)) + (let ((_%e164405164451%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd163267163314%_)))) - (let ((_%hd163274163322%_ + (gx#stx-e _%lp-hd164399164446%_)))) + (let ((_%hd164406164454%_ (let () (declare (not safe)) - (##car _%e163273163319%_))) - (_%tl163275163324%_ + (##car _%e164405164451%_))) + (_%tl164407164456%_ (let () (declare (not safe)) - (##cdr _%e163273163319%_)))) + (##cdr _%e164405164451%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163275163324%_)) - (let ((_%e163276163327%_ + (gx#stx-pair? _%tl164407164456%_)) + (let ((_%e164408164459%_ (let () (declare (not safe)) - (gx#stx-e _%tl163275163324%_)))) - (let ((_%hd163277163330%_ + (gx#stx-e _%tl164407164456%_)))) + (let ((_%hd164409164462%_ (let () (declare (not safe)) - (##car _%e163276163327%_))) - (_%tl163278163332%_ + (##car _%e164408164459%_))) + (_%tl164410164464%_ (let () (declare (not safe)) - (##cdr _%e163276163327%_)))) + (##cdr _%e164408164459%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163278163332%_)) - (_%loop163265163301%_ - _%lp-tl163268163316%_ - (cons _%hd163277163330%_ - _%body163269163306%_) - (cons _%hd163274163322%_ - _%hd163270163308%_)) - (_%g163255163283%_ - _%g163256163286%_)))) - (_%g163255163283%_ _%g163256163286%_)))) - (_%g163255163283%_ _%g163256163286%_)))) - (let ((_%body163271163335%_ (reverse _%body163269163306%_)) - (_%hd163272163337%_ (reverse _%hd163270163308%_))) - ((lambda (_%L163340%_ _%L163341%_) + (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%_) (for-each - (lambda (_%clause163356%_) - (let* ((_%g163358163372%_ - (lambda (_%g163359163369%_) + (lambda (_%clause164488%_) + (let* ((_%g164490164504%_ + (lambda (_%g164491164501%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163359163369%_)))) - (_%g163357163409%_ - (lambda (_%g163359163375%_) + _%g164491164501%_)))) + (_%g164489164541%_ + (lambda (_%g164491164507%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163359163375%_)) - (let ((_%e163362163377%_ + (gx#stx-pair? _%g164491164507%_)) + (let ((_%e164494164509%_ (let () (declare (not safe)) - (gx#stx-e _%g163359163375%_)))) - (let ((_%hd163363163380%_ + (gx#stx-e _%g164491164507%_)))) + (let ((_%hd164495164512%_ (let () (declare (not safe)) - (##car _%e163362163377%_))) - (_%tl163364163382%_ + (##car _%e164494164509%_))) + (_%tl164496164514%_ (let () (declare (not safe)) - (##cdr _%e163362163377%_)))) + (##cdr _%e164494164509%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163364163382%_)) - (let ((_%e163365163385%_ + _%tl164496164514%_)) + (let ((_%e164497164517%_ (let () (declare (not safe)) (gx#stx-e - _%tl163364163382%_)))) - (let ((_%hd163366163388%_ + _%tl164496164514%_)))) + (let ((_%hd164498164520%_ (let () (declare (not safe)) - (##car _%e163365163385%_))) - (_%tl163367163390%_ + (##car _%e164497164517%_))) + (_%tl164499164522%_ (let () (declare (not safe)) - (##cdr _%e163365163385%_)))) + (##cdr _%e164497164517%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163367163390%_)) - ((lambda (_%L163393%_ - _%L163394%_) - (let ((__tmp169847 + _%tl164499164522%_)) + ((lambda (_%L164525%_ + _%L164526%_) + (let ((__tmp170979 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self163252%_ - _%stx163253%_)))) - (__tmp169846 + _%self164384%_ + _%stx164385%_)))) + (__tmp170978 (let () (declare (not safe)) - (gxc#xform-let-locals _%L163394%_)))) + (gxc#xform-let-locals _%L164526%_)))) (declare (not safe)) (__call-with-parameters - __tmp169847 + __tmp170979 gxc#current-compile-local-env - __tmp169846))) - _%hd163366163388%_ - _%hd163363163380%_) - (_%g163358163372%_ _%g163359163375%_)))) + __tmp170978))) + _%hd164498164520%_ + _%hd164495164512%_) + (_%g164490164504%_ _%g164491164507%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163358163372%_ - _%g163359163375%_)))) - (_%g163358163372%_ _%g163359163375%_))))) - (_%g163357163409%_ _%clause163356%_))) + (_%g164490164504%_ + _%g164491164507%_)))) + (_%g164490164504%_ _%g164491164507%_))))) + (_%g164489164541%_ _%clause164488%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L163340%_ - _%L163341%_)) - (let ((__tmp169848 - (lambda (_%g163411163415%_ - _%g163412163417%_ - _%g163413163419%_) - (cons (cons _%g163412163417%_ - (cons _%g163411163415%_ '())) - _%g163413163419%_)))) + _%L164472%_ + _%L164473%_)) + (let ((__tmp170980 + (lambda (_%g164543164547%_ + _%g164544164549%_ + _%g164545164551%_) + (cons (cons _%g164544164549%_ + (cons _%g164543164547%_ '())) + _%g164545164551%_)))) (declare (not safe)) (__foldr2 - __tmp169848 + __tmp170980 '() - _%L163340%_ - _%L163341%_))))) - _%body163271163335%_ - _%hd163272163337%_)))))) + _%L164472%_ + _%L164473%_))))) + _%body164403164467%_ + _%hd164404164469%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop163265163301%_ - _%target163262163296%_ + (_%loop164397164433%_ + _%target164394164428%_ '() '())) - (_%g163255163283%_ - _%g163256163286%_))))) - (_%g163255163283%_ _%g163256163286%_)))) - (_%g163255163283%_ _%g163256163286%_))))) - (_%g163254163422%_ _%stx163253%_)))) + (_%g164387164415%_ + _%g164388164418%_))))) + (_%g164387164415%_ _%g164388164418%_)))) + (_%g164387164415%_ _%g164388164418%_))))) + (_%g164386164554%_ _%stx164385%_)))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_%self163130%_ _%stx163131%_) - (let* ((_%g163133163150%_ - (lambda (_%g163134163147%_) + (lambda (_%self164262%_ _%stx164263%_) + (let* ((_%g164265164282%_ + (lambda (_%g164266164279%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163134163147%_)))) - (_%g163132163249%_ - (lambda (_%g163134163153%_) + _%g164266164279%_)))) + (_%g164264164381%_ + (lambda (_%g164266164285%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163134163153%_)) - (let ((_%e163137163155%_ + (gx#stx-pair? _%g164266164285%_)) + (let ((_%e164269164287%_ (let () (declare (not safe)) - (gx#stx-e _%g163134163153%_)))) - (let ((_%hd163138163158%_ + (gx#stx-e _%g164266164285%_)))) + (let ((_%hd164270164290%_ (let () (declare (not safe)) - (##car _%e163137163155%_))) - (_%tl163139163160%_ + (##car _%e164269164287%_))) + (_%tl164271164292%_ (let () (declare (not safe)) - (##cdr _%e163137163155%_)))) + (##cdr _%e164269164287%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163139163160%_)) - (let ((_%e163140163163%_ + (gx#stx-pair? _%tl164271164292%_)) + (let ((_%e164272164295%_ (let () (declare (not safe)) - (gx#stx-e _%tl163139163160%_)))) - (let ((_%hd163141163166%_ + (gx#stx-e _%tl164271164292%_)))) + (let ((_%hd164273164298%_ (let () (declare (not safe)) - (##car _%e163140163163%_))) - (_%tl163142163168%_ + (##car _%e164272164295%_))) + (_%tl164274164300%_ (let () (declare (not safe)) - (##cdr _%e163140163163%_)))) + (##cdr _%e164272164295%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163142163168%_)) - (let ((_%e163143163171%_ + (gx#stx-pair? _%tl164274164300%_)) + (let ((_%e164275164303%_ (let () (declare (not safe)) - (gx#stx-e _%tl163142163168%_)))) - (let ((_%hd163144163174%_ + (gx#stx-e _%tl164274164300%_)))) + (let ((_%hd164276164306%_ (let () (declare (not safe)) - (##car _%e163143163171%_))) - (_%tl163145163176%_ + (##car _%e164275164303%_))) + (_%tl164277164308%_ (let () (declare (not safe)) - (##cdr _%e163143163171%_)))) + (##cdr _%e164275164303%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163145163176%_)) - ((lambda (_%L163179%_ - _%L163180%_) - (let* ((_%__stx167518167519%_ - _%L163180%_) - (_%g163196163207%_ + _%tl164277164308%_)) + ((lambda (_%L164311%_ + _%L164312%_) + (let* ((_%__stx168650168651%_ + _%L164312%_) + (_%g164328164339%_ (lambda () (let () (declare @@ -7887,325 +7887,325 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167518167519%_))))) - (let ((_%__kont167520167521%_ - (lambda (_%L163227%_ + _%__stx168650168651%_))))) + (let ((_%__kont168652168653%_ + (lambda (_%L164359%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L163228%_) - (let ((_%$e163240%_ - (let ((__tmp169849 + _%L164360%_) + (let ((_%$e164372%_ + (let ((__tmp170981 (let () (declare (not safe)) - (gx#stx-e _%L163228%_)))) + (gx#stx-e _%L164360%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-annotations - __tmp169849)))) - (if _%$e163240%_ - ((lambda (_%type-e163243%_) - (_%type-e163243%_ _%stx163131%_ _%L163180%_)) - _%$e163240%_) + __tmp170981)))) + (if _%$e164372%_ + ((lambda (_%type-e164375%_) + (_%type-e164375%_ _%stx164263%_ _%L164312%_)) + _%$e164372%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self163130%_ _%L163179%_)))))) - (_%__kont167522167523%_ + (gxc#compile-e__1 _%self164262%_ _%L164311%_)))))) + (_%__kont168654168655%_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self163130%_ _%L163179%_))))) + (gxc#compile-e__1 _%self164262%_ _%L164311%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match167529167530%_ - (lambda (_%e163200163219%_ + (let ((_%__match168661168662%_ + (lambda (_%e164332164351%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd163201163222%_ - _%tl163202163224%_) - (let ((_%L163227%_ _%tl163202163224%_) - (_%L163228%_ _%hd163201163222%_)) + _%hd164333164354%_ + _%tl164334164356%_) + (let ((_%L164359%_ _%tl164334164356%_) + (_%L164360%_ _%hd164333164354%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L163228%_)) - (_%__kont167520167521%_ _%L163227%_ _%L163228%_) - (_%__kont167522167523%_)))))) + (gx#identifier? _%L164360%_)) + (_%__kont168652168653%_ _%L164359%_ _%L164360%_) + (_%__kont168654168655%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167518167519%_)) - (let ((_%e163200163219%_ + (gx#stx-pair? _%__stx168650168651%_)) + (let ((_%e164332164351%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167518167519%_)))) - (let ((_%tl163202163224%_ + (gx#stx-e _%__stx168650168651%_)))) + (let ((_%tl164334164356%_ (let () (declare (not safe)) - (##cdr _%e163200163219%_))) - (_%hd163201163222%_ + (##cdr _%e164332164351%_))) + (_%hd164333164354%_ (let () (declare (not safe)) - (##car _%e163200163219%_)))) - (_%__match167529167530%_ - _%e163200163219%_ - _%hd163201163222%_ - _%tl163202163224%_))) - (_%__kont167522167523%_)))))) + (##car _%e164332164351%_)))) + (_%__match168661168662%_ + _%e164332164351%_ + _%hd164333164354%_ + _%tl164334164356%_))) + (_%__kont168654168655%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd163144163174%_ - _%hd163141163166%_) - (_%g163133163150%_ - _%g163134163153%_)))) - (_%g163133163150%_ _%g163134163153%_)))) - (_%g163133163150%_ _%g163134163153%_)))) - (_%g163133163150%_ _%g163134163153%_))))) - (_%g163132163249%_ _%stx163131%_)))) + _%hd164276164306%_ + _%hd164273164298%_) + (_%g164265164282%_ + _%g164266164285%_)))) + (_%g164265164282%_ _%g164266164285%_)))) + (_%g164265164282%_ _%g164266164285%_)))) + (_%g164265164282%_ _%g164266164285%_))))) + (_%g164264164381%_ _%stx164263%_)))) (define gxc#basic-expression-type-annotation-typedecl - (lambda (_%stx163078%_ _%ann163079%_) - (let* ((_%g163081163094%_ - (lambda (_%g163082163091%_) + (lambda (_%stx164210%_ _%ann164211%_) + (let* ((_%g164213164226%_ + (lambda (_%g164214164223%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163082163091%_)))) - (_%g163080163127%_ - (lambda (_%g163082163097%_) + _%g164214164223%_)))) + (_%g164212164259%_ + (lambda (_%g164214164229%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163082163097%_)) - (let ((_%e163084163099%_ + (gx#stx-pair? _%g164214164229%_)) + (let ((_%e164216164231%_ (let () (declare (not safe)) - (gx#stx-e _%g163082163097%_)))) - (let ((_%hd163085163102%_ + (gx#stx-e _%g164214164229%_)))) + (let ((_%hd164217164234%_ (let () (declare (not safe)) - (##car _%e163084163099%_))) - (_%tl163086163104%_ + (##car _%e164216164231%_))) + (_%tl164218164236%_ (let () (declare (not safe)) - (##cdr _%e163084163099%_)))) + (##cdr _%e164216164231%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163086163104%_)) - (let ((_%e163087163107%_ + (gx#stx-pair? _%tl164218164236%_)) + (let ((_%e164219164239%_ (let () (declare (not safe)) - (gx#stx-e _%tl163086163104%_)))) - (let ((_%hd163088163110%_ + (gx#stx-e _%tl164218164236%_)))) + (let ((_%hd164220164242%_ (let () (declare (not safe)) - (##car _%e163087163107%_))) - (_%tl163089163112%_ + (##car _%e164219164239%_))) + (_%tl164221164244%_ (let () (declare (not safe)) - (##cdr _%e163087163107%_)))) + (##cdr _%e164219164239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163089163112%_)) - ((lambda (_%L163115%_) - (let ((__tmp169850 + (gx#stx-null? _%tl164221164244%_)) + ((lambda (_%L164247%_) + (let ((__tmp170982 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163115%_)))) + _%L164247%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx163078%_ - __tmp169850))) - _%hd163088163110%_) - (_%g163081163094%_ _%g163082163097%_)))) - (_%g163081163094%_ _%g163082163097%_)))) - (_%g163081163094%_ _%g163082163097%_))))) - (_%g163080163127%_ _%ann163079%_)))) + _%stx164210%_ + __tmp170982))) + _%hd164220164242%_) + (_%g164213164226%_ _%g164214164229%_)))) + (_%g164213164226%_ _%g164214164229%_)))) + (_%g164213164226%_ _%g164214164229%_))))) + (_%g164212164259%_ _%ann164211%_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_%stx162922%_ _%ann162923%_) - (let* ((_%g162925162962%_ - (lambda (_%g162926162959%_) + (lambda (_%stx164054%_ _%ann164055%_) + (let* ((_%g164057164094%_ + (lambda (_%g164058164091%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162926162959%_)))) - (_%g162924163075%_ - (lambda (_%g162926162965%_) + _%g164058164091%_)))) + (_%g164056164207%_ + (lambda (_%g164058164097%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162926162965%_)) - (let ((_%e162934162967%_ + (gx#stx-pair? _%g164058164097%_)) + (let ((_%e164066164099%_ (let () (declare (not safe)) - (gx#stx-e _%g162926162965%_)))) - (let ((_%hd162935162970%_ + (gx#stx-e _%g164058164097%_)))) + (let ((_%hd164067164102%_ (let () (declare (not safe)) - (##car _%e162934162967%_))) - (_%tl162936162972%_ + (##car _%e164066164099%_))) + (_%tl164068164104%_ (let () (declare (not safe)) - (##cdr _%e162934162967%_)))) + (##cdr _%e164066164099%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162936162972%_)) - (let ((_%e162937162975%_ + (gx#stx-pair? _%tl164068164104%_)) + (let ((_%e164069164107%_ (let () (declare (not safe)) - (gx#stx-e _%tl162936162972%_)))) - (let ((_%hd162938162978%_ + (gx#stx-e _%tl164068164104%_)))) + (let ((_%hd164070164110%_ (let () (declare (not safe)) - (##car _%e162937162975%_))) - (_%tl162939162980%_ + (##car _%e164069164107%_))) + (_%tl164071164112%_ (let () (declare (not safe)) - (##cdr _%e162937162975%_)))) + (##cdr _%e164069164107%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162939162980%_)) - (let ((_%e162940162983%_ + (gx#stx-pair? _%tl164071164112%_)) + (let ((_%e164072164115%_ (let () (declare (not safe)) - (gx#stx-e _%tl162939162980%_)))) - (let ((_%hd162941162986%_ + (gx#stx-e _%tl164071164112%_)))) + (let ((_%hd164073164118%_ (let () (declare (not safe)) - (##car _%e162940162983%_))) - (_%tl162942162988%_ + (##car _%e164072164115%_))) + (_%tl164074164120%_ (let () (declare (not safe)) - (##cdr _%e162940162983%_)))) + (##cdr _%e164072164115%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162942162988%_)) - (let ((_%e162943162991%_ + _%tl164074164120%_)) + (let ((_%e164075164123%_ (let () (declare (not safe)) (gx#stx-e - _%tl162942162988%_)))) - (let ((_%hd162944162994%_ + _%tl164074164120%_)))) + (let ((_%hd164076164126%_ (let () (declare (not safe)) - (##car _%e162943162991%_))) - (_%tl162945162996%_ + (##car _%e164075164123%_))) + (_%tl164077164128%_ (let () (declare (not safe)) - (##cdr _%e162943162991%_)))) + (##cdr _%e164075164123%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162945162996%_)) - (let ((_%e162946162999%_ + _%tl164077164128%_)) + (let ((_%e164078164131%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162945162996%_)))) - (let ((_%hd162947163002%_ - (let () (declare (not safe)) (##car _%e162946162999%_))) - (_%tl162948163004%_ + (gx#stx-e _%tl164077164128%_)))) + (let ((_%hd164079164134%_ + (let () (declare (not safe)) (##car _%e164078164131%_))) + (_%tl164080164136%_ (let () (declare (not safe)) - (##cdr _%e162946162999%_)))) + (##cdr _%e164078164131%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162948163004%_)) - (let ((_%e162949163007%_ + (gx#stx-pair? _%tl164080164136%_)) + (let ((_%e164081164139%_ (let () (declare (not safe)) - (gx#stx-e _%tl162948163004%_)))) - (let ((_%hd162950163010%_ + (gx#stx-e _%tl164080164136%_)))) + (let ((_%hd164082164142%_ (let () (declare (not safe)) - (##car _%e162949163007%_))) - (_%tl162951163012%_ + (##car _%e164081164139%_))) + (_%tl164083164144%_ (let () (declare (not safe)) - (##cdr _%e162949163007%_)))) + (##cdr _%e164081164139%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162951163012%_)) - (let ((_%e162952163015%_ + (gx#stx-pair? _%tl164083164144%_)) + (let ((_%e164084164147%_ (let () (declare (not safe)) - (gx#stx-e _%tl162951163012%_)))) - (let ((_%hd162953163018%_ + (gx#stx-e _%tl164083164144%_)))) + (let ((_%hd164085164150%_ (let () (declare (not safe)) - (##car _%e162952163015%_))) - (_%tl162954163020%_ + (##car _%e164084164147%_))) + (_%tl164086164152%_ (let () (declare (not safe)) - (##cdr _%e162952163015%_)))) + (##cdr _%e164084164147%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162954163020%_)) - (let ((_%e162955163023%_ + (gx#stx-pair? _%tl164086164152%_)) + (let ((_%e164087164155%_ (let () (declare (not safe)) - (gx#stx-e _%tl162954163020%_)))) - (let ((_%hd162956163026%_ + (gx#stx-e _%tl164086164152%_)))) + (let ((_%hd164088164158%_ (let () (declare (not safe)) - (##car _%e162955163023%_))) - (_%tl162957163028%_ + (##car _%e164087164155%_))) + (_%tl164089164160%_ (let () (declare (not safe)) - (##cdr _%e162955163023%_)))) + (##cdr _%e164087164155%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162957163028%_)) - ((lambda (_%L163031%_ - _%L163032%_ - _%L163033%_ - _%L163034%_ - _%L163035%_ - _%L163036%_ - _%L163037%_) - (let ((_%type-id163067%_ + _%tl164089164160%_)) + ((lambda (_%L164163%_ + _%L164164%_ + _%L164165%_ + _%L164166%_ + _%L164167%_ + _%L164168%_ + _%L164169%_) + (let ((_%type-id164199%_ (let () (declare (not safe)) (gx#stx-e - _%L163037%_))) - (_%super163068%_ + _%L164169%_))) + (_%super164200%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L163036%_))) - (_%slots163069%_ + _%L164168%_))) + (_%slots164201%_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L163035%_))) - (_%ctor-method163070%_ + _%L164167%_))) + (_%ctor-method164202%_ (let () (declare (not safe)) (gx#stx-e - _%L163034%_))) - (_%struct?163071%_ + _%L164166%_))) + (_%struct?164203%_ (let () (declare (not safe)) (gx#stx-e - _%L163033%_))) - (_%final?163072%_ + _%L164165%_))) + (_%final?164204%_ (let () (declare (not safe)) (gx#stx-e - _%L163032%_))) - (_%metaclass163073%_ + _%L164164%_))) + (_%metaclass164205%_ (if (let () (declare (not safe)) (gx#stx-e - _%L163031%_)) + _%L164163%_)) (let () (declare (not safe)) (gxc#identifier-symbol - _%L163031%_)) + _%L164163%_)) '#f))) - (let ((__obj169686 + (let ((__obj170818 (let () (declare (not safe)) @@ -8213,8 +8213,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp169851 - (let ((__obj169685 + (let ((__tmp170983 + (let ((__obj170817 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8234,115 +8234,115 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj169685 - _%type-id163067%_ - _%super163068%_ - _%slots163069%_ - _%ctor-method163070%_ - _%struct?163071%_ - _%final?163072%_ + __obj170817 + _%type-id164199%_ + _%super164200%_ + _%slots164201%_ + _%ctor-method164202%_ + _%struct?164203%_ + _%final?164204%_ '#f - _%metaclass163073%_)) - __obj169685))) + _%metaclass164205%_)) + __obj170817))) (declare (not safe)) - (gxc#!class-meta:::init! __obj169686 __tmp169851)) + (gxc#!class-meta:::init! __obj170818 __tmp170983)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj169686))) - _%hd162956163026%_ - _%hd162953163018%_ - _%hd162950163010%_ - _%hd162947163002%_ - _%hd162944162994%_ - _%hd162941162986%_ - _%hd162938162978%_) - (_%g162925162962%_ - _%g162926162965%_)))) - (_%g162925162962%_ _%g162926162965%_)))) - (_%g162925162962%_ _%g162926162965%_)))) - (_%g162925162962%_ _%g162926162965%_)))) - (_%g162925162962%_ _%g162926162965%_)))) + __obj170818))) + _%hd164088164158%_ + _%hd164085164150%_ + _%hd164082164142%_ + _%hd164079164134%_ + _%hd164076164126%_ + _%hd164073164118%_ + _%hd164070164110%_) + (_%g164057164094%_ + _%g164058164097%_)))) + (_%g164057164094%_ _%g164058164097%_)))) + (_%g164057164094%_ _%g164058164097%_)))) + (_%g164057164094%_ _%g164058164097%_)))) + (_%g164057164094%_ _%g164058164097%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g162925162962%_ - _%g162926162965%_)))) - (_%g162925162962%_ _%g162926162965%_)))) - (_%g162925162962%_ _%g162926162965%_)))) - (_%g162925162962%_ _%g162926162965%_))))) - (_%g162924163075%_ _%ann162923%_)))) + (_%g164057164094%_ + _%g164058164097%_)))) + (_%g164057164094%_ _%g164058164097%_)))) + (_%g164057164094%_ _%g164058164097%_)))) + (_%g164057164094%_ _%g164058164097%_))))) + (_%g164056164207%_ _%ann164055%_)))) (define gxc#basic-expression-type-annotation-mop.system - (lambda (_%stx162851%_ _%ann162852%_) - (let* ((_%g162854162871%_ - (lambda (_%g162855162868%_) + (lambda (_%stx163983%_ _%ann163984%_) + (let* ((_%g163986164003%_ + (lambda (_%g163987164000%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162855162868%_)))) - (_%g162853162919%_ - (lambda (_%g162855162874%_) + _%g163987164000%_)))) + (_%g163985164051%_ + (lambda (_%g163987164006%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162855162874%_)) - (let ((_%e162858162876%_ + (gx#stx-pair? _%g163987164006%_)) + (let ((_%e163990164008%_ (let () (declare (not safe)) - (gx#stx-e _%g162855162874%_)))) - (let ((_%hd162859162879%_ + (gx#stx-e _%g163987164006%_)))) + (let ((_%hd163991164011%_ (let () (declare (not safe)) - (##car _%e162858162876%_))) - (_%tl162860162881%_ + (##car _%e163990164008%_))) + (_%tl163992164013%_ (let () (declare (not safe)) - (##cdr _%e162858162876%_)))) + (##cdr _%e163990164008%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162860162881%_)) - (let ((_%e162861162884%_ + (gx#stx-pair? _%tl163992164013%_)) + (let ((_%e163993164016%_ (let () (declare (not safe)) - (gx#stx-e _%tl162860162881%_)))) - (let ((_%hd162862162887%_ + (gx#stx-e _%tl163992164013%_)))) + (let ((_%hd163994164019%_ (let () (declare (not safe)) - (##car _%e162861162884%_))) - (_%tl162863162889%_ + (##car _%e163993164016%_))) + (_%tl163995164021%_ (let () (declare (not safe)) - (##cdr _%e162861162884%_)))) + (##cdr _%e163993164016%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162863162889%_)) - (let ((_%e162864162892%_ + (gx#stx-pair? _%tl163995164021%_)) + (let ((_%e163996164024%_ (let () (declare (not safe)) - (gx#stx-e _%tl162863162889%_)))) - (let ((_%hd162865162895%_ + (gx#stx-e _%tl163995164021%_)))) + (let ((_%hd163997164027%_ (let () (declare (not safe)) - (##car _%e162864162892%_))) - (_%tl162866162897%_ + (##car _%e163996164024%_))) + (_%tl163998164029%_ (let () (declare (not safe)) - (##cdr _%e162864162892%_)))) + (##cdr _%e163996164024%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162866162897%_)) - ((lambda (_%L162900%_ - _%L162901%_) - (let ((_%type-id162916%_ + _%tl163998164029%_)) + ((lambda (_%L164032%_ + _%L164033%_) + (let ((_%type-id164048%_ (let () (declare (not safe)) (gx#stx-e - _%L162901%_))) - (_%super162917%_ + _%L164033%_))) + (_%super164049%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L162900%_)))) - (let ((__obj169688 + _%L164032%_)))) + (let ((__obj170820 (let () (declare (not safe)) @@ -8350,8 +8350,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp169852 - (let ((__obj169687 + (let ((__tmp170984 + (let ((__obj170819 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8371,589 +8371,589 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj169687 - _%type-id162916%_ - _%super162917%_ + __obj170819 + _%type-id164048%_ + _%super164049%_ '() '#f '#f '#f '#t '#f)) - __obj169687))) + __obj170819))) (declare (not safe)) - (gxc#!class-meta:::init! __obj169688 __tmp169852)) + (gxc#!class-meta:::init! __obj170820 __tmp170984)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj169688))) - _%hd162865162895%_ - _%hd162862162887%_) - (_%g162854162871%_ - _%g162855162874%_)))) - (_%g162854162871%_ _%g162855162874%_)))) - (_%g162854162871%_ _%g162855162874%_)))) - (_%g162854162871%_ _%g162855162874%_))))) - (_%g162853162919%_ _%ann162852%_)))) + __obj170820))) + _%hd163997164027%_ + _%hd163994164019%_) + (_%g163986164003%_ + _%g163987164006%_)))) + (_%g163986164003%_ _%g163987164006%_)))) + (_%g163986164003%_ _%g163987164006%_)))) + (_%g163986164003%_ _%g163987164006%_))))) + (_%g163985164051%_ _%ann163984%_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_%stx162799%_ _%ann162800%_) - (let* ((_%g162802162815%_ - (lambda (_%g162803162812%_) + (lambda (_%stx163931%_ _%ann163932%_) + (let* ((_%g163934163947%_ + (lambda (_%g163935163944%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162803162812%_)))) - (_%g162801162848%_ - (lambda (_%g162803162818%_) + _%g163935163944%_)))) + (_%g163933163980%_ + (lambda (_%g163935163950%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162803162818%_)) - (let ((_%e162805162820%_ + (gx#stx-pair? _%g163935163950%_)) + (let ((_%e163937163952%_ (let () (declare (not safe)) - (gx#stx-e _%g162803162818%_)))) - (let ((_%hd162806162823%_ + (gx#stx-e _%g163935163950%_)))) + (let ((_%hd163938163955%_ (let () (declare (not safe)) - (##car _%e162805162820%_))) - (_%tl162807162825%_ + (##car _%e163937163952%_))) + (_%tl163939163957%_ (let () (declare (not safe)) - (##cdr _%e162805162820%_)))) + (##cdr _%e163937163952%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162807162825%_)) - (let ((_%e162808162828%_ + (gx#stx-pair? _%tl163939163957%_)) + (let ((_%e163940163960%_ (let () (declare (not safe)) - (gx#stx-e _%tl162807162825%_)))) - (let ((_%hd162809162831%_ + (gx#stx-e _%tl163939163957%_)))) + (let ((_%hd163941163963%_ (let () (declare (not safe)) - (##car _%e162808162828%_))) - (_%tl162810162833%_ + (##car _%e163940163960%_))) + (_%tl163942163965%_ (let () (declare (not safe)) - (##cdr _%e162808162828%_)))) + (##cdr _%e163940163960%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162810162833%_)) - ((lambda (_%L162836%_) - (let ((__obj169689 + (gx#stx-null? _%tl163942163965%_)) + ((lambda (_%L163968%_) + (let ((__obj170821 (let () (declare (not safe)) (##structure gxc#!constructor::t '#f '#f)))) - (let ((__tmp169853 + (let ((__tmp170985 (let () (declare (not safe)) (gxc#identifier-symbol - _%L162836%_)))) + _%L163968%_)))) (declare (not safe)) (gxc#!constructor:::init! - __obj169689 - __tmp169853)) - __obj169689)) - _%hd162809162831%_) - (_%g162802162815%_ _%g162803162818%_)))) - (_%g162802162815%_ _%g162803162818%_)))) - (_%g162802162815%_ _%g162803162818%_))))) - (_%g162801162848%_ _%ann162800%_)))) + __obj170821 + __tmp170985)) + __obj170821)) + _%hd163941163963%_) + (_%g163934163947%_ _%g163935163950%_)))) + (_%g163934163947%_ _%g163935163950%_)))) + (_%g163934163947%_ _%g163935163950%_))))) + (_%g163933163980%_ _%ann163932%_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_%stx162747%_ _%ann162748%_) - (let* ((_%g162750162763%_ - (lambda (_%g162751162760%_) + (lambda (_%stx163879%_ _%ann163880%_) + (let* ((_%g163882163895%_ + (lambda (_%g163883163892%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162751162760%_)))) - (_%g162749162796%_ - (lambda (_%g162751162766%_) + _%g163883163892%_)))) + (_%g163881163928%_ + (lambda (_%g163883163898%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162751162766%_)) - (let ((_%e162753162768%_ + (gx#stx-pair? _%g163883163898%_)) + (let ((_%e163885163900%_ (let () (declare (not safe)) - (gx#stx-e _%g162751162766%_)))) - (let ((_%hd162754162771%_ + (gx#stx-e _%g163883163898%_)))) + (let ((_%hd163886163903%_ (let () (declare (not safe)) - (##car _%e162753162768%_))) - (_%tl162755162773%_ + (##car _%e163885163900%_))) + (_%tl163887163905%_ (let () (declare (not safe)) - (##cdr _%e162753162768%_)))) + (##cdr _%e163885163900%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162755162773%_)) - (let ((_%e162756162776%_ + (gx#stx-pair? _%tl163887163905%_)) + (let ((_%e163888163908%_ (let () (declare (not safe)) - (gx#stx-e _%tl162755162773%_)))) - (let ((_%hd162757162779%_ + (gx#stx-e _%tl163887163905%_)))) + (let ((_%hd163889163911%_ (let () (declare (not safe)) - (##car _%e162756162776%_))) - (_%tl162758162781%_ + (##car _%e163888163908%_))) + (_%tl163890163913%_ (let () (declare (not safe)) - (##cdr _%e162756162776%_)))) + (##cdr _%e163888163908%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162758162781%_)) - ((lambda (_%L162784%_) - (let ((__obj169690 + (gx#stx-null? _%tl163890163913%_)) + ((lambda (_%L163916%_) + (let ((__obj170822 (let () (declare (not safe)) (##structure gxc#!predicate::t '#f '#f)))) - (let ((__tmp169854 + (let ((__tmp170986 (let () (declare (not safe)) (gxc#identifier-symbol - _%L162784%_)))) + _%L163916%_)))) (declare (not safe)) (gxc#!predicate:::init! - __obj169690 - __tmp169854)) - __obj169690)) - _%hd162757162779%_) - (_%g162750162763%_ _%g162751162766%_)))) - (_%g162750162763%_ _%g162751162766%_)))) - (_%g162750162763%_ _%g162751162766%_))))) - (_%g162749162796%_ _%ann162748%_)))) + __obj170822 + __tmp170986)) + __obj170822)) + _%hd163889163911%_) + (_%g163882163895%_ _%g163883163898%_)))) + (_%g163882163895%_ _%g163883163898%_)))) + (_%g163882163895%_ _%g163883163898%_))))) + (_%g163881163928%_ _%ann163880%_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_%stx162663%_ _%ann162664%_) - (let* ((_%g162666162687%_ - (lambda (_%g162667162684%_) + (lambda (_%stx163795%_ _%ann163796%_) + (let* ((_%g163798163819%_ + (lambda (_%g163799163816%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162667162684%_)))) - (_%g162665162744%_ - (lambda (_%g162667162690%_) + _%g163799163816%_)))) + (_%g163797163876%_ + (lambda (_%g163799163822%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162667162690%_)) - (let ((_%e162671162692%_ + (gx#stx-pair? _%g163799163822%_)) + (let ((_%e163803163824%_ (let () (declare (not safe)) - (gx#stx-e _%g162667162690%_)))) - (let ((_%hd162672162695%_ + (gx#stx-e _%g163799163822%_)))) + (let ((_%hd163804163827%_ (let () (declare (not safe)) - (##car _%e162671162692%_))) - (_%tl162673162697%_ + (##car _%e163803163824%_))) + (_%tl163805163829%_ (let () (declare (not safe)) - (##cdr _%e162671162692%_)))) + (##cdr _%e163803163824%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162673162697%_)) - (let ((_%e162674162700%_ + (gx#stx-pair? _%tl163805163829%_)) + (let ((_%e163806163832%_ (let () (declare (not safe)) - (gx#stx-e _%tl162673162697%_)))) - (let ((_%hd162675162703%_ + (gx#stx-e _%tl163805163829%_)))) + (let ((_%hd163807163835%_ (let () (declare (not safe)) - (##car _%e162674162700%_))) - (_%tl162676162705%_ + (##car _%e163806163832%_))) + (_%tl163808163837%_ (let () (declare (not safe)) - (##cdr _%e162674162700%_)))) + (##cdr _%e163806163832%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162676162705%_)) - (let ((_%e162677162708%_ + (gx#stx-pair? _%tl163808163837%_)) + (let ((_%e163809163840%_ (let () (declare (not safe)) - (gx#stx-e _%tl162676162705%_)))) - (let ((_%hd162678162711%_ + (gx#stx-e _%tl163808163837%_)))) + (let ((_%hd163810163843%_ (let () (declare (not safe)) - (##car _%e162677162708%_))) - (_%tl162679162713%_ + (##car _%e163809163840%_))) + (_%tl163811163845%_ (let () (declare (not safe)) - (##cdr _%e162677162708%_)))) + (##cdr _%e163809163840%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162679162713%_)) - (let ((_%e162680162716%_ + _%tl163811163845%_)) + (let ((_%e163812163848%_ (let () (declare (not safe)) (gx#stx-e - _%tl162679162713%_)))) - (let ((_%hd162681162719%_ + _%tl163811163845%_)))) + (let ((_%hd163813163851%_ (let () (declare (not safe)) - (##car _%e162680162716%_))) - (_%tl162682162721%_ + (##car _%e163812163848%_))) + (_%tl163814163853%_ (let () (declare (not safe)) - (##cdr _%e162680162716%_)))) + (##cdr _%e163812163848%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162682162721%_)) - ((lambda (_%L162724%_ - _%L162725%_ - _%L162726%_) - (let ((__obj169691 + _%tl163814163853%_)) + ((lambda (_%L163856%_ + _%L163857%_ + _%L163858%_) + (let ((__obj170823 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!accessor::t '#f '#f '#f '#f)))) - (let ((__tmp169857 + (let ((__tmp170989 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162726%_))) - (__tmp169856 - (let () (declare (not safe)) (gx#stx-e _%L162725%_))) - (__tmp169855 + (gxc#identifier-symbol _%L163858%_))) + (__tmp170988 + (let () (declare (not safe)) (gx#stx-e _%L163857%_))) + (__tmp170987 (let () (declare (not safe)) - (gx#stx-e _%L162724%_)))) + (gx#stx-e _%L163856%_)))) (declare (not safe)) (gxc#!accessor:::init! - __obj169691 - __tmp169857 - __tmp169856 - __tmp169855)) - __obj169691)) - _%hd162681162719%_ - _%hd162678162711%_ - _%hd162675162703%_) - (_%g162666162687%_ _%g162667162690%_)))) + __obj170823 + __tmp170989 + __tmp170988 + __tmp170987)) + __obj170823)) + _%hd163813163851%_ + _%hd163810163843%_ + _%hd163807163835%_) + (_%g163798163819%_ _%g163799163822%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g162666162687%_ - _%g162667162690%_)))) - (_%g162666162687%_ _%g162667162690%_)))) - (_%g162666162687%_ _%g162667162690%_)))) - (_%g162666162687%_ _%g162667162690%_))))) - (_%g162665162744%_ _%ann162664%_)))) + (_%g163798163819%_ + _%g163799163822%_)))) + (_%g163798163819%_ _%g163799163822%_)))) + (_%g163798163819%_ _%g163799163822%_)))) + (_%g163798163819%_ _%g163799163822%_))))) + (_%g163797163876%_ _%ann163796%_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_%stx162579%_ _%ann162580%_) - (let* ((_%g162582162603%_ - (lambda (_%g162583162600%_) + (lambda (_%stx163711%_ _%ann163712%_) + (let* ((_%g163714163735%_ + (lambda (_%g163715163732%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162583162600%_)))) - (_%g162581162660%_ - (lambda (_%g162583162606%_) + _%g163715163732%_)))) + (_%g163713163792%_ + (lambda (_%g163715163738%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162583162606%_)) - (let ((_%e162587162608%_ + (gx#stx-pair? _%g163715163738%_)) + (let ((_%e163719163740%_ (let () (declare (not safe)) - (gx#stx-e _%g162583162606%_)))) - (let ((_%hd162588162611%_ + (gx#stx-e _%g163715163738%_)))) + (let ((_%hd163720163743%_ (let () (declare (not safe)) - (##car _%e162587162608%_))) - (_%tl162589162613%_ + (##car _%e163719163740%_))) + (_%tl163721163745%_ (let () (declare (not safe)) - (##cdr _%e162587162608%_)))) + (##cdr _%e163719163740%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162589162613%_)) - (let ((_%e162590162616%_ + (gx#stx-pair? _%tl163721163745%_)) + (let ((_%e163722163748%_ (let () (declare (not safe)) - (gx#stx-e _%tl162589162613%_)))) - (let ((_%hd162591162619%_ + (gx#stx-e _%tl163721163745%_)))) + (let ((_%hd163723163751%_ (let () (declare (not safe)) - (##car _%e162590162616%_))) - (_%tl162592162621%_ + (##car _%e163722163748%_))) + (_%tl163724163753%_ (let () (declare (not safe)) - (##cdr _%e162590162616%_)))) + (##cdr _%e163722163748%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162592162621%_)) - (let ((_%e162593162624%_ + (gx#stx-pair? _%tl163724163753%_)) + (let ((_%e163725163756%_ (let () (declare (not safe)) - (gx#stx-e _%tl162592162621%_)))) - (let ((_%hd162594162627%_ + (gx#stx-e _%tl163724163753%_)))) + (let ((_%hd163726163759%_ (let () (declare (not safe)) - (##car _%e162593162624%_))) - (_%tl162595162629%_ + (##car _%e163725163756%_))) + (_%tl163727163761%_ (let () (declare (not safe)) - (##cdr _%e162593162624%_)))) + (##cdr _%e163725163756%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162595162629%_)) - (let ((_%e162596162632%_ + _%tl163727163761%_)) + (let ((_%e163728163764%_ (let () (declare (not safe)) (gx#stx-e - _%tl162595162629%_)))) - (let ((_%hd162597162635%_ + _%tl163727163761%_)))) + (let ((_%hd163729163767%_ (let () (declare (not safe)) - (##car _%e162596162632%_))) - (_%tl162598162637%_ + (##car _%e163728163764%_))) + (_%tl163730163769%_ (let () (declare (not safe)) - (##cdr _%e162596162632%_)))) + (##cdr _%e163728163764%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162598162637%_)) - ((lambda (_%L162640%_ - _%L162641%_ - _%L162642%_) - (let ((__obj169692 + _%tl163730163769%_)) + ((lambda (_%L163772%_ + _%L163773%_ + _%L163774%_) + (let ((__obj170824 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!mutator::t '#f '#f '#f '#f)))) - (let ((__tmp169860 + (let ((__tmp170992 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162642%_))) - (__tmp169859 - (let () (declare (not safe)) (gx#stx-e _%L162641%_))) - (__tmp169858 + (gxc#identifier-symbol _%L163774%_))) + (__tmp170991 + (let () (declare (not safe)) (gx#stx-e _%L163773%_))) + (__tmp170990 (let () (declare (not safe)) - (gx#stx-e _%L162640%_)))) + (gx#stx-e _%L163772%_)))) (declare (not safe)) (gxc#!mutator:::init! - __obj169692 - __tmp169860 - __tmp169859 - __tmp169858)) - __obj169692)) - _%hd162597162635%_ - _%hd162594162627%_ - _%hd162591162619%_) - (_%g162582162603%_ _%g162583162606%_)))) + __obj170824 + __tmp170992 + __tmp170991 + __tmp170990)) + __obj170824)) + _%hd163729163767%_ + _%hd163726163759%_ + _%hd163723163751%_) + (_%g163714163735%_ _%g163715163738%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g162582162603%_ - _%g162583162606%_)))) - (_%g162582162603%_ _%g162583162606%_)))) - (_%g162582162603%_ _%g162583162606%_)))) - (_%g162582162603%_ _%g162583162606%_))))) - (_%g162581162660%_ _%ann162580%_)))) + (_%g163714163735%_ + _%g163715163738%_)))) + (_%g163714163735%_ _%g163715163738%_)))) + (_%g163714163735%_ _%g163715163738%_)))) + (_%g163714163735%_ _%g163715163738%_))))) + (_%g163713163792%_ _%ann163712%_)))) (define gxc#basic-expression-type-annotation-interface - (lambda (_%stx162511%_ _%ann162512%_) - (let* ((_%g162514162531%_ - (lambda (_%g162515162528%_) + (lambda (_%stx163643%_ _%ann163644%_) + (let* ((_%g163646163663%_ + (lambda (_%g163647163660%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162515162528%_)))) - (_%g162513162576%_ - (lambda (_%g162515162534%_) + _%g163647163660%_)))) + (_%g163645163708%_ + (lambda (_%g163647163666%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162515162534%_)) - (let ((_%e162518162536%_ + (gx#stx-pair? _%g163647163666%_)) + (let ((_%e163650163668%_ (let () (declare (not safe)) - (gx#stx-e _%g162515162534%_)))) - (let ((_%hd162519162539%_ + (gx#stx-e _%g163647163666%_)))) + (let ((_%hd163651163671%_ (let () (declare (not safe)) - (##car _%e162518162536%_))) - (_%tl162520162541%_ + (##car _%e163650163668%_))) + (_%tl163652163673%_ (let () (declare (not safe)) - (##cdr _%e162518162536%_)))) + (##cdr _%e163650163668%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162520162541%_)) - (let ((_%e162521162544%_ + (gx#stx-pair? _%tl163652163673%_)) + (let ((_%e163653163676%_ (let () (declare (not safe)) - (gx#stx-e _%tl162520162541%_)))) - (let ((_%hd162522162547%_ + (gx#stx-e _%tl163652163673%_)))) + (let ((_%hd163654163679%_ (let () (declare (not safe)) - (##car _%e162521162544%_))) - (_%tl162523162549%_ + (##car _%e163653163676%_))) + (_%tl163655163681%_ (let () (declare (not safe)) - (##cdr _%e162521162544%_)))) + (##cdr _%e163653163676%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162523162549%_)) - (let ((_%e162524162552%_ + (gx#stx-pair? _%tl163655163681%_)) + (let ((_%e163656163684%_ (let () (declare (not safe)) - (gx#stx-e _%tl162523162549%_)))) - (let ((_%hd162525162555%_ + (gx#stx-e _%tl163655163681%_)))) + (let ((_%hd163657163687%_ (let () (declare (not safe)) - (##car _%e162524162552%_))) - (_%tl162526162557%_ + (##car _%e163656163684%_))) + (_%tl163658163689%_ (let () (declare (not safe)) - (##cdr _%e162524162552%_)))) + (##cdr _%e163656163684%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162526162557%_)) - ((lambda (_%L162560%_ - _%L162561%_) - (let ((__tmp169862 + _%tl163658163689%_)) + ((lambda (_%L163692%_ + _%L163693%_) + (let ((__tmp170994 (let () (declare (not safe)) (gxc#identifier-symbol - _%L162561%_))) - (__tmp169861 + _%L163693%_))) + (__tmp170993 (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L162560%_)))) + _%L163692%_)))) (declare (not safe)) (##structure gxc#!interface::t - __tmp169862 - __tmp169861))) - _%hd162525162555%_ - _%hd162522162547%_) - (_%g162514162531%_ - _%g162515162534%_)))) - (_%g162514162531%_ _%g162515162534%_)))) - (_%g162514162531%_ _%g162515162534%_)))) - (_%g162514162531%_ _%g162515162534%_))))) - (_%g162513162576%_ _%ann162512%_)))) + __tmp170994 + __tmp170993))) + _%hd163657163687%_ + _%hd163654163679%_) + (_%g163646163663%_ + _%g163647163666%_)))) + (_%g163646163663%_ _%g163647163666%_)))) + (_%g163646163663%_ _%g163647163666%_)))) + (_%g163646163663%_ _%g163647163666%_))))) + (_%g163645163708%_ _%ann163644%_)))) (define gxc#basic-expression-type-annotation-predicate - (lambda (_%stx162459%_ _%ann162460%_) - (let* ((_%g162462162475%_ - (lambda (_%g162463162472%_) + (lambda (_%stx163591%_ _%ann163592%_) + (let* ((_%g163594163607%_ + (lambda (_%g163595163604%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162463162472%_)))) - (_%g162461162508%_ - (lambda (_%g162463162478%_) + _%g163595163604%_)))) + (_%g163593163640%_ + (lambda (_%g163595163610%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162463162478%_)) - (let ((_%e162465162480%_ + (gx#stx-pair? _%g163595163610%_)) + (let ((_%e163597163612%_ (let () (declare (not safe)) - (gx#stx-e _%g162463162478%_)))) - (let ((_%hd162466162483%_ + (gx#stx-e _%g163595163610%_)))) + (let ((_%hd163598163615%_ (let () (declare (not safe)) - (##car _%e162465162480%_))) - (_%tl162467162485%_ + (##car _%e163597163612%_))) + (_%tl163599163617%_ (let () (declare (not safe)) - (##cdr _%e162465162480%_)))) + (##cdr _%e163597163612%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162467162485%_)) - (let ((_%e162468162488%_ + (gx#stx-pair? _%tl163599163617%_)) + (let ((_%e163600163620%_ (let () (declare (not safe)) - (gx#stx-e _%tl162467162485%_)))) - (let ((_%hd162469162491%_ + (gx#stx-e _%tl163599163617%_)))) + (let ((_%hd163601163623%_ (let () (declare (not safe)) - (##car _%e162468162488%_))) - (_%tl162470162493%_ + (##car _%e163600163620%_))) + (_%tl163602163625%_ (let () (declare (not safe)) - (##cdr _%e162468162488%_)))) + (##cdr _%e163600163620%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162470162493%_)) - ((lambda (_%L162496%_) - (let ((__obj169693 + (gx#stx-null? _%tl163602163625%_)) + ((lambda (_%L163628%_) + (let ((__obj170825 (let () (declare (not safe)) (##structure gxc#!primitive-predicate::t '#f '#f)))) - (let ((__tmp169863 + (let ((__tmp170995 (let () (declare (not safe)) (gxc#identifier-symbol - _%L162496%_)))) + _%L163628%_)))) (declare (not safe)) (gxc#!primitive-predicate:::init! - __obj169693 - __tmp169863)) - __obj169693)) - _%hd162469162491%_) - (_%g162462162475%_ _%g162463162478%_)))) - (_%g162462162475%_ _%g162463162478%_)))) - (_%g162462162475%_ _%g162463162478%_))))) - (_%g162461162508%_ _%ann162460%_)))) + __obj170825 + __tmp170995)) + __obj170825)) + _%hd163601163623%_) + (_%g163594163607%_ _%g163595163610%_)))) + (_%g163594163607%_ _%g163595163610%_)))) + (_%g163594163607%_ _%g163595163610%_))))) + (_%g163593163640%_ _%ann163592%_)))) (define gxc#basic-expression-type-annotation-abort - (lambda (_%stx162429%_ _%ann162430%_) - (let* ((_%g162432162441%_ - (lambda (_%g162433162438%_) + (lambda (_%stx163561%_ _%ann163562%_) + (let* ((_%g163564163573%_ + (lambda (_%g163565163570%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162433162438%_)))) - (_%g162431162456%_ - (lambda (_%g162433162444%_) + _%g163565163570%_)))) + (_%g163563163588%_ + (lambda (_%g163565163576%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162433162444%_)) - (let ((_%e162434162446%_ + (gx#stx-pair? _%g163565163576%_)) + (let ((_%e163566163578%_ (let () (declare (not safe)) - (gx#stx-e _%g162433162444%_)))) - (let ((_%hd162435162449%_ + (gx#stx-e _%g163565163576%_)))) + (let ((_%hd163567163581%_ (let () (declare (not safe)) - (##car _%e162434162446%_))) - (_%tl162436162451%_ + (##car _%e163566163578%_))) + (_%tl163568163583%_ (let () (declare (not safe)) - (##cdr _%e162434162446%_)))) + (##cdr _%e163566163578%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162436162451%_)) + (gx#stx-null? _%tl163568163583%_)) ((lambda () - (let ((__obj169694 + (let ((__obj170826 (let () (declare (not safe)) (##structure gxc#!abort::t '#f)))) (let () (declare (not safe)) - (gxc#!abort:::init! __obj169694)) - __obj169694))) - (_%g162432162441%_ _%g162433162444%_)))) - (_%g162432162441%_ _%g162433162444%_))))) - (_%g162431162456%_ _%ann162430%_)))) + (gxc#!abort:::init! __obj170826)) + __obj170826))) + (_%g163564163573%_ _%g163565163576%_)))) + (_%g163564163573%_ _%g163565163576%_))))) + (_%g163563163588%_ _%ann163562%_)))) (let () (declare (not safe)) (__hash-put! @@ -9015,19 +9015,19 @@ '@abort gxc#basic-expression-type-annotation-abort)) (define gxc#raw-expression-type-lambda% - (lambda (_%self162361%_ _%stx162362%_) - (let* ((_%__stx167532167533%_ _%stx162362%_) - (_%g162365162379%_ + (lambda (_%self163493%_ _%stx163494%_) + (let* ((_%__stx168664168665%_ _%stx163494%_) + (_%g163497163511%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167532167533%_))))) - (let ((_%__kont167534167535%_ - (lambda (_%L162417%_) - (let ((__obj169695 + _%__stx168664168665%_))))) + (let ((_%__kont168666168667%_ + (lambda (_%L163549%_) + (let ((__obj170827 (let () (declare (not safe)) (##structure @@ -9038,22 +9038,22 @@ '#f '#f '#f)))) - (let ((__tmp169865 (gxc#lambda-form-arity _%L162417%_)) - (__tmp169864 - (gxc#dispatch-lambda-form-delegate _%L162417%_))) + (let ((__tmp170997 (gxc#lambda-form-arity _%L163549%_)) + (__tmp170996 + (gxc#dispatch-lambda-form-delegate _%L163549%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj169695 - __tmp169865 - __tmp169864)) - __obj169695))) - (_%__kont167536167537%_ - (lambda (_%L162392%_) - (let* ((_%signature162402%_ - (gxc#lambda-form-infer-signature _%L162392%_)) - (__obj169696 + __obj170827 + __tmp170997 + __tmp170996)) + __obj170827))) + (_%__kont168668168669%_ + (lambda (_%L163524%_) + (let* ((_%signature163534%_ + (gxc#lambda-form-infer-signature _%L163524%_)) + (__obj170828 (let () (declare (not safe)) (##structure @@ -9064,98 +9064,98 @@ '#f '#f '#f)))) - (let ((__tmp169866 (gxc#lambda-form-arity _%L162392%_))) + (let ((__tmp170998 (gxc#lambda-form-arity _%L163524%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature162402%_ - __obj169696 - __tmp169866 + _%signature163534%_ + __obj170828 + __tmp170998 '#f)) - __obj169696)))) - (let ((_%__match167543167544%_ - (lambda (_%e162368162409%_ - _%hd162369162412%_ - _%tl162370162414%_) - (let ((_%L162417%_ _%tl162370162414%_)) - (if (gxc#dispatch-lambda-form? _%L162417%_) - (_%__kont167534167535%_ _%L162417%_) - (_%__kont167536167537%_ _%tl162370162414%_)))))) + __obj170828)))) + (let ((_%__match168675168676%_ + (lambda (_%e163500163541%_ + _%hd163501163544%_ + _%tl163502163546%_) + (let ((_%L163549%_ _%tl163502163546%_)) + (if (gxc#dispatch-lambda-form? _%L163549%_) + (_%__kont168666168667%_ _%L163549%_) + (_%__kont168668168669%_ _%tl163502163546%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167532167533%_)) - (let ((_%e162368162409%_ + (gx#stx-pair? _%__stx168664168665%_)) + (let ((_%e163500163541%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167532167533%_)))) - (let ((_%tl162370162414%_ + (gx#stx-e _%__stx168664168665%_)))) + (let ((_%tl163502163546%_ (let () (declare (not safe)) - (##cdr _%e162368162409%_))) - (_%hd162369162412%_ + (##cdr _%e163500163541%_))) + (_%hd163501163544%_ (let () (declare (not safe)) - (##car _%e162368162409%_)))) - (_%__match167543167544%_ - _%e162368162409%_ - _%hd162369162412%_ - _%tl162370162414%_))) - (let () (declare (not safe)) (_%g162365162379%_)))))))) + (##car _%e163500163541%_)))) + (_%__match168675168676%_ + _%e163500163541%_ + _%hd163501163544%_ + _%tl163502163546%_))) + (let () (declare (not safe)) (_%g163497163511%_)))))))) (define gxc#basic-expression-type-lambda% - (lambda (_%self161505%_ _%stx161506%_) - (let* ((_%__stx167552167553%_ _%stx161506%_) - (_%g161511161703%_ + (lambda (_%self162637%_ _%stx162638%_) + (let* ((_%__stx168684168685%_ _%stx162638%_) + (_%g162643162835%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167552167553%_))))) - (let ((_%__kont167554167555%_ - (lambda (_%L162298%_ - _%L162299%_ - _%L162300%_ - _%L162301%_ - _%L162302%_ - _%L162303%_) - (let* ((_%tab162353%_ + _%__stx168684168685%_))))) + (let ((_%__kont168686168687%_ + (lambda (_%L163430%_ + _%L163431%_ + _%L163432%_ + _%L163433%_ + _%L163434%_ + _%L163435%_) + (let* ((_%tab163485%_ (let () (declare (not safe)) - (gx#stx-e _%L162300%_))) - (_%keys162355%_ - (if _%tab162353%_ - (let ((__tmp169867 - (vector->list _%tab162353%_))) + (gx#stx-e _%L163432%_))) + (_%keys163487%_ + (if _%tab163485%_ + (let ((__tmp170999 + (vector->list _%tab163485%_))) (declare (not safe)) - (##filter identity __tmp169867)) + (##filter identity __tmp170999)) '#f)) - (__obj169697 + (__obj170829 (let () (declare (not safe)) (##structure gxc#!kw-lambda::t '#f '#f '#f '#f)))) - (let ((__tmp169868 + (let ((__tmp171000 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162299%_)))) + (gxc#identifier-symbol _%L163431%_)))) (declare (not safe)) (gxc#!kw-lambda:::init! - __obj169697 - _%keys162355%_ - __tmp169868)) - __obj169697))) - (_%__kont167556167557%_ - (lambda (_%L162031%_ - _%L162032%_ - _%L162033%_ - _%L162034%_ - _%L162035%_ - _%L162036%_ - _%L162037%_ - _%L162038%_ - _%L162039%_ - _%L162040%_) - (let ((__obj169698 + __obj170829 + _%keys163487%_ + __tmp171000)) + __obj170829))) + (_%__kont168688168689%_ + (lambda (_%L163163%_ + _%L163164%_ + _%L163165%_ + _%L163166%_ + _%L163167%_ + _%L163168%_ + _%L163169%_ + _%L163170%_ + _%L163171%_ + _%L163172%_) + (let ((__obj170830 (let () (declare (not safe)) (##structure @@ -9164,28 +9164,28 @@ '#f '#f '#f)))) - (let ((__tmp169870 + (let ((__tmp171002 (map gx#stx-e - (let ((__tmp169871 - (lambda (_%g162133162136%_ - _%g162134162138%_) - (cons _%g162133162136%_ - _%g162134162138%_)))) + (let ((__tmp171003 + (lambda (_%g163265163268%_ + _%g163266163270%_) + (cons _%g163265163268%_ + _%g163266163270%_)))) (declare (not safe)) - (__foldr1 __tmp169871 '() _%L162033%_)))) - (__tmp169869 + (__foldr1 __tmp171003 '() _%L163165%_)))) + (__tmp171001 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162037%_)))) + (gxc#identifier-symbol _%L163169%_)))) (declare (not safe)) (gxc#!kw-lambda-primary:::init! - __obj169698 - __tmp169870 - __tmp169869)) - __obj169698))) - (_%__kont167560167561%_ - (lambda (_%L161741%_) - (let ((__obj169699 + __obj170830 + __tmp171002 + __tmp171001)) + __obj170830))) + (_%__kont168692168693%_ + (lambda (_%L162873%_) + (let ((__obj170831 (let () (declare (not safe)) (##structure @@ -9196,22 +9196,22 @@ '#f '#f '#f)))) - (let ((__tmp169873 (gxc#lambda-form-arity _%L161741%_)) - (__tmp169872 - (gxc#dispatch-lambda-form-delegate _%L161741%_))) + (let ((__tmp171005 (gxc#lambda-form-arity _%L162873%_)) + (__tmp171004 + (gxc#dispatch-lambda-form-delegate _%L162873%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj169699 - __tmp169873 - __tmp169872)) - __obj169699))) - (_%__kont167562167563%_ - (lambda (_%L161716%_) - (let* ((_%signature161726%_ - (gxc#lambda-form-infer-signature _%L161716%_)) - (__obj169700 + __obj170831 + __tmp171005 + __tmp171004)) + __obj170831))) + (_%__kont168694168695%_ + (lambda (_%L162848%_) + (let* ((_%signature162858%_ + (gxc#lambda-form-infer-signature _%L162848%_)) + (__obj170832 (let () (declare (not safe)) (##structure @@ -9222,1937 +9222,1937 @@ '#f '#f '#f)))) - (let ((__tmp169874 (gxc#lambda-form-arity _%L161716%_))) + (let ((__tmp171006 (gxc#lambda-form-arity _%L162848%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature161726%_ - __obj169700 - __tmp169874 + _%signature162858%_ + __obj170832 + __tmp171006 '#f)) - __obj169700)))) - (let* ((_%__match167861167862%_ - (lambda (_%e161692161733%_ - _%hd161693161736%_ - _%tl161694161738%_) - (let ((_%L161741%_ _%tl161694161738%_)) - (if (gxc#dispatch-lambda-form? _%L161741%_) - (_%__kont167560167561%_ _%L161741%_) - (_%__kont167562167563%_ _%tl161694161738%_))))) - (_%__match167855167856%_ - (lambda (_%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_ - _%e161589161763%_ - _%hd161590161766%_ - _%tl161591161768%_ - _%e161592161771%_ - _%hd161593161774%_ - _%tl161594161776%_ - _%e161595161779%_ - _%hd161596161782%_ - _%tl161597161784%_ - _%e161598161787%_ - _%hd161599161790%_ - _%tl161600161792%_ - _%e161601161795%_ - _%hd161602161798%_ - _%tl161603161800%_ - _%e161604161803%_ - _%hd161605161806%_ - _%tl161606161808%_ - _%e161607161811%_ - _%hd161608161814%_ - _%tl161609161816%_ - _%e161610161819%_ - _%hd161611161822%_ - _%tl161612161824%_ - _%e161613161827%_ - _%hd161614161830%_ - _%tl161615161832%_ - _%e161616161835%_ - _%hd161617161838%_ - _%tl161618161840%_ - _%e161619161843%_ - _%hd161620161846%_ - _%tl161621161848%_ - _%e161622161851%_ - _%hd161623161854%_ - _%tl161624161856%_ - _%e161625161859%_ - _%hd161626161862%_ - _%tl161627161864%_ - _%__splice167558167559%_ - _%target161628161867%_ - _%tl161630161869%_ - _%e161643161872%_ - _%hd161644161875%_ - _%tl161645161877%_ - _%e161646161880%_ - _%hd161647161883%_ - _%tl161648161885%_ - _%e161649161888%_ - _%hd161650161891%_ - _%tl161651161893%_) - (letrec ((_%loop161631161896%_ - (lambda (_%hd161629161899%_ - _%-absent-value161635161901%_ - _%key161636161903%_ - _%-xkwvar161637161905%_ - _%-hash-ref161638161907%_) + __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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161629161899%_)) - (let ((_%e161632161910%_ + (gx#stx-pair? _%hd162761163031%_)) + (let ((_%e162764163042%_ (let () (declare (not safe)) - (gx#stx-e _%hd161629161899%_)))) - (let ((_%lp-tl161634161915%_ + (gx#stx-e _%hd162761163031%_)))) + (let ((_%lp-tl162766163047%_ (let () (declare (not safe)) - (##cdr _%e161632161910%_))) - (_%lp-hd161633161913%_ + (##cdr _%e162764163042%_))) + (_%lp-hd162765163045%_ (let () (declare (not safe)) - (##car _%e161632161910%_)))) + (##car _%e162764163042%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd161633161913%_)) - (let ((_%e161652161918%_ + _%lp-hd162765163045%_)) + (let ((_%e162784163050%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd161633161913%_)))) - (let ((_%tl161654161923%_ + _%lp-hd162765163045%_)))) + (let ((_%tl162786163055%_ (let () (declare (not safe)) - (##cdr _%e161652161918%_))) - (_%hd161653161921%_ + (##cdr _%e162784163050%_))) + (_%hd162785163053%_ (let () (declare (not safe)) - (##car _%e161652161918%_)))) + (##car _%e162784163050%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd161653161921%_)) + _%hd162785163053%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd161653161921%_)) + _%hd162785163053%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl161654161923%_)) - (let ((_%e161655161926%_ + (gx#stx-pair? _%tl162786163055%_)) + (let ((_%e162787163058%_ (let () (declare (not safe)) - (gx#stx-e _%tl161654161923%_)))) - (let ((_%tl161657161931%_ + (gx#stx-e _%tl162786163055%_)))) + (let ((_%tl162789163063%_ (let () (declare (not safe)) - (##cdr _%e161655161926%_))) - (_%hd161656161929%_ + (##cdr _%e162787163058%_))) + (_%hd162788163061%_ (let () (declare (not safe)) - (##car _%e161655161926%_)))) + (##car _%e162787163058%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161656161929%_)) - (let ((_%e161658161934%_ + (gx#stx-pair? _%hd162788163061%_)) + (let ((_%e162790163066%_ (let () (declare (not safe)) - (gx#stx-e _%hd161656161929%_)))) - (let ((_%tl161660161939%_ + (gx#stx-e _%hd162788163061%_)))) + (let ((_%tl162792163071%_ (let () (declare (not safe)) - (##cdr _%e161658161934%_))) - (_%hd161659161937%_ + (##cdr _%e162790163066%_))) + (_%hd162791163069%_ (let () (declare (not safe)) - (##car _%e161658161934%_)))) + (##car _%e162790163066%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161659161937%_)) + (gx#identifier? _%hd162791163069%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd161659161937%_)) + _%hd162791163069%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161660161939%_)) - (let ((_%e161661161942%_ + _%tl162792163071%_)) + (let ((_%e162793163074%_ (let () (declare (not safe)) (gx#stx-e - _%tl161660161939%_)))) - (let ((_%tl161663161947%_ + _%tl162792163071%_)))) + (let ((_%tl162795163079%_ (let () (declare (not safe)) - (##cdr _%e161661161942%_))) - (_%hd161662161945%_ + (##cdr _%e162793163074%_))) + (_%hd162794163077%_ (let () (declare (not safe)) - (##car _%e161661161942%_)))) + (##car _%e162793163074%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161663161947%_)) + _%tl162795163079%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161657161931%_)) - (let ((_%e161664161950%_ + _%tl162789163063%_)) + (let ((_%e162796163082%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl161657161931%_)))) - (let ((_%tl161666161955%_ + (gx#stx-e _%tl162789163063%_)))) + (let ((_%tl162798163087%_ (let () (declare (not safe)) - (##cdr _%e161664161950%_))) - (_%hd161665161953%_ + (##cdr _%e162796163082%_))) + (_%hd162797163085%_ (let () (declare (not safe)) - (##car _%e161664161950%_)))) + (##car _%e162796163082%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161665161953%_)) - (let ((_%e161667161958%_ + (gx#stx-pair? _%hd162797163085%_)) + (let ((_%e162799163090%_ (let () (declare (not safe)) - (gx#stx-e _%hd161665161953%_)))) - (let ((_%tl161669161963%_ + (gx#stx-e _%hd162797163085%_)))) + (let ((_%tl162801163095%_ (let () (declare (not safe)) - (##cdr _%e161667161958%_))) - (_%hd161668161961%_ + (##cdr _%e162799163090%_))) + (_%hd162800163093%_ (let () (declare (not safe)) - (##car _%e161667161958%_)))) + (##car _%e162799163090%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161668161961%_)) + (gx#identifier? _%hd162800163093%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161668161961%_)) + (gx#stx-eq? '%#ref _%hd162800163093%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161669161963%_)) - (let ((_%e161670161966%_ + (gx#stx-pair? _%tl162801163095%_)) + (let ((_%e162802163098%_ (let () (declare (not safe)) (gx#stx-e - _%tl161669161963%_)))) - (let ((_%tl161672161971%_ + _%tl162801163095%_)))) + (let ((_%tl162804163103%_ (let () (declare (not safe)) - (##cdr _%e161670161966%_))) - (_%hd161671161969%_ + (##cdr _%e162802163098%_))) + (_%hd162803163101%_ (let () (declare (not safe)) - (##car _%e161670161966%_)))) + (##car _%e162802163098%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161672161971%_)) + _%tl162804163103%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161666161955%_)) - (let ((_%e161673161974%_ + _%tl162798163087%_)) + (let ((_%e162805163106%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl161666161955%_)))) - (let ((_%tl161675161979%_ - (let () (declare (not safe)) (##cdr _%e161673161974%_))) - (_%hd161674161977%_ + (gx#stx-e _%tl162798163087%_)))) + (let ((_%tl162807163111%_ + (let () (declare (not safe)) (##cdr _%e162805163106%_))) + (_%hd162806163109%_ (let () (declare (not safe)) - (##car _%e161673161974%_)))) + (##car _%e162805163106%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161674161977%_)) - (let ((_%e161676161982%_ + (gx#stx-pair? _%hd162806163109%_)) + (let ((_%e162808163114%_ (let () (declare (not safe)) - (gx#stx-e _%hd161674161977%_)))) - (let ((_%tl161678161987%_ + (gx#stx-e _%hd162806163109%_)))) + (let ((_%tl162810163119%_ (let () (declare (not safe)) - (##cdr _%e161676161982%_))) - (_%hd161677161985%_ + (##cdr _%e162808163114%_))) + (_%hd162809163117%_ (let () (declare (not safe)) - (##car _%e161676161982%_)))) + (##car _%e162808163114%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161677161985%_)) + (gx#identifier? _%hd162809163117%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd161677161985%_)) + (gx#stx-eq? '%#quote _%hd162809163117%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161678161987%_)) - (let ((_%e161679161990%_ + (gx#stx-pair? _%tl162810163119%_)) + (let ((_%e162811163122%_ (let () (declare (not safe)) - (gx#stx-e _%tl161678161987%_)))) - (let ((_%tl161681161995%_ + (gx#stx-e _%tl162810163119%_)))) + (let ((_%tl162813163127%_ (let () (declare (not safe)) - (##cdr _%e161679161990%_))) - (_%hd161680161993%_ + (##cdr _%e162811163122%_))) + (_%hd162812163125%_ (let () (declare (not safe)) - (##car _%e161679161990%_)))) + (##car _%e162811163122%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161681161995%_)) + _%tl162813163127%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161675161979%_)) - (let ((_%e161682161998%_ + _%tl162807163111%_)) + (let ((_%e162814163130%_ (let () (declare (not safe)) (gx#stx-e - _%tl161675161979%_)))) - (let ((_%tl161684162003%_ + _%tl162807163111%_)))) + (let ((_%tl162816163135%_ (let () (declare (not safe)) - (##cdr _%e161682161998%_))) - (_%hd161683162001%_ + (##cdr _%e162814163130%_))) + (_%hd162815163133%_ (let () (declare (not safe)) - (##car _%e161682161998%_)))) + (##car _%e162814163130%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd161683162001%_)) - (let ((_%e161685162006%_ + _%hd162815163133%_)) + (let ((_%e162817163138%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd161683162001%_)))) - (let ((_%tl161687162011%_ + (gx#stx-e _%hd162815163133%_)))) + (let ((_%tl162819163143%_ (let () (declare (not safe)) - (##cdr _%e161685162006%_))) - (_%hd161686162009%_ + (##cdr _%e162817163138%_))) + (_%hd162818163141%_ (let () (declare (not safe)) - (##car _%e161685162006%_)))) + (##car _%e162817163138%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161686162009%_)) + (gx#identifier? _%hd162818163141%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161686162009%_)) + (gx#stx-eq? '%#ref _%hd162818163141%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161687162011%_)) - (let ((_%e161688162014%_ + (gx#stx-pair? _%tl162819163143%_)) + (let ((_%e162820163146%_ (let () (declare (not safe)) - (gx#stx-e _%tl161687162011%_)))) - (let ((_%tl161690162019%_ + (gx#stx-e _%tl162819163143%_)))) + (let ((_%tl162822163151%_ (let () (declare (not safe)) - (##cdr _%e161688162014%_))) - (_%hd161689162017%_ + (##cdr _%e162820163146%_))) + (_%hd162821163149%_ (let () (declare (not safe)) - (##car _%e161688162014%_)))) + (##car _%e162820163146%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161690162019%_)) + (gx#stx-null? _%tl162822163151%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161684162003%_)) - (_%loop161631161896%_ - _%lp-tl161634161915%_ - (cons _%hd161689162017%_ - _%-absent-value161635161901%_) - (cons _%hd161680161993%_ - _%key161636161903%_) - (cons _%hd161671161969%_ - _%-xkwvar161637161905%_) - (cons _%hd161662161945%_ - _%-hash-ref161638161907%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) + (_%__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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (let ((_%-hash-ref161642162028%_ - (reverse _%-hash-ref161638161907%_)) - (_%-xkwvar161641162026%_ - (reverse _%-xkwvar161637161905%_)) - (_%key161640162024%_ - (reverse _%key161636161903%_)) - (_%-absent-value161639162022%_ - (reverse _%-absent-value161635161901%_))) + (_%__match168993168994%_ + _%e162718162887%_ + _%hd162719162890%_ + _%tl162720162892%_)))) + (let ((_%-hash-ref162774163160%_ + (reverse _%-hash-ref162770163039%_)) + (_%-xkwvar162773163158%_ + (reverse _%-xkwvar162769163037%_)) + (_%key162772163156%_ + (reverse _%key162768163035%_)) + (_%-absent-value162771163154%_ + (reverse _%-absent-value162767163033%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161597161784%_)) - (let ((_%L162031%_ - _%hd161650161891%_) - (_%L162032%_ - _%-absent-value161639162022%_) - (_%L162033%_ - _%key161640162024%_) - (_%L162034%_ - _%-xkwvar161641162026%_) - (_%L162035%_ - _%-hash-ref161642162028%_) - (_%L162036%_ - _%hd161626161862%_) - (_%L162037%_ - _%hd161617161838%_) - (_%L162038%_ - _%hd161608161814%_) - (_%L162039%_ - _%tl161594161776%_) - (_%L162040%_ - _%hd161593161774%_)) + _%tl162729162916%_)) + (let ((_%L163163%_ + _%hd162782163023%_) + (_%L163164%_ + _%-absent-value162771163154%_) + (_%L163165%_ + _%key162772163156%_) + (_%L163166%_ + _%-xkwvar162773163158%_) + (_%L163167%_ + _%-hash-ref162774163160%_) + (_%L163168%_ + _%hd162758162994%_) + (_%L163169%_ + _%hd162749162970%_) + (_%L163170%_ + _%hd162740162946%_) + (_%L163171%_ + _%tl162726162908%_) + (_%L163172%_ + _%hd162725162906%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L162040%_)) + _%L163172%_)) (let () (declare (not safe)) (gx#identifier? - _%L162039%_)) + _%L163171%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L162038%_ + _%L163170%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L162040%_ - _%L162036%_)) - (let ((__tmp169875 - (let ((__tmp169876 + _%L163172%_ + _%L163168%_)) + (let ((__tmp171007 + (let ((__tmp171008 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g162093162096%_ _%g162094162098%_) - (cons _%g162093162096%_ _%g162094162098%_)))) + (lambda (_%g163225163228%_ _%g163226163230%_) + (cons _%g163225163228%_ _%g163226163230%_)))) (declare (not safe)) - (__foldr1 __tmp169876 '() _%L162033%_)))) + (__foldr1 __tmp171008 '() _%L163165%_)))) (declare (not safe)) - (__andmap1 gx#stx-keyword? __tmp169875)) - (let ((__tmp169879 - (lambda (_%g162100162102%_) + (__andmap1 gx#stx-keyword? __tmp171007)) + (let ((__tmp171011 + (lambda (_%g163232163234%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g162100162102%_ + _%g163232163234%_ 'symbolic-table-ref)))) - (__tmp169877 - (let ((__tmp169878 - (lambda (_%g162104162107%_ _%g162105162109%_) - (cons _%g162104162107%_ _%g162105162109%_)))) + (__tmp171009 + (let ((__tmp171010 + (lambda (_%g163236163239%_ _%g163237163241%_) + (cons _%g163236163239%_ _%g163237163241%_)))) (declare (not safe)) - (__foldr1 __tmp169878 '() _%L162035%_)))) + (__foldr1 __tmp171010 '() _%L163167%_)))) (declare (not safe)) - (__andmap1 __tmp169879 __tmp169877)) - (let ((__tmp169882 - (lambda (_%g162111162113%_) + (__andmap1 __tmp171011 __tmp171009)) + (let ((__tmp171014 + (lambda (_%g163243163245%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g162111162113%_ + _%g163243163245%_ 'absent-value)))) - (__tmp169880 - (let ((__tmp169881 - (lambda (_%g162115162118%_ _%g162116162120%_) - (cons _%g162115162118%_ _%g162116162120%_)))) + (__tmp171012 + (let ((__tmp171013 + (lambda (_%g163247163250%_ _%g163248163252%_) + (cons _%g163247163250%_ _%g163248163252%_)))) (declare (not safe)) - (__foldr1 __tmp169881 '() _%L162032%_)))) + (__foldr1 __tmp171013 '() _%L163164%_)))) (declare (not safe)) - (__andmap1 __tmp169882 __tmp169880)) - (let ((__tmp169885 - (lambda (_%g162122162124%_) + (__andmap1 __tmp171014 __tmp171012)) + (let ((__tmp171017 + (lambda (_%g163254163256%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g162122162124%_ - _%L162040%_)))) - (__tmp169883 - (let ((__tmp169884 - (lambda (_%g162126162129%_ _%g162127162131%_) - (cons _%g162126162129%_ _%g162127162131%_)))) + _%g163254163256%_ + _%L163172%_)))) + (__tmp171015 + (let ((__tmp171016 + (lambda (_%g163258163261%_ _%g163259163263%_) + (cons _%g163258163261%_ _%g163259163263%_)))) (declare (not safe)) - (__foldr1 __tmp169884 '() _%L162034%_)))) + (__foldr1 __tmp171016 '() _%L163166%_)))) (declare (not safe)) - (__andmap1 __tmp169885 __tmp169883))) + (__andmap1 __tmp171017 __tmp171015))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont167556167557%_ - _%L162031%_ - _%L162032%_ - _%L162033%_ - _%L162034%_ - _%L162035%_ - _%L162036%_ - _%L162037%_ - _%L162038%_ - _%L162039%_ - _%L162040%_) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_))))))) - (_%loop161631161896%_ - _%target161628161867%_ + (_%__kont168688168689%_ + _%L163163%_ + _%L163164%_ + _%L163165%_ + _%L163166%_ + _%L163167%_ + _%L163168%_ + _%L163169%_ + _%L163170%_ + _%L163171%_ + _%L163172%_) + (_%__match168993168994%_ + _%e162718162887%_ + _%hd162719162890%_ + _%tl162720162892%_))) + (_%__match168993168994%_ + _%e162718162887%_ + _%hd162719162890%_ + _%tl162720162892%_))))))) + (_%loop162763163028%_ + _%target162760162999%_ '() '() '() '())))) - (_%__match167727167728%_ - (lambda (_%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_ - _%e161589161763%_ - _%hd161590161766%_ - _%tl161591161768%_) + (_%__match168859168860%_ + (lambda (_%e162718162887%_ + _%hd162719162890%_ + _%tl162720162892%_ + _%e162721162895%_ + _%hd162722162898%_ + _%tl162723162900%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161590161766%_)) - (let ((_%e161592161771%_ + (gx#stx-pair? _%hd162722162898%_)) + (let ((_%e162724162903%_ (let () (declare (not safe)) - (gx#stx-e _%hd161590161766%_)))) - (let ((_%tl161594161776%_ + (gx#stx-e _%hd162722162898%_)))) + (let ((_%tl162726162908%_ (let () (declare (not safe)) - (##cdr _%e161592161771%_))) - (_%hd161593161774%_ + (##cdr _%e162724162903%_))) + (_%hd162725162906%_ (let () (declare (not safe)) - (##car _%e161592161771%_)))) + (##car _%e162724162903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161591161768%_)) - (let ((_%e161595161779%_ + (gx#stx-pair? _%tl162723162900%_)) + (let ((_%e162727162911%_ (let () (declare (not safe)) - (gx#stx-e _%tl161591161768%_)))) - (let ((_%tl161597161784%_ + (gx#stx-e _%tl162723162900%_)))) + (let ((_%tl162729162916%_ (let () (declare (not safe)) - (##cdr _%e161595161779%_))) - (_%hd161596161782%_ + (##cdr _%e162727162911%_))) + (_%hd162728162914%_ (let () (declare (not safe)) - (##car _%e161595161779%_)))) + (##car _%e162727162911%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161596161782%_)) - (let ((_%e161598161787%_ + (gx#stx-pair? _%hd162728162914%_)) + (let ((_%e162730162919%_ (let () (declare (not safe)) (gx#stx-e - _%hd161596161782%_)))) - (let ((_%tl161600161792%_ + _%hd162728162914%_)))) + (let ((_%tl162732162924%_ (let () (declare (not safe)) - (##cdr _%e161598161787%_))) - (_%hd161599161790%_ + (##cdr _%e162730162919%_))) + (_%hd162731162922%_ (let () (declare (not safe)) - (##car _%e161598161787%_)))) + (##car _%e162730162919%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd161599161790%_)) + _%hd162731162922%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd161599161790%_)) + _%hd162731162922%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161600161792%_)) - (let ((_%e161601161795%_ + _%tl162732162924%_)) + (let ((_%e162733162927%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl161600161792%_)))) - (let ((_%tl161603161800%_ + (gx#stx-e _%tl162732162924%_)))) + (let ((_%tl162735162932%_ (let () (declare (not safe)) - (##cdr _%e161601161795%_))) - (_%hd161602161798%_ + (##cdr _%e162733162927%_))) + (_%hd162734162930%_ (let () (declare (not safe)) - (##car _%e161601161795%_)))) + (##car _%e162733162927%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161602161798%_)) - (let ((_%e161604161803%_ + (gx#stx-pair? _%hd162734162930%_)) + (let ((_%e162736162935%_ (let () (declare (not safe)) - (gx#stx-e _%hd161602161798%_)))) - (let ((_%tl161606161808%_ + (gx#stx-e _%hd162734162930%_)))) + (let ((_%tl162738162940%_ (let () (declare (not safe)) - (##cdr _%e161604161803%_))) - (_%hd161605161806%_ + (##cdr _%e162736162935%_))) + (_%hd162737162938%_ (let () (declare (not safe)) - (##car _%e161604161803%_)))) + (##car _%e162736162935%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161605161806%_)) + (gx#identifier? _%hd162737162938%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161605161806%_)) + (gx#stx-eq? '%#ref _%hd162737162938%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161606161808%_)) - (let ((_%e161607161811%_ + (gx#stx-pair? _%tl162738162940%_)) + (let ((_%e162739162943%_ (let () (declare (not safe)) (gx#stx-e - _%tl161606161808%_)))) - (let ((_%tl161609161816%_ + _%tl162738162940%_)))) + (let ((_%tl162741162948%_ (let () (declare (not safe)) - (##cdr _%e161607161811%_))) - (_%hd161608161814%_ + (##cdr _%e162739162943%_))) + (_%hd162740162946%_ (let () (declare (not safe)) - (##car _%e161607161811%_)))) + (##car _%e162739162943%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161609161816%_)) + _%tl162741162948%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161603161800%_)) - (let ((_%e161610161819%_ + _%tl162735162932%_)) + (let ((_%e162742162951%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl161603161800%_)))) - (let ((_%tl161612161824%_ - (let () (declare (not safe)) (##cdr _%e161610161819%_))) - (_%hd161611161822%_ + (gx#stx-e _%tl162735162932%_)))) + (let ((_%tl162744162956%_ + (let () (declare (not safe)) (##cdr _%e162742162951%_))) + (_%hd162743162954%_ (let () (declare (not safe)) - (##car _%e161610161819%_)))) + (##car _%e162742162951%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161611161822%_)) - (let ((_%e161613161827%_ + (gx#stx-pair? _%hd162743162954%_)) + (let ((_%e162745162959%_ (let () (declare (not safe)) - (gx#stx-e _%hd161611161822%_)))) - (let ((_%tl161615161832%_ + (gx#stx-e _%hd162743162954%_)))) + (let ((_%tl162747162964%_ (let () (declare (not safe)) - (##cdr _%e161613161827%_))) - (_%hd161614161830%_ + (##cdr _%e162745162959%_))) + (_%hd162746162962%_ (let () (declare (not safe)) - (##car _%e161613161827%_)))) + (##car _%e162745162959%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161614161830%_)) + (gx#identifier? _%hd162746162962%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161614161830%_)) + (gx#stx-eq? '%#ref _%hd162746162962%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161615161832%_)) - (let ((_%e161616161835%_ + (gx#stx-pair? _%tl162747162964%_)) + (let ((_%e162748162967%_ (let () (declare (not safe)) - (gx#stx-e _%tl161615161832%_)))) - (let ((_%tl161618161840%_ + (gx#stx-e _%tl162747162964%_)))) + (let ((_%tl162750162972%_ (let () (declare (not safe)) - (##cdr _%e161616161835%_))) - (_%hd161617161838%_ + (##cdr _%e162748162967%_))) + (_%hd162749162970%_ (let () (declare (not safe)) - (##car _%e161616161835%_)))) + (##car _%e162748162967%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161618161840%_)) + _%tl162750162972%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161612161824%_)) - (let ((_%e161619161843%_ + _%tl162744162956%_)) + (let ((_%e162751162975%_ (let () (declare (not safe)) (gx#stx-e - _%tl161612161824%_)))) - (let ((_%tl161621161848%_ + _%tl162744162956%_)))) + (let ((_%tl162753162980%_ (let () (declare (not safe)) - (##cdr _%e161619161843%_))) - (_%hd161620161846%_ + (##cdr _%e162751162975%_))) + (_%hd162752162978%_ (let () (declare (not safe)) - (##car _%e161619161843%_)))) + (##car _%e162751162975%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd161620161846%_)) - (let ((_%e161622161851%_ + _%hd162752162978%_)) + (let ((_%e162754162983%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd161620161846%_)))) - (let ((_%tl161624161856%_ + (gx#stx-e _%hd162752162978%_)))) + (let ((_%tl162756162988%_ (let () (declare (not safe)) - (##cdr _%e161622161851%_))) - (_%hd161623161854%_ + (##cdr _%e162754162983%_))) + (_%hd162755162986%_ (let () (declare (not safe)) - (##car _%e161622161851%_)))) + (##car _%e162754162983%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161623161854%_)) + (gx#identifier? _%hd162755162986%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161623161854%_)) + (gx#stx-eq? '%#ref _%hd162755162986%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161624161856%_)) - (let ((_%e161625161859%_ + (gx#stx-pair? _%tl162756162988%_)) + (let ((_%e162757162991%_ (let () (declare (not safe)) - (gx#stx-e _%tl161624161856%_)))) - (let ((_%tl161627161864%_ + (gx#stx-e _%tl162756162988%_)))) + (let ((_%tl162759162996%_ (let () (declare (not safe)) - (##cdr _%e161625161859%_))) - (_%hd161626161862%_ + (##cdr _%e162757162991%_))) + (_%hd162758162994%_ (let () (declare (not safe)) - (##car _%e161625161859%_)))) + (##car _%e162757162991%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161627161864%_)) + (gx#stx-null? _%tl162759162996%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161621161848%_)) - (if (let ((__tmp169886 + _%tl162753162980%_)) + (if (let ((__tmp171018 (let () (declare (not safe)) (gx#stx-length - _%tl161621161848%_)))) + _%tl162753162980%_)))) (declare (not safe)) - (##fx>= __tmp169886 '1)) - (let ((_%__splice167558167559%_ + (##fx>= __tmp171018 '1)) + (let ((_%__splice168690168691%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161621161848%_ + _%tl162753162980%_ '1)))) - (let ((_%tl161630161869%_ + (let ((_%tl162762163001%_ (let () (declare (not safe)) (##vector-ref - _%__splice167558167559%_ + _%__splice168690168691%_ '1))) - (_%target161628161867%_ + (_%target162760162999%_ (let () (declare (not safe)) (##vector-ref - _%__splice167558167559%_ + _%__splice168690168691%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161630161869%_)) - (let ((_%e161643161872%_ + _%tl162762163001%_)) + (let ((_%e162775163004%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl161630161869%_)))) - (let ((_%tl161645161877%_ + (gx#stx-e _%tl162762163001%_)))) + (let ((_%tl162777163009%_ (let () (declare (not safe)) - (##cdr _%e161643161872%_))) - (_%hd161644161875%_ + (##cdr _%e162775163004%_))) + (_%hd162776163007%_ (let () (declare (not safe)) - (##car _%e161643161872%_)))) + (##car _%e162775163004%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161644161875%_)) - (let ((_%e161646161880%_ + (gx#stx-pair? _%hd162776163007%_)) + (let ((_%e162778163012%_ (let () (declare (not safe)) - (gx#stx-e _%hd161644161875%_)))) - (let ((_%tl161648161885%_ + (gx#stx-e _%hd162776163007%_)))) + (let ((_%tl162780163017%_ (let () (declare (not safe)) - (##cdr _%e161646161880%_))) - (_%hd161647161883%_ + (##cdr _%e162778163012%_))) + (_%hd162779163015%_ (let () (declare (not safe)) - (##car _%e161646161880%_)))) + (##car _%e162778163012%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161647161883%_)) + (gx#identifier? _%hd162779163015%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161647161883%_)) + (gx#stx-eq? '%#ref _%hd162779163015%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161648161885%_)) - (let ((_%e161649161888%_ + (gx#stx-pair? _%tl162780163017%_)) + (let ((_%e162781163020%_ (let () (declare (not safe)) (gx#stx-e - _%tl161648161885%_)))) - (let ((_%tl161651161893%_ + _%tl162780163017%_)))) + (let ((_%tl162783163025%_ (let () (declare (not safe)) - (##cdr _%e161649161888%_))) - (_%hd161650161891%_ + (##cdr _%e162781163020%_))) + (_%hd162782163023%_ (let () (declare (not safe)) - (##car _%e161649161888%_)))) + (##car _%e162781163020%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161651161893%_)) + _%tl162783163025%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161645161877%_)) - (_%__match167855167856%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_ - _%e161589161763%_ - _%hd161590161766%_ - _%tl161591161768%_ - _%e161592161771%_ - _%hd161593161774%_ - _%tl161594161776%_ - _%e161595161779%_ - _%hd161596161782%_ - _%tl161597161784%_ - _%e161598161787%_ - _%hd161599161790%_ - _%tl161600161792%_ - _%e161601161795%_ - _%hd161602161798%_ - _%tl161603161800%_ - _%e161604161803%_ - _%hd161605161806%_ - _%tl161606161808%_ - _%e161607161811%_ - _%hd161608161814%_ - _%tl161609161816%_ - _%e161610161819%_ - _%hd161611161822%_ - _%tl161612161824%_ - _%e161613161827%_ - _%hd161614161830%_ - _%tl161615161832%_ - _%e161616161835%_ - _%hd161617161838%_ - _%tl161618161840%_ - _%e161619161843%_ - _%hd161620161846%_ - _%tl161621161848%_ - _%e161622161851%_ - _%hd161623161854%_ - _%tl161624161856%_ - _%e161625161859%_ - _%hd161626161862%_ - _%tl161627161864%_ - _%__splice167558167559%_ - _%target161628161867%_ - _%tl161630161869%_ - _%e161643161872%_ - _%hd161644161875%_ - _%tl161645161877%_ - _%e161646161880%_ - _%hd161647161883%_ - _%tl161648161885%_ - _%e161649161888%_ - _%hd161650161891%_ - _%tl161651161893%_) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) + (_%__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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)) + (_%__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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167861167862%_ - _%e161586161755%_ - _%hd161587161758%_ - _%tl161588161760%_)))) - (_%__match167715167716%_ - (lambda (_%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_ - _%e161525162162%_ - _%hd161526162165%_ - _%tl161527162167%_ - _%e161528162170%_ - _%hd161529162173%_ - _%tl161530162175%_ - _%e161531162178%_ - _%hd161532162181%_ - _%tl161533162183%_ - _%e161534162186%_ - _%hd161535162189%_ - _%tl161536162191%_ - _%e161537162194%_ - _%hd161538162197%_ - _%tl161539162199%_ - _%e161540162202%_ - _%hd161541162205%_ - _%tl161542162207%_ - _%e161543162210%_ - _%hd161544162213%_ - _%tl161545162215%_ - _%e161546162218%_ - _%hd161547162221%_ - _%tl161548162223%_ - _%e161549162226%_ - _%hd161550162229%_ - _%tl161551162231%_ - _%e161552162234%_ - _%hd161553162237%_ - _%tl161554162239%_ - _%e161555162242%_ - _%hd161556162245%_ - _%tl161557162247%_ - _%e161558162250%_ - _%hd161559162253%_ - _%tl161560162255%_ - _%e161561162258%_ - _%hd161562162261%_ - _%tl161563162263%_ - _%e161564162266%_ - _%hd161565162269%_ - _%tl161566162271%_ - _%e161567162274%_ - _%hd161568162277%_ - _%tl161569162279%_ - _%e161570162282%_ - _%hd161571162285%_ - _%tl161572162287%_ - _%e161573162290%_ - _%hd161574162293%_ - _%tl161575162295%_) - (let ((_%L162298%_ _%hd161574162293%_) - (_%L162299%_ _%hd161565162269%_) - (_%L162300%_ _%hd161556162245%_) - (_%L162301%_ _%hd161547162221%_) - (_%L162302%_ _%hd161538162197%_) - (_%L162303%_ _%hd161523162157%_)) + (_%__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%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L162303%_)) + (gx#identifier? _%L163435%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L162302%_ + _%L163434%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L162301%_ + _%L163433%_ 'keyword-dispatch)) (let () (declare (not safe)) (gx#free-identifier=? - _%L162303%_ - _%L162298%_))) - (_%__kont167554167555%_ - _%L162298%_ - _%L162299%_ - _%L162300%_ - _%L162301%_ - _%L162302%_ - _%L162303%_) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))))) + _%L163435%_ + _%L163430%_))) + (_%__kont168686168687%_ + _%L163430%_ + _%L163431%_ + _%L163432%_ + _%L163433%_ + _%L163434%_ + _%L163435%_) + (_%__match168859168860%_ + _%e162651163278%_ + _%hd162652163281%_ + _%tl162653163283%_ + _%e162654163286%_ + _%hd162655163289%_ + _%tl162656163291%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167552167553%_)) - (let ((_%e161519162146%_ + (gx#stx-pair? _%__stx168684168685%_)) + (let ((_%e162651163278%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167552167553%_)))) - (let ((_%tl161521162151%_ + (gx#stx-e _%__stx168684168685%_)))) + (let ((_%tl162653163283%_ (let () (declare (not safe)) - (##cdr _%e161519162146%_))) - (_%hd161520162149%_ + (##cdr _%e162651163278%_))) + (_%hd162652163281%_ (let () (declare (not safe)) - (##car _%e161519162146%_)))) + (##car _%e162651163278%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161521162151%_)) - (let ((_%e161522162154%_ + (gx#stx-pair? _%tl162653163283%_)) + (let ((_%e162654163286%_ (let () (declare (not safe)) - (gx#stx-e _%tl161521162151%_)))) - (let ((_%tl161524162159%_ + (gx#stx-e _%tl162653163283%_)))) + (let ((_%tl162656163291%_ (let () (declare (not safe)) - (##cdr _%e161522162154%_))) - (_%hd161523162157%_ + (##cdr _%e162654163286%_))) + (_%hd162655163289%_ (let () (declare (not safe)) - (##car _%e161522162154%_)))) + (##car _%e162654163286%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161524162159%_)) - (let ((_%e161525162162%_ + (gx#stx-pair? _%tl162656163291%_)) + (let ((_%e162657163294%_ (let () (declare (not safe)) - (gx#stx-e _%tl161524162159%_)))) - (let ((_%tl161527162167%_ + (gx#stx-e _%tl162656163291%_)))) + (let ((_%tl162659163299%_ (let () (declare (not safe)) - (##cdr _%e161525162162%_))) - (_%hd161526162165%_ + (##cdr _%e162657163294%_))) + (_%hd162658163297%_ (let () (declare (not safe)) - (##car _%e161525162162%_)))) + (##car _%e162657163294%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161526162165%_)) - (let ((_%e161528162170%_ + (gx#stx-pair? _%hd162658163297%_)) + (let ((_%e162660163302%_ (let () (declare (not safe)) (gx#stx-e - _%hd161526162165%_)))) - (let ((_%tl161530162175%_ + _%hd162658163297%_)))) + (let ((_%tl162662163307%_ (let () (declare (not safe)) - (##cdr _%e161528162170%_))) - (_%hd161529162173%_ + (##cdr _%e162660163302%_))) + (_%hd162661163305%_ (let () (declare (not safe)) - (##car _%e161528162170%_)))) + (##car _%e162660163302%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd161529162173%_)) + _%hd162661163305%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd161529162173%_)) + _%hd162661163305%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161530162175%_)) - (let ((_%e161531162178%_ + _%tl162662163307%_)) + (let ((_%e162663163310%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl161530162175%_)))) - (let ((_%tl161533162183%_ + (gx#stx-e _%tl162662163307%_)))) + (let ((_%tl162665163315%_ (let () (declare (not safe)) - (##cdr _%e161531162178%_))) - (_%hd161532162181%_ + (##cdr _%e162663163310%_))) + (_%hd162664163313%_ (let () (declare (not safe)) - (##car _%e161531162178%_)))) + (##car _%e162663163310%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161532162181%_)) - (let ((_%e161534162186%_ + (gx#stx-pair? _%hd162664163313%_)) + (let ((_%e162666163318%_ (let () (declare (not safe)) - (gx#stx-e _%hd161532162181%_)))) - (let ((_%tl161536162191%_ + (gx#stx-e _%hd162664163313%_)))) + (let ((_%tl162668163323%_ (let () (declare (not safe)) - (##cdr _%e161534162186%_))) - (_%hd161535162189%_ + (##cdr _%e162666163318%_))) + (_%hd162667163321%_ (let () (declare (not safe)) - (##car _%e161534162186%_)))) + (##car _%e162666163318%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161535162189%_)) + (gx#identifier? _%hd162667163321%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161535162189%_)) + (gx#stx-eq? '%#ref _%hd162667163321%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161536162191%_)) - (let ((_%e161537162194%_ + (gx#stx-pair? _%tl162668163323%_)) + (let ((_%e162669163326%_ (let () (declare (not safe)) (gx#stx-e - _%tl161536162191%_)))) - (let ((_%tl161539162199%_ + _%tl162668163323%_)))) + (let ((_%tl162671163331%_ (let () (declare (not safe)) - (##cdr _%e161537162194%_))) - (_%hd161538162197%_ + (##cdr _%e162669163326%_))) + (_%hd162670163329%_ (let () (declare (not safe)) - (##car _%e161537162194%_)))) + (##car _%e162669163326%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161539162199%_)) + _%tl162671163331%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161533162183%_)) - (let ((_%e161540162202%_ + _%tl162665163315%_)) + (let ((_%e162672163334%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl161533162183%_)))) - (let ((_%tl161542162207%_ - (let () (declare (not safe)) (##cdr _%e161540162202%_))) - (_%hd161541162205%_ + (gx#stx-e _%tl162665163315%_)))) + (let ((_%tl162674163339%_ + (let () (declare (not safe)) (##cdr _%e162672163334%_))) + (_%hd162673163337%_ (let () (declare (not safe)) - (##car _%e161540162202%_)))) + (##car _%e162672163334%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161541162205%_)) - (let ((_%e161543162210%_ + (gx#stx-pair? _%hd162673163337%_)) + (let ((_%e162675163342%_ (let () (declare (not safe)) - (gx#stx-e _%hd161541162205%_)))) - (let ((_%tl161545162215%_ + (gx#stx-e _%hd162673163337%_)))) + (let ((_%tl162677163347%_ (let () (declare (not safe)) - (##cdr _%e161543162210%_))) - (_%hd161544162213%_ + (##cdr _%e162675163342%_))) + (_%hd162676163345%_ (let () (declare (not safe)) - (##car _%e161543162210%_)))) + (##car _%e162675163342%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161544162213%_)) + (gx#identifier? _%hd162676163345%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161544162213%_)) + (gx#stx-eq? '%#ref _%hd162676163345%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161545162215%_)) - (let ((_%e161546162218%_ + (gx#stx-pair? _%tl162677163347%_)) + (let ((_%e162678163350%_ (let () (declare (not safe)) - (gx#stx-e _%tl161545162215%_)))) - (let ((_%tl161548162223%_ + (gx#stx-e _%tl162677163347%_)))) + (let ((_%tl162680163355%_ (let () (declare (not safe)) - (##cdr _%e161546162218%_))) - (_%hd161547162221%_ + (##cdr _%e162678163350%_))) + (_%hd162679163353%_ (let () (declare (not safe)) - (##car _%e161546162218%_)))) + (##car _%e162678163350%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161548162223%_)) + _%tl162680163355%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161542162207%_)) - (let ((_%e161549162226%_ + _%tl162674163339%_)) + (let ((_%e162681163358%_ (let () (declare (not safe)) (gx#stx-e - _%tl161542162207%_)))) - (let ((_%tl161551162231%_ + _%tl162674163339%_)))) + (let ((_%tl162683163363%_ (let () (declare (not safe)) - (##cdr _%e161549162226%_))) - (_%hd161550162229%_ + (##cdr _%e162681163358%_))) + (_%hd162682163361%_ (let () (declare (not safe)) - (##car _%e161549162226%_)))) + (##car _%e162681163358%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd161550162229%_)) - (let ((_%e161552162234%_ + _%hd162682163361%_)) + (let ((_%e162684163366%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd161550162229%_)))) - (let ((_%tl161554162239%_ + (gx#stx-e _%hd162682163361%_)))) + (let ((_%tl162686163371%_ (let () (declare (not safe)) - (##cdr _%e161552162234%_))) - (_%hd161553162237%_ + (##cdr _%e162684163366%_))) + (_%hd162685163369%_ (let () (declare (not safe)) - (##car _%e161552162234%_)))) + (##car _%e162684163366%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161553162237%_)) + (gx#identifier? _%hd162685163369%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd161553162237%_)) + (gx#stx-eq? '%#quote _%hd162685163369%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161554162239%_)) - (let ((_%e161555162242%_ + (gx#stx-pair? _%tl162686163371%_)) + (let ((_%e162687163374%_ (let () (declare (not safe)) - (gx#stx-e _%tl161554162239%_)))) - (let ((_%tl161557162247%_ + (gx#stx-e _%tl162686163371%_)))) + (let ((_%tl162689163379%_ (let () (declare (not safe)) - (##cdr _%e161555162242%_))) - (_%hd161556162245%_ + (##cdr _%e162687163374%_))) + (_%hd162688163377%_ (let () (declare (not safe)) - (##car _%e161555162242%_)))) + (##car _%e162687163374%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161557162247%_)) + (gx#stx-null? _%tl162689163379%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161551162231%_)) - (let ((_%e161558162250%_ + _%tl162683163363%_)) + (let ((_%e162690163382%_ (let () (declare (not safe)) (gx#stx-e - _%tl161551162231%_)))) - (let ((_%tl161560162255%_ + _%tl162683163363%_)))) + (let ((_%tl162692163387%_ (let () (declare (not safe)) - (##cdr _%e161558162250%_))) - (_%hd161559162253%_ + (##cdr _%e162690163382%_))) + (_%hd162691163385%_ (let () (declare (not safe)) - (##car _%e161558162250%_)))) + (##car _%e162690163382%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd161559162253%_)) - (let ((_%e161561162258%_ + _%hd162691163385%_)) + (let ((_%e162693163390%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd161559162253%_)))) - (let ((_%tl161563162263%_ - (let () (declare (not safe)) (##cdr _%e161561162258%_))) - (_%hd161562162261%_ + (gx#stx-e _%hd162691163385%_)))) + (let ((_%tl162695163395%_ + (let () (declare (not safe)) (##cdr _%e162693163390%_))) + (_%hd162694163393%_ (let () (declare (not safe)) - (##car _%e161561162258%_)))) + (##car _%e162693163390%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161562162261%_)) + (gx#identifier? _%hd162694163393%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161562162261%_)) + (gx#stx-eq? '%#ref _%hd162694163393%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161563162263%_)) - (let ((_%e161564162266%_ + (gx#stx-pair? _%tl162695163395%_)) + (let ((_%e162696163398%_ (let () (declare (not safe)) - (gx#stx-e _%tl161563162263%_)))) - (let ((_%tl161566162271%_ + (gx#stx-e _%tl162695163395%_)))) + (let ((_%tl162698163403%_ (let () (declare (not safe)) - (##cdr _%e161564162266%_))) - (_%hd161565162269%_ + (##cdr _%e162696163398%_))) + (_%hd162697163401%_ (let () (declare (not safe)) - (##car _%e161564162266%_)))) + (##car _%e162696163398%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161566162271%_)) + (gx#stx-null? _%tl162698163403%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161560162255%_)) - (let ((_%e161567162274%_ + (gx#stx-pair? _%tl162692163387%_)) + (let ((_%e162699163406%_ (let () (declare (not safe)) (gx#stx-e - _%tl161560162255%_)))) - (let ((_%tl161569162279%_ + _%tl162692163387%_)))) + (let ((_%tl162701163411%_ (let () (declare (not safe)) - (##cdr _%e161567162274%_))) - (_%hd161568162277%_ + (##cdr _%e162699163406%_))) + (_%hd162700163409%_ (let () (declare (not safe)) - (##car _%e161567162274%_)))) + (##car _%e162699163406%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd161568162277%_)) - (let ((_%e161570162282%_ + _%hd162700163409%_)) + (let ((_%e162702163414%_ (let () (declare (not safe)) (gx#stx-e - _%hd161568162277%_)))) - (let ((_%tl161572162287%_ + _%hd162700163409%_)))) + (let ((_%tl162704163419%_ (let () (declare (not safe)) - (##cdr _%e161570162282%_))) - (_%hd161571162285%_ + (##cdr _%e162702163414%_))) + (_%hd162703163417%_ (let () (declare (not safe)) - (##car _%e161570162282%_)))) + (##car _%e162702163414%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd161571162285%_)) + _%hd162703163417%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd161571162285%_)) + (gx#stx-eq? '%#ref _%hd162703163417%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161572162287%_)) - (let ((_%e161573162290%_ + (gx#stx-pair? _%tl162704163419%_)) + (let ((_%e162705163422%_ (let () (declare (not safe)) - (gx#stx-e _%tl161572162287%_)))) - (let ((_%tl161575162295%_ + (gx#stx-e _%tl162704163419%_)))) + (let ((_%tl162707163427%_ (let () (declare (not safe)) - (##cdr _%e161573162290%_))) - (_%hd161574162293%_ + (##cdr _%e162705163422%_))) + (_%hd162706163425%_ (let () (declare (not safe)) - (##car _%e161573162290%_)))) + (##car _%e162705163422%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161575162295%_)) + (gx#stx-null? _%tl162707163427%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161569162279%_)) + (gx#stx-null? _%tl162701163411%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161527162167%_)) - (_%__match167715167716%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_ - _%e161525162162%_ - _%hd161526162165%_ - _%tl161527162167%_ - _%e161528162170%_ - _%hd161529162173%_ - _%tl161530162175%_ - _%e161531162178%_ - _%hd161532162181%_ - _%tl161533162183%_ - _%e161534162186%_ - _%hd161535162189%_ - _%tl161536162191%_ - _%e161537162194%_ - _%hd161538162197%_ - _%tl161539162199%_ - _%e161540162202%_ - _%hd161541162205%_ - _%tl161542162207%_ - _%e161543162210%_ - _%hd161544162213%_ - _%tl161545162215%_ - _%e161546162218%_ - _%hd161547162221%_ - _%tl161548162223%_ - _%e161549162226%_ - _%hd161550162229%_ - _%tl161551162231%_ - _%e161552162234%_ - _%hd161553162237%_ - _%tl161554162239%_ - _%e161555162242%_ - _%hd161556162245%_ - _%tl161557162247%_ - _%e161558162250%_ - _%hd161559162253%_ - _%tl161560162255%_ - _%e161561162258%_ - _%hd161562162261%_ - _%tl161563162263%_ - _%e161564162266%_ - _%hd161565162269%_ - _%tl161566162271%_ - _%e161567162274%_ - _%hd161568162277%_ - _%tl161569162279%_ - _%e161570162282%_ - _%hd161571162285%_ - _%tl161572162287%_ - _%e161573162290%_ - _%hd161574162293%_ - _%tl161575162295%_) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) + (_%__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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)) + (_%__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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167727167728%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_ - _%e161522162154%_ - _%hd161523162157%_ - _%tl161524162159%_)))) - (_%__match167861167862%_ - _%e161519162146%_ - _%hd161520162149%_ - _%tl161521162151%_)))) - (let () (declare (not safe)) (_%g161511161703%_)))))))) + (_%__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%_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_%self161375%_ _%stx161376%_) - (letrec ((_%clause-e161378%_ - (lambda (_%form161501%_) - (let* ((_%signature161503%_ - (gxc#lambda-form-infer-signature _%form161501%_)) - (__obj169701 + (lambda (_%self162507%_ _%stx162508%_) + (letrec ((_%clause-e162510%_ + (lambda (_%form162633%_) + (let* ((_%signature162635%_ + (gxc#lambda-form-infer-signature _%form162633%_)) + (__obj170833 (let () (declare (not safe)) (##structure @@ -11163,128 +11163,126 @@ '#f '#f '#f)))) - (let ((__tmp169888 - (gxc#lambda-form-arity _%form161501%_)) - (__tmp169887 - (if (gxc#dispatch-lambda-form? _%form161501%_) + (let ((__tmp171020 + (gxc#lambda-form-arity _%form162633%_)) + (__tmp171019 + (if (gxc#dispatch-lambda-form? _%form162633%_) (gxc#dispatch-lambda-form-delegate - _%form161501%_) + _%form162633%_) '#f))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature161503%_ - __obj169701 - __tmp169888 - __tmp169887)) - __obj169701))) - (_%return-type-e161379%_ - (lambda (_%clauses161429%_) - (let _%loop161431%_ ((_%rest161433%_ _%clauses161429%_) - (_%result161434%_ '#f)) - (let* ((_%rest161435161443%_ _%rest161433%_) - (_%else161437161451%_ - (lambda () _%result161434%_)) - (_%K161439161489%_ - (lambda (_%rest161454%_ _%clause161455%_) - (let* ((_%clause161457%_ _%clause161455%_) - (_%return161481%_ - (let* ((_%signature161470%_ + _%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%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%clause161457%_ + _%clause162589%_ '2 '#f '#f))) - (_%signature161472%_ - _%signature161470%_)) - (if _%signature161472%_ + (_%signature162604%_ + _%signature162602%_)) + (if _%signature162604%_ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%signature161472%_ + _%signature162604%_ '1 '#f '#f)) - (let ((__tmp169889 + (let ((__tmp171021 (let () (declare (not safe)) (##unchecked-structure-ref - _%signature161472%_ + _%signature162604%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx161376%_ - __tmp169889)) + _%stx162508%_ + __tmp171021)) '#f) '#f))) - (_%result161486%_ - (if (and _%result161434%_ - _%return161481%_) + (_%result162618%_ + (if (and _%result162566%_ + _%return162613%_) (gxc#greatest-common-type - _%stx161376%_ - _%result161434%_ - _%return161481%_) - (let ((_%$e161483%_ - _%result161434%_)) - (if _%$e161483%_ - _%$e161483%_ - _%return161481%_))))) - (_%loop161431%_ - _%rest161454%_ - _%result161486%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest161435161443%_)) - (let ((_%hd161440161492%_ + _%stx162508%_ + _%result162566%_ + _%return162613%_) + (let ((_%$e162615%_ + _%result162566%_)) + (if _%$e162615%_ + _%$e162615%_ + _%return162613%_))))) + (_%loop162563%_ + _%rest162586%_ + _%result162618%_))))) + (if (pair? _%rest162567162575%_) + (let ((_%hd162572162624%_ (let () (declare (not safe)) - (##car _%rest161435161443%_))) - (_%tl161441161494%_ + (##car _%rest162567162575%_))) + (_%tl162573162626%_ (let () (declare (not safe)) - (##cdr _%rest161435161443%_)))) - (let* ((_%clause161497%_ _%hd161440161492%_) - (_%rest161499%_ _%tl161441161494%_)) - (_%K161439161489%_ - _%rest161499%_ - _%clause161497%_))) - (_%else161437161451%_))))))) - (let* ((_%g161381161391%_ - (lambda (_%g161382161388%_) + (##cdr _%rest162567162575%_)))) + (let* ((_%clause162629%_ _%hd162572162624%_) + (_%rest162631%_ _%tl162573162626%_)) + (_%K162571162621%_ + _%rest162631%_ + _%clause162629%_))) + (_%else162569162583%_))))))) + (let* ((_%g162513162523%_ + (lambda (_%g162514162520%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g161382161388%_)))) - (_%g161380161426%_ - (lambda (_%g161382161394%_) + _%g162514162520%_)))) + (_%g162512162558%_ + (lambda (_%g162514162526%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g161382161394%_)) - (let ((_%e161384161396%_ + (gx#stx-pair? _%g162514162526%_)) + (let ((_%e162516162528%_ (let () (declare (not safe)) - (gx#stx-e _%g161382161394%_)))) - (let ((_%hd161385161399%_ + (gx#stx-e _%g162514162526%_)))) + (let ((_%hd162517162531%_ (let () (declare (not safe)) - (##car _%e161384161396%_))) - (_%tl161386161401%_ + (##car _%e162516162528%_))) + (_%tl162518162533%_ (let () (declare (not safe)) - (##cdr _%e161384161396%_)))) - ((lambda (_%L161404%_) - (let* ((_%clauses161415%_ - (map _%clause-e161378%_ _%L161404%_)) - (_%return161417%_ - (_%return-type-e161379%_ - _%clauses161415%_)) - (__obj169703 + (##cdr _%e162516162528%_)))) + ((lambda (_%L162536%_) + (let* ((_%clauses162547%_ + (map _%clause-e162510%_ _%L162536%_)) + (_%return162549%_ + (_%return-type-e162511%_ + _%clauses162547%_)) + (__obj170835 (let () (declare (not safe)) (##structure @@ -11292,17 +11290,17 @@ '#f '#f '#f)))) - (let ((__tmp169890 - (if _%return161417%_ - (let ((_%return-type161419161421%_ + (let ((__tmp171022 + (if _%return162549%_ + (let ((_%return-type162551162553%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return161417%_)))) - (if _%return-type161419161421%_ - (let* ((_%return-type161424%_ - _%return-type161419161421%_) - (__obj169702 + _%return162549%_)))) + (if _%return-type162551162553%_ + (let* ((_%return-type162556%_ + _%return-type162551162553%_) + (__obj170834 (let () (declare (not safe)) @@ -11316,216 +11314,216 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169702 - _%return-type161424%_ + __obj170834 + _%return-type162556%_ '1 '#f '#f)) - __obj169702) + __obj170834) '#f)) '#f))) (declare (not safe)) (gxc#!case-lambda:::init!__% '#f - __tmp169890 - __obj169703 - _%clauses161415%_)) - __obj169703)) - _%tl161386161401%_))) - (_%g161381161391%_ _%g161382161394%_))))) - (_%g161380161426%_ _%stx161376%_))))) + __tmp171022 + __obj170835 + _%clauses162547%_)) + __obj170835)) + _%tl162518162533%_))) + (_%g162513162523%_ _%g162514162526%_))))) + (_%g162512162558%_ _%stx162508%_))))) (define gxc#basic-expression-type-special (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-call% - (lambda (_%self161235%_ _%stx161236%_) - (letrec ((_%type-e161238%_ - (lambda (_%rator161368%_ _%rator-type161369%_ _%args161370%_) - (if (not _%rator-type161369%_) + (lambda (_%self162367%_ _%stx162368%_) + (letrec ((_%type-e162370%_ + (lambda (_%rator162500%_ _%rator-type162501%_ _%args162502%_) + (if (not _%rator-type162501%_) '#f (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type161369%_ + _%rator-type162501%_ 'gxc#!procedure::t)) - (let ((__method169704 + (let ((__method170836 (let () (declare (not safe)) (__method-ref - _%rator-type161369%_ + _%rator-type162501%_ 'return-type)))) - (if __method169704 + (if __method170836 (let () (declare (not safe)) - (__method169704 - _%rator-type161369%_ - _%self161235%_ - _%stx161236%_ - _%args161370%_)) + (__method170836 + _%rator-type162501%_ + _%self162367%_ + _%stx162368%_ + _%args162502%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type161369%_ + _%rator-type162501%_ 'return-type)) '#!void))) '#f))))) - (let* ((_%__stx167870167871%_ _%stx161236%_) - (_%g161241161269%_ + (let* ((_%__stx169002169003%_ _%stx162368%_) + (_%g162373162401%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167870167871%_))))) - (let ((_%__kont167872167873%_ - (lambda (_%L161342%_ _%L161343%_) - (let ((_%$e161359%_ - (let ((__tmp169891 + _%__stx169002169003%_))))) + (let ((_%__kont169004169005%_ + (lambda (_%L162474%_ _%L162475%_) + (let ((_%$e162491%_ + (let ((__tmp171023 (let () (declare (not safe)) - (gxc#identifier-symbol _%L161343%_)))) + (gxc#identifier-symbol _%L162475%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-special - __tmp169891)))) - (if _%$e161359%_ - ((lambda (_%type-e161362%_) - (_%type-e161362%_ _%self161235%_ _%stx161236%_)) - _%$e161359%_) - (_%type-e161238%_ - _%L161343%_ - (let ((__tmp169892 + __tmp171023)))) + (if _%$e162491%_ + ((lambda (_%type-e162494%_) + (_%type-e162494%_ _%self162367%_ _%stx162368%_)) + _%$e162491%_) + (_%type-e162370%_ + _%L162475%_ + (let ((__tmp171024 (let () (declare (not safe)) - (gxc#identifier-symbol _%L161343%_)))) + (gxc#identifier-symbol _%L162475%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp169892)) - _%L161342%_))))) - (_%__kont167874167875%_ - (lambda (_%L161290%_ _%L161291%_) - (_%type-e161238%_ - _%L161291%_ - (gxc#apply-basic-expression-type _%L161291%_) - _%L161290%_)))) + (gxc#optimizer-resolve-type __tmp171024)) + _%L162474%_))))) + (_%__kont169006169007%_ + (lambda (_%L162422%_ _%L162423%_) + (_%type-e162370%_ + _%L162423%_ + (gxc#apply-basic-expression-type _%L162423%_) + _%L162422%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167870167871%_)) - (let ((_%e161245161310%_ + (gx#stx-pair? _%__stx169002169003%_)) + (let ((_%e162377162442%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167870167871%_)))) - (let ((_%tl161247161315%_ + (gx#stx-e _%__stx169002169003%_)))) + (let ((_%tl162379162447%_ (let () (declare (not safe)) - (##cdr _%e161245161310%_))) - (_%hd161246161313%_ + (##cdr _%e162377162442%_))) + (_%hd162378162445%_ (let () (declare (not safe)) - (##car _%e161245161310%_)))) + (##car _%e162377162442%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161247161315%_)) - (let ((_%e161248161318%_ + (gx#stx-pair? _%tl162379162447%_)) + (let ((_%e162380162450%_ (let () (declare (not safe)) - (gx#stx-e _%tl161247161315%_)))) - (let ((_%tl161250161323%_ + (gx#stx-e _%tl162379162447%_)))) + (let ((_%tl162382162455%_ (let () (declare (not safe)) - (##cdr _%e161248161318%_))) - (_%hd161249161321%_ + (##cdr _%e162380162450%_))) + (_%hd162381162453%_ (let () (declare (not safe)) - (##car _%e161248161318%_)))) + (##car _%e162380162450%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161249161321%_)) - (let ((_%e161251161326%_ + (gx#stx-pair? _%hd162381162453%_)) + (let ((_%e162383162458%_ (let () (declare (not safe)) - (gx#stx-e _%hd161249161321%_)))) - (let ((_%tl161253161331%_ + (gx#stx-e _%hd162381162453%_)))) + (let ((_%tl162385162463%_ (let () (declare (not safe)) - (##cdr _%e161251161326%_))) - (_%hd161252161329%_ + (##cdr _%e162383162458%_))) + (_%hd162384162461%_ (let () (declare (not safe)) - (##car _%e161251161326%_)))) + (##car _%e162383162458%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd161252161329%_)) + _%hd162384162461%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd161252161329%_)) + _%hd162384162461%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161253161331%_)) - (let ((_%e161254161334%_ + _%tl162385162463%_)) + (let ((_%e162386162466%_ (let () (declare (not safe)) (gx#stx-e - _%tl161253161331%_)))) - (let ((_%tl161256161339%_ + _%tl162385162463%_)))) + (let ((_%tl162388162471%_ (let () (declare (not safe)) - (##cdr _%e161254161334%_))) - (_%hd161255161337%_ + (##cdr _%e162386162466%_))) + (_%hd162387162469%_ (let () (declare (not safe)) - (##car _%e161254161334%_)))) + (##car _%e162386162466%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161256161339%_)) - (_%__kont167872167873%_ - _%tl161250161323%_ - _%hd161255161337%_) - (_%__kont167874167875%_ - _%tl161250161323%_ - _%hd161249161321%_)))) - (_%__kont167874167875%_ - _%tl161250161323%_ - _%hd161249161321%_)) - (_%__kont167874167875%_ - _%tl161250161323%_ - _%hd161249161321%_)) - (_%__kont167874167875%_ - _%tl161250161323%_ - _%hd161249161321%_)))) - (_%__kont167874167875%_ - _%tl161250161323%_ - _%hd161249161321%_)))) - (let () (declare (not safe)) (_%g161241161269%_))))) - (let () (declare (not safe)) (_%g161241161269%_)))))))) + _%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%_)))))))) (define gxc#!procedure::return-type - (lambda (_%self152978161217%_ _%ctx161219%_ _%stx161220%_ _%args161221%_) - (let* ((_%self161223%_ _%self152978161217%_) - (_%self161225%_ _%self161223%_)) + (lambda (_%self154110162349%_ _%ctx162351%_ _%stx162352%_ _%args162353%_) + (let* ((_%self162355%_ _%self154110162349%_) + (_%self162357%_ _%self162355%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self161225%_ '2 '#f '#f)) - (let ((__tmp169893 - (let ((__tmp169894 + (##unchecked-structure-ref _%self162357%_ '2 '#f '#f)) + (let ((__tmp171025 + (let ((__tmp171026 (let () (declare (not safe)) (##unchecked-structure-ref - _%self161225%_ + _%self162357%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp169894 '1 '#f '#f)))) + (##unchecked-structure-ref __tmp171026 '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx161220%_ __tmp169893)) + (gxc#optimizer-resolve-class _%stx162352%_ __tmp171025)) '#f)))) (let () (declare (not safe)) @@ -11543,59 +11541,59 @@ gxc#!procedure::apply-return-type '#f)) (define gxc#!lambda::return-type - (lambda (_%self152979160949%_ _%ctx160951%_ _%stx160952%_ _%args160953%_) - (let* ((_%self160955%_ _%self152979160949%_) - (_%self160957%_ _%self160955%_)) + (lambda (_%self154111162081%_ _%ctx162083%_ _%stx162084%_ _%args162085%_) + (let* ((_%self162087%_ _%self154111162081%_) + (_%self162089%_ _%self162087%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self160957%_ '4 '#f '#f)) - (let ((_%dispatch-type160966160968%_ - (let ((__tmp169895 + (##unchecked-structure-ref _%self162089%_ '4 '#f '#f)) + (let ((_%dispatch-type162098162100%_ + (let ((__tmp171027 (let () (declare (not safe)) (##unchecked-structure-ref - _%self160957%_ + _%self162089%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp169895)))) - (if _%dispatch-type160966160968%_ - (let ((_%dispatch-type160971%_ - _%dispatch-type160966160968%_)) + (gxc#optimizer-lookup-type __tmp171027)))) + (if _%dispatch-type162098162100%_ + (let ((_%dispatch-type162103%_ + _%dispatch-type162098162100%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%dispatch-type160971%_ + _%dispatch-type162103%_ 'gxc#!procedure::t)) - (let ((__method169705 + (let ((__method170837 (let () (declare (not safe)) (__method-ref - _%dispatch-type160971%_ + _%dispatch-type162103%_ 'return-type)))) - (if __method169705 + (if __method170837 (let () (declare (not safe)) - (__method169705 - _%dispatch-type160971%_ - _%ctx160951%_ - _%stx160952%_ - _%args160953%_)) + (__method170837 + _%dispatch-type162103%_ + _%ctx162083%_ + _%stx162084%_ + _%args162085%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%dispatch-type160971%_ + _%dispatch-type162103%_ 'return-type)) '#!void))) '#f)) '#f)) (gxc#!procedure::return-type - _%self160957%_ - _%ctx160951%_ - _%stx160952%_ - _%args160953%_))))) + _%self162089%_ + _%ctx162083%_ + _%stx162084%_ + _%args162085%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11612,52 +11610,52 @@ gxc#!lambda::apply-return-type '#f)) (define gxc#!case-lambda::return-type - (lambda (_%self152980160677%_ _%ctx160679%_ _%stx160680%_ _%args160681%_) - (let* ((_%self160683%_ _%self152980160677%_) - (_%self160685%_ _%self160683%_) - (_%$e160699%_ - (let ((__tmp169897 - (lambda (_%g160694160696%_) + (lambda (_%self154112161809%_ _%ctx161811%_ _%stx161812%_ _%args161813%_) + (let* ((_%self161815%_ _%self154112161809%_) + (_%self161817%_ _%self161815%_) + (_%$e161831%_ + (let ((__tmp171029 + (lambda (_%g161826161828%_) (gxc#!lambda-arity-match? - _%g160694160696%_ - _%args160681%_))) - (__tmp169896 + _%g161826161828%_ + _%args161813%_))) + (__tmp171028 (let () (declare (not safe)) (##unchecked-structure-ref - _%self160685%_ + _%self161817%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp169897 __tmp169896)))) - (if _%$e160699%_ - ((lambda (_%clause160702%_) - (let ((__method169706 + (__find __tmp171029 __tmp171028)))) + (if _%$e161831%_ + ((lambda (_%clause161834%_) + (let ((__method170838 (let () (declare (not safe)) - (__method-ref _%clause160702%_ 'return-type)))) - (if __method169706 + (__method-ref _%clause161834%_ 'return-type)))) + (if __method170838 (let () (declare (not safe)) - (__method169706 - _%clause160702%_ - _%ctx160679%_ - _%stx160680%_ - _%args160681%_)) + (__method170838 + _%clause161834%_ + _%ctx161811%_ + _%stx161812%_ + _%args161813%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause160702%_ + _%clause161834%_ 'return-type)) '#!void)))) - _%$e160699%_) + _%$e161831%_) (gxc#!procedure::return-type - _%self160685%_ - _%ctx160679%_ - _%stx160680%_ - _%args160681%_))))) + _%self161817%_ + _%ctx161811%_ + _%stx161812%_ + _%args161813%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11666,73 +11664,73 @@ gxc#!case-lambda::return-type '#f)) (define gxc#!case-lambda::apply-return-type - (lambda (_%self152981160523%_ _%ctx160525%_ _%stx160526%_ _%args160527%_) - (let* ((_%self160529%_ _%self152981160523%_) - (_%self160531%_ _%self160529%_) - (_%candidates160545%_ - (filter (lambda (_%g160540160542%_) + (lambda (_%self154113161655%_ _%ctx161657%_ _%stx161658%_ _%args161659%_) + (let* ((_%self161661%_ _%self154113161655%_) + (_%self161663%_ _%self161661%_) + (_%candidates161677%_ + (filter (lambda (_%g161672161674%_) (gxc#!lambda-arity-match-apply? - _%g160540160542%_ - _%args160527%_)) + _%g161672161674%_ + _%args161659%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%self160531%_ + _%self161663%_ '3 '#f '#f)))) - (_%candidate-types160549%_ - (let ((__tmp169898 - (lambda (_%candidate160547%_) - (let ((__method169707 + (_%candidate-types161681%_ + (let ((__tmp171030 + (lambda (_%candidate161679%_) + (let ((__method170839 (let () (declare (not safe)) (__method-ref - _%candidate160547%_ + _%candidate161679%_ 'apply-return-type)))) - (if __method169707 + (if __method170839 (let () (declare (not safe)) - (__method169707 - _%candidate160547%_ - _%ctx160525%_ - _%stx160526%_ - _%args160527%_)) + (__method170839 + _%candidate161679%_ + _%ctx161657%_ + _%stx161658%_ + _%args161659%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%candidate160547%_ + _%candidate161679%_ 'apply-return-type)) '#!void)))))) (declare (not safe)) - (##map __tmp169898 _%candidates160545%_)))) - (if (pair? _%candidate-types160549%_) - (let ((__tmp169901 - (lambda (_%candidate-type160552%_ _%ret160553%_) - (if _%ret160553%_ - (if _%candidate-type160552%_ + (##map __tmp171030 _%candidates161677%_)))) + (if (pair? _%candidate-types161681%_) + (let ((__tmp171033 + (lambda (_%candidate-type161684%_ _%ret161685%_) + (if _%ret161685%_ + (if _%candidate-type161684%_ (gxc#greatest-common-type - _%stx160526%_ - _%candidate-type160552%_ - _%ret160553%_) + _%stx161658%_ + _%candidate-type161684%_ + _%ret161685%_) '#f) '#f))) - (__tmp169900 + (__tmp171032 (let () (declare (not safe)) - (##car _%candidate-types160549%_))) - (__tmp169899 + (##car _%candidate-types161681%_))) + (__tmp171031 (let () (declare (not safe)) - (##cdr _%candidate-types160549%_)))) + (##cdr _%candidate-types161681%_)))) (declare (not safe)) - (__foldl1 __tmp169901 __tmp169900 __tmp169899)) + (__foldl1 __tmp171033 __tmp171032 __tmp171031)) (gxc#!procedure::return-type - _%self160531%_ - _%ctx160525%_ - _%stx160526%_ - _%args160527%_))))) + _%self161663%_ + _%ctx161657%_ + _%stx161658%_ + _%args161659%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11741,135 +11739,135 @@ gxc#!case-lambda::apply-return-type '#f)) (define gxc#!kw-lambda::return-type - (lambda (_%self152982160327%_ _%ctx160329%_ _%stx160330%_ _%args160331%_) - (let* ((_%self160333%_ _%self152982160327%_) - (_%self160335%_ _%self160333%_) - (_%g160344160355%_ - (let ((__tmp169902 + (lambda (_%self154114161459%_ _%ctx161461%_ _%stx161462%_ _%args161463%_) + (let* ((_%self161465%_ _%self154114161459%_) + (_%self161467%_ _%self161465%_) + (_%g161476161487%_ + (let ((__tmp171034 (let () (declare (not safe)) (##unchecked-structure-ref - _%self160335%_ + _%self161467%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp169902))) - (_%E160347160359%_ + (gxc#optimizer-lookup-type __tmp171034))) + (_%E161479161491%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g160344160355%_ + _%g161476161487%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K160349160382%_ - (lambda (_%main160373%_ _%keys160374%_) - (let ((_%main-type160375160377%_ + (let ((_%K161481161514%_ + (lambda (_%main161505%_ _%keys161506%_) + (let ((_%main-type161507161509%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main160373%_)))) - (if _%main-type160375160377%_ - (let* ((_%main-type160380%_ _%main-type160375160377%_) - (__method169708 + (gxc#optimizer-lookup-type _%main161505%_)))) + (if _%main-type161507161509%_ + (let* ((_%main-type161512%_ _%main-type161507161509%_) + (__method170840 (let () (declare (not safe)) (__method-ref - _%main-type160380%_ + _%main-type161512%_ 'return-type)))) - (if __method169708 - (let ((__tmp169903 + (if __method170840 + (let ((__tmp171035 (gxc#extract-keyword-args - _%args160331%_))) + _%args161463%_))) (declare (not safe)) - (__method169708 - _%main-type160380%_ - _%ctx160329%_ - _%stx160330%_ - __tmp169903)) + (__method170840 + _%main-type161512%_ + _%ctx161461%_ + _%stx161462%_ + __tmp171035)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type160380%_ + _%main-type161512%_ 'return-type)) '#!void))) '#f)))) - (_%K160348160365%_ - (lambda (_%proc160363%_) - (let ((__method169709 + (_%K161480161497%_ + (lambda (_%proc161495%_) + (let ((__method170841 (let () (declare (not safe)) - (__method-ref _%proc160363%_ 'return-type)))) - (if __method169709 - (let ((__tmp169904 - (gxc#extract-keyword-args _%args160331%_))) + (__method-ref _%proc161495%_ 'return-type)))) + (if __method170841 + (let ((__tmp171036 + (gxc#extract-keyword-args _%args161463%_))) (declare (not safe)) - (__method169709 - _%proc160363%_ - _%proc160363%_ - _%ctx160329%_ - _%stx160330%_ - __tmp169904)) + (__method170841 + _%proc161495%_ + _%proc161495%_ + _%ctx161461%_ + _%stx161462%_ + __tmp171036)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc160363%_ + _%proc161495%_ 'return-type)) '#!void)))))) - (let ((_%try-match160346160370%_ + (let ((_%try-match161478161502%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g160344160355%_ + _%g161476161487%_ 'gxc#!procedure::t)) - (let ((_%proc160368%_ _%g160344160355%_)) - (_%K160348160365%_ _%proc160368%_)) - (_%E160347160359%_))))) + (let ((_%proc161500%_ _%g161476161487%_)) + (_%K161480161497%_ _%proc161500%_)) + (_%E161479161491%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g160344160355%_ + _%g161476161487%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e160350160385%_ + (let* ((_%e161482161517%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g160344160355%_ + _%g161476161487%_ '1 '#f '#f))) - (_%e160351160388%_ + (_%e161483161520%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g160344160355%_ + _%g161476161487%_ '2 '#f '#f))) - (_%e160352160391%_ + (_%e161484161523%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g160344160355%_ + _%g161476161487%_ '3 '#f '#f))) - (_%e160353160396%_ + (_%e161485161528%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g160344160355%_ + _%g161476161487%_ '4 '#f '#f)))) - (let ((_%keys160394%_ _%e160352160391%_) - (_%main160399%_ _%e160353160396%_)) - (_%K160349160382%_ _%main160399%_ _%keys160394%_))) - (_%try-match160346160370%_))))))) + (let ((_%keys161526%_ _%e161484161523%_) + (_%main161531%_ _%e161485161528%_)) + (_%K161481161514%_ _%main161531%_ _%keys161526%_))) + (_%try-match161478161502%_))))))) (let () (declare (not safe)) (__bind-method!__% @@ -11878,135 +11876,135 @@ gxc#!kw-lambda::return-type '#f)) (define gxc#!kw-lambda::apply-return-type - (lambda (_%self152983160131%_ _%ctx160133%_ _%stx160134%_ _%args160135%_) - (let* ((_%self160137%_ _%self152983160131%_) - (_%self160139%_ _%self160137%_) - (_%g160148160159%_ - (let ((__tmp169905 + (lambda (_%self154115161263%_ _%ctx161265%_ _%stx161266%_ _%args161267%_) + (let* ((_%self161269%_ _%self154115161263%_) + (_%self161271%_ _%self161269%_) + (_%g161280161291%_ + (let ((__tmp171037 (let () (declare (not safe)) (##unchecked-structure-ref - _%self160139%_ + _%self161271%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp169905))) - (_%E160151160163%_ + (gxc#optimizer-lookup-type __tmp171037))) + (_%E161283161295%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g160148160159%_ + _%g161280161291%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K160153160186%_ - (lambda (_%main160177%_ _%keys160178%_) - (let ((_%main-type160179160181%_ + (let ((_%K161285161318%_ + (lambda (_%main161309%_ _%keys161310%_) + (let ((_%main-type161311161313%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main160177%_)))) - (if _%main-type160179160181%_ - (let* ((_%main-type160184%_ _%main-type160179160181%_) - (__method169710 + (gxc#optimizer-lookup-type _%main161309%_)))) + (if _%main-type161311161313%_ + (let* ((_%main-type161316%_ _%main-type161311161313%_) + (__method170842 (let () (declare (not safe)) (__method-ref - _%main-type160184%_ + _%main-type161316%_ 'apply-return-type)))) - (if __method169710 - (let ((__tmp169906 + (if __method170842 + (let ((__tmp171038 (gxc#extract-keyword-args - _%args160135%_))) + _%args161267%_))) (declare (not safe)) - (__method169710 - _%main-type160184%_ - _%ctx160133%_ - _%stx160134%_ - __tmp169906)) + (__method170842 + _%main-type161316%_ + _%ctx161265%_ + _%stx161266%_ + __tmp171038)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type160184%_ + _%main-type161316%_ 'apply-return-type)) '#!void))) '#f)))) - (_%K160152160169%_ - (lambda (_%proc160167%_) - (let ((__method169711 + (_%K161284161301%_ + (lambda (_%proc161299%_) + (let ((__method170843 (let () (declare (not safe)) - (__method-ref _%proc160167%_ 'apply-return-type)))) - (if __method169711 - (let ((__tmp169907 - (gxc#extract-keyword-args _%args160135%_))) + (__method-ref _%proc161299%_ 'apply-return-type)))) + (if __method170843 + (let ((__tmp171039 + (gxc#extract-keyword-args _%args161267%_))) (declare (not safe)) - (__method169711 - _%proc160167%_ - _%proc160167%_ - _%ctx160133%_ - _%stx160134%_ - __tmp169907)) + (__method170843 + _%proc161299%_ + _%proc161299%_ + _%ctx161265%_ + _%stx161266%_ + __tmp171039)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc160167%_ + _%proc161299%_ 'apply-return-type)) '#!void)))))) - (let ((_%try-match160150160174%_ + (let ((_%try-match161282161306%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g160148160159%_ + _%g161280161291%_ 'gxc#!procedure::t)) - (let ((_%proc160172%_ _%g160148160159%_)) - (_%K160152160169%_ _%proc160172%_)) - (_%E160151160163%_))))) + (let ((_%proc161304%_ _%g161280161291%_)) + (_%K161284161301%_ _%proc161304%_)) + (_%E161283161295%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g160148160159%_ + _%g161280161291%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e160154160189%_ + (let* ((_%e161286161321%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g160148160159%_ + _%g161280161291%_ '1 '#f '#f))) - (_%e160155160192%_ + (_%e161287161324%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g160148160159%_ + _%g161280161291%_ '2 '#f '#f))) - (_%e160156160195%_ + (_%e161288161327%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g160148160159%_ + _%g161280161291%_ '3 '#f '#f))) - (_%e160157160200%_ + (_%e161289161332%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g160148160159%_ + _%g161280161291%_ '4 '#f '#f)))) - (let ((_%keys160198%_ _%e160156160195%_) - (_%main160203%_ _%e160157160200%_)) - (_%K160153160186%_ _%main160203%_ _%keys160198%_))) - (_%try-match160150160174%_))))))) + (let ((_%keys161330%_ _%e161288161327%_) + (_%main161335%_ _%e161289161332%_)) + (_%K161285161318%_ _%main161335%_ _%keys161330%_))) + (_%try-match161282161306%_))))))) (let () (declare (not safe)) (__bind-method!__% @@ -12015,796 +12013,788 @@ gxc#!kw-lambda::apply-return-type '#f)) (define gxc#extract-keyword-args - (lambda (_%args159880%_) - (let _%loop159882%_ ((_%rest159884%_ _%args159880%_) - (_%result159885%_ '())) - (let* ((_%__stx167950167951%_ _%rest159884%_) - (_%g159889159915%_ + (lambda (_%args161012%_) + (let _%loop161014%_ ((_%rest161016%_ _%args161012%_) + (_%result161017%_ '())) + (let* ((_%__stx169082169083%_ _%rest161016%_) + (_%g161021161047%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167950167951%_))))) - (let ((_%__kont167952167953%_ - (lambda (_%L159987%_ _%L159988%_ _%L159989%_) - (_%loop159882%_ - _%L159987%_ - (cons _%L159988%_ _%result159885%_)))) - (_%__kont167954167955%_ - (lambda (_%L159935%_ _%L159936%_) - (_%loop159882%_ - _%L159935%_ - (cons _%L159936%_ _%result159885%_)))) - (_%__kont167956167957%_ - (lambda () (reverse! _%result159885%_)))) - (let ((_%__match167987167988%_ - (lambda (_%e159894159955%_ - _%hd159895159958%_ - _%tl159896159960%_ - _%e159897159963%_ - _%hd159898159966%_ - _%tl159899159968%_ - _%e159900159971%_ - _%hd159901159974%_ - _%tl159902159976%_ - _%e159903159979%_ - _%hd159904159982%_ - _%tl159905159984%_) - (let ((_%L159987%_ _%tl159905159984%_) - (_%L159988%_ _%hd159904159982%_) - (_%L159989%_ _%hd159901159974%_)) + _%__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%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L159989%_)) - (_%__kont167952167953%_ - _%L159987%_ - _%L159988%_ - _%L159989%_) - (_%__kont167954167955%_ - _%tl159896159960%_ - _%hd159895159958%_)))))) + (gx#stx-keyword? _%L161121%_)) + (_%__kont169084169085%_ + _%L161119%_ + _%L161120%_ + _%L161121%_) + (_%__kont169086169087%_ + _%tl161028161092%_ + _%hd161027161090%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167950167951%_)) - (let ((_%e159894159955%_ + (gx#stx-pair? _%__stx169082169083%_)) + (let ((_%e161026161087%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167950167951%_)))) - (let ((_%tl159896159960%_ + (gx#stx-e _%__stx169082169083%_)))) + (let ((_%tl161028161092%_ (let () (declare (not safe)) - (##cdr _%e159894159955%_))) - (_%hd159895159958%_ + (##cdr _%e161026161087%_))) + (_%hd161027161090%_ (let () (declare (not safe)) - (##car _%e159894159955%_)))) + (##car _%e161026161087%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159895159958%_)) - (let ((_%e159897159963%_ + (gx#stx-pair? _%hd161027161090%_)) + (let ((_%e161029161095%_ (let () (declare (not safe)) - (gx#stx-e _%hd159895159958%_)))) - (let ((_%tl159899159968%_ + (gx#stx-e _%hd161027161090%_)))) + (let ((_%tl161031161100%_ (let () (declare (not safe)) - (##cdr _%e159897159963%_))) - (_%hd159898159966%_ + (##cdr _%e161029161095%_))) + (_%hd161030161098%_ (let () (declare (not safe)) - (##car _%e159897159963%_)))) + (##car _%e161029161095%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159898159966%_)) + (gx#identifier? _%hd161030161098%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd159898159966%_)) + _%hd161030161098%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159899159968%_)) - (let ((_%e159900159971%_ + _%tl161031161100%_)) + (let ((_%e161032161103%_ (let () (declare (not safe)) (gx#stx-e - _%tl159899159968%_)))) - (let ((_%tl159902159976%_ + _%tl161031161100%_)))) + (let ((_%tl161034161108%_ (let () (declare (not safe)) - (##cdr _%e159900159971%_))) - (_%hd159901159974%_ + (##cdr _%e161032161103%_))) + (_%hd161033161106%_ (let () (declare (not safe)) - (##car _%e159900159971%_)))) + (##car _%e161032161103%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159902159976%_)) + _%tl161034161108%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159896159960%_)) - (let ((_%e159903159979%_ + _%tl161028161092%_)) + (let ((_%e161035161111%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl159896159960%_)))) - (let ((_%tl159905159984%_ + (gx#stx-e _%tl161028161092%_)))) + (let ((_%tl161037161116%_ (let () (declare (not safe)) - (##cdr _%e159903159979%_))) - (_%hd159904159982%_ + (##cdr _%e161035161111%_))) + (_%hd161036161114%_ (let () (declare (not safe)) - (##car _%e159903159979%_)))) - (_%__match167987167988%_ - _%e159894159955%_ - _%hd159895159958%_ - _%tl159896159960%_ - _%e159897159963%_ - _%hd159898159966%_ - _%tl159899159968%_ - _%e159900159971%_ - _%hd159901159974%_ - _%tl159902159976%_ - _%e159903159979%_ - _%hd159904159982%_ - _%tl159905159984%_))) - (_%__kont167954167955%_ _%tl159896159960%_ _%hd159895159958%_)) + (##car _%e161035161111%_)))) + (_%__match169119169120%_ + _%e161026161087%_ + _%hd161027161090%_ + _%tl161028161092%_ + _%e161029161095%_ + _%hd161030161098%_ + _%tl161031161100%_ + _%e161032161103%_ + _%hd161033161106%_ + _%tl161034161108%_ + _%e161035161111%_ + _%hd161036161114%_ + _%tl161037161116%_))) + (_%__kont169086169087%_ _%tl161028161092%_ _%hd161027161090%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont167954167955%_ - _%tl159896159960%_ - _%hd159895159958%_)))) - (_%__kont167954167955%_ - _%tl159896159960%_ - _%hd159895159958%_)) - (_%__kont167954167955%_ - _%tl159896159960%_ - _%hd159895159958%_)) - (_%__kont167954167955%_ - _%tl159896159960%_ - _%hd159895159958%_)))) - (_%__kont167954167955%_ - _%tl159896159960%_ - _%hd159895159958%_)))) - (_%__kont167956167957%_)))))))) + (_%__kont169086169087%_ + _%tl161028161092%_ + _%hd161027161090%_)))) + (_%__kont169086169087%_ + _%tl161028161092%_ + _%hd161027161090%_)) + (_%__kont169086169087%_ + _%tl161028161092%_ + _%hd161027161090%_)) + (_%__kont169086169087%_ + _%tl161028161092%_ + _%hd161027161090%_)))) + (_%__kont169086169087%_ + _%tl161028161092%_ + _%hd161027161090%_)))) + (_%__kont169088169089%_)))))))) (define gxc#!lambda-arity-match? - (lambda (_%self159812%_ _%args159813%_) - (let* ((_%self159814159822%_ _%self159812%_) - (_%E159816159826%_ + (lambda (_%self160944%_ _%args160945%_) + (let* ((_%self160946160954%_ _%self160944%_) + (_%E160948160958%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self159814159822%_ + _%self160946160954%_ '((!lambda _ _ arity)))) '#!void)) - (_%K159817159866%_ - (lambda (_%arity159829%_) - (let* ((_%arity159830159839%_ _%arity159829%_) - (_%E159833159843%_ + (_%K160949160998%_ + (lambda (_%arity160961%_) + (let* ((_%arity160962160971%_ _%arity160961%_) + (_%E160965160975%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity159830159839%_ + _%arity160962160971%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K159837159863%_ + (let ((_%K160969160995%_ (lambda () - (fx= (length _%args159813%_) _%arity159829%_))) - (_%K159834159849%_ - (lambda (_%arity159847%_) - (fx>= (length _%args159813%_) _%arity159847%_)))) - (let* ((_%__match168006168007%_ - (lambda (_%hd159835159852%_ _%tl159836159854%_) - (let ((_%arity159857%_ _%hd159835159852%_)) - (_%E159833159843%_)))) - (_%try-match159832159859%_ + (fx= (length _%args160945%_) _%arity160961%_))) + (_%K160966160981%_ + (lambda (_%arity160979%_) + (fx>= (length _%args160945%_) _%arity160979%_)))) + (let* ((_%__match169138169139%_ + (lambda (_%hd160967160984%_ _%tl160968160986%_) + (let ((_%arity160989%_ _%hd160967160984%_)) + (_%E160965160975%_)))) + (_%try-match160964160991%_ (lambda () - (if (let () - (declare (not safe)) - (##pair? _%arity159830159839%_)) - (let ((_%tl159836159854%_ + (if (pair? _%arity160962160971%_) + (let ((_%tl160968160986%_ (let () (declare (not safe)) - (##cdr _%arity159830159839%_))) - (_%hd159835159852%_ + (##cdr _%arity160962160971%_))) + (_%hd160967160984%_ (let () (declare (not safe)) - (##car _%arity159830159839%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl159836159854%_)) - (let ((_%arity159857%_ - _%hd159835159852%_)) - (_%K159834159849%_ - _%arity159857%_)) - (_%__match168006168007%_ - _%hd159835159852%_ - _%tl159836159854%_))) - (_%E159833159843%_))))) - (if (fixnum? _%arity159830159839%_) - (_%K159837159863%_) - (_%try-match159832159859%_)))))))) + (##car _%arity160962160971%_)))) + (if (null? _%tl160968160986%_) + (let ((_%arity160989%_ + _%hd160967160984%_)) + (_%K160966160981%_ + _%arity160989%_)) + (_%__match169138169139%_ + _%hd160967160984%_ + _%tl160968160986%_))) + (_%E160965160975%_))))) + (if (fixnum? _%arity160962160971%_) + (_%K160969160995%_) + (_%try-match160964160991%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self159814159822%_ + _%self160946160954%_ 'gxc#!lambda::t)) - (let* ((_%e159818159869%_ + (let* ((_%e160950161001%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self159814159822%_ + _%self160946160954%_ '1 '#f '#f))) - (_%e159819159872%_ + (_%e160951161004%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self159814159822%_ + _%self160946160954%_ '2 '#f '#f))) - (_%e159820159875%_ + (_%e160952161007%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self159814159822%_ + _%self160946160954%_ '3 '#f '#f))) - (_%arity159878%_ _%e159820159875%_)) - (_%K159817159866%_ _%arity159878%_)) - (_%E159816159826%_))))) + (_%arity161010%_ _%e160952161007%_)) + (_%K160949160998%_ _%arity161010%_)) + (_%E160948160958%_))))) (define gxc#!lambda-arity-match-apply? - (lambda (_%self159744%_ _%args159745%_) - (let* ((_%self159746159754%_ _%self159744%_) - (_%E159748159758%_ + (lambda (_%self160876%_ _%args160877%_) + (let* ((_%self160878160886%_ _%self160876%_) + (_%E160880160890%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self159746159754%_ + _%self160878160886%_ '((!lambda _ _ arity)))) '#!void)) - (_%K159749159798%_ - (lambda (_%arity159761%_) - (let* ((_%arity159762159771%_ _%arity159761%_) - (_%E159765159775%_ + (_%K160881160930%_ + (lambda (_%arity160893%_) + (let* ((_%arity160894160903%_ _%arity160893%_) + (_%E160897160907%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity159762159771%_ + _%arity160894160903%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K159769159795%_ + (let ((_%K160901160927%_ (lambda () - (let ((__tmp169908 (length _%args159745%_))) + (let ((__tmp171040 (length _%args160877%_))) (declare (not safe)) - (##fx>= _%arity159761%_ __tmp169908)))) - (_%K159766159781%_ (lambda (_%arity159779%_) '#t))) - (let* ((_%__match168019168020%_ - (lambda (_%hd159767159784%_ _%tl159768159786%_) - (let ((_%arity159789%_ _%hd159767159784%_)) - (_%E159765159775%_)))) - (_%try-match159764159791%_ + (##fx>= _%arity160893%_ __tmp171040)))) + (_%K160898160913%_ (lambda (_%arity160911%_) '#t))) + (let* ((_%__match169151169152%_ + (lambda (_%hd160899160916%_ _%tl160900160918%_) + (let ((_%arity160921%_ _%hd160899160916%_)) + (_%E160897160907%_)))) + (_%try-match160896160923%_ (lambda () - (if (let () - (declare (not safe)) - (##pair? _%arity159762159771%_)) - (let ((_%tl159768159786%_ + (if (pair? _%arity160894160903%_) + (let ((_%tl160900160918%_ (let () (declare (not safe)) - (##cdr _%arity159762159771%_))) - (_%hd159767159784%_ + (##cdr _%arity160894160903%_))) + (_%hd160899160916%_ (let () (declare (not safe)) - (##car _%arity159762159771%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl159768159786%_)) - (let ((_%arity159789%_ - _%hd159767159784%_)) - (_%K159766159781%_ - _%arity159789%_)) - (_%__match168019168020%_ - _%hd159767159784%_ - _%tl159768159786%_))) - (_%E159765159775%_))))) - (if (fixnum? _%arity159762159771%_) - (_%K159769159795%_) - (_%try-match159764159791%_)))))))) + (##car _%arity160894160903%_)))) + (if (null? _%tl160900160918%_) + (let ((_%arity160921%_ + _%hd160899160916%_)) + (_%K160898160913%_ + _%arity160921%_)) + (_%__match169151169152%_ + _%hd160899160916%_ + _%tl160900160918%_))) + (_%E160897160907%_))))) + (if (fixnum? _%arity160894160903%_) + (_%K160901160927%_) + (_%try-match160896160923%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self159746159754%_ + _%self160878160886%_ 'gxc#!lambda::t)) - (let* ((_%e159750159801%_ + (let* ((_%e160882160933%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self159746159754%_ + _%self160878160886%_ '1 '#f '#f))) - (_%e159751159804%_ + (_%e160883160936%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self159746159754%_ + _%self160878160886%_ '2 '#f '#f))) - (_%e159752159807%_ + (_%e160884160939%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self159746159754%_ + _%self160878160886%_ '3 '#f '#f))) - (_%arity159810%_ _%e159752159807%_)) - (_%K159749159798%_ _%arity159810%_)) - (_%E159748159758%_))))) + (_%arity160942%_ _%e160884160939%_)) + (_%K160881160930%_ _%arity160942%_)) + (_%E160880160890%_))))) (define gxc#basic-expression-type-special-cast - (lambda (_%ctx159631%_ _%stx159632%_) - (let* ((_%g159634159660%_ - (lambda (_%g159635159657%_) + (lambda (_%ctx160763%_ _%stx160764%_) + (let* ((_%g160766160792%_ + (lambda (_%g160767160789%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g159635159657%_)))) - (_%g159633159741%_ - (lambda (_%g159635159663%_) + _%g160767160789%_)))) + (_%g160765160873%_ + (lambda (_%g160767160795%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g159635159663%_)) - (let ((_%e159638159665%_ + (gx#stx-pair? _%g160767160795%_)) + (let ((_%e160770160797%_ (let () (declare (not safe)) - (gx#stx-e _%g159635159663%_)))) - (let ((_%hd159639159668%_ + (gx#stx-e _%g160767160795%_)))) + (let ((_%hd160771160800%_ (let () (declare (not safe)) - (##car _%e159638159665%_))) - (_%tl159640159670%_ + (##car _%e160770160797%_))) + (_%tl160772160802%_ (let () (declare (not safe)) - (##cdr _%e159638159665%_)))) + (##cdr _%e160770160797%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159640159670%_)) - (let ((_%e159641159673%_ + (gx#stx-pair? _%tl160772160802%_)) + (let ((_%e160773160805%_ (let () (declare (not safe)) - (gx#stx-e _%tl159640159670%_)))) - (let ((_%hd159642159676%_ + (gx#stx-e _%tl160772160802%_)))) + (let ((_%hd160774160808%_ (let () (declare (not safe)) - (##car _%e159641159673%_))) - (_%tl159643159678%_ + (##car _%e160773160805%_))) + (_%tl160775160810%_ (let () (declare (not safe)) - (##cdr _%e159641159673%_)))) + (##cdr _%e160773160805%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159643159678%_)) - (let ((_%e159644159681%_ + (gx#stx-pair? _%tl160775160810%_)) + (let ((_%e160776160813%_ (let () (declare (not safe)) - (gx#stx-e _%tl159643159678%_)))) - (let ((_%hd159645159684%_ + (gx#stx-e _%tl160775160810%_)))) + (let ((_%hd160777160816%_ (let () (declare (not safe)) - (##car _%e159644159681%_))) - (_%tl159646159686%_ + (##car _%e160776160813%_))) + (_%tl160778160818%_ (let () (declare (not safe)) - (##cdr _%e159644159681%_)))) + (##cdr _%e160776160813%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159645159684%_)) - (let ((_%e159647159689%_ + _%hd160777160816%_)) + (let ((_%e160779160821%_ (let () (declare (not safe)) (gx#stx-e - _%hd159645159684%_)))) - (let ((_%hd159648159692%_ + _%hd160777160816%_)))) + (let ((_%hd160780160824%_ (let () (declare (not safe)) - (##car _%e159647159689%_))) - (_%tl159649159694%_ + (##car _%e160779160821%_))) + (_%tl160781160826%_ (let () (declare (not safe)) - (##cdr _%e159647159689%_)))) + (##cdr _%e160779160821%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159648159692%_)) + _%hd160780160824%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159648159692%_)) + _%hd160780160824%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl159649159694%_)) - (let ((_%e159650159697%_ + (gx#stx-pair? _%tl160781160826%_)) + (let ((_%e160782160829%_ (let () (declare (not safe)) - (gx#stx-e _%tl159649159694%_)))) - (let ((_%hd159651159700%_ + (gx#stx-e _%tl160781160826%_)))) + (let ((_%hd160783160832%_ (let () (declare (not safe)) - (##car _%e159650159697%_))) - (_%tl159652159702%_ + (##car _%e160782160829%_))) + (_%tl160784160834%_ (let () (declare (not safe)) - (##cdr _%e159650159697%_)))) + (##cdr _%e160782160829%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159652159702%_)) + (gx#stx-null? _%tl160784160834%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159646159686%_)) - (let ((_%e159653159705%_ + (gx#stx-pair? _%tl160778160818%_)) + (let ((_%e160785160837%_ (let () (declare (not safe)) - (gx#stx-e _%tl159646159686%_)))) - (let ((_%hd159654159708%_ + (gx#stx-e _%tl160778160818%_)))) + (let ((_%hd160786160840%_ (let () (declare (not safe)) - (##car _%e159653159705%_))) - (_%tl159655159710%_ + (##car _%e160785160837%_))) + (_%tl160787160842%_ (let () (declare (not safe)) - (##cdr _%e159653159705%_)))) + (##cdr _%e160785160837%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159655159710%_)) - ((lambda (_%L159713%_ _%L159714%_) - (let ((_%interface-type159734159736%_ - (let ((__tmp169909 + (gx#stx-null? _%tl160787160842%_)) + ((lambda (_%L160845%_ _%L160846%_) + (let ((_%interface-type160866160868%_ + (let ((__tmp171041 (let () (declare (not safe)) (gxc#identifier-symbol - _%L159714%_)))) + _%L160846%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp169909)))) - (if _%interface-type159734159736%_ - (let ((_%interface-type159739%_ - _%interface-type159734159736%_)) + __tmp171041)))) + (if _%interface-type160866160868%_ + (let ((_%interface-type160871%_ + _%interface-type160866160868%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%interface-type159739%_ + _%interface-type160871%_ 'gxc#!interface::t)) - (let ((__tmp169910 + (let ((__tmp171042 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%interface-type159739%_ + _%interface-type160871%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx159632%_ __tmp169910)) + (gxc#optimizer-resolve-class _%stx160764%_ __tmp171042)) (let () (declare (not safe)) (gxc#raise-compile-error '"cast to non interface" - _%stx159632%_ - _%L159714%_ - _%interface-type159739%_)))) + _%stx160764%_ + _%L160846%_ + _%interface-type160871%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#f))) - _%hd159654159708%_ - _%hd159651159700%_) - (_%g159634159660%_ - _%g159635159663%_)))) - (_%g159634159660%_ _%g159635159663%_)) - (_%g159634159660%_ _%g159635159663%_)))) - (_%g159634159660%_ _%g159635159663%_)) - (_%g159634159660%_ _%g159635159663%_)) - (_%g159634159660%_ _%g159635159663%_)))) + _%hd160786160840%_ + _%hd160783160832%_) + (_%g160766160792%_ + _%g160767160795%_)))) + (_%g160766160792%_ _%g160767160795%_)) + (_%g160766160792%_ _%g160767160795%_)))) + (_%g160766160792%_ _%g160767160795%_)) + (_%g160766160792%_ _%g160767160795%_)) + (_%g160766160792%_ _%g160767160795%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g159634159660%_ - _%g159635159663%_)))) - (_%g159634159660%_ _%g159635159663%_)))) - (_%g159634159660%_ _%g159635159663%_)))) - (_%g159634159660%_ _%g159635159663%_))))) - (_%g159633159741%_ _%stx159632%_)))) + (_%g160766160792%_ + _%g160767160795%_)))) + (_%g160766160792%_ _%g160767160795%_)))) + (_%g160766160792%_ _%g160767160795%_)))) + (_%g160766160792%_ _%g160767160795%_))))) + (_%g160765160873%_ _%stx160764%_)))) (define gxc#basic-expression-type-special-apply - (lambda (_%ctx159421%_ _%stx159422%_) - (letrec ((_%type-e159424%_ - (lambda (_%rator159627%_ _%rator-type159628%_ _%args159629%_) + (lambda (_%ctx160553%_ _%stx160554%_) + (letrec ((_%type-e160556%_ + (lambda (_%rator160759%_ _%rator-type160760%_ _%args160761%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type159628%_ + _%rator-type160760%_ 'gxc#!procedure::t)) - (let ((__method169712 + (let ((__method170844 (let () (declare (not safe)) (__method-ref - _%rator-type159628%_ + _%rator-type160760%_ 'apply-return-type)))) - (if __method169712 + (if __method170844 (let () (declare (not safe)) - (__method169712 - _%rator-type159628%_ - _%ctx159421%_ - _%stx159422%_ - _%args159629%_)) + (__method170844 + _%rator-type160760%_ + _%ctx160553%_ + _%stx160554%_ + _%args160761%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type159628%_ + _%rator-type160760%_ 'apply-return-type)) '#!void))) '#f)))) - (let* ((_%__stx168022168023%_ _%stx159422%_) - (_%g159428159470%_ + (let* ((_%__stx169154169155%_ _%stx160554%_) + (_%g160560160602%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168022168023%_))))) - (let ((_%__kont168024168025%_ - (lambda (_%L159591%_ _%L159592%_ _%L159593%_ _%L159594%_) - (let ((_%rator-type159617159619%_ - (gxc#apply-basic-expression-type _%L159592%_))) - (if _%rator-type159617159619%_ - (let ((_%rator-type159622%_ - _%rator-type159617159619%_)) - (_%type-e159424%_ - _%L159592%_ - _%rator-type159622%_ - (cons _%L159593%_ _%L159591%_))) + _%__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%_))) '#f)))) - (_%__kont168026168027%_ - (lambda (_%L159506%_ _%L159507%_) - (let ((_%rator-type159523159525%_ - (gxc#apply-basic-expression-type _%L159507%_))) - (if _%rator-type159523159525%_ - (let ((_%rator-type159528%_ - _%rator-type159523159525%_)) - (_%type-e159424%_ - _%L159507%_ - _%rator-type159528%_ - _%L159506%_)) + (_%__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%_)) '#f)))) - (_%__kont168028168029%_ (lambda () '#f))) - (let ((_%__match168077168078%_ - (lambda (_%e159434159535%_ - _%hd159435159538%_ - _%tl159436159540%_ - _%e159437159543%_ - _%hd159438159546%_ - _%tl159439159548%_ - _%e159440159551%_ - _%hd159441159554%_ - _%tl159442159556%_ - _%e159443159559%_ - _%hd159444159562%_ - _%tl159445159564%_ - _%e159446159567%_ - _%hd159447159570%_ - _%tl159448159572%_ - _%e159449159575%_ - _%hd159450159578%_ - _%tl159451159580%_ - _%e159452159583%_ - _%hd159453159586%_ - _%tl159454159588%_) - (let ((_%L159591%_ _%tl159454159588%_) - (_%L159592%_ _%hd159453159586%_) - (_%L159593%_ _%hd159450159578%_) - (_%L159594%_ _%hd159447159570%_)) + (_%__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%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L159594%_ + _%L160726%_ 'keyword-dispatch)) - (_%__kont168024168025%_ - _%L159591%_ - _%L159592%_ - _%L159593%_ - _%L159594%_) - (_%__kont168026168027%_ - _%tl159442159556%_ - _%hd159441159554%_)))))) + (_%__kont169156169157%_ + _%L160723%_ + _%L160724%_ + _%L160725%_ + _%L160726%_) + (_%__kont169158169159%_ + _%tl160574160688%_ + _%hd160573160686%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168022168023%_)) - (let ((_%e159434159535%_ + (gx#stx-pair? _%__stx169154169155%_)) + (let ((_%e160566160667%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168022168023%_)))) - (let ((_%tl159436159540%_ + (gx#stx-e _%__stx169154169155%_)))) + (let ((_%tl160568160672%_ (let () (declare (not safe)) - (##cdr _%e159434159535%_))) - (_%hd159435159538%_ + (##cdr _%e160566160667%_))) + (_%hd160567160670%_ (let () (declare (not safe)) - (##car _%e159434159535%_)))) + (##car _%e160566160667%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159436159540%_)) - (let ((_%e159437159543%_ + (gx#stx-pair? _%tl160568160672%_)) + (let ((_%e160569160675%_ (let () (declare (not safe)) - (gx#stx-e _%tl159436159540%_)))) - (let ((_%tl159439159548%_ + (gx#stx-e _%tl160568160672%_)))) + (let ((_%tl160571160680%_ (let () (declare (not safe)) - (##cdr _%e159437159543%_))) - (_%hd159438159546%_ + (##cdr _%e160569160675%_))) + (_%hd160570160678%_ (let () (declare (not safe)) - (##car _%e159437159543%_)))) + (##car _%e160569160675%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159439159548%_)) - (let ((_%e159440159551%_ + (gx#stx-pair? _%tl160571160680%_)) + (let ((_%e160572160683%_ (let () (declare (not safe)) - (gx#stx-e _%tl159439159548%_)))) - (let ((_%tl159442159556%_ + (gx#stx-e _%tl160571160680%_)))) + (let ((_%tl160574160688%_ (let () (declare (not safe)) - (##cdr _%e159440159551%_))) - (_%hd159441159554%_ + (##cdr _%e160572160683%_))) + (_%hd160573160686%_ (let () (declare (not safe)) - (##car _%e159440159551%_)))) + (##car _%e160572160683%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159441159554%_)) - (let ((_%e159443159559%_ + _%hd160573160686%_)) + (let ((_%e160575160691%_ (let () (declare (not safe)) (gx#stx-e - _%hd159441159554%_)))) - (let ((_%tl159445159564%_ + _%hd160573160686%_)))) + (let ((_%tl160577160696%_ (let () (declare (not safe)) - (##cdr _%e159443159559%_))) - (_%hd159444159562%_ + (##cdr _%e160575160691%_))) + (_%hd160576160694%_ (let () (declare (not safe)) - (##car _%e159443159559%_)))) + (##car _%e160575160691%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159444159562%_)) + _%hd160576160694%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159444159562%_)) + _%hd160576160694%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159445159564%_)) - (let ((_%e159446159567%_ + _%tl160577160696%_)) + (let ((_%e160578160699%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl159445159564%_)))) - (let ((_%tl159448159572%_ + (gx#stx-e _%tl160577160696%_)))) + (let ((_%tl160580160704%_ (let () (declare (not safe)) - (##cdr _%e159446159567%_))) - (_%hd159447159570%_ + (##cdr _%e160578160699%_))) + (_%hd160579160702%_ (let () (declare (not safe)) - (##car _%e159446159567%_)))) + (##car _%e160578160699%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159448159572%_)) + (gx#stx-null? _%tl160580160704%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159442159556%_)) - (let ((_%e159449159575%_ + (gx#stx-pair? _%tl160574160688%_)) + (let ((_%e160581160707%_ (let () (declare (not safe)) - (gx#stx-e _%tl159442159556%_)))) - (let ((_%tl159451159580%_ + (gx#stx-e _%tl160574160688%_)))) + (let ((_%tl160583160712%_ (let () (declare (not safe)) - (##cdr _%e159449159575%_))) - (_%hd159450159578%_ + (##cdr _%e160581160707%_))) + (_%hd160582160710%_ (let () (declare (not safe)) - (##car _%e159449159575%_)))) + (##car _%e160581160707%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159451159580%_)) - (let ((_%e159452159583%_ + (gx#stx-pair? _%tl160583160712%_)) + (let ((_%e160584160715%_ (let () (declare (not safe)) (gx#stx-e - _%tl159451159580%_)))) - (let ((_%tl159454159588%_ + _%tl160583160712%_)))) + (let ((_%tl160586160720%_ (let () (declare (not safe)) - (##cdr _%e159452159583%_))) - (_%hd159453159586%_ + (##cdr _%e160584160715%_))) + (_%hd160585160718%_ (let () (declare (not safe)) - (##car _%e159452159583%_)))) - (_%__match168077168078%_ - _%e159434159535%_ - _%hd159435159538%_ - _%tl159436159540%_ - _%e159437159543%_ - _%hd159438159546%_ - _%tl159439159548%_ - _%e159440159551%_ - _%hd159441159554%_ - _%tl159442159556%_ - _%e159443159559%_ - _%hd159444159562%_ - _%tl159445159564%_ - _%e159446159567%_ - _%hd159447159570%_ - _%tl159448159572%_ - _%e159449159575%_ - _%hd159450159578%_ - _%tl159451159580%_ - _%e159452159583%_ - _%hd159453159586%_ - _%tl159454159588%_))) - (_%__kont168026168027%_ - _%tl159442159556%_ - _%hd159441159554%_)))) - (_%__kont168026168027%_ - _%tl159442159556%_ - _%hd159441159554%_)) - (_%__kont168026168027%_ - _%tl159442159556%_ - _%hd159441159554%_)))) - (_%__kont168026168027%_ - _%tl159442159556%_ - _%hd159441159554%_)) - (_%__kont168026168027%_ _%tl159442159556%_ _%hd159441159554%_)) + (##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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168026168027%_ - _%tl159442159556%_ - _%hd159441159554%_)))) - (_%__kont168026168027%_ - _%tl159442159556%_ - _%hd159441159554%_)))) - (_%__kont168028168029%_)))) - (_%__kont168028168029%_)))) - (_%__kont168028168029%_)))))))) + (_%__kont169158169159%_ + _%tl160574160688%_ + _%hd160573160686%_)))) + (_%__kont169158169159%_ + _%tl160574160688%_ + _%hd160573160686%_)))) + (_%__kont169160169161%_)))) + (_%__kont169160169161%_)))) + (_%__kont169160169161%_)))))))) (let () (declare (not safe)) (__hash-put! @@ -12824,1764 +12814,1758 @@ '##apply gxc#basic-expression-type-special-apply)) (define gxc#basic-expression-type-ref% - (lambda (_%self159369%_ _%stx159370%_) - (let* ((_%g159372159385%_ - (lambda (_%g159373159382%_) + (lambda (_%self160501%_ _%stx160502%_) + (let* ((_%g160504160517%_ + (lambda (_%g160505160514%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g159373159382%_)))) - (_%g159371159418%_ - (lambda (_%g159373159388%_) + _%g160505160514%_)))) + (_%g160503160550%_ + (lambda (_%g160505160520%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g159373159388%_)) - (let ((_%e159375159390%_ + (gx#stx-pair? _%g160505160520%_)) + (let ((_%e160507160522%_ (let () (declare (not safe)) - (gx#stx-e _%g159373159388%_)))) - (let ((_%hd159376159393%_ + (gx#stx-e _%g160505160520%_)))) + (let ((_%hd160508160525%_ (let () (declare (not safe)) - (##car _%e159375159390%_))) - (_%tl159377159395%_ + (##car _%e160507160522%_))) + (_%tl160509160527%_ (let () (declare (not safe)) - (##cdr _%e159375159390%_)))) + (##cdr _%e160507160522%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159377159395%_)) - (let ((_%e159378159398%_ + (gx#stx-pair? _%tl160509160527%_)) + (let ((_%e160510160530%_ (let () (declare (not safe)) - (gx#stx-e _%tl159377159395%_)))) - (let ((_%hd159379159401%_ + (gx#stx-e _%tl160509160527%_)))) + (let ((_%hd160511160533%_ (let () (declare (not safe)) - (##car _%e159378159398%_))) - (_%tl159380159403%_ + (##car _%e160510160530%_))) + (_%tl160512160535%_ (let () (declare (not safe)) - (##cdr _%e159378159398%_)))) + (##cdr _%e160510160530%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159380159403%_)) - ((lambda (_%L159406%_) - (let ((__tmp169911 + (gx#stx-null? _%tl160512160535%_)) + ((lambda (_%L160538%_) + (let ((__tmp171043 (let () (declare (not safe)) (gxc#identifier-symbol - _%L159406%_)))) + _%L160538%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp169911))) - _%hd159379159401%_) - (_%g159372159385%_ _%g159373159388%_)))) - (_%g159372159385%_ _%g159373159388%_)))) - (_%g159372159385%_ _%g159373159388%_))))) - (_%g159371159418%_ _%stx159370%_)))) + __tmp171043))) + _%hd160511160533%_) + (_%g160504160517%_ _%g160505160520%_)))) + (_%g160504160517%_ _%g160505160520%_)))) + (_%g160504160517%_ _%g160505160520%_))))) + (_%g160503160550%_ _%stx160502%_)))) (define gxc#basic-expression-type-if% - (lambda (_%self158948%_ _%stx158949%_) - (letrec ((_%type-e158951%_ - (lambda (_%type-K159363%_ _%type-E159364%_) + (lambda (_%self160080%_ _%stx160081%_) + (letrec ((_%type-e160083%_ + (lambda (_%type-K160495%_ _%type-E160496%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-E159364%_ + _%type-E160496%_ 'gxc#!abort::t)) - _%type-K159363%_ + _%type-K160495%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-K159363%_ + _%type-K160495%_ 'gxc#!abort::t)) - _%type-E159364%_ + _%type-E160496%_ (gxc#greatest-common-type - _%stx158949%_ - _%type-K159363%_ - _%type-E159364%_))))) - (_%basic-type-e158952%_ - (lambda (_%K159357%_ _%E159358%_) - (let ((_%type-K159360%_ - (gxc#apply-basic-expression-type _%K159357%_)) - (_%type-E159361%_ - (gxc#apply-basic-expression-type _%E159358%_))) - (_%type-e158951%_ _%type-K159360%_ _%type-E159361%_))))) - (let* ((_%__stx168098168099%_ _%stx158949%_) - (_%g158956159045%_ + _%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%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168098168099%_))))) - (let ((_%__kont168100168101%_ - (lambda (_%L159304%_ _%L159305%_ _%L159306%_ _%L159307%_) - (let ((_%$e159339%_ - (let ((__tmp169912 + _%__stx169230169231%_))))) + (let ((_%__kont169232169233%_ + (lambda (_%L160436%_ _%L160437%_ _%L160438%_ _%L160439%_) + (let ((_%$e160471%_ + (let ((__tmp171044 (let () (declare (not safe)) - (gxc#identifier-symbol _%L159307%_)))) + (gxc#identifier-symbol _%L160439%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp169912)))) - (if _%$e159339%_ - ((lambda (_%pred-type159342%_) + (gxc#optimizer-lookup-type __tmp171044)))) + (if _%$e160471%_ + ((lambda (_%pred-type160474%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type159342%_ + _%pred-type160474%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type159342%_ + _%pred-type160474%_ 'gxc#!primitive-predicate::t))) - (let* ((_%type-K159348%_ - (let ((__tmp169915 + (let* ((_%type-K160480%_ + (let ((__tmp171047 (lambda () (gxc#apply-basic-expression-type - _%L159305%_))) - (__tmp169913 + _%L160437%_))) + (__tmp171045 (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#identifier-symbol _%L159306%_)) - (let ((__tmp169914 + (gxc#identifier-symbol _%L160438%_)) + (let ((__tmp171046 (##structure-ref - _%pred-type159342%_ + _%pred-type160474%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158949%_ - __tmp169914))) + _%stx160081%_ + __tmp171046))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp169915 + __tmp171047 gxc#current-compile-path-type - __tmp169913))) - (_%type-E159350%_ + __tmp171045))) + (_%type-E160482%_ (gxc#apply-basic-expression-type - _%L159304%_))) - (_%type-e158951%_ - _%type-K159348%_ - _%type-E159350%_)) - (_%basic-type-e158952%_ - _%L159305%_ - _%L159304%_))) - _%$e159339%_) - (_%basic-type-e158952%_ _%L159305%_ _%L159304%_))))) - (_%__kont168102168103%_ - (lambda (_%L159180%_ _%L159181%_ _%L159182%_ _%L159183%_) + _%L160436%_))) + (_%type-e160083%_ + _%type-K160480%_ + _%type-E160482%_)) + (_%basic-type-e160084%_ + _%L160437%_ + _%L160436%_))) + _%$e160471%_) + (_%basic-type-e160084%_ _%L160437%_ _%L160436%_))))) + (_%__kont169234169235%_ + (lambda (_%L160312%_ _%L160313%_ _%L160314%_ _%L160315%_) (gxc#basic-expression-type-if% - _%self158948%_ - (let ((__tmp169916 + _%self160080%_ + (let ((__tmp171048 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L159182%_ - (cons _%L159180%_ - (cons _%L159181%_ '())))))) + (cons _%L160314%_ + (cons _%L160312%_ + (cons _%L160313%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169916 _%stx158949%_))))) - (_%__kont168104168105%_ - (lambda (_%L159082%_ _%L159083%_ _%L159084%_) - (_%basic-type-e158952%_ _%L159083%_ _%L159082%_)))) - (let ((_%__match168259168260%_ - (lambda (_%e158999159108%_ - _%hd159000159111%_ - _%tl159001159113%_ - _%e159002159116%_ - _%hd159003159119%_ - _%tl159004159121%_ - _%e159005159124%_ - _%hd159006159127%_ - _%tl159007159129%_ - _%e159008159132%_ - _%hd159009159135%_ - _%tl159010159137%_ - _%e159011159140%_ - _%hd159012159143%_ - _%tl159013159145%_ - _%e159014159148%_ - _%hd159015159151%_ - _%tl159016159153%_ - _%e159017159156%_ - _%hd159018159159%_ - _%tl159019159161%_ - _%e159020159164%_ - _%hd159021159167%_ - _%tl159022159169%_ - _%e159023159172%_ - _%hd159024159175%_ - _%tl159025159177%_) - (let ((_%L159180%_ _%hd159024159175%_) - (_%L159181%_ _%hd159021159167%_) - (_%L159182%_ _%hd159018159159%_) - (_%L159183%_ _%hd159015159151%_)) + (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%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L159183%_ 'not)) - (_%__kont168102168103%_ - _%L159180%_ - _%L159181%_ - _%L159182%_ - _%L159183%_) - (_%__kont168104168105%_ - _%hd159024159175%_ - _%hd159021159167%_ - _%hd159003159119%_)))))) + (gxc#runtime-identifier=? _%L160315%_ 'not)) + (_%__kont169234169235%_ + _%L160312%_ + _%L160313%_ + _%L160314%_ + _%L160315%_) + (_%__kont169236169237%_ + _%hd160156160307%_ + _%hd160153160299%_ + _%hd160135160251%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168098168099%_)) - (let ((_%e158962159216%_ + (gx#stx-pair? _%__stx169230169231%_)) + (let ((_%e160094160348%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168098168099%_)))) - (let ((_%tl158964159221%_ + (gx#stx-e _%__stx169230169231%_)))) + (let ((_%tl160096160353%_ (let () (declare (not safe)) - (##cdr _%e158962159216%_))) - (_%hd158963159219%_ + (##cdr _%e160094160348%_))) + (_%hd160095160351%_ (let () (declare (not safe)) - (##car _%e158962159216%_)))) + (##car _%e160094160348%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158964159221%_)) - (let ((_%e158965159224%_ + (gx#stx-pair? _%tl160096160353%_)) + (let ((_%e160097160356%_ (let () (declare (not safe)) - (gx#stx-e _%tl158964159221%_)))) - (let ((_%tl158967159229%_ + (gx#stx-e _%tl160096160353%_)))) + (let ((_%tl160099160361%_ (let () (declare (not safe)) - (##cdr _%e158965159224%_))) - (_%hd158966159227%_ + (##cdr _%e160097160356%_))) + (_%hd160098160359%_ (let () (declare (not safe)) - (##car _%e158965159224%_)))) + (##car _%e160097160356%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158966159227%_)) - (let ((_%e158968159232%_ + (gx#stx-pair? _%hd160098160359%_)) + (let ((_%e160100160364%_ (let () (declare (not safe)) - (gx#stx-e _%hd158966159227%_)))) - (let ((_%tl158970159237%_ + (gx#stx-e _%hd160098160359%_)))) + (let ((_%tl160102160369%_ (let () (declare (not safe)) - (##cdr _%e158968159232%_))) - (_%hd158969159235%_ + (##cdr _%e160100160364%_))) + (_%hd160101160367%_ (let () (declare (not safe)) - (##car _%e158968159232%_)))) + (##car _%e160100160364%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158969159235%_)) + _%hd160101160367%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd158969159235%_)) + _%hd160101160367%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158970159237%_)) - (let ((_%e158971159240%_ + _%tl160102160369%_)) + (let ((_%e160103160372%_ (let () (declare (not safe)) (gx#stx-e - _%tl158970159237%_)))) - (let ((_%tl158973159245%_ + _%tl160102160369%_)))) + (let ((_%tl160105160377%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158971159240%_))) - (_%hd158972159243%_ - (let () (declare (not safe)) (##car _%e158971159240%_)))) + (##cdr _%e160103160372%_))) + (_%hd160104160375%_ + (let () (declare (not safe)) (##car _%e160103160372%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158972159243%_)) - (let ((_%e158974159248%_ + (gx#stx-pair? _%hd160104160375%_)) + (let ((_%e160106160380%_ (let () (declare (not safe)) - (gx#stx-e _%hd158972159243%_)))) - (let ((_%tl158976159253%_ + (gx#stx-e _%hd160104160375%_)))) + (let ((_%tl160108160385%_ (let () (declare (not safe)) - (##cdr _%e158974159248%_))) - (_%hd158975159251%_ + (##cdr _%e160106160380%_))) + (_%hd160107160383%_ (let () (declare (not safe)) - (##car _%e158974159248%_)))) + (##car _%e160106160380%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158975159251%_)) + (gx#identifier? _%hd160107160383%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158975159251%_)) + (gx#stx-eq? '%#ref _%hd160107160383%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158976159253%_)) - (let ((_%e158977159256%_ + (gx#stx-pair? _%tl160108160385%_)) + (let ((_%e160109160388%_ (let () (declare (not safe)) - (gx#stx-e _%tl158976159253%_)))) - (let ((_%tl158979159261%_ + (gx#stx-e _%tl160108160385%_)))) + (let ((_%tl160111160393%_ (let () (declare (not safe)) - (##cdr _%e158977159256%_))) - (_%hd158978159259%_ + (##cdr _%e160109160388%_))) + (_%hd160110160391%_ (let () (declare (not safe)) - (##car _%e158977159256%_)))) + (##car _%e160109160388%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158979159261%_)) + _%tl160111160393%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158973159245%_)) - (let ((_%e158980159264%_ + _%tl160105160377%_)) + (let ((_%e160112160396%_ (let () (declare (not safe)) (gx#stx-e - _%tl158973159245%_)))) - (let ((_%tl158982159269%_ + _%tl160105160377%_)))) + (let ((_%tl160114160401%_ (let () (declare (not safe)) - (##cdr _%e158980159264%_))) - (_%hd158981159267%_ + (##cdr _%e160112160396%_))) + (_%hd160113160399%_ (let () (declare (not safe)) - (##car _%e158980159264%_)))) + (##car _%e160112160396%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158981159267%_)) - (let ((_%e158983159272%_ + _%hd160113160399%_)) + (let ((_%e160115160404%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd158981159267%_)))) - (let ((_%tl158985159277%_ + (gx#stx-e _%hd160113160399%_)))) + (let ((_%tl160117160409%_ (let () (declare (not safe)) - (##cdr _%e158983159272%_))) - (_%hd158984159275%_ + (##cdr _%e160115160404%_))) + (_%hd160116160407%_ (let () (declare (not safe)) - (##car _%e158983159272%_)))) + (##car _%e160115160404%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158984159275%_)) + (gx#identifier? _%hd160116160407%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158984159275%_)) + (gx#stx-eq? '%#ref _%hd160116160407%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158985159277%_)) - (let ((_%e158986159280%_ + (gx#stx-pair? _%tl160117160409%_)) + (let ((_%e160118160412%_ (let () (declare (not safe)) - (gx#stx-e _%tl158985159277%_)))) - (let ((_%tl158988159285%_ + (gx#stx-e _%tl160117160409%_)))) + (let ((_%tl160120160417%_ (let () (declare (not safe)) - (##cdr _%e158986159280%_))) - (_%hd158987159283%_ + (##cdr _%e160118160412%_))) + (_%hd160119160415%_ (let () (declare (not safe)) - (##car _%e158986159280%_)))) + (##car _%e160118160412%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158988159285%_)) + (gx#stx-null? _%tl160120160417%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158982159269%_)) + _%tl160114160401%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158967159229%_)) - (let ((_%e158989159288%_ + _%tl160099160361%_)) + (let ((_%e160121160420%_ (let () (declare (not safe)) (gx#stx-e - _%tl158967159229%_)))) - (let ((_%tl158991159293%_ + _%tl160099160361%_)))) + (let ((_%tl160123160425%_ (let () (declare (not safe)) - (##cdr _%e158989159288%_))) - (_%hd158990159291%_ + (##cdr _%e160121160420%_))) + (_%hd160122160423%_ (let () (declare (not safe)) - (##car _%e158989159288%_)))) + (##car _%e160121160420%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158991159293%_)) - (let ((_%e158992159296%_ + _%tl160123160425%_)) + (let ((_%e160124160428%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl158991159293%_)))) - (let ((_%tl158994159301%_ + (gx#stx-e _%tl160123160425%_)))) + (let ((_%tl160126160433%_ (let () (declare (not safe)) - (##cdr _%e158992159296%_))) - (_%hd158993159299%_ + (##cdr _%e160124160428%_))) + (_%hd160125160431%_ (let () (declare (not safe)) - (##car _%e158992159296%_)))) + (##car _%e160124160428%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158994159301%_)) - (_%__kont168100168101%_ - _%hd158993159299%_ - _%hd158990159291%_ - _%hd158987159283%_ - _%hd158978159259%_) - (let () (declare (not safe)) (_%g158956159045%_))))) - (let () (declare (not safe)) (_%g158956159045%_))))) + (gx#stx-null? _%tl160126160433%_)) + (_%__kont169232169233%_ + _%hd160125160431%_ + _%hd160122160423%_ + _%hd160119160415%_ + _%hd160110160391%_) + (let () (declare (not safe)) (_%g160088160177%_))))) + (let () (declare (not safe)) (_%g160088160177%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158956159045%_))) + (_%g160088160177%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158967159229%_)) - (let ((_%e159035159066%_ + _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) (gx#stx-e - _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ (let () (declare (not safe)) - (##car _%e159035159066%_)))) + (##car _%e160167160198%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159037159071%_)) - (let ((_%e159038159074%_ + _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + (gx#stx-e _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) - (let () (declare (not safe)) (_%g158956159045%_))))) - (let () (declare (not safe)) (_%g158956159045%_))))) + (gx#stx-null? _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) + (let () (declare (not safe)) (_%g160088160177%_))))) + (let () (declare (not safe)) (_%g160088160177%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158956159045%_)))) + (_%g160088160177%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158982159269%_)) + _%tl160114160401%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158967159229%_)) - (let ((_%e159020159164%_ + _%tl160099160361%_)) + (let ((_%e160152160296%_ (let () (declare (not safe)) (gx#stx-e - _%tl158967159229%_)))) - (let ((_%tl159022159169%_ + _%tl160099160361%_)))) + (let ((_%tl160154160301%_ (let () (declare (not safe)) - (##cdr _%e159020159164%_))) - (_%hd159021159167%_ + (##cdr _%e160152160296%_))) + (_%hd160153160299%_ (let () (declare (not safe)) - (##car _%e159020159164%_)))) + (##car _%e160152160296%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159022159169%_)) - (let ((_%e159023159172%_ + _%tl160154160301%_)) + (let ((_%e160155160304%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl159022159169%_)))) - (let ((_%tl159025159177%_ + (gx#stx-e _%tl160154160301%_)))) + (let ((_%tl160157160309%_ (let () (declare (not safe)) - (##cdr _%e159023159172%_))) - (_%hd159024159175%_ + (##cdr _%e160155160304%_))) + (_%hd160156160307%_ (let () (declare (not safe)) - (##car _%e159023159172%_)))) + (##car _%e160155160304%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159025159177%_)) - (_%__match168259168260%_ - _%e158962159216%_ - _%hd158963159219%_ - _%tl158964159221%_ - _%e158965159224%_ - _%hd158966159227%_ - _%tl158967159229%_ - _%e158968159232%_ - _%hd158969159235%_ - _%tl158970159237%_ - _%e158971159240%_ - _%hd158972159243%_ - _%tl158973159245%_ - _%e158974159248%_ - _%hd158975159251%_ - _%tl158976159253%_ - _%e158977159256%_ - _%hd158978159259%_ - _%tl158979159261%_ - _%e158980159264%_ - _%hd158981159267%_ - _%tl158982159269%_ - _%e159020159164%_ - _%hd159021159167%_ - _%tl159022159169%_ - _%e159023159172%_ - _%hd159024159175%_ - _%tl159025159177%_) - (let () (declare (not safe)) (_%g158956159045%_))))) - (let () (declare (not safe)) (_%g158956159045%_))))) + (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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158956159045%_))) + (_%g160088160177%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158967159229%_)) - (let ((_%e159035159066%_ + _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) (gx#stx-e - _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ (let () (declare (not safe)) - (##car _%e159035159066%_)))) + (##car _%e160167160198%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159037159071%_)) - (let ((_%e159038159074%_ + _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + (gx#stx-e _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) - (let () (declare (not safe)) (_%g158956159045%_))))) - (let () (declare (not safe)) (_%g158956159045%_))))) + (gx#stx-null? _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) + (let () (declare (not safe)) (_%g160088160177%_))))) + (let () (declare (not safe)) (_%g160088160177%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158956159045%_))))))) + (_%g160088160177%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158982159269%_)) + (gx#stx-null? _%tl160114160401%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158967159229%_)) - (let ((_%e159020159164%_ + (gx#stx-pair? _%tl160099160361%_)) + (let ((_%e160152160296%_ (let () (declare (not safe)) (gx#stx-e - _%tl158967159229%_)))) - (let ((_%tl159022159169%_ + _%tl160099160361%_)))) + (let ((_%tl160154160301%_ (let () (declare (not safe)) - (##cdr _%e159020159164%_))) - (_%hd159021159167%_ + (##cdr _%e160152160296%_))) + (_%hd160153160299%_ (let () (declare (not safe)) - (##car _%e159020159164%_)))) + (##car _%e160152160296%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159022159169%_)) - (let ((_%e159023159172%_ + _%tl160154160301%_)) + (let ((_%e160155160304%_ (let () (declare (not safe)) (gx#stx-e - _%tl159022159169%_)))) - (let ((_%tl159025159177%_ + _%tl160154160301%_)))) + (let ((_%tl160157160309%_ (let () (declare (not safe)) - (##cdr _%e159023159172%_))) - (_%hd159024159175%_ + (##cdr _%e160155160304%_))) + (_%hd160156160307%_ (let () (declare (not safe)) - (##car _%e159023159172%_)))) + (##car _%e160155160304%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159025159177%_)) - (_%__match168259168260%_ - _%e158962159216%_ - _%hd158963159219%_ - _%tl158964159221%_ - _%e158965159224%_ - _%hd158966159227%_ - _%tl158967159229%_ - _%e158968159232%_ - _%hd158969159235%_ - _%tl158970159237%_ - _%e158971159240%_ - _%hd158972159243%_ - _%tl158973159245%_ - _%e158974159248%_ - _%hd158975159251%_ - _%tl158976159253%_ - _%e158977159256%_ - _%hd158978159259%_ - _%tl158979159261%_ - _%e158980159264%_ - _%hd158981159267%_ - _%tl158982159269%_ - _%e159020159164%_ - _%hd159021159167%_ - _%tl159022159169%_ - _%e159023159172%_ - _%hd159024159175%_ - _%tl159025159177%_) + _%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)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))) + (_%g160088160177%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158967159229%_)) - (let ((_%e159035159066%_ + (gx#stx-pair? _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) (gx#stx-e - _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ (let () (declare (not safe)) - (##car _%e159035159066%_)))) + (##car _%e160167160198%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159037159071%_)) - (let ((_%e159038159074%_ + _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () (declare (not safe)) (gx#stx-e - _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) + _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158982159269%_)) + (gx#stx-null? _%tl160114160401%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158967159229%_)) - (let ((_%e159020159164%_ + (gx#stx-pair? _%tl160099160361%_)) + (let ((_%e160152160296%_ (let () (declare (not safe)) - (gx#stx-e _%tl158967159229%_)))) - (let ((_%tl159022159169%_ + (gx#stx-e _%tl160099160361%_)))) + (let ((_%tl160154160301%_ (let () (declare (not safe)) - (##cdr _%e159020159164%_))) - (_%hd159021159167%_ + (##cdr _%e160152160296%_))) + (_%hd160153160299%_ (let () (declare (not safe)) - (##car _%e159020159164%_)))) + (##car _%e160152160296%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159022159169%_)) - (let ((_%e159023159172%_ + _%tl160154160301%_)) + (let ((_%e160155160304%_ (let () (declare (not safe)) (gx#stx-e - _%tl159022159169%_)))) - (let ((_%tl159025159177%_ + _%tl160154160301%_)))) + (let ((_%tl160157160309%_ (let () (declare (not safe)) - (##cdr _%e159023159172%_))) - (_%hd159024159175%_ + (##cdr _%e160155160304%_))) + (_%hd160156160307%_ (let () (declare (not safe)) - (##car _%e159023159172%_)))) + (##car _%e160155160304%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159025159177%_)) - (_%__match168259168260%_ - _%e158962159216%_ - _%hd158963159219%_ - _%tl158964159221%_ - _%e158965159224%_ - _%hd158966159227%_ - _%tl158967159229%_ - _%e158968159232%_ - _%hd158969159235%_ - _%tl158970159237%_ - _%e158971159240%_ - _%hd158972159243%_ - _%tl158973159245%_ - _%e158974159248%_ - _%hd158975159251%_ - _%tl158976159253%_ - _%e158977159256%_ - _%hd158978159259%_ - _%tl158979159261%_ - _%e158980159264%_ - _%hd158981159267%_ - _%tl158982159269%_ - _%e159020159164%_ - _%hd159021159167%_ - _%tl159022159169%_ - _%e159023159172%_ - _%hd159024159175%_ - _%tl159025159177%_) + _%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)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))) + (_%g160088160177%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158967159229%_)) - (let ((_%e159035159066%_ + (gx#stx-pair? _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) - (gx#stx-e _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + (gx#stx-e _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ (let () (declare (not safe)) - (##car _%e159035159066%_)))) + (##car _%e160167160198%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159037159071%_)) - (let ((_%e159038159074%_ + _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () (declare (not safe)) (gx#stx-e - _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) + _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158982159269%_)) + (gx#stx-null? _%tl160114160401%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158967159229%_)) - (let ((_%e159020159164%_ + (gx#stx-pair? _%tl160099160361%_)) + (let ((_%e160152160296%_ (let () (declare (not safe)) - (gx#stx-e _%tl158967159229%_)))) - (let ((_%tl159022159169%_ + (gx#stx-e _%tl160099160361%_)))) + (let ((_%tl160154160301%_ (let () (declare (not safe)) - (##cdr _%e159020159164%_))) - (_%hd159021159167%_ + (##cdr _%e160152160296%_))) + (_%hd160153160299%_ (let () (declare (not safe)) - (##car _%e159020159164%_)))) + (##car _%e160152160296%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159022159169%_)) - (let ((_%e159023159172%_ + (gx#stx-pair? _%tl160154160301%_)) + (let ((_%e160155160304%_ (let () (declare (not safe)) (gx#stx-e - _%tl159022159169%_)))) - (let ((_%tl159025159177%_ + _%tl160154160301%_)))) + (let ((_%tl160157160309%_ (let () (declare (not safe)) - (##cdr _%e159023159172%_))) - (_%hd159024159175%_ + (##cdr _%e160155160304%_))) + (_%hd160156160307%_ (let () (declare (not safe)) - (##car _%e159023159172%_)))) + (##car _%e160155160304%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159025159177%_)) - (_%__match168259168260%_ - _%e158962159216%_ - _%hd158963159219%_ - _%tl158964159221%_ - _%e158965159224%_ - _%hd158966159227%_ - _%tl158967159229%_ - _%e158968159232%_ - _%hd158969159235%_ - _%tl158970159237%_ - _%e158971159240%_ - _%hd158972159243%_ - _%tl158973159245%_ - _%e158974159248%_ - _%hd158975159251%_ - _%tl158976159253%_ - _%e158977159256%_ - _%hd158978159259%_ - _%tl158979159261%_ - _%e158980159264%_ - _%hd158981159267%_ - _%tl158982159269%_ - _%e159020159164%_ - _%hd159021159167%_ - _%tl159022159169%_ - _%e159023159172%_ - _%hd159024159175%_ - _%tl159025159177%_) + _%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)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))) + (_%g160088160177%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158967159229%_)) - (let ((_%e159035159066%_ + (gx#stx-pair? _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) - (gx#stx-e _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + (gx#stx-e _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ (let () (declare (not safe)) - (##car _%e159035159066%_)))) + (##car _%e160167160198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159037159071%_)) - (let ((_%e159038159074%_ + (gx#stx-pair? _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () (declare (not safe)) (gx#stx-e - _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) + _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))))) + (_%g160088160177%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158982159269%_)) + (gx#stx-null? _%tl160114160401%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158967159229%_)) - (let ((_%e159020159164%_ + (gx#stx-pair? _%tl160099160361%_)) + (let ((_%e160152160296%_ (let () (declare (not safe)) - (gx#stx-e _%tl158967159229%_)))) - (let ((_%tl159022159169%_ + (gx#stx-e _%tl160099160361%_)))) + (let ((_%tl160154160301%_ (let () (declare (not safe)) - (##cdr _%e159020159164%_))) - (_%hd159021159167%_ + (##cdr _%e160152160296%_))) + (_%hd160153160299%_ (let () (declare (not safe)) - (##car _%e159020159164%_)))) + (##car _%e160152160296%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159022159169%_)) - (let ((_%e159023159172%_ + (gx#stx-pair? _%tl160154160301%_)) + (let ((_%e160155160304%_ (let () (declare (not safe)) - (gx#stx-e _%tl159022159169%_)))) - (let ((_%tl159025159177%_ + (gx#stx-e _%tl160154160301%_)))) + (let ((_%tl160157160309%_ (let () (declare (not safe)) - (##cdr _%e159023159172%_))) - (_%hd159024159175%_ + (##cdr _%e160155160304%_))) + (_%hd160156160307%_ (let () (declare (not safe)) - (##car _%e159023159172%_)))) + (##car _%e160155160304%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159025159177%_)) - (_%__match168259168260%_ - _%e158962159216%_ - _%hd158963159219%_ - _%tl158964159221%_ - _%e158965159224%_ - _%hd158966159227%_ - _%tl158967159229%_ - _%e158968159232%_ - _%hd158969159235%_ - _%tl158970159237%_ - _%e158971159240%_ - _%hd158972159243%_ - _%tl158973159245%_ - _%e158974159248%_ - _%hd158975159251%_ - _%tl158976159253%_ - _%e158977159256%_ - _%hd158978159259%_ - _%tl158979159261%_ - _%e158980159264%_ - _%hd158981159267%_ - _%tl158982159269%_ - _%e159020159164%_ - _%hd159021159167%_ - _%tl159022159169%_ - _%e159023159172%_ - _%hd159024159175%_ - _%tl159025159177%_) + (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)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) - (let () (declare (not safe)) (_%g158956159045%_))) + (_%g160088160177%_))))) + (let () (declare (not safe)) (_%g160088160177%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158967159229%_)) - (let ((_%e159035159066%_ + (gx#stx-pair? _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) - (gx#stx-e _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + (gx#stx-e _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ (let () (declare (not safe)) - (##car _%e159035159066%_)))) + (##car _%e160167160198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159037159071%_)) - (let ((_%e159038159074%_ + (gx#stx-pair? _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () (declare (not safe)) - (gx#stx-e _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + (gx#stx-e _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) + (gx#stx-null? _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) - (let () (declare (not safe)) (_%g158956159045%_))))))) + (_%g160088160177%_))))) + (let () (declare (not safe)) (_%g160088160177%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158967159229%_)) - (let ((_%e159035159066%_ + _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) (gx#stx-e - _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ - (let () (declare (not safe)) (##car _%e159035159066%_)))) + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ + (let () (declare (not safe)) (##car _%e160167160198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159037159071%_)) - (let ((_%e159038159074%_ + (gx#stx-pair? _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () (declare (not safe)) - (gx#stx-e _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + (gx#stx-e _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) + (gx#stx-null? _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) (let () (declare (not safe)) - (_%g158956159045%_))))) - (let () (declare (not safe)) (_%g158956159045%_))))) + (_%g160088160177%_))))) + (let () (declare (not safe)) (_%g160088160177%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158956159045%_)))) + (_%g160088160177%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158967159229%_)) - (let ((_%e159035159066%_ + _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) (gx#stx-e - _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ (let () (declare (not safe)) - (##car _%e159035159066%_)))) + (##car _%e160167160198%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159037159071%_)) - (let ((_%e159038159074%_ + _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + (gx#stx-e _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) - (let () (declare (not safe)) (_%g158956159045%_))))) - (let () (declare (not safe)) (_%g158956159045%_))))) + (gx#stx-null? _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) + (let () (declare (not safe)) (_%g160088160177%_))))) + (let () (declare (not safe)) (_%g160088160177%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158956159045%_)))))) + (_%g160088160177%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158967159229%_)) - (let ((_%e159035159066%_ + (gx#stx-pair? _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) (gx#stx-e - _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ (let () (declare (not safe)) - (##car _%e159035159066%_)))) + (##car _%e160167160198%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159037159071%_)) - (let ((_%e159038159074%_ + _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () (declare (not safe)) (gx#stx-e - _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) + _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_)))) + (_%g160088160177%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158967159229%_)) - (let ((_%e159035159066%_ + (gx#stx-pair? _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) - (gx#stx-e _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + (gx#stx-e _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ (let () (declare (not safe)) - (##car _%e159035159066%_)))) + (##car _%e160167160198%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159037159071%_)) - (let ((_%e159038159074%_ + _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () (declare (not safe)) (gx#stx-e - _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) + _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_)))) + (_%g160088160177%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158967159229%_)) - (let ((_%e159035159066%_ + (gx#stx-pair? _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) - (gx#stx-e _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + (gx#stx-e _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ (let () (declare (not safe)) - (##car _%e159035159066%_)))) + (##car _%e160167160198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159037159071%_)) - (let ((_%e159038159074%_ + (gx#stx-pair? _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () (declare (not safe)) (gx#stx-e - _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) + _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_)))))) + (_%g160088160177%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158967159229%_)) - (let ((_%e159035159066%_ + (gx#stx-pair? _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) - (gx#stx-e _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + (gx#stx-e _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ (let () (declare (not safe)) - (##car _%e159035159066%_)))) + (##car _%e160167160198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159037159071%_)) - (let ((_%e159038159074%_ + (gx#stx-pair? _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () (declare (not safe)) - (gx#stx-e _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + (gx#stx-e _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) + (gx#stx-null? _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) - (let () (declare (not safe)) (_%g158956159045%_)))))) + (_%g160088160177%_))))) + (let () (declare (not safe)) (_%g160088160177%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158967159229%_)) - (let ((_%e159035159066%_ + _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + (gx#stx-e _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ (let () (declare (not safe)) - (##car _%e159035159066%_)))) + (##car _%e160167160198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159037159071%_)) - (let ((_%e159038159074%_ + (gx#stx-pair? _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () (declare (not safe)) - (gx#stx-e _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + (gx#stx-e _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) + (gx#stx-null? _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) (let () (declare (not safe)) - (_%g158956159045%_))))) - (let () (declare (not safe)) (_%g158956159045%_))))) - (let () (declare (not safe)) (_%g158956159045%_)))) + (_%g160088160177%_))))) + (let () (declare (not safe)) (_%g160088160177%_))))) + (let () (declare (not safe)) (_%g160088160177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158967159229%_)) - (let ((_%e159035159066%_ + _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) (gx#stx-e - _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ - (let () (declare (not safe)) (##car _%e159035159066%_)))) + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ + (let () (declare (not safe)) (##car _%e160167160198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159037159071%_)) - (let ((_%e159038159074%_ + (gx#stx-pair? _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () (declare (not safe)) - (gx#stx-e _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + (gx#stx-e _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) + (gx#stx-null? _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) (let () (declare (not safe)) - (_%g158956159045%_))))) - (let () (declare (not safe)) (_%g158956159045%_))))) + (_%g160088160177%_))))) + (let () (declare (not safe)) (_%g160088160177%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158956159045%_)))) + (_%g160088160177%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158967159229%_)) - (let ((_%e159035159066%_ + _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) (gx#stx-e - _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ (let () (declare (not safe)) - (##car _%e159035159066%_)))) + (##car _%e160167160198%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159037159071%_)) - (let ((_%e159038159074%_ + _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + (gx#stx-e _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) - (let () (declare (not safe)) (_%g158956159045%_))))) - (let () (declare (not safe)) (_%g158956159045%_))))) + (gx#stx-null? _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) + (let () (declare (not safe)) (_%g160088160177%_))))) + (let () (declare (not safe)) (_%g160088160177%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158956159045%_)))))) + (_%g160088160177%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158967159229%_)) - (let ((_%e159035159066%_ + (gx#stx-pair? _%tl160099160361%_)) + (let ((_%e160167160198%_ (let () (declare (not safe)) (gx#stx-e - _%tl158967159229%_)))) - (let ((_%tl159037159071%_ + _%tl160099160361%_)))) + (let ((_%tl160169160203%_ (let () (declare (not safe)) - (##cdr _%e159035159066%_))) - (_%hd159036159069%_ + (##cdr _%e160167160198%_))) + (_%hd160168160201%_ (let () (declare (not safe)) - (##car _%e159035159066%_)))) + (##car _%e160167160198%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159037159071%_)) - (let ((_%e159038159074%_ + _%tl160169160203%_)) + (let ((_%e160170160206%_ (let () (declare (not safe)) (gx#stx-e - _%tl159037159071%_)))) - (let ((_%tl159040159079%_ + _%tl160169160203%_)))) + (let ((_%tl160172160211%_ (let () (declare (not safe)) - (##cdr _%e159038159074%_))) - (_%hd159039159077%_ + (##cdr _%e160170160206%_))) + (_%hd160171160209%_ (let () (declare (not safe)) - (##car _%e159038159074%_)))) + (##car _%e160170160206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159040159079%_)) - (_%__kont168104168105%_ - _%hd159039159077%_ - _%hd159036159069%_ - _%hd158966159227%_) + _%tl160172160211%_)) + (_%__kont169236169237%_ + _%hd160171160209%_ + _%hd160168160201%_ + _%hd160098160359%_) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_))))) + (_%g160088160177%_))))) (let () (declare (not safe)) - (_%g158956159045%_)))))) + (_%g160088160177%_)))))) (let () (declare (not safe)) - (_%g158956159045%_))))) - (let () (declare (not safe)) (_%g158956159045%_))))))))) + (_%g160088160177%_))))) + (let () (declare (not safe)) (_%g160088160177%_))))))))) (define gxc#greatest-common-type - (lambda (_%stx158804%_ _%type-a158805%_ _%type-b158806%_) - (letrec ((_%common-e158808%_ - (lambda (_%left158908%_ _%right158909%_) - (let _%loop158911%_ ((_%rest158913%_ _%left158908%_)) - (let* ((_%rest158914158922%_ _%rest158913%_) - (_%else158916158930%_ + (lambda (_%stx159936%_ _%type-a159937%_ _%type-b159938%_) + (letrec ((_%common-e159940%_ + (lambda (_%left160040%_ _%right160041%_) + (let _%loop160043%_ ((_%rest160045%_ _%left160040%_)) + (let* ((_%rest160046160054%_ _%rest160045%_) + (_%else160048160062%_ (lambda () (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158804%_ + _%stx159936%_ 't::t)))) - (_%K158918158936%_ - (lambda (_%rest158933%_ _%klass-name158934%_) - (if (memq _%klass-name158934%_ _%right158909%_) + (_%K160050160068%_ + (lambda (_%rest160065%_ _%klass-name160066%_) + (if (memq _%klass-name160066%_ _%right160041%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158804%_ - _%klass-name158934%_)) - (_%loop158911%_ _%rest158933%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest158914158922%_)) - (let ((_%hd158919158939%_ + _%stx159936%_ + _%klass-name160066%_)) + (_%loop160043%_ _%rest160065%_))))) + (if (pair? _%rest160046160054%_) + (let ((_%hd160051160071%_ (let () (declare (not safe)) - (##car _%rest158914158922%_))) - (_%tl158920158941%_ + (##car _%rest160046160054%_))) + (_%tl160052160073%_ (let () (declare (not safe)) - (##cdr _%rest158914158922%_)))) - (let* ((_%klass-name158944%_ _%hd158919158939%_) - (_%rest158946%_ _%tl158920158941%_)) - (_%K158918158936%_ - _%rest158946%_ - _%klass-name158944%_))) - (_%else158916158930%_)))))) - (_%common-tail158809%_ - (lambda (_%precedence-list-a158828%_ - _%precedence-list-b158829%_) - (let* ((_%rev-precedence-list-a158831%_ - (reverse _%precedence-list-a158828%_)) - (_%rev-precedence-list-b158833%_ - (reverse _%precedence-list-b158829%_))) - (let _%loop158836%_ ((_%rest-a158838%_ - _%rev-precedence-list-a158831%_) - (_%rest-b158839%_ - _%rev-precedence-list-b158833%_) - (_%result158840%_ '#f)) - (let* ((_%rest-a158841158849%_ _%rest-a158838%_) - (_%else158843158857%_ + (##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%_ (lambda () - (if _%result158840%_ + (if _%result159972%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158804%_ - _%result158840%_)) + _%stx159936%_ + _%result159972%_)) '#f))) - (_%K158845158896%_ - (lambda (_%rest-a158860%_ _%super-a158861%_) - (let* ((_%rest-b158862158870%_ - _%rest-b158839%_) - (_%else158864158878%_ + (_%K159977160028%_ + (lambda (_%rest-a159992%_ _%super-a159993%_) + (let* ((_%rest-b159994160002%_ + _%rest-b159971%_) + (_%else159996160010%_ (lambda () - (if _%result158840%_ + (if _%result159972%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158804%_ - _%result158840%_)) + _%stx159936%_ + _%result159972%_)) '#f))) - (_%K158866158884%_ - (lambda (_%rest-b158881%_ - _%super-b158882%_) - (if (eq? _%super-a158861%_ - _%super-b158882%_) - (_%loop158836%_ - _%rest-a158860%_ - _%rest-b158881%_ - _%super-a158861%_) - (if _%result158840%_ + (_%K159998160016%_ + (lambda (_%rest-b160013%_ + _%super-b160014%_) + (if (eq? _%super-a159993%_ + _%super-b160014%_) + (_%loop159968%_ + _%rest-a159992%_ + _%rest-b160013%_ + _%super-a159993%_) + (if _%result159972%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158804%_ - _%result158840%_)) + _%stx159936%_ + _%result159972%_)) '#f))))) - (if (let () - (declare (not safe)) - (##pair? _%rest-b158862158870%_)) - (let ((_%hd158867158887%_ + (if (pair? _%rest-b159994160002%_) + (let ((_%hd159999160019%_ (let () (declare (not safe)) - (##car _%rest-b158862158870%_))) - (_%tl158868158889%_ + (##car _%rest-b159994160002%_))) + (_%tl160000160021%_ (let () (declare (not safe)) - (##cdr _%rest-b158862158870%_)))) - (let* ((_%super-b158892%_ - _%hd158867158887%_) - (_%rest-b158894%_ - _%tl158868158889%_)) - (_%K158866158884%_ - _%rest-b158894%_ - _%super-b158892%_))) - (_%else158864158878%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest-a158841158849%_)) - (let ((_%hd158846158899%_ + (##cdr _%rest-b159994160002%_)))) + (let* ((_%super-b160024%_ + _%hd159999160019%_) + (_%rest-b160026%_ + _%tl160000160021%_)) + (_%K159998160016%_ + _%rest-b160026%_ + _%super-b160024%_))) + (_%else159996160010%_)))))) + (if (pair? _%rest-a159973159981%_) + (let ((_%hd159978160031%_ (let () (declare (not safe)) - (##car _%rest-a158841158849%_))) - (_%tl158847158901%_ + (##car _%rest-a159973159981%_))) + (_%tl159979160033%_ (let () (declare (not safe)) - (##cdr _%rest-a158841158849%_)))) - (let* ((_%super-a158904%_ _%hd158846158899%_) - (_%rest-a158906%_ _%tl158847158901%_)) - (_%K158845158896%_ - _%rest-a158906%_ - _%super-a158904%_))) - (_%else158843158857%_)))))))) - (if (or (not _%type-a158805%_) (not _%type-b158806%_)) + (##cdr _%rest-a159973159981%_)))) + (let* ((_%super-a160036%_ _%hd159978160031%_) + (_%rest-a160038%_ _%tl159979160033%_)) + (_%K159977160028%_ + _%rest-a160038%_ + _%super-a160036%_))) + (_%else159975159989%_)))))))) + (if (or (not _%type-a159937%_) (not _%type-b159938%_)) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx158804%_ 't::t)) + (gxc#optimizer-resolve-class _%stx159936%_ 't::t)) (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-a158805%_ _%type-b158806%_)) - _%type-b158806%_ + (gxc#!type-subtype? _%type-a159937%_ _%type-b159938%_)) + _%type-b159938%_ (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-b158806%_ _%type-a158805%_)) - _%type-a158805%_ + (gxc#!type-subtype? _%type-b159938%_ _%type-a159937%_)) + _%type-a159937%_ (if (and (let () (declare (not safe)) (##structure-instance-of? - _%type-a158805%_ + _%type-a159937%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%type-b158806%_ + _%type-b159938%_ 'gxc#!class::t))) - (let* ((_%precedence-list-a158818%_ + (let* ((_%precedence-list-a159950%_ (##structure-ref - _%type-a158805%_ + _%type-a159937%_ '3 gxc#!class::t '#f)) - (_%precedence-list-b158820%_ + (_%precedence-list-b159952%_ (##structure-ref - _%type-b158806%_ + _%type-b159938%_ '3 gxc#!class::t '#f))) - (if (> (length _%precedence-list-a158818%_) - (length _%precedence-list-b158820%_)) - (_%common-e158808%_ - _%precedence-list-b158820%_ - _%precedence-list-a158818%_) - (if (< (length _%precedence-list-a158818%_) - (length _%precedence-list-b158820%_)) - (_%common-e158808%_ - _%precedence-list-a158818%_ - _%precedence-list-b158820%_) - (_%common-tail158809%_ - _%precedence-list-a158818%_ - _%precedence-list-b158820%_)))) + (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 (and (eq? (##structure-ref - _%type-a158805%_ + _%type-a159937%_ '1 gxc#!type::t '#f) 'procedure) (eq? (##structure-ref - _%type-b158806%_ + _%type-b159938%_ '1 gxc#!type::t '#f) @@ -14589,3419 +14573,3419 @@ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158804%_ + _%stx159936%_ 'procedure::t)) '#f)))))))) (define gxc#basic-expression-type-quote% - (lambda (_%self158716%_ _%stx158717%_) - (let* ((_%g158719158732%_ - (lambda (_%g158720158729%_) + (lambda (_%self159848%_ _%stx159849%_) + (let* ((_%g159851159864%_ + (lambda (_%g159852159861%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g158720158729%_)))) - (_%g158718158801%_ - (lambda (_%g158720158735%_) + _%g159852159861%_)))) + (_%g159850159933%_ + (lambda (_%g159852159867%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g158720158735%_)) - (let ((_%e158722158737%_ + (gx#stx-pair? _%g159852159867%_)) + (let ((_%e159854159869%_ (let () (declare (not safe)) - (gx#stx-e _%g158720158735%_)))) - (let ((_%hd158723158740%_ + (gx#stx-e _%g159852159867%_)))) + (let ((_%hd159855159872%_ (let () (declare (not safe)) - (##car _%e158722158737%_))) - (_%tl158724158742%_ + (##car _%e159854159869%_))) + (_%tl159856159874%_ (let () (declare (not safe)) - (##cdr _%e158722158737%_)))) + (##cdr _%e159854159869%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158724158742%_)) - (let ((_%e158725158745%_ + (gx#stx-pair? _%tl159856159874%_)) + (let ((_%e159857159877%_ (let () (declare (not safe)) - (gx#stx-e _%tl158724158742%_)))) - (let ((_%hd158726158748%_ + (gx#stx-e _%tl159856159874%_)))) + (let ((_%hd159858159880%_ (let () (declare (not safe)) - (##car _%e158725158745%_))) - (_%tl158727158750%_ + (##car _%e159857159877%_))) + (_%tl159859159882%_ (let () (declare (not safe)) - (##cdr _%e158725158745%_)))) + (##cdr _%e159857159877%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158727158750%_)) - ((lambda (_%L158753%_) - (let ((_%obj158765%_ + (gx#stx-null? _%tl159859159882%_)) + ((lambda (_%L159885%_) + (let ((_%obj159897%_ (let () (declare (not safe)) - (gx#stx-e _%L158753%_)))) + (gx#stx-e _%L159885%_)))) (if (let () (declare (not safe)) - (immediate? _%obj158765%_)) - (if (char? _%obj158765%_) + (immediate? _%obj159897%_)) + (if (char? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'char::t)) - (if (eq? _%obj158765%_ '#t) + (if (eq? _%obj159897%_ '#t) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'true::t)) - (if (not _%obj158765%_) + (if (not _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'false::t)) - (if (eq? _%obj158765%_ + (if (eq? _%obj159897%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!void) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx158717%_ 'void::t)) - (if (eof-object? _%obj158765%_) + (gxc#optimizer-resolve-class _%stx159849%_ 'void::t)) + (if (eof-object? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'eof::t)) - (if (fixnum? _%obj158765%_) + (if (fixnum? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'fixnum::t)) - (if (null? _%obj158765%_) + (if (null? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'null::t)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'special::t))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (number? _%obj158765%_) - (if (flonum? _%obj158765%_) + (if (number? _%obj159897%_) + (if (flonum? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'flonum::t)) (if (let () (declare (not safe)) (##bignum? - _%obj158765%_)) + _%obj159897%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'bignum::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##ratnum? _%obj158765%_)) + (##ratnum? _%obj159897%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'ratnum::t)) (if (let () (declare (not safe)) - (##cpxnum? _%obj158765%_)) + (##cpxnum? _%obj159897%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'cpxnum::t)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (symbol? _%obj158765%_) + (if (symbol? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'symbol::t)) (if (keyword? - _%obj158765%_) + _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'keyword::t)) - (if (pair? _%obj158765%_) + (if (pair? _%obj159897%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#optimizer-resolve-class _%stx158717%_ 'pair::t)) - (if (sequence? _%obj158765%_) - (if (vector? _%obj158765%_) + (gxc#optimizer-resolve-class _%stx159849%_ 'pair::t)) + (if (sequence? _%obj159897%_) + (if (vector? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'vector::t)) - (if (string? _%obj158765%_) + (if (string? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'string::t)) - (if (u8vector? _%obj158765%_) + (if (u8vector? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'u8vector::t)) - (if (s8vector? _%obj158765%_) + (if (s8vector? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 's8vector::t)) - (if (u16vector? _%obj158765%_) + (if (u16vector? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'u16vector::t)) - (if (s16vector? _%obj158765%_) + (if (s16vector? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 's16vector::t)) (if (u32vector? - _%obj158765%_) + _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'u32vector::t)) (if (s32vector? - _%obj158765%_) + _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 's32vector::t)) (if (u64vector? - _%obj158765%_) + _%obj159897%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'u64vector::t)) - (if (s64vector? _%obj158765%_) + (if (s64vector? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 's64vector::t)) - (if (f32vector? _%obj158765%_) + (if (f32vector? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'f32vector::t)) - (if (f64vector? _%obj158765%_) + (if (f64vector? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'f64vector::t)) '#f)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (box? _%obj158765%_) + (if (box? _%obj159897%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158717%_ + _%stx159849%_ 'box::t)) '#f))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd158726158748%_) - (_%g158719158732%_ _%g158720158735%_)))) - (_%g158719158732%_ _%g158720158735%_)))) - (_%g158719158732%_ _%g158720158735%_))))) - (_%g158718158801%_ _%stx158717%_)))) + _%hd159858159880%_) + (_%g159851159864%_ _%g159852159867%_)))) + (_%g159851159864%_ _%g159852159867%_)))) + (_%g159851159864%_ _%g159852159867%_))))) + (_%g159850159933%_ _%stx159849%_)))) (define gxc#dispatch-lambda-form? - (lambda (_%form157950%_) - (let* ((_%__stx168288168289%_ _%form157950%_) - (_%g157955158112%_ + (lambda (_%form159082%_) + (let* ((_%__stx169420169421%_ _%form159082%_) + (_%g159087159244%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168288168289%_))))) - (let ((_%__kont168290168291%_ - (lambda (_%L158636%_ _%L158637%_ _%L158638%_) '#t)) - (_%__kont168296168297%_ - (lambda (_%L158424%_ - _%L158425%_ - _%L158426%_ - _%L158427%_ - _%L158428%_ - _%L158429%_) + _%__stx169420169421%_))))) + (let ((_%__kont169422169423%_ + (lambda (_%L159768%_ _%L159769%_ _%L159770%_) '#t)) + (_%__kont169428169429%_ + (lambda (_%L159556%_ + _%L159557%_ + _%L159558%_ + _%L159559%_ + _%L159560%_ + _%L159561%_) '#t)) - (_%__kont168302168303%_ - (lambda (_%L158220%_ _%L158221%_ _%L158222%_ _%L158223%_) + (_%__kont169434169435%_ + (lambda (_%L159352%_ _%L159353%_ _%L159354%_ _%L159355%_) '#t)) - (_%__kont168304168305%_ (lambda () '#f))) - (let* ((_%__match168429168430%_ - (lambda (_%e158072158124%_ - _%hd158073158127%_ - _%tl158074158129%_ - _%e158075158132%_ - _%hd158076158135%_ - _%tl158077158137%_ - _%e158078158140%_ - _%hd158079158143%_ - _%tl158080158145%_ - _%e158081158148%_ - _%hd158082158151%_ - _%tl158083158153%_ - _%e158084158156%_ - _%hd158085158159%_ - _%tl158086158161%_ - _%e158087158164%_ - _%hd158088158167%_ - _%tl158089158169%_ - _%e158090158172%_ - _%hd158091158175%_ - _%tl158092158177%_ - _%e158093158180%_ - _%hd158094158183%_ - _%tl158095158185%_ - _%e158096158188%_ - _%hd158097158191%_ - _%tl158098158193%_ - _%e158099158196%_ - _%hd158100158199%_ - _%tl158101158201%_ - _%e158102158204%_ - _%hd158103158207%_ - _%tl158104158209%_ - _%e158105158212%_ - _%hd158106158215%_ - _%tl158107158217%_) - (let ((_%L158220%_ _%hd158106158215%_) - (_%L158221%_ _%hd158097158191%_) - (_%L158222%_ _%hd158088158167%_) - (_%L158223%_ _%hd158073158127%_)) + (_%__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%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L158223%_)) + (gx#identifier? _%L159355%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L158222%_ + _%L159354%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L158223%_ - _%L158220%_)) + _%L159355%_ + _%L159352%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L158221%_ - _%L158223%_)))) - (_%__kont168302168303%_ - _%L158220%_ - _%L158221%_ - _%L158222%_ - _%L158223%_) - (_%__kont168304168305%_))))) - (_%__match168401168402%_ - (lambda (_%e158072158124%_ - _%hd158073158127%_ - _%tl158074158129%_ - _%e158075158132%_ - _%hd158076158135%_ - _%tl158077158137%_ - _%e158078158140%_ - _%hd158079158143%_ - _%tl158080158145%_ - _%e158081158148%_ - _%hd158082158151%_ - _%tl158083158153%_ - _%e158084158156%_ - _%hd158085158159%_ - _%tl158086158161%_ - _%e158087158164%_ - _%hd158088158167%_ - _%tl158089158169%_ - _%e158090158172%_ - _%hd158091158175%_ - _%tl158092158177%_ - _%e158093158180%_ - _%hd158094158183%_ - _%tl158095158185%_ - _%e158096158188%_ - _%hd158097158191%_ - _%tl158098158193%_) + _%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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158092158177%_)) - (let ((_%e158099158196%_ + (gx#stx-pair? _%tl159224159309%_)) + (let ((_%e159231159328%_ (let () (declare (not safe)) - (gx#stx-e _%tl158092158177%_)))) - (let ((_%tl158101158201%_ + (gx#stx-e _%tl159224159309%_)))) + (let ((_%tl159233159333%_ (let () (declare (not safe)) - (##cdr _%e158099158196%_))) - (_%hd158100158199%_ + (##cdr _%e159231159328%_))) + (_%hd159232159331%_ (let () (declare (not safe)) - (##car _%e158099158196%_)))) + (##car _%e159231159328%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158100158199%_)) - (let ((_%e158102158204%_ + (gx#stx-pair? _%hd159232159331%_)) + (let ((_%e159234159336%_ (let () (declare (not safe)) - (gx#stx-e _%hd158100158199%_)))) - (let ((_%tl158104158209%_ + (gx#stx-e _%hd159232159331%_)))) + (let ((_%tl159236159341%_ (let () (declare (not safe)) - (##cdr _%e158102158204%_))) - (_%hd158103158207%_ + (##cdr _%e159234159336%_))) + (_%hd159235159339%_ (let () (declare (not safe)) - (##car _%e158102158204%_)))) + (##car _%e159234159336%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158103158207%_)) + _%hd159235159339%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158103158207%_)) + _%hd159235159339%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158104158209%_)) - (let ((_%e158105158212%_ + _%tl159236159341%_)) + (let ((_%e159237159344%_ (let () (declare (not safe)) (gx#stx-e - _%tl158104158209%_)))) - (let ((_%tl158107158217%_ + _%tl159236159341%_)))) + (let ((_%tl159239159349%_ (let () (declare (not safe)) - (##cdr _%e158105158212%_))) - (_%hd158106158215%_ + (##cdr _%e159237159344%_))) + (_%hd159238159347%_ (let () (declare (not safe)) - (##car _%e158105158212%_)))) + (##car _%e159237159344%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158107158217%_)) + _%tl159239159349%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl158101158201%_)) + (gx#stx-null? _%tl159233159333%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158077158137%_)) - (_%__match168429168430%_ - _%e158072158124%_ - _%hd158073158127%_ - _%tl158074158129%_ - _%e158075158132%_ - _%hd158076158135%_ - _%tl158077158137%_ - _%e158078158140%_ - _%hd158079158143%_ - _%tl158080158145%_ - _%e158081158148%_ - _%hd158082158151%_ - _%tl158083158153%_ - _%e158084158156%_ - _%hd158085158159%_ - _%tl158086158161%_ - _%e158087158164%_ - _%hd158088158167%_ - _%tl158089158169%_ - _%e158090158172%_ - _%hd158091158175%_ - _%tl158092158177%_ - _%e158093158180%_ - _%hd158094158183%_ - _%tl158095158185%_ - _%e158096158188%_ - _%hd158097158191%_ - _%tl158098158193%_ - _%e158099158196%_ - _%hd158100158199%_ - _%tl158101158201%_ - _%e158102158204%_ - _%hd158103158207%_ - _%tl158104158209%_ - _%e158105158212%_ - _%hd158106158215%_ - _%tl158107158217%_) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168304168305%_)) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_)))) - (_%__match168331168332%_ - (lambda (_%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%__splice168298168299%_ - _%target158011158272%_ - _%tl158013158274%_) - (letrec ((_%loop158014158277%_ - (lambda (_%hd158012158280%_ - _%arg158018158282%_) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)))) + (_%__kont169436169437%_)))) + (_%__kont169436169437%_)))) + (_%__match169463169464%_ + (lambda (_%e159140159396%_ + _%hd159141159399%_ + _%tl159142159401%_ + _%__splice169430169431%_ + _%target159143159404%_ + _%tl159145159406%_) + (letrec ((_%loop159146159409%_ + (lambda (_%hd159144159412%_ + _%arg159150159414%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158012158280%_)) - (let ((_%e158015158285%_ + (gx#stx-pair? _%hd159144159412%_)) + (let ((_%e159147159417%_ (let () (declare (not safe)) - (gx#stx-e _%hd158012158280%_)))) - (let ((_%lp-tl158017158290%_ + (gx#stx-e _%hd159144159412%_)))) + (let ((_%lp-tl159149159422%_ (let () (declare (not safe)) - (##cdr _%e158015158285%_))) - (_%lp-hd158016158288%_ + (##cdr _%e159147159417%_))) + (_%lp-hd159148159420%_ (let () (declare (not safe)) - (##car _%e158015158285%_)))) - (_%loop158014158277%_ - _%lp-tl158017158290%_ - (cons _%lp-hd158016158288%_ - _%arg158018158282%_)))) - (let ((_%arg158019158293%_ - (reverse _%arg158018158282%_))) + (##car _%e159147159417%_)))) + (_%loop159146159409%_ + _%lp-tl159149159422%_ + (cons _%lp-hd159148159420%_ + _%arg159150159414%_)))) + (let ((_%arg159151159425%_ + (reverse _%arg159150159414%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158010158269%_)) - (let ((_%e158020158296%_ + _%tl159142159401%_)) + (let ((_%e159152159428%_ (let () (declare (not safe)) (gx#stx-e - _%tl158010158269%_)))) - (let ((_%tl158022158301%_ + _%tl159142159401%_)))) + (let ((_%tl159154159433%_ (let () (declare (not safe)) - (##cdr _%e158020158296%_))) - (_%hd158021158299%_ + (##cdr _%e159152159428%_))) + (_%hd159153159431%_ (let () (declare (not safe)) - (##car _%e158020158296%_)))) + (##car _%e159152159428%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158021158299%_)) - (let ((_%e158023158304%_ + _%hd159153159431%_)) + (let ((_%e159155159436%_ (let () (declare (not safe)) (gx#stx-e - _%hd158021158299%_)))) - (let ((_%tl158025158309%_ + _%hd159153159431%_)))) + (let ((_%tl159157159441%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158023158304%_))) - (_%hd158024158307%_ - (let () (declare (not safe)) (##car _%e158023158304%_)))) + (##cdr _%e159155159436%_))) + (_%hd159156159439%_ + (let () (declare (not safe)) (##car _%e159155159436%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158024158307%_)) + (gx#identifier? _%hd159156159439%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd158024158307%_)) + (gx#stx-eq? '%#call _%hd159156159439%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158025158309%_)) - (let ((_%e158026158312%_ + (gx#stx-pair? _%tl159157159441%_)) + (let ((_%e159158159444%_ (let () (declare (not safe)) - (gx#stx-e _%tl158025158309%_)))) - (let ((_%tl158028158317%_ + (gx#stx-e _%tl159157159441%_)))) + (let ((_%tl159160159449%_ (let () (declare (not safe)) - (##cdr _%e158026158312%_))) - (_%hd158027158315%_ + (##cdr _%e159158159444%_))) + (_%hd159159159447%_ (let () (declare (not safe)) - (##car _%e158026158312%_)))) + (##car _%e159158159444%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158027158315%_)) - (let ((_%e158029158320%_ + (gx#stx-pair? _%hd159159159447%_)) + (let ((_%e159161159452%_ (let () (declare (not safe)) - (gx#stx-e _%hd158027158315%_)))) - (let ((_%tl158031158325%_ + (gx#stx-e _%hd159159159447%_)))) + (let ((_%tl159163159457%_ (let () (declare (not safe)) - (##cdr _%e158029158320%_))) - (_%hd158030158323%_ + (##cdr _%e159161159452%_))) + (_%hd159162159455%_ (let () (declare (not safe)) - (##car _%e158029158320%_)))) + (##car _%e159161159452%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158030158323%_)) + _%hd159162159455%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158030158323%_)) + _%hd159162159455%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158031158325%_)) - (let ((_%e158032158328%_ + _%tl159163159457%_)) + (let ((_%e159164159460%_ (let () (declare (not safe)) (gx#stx-e - _%tl158031158325%_)))) - (let ((_%tl158034158333%_ + _%tl159163159457%_)))) + (let ((_%tl159166159465%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158032158328%_))) - (_%hd158033158331%_ - (let () (declare (not safe)) (##car _%e158032158328%_)))) + (##cdr _%e159164159460%_))) + (_%hd159165159463%_ + (let () (declare (not safe)) (##car _%e159164159460%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158034158333%_)) + (gx#stx-null? _%tl159166159465%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158028158317%_)) - (let ((_%e158035158336%_ + (gx#stx-pair? _%tl159160159449%_)) + (let ((_%e159167159468%_ (let () (declare (not safe)) - (gx#stx-e _%tl158028158317%_)))) - (let ((_%tl158037158341%_ + (gx#stx-e _%tl159160159449%_)))) + (let ((_%tl159169159473%_ (let () (declare (not safe)) - (##cdr _%e158035158336%_))) - (_%hd158036158339%_ + (##cdr _%e159167159468%_))) + (_%hd159168159471%_ (let () (declare (not safe)) - (##car _%e158035158336%_)))) + (##car _%e159167159468%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158036158339%_)) - (let ((_%e158038158344%_ + (gx#stx-pair? _%hd159168159471%_)) + (let ((_%e159170159476%_ (let () (declare (not safe)) - (gx#stx-e _%hd158036158339%_)))) - (let ((_%tl158040158349%_ + (gx#stx-e _%hd159168159471%_)))) + (let ((_%tl159172159481%_ (let () (declare (not safe)) - (##cdr _%e158038158344%_))) - (_%hd158039158347%_ + (##cdr _%e159170159476%_))) + (_%hd159171159479%_ (let () (declare (not safe)) - (##car _%e158038158344%_)))) + (##car _%e159170159476%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158039158347%_)) + (gx#identifier? _%hd159171159479%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158039158347%_)) + _%hd159171159479%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158040158349%_)) - (let ((_%e158041158352%_ + _%tl159172159481%_)) + (let ((_%e159173159484%_ (let () (declare (not safe)) (gx#stx-e - _%tl158040158349%_)))) - (let ((_%tl158043158357%_ + _%tl159172159481%_)))) + (let ((_%tl159175159489%_ (let () (declare (not safe)) - (##cdr _%e158041158352%_))) - (_%hd158042158355%_ + (##cdr _%e159173159484%_))) + (_%hd159174159487%_ (let () (declare (not safe)) - (##car _%e158041158352%_)))) + (##car _%e159173159484%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158043158357%_)) + _%tl159175159489%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl158037158341%_)) - (if (let ((__tmp169917 + _%tl159169159473%_)) + (if (let ((__tmp171049 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-length _%tl158037158341%_)))) + (gx#stx-length _%tl159169159473%_)))) (declare (not safe)) - (##fx>= __tmp169917 '1)) - (let ((_%__splice168300168301%_ + (##fx>= __tmp171049 '1)) + (let ((_%__splice169432169433%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl158037158341%_ + _%tl159169159473%_ '1)))) - (let ((_%tl158046158362%_ + (let ((_%tl159178159494%_ (let () (declare (not safe)) - (##vector-ref _%__splice168300168301%_ '1))) - (_%target158044158360%_ + (##vector-ref _%__splice169432169433%_ '1))) + (_%target159176159492%_ (let () (declare (not safe)) (##vector-ref - _%__splice168300168301%_ + _%__splice169432169433%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158046158362%_)) - (let ((_%e158053158365%_ + (gx#stx-pair? _%tl159178159494%_)) + (let ((_%e159185159497%_ (let () (declare (not safe)) - (gx#stx-e _%tl158046158362%_)))) - (let ((_%tl158055158370%_ + (gx#stx-e _%tl159178159494%_)))) + (let ((_%tl159187159502%_ (let () (declare (not safe)) - (##cdr _%e158053158365%_))) - (_%hd158054158368%_ + (##cdr _%e159185159497%_))) + (_%hd159186159500%_ (let () (declare (not safe)) - (##car _%e158053158365%_)))) + (##car _%e159185159497%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158054158368%_)) - (let ((_%e158056158373%_ + (gx#stx-pair? _%hd159186159500%_)) + (let ((_%e159188159505%_ (let () (declare (not safe)) (gx#stx-e - _%hd158054158368%_)))) - (let ((_%tl158058158378%_ + _%hd159186159500%_)))) + (let ((_%tl159190159510%_ (let () (declare (not safe)) - (##cdr _%e158056158373%_))) - (_%hd158057158376%_ + (##cdr _%e159188159505%_))) + (_%hd159189159508%_ (let () (declare (not safe)) - (##car _%e158056158373%_)))) + (##car _%e159188159505%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158057158376%_)) + _%hd159189159508%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158057158376%_)) + _%hd159189159508%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158058158378%_)) - (let ((_%e158059158381%_ + _%tl159190159510%_)) + (let ((_%e159191159513%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl158058158378%_)))) - (let ((_%tl158061158386%_ + (gx#stx-e _%tl159190159510%_)))) + (let ((_%tl159193159518%_ (let () (declare (not safe)) - (##cdr _%e158059158381%_))) - (_%hd158060158384%_ + (##cdr _%e159191159513%_))) + (_%hd159192159516%_ (let () (declare (not safe)) - (##car _%e158059158381%_)))) + (##car _%e159191159513%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158061158386%_)) + (gx#stx-null? _%tl159193159518%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158055158370%_)) - (letrec ((_%loop158047158389%_ - (lambda (_%hd158045158392%_ - _%xarg158051158394%_) + (gx#stx-null? _%tl159187159502%_)) + (letrec ((_%loop159179159521%_ + (lambda (_%hd159177159524%_ + _%xarg159183159526%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158045158392%_)) - (let ((_%e158048158397%_ + _%hd159177159524%_)) + (let ((_%e159180159529%_ (let () (declare (not safe)) (gx#stx-e - _%hd158045158392%_)))) - (let ((_%lp-tl158050158402%_ + _%hd159177159524%_)))) + (let ((_%lp-tl159182159534%_ (let () (declare (not safe)) - (##cdr _%e158048158397%_))) - (_%lp-hd158049158400%_ + (##cdr _%e159180159529%_))) + (_%lp-hd159181159532%_ (let () (declare (not safe)) - (##car _%e158048158397%_)))) + (##car _%e159180159529%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd158049158400%_)) - (let ((_%e158062158405%_ + _%lp-hd159181159532%_)) + (let ((_%e159194159537%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd158049158400%_)))) - (let ((_%tl158064158410%_ + _%lp-hd159181159532%_)))) + (let ((_%tl159196159542%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158062158405%_))) - (_%hd158063158408%_ - (let () (declare (not safe)) (##car _%e158062158405%_)))) + (##cdr _%e159194159537%_))) + (_%hd159195159540%_ + (let () (declare (not safe)) (##car _%e159194159537%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158063158408%_)) + (gx#identifier? _%hd159195159540%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158063158408%_)) + (gx#stx-eq? '%#ref _%hd159195159540%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158064158410%_)) - (let ((_%e158065158413%_ + (gx#stx-pair? _%tl159196159542%_)) + (let ((_%e159197159545%_ (let () (declare (not safe)) - (gx#stx-e _%tl158064158410%_)))) - (let ((_%tl158067158418%_ + (gx#stx-e _%tl159196159542%_)))) + (let ((_%tl159199159550%_ (let () (declare (not safe)) - (##cdr _%e158065158413%_))) - (_%hd158066158416%_ + (##cdr _%e159197159545%_))) + (_%hd159198159548%_ (let () (declare (not safe)) - (##car _%e158065158413%_)))) + (##car _%e159197159545%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158067158418%_)) - (_%loop158047158389%_ - _%lp-tl158050158402%_ - (cons _%hd158066158416%_ - _%xarg158051158394%_)) - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_)))) - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_)) - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_)) - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_)))) - (let ((_%xarg158052158421%_ - (reverse _%xarg158051158394%_))) + (_%__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%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158022158301%_)) - (let ((_%L158424%_ - _%hd158060158384%_) - (_%L158425%_ - _%xarg158052158421%_) - (_%L158426%_ - _%hd158042158355%_) - (_%L158427%_ - _%hd158033158331%_) - (_%L158428%_ - _%tl158013158274%_) - (_%L158429%_ - _%arg158019158293%_)) - (if (and (let ((__tmp169918 + _%tl159154159433%_)) + (let ((_%L159556%_ + _%hd159192159516%_) + (_%L159557%_ + _%xarg159184159553%_) + (_%L159558%_ + _%hd159174159487%_) + (_%L159559%_ + _%hd159165159463%_) + (_%L159560%_ + _%tl159145159406%_) + (_%L159561%_ + _%arg159151159425%_)) + (if (and (let ((__tmp171050 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp169919 - (lambda (_%g158472158475%_ - _%g158473158477%_) - (cons _%g158472158475%_ - _%g158473158477%_)))) + (let ((__tmp171051 + (lambda (_%g159604159607%_ + _%g159605159609%_) + (cons _%g159604159607%_ + _%g159605159609%_)))) (declare (not safe)) - (__foldr1 __tmp169919 '() _%L158429%_)))) + (__foldr1 __tmp171051 '() _%L159561%_)))) (declare (not safe)) - (gx#identifier-list? __tmp169918)) - (let () (declare (not safe)) (gx#identifier? _%L158428%_)) + (gx#identifier-list? __tmp171050)) + (let () (declare (not safe)) (gx#identifier? _%L159560%_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L158427%_ 'apply)) - (let ((__tmp169922 - (length (let ((__tmp169923 - (lambda (_%g158479158482%_ - _%g158480158484%_) - (cons _%g158479158482%_ - _%g158480158484%_)))) + (gxc#runtime-identifier=? _%L159559%_ 'apply)) + (let ((__tmp171054 + (length (let ((__tmp171055 + (lambda (_%g159611159614%_ + _%g159612159616%_) + (cons _%g159611159614%_ + _%g159612159616%_)))) (declare (not safe)) - (__foldr1 __tmp169923 '() _%L158429%_)))) - (__tmp169920 - (length (let ((__tmp169921 - (lambda (_%g158486158489%_ - _%g158487158491%_) - (cons _%g158486158489%_ - _%g158487158491%_)))) + (__foldr1 __tmp171055 '() _%L159561%_)))) + (__tmp171052 + (length (let ((__tmp171053 + (lambda (_%g159618159621%_ + _%g159619159623%_) + (cons _%g159618159621%_ + _%g159619159623%_)))) (declare (not safe)) (__foldr1 - __tmp169921 + __tmp171053 '() - _%L158425%_))))) + _%L159557%_))))) (declare (not safe)) - (##fx= __tmp169922 __tmp169920)) - (let ((__tmp169926 - (let ((__tmp169927 - (lambda (_%g158493158496%_ - _%g158494158498%_) - (cons _%g158493158496%_ - _%g158494158498%_)))) + (##fx= __tmp171054 __tmp171052)) + (let ((__tmp171058 + (let ((__tmp171059 + (lambda (_%g159625159628%_ + _%g159626159630%_) + (cons _%g159625159628%_ + _%g159626159630%_)))) (declare (not safe)) - (__foldr1 __tmp169927 '() _%L158429%_))) - (__tmp169924 - (let ((__tmp169925 - (lambda (_%g158500158503%_ - _%g158501158505%_) - (cons _%g158500158503%_ - _%g158501158505%_)))) + (__foldr1 __tmp171059 '() _%L159561%_))) + (__tmp171056 + (let ((__tmp171057 + (lambda (_%g159632159635%_ + _%g159633159637%_) + (cons _%g159632159635%_ + _%g159633159637%_)))) (declare (not safe)) - (__foldr1 __tmp169925 '() _%L158425%_)))) + (__foldr1 __tmp171057 '() _%L159557%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp169926 - __tmp169924)) + __tmp171058 + __tmp171056)) (let () (declare (not safe)) - (gx#free-identifier=? _%L158428%_ _%L158424%_)) - (not (let ((__tmp169931 - (lambda (_%g158507158509%_) + (gx#free-identifier=? _%L159560%_ _%L159556%_)) + (not (let ((__tmp171063 + (lambda (_%g159639159641%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g158507158509%_ - _%L158426%_)))) - (__tmp169928 - (let ((__tmp169930 - (lambda (_%g158511158514%_ - _%g158512158516%_) - (cons _%g158511158514%_ - _%g158512158516%_))) - (__tmp169929 (cons _%L158428%_ '()))) + _%g159639159641%_ + _%L159558%_)))) + (__tmp171060 + (let ((__tmp171062 + (lambda (_%g159643159646%_ + _%g159644159648%_) + (cons _%g159643159646%_ + _%g159644159648%_))) + (__tmp171061 (cons _%L159560%_ '()))) (declare (not safe)) (__foldr1 - __tmp169930 - __tmp169929 - _%L158429%_)))) + __tmp171062 + __tmp171061 + _%L159561%_)))) (declare (not safe)) - (__find __tmp169931 __tmp169928)))) - (_%__kont168296168297%_ - _%L158424%_ - _%L158425%_ - _%L158426%_ - _%L158427%_ - _%L158428%_ - _%L158429%_) - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_))) + (__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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_))))))) - (_%loop158047158389%_ - _%target158044158360%_ + (_%__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%_ '())) - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_)) - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_)))) - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_)) + (_%__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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_)) - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_)))) - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_)))) - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_)))) - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_)) - (_%__match168401168402%_ - _%e158008158264%_ - _%hd158009158267%_ - _%tl158010158269%_ - _%e158020158296%_ - _%hd158021158299%_ - _%tl158022158301%_ - _%e158023158304%_ - _%hd158024158307%_ - _%tl158025158309%_ - _%e158026158312%_ - _%hd158027158315%_ - _%tl158028158317%_ - _%e158029158320%_ - _%hd158030158323%_ - _%tl158031158325%_ - _%e158032158328%_ - _%hd158033158331%_ - _%tl158034158333%_ - _%e158035158336%_ - _%hd158036158339%_ - _%tl158037158341%_ - _%e158038158344%_ - _%hd158039158347%_ - _%tl158040158349%_ - _%e158041158352%_ - _%hd158042158355%_ - _%tl158043158357%_)) - (_%__kont168304168305%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168304168305%_)) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)))) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)))) + (_%__kont169436169437%_)))) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168304168305%_)) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)))) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)))) + (_%__kont169436169437%_)))) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168304168305%_)))) - (_%__kont168304168305%_))))))) - (_%loop158014158277%_ _%target158011158272%_ '())))) - (_%__match168319168320%_ - (lambda (_%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_) - (letrec ((_%loop157966158537%_ - (lambda (_%hd157964158540%_ - _%arg157970158542%_) + (_%__kont169436169437%_)))) + (_%__kont169436169437%_))))))) + (_%loop159146159409%_ _%target159143159404%_ '())))) + (_%__match169451169452%_ + (lambda (_%e159092159656%_ + _%hd159093159659%_ + _%tl159094159661%_ + _%__splice169424169425%_ + _%target159095159664%_ + _%tl159097159666%_) + (letrec ((_%loop159098159669%_ + (lambda (_%hd159096159672%_ + _%arg159102159674%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157964158540%_)) - (let ((_%e157967158545%_ + (gx#stx-pair? _%hd159096159672%_)) + (let ((_%e159099159677%_ (let () (declare (not safe)) - (gx#stx-e _%hd157964158540%_)))) - (let ((_%lp-tl157969158550%_ + (gx#stx-e _%hd159096159672%_)))) + (let ((_%lp-tl159101159682%_ (let () (declare (not safe)) - (##cdr _%e157967158545%_))) - (_%lp-hd157968158548%_ + (##cdr _%e159099159677%_))) + (_%lp-hd159100159680%_ (let () (declare (not safe)) - (##car _%e157967158545%_)))) - (_%loop157966158537%_ - _%lp-tl157969158550%_ - (cons _%lp-hd157968158548%_ - _%arg157970158542%_)))) - (let ((_%arg157971158553%_ - (reverse _%arg157970158542%_))) + (##car _%e159099159677%_)))) + (_%loop159098159669%_ + _%lp-tl159101159682%_ + (cons _%lp-hd159100159680%_ + _%arg159102159674%_)))) + (let ((_%arg159103159685%_ + (reverse _%arg159102159674%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157962158529%_)) - (let ((_%e157972158556%_ + _%tl159094159661%_)) + (let ((_%e159104159688%_ (let () (declare (not safe)) (gx#stx-e - _%tl157962158529%_)))) - (let ((_%tl157974158561%_ + _%tl159094159661%_)))) + (let ((_%tl159106159693%_ (let () (declare (not safe)) - (##cdr _%e157972158556%_))) - (_%hd157973158559%_ + (##cdr _%e159104159688%_))) + (_%hd159105159691%_ (let () (declare (not safe)) - (##car _%e157972158556%_)))) + (##car _%e159104159688%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157973158559%_)) - (let ((_%e157975158564%_ + _%hd159105159691%_)) + (let ((_%e159107159696%_ (let () (declare (not safe)) (gx#stx-e - _%hd157973158559%_)))) - (let ((_%tl157977158569%_ + _%hd159105159691%_)))) + (let ((_%tl159109159701%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157975158564%_))) - (_%hd157976158567%_ - (let () (declare (not safe)) (##car _%e157975158564%_)))) + (##cdr _%e159107159696%_))) + (_%hd159108159699%_ + (let () (declare (not safe)) (##car _%e159107159696%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157976158567%_)) + (gx#identifier? _%hd159108159699%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd157976158567%_)) + (gx#stx-eq? '%#call _%hd159108159699%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157977158569%_)) - (let ((_%e157978158572%_ + (gx#stx-pair? _%tl159109159701%_)) + (let ((_%e159110159704%_ (let () (declare (not safe)) - (gx#stx-e _%tl157977158569%_)))) - (let ((_%tl157980158577%_ + (gx#stx-e _%tl159109159701%_)))) + (let ((_%tl159112159709%_ (let () (declare (not safe)) - (##cdr _%e157978158572%_))) - (_%hd157979158575%_ + (##cdr _%e159110159704%_))) + (_%hd159111159707%_ (let () (declare (not safe)) - (##car _%e157978158572%_)))) + (##car _%e159110159704%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157979158575%_)) - (let ((_%e157981158580%_ + (gx#stx-pair? _%hd159111159707%_)) + (let ((_%e159113159712%_ (let () (declare (not safe)) - (gx#stx-e _%hd157979158575%_)))) - (let ((_%tl157983158585%_ + (gx#stx-e _%hd159111159707%_)))) + (let ((_%tl159115159717%_ (let () (declare (not safe)) - (##cdr _%e157981158580%_))) - (_%hd157982158583%_ + (##cdr _%e159113159712%_))) + (_%hd159114159715%_ (let () (declare (not safe)) - (##car _%e157981158580%_)))) + (##car _%e159113159712%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157982158583%_)) + _%hd159114159715%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157982158583%_)) + _%hd159114159715%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157983158585%_)) - (let ((_%e157984158588%_ + _%tl159115159717%_)) + (let ((_%e159116159720%_ (let () (declare (not safe)) (gx#stx-e - _%tl157983158585%_)))) - (let ((_%tl157986158593%_ + _%tl159115159717%_)))) + (let ((_%tl159118159725%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157984158588%_))) - (_%hd157985158591%_ - (let () (declare (not safe)) (##car _%e157984158588%_)))) + (##cdr _%e159116159720%_))) + (_%hd159117159723%_ + (let () (declare (not safe)) (##car _%e159116159720%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157986158593%_)) + (gx#stx-null? _%tl159118159725%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl157980158577%_)) - (let ((_%__splice168294168295%_ + (gx#stx-pair/null? _%tl159112159709%_)) + (let ((_%__splice169426169427%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl157980158577%_ + _%tl159112159709%_ '0)))) - (let ((_%tl157989158598%_ + (let ((_%tl159121159730%_ (let () (declare (not safe)) - (##vector-ref _%__splice168294168295%_ '1))) - (_%target157987158596%_ + (##vector-ref _%__splice169426169427%_ '1))) + (_%target159119159728%_ (let () (declare (not safe)) (##vector-ref - _%__splice168294168295%_ + _%__splice169426169427%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157989158598%_)) - (letrec ((_%loop157990158601%_ - (lambda (_%hd157988158604%_ - _%xarg157994158606%_) + (gx#stx-null? _%tl159121159730%_)) + (letrec ((_%loop159122159733%_ + (lambda (_%hd159120159736%_ + _%xarg159126159738%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157988158604%_)) - (let ((_%e157991158609%_ + _%hd159120159736%_)) + (let ((_%e159123159741%_ (let () (declare (not safe)) (gx#stx-e - _%hd157988158604%_)))) - (let ((_%lp-tl157993158614%_ + _%hd159120159736%_)))) + (let ((_%lp-tl159125159746%_ (let () (declare (not safe)) - (##cdr _%e157991158609%_))) - (_%lp-hd157992158612%_ + (##cdr _%e159123159741%_))) + (_%lp-hd159124159744%_ (let () (declare (not safe)) - (##car _%e157991158609%_)))) + (##car _%e159123159741%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd157992158612%_)) - (let ((_%e157996158617%_ + _%lp-hd159124159744%_)) + (let ((_%e159128159749%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd157992158612%_)))) - (let ((_%tl157998158622%_ + (gx#stx-e _%lp-hd159124159744%_)))) + (let ((_%tl159130159754%_ (let () (declare (not safe)) - (##cdr _%e157996158617%_))) - (_%hd157997158620%_ + (##cdr _%e159128159749%_))) + (_%hd159129159752%_ (let () (declare (not safe)) - (##car _%e157996158617%_)))) + (##car _%e159128159749%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157997158620%_)) + (gx#identifier? _%hd159129159752%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157997158620%_)) + (gx#stx-eq? '%#ref _%hd159129159752%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157998158622%_)) - (let ((_%e157999158625%_ + (gx#stx-pair? _%tl159130159754%_)) + (let ((_%e159131159757%_ (let () (declare (not safe)) - (gx#stx-e _%tl157998158622%_)))) - (let ((_%tl158001158630%_ + (gx#stx-e _%tl159130159754%_)))) + (let ((_%tl159133159762%_ (let () (declare (not safe)) - (##cdr _%e157999158625%_))) - (_%hd158000158628%_ + (##cdr _%e159131159757%_))) + (_%hd159132159760%_ (let () (declare (not safe)) - (##car _%e157999158625%_)))) + (##car _%e159131159757%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158001158630%_)) - (_%loop157990158601%_ - _%lp-tl157993158614%_ - (cons _%hd158000158628%_ - _%xarg157994158606%_)) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)))) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)))) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg157995158633%_ - (reverse _%xarg157994158606%_))) + (let ((_%xarg159127159765%_ + (reverse _%xarg159126159738%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157974158561%_)) - (let ((_%L158636%_ - _%xarg157995158633%_) - (_%L158637%_ - _%hd157985158591%_) - (_%L158638%_ - _%arg157971158553%_)) - (if (and (let ((__tmp169932 + _%tl159106159693%_)) + (let ((_%L159768%_ + _%xarg159127159765%_) + (_%L159769%_ + _%hd159117159723%_) + (_%L159770%_ + _%arg159103159685%_)) + (if (and (let ((__tmp171064 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp169933 - (lambda (_%g158666158669%_ - _%g158667158671%_) - (cons _%g158666158669%_ - _%g158667158671%_)))) + (let ((__tmp171065 + (lambda (_%g159798159801%_ + _%g159799159803%_) + (cons _%g159798159801%_ + _%g159799159803%_)))) (declare (not safe)) - (__foldr1 __tmp169933 '() _%L158638%_)))) + (__foldr1 __tmp171065 '() _%L159770%_)))) (declare (not safe)) - (gx#identifier-list? __tmp169932)) - (let ((__tmp169936 - (length (let ((__tmp169937 - (lambda (_%g158673158676%_ - _%g158674158678%_) - (cons _%g158673158676%_ - _%g158674158678%_)))) + (gx#identifier-list? __tmp171064)) + (let ((__tmp171068 + (length (let ((__tmp171069 + (lambda (_%g159805159808%_ + _%g159806159810%_) + (cons _%g159805159808%_ + _%g159806159810%_)))) (declare (not safe)) (__foldr1 - __tmp169937 + __tmp171069 '() - _%L158638%_)))) - (__tmp169934 - (length (let ((__tmp169935 - (lambda (_%g158680158683%_ - _%g158681158685%_) - (cons _%g158680158683%_ - _%g158681158685%_)))) + _%L159770%_)))) + (__tmp171066 + (length (let ((__tmp171067 + (lambda (_%g159812159815%_ + _%g159813159817%_) + (cons _%g159812159815%_ + _%g159813159817%_)))) (declare (not safe)) (__foldr1 - __tmp169935 + __tmp171067 '() - _%L158636%_))))) + _%L159768%_))))) (declare (not safe)) - (##fx= __tmp169936 __tmp169934)) - (let ((__tmp169940 - (let ((__tmp169941 - (lambda (_%g158687158690%_ - _%g158688158692%_) - (cons _%g158687158690%_ - _%g158688158692%_)))) + (##fx= __tmp171068 __tmp171066)) + (let ((__tmp171072 + (let ((__tmp171073 + (lambda (_%g159819159822%_ + _%g159820159824%_) + (cons _%g159819159822%_ + _%g159820159824%_)))) (declare (not safe)) - (__foldr1 __tmp169941 '() _%L158638%_))) - (__tmp169938 - (let ((__tmp169939 - (lambda (_%g158694158697%_ - _%g158695158699%_) - (cons _%g158694158697%_ - _%g158695158699%_)))) + (__foldr1 __tmp171073 '() _%L159770%_))) + (__tmp171070 + (let ((__tmp171071 + (lambda (_%g159826159829%_ + _%g159827159831%_) + (cons _%g159826159829%_ + _%g159827159831%_)))) (declare (not safe)) - (__foldr1 __tmp169939 '() _%L158636%_)))) + (__foldr1 __tmp171071 '() _%L159768%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp169940 - __tmp169938)) - (not (let ((__tmp169944 - (lambda (_%g158701158703%_) + __tmp171072 + __tmp171070)) + (not (let ((__tmp171076 + (lambda (_%g159833159835%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g158701158703%_ - _%L158637%_)))) - (__tmp169942 - (let ((__tmp169943 - (lambda (_%g158705158708%_ - _%g158706158710%_) - (cons _%g158705158708%_ - _%g158706158710%_)))) + _%g159833159835%_ + _%L159769%_)))) + (__tmp171074 + (let ((__tmp171075 + (lambda (_%g159837159840%_ + _%g159838159842%_) + (cons _%g159837159840%_ + _%g159838159842%_)))) (declare (not safe)) (__foldr1 - __tmp169943 + __tmp171075 '() - _%L158638%_)))) + _%L159770%_)))) (declare (not safe)) - (__find __tmp169944 __tmp169942)))) - (_%__kont168290168291%_ - _%L158636%_ - _%L158637%_ - _%L158638%_) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_))) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_))))))) + (__find __tmp171076 __tmp171074)))) + (_%__kont169422169423%_ + _%L159768%_ + _%L159769%_ + _%L159770%_) + (_%__match169463169464%_ + _%e159092159656%_ + _%hd159093159659%_ + _%tl159094159661%_ + _%__splice169424169425%_ + _%target159095159664%_ + _%tl159097159666%_))) + (_%__match169463169464%_ + _%e159092159656%_ + _%hd159093159659%_ + _%tl159094159661%_ + _%__splice169424169425%_ + _%target159095159664%_ + _%tl159097159666%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop157990158601%_ - _%target157987158596%_ + (_%loop159122159733%_ + _%target159119159728%_ '())) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)))) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)))) + (_%__match169463169464%_ + _%e159092159656%_ + _%hd159093159659%_ + _%tl159094159661%_ + _%__splice169424169425%_ + _%target159095159664%_ + _%tl159097159666%_)))) + (_%__match169463169464%_ + _%e159092159656%_ + _%hd159093159659%_ + _%tl159094159661%_ + _%__splice169424169425%_ + _%target159095159664%_ + _%tl159097159666%_)) + (_%__match169463169464%_ + _%e159092159656%_ + _%hd159093159659%_ + _%tl159094159661%_ + _%__splice169424169425%_ + _%target159095159664%_ + _%tl159097159666%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)))) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)))) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)))) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_))))))) - (_%loop157966158537%_ _%target157963158532%_ '()))))) + (_%__match169463169464%_ + _%e159092159656%_ + _%hd159093159659%_ + _%tl159094159661%_ + _%__splice169424169425%_ + _%target159095159664%_ + _%tl159097159666%_)))) + (_%__match169463169464%_ + _%e159092159656%_ + _%hd159093159659%_ + _%tl159094159661%_ + _%__splice169424169425%_ + _%target159095159664%_ + _%tl159097159666%_))))))) + (_%loop159098159669%_ _%target159095159664%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168288168289%_)) - (let ((_%e157960158524%_ + (gx#stx-pair? _%__stx169420169421%_)) + (let ((_%e159092159656%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168288168289%_)))) - (let ((_%tl157962158529%_ + (gx#stx-e _%__stx169420169421%_)))) + (let ((_%tl159094159661%_ (let () (declare (not safe)) - (##cdr _%e157960158524%_))) - (_%hd157961158527%_ + (##cdr _%e159092159656%_))) + (_%hd159093159659%_ (let () (declare (not safe)) - (##car _%e157960158524%_)))) + (##car _%e159092159656%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd157961158527%_)) - (let ((_%__splice168292168293%_ + (gx#stx-pair/null? _%hd159093159659%_)) + (let ((_%__splice169424169425%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd157961158527%_ + _%hd159093159659%_ '0)))) - (let ((_%tl157965158534%_ + (let ((_%tl159097159666%_ (let () (declare (not safe)) (##vector-ref - _%__splice168292168293%_ + _%__splice169424169425%_ '1))) - (_%target157963158532%_ + (_%target159095159664%_ (let () (declare (not safe)) (##vector-ref - _%__splice168292168293%_ + _%__splice169424169425%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157965158534%_)) - (_%__match168319168320%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_) - (_%__match168331168332%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%__splice168292168293%_ - _%target157963158532%_ - _%tl157965158534%_)))) + (gx#stx-null? _%tl159097159666%_)) + (_%__match169451169452%_ + _%e159092159656%_ + _%hd159093159659%_ + _%tl159094159661%_ + _%__splice169424169425%_ + _%target159095159664%_ + _%tl159097159666%_) + (_%__match169463169464%_ + _%e159092159656%_ + _%hd159093159659%_ + _%tl159094159661%_ + _%__splice169424169425%_ + _%target159095159664%_ + _%tl159097159666%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157962158529%_)) - (let ((_%e158075158132%_ + (gx#stx-pair? _%tl159094159661%_)) + (let ((_%e159207159264%_ (let () (declare (not safe)) - (gx#stx-e _%tl157962158529%_)))) - (let ((_%tl158077158137%_ + (gx#stx-e _%tl159094159661%_)))) + (let ((_%tl159209159269%_ (let () (declare (not safe)) - (##cdr _%e158075158132%_))) - (_%hd158076158135%_ + (##cdr _%e159207159264%_))) + (_%hd159208159267%_ (let () (declare (not safe)) - (##car _%e158075158132%_)))) + (##car _%e159207159264%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158076158135%_)) - (let ((_%e158078158140%_ + (gx#stx-pair? _%hd159208159267%_)) + (let ((_%e159210159272%_ (let () (declare (not safe)) - (gx#stx-e _%hd158076158135%_)))) - (let ((_%tl158080158145%_ + (gx#stx-e _%hd159208159267%_)))) + (let ((_%tl159212159277%_ (let () (declare (not safe)) - (##cdr _%e158078158140%_))) - (_%hd158079158143%_ + (##cdr _%e159210159272%_))) + (_%hd159211159275%_ (let () (declare (not safe)) - (##car _%e158078158140%_)))) + (##car _%e159210159272%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158079158143%_)) + _%hd159211159275%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd158079158143%_)) + _%hd159211159275%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158080158145%_)) - (let ((_%e158081158148%_ + _%tl159212159277%_)) + (let ((_%e159213159280%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl158080158145%_)))) - (let ((_%tl158083158153%_ - (let () (declare (not safe)) (##cdr _%e158081158148%_))) - (_%hd158082158151%_ + (gx#stx-e _%tl159212159277%_)))) + (let ((_%tl159215159285%_ + (let () (declare (not safe)) (##cdr _%e159213159280%_))) + (_%hd159214159283%_ (let () (declare (not safe)) - (##car _%e158081158148%_)))) + (##car _%e159213159280%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158082158151%_)) - (let ((_%e158084158156%_ + (gx#stx-pair? _%hd159214159283%_)) + (let ((_%e159216159288%_ (let () (declare (not safe)) - (gx#stx-e _%hd158082158151%_)))) - (let ((_%tl158086158161%_ + (gx#stx-e _%hd159214159283%_)))) + (let ((_%tl159218159293%_ (let () (declare (not safe)) - (##cdr _%e158084158156%_))) - (_%hd158085158159%_ + (##cdr _%e159216159288%_))) + (_%hd159217159291%_ (let () (declare (not safe)) - (##car _%e158084158156%_)))) + (##car _%e159216159288%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158085158159%_)) + (gx#identifier? _%hd159217159291%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158085158159%_)) + (gx#stx-eq? '%#ref _%hd159217159291%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158086158161%_)) - (let ((_%e158087158164%_ + (gx#stx-pair? _%tl159218159293%_)) + (let ((_%e159219159296%_ (let () (declare (not safe)) - (gx#stx-e _%tl158086158161%_)))) - (let ((_%tl158089158169%_ + (gx#stx-e _%tl159218159293%_)))) + (let ((_%tl159221159301%_ (let () (declare (not safe)) - (##cdr _%e158087158164%_))) - (_%hd158088158167%_ + (##cdr _%e159219159296%_))) + (_%hd159220159299%_ (let () (declare (not safe)) - (##car _%e158087158164%_)))) + (##car _%e159219159296%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158089158169%_)) + _%tl159221159301%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158083158153%_)) - (let ((_%e158090158172%_ + _%tl159215159285%_)) + (let ((_%e159222159304%_ (let () (declare (not safe)) (gx#stx-e - _%tl158083158153%_)))) - (let ((_%tl158092158177%_ + _%tl159215159285%_)))) + (let ((_%tl159224159309%_ (let () (declare (not safe)) - (##cdr _%e158090158172%_))) - (_%hd158091158175%_ + (##cdr _%e159222159304%_))) + (_%hd159223159307%_ (let () (declare (not safe)) - (##car _%e158090158172%_)))) + (##car _%e159222159304%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158091158175%_)) - (let ((_%e158093158180%_ + _%hd159223159307%_)) + (let ((_%e159225159312%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd158091158175%_)))) - (let ((_%tl158095158185%_ + (gx#stx-e _%hd159223159307%_)))) + (let ((_%tl159227159317%_ (let () (declare (not safe)) - (##cdr _%e158093158180%_))) - (_%hd158094158183%_ + (##cdr _%e159225159312%_))) + (_%hd159226159315%_ (let () (declare (not safe)) - (##car _%e158093158180%_)))) + (##car _%e159225159312%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158094158183%_)) + (gx#identifier? _%hd159226159315%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158094158183%_)) + (gx#stx-eq? '%#ref _%hd159226159315%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158095158185%_)) - (let ((_%e158096158188%_ + (gx#stx-pair? _%tl159227159317%_)) + (let ((_%e159228159320%_ (let () (declare (not safe)) - (gx#stx-e _%tl158095158185%_)))) - (let ((_%tl158098158193%_ + (gx#stx-e _%tl159227159317%_)))) + (let ((_%tl159230159325%_ (let () (declare (not safe)) - (##cdr _%e158096158188%_))) - (_%hd158097158191%_ + (##cdr _%e159228159320%_))) + (_%hd159229159323%_ (let () (declare (not safe)) - (##car _%e158096158188%_)))) + (##car _%e159228159320%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158098158193%_)) + (gx#stx-null? _%tl159230159325%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158092158177%_)) - (let ((_%e158099158196%_ + _%tl159224159309%_)) + (let ((_%e159231159328%_ (let () (declare (not safe)) (gx#stx-e - _%tl158092158177%_)))) - (let ((_%tl158101158201%_ + _%tl159224159309%_)))) + (let ((_%tl159233159333%_ (let () (declare (not safe)) - (##cdr _%e158099158196%_))) - (_%hd158100158199%_ + (##cdr _%e159231159328%_))) + (_%hd159232159331%_ (let () (declare (not safe)) - (##car _%e158099158196%_)))) + (##car _%e159231159328%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158100158199%_)) - (let ((_%e158102158204%_ + _%hd159232159331%_)) + (let ((_%e159234159336%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd158100158199%_)))) - (let ((_%tl158104158209%_ - (let () (declare (not safe)) (##cdr _%e158102158204%_))) - (_%hd158103158207%_ + (gx#stx-e _%hd159232159331%_)))) + (let ((_%tl159236159341%_ + (let () (declare (not safe)) (##cdr _%e159234159336%_))) + (_%hd159235159339%_ (let () (declare (not safe)) - (##car _%e158102158204%_)))) + (##car _%e159234159336%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158103158207%_)) + (gx#identifier? _%hd159235159339%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158103158207%_)) + (gx#stx-eq? '%#ref _%hd159235159339%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158104158209%_)) - (let ((_%e158105158212%_ + (gx#stx-pair? _%tl159236159341%_)) + (let ((_%e159237159344%_ (let () (declare (not safe)) - (gx#stx-e _%tl158104158209%_)))) - (let ((_%tl158107158217%_ + (gx#stx-e _%tl159236159341%_)))) + (let ((_%tl159239159349%_ (let () (declare (not safe)) - (##cdr _%e158105158212%_))) - (_%hd158106158215%_ + (##cdr _%e159237159344%_))) + (_%hd159238159347%_ (let () (declare (not safe)) - (##car _%e158105158212%_)))) + (##car _%e159237159344%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158107158217%_)) + (gx#stx-null? _%tl159239159349%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158101158201%_)) + (gx#stx-null? _%tl159233159333%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158077158137%_)) - (_%__match168429168430%_ - _%e157960158524%_ - _%hd157961158527%_ - _%tl157962158529%_ - _%e158075158132%_ - _%hd158076158135%_ - _%tl158077158137%_ - _%e158078158140%_ - _%hd158079158143%_ - _%tl158080158145%_ - _%e158081158148%_ - _%hd158082158151%_ - _%tl158083158153%_ - _%e158084158156%_ - _%hd158085158159%_ - _%tl158086158161%_ - _%e158087158164%_ - _%hd158088158167%_ - _%tl158089158169%_ - _%e158090158172%_ - _%hd158091158175%_ - _%tl158092158177%_ - _%e158093158180%_ - _%hd158094158183%_ - _%tl158095158185%_ - _%e158096158188%_ - _%hd158097158191%_ - _%tl158098158193%_ - _%e158099158196%_ - _%hd158100158199%_ - _%tl158101158201%_ - _%e158102158204%_ - _%hd158103158207%_ - _%tl158104158209%_ - _%e158105158212%_ - _%hd158106158215%_ - _%tl158107158217%_) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168304168305%_)) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_)))) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)))) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)))) + (_%__kont169436169437%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168304168305%_)) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_)) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)))) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)))) + (_%__kont169436169437%_)))) + (_%__kont169436169437%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168304168305%_)) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_)))) - (_%__kont168304168305%_))))) - (_%__kont168304168305%_))))))) + (_%__kont169436169437%_)) + (_%__kont169436169437%_)))) + (_%__kont169436169437%_)))) + (_%__kont169436169437%_))))) + (_%__kont169436169437%_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_%form157418%_) - (let* ((_%__stx168432168433%_ _%form157418%_) - (_%g157422157546%_ + (lambda (_%form158550%_) + (let* ((_%__stx169564169565%_ _%form158550%_) + (_%g158554158678%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168432168433%_))))) - (let ((_%__kont168434168435%_ - (lambda (_%L157916%_ _%L157917%_ _%L157918%_) + _%__stx169564169565%_))))) + (let ((_%__kont169566169567%_ + (lambda (_%L159048%_ _%L159049%_ _%L159050%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L157917%_)))) - (_%__kont168440168441%_ - (lambda (_%L157764%_ _%L157765%_ _%L157766%_ _%L157767%_) + (gxc#identifier-symbol _%L159049%_)))) + (_%__kont169572169573%_ + (lambda (_%L158896%_ _%L158897%_ _%L158898%_ _%L158899%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L157764%_)))) - (_%__kont168444168445%_ - (lambda (_%L157631%_ _%L157632%_ _%L157633%_) + (gxc#identifier-symbol _%L158896%_)))) + (_%__kont169576169577%_ + (lambda (_%L158763%_ _%L158764%_ _%L158765%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L157631%_))))) - (let* ((_%__match168541168542%_ - (lambda (_%e157512157551%_ - _%hd157513157554%_ - _%tl157514157556%_ - _%e157515157559%_ - _%hd157516157562%_ - _%tl157517157564%_ - _%e157518157567%_ - _%hd157519157570%_ - _%tl157520157572%_ - _%e157521157575%_ - _%hd157522157578%_ - _%tl157523157580%_ - _%e157524157583%_ - _%hd157525157586%_ - _%tl157526157588%_ - _%e157527157591%_ - _%hd157528157594%_ - _%tl157529157596%_ - _%e157530157599%_ - _%hd157531157602%_ - _%tl157532157604%_ - _%e157533157607%_ - _%hd157534157610%_ - _%tl157535157612%_ - _%e157536157615%_ - _%hd157537157618%_ - _%tl157538157620%_) + (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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157532157604%_)) - (let ((_%e157539157623%_ + (gx#stx-pair? _%tl158664158736%_)) + (let ((_%e158671158755%_ (let () (declare (not safe)) - (gx#stx-e _%tl157532157604%_)))) - (let ((_%tl157541157628%_ + (gx#stx-e _%tl158664158736%_)))) + (let ((_%tl158673158760%_ (let () (declare (not safe)) - (##cdr _%e157539157623%_))) - (_%hd157540157626%_ + (##cdr _%e158671158755%_))) + (_%hd158672158758%_ (let () (declare (not safe)) - (##car _%e157539157623%_)))) + (##car _%e158671158755%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157541157628%_)) + (gx#stx-null? _%tl158673158760%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157517157564%_)) - (_%__kont168444168445%_ - _%hd157537157618%_ - _%hd157528157594%_ - _%hd157513157554%_) + (gx#stx-null? _%tl158649158696%_)) + (_%__kont169576169577%_ + _%hd158669158750%_ + _%hd158660158726%_ + _%hd158645158686%_) (let () (declare (not safe)) - (_%g157422157546%_))) + (_%g158554158678%_))) (let () (declare (not safe)) - (_%g157422157546%_))))) - (let () (declare (not safe)) (_%g157422157546%_))))) - (_%__match168471168472%_ - (lambda (_%e157473157668%_ - _%hd157474157671%_ - _%tl157475157673%_ - _%__splice168442168443%_ - _%target157476157676%_ - _%tl157478157678%_) - (letrec ((_%loop157479157681%_ - (lambda (_%hd157477157684%_ - _%arg157483157686%_) + (_%g158554158678%_))))) + (let () (declare (not safe)) (_%g158554158678%_))))) + (_%__match169603169604%_ + (lambda (_%e158605158800%_ + _%hd158606158803%_ + _%tl158607158805%_ + _%__splice169574169575%_ + _%target158608158808%_ + _%tl158610158810%_) + (letrec ((_%loop158611158813%_ + (lambda (_%hd158609158816%_ + _%arg158615158818%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157477157684%_)) - (let ((_%e157480157689%_ + (gx#stx-pair? _%hd158609158816%_)) + (let ((_%e158612158821%_ (let () (declare (not safe)) - (gx#stx-e _%hd157477157684%_)))) - (let ((_%lp-tl157482157694%_ + (gx#stx-e _%hd158609158816%_)))) + (let ((_%lp-tl158614158826%_ (let () (declare (not safe)) - (##cdr _%e157480157689%_))) - (_%lp-hd157481157692%_ + (##cdr _%e158612158821%_))) + (_%lp-hd158613158824%_ (let () (declare (not safe)) - (##car _%e157480157689%_)))) - (_%loop157479157681%_ - _%lp-tl157482157694%_ - (cons _%lp-hd157481157692%_ - _%arg157483157686%_)))) - (let ((_%arg157484157697%_ - (reverse _%arg157483157686%_))) + (##car _%e158612158821%_)))) + (_%loop158611158813%_ + _%lp-tl158614158826%_ + (cons _%lp-hd158613158824%_ + _%arg158615158818%_)))) + (let ((_%arg158616158829%_ + (reverse _%arg158615158818%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157475157673%_)) - (let ((_%e157485157700%_ + _%tl158607158805%_)) + (let ((_%e158617158832%_ (let () (declare (not safe)) (gx#stx-e - _%tl157475157673%_)))) - (let ((_%tl157487157705%_ + _%tl158607158805%_)))) + (let ((_%tl158619158837%_ (let () (declare (not safe)) - (##cdr _%e157485157700%_))) - (_%hd157486157703%_ + (##cdr _%e158617158832%_))) + (_%hd158618158835%_ (let () (declare (not safe)) - (##car _%e157485157700%_)))) + (##car _%e158617158832%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157486157703%_)) - (let ((_%e157488157708%_ + _%hd158618158835%_)) + (let ((_%e158620158840%_ (let () (declare (not safe)) (gx#stx-e - _%hd157486157703%_)))) - (let ((_%tl157490157713%_ + _%hd158618158835%_)))) + (let ((_%tl158622158845%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157488157708%_))) - (_%hd157489157711%_ - (let () (declare (not safe)) (##car _%e157488157708%_)))) + (##cdr _%e158620158840%_))) + (_%hd158621158843%_ + (let () (declare (not safe)) (##car _%e158620158840%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157489157711%_)) + (gx#identifier? _%hd158621158843%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd157489157711%_)) + (gx#stx-eq? '%#call _%hd158621158843%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157490157713%_)) - (let ((_%e157491157716%_ + (gx#stx-pair? _%tl158622158845%_)) + (let ((_%e158623158848%_ (let () (declare (not safe)) - (gx#stx-e _%tl157490157713%_)))) - (let ((_%tl157493157721%_ + (gx#stx-e _%tl158622158845%_)))) + (let ((_%tl158625158853%_ (let () (declare (not safe)) - (##cdr _%e157491157716%_))) - (_%hd157492157719%_ + (##cdr _%e158623158848%_))) + (_%hd158624158851%_ (let () (declare (not safe)) - (##car _%e157491157716%_)))) + (##car _%e158623158848%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157492157719%_)) - (let ((_%e157494157724%_ + (gx#stx-pair? _%hd158624158851%_)) + (let ((_%e158626158856%_ (let () (declare (not safe)) - (gx#stx-e _%hd157492157719%_)))) - (let ((_%tl157496157729%_ + (gx#stx-e _%hd158624158851%_)))) + (let ((_%tl158628158861%_ (let () (declare (not safe)) - (##cdr _%e157494157724%_))) - (_%hd157495157727%_ + (##cdr _%e158626158856%_))) + (_%hd158627158859%_ (let () (declare (not safe)) - (##car _%e157494157724%_)))) + (##car _%e158626158856%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157495157727%_)) + _%hd158627158859%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157495157727%_)) + _%hd158627158859%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157496157729%_)) - (let ((_%e157497157732%_ + _%tl158628158861%_)) + (let ((_%e158629158864%_ (let () (declare (not safe)) (gx#stx-e - _%tl157496157729%_)))) - (let ((_%tl157499157737%_ + _%tl158628158861%_)))) + (let ((_%tl158631158869%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157497157732%_))) - (_%hd157498157735%_ - (let () (declare (not safe)) (##car _%e157497157732%_)))) + (##cdr _%e158629158864%_))) + (_%hd158630158867%_ + (let () (declare (not safe)) (##car _%e158629158864%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157499157737%_)) + (gx#stx-null? _%tl158631158869%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157493157721%_)) - (let ((_%e157500157740%_ + (gx#stx-pair? _%tl158625158853%_)) + (let ((_%e158632158872%_ (let () (declare (not safe)) - (gx#stx-e _%tl157493157721%_)))) - (let ((_%tl157502157745%_ + (gx#stx-e _%tl158625158853%_)))) + (let ((_%tl158634158877%_ (let () (declare (not safe)) - (##cdr _%e157500157740%_))) - (_%hd157501157743%_ + (##cdr _%e158632158872%_))) + (_%hd158633158875%_ (let () (declare (not safe)) - (##car _%e157500157740%_)))) + (##car _%e158632158872%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157501157743%_)) - (let ((_%e157503157748%_ + (gx#stx-pair? _%hd158633158875%_)) + (let ((_%e158635158880%_ (let () (declare (not safe)) - (gx#stx-e _%hd157501157743%_)))) - (let ((_%tl157505157753%_ + (gx#stx-e _%hd158633158875%_)))) + (let ((_%tl158637158885%_ (let () (declare (not safe)) - (##cdr _%e157503157748%_))) - (_%hd157504157751%_ + (##cdr _%e158635158880%_))) + (_%hd158636158883%_ (let () (declare (not safe)) - (##car _%e157503157748%_)))) + (##car _%e158635158880%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157504157751%_)) + (gx#identifier? _%hd158636158883%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157504157751%_)) + _%hd158636158883%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157505157753%_)) - (let ((_%e157506157756%_ + _%tl158637158885%_)) + (let ((_%e158638158888%_ (let () (declare (not safe)) (gx#stx-e - _%tl157505157753%_)))) - (let ((_%tl157508157761%_ + _%tl158637158885%_)))) + (let ((_%tl158640158893%_ (let () (declare (not safe)) - (##cdr _%e157506157756%_))) - (_%hd157507157759%_ + (##cdr _%e158638158888%_))) + (_%hd158639158891%_ (let () (declare (not safe)) - (##car _%e157506157756%_)))) + (##car _%e158638158888%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157508157761%_)) + _%tl158640158893%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157487157705%_)) - (_%__kont168440168441%_ - _%hd157507157759%_ - _%hd157498157735%_ - _%tl157478157678%_ - _%arg157484157697%_) - (_%__match168541168542%_ - _%e157473157668%_ - _%hd157474157671%_ - _%tl157475157673%_ - _%e157485157700%_ - _%hd157486157703%_ - _%tl157487157705%_ - _%e157488157708%_ - _%hd157489157711%_ - _%tl157490157713%_ - _%e157491157716%_ - _%hd157492157719%_ - _%tl157493157721%_ - _%e157494157724%_ - _%hd157495157727%_ - _%tl157496157729%_ - _%e157497157732%_ - _%hd157498157735%_ - _%tl157499157737%_ - _%e157500157740%_ - _%hd157501157743%_ - _%tl157502157745%_ - _%e157503157748%_ - _%hd157504157751%_ - _%tl157505157753%_ - _%e157506157756%_ - _%hd157507157759%_ - _%tl157508157761%_)) + _%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%_)) (let () (declare (not safe)) - (_%g157422157546%_))))) + (_%g158554158678%_))))) (let () (declare (not safe)) - (_%g157422157546%_))) + (_%g158554158678%_))) (let () (declare (not safe)) - (_%g157422157546%_))) + (_%g158554158678%_))) (let () (declare (not safe)) - (_%g157422157546%_))))) + (_%g158554158678%_))))) (let () (declare (not safe)) - (_%g157422157546%_))))) - (let () (declare (not safe)) (_%g157422157546%_))) - (let () (declare (not safe)) (_%g157422157546%_))))) + (_%g158554158678%_))))) + (let () (declare (not safe)) (_%g158554158678%_))) + (let () (declare (not safe)) (_%g158554158678%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g157422157546%_))) + (_%g158554158678%_))) (let () (declare (not safe)) - (_%g157422157546%_))) + (_%g158554158678%_))) (let () (declare (not safe)) - (_%g157422157546%_))))) + (_%g158554158678%_))))) (let () (declare (not safe)) - (_%g157422157546%_))))) - (let () (declare (not safe)) (_%g157422157546%_))) - (let () (declare (not safe)) (_%g157422157546%_))) - (let () (declare (not safe)) (_%g157422157546%_))))) + (_%g158554158678%_))))) + (let () (declare (not safe)) (_%g158554158678%_))) + (let () (declare (not safe)) (_%g158554158678%_))) + (let () (declare (not safe)) (_%g158554158678%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g157422157546%_))))) + (_%g158554158678%_))))) (let () (declare (not safe)) - (_%g157422157546%_)))))))) - (_%loop157479157681%_ _%target157476157676%_ '())))) - (_%__match168459168460%_ - (lambda (_%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_) - (letrec ((_%loop157433157817%_ - (lambda (_%hd157431157820%_ - _%arg157437157822%_) + (_%g158554158678%_)))))))) + (_%loop158611158813%_ _%target158608158808%_ '())))) + (_%__match169591169592%_ + (lambda (_%e158559158936%_ + _%hd158560158939%_ + _%tl158561158941%_ + _%__splice169568169569%_ + _%target158562158944%_ + _%tl158564158946%_) + (letrec ((_%loop158565158949%_ + (lambda (_%hd158563158952%_ + _%arg158569158954%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157431157820%_)) - (let ((_%e157434157825%_ + (gx#stx-pair? _%hd158563158952%_)) + (let ((_%e158566158957%_ (let () (declare (not safe)) - (gx#stx-e _%hd157431157820%_)))) - (let ((_%lp-tl157436157830%_ + (gx#stx-e _%hd158563158952%_)))) + (let ((_%lp-tl158568158962%_ (let () (declare (not safe)) - (##cdr _%e157434157825%_))) - (_%lp-hd157435157828%_ + (##cdr _%e158566158957%_))) + (_%lp-hd158567158960%_ (let () (declare (not safe)) - (##car _%e157434157825%_)))) - (_%loop157433157817%_ - _%lp-tl157436157830%_ - (cons _%lp-hd157435157828%_ - _%arg157437157822%_)))) - (let ((_%arg157438157833%_ - (reverse _%arg157437157822%_))) + (##car _%e158566158957%_)))) + (_%loop158565158949%_ + _%lp-tl158568158962%_ + (cons _%lp-hd158567158960%_ + _%arg158569158954%_)))) + (let ((_%arg158570158965%_ + (reverse _%arg158569158954%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157429157809%_)) - (let ((_%e157439157836%_ + _%tl158561158941%_)) + (let ((_%e158571158968%_ (let () (declare (not safe)) (gx#stx-e - _%tl157429157809%_)))) - (let ((_%tl157441157841%_ + _%tl158561158941%_)))) + (let ((_%tl158573158973%_ (let () (declare (not safe)) - (##cdr _%e157439157836%_))) - (_%hd157440157839%_ + (##cdr _%e158571158968%_))) + (_%hd158572158971%_ (let () (declare (not safe)) - (##car _%e157439157836%_)))) + (##car _%e158571158968%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157440157839%_)) - (let ((_%e157442157844%_ + _%hd158572158971%_)) + (let ((_%e158574158976%_ (let () (declare (not safe)) (gx#stx-e - _%hd157440157839%_)))) - (let ((_%tl157444157849%_ + _%hd158572158971%_)))) + (let ((_%tl158576158981%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157442157844%_))) - (_%hd157443157847%_ - (let () (declare (not safe)) (##car _%e157442157844%_)))) + (##cdr _%e158574158976%_))) + (_%hd158575158979%_ + (let () (declare (not safe)) (##car _%e158574158976%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157443157847%_)) + (gx#identifier? _%hd158575158979%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd157443157847%_)) + (gx#stx-eq? '%#call _%hd158575158979%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157444157849%_)) - (let ((_%e157445157852%_ + (gx#stx-pair? _%tl158576158981%_)) + (let ((_%e158577158984%_ (let () (declare (not safe)) - (gx#stx-e _%tl157444157849%_)))) - (let ((_%tl157447157857%_ + (gx#stx-e _%tl158576158981%_)))) + (let ((_%tl158579158989%_ (let () (declare (not safe)) - (##cdr _%e157445157852%_))) - (_%hd157446157855%_ + (##cdr _%e158577158984%_))) + (_%hd158578158987%_ (let () (declare (not safe)) - (##car _%e157445157852%_)))) + (##car _%e158577158984%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157446157855%_)) - (let ((_%e157448157860%_ + (gx#stx-pair? _%hd158578158987%_)) + (let ((_%e158580158992%_ (let () (declare (not safe)) - (gx#stx-e _%hd157446157855%_)))) - (let ((_%tl157450157865%_ + (gx#stx-e _%hd158578158987%_)))) + (let ((_%tl158582158997%_ (let () (declare (not safe)) - (##cdr _%e157448157860%_))) - (_%hd157449157863%_ + (##cdr _%e158580158992%_))) + (_%hd158581158995%_ (let () (declare (not safe)) - (##car _%e157448157860%_)))) + (##car _%e158580158992%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157449157863%_)) + _%hd158581158995%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157449157863%_)) + _%hd158581158995%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157450157865%_)) - (let ((_%e157451157868%_ + _%tl158582158997%_)) + (let ((_%e158583159000%_ (let () (declare (not safe)) (gx#stx-e - _%tl157450157865%_)))) - (let ((_%tl157453157873%_ + _%tl158582158997%_)))) + (let ((_%tl158585159005%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157451157868%_))) - (_%hd157452157871%_ - (let () (declare (not safe)) (##car _%e157451157868%_)))) + (##cdr _%e158583159000%_))) + (_%hd158584159003%_ + (let () (declare (not safe)) (##car _%e158583159000%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157453157873%_)) + (gx#stx-null? _%tl158585159005%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl157447157857%_)) - (let ((_%__splice168438168439%_ + (gx#stx-pair/null? _%tl158579158989%_)) + (let ((_%__splice169570169571%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl157447157857%_ + _%tl158579158989%_ '0)))) - (let ((_%tl157456157878%_ + (let ((_%tl158588159010%_ (let () (declare (not safe)) - (##vector-ref _%__splice168438168439%_ '1))) - (_%target157454157876%_ + (##vector-ref _%__splice169570169571%_ '1))) + (_%target158586159008%_ (let () (declare (not safe)) (##vector-ref - _%__splice168438168439%_ + _%__splice169570169571%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157456157878%_)) - (letrec ((_%loop157457157881%_ - (lambda (_%hd157455157884%_ - _%xarg157461157886%_) + (gx#stx-null? _%tl158588159010%_)) + (letrec ((_%loop158589159013%_ + (lambda (_%hd158587159016%_ + _%xarg158593159018%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157455157884%_)) - (let ((_%e157458157889%_ + _%hd158587159016%_)) + (let ((_%e158590159021%_ (let () (declare (not safe)) (gx#stx-e - _%hd157455157884%_)))) - (let ((_%lp-tl157460157894%_ + _%hd158587159016%_)))) + (let ((_%lp-tl158592159026%_ (let () (declare (not safe)) - (##cdr _%e157458157889%_))) - (_%lp-hd157459157892%_ + (##cdr _%e158590159021%_))) + (_%lp-hd158591159024%_ (let () (declare (not safe)) - (##car _%e157458157889%_)))) + (##car _%e158590159021%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd157459157892%_)) - (let ((_%e157463157897%_ + _%lp-hd158591159024%_)) + (let ((_%e158595159029%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd157459157892%_)))) - (let ((_%tl157465157902%_ + (gx#stx-e _%lp-hd158591159024%_)))) + (let ((_%tl158597159034%_ (let () (declare (not safe)) - (##cdr _%e157463157897%_))) - (_%hd157464157900%_ + (##cdr _%e158595159029%_))) + (_%hd158596159032%_ (let () (declare (not safe)) - (##car _%e157463157897%_)))) + (##car _%e158595159029%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157464157900%_)) + (gx#identifier? _%hd158596159032%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157464157900%_)) + (gx#stx-eq? '%#ref _%hd158596159032%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157465157902%_)) - (let ((_%e157466157905%_ + (gx#stx-pair? _%tl158597159034%_)) + (let ((_%e158598159037%_ (let () (declare (not safe)) - (gx#stx-e _%tl157465157902%_)))) - (let ((_%tl157468157910%_ + (gx#stx-e _%tl158597159034%_)))) + (let ((_%tl158600159042%_ (let () (declare (not safe)) - (##cdr _%e157466157905%_))) - (_%hd157467157908%_ + (##cdr _%e158598159037%_))) + (_%hd158599159040%_ (let () (declare (not safe)) - (##car _%e157466157905%_)))) + (##car _%e158598159037%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157468157910%_)) - (_%loop157457157881%_ - _%lp-tl157460157894%_ - (cons _%hd157467157908%_ - _%xarg157461157886%_)) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)))) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)))) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg157462157913%_ - (reverse _%xarg157461157886%_))) + (let ((_%xarg158594159045%_ + (reverse _%xarg158593159018%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157441157841%_)) - (_%__kont168434168435%_ - _%xarg157462157913%_ - _%hd157452157871%_ - _%arg157438157833%_) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_))))))) - (_%loop157457157881%_ - _%target157454157876%_ + _%tl158573158973%_)) + (_%__kont169566169567%_ + _%xarg158594159045%_ + _%hd158584159003%_ + _%arg158570158965%_) + (_%__match169603169604%_ + _%e158559158936%_ + _%hd158560158939%_ + _%tl158561158941%_ + _%__splice169568169569%_ + _%target158562158944%_ + _%tl158564158946%_))))))) + (_%loop158589159013%_ + _%target158586159008%_ '())) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)))) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)))) + (_%__match169603169604%_ + _%e158559158936%_ + _%hd158560158939%_ + _%tl158561158941%_ + _%__splice169568169569%_ + _%target158562158944%_ + _%tl158564158946%_)))) + (_%__match169603169604%_ + _%e158559158936%_ + _%hd158560158939%_ + _%tl158561158941%_ + _%__splice169568169569%_ + _%target158562158944%_ + _%tl158564158946%_)) + (_%__match169603169604%_ + _%e158559158936%_ + _%hd158560158939%_ + _%tl158561158941%_ + _%__splice169568169569%_ + _%target158562158944%_ + _%tl158564158946%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)))) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)))) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)))) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_))))))) - (_%loop157433157817%_ _%target157430157812%_ '()))))) + (_%__match169603169604%_ + _%e158559158936%_ + _%hd158560158939%_ + _%tl158561158941%_ + _%__splice169568169569%_ + _%target158562158944%_ + _%tl158564158946%_)))) + (_%__match169603169604%_ + _%e158559158936%_ + _%hd158560158939%_ + _%tl158561158941%_ + _%__splice169568169569%_ + _%target158562158944%_ + _%tl158564158946%_))))))) + (_%loop158565158949%_ _%target158562158944%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168432168433%_)) - (let ((_%e157427157804%_ + (gx#stx-pair? _%__stx169564169565%_)) + (let ((_%e158559158936%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168432168433%_)))) - (let ((_%tl157429157809%_ + (gx#stx-e _%__stx169564169565%_)))) + (let ((_%tl158561158941%_ (let () (declare (not safe)) - (##cdr _%e157427157804%_))) - (_%hd157428157807%_ + (##cdr _%e158559158936%_))) + (_%hd158560158939%_ (let () (declare (not safe)) - (##car _%e157427157804%_)))) + (##car _%e158559158936%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd157428157807%_)) - (let ((_%__splice168436168437%_ + (gx#stx-pair/null? _%hd158560158939%_)) + (let ((_%__splice169568169569%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd157428157807%_ + _%hd158560158939%_ '0)))) - (let ((_%tl157432157814%_ + (let ((_%tl158564158946%_ (let () (declare (not safe)) (##vector-ref - _%__splice168436168437%_ + _%__splice169568169569%_ '1))) - (_%target157430157812%_ + (_%target158562158944%_ (let () (declare (not safe)) (##vector-ref - _%__splice168436168437%_ + _%__splice169568169569%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157432157814%_)) - (_%__match168459168460%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_) - (_%__match168471168472%_ - _%e157427157804%_ - _%hd157428157807%_ - _%tl157429157809%_ - _%__splice168436168437%_ - _%target157430157812%_ - _%tl157432157814%_)))) + (gx#stx-null? _%tl158564158946%_)) + (_%__match169591169592%_ + _%e158559158936%_ + _%hd158560158939%_ + _%tl158561158941%_ + _%__splice169568169569%_ + _%target158562158944%_ + _%tl158564158946%_) + (_%__match169603169604%_ + _%e158559158936%_ + _%hd158560158939%_ + _%tl158561158941%_ + _%__splice169568169569%_ + _%target158562158944%_ + _%tl158564158946%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157429157809%_)) - (let ((_%e157515157559%_ + (gx#stx-pair? _%tl158561158941%_)) + (let ((_%e158647158691%_ (let () (declare (not safe)) - (gx#stx-e _%tl157429157809%_)))) - (let ((_%tl157517157564%_ + (gx#stx-e _%tl158561158941%_)))) + (let ((_%tl158649158696%_ (let () (declare (not safe)) - (##cdr _%e157515157559%_))) - (_%hd157516157562%_ + (##cdr _%e158647158691%_))) + (_%hd158648158694%_ (let () (declare (not safe)) - (##car _%e157515157559%_)))) + (##car _%e158647158691%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157516157562%_)) - (let ((_%e157518157567%_ + (gx#stx-pair? _%hd158648158694%_)) + (let ((_%e158650158699%_ (let () (declare (not safe)) - (gx#stx-e _%hd157516157562%_)))) - (let ((_%tl157520157572%_ + (gx#stx-e _%hd158648158694%_)))) + (let ((_%tl158652158704%_ (let () (declare (not safe)) - (##cdr _%e157518157567%_))) - (_%hd157519157570%_ + (##cdr _%e158650158699%_))) + (_%hd158651158702%_ (let () (declare (not safe)) - (##car _%e157518157567%_)))) + (##car _%e158650158699%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157519157570%_)) + _%hd158651158702%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd157519157570%_)) + _%hd158651158702%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157520157572%_)) - (let ((_%e157521157575%_ + _%tl158652158704%_)) + (let ((_%e158653158707%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl157520157572%_)))) - (let ((_%tl157523157580%_ - (let () (declare (not safe)) (##cdr _%e157521157575%_))) - (_%hd157522157578%_ + (gx#stx-e _%tl158652158704%_)))) + (let ((_%tl158655158712%_ + (let () (declare (not safe)) (##cdr _%e158653158707%_))) + (_%hd158654158710%_ (let () (declare (not safe)) - (##car _%e157521157575%_)))) + (##car _%e158653158707%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157522157578%_)) - (let ((_%e157524157583%_ + (gx#stx-pair? _%hd158654158710%_)) + (let ((_%e158656158715%_ (let () (declare (not safe)) - (gx#stx-e _%hd157522157578%_)))) - (let ((_%tl157526157588%_ + (gx#stx-e _%hd158654158710%_)))) + (let ((_%tl158658158720%_ (let () (declare (not safe)) - (##cdr _%e157524157583%_))) - (_%hd157525157586%_ + (##cdr _%e158656158715%_))) + (_%hd158657158718%_ (let () (declare (not safe)) - (##car _%e157524157583%_)))) + (##car _%e158656158715%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157525157586%_)) + (gx#identifier? _%hd158657158718%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157525157586%_)) + (gx#stx-eq? '%#ref _%hd158657158718%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157526157588%_)) - (let ((_%e157527157591%_ + (gx#stx-pair? _%tl158658158720%_)) + (let ((_%e158659158723%_ (let () (declare (not safe)) - (gx#stx-e _%tl157526157588%_)))) - (let ((_%tl157529157596%_ + (gx#stx-e _%tl158658158720%_)))) + (let ((_%tl158661158728%_ (let () (declare (not safe)) - (##cdr _%e157527157591%_))) - (_%hd157528157594%_ + (##cdr _%e158659158723%_))) + (_%hd158660158726%_ (let () (declare (not safe)) - (##car _%e157527157591%_)))) + (##car _%e158659158723%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157529157596%_)) + _%tl158661158728%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157523157580%_)) - (let ((_%e157530157599%_ + _%tl158655158712%_)) + (let ((_%e158662158731%_ (let () (declare (not safe)) (gx#stx-e - _%tl157523157580%_)))) - (let ((_%tl157532157604%_ + _%tl158655158712%_)))) + (let ((_%tl158664158736%_ (let () (declare (not safe)) - (##cdr _%e157530157599%_))) - (_%hd157531157602%_ + (##cdr _%e158662158731%_))) + (_%hd158663158734%_ (let () (declare (not safe)) - (##car _%e157530157599%_)))) + (##car _%e158662158731%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157531157602%_)) - (let ((_%e157533157607%_ + _%hd158663158734%_)) + (let ((_%e158665158739%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd157531157602%_)))) - (let ((_%tl157535157612%_ + (gx#stx-e _%hd158663158734%_)))) + (let ((_%tl158667158744%_ (let () (declare (not safe)) - (##cdr _%e157533157607%_))) - (_%hd157534157610%_ + (##cdr _%e158665158739%_))) + (_%hd158666158742%_ (let () (declare (not safe)) - (##car _%e157533157607%_)))) + (##car _%e158665158739%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157534157610%_)) + (gx#identifier? _%hd158666158742%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157534157610%_)) + (gx#stx-eq? '%#ref _%hd158666158742%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157535157612%_)) - (let ((_%e157536157615%_ + (gx#stx-pair? _%tl158667158744%_)) + (let ((_%e158668158747%_ (let () (declare (not safe)) - (gx#stx-e _%tl157535157612%_)))) - (let ((_%tl157538157620%_ + (gx#stx-e _%tl158667158744%_)))) + (let ((_%tl158670158752%_ (let () (declare (not safe)) - (##cdr _%e157536157615%_))) - (_%hd157537157618%_ + (##cdr _%e158668158747%_))) + (_%hd158669158750%_ (let () (declare (not safe)) - (##car _%e157536157615%_)))) + (##car _%e158668158747%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157538157620%_)) + (gx#stx-null? _%tl158670158752%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157532157604%_)) - (let ((_%e157539157623%_ + _%tl158664158736%_)) + (let ((_%e158671158755%_ (let () (declare (not safe)) (gx#stx-e - _%tl157532157604%_)))) - (let ((_%tl157541157628%_ + _%tl158664158736%_)))) + (let ((_%tl158673158760%_ (let () (declare (not safe)) - (##cdr _%e157539157623%_))) - (_%hd157540157626%_ + (##cdr _%e158671158755%_))) + (_%hd158672158758%_ (let () (declare (not safe)) - (##car _%e157539157623%_)))) + (##car _%e158671158755%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157541157628%_)) + _%tl158673158760%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157517157564%_)) - (_%__kont168444168445%_ - _%hd157537157618%_ - _%hd157528157594%_ - _%hd157428157807%_) + _%tl158649158696%_)) + (_%__kont169576169577%_ + _%hd158669158750%_ + _%hd158660158726%_ + _%hd158560158939%_) (let () (declare (not safe)) - (_%g157422157546%_))) + (_%g158554158678%_))) (let () (declare (not safe)) - (_%g157422157546%_))))) + (_%g158554158678%_))))) (let () (declare (not safe)) - (_%g157422157546%_))) + (_%g158554158678%_))) (let () (declare (not safe)) - (_%g157422157546%_))))) + (_%g158554158678%_))))) (let () (declare (not safe)) - (_%g157422157546%_))) + (_%g158554158678%_))) (let () (declare (not safe)) - (_%g157422157546%_))) - (let () (declare (not safe)) (_%g157422157546%_))))) - (let () (declare (not safe)) (_%g157422157546%_))))) + (_%g158554158678%_))) + (let () (declare (not safe)) (_%g158554158678%_))))) + (let () (declare (not safe)) (_%g158554158678%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g157422157546%_))) + (_%g158554158678%_))) (let () (declare (not safe)) - (_%g157422157546%_))))) + (_%g158554158678%_))))) (let () (declare (not safe)) - (_%g157422157546%_))) + (_%g158554158678%_))) (let () (declare (not safe)) - (_%g157422157546%_))) + (_%g158554158678%_))) (let () (declare (not safe)) - (_%g157422157546%_))))) - (let () (declare (not safe)) (_%g157422157546%_))))) - (let () (declare (not safe)) (_%g157422157546%_))) + (_%g158554158678%_))))) + (let () (declare (not safe)) (_%g158554158678%_))))) + (let () (declare (not safe)) (_%g158554158678%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g157422157546%_))) + (_%g158554158678%_))) (let () (declare (not safe)) - (_%g157422157546%_))))) + (_%g158554158678%_))))) (let () (declare (not safe)) - (_%g157422157546%_))))) + (_%g158554158678%_))))) (let () (declare (not safe)) - (_%g157422157546%_)))))) - (let () (declare (not safe)) (_%g157422157546%_)))))))) + (_%g158554158678%_)))))) + (let () (declare (not safe)) (_%g158554158678%_)))))))) (define gxc#lambda-form-arity - (lambda (_%form157222%_) - (let* ((_%g157224157238%_ - (lambda (_%g157225157235%_) + (lambda (_%form158354%_) + (let* ((_%g158356158370%_ + (lambda (_%g158357158367%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g157225157235%_)))) - (_%g157223157415%_ - (lambda (_%g157225157241%_) + _%g158357158367%_)))) + (_%g158355158547%_ + (lambda (_%g158357158373%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g157225157241%_)) - (let ((_%e157228157243%_ + (gx#stx-pair? _%g158357158373%_)) + (let ((_%e158360158375%_ (let () (declare (not safe)) - (gx#stx-e _%g157225157241%_)))) - (let ((_%hd157229157246%_ + (gx#stx-e _%g158357158373%_)))) + (let ((_%hd158361158378%_ (let () (declare (not safe)) - (##car _%e157228157243%_))) - (_%tl157230157248%_ + (##car _%e158360158375%_))) + (_%tl158362158380%_ (let () (declare (not safe)) - (##cdr _%e157228157243%_)))) + (##cdr _%e158360158375%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157230157248%_)) - (let ((_%e157231157251%_ + (gx#stx-pair? _%tl158362158380%_)) + (let ((_%e158363158383%_ (let () (declare (not safe)) - (gx#stx-e _%tl157230157248%_)))) - (let ((_%hd157232157254%_ + (gx#stx-e _%tl158362158380%_)))) + (let ((_%hd158364158386%_ (let () (declare (not safe)) - (##car _%e157231157251%_))) - (_%tl157233157256%_ + (##car _%e158363158383%_))) + (_%tl158365158388%_ (let () (declare (not safe)) - (##cdr _%e157231157251%_)))) + (##cdr _%e158363158383%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157233157256%_)) - ((lambda (_%L157259%_ _%L157260%_) - (let* ((_%__stx168554168555%_ - _%L157260%_) - (_%g157275157303%_ + (gx#stx-null? _%tl158365158388%_)) + ((lambda (_%L158391%_ _%L158392%_) + (let* ((_%__stx169686169687%_ + _%L158392%_) + (_%g158407158435%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168554168555%_))))) - (let ((_%__kont168556168557%_ - (lambda (_%L157394%_) - (length (let ((__tmp169945 + _%__stx169686169687%_))))) + (let ((_%__kont169688169689%_ + (lambda (_%L158526%_) + (length (let ((__tmp171077 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g157404157407%_ _%g157405157409%_) - (cons _%g157404157407%_ _%g157405157409%_)))) + (lambda (_%g158536158539%_ _%g158537158541%_) + (cons _%g158536158539%_ _%g158537158541%_)))) (declare (not safe)) - (__foldr1 __tmp169945 '() _%L157394%_))))) + (__foldr1 __tmp171077 '() _%L158526%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168560168561%_ - (lambda (_%L157345%_ - _%L157346%_) - (cons (length (let ((__tmp169946 + (_%__kont169692169693%_ + (lambda (_%L158477%_ + _%L158478%_) + (cons (length (let ((__tmp171078 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g157357157360%_ _%g157358157362%_) - (cons _%g157357157360%_ - _%g157358157362%_)))) + (lambda (_%g158489158492%_ _%g158490158494%_) + (cons _%g158489158492%_ + _%g158490158494%_)))) (declare (not safe)) - (__foldr1 __tmp169946 '() _%L157346%_))) + (__foldr1 __tmp171078 '() _%L158478%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168564168565%_ - (lambda (_%L157308%_) + (_%__kont169696169697%_ + (lambda (_%L158440%_) (cons '0 '())))) - (let* ((_%__match168579168580%_ - (lambda (_%__splice168562168563%_ - _%target157289157321%_ - _%tl157291157323%_) - (letrec ((_%loop157292157326%_ + (let* ((_%__match169711169712%_ + (lambda (_%__splice169694169695%_ + _%target158421158453%_ + _%tl158423158455%_) + (letrec ((_%loop158424158458%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd157290157329%_ _%arg157296157331%_) + (lambda (_%hd158422158461%_ _%arg158428158463%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157290157329%_)) - (let ((_%e157293157334%_ + (gx#stx-pair? _%hd158422158461%_)) + (let ((_%e158425158466%_ (let () (declare (not safe)) - (gx#stx-e _%hd157290157329%_)))) - (let ((_%lp-tl157295157339%_ + (gx#stx-e _%hd158422158461%_)))) + (let ((_%lp-tl158427158471%_ (let () (declare (not safe)) - (##cdr _%e157293157334%_))) - (_%lp-hd157294157337%_ + (##cdr _%e158425158466%_))) + (_%lp-hd158426158469%_ (let () (declare (not safe)) - (##car _%e157293157334%_)))) - (_%loop157292157326%_ - _%lp-tl157295157339%_ - (cons _%lp-hd157294157337%_ - _%arg157296157331%_)))) - (let ((_%arg157297157342%_ - (reverse _%arg157296157331%_))) - (_%__kont168560168561%_ - _%tl157291157323%_ - _%arg157297157342%_)))))) - (_%loop157292157326%_ _%target157289157321%_ '())))) + (##car _%e158425158466%_)))) + (_%loop158424158458%_ + _%lp-tl158427158471%_ + (cons _%lp-hd158426158469%_ + _%arg158428158463%_)))) + (let ((_%arg158429158474%_ + (reverse _%arg158428158463%_))) + (_%__kont169692169693%_ + _%tl158423158455%_ + _%arg158429158474%_)))))) + (_%loop158424158458%_ _%target158421158453%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168573168574%_ - (lambda (_%__splice168558168559%_ - _%target157278157370%_ - _%tl157280157372%_) - (letrec ((_%loop157281157375%_ + (_%__match169705169706%_ + (lambda (_%__splice169690169691%_ + _%target158410158502%_ + _%tl158412158504%_) + (letrec ((_%loop158413158507%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd157279157378%_ _%arg157285157380%_) + (lambda (_%hd158411158510%_ _%arg158417158512%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157279157378%_)) - (let ((_%e157282157383%_ + (gx#stx-pair? _%hd158411158510%_)) + (let ((_%e158414158515%_ (let () (declare (not safe)) - (gx#stx-e _%hd157279157378%_)))) - (let ((_%lp-tl157284157388%_ + (gx#stx-e _%hd158411158510%_)))) + (let ((_%lp-tl158416158520%_ (let () (declare (not safe)) - (##cdr _%e157282157383%_))) - (_%lp-hd157283157386%_ + (##cdr _%e158414158515%_))) + (_%lp-hd158415158518%_ (let () (declare (not safe)) - (##car _%e157282157383%_)))) - (_%loop157281157375%_ - _%lp-tl157284157388%_ - (cons _%lp-hd157283157386%_ - _%arg157285157380%_)))) - (let ((_%arg157286157391%_ - (reverse _%arg157285157380%_))) - (_%__kont168556168557%_ - _%arg157286157391%_)))))) - (_%loop157281157375%_ _%target157278157370%_ '()))))) + (##car _%e158414158515%_)))) + (_%loop158413158507%_ + _%lp-tl158416158520%_ + (cons _%lp-hd158415158518%_ + _%arg158417158512%_)))) + (let ((_%arg158418158523%_ + (reverse _%arg158417158512%_))) + (_%__kont169688169689%_ + _%arg158418158523%_)))))) + (_%loop158413158507%_ _%target158410158502%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%__stx168554168555%_)) - (let ((_%__splice168558168559%_ + _%__stx169686169687%_)) + (let ((_%__splice169690169691%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx168554168555%_ + _%__stx169686169687%_ '0)))) - (let ((_%tl157280157372%_ + (let ((_%tl158412158504%_ (let () (declare (not safe)) (##vector-ref - _%__splice168558168559%_ + _%__splice169690169691%_ '1))) - (_%target157278157370%_ + (_%target158410158502%_ (let () (declare (not safe)) (##vector-ref - _%__splice168558168559%_ + _%__splice169690169691%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157280157372%_)) - (_%__match168573168574%_ - _%__splice168558168559%_ - _%target157278157370%_ - _%tl157280157372%_) - (_%__match168579168580%_ - _%__splice168558168559%_ - _%target157278157370%_ - _%tl157280157372%_)))) - (_%__kont168564168565%_ - _%__stx168554168555%_)))))) - _%hd157232157254%_ - _%hd157229157246%_) - (_%g157224157238%_ _%g157225157241%_)))) - (_%g157224157238%_ _%g157225157241%_)))) - (_%g157224157238%_ _%g157225157241%_))))) - (_%g157223157415%_ _%form157222%_)))) + _%tl158412158504%_)) + (_%__match169705169706%_ + _%__splice169690169691%_ + _%target158410158502%_ + _%tl158412158504%_) + (_%__match169711169712%_ + _%__splice169690169691%_ + _%target158410158502%_ + _%tl158412158504%_)))) + (_%__kont169696169697%_ + _%__stx169686169687%_)))))) + _%hd158364158386%_ + _%hd158361158378%_) + (_%g158356158370%_ _%g158357158373%_)))) + (_%g158356158370%_ _%g158357158373%_)))) + (_%g158356158370%_ _%g158357158373%_))))) + (_%g158355158547%_ _%form158354%_)))) (define gxc#lambda-form-infer-signature - (lambda (_%form157148%_) - (letrec ((_%default-signature157150%_ + (lambda (_%form158280%_) + (letrec ((_%default-signature158282%_ (lambda () - (let ((__obj169713 + (let ((__obj170845 (let () (declare (not safe)) (##structure @@ -18014,12 +17998,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169713 + __obj170845 't::t '1 '#f '#f)) - (let ((__tmp169947 + (let ((__tmp171079 (##structure-ref (let () (declare (not safe)) @@ -18029,74 +18013,74 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj169713 - __tmp169947 + __obj170845 + __tmp171079 '5 '#f '#f)) - __obj169713)))) - (let* ((_%g157152157166%_ - (lambda (_%g157153157163%_) + __obj170845)))) + (let* ((_%g158284158298%_ + (lambda (_%g158285158295%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g157153157163%_)))) - (_%g157151157218%_ - (lambda (_%g157153157169%_) + _%g158285158295%_)))) + (_%g158283158350%_ + (lambda (_%g158285158301%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g157153157169%_)) - (let ((_%e157156157171%_ + (gx#stx-pair? _%g158285158301%_)) + (let ((_%e158288158303%_ (let () (declare (not safe)) - (gx#stx-e _%g157153157169%_)))) - (let ((_%hd157157157174%_ + (gx#stx-e _%g158285158301%_)))) + (let ((_%hd158289158306%_ (let () (declare (not safe)) - (##car _%e157156157171%_))) - (_%tl157158157176%_ + (##car _%e158288158303%_))) + (_%tl158290158308%_ (let () (declare (not safe)) - (##cdr _%e157156157171%_)))) + (##cdr _%e158288158303%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157158157176%_)) - (let ((_%e157159157179%_ + (gx#stx-pair? _%tl158290158308%_)) + (let ((_%e158291158311%_ (let () (declare (not safe)) - (gx#stx-e _%tl157158157176%_)))) - (let ((_%hd157160157182%_ + (gx#stx-e _%tl158290158308%_)))) + (let ((_%hd158292158314%_ (let () (declare (not safe)) - (##car _%e157159157179%_))) - (_%tl157161157184%_ + (##car _%e158291158311%_))) + (_%tl158293158316%_ (let () (declare (not safe)) - (##cdr _%e157159157179%_)))) + (##cdr _%e158291158311%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157161157184%_)) - ((lambda (_%L157187%_ _%L157188%_) - (let ((_%$e157202%_ + (gx#stx-null? _%tl158293158316%_)) + ((lambda (_%L158319%_ _%L158320%_) + (let ((_%$e158334%_ (gxc#apply-extract-lambda-signature - _%L157187%_))) - (if _%$e157202%_ - _%$e157202%_ - (let ((_%$e157205%_ + _%L158319%_))) + (if _%$e158334%_ + _%$e158334%_ + (let ((_%$e158337%_ (gxc#apply-basic-expression-type - _%L157187%_))) - (if _%$e157205%_ - ((lambda (_%return-type157208%_) + _%L158319%_))) + (if _%$e158337%_ + ((lambda (_%return-type158340%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-instance-of? - _%return-type157208%_ + _%return-type158340%_ 'gxc#!procedure::t)) - (let ((__obj169715 + (let ((__obj170847 (let () (declare (not safe)) (##structure @@ -18109,12 +18093,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169715 + __obj170847 'procedure::t '1 '#f '#f)) - (let ((__tmp169948 + (let ((__tmp171080 (##structure-ref (let () (declare (not safe)) @@ -18124,20 +18108,20 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj169715 - __tmp169948 + __obj170847 + __tmp171080 '5 '#f '#f)) - __obj169715) - (let ((_%$e157211%_ + __obj170847) + (let ((_%$e158343%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return-type157208%_)))) - (if _%$e157211%_ - ((lambda (_%return-type-name157214%_) - (let ((__obj169714 + _%return-type158340%_)))) + (if _%$e158343%_ + ((lambda (_%return-type-name158346%_) + (let ((__obj170846 (let () (declare (not safe)) (##structure @@ -18150,12 +18134,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169714 - _%return-type-name157214%_ + __obj170846 + _%return-type-name158346%_ '1 '#f '#f)) - (let ((__tmp169949 + (let ((__tmp171081 (##structure-ref (let () (declare (not safe)) @@ -18165,124 +18149,124 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj169714 - __tmp169949 + __obj170846 + __tmp171081 '5 '#f '#f)) - __obj169714)) - _%$e157211%_) - (_%default-signature157150%_))))) - _%$e157205%_) - (_%default-signature157150%_)))))) + __obj170846)) + _%$e158343%_) + (_%default-signature158282%_))))) + _%$e158337%_) + (_%default-signature158282%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd157160157182%_ - _%hd157157157174%_) - (_%g157152157166%_ - _%g157153157169%_)))) - (_%g157152157166%_ _%g157153157169%_)))) - (_%g157152157166%_ _%g157153157169%_))))) - (_%g157151157218%_ _%form157148%_))))) + _%hd158292158314%_ + _%hd158289158306%_) + (_%g158284158298%_ + _%g158285158301%_)))) + (_%g158284158298%_ _%g158285158301%_)))) + (_%g158284158298%_ _%g158285158301%_))))) + (_%g158283158350%_ _%form158280%_))))) (define gxc#extract-lambda-signature-begin-annotation% - (lambda (_%self156887%_ _%stx156888%_) - (let* ((_%__stx168595168596%_ _%stx156888%_) - (_%g156891156931%_ + (lambda (_%self158019%_ _%stx158020%_) + (let* ((_%__stx169727169728%_ _%stx158020%_) + (_%g158023158063%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168595168596%_))))) - (let ((_%__kont168597168598%_ - (lambda (_%L157037%_ _%L157038%_) - (let _%loop157058%_ ((_%rest157060%_ - (let ((__tmp169954 - (lambda (_%g157137157140%_ - _%g157138157142%_) - (cons _%g157137157140%_ - _%g157138157142%_)))) + _%__stx169727169728%_))))) + (let ((_%__kont169729169730%_ + (lambda (_%L158169%_ _%L158170%_) + (let _%loop158190%_ ((_%rest158192%_ + (let ((__tmp171086 + (lambda (_%g158269158272%_ + _%g158270158274%_) + (cons _%g158269158272%_ + _%g158270158274%_)))) (declare (not safe)) (__foldr1 - __tmp169954 + __tmp171086 '() - _%L157038%_))) - (_%result157061%_ '())) - (let* ((_%rest157062157075%_ _%rest157060%_) - (_%E157066157079%_ + _%L158170%_))) + (_%result158193%_ '())) + (let* ((_%rest158194158207%_ _%rest158192%_) + (_%E158198158211%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest157062157075%_ + _%rest158194158207%_ '([(? stx-keyword? key) arg . rest]) '([]) '(_))) '#!void))) - (let ((_%K157069157119%_ - (lambda (_%rest157105%_ - _%arg157106%_ - _%key157107%_) - (let ((_%$e157109%_ + (let ((_%K158201158251%_ + (lambda (_%rest158237%_ + _%arg158238%_ + _%key158239%_) + (let ((_%$e158241%_ (let () (declare (not safe)) - (gx#stx-e _%key157107%_)))) - (if (eq? 'return: _%$e157109%_) - (_%loop157058%_ - _%rest157105%_ + (gx#stx-e _%key158239%_)))) + (if (eq? 'return: _%$e158241%_) + (_%loop158190%_ + _%rest158237%_ (cons 'return: (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%arg157106%_)) - _%result157061%_))) - (if (eq? 'effect: _%$e157109%_) - (_%loop157058%_ - _%rest157105%_ + _%arg158238%_)) + _%result158193%_))) + (if (eq? 'effect: _%$e158241%_) + (_%loop158190%_ + _%rest158237%_ (cons 'effect: - (cons (if _%arg157106%_ + (cons (if _%arg158238%_ (map gx#stx-e - _%arg157106%_) + _%arg158238%_) '#f) - _%result157061%_))) - (if (eq? 'arguments: _%$e157109%_) - (_%loop157058%_ - _%rest157105%_ + _%result158193%_))) + (if (eq? 'arguments: _%$e158241%_) + (_%loop158190%_ + _%rest158237%_ (cons 'arguments: (cons (let () (declare (not safe)) (gxc#map* gxc#identifier-symbol - _%arg157106%_)) - _%result157061%_))) + _%arg158238%_)) + _%result158193%_))) (if (eq? 'unchecked: - _%$e157109%_) - (_%loop157058%_ - _%rest157105%_ + _%$e158241%_) + (_%loop158190%_ + _%rest158237%_ (cons 'unchecked: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%arg157106%_)) - _%result157061%_))) + (gxc#identifier-symbol _%arg158238%_)) + _%result158193%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp169950 - (let ((__tmp169951 - (lambda (_%g157111157114%_ + (let ((__tmp171082 + (let ((__tmp171083 + (lambda (_%g158243158246%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g157112157116%_) - (cons _%g157111157114%_ _%g157112157116%_)))) + _%g158244158248%_) + (cons _%g158243158246%_ _%g158244158248%_)))) (declare (not safe)) - (__foldr1 __tmp169951 '() _%L157038%_)))) + (__foldr1 __tmp171083 '() _%L158170%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx156888%_ - __tmp169950 - _%key157107%_))))))))) - (_%K157068157099%_ + _%stx158020%_ + __tmp171082 + _%key158239%_))))))))) + (_%K158200158231%_ (lambda () (apply gxc#make-!signature 'origin: @@ -18293,1830 +18277,1824 @@ '1 gx#expander-context::t '#f) - _%result157061%_))) - (_%K157067157091%_ + _%result158193%_))) + (_%K158199158223%_ (lambda () - (let ((__tmp169952 - (let ((__tmp169953 - (lambda (_%g157083157086%_ - _%g157084157088%_) - (cons _%g157083157086%_ - _%g157084157088%_)))) + (let ((__tmp171084 + (let ((__tmp171085 + (lambda (_%g158215158218%_ + _%g158216158220%_) + (cons _%g158215158218%_ + _%g158216158220%_)))) (declare (not safe)) (__foldr1 - __tmp169953 + __tmp171085 '() - _%L157038%_)))) + _%L158170%_)))) (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx156888%_ - __tmp169952))))) - (let ((_%try-match157064157102%_ + _%stx158020%_ + __tmp171084))))) + (let ((_%try-match158196158234%_ (lambda () - (if (let () - (declare (not safe)) - (##null? _%rest157062157075%_)) - (_%K157068157099%_) - (_%K157067157091%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest157062157075%_)) - (let ((_%tl157071157124%_ + (if (null? _%rest158194158207%_) + (_%K158200158231%_) + (_%K158199158223%_))))) + (if (pair? _%rest158194158207%_) + (let ((_%tl158203158256%_ (let () (declare (not safe)) - (##cdr _%rest157062157075%_))) - (_%hd157070157122%_ + (##cdr _%rest158194158207%_))) + (_%hd158202158254%_ (let () (declare (not safe)) - (##car _%rest157062157075%_)))) + (##car _%rest158194158207%_)))) (if (let () (declare (not safe)) - (gx#stx-keyword? _%hd157070157122%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl157071157124%_)) - (let ((_%tl157073157131%_ + (gx#stx-keyword? _%hd158202158254%_)) + (if (pair? _%tl158203158256%_) + (let ((_%tl158205158263%_ (let () (declare (not safe)) - (##cdr _%tl157071157124%_))) - (_%hd157072157129%_ + (##cdr _%tl158203158256%_))) + (_%hd158204158261%_ (let () (declare (not safe)) - (##car _%tl157071157124%_)))) - (let ((_%key157127%_ - _%hd157070157122%_) - (_%arg157134%_ - _%hd157072157129%_) - (_%rest157136%_ - _%tl157073157131%_)) - (_%K157069157119%_ - _%rest157136%_ - _%arg157134%_ - _%key157127%_))) - (_%K157067157091%_)) - (_%K157067157091%_))) - (_%try-match157064157102%_)))))))) - (_%__kont168601168602%_ - (lambda (_%L156960%_ _%L156961%_) + (##car _%tl158203158256%_)))) + (let ((_%key158259%_ + _%hd158202158254%_) + (_%arg158266%_ + _%hd158204158261%_) + (_%rest158268%_ + _%tl158205158263%_)) + (_%K158201158251%_ + _%rest158268%_ + _%arg158266%_ + _%key158259%_))) + (_%K158199158223%_)) + (_%K158199158223%_))) + (_%try-match158196158234%_)))))))) + (_%__kont169733169734%_ + (lambda (_%L158092%_ _%L158093%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self156887%_ _%L156960%_))))) - (let ((_%__match168632168633%_ - (lambda (_%e156895156981%_ - _%hd156896156984%_ - _%tl156897156986%_ - _%e156898156989%_ - _%hd156899156992%_ - _%tl156900156994%_ - _%e156901156997%_ - _%hd156902157000%_ - _%tl156903157002%_ - _%__splice168599168600%_ - _%target156904157005%_ - _%tl156906157007%_) - (letrec ((_%loop156907157010%_ - (lambda (_%hd156905157013%_ - _%signature156911157015%_) + (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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156905157013%_)) - (let ((_%e156908157018%_ + (gx#stx-pair? _%hd158037158145%_)) + (let ((_%e158040158150%_ (let () (declare (not safe)) - (gx#stx-e _%hd156905157013%_)))) - (let ((_%lp-tl156910157023%_ + (gx#stx-e _%hd158037158145%_)))) + (let ((_%lp-tl158042158155%_ (let () (declare (not safe)) - (##cdr _%e156908157018%_))) - (_%lp-hd156909157021%_ + (##cdr _%e158040158150%_))) + (_%lp-hd158041158153%_ (let () (declare (not safe)) - (##car _%e156908157018%_)))) - (_%loop156907157010%_ - _%lp-tl156910157023%_ - (cons _%lp-hd156909157021%_ - _%signature156911157015%_)))) - (let ((_%signature156912157026%_ - (reverse _%signature156911157015%_))) + (##car _%e158040158150%_)))) + (_%loop158039158142%_ + _%lp-tl158042158155%_ + (cons _%lp-hd158041158153%_ + _%signature158043158147%_)))) + (let ((_%signature158044158158%_ + (reverse _%signature158043158147%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156900156994%_)) - (let ((_%e156913157029%_ + (gx#stx-pair? _%tl158032158126%_)) + (let ((_%e158045158161%_ (let () (declare (not safe)) (gx#stx-e - _%tl156900156994%_)))) - (let ((_%tl156915157034%_ + _%tl158032158126%_)))) + (let ((_%tl158047158166%_ (let () (declare (not safe)) - (##cdr _%e156913157029%_))) - (_%hd156914157032%_ + (##cdr _%e158045158161%_))) + (_%hd158046158164%_ (let () (declare (not safe)) - (##car _%e156913157029%_)))) + (##car _%e158045158161%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156915157034%_)) - (_%__kont168597168598%_ - _%hd156914157032%_ - _%signature156912157026%_) + _%tl158047158166%_)) + (_%__kont169729169730%_ + _%hd158046158164%_ + _%signature158044158158%_) (let () (declare (not safe)) - (_%g156891156931%_))))) + (_%g158023158063%_))))) (let () (declare (not safe)) - (_%g156891156931%_)))))))) - (_%loop156907157010%_ _%target156904157005%_ '()))))) + (_%g158023158063%_)))))))) + (_%loop158039158142%_ _%target158036158137%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168595168596%_)) - (let ((_%e156895156981%_ + (gx#stx-pair? _%__stx169727169728%_)) + (let ((_%e158027158113%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168595168596%_)))) - (let ((_%tl156897156986%_ + (gx#stx-e _%__stx169727169728%_)))) + (let ((_%tl158029158118%_ (let () (declare (not safe)) - (##cdr _%e156895156981%_))) - (_%hd156896156984%_ + (##cdr _%e158027158113%_))) + (_%hd158028158116%_ (let () (declare (not safe)) - (##car _%e156895156981%_)))) + (##car _%e158027158113%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156897156986%_)) - (let ((_%e156898156989%_ + (gx#stx-pair? _%tl158029158118%_)) + (let ((_%e158030158121%_ (let () (declare (not safe)) - (gx#stx-e _%tl156897156986%_)))) - (let ((_%tl156900156994%_ + (gx#stx-e _%tl158029158118%_)))) + (let ((_%tl158032158126%_ (let () (declare (not safe)) - (##cdr _%e156898156989%_))) - (_%hd156899156992%_ + (##cdr _%e158030158121%_))) + (_%hd158031158124%_ (let () (declare (not safe)) - (##car _%e156898156989%_)))) + (##car _%e158030158121%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156899156992%_)) - (let ((_%e156901156997%_ + (gx#stx-pair? _%hd158031158124%_)) + (let ((_%e158033158129%_ (let () (declare (not safe)) - (gx#stx-e _%hd156899156992%_)))) - (let ((_%tl156903157002%_ + (gx#stx-e _%hd158031158124%_)))) + (let ((_%tl158035158134%_ (let () (declare (not safe)) - (##cdr _%e156901156997%_))) - (_%hd156902157000%_ + (##cdr _%e158033158129%_))) + (_%hd158034158132%_ (let () (declare (not safe)) - (##car _%e156901156997%_)))) + (##car _%e158033158129%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd156902157000%_)) + _%hd158034158132%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd156902157000%_)) + _%hd158034158132%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl156903157002%_)) - (let ((_%__splice168599168600%_ + _%tl158035158134%_)) + (let ((_%__splice169731169732%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl156903157002%_ + _%tl158035158134%_ '0)))) - (let ((_%tl156906157007%_ + (let ((_%tl158038158139%_ (let () (declare (not safe)) (##vector-ref - _%__splice168599168600%_ + _%__splice169731169732%_ '1))) - (_%target156904157005%_ + (_%target158036158137%_ (let () (declare (not safe)) (##vector-ref - _%__splice168599168600%_ + _%__splice169731169732%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156906157007%_)) - (_%__match168632168633%_ - _%e156895156981%_ - _%hd156896156984%_ - _%tl156897156986%_ - _%e156898156989%_ - _%hd156899156992%_ - _%tl156900156994%_ - _%e156901156997%_ - _%hd156902157000%_ - _%tl156903157002%_ - _%__splice168599168600%_ - _%target156904157005%_ - _%tl156906157007%_) + _%tl158038158139%_)) + (_%__match169764169765%_ + _%e158027158113%_ + _%hd158028158116%_ + _%tl158029158118%_ + _%e158030158121%_ + _%hd158031158124%_ + _%tl158032158126%_ + _%e158033158129%_ + _%hd158034158132%_ + _%tl158035158134%_ + _%__splice169731169732%_ + _%target158036158137%_ + _%tl158038158139%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl156900156994%_)) - (let ((_%e156924156952%_ + (gx#stx-pair? _%tl158032158126%_)) + (let ((_%e158056158084%_ (let () (declare (not safe)) - (gx#stx-e _%tl156900156994%_)))) - (let ((_%tl156926156957%_ + (gx#stx-e _%tl158032158126%_)))) + (let ((_%tl158058158089%_ (let () (declare (not safe)) - (##cdr _%e156924156952%_))) - (_%hd156925156955%_ + (##cdr _%e158056158084%_))) + (_%hd158057158087%_ (let () (declare (not safe)) - (##car _%e156924156952%_)))) + (##car _%e158056158084%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156926156957%_)) - (_%__kont168601168602%_ - _%hd156925156955%_ - _%hd156899156992%_) + (gx#stx-null? _%tl158058158089%_)) + (_%__kont169733169734%_ + _%hd158057158087%_ + _%hd158031158124%_) (let () (declare (not safe)) - (_%g156891156931%_))))) - (let () (declare (not safe)) (_%g156891156931%_)))))) + (_%g158023158063%_))))) + (let () (declare (not safe)) (_%g158023158063%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156900156994%_)) - (let ((_%e156924156952%_ + _%tl158032158126%_)) + (let ((_%e158056158084%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156900156994%_)))) - (let ((_%tl156926156957%_ - (let () (declare (not safe)) (##cdr _%e156924156952%_))) - (_%hd156925156955%_ + (gx#stx-e _%tl158032158126%_)))) + (let ((_%tl158058158089%_ + (let () (declare (not safe)) (##cdr _%e158056158084%_))) + (_%hd158057158087%_ (let () (declare (not safe)) - (##car _%e156924156952%_)))) + (##car _%e158056158084%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156926156957%_)) - (_%__kont168601168602%_ - _%hd156925156955%_ - _%hd156899156992%_) - (let () (declare (not safe)) (_%g156891156931%_))))) - (let () (declare (not safe)) (_%g156891156931%_)))) + (gx#stx-null? _%tl158058158089%_)) + (_%__kont169733169734%_ + _%hd158057158087%_ + _%hd158031158124%_) + (let () (declare (not safe)) (_%g158023158063%_))))) + (let () (declare (not safe)) (_%g158023158063%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156900156994%_)) - (let ((_%e156924156952%_ + _%tl158032158126%_)) + (let ((_%e158056158084%_ (let () (declare (not safe)) (gx#stx-e - _%tl156900156994%_)))) - (let ((_%tl156926156957%_ + _%tl158032158126%_)))) + (let ((_%tl158058158089%_ (let () (declare (not safe)) - (##cdr _%e156924156952%_))) - (_%hd156925156955%_ + (##cdr _%e158056158084%_))) + (_%hd158057158087%_ (let () (declare (not safe)) - (##car _%e156924156952%_)))) + (##car _%e158056158084%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156926156957%_)) - (_%__kont168601168602%_ - _%hd156925156955%_ - _%hd156899156992%_) + _%tl158058158089%_)) + (_%__kont169733169734%_ + _%hd158057158087%_ + _%hd158031158124%_) (let () (declare (not safe)) - (_%g156891156931%_))))) + (_%g158023158063%_))))) (let () (declare (not safe)) - (_%g156891156931%_)))) + (_%g158023158063%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156900156994%_)) - (let ((_%e156924156952%_ + _%tl158032158126%_)) + (let ((_%e158056158084%_ (let () (declare (not safe)) (gx#stx-e - _%tl156900156994%_)))) - (let ((_%tl156926156957%_ + _%tl158032158126%_)))) + (let ((_%tl158058158089%_ (let () (declare (not safe)) - (##cdr _%e156924156952%_))) - (_%hd156925156955%_ + (##cdr _%e158056158084%_))) + (_%hd158057158087%_ (let () (declare (not safe)) - (##car _%e156924156952%_)))) + (##car _%e158056158084%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156926156957%_)) - (_%__kont168601168602%_ - _%hd156925156955%_ - _%hd156899156992%_) + _%tl158058158089%_)) + (_%__kont169733169734%_ + _%hd158057158087%_ + _%hd158031158124%_) (let () (declare (not safe)) - (_%g156891156931%_))))) + (_%g158023158063%_))))) (let () (declare (not safe)) - (_%g156891156931%_)))))) + (_%g158023158063%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156900156994%_)) - (let ((_%e156924156952%_ + (gx#stx-pair? _%tl158032158126%_)) + (let ((_%e158056158084%_ (let () (declare (not safe)) - (gx#stx-e _%tl156900156994%_)))) - (let ((_%tl156926156957%_ + (gx#stx-e _%tl158032158126%_)))) + (let ((_%tl158058158089%_ (let () (declare (not safe)) - (##cdr _%e156924156952%_))) - (_%hd156925156955%_ + (##cdr _%e158056158084%_))) + (_%hd158057158087%_ (let () (declare (not safe)) - (##car _%e156924156952%_)))) + (##car _%e158056158084%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156926156957%_)) - (_%__kont168601168602%_ - _%hd156925156955%_ - _%hd156899156992%_) + _%tl158058158089%_)) + (_%__kont169733169734%_ + _%hd158057158087%_ + _%hd158031158124%_) (let () (declare (not safe)) - (_%g156891156931%_))))) + (_%g158023158063%_))))) (let () (declare (not safe)) - (_%g156891156931%_)))))) - (let () (declare (not safe)) (_%g156891156931%_))))) - (let () (declare (not safe)) (_%g156891156931%_)))))))) + (_%g158023158063%_)))))) + (let () (declare (not safe)) (_%g158023158063%_))))) + (let () (declare (not safe)) (_%g158023158063%_)))))))) (define gxc#lambda-expr? - (lambda (_%expr156840%_) - (let* ((_%__stx168655168656%_ _%expr156840%_) - (_%g156843156853%_ + (lambda (_%expr157972%_) + (let* ((_%__stx169787169788%_ _%expr157972%_) + (_%g157975157985%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168655168656%_))))) - (let ((_%__kont168657168658%_ (lambda (_%L156873%_) '#t)) - (_%__kont168659168660%_ (lambda () '#f))) + _%__stx169787169788%_))))) + (let ((_%__kont169789169790%_ (lambda (_%L158005%_) '#t)) + (_%__kont169791169792%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168655168656%_)) - (let ((_%e156846156865%_ + (gx#stx-pair? _%__stx169787169788%_)) + (let ((_%e157978157997%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168655168656%_)))) - (let ((_%tl156848156870%_ + (gx#stx-e _%__stx169787169788%_)))) + (let ((_%tl157980158002%_ (let () (declare (not safe)) - (##cdr _%e156846156865%_))) - (_%hd156847156868%_ + (##cdr _%e157978157997%_))) + (_%hd157979158000%_ (let () (declare (not safe)) - (##car _%e156846156865%_)))) + (##car _%e157978157997%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156847156868%_)) + (gx#identifier? _%hd157979158000%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd156847156868%_)) - (_%__kont168657168658%_ _%tl156848156870%_) - (_%__kont168659168660%_)) - (_%__kont168659168660%_)))) - (_%__kont168659168660%_)))))) + (gx#stx-eq? '%#lambda _%hd157979158000%_)) + (_%__kont169789169790%_ _%tl157980158002%_) + (_%__kont169791169792%_)) + (_%__kont169791169792%_)))) + (_%__kont169791169792%_)))))) (define gxc#case-lambda-expr? - (lambda (_%expr156793%_) - (let* ((_%__stx168673168674%_ _%expr156793%_) - (_%g156796156806%_ + (lambda (_%expr157925%_) + (let* ((_%__stx169805169806%_ _%expr157925%_) + (_%g157928157938%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168673168674%_))))) - (let ((_%__kont168675168676%_ (lambda (_%L156826%_) '#t)) - (_%__kont168677168678%_ (lambda () '#f))) + _%__stx169805169806%_))))) + (let ((_%__kont169807169808%_ (lambda (_%L157958%_) '#t)) + (_%__kont169809169810%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168673168674%_)) - (let ((_%e156799156818%_ + (gx#stx-pair? _%__stx169805169806%_)) + (let ((_%e157931157950%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168673168674%_)))) - (let ((_%tl156801156823%_ + (gx#stx-e _%__stx169805169806%_)))) + (let ((_%tl157933157955%_ (let () (declare (not safe)) - (##cdr _%e156799156818%_))) - (_%hd156800156821%_ + (##cdr _%e157931157950%_))) + (_%hd157932157953%_ (let () (declare (not safe)) - (##car _%e156799156818%_)))) + (##car _%e157931157950%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156800156821%_)) + (gx#identifier? _%hd157932157953%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _%hd156800156821%_)) - (_%__kont168675168676%_ _%tl156801156823%_) - (_%__kont168677168678%_)) - (_%__kont168677168678%_)))) - (_%__kont168677168678%_)))))) + (gx#stx-eq? '%#case-lambda _%hd157932157953%_)) + (_%__kont169807169808%_ _%tl157933157955%_) + (_%__kont169809169810%_)) + (_%__kont169809169810%_)))) + (_%__kont169809169810%_)))))) (define gxc#opt-lambda-expr? - (lambda (_%expr156662%_) - (let* ((_%__stx168691168692%_ _%expr156662%_) - (_%g156665156695%_ + (lambda (_%expr157794%_) + (let* ((_%__stx169823169824%_ _%expr157794%_) + (_%g157797157827%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168691168692%_))))) - (let ((_%__kont168693168694%_ - (lambda (_%L156763%_ _%L156764%_ _%L156765%_) + _%__stx169823169824%_))))) + (let ((_%__kont169825169826%_ + (lambda (_%L157895%_ _%L157896%_ _%L157897%_) (if (let () (declare (not safe)) - (gx#identifier? _%L156765%_)) - (if (gxc#lambda-expr? _%L156764%_) - (gxc#case-lambda-expr? _%L156763%_) + (gx#identifier? _%L157897%_)) + (if (gxc#lambda-expr? _%L157896%_) + (gxc#case-lambda-expr? _%L157895%_) '#f) '#f))) - (_%__kont168695168696%_ (lambda () '#f))) + (_%__kont169827169828%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168691168692%_)) - (let ((_%e156670156707%_ + (gx#stx-pair? _%__stx169823169824%_)) + (let ((_%e157802157839%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168691168692%_)))) - (let ((_%tl156672156712%_ + (gx#stx-e _%__stx169823169824%_)))) + (let ((_%tl157804157844%_ (let () (declare (not safe)) - (##cdr _%e156670156707%_))) - (_%hd156671156710%_ + (##cdr _%e157802157839%_))) + (_%hd157803157842%_ (let () (declare (not safe)) - (##car _%e156670156707%_)))) + (##car _%e157802157839%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156671156710%_)) + (gx#identifier? _%hd157803157842%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd156671156710%_)) + (gx#stx-eq? '%#let-values _%hd157803157842%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156672156712%_)) - (let ((_%e156673156715%_ + (gx#stx-pair? _%tl157804157844%_)) + (let ((_%e157805157847%_ (let () (declare (not safe)) - (gx#stx-e _%tl156672156712%_)))) - (let ((_%tl156675156720%_ + (gx#stx-e _%tl157804157844%_)))) + (let ((_%tl157807157852%_ (let () (declare (not safe)) - (##cdr _%e156673156715%_))) - (_%hd156674156718%_ + (##cdr _%e157805157847%_))) + (_%hd157806157850%_ (let () (declare (not safe)) - (##car _%e156673156715%_)))) + (##car _%e157805157847%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156674156718%_)) - (let ((_%e156676156723%_ + (gx#stx-pair? _%hd157806157850%_)) + (let ((_%e157808157855%_ (let () (declare (not safe)) (gx#stx-e - _%hd156674156718%_)))) - (let ((_%tl156678156728%_ + _%hd157806157850%_)))) + (let ((_%tl157810157860%_ (let () (declare (not safe)) - (##cdr _%e156676156723%_))) - (_%hd156677156726%_ + (##cdr _%e157808157855%_))) + (_%hd157809157858%_ (let () (declare (not safe)) - (##car _%e156676156723%_)))) + (##car _%e157808157855%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156677156726%_)) - (let ((_%e156679156731%_ + _%hd157809157858%_)) + (let ((_%e157811157863%_ (let () (declare (not safe)) (gx#stx-e - _%hd156677156726%_)))) - (let ((_%tl156681156736%_ + _%hd157809157858%_)))) + (let ((_%tl157813157868%_ (let () (declare (not safe)) - (##cdr _%e156679156731%_))) - (_%hd156680156734%_ + (##cdr _%e157811157863%_))) + (_%hd157812157866%_ (let () (declare (not safe)) - (##car _%e156679156731%_)))) + (##car _%e157811157863%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156680156734%_)) - (let ((_%e156682156739%_ + _%hd157812157866%_)) + (let ((_%e157814157871%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd156680156734%_)))) - (let ((_%tl156684156744%_ + (gx#stx-e _%hd157812157866%_)))) + (let ((_%tl157816157876%_ (let () (declare (not safe)) - (##cdr _%e156682156739%_))) - (_%hd156683156742%_ + (##cdr _%e157814157871%_))) + (_%hd157815157874%_ (let () (declare (not safe)) - (##car _%e156682156739%_)))) + (##car _%e157814157871%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156684156744%_)) + (gx#stx-null? _%tl157816157876%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156681156736%_)) - (let ((_%e156685156747%_ + (gx#stx-pair? _%tl157813157868%_)) + (let ((_%e157817157879%_ (let () (declare (not safe)) - (gx#stx-e _%tl156681156736%_)))) - (let ((_%tl156687156752%_ + (gx#stx-e _%tl157813157868%_)))) + (let ((_%tl157819157884%_ (let () (declare (not safe)) - (##cdr _%e156685156747%_))) - (_%hd156686156750%_ + (##cdr _%e157817157879%_))) + (_%hd157818157882%_ (let () (declare (not safe)) - (##car _%e156685156747%_)))) + (##car _%e157817157879%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156687156752%_)) + (gx#stx-null? _%tl157819157884%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156678156728%_)) + (gx#stx-null? _%tl157810157860%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156675156720%_)) - (let ((_%e156688156755%_ + _%tl157807157852%_)) + (let ((_%e157820157887%_ (let () (declare (not safe)) (gx#stx-e - _%tl156675156720%_)))) - (let ((_%tl156690156760%_ + _%tl157807157852%_)))) + (let ((_%tl157822157892%_ (let () (declare (not safe)) - (##cdr _%e156688156755%_))) - (_%hd156689156758%_ + (##cdr _%e157820157887%_))) + (_%hd157821157890%_ (let () (declare (not safe)) - (##car _%e156688156755%_)))) + (##car _%e157820157887%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156690156760%_)) - (_%__kont168693168694%_ - _%hd156689156758%_ - _%hd156686156750%_ - _%hd156683156742%_) - (_%__kont168695168696%_)))) - (_%__kont168695168696%_)) - (_%__kont168695168696%_)) - (_%__kont168695168696%_)))) - (_%__kont168695168696%_)) - (_%__kont168695168696%_)))) - (_%__kont168695168696%_)))) + _%tl157822157892%_)) + (_%__kont169825169826%_ + _%hd157821157890%_ + _%hd157818157882%_ + _%hd157815157874%_) + (_%__kont169827169828%_)))) + (_%__kont169827169828%_)) + (_%__kont169827169828%_)) + (_%__kont169827169828%_)))) + (_%__kont169827169828%_)) + (_%__kont169827169828%_)))) + (_%__kont169827169828%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168695168696%_)))) - (_%__kont168695168696%_)))) - (_%__kont168695168696%_)) - (_%__kont168695168696%_)) - (_%__kont168695168696%_)))) - (_%__kont168695168696%_)))))) + (_%__kont169827169828%_)))) + (_%__kont169827169828%_)))) + (_%__kont169827169828%_)) + (_%__kont169827169828%_)) + (_%__kont169827169828%_)))) + (_%__kont169827169828%_)))))) (define gxc#kw-lambda-expr? - (lambda (_%expr155987%_) - (let* ((_%__stx168753168754%_ _%expr155987%_) - (_%g155990156148%_ + (lambda (_%expr157119%_) + (let* ((_%__stx169885169886%_ _%expr157119%_) + (_%g157122157280%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168753168754%_))))) - (let ((_%__kont168755168756%_ - (lambda (_%L156536%_ - _%L156537%_ - _%L156538%_ - _%L156539%_ - _%L156540%_ - _%L156541%_ - _%L156542%_ - _%L156543%_ - _%L156544%_ - _%L156545%_ - _%L156546%_) + _%__stx169885169886%_))))) + (let ((_%__kont169887169888%_ + (lambda (_%L157668%_ + _%L157669%_ + _%L157670%_ + _%L157671%_ + _%L157672%_ + _%L157673%_ + _%L157674%_ + _%L157675%_ + _%L157676%_ + _%L157677%_ + _%L157678%_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L156543%_ 'apply)) + (gxc#runtime-identifier=? _%L157675%_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L156539%_ 'apply)) + (gxc#runtime-identifier=? _%L157671%_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L156538%_ + _%L157670%_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L156546%_ - _%L156537%_)) + _%L157678%_ + _%L157669%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L156545%_ - _%L156542%_)) + _%L157677%_ + _%L157674%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L156540%_ - _%L156536%_)) + _%L157672%_ + _%L157668%_)) (let () (declare (not safe)) (gx#free-identifier=? - _%L156544%_ - _%L156541%_)) + _%L157676%_ + _%L157673%_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (_%__kont168757168758%_ (lambda () '#f))) + (_%__kont169889169890%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168753168754%_)) - (let ((_%e156003156160%_ + (gx#stx-pair? _%__stx169885169886%_)) + (let ((_%e157135157292%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168753168754%_)))) - (let ((_%tl156005156165%_ + (gx#stx-e _%__stx169885169886%_)))) + (let ((_%tl157137157297%_ (let () (declare (not safe)) - (##cdr _%e156003156160%_))) - (_%hd156004156163%_ + (##cdr _%e157135157292%_))) + (_%hd157136157295%_ (let () (declare (not safe)) - (##car _%e156003156160%_)))) + (##car _%e157135157292%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156004156163%_)) + (gx#identifier? _%hd157136157295%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd156004156163%_)) + (gx#stx-eq? '%#let-values _%hd157136157295%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156005156165%_)) - (let ((_%e156006156168%_ + (gx#stx-pair? _%tl157137157297%_)) + (let ((_%e157138157300%_ (let () (declare (not safe)) - (gx#stx-e _%tl156005156165%_)))) - (let ((_%tl156008156173%_ + (gx#stx-e _%tl157137157297%_)))) + (let ((_%tl157140157305%_ (let () (declare (not safe)) - (##cdr _%e156006156168%_))) - (_%hd156007156171%_ + (##cdr _%e157138157300%_))) + (_%hd157139157303%_ (let () (declare (not safe)) - (##car _%e156006156168%_)))) + (##car _%e157138157300%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156007156171%_)) - (let ((_%e156009156176%_ + (gx#stx-pair? _%hd157139157303%_)) + (let ((_%e157141157308%_ (let () (declare (not safe)) (gx#stx-e - _%hd156007156171%_)))) - (let ((_%tl156011156181%_ + _%hd157139157303%_)))) + (let ((_%tl157143157313%_ (let () (declare (not safe)) - (##cdr _%e156009156176%_))) - (_%hd156010156179%_ + (##cdr _%e157141157308%_))) + (_%hd157142157311%_ (let () (declare (not safe)) - (##car _%e156009156176%_)))) + (##car _%e157141157308%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156010156179%_)) - (let ((_%e156012156184%_ + _%hd157142157311%_)) + (let ((_%e157144157316%_ (let () (declare (not safe)) (gx#stx-e - _%hd156010156179%_)))) - (let ((_%tl156014156189%_ + _%hd157142157311%_)))) + (let ((_%tl157146157321%_ (let () (declare (not safe)) - (##cdr _%e156012156184%_))) - (_%hd156013156187%_ + (##cdr _%e157144157316%_))) + (_%hd157145157319%_ (let () (declare (not safe)) - (##car _%e156012156184%_)))) + (##car _%e157144157316%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156013156187%_)) - (let ((_%e156015156192%_ + _%hd157145157319%_)) + (let ((_%e157147157324%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd156013156187%_)))) - (let ((_%tl156017156197%_ + (gx#stx-e _%hd157145157319%_)))) + (let ((_%tl157149157329%_ (let () (declare (not safe)) - (##cdr _%e156015156192%_))) - (_%hd156016156195%_ + (##cdr _%e157147157324%_))) + (_%hd157148157327%_ (let () (declare (not safe)) - (##car _%e156015156192%_)))) + (##car _%e157147157324%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156017156197%_)) + (gx#stx-null? _%tl157149157329%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156014156189%_)) - (let ((_%e156018156200%_ + (gx#stx-pair? _%tl157146157321%_)) + (let ((_%e157150157332%_ (let () (declare (not safe)) - (gx#stx-e _%tl156014156189%_)))) - (let ((_%tl156020156205%_ + (gx#stx-e _%tl157146157321%_)))) + (let ((_%tl157152157337%_ (let () (declare (not safe)) - (##cdr _%e156018156200%_))) - (_%hd156019156203%_ + (##cdr _%e157150157332%_))) + (_%hd157151157335%_ (let () (declare (not safe)) - (##car _%e156018156200%_)))) + (##car _%e157150157332%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156019156203%_)) - (let ((_%e156021156208%_ + (gx#stx-pair? _%hd157151157335%_)) + (let ((_%e157153157340%_ (let () (declare (not safe)) - (gx#stx-e _%hd156019156203%_)))) - (let ((_%tl156023156213%_ + (gx#stx-e _%hd157151157335%_)))) + (let ((_%tl157155157345%_ (let () (declare (not safe)) - (##cdr _%e156021156208%_))) - (_%hd156022156211%_ + (##cdr _%e157153157340%_))) + (_%hd157154157343%_ (let () (declare (not safe)) - (##car _%e156021156208%_)))) + (##car _%e157153157340%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd156022156211%_)) + _%hd157154157343%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd156022156211%_)) + _%hd157154157343%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156023156213%_)) - (let ((_%e156024156216%_ + _%tl157155157345%_)) + (let ((_%e157156157348%_ (let () (declare (not safe)) (gx#stx-e - _%tl156023156213%_)))) - (let ((_%tl156026156221%_ + _%tl157155157345%_)))) + (let ((_%tl157158157353%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e156024156216%_))) - (_%hd156025156219%_ - (let () (declare (not safe)) (##car _%e156024156216%_)))) + (##cdr _%e157156157348%_))) + (_%hd157157157351%_ + (let () (declare (not safe)) (##car _%e157156157348%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156025156219%_)) - (let ((_%e156027156224%_ + (gx#stx-pair? _%hd157157157351%_)) + (let ((_%e157159157356%_ (let () (declare (not safe)) - (gx#stx-e _%hd156025156219%_)))) - (let ((_%tl156029156229%_ + (gx#stx-e _%hd157157157351%_)))) + (let ((_%tl157161157361%_ (let () (declare (not safe)) - (##cdr _%e156027156224%_))) - (_%hd156028156227%_ + (##cdr _%e157159157356%_))) + (_%hd157160157359%_ (let () (declare (not safe)) - (##car _%e156027156224%_)))) + (##car _%e157159157356%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156028156227%_)) - (let ((_%e156030156232%_ + (gx#stx-pair? _%hd157160157359%_)) + (let ((_%e157162157364%_ (let () (declare (not safe)) - (gx#stx-e _%hd156028156227%_)))) - (let ((_%tl156032156237%_ + (gx#stx-e _%hd157160157359%_)))) + (let ((_%tl157164157369%_ (let () (declare (not safe)) - (##cdr _%e156030156232%_))) - (_%hd156031156235%_ + (##cdr _%e157162157364%_))) + (_%hd157163157367%_ (let () (declare (not safe)) - (##car _%e156030156232%_)))) + (##car _%e157162157364%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156031156235%_)) - (let ((_%e156033156240%_ + (gx#stx-pair? _%hd157163157367%_)) + (let ((_%e157165157372%_ (let () (declare (not safe)) - (gx#stx-e _%hd156031156235%_)))) - (let ((_%tl156035156245%_ + (gx#stx-e _%hd157163157367%_)))) + (let ((_%tl157167157377%_ (let () (declare (not safe)) - (##cdr _%e156033156240%_))) - (_%hd156034156243%_ + (##cdr _%e157165157372%_))) + (_%hd157166157375%_ (let () (declare (not safe)) - (##car _%e156033156240%_)))) + (##car _%e157165157372%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156035156245%_)) + _%tl157167157377%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156032156237%_)) - (let ((_%e156036156248%_ + _%tl157164157369%_)) + (let ((_%e157168157380%_ (let () (declare (not safe)) (gx#stx-e - _%tl156032156237%_)))) - (let ((_%tl156038156253%_ + _%tl157164157369%_)))) + (let ((_%tl157170157385%_ (let () (declare (not safe)) - (##cdr _%e156036156248%_))) - (_%hd156037156251%_ + (##cdr _%e157168157380%_))) + (_%hd157169157383%_ (let () (declare (not safe)) - (##car _%e156036156248%_)))) + (##car _%e157168157380%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156038156253%_)) + _%tl157170157385%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156029156229%_)) + _%tl157161157361%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl156026156221%_)) - (let ((_%e156039156256%_ + (gx#stx-pair? _%tl157158157353%_)) + (let ((_%e157171157388%_ (let () (declare (not safe)) - (gx#stx-e _%tl156026156221%_)))) - (let ((_%tl156041156261%_ + (gx#stx-e _%tl157158157353%_)))) + (let ((_%tl157173157393%_ (let () (declare (not safe)) - (##cdr _%e156039156256%_))) - (_%hd156040156259%_ + (##cdr _%e157171157388%_))) + (_%hd157172157391%_ (let () (declare (not safe)) - (##car _%e156039156256%_)))) + (##car _%e157171157388%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156040156259%_)) - (let ((_%e156042156264%_ + (gx#stx-pair? _%hd157172157391%_)) + (let ((_%e157174157396%_ (let () (declare (not safe)) - (gx#stx-e _%hd156040156259%_)))) - (let ((_%tl156044156269%_ + (gx#stx-e _%hd157172157391%_)))) + (let ((_%tl157176157401%_ (let () (declare (not safe)) - (##cdr _%e156042156264%_))) - (_%hd156043156267%_ + (##cdr _%e157174157396%_))) + (_%hd157175157399%_ (let () (declare (not safe)) - (##car _%e156042156264%_)))) + (##car _%e157174157396%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156043156267%_)) + (gx#identifier? _%hd157175157399%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd156043156267%_)) + _%hd157175157399%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156044156269%_)) - (let ((_%e156045156272%_ + _%tl157176157401%_)) + (let ((_%e157177157404%_ (let () (declare (not safe)) (gx#stx-e - _%tl156044156269%_)))) - (let ((_%tl156047156277%_ + _%tl157176157401%_)))) + (let ((_%tl157179157409%_ (let () (declare (not safe)) - (##cdr _%e156045156272%_))) - (_%hd156046156275%_ + (##cdr _%e157177157404%_))) + (_%hd157178157407%_ (let () (declare (not safe)) - (##car _%e156045156272%_)))) + (##car _%e157177157404%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156046156275%_)) - (let ((_%e156048156280%_ + _%hd157178157407%_)) + (let ((_%e157180157412%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd156046156275%_)))) - (let ((_%tl156050156285%_ + (gx#stx-e _%hd157178157407%_)))) + (let ((_%tl157182157417%_ (let () (declare (not safe)) - (##cdr _%e156048156280%_))) - (_%hd156049156283%_ + (##cdr _%e157180157412%_))) + (_%hd157181157415%_ (let () (declare (not safe)) - (##car _%e156048156280%_)))) + (##car _%e157180157412%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156047156277%_)) - (let ((_%e156051156288%_ + (gx#stx-pair? _%tl157179157409%_)) + (let ((_%e157183157420%_ (let () (declare (not safe)) - (gx#stx-e _%tl156047156277%_)))) - (let ((_%tl156053156293%_ + (gx#stx-e _%tl157179157409%_)))) + (let ((_%tl157185157425%_ (let () (declare (not safe)) - (##cdr _%e156051156288%_))) - (_%hd156052156291%_ + (##cdr _%e157183157420%_))) + (_%hd157184157423%_ (let () (declare (not safe)) - (##car _%e156051156288%_)))) + (##car _%e157183157420%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156052156291%_)) - (let ((_%e156054156296%_ + (gx#stx-pair? _%hd157184157423%_)) + (let ((_%e157186157428%_ (let () (declare (not safe)) - (gx#stx-e _%hd156052156291%_)))) - (let ((_%tl156056156301%_ + (gx#stx-e _%hd157184157423%_)))) + (let ((_%tl157188157433%_ (let () (declare (not safe)) - (##cdr _%e156054156296%_))) - (_%hd156055156299%_ + (##cdr _%e157186157428%_))) + (_%hd157187157431%_ (let () (declare (not safe)) - (##car _%e156054156296%_)))) + (##car _%e157186157428%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156055156299%_)) + (gx#identifier? _%hd157187157431%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd156055156299%_)) + _%hd157187157431%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156056156301%_)) - (let ((_%e156057156304%_ + _%tl157188157433%_)) + (let ((_%e157189157436%_ (let () (declare (not safe)) (gx#stx-e - _%tl156056156301%_)))) - (let ((_%tl156059156309%_ + _%tl157188157433%_)))) + (let ((_%tl157191157441%_ (let () (declare (not safe)) - (##cdr _%e156057156304%_))) - (_%hd156058156307%_ + (##cdr _%e157189157436%_))) + (_%hd157190157439%_ (let () (declare (not safe)) - (##car _%e156057156304%_)))) + (##car _%e157189157436%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156058156307%_)) - (let ((_%e156060156312%_ + _%hd157190157439%_)) + (let ((_%e157192157444%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd156058156307%_)))) - (let ((_%tl156062156317%_ + (gx#stx-e _%hd157190157439%_)))) + (let ((_%tl157194157449%_ (let () (declare (not safe)) - (##cdr _%e156060156312%_))) - (_%hd156061156315%_ + (##cdr _%e157192157444%_))) + (_%hd157193157447%_ (let () (declare (not safe)) - (##car _%e156060156312%_)))) + (##car _%e157192157444%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156061156315%_)) + (gx#identifier? _%hd157193157447%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd156061156315%_)) + (gx#stx-eq? '%#ref _%hd157193157447%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156062156317%_)) - (let ((_%e156063156320%_ + (gx#stx-pair? _%tl157194157449%_)) + (let ((_%e157195157452%_ (let () (declare (not safe)) - (gx#stx-e _%tl156062156317%_)))) - (let ((_%tl156065156325%_ + (gx#stx-e _%tl157194157449%_)))) + (let ((_%tl157197157457%_ (let () (declare (not safe)) - (##cdr _%e156063156320%_))) - (_%hd156064156323%_ + (##cdr _%e157195157452%_))) + (_%hd157196157455%_ (let () (declare (not safe)) - (##car _%e156063156320%_)))) + (##car _%e157195157452%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156065156325%_)) + (gx#stx-null? _%tl157197157457%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156059156309%_)) - (let ((_%e156066156328%_ + _%tl157191157441%_)) + (let ((_%e157198157460%_ (let () (declare (not safe)) (gx#stx-e - _%tl156059156309%_)))) - (let ((_%tl156068156333%_ + _%tl157191157441%_)))) + (let ((_%tl157200157465%_ (let () (declare (not safe)) - (##cdr _%e156066156328%_))) - (_%hd156067156331%_ + (##cdr _%e157198157460%_))) + (_%hd157199157463%_ (let () (declare (not safe)) - (##car _%e156066156328%_)))) + (##car _%e157198157460%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156067156331%_)) - (let ((_%e156069156336%_ + _%hd157199157463%_)) + (let ((_%e157201157468%_ (let () (declare (not safe)) (gx#stx-e - _%hd156067156331%_)))) - (let ((_%tl156071156341%_ + _%hd157199157463%_)))) + (let ((_%tl157203157473%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e156069156336%_))) - (_%hd156070156339%_ - (let () (declare (not safe)) (##car _%e156069156336%_)))) + (##cdr _%e157201157468%_))) + (_%hd157202157471%_ + (let () (declare (not safe)) (##car _%e157201157468%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156070156339%_)) + (gx#identifier? _%hd157202157471%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd156070156339%_)) + (gx#stx-eq? '%#ref _%hd157202157471%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156071156341%_)) - (let ((_%e156072156344%_ + (gx#stx-pair? _%tl157203157473%_)) + (let ((_%e157204157476%_ (let () (declare (not safe)) - (gx#stx-e _%tl156071156341%_)))) - (let ((_%tl156074156349%_ + (gx#stx-e _%tl157203157473%_)))) + (let ((_%tl157206157481%_ (let () (declare (not safe)) - (##cdr _%e156072156344%_))) - (_%hd156073156347%_ + (##cdr _%e157204157476%_))) + (_%hd157205157479%_ (let () (declare (not safe)) - (##car _%e156072156344%_)))) + (##car _%e157204157476%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156074156349%_)) + (gx#stx-null? _%tl157206157481%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156068156333%_)) - (let ((_%e156075156352%_ + (gx#stx-pair? _%tl157200157465%_)) + (let ((_%e157207157484%_ (let () (declare (not safe)) (gx#stx-e - _%tl156068156333%_)))) - (let ((_%tl156077156357%_ + _%tl157200157465%_)))) + (let ((_%tl157209157489%_ (let () (declare (not safe)) - (##cdr _%e156075156352%_))) - (_%hd156076156355%_ + (##cdr _%e157207157484%_))) + (_%hd157208157487%_ (let () (declare (not safe)) - (##car _%e156075156352%_)))) + (##car _%e157207157484%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156076156355%_)) - (let ((_%e156078156360%_ + _%hd157208157487%_)) + (let ((_%e157210157492%_ (let () (declare (not safe)) (gx#stx-e - _%hd156076156355%_)))) - (let ((_%tl156080156365%_ + _%hd157208157487%_)))) + (let ((_%tl157212157497%_ (let () (declare (not safe)) - (##cdr _%e156078156360%_))) - (_%hd156079156363%_ + (##cdr _%e157210157492%_))) + (_%hd157211157495%_ (let () (declare (not safe)) - (##car _%e156078156360%_)))) + (##car _%e157210157492%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd156079156363%_)) + _%hd157211157495%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd156079156363%_)) + _%hd157211157495%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl156080156365%_)) - (let ((_%e156081156368%_ + (gx#stx-pair? _%tl157212157497%_)) + (let ((_%e157213157500%_ (let () (declare (not safe)) - (gx#stx-e _%tl156080156365%_)))) - (let ((_%tl156083156373%_ + (gx#stx-e _%tl157212157497%_)))) + (let ((_%tl157215157505%_ (let () (declare (not safe)) - (##cdr _%e156081156368%_))) - (_%hd156082156371%_ + (##cdr _%e157213157500%_))) + (_%hd157214157503%_ (let () (declare (not safe)) - (##car _%e156081156368%_)))) + (##car _%e157213157500%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156083156373%_)) + (gx#stx-null? _%tl157215157505%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156053156293%_)) + (gx#stx-null? _%tl157185157425%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156041156261%_)) + (gx#stx-null? _%tl157173157393%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156020156205%_)) + _%tl157152157337%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156011156181%_)) + _%tl157143157313%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156008156173%_)) - (let ((_%e156084156376%_ + _%tl157140157305%_)) + (let ((_%e157216157508%_ (let () (declare (not safe)) (gx#stx-e - _%tl156008156173%_)))) - (let ((_%tl156086156381%_ + _%tl157140157305%_)))) + (let ((_%tl157218157513%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e156084156376%_))) - (_%hd156085156379%_ - (let () (declare (not safe)) (##car _%e156084156376%_)))) + (##cdr _%e157216157508%_))) + (_%hd157217157511%_ + (let () (declare (not safe)) (##car _%e157216157508%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156085156379%_)) - (let ((_%e156087156384%_ + (gx#stx-pair? _%hd157217157511%_)) + (let ((_%e157219157516%_ (let () (declare (not safe)) - (gx#stx-e _%hd156085156379%_)))) - (let ((_%tl156089156389%_ + (gx#stx-e _%hd157217157511%_)))) + (let ((_%tl157221157521%_ (let () (declare (not safe)) - (##cdr _%e156087156384%_))) - (_%hd156088156387%_ + (##cdr _%e157219157516%_))) + (_%hd157220157519%_ (let () (declare (not safe)) - (##car _%e156087156384%_)))) + (##car _%e157219157516%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156088156387%_)) + (gx#identifier? _%hd157220157519%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd156088156387%_)) + (gx#stx-eq? '%#lambda _%hd157220157519%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156089156389%_)) - (let ((_%e156090156392%_ + (gx#stx-pair? _%tl157221157521%_)) + (let ((_%e157222157524%_ (let () (declare (not safe)) - (gx#stx-e _%tl156089156389%_)))) - (let ((_%tl156092156397%_ + (gx#stx-e _%tl157221157521%_)))) + (let ((_%tl157224157529%_ (let () (declare (not safe)) - (##cdr _%e156090156392%_))) - (_%hd156091156395%_ + (##cdr _%e157222157524%_))) + (_%hd157223157527%_ (let () (declare (not safe)) - (##car _%e156090156392%_)))) + (##car _%e157222157524%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156092156397%_)) - (let ((_%e156093156400%_ + _%tl157224157529%_)) + (let ((_%e157225157532%_ (let () (declare (not safe)) (gx#stx-e - _%tl156092156397%_)))) - (let ((_%tl156095156405%_ + _%tl157224157529%_)))) + (let ((_%tl157227157537%_ (let () (declare (not safe)) - (##cdr _%e156093156400%_))) - (_%hd156094156403%_ + (##cdr _%e157225157532%_))) + (_%hd157226157535%_ (let () (declare (not safe)) - (##car _%e156093156400%_)))) + (##car _%e157225157532%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156094156403%_)) - (let ((_%e156096156408%_ + _%hd157226157535%_)) + (let ((_%e157228157540%_ (let () (declare (not safe)) (gx#stx-e - _%hd156094156403%_)))) - (let ((_%tl156098156413%_ + _%hd157226157535%_)))) + (let ((_%tl157230157545%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e156096156408%_))) - (_%hd156097156411%_ - (let () (declare (not safe)) (##car _%e156096156408%_)))) + (##cdr _%e157228157540%_))) + (_%hd157229157543%_ + (let () (declare (not safe)) (##car _%e157228157540%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156097156411%_)) + (gx#identifier? _%hd157229157543%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd156097156411%_)) + (gx#stx-eq? '%#call _%hd157229157543%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156098156413%_)) - (let ((_%e156099156416%_ + (gx#stx-pair? _%tl157230157545%_)) + (let ((_%e157231157548%_ (let () (declare (not safe)) - (gx#stx-e _%tl156098156413%_)))) - (let ((_%tl156101156421%_ + (gx#stx-e _%tl157230157545%_)))) + (let ((_%tl157233157553%_ (let () (declare (not safe)) - (##cdr _%e156099156416%_))) - (_%hd156100156419%_ + (##cdr _%e157231157548%_))) + (_%hd157232157551%_ (let () (declare (not safe)) - (##car _%e156099156416%_)))) + (##car _%e157231157548%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156100156419%_)) - (let ((_%e156102156424%_ + (gx#stx-pair? _%hd157232157551%_)) + (let ((_%e157234157556%_ (let () (declare (not safe)) - (gx#stx-e _%hd156100156419%_)))) - (let ((_%tl156104156429%_ + (gx#stx-e _%hd157232157551%_)))) + (let ((_%tl157236157561%_ (let () (declare (not safe)) - (##cdr _%e156102156424%_))) - (_%hd156103156427%_ + (##cdr _%e157234157556%_))) + (_%hd157235157559%_ (let () (declare (not safe)) - (##car _%e156102156424%_)))) + (##car _%e157234157556%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd156103156427%_)) + _%hd157235157559%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd156103156427%_)) + _%hd157235157559%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156104156429%_)) - (let ((_%e156105156432%_ + _%tl157236157561%_)) + (let ((_%e157237157564%_ (let () (declare (not safe)) (gx#stx-e - _%tl156104156429%_)))) - (let ((_%tl156107156437%_ + _%tl157236157561%_)))) + (let ((_%tl157239157569%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e156105156432%_))) - (_%hd156106156435%_ - (let () (declare (not safe)) (##car _%e156105156432%_)))) + (##cdr _%e157237157564%_))) + (_%hd157238157567%_ + (let () (declare (not safe)) (##car _%e157237157564%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156107156437%_)) + (gx#stx-null? _%tl157239157569%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156101156421%_)) - (let ((_%e156108156440%_ + (gx#stx-pair? _%tl157233157553%_)) + (let ((_%e157240157572%_ (let () (declare (not safe)) - (gx#stx-e _%tl156101156421%_)))) - (let ((_%tl156110156445%_ + (gx#stx-e _%tl157233157553%_)))) + (let ((_%tl157242157577%_ (let () (declare (not safe)) - (##cdr _%e156108156440%_))) - (_%hd156109156443%_ + (##cdr _%e157240157572%_))) + (_%hd157241157575%_ (let () (declare (not safe)) - (##car _%e156108156440%_)))) + (##car _%e157240157572%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156109156443%_)) - (let ((_%e156111156448%_ + (gx#stx-pair? _%hd157241157575%_)) + (let ((_%e157243157580%_ (let () (declare (not safe)) - (gx#stx-e _%hd156109156443%_)))) - (let ((_%tl156113156453%_ + (gx#stx-e _%hd157241157575%_)))) + (let ((_%tl157245157585%_ (let () (declare (not safe)) - (##cdr _%e156111156448%_))) - (_%hd156112156451%_ + (##cdr _%e157243157580%_))) + (_%hd157244157583%_ (let () (declare (not safe)) - (##car _%e156111156448%_)))) + (##car _%e157243157580%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156112156451%_)) + (gx#identifier? _%hd157244157583%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd156112156451%_)) + _%hd157244157583%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156113156453%_)) - (let ((_%e156114156456%_ + _%tl157245157585%_)) + (let ((_%e157246157588%_ (let () (declare (not safe)) (gx#stx-e - _%tl156113156453%_)))) - (let ((_%tl156116156461%_ + _%tl157245157585%_)))) + (let ((_%tl157248157593%_ (let () (declare (not safe)) - (##cdr _%e156114156456%_))) - (_%hd156115156459%_ + (##cdr _%e157246157588%_))) + (_%hd157247157591%_ (let () (declare (not safe)) - (##car _%e156114156456%_)))) + (##car _%e157246157588%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156116156461%_)) + _%tl157248157593%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156110156445%_)) - (let ((_%e156117156464%_ + _%tl157242157577%_)) + (let ((_%e157249157596%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl156110156445%_)))) - (let ((_%tl156119156469%_ + (gx#stx-e _%tl157242157577%_)))) + (let ((_%tl157251157601%_ (let () (declare (not safe)) - (##cdr _%e156117156464%_))) - (_%hd156118156467%_ + (##cdr _%e157249157596%_))) + (_%hd157250157599%_ (let () (declare (not safe)) - (##car _%e156117156464%_)))) + (##car _%e157249157596%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156118156467%_)) - (let ((_%e156120156472%_ + (gx#stx-pair? _%hd157250157599%_)) + (let ((_%e157252157604%_ (let () (declare (not safe)) - (gx#stx-e _%hd156118156467%_)))) - (let ((_%tl156122156477%_ + (gx#stx-e _%hd157250157599%_)))) + (let ((_%tl157254157609%_ (let () (declare (not safe)) - (##cdr _%e156120156472%_))) - (_%hd156121156475%_ + (##cdr _%e157252157604%_))) + (_%hd157253157607%_ (let () (declare (not safe)) - (##car _%e156120156472%_)))) + (##car _%e157252157604%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156121156475%_)) + (gx#identifier? _%hd157253157607%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd156121156475%_)) + _%hd157253157607%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156122156477%_)) - (let ((_%e156123156480%_ + _%tl157254157609%_)) + (let ((_%e157255157612%_ (let () (declare (not safe)) (gx#stx-e - _%tl156122156477%_)))) - (let ((_%tl156125156485%_ + _%tl157254157609%_)))) + (let ((_%tl157257157617%_ (let () (declare (not safe)) - (##cdr _%e156123156480%_))) - (_%hd156124156483%_ + (##cdr _%e157255157612%_))) + (_%hd157256157615%_ (let () (declare (not safe)) - (##car _%e156123156480%_)))) + (##car _%e157255157612%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156125156485%_)) + _%tl157257157617%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156119156469%_)) - (let ((_%e156126156488%_ + _%tl157251157601%_)) + (let ((_%e157258157620%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl156119156469%_)))) - (let ((_%tl156128156493%_ + (gx#stx-e _%tl157251157601%_)))) + (let ((_%tl157260157625%_ (let () (declare (not safe)) - (##cdr _%e156126156488%_))) - (_%hd156127156491%_ + (##cdr _%e157258157620%_))) + (_%hd157259157623%_ (let () (declare (not safe)) - (##car _%e156126156488%_)))) + (##car _%e157258157620%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156127156491%_)) - (let ((_%e156129156496%_ + (gx#stx-pair? _%hd157259157623%_)) + (let ((_%e157261157628%_ (let () (declare (not safe)) - (gx#stx-e _%hd156127156491%_)))) - (let ((_%tl156131156501%_ + (gx#stx-e _%hd157259157623%_)))) + (let ((_%tl157263157633%_ (let () (declare (not safe)) - (##cdr _%e156129156496%_))) - (_%hd156130156499%_ + (##cdr _%e157261157628%_))) + (_%hd157262157631%_ (let () (declare (not safe)) - (##car _%e156129156496%_)))) + (##car _%e157261157628%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156130156499%_)) + (gx#identifier? _%hd157262157631%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd156130156499%_)) + (gx#stx-eq? '%#ref _%hd157262157631%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156131156501%_)) - (let ((_%e156132156504%_ + (gx#stx-pair? _%tl157263157633%_)) + (let ((_%e157264157636%_ (let () (declare (not safe)) (gx#stx-e - _%tl156131156501%_)))) - (let ((_%tl156134156509%_ + _%tl157263157633%_)))) + (let ((_%tl157266157641%_ (let () (declare (not safe)) - (##cdr _%e156132156504%_))) - (_%hd156133156507%_ + (##cdr _%e157264157636%_))) + (_%hd157265157639%_ (let () (declare (not safe)) - (##car _%e156132156504%_)))) + (##car _%e157264157636%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156134156509%_)) + _%tl157266157641%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156128156493%_)) - (let ((_%e156135156512%_ + _%tl157260157625%_)) + (let ((_%e157267157644%_ (let () (declare (not safe)) (gx#stx-e - _%tl156128156493%_)))) - (let ((_%tl156137156517%_ + _%tl157260157625%_)))) + (let ((_%tl157269157649%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e156135156512%_))) - (_%hd156136156515%_ - (let () (declare (not safe)) (##car _%e156135156512%_)))) + (##cdr _%e157267157644%_))) + (_%hd157268157647%_ + (let () (declare (not safe)) (##car _%e157267157644%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156136156515%_)) - (let ((_%e156138156520%_ + (gx#stx-pair? _%hd157268157647%_)) + (let ((_%e157270157652%_ (let () (declare (not safe)) - (gx#stx-e _%hd156136156515%_)))) - (let ((_%tl156140156525%_ + (gx#stx-e _%hd157268157647%_)))) + (let ((_%tl157272157657%_ (let () (declare (not safe)) - (##cdr _%e156138156520%_))) - (_%hd156139156523%_ + (##cdr _%e157270157652%_))) + (_%hd157271157655%_ (let () (declare (not safe)) - (##car _%e156138156520%_)))) + (##car _%e157270157652%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156139156523%_)) + (gx#identifier? _%hd157271157655%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd156139156523%_)) + (gx#stx-eq? '%#ref _%hd157271157655%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156140156525%_)) - (let ((_%e156141156528%_ + (gx#stx-pair? _%tl157272157657%_)) + (let ((_%e157273157660%_ (let () (declare (not safe)) - (gx#stx-e _%tl156140156525%_)))) - (let ((_%tl156143156533%_ + (gx#stx-e _%tl157272157657%_)))) + (let ((_%tl157275157665%_ (let () (declare (not safe)) - (##cdr _%e156141156528%_))) - (_%hd156142156531%_ + (##cdr _%e157273157660%_))) + (_%hd157274157663%_ (let () (declare (not safe)) - (##car _%e156141156528%_)))) + (##car _%e157273157660%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156143156533%_)) + _%tl157275157665%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156137156517%_)) + _%tl157269157649%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156095156405%_)) + _%tl157227157537%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156086156381%_)) - (_%__kont168755168756%_ - _%hd156142156531%_ - _%hd156133156507%_ - _%hd156115156459%_ - _%hd156106156435%_ - _%hd156091156395%_ - _%hd156082156371%_ - _%hd156073156347%_ - _%hd156064156323%_ - _%hd156049156283%_ - _%hd156034156243%_ - _%hd156016156195%_) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) + _%tl157218157513%_)) + (_%__kont169887169888%_ + _%hd157274157663%_ + _%hd157265157639%_ + _%hd157247157591%_ + _%hd157238157567%_ + _%hd157223157527%_ + _%hd157214157503%_ + _%hd157205157479%_ + _%hd157196157455%_ + _%hd157181157415%_ + _%hd157166157375%_ + _%hd157148157327%_) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)) - (_%__kont168757168758%_)))) - (_%__kont168757168758%_)))))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)) + (_%__kont169889169890%_)))) + (_%__kont169889169890%_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_%stx155729%_ _%id155730%_ _%clauses155731%_ _%gensym?155732%_) - (let _%lp155734%_ ((_%rest155736%_ _%clauses155731%_) - (_%ids155737%_ '()) - (_%impls155738%_ '()) - (_%clauses155739%_ '())) - (let* ((_%rest155740155748%_ _%rest155736%_) - (_%else155742155756%_ + (lambda (_%stx156861%_ _%id156862%_ _%clauses156863%_ _%gensym?156864%_) + (let _%lp156866%_ ((_%rest156868%_ _%clauses156863%_) + (_%ids156869%_ '()) + (_%impls156870%_ '()) + (_%clauses156871%_ '())) + (let* ((_%rest156872156880%_ _%rest156868%_) + (_%else156874156888%_ (lambda () - (values (reverse _%ids155737%_) - (reverse _%impls155738%_) - (reverse _%clauses155739%_)))) - (_%K155744155961%_ - (lambda (_%rest155759%_ _%clause155760%_) - (if (gxc#dispatch-lambda-form? _%clause155760%_) - (_%lp155734%_ - _%rest155759%_ - _%ids155737%_ - _%impls155738%_ - (cons _%clause155760%_ _%clauses155739%_)) - (let* ((_%g155762155773%_ - (lambda (_%g155763155770%_) + (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%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155763155770%_)))) - (_%g155761155958%_ - (lambda (_%g155763155776%_) + _%g156895156902%_)))) + (_%g156893157090%_ + (lambda (_%g156895156908%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g155763155776%_)) - (let ((_%e155766155778%_ + (gx#stx-pair? _%g156895156908%_)) + (let ((_%e156898156910%_ (let () (declare (not safe)) - (gx#stx-e _%g155763155776%_)))) - (let ((_%hd155767155781%_ + (gx#stx-e _%g156895156908%_)))) + (let ((_%hd156899156913%_ (let () (declare (not safe)) - (##car _%e155766155778%_))) - (_%tl155768155783%_ + (##car _%e156898156910%_))) + (_%tl156900156915%_ (let () (declare (not safe)) - (##cdr _%e155766155778%_)))) - ((lambda (_%L155786%_ _%L155787%_) - (let* ((_%id155804%_ - (let ((__tmp169957 + (##cdr _%e156898156910%_)))) + ((lambda (_%L156918%_ _%L156919%_) + (let* ((_%id156936%_ + (let ((__tmp171089 (let () (declare (not safe)) (gx#stx-e - _%id155730%_))) - (__tmp169956 - (length _%clauses155739%_)) - (__tmp169955 - (if _%gensym?155732%_ + _%id156862%_))) + (__tmp171088 + (length _%clauses156871%_)) + (__tmp171087 + (if _%gensym?156864%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##gensym '__)) '""))) (declare (not safe)) - (make-symbol__1 __tmp169957 '"__" __tmp169956 __tmp169955))) + (make-symbol__1 __tmp171089 '"__" __tmp171088 __tmp171087))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%id155806%_ - (let ((__tmp169958 + (_%id156938%_ + (let ((__tmp171090 (let () (declare (not safe)) (gx#stx-source - _%stx155729%_)))) + _%stx156861%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id155804%_ - __tmp169958))) - (_%impl155808%_ - (let ((__tmp169959 + _%id156936%_ + __tmp171090))) + (_%impl156940%_ + (let ((__tmp171091 (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons _%L155787%_ _%L155786%_)))) + (cons _%L156919%_ _%L156918%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169959 _%stx155729%_))) + (gxc#xform-wrap-source __tmp171091 _%stx156861%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%clause155955%_ - (let* ((_%__stx169137169138%_ - _%L155787%_) - (_%g155812155840%_ + (_%clause157087%_ + (let* ((_%__stx170269170270%_ + _%L156919%_) + (_%g156944156972%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -20124,353 +20102,353 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169137169138%_))))) - (let ((_%__kont169139169140%_ - (lambda (_%L155934%_) - (cons _%L155787%_ - (cons (let ((__tmp169960 + _%__stx170269170270%_))))) + (let ((_%__kont170271170272%_ + (lambda (_%L157066%_) + (cons _%L156919%_ + (cons (let ((__tmp171092 (cons '%#call (cons (cons '%#ref - (cons _%id155806%_ + (cons _%id156938%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp169961 - (lambda (_%g155944155947%_ _%g155945155949%_) + (let ((__tmp171093 + (lambda (_%g157076157079%_ _%g157077157081%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g155944155947%_ '())) - _%g155945155949%_)))) + (cons _%g157076157079%_ '())) + _%g157077157081%_)))) (declare (not safe)) - (__foldr1 __tmp169961 '() _%L155934%_)))))) + (__foldr1 __tmp171093 '() _%L157066%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169960 - _%stx155729%_)) + __tmp171092 + _%stx156861%_)) '())))) - (_%__kont169143169144%_ - (lambda (_%L155885%_ _%L155886%_) - (cons _%L155787%_ - (cons (let ((__tmp169962 + (_%__kont170275170276%_ + (lambda (_%L157017%_ _%L157018%_) + (cons _%L156919%_ + (cons (let ((__tmp171094 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id155806%_ '())) - (let ((__tmp169965 + (cons _%id156938%_ '())) + (let ((__tmp171097 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L155885%_ '())) + (cons _%L157017%_ '())) '())) - (__tmp169963 - (let ((__tmp169964 - (lambda (_%g155897155900%_ - _%g155898155902%_) + (__tmp171095 + (let ((__tmp171096 + (lambda (_%g157029157032%_ + _%g157030157034%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g155897155900%_ '())) - _%g155898155902%_)))) + (cons _%g157029157032%_ '())) + _%g157030157034%_)))) (declare (not safe)) - (__foldr1 __tmp169964 '() _%L155886%_)))) + (__foldr1 __tmp171096 '() _%L157018%_)))) (declare (not safe)) - (__foldr1 cons __tmp169965 __tmp169963))))))) + (__foldr1 cons __tmp171097 __tmp171095))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169962 - _%stx155729%_)) + __tmp171094 + _%stx156861%_)) '())))) - (_%__kont169147169148%_ - (lambda (_%L155845%_) - (cons _%L155787%_ - (cons (let ((__tmp169966 + (_%__kont170279170280%_ + (lambda (_%L156977%_) + (cons _%L156919%_ + (cons (let ((__tmp171098 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id155806%_ '())) + (cons _%id156938%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L155845%_ '())) + (cons _%L156977%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169966 - _%stx155729%_)) + __tmp171098 + _%stx156861%_)) '()))))) - (let* ((_%__match169162169163%_ - (lambda (_%__splice169145169146%_ - _%target155826155861%_ - _%tl155828155863%_) - (letrec ((_%loop155829155866%_ - (lambda (_%hd155827155869%_ - _%arg155833155871%_) + (let* ((_%__match170294170295%_ + (lambda (_%__splice170277170278%_ + _%target156958156993%_ + _%tl156960156995%_) + (letrec ((_%loop156961156998%_ + (lambda (_%hd156959157001%_ + _%arg156965157003%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155827155869%_)) - (let ((_%e155830155874%_ + (gx#stx-pair? _%hd156959157001%_)) + (let ((_%e156962157006%_ (let () (declare (not safe)) (gx#stx-e - _%hd155827155869%_)))) - (let ((_%lp-tl155832155879%_ + _%hd156959157001%_)))) + (let ((_%lp-tl156964157011%_ (let () (declare (not safe)) - (##cdr _%e155830155874%_))) - (_%lp-hd155831155877%_ + (##cdr _%e156962157006%_))) + (_%lp-hd156963157009%_ (let () (declare (not safe)) - (##car _%e155830155874%_)))) - (_%loop155829155866%_ - _%lp-tl155832155879%_ - (cons _%lp-hd155831155877%_ - _%arg155833155871%_)))) - (let ((_%arg155834155882%_ - (reverse _%arg155833155871%_))) - (_%__kont169143169144%_ - _%tl155828155863%_ - _%arg155834155882%_)))))) - (_%loop155829155866%_ - _%target155826155861%_ + (##car _%e156962157006%_)))) + (_%loop156961156998%_ + _%lp-tl156964157011%_ + (cons _%lp-hd156963157009%_ + _%arg156965157003%_)))) + (let ((_%arg156966157014%_ + (reverse _%arg156965157003%_))) + (_%__kont170275170276%_ + _%tl156960156995%_ + _%arg156966157014%_)))))) + (_%loop156961156998%_ + _%target156958156993%_ '())))) - (_%__match169156169157%_ - (lambda (_%__splice169141169142%_ - _%target155815155910%_ - _%tl155817155912%_) - (letrec ((_%loop155818155915%_ - (lambda (_%hd155816155918%_ - _%arg155822155920%_) + (_%__match170288170289%_ + (lambda (_%__splice170273170274%_ + _%target156947157042%_ + _%tl156949157044%_) + (letrec ((_%loop156950157047%_ + (lambda (_%hd156948157050%_ + _%arg156954157052%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155816155918%_)) - (let ((_%e155819155923%_ + (gx#stx-pair? _%hd156948157050%_)) + (let ((_%e156951157055%_ (let () (declare (not safe)) (gx#stx-e - _%hd155816155918%_)))) - (let ((_%lp-tl155821155928%_ + _%hd156948157050%_)))) + (let ((_%lp-tl156953157060%_ (let () (declare (not safe)) - (##cdr _%e155819155923%_))) - (_%lp-hd155820155926%_ + (##cdr _%e156951157055%_))) + (_%lp-hd156952157058%_ (let () (declare (not safe)) - (##car _%e155819155923%_)))) - (_%loop155818155915%_ - _%lp-tl155821155928%_ - (cons _%lp-hd155820155926%_ - _%arg155822155920%_)))) - (let ((_%arg155823155931%_ - (reverse _%arg155822155920%_))) - (_%__kont169139169140%_ - _%arg155823155931%_)))))) - (_%loop155818155915%_ - _%target155815155910%_ + (##car _%e156951157055%_)))) + (_%loop156950157047%_ + _%lp-tl156953157060%_ + (cons _%lp-hd156952157058%_ + _%arg156954157052%_)))) + (let ((_%arg156955157063%_ + (reverse _%arg156954157052%_))) + (_%__kont170271170272%_ + _%arg156955157063%_)))))) + (_%loop156950157047%_ + _%target156947157042%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%__stx169137169138%_)) - (let ((_%__splice169141169142%_ + (gx#stx-pair/null? _%__stx170269170270%_)) + (let ((_%__splice170273170274%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx169137169138%_ + _%__stx170269170270%_ '0)))) - (let ((_%tl155817155912%_ + (let ((_%tl156949157044%_ (let () (declare (not safe)) - (##vector-ref _%__splice169141169142%_ '1))) - (_%target155815155910%_ + (##vector-ref _%__splice170273170274%_ '1))) + (_%target156947157042%_ (let () (declare (not safe)) - (##vector-ref _%__splice169141169142%_ '0)))) + (##vector-ref _%__splice170273170274%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155817155912%_)) - (_%__match169156169157%_ - _%__splice169141169142%_ - _%target155815155910%_ - _%tl155817155912%_) - (_%__match169162169163%_ - _%__splice169141169142%_ - _%target155815155910%_ - _%tl155817155912%_)))) - (_%__kont169147169148%_ _%__stx169137169138%_))))))) + (gx#stx-null? _%tl156949157044%_)) + (_%__match170288170289%_ + _%__splice170273170274%_ + _%target156947157042%_ + _%tl156949157044%_) + (_%__match170294170295%_ + _%__splice170273170274%_ + _%target156947157042%_ + _%tl156949157044%_)))) + (_%__kont170279170280%_ _%__stx170269170270%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp155734%_ - _%rest155759%_ - (cons _%id155806%_ - _%ids155737%_) - (cons _%impl155808%_ - _%impls155738%_) - (cons _%clause155955%_ - _%clauses155739%_)))) - _%tl155768155783%_ - _%hd155767155781%_))) - (_%g155762155773%_ _%g155763155776%_))))) - (_%g155761155958%_ _%clause155760%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest155740155748%_)) - (let ((_%hd155745155964%_ + (_%lp156866%_ + _%rest156891%_ + (cons _%id156938%_ + _%ids156869%_) + (cons _%impl156940%_ + _%impls156870%_) + (cons _%clause157087%_ + _%clauses156871%_)))) + _%tl156900156915%_ + _%hd156899156913%_))) + (_%g156894156905%_ _%g156895156908%_))))) + (_%g156893157090%_ _%clause156892%_)))))) + (if (pair? _%rest156872156880%_) + (let ((_%hd156877157096%_ (let () (declare (not safe)) - (##car _%rest155740155748%_))) - (_%tl155746155966%_ + (##car _%rest156872156880%_))) + (_%tl156878157098%_ (let () (declare (not safe)) - (##cdr _%rest155740155748%_)))) - (let* ((_%clause155969%_ _%hd155745155964%_) - (_%rest155971%_ _%tl155746155966%_)) - (_%K155744155961%_ _%rest155971%_ _%clause155969%_))) - (_%else155742155756%_)))))) + (##cdr _%rest156872156880%_)))) + (let* ((_%clause157101%_ _%hd156877157096%_) + (_%rest157103%_ _%tl156878157098%_)) + (_%K156876157093%_ _%rest157103%_ _%clause157101%_))) + (_%else156874156888%_)))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_%stx155976%_ _%id155977%_ _%clauses155978%_) - (let ((_%gensym?155980%_ '#f)) + (lambda (_%stx157108%_ _%id157109%_ _%clauses157110%_) + (let ((_%gensym?157112%_ '#f)) (gxc#lift-case-lambda-clauses__% - _%stx155976%_ - _%id155977%_ - _%clauses155978%_ - _%gensym?155980%_)))) + _%stx157108%_ + _%id157109%_ + _%clauses157110%_ + _%gensym?157112%_)))) (define gxc#lift-case-lambda-clauses - (lambda _g169968_ - (let ((_g169967_ (let () (declare (not safe)) (##length _g169968_)))) - (cond ((let () (declare (not safe)) (##fx= _g169967_ 3)) - (apply gxc#lift-case-lambda-clauses__0 _g169968_)) - ((let () (declare (not safe)) (##fx= _g169967_ 4)) - (apply gxc#lift-case-lambda-clauses__% _g169968_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g169968_)))))) + _g171100_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_%self155001%_ _%stx155002%_) - (letrec ((_%case-lambda-clause-def155004%_ - (lambda (_%id155725%_ _%impl155726%_) - (let ((__tmp169969 + (lambda (_%self156133%_ _%stx156134%_) + (letrec ((_%case-lambda-clause-def156136%_ + (lambda (_%id156857%_ _%impl156858%_) + (let ((__tmp171101 (cons '%#define-values - (cons (cons _%id155725%_ '()) + (cons (cons _%id156857%_ '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self155001%_ - _%impl155726%_)) + _%self156133%_ + _%impl156858%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169969 _%stx155002%_)))) - (_%opt-lambda-dispatch-name155005%_ - (lambda (_%id155721%_) - (if (uninterned-symbol? _%id155721%_) - (let ((_%str155723%_ (symbol->string _%id155721%_))) + (gxc#xform-wrap-source __tmp171101 _%stx156134%_)))) + (_%opt-lambda-dispatch-name156137%_ + (lambda (_%id156853%_) + (if (uninterned-symbol? _%id156853%_) + (let ((_%str156855%_ (symbol->string _%id156853%_))) (if (let () (declare (not safe)) - (##string-prefix? '"opt-lambda" _%str155723%_)) + (##string-prefix? '"opt-lambda" _%str156855%_)) '"%" - _%id155721%_)) - _%id155721%_))) - (_%kw-lambda-dispatch-name155006%_ - (lambda (_%id155716%_ _%name155717%_) - (if (uninterned-symbol? _%id155716%_) - (let ((_%str155719%_ (symbol->string _%id155716%_))) + _%id156853%_)) + _%id156853%_))) + (_%kw-lambda-dispatch-name156138%_ + (lambda (_%id156848%_ _%name156849%_) + (if (uninterned-symbol? _%id156848%_) + (let ((_%str156851%_ (symbol->string _%id156848%_))) (if (let () (declare (not safe)) - (##string-prefix? '"kw-lambda" _%str155719%_)) - _%name155717%_ - _%id155716%_)) - _%id155716%_)))) - (let* ((_%__stx169185169186%_ _%stx155002%_) - (_%g155011155070%_ + (##string-prefix? '"kw-lambda" _%str156851%_)) + _%name156849%_ + _%id156848%_)) + _%id156848%_)))) + (let* ((_%__stx170317170318%_ _%stx156134%_) + (_%g156143156202%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169185169186%_))))) - (let ((_%__kont169187169188%_ - (lambda (_%L155624%_ _%L155625%_) - (let* ((_%__stx169165169166%_ _%L155624%_) - (_%g155642155656%_ + _%__stx170317170318%_))))) + (let ((_%__kont170319170320%_ + (lambda (_%L156756%_ _%L156757%_) + (let* ((_%__stx170297170298%_ _%L156756%_) + (_%g156774156788%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169165169166%_))))) - (let ((_%__kont169167169168%_ - (lambda (_%L155701%_) _%stx155002%_)) - (_%__kont169169169170%_ - (lambda (_%L155669%_) - (let ((_g169970_ + _%__stx170297170298%_))))) + (let ((_%__kont170299170300%_ + (lambda (_%L156833%_) _%stx156134%_)) + (_%__kont170301170302%_ + (lambda (_%L156801%_) + (let ((_g171102_ (gxc#lift-case-lambda-clauses__0 - _%stx155002%_ - _%L155625%_ - _%L155669%_))) + _%stx156134%_ + _%L156757%_ + _%L156801%_))) (begin - (let ((_g169971_ + (let ((_g171103_ (let () (declare (not safe)) - (if (##values? _g169970_) - (##vector-length _g169970_) + (if (##values? _g171102_) + (##vector-length _g171102_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169971_ 3))) + (##fx= _g171103_ 3))) (error "Context expects 3 values" - _g169971_))) - (let ((_%ids155679%_ + _g171103_))) + (let ((_%ids156811%_ (let () (declare (not safe)) - (##vector-ref _g169970_ 0))) - (_%impls155680%_ + (##vector-ref _g171102_ 0))) + (_%impls156812%_ (let () (declare (not safe)) - (##vector-ref _g169970_ 1))) - (_%clauses155681%_ + (##vector-ref _g171102_ 1))) + (_%clauses156813%_ (let () (declare (not safe)) - (##vector-ref _g169970_ 2)))) - (let* ((_%_155683%_ + (##vector-ref _g171102_ 2)))) + (let* ((_%_156815%_ (for-each gx#core-bind-runtime! - _%ids155679%_)) - (_%defs155685%_ - (map _%case-lambda-clause-def155004%_ - _%ids155679%_ - _%impls155680%_))) - (let ((__tmp169973 + _%ids156811%_)) + (_%defs156817%_ + (map _%case-lambda-clause-def156136%_ + _%ids156811%_ + _%impls156812%_))) + (let ((__tmp171105 (let () (declare (not safe)) (gxc#identifier-symbol - _%L155625%_))) - (__tmp169972 + _%L156757%_))) + (__tmp171104 (map gxc#identifier-symbol - _%ids155679%_))) + _%ids156811%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp169973 + __tmp171105 '" => " - __tmp169972)) - (let ((__tmp169974 + __tmp171104)) + (let ((__tmp171106 (cons '%#begin - (let ((__tmp169975 - (cons (let ((__tmp169976 + (let ((__tmp171107 + (cons (let ((__tmp171108 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#define-values - (cons (cons _%L155625%_ '()) - (cons (let ((__tmp169978 + (cons (cons _%L156757%_ '()) + (cons (let ((__tmp171110 (cons '%#case-lambda - _%clauses155681%_)) - (__tmp169977 + _%clauses156813%_)) + (__tmp171109 (let () (declare (not safe)) @@ -20479,1128 +20457,1128 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp169978 - __tmp169977)) + __tmp171110 + __tmp171109)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169976 _%stx155002%_)) + (gxc#xform-wrap-source __tmp171108 _%stx156134%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp169975 _%defs155685%_))))) + (__foldr1 cons __tmp171107 _%defs156817%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169974 - _%stx155002%_))))))))) - (let ((_%__match169176169177%_ - (lambda (_%e155645155693%_ - _%hd155646155696%_ - _%tl155647155698%_) - (let ((_%L155701%_ _%tl155647155698%_)) + __tmp171106 + _%stx156134%_))))))))) + (let ((_%__match170308170309%_ + (lambda (_%e156777156825%_ + _%hd156778156828%_ + _%tl156779156830%_) + (let ((_%L156833%_ _%tl156779156830%_)) (if (let () (declare (not safe)) (__andmap1 gxc#dispatch-lambda-form? - _%L155701%_)) - (_%__kont169167169168%_ _%L155701%_) - (_%__kont169169169170%_ - _%tl155647155698%_)))))) + _%L156833%_)) + (_%__kont170299170300%_ _%L156833%_) + (_%__kont170301170302%_ + _%tl156779156830%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169165169166%_)) - (let ((_%e155645155693%_ + (gx#stx-pair? _%__stx170297170298%_)) + (let ((_%e156777156825%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169165169166%_)))) - (let ((_%tl155647155698%_ + (gx#stx-e _%__stx170297170298%_)))) + (let ((_%tl156779156830%_ (let () (declare (not safe)) - (##cdr _%e155645155693%_))) - (_%hd155646155696%_ + (##cdr _%e156777156825%_))) + (_%hd156778156828%_ (let () (declare (not safe)) - (##car _%e155645155693%_)))) - (_%__match169176169177%_ - _%e155645155693%_ - _%hd155646155696%_ - _%tl155647155698%_))) + (##car _%e156777156825%_)))) + (_%__match170308170309%_ + _%e156777156825%_ + _%hd156778156828%_ + _%tl156779156830%_))) (let () (declare (not safe)) - (_%g155642155656%_)))))))) - (_%__kont169189169190%_ - (lambda (_%L155441%_ _%L155442%_) - (let* ((_%g155458155488%_ - (lambda (_%g155459155485%_) + (_%g156774156788%_)))))))) + (_%__kont170321170322%_ + (lambda (_%L156573%_ _%L156574%_) + (let* ((_%g156590156620%_ + (lambda (_%g156591156617%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155459155485%_)))) - (_%g155457155584%_ - (lambda (_%g155459155491%_) + _%g156591156617%_)))) + (_%g156589156716%_ + (lambda (_%g156591156623%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g155459155491%_)) - (let ((_%e155463155493%_ + (gx#stx-pair? _%g156591156623%_)) + (let ((_%e156595156625%_ (let () (declare (not safe)) - (gx#stx-e _%g155459155491%_)))) - (let ((_%hd155464155496%_ + (gx#stx-e _%g156591156623%_)))) + (let ((_%hd156596156628%_ (let () (declare (not safe)) - (##car _%e155463155493%_))) - (_%tl155465155498%_ + (##car _%e156595156625%_))) + (_%tl156597156630%_ (let () (declare (not safe)) - (##cdr _%e155463155493%_)))) + (##cdr _%e156595156625%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155465155498%_)) - (let ((_%e155466155501%_ + (gx#stx-pair? _%tl156597156630%_)) + (let ((_%e156598156633%_ (let () (declare (not safe)) (gx#stx-e - _%tl155465155498%_)))) - (let ((_%hd155467155504%_ + _%tl156597156630%_)))) + (let ((_%hd156599156636%_ (let () (declare (not safe)) - (##car _%e155466155501%_))) - (_%tl155468155506%_ + (##car _%e156598156633%_))) + (_%tl156600156638%_ (let () (declare (not safe)) - (##cdr _%e155466155501%_)))) + (##cdr _%e156598156633%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155467155504%_)) - (let ((_%e155469155509%_ + _%hd156599156636%_)) + (let ((_%e156601156641%_ (let () (declare (not safe)) (gx#stx-e - _%hd155467155504%_)))) - (let ((_%hd155470155512%_ + _%hd156599156636%_)))) + (let ((_%hd156602156644%_ (let () (declare (not safe)) - (##car _%e155469155509%_))) - (_%tl155471155514%_ + (##car _%e156601156641%_))) + (_%tl156603156646%_ (let () (declare (not safe)) - (##cdr _%e155469155509%_)))) + (##cdr _%e156601156641%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155470155512%_)) - (let ((_%e155472155517%_ + _%hd156602156644%_)) + (let ((_%e156604156649%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd155470155512%_)))) - (let ((_%hd155473155520%_ + (gx#stx-e _%hd156602156644%_)))) + (let ((_%hd156605156652%_ (let () (declare (not safe)) - (##car _%e155472155517%_))) - (_%tl155474155522%_ + (##car _%e156604156649%_))) + (_%tl156606156654%_ (let () (declare (not safe)) - (##cdr _%e155472155517%_)))) + (##cdr _%e156604156649%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155473155520%_)) - (let ((_%e155475155525%_ + (gx#stx-pair? _%hd156605156652%_)) + (let ((_%e156607156657%_ (let () (declare (not safe)) - (gx#stx-e _%hd155473155520%_)))) - (let ((_%hd155476155528%_ + (gx#stx-e _%hd156605156652%_)))) + (let ((_%hd156608156660%_ (let () (declare (not safe)) - (##car _%e155475155525%_))) - (_%tl155477155530%_ + (##car _%e156607156657%_))) + (_%tl156609156662%_ (let () (declare (not safe)) - (##cdr _%e155475155525%_)))) + (##cdr _%e156607156657%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155477155530%_)) + (gx#stx-null? _%tl156609156662%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155474155522%_)) - (let ((_%e155478155533%_ + (gx#stx-pair? _%tl156606156654%_)) + (let ((_%e156610156665%_ (let () (declare (not safe)) (gx#stx-e - _%tl155474155522%_)))) - (let ((_%hd155479155536%_ + _%tl156606156654%_)))) + (let ((_%hd156611156668%_ (let () (declare (not safe)) - (##car _%e155478155533%_))) - (_%tl155480155538%_ + (##car _%e156610156665%_))) + (_%tl156612156670%_ (let () (declare (not safe)) - (##cdr _%e155478155533%_)))) + (##cdr _%e156610156665%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155480155538%_)) + _%tl156612156670%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155471155514%_)) + _%tl156603156646%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155468155506%_)) - (let ((_%e155481155541%_ + _%tl156600156638%_)) + (let ((_%e156613156673%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl155468155506%_)))) - (let ((_%hd155482155544%_ + (gx#stx-e _%tl156600156638%_)))) + (let ((_%hd156614156676%_ (let () (declare (not safe)) - (##car _%e155481155541%_))) - (_%tl155483155546%_ + (##car _%e156613156673%_))) + (_%tl156615156678%_ (let () (declare (not safe)) - (##cdr _%e155481155541%_)))) + (##cdr _%e156613156673%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155483155546%_)) - ((lambda (_%L155549%_ _%L155550%_ _%L155551%_) - (let* ((_%lambda-id155575%_ - (let ((__tmp169980 + (gx#stx-null? _%tl156615156678%_)) + ((lambda (_%L156681%_ _%L156682%_ _%L156683%_) + (let* ((_%lambda-id156707%_ + (let ((__tmp171112 (let () (declare (not safe)) - (gx#stx-e _%L155442%_))) - (__tmp169979 - (_%opt-lambda-dispatch-name155005%_ + (gx#stx-e _%L156574%_))) + (__tmp171111 + (_%opt-lambda-dispatch-name156137%_ (let () (declare (not safe)) - (gx#stx-e _%L155551%_))))) + (gx#stx-e _%L156683%_))))) (declare (not safe)) (make-symbol__1 - __tmp169980 + __tmp171112 '"__" - __tmp169979))) - (_%lambda-id155577%_ - (let ((__tmp169981 + __tmp171111))) + (_%lambda-id156709%_ + (let ((__tmp171113 (let () (declare (not safe)) - (gx#stx-source _%stx155002%_)))) + (gx#stx-source _%stx156134%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%lambda-id155575%_ - __tmp169981))) - (_%_155579%_ + _%lambda-id156707%_ + __tmp171113))) + (_%_156711%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%lambda-id155577%_))) - (_%new-case-lambda-expr155581%_ + _%lambda-id156709%_))) + (_%new-case-lambda-expr156713%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155551%_ - _%lambda-id155577%_ - _%L155549%_)))) - (let ((__tmp169983 + _%L156683%_ + _%lambda-id156709%_ + _%L156681%_)))) + (let ((__tmp171115 (let () (declare (not safe)) - (gxc#identifier-symbol _%L155442%_))) - (__tmp169982 + (gxc#identifier-symbol _%L156574%_))) + (__tmp171114 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id155577%_)))) + _%lambda-id156709%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp169983 + __tmp171115 '" => " - __tmp169982)) - (let ((__tmp169984 + __tmp171114)) + (let ((__tmp171116 (cons '%#begin - (cons (let ((__tmp169985 + (cons (let ((__tmp171117 (cons '%#define-values - (cons (cons _%lambda-id155577%_ + (cons (cons _%lambda-id156709%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self155001%_ - _%L155550%_)) + _%self156133%_ + _%L156682%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169985 - _%stx155002%_)) + __tmp171117 + _%stx156134%_)) (cons (gxc#lift-top-lambda-define-values% - _%self155001%_ - (let ((__tmp169986 + _%self156133%_ + (let ((__tmp171118 (cons '%#define-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L155442%_ '()) - (cons _%new-case-lambda-expr155581%_ '()))))) + (cons (cons _%L156574%_ '()) + (cons _%new-case-lambda-expr156713%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169986 _%stx155002%_))) + (gxc#xform-wrap-source __tmp171118 _%stx156134%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp169984 - _%stx155002%_)))) - _%hd155482155544%_ - _%hd155479155536%_ - _%hd155476155528%_) - (_%g155458155488%_ _%g155459155491%_)))) - (_%g155458155488%_ _%g155459155491%_)) + __tmp171116 + _%stx156134%_)))) + _%hd156614156676%_ + _%hd156611156668%_ + _%hd156608156660%_) + (_%g156590156620%_ _%g156591156623%_)))) + (_%g156590156620%_ _%g156591156623%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155458155488%_ - _%g155459155491%_)) - (_%g155458155488%_ - _%g155459155491%_)))) - (_%g155458155488%_ _%g155459155491%_)) - (_%g155458155488%_ _%g155459155491%_)))) - (_%g155458155488%_ _%g155459155491%_)))) - (_%g155458155488%_ _%g155459155491%_)))) + (_%g156590156620%_ + _%g156591156623%_)) + (_%g156590156620%_ + _%g156591156623%_)))) + (_%g156590156620%_ _%g156591156623%_)) + (_%g156590156620%_ _%g156591156623%_)))) + (_%g156590156620%_ _%g156591156623%_)))) + (_%g156590156620%_ _%g156591156623%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155458155488%_ - _%g155459155491%_)))) - (_%g155458155488%_ - _%g155459155491%_)))) - (_%g155458155488%_ _%g155459155491%_))))) - (_%g155457155584%_ _%L155441%_)))) - (_%__kont169191169192%_ - (lambda (_%L155153%_ _%L155154%_) - (let* ((_%g155170155223%_ - (lambda (_%g155171155220%_) + (_%g156590156620%_ + _%g156591156623%_)))) + (_%g156590156620%_ + _%g156591156623%_)))) + (_%g156590156620%_ _%g156591156623%_))))) + (_%g156589156716%_ _%L156573%_)))) + (_%__kont170323170324%_ + (lambda (_%L156285%_ _%L156286%_) + (let* ((_%g156302156355%_ + (lambda (_%g156303156352%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155171155220%_)))) - (_%g155169155401%_ - (lambda (_%g155171155226%_) + _%g156303156352%_)))) + (_%g156301156533%_ + (lambda (_%g156303156358%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g155171155226%_)) - (let ((_%e155177155228%_ + (gx#stx-pair? _%g156303156358%_)) + (let ((_%e156309156360%_ (let () (declare (not safe)) - (gx#stx-e _%g155171155226%_)))) - (let ((_%hd155178155231%_ + (gx#stx-e _%g156303156358%_)))) + (let ((_%hd156310156363%_ (let () (declare (not safe)) - (##car _%e155177155228%_))) - (_%tl155179155233%_ + (##car _%e156309156360%_))) + (_%tl156311156365%_ (let () (declare (not safe)) - (##cdr _%e155177155228%_)))) + (##cdr _%e156309156360%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155179155233%_)) - (let ((_%e155180155236%_ + (gx#stx-pair? _%tl156311156365%_)) + (let ((_%e156312156368%_ (let () (declare (not safe)) (gx#stx-e - _%tl155179155233%_)))) - (let ((_%hd155181155239%_ + _%tl156311156365%_)))) + (let ((_%hd156313156371%_ (let () (declare (not safe)) - (##car _%e155180155236%_))) - (_%tl155182155241%_ + (##car _%e156312156368%_))) + (_%tl156314156373%_ (let () (declare (not safe)) - (##cdr _%e155180155236%_)))) + (##cdr _%e156312156368%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155181155239%_)) - (let ((_%e155183155244%_ + _%hd156313156371%_)) + (let ((_%e156315156376%_ (let () (declare (not safe)) (gx#stx-e - _%hd155181155239%_)))) - (let ((_%hd155184155247%_ + _%hd156313156371%_)))) + (let ((_%hd156316156379%_ (let () (declare (not safe)) - (##car _%e155183155244%_))) - (_%tl155185155249%_ + (##car _%e156315156376%_))) + (_%tl156317156381%_ (let () (declare (not safe)) - (##cdr _%e155183155244%_)))) + (##cdr _%e156315156376%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155184155247%_)) - (let ((_%e155186155252%_ + _%hd156316156379%_)) + (let ((_%e156318156384%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd155184155247%_)))) - (let ((_%hd155187155255%_ + (gx#stx-e _%hd156316156379%_)))) + (let ((_%hd156319156387%_ (let () (declare (not safe)) - (##car _%e155186155252%_))) - (_%tl155188155257%_ + (##car _%e156318156384%_))) + (_%tl156320156389%_ (let () (declare (not safe)) - (##cdr _%e155186155252%_)))) + (##cdr _%e156318156384%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155187155255%_)) - (let ((_%e155189155260%_ + (gx#stx-pair? _%hd156319156387%_)) + (let ((_%e156321156392%_ (let () (declare (not safe)) - (gx#stx-e _%hd155187155255%_)))) - (let ((_%hd155190155263%_ + (gx#stx-e _%hd156319156387%_)))) + (let ((_%hd156322156395%_ (let () (declare (not safe)) - (##car _%e155189155260%_))) - (_%tl155191155265%_ + (##car _%e156321156392%_))) + (_%tl156323156397%_ (let () (declare (not safe)) - (##cdr _%e155189155260%_)))) + (##cdr _%e156321156392%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155191155265%_)) + (gx#stx-null? _%tl156323156397%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155188155257%_)) - (let ((_%e155192155268%_ + (gx#stx-pair? _%tl156320156389%_)) + (let ((_%e156324156400%_ (let () (declare (not safe)) (gx#stx-e - _%tl155188155257%_)))) - (let ((_%hd155193155271%_ + _%tl156320156389%_)))) + (let ((_%hd156325156403%_ (let () (declare (not safe)) - (##car _%e155192155268%_))) - (_%tl155194155273%_ + (##car _%e156324156400%_))) + (_%tl156326156405%_ (let () (declare (not safe)) - (##cdr _%e155192155268%_)))) + (##cdr _%e156324156400%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155193155271%_)) - (let ((_%e155195155276%_ + _%hd156325156403%_)) + (let ((_%e156327156408%_ (let () (declare (not safe)) (gx#stx-e - _%hd155193155271%_)))) - (let ((_%hd155196155279%_ + _%hd156325156403%_)))) + (let ((_%hd156328156411%_ (let () (declare (not safe)) - (##car _%e155195155276%_))) - (_%tl155197155281%_ + (##car _%e156327156408%_))) + (_%tl156329156413%_ (let () (declare (not safe)) - (##cdr _%e155195155276%_)))) + (##cdr _%e156327156408%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155197155281%_)) - (let ((_%e155198155284%_ + _%tl156329156413%_)) + (let ((_%e156330156416%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl155197155281%_)))) - (let ((_%hd155199155287%_ + (gx#stx-e _%tl156329156413%_)))) + (let ((_%hd156331156419%_ (let () (declare (not safe)) - (##car _%e155198155284%_))) - (_%tl155200155289%_ + (##car _%e156330156416%_))) + (_%tl156332156421%_ (let () (declare (not safe)) - (##cdr _%e155198155284%_)))) + (##cdr _%e156330156416%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155199155287%_)) - (let ((_%e155201155292%_ + (gx#stx-pair? _%hd156331156419%_)) + (let ((_%e156333156424%_ (let () (declare (not safe)) - (gx#stx-e _%hd155199155287%_)))) - (let ((_%hd155202155295%_ + (gx#stx-e _%hd156331156419%_)))) + (let ((_%hd156334156427%_ (let () (declare (not safe)) - (##car _%e155201155292%_))) - (_%tl155203155297%_ + (##car _%e156333156424%_))) + (_%tl156335156429%_ (let () (declare (not safe)) - (##cdr _%e155201155292%_)))) + (##cdr _%e156333156424%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155202155295%_)) - (let ((_%e155204155300%_ + (gx#stx-pair? _%hd156334156427%_)) + (let ((_%e156336156432%_ (let () (declare (not safe)) - (gx#stx-e _%hd155202155295%_)))) - (let ((_%hd155205155303%_ + (gx#stx-e _%hd156334156427%_)))) + (let ((_%hd156337156435%_ (let () (declare (not safe)) - (##car _%e155204155300%_))) - (_%tl155206155305%_ + (##car _%e156336156432%_))) + (_%tl156338156437%_ (let () (declare (not safe)) - (##cdr _%e155204155300%_)))) + (##cdr _%e156336156432%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155205155303%_)) - (let ((_%e155207155308%_ + (gx#stx-pair? _%hd156337156435%_)) + (let ((_%e156339156440%_ (let () (declare (not safe)) (gx#stx-e - _%hd155205155303%_)))) - (let ((_%hd155208155311%_ + _%hd156337156435%_)))) + (let ((_%hd156340156443%_ (let () (declare (not safe)) - (##car _%e155207155308%_))) - (_%tl155209155313%_ + (##car _%e156339156440%_))) + (_%tl156341156445%_ (let () (declare (not safe)) - (##cdr _%e155207155308%_)))) + (##cdr _%e156339156440%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155209155313%_)) + _%tl156341156445%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155206155305%_)) - (let ((_%e155210155316%_ + _%tl156338156437%_)) + (let ((_%e156342156448%_ (let () (declare (not safe)) (gx#stx-e - _%tl155206155305%_)))) - (let ((_%hd155211155319%_ + _%tl156338156437%_)))) + (let ((_%hd156343156451%_ (let () (declare (not safe)) - (##car _%e155210155316%_))) - (_%tl155212155321%_ + (##car _%e156342156448%_))) + (_%tl156344156453%_ (let () (declare (not safe)) - (##cdr _%e155210155316%_)))) + (##cdr _%e156342156448%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155212155321%_)) + _%tl156344156453%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _%tl155203155297%_)) + (gx#stx-null? _%tl156335156429%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155200155289%_)) - (let ((_%e155213155324%_ + (gx#stx-pair? _%tl156332156421%_)) + (let ((_%e156345156456%_ (let () (declare (not safe)) - (gx#stx-e _%tl155200155289%_)))) - (let ((_%hd155214155327%_ + (gx#stx-e _%tl156332156421%_)))) + (let ((_%hd156346156459%_ (let () (declare (not safe)) - (##car _%e155213155324%_))) - (_%tl155215155329%_ + (##car _%e156345156456%_))) + (_%tl156347156461%_ (let () (declare (not safe)) - (##cdr _%e155213155324%_)))) + (##cdr _%e156345156456%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155215155329%_)) + (gx#stx-null? _%tl156347156461%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155194155273%_)) + (gx#stx-null? _%tl156326156405%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155185155249%_)) + (gx#stx-null? _%tl156317156381%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155182155241%_)) - (let ((_%e155216155332%_ + _%tl156314156373%_)) + (let ((_%e156348156464%_ (let () (declare (not safe)) (gx#stx-e - _%tl155182155241%_)))) - (let ((_%hd155217155335%_ + _%tl156314156373%_)))) + (let ((_%hd156349156467%_ (let () (declare (not safe)) - (##car _%e155216155332%_))) - (_%tl155218155337%_ + (##car _%e156348156464%_))) + (_%tl156350156469%_ (let () (declare (not safe)) - (##cdr _%e155216155332%_)))) + (##cdr _%e156348156464%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155218155337%_)) - ((lambda (_%L155340%_ + _%tl156350156469%_)) + ((lambda (_%L156472%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L155341%_ - _%L155342%_ - _%L155343%_ - _%L155344%_) - (let* ((_%get-kws-id155384%_ - (let ((__tmp169988 + _%L156473%_ + _%L156474%_ + _%L156475%_ + _%L156476%_) + (let* ((_%get-kws-id156516%_ + (let ((__tmp171120 (let () (declare (not safe)) - (gx#stx-e _%L155154%_))) - (__tmp169987 - (_%kw-lambda-dispatch-name155006%_ + (gx#stx-e _%L156286%_))) + (__tmp171119 + (_%kw-lambda-dispatch-name156138%_ (let () (declare (not safe)) - (gx#stx-e _%L155344%_)) + (gx#stx-e _%L156476%_)) '"@"))) (declare (not safe)) - (make-symbol__1 __tmp169988 '"__" __tmp169987))) - (_%get-kws-id155386%_ - (let ((__tmp169989 + (make-symbol__1 __tmp171120 '"__" __tmp171119))) + (_%get-kws-id156518%_ + (let ((__tmp171121 (let () (declare (not safe)) - (gx#stx-source _%stx155002%_)))) + (gx#stx-source _%stx156134%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id155384%_ - __tmp169989))) - (_%main-id155388%_ - (let ((__tmp169991 + _%get-kws-id156516%_ + __tmp171121))) + (_%main-id156520%_ + (let ((__tmp171123 (let () (declare (not safe)) - (gx#stx-e _%L155154%_))) - (__tmp169990 - (_%kw-lambda-dispatch-name155006%_ + (gx#stx-e _%L156286%_))) + (__tmp171122 + (_%kw-lambda-dispatch-name156138%_ (let () (declare (not safe)) - (gx#stx-e _%L155343%_)) + (gx#stx-e _%L156475%_)) '"%"))) (declare (not safe)) - (make-symbol__1 __tmp169991 '"__" __tmp169990))) - (_%main-id155390%_ - (let ((__tmp169992 + (make-symbol__1 __tmp171123 '"__" __tmp171122))) + (_%main-id156522%_ + (let ((__tmp171124 (let () (declare (not safe)) - (gx#stx-source _%stx155002%_)))) + (gx#stx-source _%stx156134%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id155388%_ - __tmp169992))) - (_%_155392%_ + _%main-id156520%_ + __tmp171124))) + (_%_156524%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%get-kws-id155386%_))) - (_%_155394%_ + (gx#core-bind-runtime!__0 _%get-kws-id156518%_))) + (_%_156526%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%main-id155390%_))) - (_%new-kw-dispatch155396%_ + (gx#core-bind-runtime!__0 _%main-id156522%_))) + (_%new-kw-dispatch156528%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155344%_ - _%get-kws-id155386%_ - _%L155340%_))) - (_%new-get-kws155398%_ + _%L156476%_ + _%get-kws-id156518%_ + _%L156472%_))) + (_%new-get-kws156530%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155343%_ - _%main-id155390%_ - _%L155341%_)))) - (let ((__tmp169995 + _%L156475%_ + _%main-id156522%_ + _%L156473%_)))) + (let ((__tmp171127 (let () (declare (not safe)) - (gxc#identifier-symbol _%L155154%_))) - (__tmp169994 + (gxc#identifier-symbol _%L156286%_))) + (__tmp171126 (let () (declare (not safe)) - (gxc#identifier-symbol _%get-kws-id155386%_))) - (__tmp169993 + (gxc#identifier-symbol _%get-kws-id156518%_))) + (__tmp171125 (let () (declare (not safe)) - (gxc#identifier-symbol _%main-id155390%_)))) + (gxc#identifier-symbol _%main-id156522%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp169995 + __tmp171127 '" => " - __tmp169994 + __tmp171126 '" => " - __tmp169993)) - (let ((__tmp169996 + __tmp171125)) + (let ((__tmp171128 (cons '%#begin (cons (gxc#lift-top-lambda-define-values% - _%self155001%_ - (let ((__tmp169997 + _%self156133%_ + (let ((__tmp171129 (cons '%#define-values - (cons (cons _%main-id155390%_ + (cons (cons _%main-id156522%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L155342%_ '()))))) + (cons _%L156474%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169997 - _%stx155002%_))) - (cons (let ((__tmp169998 + __tmp171129 + _%stx156134%_))) + (cons (let ((__tmp171130 (cons '%#define-values - (cons (cons _%get-kws-id155386%_ + (cons (cons _%get-kws-id156518%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-get-kws155398%_ '()))))) + (cons _%new-get-kws156530%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169998 - _%stx155002%_)) - (cons (let ((__tmp169999 + __tmp171130 + _%stx156134%_)) + (cons (let ((__tmp171131 (cons '%#define-values - (cons (cons _%L155154%_ + (cons (cons _%L156286%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-kw-dispatch155396%_ '()))))) + (cons _%new-kw-dispatch156528%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169999 - _%stx155002%_)) + __tmp171131 + _%stx156134%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169996 _%stx155002%_)))) - _%hd155217155335%_ - _%hd155214155327%_ - _%hd155211155319%_ - _%hd155208155311%_ - _%hd155190155263%_) - (_%g155170155223%_ _%g155171155226%_)))) + (gxc#xform-wrap-source __tmp171128 _%stx156134%_)))) + _%hd156349156467%_ + _%hd156346156459%_ + _%hd156343156451%_ + _%hd156340156443%_ + _%hd156322156395%_) + (_%g156302156355%_ _%g156303156358%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155170155223%_ - _%g155171155226%_)) - (_%g155170155223%_ - _%g155171155226%_)) - (_%g155170155223%_ _%g155171155226%_)) - (_%g155170155223%_ _%g155171155226%_)))) - (_%g155170155223%_ _%g155171155226%_)) - (_%g155170155223%_ _%g155171155226%_)) - (_%g155170155223%_ _%g155171155226%_)))) + (_%g156302156355%_ + _%g156303156358%_)) + (_%g156302156355%_ + _%g156303156358%_)) + (_%g156302156355%_ _%g156303156358%_)) + (_%g156302156355%_ _%g156303156358%_)))) + (_%g156302156355%_ _%g156303156358%_)) + (_%g156302156355%_ _%g156303156358%_)) + (_%g156302156355%_ _%g156303156358%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155170155223%_ - _%g155171155226%_)) - (_%g155170155223%_ - _%g155171155226%_)))) - (_%g155170155223%_ _%g155171155226%_)))) - (_%g155170155223%_ _%g155171155226%_)))) - (_%g155170155223%_ _%g155171155226%_)))) - (_%g155170155223%_ _%g155171155226%_)))) + (_%g156302156355%_ + _%g156303156358%_)) + (_%g156302156355%_ + _%g156303156358%_)))) + (_%g156302156355%_ _%g156303156358%_)))) + (_%g156302156355%_ _%g156303156358%_)))) + (_%g156302156355%_ _%g156303156358%_)))) + (_%g156302156355%_ _%g156303156358%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155170155223%_ - _%g155171155226%_)))) - (_%g155170155223%_ _%g155171155226%_)) - (_%g155170155223%_ _%g155171155226%_)))) - (_%g155170155223%_ _%g155171155226%_)))) - (_%g155170155223%_ _%g155171155226%_)))) + (_%g156302156355%_ + _%g156303156358%_)))) + (_%g156302156355%_ _%g156303156358%_)) + (_%g156302156355%_ _%g156303156358%_)))) + (_%g156302156355%_ _%g156303156358%_)))) + (_%g156302156355%_ _%g156303156358%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155170155223%_ - _%g155171155226%_)))) - (_%g155170155223%_ - _%g155171155226%_)))) - (_%g155170155223%_ _%g155171155226%_))))) - (_%g155169155401%_ _%L155153%_)))) - (_%__kont169193169194%_ - (lambda (_%L155099%_ _%L155100%_) - (let ((__tmp170000 + (_%g156302156355%_ + _%g156303156358%_)))) + (_%g156302156355%_ + _%g156303156358%_)))) + (_%g156302156355%_ _%g156303156358%_))))) + (_%g156301156533%_ _%L156285%_)))) + (_%__kont170325170326%_ + (lambda (_%L156231%_ _%L156232%_) + (let ((__tmp171132 (cons '%#define-values - (cons _%L155100%_ + (cons _%L156232%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self155001%_ - _%L155099%_)) + _%self156133%_ + _%L156231%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp170000 _%stx155002%_))))) - (let* ((_%__match169278169279%_ - (lambda (_%e155043155121%_ - _%hd155044155124%_ - _%tl155045155126%_ - _%e155046155129%_ - _%hd155047155132%_ - _%tl155048155134%_ - _%e155049155137%_ - _%hd155050155140%_ - _%tl155051155142%_ - _%e155052155145%_ - _%hd155053155148%_ - _%tl155054155150%_) - (let ((_%L155153%_ _%hd155053155148%_) - (_%L155154%_ _%hd155050155140%_)) + (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%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L155154%_)) - (gxc#kw-lambda-expr? _%L155153%_)) - (_%__kont169191169192%_ _%L155153%_ _%L155154%_) - (_%__kont169193169194%_ - _%hd155053155148%_ - _%hd155047155132%_))))) - (_%__match169250169251%_ - (lambda (_%e155029155409%_ - _%hd155030155412%_ - _%tl155031155414%_ - _%e155032155417%_ - _%hd155033155420%_ - _%tl155034155422%_ - _%e155035155425%_ - _%hd155036155428%_ - _%tl155037155430%_ - _%e155038155433%_ - _%hd155039155436%_ - _%tl155040155438%_) - (let ((_%L155441%_ _%hd155039155436%_) - (_%L155442%_ _%hd155036155428%_)) + (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%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L155442%_)) - (gxc#opt-lambda-expr? _%L155441%_)) - (_%__kont169189169190%_ _%L155441%_ _%L155442%_) - (_%__match169278169279%_ - _%e155029155409%_ - _%hd155030155412%_ - _%tl155031155414%_ - _%e155032155417%_ - _%hd155033155420%_ - _%tl155034155422%_ - _%e155035155425%_ - _%hd155036155428%_ - _%tl155037155430%_ - _%e155038155433%_ - _%hd155039155436%_ - _%tl155040155438%_))))) - (_%__match169222169223%_ - (lambda (_%e155015155592%_ - _%hd155016155595%_ - _%tl155017155597%_ - _%e155018155600%_ - _%hd155019155603%_ - _%tl155020155605%_ - _%e155021155608%_ - _%hd155022155611%_ - _%tl155023155613%_ - _%e155024155616%_ - _%hd155025155619%_ - _%tl155026155621%_) - (let ((_%L155624%_ _%hd155025155619%_) - (_%L155625%_ _%hd155022155611%_)) + (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%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L155625%_)) - (gxc#case-lambda-expr? _%L155624%_)) - (_%__kont169187169188%_ _%L155624%_ _%L155625%_) - (_%__match169250169251%_ - _%e155015155592%_ - _%hd155016155595%_ - _%tl155017155597%_ - _%e155018155600%_ - _%hd155019155603%_ - _%tl155020155605%_ - _%e155021155608%_ - _%hd155022155611%_ - _%tl155023155613%_ - _%e155024155616%_ - _%hd155025155619%_ - _%tl155026155621%_)))))) + (gx#identifier? _%L156757%_)) + (gxc#case-lambda-expr? _%L156756%_)) + (_%__kont170319170320%_ _%L156756%_ _%L156757%_) + (_%__match170382170383%_ + _%e156147156724%_ + _%hd156148156727%_ + _%tl156149156729%_ + _%e156150156732%_ + _%hd156151156735%_ + _%tl156152156737%_ + _%e156153156740%_ + _%hd156154156743%_ + _%tl156155156745%_ + _%e156156156748%_ + _%hd156157156751%_ + _%tl156158156753%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169185169186%_)) - (let ((_%e155015155592%_ + (gx#stx-pair? _%__stx170317170318%_)) + (let ((_%e156147156724%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169185169186%_)))) - (let ((_%tl155017155597%_ + (gx#stx-e _%__stx170317170318%_)))) + (let ((_%tl156149156729%_ (let () (declare (not safe)) - (##cdr _%e155015155592%_))) - (_%hd155016155595%_ + (##cdr _%e156147156724%_))) + (_%hd156148156727%_ (let () (declare (not safe)) - (##car _%e155015155592%_)))) + (##car _%e156147156724%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155017155597%_)) - (let ((_%e155018155600%_ + (gx#stx-pair? _%tl156149156729%_)) + (let ((_%e156150156732%_ (let () (declare (not safe)) - (gx#stx-e _%tl155017155597%_)))) - (let ((_%tl155020155605%_ + (gx#stx-e _%tl156149156729%_)))) + (let ((_%tl156152156737%_ (let () (declare (not safe)) - (##cdr _%e155018155600%_))) - (_%hd155019155603%_ + (##cdr _%e156150156732%_))) + (_%hd156151156735%_ (let () (declare (not safe)) - (##car _%e155018155600%_)))) + (##car _%e156150156732%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155019155603%_)) - (let ((_%e155021155608%_ + (gx#stx-pair? _%hd156151156735%_)) + (let ((_%e156153156740%_ (let () (declare (not safe)) - (gx#stx-e _%hd155019155603%_)))) - (let ((_%tl155023155613%_ + (gx#stx-e _%hd156151156735%_)))) + (let ((_%tl156155156745%_ (let () (declare (not safe)) - (##cdr _%e155021155608%_))) - (_%hd155022155611%_ + (##cdr _%e156153156740%_))) + (_%hd156154156743%_ (let () (declare (not safe)) - (##car _%e155021155608%_)))) + (##car _%e156153156740%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155023155613%_)) + _%tl156155156745%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155020155605%_)) - (let ((_%e155024155616%_ + _%tl156152156737%_)) + (let ((_%e156156156748%_ (let () (declare (not safe)) (gx#stx-e - _%tl155020155605%_)))) - (let ((_%tl155026155621%_ + _%tl156152156737%_)))) + (let ((_%tl156158156753%_ (let () (declare (not safe)) - (##cdr _%e155024155616%_))) - (_%hd155025155619%_ + (##cdr _%e156156156748%_))) + (_%hd156157156751%_ (let () (declare (not safe)) - (##car _%e155024155616%_)))) + (##car _%e156156156748%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155026155621%_)) - (_%__match169222169223%_ - _%e155015155592%_ - _%hd155016155595%_ - _%tl155017155597%_ - _%e155018155600%_ - _%hd155019155603%_ - _%tl155020155605%_ - _%e155021155608%_ - _%hd155022155611%_ - _%tl155023155613%_ - _%e155024155616%_ - _%hd155025155619%_ - _%tl155026155621%_) + _%tl156158156753%_)) + (_%__match170354170355%_ + _%e156147156724%_ + _%hd156148156727%_ + _%tl156149156729%_ + _%e156150156732%_ + _%hd156151156735%_ + _%tl156152156737%_ + _%e156153156740%_ + _%hd156154156743%_ + _%tl156155156745%_ + _%e156156156748%_ + _%hd156157156751%_ + _%tl156158156753%_) (let () (declare (not safe)) - (_%g155011155070%_))))) + (_%g156143156202%_))))) (let () (declare (not safe)) - (_%g155011155070%_))) + (_%g156143156202%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155020155605%_)) - (let ((_%e155063155091%_ + _%tl156152156737%_)) + (let ((_%e156195156223%_ (let () (declare (not safe)) (gx#stx-e - _%tl155020155605%_)))) - (let ((_%tl155065155096%_ + _%tl156152156737%_)))) + (let ((_%tl156197156228%_ (let () (declare (not safe)) - (##cdr _%e155063155091%_))) - (_%hd155064155094%_ + (##cdr _%e156195156223%_))) + (_%hd156196156226%_ (let () (declare (not safe)) - (##car _%e155063155091%_)))) + (##car _%e156195156223%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155065155096%_)) - (_%__kont169193169194%_ - _%hd155064155094%_ - _%hd155019155603%_) + _%tl156197156228%_)) + (_%__kont170325170326%_ + _%hd156196156226%_ + _%hd156151156735%_) (let () (declare (not safe)) - (_%g155011155070%_))))) + (_%g156143156202%_))))) (let () (declare (not safe)) - (_%g155011155070%_)))))) + (_%g156143156202%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155020155605%_)) - (let ((_%e155063155091%_ + (gx#stx-pair? _%tl156152156737%_)) + (let ((_%e156195156223%_ (let () (declare (not safe)) (gx#stx-e - _%tl155020155605%_)))) - (let ((_%tl155065155096%_ + _%tl156152156737%_)))) + (let ((_%tl156197156228%_ (let () (declare (not safe)) - (##cdr _%e155063155091%_))) - (_%hd155064155094%_ + (##cdr _%e156195156223%_))) + (_%hd156196156226%_ (let () (declare (not safe)) - (##car _%e155063155091%_)))) + (##car _%e156195156223%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155065155096%_)) - (_%__kont169193169194%_ - _%hd155064155094%_ - _%hd155019155603%_) + _%tl156197156228%_)) + (_%__kont170325170326%_ + _%hd156196156226%_ + _%hd156151156735%_) (let () (declare (not safe)) - (_%g155011155070%_))))) + (_%g156143156202%_))))) (let () (declare (not safe)) - (_%g155011155070%_)))))) + (_%g156143156202%_)))))) (let () (declare (not safe)) - (_%g155011155070%_))))) - (let () (declare (not safe)) (_%g155011155070%_))))))))) + (_%g156143156202%_))))) + (let () (declare (not safe)) (_%g156143156202%_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_%self153928%_ _%stx153929%_) - (letrec* ((_%bind-e__166664166665%_ - (lambda (_%id154985%_ _%expr154986%_ _%compile?154987%_) - (cons (cons _%id154985%_ '()) - (cons (if _%compile?154987%_ + (lambda (_%self155060%_ _%stx155061%_) + (letrec* ((_%bind-e__167796167797%_ + (lambda (_%id156117%_ _%expr156118%_ _%compile?156119%_) + (cons (cons _%id156117%_ '()) + (cons (if _%compile?156119%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153928%_ - _%expr154986%_)) - _%expr154986%_) + _%self155060%_ + _%expr156118%_)) + _%expr156118%_) '())))) - (_%bind-e__0__166666166667%_ - (lambda (_%id154992%_ _%expr154993%_) - (let ((_%compile?154995%_ '#t)) - (_%bind-e__166664166665%_ - _%id154992%_ - _%expr154993%_ - _%compile?154995%_)))) - (_%bind-e153931%_ - (lambda _g170002_ - (let ((_g170001_ + (_%bind-e__0__167798167799%_ + (lambda (_%id156124%_ _%expr156125%_) + (let ((_%compile?156127%_ '#t)) + (_%bind-e__167796167797%_ + _%id156124%_ + _%expr156125%_ + _%compile?156127%_)))) + (_%bind-e155063%_ + (lambda _g171134_ + (let ((_g171133_ (let () (declare (not safe)) - (##length _g170002_)))) - (cond ((let () (declare (not safe)) (##fx= _g170001_ 2)) - (apply _%bind-e__0__166666166667%_ _g170002_)) - ((let () (declare (not safe)) (##fx= _g170001_ 3)) - (apply _%bind-e__166664166665%_ _g170002_)) + (##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_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g170002_)))))) - (_%compile-bindings153932%_ - (lambda (_%bindings154567%_) - (let _%lp154569%_ ((_%rest154571%_ _%bindings154567%_) - (_%lift1154572%_ '()) - (_%lift2154573%_ '()) - (_%bind154574%_ '())) - (let* ((_%rest154575154583%_ _%rest154571%_) - (_%else154577154591%_ + _g171134_)))))) + (_%compile-bindings155064%_ + (lambda (_%bindings155699%_) + (let _%lp155701%_ ((_%rest155703%_ _%bindings155699%_) + (_%lift1155704%_ '()) + (_%lift2155705%_ '()) + (_%bind155706%_ '())) + (let* ((_%rest155707155715%_ _%rest155703%_) + (_%else155709155723%_ (lambda () - (values (reverse _%lift1154572%_) - (reverse _%lift2154573%_) - (reverse _%bind154574%_)))) - (_%K154579154972%_ - (lambda (_%rest154594%_ _%hd154595%_) - (let* ((_%__stx169321169322%_ _%hd154595%_) - (_%g154599154635%_ + (values (reverse _%lift1155704%_) + (reverse _%lift2155705%_) + (reverse _%bind155706%_)))) + (_%K155711156104%_ + (lambda (_%rest155726%_ _%hd155727%_) + (let* ((_%__stx170453170454%_ _%hd155727%_) + (_%g155731155767%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169321169322%_))))) - (let ((_%__kont169323169324%_ - (lambda (_%L154878%_ _%L154879%_) - (let* ((_%__stx169301169302%_ - _%L154878%_) - (_%g154894154908%_ + _%__stx170453170454%_))))) + (let ((_%__kont170455170456%_ + (lambda (_%L156010%_ _%L156011%_) + (let* ((_%__stx170433170434%_ + _%L156010%_) + (_%g156026156040%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169301169302%_))))) - (let ((_%__kont169303169304%_ - (lambda (_%L154957%_) - (_%lp154569%_ - _%rest154594%_ - _%lift1154572%_ - _%lift2154573%_ - (cons (_%bind-e__166664166665%_ - _%L154879%_ - _%L154878%_ + _%__stx170433170434%_))))) + (let ((_%__kont170435170436%_ + (lambda (_%L156089%_) + (_%lp155701%_ + _%rest155726%_ + _%lift1155704%_ + _%lift2155705%_ + (cons (_%bind-e__167796167797%_ + _%L156011%_ + _%L156010%_ '#f) - _%bind154574%_)))) - (_%__kont169305169306%_ - (lambda (_%L154921%_) - (let ((_g170003_ + _%bind155706%_)))) + (_%__kont170437170438%_ + (lambda (_%L156053%_) + (let ((_g171135_ (gxc#lift-case-lambda-clauses__% - _%stx153929%_ - _%L154879%_ - _%L154921%_ + _%stx155061%_ + _%L156011%_ + _%L156053%_ '#t))) (begin - (let ((_g170004_ + (let ((_g171136_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g170003_) - (##vector-length _g170003_) + (if (##values? _g171135_) + (##vector-length _g171135_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170004_ 3))) - (error "Context expects 3 values" _g170004_))) - (let ((_%ids154931%_ + (##fx= _g171136_ 3))) + (error "Context expects 3 values" _g171136_))) + (let ((_%ids156063%_ (let () (declare (not safe)) - (##vector-ref _g170003_ 0))) - (_%impls154932%_ + (##vector-ref _g171135_ 0))) + (_%impls156064%_ (let () (declare (not safe)) - (##vector-ref _g170003_ 1))) - (_%clauses154933%_ + (##vector-ref _g171135_ 1))) + (_%clauses156065%_ (let () (declare (not safe)) - (##vector-ref _g170003_ 2)))) - (let* ((_%_154935%_ - (for-each gx#core-bind-runtime! _%ids154931%_)) - (_%xbind154937%_ - (map _%bind-e153931%_ - _%ids154931%_ - _%impls154932%_)) - (_%expr*154939%_ - (let ((__tmp170006 - (cons '%#case-lambda _%clauses154933%_)) - (__tmp170005 + (##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 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -21608,1412 +21586,1408 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp170006 - __tmp170005))) - (_%bind*154941%_ - (_%bind-e__166664166665%_ - _%L154879%_ - _%expr*154939%_ + __tmp171138 + __tmp171137))) + (_%bind*156073%_ + (_%bind-e__167796167797%_ + _%L156011%_ + _%expr*156071%_ '#f))) - (let ((__tmp170008 + (let ((__tmp171140 (let () (declare (not safe)) - (gxc#identifier-symbol _%L154879%_))) - (__tmp170007 - (map gxc#identifier-symbol _%ids154931%_))) + (gxc#identifier-symbol _%L156011%_))) + (__tmp171139 + (map gxc#identifier-symbol _%ids156063%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp170008 + __tmp171140 '" => " - __tmp170007)) - (_%lp154569%_ - _%rest154594%_ - _%lift1154572%_ + __tmp171139)) + (_%lp155701%_ + _%rest155726%_ + _%lift1155704%_ (let () (declare (not safe)) - (__foldl1 cons _%lift2154573%_ _%xbind154937%_)) - (cons _%bind*154941%_ _%bind154574%_))))))))) + (__foldl1 cons _%lift2155705%_ _%xbind156069%_)) + (cons _%bind*156073%_ _%bind155706%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match169312169313%_ - (lambda (_%e154897154949%_ - _%hd154898154952%_ - _%tl154899154954%_) - (let ((_%L154957%_ - _%tl154899154954%_)) + (let ((_%__match170444170445%_ + (lambda (_%e156029156081%_ + _%hd156030156084%_ + _%tl156031156086%_) + (let ((_%L156089%_ + _%tl156031156086%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L154957%_)) - (_%__kont169303169304%_ _%L154957%_) - (_%__kont169305169306%_ _%tl154899154954%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L156089%_)) + (_%__kont170435170436%_ _%L156089%_) + (_%__kont170437170438%_ _%tl156031156086%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx169301169302%_)) - (let ((_%e154897154949%_ + _%__stx170433170434%_)) + (let ((_%e156029156081%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx169301169302%_)))) - (let ((_%tl154899154954%_ - (let () (declare (not safe)) (##cdr _%e154897154949%_))) - (_%hd154898154952%_ + (gx#stx-e _%__stx170433170434%_)))) + (let ((_%tl156031156086%_ + (let () (declare (not safe)) (##cdr _%e156029156081%_))) + (_%hd156030156084%_ (let () (declare (not safe)) - (##car _%e154897154949%_)))) - (_%__match169312169313%_ - _%e154897154949%_ - _%hd154898154952%_ - _%tl154899154954%_))) - (let () (declare (not safe)) (_%g154894154908%_)))))))) + (##car _%e156029156081%_)))) + (_%__match170444170445%_ + _%e156029156081%_ + _%hd156030156084%_ + _%tl156031156086%_))) + (let () (declare (not safe)) (_%g156026156040%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169325169326%_ - (lambda (_%L154705%_ _%L154706%_) - (let* ((_%g154720154750%_ - (lambda (_%g154721154747%_) + (_%__kont170457170458%_ + (lambda (_%L155837%_ _%L155838%_) + (let* ((_%g155852155882%_ + (lambda (_%g155853155879%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154721154747%_)))) - (_%g154719154846%_ - (lambda (_%g154721154753%_) + _%g155853155879%_)))) + (_%g155851155978%_ + (lambda (_%g155853155885%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g154721154753%_)) - (let ((_%e154725154755%_ + _%g155853155885%_)) + (let ((_%e155857155887%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g154721154753%_)))) - (let ((_%hd154726154758%_ + (gx#stx-e _%g155853155885%_)))) + (let ((_%hd155858155890%_ (let () (declare (not safe)) - (##car _%e154725154755%_))) - (_%tl154727154760%_ + (##car _%e155857155887%_))) + (_%tl155859155892%_ (let () (declare (not safe)) - (##cdr _%e154725154755%_)))) + (##cdr _%e155857155887%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154727154760%_)) - (let ((_%e154728154763%_ + (gx#stx-pair? _%tl155859155892%_)) + (let ((_%e155860155895%_ (let () (declare (not safe)) - (gx#stx-e _%tl154727154760%_)))) - (let ((_%hd154729154766%_ + (gx#stx-e _%tl155859155892%_)))) + (let ((_%hd155861155898%_ (let () (declare (not safe)) - (##car _%e154728154763%_))) - (_%tl154730154768%_ + (##car _%e155860155895%_))) + (_%tl155862155900%_ (let () (declare (not safe)) - (##cdr _%e154728154763%_)))) + (##cdr _%e155860155895%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154729154766%_)) - (let ((_%e154731154771%_ + (gx#stx-pair? _%hd155861155898%_)) + (let ((_%e155863155903%_ (let () (declare (not safe)) - (gx#stx-e _%hd154729154766%_)))) - (let ((_%hd154732154774%_ + (gx#stx-e _%hd155861155898%_)))) + (let ((_%hd155864155906%_ (let () (declare (not safe)) - (##car _%e154731154771%_))) - (_%tl154733154776%_ + (##car _%e155863155903%_))) + (_%tl155865155908%_ (let () (declare (not safe)) - (##cdr _%e154731154771%_)))) + (##cdr _%e155863155903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154732154774%_)) - (let ((_%e154734154779%_ + (gx#stx-pair? _%hd155864155906%_)) + (let ((_%e155866155911%_ (let () (declare (not safe)) (gx#stx-e - _%hd154732154774%_)))) - (let ((_%hd154735154782%_ + _%hd155864155906%_)))) + (let ((_%hd155867155914%_ (let () (declare (not safe)) - (##car _%e154734154779%_))) - (_%tl154736154784%_ + (##car _%e155866155911%_))) + (_%tl155868155916%_ (let () (declare (not safe)) - (##cdr _%e154734154779%_)))) + (##cdr _%e155866155911%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154735154782%_)) - (let ((_%e154737154787%_ + _%hd155867155914%_)) + (let ((_%e155869155919%_ (let () (declare (not safe)) (gx#stx-e - _%hd154735154782%_)))) - (let ((_%hd154738154790%_ + _%hd155867155914%_)))) + (let ((_%hd155870155922%_ (let () (declare (not safe)) - (##car _%e154737154787%_))) - (_%tl154739154792%_ + (##car _%e155869155919%_))) + (_%tl155871155924%_ (let () (declare (not safe)) - (##cdr _%e154737154787%_)))) + (##cdr _%e155869155919%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154739154792%_)) + _%tl155871155924%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl154736154784%_)) - (let ((_%e154740154795%_ + (gx#stx-pair? _%tl155868155916%_)) + (let ((_%e155872155927%_ (let () (declare (not safe)) - (gx#stx-e _%tl154736154784%_)))) - (let ((_%hd154741154798%_ + (gx#stx-e _%tl155868155916%_)))) + (let ((_%hd155873155930%_ (let () (declare (not safe)) - (##car _%e154740154795%_))) - (_%tl154742154800%_ + (##car _%e155872155927%_))) + (_%tl155874155932%_ (let () (declare (not safe)) - (##cdr _%e154740154795%_)))) + (##cdr _%e155872155927%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154742154800%_)) + (gx#stx-null? _%tl155874155932%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154733154776%_)) + (gx#stx-null? _%tl155865155908%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154730154768%_)) - (let ((_%e154743154803%_ + (gx#stx-pair? _%tl155862155900%_)) + (let ((_%e155875155935%_ (let () (declare (not safe)) - (gx#stx-e _%tl154730154768%_)))) - (let ((_%hd154744154806%_ + (gx#stx-e _%tl155862155900%_)))) + (let ((_%hd155876155938%_ (let () (declare (not safe)) - (##car _%e154743154803%_))) - (_%tl154745154808%_ + (##car _%e155875155935%_))) + (_%tl155877155940%_ (let () (declare (not safe)) - (##cdr _%e154743154803%_)))) + (##cdr _%e155875155935%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154745154808%_)) - ((lambda (_%L154811%_ - _%L154812%_ - _%L154813%_) - (let* ((_%lambda-id154837%_ - (let ((__tmp170010 + _%tl155877155940%_)) + ((lambda (_%L155943%_ + _%L155944%_ + _%L155945%_) + (let* ((_%lambda-id155969%_ + (let ((__tmp171142 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L154706%_))) - (__tmp170009 + (gx#stx-e _%L155838%_))) + (__tmp171141 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp170010 __tmp170009))) - (_%lambda-id154839%_ - (let ((__tmp170011 + (make-symbol__1 __tmp171142 __tmp171141))) + (_%lambda-id155971%_ + (let ((__tmp171143 (let () (declare (not safe)) - (gx#stx-source _%stx153929%_)))) + (gx#stx-source _%stx155061%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id154837%_ __tmp170011))) - (_%_154841%_ + (gx#core-quote-syntax__1 _%lambda-id155969%_ __tmp171143))) + (_%_155973%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id154839%_))) - (_%new-case-lambda-expr154843%_ + (gx#core-bind-runtime!__0 _%lambda-id155971%_))) + (_%new-case-lambda-expr155975%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154813%_ - _%lambda-id154839%_ - _%L154811%_)))) + _%L155945%_ + _%lambda-id155971%_ + _%L155943%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp170013 + (let ((__tmp171145 (let () (declare (not safe)) (gxc#identifier-symbol - _%L154706%_))) - (__tmp170012 + _%L155838%_))) + (__tmp171144 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id154839%_)))) + _%lambda-id155971%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp170013 + __tmp171145 '" => " - __tmp170012)) - (_%lp154569%_ - (cons (_%bind-e__166664166665%_ - _%L154706%_ - _%new-case-lambda-expr154843%_ + __tmp171144)) + (_%lp155701%_ + (cons (_%bind-e__167796167797%_ + _%L155838%_ + _%new-case-lambda-expr155975%_ '#f) - _%rest154594%_) - (cons (_%bind-e__0__166666166667%_ - _%lambda-id154839%_ - _%L154812%_) - _%lift1154572%_) - _%lift2154573%_ - _%bind154574%_))) - _%hd154744154806%_ - _%hd154741154798%_ - _%hd154738154790%_) - (_%g154720154750%_ - _%g154721154753%_)))) - (_%g154720154750%_ _%g154721154753%_)) - (_%g154720154750%_ _%g154721154753%_)) - (_%g154720154750%_ _%g154721154753%_)))) - (_%g154720154750%_ _%g154721154753%_)) - (_%g154720154750%_ _%g154721154753%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154720154750%_ - _%g154721154753%_)))) - (_%g154720154750%_ - _%g154721154753%_)))) - (_%g154720154750%_ _%g154721154753%_)))) - (_%g154720154750%_ _%g154721154753%_)))) - (_%g154720154750%_ _%g154721154753%_))))) + (_%g155852155882%_ + _%g155853155885%_)))) + (_%g155852155882%_ + _%g155853155885%_)))) + (_%g155852155882%_ _%g155853155885%_)))) + (_%g155852155882%_ _%g155853155885%_)))) + (_%g155852155882%_ _%g155853155885%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154719154846%_ - _%L154705%_)))) - (_%__kont169327169328%_ - (lambda (_%L154656%_ _%L154657%_) - (_%lp154569%_ - _%rest154594%_ - _%lift1154572%_ - _%lift2154573%_ - (cons (cons _%L154657%_ + (_%g155851155978%_ + _%L155837%_)))) + (_%__kont170459170460%_ + (lambda (_%L155788%_ _%L155789%_) + (_%lp155701%_ + _%rest155726%_ + _%lift1155704%_ + _%lift2155705%_ + (cons (cons _%L155789%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self153928%_ _%L154656%_)) + (gxc#compile-e__1 _%self155060%_ _%L155788%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind154574%_))))) - (let* ((_%__match169372169373%_ - (lambda (_%e154614154681%_ - _%hd154615154684%_ - _%tl154616154686%_ - _%e154617154689%_ - _%hd154618154692%_ - _%tl154619154694%_ - _%e154620154697%_ - _%hd154621154700%_ - _%tl154622154702%_) - (let ((_%L154705%_ - _%hd154621154700%_) - (_%L154706%_ - _%hd154618154692%_)) + _%bind155706%_))))) + (let* ((_%__match170504170505%_ + (lambda (_%e155746155813%_ + _%hd155747155816%_ + _%tl155748155818%_ + _%e155749155821%_ + _%hd155750155824%_ + _%tl155751155826%_ + _%e155752155829%_ + _%hd155753155832%_ + _%tl155754155834%_) + (let ((_%L155837%_ + _%hd155753155832%_) + (_%L155838%_ + _%hd155750155824%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154706%_)) + _%L155838%_)) (gxc#opt-lambda-expr? - _%L154705%_)) - (_%__kont169325169326%_ - _%L154705%_ - _%L154706%_) - (_%__kont169327169328%_ - _%hd154621154700%_ - _%hd154615154684%_))))) - (_%__match169350169351%_ - (lambda (_%e154603154854%_ - _%hd154604154857%_ - _%tl154605154859%_ - _%e154606154862%_ - _%hd154607154865%_ - _%tl154608154867%_ - _%e154609154870%_ - _%hd154610154873%_ - _%tl154611154875%_) - (let ((_%L154878%_ - _%hd154610154873%_) - (_%L154879%_ - _%hd154607154865%_)) + _%L155837%_)) + (_%__kont170457170458%_ + _%L155837%_ + _%L155838%_) + (_%__kont170459170460%_ + _%hd155753155832%_ + _%hd155747155816%_))))) + (_%__match170482170483%_ + (lambda (_%e155735155986%_ + _%hd155736155989%_ + _%tl155737155991%_ + _%e155738155994%_ + _%hd155739155997%_ + _%tl155740155999%_ + _%e155741156002%_ + _%hd155742156005%_ + _%tl155743156007%_) + (let ((_%L156010%_ + _%hd155742156005%_) + (_%L156011%_ + _%hd155739155997%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154879%_)) + _%L156011%_)) (gxc#case-lambda-expr? - _%L154878%_)) - (_%__kont169323169324%_ - _%L154878%_ - _%L154879%_) - (_%__match169372169373%_ - _%e154603154854%_ - _%hd154604154857%_ - _%tl154605154859%_ - _%e154606154862%_ - _%hd154607154865%_ - _%tl154608154867%_ - _%e154609154870%_ - _%hd154610154873%_ - _%tl154611154875%_)))))) + _%L156010%_)) + (_%__kont170455170456%_ + _%L156010%_ + _%L156011%_) + (_%__match170504170505%_ + _%e155735155986%_ + _%hd155736155989%_ + _%tl155737155991%_ + _%e155738155994%_ + _%hd155739155997%_ + _%tl155740155999%_ + _%e155741156002%_ + _%hd155742156005%_ + _%tl155743156007%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx169321169322%_)) - (let ((_%e154603154854%_ + _%__stx170453170454%_)) + (let ((_%e155735155986%_ (let () (declare (not safe)) (gx#stx-e - _%__stx169321169322%_)))) - (let ((_%tl154605154859%_ + _%__stx170453170454%_)))) + (let ((_%tl155737155991%_ (let () (declare (not safe)) - (##cdr _%e154603154854%_))) - (_%hd154604154857%_ + (##cdr _%e155735155986%_))) + (_%hd155736155989%_ (let () (declare (not safe)) - (##car _%e154603154854%_)))) + (##car _%e155735155986%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154604154857%_)) - (let ((_%e154606154862%_ + _%hd155736155989%_)) + (let ((_%e155738155994%_ (let () (declare (not safe)) (gx#stx-e - _%hd154604154857%_)))) - (let ((_%tl154608154867%_ + _%hd155736155989%_)))) + (let ((_%tl155740155999%_ (let () (declare (not safe)) - (##cdr _%e154606154862%_))) - (_%hd154607154865%_ + (##cdr _%e155738155994%_))) + (_%hd155739155997%_ (let () (declare (not safe)) - (##car _%e154606154862%_)))) + (##car _%e155738155994%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154608154867%_)) + _%tl155740155999%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl154605154859%_)) - (let ((_%e154609154870%_ + (gx#stx-pair? _%tl155737155991%_)) + (let ((_%e155741156002%_ (let () (declare (not safe)) - (gx#stx-e _%tl154605154859%_)))) - (let ((_%tl154611154875%_ + (gx#stx-e _%tl155737155991%_)))) + (let ((_%tl155743156007%_ (let () (declare (not safe)) - (##cdr _%e154609154870%_))) - (_%hd154610154873%_ + (##cdr _%e155741156002%_))) + (_%hd155742156005%_ (let () (declare (not safe)) - (##car _%e154609154870%_)))) + (##car _%e155741156002%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154611154875%_)) - (_%__match169350169351%_ - _%e154603154854%_ - _%hd154604154857%_ - _%tl154605154859%_ - _%e154606154862%_ - _%hd154607154865%_ - _%tl154608154867%_ - _%e154609154870%_ - _%hd154610154873%_ - _%tl154611154875%_) + (gx#stx-null? _%tl155743156007%_)) + (_%__match170482170483%_ + _%e155735155986%_ + _%hd155736155989%_ + _%tl155737155991%_ + _%e155738155994%_ + _%hd155739155997%_ + _%tl155740155999%_ + _%e155741156002%_ + _%hd155742156005%_ + _%tl155743156007%_) (let () (declare (not safe)) - (_%g154599154635%_))))) - (let () (declare (not safe)) (_%g154599154635%_))) + (_%g155731155767%_))))) + (let () (declare (not safe)) (_%g155731155767%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154605154859%_)) - (let ((_%e154628154648%_ + (gx#stx-pair? _%tl155737155991%_)) + (let ((_%e155760155780%_ (let () (declare (not safe)) - (gx#stx-e _%tl154605154859%_)))) - (let ((_%tl154630154653%_ + (gx#stx-e _%tl155737155991%_)))) + (let ((_%tl155762155785%_ (let () (declare (not safe)) - (##cdr _%e154628154648%_))) - (_%hd154629154651%_ + (##cdr _%e155760155780%_))) + (_%hd155761155783%_ (let () (declare (not safe)) - (##car _%e154628154648%_)))) + (##car _%e155760155780%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154630154653%_)) - (_%__kont169327169328%_ - _%hd154629154651%_ - _%hd154604154857%_) + (gx#stx-null? _%tl155762155785%_)) + (_%__kont170459170460%_ + _%hd155761155783%_ + _%hd155736155989%_) (let () (declare (not safe)) - (_%g154599154635%_))))) - (let () (declare (not safe)) (_%g154599154635%_)))))) + (_%g155731155767%_))))) + (let () (declare (not safe)) (_%g155731155767%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154605154859%_)) - (let ((_%e154628154648%_ + _%tl155737155991%_)) + (let ((_%e155760155780%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl154605154859%_)))) - (let ((_%tl154630154653%_ + (gx#stx-e _%tl155737155991%_)))) + (let ((_%tl155762155785%_ (let () (declare (not safe)) - (##cdr _%e154628154648%_))) - (_%hd154629154651%_ + (##cdr _%e155760155780%_))) + (_%hd155761155783%_ (let () (declare (not safe)) - (##car _%e154628154648%_)))) + (##car _%e155760155780%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154630154653%_)) - (_%__kont169327169328%_ - _%hd154629154651%_ - _%hd154604154857%_) - (let () (declare (not safe)) (_%g154599154635%_))))) - (let () (declare (not safe)) (_%g154599154635%_)))))) + (gx#stx-null? _%tl155762155785%_)) + (_%__kont170459170460%_ + _%hd155761155783%_ + _%hd155736155989%_) + (let () (declare (not safe)) (_%g155731155767%_))))) + (let () (declare (not safe)) (_%g155731155767%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g154599154635%_))))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest154575154583%_)) - (let ((_%hd154580154975%_ + (_%g155731155767%_))))))))) + (if (pair? _%rest155707155715%_) + (let ((_%hd155712156107%_ (let () (declare (not safe)) - (##car _%rest154575154583%_))) - (_%tl154581154977%_ + (##car _%rest155707155715%_))) + (_%tl155713156109%_ (let () (declare (not safe)) - (##cdr _%rest154575154583%_)))) - (let* ((_%hd154980%_ _%hd154580154975%_) - (_%rest154982%_ _%tl154581154977%_)) - (_%K154579154972%_ - _%rest154982%_ - _%hd154980%_))) - (_%else154577154591%_)))))) - (_%lift-kw-lambda?153933%_ - (lambda (_%bind154491%_) - (let* ((_%__stx169389169390%_ _%bind154491%_) - (_%g154494154511%_ + (##cdr _%rest155707155715%_)))) + (let* ((_%hd156112%_ _%hd155712156107%_) + (_%rest156114%_ _%tl155713156109%_)) + (_%K155711156104%_ + _%rest156114%_ + _%hd156112%_))) + (_%else155709155723%_)))))) + (_%lift-kw-lambda?155065%_ + (lambda (_%bind155623%_) + (let* ((_%__stx170521170522%_ _%bind155623%_) + (_%g155626155643%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169389169390%_))))) - (let ((_%__kont169391169392%_ - (lambda (_%L154547%_ _%L154548%_) + _%__stx170521170522%_))))) + (let ((_%__kont170523170524%_ + (lambda (_%L155679%_ _%L155680%_) (if (let () (declare (not safe)) - (gx#identifier? _%L154548%_)) - (gxc#kw-lambda-expr? _%L154547%_) + (gx#identifier? _%L155680%_)) + (gxc#kw-lambda-expr? _%L155679%_) '#f))) - (_%__kont169393169394%_ (lambda () '#f))) + (_%__kont170525170526%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169389169390%_)) - (let ((_%e154498154523%_ + (gx#stx-pair? _%__stx170521170522%_)) + (let ((_%e155630155655%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169389169390%_)))) - (let ((_%tl154500154528%_ + (gx#stx-e _%__stx170521170522%_)))) + (let ((_%tl155632155660%_ (let () (declare (not safe)) - (##cdr _%e154498154523%_))) - (_%hd154499154526%_ + (##cdr _%e155630155655%_))) + (_%hd155631155658%_ (let () (declare (not safe)) - (##car _%e154498154523%_)))) + (##car _%e155630155655%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154499154526%_)) - (let ((_%e154501154531%_ + (gx#stx-pair? _%hd155631155658%_)) + (let ((_%e155633155663%_ (let () (declare (not safe)) - (gx#stx-e _%hd154499154526%_)))) - (let ((_%tl154503154536%_ + (gx#stx-e _%hd155631155658%_)))) + (let ((_%tl155635155668%_ (let () (declare (not safe)) - (##cdr _%e154501154531%_))) - (_%hd154502154534%_ + (##cdr _%e155633155663%_))) + (_%hd155634155666%_ (let () (declare (not safe)) - (##car _%e154501154531%_)))) + (##car _%e155633155663%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154503154536%_)) + _%tl155635155668%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154500154528%_)) - (let ((_%e154504154539%_ + _%tl155632155660%_)) + (let ((_%e155636155671%_ (let () (declare (not safe)) (gx#stx-e - _%tl154500154528%_)))) - (let ((_%tl154506154544%_ + _%tl155632155660%_)))) + (let ((_%tl155638155676%_ (let () (declare (not safe)) - (##cdr _%e154504154539%_))) - (_%hd154505154542%_ + (##cdr _%e155636155671%_))) + (_%hd155637155674%_ (let () (declare (not safe)) - (##car _%e154504154539%_)))) + (##car _%e155636155671%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154506154544%_)) - (_%__kont169391169392%_ - _%hd154505154542%_ - _%hd154502154534%_) - (_%__kont169393169394%_)))) - (_%__kont169393169394%_)) - (_%__kont169393169394%_)))) - (_%__kont169393169394%_)))) - (_%__kont169393169394%_)))))) - (_%lift-kw-lambda-bindings153934%_ - (lambda (_%bindings154101%_) - (let _%lp154103%_ ((_%rest154105%_ _%bindings154101%_) - (_%lift1154106%_ '()) - (_%lift2154107%_ '()) - (_%bind154108%_ '())) - (let* ((_%rest154109154117%_ _%rest154105%_) - (_%else154111154125%_ + _%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%_ (lambda () - (values (reverse _%lift1154106%_) - (reverse _%lift2154107%_) - (reverse _%bind154108%_)))) - (_%K154113154479%_ - (lambda (_%rest154128%_ _%hd154129%_) - (let* ((_%__stx169419169420%_ _%hd154129%_) - (_%g154132154157%_ + (values (reverse _%lift1155238%_) + (reverse _%lift2155239%_) + (reverse _%bind155240%_)))) + (_%K155245155611%_ + (lambda (_%rest155260%_ _%hd155261%_) + (let* ((_%__stx170551170552%_ _%hd155261%_) + (_%g155264155289%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169419169420%_))))) - (let ((_%__kont169421169422%_ - (lambda (_%L154227%_ _%L154228%_) - (let* ((_%g154242154295%_ - (lambda (_%g154243154292%_) + _%__stx170551170552%_))))) + (let ((_%__kont170553170554%_ + (lambda (_%L155359%_ _%L155360%_) + (let* ((_%g155374155427%_ + (lambda (_%g155375155424%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154243154292%_)))) - (_%g154241154473%_ - (lambda (_%g154243154298%_) + _%g155375155424%_)))) + (_%g155373155605%_ + (lambda (_%g155375155430%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g154243154298%_)) - (let ((_%e154249154300%_ + _%g155375155430%_)) + (let ((_%e155381155432%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g154243154298%_)))) - (let ((_%hd154250154303%_ + (gx#stx-e _%g155375155430%_)))) + (let ((_%hd155382155435%_ (let () (declare (not safe)) - (##car _%e154249154300%_))) - (_%tl154251154305%_ + (##car _%e155381155432%_))) + (_%tl155383155437%_ (let () (declare (not safe)) - (##cdr _%e154249154300%_)))) + (##cdr _%e155381155432%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154251154305%_)) - (let ((_%e154252154308%_ + (gx#stx-pair? _%tl155383155437%_)) + (let ((_%e155384155440%_ (let () (declare (not safe)) - (gx#stx-e _%tl154251154305%_)))) - (let ((_%hd154253154311%_ + (gx#stx-e _%tl155383155437%_)))) + (let ((_%hd155385155443%_ (let () (declare (not safe)) - (##car _%e154252154308%_))) - (_%tl154254154313%_ + (##car _%e155384155440%_))) + (_%tl155386155445%_ (let () (declare (not safe)) - (##cdr _%e154252154308%_)))) + (##cdr _%e155384155440%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154253154311%_)) - (let ((_%e154255154316%_ + (gx#stx-pair? _%hd155385155443%_)) + (let ((_%e155387155448%_ (let () (declare (not safe)) - (gx#stx-e _%hd154253154311%_)))) - (let ((_%hd154256154319%_ + (gx#stx-e _%hd155385155443%_)))) + (let ((_%hd155388155451%_ (let () (declare (not safe)) - (##car _%e154255154316%_))) - (_%tl154257154321%_ + (##car _%e155387155448%_))) + (_%tl155389155453%_ (let () (declare (not safe)) - (##cdr _%e154255154316%_)))) + (##cdr _%e155387155448%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154256154319%_)) - (let ((_%e154258154324%_ + (gx#stx-pair? _%hd155388155451%_)) + (let ((_%e155390155456%_ (let () (declare (not safe)) (gx#stx-e - _%hd154256154319%_)))) - (let ((_%hd154259154327%_ + _%hd155388155451%_)))) + (let ((_%hd155391155459%_ (let () (declare (not safe)) - (##car _%e154258154324%_))) - (_%tl154260154329%_ + (##car _%e155390155456%_))) + (_%tl155392155461%_ (let () (declare (not safe)) - (##cdr _%e154258154324%_)))) + (##cdr _%e155390155456%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154259154327%_)) - (let ((_%e154261154332%_ + _%hd155391155459%_)) + (let ((_%e155393155464%_ (let () (declare (not safe)) (gx#stx-e - _%hd154259154327%_)))) - (let ((_%hd154262154335%_ + _%hd155391155459%_)))) + (let ((_%hd155394155467%_ (let () (declare (not safe)) - (##car _%e154261154332%_))) - (_%tl154263154337%_ + (##car _%e155393155464%_))) + (_%tl155395155469%_ (let () (declare (not safe)) - (##cdr _%e154261154332%_)))) + (##cdr _%e155393155464%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154263154337%_)) + _%tl155395155469%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl154260154329%_)) - (let ((_%e154264154340%_ + (gx#stx-pair? _%tl155392155461%_)) + (let ((_%e155396155472%_ (let () (declare (not safe)) - (gx#stx-e _%tl154260154329%_)))) - (let ((_%hd154265154343%_ + (gx#stx-e _%tl155392155461%_)))) + (let ((_%hd155397155475%_ (let () (declare (not safe)) - (##car _%e154264154340%_))) - (_%tl154266154345%_ + (##car _%e155396155472%_))) + (_%tl155398155477%_ (let () (declare (not safe)) - (##cdr _%e154264154340%_)))) + (##cdr _%e155396155472%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154265154343%_)) - (let ((_%e154267154348%_ + (gx#stx-pair? _%hd155397155475%_)) + (let ((_%e155399155480%_ (let () (declare (not safe)) - (gx#stx-e _%hd154265154343%_)))) - (let ((_%hd154268154351%_ + (gx#stx-e _%hd155397155475%_)))) + (let ((_%hd155400155483%_ (let () (declare (not safe)) - (##car _%e154267154348%_))) - (_%tl154269154353%_ + (##car _%e155399155480%_))) + (_%tl155401155485%_ (let () (declare (not safe)) - (##cdr _%e154267154348%_)))) + (##cdr _%e155399155480%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154269154353%_)) - (let ((_%e154270154356%_ + (gx#stx-pair? _%tl155401155485%_)) + (let ((_%e155402155488%_ (let () (declare (not safe)) - (gx#stx-e _%tl154269154353%_)))) - (let ((_%hd154271154359%_ + (gx#stx-e _%tl155401155485%_)))) + (let ((_%hd155403155491%_ (let () (declare (not safe)) - (##car _%e154270154356%_))) - (_%tl154272154361%_ + (##car _%e155402155488%_))) + (_%tl155404155493%_ (let () (declare (not safe)) - (##cdr _%e154270154356%_)))) + (##cdr _%e155402155488%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154271154359%_)) - (let ((_%e154273154364%_ + _%hd155403155491%_)) + (let ((_%e155405155496%_ (let () (declare (not safe)) (gx#stx-e - _%hd154271154359%_)))) - (let ((_%hd154274154367%_ + _%hd155403155491%_)))) + (let ((_%hd155406155499%_ (let () (declare (not safe)) - (##car _%e154273154364%_))) - (_%tl154275154369%_ + (##car _%e155405155496%_))) + (_%tl155407155501%_ (let () (declare (not safe)) - (##cdr _%e154273154364%_)))) + (##cdr _%e155405155496%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154274154367%_)) - (let ((_%e154276154372%_ + _%hd155406155499%_)) + (let ((_%e155408155504%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd154274154367%_)))) - (let ((_%hd154277154375%_ - (let () (declare (not safe)) (##car _%e154276154372%_))) - (_%tl154278154377%_ + (gx#stx-e _%hd155406155499%_)))) + (let ((_%hd155409155507%_ + (let () (declare (not safe)) (##car _%e155408155504%_))) + (_%tl155410155509%_ (let () (declare (not safe)) - (##cdr _%e154276154372%_)))) + (##cdr _%e155408155504%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154277154375%_)) - (let ((_%e154279154380%_ + (gx#stx-pair? _%hd155409155507%_)) + (let ((_%e155411155512%_ (let () (declare (not safe)) - (gx#stx-e _%hd154277154375%_)))) - (let ((_%hd154280154383%_ + (gx#stx-e _%hd155409155507%_)))) + (let ((_%hd155412155515%_ (let () (declare (not safe)) - (##car _%e154279154380%_))) - (_%tl154281154385%_ + (##car _%e155411155512%_))) + (_%tl155413155517%_ (let () (declare (not safe)) - (##cdr _%e154279154380%_)))) + (##cdr _%e155411155512%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154281154385%_)) + (gx#stx-null? _%tl155413155517%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154278154377%_)) - (let ((_%e154282154388%_ + (gx#stx-pair? _%tl155410155509%_)) + (let ((_%e155414155520%_ (let () (declare (not safe)) - (gx#stx-e _%tl154278154377%_)))) - (let ((_%hd154283154391%_ + (gx#stx-e _%tl155410155509%_)))) + (let ((_%hd155415155523%_ (let () (declare (not safe)) - (##car _%e154282154388%_))) - (_%tl154284154393%_ + (##car _%e155414155520%_))) + (_%tl155416155525%_ (let () (declare (not safe)) - (##cdr _%e154282154388%_)))) + (##cdr _%e155414155520%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154284154393%_)) + (gx#stx-null? _%tl155416155525%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154275154369%_)) + _%tl155407155501%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154272154361%_)) - (let ((_%e154285154396%_ + _%tl155404155493%_)) + (let ((_%e155417155528%_ (let () (declare (not safe)) (gx#stx-e - _%tl154272154361%_)))) - (let ((_%hd154286154399%_ + _%tl155404155493%_)))) + (let ((_%hd155418155531%_ (let () (declare (not safe)) - (##car _%e154285154396%_))) - (_%tl154287154401%_ + (##car _%e155417155528%_))) + (_%tl155419155533%_ (let () (declare (not safe)) - (##cdr _%e154285154396%_)))) + (##cdr _%e155417155528%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154287154401%_)) + _%tl155419155533%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl154266154345%_)) + (gx#stx-null? _%tl155398155477%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154257154321%_)) + (gx#stx-null? _%tl155389155453%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154254154313%_)) - (let ((_%e154288154404%_ + (gx#stx-pair? _%tl155386155445%_)) + (let ((_%e155420155536%_ (let () (declare (not safe)) - (gx#stx-e _%tl154254154313%_)))) - (let ((_%hd154289154407%_ + (gx#stx-e _%tl155386155445%_)))) + (let ((_%hd155421155539%_ (let () (declare (not safe)) - (##car _%e154288154404%_))) - (_%tl154290154409%_ + (##car _%e155420155536%_))) + (_%tl155422155541%_ (let () (declare (not safe)) - (##cdr _%e154288154404%_)))) + (##cdr _%e155420155536%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154290154409%_)) - ((lambda (_%L154412%_ - _%L154413%_ - _%L154414%_ - _%L154415%_ - _%L154416%_) - (let* ((_%get-kws-id154456%_ - (let ((__tmp170015 + (gx#stx-null? _%tl155422155541%_)) + ((lambda (_%L155544%_ + _%L155545%_ + _%L155546%_ + _%L155547%_ + _%L155548%_) + (let* ((_%get-kws-id155588%_ + (let ((__tmp171147 (let () (declare (not safe)) (gx#stx-e - _%L154228%_))) - (__tmp170014 + _%L155360%_))) + (__tmp171146 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp170015 - __tmp170014))) - (_%get-kws-id154458%_ - (let ((__tmp170016 + __tmp171147 + __tmp171146))) + (_%get-kws-id155590%_ + (let ((__tmp171148 (let () (declare (not safe)) (gx#stx-source - _%stx153929%_)))) + _%stx155061%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id154456%_ - __tmp170016))) - (_%main-id154460%_ - (let ((__tmp170018 + _%get-kws-id155588%_ + __tmp171148))) + (_%main-id155592%_ + (let ((__tmp171150 (let () (declare (not safe)) (gx#stx-e - _%L154228%_))) - (__tmp170017 + _%L155360%_))) + (__tmp171149 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp170018 - __tmp170017))) - (_%main-id154462%_ - (let ((__tmp170019 + __tmp171150 + __tmp171149))) + (_%main-id155594%_ + (let ((__tmp171151 (let () (declare (not safe)) (gx#stx-source - _%stx153929%_)))) + _%stx155061%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id154460%_ - __tmp170019))) - (_%_154464%_ + _%main-id155592%_ + __tmp171151))) + (_%_155596%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id154458%_))) - (_%_154466%_ + _%get-kws-id155590%_))) + (_%_155598%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id154462%_))) - (_%new-kw-dispatch154468%_ + _%main-id155594%_))) + (_%new-kw-dispatch155600%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154416%_ - _%get-kws-id154458%_ - _%L154412%_))) - (_%new-get-kws154470%_ + _%L155548%_ + _%get-kws-id155590%_ + _%L155544%_))) + (_%new-get-kws155602%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154415%_ - _%main-id154462%_ - _%L154413%_)))) - (let ((__tmp170022 + _%L155547%_ + _%main-id155594%_ + _%L155545%_)))) + (let ((__tmp171154 (let () (declare (not safe)) (gxc#identifier-symbol - _%L154228%_))) - (__tmp170021 + _%L155360%_))) + (__tmp171153 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id154458%_))) - (__tmp170020 + _%get-kws-id155590%_))) + (__tmp171152 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id154462%_)))) + _%main-id155594%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp170022 + __tmp171154 '" => " - __tmp170021 + __tmp171153 '" => " - __tmp170020)) - (_%lp154103%_ - _%rest154128%_ - (cons (_%bind-e__166664166665%_ - _%main-id154462%_ - _%L154414%_ + __tmp171152)) + (_%lp155235%_ + _%rest155260%_ + (cons (_%bind-e__167796167797%_ + _%main-id155594%_ + _%L155546%_ '#f) - _%lift1154106%_) - (cons (_%bind-e__166664166665%_ - _%get-kws-id154458%_ - _%new-get-kws154470%_ + _%lift1155238%_) + (cons (_%bind-e__167796167797%_ + _%get-kws-id155590%_ + _%new-get-kws155602%_ '#f) - _%lift2154107%_) - (cons (_%bind-e__166664166665%_ - _%L154228%_ - _%new-kw-dispatch154468%_ + _%lift2155239%_) + (cons (_%bind-e__167796167797%_ + _%L155360%_ + _%new-kw-dispatch155600%_ '#f) - _%bind154108%_)))) - _%hd154289154407%_ - _%hd154286154399%_ - _%hd154283154391%_ - _%hd154280154383%_ - _%hd154262154335%_) - (_%g154242154295%_ _%g154243154298%_)))) - (_%g154242154295%_ _%g154243154298%_)) - (_%g154242154295%_ _%g154243154298%_)) - (_%g154242154295%_ _%g154243154298%_)) - (_%g154242154295%_ _%g154243154298%_)))) + _%bind155240%_)))) + _%hd155421155539%_ + _%hd155418155531%_ + _%hd155415155523%_ + _%hd155412155515%_ + _%hd155394155467%_) + (_%g155374155427%_ _%g155375155430%_)))) + (_%g155374155427%_ _%g155375155430%_)) + (_%g155374155427%_ _%g155375155430%_)) + (_%g155374155427%_ _%g155375155430%_)) + (_%g155374155427%_ _%g155375155430%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154242154295%_ - _%g154243154298%_)) - (_%g154242154295%_ - _%g154243154298%_)) - (_%g154242154295%_ - _%g154243154298%_)))) - (_%g154242154295%_ _%g154243154298%_)) - (_%g154242154295%_ _%g154243154298%_)))) - (_%g154242154295%_ _%g154243154298%_)))) - (_%g154242154295%_ _%g154243154298%_)))) + (_%g155374155427%_ + _%g155375155430%_)) + (_%g155374155427%_ + _%g155375155430%_)) + (_%g155374155427%_ + _%g155375155430%_)))) + (_%g155374155427%_ _%g155375155430%_)) + (_%g155374155427%_ _%g155375155430%_)))) + (_%g155374155427%_ _%g155375155430%_)))) + (_%g155374155427%_ _%g155375155430%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154242154295%_ - _%g154243154298%_)))) - (_%g154242154295%_ _%g154243154298%_)))) - (_%g154242154295%_ _%g154243154298%_)))) - (_%g154242154295%_ _%g154243154298%_)) - (_%g154242154295%_ _%g154243154298%_)))) + (_%g155374155427%_ + _%g155375155430%_)))) + (_%g155374155427%_ _%g155375155430%_)))) + (_%g155374155427%_ _%g155375155430%_)))) + (_%g155374155427%_ _%g155375155430%_)) + (_%g155374155427%_ _%g155375155430%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154242154295%_ - _%g154243154298%_)))) - (_%g154242154295%_ - _%g154243154298%_)))) - (_%g154242154295%_ _%g154243154298%_)))) - (_%g154242154295%_ _%g154243154298%_)))) - (_%g154242154295%_ _%g154243154298%_))))) + (_%g155374155427%_ + _%g155375155430%_)))) + (_%g155374155427%_ + _%g155375155430%_)))) + (_%g155374155427%_ _%g155375155430%_)))) + (_%g155374155427%_ _%g155375155430%_)))) + (_%g155374155427%_ _%g155375155430%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154241154473%_ - _%L154227%_)))) - (_%__kont169423169424%_ - (lambda (_%L154178%_ _%L154179%_) - (_%lp154103%_ - _%rest154128%_ - _%lift1154106%_ - _%lift2154107%_ - (cons (cons _%L154179%_ - (cons _%L154178%_ + (_%g155373155605%_ + _%L155359%_)))) + (_%__kont170555170556%_ + (lambda (_%L155310%_ _%L155311%_) + (_%lp155235%_ + _%rest155260%_ + _%lift1155238%_ + _%lift2155239%_ + (cons (cons _%L155311%_ + (cons _%L155310%_ '())) - _%bind154108%_))))) - (let ((_%__match169446169447%_ - (lambda (_%e154136154203%_ - _%hd154137154206%_ - _%tl154138154208%_ - _%e154139154211%_ - _%hd154140154214%_ - _%tl154141154216%_ - _%e154142154219%_ - _%hd154143154222%_ - _%tl154144154224%_) - (let ((_%L154227%_ - _%hd154143154222%_) - (_%L154228%_ - _%hd154140154214%_)) + _%bind155240%_))))) + (let ((_%__match170578170579%_ + (lambda (_%e155268155335%_ + _%hd155269155338%_ + _%tl155270155340%_ + _%e155271155343%_ + _%hd155272155346%_ + _%tl155273155348%_ + _%e155274155351%_ + _%hd155275155354%_ + _%tl155276155356%_) + (let ((_%L155359%_ + _%hd155275155354%_) + (_%L155360%_ + _%hd155272155346%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154228%_)) + _%L155360%_)) (gxc#kw-lambda-expr? - _%L154227%_)) - (_%__kont169421169422%_ - _%L154227%_ - _%L154228%_) - (_%__kont169423169424%_ - _%hd154143154222%_ - _%hd154137154206%_)))))) + _%L155359%_)) + (_%__kont170553170554%_ + _%L155359%_ + _%L155360%_) + (_%__kont170555170556%_ + _%hd155275155354%_ + _%hd155269155338%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx169419169420%_)) - (let ((_%e154136154203%_ + _%__stx170551170552%_)) + (let ((_%e155268155335%_ (let () (declare (not safe)) (gx#stx-e - _%__stx169419169420%_)))) - (let ((_%tl154138154208%_ + _%__stx170551170552%_)))) + (let ((_%tl155270155340%_ (let () (declare (not safe)) - (##cdr _%e154136154203%_))) - (_%hd154137154206%_ + (##cdr _%e155268155335%_))) + (_%hd155269155338%_ (let () (declare (not safe)) - (##car _%e154136154203%_)))) + (##car _%e155268155335%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154137154206%_)) - (let ((_%e154139154211%_ + _%hd155269155338%_)) + (let ((_%e155271155343%_ (let () (declare (not safe)) (gx#stx-e - _%hd154137154206%_)))) - (let ((_%tl154141154216%_ + _%hd155269155338%_)))) + (let ((_%tl155273155348%_ (let () (declare (not safe)) - (##cdr _%e154139154211%_))) - (_%hd154140154214%_ + (##cdr _%e155271155343%_))) + (_%hd155272155346%_ (let () (declare (not safe)) - (##car _%e154139154211%_)))) + (##car _%e155271155343%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154141154216%_)) + _%tl155273155348%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl154138154208%_)) - (let ((_%e154142154219%_ + (gx#stx-pair? _%tl155270155340%_)) + (let ((_%e155274155351%_ (let () (declare (not safe)) - (gx#stx-e _%tl154138154208%_)))) - (let ((_%tl154144154224%_ + (gx#stx-e _%tl155270155340%_)))) + (let ((_%tl155276155356%_ (let () (declare (not safe)) - (##cdr _%e154142154219%_))) - (_%hd154143154222%_ + (##cdr _%e155274155351%_))) + (_%hd155275155354%_ (let () (declare (not safe)) - (##car _%e154142154219%_)))) + (##car _%e155274155351%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154144154224%_)) - (_%__match169446169447%_ - _%e154136154203%_ - _%hd154137154206%_ - _%tl154138154208%_ - _%e154139154211%_ - _%hd154140154214%_ - _%tl154141154216%_ - _%e154142154219%_ - _%hd154143154222%_ - _%tl154144154224%_) + (gx#stx-null? _%tl155276155356%_)) + (_%__match170578170579%_ + _%e155268155335%_ + _%hd155269155338%_ + _%tl155270155340%_ + _%e155271155343%_ + _%hd155272155346%_ + _%tl155273155348%_ + _%e155274155351%_ + _%hd155275155354%_ + _%tl155276155356%_) (let () (declare (not safe)) - (_%g154132154157%_))))) - (let () (declare (not safe)) (_%g154132154157%_))) + (_%g155264155289%_))))) + (let () (declare (not safe)) (_%g155264155289%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154138154208%_)) - (let ((_%e154150154170%_ + (gx#stx-pair? _%tl155270155340%_)) + (let ((_%e155282155302%_ (let () (declare (not safe)) - (gx#stx-e _%tl154138154208%_)))) - (let ((_%tl154152154175%_ + (gx#stx-e _%tl155270155340%_)))) + (let ((_%tl155284155307%_ (let () (declare (not safe)) - (##cdr _%e154150154170%_))) - (_%hd154151154173%_ + (##cdr _%e155282155302%_))) + (_%hd155283155305%_ (let () (declare (not safe)) - (##car _%e154150154170%_)))) + (##car _%e155282155302%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154152154175%_)) - (_%__kont169423169424%_ - _%hd154151154173%_ - _%hd154137154206%_) + (gx#stx-null? _%tl155284155307%_)) + (_%__kont170555170556%_ + _%hd155283155305%_ + _%hd155269155338%_) (let () (declare (not safe)) - (_%g154132154157%_))))) - (let () (declare (not safe)) (_%g154132154157%_)))))) + (_%g155264155289%_))))) + (let () (declare (not safe)) (_%g155264155289%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154138154208%_)) - (let ((_%e154150154170%_ + _%tl155270155340%_)) + (let ((_%e155282155302%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl154138154208%_)))) - (let ((_%tl154152154175%_ + (gx#stx-e _%tl155270155340%_)))) + (let ((_%tl155284155307%_ (let () (declare (not safe)) - (##cdr _%e154150154170%_))) - (_%hd154151154173%_ + (##cdr _%e155282155302%_))) + (_%hd155283155305%_ (let () (declare (not safe)) - (##car _%e154150154170%_)))) + (##car _%e155282155302%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154152154175%_)) - (_%__kont169423169424%_ - _%hd154151154173%_ - _%hd154137154206%_) - (let () (declare (not safe)) (_%g154132154157%_))))) - (let () (declare (not safe)) (_%g154132154157%_)))))) + (gx#stx-null? _%tl155284155307%_)) + (_%__kont170555170556%_ + _%hd155283155305%_ + _%hd155269155338%_) + (let () (declare (not safe)) (_%g155264155289%_))))) + (let () (declare (not safe)) (_%g155264155289%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g154132154157%_))))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest154109154117%_)) - (let ((_%hd154114154482%_ + (_%g155264155289%_))))))))) + (if (pair? _%rest155241155249%_) + (let ((_%hd155246155614%_ (let () (declare (not safe)) - (##car _%rest154109154117%_))) - (_%tl154115154484%_ + (##car _%rest155241155249%_))) + (_%tl155247155616%_ (let () (declare (not safe)) - (##cdr _%rest154109154117%_)))) - (let* ((_%hd154487%_ _%hd154114154482%_) - (_%rest154489%_ _%tl154115154484%_)) - (_%K154113154479%_ - _%rest154489%_ - _%hd154487%_))) - (_%else154111154125%_))))))) - (let* ((_%__stx169463169464%_ _%stx153929%_) - (_%g153937153963%_ + (##cdr _%rest155241155249%_)))) + (let* ((_%hd155619%_ _%hd155246155614%_) + (_%rest155621%_ _%tl155247155616%_)) + (_%K155245155611%_ + _%rest155621%_ + _%hd155619%_))) + (_%else155243155257%_))))))) + (let* ((_%__stx170595170596%_ _%stx155061%_) + (_%g155069155095%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169463169464%_))))) - (let ((_%__kont169465169466%_ - (lambda (_%L154023%_ _%L154024%_) - (let ((__tmp170024 + _%__stx170595170596%_))))) + (let ((_%__kont170597170598%_ + (lambda (_%L155155%_ _%L155156%_) + (let ((__tmp171156 (lambda () - (if (let ((__tmp170025 - (let ((__tmp170026 - (lambda (_%g154052154055%_ - _%g154053154057%_) - (cons _%g154052154055%_ - _%g154053154057%_)))) + (if (let ((__tmp171157 + (let ((__tmp171158 + (lambda (_%g155184155187%_ + _%g155185155189%_) + (cons _%g155184155187%_ + _%g155185155189%_)))) (declare (not safe)) (__foldr1 - __tmp170026 + __tmp171158 '() - _%L154024%_)))) + _%L155156%_)))) (declare (not safe)) (__ormap1 - _%lift-kw-lambda?153933%_ - __tmp170025)) - (let ((_g170027_ - (_%lift-kw-lambda-bindings153934%_ - (let ((__tmp170029 - (lambda (_%g154059154062%_ - _%g154060154064%_) - (cons _%g154059154062%_ - _%g154060154064%_)))) + _%lift-kw-lambda?155065%_ + __tmp171157)) + (let ((_g171159_ + (_%lift-kw-lambda-bindings155066%_ + (let ((__tmp171161 + (lambda (_%g155191155194%_ + _%g155192155196%_) + (cons _%g155191155194%_ + _%g155192155196%_)))) (declare (not safe)) (__foldr1 - __tmp170029 + __tmp171161 '() - _%L154024%_))))) + _%L155156%_))))) (begin - (let ((_g170028_ + (let ((_g171160_ (let () (declare (not safe)) - (if (##values? _g170027_) - (##vector-length _g170027_) + (if (##values? _g171159_) + (##vector-length _g171159_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170028_ 3))) + (##fx= _g171160_ 3))) (error "Context expects 3 values" - _g170028_))) - (let ((_%lift1154067%_ + _g171160_))) + (let ((_%lift1155199%_ (let () (declare (not safe)) - (##vector-ref _g170027_ 0))) - (_%lift2154068%_ + (##vector-ref _g171159_ 0))) + (_%lift2155200%_ (let () (declare (not safe)) - (##vector-ref _g170027_ 1))) - (_%hd154069%_ + (##vector-ref _g171159_ 1))) + (_%hd155201%_ (let () (declare (not safe)) - (##vector-ref _g170027_ 2)))) - (let* ((_%expr154071%_ - (let ((__tmp170030 + (##vector-ref _g171159_ 2)))) + (let* ((_%expr155203%_ + (let ((__tmp171162 (cons '%#let-values - (cons _%hd154069%_ + (cons _%hd155201%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L154023%_ '()))))) + (cons _%L155155%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp170030 - _%stx153929%_))) - (_%expr154073%_ - (let ((__tmp170031 + __tmp171162 + _%stx155061%_))) + (_%expr155205%_ + (let ((__tmp171163 (cons '%#let-values - (cons _%lift2154068%_ + (cons _%lift2155200%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr154071%_ '()))))) + (cons _%expr155203%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp170031 - _%stx153929%_))) - (_%expr154075%_ - (let ((__tmp170032 + __tmp171163 + _%stx155061%_))) + (_%expr155207%_ + (let ((__tmp171164 (cons '%#let-values - (cons _%lift1154067%_ + (cons _%lift1155199%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr154073%_ '()))))) + (cons _%expr155205%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp170032 - _%stx153929%_)))) + __tmp171164 + _%stx155061%_)))) (gxc#lift-top-lambda-let-values% - _%self153928%_ - _%expr154075%_))))) - (let ((_g170033_ - (_%compile-bindings153932%_ - (let ((__tmp170035 - (lambda (_%g154077154080%_ - _%g154078154082%_) - (cons _%g154077154080%_ - _%g154078154082%_)))) + _%self155060%_ + _%expr155207%_))))) + (let ((_g171165_ + (_%compile-bindings155064%_ + (let ((__tmp171167 + (lambda (_%g155209155212%_ + _%g155210155214%_) + (cons _%g155209155212%_ + _%g155210155214%_)))) (declare (not safe)) (__foldr1 - __tmp170035 + __tmp171167 '() - _%L154024%_))))) + _%L155156%_))))) (begin - (let ((_g170034_ + (let ((_g171166_ (let () (declare (not safe)) - (if (##values? _g170033_) - (##vector-length _g170033_) + (if (##values? _g171165_) + (##vector-length _g171165_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170034_ 3))) + (##fx= _g171166_ 3))) (error "Context expects 3 values" - _g170034_))) - (let ((_%lift1154085%_ + _g171166_))) + (let ((_%lift1155217%_ (let () (declare (not safe)) - (##vector-ref _g170033_ 0))) - (_%lift2154086%_ + (##vector-ref _g171165_ 0))) + (_%lift2155218%_ (let () (declare (not safe)) - (##vector-ref _g170033_ 1))) - (_%hd154087%_ + (##vector-ref _g171165_ 1))) + (_%hd155219%_ (let () (declare (not safe)) - (##vector-ref _g170033_ 2)))) - (let* ((_%body154089%_ + (##vector-ref _g171165_ 2)))) + (let* ((_%body155221%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153928%_ - _%L154023%_))) - (_%expr154091%_ - (let ((__tmp170036 + _%self155060%_ + _%L155155%_))) + (_%expr155223%_ + (let ((__tmp171168 (cons '%#let-values - (cons _%hd154087%_ + (cons _%hd155219%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body154089%_ '()))))) + (cons _%body155221%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp170036 - _%stx153929%_))) - (_%expr154093%_ - (if (null? _%lift2154086%_) - _%expr154091%_ - (let ((__tmp170037 + __tmp171168 + _%stx155061%_))) + (_%expr155225%_ + (if (null? _%lift2155218%_) + _%expr155223%_ + (let ((__tmp171169 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift2154086%_ (cons _%expr154091%_ '()))))) + (cons _%lift2155218%_ (cons _%expr155223%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp170037 _%stx153929%_)))) + (gxc#xform-wrap-source __tmp171169 _%stx155061%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%expr154095%_ - (if (null? _%lift1154085%_) - _%expr154093%_ - (let ((__tmp170038 + (_%expr155227%_ + (if (null? _%lift1155217%_) + _%expr155225%_ + (let ((__tmp171170 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift1154085%_ (cons _%expr154093%_ '()))))) + (cons _%lift1155217%_ (cons _%expr155225%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp170038 _%stx153929%_))))) + (gxc#xform-wrap-source __tmp171170 _%stx155061%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%expr154095%_))))))) - (__tmp170023 - (let ((__obj169716 + _%expr155227%_))))))) + (__tmp171155 + (let ((__obj170848 (let () (declare (not safe)) (##structure @@ -23025,278 +22999,278 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj169716)) - __obj169716))) + (gx#local-context:::init!__0 __obj170848)) + __obj170848))) (declare (not safe)) (__call-with-parameters - __tmp170024 + __tmp171156 gx#current-expander-context - __tmp170023)))) - (_%__kont169469169470%_ + __tmp171155)))) + (_%__kont170601170602%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self153928%_ _%stx153929%_))))) - (let ((_%__match169490169491%_ - (lambda (_%e153941153975%_ - _%hd153942153978%_ - _%tl153943153980%_ - _%e153944153983%_ - _%hd153945153986%_ - _%tl153946153988%_ - _%__splice169467169468%_ - _%target153947153991%_ - _%tl153949153993%_) - (letrec ((_%loop153950153996%_ - (lambda (_%hd153948153999%_ - _%bind153954154001%_) + (gxc#xform-let-values% _%self155060%_ _%stx155061%_))))) + (let ((_%__match170622170623%_ + (lambda (_%e155073155107%_ + _%hd155074155110%_ + _%tl155075155112%_ + _%e155076155115%_ + _%hd155077155118%_ + _%tl155078155120%_ + _%__splice170599170600%_ + _%target155079155123%_ + _%tl155081155125%_) + (letrec ((_%loop155082155128%_ + (lambda (_%hd155080155131%_ + _%bind155086155133%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153948153999%_)) - (let ((_%e153951154004%_ + (gx#stx-pair? _%hd155080155131%_)) + (let ((_%e155083155136%_ (let () (declare (not safe)) (gx#stx-e - _%hd153948153999%_)))) - (let ((_%lp-tl153953154009%_ + _%hd155080155131%_)))) + (let ((_%lp-tl155085155141%_ (let () (declare (not safe)) - (##cdr _%e153951154004%_))) - (_%lp-hd153952154007%_ + (##cdr _%e155083155136%_))) + (_%lp-hd155084155139%_ (let () (declare (not safe)) - (##car _%e153951154004%_)))) - (_%loop153950153996%_ - _%lp-tl153953154009%_ - (cons _%lp-hd153952154007%_ - _%bind153954154001%_)))) - (let ((_%bind153955154012%_ - (reverse _%bind153954154001%_))) + (##car _%e155083155136%_)))) + (_%loop155082155128%_ + _%lp-tl155085155141%_ + (cons _%lp-hd155084155139%_ + _%bind155086155133%_)))) + (let ((_%bind155087155144%_ + (reverse _%bind155086155133%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153946153988%_)) - (let ((_%e153956154015%_ + _%tl155078155120%_)) + (let ((_%e155088155147%_ (let () (declare (not safe)) (gx#stx-e - _%tl153946153988%_)))) - (let ((_%tl153958154020%_ + _%tl155078155120%_)))) + (let ((_%tl155090155152%_ (let () (declare (not safe)) - (##cdr _%e153956154015%_))) - (_%hd153957154018%_ + (##cdr _%e155088155147%_))) + (_%hd155089155150%_ (let () (declare (not safe)) - (##car _%e153956154015%_)))) + (##car _%e155088155147%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153958154020%_)) - (let ((_%L154023%_ - _%hd153957154018%_) - (_%L154024%_ - _%bind153955154012%_)) - (if (let ((__tmp170039 + _%tl155090155152%_)) + (let ((_%L155155%_ + _%hd155089155150%_) + (_%L155156%_ + _%bind155087155144%_)) + (if (let ((__tmp171171 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp170040 - (lambda (_%g154044154047%_ _%g154045154049%_) - (cons _%g154044154047%_ - _%g154045154049%_)))) + (let ((__tmp171172 + (lambda (_%g155176155179%_ _%g155177155181%_) + (cons _%g155176155179%_ + _%g155177155181%_)))) (declare (not safe)) - (__foldr1 __tmp170040 '() _%L154024%_)))) + (__foldr1 __tmp171172 '() _%L155156%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp170039)) - (_%__kont169465169466%_ _%L154023%_ _%L154024%_) - (_%__kont169469169470%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp171171)) + (_%__kont170597170598%_ _%L155155%_ _%L155156%_) + (_%__kont170601170602%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169469169470%_)))) - (_%__kont169469169470%_))))))) - (_%loop153950153996%_ _%target153947153991%_ '()))))) + (_%__kont170601170602%_)))) + (_%__kont170601170602%_))))))) + (_%loop155082155128%_ _%target155079155123%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169463169464%_)) - (let ((_%e153941153975%_ + (gx#stx-pair? _%__stx170595170596%_)) + (let ((_%e155073155107%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169463169464%_)))) - (let ((_%tl153943153980%_ + (gx#stx-e _%__stx170595170596%_)))) + (let ((_%tl155075155112%_ (let () (declare (not safe)) - (##cdr _%e153941153975%_))) - (_%hd153942153978%_ + (##cdr _%e155073155107%_))) + (_%hd155074155110%_ (let () (declare (not safe)) - (##car _%e153941153975%_)))) + (##car _%e155073155107%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153943153980%_)) - (let ((_%e153944153983%_ + (gx#stx-pair? _%tl155075155112%_)) + (let ((_%e155076155115%_ (let () (declare (not safe)) - (gx#stx-e _%tl153943153980%_)))) - (let ((_%tl153946153988%_ + (gx#stx-e _%tl155075155112%_)))) + (let ((_%tl155078155120%_ (let () (declare (not safe)) - (##cdr _%e153944153983%_))) - (_%hd153945153986%_ + (##cdr _%e155076155115%_))) + (_%hd155077155118%_ (let () (declare (not safe)) - (##car _%e153944153983%_)))) + (##car _%e155076155115%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd153945153986%_)) - (let ((_%__splice169467169468%_ + (gx#stx-pair/null? _%hd155077155118%_)) + (let ((_%__splice170599170600%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd153945153986%_ + _%hd155077155118%_ '0)))) - (let ((_%tl153949153993%_ + (let ((_%tl155081155125%_ (let () (declare (not safe)) (##vector-ref - _%__splice169467169468%_ + _%__splice170599170600%_ '1))) - (_%target153947153991%_ + (_%target155079155123%_ (let () (declare (not safe)) (##vector-ref - _%__splice169467169468%_ + _%__splice170599170600%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153949153993%_)) - (_%__match169490169491%_ - _%e153941153975%_ - _%hd153942153978%_ - _%tl153943153980%_ - _%e153944153983%_ - _%hd153945153986%_ - _%tl153946153988%_ - _%__splice169467169468%_ - _%target153947153991%_ - _%tl153949153993%_) - (_%__kont169469169470%_)))) - (_%__kont169469169470%_)))) - (_%__kont169469169470%_)))) - (_%__kont169469169470%_)))))))) + _%tl155081155125%_)) + (_%__match170622170623%_ + _%e155073155107%_ + _%hd155074155110%_ + _%tl155075155112%_ + _%e155076155115%_ + _%hd155077155118%_ + _%tl155078155120%_ + _%__splice170599170600%_ + _%target155079155123%_ + _%tl155081155125%_) + (_%__kont170601170602%_)))) + (_%__kont170601170602%_)))) + (_%__kont170601170602%_)))) + (_%__kont170601170602%_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_%self153067%_ _%stx153068%_) - (letrec* ((_%bind-e__166669166670%_ - (lambda (_%id153912%_ _%expr153913%_ _%compile?153914%_) - (cons (cons _%id153912%_ '()) - (cons (if _%compile?153914%_ + (lambda (_%self154199%_ _%stx154200%_) + (letrec* ((_%bind-e__167801167802%_ + (lambda (_%id155044%_ _%expr155045%_ _%compile?155046%_) + (cons (cons _%id155044%_ '()) + (cons (if _%compile?155046%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153067%_ - _%expr153913%_)) - _%expr153913%_) + _%self154199%_ + _%expr155045%_)) + _%expr155045%_) '())))) - (_%bind-e__0__166671166672%_ - (lambda (_%id153919%_ _%expr153920%_) - (let ((_%compile?153922%_ '#t)) - (_%bind-e__166669166670%_ - _%id153919%_ - _%expr153920%_ - _%compile?153922%_)))) - (_%bind-e153070%_ - (lambda _g170042_ - (let ((_g170041_ + (_%bind-e__0__167803167804%_ + (lambda (_%id155051%_ _%expr155052%_) + (let ((_%compile?155054%_ '#t)) + (_%bind-e__167801167802%_ + _%id155051%_ + _%expr155052%_ + _%compile?155054%_)))) + (_%bind-e154202%_ + (lambda _g171174_ + (let ((_g171173_ (let () (declare (not safe)) - (##length _g170042_)))) - (cond ((let () (declare (not safe)) (##fx= _g170041_ 2)) - (apply _%bind-e__0__166671166672%_ _g170042_)) - ((let () (declare (not safe)) (##fx= _g170041_ 3)) - (apply _%bind-e__166669166670%_ _g170042_)) + (##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_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g170042_)))))) - (_%compile-bindings153071%_ - (lambda (_%rest153206%_) - (let _%lp153208%_ ((_%rest153210%_ _%rest153206%_) - (_%bind153211%_ '())) - (let* ((_%rest153212153220%_ _%rest153210%_) - (_%else153214153228%_ - (lambda () (reverse _%bind153211%_))) - (_%K153216153899%_ - (lambda (_%rest153231%_ _%hd153232%_) - (let* ((_%__stx169513169514%_ _%hd153232%_) - (_%g153237153284%_ + _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%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169513169514%_))))) - (let ((_%__kont169515169516%_ - (lambda (_%L153805%_ _%L153806%_) - (let* ((_%__stx169493169494%_ - _%L153805%_) - (_%g153821153835%_ + _%__stx170645170646%_))))) + (let ((_%__kont170647170648%_ + (lambda (_%L154937%_ _%L154938%_) + (let* ((_%__stx170625170626%_ + _%L154937%_) + (_%g154953154967%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169493169494%_))))) - (let ((_%__kont169495169496%_ - (lambda (_%L153884%_) - (_%lp153208%_ - _%rest153231%_ - (cons (_%bind-e__166669166670%_ - _%L153806%_ - _%L153805%_ + _%__stx170625170626%_))))) + (let ((_%__kont170627170628%_ + (lambda (_%L155016%_) + (_%lp154340%_ + _%rest154363%_ + (cons (_%bind-e__167801167802%_ + _%L154938%_ + _%L154937%_ '#f) - _%bind153211%_)))) - (_%__kont169497169498%_ - (lambda (_%L153848%_) - (let ((_g170043_ + _%bind154343%_)))) + (_%__kont170629170630%_ + (lambda (_%L154980%_) + (let ((_g171175_ (gxc#lift-case-lambda-clauses__% - _%stx153068%_ - _%L153806%_ - _%L153848%_ + _%stx154200%_ + _%L154938%_ + _%L154980%_ '#t))) (begin - (let ((_g170044_ + (let ((_g171176_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g170043_) - (##vector-length _g170043_) + (if (##values? _g171175_) + (##vector-length _g171175_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170044_ 3))) - (error "Context expects 3 values" _g170044_))) - (let ((_%ids153858%_ + (##fx= _g171176_ 3))) + (error "Context expects 3 values" _g171176_))) + (let ((_%ids154990%_ (let () (declare (not safe)) - (##vector-ref _g170043_ 0))) - (_%impls153859%_ + (##vector-ref _g171175_ 0))) + (_%impls154991%_ (let () (declare (not safe)) - (##vector-ref _g170043_ 1))) - (_%clauses153860%_ + (##vector-ref _g171175_ 1))) + (_%clauses154992%_ (let () (declare (not safe)) - (##vector-ref _g170043_ 2)))) - (let* ((_%_153862%_ - (for-each gx#core-bind-runtime! _%ids153858%_)) - (_%xbind153864%_ - (map _%bind-e153070%_ - _%ids153858%_ - _%impls153859%_)) - (_%expr*153866%_ - (let ((__tmp170046 - (cons '%#case-lambda _%clauses153860%_)) - (__tmp170045 + (##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 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -23304,1017 +23278,1015 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp170046 - __tmp170045))) - (_%bind*153868%_ - (_%bind-e__166669166670%_ - _%L153806%_ - _%expr*153866%_ + __tmp171178 + __tmp171177))) + (_%bind*155000%_ + (_%bind-e__167801167802%_ + _%L154938%_ + _%expr*154998%_ '#f))) - (let ((__tmp170048 + (let ((__tmp171180 (let () (declare (not safe)) - (gxc#identifier-symbol _%L153806%_))) - (__tmp170047 - (map gxc#identifier-symbol _%ids153858%_))) + (gxc#identifier-symbol _%L154938%_))) + (__tmp171179 + (map gxc#identifier-symbol _%ids154990%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp170048 + __tmp171180 '" => " - __tmp170047)) - (_%lp153208%_ - _%rest153231%_ - (cons _%bind*153868%_ + __tmp171179)) + (_%lp154340%_ + _%rest154363%_ + (cons _%bind*155000%_ (let () (declare (not safe)) (__foldl1 cons - _%bind153211%_ - _%xbind153864%_))))))))))) + _%bind154343%_ + _%xbind154996%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match169504169505%_ - (lambda (_%e153824153876%_ - _%hd153825153879%_ - _%tl153826153881%_) - (let ((_%L153884%_ - _%tl153826153881%_)) + (let ((_%__match170636170637%_ + (lambda (_%e154956155008%_ + _%hd154957155011%_ + _%tl154958155013%_) + (let ((_%L155016%_ + _%tl154958155013%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L153884%_)) - (_%__kont169495169496%_ _%L153884%_) - (_%__kont169497169498%_ _%tl153826153881%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L155016%_)) + (_%__kont170627170628%_ _%L155016%_) + (_%__kont170629170630%_ _%tl154958155013%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx169493169494%_)) - (let ((_%e153824153876%_ + _%__stx170625170626%_)) + (let ((_%e154956155008%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx169493169494%_)))) - (let ((_%tl153826153881%_ - (let () (declare (not safe)) (##cdr _%e153824153876%_))) - (_%hd153825153879%_ + (gx#stx-e _%__stx170625170626%_)))) + (let ((_%tl154958155013%_ + (let () (declare (not safe)) (##cdr _%e154956155008%_))) + (_%hd154957155011%_ (let () (declare (not safe)) - (##car _%e153824153876%_)))) - (_%__match169504169505%_ - _%e153824153876%_ - _%hd153825153879%_ - _%tl153826153881%_))) - (let () (declare (not safe)) (_%g153821153835%_)))))))) + (##car _%e154956155008%_)))) + (_%__match170636170637%_ + _%e154956155008%_ + _%hd154957155011%_ + _%tl154958155013%_))) + (let () (declare (not safe)) (_%g154953154967%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169517169518%_ - (lambda (_%L153632%_ _%L153633%_) - (let* ((_%g153647153677%_ - (lambda (_%g153648153674%_) + (_%__kont170649170650%_ + (lambda (_%L154764%_ _%L154765%_) + (let* ((_%g154779154809%_ + (lambda (_%g154780154806%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153648153674%_)))) - (_%g153646153773%_ - (lambda (_%g153648153680%_) + _%g154780154806%_)))) + (_%g154778154905%_ + (lambda (_%g154780154812%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g153648153680%_)) - (let ((_%e153652153682%_ + _%g154780154812%_)) + (let ((_%e154784154814%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g153648153680%_)))) - (let ((_%hd153653153685%_ + (gx#stx-e _%g154780154812%_)))) + (let ((_%hd154785154817%_ (let () (declare (not safe)) - (##car _%e153652153682%_))) - (_%tl153654153687%_ + (##car _%e154784154814%_))) + (_%tl154786154819%_ (let () (declare (not safe)) - (##cdr _%e153652153682%_)))) + (##cdr _%e154784154814%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153654153687%_)) - (let ((_%e153655153690%_ + (gx#stx-pair? _%tl154786154819%_)) + (let ((_%e154787154822%_ (let () (declare (not safe)) - (gx#stx-e _%tl153654153687%_)))) - (let ((_%hd153656153693%_ + (gx#stx-e _%tl154786154819%_)))) + (let ((_%hd154788154825%_ (let () (declare (not safe)) - (##car _%e153655153690%_))) - (_%tl153657153695%_ + (##car _%e154787154822%_))) + (_%tl154789154827%_ (let () (declare (not safe)) - (##cdr _%e153655153690%_)))) + (##cdr _%e154787154822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153656153693%_)) - (let ((_%e153658153698%_ + (gx#stx-pair? _%hd154788154825%_)) + (let ((_%e154790154830%_ (let () (declare (not safe)) - (gx#stx-e _%hd153656153693%_)))) - (let ((_%hd153659153701%_ + (gx#stx-e _%hd154788154825%_)))) + (let ((_%hd154791154833%_ (let () (declare (not safe)) - (##car _%e153658153698%_))) - (_%tl153660153703%_ + (##car _%e154790154830%_))) + (_%tl154792154835%_ (let () (declare (not safe)) - (##cdr _%e153658153698%_)))) + (##cdr _%e154790154830%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153659153701%_)) - (let ((_%e153661153706%_ + (gx#stx-pair? _%hd154791154833%_)) + (let ((_%e154793154838%_ (let () (declare (not safe)) (gx#stx-e - _%hd153659153701%_)))) - (let ((_%hd153662153709%_ + _%hd154791154833%_)))) + (let ((_%hd154794154841%_ (let () (declare (not safe)) - (##car _%e153661153706%_))) - (_%tl153663153711%_ + (##car _%e154793154838%_))) + (_%tl154795154843%_ (let () (declare (not safe)) - (##cdr _%e153661153706%_)))) + (##cdr _%e154793154838%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153662153709%_)) - (let ((_%e153664153714%_ + _%hd154794154841%_)) + (let ((_%e154796154846%_ (let () (declare (not safe)) (gx#stx-e - _%hd153662153709%_)))) - (let ((_%hd153665153717%_ + _%hd154794154841%_)))) + (let ((_%hd154797154849%_ (let () (declare (not safe)) - (##car _%e153664153714%_))) - (_%tl153666153719%_ + (##car _%e154796154846%_))) + (_%tl154798154851%_ (let () (declare (not safe)) - (##cdr _%e153664153714%_)))) + (##cdr _%e154796154846%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153666153719%_)) + _%tl154798154851%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl153663153711%_)) - (let ((_%e153667153722%_ + (gx#stx-pair? _%tl154795154843%_)) + (let ((_%e154799154854%_ (let () (declare (not safe)) - (gx#stx-e _%tl153663153711%_)))) - (let ((_%hd153668153725%_ + (gx#stx-e _%tl154795154843%_)))) + (let ((_%hd154800154857%_ (let () (declare (not safe)) - (##car _%e153667153722%_))) - (_%tl153669153727%_ + (##car _%e154799154854%_))) + (_%tl154801154859%_ (let () (declare (not safe)) - (##cdr _%e153667153722%_)))) + (##cdr _%e154799154854%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153669153727%_)) + (gx#stx-null? _%tl154801154859%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153660153703%_)) + (gx#stx-null? _%tl154792154835%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153657153695%_)) - (let ((_%e153670153730%_ + (gx#stx-pair? _%tl154789154827%_)) + (let ((_%e154802154862%_ (let () (declare (not safe)) - (gx#stx-e _%tl153657153695%_)))) - (let ((_%hd153671153733%_ + (gx#stx-e _%tl154789154827%_)))) + (let ((_%hd154803154865%_ (let () (declare (not safe)) - (##car _%e153670153730%_))) - (_%tl153672153735%_ + (##car _%e154802154862%_))) + (_%tl154804154867%_ (let () (declare (not safe)) - (##cdr _%e153670153730%_)))) + (##cdr _%e154802154862%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153672153735%_)) - ((lambda (_%L153738%_ - _%L153739%_ - _%L153740%_) - (let* ((_%lambda-id153764%_ - (let ((__tmp170050 + _%tl154804154867%_)) + ((lambda (_%L154870%_ + _%L154871%_ + _%L154872%_) + (let* ((_%lambda-id154896%_ + (let ((__tmp171182 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L153633%_))) - (__tmp170049 + (gx#stx-e _%L154765%_))) + (__tmp171181 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp170050 __tmp170049))) - (_%lambda-id153766%_ - (let ((__tmp170051 + (make-symbol__1 __tmp171182 __tmp171181))) + (_%lambda-id154898%_ + (let ((__tmp171183 (let () (declare (not safe)) - (gx#stx-source _%stx153068%_)))) + (gx#stx-source _%stx154200%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id153764%_ __tmp170051))) - (_%_153768%_ + (gx#core-quote-syntax__1 _%lambda-id154896%_ __tmp171183))) + (_%_154900%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id153766%_))) - (_%new-case-lambda-expr153770%_ + (gx#core-bind-runtime!__0 _%lambda-id154898%_))) + (_%new-case-lambda-expr154902%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L153740%_ - _%lambda-id153766%_ - _%L153738%_)))) + _%L154872%_ + _%lambda-id154898%_ + _%L154870%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp170053 + (let ((__tmp171185 (let () (declare (not safe)) (gxc#identifier-symbol - _%L153633%_))) - (__tmp170052 + _%L154765%_))) + (__tmp171184 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id153766%_)))) + _%lambda-id154898%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp170053 + __tmp171185 '" => " - __tmp170052)) - (_%lp153208%_ - (cons (_%bind-e__166669166670%_ - _%L153633%_ - _%new-case-lambda-expr153770%_ + __tmp171184)) + (_%lp154340%_ + (cons (_%bind-e__167801167802%_ + _%L154765%_ + _%new-case-lambda-expr154902%_ '#f) - _%rest153231%_) - (cons (_%bind-e__0__166671166672%_ - _%lambda-id153766%_ - _%L153739%_) - _%bind153211%_)))) - _%hd153671153733%_ - _%hd153668153725%_ - _%hd153665153717%_) - (_%g153647153677%_ - _%g153648153680%_)))) - (_%g153647153677%_ _%g153648153680%_)) - (_%g153647153677%_ _%g153648153680%_)) - (_%g153647153677%_ _%g153648153680%_)))) - (_%g153647153677%_ _%g153648153680%_)) - (_%g153647153677%_ _%g153648153680%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153647153677%_ - _%g153648153680%_)))) - (_%g153647153677%_ - _%g153648153680%_)))) - (_%g153647153677%_ _%g153648153680%_)))) - (_%g153647153677%_ _%g153648153680%_)))) - (_%g153647153677%_ _%g153648153680%_))))) + (_%g154779154809%_ + _%g154780154812%_)))) + (_%g154779154809%_ + _%g154780154812%_)))) + (_%g154779154809%_ _%g154780154812%_)))) + (_%g154779154809%_ _%g154780154812%_)))) + (_%g154779154809%_ _%g154780154812%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153646153773%_ - _%L153632%_)))) - (_%__kont169519169520%_ - (lambda (_%L153354%_ _%L153355%_) - (let* ((_%g153369153422%_ - (lambda (_%g153370153419%_) + (_%g154778154905%_ + _%L154764%_)))) + (_%__kont170651170652%_ + (lambda (_%L154486%_ _%L154487%_) + (let* ((_%g154501154554%_ + (lambda (_%g154502154551%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153370153419%_)))) - (_%g153368153600%_ - (lambda (_%g153370153425%_) + _%g154502154551%_)))) + (_%g154500154732%_ + (lambda (_%g154502154557%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g153370153425%_)) - (let ((_%e153376153427%_ + _%g154502154557%_)) + (let ((_%e154508154559%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g153370153425%_)))) - (let ((_%hd153377153430%_ + (gx#stx-e _%g154502154557%_)))) + (let ((_%hd154509154562%_ (let () (declare (not safe)) - (##car _%e153376153427%_))) - (_%tl153378153432%_ + (##car _%e154508154559%_))) + (_%tl154510154564%_ (let () (declare (not safe)) - (##cdr _%e153376153427%_)))) + (##cdr _%e154508154559%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153378153432%_)) - (let ((_%e153379153435%_ + (gx#stx-pair? _%tl154510154564%_)) + (let ((_%e154511154567%_ (let () (declare (not safe)) - (gx#stx-e _%tl153378153432%_)))) - (let ((_%hd153380153438%_ + (gx#stx-e _%tl154510154564%_)))) + (let ((_%hd154512154570%_ (let () (declare (not safe)) - (##car _%e153379153435%_))) - (_%tl153381153440%_ + (##car _%e154511154567%_))) + (_%tl154513154572%_ (let () (declare (not safe)) - (##cdr _%e153379153435%_)))) + (##cdr _%e154511154567%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153380153438%_)) - (let ((_%e153382153443%_ + (gx#stx-pair? _%hd154512154570%_)) + (let ((_%e154514154575%_ (let () (declare (not safe)) - (gx#stx-e _%hd153380153438%_)))) - (let ((_%hd153383153446%_ + (gx#stx-e _%hd154512154570%_)))) + (let ((_%hd154515154578%_ (let () (declare (not safe)) - (##car _%e153382153443%_))) - (_%tl153384153448%_ + (##car _%e154514154575%_))) + (_%tl154516154580%_ (let () (declare (not safe)) - (##cdr _%e153382153443%_)))) + (##cdr _%e154514154575%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153383153446%_)) - (let ((_%e153385153451%_ + (gx#stx-pair? _%hd154515154578%_)) + (let ((_%e154517154583%_ (let () (declare (not safe)) (gx#stx-e - _%hd153383153446%_)))) - (let ((_%hd153386153454%_ + _%hd154515154578%_)))) + (let ((_%hd154518154586%_ (let () (declare (not safe)) - (##car _%e153385153451%_))) - (_%tl153387153456%_ + (##car _%e154517154583%_))) + (_%tl154519154588%_ (let () (declare (not safe)) - (##cdr _%e153385153451%_)))) + (##cdr _%e154517154583%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153386153454%_)) - (let ((_%e153388153459%_ + _%hd154518154586%_)) + (let ((_%e154520154591%_ (let () (declare (not safe)) (gx#stx-e - _%hd153386153454%_)))) - (let ((_%hd153389153462%_ + _%hd154518154586%_)))) + (let ((_%hd154521154594%_ (let () (declare (not safe)) - (##car _%e153388153459%_))) - (_%tl153390153464%_ + (##car _%e154520154591%_))) + (_%tl154522154596%_ (let () (declare (not safe)) - (##cdr _%e153388153459%_)))) + (##cdr _%e154520154591%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153390153464%_)) + _%tl154522154596%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl153387153456%_)) - (let ((_%e153391153467%_ + (gx#stx-pair? _%tl154519154588%_)) + (let ((_%e154523154599%_ (let () (declare (not safe)) - (gx#stx-e _%tl153387153456%_)))) - (let ((_%hd153392153470%_ + (gx#stx-e _%tl154519154588%_)))) + (let ((_%hd154524154602%_ (let () (declare (not safe)) - (##car _%e153391153467%_))) - (_%tl153393153472%_ + (##car _%e154523154599%_))) + (_%tl154525154604%_ (let () (declare (not safe)) - (##cdr _%e153391153467%_)))) + (##cdr _%e154523154599%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153392153470%_)) - (let ((_%e153394153475%_ + (gx#stx-pair? _%hd154524154602%_)) + (let ((_%e154526154607%_ (let () (declare (not safe)) - (gx#stx-e _%hd153392153470%_)))) - (let ((_%hd153395153478%_ + (gx#stx-e _%hd154524154602%_)))) + (let ((_%hd154527154610%_ (let () (declare (not safe)) - (##car _%e153394153475%_))) - (_%tl153396153480%_ + (##car _%e154526154607%_))) + (_%tl154528154612%_ (let () (declare (not safe)) - (##cdr _%e153394153475%_)))) + (##cdr _%e154526154607%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153396153480%_)) - (let ((_%e153397153483%_ + (gx#stx-pair? _%tl154528154612%_)) + (let ((_%e154529154615%_ (let () (declare (not safe)) - (gx#stx-e _%tl153396153480%_)))) - (let ((_%hd153398153486%_ + (gx#stx-e _%tl154528154612%_)))) + (let ((_%hd154530154618%_ (let () (declare (not safe)) - (##car _%e153397153483%_))) - (_%tl153399153488%_ + (##car _%e154529154615%_))) + (_%tl154531154620%_ (let () (declare (not safe)) - (##cdr _%e153397153483%_)))) + (##cdr _%e154529154615%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153398153486%_)) - (let ((_%e153400153491%_ + _%hd154530154618%_)) + (let ((_%e154532154623%_ (let () (declare (not safe)) (gx#stx-e - _%hd153398153486%_)))) - (let ((_%hd153401153494%_ + _%hd154530154618%_)))) + (let ((_%hd154533154626%_ (let () (declare (not safe)) - (##car _%e153400153491%_))) - (_%tl153402153496%_ + (##car _%e154532154623%_))) + (_%tl154534154628%_ (let () (declare (not safe)) - (##cdr _%e153400153491%_)))) + (##cdr _%e154532154623%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153401153494%_)) - (let ((_%e153403153499%_ + _%hd154533154626%_)) + (let ((_%e154535154631%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd153401153494%_)))) - (let ((_%hd153404153502%_ - (let () (declare (not safe)) (##car _%e153403153499%_))) - (_%tl153405153504%_ + (gx#stx-e _%hd154533154626%_)))) + (let ((_%hd154536154634%_ + (let () (declare (not safe)) (##car _%e154535154631%_))) + (_%tl154537154636%_ (let () (declare (not safe)) - (##cdr _%e153403153499%_)))) + (##cdr _%e154535154631%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153404153502%_)) - (let ((_%e153406153507%_ + (gx#stx-pair? _%hd154536154634%_)) + (let ((_%e154538154639%_ (let () (declare (not safe)) - (gx#stx-e _%hd153404153502%_)))) - (let ((_%hd153407153510%_ + (gx#stx-e _%hd154536154634%_)))) + (let ((_%hd154539154642%_ (let () (declare (not safe)) - (##car _%e153406153507%_))) - (_%tl153408153512%_ + (##car _%e154538154639%_))) + (_%tl154540154644%_ (let () (declare (not safe)) - (##cdr _%e153406153507%_)))) + (##cdr _%e154538154639%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153408153512%_)) + (gx#stx-null? _%tl154540154644%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153405153504%_)) - (let ((_%e153409153515%_ + (gx#stx-pair? _%tl154537154636%_)) + (let ((_%e154541154647%_ (let () (declare (not safe)) - (gx#stx-e _%tl153405153504%_)))) - (let ((_%hd153410153518%_ + (gx#stx-e _%tl154537154636%_)))) + (let ((_%hd154542154650%_ (let () (declare (not safe)) - (##car _%e153409153515%_))) - (_%tl153411153520%_ + (##car _%e154541154647%_))) + (_%tl154543154652%_ (let () (declare (not safe)) - (##cdr _%e153409153515%_)))) + (##cdr _%e154541154647%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153411153520%_)) + (gx#stx-null? _%tl154543154652%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153402153496%_)) + _%tl154534154628%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153399153488%_)) - (let ((_%e153412153523%_ + _%tl154531154620%_)) + (let ((_%e154544154655%_ (let () (declare (not safe)) (gx#stx-e - _%tl153399153488%_)))) - (let ((_%hd153413153526%_ + _%tl154531154620%_)))) + (let ((_%hd154545154658%_ (let () (declare (not safe)) - (##car _%e153412153523%_))) - (_%tl153414153528%_ + (##car _%e154544154655%_))) + (_%tl154546154660%_ (let () (declare (not safe)) - (##cdr _%e153412153523%_)))) + (##cdr _%e154544154655%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153414153528%_)) + _%tl154546154660%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl153393153472%_)) + (gx#stx-null? _%tl154525154604%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153384153448%_)) + (gx#stx-null? _%tl154516154580%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153381153440%_)) - (let ((_%e153415153531%_ + (gx#stx-pair? _%tl154513154572%_)) + (let ((_%e154547154663%_ (let () (declare (not safe)) - (gx#stx-e _%tl153381153440%_)))) - (let ((_%hd153416153534%_ + (gx#stx-e _%tl154513154572%_)))) + (let ((_%hd154548154666%_ (let () (declare (not safe)) - (##car _%e153415153531%_))) - (_%tl153417153536%_ + (##car _%e154547154663%_))) + (_%tl154549154668%_ (let () (declare (not safe)) - (##cdr _%e153415153531%_)))) + (##cdr _%e154547154663%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153417153536%_)) - ((lambda (_%L153539%_ - _%L153540%_ - _%L153541%_ - _%L153542%_ - _%L153543%_) - (let* ((_%get-kws-id153583%_ - (let ((__tmp170055 + (gx#stx-null? _%tl154549154668%_)) + ((lambda (_%L154671%_ + _%L154672%_ + _%L154673%_ + _%L154674%_ + _%L154675%_) + (let* ((_%get-kws-id154715%_ + (let ((__tmp171187 (let () (declare (not safe)) (gx#stx-e - _%L153355%_))) - (__tmp170054 + _%L154487%_))) + (__tmp171186 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp170055 - __tmp170054))) - (_%get-kws-id153585%_ - (let ((__tmp170056 + __tmp171187 + __tmp171186))) + (_%get-kws-id154717%_ + (let ((__tmp171188 (let () (declare (not safe)) (gx#stx-source - _%stx153068%_)))) + _%stx154200%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id153583%_ - __tmp170056))) - (_%main-id153587%_ - (let ((__tmp170058 + _%get-kws-id154715%_ + __tmp171188))) + (_%main-id154719%_ + (let ((__tmp171190 (let () (declare (not safe)) (gx#stx-e - _%L153355%_))) - (__tmp170057 + _%L154487%_))) + (__tmp171189 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp170058 - __tmp170057))) - (_%main-id153589%_ - (let ((__tmp170059 + __tmp171190 + __tmp171189))) + (_%main-id154721%_ + (let ((__tmp171191 (let () (declare (not safe)) (gx#stx-source - _%stx153068%_)))) + _%stx154200%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id153587%_ - __tmp170059))) - (_%_153591%_ + _%main-id154719%_ + __tmp171191))) + (_%_154723%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id153585%_))) - (_%_153593%_ + _%get-kws-id154717%_))) + (_%_154725%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id153589%_))) - (_%new-kw-dispatch153595%_ + _%main-id154721%_))) + (_%new-kw-dispatch154727%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L153543%_ - _%get-kws-id153585%_ - _%L153539%_))) - (_%new-get-kws153597%_ + _%L154675%_ + _%get-kws-id154717%_ + _%L154671%_))) + (_%new-get-kws154729%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L153542%_ - _%main-id153589%_ - _%L153540%_)))) - (let ((__tmp170062 + _%L154674%_ + _%main-id154721%_ + _%L154672%_)))) + (let ((__tmp171194 (let () (declare (not safe)) (gxc#identifier-symbol - _%L153355%_))) - (__tmp170061 + _%L154487%_))) + (__tmp171193 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id153585%_))) - (__tmp170060 + _%get-kws-id154717%_))) + (__tmp171192 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id153589%_)))) + _%main-id154721%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp170062 + __tmp171194 '" => " - __tmp170061 + __tmp171193 '" => " - __tmp170060)) - (_%lp153208%_ - (cons (_%bind-e__166669166670%_ - _%main-id153589%_ - _%L153541%_ + __tmp171192)) + (_%lp154340%_ + (cons (_%bind-e__167801167802%_ + _%main-id154721%_ + _%L154673%_ '#f) - (cons (_%bind-e__166669166670%_ - _%get-kws-id153585%_ - _%new-get-kws153597%_ + (cons (_%bind-e__167801167802%_ + _%get-kws-id154717%_ + _%new-get-kws154729%_ '#f) - (cons (_%bind-e__166669166670%_ - _%L153355%_ - _%new-kw-dispatch153595%_ + (cons (_%bind-e__167801167802%_ + _%L154487%_ + _%new-kw-dispatch154727%_ '#f) - _%rest153231%_))) - _%bind153211%_))) - _%hd153416153534%_ - _%hd153413153526%_ - _%hd153410153518%_ - _%hd153407153510%_ - _%hd153389153462%_) - (_%g153369153422%_ _%g153370153425%_)))) - (_%g153369153422%_ _%g153370153425%_)) - (_%g153369153422%_ _%g153370153425%_)) - (_%g153369153422%_ _%g153370153425%_)) - (_%g153369153422%_ _%g153370153425%_)))) + _%rest154363%_))) + _%bind154343%_))) + _%hd154548154666%_ + _%hd154545154658%_ + _%hd154542154650%_ + _%hd154539154642%_ + _%hd154521154594%_) + (_%g154501154554%_ _%g154502154557%_)))) + (_%g154501154554%_ _%g154502154557%_)) + (_%g154501154554%_ _%g154502154557%_)) + (_%g154501154554%_ _%g154502154557%_)) + (_%g154501154554%_ _%g154502154557%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153369153422%_ - _%g153370153425%_)) - (_%g153369153422%_ - _%g153370153425%_)) - (_%g153369153422%_ - _%g153370153425%_)))) - (_%g153369153422%_ _%g153370153425%_)) - (_%g153369153422%_ _%g153370153425%_)))) - (_%g153369153422%_ _%g153370153425%_)))) - (_%g153369153422%_ _%g153370153425%_)))) + (_%g154501154554%_ + _%g154502154557%_)) + (_%g154501154554%_ + _%g154502154557%_)) + (_%g154501154554%_ + _%g154502154557%_)))) + (_%g154501154554%_ _%g154502154557%_)) + (_%g154501154554%_ _%g154502154557%_)))) + (_%g154501154554%_ _%g154502154557%_)))) + (_%g154501154554%_ _%g154502154557%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153369153422%_ - _%g153370153425%_)))) - (_%g153369153422%_ _%g153370153425%_)))) - (_%g153369153422%_ _%g153370153425%_)))) - (_%g153369153422%_ _%g153370153425%_)) - (_%g153369153422%_ _%g153370153425%_)))) + (_%g154501154554%_ + _%g154502154557%_)))) + (_%g154501154554%_ _%g154502154557%_)))) + (_%g154501154554%_ _%g154502154557%_)))) + (_%g154501154554%_ _%g154502154557%_)) + (_%g154501154554%_ _%g154502154557%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153369153422%_ - _%g153370153425%_)))) - (_%g153369153422%_ - _%g153370153425%_)))) - (_%g153369153422%_ _%g153370153425%_)))) - (_%g153369153422%_ _%g153370153425%_)))) - (_%g153369153422%_ _%g153370153425%_))))) + (_%g154501154554%_ + _%g154502154557%_)))) + (_%g154501154554%_ + _%g154502154557%_)))) + (_%g154501154554%_ _%g154502154557%_)))) + (_%g154501154554%_ _%g154502154557%_)))) + (_%g154501154554%_ _%g154502154557%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153368153600%_ - _%L153354%_)))) - (_%__kont169521169522%_ - (lambda (_%L153305%_ _%L153306%_) - (_%lp153208%_ - _%rest153231%_ - (cons (cons _%L153306%_ + (_%g154500154732%_ + _%L154486%_)))) + (_%__kont170653170654%_ + (lambda (_%L154437%_ _%L154438%_) + (_%lp154340%_ + _%rest154363%_ + (cons (cons _%L154438%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self153067%_ _%L153305%_)) + (gxc#compile-e__1 _%self154199%_ _%L154437%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind153211%_))))) - (let* ((_%__match169588169589%_ - (lambda (_%e153263153330%_ - _%hd153264153333%_ - _%tl153265153335%_ - _%e153266153338%_ - _%hd153267153341%_ - _%tl153268153343%_ - _%e153269153346%_ - _%hd153270153349%_ - _%tl153271153351%_) - (let ((_%L153354%_ - _%hd153270153349%_) - (_%L153355%_ - _%hd153267153341%_)) + _%bind154343%_))))) + (let* ((_%__match170720170721%_ + (lambda (_%e154395154462%_ + _%hd154396154465%_ + _%tl154397154467%_ + _%e154398154470%_ + _%hd154399154473%_ + _%tl154400154475%_ + _%e154401154478%_ + _%hd154402154481%_ + _%tl154403154483%_) + (let ((_%L154486%_ + _%hd154402154481%_) + (_%L154487%_ + _%hd154399154473%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L153355%_)) + _%L154487%_)) (gxc#kw-lambda-expr? - _%L153354%_)) - (_%__kont169519169520%_ - _%L153354%_ - _%L153355%_) - (_%__kont169521169522%_ - _%hd153270153349%_ - _%hd153264153333%_))))) - (_%__match169566169567%_ - (lambda (_%e153252153608%_ - _%hd153253153611%_ - _%tl153254153613%_ - _%e153255153616%_ - _%hd153256153619%_ - _%tl153257153621%_ - _%e153258153624%_ - _%hd153259153627%_ - _%tl153260153629%_) - (let ((_%L153632%_ - _%hd153259153627%_) - (_%L153633%_ - _%hd153256153619%_)) + _%L154486%_)) + (_%__kont170651170652%_ + _%L154486%_ + _%L154487%_) + (_%__kont170653170654%_ + _%hd154402154481%_ + _%hd154396154465%_))))) + (_%__match170698170699%_ + (lambda (_%e154384154740%_ + _%hd154385154743%_ + _%tl154386154745%_ + _%e154387154748%_ + _%hd154388154751%_ + _%tl154389154753%_ + _%e154390154756%_ + _%hd154391154759%_ + _%tl154392154761%_) + (let ((_%L154764%_ + _%hd154391154759%_) + (_%L154765%_ + _%hd154388154751%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L153633%_)) + _%L154765%_)) (gxc#opt-lambda-expr? - _%L153632%_)) - (_%__kont169517169518%_ - _%L153632%_ - _%L153633%_) - (_%__match169588169589%_ - _%e153252153608%_ - _%hd153253153611%_ - _%tl153254153613%_ - _%e153255153616%_ - _%hd153256153619%_ - _%tl153257153621%_ - _%e153258153624%_ - _%hd153259153627%_ - _%tl153260153629%_))))) - (_%__match169544169545%_ - (lambda (_%e153241153781%_ - _%hd153242153784%_ - _%tl153243153786%_ - _%e153244153789%_ - _%hd153245153792%_ - _%tl153246153794%_ - _%e153247153797%_ - _%hd153248153800%_ - _%tl153249153802%_) - (let ((_%L153805%_ - _%hd153248153800%_) - (_%L153806%_ - _%hd153245153792%_)) + _%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%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L153806%_)) + _%L154938%_)) (gxc#case-lambda-expr? - _%L153805%_)) - (_%__kont169515169516%_ - _%L153805%_ - _%L153806%_) - (_%__match169566169567%_ - _%e153241153781%_ - _%hd153242153784%_ - _%tl153243153786%_ - _%e153244153789%_ - _%hd153245153792%_ - _%tl153246153794%_ - _%e153247153797%_ - _%hd153248153800%_ - _%tl153249153802%_)))))) + _%L154937%_)) + (_%__kont170647170648%_ + _%L154937%_ + _%L154938%_) + (_%__match170698170699%_ + _%e154373154913%_ + _%hd154374154916%_ + _%tl154375154918%_ + _%e154376154921%_ + _%hd154377154924%_ + _%tl154378154926%_ + _%e154379154929%_ + _%hd154380154932%_ + _%tl154381154934%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx169513169514%_)) - (let ((_%e153241153781%_ + _%__stx170645170646%_)) + (let ((_%e154373154913%_ (let () (declare (not safe)) (gx#stx-e - _%__stx169513169514%_)))) - (let ((_%tl153243153786%_ + _%__stx170645170646%_)))) + (let ((_%tl154375154918%_ (let () (declare (not safe)) - (##cdr _%e153241153781%_))) - (_%hd153242153784%_ + (##cdr _%e154373154913%_))) + (_%hd154374154916%_ (let () (declare (not safe)) - (##car _%e153241153781%_)))) + (##car _%e154373154913%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153242153784%_)) - (let ((_%e153244153789%_ + _%hd154374154916%_)) + (let ((_%e154376154921%_ (let () (declare (not safe)) (gx#stx-e - _%hd153242153784%_)))) - (let ((_%tl153246153794%_ + _%hd154374154916%_)))) + (let ((_%tl154378154926%_ (let () (declare (not safe)) - (##cdr _%e153244153789%_))) - (_%hd153245153792%_ + (##cdr _%e154376154921%_))) + (_%hd154377154924%_ (let () (declare (not safe)) - (##car _%e153244153789%_)))) + (##car _%e154376154921%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153246153794%_)) + _%tl154378154926%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl153243153786%_)) - (let ((_%e153247153797%_ + (gx#stx-pair? _%tl154375154918%_)) + (let ((_%e154379154929%_ (let () (declare (not safe)) - (gx#stx-e _%tl153243153786%_)))) - (let ((_%tl153249153802%_ + (gx#stx-e _%tl154375154918%_)))) + (let ((_%tl154381154934%_ (let () (declare (not safe)) - (##cdr _%e153247153797%_))) - (_%hd153248153800%_ + (##cdr _%e154379154929%_))) + (_%hd154380154932%_ (let () (declare (not safe)) - (##car _%e153247153797%_)))) + (##car _%e154379154929%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153249153802%_)) - (_%__match169544169545%_ - _%e153241153781%_ - _%hd153242153784%_ - _%tl153243153786%_ - _%e153244153789%_ - _%hd153245153792%_ - _%tl153246153794%_ - _%e153247153797%_ - _%hd153248153800%_ - _%tl153249153802%_) + (gx#stx-null? _%tl154381154934%_)) + (_%__match170676170677%_ + _%e154373154913%_ + _%hd154374154916%_ + _%tl154375154918%_ + _%e154376154921%_ + _%hd154377154924%_ + _%tl154378154926%_ + _%e154379154929%_ + _%hd154380154932%_ + _%tl154381154934%_) (let () (declare (not safe)) - (_%g153237153284%_))))) - (let () (declare (not safe)) (_%g153237153284%_))) + (_%g154369154416%_))))) + (let () (declare (not safe)) (_%g154369154416%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153243153786%_)) - (let ((_%e153277153297%_ + (gx#stx-pair? _%tl154375154918%_)) + (let ((_%e154409154429%_ (let () (declare (not safe)) - (gx#stx-e _%tl153243153786%_)))) - (let ((_%tl153279153302%_ + (gx#stx-e _%tl154375154918%_)))) + (let ((_%tl154411154434%_ (let () (declare (not safe)) - (##cdr _%e153277153297%_))) - (_%hd153278153300%_ + (##cdr _%e154409154429%_))) + (_%hd154410154432%_ (let () (declare (not safe)) - (##car _%e153277153297%_)))) + (##car _%e154409154429%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153279153302%_)) - (_%__kont169521169522%_ - _%hd153278153300%_ - _%hd153242153784%_) + (gx#stx-null? _%tl154411154434%_)) + (_%__kont170653170654%_ + _%hd154410154432%_ + _%hd154374154916%_) (let () (declare (not safe)) - (_%g153237153284%_))))) - (let () (declare (not safe)) (_%g153237153284%_)))))) + (_%g154369154416%_))))) + (let () (declare (not safe)) (_%g154369154416%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153243153786%_)) - (let ((_%e153277153297%_ + _%tl154375154918%_)) + (let ((_%e154409154429%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl153243153786%_)))) - (let ((_%tl153279153302%_ + (gx#stx-e _%tl154375154918%_)))) + (let ((_%tl154411154434%_ (let () (declare (not safe)) - (##cdr _%e153277153297%_))) - (_%hd153278153300%_ + (##cdr _%e154409154429%_))) + (_%hd154410154432%_ (let () (declare (not safe)) - (##car _%e153277153297%_)))) + (##car _%e154409154429%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153279153302%_)) - (_%__kont169521169522%_ - _%hd153278153300%_ - _%hd153242153784%_) - (let () (declare (not safe)) (_%g153237153284%_))))) - (let () (declare (not safe)) (_%g153237153284%_)))))) + (gx#stx-null? _%tl154411154434%_)) + (_%__kont170653170654%_ + _%hd154410154432%_ + _%hd154374154916%_) + (let () (declare (not safe)) (_%g154369154416%_))))) + (let () (declare (not safe)) (_%g154369154416%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g153237153284%_))))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest153212153220%_)) - (let ((_%hd153217153902%_ + (_%g154369154416%_))))))))) + (if (pair? _%rest154344154352%_) + (let ((_%hd154349155034%_ (let () (declare (not safe)) - (##car _%rest153212153220%_))) - (_%tl153218153904%_ + (##car _%rest154344154352%_))) + (_%tl154350155036%_ (let () (declare (not safe)) - (##cdr _%rest153212153220%_)))) - (let* ((_%hd153907%_ _%hd153217153902%_) - (_%rest153909%_ _%tl153218153904%_)) - (_%K153216153899%_ - _%rest153909%_ - _%hd153907%_))) - (_%else153214153228%_))))))) - (let* ((_%__stx169605169606%_ _%stx153068%_) - (_%g153074153101%_ + (##cdr _%rest154344154352%_)))) + (let* ((_%hd155039%_ _%hd154349155034%_) + (_%rest155041%_ _%tl154350155036%_)) + (_%K154348155031%_ + _%rest155041%_ + _%hd155039%_))) + (_%else154346154360%_))))))) + (let* ((_%__stx170737170738%_ _%stx154200%_) + (_%g154206154233%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169605169606%_))))) - (let ((_%__kont169607169608%_ - (lambda (_%L153161%_ _%L153162%_ _%L153163%_) - (let ((__tmp170064 + _%__stx170737170738%_))))) + (let ((_%__kont170739170740%_ + (lambda (_%L154293%_ _%L154294%_ _%L154295%_) + (let ((__tmp171196 (lambda () - (let ((_%hd153200%_ - (_%compile-bindings153071%_ - (let ((__tmp170065 - (lambda (_%g153192153195%_ - _%g153193153197%_) - (cons _%g153192153195%_ - _%g153193153197%_)))) + (let ((_%hd154332%_ + (_%compile-bindings154203%_ + (let ((__tmp171197 + (lambda (_%g154324154327%_ + _%g154325154329%_) + (cons _%g154324154327%_ + _%g154325154329%_)))) (declare (not safe)) (__foldr1 - __tmp170065 + __tmp171197 '() - _%L153162%_)))) - (_%body153201%_ + _%L154294%_)))) + (_%body154333%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153067%_ - _%L153161%_)))) - (let ((__tmp170066 - (cons _%L153163%_ - (cons _%hd153200%_ - (cons _%body153201%_ + _%self154199%_ + _%L154293%_)))) + (let ((__tmp171198 + (cons _%L154295%_ + (cons _%hd154332%_ + (cons _%body154333%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp170066 - _%stx153068%_))))) - (__tmp170063 - (let ((__obj169717 + __tmp171198 + _%stx154200%_))))) + (__tmp171195 + (let ((__obj170849 (let () (declare (not safe)) (##structure @@ -24326,249 +24298,249 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj169717)) - __obj169717))) + (gx#local-context:::init!__0 __obj170849)) + __obj170849))) (declare (not safe)) (__call-with-parameters - __tmp170064 + __tmp171196 gx#current-expander-context - __tmp170063)))) - (_%__kont169611169612%_ + __tmp171195)))) + (_%__kont170743170744%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self153067%_ _%stx153068%_))))) - (let ((_%__match169632169633%_ - (lambda (_%e153079153113%_ - _%hd153080153116%_ - _%tl153081153118%_ - _%e153082153121%_ - _%hd153083153124%_ - _%tl153084153126%_ - _%__splice169609169610%_ - _%target153085153129%_ - _%tl153087153131%_) - (letrec ((_%loop153088153134%_ - (lambda (_%hd153086153137%_ - _%bind153092153139%_) + (gxc#xform-let-values% _%self154199%_ _%stx154200%_))))) + (let ((_%__match170764170765%_ + (lambda (_%e154211154245%_ + _%hd154212154248%_ + _%tl154213154250%_ + _%e154214154253%_ + _%hd154215154256%_ + _%tl154216154258%_ + _%__splice170741170742%_ + _%target154217154261%_ + _%tl154219154263%_) + (letrec ((_%loop154220154266%_ + (lambda (_%hd154218154269%_ + _%bind154224154271%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153086153137%_)) - (let ((_%e153089153142%_ + (gx#stx-pair? _%hd154218154269%_)) + (let ((_%e154221154274%_ (let () (declare (not safe)) (gx#stx-e - _%hd153086153137%_)))) - (let ((_%lp-tl153091153147%_ + _%hd154218154269%_)))) + (let ((_%lp-tl154223154279%_ (let () (declare (not safe)) - (##cdr _%e153089153142%_))) - (_%lp-hd153090153145%_ + (##cdr _%e154221154274%_))) + (_%lp-hd154222154277%_ (let () (declare (not safe)) - (##car _%e153089153142%_)))) - (_%loop153088153134%_ - _%lp-tl153091153147%_ - (cons _%lp-hd153090153145%_ - _%bind153092153139%_)))) - (let ((_%bind153093153150%_ - (reverse _%bind153092153139%_))) + (##car _%e154221154274%_)))) + (_%loop154220154266%_ + _%lp-tl154223154279%_ + (cons _%lp-hd154222154277%_ + _%bind154224154271%_)))) + (let ((_%bind154225154282%_ + (reverse _%bind154224154271%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153084153126%_)) - (let ((_%e153094153153%_ + _%tl154216154258%_)) + (let ((_%e154226154285%_ (let () (declare (not safe)) (gx#stx-e - _%tl153084153126%_)))) - (let ((_%tl153096153158%_ + _%tl154216154258%_)))) + (let ((_%tl154228154290%_ (let () (declare (not safe)) - (##cdr _%e153094153153%_))) - (_%hd153095153156%_ + (##cdr _%e154226154285%_))) + (_%hd154227154288%_ (let () (declare (not safe)) - (##car _%e153094153153%_)))) + (##car _%e154226154285%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153096153158%_)) - (let ((_%L153161%_ - _%hd153095153156%_) - (_%L153162%_ - _%bind153093153150%_) - (_%L153163%_ - _%hd153080153116%_)) - (if (let ((__tmp170067 + _%tl154228154290%_)) + (let ((_%L154293%_ + _%hd154227154288%_) + (_%L154294%_ + _%bind154225154282%_) + (_%L154295%_ + _%hd154212154248%_)) + (if (let ((__tmp171199 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp170068 - (lambda (_%g153184153187%_ _%g153185153189%_) - (cons _%g153184153187%_ - _%g153185153189%_)))) + (let ((__tmp171200 + (lambda (_%g154316154319%_ _%g154317154321%_) + (cons _%g154316154319%_ + _%g154317154321%_)))) (declare (not safe)) - (__foldr1 __tmp170068 '() _%L153162%_)))) + (__foldr1 __tmp171200 '() _%L154294%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp170067)) - (_%__kont169607169608%_ _%L153161%_ _%L153162%_ _%L153163%_) - (_%__kont169611169612%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp171199)) + (_%__kont170739170740%_ _%L154293%_ _%L154294%_ _%L154295%_) + (_%__kont170743170744%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169611169612%_)))) - (_%__kont169611169612%_))))))) - (_%loop153088153134%_ _%target153085153129%_ '()))))) + (_%__kont170743170744%_)))) + (_%__kont170743170744%_))))))) + (_%loop154220154266%_ _%target154217154261%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169605169606%_)) - (let ((_%e153079153113%_ + (gx#stx-pair? _%__stx170737170738%_)) + (let ((_%e154211154245%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169605169606%_)))) - (let ((_%tl153081153118%_ + (gx#stx-e _%__stx170737170738%_)))) + (let ((_%tl154213154250%_ (let () (declare (not safe)) - (##cdr _%e153079153113%_))) - (_%hd153080153116%_ + (##cdr _%e154211154245%_))) + (_%hd154212154248%_ (let () (declare (not safe)) - (##car _%e153079153113%_)))) + (##car _%e154211154245%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153081153118%_)) - (let ((_%e153082153121%_ + (gx#stx-pair? _%tl154213154250%_)) + (let ((_%e154214154253%_ (let () (declare (not safe)) - (gx#stx-e _%tl153081153118%_)))) - (let ((_%tl153084153126%_ + (gx#stx-e _%tl154213154250%_)))) + (let ((_%tl154216154258%_ (let () (declare (not safe)) - (##cdr _%e153082153121%_))) - (_%hd153083153124%_ + (##cdr _%e154214154253%_))) + (_%hd154215154256%_ (let () (declare (not safe)) - (##car _%e153082153121%_)))) + (##car _%e154214154253%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd153083153124%_)) - (let ((_%__splice169609169610%_ + (gx#stx-pair/null? _%hd154215154256%_)) + (let ((_%__splice170741170742%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd153083153124%_ + _%hd154215154256%_ '0)))) - (let ((_%tl153087153131%_ + (let ((_%tl154219154263%_ (let () (declare (not safe)) (##vector-ref - _%__splice169609169610%_ + _%__splice170741170742%_ '1))) - (_%target153085153129%_ + (_%target154217154261%_ (let () (declare (not safe)) (##vector-ref - _%__splice169609169610%_ + _%__splice170741170742%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153087153131%_)) - (_%__match169632169633%_ - _%e153079153113%_ - _%hd153080153116%_ - _%tl153081153118%_ - _%e153082153121%_ - _%hd153083153124%_ - _%tl153084153126%_ - _%__splice169609169610%_ - _%target153085153129%_ - _%tl153087153131%_) - (_%__kont169611169612%_)))) - (_%__kont169611169612%_)))) - (_%__kont169611169612%_)))) - (_%__kont169611169612%_)))))))) + _%tl154219154263%_)) + (_%__match170764170765%_ + _%e154211154245%_ + _%hd154212154248%_ + _%tl154213154250%_ + _%e154214154253%_ + _%hd154215154256%_ + _%tl154216154258%_ + _%__splice170741170742%_ + _%target154217154261%_ + _%tl154219154263%_) + (_%__kont170743170744%_)))) + (_%__kont170743170744%_)))) + (_%__kont170743170744%_)))) + (_%__kont170743170744%_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_%bind152985%_) - (let* ((_%__stx169635169636%_ _%bind152985%_) - (_%g152988153005%_ + (lambda (_%bind154117%_) + (let* ((_%__stx170767170768%_ _%bind154117%_) + (_%g154120154137%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169635169636%_))))) - (let ((_%__kont169637169638%_ - (lambda (_%L153041%_ _%L153042%_) + _%__stx170767170768%_))))) + (let ((_%__kont170769170770%_ + (lambda (_%L154173%_ _%L154174%_) (if (let () (declare (not safe)) - (gx#identifier? _%L153042%_)) - (let ((_%$e153058%_ - (gxc#case-lambda-expr? _%L153041%_))) - (if _%$e153058%_ - _%$e153058%_ - (let ((_%$e153061%_ - (gxc#opt-lambda-expr? _%L153041%_))) - (if _%$e153061%_ - _%$e153061%_ - (gxc#kw-lambda-expr? _%L153041%_))))) + (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%_))))) '#f))) - (_%__kont169639169640%_ (lambda () '#f))) + (_%__kont170771170772%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169635169636%_)) - (let ((_%e152992153017%_ + (gx#stx-pair? _%__stx170767170768%_)) + (let ((_%e154124154149%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169635169636%_)))) - (let ((_%tl152994153022%_ + (gx#stx-e _%__stx170767170768%_)))) + (let ((_%tl154126154154%_ (let () (declare (not safe)) - (##cdr _%e152992153017%_))) - (_%hd152993153020%_ + (##cdr _%e154124154149%_))) + (_%hd154125154152%_ (let () (declare (not safe)) - (##car _%e152992153017%_)))) + (##car _%e154124154149%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd152993153020%_)) - (let ((_%e152995153025%_ + (gx#stx-pair? _%hd154125154152%_)) + (let ((_%e154127154157%_ (let () (declare (not safe)) - (gx#stx-e _%hd152993153020%_)))) - (let ((_%tl152997153030%_ + (gx#stx-e _%hd154125154152%_)))) + (let ((_%tl154129154162%_ (let () (declare (not safe)) - (##cdr _%e152995153025%_))) - (_%hd152996153028%_ + (##cdr _%e154127154157%_))) + (_%hd154128154160%_ (let () (declare (not safe)) - (##car _%e152995153025%_)))) + (##car _%e154127154157%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152997153030%_)) + (gx#stx-null? _%tl154129154162%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152994153022%_)) - (let ((_%e152998153033%_ + (gx#stx-pair? _%tl154126154154%_)) + (let ((_%e154130154165%_ (let () (declare (not safe)) - (gx#stx-e _%tl152994153022%_)))) - (let ((_%tl153000153038%_ + (gx#stx-e _%tl154126154154%_)))) + (let ((_%tl154132154170%_ (let () (declare (not safe)) - (##cdr _%e152998153033%_))) - (_%hd152999153036%_ + (##cdr _%e154130154165%_))) + (_%hd154131154168%_ (let () (declare (not safe)) - (##car _%e152998153033%_)))) + (##car _%e154130154165%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153000153038%_)) - (_%__kont169637169638%_ - _%hd152999153036%_ - _%hd152996153028%_) - (_%__kont169639169640%_)))) - (_%__kont169639169640%_)) - (_%__kont169639169640%_)))) - (_%__kont169639169640%_)))) - (_%__kont169639169640%_)))))))) + _%tl154132154170%_)) + (_%__kont170769170770%_ + _%hd154131154168%_ + _%hd154128154160%_) + (_%__kont170771170772%_)))) + (_%__kont170771170772%_)) + (_%__kont170771170772%_)))) + (_%__kont170771170772%_)))) + (_%__kont170771170772%_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~1.scm b/src/bootstrap/gerbil/compiler/optimize-top~1.scm index e41aa5cc5..612736517 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]#_g170070_| + (define |gxc[1]#_g171202_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170072_| + (define |gxc[1]#_g171204_| (##structure gx#syntax-quote::t '::collect-top-level-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170074_| + (define |gxc[1]#_g171206_| (##structure gx#syntax-quote::t 'make-::collect-top-level-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170076_| + (define |gxc[1]#_g171208_| (##structure gx#syntax-quote::t '::collect-top-level-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170079_| + (define |gxc[1]#_g171211_| (##structure gx#syntax-quote::t '::collect-top-level-declarations::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170081_| + (define |gxc[1]#_g171213_| (##structure gx#syntax-quote::t 'make-::collect-top-level-declarations #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170083_| + (define |gxc[1]#_g171215_| (##structure gx#syntax-quote::t '::collect-top-level-declarations? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170085_| + (define |gxc[1]#_g171217_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170087_| + (define |gxc[1]#_g171219_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170089_| + (define |gxc[1]#_g171221_| (##structure gx#syntax-quote::t 'make-::basic-expression-top-level-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170091_| + (define |gxc[1]#_g171223_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170094_| + (define |gxc[1]#_g171226_| (##structure gx#syntax-quote::t '::collect-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170096_| + (define |gxc[1]#_g171228_| (##structure gx#syntax-quote::t 'make-::collect-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170098_| + (define |gxc[1]#_g171230_| (##structure gx#syntax-quote::t '::collect-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170101_| + (define |gxc[1]#_g171233_| (##structure gx#syntax-quote::t '::collect-mutable-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170103_| + (define |gxc[1]#_g171235_| (##structure gx#syntax-quote::t 'make-::collect-mutable-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170105_| + (define |gxc[1]#_g171237_| (##structure gx#syntax-quote::t '::collect-mutable-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170108_| + (define |gxc[1]#_g171240_| (##structure gx#syntax-quote::t '::refine-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170110_| + (define |gxc[1]#_g171242_| (##structure gx#syntax-quote::t 'make-::refine-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170112_| + (define |gxc[1]#_g171244_| (##structure gx#syntax-quote::t '::refine-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170115_| + (define |gxc[1]#_g171247_| (##structure gx#syntax-quote::t '::raw-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170117_| + (define |gxc[1]#_g171249_| (##structure gx#syntax-quote::t 'make-::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170119_| + (define |gxc[1]#_g171251_| (##structure gx#syntax-quote::t '::raw-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170121_| + (define |gxc[1]#_g171253_| (##structure gx#syntax-quote::t '::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170123_| + (define |gxc[1]#_g171255_| (##structure gx#syntax-quote::t '::basic-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170125_| + (define |gxc[1]#_g171257_| (##structure gx#syntax-quote::t 'make-::basic-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170127_| + (define |gxc[1]#_g171259_| (##structure gx#syntax-quote::t '::basic-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170129_| + (define |gxc[1]#_g171261_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170131_| + (define |gxc[1]#_g171263_| (##structure gx#syntax-quote::t '::lift-top-lambdas::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170133_| + (define |gxc[1]#_g171265_| (##structure gx#syntax-quote::t 'make-::lift-top-lambdas #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170135_| + (define |gxc[1]#_g171267_| (##structure gx#syntax-quote::t '::lift-top-lambdas? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170138_| + (define |gxc[1]#_g171270_| (##structure gx#syntax-quote::t '::extract-lambda-signature::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170140_| + (define |gxc[1]#_g171272_| (##structure gx#syntax-quote::t 'make-::extract-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g170142_| + (define |gxc[1]#_g171274_| (##structure gx#syntax-quote::t '::extract-lambda-signature? @@ -240,7 +240,7 @@ '())) (begin (define |gxc[:0:]#::collect-top-level-type-info| - (let ((__obj169664 + (let ((__obj170796 (let () (declare (not safe)) (##structure @@ -269,7 +269,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169664 + __obj170796 'gxc#::collect-top-level-type-info::t '1 '#f @@ -277,65 +277,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169664 + __obj170796 '::collect-top-level-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169664 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170796 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169664 '() '6 '#f '#f)) - (let ((__tmp170069 (cons |gxc[1]#_g170070_| '()))) + (##unchecked-structure-set! __obj170796 '() '6 '#f '#f)) + (let ((__tmp171201 (cons |gxc[1]#_g171202_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169664 __tmp170069 '3 '#f '#f)) + (##unchecked-structure-set! __obj170796 __tmp171201 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169664 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170796 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169664 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170796 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169664 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170796 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169664 '#f '11 '#f '#f)) - (let ((__tmp170071 |gxc[1]#_g170072_|)) + (##unchecked-structure-set! __obj170796 '#f '11 '#f '#f)) + (let ((__tmp171203 |gxc[1]#_g171204_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169664 __tmp170071 '12 '#f '#f)) - (let ((__tmp170073 |gxc[1]#_g170074_|)) + (##unchecked-structure-set! __obj170796 __tmp171203 '12 '#f '#f)) + (let ((__tmp171205 |gxc[1]#_g171206_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169664 __tmp170073 '13 '#f '#f)) - (let ((__tmp170075 |gxc[1]#_g170076_|)) + (##unchecked-structure-set! __obj170796 __tmp171205 '13 '#f '#f)) + (let ((__tmp171207 |gxc[1]#_g171208_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169664 __tmp170075 '14 '#f '#f)) + (##unchecked-structure-set! __obj170796 __tmp171207 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169664 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170796 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169664 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170796 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169664 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170796 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169664 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170796 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169664 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170796 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169664 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170796 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169664 '() '20 '#f '#f)) - __obj169664)) + (##unchecked-structure-set! __obj170796 '() '20 '#f '#f)) + __obj170796)) (define |gxc[:0:]#::collect-top-level-declarations| - (let ((__obj169666 + (let ((__obj170798 (let () (declare (not safe)) (##structure @@ -364,7 +364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169666 + __obj170798 'gxc#::collect-top-level-declarations::t '1 '#f @@ -372,65 +372,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169666 + __obj170798 '::collect-top-level-declarations '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169666 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170798 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169666 '() '6 '#f '#f)) - (let ((__tmp170077 (cons |gxc[1]#_g170070_| '()))) + (##unchecked-structure-set! __obj170798 '() '6 '#f '#f)) + (let ((__tmp171209 (cons |gxc[1]#_g171202_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169666 __tmp170077 '3 '#f '#f)) + (##unchecked-structure-set! __obj170798 __tmp171209 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169666 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170798 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169666 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170798 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169666 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170798 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169666 '#f '11 '#f '#f)) - (let ((__tmp170078 |gxc[1]#_g170079_|)) + (##unchecked-structure-set! __obj170798 '#f '11 '#f '#f)) + (let ((__tmp171210 |gxc[1]#_g171211_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169666 __tmp170078 '12 '#f '#f)) - (let ((__tmp170080 |gxc[1]#_g170081_|)) + (##unchecked-structure-set! __obj170798 __tmp171210 '12 '#f '#f)) + (let ((__tmp171212 |gxc[1]#_g171213_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169666 __tmp170080 '13 '#f '#f)) - (let ((__tmp170082 |gxc[1]#_g170083_|)) + (##unchecked-structure-set! __obj170798 __tmp171212 '13 '#f '#f)) + (let ((__tmp171214 |gxc[1]#_g171215_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169666 __tmp170082 '14 '#f '#f)) + (##unchecked-structure-set! __obj170798 __tmp171214 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169666 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170798 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169666 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170798 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169666 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170798 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169666 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170798 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169666 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170798 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169666 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170798 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169666 '() '20 '#f '#f)) - __obj169666)) + (##unchecked-structure-set! __obj170798 '() '20 '#f '#f)) + __obj170798)) (define |gxc[:0:]#::basic-expression-top-level-type| - (let ((__obj169668 + (let ((__obj170800 (let () (declare (not safe)) (##structure @@ -459,7 +459,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169668 + __obj170800 'gxc#::basic-expression-top-level-type::t '1 '#f @@ -467,65 +467,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169668 + __obj170800 '::basic-expression-top-level-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169668 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170800 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169668 '() '6 '#f '#f)) - (let ((__tmp170084 (cons |gxc[1]#_g170085_| '()))) + (##unchecked-structure-set! __obj170800 '() '6 '#f '#f)) + (let ((__tmp171216 (cons |gxc[1]#_g171217_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169668 __tmp170084 '3 '#f '#f)) + (##unchecked-structure-set! __obj170800 __tmp171216 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169668 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170800 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169668 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170800 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169668 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170800 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169668 '#f '11 '#f '#f)) - (let ((__tmp170086 |gxc[1]#_g170087_|)) + (##unchecked-structure-set! __obj170800 '#f '11 '#f '#f)) + (let ((__tmp171218 |gxc[1]#_g171219_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169668 __tmp170086 '12 '#f '#f)) - (let ((__tmp170088 |gxc[1]#_g170089_|)) + (##unchecked-structure-set! __obj170800 __tmp171218 '12 '#f '#f)) + (let ((__tmp171220 |gxc[1]#_g171221_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169668 __tmp170088 '13 '#f '#f)) - (let ((__tmp170090 |gxc[1]#_g170091_|)) + (##unchecked-structure-set! __obj170800 __tmp171220 '13 '#f '#f)) + (let ((__tmp171222 |gxc[1]#_g171223_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169668 __tmp170090 '14 '#f '#f)) + (##unchecked-structure-set! __obj170800 __tmp171222 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169668 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170800 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169668 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170800 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169668 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170800 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169668 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170800 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169668 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170800 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169668 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170800 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169668 '() '20 '#f '#f)) - __obj169668)) + (##unchecked-structure-set! __obj170800 '() '20 '#f '#f)) + __obj170800)) (define |gxc[:0:]#::collect-type-info| - (let ((__obj169670 + (let ((__obj170802 (let () (declare (not safe)) (##structure @@ -554,7 +554,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169670 + __obj170802 'gxc#::collect-type-info::t '1 '#f @@ -562,65 +562,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169670 + __obj170802 '::collect-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169670 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170802 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169670 '() '6 '#f '#f)) - (let ((__tmp170092 (cons |gxc[1]#_g170070_| '()))) + (##unchecked-structure-set! __obj170802 '() '6 '#f '#f)) + (let ((__tmp171224 (cons |gxc[1]#_g171202_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169670 __tmp170092 '3 '#f '#f)) + (##unchecked-structure-set! __obj170802 __tmp171224 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169670 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170802 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169670 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170802 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169670 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170802 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169670 '#f '11 '#f '#f)) - (let ((__tmp170093 |gxc[1]#_g170094_|)) + (##unchecked-structure-set! __obj170802 '#f '11 '#f '#f)) + (let ((__tmp171225 |gxc[1]#_g171226_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169670 __tmp170093 '12 '#f '#f)) - (let ((__tmp170095 |gxc[1]#_g170096_|)) + (##unchecked-structure-set! __obj170802 __tmp171225 '12 '#f '#f)) + (let ((__tmp171227 |gxc[1]#_g171228_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169670 __tmp170095 '13 '#f '#f)) - (let ((__tmp170097 |gxc[1]#_g170098_|)) + (##unchecked-structure-set! __obj170802 __tmp171227 '13 '#f '#f)) + (let ((__tmp171229 |gxc[1]#_g171230_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169670 __tmp170097 '14 '#f '#f)) + (##unchecked-structure-set! __obj170802 __tmp171229 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169670 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170802 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169670 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170802 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169670 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170802 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169670 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170802 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169670 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170802 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169670 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170802 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169670 '() '20 '#f '#f)) - __obj169670)) + (##unchecked-structure-set! __obj170802 '() '20 '#f '#f)) + __obj170802)) (define |gxc[:0:]#::collect-mutable-type-info| - (let ((__obj169672 + (let ((__obj170804 (let () (declare (not safe)) (##structure @@ -649,7 +649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169672 + __obj170804 'gxc#::collect-mutable-type-info::t '1 '#f @@ -657,65 +657,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169672 + __obj170804 '::collect-mutable-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169672 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170804 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169672 '() '6 '#f '#f)) - (let ((__tmp170099 (cons |gxc[1]#_g170070_| '()))) + (##unchecked-structure-set! __obj170804 '() '6 '#f '#f)) + (let ((__tmp171231 (cons |gxc[1]#_g171202_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169672 __tmp170099 '3 '#f '#f)) + (##unchecked-structure-set! __obj170804 __tmp171231 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169672 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170804 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169672 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170804 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169672 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170804 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169672 '#f '11 '#f '#f)) - (let ((__tmp170100 |gxc[1]#_g170101_|)) + (##unchecked-structure-set! __obj170804 '#f '11 '#f '#f)) + (let ((__tmp171232 |gxc[1]#_g171233_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169672 __tmp170100 '12 '#f '#f)) - (let ((__tmp170102 |gxc[1]#_g170103_|)) + (##unchecked-structure-set! __obj170804 __tmp171232 '12 '#f '#f)) + (let ((__tmp171234 |gxc[1]#_g171235_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169672 __tmp170102 '13 '#f '#f)) - (let ((__tmp170104 |gxc[1]#_g170105_|)) + (##unchecked-structure-set! __obj170804 __tmp171234 '13 '#f '#f)) + (let ((__tmp171236 |gxc[1]#_g171237_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169672 __tmp170104 '14 '#f '#f)) + (##unchecked-structure-set! __obj170804 __tmp171236 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169672 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170804 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169672 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170804 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169672 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170804 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169672 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170804 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169672 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170804 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169672 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170804 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169672 '() '20 '#f '#f)) - __obj169672)) + (##unchecked-structure-set! __obj170804 '() '20 '#f '#f)) + __obj170804)) (define |gxc[:0:]#::refine-type-info| - (let ((__obj169674 + (let ((__obj170806 (let () (declare (not safe)) (##structure @@ -744,7 +744,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169674 + __obj170806 'gxc#::refine-type-info::t '1 '#f @@ -752,65 +752,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169674 + __obj170806 '::refine-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169674 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170806 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169674 '() '6 '#f '#f)) - (let ((__tmp170106 (cons |gxc[1]#_g170070_| '()))) + (##unchecked-structure-set! __obj170806 '() '6 '#f '#f)) + (let ((__tmp171238 (cons |gxc[1]#_g171202_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169674 __tmp170106 '3 '#f '#f)) + (##unchecked-structure-set! __obj170806 __tmp171238 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169674 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170806 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169674 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170806 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169674 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170806 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169674 '#f '11 '#f '#f)) - (let ((__tmp170107 |gxc[1]#_g170108_|)) + (##unchecked-structure-set! __obj170806 '#f '11 '#f '#f)) + (let ((__tmp171239 |gxc[1]#_g171240_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169674 __tmp170107 '12 '#f '#f)) - (let ((__tmp170109 |gxc[1]#_g170110_|)) + (##unchecked-structure-set! __obj170806 __tmp171239 '12 '#f '#f)) + (let ((__tmp171241 |gxc[1]#_g171242_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169674 __tmp170109 '13 '#f '#f)) - (let ((__tmp170111 |gxc[1]#_g170112_|)) + (##unchecked-structure-set! __obj170806 __tmp171241 '13 '#f '#f)) + (let ((__tmp171243 |gxc[1]#_g171244_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169674 __tmp170111 '14 '#f '#f)) + (##unchecked-structure-set! __obj170806 __tmp171243 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169674 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170806 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169674 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170806 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169674 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170806 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169674 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170806 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169674 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170806 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169674 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170806 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169674 '() '20 '#f '#f)) - __obj169674)) + (##unchecked-structure-set! __obj170806 '() '20 '#f '#f)) + __obj170806)) (define |gxc[:0:]#::raw-expression-type| - (let ((__obj169676 + (let ((__obj170808 (let () (declare (not safe)) (##structure @@ -839,7 +839,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169676 + __obj170808 'gxc#::raw-expression-type::t '1 '#f @@ -847,65 +847,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169676 + __obj170808 '::raw-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169676 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170808 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169676 '() '6 '#f '#f)) - (let ((__tmp170113 (cons |gxc[1]#_g170085_| '()))) + (##unchecked-structure-set! __obj170808 '() '6 '#f '#f)) + (let ((__tmp171245 (cons |gxc[1]#_g171217_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169676 __tmp170113 '3 '#f '#f)) + (##unchecked-structure-set! __obj170808 __tmp171245 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169676 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170808 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169676 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj170808 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169676 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170808 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169676 '#f '11 '#f '#f)) - (let ((__tmp170114 |gxc[1]#_g170115_|)) + (##unchecked-structure-set! __obj170808 '#f '11 '#f '#f)) + (let ((__tmp171246 |gxc[1]#_g171247_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169676 __tmp170114 '12 '#f '#f)) - (let ((__tmp170116 |gxc[1]#_g170117_|)) + (##unchecked-structure-set! __obj170808 __tmp171246 '12 '#f '#f)) + (let ((__tmp171248 |gxc[1]#_g171249_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169676 __tmp170116 '13 '#f '#f)) - (let ((__tmp170118 |gxc[1]#_g170119_|)) + (##unchecked-structure-set! __obj170808 __tmp171248 '13 '#f '#f)) + (let ((__tmp171250 |gxc[1]#_g171251_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169676 __tmp170118 '14 '#f '#f)) + (##unchecked-structure-set! __obj170808 __tmp171250 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169676 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170808 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169676 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170808 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169676 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170808 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169676 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170808 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169676 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170808 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169676 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170808 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169676 '() '20 '#f '#f)) - __obj169676)) + (##unchecked-structure-set! __obj170808 '() '20 '#f '#f)) + __obj170808)) (define |gxc[:0:]#::basic-expression-type| - (let ((__obj169678 + (let ((__obj170810 (let () (declare (not safe)) (##structure @@ -934,7 +934,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169678 + __obj170810 'gxc#::basic-expression-type::t '1 '#f @@ -942,66 +942,66 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169678 + __obj170810 '::basic-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169678 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170810 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169678 '() '6 '#f '#f)) - (let ((__tmp170120 - (cons |gxc[1]#_g170121_| (cons |gxc[1]#_g170085_| '())))) + (##unchecked-structure-set! __obj170810 '() '6 '#f '#f)) + (let ((__tmp171252 + (cons |gxc[1]#_g171253_| (cons |gxc[1]#_g171217_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj169678 __tmp170120 '3 '#f '#f)) + (##unchecked-structure-set! __obj170810 __tmp171252 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169678 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170810 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169678 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170810 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169678 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170810 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169678 '#f '11 '#f '#f)) - (let ((__tmp170122 |gxc[1]#_g170123_|)) + (##unchecked-structure-set! __obj170810 '#f '11 '#f '#f)) + (let ((__tmp171254 |gxc[1]#_g171255_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169678 __tmp170122 '12 '#f '#f)) - (let ((__tmp170124 |gxc[1]#_g170125_|)) + (##unchecked-structure-set! __obj170810 __tmp171254 '12 '#f '#f)) + (let ((__tmp171256 |gxc[1]#_g171257_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169678 __tmp170124 '13 '#f '#f)) - (let ((__tmp170126 |gxc[1]#_g170127_|)) + (##unchecked-structure-set! __obj170810 __tmp171256 '13 '#f '#f)) + (let ((__tmp171258 |gxc[1]#_g171259_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169678 __tmp170126 '14 '#f '#f)) + (##unchecked-structure-set! __obj170810 __tmp171258 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169678 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170810 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169678 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170810 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169678 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170810 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169678 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170810 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169678 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170810 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169678 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170810 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169678 '() '20 '#f '#f)) - __obj169678)) + (##unchecked-structure-set! __obj170810 '() '20 '#f '#f)) + __obj170810)) (define |gxc[:0:]#::lift-top-lambdas| - (let ((__obj169680 + (let ((__obj170812 (let () (declare (not safe)) (##structure @@ -1030,7 +1030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169680 + __obj170812 'gxc#::lift-top-lambdas::t '1 '#f @@ -1038,65 +1038,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169680 + __obj170812 '::lift-top-lambdas '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169680 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170812 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169680 '() '6 '#f '#f)) - (let ((__tmp170128 (cons |gxc[1]#_g170129_| '()))) + (##unchecked-structure-set! __obj170812 '() '6 '#f '#f)) + (let ((__tmp171260 (cons |gxc[1]#_g171261_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169680 __tmp170128 '3 '#f '#f)) + (##unchecked-structure-set! __obj170812 __tmp171260 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169680 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170812 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169680 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170812 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169680 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170812 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169680 '#f '11 '#f '#f)) - (let ((__tmp170130 |gxc[1]#_g170131_|)) + (##unchecked-structure-set! __obj170812 '#f '11 '#f '#f)) + (let ((__tmp171262 |gxc[1]#_g171263_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169680 __tmp170130 '12 '#f '#f)) - (let ((__tmp170132 |gxc[1]#_g170133_|)) + (##unchecked-structure-set! __obj170812 __tmp171262 '12 '#f '#f)) + (let ((__tmp171264 |gxc[1]#_g171265_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169680 __tmp170132 '13 '#f '#f)) - (let ((__tmp170134 |gxc[1]#_g170135_|)) + (##unchecked-structure-set! __obj170812 __tmp171264 '13 '#f '#f)) + (let ((__tmp171266 |gxc[1]#_g171267_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169680 __tmp170134 '14 '#f '#f)) + (##unchecked-structure-set! __obj170812 __tmp171266 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169680 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170812 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169680 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170812 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169680 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170812 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169680 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170812 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169680 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170812 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169680 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170812 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169680 '() '20 '#f '#f)) - __obj169680)) + (##unchecked-structure-set! __obj170812 '() '20 '#f '#f)) + __obj170812)) (define |gxc[:0:]#::extract-lambda-signature| - (let ((__obj169682 + (let ((__obj170814 (let () (declare (not safe)) (##structure @@ -1125,7 +1125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169682 + __obj170814 'gxc#::extract-lambda-signature::t '1 '#f @@ -1133,189 +1133,189 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169682 + __obj170814 '::extract-lambda-signature '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169682 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170814 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169682 '() '6 '#f '#f)) - (let ((__tmp170136 (cons |gxc[1]#_g170085_| '()))) + (##unchecked-structure-set! __obj170814 '() '6 '#f '#f)) + (let ((__tmp171268 (cons |gxc[1]#_g171217_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169682 __tmp170136 '3 '#f '#f)) + (##unchecked-structure-set! __obj170814 __tmp171268 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169682 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170814 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169682 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170814 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169682 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170814 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169682 '#f '11 '#f '#f)) - (let ((__tmp170137 |gxc[1]#_g170138_|)) + (##unchecked-structure-set! __obj170814 '#f '11 '#f '#f)) + (let ((__tmp171269 |gxc[1]#_g171270_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169682 __tmp170137 '12 '#f '#f)) - (let ((__tmp170139 |gxc[1]#_g170140_|)) + (##unchecked-structure-set! __obj170814 __tmp171269 '12 '#f '#f)) + (let ((__tmp171271 |gxc[1]#_g171272_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169682 __tmp170139 '13 '#f '#f)) - (let ((__tmp170141 |gxc[1]#_g170142_|)) + (##unchecked-structure-set! __obj170814 __tmp171271 '13 '#f '#f)) + (let ((__tmp171273 |gxc[1]#_g171274_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169682 __tmp170141 '14 '#f '#f)) + (##unchecked-structure-set! __obj170814 __tmp171273 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169682 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170814 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169682 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170814 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169682 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170814 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169682 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170814 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169682 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170814 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169682 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170814 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169682 '() '20 '#f '#f)) - __obj169682)) + (##unchecked-structure-set! __obj170814 '() '20 '#f '#f)) + __obj170814)) (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_%$stx152702%_) - (let* ((_%g152706152735%_ - (lambda (_%g152707152731%_) + (lambda (_%$stx153834%_) + (let* ((_%g153838153867%_ + (lambda (_%g153839153863%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152707152731%_)))) - (_%g152705152836%_ - (lambda (_%g152707152739%_) + _%g153839153863%_)))) + (_%g153837153968%_ + (lambda (_%g153839153871%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152707152739%_)) - (let ((_%e152710152742%_ + (gx#stx-pair? _%g153839153871%_)) + (let ((_%e153842153874%_ (let () (declare (not safe)) - (gx#syntax-e _%g152707152739%_)))) - (let ((_%hd152711152746%_ + (gx#syntax-e _%g153839153871%_)))) + (let ((_%hd153843153878%_ (let () (declare (not safe)) - (##car _%e152710152742%_))) - (_%tl152712152749%_ + (##car _%e153842153874%_))) + (_%tl153844153881%_ (let () (declare (not safe)) - (##cdr _%e152710152742%_)))) + (##cdr _%e153842153874%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl152712152749%_)) - (let ((_g170143_ + (gx#stx-pair/null? _%tl153844153881%_)) + (let ((_g171275_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl152712152749%_ + _%tl153844153881%_ '0)))) (begin - (let ((_g170144_ + (let ((_g171276_ (let () (declare (not safe)) - (if (##values? _g170143_) - (##vector-length _g170143_) + (if (##values? _g171275_) + (##vector-length _g171275_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170144_ 2))) + (##fx= _g171276_ 2))) (error "Context expects 2 values" - _g170144_))) - (let ((_%target152713152752%_ + _g171276_))) + (let ((_%target153845153884%_ (let () (declare (not safe)) - (##vector-ref _g170143_ 0))) - (_%tl152715152755%_ + (##vector-ref _g171275_ 0))) + (_%tl153847153887%_ (let () (declare (not safe)) - (##vector-ref _g170143_ 1)))) + (##vector-ref _g171275_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152715152755%_)) - (letrec ((_%loop152716152758%_ - (lambda (_%hd152714152762%_ - _%type-e152720152765%_ - _%id152721152767%_) + (gx#stx-null? _%tl153847153887%_)) + (letrec ((_%loop153848153890%_ + (lambda (_%hd153846153894%_ + _%type-e153852153897%_ + _%id153853153899%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd152714152762%_)) - (let ((_%e152717152770%_ + _%hd153846153894%_)) + (let ((_%e153849153902%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd152714152762%_)))) - (let ((_%lp-hd152718152774%_ + (gx#syntax-e _%hd153846153894%_)))) + (let ((_%lp-hd153850153906%_ (let () (declare (not safe)) - (##car _%e152717152770%_))) - (_%lp-tl152719152777%_ + (##car _%e153849153902%_))) + (_%lp-tl153851153909%_ (let () (declare (not safe)) - (##cdr _%e152717152770%_)))) + (##cdr _%e153849153902%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd152718152774%_)) - (let ((_%e152724152780%_ + (gx#stx-pair? _%lp-hd153850153906%_)) + (let ((_%e153856153912%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd152718152774%_)))) - (let ((_%hd152725152784%_ + (gx#syntax-e _%lp-hd153850153906%_)))) + (let ((_%hd153857153916%_ (let () (declare (not safe)) - (##car _%e152724152780%_))) - (_%tl152726152787%_ + (##car _%e153856153912%_))) + (_%tl153858153919%_ (let () (declare (not safe)) - (##cdr _%e152724152780%_)))) + (##cdr _%e153856153912%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152726152787%_)) - (let ((_%e152727152790%_ + (gx#stx-pair? _%tl153858153919%_)) + (let ((_%e153859153922%_ (let () (declare (not safe)) - (gx#syntax-e _%tl152726152787%_)))) - (let ((_%hd152728152794%_ + (gx#syntax-e _%tl153858153919%_)))) + (let ((_%hd153860153926%_ (let () (declare (not safe)) - (##car _%e152727152790%_))) - (_%tl152729152797%_ + (##car _%e153859153922%_))) + (_%tl153861153929%_ (let () (declare (not safe)) - (##cdr _%e152727152790%_)))) + (##cdr _%e153859153922%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152729152797%_)) - (_%loop152716152758%_ - _%lp-tl152719152777%_ - (cons _%hd152728152794%_ - _%type-e152720152765%_) - (cons _%hd152725152784%_ - _%id152721152767%_)) - (_%g152706152735%_ - _%g152707152739%_)))) - (_%g152706152735%_ _%g152707152739%_)))) - (_%g152706152735%_ _%g152707152739%_)))) - (let ((_%type-e152722152800%_ (reverse _%type-e152720152765%_)) - (_%id152723152803%_ (reverse _%id152721152767%_))) - ((lambda (_%L152806%_ _%L152808%_) + (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%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1323,12 +1323,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L152806%_ - _%L152808%_)) - (let ((__tmp170145 - (lambda (_%g152824152828%_ - _%g152825152831%_ - _%g152826152833%_) + _%L153938%_ + _%L153940%_)) + (let ((__tmp171277 + (lambda (_%g153956153960%_ + _%g153957153963%_ + _%g153958153965%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1343,154 +1343,154 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g152825152831%_ '())) - (cons _%g152824152828%_ '())))) + (cons _%g153957153963%_ '())) + (cons _%g153956153960%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g152826152833%_)))) + _%g153958153965%_)))) (declare (not safe)) (__foldr2 - __tmp170145 + __tmp171277 '() - _%L152806%_ - _%L152808%_))))) - _%type-e152722152800%_ - _%id152723152803%_)))))) + _%L153938%_ + _%L153940%_))))) + _%type-e153854153932%_ + _%id153855153935%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop152716152758%_ - _%target152713152752%_ + (_%loop153848153890%_ + _%target153845153884%_ '() '())) - (_%g152706152735%_ - _%g152707152739%_))))) - (_%g152706152735%_ _%g152707152739%_)))) - (_%g152706152735%_ _%g152707152739%_))))) - (_%g152705152836%_ _%$stx152702%_)))) + (_%g153838153867%_ + _%g153839153871%_))))) + (_%g153838153867%_ _%g153839153871%_)))) + (_%g153838153867%_ _%g153839153871%_))))) + (_%g153837153968%_ _%$stx153834%_)))) (define |gxc[:0:]#defbasic-expression-type-special| - (lambda (_%$stx152841%_) - (let* ((_%g152845152874%_ - (lambda (_%g152846152870%_) + (lambda (_%$stx153973%_) + (let* ((_%g153977154006%_ + (lambda (_%g153978154002%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152846152870%_)))) - (_%g152844152974%_ - (lambda (_%g152846152878%_) + _%g153978154002%_)))) + (_%g153976154106%_ + (lambda (_%g153978154010%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152846152878%_)) - (let ((_%e152849152881%_ + (gx#stx-pair? _%g153978154010%_)) + (let ((_%e153981154013%_ (let () (declare (not safe)) - (gx#syntax-e _%g152846152878%_)))) - (let ((_%hd152850152885%_ + (gx#syntax-e _%g153978154010%_)))) + (let ((_%hd153982154017%_ (let () (declare (not safe)) - (##car _%e152849152881%_))) - (_%tl152851152888%_ + (##car _%e153981154013%_))) + (_%tl153983154020%_ (let () (declare (not safe)) - (##cdr _%e152849152881%_)))) + (##cdr _%e153981154013%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl152851152888%_)) - (let ((_g170146_ + (gx#stx-pair/null? _%tl153983154020%_)) + (let ((_g171278_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl152851152888%_ + _%tl153983154020%_ '0)))) (begin - (let ((_g170147_ + (let ((_g171279_ (let () (declare (not safe)) - (if (##values? _g170146_) - (##vector-length _g170146_) + (if (##values? _g171278_) + (##vector-length _g171278_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170147_ 2))) + (##fx= _g171279_ 2))) (error "Context expects 2 values" - _g170147_))) - (let ((_%target152852152891%_ + _g171279_))) + (let ((_%target153984154023%_ (let () (declare (not safe)) - (##vector-ref _g170146_ 0))) - (_%tl152854152894%_ + (##vector-ref _g171278_ 0))) + (_%tl153986154026%_ (let () (declare (not safe)) - (##vector-ref _g170146_ 1)))) + (##vector-ref _g171278_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152854152894%_)) - (letrec ((_%loop152855152897%_ - (lambda (_%hd152853152901%_ - _%type-e152859152904%_ - _%id152860152906%_) + (gx#stx-null? _%tl153986154026%_)) + (letrec ((_%loop153987154029%_ + (lambda (_%hd153985154033%_ + _%type-e153991154036%_ + _%id153992154038%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd152853152901%_)) - (let ((_%e152856152909%_ + _%hd153985154033%_)) + (let ((_%e153988154041%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd152853152901%_)))) - (let ((_%lp-hd152857152913%_ + (gx#syntax-e _%hd153985154033%_)))) + (let ((_%lp-hd153989154045%_ (let () (declare (not safe)) - (##car _%e152856152909%_))) - (_%lp-tl152858152916%_ + (##car _%e153988154041%_))) + (_%lp-tl153990154048%_ (let () (declare (not safe)) - (##cdr _%e152856152909%_)))) + (##cdr _%e153988154041%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd152857152913%_)) - (let ((_%e152863152919%_ + (gx#stx-pair? _%lp-hd153989154045%_)) + (let ((_%e153995154051%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd152857152913%_)))) - (let ((_%hd152864152923%_ + (gx#syntax-e _%lp-hd153989154045%_)))) + (let ((_%hd153996154055%_ (let () (declare (not safe)) - (##car _%e152863152919%_))) - (_%tl152865152926%_ + (##car _%e153995154051%_))) + (_%tl153997154058%_ (let () (declare (not safe)) - (##cdr _%e152863152919%_)))) + (##cdr _%e153995154051%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152865152926%_)) - (let ((_%e152866152929%_ + (gx#stx-pair? _%tl153997154058%_)) + (let ((_%e153998154061%_ (let () (declare (not safe)) - (gx#syntax-e _%tl152865152926%_)))) - (let ((_%hd152867152933%_ + (gx#syntax-e _%tl153997154058%_)))) + (let ((_%hd153999154065%_ (let () (declare (not safe)) - (##car _%e152866152929%_))) - (_%tl152868152936%_ + (##car _%e153998154061%_))) + (_%tl154000154068%_ (let () (declare (not safe)) - (##cdr _%e152866152929%_)))) + (##cdr _%e153998154061%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152868152936%_)) - (_%loop152855152897%_ - _%lp-tl152858152916%_ - (cons _%hd152867152933%_ - _%type-e152859152904%_) - (cons _%hd152864152923%_ - _%id152860152906%_)) - (_%g152845152874%_ - _%g152846152878%_)))) - (_%g152845152874%_ _%g152846152878%_)))) - (_%g152845152874%_ _%g152846152878%_)))) - (let ((_%type-e152861152939%_ (reverse _%type-e152859152904%_)) - (_%id152862152942%_ (reverse _%id152860152906%_))) - ((lambda (_%L152945%_ _%L152947%_) + (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%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1498,12 +1498,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L152945%_ - _%L152947%_)) - (let ((__tmp170148 - (lambda (_%g152962152966%_ - _%g152963152969%_ - _%g152964152971%_) + _%L154077%_ + _%L154079%_)) + (let ((__tmp171280 + (lambda (_%g154094154098%_ + _%g154095154101%_ + _%g154096154103%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1518,25 +1518,25 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g152963152969%_ '())) - (cons _%g152962152966%_ '())))) + (cons _%g154095154101%_ '())) + (cons _%g154094154098%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g152964152971%_)))) + _%g154096154103%_)))) (declare (not safe)) (__foldr2 - __tmp170148 + __tmp171280 '() - _%L152945%_ - _%L152947%_))))) - _%type-e152861152939%_ - _%id152862152942%_)))))) + _%L154077%_ + _%L154079%_))))) + _%type-e153993154071%_ + _%id153994154074%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop152855152897%_ - _%target152852152891%_ + (_%loop153987154029%_ + _%target153984154023%_ '() '())) - (_%g152845152874%_ - _%g152846152878%_))))) - (_%g152845152874%_ _%g152846152878%_)))) - (_%g152845152874%_ _%g152846152878%_))))) - (_%g152844152974%_ _%$stx152841%_)))))) + (_%g153977154006%_ + _%g153978154010%_))))) + (_%g153977154006%_ _%g153978154010%_)))) + (_%g153977154006%_ _%g153978154010%_))))) + (_%g153976154106%_ _%$stx153973%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~0.scm b/src/bootstrap/gerbil/compiler/optimize-xform~0.scm index 6096d9300..c53a058f8 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 1713454412) + (define gerbil/compiler/optimize-xform::timestamp 1713631268) (begin (define gxc#::collect-mutators::t - (let ((__tmp152567 (list gxc#::void::t)) - (__tmp152566 (cons (cons 'final: '#t) '()))) + (let ((__tmp153699 (list gxc#::void::t)) + (__tmp153698 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutators::t '::collect-mutators - __tmp152567 + __tmp153699 '() - __tmp152566 + __tmp153698 '#f))) (define gxc#::collect-mutators? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-mutators::t))) (define gxc#make-::collect-mutators - (lambda _%$args152553%_ - (apply make-instance gxc#::collect-mutators::t _%$args152553%_))) + (lambda _%$args153685%_ + (apply make-instance gxc#::collect-mutators::t _%$args153685%_))) (define gxc#::collect-mutators-bind-methods! - (let ((__tmp152568 + (let ((__tmp153700 (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 __tmp152568))) + (__make-promise __tmp153700))) (define gxc#apply-collect-mutators - (lambda (_%stx152545%_) + (lambda (_%stx153677%_) (force gxc#::collect-mutators-bind-methods!) - (let* ((_%self152548%_ - (let ((__obj152556 + (let* ((_%self153680%_ + (let ((__obj153688 (let () (declare (not safe)) (##structure gxc#::collect-mutators::t)))) - __obj152556)) - (__tmp152569 + __obj153688)) + (__tmp153701 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self152548%_ _%stx152545%_))))) + (gxc#compile-e__1 _%self153680%_ _%stx153677%_))))) (declare (not safe)) (__call-with-parameters - __tmp152569 + __tmp153701 gxc#current-compile-method - _%self152548%_)))) + _%self153680%_)))) (define gxc#::expression-subst::t - (let ((__tmp152571 (list gxc#::basic-xform-expression::t)) - (__tmp152570 (cons (cons 'final: '#t) '()))) + (let ((__tmp153703 (list gxc#::basic-xform-expression::t)) + (__tmp153702 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst::t '::expression-subst - __tmp152571 + __tmp153703 '(id new-id) - __tmp152570 + __tmp153702 '#f))) (define gxc#::expression-subst? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst::t))) (define gxc#make-::expression-subst - (lambda _%$args152542%_ - (apply make-instance gxc#::expression-subst::t _%$args152542%_))) + (lambda _%$args153674%_ + (apply make-instance gxc#::expression-subst::t _%$args153674%_))) (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 ((__tmp152572 + (let ((__tmp153704 (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 __tmp152572))) + (__make-promise __tmp153704))) (define gxc#apply-expression-subst__% - (lambda (_%@@keywords152512%_ - _%id152508152513%_ - _%new-id152509152515%_ - _%stx152517%_) - (let* ((_%id152520%_ - (if (eq? _%id152508152513%_ absent-value) + (lambda (_%@@keywords153644%_ + _%id153640153645%_ + _%new-id153641153647%_ + _%stx153649%_) + (let* ((_%id153652%_ + (if (eq? _%id153640153645%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'id:)) - _%id152508152513%_)) - (_%new-id152522%_ - (if (eq? _%new-id152509152515%_ absent-value) + _%id153640153645%_)) + (_%new-id153654%_ + (if (eq? _%new-id153641153647%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'new-id:)) - _%new-id152509152515%_))) + _%new-id153641153647%_))) (force gxc#::expression-subst-bind-methods!) - (let* ((_%self152524%_ - (let ((__obj152558 + (let* ((_%self153656%_ + (let ((__obj153690 (let () (declare (not safe)) (##structure gxc#::expression-subst::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152558 - _%id152520%_ + __obj153690 + _%id153652%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152558 - _%new-id152522%_ + __obj153690 + _%new-id153654%_ '2 '#f '#f)) - __obj152558)) - (__tmp152573 + __obj153690)) + (__tmp153705 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self152524%_ _%stx152517%_))))) + (gxc#compile-e__1 _%self153656%_ _%stx153649%_))))) (declare (not safe)) (__call-with-parameters - __tmp152573 + __tmp153705 gxc#current-compile-method - _%self152524%_))))) + _%self153656%_))))) (define gxc#apply-expression-subst__@ - (lambda (_%@@keywords152531%_ . _%args152532%_) + (lambda (_%@@keywords153663%_ . _%args153664%_) (apply gxc#apply-expression-subst__% - _%@@keywords152531%_ + _%@@keywords153663%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords152531%_ 'id: absent-value)) + (symbolic-table-ref _%@@keywords153663%_ 'id: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords152531%_ + _%@@keywords153663%_ 'new-id: absent-value)) - _%args152532%_))) + _%args153664%_))) (define gxc#apply-expression-subst - (lambda _%args152510152538%_ + (lambda _%args153642153670%_ (apply keyword-dispatch '#(id: new-id:) gxc#apply-expression-subst__@ - _%args152510152538%_))) + _%args153642153670%_))) (define gxc#::expression-subst*::t - (let ((__tmp152575 (list gxc#::basic-xform-expression::t)) - (__tmp152574 (cons (cons 'final: '#t) '()))) + (let ((__tmp153707 (list gxc#::basic-xform-expression::t)) + (__tmp153706 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst*::t '::expression-subst* - __tmp152575 + __tmp153707 '(subst) - __tmp152574 + __tmp153706 '#f))) (define gxc#::expression-subst*? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst*::t))) (define gxc#make-::expression-subst* - (lambda _%$args152504%_ - (apply make-instance gxc#::expression-subst*::t _%$args152504%_))) + (lambda _%$args153636%_ + (apply make-instance gxc#::expression-subst*::t _%$args153636%_))) (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 ((__tmp152576 + (let ((__tmp153708 (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 __tmp152576))) + (__make-promise __tmp153708))) (define gxc#apply-expression-subst*__% - (lambda (_%@@keywords152478%_ _%subst152475152479%_ _%stx152481%_) - (let ((_%subst152484%_ - (if (eq? _%subst152475152479%_ absent-value) + (lambda (_%@@keywords153610%_ _%subst153607153611%_ _%stx153613%_) + (let ((_%subst153616%_ + (if (eq? _%subst153607153611%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'subst:)) - _%subst152475152479%_))) + _%subst153607153611%_))) (force gxc#::expression-subst*-bind-methods!) - (let* ((_%self152486%_ - (let ((__obj152560 + (let* ((_%self153618%_ + (let ((__obj153692 (let () (declare (not safe)) (##structure gxc#::expression-subst*::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152560 - _%subst152484%_ + __obj153692 + _%subst153616%_ '1 '#f '#f)) - __obj152560)) - (__tmp152577 + __obj153692)) + (__tmp153709 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self152486%_ _%stx152481%_))))) + (gxc#compile-e__1 _%self153618%_ _%stx153613%_))))) (declare (not safe)) (__call-with-parameters - __tmp152577 + __tmp153709 gxc#current-compile-method - _%self152486%_))))) + _%self153618%_))))) (define gxc#apply-expression-subst*__@ - (lambda (_%@@keywords152493%_ . _%args152494%_) + (lambda (_%@@keywords153625%_ . _%args153626%_) (apply gxc#apply-expression-subst*__% - _%@@keywords152493%_ + _%@@keywords153625%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords152493%_ + _%@@keywords153625%_ 'subst: absent-value)) - _%args152494%_))) + _%args153626%_))) (define gxc#apply-expression-subst* - (lambda _%args152476152500%_ + (lambda _%args153608153632%_ (apply keyword-dispatch '#(subst:) gxc#apply-expression-subst*__@ - _%args152476152500%_))) + _%args153608153632%_))) (define gxc#::find-expression::t - (let ((__tmp152578 (list gxc#::false-expression::t))) + (let ((__tmp153710 (list gxc#::false-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::find-expression::t '::find-expression - __tmp152578 + __tmp153710 '() '() '#f))) @@ -467,10 +467,10 @@ (declare (not safe)) (__make-class-predicate gxc#::find-expression::t))) (define gxc#make-::find-expression - (lambda _%$args152471%_ - (apply make-instance gxc#::find-expression::t _%$args152471%_))) + (lambda _%$args153603%_ + (apply make-instance gxc#::find-expression::t _%$args153603%_))) (define gxc#::find-expression-bind-methods! - (let ((__tmp152579 + (let ((__tmp153711 (lambda () (force gxc#::false-expression-bind-methods!) (let () @@ -588,25 +588,25 @@ '%#struct-unchecked-set! gxc#find-body%))))) (declare (not safe)) - (__make-promise __tmp152579))) + (__make-promise __tmp153711))) (define gxc#::find-var-refs::t - (let ((__tmp152581 (list gxc#::find-expression::t)) - (__tmp152580 (cons (cons 'final: '#t) '()))) + (let ((__tmp153713 (list gxc#::find-expression::t)) + (__tmp153712 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-var-refs::t '::find-var-refs - __tmp152581 + __tmp153713 '(ids) - __tmp152580 + __tmp153712 '#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 _%$args152467%_ - (apply make-instance gxc#::find-var-refs::t _%$args152467%_))) + (lambda _%$args153599%_ + (apply make-instance gxc#::find-var-refs::t _%$args153599%_))) (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 ((__tmp152582 + (let ((__tmp153714 (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 __tmp152582))) + (__make-promise __tmp153714))) (define gxc#apply-find-var-refs__% - (lambda (_%@@keywords152441%_ _%ids152438152442%_ _%stx152444%_) - (let ((_%ids152447%_ - (if (eq? _%ids152438152442%_ absent-value) + (lambda (_%@@keywords153573%_ _%ids153570153574%_ _%stx153576%_) + (let ((_%ids153579%_ + (if (eq? _%ids153570153574%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'ids:)) - _%ids152438152442%_))) + _%ids153570153574%_))) (force gxc#::find-var-refs-bind-methods!) - (let* ((_%self152449%_ - (let ((__obj152563 + (let* ((_%self153581%_ + (let ((__obj153695 (let () (declare (not safe)) (##structure gxc#::find-var-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152563 - _%ids152447%_ + __obj153695 + _%ids153579%_ '1 '#f '#f)) - __obj152563)) - (__tmp152583 + __obj153695)) + (__tmp153715 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self152449%_ _%stx152444%_))))) + (gxc#compile-e__1 _%self153581%_ _%stx153576%_))))) (declare (not safe)) (__call-with-parameters - __tmp152583 + __tmp153715 gxc#current-compile-method - _%self152449%_))))) + _%self153581%_))))) (define gxc#apply-find-var-refs__@ - (lambda (_%@@keywords152456%_ . _%args152457%_) + (lambda (_%@@keywords153588%_ . _%args153589%_) (apply gxc#apply-find-var-refs__% - _%@@keywords152456%_ + _%@@keywords153588%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords152456%_ 'ids: absent-value)) - _%args152457%_))) + (symbolic-table-ref _%@@keywords153588%_ 'ids: absent-value)) + _%args153589%_))) (define gxc#apply-find-var-refs - (lambda _%args152439152463%_ + (lambda _%args153571153595%_ (apply keyword-dispatch '#(ids:) gxc#apply-find-var-refs__@ - _%args152439152463%_))) + _%args153571153595%_))) (define gxc#::collect-runtime-refs::t - (let ((__tmp152585 (list gxc#::collect-expression-refs::t)) - (__tmp152584 (cons (cons 'final: '#t) '()))) + (let ((__tmp153717 (list gxc#::collect-expression-refs::t)) + (__tmp153716 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-runtime-refs::t '::collect-runtime-refs - __tmp152585 + __tmp153717 '() - __tmp152584 + __tmp153716 '#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 _%$args152434%_ - (apply make-instance gxc#::collect-runtime-refs::t _%$args152434%_))) + (lambda _%$args153566%_ + (apply make-instance gxc#::collect-runtime-refs::t _%$args153566%_))) (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 ((__tmp152586 + (let ((__tmp153718 (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 __tmp152586))) + (__make-promise __tmp153718))) (define gxc#apply-collect-runtime-refs__% - (lambda (_%@@keywords152408%_ _%table152405152409%_ _%stx152411%_) - (let ((_%table152414%_ - (if (eq? _%table152405152409%_ absent-value) + (lambda (_%@@keywords153540%_ _%table153537153541%_ _%stx153543%_) + (let ((_%table153546%_ + (if (eq? _%table153537153541%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table152405152409%_))) + _%table153537153541%_))) (force gxc#::collect-runtime-refs-bind-methods!) - (let* ((_%self152416%_ - (let ((__obj152565 + (let* ((_%self153548%_ + (let ((__obj153697 (let () (declare (not safe)) (##structure gxc#::collect-runtime-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152565 - _%table152414%_ + __obj153697 + _%table153546%_ '1 '#f '#f)) - __obj152565)) - (__tmp152587 + __obj153697)) + (__tmp153719 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self152416%_ _%stx152411%_))))) + (gxc#compile-e__1 _%self153548%_ _%stx153543%_))))) (declare (not safe)) (__call-with-parameters - __tmp152587 + __tmp153719 gxc#current-compile-method - _%self152416%_))))) + _%self153548%_))))) (define gxc#apply-collect-runtime-refs__@ - (lambda (_%@@keywords152423%_ . _%args152424%_) + (lambda (_%@@keywords153555%_ . _%args153556%_) (apply gxc#apply-collect-runtime-refs__% - _%@@keywords152423%_ + _%@@keywords153555%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords152423%_ + _%@@keywords153555%_ 'table: absent-value)) - _%args152424%_))) + _%args153556%_))) (define gxc#apply-collect-runtime-refs - (lambda _%args152406152430%_ + (lambda _%args153538153562%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-runtime-refs__@ - _%args152406152430%_))) + _%args153538153562%_))) (define gxc#collect-mutators-setq% - (lambda (_%self152334%_ _%stx152335%_) - (let* ((_%g152337152354%_ - (lambda (_%g152338152351%_) + (lambda (_%self153466%_ _%stx153467%_) + (let* ((_%g153469153486%_ + (lambda (_%g153470153483%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152338152351%_)))) - (_%g152336152401%_ - (lambda (_%g152338152357%_) + _%g153470153483%_)))) + (_%g153468153533%_ + (lambda (_%g153470153489%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152338152357%_)) - (let ((_%e152341152359%_ + (gx#stx-pair? _%g153470153489%_)) + (let ((_%e153473153491%_ (let () (declare (not safe)) - (gx#stx-e _%g152338152357%_)))) - (let ((_%hd152342152362%_ + (gx#stx-e _%g153470153489%_)))) + (let ((_%hd153474153494%_ (let () (declare (not safe)) - (##car _%e152341152359%_))) - (_%tl152343152364%_ + (##car _%e153473153491%_))) + (_%tl153475153496%_ (let () (declare (not safe)) - (##cdr _%e152341152359%_)))) + (##cdr _%e153473153491%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152343152364%_)) - (let ((_%e152344152367%_ + (gx#stx-pair? _%tl153475153496%_)) + (let ((_%e153476153499%_ (let () (declare (not safe)) - (gx#stx-e _%tl152343152364%_)))) - (let ((_%hd152345152370%_ + (gx#stx-e _%tl153475153496%_)))) + (let ((_%hd153477153502%_ (let () (declare (not safe)) - (##car _%e152344152367%_))) - (_%tl152346152372%_ + (##car _%e153476153499%_))) + (_%tl153478153504%_ (let () (declare (not safe)) - (##cdr _%e152344152367%_)))) + (##cdr _%e153476153499%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152346152372%_)) - (let ((_%e152347152375%_ + (gx#stx-pair? _%tl153478153504%_)) + (let ((_%e153479153507%_ (let () (declare (not safe)) - (gx#stx-e _%tl152346152372%_)))) - (let ((_%hd152348152378%_ + (gx#stx-e _%tl153478153504%_)))) + (let ((_%hd153480153510%_ (let () (declare (not safe)) - (##car _%e152347152375%_))) - (_%tl152349152380%_ + (##car _%e153479153507%_))) + (_%tl153481153512%_ (let () (declare (not safe)) - (##cdr _%e152347152375%_)))) + (##cdr _%e153479153507%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152349152380%_)) - ((lambda (_%L152383%_ - _%L152384%_) - (let ((_%sym152399%_ + _%tl153481153512%_)) + ((lambda (_%L153515%_ + _%L153516%_) + (let ((_%sym153531%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L152384%_)))) + _%L153516%_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _%sym152399%_)) - (let ((__tmp152588 + _%sym153531%_)) + (let ((__tmp153720 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) (hash-put! - __tmp152588 - _%sym152399%_ + __tmp153720 + _%sym153531%_ '#t)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self152334%_ - _%L152383%_)))) - _%hd152348152378%_ - _%hd152345152370%_) - (_%g152337152354%_ - _%g152338152357%_)))) - (_%g152337152354%_ _%g152338152357%_)))) - (_%g152337152354%_ _%g152338152357%_)))) - (_%g152337152354%_ _%g152338152357%_))))) - (_%g152336152401%_ _%stx152335%_)))) + _%self153466%_ + _%L153515%_)))) + _%hd153480153510%_ + _%hd153477153502%_) + (_%g153469153486%_ + _%g153470153489%_)))) + (_%g153469153486%_ _%g153470153489%_)))) + (_%g153469153486%_ _%g153470153489%_)))) + (_%g153469153486%_ _%g153470153489%_))))) + (_%g153468153533%_ _%stx153467%_)))) (define gxc#expression-subst-ref% - (lambda (_%self152282%_ _%stx152283%_) - (let* ((_%g152285152298%_ - (lambda (_%g152286152295%_) + (lambda (_%self153414%_ _%stx153415%_) + (let* ((_%g153417153430%_ + (lambda (_%g153418153427%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152286152295%_)))) - (_%g152284152331%_ - (lambda (_%g152286152301%_) + _%g153418153427%_)))) + (_%g153416153463%_ + (lambda (_%g153418153433%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152286152301%_)) - (let ((_%e152288152303%_ + (gx#stx-pair? _%g153418153433%_)) + (let ((_%e153420153435%_ (let () (declare (not safe)) - (gx#stx-e _%g152286152301%_)))) - (let ((_%hd152289152306%_ + (gx#stx-e _%g153418153433%_)))) + (let ((_%hd153421153438%_ (let () (declare (not safe)) - (##car _%e152288152303%_))) - (_%tl152290152308%_ + (##car _%e153420153435%_))) + (_%tl153422153440%_ (let () (declare (not safe)) - (##cdr _%e152288152303%_)))) + (##cdr _%e153420153435%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152290152308%_)) - (let ((_%e152291152311%_ + (gx#stx-pair? _%tl153422153440%_)) + (let ((_%e153423153443%_ (let () (declare (not safe)) - (gx#stx-e _%tl152290152308%_)))) - (let ((_%hd152292152314%_ + (gx#stx-e _%tl153422153440%_)))) + (let ((_%hd153424153446%_ (let () (declare (not safe)) - (##car _%e152291152311%_))) - (_%tl152293152316%_ + (##car _%e153423153443%_))) + (_%tl153425153448%_ (let () (declare (not safe)) - (##cdr _%e152291152311%_)))) + (##cdr _%e153423153443%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152293152316%_)) - ((lambda (_%L152319%_) - (if (let ((__tmp152589 + (gx#stx-null? _%tl153425153448%_)) + ((lambda (_%L153451%_) + (if (let ((__tmp153721 (let () (declare (not safe)) (slot-ref__0 - _%self152282%_ + _%self153414%_ 'id)))) (declare (not safe)) (gx#free-identifier=? - _%L152319%_ - __tmp152589)) - (let ((__tmp152590 + _%L153451%_ + __tmp153721)) + (let ((__tmp153722 (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self152282%_ 'new-id)) + (slot-ref__0 _%self153414%_ 'new-id)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp152590 - _%stx152283%_)) - _%stx152283%_)) - _%hd152292152314%_) - (_%g152285152298%_ _%g152286152301%_)))) - (_%g152285152298%_ _%g152286152301%_)))) - (_%g152285152298%_ _%g152286152301%_))))) - (_%g152284152331%_ _%stx152283%_)))) + __tmp153722 + _%stx153415%_)) + _%stx153415%_)) + _%hd153424153446%_) + (_%g153417153430%_ _%g153418153433%_)))) + (_%g153417153430%_ _%g153418153433%_)))) + (_%g153417153430%_ _%g153418153433%_))))) + (_%g153416153463%_ _%stx153415%_)))) (define gxc#expression-subst*-ref% - (lambda (_%self152222%_ _%stx152223%_) - (let* ((_%g152225152238%_ - (lambda (_%g152226152235%_) + (lambda (_%self153354%_ _%stx153355%_) + (let* ((_%g153357153370%_ + (lambda (_%g153358153367%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152226152235%_)))) - (_%g152224152279%_ - (lambda (_%g152226152241%_) + _%g153358153367%_)))) + (_%g153356153411%_ + (lambda (_%g153358153373%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152226152241%_)) - (let ((_%e152228152243%_ + (gx#stx-pair? _%g153358153373%_)) + (let ((_%e153360153375%_ (let () (declare (not safe)) - (gx#stx-e _%g152226152241%_)))) - (let ((_%hd152229152246%_ + (gx#stx-e _%g153358153373%_)))) + (let ((_%hd153361153378%_ (let () (declare (not safe)) - (##car _%e152228152243%_))) - (_%tl152230152248%_ + (##car _%e153360153375%_))) + (_%tl153362153380%_ (let () (declare (not safe)) - (##cdr _%e152228152243%_)))) + (##cdr _%e153360153375%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152230152248%_)) - (let ((_%e152231152251%_ + (gx#stx-pair? _%tl153362153380%_)) + (let ((_%e153363153383%_ (let () (declare (not safe)) - (gx#stx-e _%tl152230152248%_)))) - (let ((_%hd152232152254%_ + (gx#stx-e _%tl153362153380%_)))) + (let ((_%hd153364153386%_ (let () (declare (not safe)) - (##car _%e152231152251%_))) - (_%tl152233152256%_ + (##car _%e153363153383%_))) + (_%tl153365153388%_ (let () (declare (not safe)) - (##cdr _%e152231152251%_)))) + (##cdr _%e153363153383%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152233152256%_)) - ((lambda (_%L152259%_) - (let ((_%$e152273%_ - (let ((__tmp152592 - (lambda (_%sub152271%_) - (let ((__tmp152593 - (car _%sub152271%_))) + (gx#stx-null? _%tl153365153388%_)) + ((lambda (_%L153391%_) + (let ((_%$e153405%_ + (let ((__tmp153724 + (lambda (_%sub153403%_) + (let ((__tmp153725 + (car _%sub153403%_))) (declare (not safe)) (gx#free-identifier=? - _%L152259%_ - __tmp152593)))) - (__tmp152591 + _%L153391%_ + __tmp153725)))) + (__tmp153723 (let () (declare (not safe)) (slot-ref__0 - _%self152222%_ + _%self153354%_ 'subst)))) (declare (not safe)) - (__find __tmp152592 - __tmp152591)))) - (if _%$e152273%_ - ((lambda (_%sub152276%_) - (let ((__tmp152594 + (__find __tmp153724 + __tmp153723)))) + (if _%$e153405%_ + ((lambda (_%sub153408%_) + (let ((__tmp153726 (cons '%#ref - (cons (cdr _%sub152276%_) + (cons (cdr _%sub153408%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp152594 - _%stx152223%_))) - _%$e152273%_) - _%stx152223%_))) - _%hd152232152254%_) - (_%g152225152238%_ _%g152226152241%_)))) - (_%g152225152238%_ _%g152226152241%_)))) - (_%g152225152238%_ _%g152226152241%_))))) - (_%g152224152279%_ _%stx152223%_)))) + __tmp153726 + _%stx153355%_))) + _%$e153405%_) + _%stx153355%_))) + _%hd153364153386%_) + (_%g153357153370%_ _%g153358153373%_)))) + (_%g153357153370%_ _%g153358153373%_)))) + (_%g153357153370%_ _%g153358153373%_))))) + (_%g153356153411%_ _%stx153355%_)))) (define gxc#expression-subst-setq% - (lambda (_%self152151%_ _%stx152152%_) - (let* ((_%g152154152171%_ - (lambda (_%g152155152168%_) + (lambda (_%self153283%_ _%stx153284%_) + (let* ((_%g153286153303%_ + (lambda (_%g153287153300%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152155152168%_)))) - (_%g152153152219%_ - (lambda (_%g152155152174%_) + _%g153287153300%_)))) + (_%g153285153351%_ + (lambda (_%g153287153306%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152155152174%_)) - (let ((_%e152158152176%_ + (gx#stx-pair? _%g153287153306%_)) + (let ((_%e153290153308%_ (let () (declare (not safe)) - (gx#stx-e _%g152155152174%_)))) - (let ((_%hd152159152179%_ + (gx#stx-e _%g153287153306%_)))) + (let ((_%hd153291153311%_ (let () (declare (not safe)) - (##car _%e152158152176%_))) - (_%tl152160152181%_ + (##car _%e153290153308%_))) + (_%tl153292153313%_ (let () (declare (not safe)) - (##cdr _%e152158152176%_)))) + (##cdr _%e153290153308%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152160152181%_)) - (let ((_%e152161152184%_ + (gx#stx-pair? _%tl153292153313%_)) + (let ((_%e153293153316%_ (let () (declare (not safe)) - (gx#stx-e _%tl152160152181%_)))) - (let ((_%hd152162152187%_ + (gx#stx-e _%tl153292153313%_)))) + (let ((_%hd153294153319%_ (let () (declare (not safe)) - (##car _%e152161152184%_))) - (_%tl152163152189%_ + (##car _%e153293153316%_))) + (_%tl153295153321%_ (let () (declare (not safe)) - (##cdr _%e152161152184%_)))) + (##cdr _%e153293153316%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152163152189%_)) - (let ((_%e152164152192%_ + (gx#stx-pair? _%tl153295153321%_)) + (let ((_%e153296153324%_ (let () (declare (not safe)) - (gx#stx-e _%tl152163152189%_)))) - (let ((_%hd152165152195%_ + (gx#stx-e _%tl153295153321%_)))) + (let ((_%hd153297153327%_ (let () (declare (not safe)) - (##car _%e152164152192%_))) - (_%tl152166152197%_ + (##car _%e153296153324%_))) + (_%tl153298153329%_ (let () (declare (not safe)) - (##cdr _%e152164152192%_)))) + (##cdr _%e153296153324%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152166152197%_)) - ((lambda (_%L152200%_ - _%L152201%_) - (let ((_%new-expr152216%_ + _%tl153298153329%_)) + ((lambda (_%L153332%_ + _%L153333%_) + (let ((_%new-expr153348%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152151%_ - _%L152200%_))) - (_%new-xid152217%_ - (if (let ((__tmp152595 + _%self153283%_ + _%L153332%_))) + (_%new-xid153349%_ + (if (let ((__tmp153727 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _%self152151%_ 'id)))) + (slot-ref__0 _%self153283%_ 'id)))) (declare (not safe)) - (gx#free-identifier=? _%L152201%_ __tmp152595)) + (gx#free-identifier=? _%L153333%_ __tmp153727)) (let () (declare (not safe)) - (slot-ref__0 _%self152151%_ 'new-id)) - _%L152201%_))) + (slot-ref__0 _%self153283%_ 'new-id)) + _%L153333%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp152596 + (let ((__tmp153728 (cons '%#set! - (cons _%new-xid152217%_ + (cons _%new-xid153349%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr152216%_ '()))))) + (cons _%new-expr153348%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp152596 - _%stx152152%_)))) - _%hd152165152195%_ - _%hd152162152187%_) - (_%g152154152171%_ - _%g152155152174%_)))) - (_%g152154152171%_ _%g152155152174%_)))) - (_%g152154152171%_ _%g152155152174%_)))) - (_%g152154152171%_ _%g152155152174%_))))) - (_%g152153152219%_ _%stx152152%_)))) + __tmp153728 + _%stx153284%_)))) + _%hd153297153327%_ + _%hd153294153319%_) + (_%g153286153303%_ + _%g153287153306%_)))) + (_%g153286153303%_ _%g153287153306%_)))) + (_%g153286153303%_ _%g153287153306%_)))) + (_%g153286153303%_ _%g153287153306%_))))) + (_%g153285153351%_ _%stx153284%_)))) (define gxc#expression-subst*-setq% - (lambda (_%self152074%_ _%stx152075%_) - (let* ((_%g152077152094%_ - (lambda (_%g152078152091%_) + (lambda (_%self153206%_ _%stx153207%_) + (let* ((_%g153209153226%_ + (lambda (_%g153210153223%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152078152091%_)))) - (_%g152076152148%_ - (lambda (_%g152078152097%_) + _%g153210153223%_)))) + (_%g153208153280%_ + (lambda (_%g153210153229%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152078152097%_)) - (let ((_%e152081152099%_ + (gx#stx-pair? _%g153210153229%_)) + (let ((_%e153213153231%_ (let () (declare (not safe)) - (gx#stx-e _%g152078152097%_)))) - (let ((_%hd152082152102%_ + (gx#stx-e _%g153210153229%_)))) + (let ((_%hd153214153234%_ (let () (declare (not safe)) - (##car _%e152081152099%_))) - (_%tl152083152104%_ + (##car _%e153213153231%_))) + (_%tl153215153236%_ (let () (declare (not safe)) - (##cdr _%e152081152099%_)))) + (##cdr _%e153213153231%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152083152104%_)) - (let ((_%e152084152107%_ + (gx#stx-pair? _%tl153215153236%_)) + (let ((_%e153216153239%_ (let () (declare (not safe)) - (gx#stx-e _%tl152083152104%_)))) - (let ((_%hd152085152110%_ + (gx#stx-e _%tl153215153236%_)))) + (let ((_%hd153217153242%_ (let () (declare (not safe)) - (##car _%e152084152107%_))) - (_%tl152086152112%_ + (##car _%e153216153239%_))) + (_%tl153218153244%_ (let () (declare (not safe)) - (##cdr _%e152084152107%_)))) + (##cdr _%e153216153239%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152086152112%_)) - (let ((_%e152087152115%_ + (gx#stx-pair? _%tl153218153244%_)) + (let ((_%e153219153247%_ (let () (declare (not safe)) - (gx#stx-e _%tl152086152112%_)))) - (let ((_%hd152088152118%_ + (gx#stx-e _%tl153218153244%_)))) + (let ((_%hd153220153250%_ (let () (declare (not safe)) - (##car _%e152087152115%_))) - (_%tl152089152120%_ + (##car _%e153219153247%_))) + (_%tl153221153252%_ (let () (declare (not safe)) - (##cdr _%e152087152115%_)))) + (##cdr _%e153219153247%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152089152120%_)) - ((lambda (_%L152123%_ - _%L152124%_) - (let ((_%new-expr152145%_ + _%tl153221153252%_)) + ((lambda (_%L153255%_ + _%L153256%_) + (let ((_%new-expr153277%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152074%_ - _%L152123%_))) - (_%new-xid152146%_ - (let ((_%$e152141%_ - (let ((__tmp152598 + _%self153206%_ + _%L153255%_))) + (_%new-xid153278%_ + (let ((_%$e153273%_ + (let ((__tmp153730 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%sub152139%_) - (let ((__tmp152599 (car _%sub152139%_))) + (lambda (_%sub153271%_) + (let ((__tmp153731 (car _%sub153271%_))) (declare (not safe)) (gx#free-identifier=? - _%L152124%_ - __tmp152599)))) - (__tmp152597 + _%L153256%_ + __tmp153731)))) + (__tmp153729 (let () (declare (not safe)) - (slot-ref__0 _%self152074%_ 'subst)))) + (slot-ref__0 _%self153206%_ 'subst)))) (declare (not safe)) - (__find __tmp152598 __tmp152597)))) - (if _%$e152141%_ (cdr _%$e152141%_) _%L152124%_)))) + (__find __tmp153730 __tmp153729)))) + (if _%$e153273%_ (cdr _%$e153273%_) _%L153256%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp152600 + (let ((__tmp153732 (cons '%#set! - (cons _%new-xid152146%_ + (cons _%new-xid153278%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr152145%_ '()))))) + (cons _%new-expr153277%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp152600 - _%stx152075%_)))) - _%hd152088152118%_ - _%hd152085152110%_) - (_%g152077152094%_ - _%g152078152097%_)))) - (_%g152077152094%_ _%g152078152097%_)))) - (_%g152077152094%_ _%g152078152097%_)))) - (_%g152077152094%_ _%g152078152097%_))))) - (_%g152076152148%_ _%stx152075%_)))) + __tmp153732 + _%stx153207%_)))) + _%hd153220153250%_ + _%hd153217153242%_) + (_%g153209153226%_ + _%g153210153229%_)))) + (_%g153209153226%_ _%g153210153229%_)))) + (_%g153209153226%_ _%g153210153229%_)))) + (_%g153209153226%_ _%g153210153229%_))))) + (_%g153208153280%_ _%stx153207%_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_%self152020%_ _%stx152021%_) - (let* ((_%g152023152036%_ - (lambda (_%g152024152033%_) + (lambda (_%self153152%_ _%stx153153%_) + (let* ((_%g153155153168%_ + (lambda (_%g153156153165%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152024152033%_)))) - (_%g152022152071%_ - (lambda (_%g152024152039%_) + _%g153156153165%_)))) + (_%g153154153203%_ + (lambda (_%g153156153171%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152024152039%_)) - (let ((_%e152026152041%_ + (gx#stx-pair? _%g153156153171%_)) + (let ((_%e153158153173%_ (let () (declare (not safe)) - (gx#stx-e _%g152024152039%_)))) - (let ((_%hd152027152044%_ + (gx#stx-e _%g153156153171%_)))) + (let ((_%hd153159153176%_ (let () (declare (not safe)) - (##car _%e152026152041%_))) - (_%tl152028152046%_ + (##car _%e153158153173%_))) + (_%tl153160153178%_ (let () (declare (not safe)) - (##cdr _%e152026152041%_)))) + (##cdr _%e153158153173%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152028152046%_)) - (let ((_%e152029152049%_ + (gx#stx-pair? _%tl153160153178%_)) + (let ((_%e153161153181%_ (let () (declare (not safe)) - (gx#stx-e _%tl152028152046%_)))) - (let ((_%hd152030152052%_ + (gx#stx-e _%tl153160153178%_)))) + (let ((_%hd153162153184%_ (let () (declare (not safe)) - (##car _%e152029152049%_))) - (_%tl152031152054%_ + (##car _%e153161153181%_))) + (_%tl153163153186%_ (let () (declare (not safe)) - (##cdr _%e152029152049%_)))) + (##cdr _%e153161153181%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152031152054%_)) - ((lambda (_%L152057%_) - (let* ((_%eid152069%_ + (gx#stx-null? _%tl153163153186%_)) + ((lambda (_%L153189%_) + (let* ((_%eid153201%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L152057%_))) - (__tmp152601 + _%L153189%_))) + (__tmp153733 (let () (declare (not safe)) (slot-ref__0 - _%self152020%_ + _%self153152%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp152601 - _%eid152069%_ + __tmp153733 + _%eid153201%_ 1+ '0))) - _%hd152030152052%_) - (_%g152023152036%_ _%g152024152039%_)))) - (_%g152023152036%_ _%g152024152039%_)))) - (_%g152023152036%_ _%g152024152039%_))))) - (_%g152022152071%_ _%stx152021%_)))) + _%hd153162153184%_) + (_%g153155153168%_ _%g153156153171%_)))) + (_%g153155153168%_ _%g153156153171%_)))) + (_%g153155153168%_ _%g153156153171%_))))) + (_%g153154153203%_ _%stx153153%_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_%self151950%_ _%stx151951%_) - (let* ((_%g151953151970%_ - (lambda (_%g151954151967%_) + (lambda (_%self153082%_ _%stx153083%_) + (let* ((_%g153085153102%_ + (lambda (_%g153086153099%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151954151967%_)))) - (_%g151952152017%_ - (lambda (_%g151954151973%_) + _%g153086153099%_)))) + (_%g153084153149%_ + (lambda (_%g153086153105%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151954151973%_)) - (let ((_%e151957151975%_ + (gx#stx-pair? _%g153086153105%_)) + (let ((_%e153089153107%_ (let () (declare (not safe)) - (gx#stx-e _%g151954151973%_)))) - (let ((_%hd151958151978%_ + (gx#stx-e _%g153086153105%_)))) + (let ((_%hd153090153110%_ (let () (declare (not safe)) - (##car _%e151957151975%_))) - (_%tl151959151980%_ + (##car _%e153089153107%_))) + (_%tl153091153112%_ (let () (declare (not safe)) - (##cdr _%e151957151975%_)))) + (##cdr _%e153089153107%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151959151980%_)) - (let ((_%e151960151983%_ + (gx#stx-pair? _%tl153091153112%_)) + (let ((_%e153092153115%_ (let () (declare (not safe)) - (gx#stx-e _%tl151959151980%_)))) - (let ((_%hd151961151986%_ + (gx#stx-e _%tl153091153112%_)))) + (let ((_%hd153093153118%_ (let () (declare (not safe)) - (##car _%e151960151983%_))) - (_%tl151962151988%_ + (##car _%e153092153115%_))) + (_%tl153094153120%_ (let () (declare (not safe)) - (##cdr _%e151960151983%_)))) + (##cdr _%e153092153115%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151962151988%_)) - (let ((_%e151963151991%_ + (gx#stx-pair? _%tl153094153120%_)) + (let ((_%e153095153123%_ (let () (declare (not safe)) - (gx#stx-e _%tl151962151988%_)))) - (let ((_%hd151964151994%_ + (gx#stx-e _%tl153094153120%_)))) + (let ((_%hd153096153126%_ (let () (declare (not safe)) - (##car _%e151963151991%_))) - (_%tl151965151996%_ + (##car _%e153095153123%_))) + (_%tl153097153128%_ (let () (declare (not safe)) - (##cdr _%e151963151991%_)))) + (##cdr _%e153095153123%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151965151996%_)) - ((lambda (_%L151999%_ - _%L152000%_) - (let ((_%eid152015%_ + _%tl153097153128%_)) + ((lambda (_%L153131%_ + _%L153132%_) + (let ((_%eid153147%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L152000%_)))) - (let ((__tmp152602 + _%L153132%_)))) + (let ((__tmp153734 (let () (declare (not safe)) (slot-ref__0 - _%self151950%_ + _%self153082%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp152602 - _%eid152015%_ + __tmp153734 + _%eid153147%_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self151950%_ - _%L151999%_)))) - _%hd151964151994%_ - _%hd151961151986%_) - (_%g151953151970%_ - _%g151954151973%_)))) - (_%g151953151970%_ _%g151954151973%_)))) - (_%g151953151970%_ _%g151954151973%_)))) - (_%g151953151970%_ _%g151954151973%_))))) - (_%g151952152017%_ _%stx151951%_)))) + _%self153082%_ + _%L153131%_)))) + _%hd153096153126%_ + _%hd153093153118%_) + (_%g153085153102%_ + _%g153086153105%_)))) + (_%g153085153102%_ _%g153086153105%_)))) + (_%g153085153102%_ _%g153086153105%_)))) + (_%g153085153102%_ _%g153086153105%_))))) + (_%g153084153149%_ _%stx153083%_)))) (define gxc#find-body% - (lambda (_%self151863%_ _%stx151864%_) - (let* ((_%g151866151885%_ - (lambda (_%g151867151882%_) + (lambda (_%self152995%_ _%stx152996%_) + (let* ((_%g152998153017%_ + (lambda (_%g152999153014%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151867151882%_)))) - (_%g151865151947%_ - (lambda (_%g151867151888%_) + _%g152999153014%_)))) + (_%g152997153079%_ + (lambda (_%g152999153020%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151867151888%_)) - (let ((_%e151869151890%_ + (gx#stx-pair? _%g152999153020%_)) + (let ((_%e153001153022%_ (let () (declare (not safe)) - (gx#stx-e _%g151867151888%_)))) - (let ((_%hd151870151893%_ + (gx#stx-e _%g152999153020%_)))) + (let ((_%hd153002153025%_ (let () (declare (not safe)) - (##car _%e151869151890%_))) - (_%tl151871151895%_ + (##car _%e153001153022%_))) + (_%tl153003153027%_ (let () (declare (not safe)) - (##cdr _%e151869151890%_)))) + (##cdr _%e153001153022%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl151871151895%_)) - (let ((_g152603_ + (gx#stx-pair/null? _%tl153003153027%_)) + (let ((_g153735_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl151871151895%_ + _%tl153003153027%_ '0)))) (begin - (let ((_g152604_ + (let ((_g153736_ (let () (declare (not safe)) - (if (##values? _g152603_) - (##vector-length _g152603_) + (if (##values? _g153735_) + (##vector-length _g153735_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152604_ 2))) + (##fx= _g153736_ 2))) (error "Context expects 2 values" - _g152604_))) - (let ((_%target151872151898%_ + _g153736_))) + (let ((_%target153004153030%_ (let () (declare (not safe)) - (##vector-ref _g152603_ 0))) - (_%tl151874151900%_ + (##vector-ref _g153735_ 0))) + (_%tl153006153032%_ (let () (declare (not safe)) - (##vector-ref _g152603_ 1)))) + (##vector-ref _g153735_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151874151900%_)) - (letrec ((_%loop151875151903%_ - (lambda (_%hd151873151906%_ - _%expr151879151908%_) + (gx#stx-null? _%tl153006153032%_)) + (letrec ((_%loop153007153035%_ + (lambda (_%hd153005153038%_ + _%expr153011153040%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd151873151906%_)) - (let ((_%e151876151911%_ + _%hd153005153038%_)) + (let ((_%e153008153043%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd151873151906%_)))) - (let ((_%lp-hd151877151914%_ + (gx#stx-e _%hd153005153038%_)))) + (let ((_%lp-hd153009153046%_ (let () (declare (not safe)) - (##car _%e151876151911%_))) - (_%lp-tl151878151916%_ + (##car _%e153008153043%_))) + (_%lp-tl153010153048%_ (let () (declare (not safe)) - (##cdr _%e151876151911%_)))) - (_%loop151875151903%_ - _%lp-tl151878151916%_ - (cons _%lp-hd151877151914%_ _%expr151879151908%_)))) - (let ((_%expr151880151919%_ (reverse _%expr151879151908%_))) - ((lambda (_%L151922%_) - (let ((__tmp152607 - (lambda (_%g151935151937%_) + (##cdr _%e153008153043%_)))) + (_%loop153007153035%_ + _%lp-tl153010153048%_ + (cons _%lp-hd153009153046%_ _%expr153011153040%_)))) + (let ((_%expr153012153051%_ (reverse _%expr153011153040%_))) + ((lambda (_%L153054%_) + (let ((__tmp153739 + (lambda (_%g153067153069%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self151863%_ - _%g151935151937%_)))) - (__tmp152605 - (let ((__tmp152606 - (lambda (_%g151939151942%_ - _%g151940151944%_) - (cons _%g151939151942%_ - _%g151940151944%_)))) + _%self152995%_ + _%g153067153069%_)))) + (__tmp153737 + (let ((__tmp153738 + (lambda (_%g153071153074%_ + _%g153072153076%_) + (cons _%g153071153074%_ + _%g153072153076%_)))) (declare (not safe)) - (__foldr1 __tmp152606 '() _%L151922%_)))) + (__foldr1 __tmp153738 '() _%L153054%_)))) (declare (not safe)) - (__ormap1 __tmp152607 __tmp152605))) - _%expr151880151919%_)))))) + (__ormap1 __tmp153739 __tmp153737))) + _%expr153012153051%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop151875151903%_ - _%target151872151898%_ + (_%loop153007153035%_ + _%target153004153030%_ '())) - (_%g151866151885%_ - _%g151867151888%_))))) - (_%g151866151885%_ _%g151867151888%_)))) - (_%g151866151885%_ _%g151867151888%_))))) - (_%g151865151947%_ _%stx151864%_)))) + (_%g152998153017%_ + _%g152999153020%_))))) + (_%g152998153017%_ _%g152999153020%_)))) + (_%g152998153017%_ _%g152999153020%_))))) + (_%g152997153079%_ _%stx152996%_)))) (define gxc#find-let-values% - (lambda (_%self151713%_ _%stx151714%_) - (let* ((_%g151716151751%_ - (lambda (_%g151717151748%_) + (lambda (_%self152845%_ _%stx152846%_) + (let* ((_%g152848152883%_ + (lambda (_%g152849152880%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151717151748%_)))) - (_%g151715151860%_ - (lambda (_%g151717151754%_) + _%g152849152880%_)))) + (_%g152847152992%_ + (lambda (_%g152849152886%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151717151754%_)) - (let ((_%e151721151756%_ + (gx#stx-pair? _%g152849152886%_)) + (let ((_%e152853152888%_ (let () (declare (not safe)) - (gx#stx-e _%g151717151754%_)))) - (let ((_%hd151722151759%_ + (gx#stx-e _%g152849152886%_)))) + (let ((_%hd152854152891%_ (let () (declare (not safe)) - (##car _%e151721151756%_))) - (_%tl151723151761%_ + (##car _%e152853152888%_))) + (_%tl152855152893%_ (let () (declare (not safe)) - (##cdr _%e151721151756%_)))) + (##cdr _%e152853152888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151723151761%_)) - (let ((_%e151724151764%_ + (gx#stx-pair? _%tl152855152893%_)) + (let ((_%e152856152896%_ (let () (declare (not safe)) - (gx#stx-e _%tl151723151761%_)))) - (let ((_%hd151725151767%_ + (gx#stx-e _%tl152855152893%_)))) + (let ((_%hd152857152899%_ (let () (declare (not safe)) - (##car _%e151724151764%_))) - (_%tl151726151769%_ + (##car _%e152856152896%_))) + (_%tl152858152901%_ (let () (declare (not safe)) - (##cdr _%e151724151764%_)))) + (##cdr _%e152856152896%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd151725151767%_)) - (let ((_g152608_ + (gx#stx-pair/null? _%hd152857152899%_)) + (let ((_g153740_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd151725151767%_ + _%hd152857152899%_ '0)))) (begin - (let ((_g152609_ + (let ((_g153741_ (let () (declare (not safe)) - (if (##values? _g152608_) + (if (##values? _g153740_) (##vector-length - _g152608_) + _g153740_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152609_ 2))) + (##fx= _g153741_ 2))) (error "Context expects 2 values" - _g152609_))) - (let ((_%target151727151772%_ + _g153741_))) + (let ((_%target152859152904%_ (let () (declare (not safe)) - (##vector-ref _g152608_ 0))) - (_%tl151729151774%_ + (##vector-ref _g153740_ 0))) + (_%tl152861152906%_ (let () (declare (not safe)) (##vector-ref - _g152608_ + _g153740_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151729151774%_)) - (letrec ((_%loop151730151777%_ - (lambda (_%hd151728151780%_ + _%tl152861152906%_)) + (letrec ((_%loop152862152909%_ + (lambda (_%hd152860152912%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr151734151782%_ - _%bind151735151784%_) + _%expr152866152914%_ + _%bind152867152916%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd151728151780%_)) - (let ((_%e151731151787%_ + (gx#stx-pair? _%hd152860152912%_)) + (let ((_%e152863152919%_ (let () (declare (not safe)) - (gx#stx-e _%hd151728151780%_)))) - (let ((_%lp-hd151732151790%_ + (gx#stx-e _%hd152860152912%_)))) + (let ((_%lp-hd152864152922%_ (let () (declare (not safe)) - (##car _%e151731151787%_))) - (_%lp-tl151733151792%_ + (##car _%e152863152919%_))) + (_%lp-tl152865152924%_ (let () (declare (not safe)) - (##cdr _%e151731151787%_)))) + (##cdr _%e152863152919%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd151732151790%_)) - (let ((_%e151741151795%_ + (gx#stx-pair? _%lp-hd152864152922%_)) + (let ((_%e152873152927%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd151732151790%_)))) - (let ((_%hd151742151798%_ + (gx#stx-e _%lp-hd152864152922%_)))) + (let ((_%hd152874152930%_ (let () (declare (not safe)) - (##car _%e151741151795%_))) - (_%tl151743151800%_ + (##car _%e152873152927%_))) + (_%tl152875152932%_ (let () (declare (not safe)) - (##cdr _%e151741151795%_)))) + (##cdr _%e152873152927%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151743151800%_)) - (let ((_%e151744151803%_ + (gx#stx-pair? _%tl152875152932%_)) + (let ((_%e152876152935%_ (let () (declare (not safe)) (gx#stx-e - _%tl151743151800%_)))) - (let ((_%hd151745151806%_ + _%tl152875152932%_)))) + (let ((_%hd152877152938%_ (let () (declare (not safe)) - (##car _%e151744151803%_))) - (_%tl151746151808%_ + (##car _%e152876152935%_))) + (_%tl152878152940%_ (let () (declare (not safe)) - (##cdr _%e151744151803%_)))) + (##cdr _%e152876152935%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151746151808%_)) - (_%loop151730151777%_ - _%lp-tl151733151792%_ - (cons _%hd151745151806%_ - _%expr151734151782%_) - (cons _%hd151742151798%_ - _%bind151735151784%_)) - (_%g151716151751%_ - _%g151717151754%_)))) - (_%g151716151751%_ - _%g151717151754%_)))) - (_%g151716151751%_ _%g151717151754%_)))) - (let ((_%expr151736151811%_ - (reverse _%expr151734151782%_)) - (_%bind151737151813%_ - (reverse _%bind151735151784%_))) + _%tl152878152940%_)) + (_%loop152862152909%_ + _%lp-tl152865152924%_ + (cons _%hd152877152938%_ + _%expr152866152914%_) + (cons _%hd152874152930%_ + _%bind152867152916%_)) + (_%g152848152883%_ + _%g152849152886%_)))) + (_%g152848152883%_ + _%g152849152886%_)))) + (_%g152848152883%_ _%g152849152886%_)))) + (let ((_%expr152868152943%_ + (reverse _%expr152866152914%_)) + (_%bind152869152945%_ + (reverse _%bind152867152916%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151726151769%_)) - (let ((_%e151738151816%_ + (gx#stx-pair? _%tl152858152901%_)) + (let ((_%e152870152948%_ (let () (declare (not safe)) - (gx#stx-e _%tl151726151769%_)))) - (let ((_%hd151739151819%_ + (gx#stx-e _%tl152858152901%_)))) + (let ((_%hd152871152951%_ (let () (declare (not safe)) - (##car _%e151738151816%_))) - (_%tl151740151821%_ + (##car _%e152870152948%_))) + (_%tl152872152953%_ (let () (declare (not safe)) - (##cdr _%e151738151816%_)))) + (##cdr _%e152870152948%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151740151821%_)) - ((lambda (_%L151824%_ - _%L151825%_ - _%L151826%_) - (let ((_%$e151857%_ - (let ((__tmp152612 - (lambda (_%g151845151847%_) + (gx#stx-null? _%tl152872152953%_)) + ((lambda (_%L152956%_ + _%L152957%_ + _%L152958%_) + (let ((_%$e152989%_ + (let ((__tmp153744 + (lambda (_%g152977152979%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self151713%_ - _%g151845151847%_)))) - (__tmp152610 - (let ((__tmp152611 - (lambda (_%g151849151852%_ + _%self152845%_ + _%g152977152979%_)))) + (__tmp153742 + (let ((__tmp153743 + (lambda (_%g152981152984%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g151850151854%_) - (cons _%g151849151852%_ _%g151850151854%_)))) + _%g152982152986%_) + (cons _%g152981152984%_ _%g152982152986%_)))) (declare (not safe)) - (__foldr1 __tmp152611 '() _%L151825%_)))) + (__foldr1 __tmp153743 '() _%L152957%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__ormap1 - __tmp152612 - __tmp152610)))) - (if _%$e151857%_ - _%$e151857%_ + __tmp153744 + __tmp153742)))) + (if _%$e152989%_ + _%$e152989%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self151713%_ - _%L151824%_))))) - _%hd151739151819%_ - _%expr151736151811%_ - _%bind151737151813%_) - (_%g151716151751%_ _%g151717151754%_)))) - (_%g151716151751%_ _%g151717151754%_))))))) + _%self152845%_ + _%L152956%_))))) + _%hd152871152951%_ + _%expr152868152943%_ + _%bind152869152945%_) + (_%g152848152883%_ _%g152849152886%_)))) + (_%g152848152883%_ _%g152849152886%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop151730151777%_ - _%target151727151772%_ + (_%loop152862152909%_ + _%target152859152904%_ '() '())) - (_%g151716151751%_ - _%g151717151754%_))))) - (_%g151716151751%_ _%g151717151754%_)))) - (_%g151716151751%_ _%g151717151754%_)))) - (_%g151716151751%_ _%g151717151754%_))))) - (_%g151715151860%_ _%stx151714%_)))) + (_%g152848152883%_ + _%g152849152886%_))))) + (_%g152848152883%_ _%g152849152886%_)))) + (_%g152848152883%_ _%g152849152886%_)))) + (_%g152848152883%_ _%g152849152886%_))))) + (_%g152847152992%_ _%stx152846%_)))) (define gxc#find-var-refs-ref% - (lambda (_%self151657%_ _%stx151658%_) - (let* ((_%g151660151673%_ - (lambda (_%g151661151670%_) + (lambda (_%self152789%_ _%stx152790%_) + (let* ((_%g152792152805%_ + (lambda (_%g152793152802%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151661151670%_)))) - (_%g151659151710%_ - (lambda (_%g151661151676%_) + _%g152793152802%_)))) + (_%g152791152842%_ + (lambda (_%g152793152808%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151661151676%_)) - (let ((_%e151663151678%_ + (gx#stx-pair? _%g152793152808%_)) + (let ((_%e152795152810%_ (let () (declare (not safe)) - (gx#stx-e _%g151661151676%_)))) - (let ((_%hd151664151681%_ + (gx#stx-e _%g152793152808%_)))) + (let ((_%hd152796152813%_ (let () (declare (not safe)) - (##car _%e151663151678%_))) - (_%tl151665151683%_ + (##car _%e152795152810%_))) + (_%tl152797152815%_ (let () (declare (not safe)) - (##cdr _%e151663151678%_)))) + (##cdr _%e152795152810%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151665151683%_)) - (let ((_%e151666151686%_ + (gx#stx-pair? _%tl152797152815%_)) + (let ((_%e152798152818%_ (let () (declare (not safe)) - (gx#stx-e _%tl151665151683%_)))) - (let ((_%hd151667151689%_ + (gx#stx-e _%tl152797152815%_)))) + (let ((_%hd152799152821%_ (let () (declare (not safe)) - (##car _%e151666151686%_))) - (_%tl151668151691%_ + (##car _%e152798152818%_))) + (_%tl152800152823%_ (let () (declare (not safe)) - (##cdr _%e151666151686%_)))) + (##cdr _%e152798152818%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151668151691%_)) - ((lambda (_%L151694%_) - (let ((__tmp152614 - (lambda (_%g151705151707%_) + (gx#stx-null? _%tl152800152823%_)) + ((lambda (_%L152826%_) + (let ((__tmp153746 + (lambda (_%g152837152839%_) (let () (declare (not safe)) (gx#free-identifier=? - _%L151694%_ - _%g151705151707%_)))) - (__tmp152613 + _%L152826%_ + _%g152837152839%_)))) + (__tmp153745 (let () (declare (not safe)) (slot-ref__0 - _%self151657%_ + _%self152789%_ 'ids)))) (declare (not safe)) - (__find __tmp152614 __tmp152613))) - _%hd151667151689%_) - (_%g151660151673%_ _%g151661151676%_)))) - (_%g151660151673%_ _%g151661151676%_)))) - (_%g151660151673%_ _%g151661151676%_))))) - (_%g151659151710%_ _%stx151658%_)))) + (__find __tmp153746 __tmp153745))) + _%hd152799152821%_) + (_%g152792152805%_ _%g152793152808%_)))) + (_%g152792152805%_ _%g152793152808%_)))) + (_%g152792152805%_ _%g152793152808%_))))) + (_%g152791152842%_ _%stx152790%_)))) (define gxc#find-var-refs-setq% - (lambda (_%self151582%_ _%stx151583%_) - (let* ((_%g151585151602%_ - (lambda (_%g151586151599%_) + (lambda (_%self152714%_ _%stx152715%_) + (let* ((_%g152717152734%_ + (lambda (_%g152718152731%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151586151599%_)))) - (_%g151584151654%_ - (lambda (_%g151586151605%_) + _%g152718152731%_)))) + (_%g152716152786%_ + (lambda (_%g152718152737%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151586151605%_)) - (let ((_%e151589151607%_ + (gx#stx-pair? _%g152718152737%_)) + (let ((_%e152721152739%_ (let () (declare (not safe)) - (gx#stx-e _%g151586151605%_)))) - (let ((_%hd151590151610%_ + (gx#stx-e _%g152718152737%_)))) + (let ((_%hd152722152742%_ (let () (declare (not safe)) - (##car _%e151589151607%_))) - (_%tl151591151612%_ + (##car _%e152721152739%_))) + (_%tl152723152744%_ (let () (declare (not safe)) - (##cdr _%e151589151607%_)))) + (##cdr _%e152721152739%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151591151612%_)) - (let ((_%e151592151615%_ + (gx#stx-pair? _%tl152723152744%_)) + (let ((_%e152724152747%_ (let () (declare (not safe)) - (gx#stx-e _%tl151591151612%_)))) - (let ((_%hd151593151618%_ + (gx#stx-e _%tl152723152744%_)))) + (let ((_%hd152725152750%_ (let () (declare (not safe)) - (##car _%e151592151615%_))) - (_%tl151594151620%_ + (##car _%e152724152747%_))) + (_%tl152726152752%_ (let () (declare (not safe)) - (##cdr _%e151592151615%_)))) + (##cdr _%e152724152747%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151594151620%_)) - (let ((_%e151595151623%_ + (gx#stx-pair? _%tl152726152752%_)) + (let ((_%e152727152755%_ (let () (declare (not safe)) - (gx#stx-e _%tl151594151620%_)))) - (let ((_%hd151596151626%_ + (gx#stx-e _%tl152726152752%_)))) + (let ((_%hd152728152758%_ (let () (declare (not safe)) - (##car _%e151595151623%_))) - (_%tl151597151628%_ + (##car _%e152727152755%_))) + (_%tl152729152760%_ (let () (declare (not safe)) - (##cdr _%e151595151623%_)))) + (##cdr _%e152727152755%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151597151628%_)) - ((lambda (_%L151631%_ - _%L151632%_) - (let ((_%$e151651%_ - (let ((__tmp152616 - (lambda (_%g151646151648%_) + _%tl152729152760%_)) + ((lambda (_%L152763%_ + _%L152764%_) + (let ((_%$e152783%_ + (let ((__tmp153748 + (lambda (_%g152778152780%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#free-identifier=? - _%L151632%_ - _%g151646151648%_)))) - (__tmp152615 + _%L152764%_ + _%g152778152780%_)))) + (__tmp153747 (let () (declare (not safe)) - (slot-ref__0 _%self151582%_ 'ids)))) + (slot-ref__0 _%self152714%_ 'ids)))) (declare (not safe)) - (__find __tmp152616 __tmp152615)))) + (__find __tmp153748 __tmp153747)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e151651%_ - _%$e151651%_ + (if _%$e152783%_ + _%$e152783%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self151582%_ - _%L151631%_))))) - _%hd151596151626%_ - _%hd151593151618%_) - (_%g151585151602%_ - _%g151586151605%_)))) - (_%g151585151602%_ _%g151586151605%_)))) - (_%g151585151602%_ _%g151586151605%_)))) - (_%g151585151602%_ _%g151586151605%_))))) - (_%g151584151654%_ _%stx151583%_)))))) + _%self152714%_ + _%L152763%_))))) + _%hd152728152758%_ + _%hd152725152750%_) + (_%g152717152734%_ + _%g152718152737%_)))) + (_%g152717152734%_ _%g152718152737%_)))) + (_%g152717152734%_ _%g152718152737%_)))) + (_%g152717152734%_ _%g152718152737%_))))) + (_%g152716152786%_ _%stx152715%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm index 4852be042..b18c4e1ef 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]#_g152618_| + (define |gxc[1]#_g153750_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152620_| + (define |gxc[1]#_g153752_| (##structure gx#syntax-quote::t '::collect-mutators::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152622_| + (define |gxc[1]#_g153754_| (##structure gx#syntax-quote::t 'make-::collect-mutators #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152624_| + (define |gxc[1]#_g153756_| (##structure gx#syntax-quote::t '::collect-mutators? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152626_| + (define |gxc[1]#_g153758_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152628_| + (define |gxc[1]#_g153760_| (##structure gx#syntax-quote::t '::expression-subst::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152630_| + (define |gxc[1]#_g153762_| (##structure gx#syntax-quote::t 'make-::expression-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152632_| + (define |gxc[1]#_g153764_| (##structure gx#syntax-quote::t '::expression-subst? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152634_| + (define |gxc[1]#_g153766_| (##structure gx#syntax-quote::t '::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152635_| + (define |gxc[1]#_g153767_| (##structure gx#syntax-quote::t '::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152637_| + (define |gxc[1]#_g153769_| (##structure gx#syntax-quote::t '::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152638_| + (define |gxc[1]#_g153770_| (##structure gx#syntax-quote::t '::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152640_| + (define |gxc[1]#_g153772_| (##structure gx#syntax-quote::t '&::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152641_| + (define |gxc[1]#_g153773_| (##structure gx#syntax-quote::t '&::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152643_| + (define |gxc[1]#_g153775_| (##structure gx#syntax-quote::t '&::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152644_| + (define |gxc[1]#_g153776_| (##structure gx#syntax-quote::t '&::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152647_| + (define |gxc[1]#_g153779_| (##structure gx#syntax-quote::t '::expression-subst*::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152649_| + (define |gxc[1]#_g153781_| (##structure gx#syntax-quote::t 'make-::expression-subst* #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152651_| + (define |gxc[1]#_g153783_| (##structure gx#syntax-quote::t '::expression-subst*? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152653_| + (define |gxc[1]#_g153785_| (##structure gx#syntax-quote::t '::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152655_| + (define |gxc[1]#_g153787_| (##structure gx#syntax-quote::t '::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152657_| + (define |gxc[1]#_g153789_| (##structure gx#syntax-quote::t '&::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152659_| + (define |gxc[1]#_g153791_| (##structure gx#syntax-quote::t '&::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152661_| + (define |gxc[1]#_g153793_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152663_| + (define |gxc[1]#_g153795_| (##structure gx#syntax-quote::t '::find-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152665_| + (define |gxc[1]#_g153797_| (##structure gx#syntax-quote::t 'make-::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152667_| + (define |gxc[1]#_g153799_| (##structure gx#syntax-quote::t '::find-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152669_| + (define |gxc[1]#_g153801_| (##structure gx#syntax-quote::t '::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152671_| + (define |gxc[1]#_g153803_| (##structure gx#syntax-quote::t '::find-var-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152673_| + (define |gxc[1]#_g153805_| (##structure gx#syntax-quote::t 'make-::find-var-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152675_| + (define |gxc[1]#_g153807_| (##structure gx#syntax-quote::t '::find-var-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152677_| + (define |gxc[1]#_g153809_| (##structure gx#syntax-quote::t '::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152679_| + (define |gxc[1]#_g153811_| (##structure gx#syntax-quote::t '::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152681_| + (define |gxc[1]#_g153813_| (##structure gx#syntax-quote::t '&::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152683_| + (define |gxc[1]#_g153815_| (##structure gx#syntax-quote::t '&::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152685_| + (define |gxc[1]#_g153817_| (##structure gx#syntax-quote::t '::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152687_| + (define |gxc[1]#_g153819_| (##structure gx#syntax-quote::t '::collect-runtime-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152689_| + (define |gxc[1]#_g153821_| (##structure gx#syntax-quote::t 'make-::collect-runtime-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152691_| + (define |gxc[1]#_g153823_| (##structure gx#syntax-quote::t '::collect-runtime-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152693_| + (define |gxc[1]#_g153825_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152695_| + (define |gxc[1]#_g153827_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152697_| + (define |gxc[1]#_g153829_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152699_| + (define |gxc[1]#_g153831_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table-set! @@ -303,7 +303,7 @@ '())) (begin (define |gxc[:0:]#::collect-mutators| - (let ((__obj152555 + (let ((__obj153687 (let () (declare (not safe)) (##structure @@ -332,7 +332,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152555 + __obj153687 'gxc#::collect-mutators::t '1 '#f @@ -340,65 +340,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152555 + __obj153687 '::collect-mutators '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152555 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153687 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152555 '() '6 '#f '#f)) - (let ((__tmp152617 (cons |gxc[1]#_g152618_| '()))) + (##unchecked-structure-set! __obj153687 '() '6 '#f '#f)) + (let ((__tmp153749 (cons |gxc[1]#_g153750_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152555 __tmp152617 '3 '#f '#f)) + (##unchecked-structure-set! __obj153687 __tmp153749 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152555 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153687 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152555 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153687 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152555 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153687 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152555 '#f '11 '#f '#f)) - (let ((__tmp152619 |gxc[1]#_g152620_|)) + (##unchecked-structure-set! __obj153687 '#f '11 '#f '#f)) + (let ((__tmp153751 |gxc[1]#_g153752_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152555 __tmp152619 '12 '#f '#f)) - (let ((__tmp152621 |gxc[1]#_g152622_|)) + (##unchecked-structure-set! __obj153687 __tmp153751 '12 '#f '#f)) + (let ((__tmp153753 |gxc[1]#_g153754_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152555 __tmp152621 '13 '#f '#f)) - (let ((__tmp152623 |gxc[1]#_g152624_|)) + (##unchecked-structure-set! __obj153687 __tmp153753 '13 '#f '#f)) + (let ((__tmp153755 |gxc[1]#_g153756_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152555 __tmp152623 '14 '#f '#f)) + (##unchecked-structure-set! __obj153687 __tmp153755 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152555 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj153687 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152555 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj153687 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152555 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj153687 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152555 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj153687 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152555 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153687 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152555 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153687 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152555 '() '20 '#f '#f)) - __obj152555)) + (##unchecked-structure-set! __obj153687 '() '20 '#f '#f)) + __obj153687)) (define |gxc[:0:]#::expression-subst| - (let ((__obj152557 + (let ((__obj153689 (let () (declare (not safe)) (##structure @@ -427,7 +427,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152557 + __obj153689 'gxc#::expression-subst::t '1 '#f @@ -435,73 +435,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152557 + __obj153689 '::expression-subst '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152557 '(id new-id) '4 '#f '#f)) + (##unchecked-structure-set! __obj153689 '(id new-id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152557 '(id new-id) '6 '#f '#f)) - (let ((__tmp152625 (cons |gxc[1]#_g152626_| '()))) + (##unchecked-structure-set! __obj153689 '(id new-id) '6 '#f '#f)) + (let ((__tmp153757 (cons |gxc[1]#_g153758_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152557 __tmp152625 '3 '#f '#f)) + (##unchecked-structure-set! __obj153689 __tmp153757 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152557 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153689 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152557 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153689 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152557 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153689 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152557 '#f '11 '#f '#f)) - (let ((__tmp152627 |gxc[1]#_g152628_|)) + (##unchecked-structure-set! __obj153689 '#f '11 '#f '#f)) + (let ((__tmp153759 |gxc[1]#_g153760_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152557 __tmp152627 '12 '#f '#f)) - (let ((__tmp152629 |gxc[1]#_g152630_|)) + (##unchecked-structure-set! __obj153689 __tmp153759 '12 '#f '#f)) + (let ((__tmp153761 |gxc[1]#_g153762_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152557 __tmp152629 '13 '#f '#f)) - (let ((__tmp152631 |gxc[1]#_g152632_|)) + (##unchecked-structure-set! __obj153689 __tmp153761 '13 '#f '#f)) + (let ((__tmp153763 |gxc[1]#_g153764_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152557 __tmp152631 '14 '#f '#f)) - (let ((__tmp152633 - (cons (cons 'id |gxc[1]#_g152634_|) - (cons (cons 'new-id |gxc[1]#_g152635_|) '())))) + (##unchecked-structure-set! __obj153689 __tmp153763 '14 '#f '#f)) + (let ((__tmp153765 + (cons (cons 'id |gxc[1]#_g153766_|) + (cons (cons 'new-id |gxc[1]#_g153767_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152557 __tmp152633 '15 '#f '#f)) - (let ((__tmp152636 - (cons (cons 'id |gxc[1]#_g152637_|) - (cons (cons 'new-id |gxc[1]#_g152638_|) '())))) + (##unchecked-structure-set! __obj153689 __tmp153765 '15 '#f '#f)) + (let ((__tmp153768 + (cons (cons 'id |gxc[1]#_g153769_|) + (cons (cons 'new-id |gxc[1]#_g153770_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152557 __tmp152636 '16 '#f '#f)) - (let ((__tmp152639 - (cons (cons 'id |gxc[1]#_g152640_|) - (cons (cons 'new-id |gxc[1]#_g152641_|) '())))) + (##unchecked-structure-set! __obj153689 __tmp153768 '16 '#f '#f)) + (let ((__tmp153771 + (cons (cons 'id |gxc[1]#_g153772_|) + (cons (cons 'new-id |gxc[1]#_g153773_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152557 __tmp152639 '17 '#f '#f)) - (let ((__tmp152642 - (cons (cons 'id |gxc[1]#_g152643_|) - (cons (cons 'new-id |gxc[1]#_g152644_|) '())))) + (##unchecked-structure-set! __obj153689 __tmp153771 '17 '#f '#f)) + (let ((__tmp153774 + (cons (cons 'id |gxc[1]#_g153775_|) + (cons (cons 'new-id |gxc[1]#_g153776_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152557 __tmp152642 '18 '#f '#f)) + (##unchecked-structure-set! __obj153689 __tmp153774 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152557 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153689 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152557 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153689 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152557 '() '20 '#f '#f)) - __obj152557)) + (##unchecked-structure-set! __obj153689 '() '20 '#f '#f)) + __obj153689)) (define |gxc[:0:]#::expression-subst*| - (let ((__obj152559 + (let ((__obj153691 (let () (declare (not safe)) (##structure @@ -530,7 +530,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152559 + __obj153691 'gxc#::expression-subst*::t '1 '#f @@ -538,65 +538,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152559 + __obj153691 '::expression-subst* '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152559 '(subst) '4 '#f '#f)) + (##unchecked-structure-set! __obj153691 '(subst) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152559 '(subst) '6 '#f '#f)) - (let ((__tmp152645 (cons |gxc[1]#_g152626_| '()))) + (##unchecked-structure-set! __obj153691 '(subst) '6 '#f '#f)) + (let ((__tmp153777 (cons |gxc[1]#_g153758_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152559 __tmp152645 '3 '#f '#f)) + (##unchecked-structure-set! __obj153691 __tmp153777 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152559 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153691 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152559 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153691 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152559 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153691 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152559 '#f '11 '#f '#f)) - (let ((__tmp152646 |gxc[1]#_g152647_|)) + (##unchecked-structure-set! __obj153691 '#f '11 '#f '#f)) + (let ((__tmp153778 |gxc[1]#_g153779_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152559 __tmp152646 '12 '#f '#f)) - (let ((__tmp152648 |gxc[1]#_g152649_|)) + (##unchecked-structure-set! __obj153691 __tmp153778 '12 '#f '#f)) + (let ((__tmp153780 |gxc[1]#_g153781_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152559 __tmp152648 '13 '#f '#f)) - (let ((__tmp152650 |gxc[1]#_g152651_|)) + (##unchecked-structure-set! __obj153691 __tmp153780 '13 '#f '#f)) + (let ((__tmp153782 |gxc[1]#_g153783_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152559 __tmp152650 '14 '#f '#f)) - (let ((__tmp152652 (cons (cons 'subst |gxc[1]#_g152653_|) '()))) + (##unchecked-structure-set! __obj153691 __tmp153782 '14 '#f '#f)) + (let ((__tmp153784 (cons (cons 'subst |gxc[1]#_g153785_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152559 __tmp152652 '15 '#f '#f)) - (let ((__tmp152654 (cons (cons 'subst |gxc[1]#_g152655_|) '()))) + (##unchecked-structure-set! __obj153691 __tmp153784 '15 '#f '#f)) + (let ((__tmp153786 (cons (cons 'subst |gxc[1]#_g153787_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152559 __tmp152654 '16 '#f '#f)) - (let ((__tmp152656 (cons (cons 'subst |gxc[1]#_g152657_|) '()))) + (##unchecked-structure-set! __obj153691 __tmp153786 '16 '#f '#f)) + (let ((__tmp153788 (cons (cons 'subst |gxc[1]#_g153789_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152559 __tmp152656 '17 '#f '#f)) - (let ((__tmp152658 (cons (cons 'subst |gxc[1]#_g152659_|) '()))) + (##unchecked-structure-set! __obj153691 __tmp153788 '17 '#f '#f)) + (let ((__tmp153790 (cons (cons 'subst |gxc[1]#_g153791_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152559 __tmp152658 '18 '#f '#f)) + (##unchecked-structure-set! __obj153691 __tmp153790 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152559 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153691 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152559 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153691 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152559 '() '20 '#f '#f)) - __obj152559)) + (##unchecked-structure-set! __obj153691 '() '20 '#f '#f)) + __obj153691)) (define |gxc[:0:]#::find-expression| - (let ((__obj152561 + (let ((__obj153693 (let () (declare (not safe)) (##structure @@ -625,7 +625,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152561 + __obj153693 'gxc#::find-expression::t '1 '#f @@ -633,65 +633,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152561 + __obj153693 '::find-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152561 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153693 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152561 '() '6 '#f '#f)) - (let ((__tmp152660 (cons |gxc[1]#_g152661_| '()))) + (##unchecked-structure-set! __obj153693 '() '6 '#f '#f)) + (let ((__tmp153792 (cons |gxc[1]#_g153793_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152561 __tmp152660 '3 '#f '#f)) + (##unchecked-structure-set! __obj153693 __tmp153792 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152561 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153693 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152561 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153693 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152561 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153693 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152561 '#f '11 '#f '#f)) - (let ((__tmp152662 |gxc[1]#_g152663_|)) + (##unchecked-structure-set! __obj153693 '#f '11 '#f '#f)) + (let ((__tmp153794 |gxc[1]#_g153795_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152561 __tmp152662 '12 '#f '#f)) - (let ((__tmp152664 |gxc[1]#_g152665_|)) + (##unchecked-structure-set! __obj153693 __tmp153794 '12 '#f '#f)) + (let ((__tmp153796 |gxc[1]#_g153797_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152561 __tmp152664 '13 '#f '#f)) - (let ((__tmp152666 |gxc[1]#_g152667_|)) + (##unchecked-structure-set! __obj153693 __tmp153796 '13 '#f '#f)) + (let ((__tmp153798 |gxc[1]#_g153799_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152561 __tmp152666 '14 '#f '#f)) + (##unchecked-structure-set! __obj153693 __tmp153798 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152561 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj153693 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152561 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj153693 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152561 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj153693 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152561 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj153693 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152561 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153693 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152561 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153693 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152561 '() '20 '#f '#f)) - __obj152561)) + (##unchecked-structure-set! __obj153693 '() '20 '#f '#f)) + __obj153693)) (define |gxc[:0:]#::find-var-refs| - (let ((__obj152562 + (let ((__obj153694 (let () (declare (not safe)) (##structure @@ -720,68 +720,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152562 + __obj153694 'gxc#::find-var-refs::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152562 '::find-var-refs '2 '#f '#f)) + (##unchecked-structure-set! __obj153694 '::find-var-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152562 '(ids) '4 '#f '#f)) + (##unchecked-structure-set! __obj153694 '(ids) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152562 '(ids) '6 '#f '#f)) - (let ((__tmp152668 (cons |gxc[1]#_g152669_| '()))) + (##unchecked-structure-set! __obj153694 '(ids) '6 '#f '#f)) + (let ((__tmp153800 (cons |gxc[1]#_g153801_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152562 __tmp152668 '3 '#f '#f)) + (##unchecked-structure-set! __obj153694 __tmp153800 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152562 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153694 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152562 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153694 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152562 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153694 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152562 '#f '11 '#f '#f)) - (let ((__tmp152670 |gxc[1]#_g152671_|)) + (##unchecked-structure-set! __obj153694 '#f '11 '#f '#f)) + (let ((__tmp153802 |gxc[1]#_g153803_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152562 __tmp152670 '12 '#f '#f)) - (let ((__tmp152672 |gxc[1]#_g152673_|)) + (##unchecked-structure-set! __obj153694 __tmp153802 '12 '#f '#f)) + (let ((__tmp153804 |gxc[1]#_g153805_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152562 __tmp152672 '13 '#f '#f)) - (let ((__tmp152674 |gxc[1]#_g152675_|)) + (##unchecked-structure-set! __obj153694 __tmp153804 '13 '#f '#f)) + (let ((__tmp153806 |gxc[1]#_g153807_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152562 __tmp152674 '14 '#f '#f)) - (let ((__tmp152676 (cons (cons 'ids |gxc[1]#_g152677_|) '()))) + (##unchecked-structure-set! __obj153694 __tmp153806 '14 '#f '#f)) + (let ((__tmp153808 (cons (cons 'ids |gxc[1]#_g153809_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152562 __tmp152676 '15 '#f '#f)) - (let ((__tmp152678 (cons (cons 'ids |gxc[1]#_g152679_|) '()))) + (##unchecked-structure-set! __obj153694 __tmp153808 '15 '#f '#f)) + (let ((__tmp153810 (cons (cons 'ids |gxc[1]#_g153811_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152562 __tmp152678 '16 '#f '#f)) - (let ((__tmp152680 (cons (cons 'ids |gxc[1]#_g152681_|) '()))) + (##unchecked-structure-set! __obj153694 __tmp153810 '16 '#f '#f)) + (let ((__tmp153812 (cons (cons 'ids |gxc[1]#_g153813_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152562 __tmp152680 '17 '#f '#f)) - (let ((__tmp152682 (cons (cons 'ids |gxc[1]#_g152683_|) '()))) + (##unchecked-structure-set! __obj153694 __tmp153812 '17 '#f '#f)) + (let ((__tmp153814 (cons (cons 'ids |gxc[1]#_g153815_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152562 __tmp152682 '18 '#f '#f)) + (##unchecked-structure-set! __obj153694 __tmp153814 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152562 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153694 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152562 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153694 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152562 '() '20 '#f '#f)) - __obj152562)) + (##unchecked-structure-set! __obj153694 '() '20 '#f '#f)) + __obj153694)) (define |gxc[:0:]#::collect-runtime-refs| - (let ((__obj152564 + (let ((__obj153696 (let () (declare (not safe)) (##structure @@ -810,7 +810,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152564 + __obj153696 'gxc#::collect-runtime-refs::t '1 '#f @@ -818,60 +818,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152564 + __obj153696 '::collect-runtime-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152564 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153696 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152564 '(table) '6 '#f '#f)) - (let ((__tmp152684 (cons |gxc[1]#_g152685_| '()))) + (##unchecked-structure-set! __obj153696 '(table) '6 '#f '#f)) + (let ((__tmp153816 (cons |gxc[1]#_g153817_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152564 __tmp152684 '3 '#f '#f)) + (##unchecked-structure-set! __obj153696 __tmp153816 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152564 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153696 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152564 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153696 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152564 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153696 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152564 '#f '11 '#f '#f)) - (let ((__tmp152686 |gxc[1]#_g152687_|)) + (##unchecked-structure-set! __obj153696 '#f '11 '#f '#f)) + (let ((__tmp153818 |gxc[1]#_g153819_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152564 __tmp152686 '12 '#f '#f)) - (let ((__tmp152688 |gxc[1]#_g152689_|)) + (##unchecked-structure-set! __obj153696 __tmp153818 '12 '#f '#f)) + (let ((__tmp153820 |gxc[1]#_g153821_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152564 __tmp152688 '13 '#f '#f)) - (let ((__tmp152690 |gxc[1]#_g152691_|)) + (##unchecked-structure-set! __obj153696 __tmp153820 '13 '#f '#f)) + (let ((__tmp153822 |gxc[1]#_g153823_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152564 __tmp152690 '14 '#f '#f)) - (let ((__tmp152692 (cons (cons 'table |gxc[1]#_g152693_|) '()))) + (##unchecked-structure-set! __obj153696 __tmp153822 '14 '#f '#f)) + (let ((__tmp153824 (cons (cons 'table |gxc[1]#_g153825_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152564 __tmp152692 '15 '#f '#f)) - (let ((__tmp152694 (cons (cons 'table |gxc[1]#_g152695_|) '()))) + (##unchecked-structure-set! __obj153696 __tmp153824 '15 '#f '#f)) + (let ((__tmp153826 (cons (cons 'table |gxc[1]#_g153827_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152564 __tmp152694 '16 '#f '#f)) - (let ((__tmp152696 (cons (cons 'table |gxc[1]#_g152697_|) '()))) + (##unchecked-structure-set! __obj153696 __tmp153826 '16 '#f '#f)) + (let ((__tmp153828 (cons (cons 'table |gxc[1]#_g153829_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152564 __tmp152696 '17 '#f '#f)) - (let ((__tmp152698 (cons (cons 'table |gxc[1]#_g152699_|) '()))) + (##unchecked-structure-set! __obj153696 __tmp153828 '17 '#f '#f)) + (let ((__tmp153830 (cons (cons 'table |gxc[1]#_g153831_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152564 __tmp152698 '18 '#f '#f)) + (##unchecked-structure-set! __obj153696 __tmp153830 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152564 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153696 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152564 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153696 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152564 '() '20 '#f '#f)) - __obj152564)))) + (##unchecked-structure-set! __obj153696 '() '20 '#f '#f)) + __obj153696)))) diff --git a/src/bootstrap/gerbil/compiler/optimize~0.scm b/src/bootstrap/gerbil/compiler/optimize~0.scm index 4b36dc55f..0b52dc0f4 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 1713454418) + (define gerbil/compiler/optimize::timestamp 1713631273) (begin (define gxc#optimizer-info-init! (lambda () (if (let () (declare (not safe)) (gxc#current-compile-optimizer-info)) '#!void - (let ((__tmp199420 - (let ((__obj199414 + (let ((__tmp200552 + (let ((__obj200546 (let () (declare (not safe)) (##structure @@ -18,17 +18,17 @@ '#f)))) (let () (declare (not safe)) - (gxc#optimizer-info:::init! __obj199414)) - __obj199414))) + (gxc#optimizer-info:::init! __obj200546)) + __obj200546))) (declare (not safe)) - (gxc#current-compile-optimizer-info __tmp199420))))) + (gxc#current-compile-optimizer-info __tmp200552))))) (define gxc#optimize! - (lambda (_%ctx199023%_) - (let ((__tmp199423 + (lambda (_%ctx200155%_) + (let ((__tmp200555 (lambda () - (gxc#optimizer-load-builtin-ssxi _%ctx199023%_) - (gxc#optimizer-load-ssxi-deps _%ctx199023%_) - (let ((__tmp199425 + (gxc#optimizer-load-builtin-ssxi _%ctx200155%_) + (gxc#optimizer-load-ssxi-deps _%ctx200155%_) + (let ((__tmp200557 (##structure-ref (let () (declare (not safe)) @@ -36,41 +36,41 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp199424 + (__tmp200556 (##structure-ref - _%ctx199023%_ + _%ctx200155%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-put! __tmp199425 __tmp199424 '#t)) - (let ((_%code199026%_ + (hash-put! __tmp200557 __tmp200556 '#t)) + (let ((_%code200158%_ (gxc#optimize-source (##structure-ref - _%ctx199023%_ + _%ctx200155%_ '11 gx#module-context::t '#f)))) (##structure-set! - _%ctx199023%_ - _%code199026%_ + _%ctx200155%_ + _%code200158%_ '11 gx#module-context::t '#f)))) - (__tmp199422 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp199421 (let () (declare (not safe)) (make-hash-table-eq)))) + (__tmp200554 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp200553 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (__call-with-parameters - __tmp199423 + __tmp200555 gxc#current-compile-mutators - __tmp199422 + __tmp200554 gxc#current-compile-local-type - __tmp199421)))) + __tmp200553)))) (define gxc#optimizer-load-builtin-ssxi - (lambda (_%ctx199009%_) - (letrec ((_%load-it!199011%_ - (lambda (_%id199021%_) - (if (let ((__tmp199426 + (lambda (_%ctx200141%_) + (letrec ((_%load-it!200143%_ + (lambda (_%id200153%_) + (if (let ((__tmp200558 (##structure-ref (let () (declare (not safe)) @@ -79,11 +79,11 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp199426 _%id199021%_)) + (hash-get __tmp200558 _%id200153%_)) '#!void (begin - (gxc#optimizer-import-ssxi-by-id _%id199021%_) - (let ((__tmp199427 + (gxc#optimizer-import-ssxi-by-id _%id200153%_) + (let ((__tmp200559 (##structure-ref (let () (declare (not safe)) @@ -92,29 +92,29 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp199427 _%id199021%_ '#t))))))) - (let* ((_%modid199013%_ + (hash-put! __tmp200559 _%id200153%_ '#t))))))) + (let* ((_%modid200145%_ (##structure-ref - _%ctx199009%_ + _%ctx200141%_ '1 gx#expander-context::t '#f)) - (_%modid-str199015%_ (symbol->string _%modid199013%_))) + (_%modid-str200147%_ (symbol->string _%modid200145%_))) (if (or (let () (declare (not safe)) - (##string-prefix? '"gerbil/runtime" _%modid-str199015%_)) + (##string-prefix? '"gerbil/runtime" _%modid-str200147%_)) (let () (declare (not safe)) - (##string-prefix? '"gerbil/core" _%modid-str199015%_))) + (##string-prefix? '"gerbil/core" _%modid-str200147%_))) (let () (declare (not safe)) (##for-each - _%load-it!199011%_ + _%load-it!200143%_ '(gerbil/builtin gerbil/builtin-inline-rules))) (let () (declare (not safe)) (##for-each - _%load-it!199011%_ + _%load-it!200143%_ '(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 (_%ctx198946%_) - (letrec* ((_%deps198948%_ - (let* ((_%imports198999%_ + (lambda (_%ctx200078%_) + (letrec* ((_%deps200080%_ + (let* ((_%imports200131%_ (##structure-ref - _%ctx198946%_ + _%ctx200078%_ '8 gx#module-context::t '#f)) - (_%$e199001%_ + (_%$e200133%_ (let () (declare (not safe)) - (gx#core-context-prelude__% _%ctx198946%_)))) - (if _%$e199001%_ - ((lambda (_%g199003199005%_) - (cons _%g199003199005%_ _%imports198999%_)) - _%$e199001%_) - _%imports198999%_)))) - (let _%lp198950%_ ((_%rest198952%_ _%deps198948%_)) - (let* ((_%rest198953198961%_ _%rest198952%_) - (_%else198955198969%_ (lambda () '#!void)) - (_%K198957198987%_ - (lambda (_%rest198972%_ _%hd198973%_) + (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%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd198973%_ + _%hd200105%_ 'gx#module-context::t)) (let () - (if (let ((__tmp199429 + (if (let ((__tmp200561 (##structure-ref (let () (declare (not safe)) @@ -172,52 +172,52 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp199428 + (__tmp200560 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198973%_ + _%hd200105%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp199429 __tmp199428)) + (hash-get __tmp200561 __tmp200560)) '#!void (begin - (let ((_%$e198976%_ + (let ((_%$e200108%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd198973%_)))) - (if _%$e198976%_ - ((lambda (_%pre198979%_) - (_%lp198950%_ - (cons _%pre198979%_ + _%hd200105%_)))) + (if _%$e200108%_ + ((lambda (_%pre200111%_) + (_%lp200082%_ + (cons _%pre200111%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198973%_ + _%hd200105%_ '8 '#f '#f))))) - _%$e198976%_) - (_%lp198950%_ + _%$e200108%_) + (_%lp200082%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198973%_ + _%hd200105%_ '8 '#f '#f))))) - (gxc#optimizer-load-ssxi _%hd198973%_))) - (_%lp198950%_ _%rest198972%_)) + (gxc#optimizer-load-ssxi _%hd200105%_))) + (_%lp200082%_ _%rest200104%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd198973%_ + _%hd200105%_ 'gx#prelude-context::t)) (let () - (if (let ((__tmp199431 + (if (let ((__tmp200563 (##structure-ref (let () (declare (not safe)) @@ -225,103 +225,103 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp199430 + (__tmp200562 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198973%_ + _%hd200105%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp199431 __tmp199430)) + (hash-get __tmp200563 __tmp200562)) '#!void (begin - (_%lp198950%_ + (_%lp200082%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198973%_ + _%hd200105%_ '7 '#f '#f))) - (gxc#optimizer-load-ssxi _%hd198973%_))) - (_%lp198950%_ _%rest198972%_)) + (gxc#optimizer-load-ssxi _%hd200105%_))) + (_%lp200082%_ _%rest200104%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd198973%_ + _%hd200105%_ 'gx#module-import::t)) - (_%lp198950%_ + (_%lp200082%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198973%_ + _%hd200105%_ '1 '#f '#f)) - _%rest198972%_)) + _%rest200104%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd198973%_ + _%hd200105%_ 'gx#module-export::t)) - (_%lp198950%_ + (_%lp200082%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198973%_ + _%hd200105%_ '1 '#f '#f)) - _%rest198972%_)) + _%rest200104%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd198973%_ + _%hd200105%_ 'gx#import-set::t)) - (_%lp198950%_ + (_%lp200082%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198973%_ + _%hd200105%_ '1 '#f '#f)) - _%rest198972%_)) + _%rest200104%_)) (let () (declare (not safe)) (error '"Unexpected module import" - _%hd198973%_)))))))))) - (if (let () (declare (not safe)) (##pair? _%rest198953198961%_)) - (let ((_%hd198958198990%_ + _%hd200105%_)))))))))) + (if (pair? _%rest200085200093%_) + (let ((_%hd200090200122%_ (let () (declare (not safe)) - (##car _%rest198953198961%_))) - (_%tl198959198992%_ + (##car _%rest200085200093%_))) + (_%tl200091200124%_ (let () (declare (not safe)) - (##cdr _%rest198953198961%_)))) - (let* ((_%hd198995%_ _%hd198958198990%_) - (_%rest198997%_ _%tl198959198992%_)) - (_%K198957198987%_ _%rest198997%_ _%hd198995%_))) + (##cdr _%rest200085200093%_)))) + (let* ((_%hd200127%_ _%hd200090200122%_) + (_%rest200129%_ _%tl200091200124%_)) + (_%K200089200119%_ _%rest200129%_ _%hd200127%_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_%ctx198926%_) + (lambda (_%ctx200058%_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%ctx198926%_ + _%ctx200058%_ 'gx#module-context::t)) (list? (let () (declare (not safe)) (##unchecked-structure-ref - _%ctx198926%_ + _%ctx200058%_ '7 '#f '#f)))) '#!void - (let* ((_%ht198928%_ + (let* ((_%ht200060%_ (##structure-ref (let () (declare (not safe)) @@ -329,172 +329,172 @@ '3 gxc#optimizer-info::t '#f)) - (_%id198930%_ + (_%id200062%_ (##structure-ref - _%ctx198926%_ + _%ctx200058%_ '1 gx#expander-context::t '#f)) - (_%mod198932%_ + (_%mod200064%_ (let () (declare (not safe)) - (hash-get _%ht198928%_ _%id198930%_))) - (_%$e198935%_ _%mod198932%_)) - (if _%$e198935%_ - _%$e198935%_ - (let* ((_%mod198938%_ - (gxc#optimizer-import-ssxi _%ctx198926%_)) - (_%val198943%_ - (let ((_%$e198940%_ _%mod198938%_)) - (if _%$e198940%_ _%$e198940%_ '#!void)))) + (hash-get _%ht200060%_ _%id200062%_))) + (_%$e200067%_ _%mod200064%_)) + (if _%$e200067%_ + _%$e200067%_ + (let* ((_%mod200070%_ + (gxc#optimizer-import-ssxi _%ctx200058%_)) + (_%val200075%_ + (let ((_%$e200072%_ _%mod200070%_)) + (if _%$e200072%_ _%$e200072%_ '#!void)))) (let () (declare (not safe)) - (hash-put! _%ht198928%_ _%id198930%_ _%val198943%_)) - _%val198943%_)))))) + (hash-put! _%ht200060%_ _%id200062%_ _%val200075%_)) + _%val200075%_)))))) (define gxc#optimizer-import-ssxi - (lambda (_%ctx198924%_) - (if (##structure-ref _%ctx198924%_ '1 gx#expander-context::t '#f) + (lambda (_%ctx200056%_) + (if (##structure-ref _%ctx200056%_ '1 gx#expander-context::t '#f) (gxc#optimizer-import-ssxi-by-id - (##structure-ref _%ctx198924%_ '1 gx#expander-context::t '#f)) + (##structure-ref _%ctx200056%_ '1 gx#expander-context::t '#f)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_%id198901%_) - (letrec ((_%catch-e198903%_ - (lambda (_%exn198922%_) + (lambda (_%id200033%_) + (letrec ((_%catch-e200035%_ + (lambda (_%exn200054%_) (if (equal? (let () (declare (not safe)) - (error-message _%exn198922%_)) + (error-message _%exn200054%_)) '"cannot find library module") '#!void (begin (let () (declare (not safe)) - (display-exception__0 _%exn198922%_)) + (display-exception__0 _%exn200054%_)) (let () (declare (not safe)) (displayln '"*** WARNING Failed to load ssxi module for " - _%id198901%_)))) + _%id200033%_)))) '#f)) - (_%import-e198904%_ + (_%import-e200036%_ (lambda () - (let* ((_%str-id198907%_ - (let ((__tmp199432 + (let* ((_%str-id200039%_ + (let ((__tmp200564 (let () (declare (not safe)) (gxc#module-id->path-string - _%id198901%_)))) + _%id200033%_)))) (declare (not safe)) - (##string-append __tmp199432 '".ssxi"))) - (_%artefact-path198915%_ - (let ((_%odir198908198910%_ + (##string-append __tmp200564 '".ssxi"))) + (_%artefact-path200047%_ + (let ((_%odir200040200042%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%odir198908198910%_ - (let ((_%odir198913%_ _%odir198908198910%_)) + (if _%odir200040200042%_ + (let ((_%odir200045%_ _%odir200040200042%_)) (path-expand (let () (declare (not safe)) (##string-append - _%str-id198907%_ + _%str-id200039%_ '".ss")) - _%odir198913%_)) + _%odir200045%_)) '#f))) - (_%library-path198917%_ - (let ((__tmp199433 + (_%library-path200049%_ + (let ((__tmp200565 (let () (declare (not safe)) (##string-append '":" - _%str-id198907%_ + _%str-id200039%_ '".ss")))) (declare (not safe)) - (##string->symbol __tmp199433))) - (_%ssxi-path198919%_ - (if (and _%artefact-path198915%_ - (file-exists? _%artefact-path198915%_)) - _%artefact-path198915%_ - _%library-path198917%_))) + (##string->symbol __tmp200565))) + (_%ssxi-path200051%_ + (if (and _%artefact-path200047%_ + (file-exists? _%artefact-path200047%_)) + _%artefact-path200047%_ + _%library-path200049%_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _%ssxi-path198919%_)) + _%ssxi-path200051%_)) (let () (declare (not safe)) - (gx#import-module__% _%ssxi-path198919%_ '#t '#t)))))) + (gx#import-module__% _%ssxi-path200051%_ '#t '#t)))))) (let () (declare (not safe)) - (__with-catch _%catch-e198903%_ _%import-e198904%_))))) + (__with-catch _%catch-e200035%_ _%import-e200036%_))))) (define gxc#optimize-source - (lambda (_%stx198886%_) + (lambda (_%stx200018%_) (let () (declare (not safe)) - (gxc#apply-collect-mutators _%stx198886%_)) + (gxc#apply-collect-mutators _%stx200018%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _%stx198886%_)) - (let* ((_%stx198888%_ + (gxc#apply-collect-top-level-type-info _%stx200018%_)) + (let* ((_%stx200020%_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _%stx198886%_))) - (_%stx198890%_ + (gxc#apply-generate-method-specializers _%stx200018%_))) + (_%stx200022%_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _%stx198888%_)))) + (gxc#apply-lift-top-lambdas _%stx200020%_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _%stx198890%_)) + (gxc#apply-collect-type-info _%stx200022%_)) (let () (declare (not safe)) - (gxc#apply-collect-mutable-type-info _%stx198890%_)) - (let _%fixpoint198893%_ ((_%current198895%_ + (gxc#apply-collect-mutable-type-info _%stx200022%_)) + (let _%fixpoint200025%_ ((_%current200027%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) (let () (declare (not safe)) - (gxc#apply-refine-type-info _%stx198890%_)) - (let ((_%refined198897%_ + (gxc#apply-refine-type-info _%stx200022%_)) + (let ((_%refined200029%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) - (if (equal? _%current198895%_ _%refined198897%_) + (if (equal? _%current200027%_ _%refined200029%_) '#!void - (_%fixpoint198893%_ _%refined198897%_)))) + (_%fixpoint200025%_ _%refined200029%_)))) (let () (declare (not safe)) - (gxc#apply-check-return-type _%stx198890%_)) + (gxc#apply-check-return-type _%stx200022%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-declarations _%stx198890%_)) - (let ((_%stx198899%_ + (gxc#apply-collect-top-level-declarations _%stx200022%_)) + (let ((_%stx200031%_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _%stx198890%_)))) + (gxc#apply-optimize-annotated _%stx200022%_)))) (declare (not safe)) - (gxc#apply-optimize-call _%stx198899%_))))) + (gxc#apply-optimize-call _%stx200031%_))))) (define gxc#::generate-ssxi::t - (let ((__tmp199435 (list gxc#::generate-runtime-empty::t)) - (__tmp199434 (cons (cons 'final: '#t) '()))) + (let ((__tmp200567 (list gxc#::generate-runtime-empty::t)) + (__tmp200566 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-ssxi::t '::generate-ssxi - __tmp199435 + __tmp200567 '() - __tmp199434 + __tmp200566 '#f))) (define gxc#::generate-ssxi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-ssxi::t))) (define gxc#make-::generate-ssxi - (lambda _%$args198883%_ - (apply make-instance gxc#::generate-ssxi::t _%$args198883%_))) + (lambda _%$args200015%_ + (apply make-instance gxc#::generate-ssxi::t _%$args200015%_))) (define gxc#::generate-ssxi-bind-methods! - (let ((__tmp199436 + (let ((__tmp200568 (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 __tmp199436))) + (__make-promise __tmp200568))) (define gxc#apply-generate-ssxi - (lambda (_%stx198875%_) + (lambda (_%stx200007%_) (force gxc#::generate-ssxi-bind-methods!) - (let* ((_%self198878%_ - (let ((__obj199416 + (let* ((_%self200010%_ + (let ((__obj200548 (let () (declare (not safe)) (##structure gxc#::generate-ssxi::t)))) - __obj199416)) - (__tmp199437 + __obj200548)) + (__tmp200569 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self198878%_ _%stx198875%_))))) + (gxc#compile-e__1 _%self200010%_ _%stx200007%_))))) (declare (not safe)) (__call-with-parameters - __tmp199437 + __tmp200569 gxc#current-compile-method - _%self198878%_)))) + _%self200010%_)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_%self198835%_ _%stx198836%_) - (let* ((_%g198838198848%_ - (lambda (_%g198839198845%_) + (lambda (_%self199967%_ _%stx199968%_) + (let* ((_%g199970199980%_ + (lambda (_%g199971199977%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g198839198845%_)))) - (_%g198837198872%_ - (lambda (_%g198839198851%_) + _%g199971199977%_)))) + (_%g199969200004%_ + (lambda (_%g199971199983%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g198839198851%_)) - (let ((_%e198841198853%_ + (gx#stx-pair? _%g199971199983%_)) + (let ((_%e199973199985%_ (let () (declare (not safe)) - (gx#stx-e _%g198839198851%_)))) - (let ((_%hd198842198856%_ + (gx#stx-e _%g199971199983%_)))) + (let ((_%hd199974199988%_ (let () (declare (not safe)) - (##car _%e198841198853%_))) - (_%tl198843198858%_ + (##car _%e199973199985%_))) + (_%tl199975199990%_ (let () (declare (not safe)) - (##cdr _%e198841198853%_)))) - ((lambda (_%L198861%_) - (let ((__tmp199440 + (##cdr _%e199973199985%_)))) + ((lambda (_%L199993%_) + (let ((__tmp200572 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _%self198835%_ - _%stx198836%_)))) - (__tmp199438 - (let ((__tmp199439 + _%self199967%_ + _%stx199968%_)))) + (__tmp200570 + (let ((__tmp200571 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp199439 '1)))) + (##fx+ __tmp200571 '1)))) (declare (not safe)) (__call-with-parameters - __tmp199440 + __tmp200572 gx#current-expander-phi - __tmp199438))) - _%tl198843198858%_))) - (_%g198838198848%_ _%g198839198851%_))))) - (_%g198837198872%_ _%stx198836%_)))) + __tmp200570))) + _%tl199975199990%_))) + (_%g199970199980%_ _%g199971199983%_))))) + (_%g199969200004%_ _%stx199968%_)))) (define gxc#generate-ssxi-module% - (lambda (_%self198774%_ _%stx198775%_) - (let* ((_%g198777198791%_ - (lambda (_%g198778198788%_) + (lambda (_%self199906%_ _%stx199907%_) + (let* ((_%g199909199923%_ + (lambda (_%g199910199920%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g198778198788%_)))) - (_%g198776198832%_ - (lambda (_%g198778198794%_) + _%g199910199920%_)))) + (_%g199908199964%_ + (lambda (_%g199910199926%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g198778198794%_)) - (let ((_%e198781198796%_ + (gx#stx-pair? _%g199910199926%_)) + (let ((_%e199913199928%_ (let () (declare (not safe)) - (gx#stx-e _%g198778198794%_)))) - (let ((_%hd198782198799%_ + (gx#stx-e _%g199910199926%_)))) + (let ((_%hd199914199931%_ (let () (declare (not safe)) - (##car _%e198781198796%_))) - (_%tl198783198801%_ + (##car _%e199913199928%_))) + (_%tl199915199933%_ (let () (declare (not safe)) - (##cdr _%e198781198796%_)))) + (##cdr _%e199913199928%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198783198801%_)) - (let ((_%e198784198804%_ + (gx#stx-pair? _%tl199915199933%_)) + (let ((_%e199916199936%_ (let () (declare (not safe)) - (gx#stx-e _%tl198783198801%_)))) - (let ((_%hd198785198807%_ + (gx#stx-e _%tl199915199933%_)))) + (let ((_%hd199917199939%_ (let () (declare (not safe)) - (##car _%e198784198804%_))) - (_%tl198786198809%_ + (##car _%e199916199936%_))) + (_%tl199918199941%_ (let () (declare (not safe)) - (##cdr _%e198784198804%_)))) - ((lambda (_%L198812%_ _%L198813%_) - (let* ((_%ctx198826%_ + (##cdr _%e199916199936%_)))) + ((lambda (_%L199944%_ _%L199945%_) + (let* ((_%ctx199958%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L198813%_))) - (_%code198828%_ + _%L199945%_))) + (_%code199960%_ (##structure-ref - _%ctx198826%_ + _%ctx199958%_ '11 gx#module-context::t '#f)) - (__tmp199441 + (__tmp200573 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self198774%_ - _%code198828%_))))) + _%self199906%_ + _%code199960%_))))) (declare (not safe)) (__call-with-parameters - __tmp199441 + __tmp200573 gx#current-expander-context - _%ctx198826%_))) - _%tl198786198809%_ - _%hd198785198807%_))) - (_%g198777198791%_ _%g198778198794%_)))) - (_%g198777198791%_ _%g198778198794%_))))) - (_%g198776198832%_ _%stx198775%_)))) + _%ctx199958%_))) + _%tl199918199941%_ + _%hd199917199939%_))) + (_%g199909199923%_ _%g199910199926%_)))) + (_%g199909199923%_ _%g199910199926%_))))) + (_%g199908199964%_ _%stx199907%_)))) (define gxc#generate-ssxi-define-values% - (lambda (_%self198579%_ _%stx198580%_) - (letrec ((_%generate-e198582%_ - (lambda (_%id198759%_) - (let* ((_%sym198761%_ - (if (let ((__tmp199442 + (lambda (_%self199711%_ _%stx199712%_) + (letrec ((_%generate-e199714%_ + (lambda (_%id199891%_) + (let* ((_%sym199893%_ + (if (let ((__tmp200574 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp199442)) + (gx#identifier? __tmp200574)) (let () (declare (not safe)) - (gxc#identifier-symbol _%id198759%_)) + (gxc#identifier-symbol _%id199891%_)) '#f)) - (_%$e198763%_ + (_%$e199895%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-class _%sym198761%_)))) - (if _%$e198763%_ - ((lambda (_%klass198766%_) + (gxc#optimizer-lookup-class _%sym199893%_)))) + (if _%$e199895%_ + ((lambda (_%klass199898%_) (let () (declare (not safe)) (gxc#verbose '"generate class decl" - _%sym198761%_)) + _%sym199893%_)) (cons 'begin (cons (cons 'declare-class - (cons _%sym198761%_ - (cons (let ((__method199417 + (cons _%sym199893%_ + (cons (let ((__method200549 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__method-ref _%klass198766%_ 'typedecl)))) - (if __method199417 + (__method-ref _%klass199898%_ 'typedecl)))) + (if __method200549 (let () (declare (not safe)) - (__method199417 _%klass198766%_)) + (__method200549 _%klass199898%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%klass198766%_ + _%klass199898%_ 'typedecl)) '#!void))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'declare-type - (cons _%sym198761%_ + (cons _%sym199893%_ (cons (cons 'optimizer-resolve-class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'quote (cons (cons 'typedecl - (cons _%sym198761%_ + (cons _%sym199893%_ '())) '())) (cons (cons 'quote (cons 'class::t '())) @@ -739,1309 +739,1309 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%$e198763%_) - (let ((_%$e198768%_ + _%$e199895%_) + (let ((_%$e199900%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym198761%_)))) - (if _%$e198768%_ - ((lambda (_%type198771%_) + (gxc#optimizer-lookup-type _%sym199893%_)))) + (if _%$e199900%_ + ((lambda (_%type199903%_) (let () (declare (not safe)) (gxc#verbose '"generate typedecl " - _%sym198761%_ + _%sym199893%_ '" " - _%type198771%_)) + _%type199903%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type198771%_ + _%type199903%_ 'gxc#!class::t)) (cons 'declare-type - (cons _%sym198761%_ + (cons _%sym199893%_ (cons (cons 'optimizer-resolve-class (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'typedecl - (cons _%sym198761%_ '())) + (cons _%sym199893%_ '())) '())) (cons (cons 'quote (cons (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%type198771%_)) + _%type199903%_)) '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'declare-type - (cons _%sym198761%_ - (cons (let ((__method199418 + (cons _%sym199893%_ + (cons (let ((__method200550 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__method-ref _%type198771%_ 'typedecl)))) - (if __method199418 + (__method-ref _%type199903%_ 'typedecl)))) + (if __method200550 (let () (declare (not safe)) - (__method199418 _%type198771%_)) + (__method200550 _%type199903%_)) (begin (let () (declare (not safe)) - (error '"Missing method" _%type198771%_ 'typedecl)) + (error '"Missing method" _%type199903%_ 'typedecl)) '#!void))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e198768%_) + _%$e199900%_) '(begin)))))))) - (let* ((_%__stx199029199030%_ _%stx198580%_) - (_%g198585198623%_ + (let* ((_%__stx200161200162%_ _%stx199712%_) + (_%g199717199755%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx199029199030%_))))) - (let ((_%__kont199031199032%_ - (lambda (_%L198741%_) (_%generate-e198582%_ _%L198741%_))) - (_%__kont199033199034%_ - (lambda (_%L198676%_) - (let ((_%types198702%_ - (map _%generate-e198582%_ - (let ((__tmp199443 - (lambda (_%g198694198697%_ - _%g198695198699%_) - (cons _%g198694198697%_ - _%g198695198699%_)))) + _%__stx200161200162%_))))) + (let ((_%__kont200163200164%_ + (lambda (_%L199873%_) (_%generate-e199714%_ _%L199873%_))) + (_%__kont200165200166%_ + (lambda (_%L199808%_) + (let ((_%types199834%_ + (map _%generate-e199714%_ + (let ((__tmp200575 + (lambda (_%g199826199829%_ + _%g199827199831%_) + (cons _%g199826199829%_ + _%g199827199831%_)))) (declare (not safe)) - (__foldr1 __tmp199443 '() _%L198676%_))))) - (cons 'begin _%types198702%_))))) - (let ((_%__match199084199085%_ - (lambda (_%e198601198628%_ - _%hd198602198631%_ - _%tl198603198633%_ - _%e198604198636%_ - _%hd198605198639%_ - _%tl198606198641%_ - _%__splice199035199036%_ - _%target198607198644%_ - _%tl198609198646%_) - (letrec ((_%loop198610198649%_ - (lambda (_%hd198608198652%_ - _%id198614198654%_) + (__foldr1 __tmp200575 '() _%L199808%_))))) + (cons 'begin _%types199834%_))))) + (let ((_%__match200216200217%_ + (lambda (_%e199733199760%_ + _%hd199734199763%_ + _%tl199735199765%_ + _%e199736199768%_ + _%hd199737199771%_ + _%tl199738199773%_ + _%__splice200167200168%_ + _%target199739199776%_ + _%tl199741199778%_) + (letrec ((_%loop199742199781%_ + (lambda (_%hd199740199784%_ + _%id199746199786%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd198608198652%_)) - (let ((_%e198611198657%_ + (gx#stx-pair? _%hd199740199784%_)) + (let ((_%e199743199789%_ (let () (declare (not safe)) (gx#stx-e - _%hd198608198652%_)))) - (let ((_%lp-tl198613198662%_ + _%hd199740199784%_)))) + (let ((_%lp-tl199745199794%_ (let () (declare (not safe)) - (##cdr _%e198611198657%_))) - (_%lp-hd198612198660%_ + (##cdr _%e199743199789%_))) + (_%lp-hd199744199792%_ (let () (declare (not safe)) - (##car _%e198611198657%_)))) - (_%loop198610198649%_ - _%lp-tl198613198662%_ - (cons _%lp-hd198612198660%_ - _%id198614198654%_)))) - (let ((_%id198615198665%_ - (reverse _%id198614198654%_))) + (##car _%e199743199789%_)))) + (_%loop199742199781%_ + _%lp-tl199745199794%_ + (cons _%lp-hd199744199792%_ + _%id199746199786%_)))) + (let ((_%id199747199797%_ + (reverse _%id199746199786%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl198606198641%_)) - (let ((_%e198616198668%_ + _%tl199738199773%_)) + (let ((_%e199748199800%_ (let () (declare (not safe)) (gx#stx-e - _%tl198606198641%_)))) - (let ((_%tl198618198673%_ + _%tl199738199773%_)))) + (let ((_%tl199750199805%_ (let () (declare (not safe)) - (##cdr _%e198616198668%_))) - (_%hd198617198671%_ + (##cdr _%e199748199800%_))) + (_%hd199749199803%_ (let () (declare (not safe)) - (##car _%e198616198668%_)))) + (##car _%e199748199800%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198618198673%_)) - (_%__kont199033199034%_ - _%id198615198665%_) + _%tl199750199805%_)) + (_%__kont200165200166%_ + _%id199747199797%_) (let () (declare (not safe)) - (_%g198585198623%_))))) + (_%g199717199755%_))))) (let () (declare (not safe)) - (_%g198585198623%_)))))))) - (_%loop198610198649%_ _%target198607198644%_ '()))))) + (_%g199717199755%_)))))))) + (_%loop199742199781%_ _%target199739199776%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx199029199030%_)) - (let ((_%e198588198709%_ + (gx#stx-pair? _%__stx200161200162%_)) + (let ((_%e199720199841%_ (let () (declare (not safe)) - (gx#stx-e _%__stx199029199030%_)))) - (let ((_%tl198590198714%_ + (gx#stx-e _%__stx200161200162%_)))) + (let ((_%tl199722199846%_ (let () (declare (not safe)) - (##cdr _%e198588198709%_))) - (_%hd198589198712%_ + (##cdr _%e199720199841%_))) + (_%hd199721199844%_ (let () (declare (not safe)) - (##car _%e198588198709%_)))) + (##car _%e199720199841%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198590198714%_)) - (let ((_%e198591198717%_ + (gx#stx-pair? _%tl199722199846%_)) + (let ((_%e199723199849%_ (let () (declare (not safe)) - (gx#stx-e _%tl198590198714%_)))) - (let ((_%tl198593198722%_ + (gx#stx-e _%tl199722199846%_)))) + (let ((_%tl199725199854%_ (let () (declare (not safe)) - (##cdr _%e198591198717%_))) - (_%hd198592198720%_ + (##cdr _%e199723199849%_))) + (_%hd199724199852%_ (let () (declare (not safe)) - (##car _%e198591198717%_)))) + (##car _%e199723199849%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd198592198720%_)) - (let ((_%e198594198725%_ + (gx#stx-pair? _%hd199724199852%_)) + (let ((_%e199726199857%_ (let () (declare (not safe)) - (gx#stx-e _%hd198592198720%_)))) - (let ((_%tl198596198730%_ + (gx#stx-e _%hd199724199852%_)))) + (let ((_%tl199728199862%_ (let () (declare (not safe)) - (##cdr _%e198594198725%_))) - (_%hd198595198728%_ + (##cdr _%e199726199857%_))) + (_%hd199727199860%_ (let () (declare (not safe)) - (##car _%e198594198725%_)))) + (##car _%e199726199857%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198596198730%_)) + _%tl199728199862%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl198593198722%_)) - (let ((_%e198597198733%_ + _%tl199725199854%_)) + (let ((_%e199729199865%_ (let () (declare (not safe)) (gx#stx-e - _%tl198593198722%_)))) - (let ((_%tl198599198738%_ + _%tl199725199854%_)))) + (let ((_%tl199731199870%_ (let () (declare (not safe)) - (##cdr _%e198597198733%_))) - (_%hd198598198736%_ + (##cdr _%e199729199865%_))) + (_%hd199730199868%_ (let () (declare (not safe)) - (##car _%e198597198733%_)))) + (##car _%e199729199865%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198599198738%_)) - (_%__kont199031199032%_ - _%hd198595198728%_) + _%tl199731199870%_)) + (_%__kont200163200164%_ + _%hd199727199860%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd198592198720%_)) - (let ((_%__splice199035199036%_ + _%hd199724199852%_)) + (let ((_%__splice200167200168%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd198592198720%_ '0)))) - (let ((_%tl198609198646%_ + (gx#syntax-split-splice _%hd199724199852%_ '0)))) + (let ((_%tl199741199778%_ (let () (declare (not safe)) - (##vector-ref _%__splice199035199036%_ '1))) - (_%target198607198644%_ + (##vector-ref _%__splice200167200168%_ '1))) + (_%target199739199776%_ (let () (declare (not safe)) - (##vector-ref _%__splice199035199036%_ '0)))) + (##vector-ref _%__splice200167200168%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl198609198646%_)) - (_%__match199084199085%_ - _%e198588198709%_ - _%hd198589198712%_ - _%tl198590198714%_ - _%e198591198717%_ - _%hd198592198720%_ - _%tl198593198722%_ - _%__splice199035199036%_ - _%target198607198644%_ - _%tl198609198646%_) + (gx#stx-null? _%tl199741199778%_)) + (_%__match200216200217%_ + _%e199720199841%_ + _%hd199721199844%_ + _%tl199722199846%_ + _%e199723199849%_ + _%hd199724199852%_ + _%tl199725199854%_ + _%__splice200167200168%_ + _%target199739199776%_ + _%tl199741199778%_) (let () (declare (not safe)) - (_%g198585198623%_))))) - (let () (declare (not safe)) (_%g198585198623%_)))))) + (_%g199717199755%_))))) + (let () (declare (not safe)) (_%g199717199755%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd198592198720%_)) - (let ((_%__splice199035199036%_ + _%hd199724199852%_)) + (let ((_%__splice200167200168%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd198592198720%_ + _%hd199724199852%_ '0)))) - (let ((_%tl198609198646%_ + (let ((_%tl199741199778%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice199035199036%_ '1))) - (_%target198607198644%_ + (##vector-ref _%__splice200167200168%_ '1))) + (_%target199739199776%_ (let () (declare (not safe)) - (##vector-ref _%__splice199035199036%_ '0)))) + (##vector-ref _%__splice200167200168%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl198609198646%_)) - (_%__match199084199085%_ - _%e198588198709%_ - _%hd198589198712%_ - _%tl198590198714%_ - _%e198591198717%_ - _%hd198592198720%_ - _%tl198593198722%_ - _%__splice199035199036%_ - _%target198607198644%_ - _%tl198609198646%_) - (let () (declare (not safe)) (_%g198585198623%_))))) + (gx#stx-null? _%tl199741199778%_)) + (_%__match200216200217%_ + _%e199720199841%_ + _%hd199721199844%_ + _%tl199722199846%_ + _%e199723199849%_ + _%hd199724199852%_ + _%tl199725199854%_ + _%__splice200167200168%_ + _%target199739199776%_ + _%tl199741199778%_) + (let () (declare (not safe)) (_%g199717199755%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g198585198623%_)))) + (_%g199717199755%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd198592198720%_)) - (let ((_%__splice199035199036%_ + _%hd199724199852%_)) + (let ((_%__splice200167200168%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd198592198720%_ + _%hd199724199852%_ '0)))) - (let ((_%tl198609198646%_ + (let ((_%tl199741199778%_ (let () (declare (not safe)) (##vector-ref - _%__splice199035199036%_ + _%__splice200167200168%_ '1))) - (_%target198607198644%_ + (_%target199739199776%_ (let () (declare (not safe)) (##vector-ref - _%__splice199035199036%_ + _%__splice200167200168%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198609198646%_)) - (_%__match199084199085%_ - _%e198588198709%_ - _%hd198589198712%_ - _%tl198590198714%_ - _%e198591198717%_ - _%hd198592198720%_ - _%tl198593198722%_ - _%__splice199035199036%_ - _%target198607198644%_ - _%tl198609198646%_) + _%tl199741199778%_)) + (_%__match200216200217%_ + _%e199720199841%_ + _%hd199721199844%_ + _%tl199722199846%_ + _%e199723199849%_ + _%hd199724199852%_ + _%tl199725199854%_ + _%__splice200167200168%_ + _%target199739199776%_ + _%tl199741199778%_) (let () (declare (not safe)) - (_%g198585198623%_))))) + (_%g199717199755%_))))) (let () (declare (not safe)) - (_%g198585198623%_)))))) + (_%g199717199755%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd198592198720%_)) - (let ((_%__splice199035199036%_ + _%hd199724199852%_)) + (let ((_%__splice200167200168%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd198592198720%_ + _%hd199724199852%_ '0)))) - (let ((_%tl198609198646%_ + (let ((_%tl199741199778%_ (let () (declare (not safe)) (##vector-ref - _%__splice199035199036%_ + _%__splice200167200168%_ '1))) - (_%target198607198644%_ + (_%target199739199776%_ (let () (declare (not safe)) (##vector-ref - _%__splice199035199036%_ + _%__splice200167200168%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198609198646%_)) - (_%__match199084199085%_ - _%e198588198709%_ - _%hd198589198712%_ - _%tl198590198714%_ - _%e198591198717%_ - _%hd198592198720%_ - _%tl198593198722%_ - _%__splice199035199036%_ - _%target198607198644%_ - _%tl198609198646%_) + _%tl199741199778%_)) + (_%__match200216200217%_ + _%e199720199841%_ + _%hd199721199844%_ + _%tl199722199846%_ + _%e199723199849%_ + _%hd199724199852%_ + _%tl199725199854%_ + _%__splice200167200168%_ + _%target199739199776%_ + _%tl199741199778%_) (let () (declare (not safe)) - (_%g198585198623%_))))) + (_%g199717199755%_))))) (let () (declare (not safe)) - (_%g198585198623%_)))))) + (_%g199717199755%_)))))) (let () (declare (not safe)) - (_%g198585198623%_))))) - (let () (declare (not safe)) (_%g198585198623%_))))))))) + (_%g199717199755%_))))) + (let () (declare (not safe)) (_%g199717199755%_))))))))) (define gxc#generate-ssxi-call% - (lambda (_%self198132%_ _%stx198133%_) - (let* ((_%__stx199087199088%_ _%stx198133%_) - (_%g198137198239%_ + (lambda (_%self199264%_ _%stx199265%_) + (let* ((_%__stx200219200220%_ _%stx199265%_) + (_%g199269199371%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx199087199088%_))))) - (let ((_%__kont199089199090%_ - (lambda (_%L198529%_ - _%L198530%_ - _%L198531%_ - _%L198532%_ - _%L198533%_) + _%__stx200219200220%_))))) + (let ((_%__kont200221200222%_ + (lambda (_%L199661%_ + _%L199662%_ + _%L199663%_ + _%L199664%_ + _%L199665%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L198532%_)) + (gxc#identifier-symbol _%L199664%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L198531%_)) + (gx#stx-e _%L199663%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L198530%_)) + _%L199662%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L198529%_)) + (gx#stx-e _%L199661%_)) '()))))))) - (_%__kont199091199092%_ - (lambda (_%L198355%_ _%L198356%_ _%L198357%_ _%L198358%_) + (_%__kont200223200224%_ + (lambda (_%L199487%_ _%L199488%_ _%L199489%_ _%L199490%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L198357%_)) + (gxc#identifier-symbol _%L199489%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L198356%_)) + (gx#stx-e _%L199488%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L198355%_)) + _%L199487%_)) (cons '#f '()))))))) - (_%__kont199093199094%_ (lambda () '(begin)))) - (let ((_%__match199222199223%_ - (lambda (_%e198144198401%_ - _%hd198145198404%_ - _%tl198146198406%_ - _%e198147198409%_ - _%hd198148198412%_ - _%tl198149198414%_ - _%e198150198417%_ - _%hd198151198420%_ - _%tl198152198422%_ - _%e198153198425%_ - _%hd198154198428%_ - _%tl198155198430%_ - _%e198156198433%_ - _%hd198157198436%_ - _%tl198158198438%_ - _%e198159198441%_ - _%hd198160198444%_ - _%tl198161198446%_ - _%e198162198449%_ - _%hd198163198452%_ - _%tl198164198454%_ - _%e198165198457%_ - _%hd198166198460%_ - _%tl198167198462%_ - _%e198168198465%_ - _%hd198169198468%_ - _%tl198170198470%_ - _%e198171198473%_ - _%hd198172198476%_ - _%tl198173198478%_ - _%e198174198481%_ - _%hd198175198484%_ - _%tl198176198486%_ - _%e198177198489%_ - _%hd198178198492%_ - _%tl198179198494%_ - _%e198180198497%_ - _%hd198181198500%_ - _%tl198182198502%_ - _%e198183198505%_ - _%hd198184198508%_ - _%tl198185198510%_ - _%e198186198513%_ - _%hd198187198516%_ - _%tl198188198518%_ - _%e198189198521%_ - _%hd198190198524%_ - _%tl198191198526%_) - (let ((_%L198529%_ _%hd198190198524%_) - (_%L198530%_ _%hd198181198500%_) - (_%L198531%_ _%hd198172198476%_) - (_%L198532%_ _%hd198163198452%_) - (_%L198533%_ _%hd198154198428%_)) + (_%__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%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L198533%_ + _%L199665%_ 'bind-method!)) - (_%__kont199089199090%_ - _%L198529%_ - _%L198530%_ - _%L198531%_ - _%L198532%_ - _%L198533%_) - (_%__kont199093199094%_)))))) + (_%__kont200221200222%_ + _%L199661%_ + _%L199662%_ + _%L199663%_ + _%L199664%_ + _%L199665%_) + (_%__kont200225200226%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx199087199088%_)) - (let ((_%e198144198401%_ + (gx#stx-pair? _%__stx200219200220%_)) + (let ((_%e199276199533%_ (let () (declare (not safe)) - (gx#stx-e _%__stx199087199088%_)))) - (let ((_%tl198146198406%_ + (gx#stx-e _%__stx200219200220%_)))) + (let ((_%tl199278199538%_ (let () (declare (not safe)) - (##cdr _%e198144198401%_))) - (_%hd198145198404%_ + (##cdr _%e199276199533%_))) + (_%hd199277199536%_ (let () (declare (not safe)) - (##car _%e198144198401%_)))) + (##car _%e199276199533%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198146198406%_)) - (let ((_%e198147198409%_ + (gx#stx-pair? _%tl199278199538%_)) + (let ((_%e199279199541%_ (let () (declare (not safe)) - (gx#stx-e _%tl198146198406%_)))) - (let ((_%tl198149198414%_ + (gx#stx-e _%tl199278199538%_)))) + (let ((_%tl199281199546%_ (let () (declare (not safe)) - (##cdr _%e198147198409%_))) - (_%hd198148198412%_ + (##cdr _%e199279199541%_))) + (_%hd199280199544%_ (let () (declare (not safe)) - (##car _%e198147198409%_)))) + (##car _%e199279199541%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd198148198412%_)) - (let ((_%e198150198417%_ + (gx#stx-pair? _%hd199280199544%_)) + (let ((_%e199282199549%_ (let () (declare (not safe)) - (gx#stx-e _%hd198148198412%_)))) - (let ((_%tl198152198422%_ + (gx#stx-e _%hd199280199544%_)))) + (let ((_%tl199284199554%_ (let () (declare (not safe)) - (##cdr _%e198150198417%_))) - (_%hd198151198420%_ + (##cdr _%e199282199549%_))) + (_%hd199283199552%_ (let () (declare (not safe)) - (##car _%e198150198417%_)))) + (##car _%e199282199549%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd198151198420%_)) + _%hd199283199552%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd198151198420%_)) + _%hd199283199552%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl198152198422%_)) - (let ((_%e198153198425%_ + _%tl199284199554%_)) + (let ((_%e199285199557%_ (let () (declare (not safe)) (gx#stx-e - _%tl198152198422%_)))) - (let ((_%tl198155198430%_ + _%tl199284199554%_)))) + (let ((_%tl199287199562%_ (let () (declare (not safe)) - (##cdr _%e198153198425%_))) - (_%hd198154198428%_ + (##cdr _%e199285199557%_))) + (_%hd199286199560%_ (let () (declare (not safe)) - (##car _%e198153198425%_)))) + (##car _%e199285199557%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198155198430%_)) + _%tl199287199562%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl198149198414%_)) - (let ((_%e198156198433%_ + (gx#stx-pair? _%tl199281199546%_)) + (let ((_%e199288199565%_ (let () (declare (not safe)) - (gx#stx-e _%tl198149198414%_)))) - (let ((_%tl198158198438%_ + (gx#stx-e _%tl199281199546%_)))) + (let ((_%tl199290199570%_ (let () (declare (not safe)) - (##cdr _%e198156198433%_))) - (_%hd198157198436%_ + (##cdr _%e199288199565%_))) + (_%hd199289199568%_ (let () (declare (not safe)) - (##car _%e198156198433%_)))) + (##car _%e199288199565%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd198157198436%_)) - (let ((_%e198159198441%_ + (gx#stx-pair? _%hd199289199568%_)) + (let ((_%e199291199573%_ (let () (declare (not safe)) - (gx#stx-e _%hd198157198436%_)))) - (let ((_%tl198161198446%_ + (gx#stx-e _%hd199289199568%_)))) + (let ((_%tl199293199578%_ (let () (declare (not safe)) - (##cdr _%e198159198441%_))) - (_%hd198160198444%_ + (##cdr _%e199291199573%_))) + (_%hd199292199576%_ (let () (declare (not safe)) - (##car _%e198159198441%_)))) + (##car _%e199291199573%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd198160198444%_)) + (gx#identifier? _%hd199292199576%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd198160198444%_)) + _%hd199292199576%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl198161198446%_)) - (let ((_%e198162198449%_ + _%tl199293199578%_)) + (let ((_%e199294199581%_ (let () (declare (not safe)) (gx#stx-e - _%tl198161198446%_)))) - (let ((_%tl198164198454%_ + _%tl199293199578%_)))) + (let ((_%tl199296199586%_ (let () (declare (not safe)) - (##cdr _%e198162198449%_))) - (_%hd198163198452%_ + (##cdr _%e199294199581%_))) + (_%hd199295199584%_ (let () (declare (not safe)) - (##car _%e198162198449%_)))) + (##car _%e199294199581%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198164198454%_)) + _%tl199296199586%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl198158198438%_)) - (let ((_%e198165198457%_ + _%tl199290199570%_)) + (let ((_%e199297199589%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl198158198438%_)))) - (let ((_%tl198167198462%_ + (gx#stx-e _%tl199290199570%_)))) + (let ((_%tl199299199594%_ (let () (declare (not safe)) - (##cdr _%e198165198457%_))) - (_%hd198166198460%_ + (##cdr _%e199297199589%_))) + (_%hd199298199592%_ (let () (declare (not safe)) - (##car _%e198165198457%_)))) + (##car _%e199297199589%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd198166198460%_)) - (let ((_%e198168198465%_ + (gx#stx-pair? _%hd199298199592%_)) + (let ((_%e199300199597%_ (let () (declare (not safe)) - (gx#stx-e _%hd198166198460%_)))) - (let ((_%tl198170198470%_ + (gx#stx-e _%hd199298199592%_)))) + (let ((_%tl199302199602%_ (let () (declare (not safe)) - (##cdr _%e198168198465%_))) - (_%hd198169198468%_ + (##cdr _%e199300199597%_))) + (_%hd199301199600%_ (let () (declare (not safe)) - (##car _%e198168198465%_)))) + (##car _%e199300199597%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd198169198468%_)) + (gx#identifier? _%hd199301199600%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd198169198468%_)) + _%hd199301199600%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198170198470%_)) - (let ((_%e198171198473%_ + (gx#stx-pair? _%tl199302199602%_)) + (let ((_%e199303199605%_ (let () (declare (not safe)) (gx#stx-e - _%tl198170198470%_)))) - (let ((_%tl198173198478%_ + _%tl199302199602%_)))) + (let ((_%tl199305199610%_ (let () (declare (not safe)) - (##cdr _%e198171198473%_))) - (_%hd198172198476%_ + (##cdr _%e199303199605%_))) + (_%hd199304199608%_ (let () (declare (not safe)) - (##car _%e198171198473%_)))) + (##car _%e199303199605%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198173198478%_)) + _%tl199305199610%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl198167198462%_)) - (let ((_%e198174198481%_ + _%tl199299199594%_)) + (let ((_%e199306199613%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl198167198462%_)))) - (let ((_%tl198176198486%_ - (let () (declare (not safe)) (##cdr _%e198174198481%_))) - (_%hd198175198484%_ + (gx#stx-e _%tl199299199594%_)))) + (let ((_%tl199308199618%_ + (let () (declare (not safe)) (##cdr _%e199306199613%_))) + (_%hd199307199616%_ (let () (declare (not safe)) - (##car _%e198174198481%_)))) + (##car _%e199306199613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd198175198484%_)) - (let ((_%e198177198489%_ + (gx#stx-pair? _%hd199307199616%_)) + (let ((_%e199309199621%_ (let () (declare (not safe)) - (gx#stx-e _%hd198175198484%_)))) - (let ((_%tl198179198494%_ + (gx#stx-e _%hd199307199616%_)))) + (let ((_%tl199311199626%_ (let () (declare (not safe)) - (##cdr _%e198177198489%_))) - (_%hd198178198492%_ + (##cdr _%e199309199621%_))) + (_%hd199310199624%_ (let () (declare (not safe)) - (##car _%e198177198489%_)))) + (##car _%e199309199621%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd198178198492%_)) + (gx#identifier? _%hd199310199624%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd198178198492%_)) + (gx#stx-eq? '%#ref _%hd199310199624%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198179198494%_)) - (let ((_%e198180198497%_ + (gx#stx-pair? _%tl199311199626%_)) + (let ((_%e199312199629%_ (let () (declare (not safe)) - (gx#stx-e _%tl198179198494%_)))) - (let ((_%tl198182198502%_ + (gx#stx-e _%tl199311199626%_)))) + (let ((_%tl199314199634%_ (let () (declare (not safe)) - (##cdr _%e198180198497%_))) - (_%hd198181198500%_ + (##cdr _%e199312199629%_))) + (_%hd199313199632%_ (let () (declare (not safe)) - (##car _%e198180198497%_)))) + (##car _%e199312199629%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198182198502%_)) + _%tl199314199634%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl198176198486%_)) - (let ((_%e198183198505%_ + _%tl199308199618%_)) + (let ((_%e199315199637%_ (let () (declare (not safe)) (gx#stx-e - _%tl198176198486%_)))) - (let ((_%tl198185198510%_ + _%tl199308199618%_)))) + (let ((_%tl199317199642%_ (let () (declare (not safe)) - (##cdr _%e198183198505%_))) - (_%hd198184198508%_ + (##cdr _%e199315199637%_))) + (_%hd199316199640%_ (let () (declare (not safe)) - (##car _%e198183198505%_)))) + (##car _%e199315199637%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd198184198508%_)) - (let ((_%e198186198513%_ + _%hd199316199640%_)) + (let ((_%e199318199645%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd198184198508%_)))) - (let ((_%tl198188198518%_ + (gx#stx-e _%hd199316199640%_)))) + (let ((_%tl199320199650%_ (let () (declare (not safe)) - (##cdr _%e198186198513%_))) - (_%hd198187198516%_ + (##cdr _%e199318199645%_))) + (_%hd199319199648%_ (let () (declare (not safe)) - (##car _%e198186198513%_)))) + (##car _%e199318199645%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd198187198516%_)) + (gx#identifier? _%hd199319199648%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd198187198516%_)) + (gx#stx-eq? '%#quote _%hd199319199648%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198188198518%_)) - (let ((_%e198189198521%_ + (gx#stx-pair? _%tl199320199650%_)) + (let ((_%e199321199653%_ (let () (declare (not safe)) - (gx#stx-e _%tl198188198518%_)))) - (let ((_%tl198191198526%_ + (gx#stx-e _%tl199320199650%_)))) + (let ((_%tl199323199658%_ (let () (declare (not safe)) - (##cdr _%e198189198521%_))) - (_%hd198190198524%_ + (##cdr _%e199321199653%_))) + (_%hd199322199656%_ (let () (declare (not safe)) - (##car _%e198189198521%_)))) + (##car _%e199321199653%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl198191198526%_)) + (gx#stx-null? _%tl199323199658%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198185198510%_)) - (_%__match199222199223%_ - _%e198144198401%_ - _%hd198145198404%_ - _%tl198146198406%_ - _%e198147198409%_ - _%hd198148198412%_ - _%tl198149198414%_ - _%e198150198417%_ - _%hd198151198420%_ - _%tl198152198422%_ - _%e198153198425%_ - _%hd198154198428%_ - _%tl198155198430%_ - _%e198156198433%_ - _%hd198157198436%_ - _%tl198158198438%_ - _%e198159198441%_ - _%hd198160198444%_ - _%tl198161198446%_ - _%e198162198449%_ - _%hd198163198452%_ - _%tl198164198454%_ - _%e198165198457%_ - _%hd198166198460%_ - _%tl198167198462%_ - _%e198168198465%_ - _%hd198169198468%_ - _%tl198170198470%_ - _%e198171198473%_ - _%hd198172198476%_ - _%tl198173198478%_ - _%e198174198481%_ - _%hd198175198484%_ - _%tl198176198486%_ - _%e198177198489%_ - _%hd198178198492%_ - _%tl198179198494%_ - _%e198180198497%_ - _%hd198181198500%_ - _%tl198182198502%_ - _%e198183198505%_ - _%hd198184198508%_ - _%tl198185198510%_ - _%e198186198513%_ - _%hd198187198516%_ - _%tl198188198518%_ - _%e198189198521%_ - _%hd198190198524%_ - _%tl198191198526%_) - (_%__kont199093199094%_)) - (_%__kont199093199094%_)))) - (_%__kont199093199094%_)) - (_%__kont199093199094%_)) - (_%__kont199093199094%_)))) - (_%__kont199093199094%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl198176198486%_)) - (if (let ((__tmp199444 + _%tl199308199618%_)) + (if (let ((__tmp200576 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp199444 'bind-method!)) - (let ((_%L198355%_ _%hd198181198500%_) - (_%L198356%_ _%hd198172198476%_) - (_%L198357%_ _%hd198163198452%_) - (_%L198358%_ _%hd198154198428%_)) - (_%__kont199091199092%_ - _%L198355%_ - _%L198356%_ - _%L198357%_ - _%L198358%_)) - (_%__kont199093199094%_)) - (_%__kont199093199094%_))) + (gxc#runtime-identifier=? __tmp200576 'bind-method!)) + (let ((_%L199487%_ _%hd199313199632%_) + (_%L199488%_ _%hd199304199608%_) + (_%L199489%_ _%hd199295199584%_) + (_%L199490%_ _%hd199286199560%_)) + (_%__kont200223200224%_ + _%L199487%_ + _%L199488%_ + _%L199489%_ + _%L199490%_)) + (_%__kont200225200226%_)) + (_%__kont200225200226%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199093199094%_)))) - (_%__kont199093199094%_)) - (_%__kont199093199094%_)) - (_%__kont199093199094%_)))) - (_%__kont199093199094%_)))) - (_%__kont199093199094%_)) + (_%__kont200225200226%_)))) + (_%__kont200225200226%_)) + (_%__kont200225200226%_)) + (_%__kont200225200226%_)))) + (_%__kont200225200226%_)))) + (_%__kont200225200226%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199093199094%_)))) - (_%__kont199093199094%_)) - (_%__kont199093199094%_)) - (_%__kont199093199094%_)))) - (_%__kont199093199094%_)))) - (_%__kont199093199094%_)) - (_%__kont199093199094%_)))) + (_%__kont200225200226%_)))) + (_%__kont200225200226%_)) + (_%__kont200225200226%_)) + (_%__kont200225200226%_)))) + (_%__kont200225200226%_)))) + (_%__kont200225200226%_)) + (_%__kont200225200226%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199093199094%_)) - (_%__kont199093199094%_)) - (_%__kont199093199094%_)))) - (_%__kont199093199094%_)))) - (_%__kont199093199094%_)) - (_%__kont199093199094%_)))) + (_%__kont200225200226%_)) + (_%__kont200225200226%_)) + (_%__kont200225200226%_)))) + (_%__kont200225200226%_)))) + (_%__kont200225200226%_)) + (_%__kont200225200226%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199093199094%_)) - (_%__kont199093199094%_)) - (_%__kont199093199094%_)))) - (_%__kont199093199094%_)))) - (_%__kont199093199094%_)))) - (_%__kont199093199094%_))))))) + (_%__kont200225200226%_)) + (_%__kont200225200226%_)) + (_%__kont200225200226%_)))) + (_%__kont200225200226%_)))) + (_%__kont200225200226%_)))) + (_%__kont200225200226%_))))))) (define gxc#generate-ssxi-begin-annotation% - (lambda (_%self197956%_ _%stx197957%_) - (let* ((_%__stx199331199332%_ _%stx197957%_) - (_%g197960198000%_ + (lambda (_%self199088%_ _%stx199089%_) + (let* ((_%__stx200463200464%_ _%stx199089%_) + (_%g199092199132%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx199331199332%_))))) - (let ((_%__kont199333199334%_ - (lambda (_%L198106%_ _%L198107%_) + _%__stx200463200464%_))))) + (let ((_%__kont200465200466%_ + (lambda (_%L199238%_ _%L199239%_) (cons 'declare-inline-rule! (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L198107%_)) - (cons _%L198106%_ '()))))) - (_%__kont199335199336%_ - (lambda (_%L198029%_ _%L198030%_) '(begin)))) + (gxc#identifier-symbol _%L199239%_)) + (cons _%L199238%_ '()))))) + (_%__kont200467200468%_ + (lambda (_%L199161%_ _%L199162%_) '(begin)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx199331199332%_)) - (let ((_%e197964198050%_ + (gx#stx-pair? _%__stx200463200464%_)) + (let ((_%e199096199182%_ (let () (declare (not safe)) - (gx#stx-e _%__stx199331199332%_)))) - (let ((_%tl197966198055%_ + (gx#stx-e _%__stx200463200464%_)))) + (let ((_%tl199098199187%_ (let () (declare (not safe)) - (##cdr _%e197964198050%_))) - (_%hd197965198053%_ + (##cdr _%e199096199182%_))) + (_%hd199097199185%_ (let () (declare (not safe)) - (##car _%e197964198050%_)))) + (##car _%e199096199182%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197966198055%_)) - (let ((_%e197967198058%_ + (gx#stx-pair? _%tl199098199187%_)) + (let ((_%e199099199190%_ (let () (declare (not safe)) - (gx#stx-e _%tl197966198055%_)))) - (let ((_%tl197969198063%_ + (gx#stx-e _%tl199098199187%_)))) + (let ((_%tl199101199195%_ (let () (declare (not safe)) - (##cdr _%e197967198058%_))) - (_%hd197968198061%_ + (##cdr _%e199099199190%_))) + (_%hd199100199193%_ (let () (declare (not safe)) - (##car _%e197967198058%_)))) + (##car _%e199099199190%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197968198061%_)) - (let ((_%e197970198066%_ + (gx#stx-pair? _%hd199100199193%_)) + (let ((_%e199102199198%_ (let () (declare (not safe)) - (gx#stx-e _%hd197968198061%_)))) - (let ((_%tl197972198071%_ + (gx#stx-e _%hd199100199193%_)))) + (let ((_%tl199104199203%_ (let () (declare (not safe)) - (##cdr _%e197970198066%_))) - (_%hd197971198069%_ + (##cdr _%e199102199198%_))) + (_%hd199103199201%_ (let () (declare (not safe)) - (##car _%e197970198066%_)))) + (##car _%e199102199198%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd197971198069%_)) + (gx#identifier? _%hd199103199201%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd197971198069%_)) + _%hd199103199201%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197972198071%_)) - (let ((_%e197973198074%_ + _%tl199104199203%_)) + (let ((_%e199105199206%_ (let () (declare (not safe)) (gx#stx-e - _%tl197972198071%_)))) - (let ((_%tl197975198079%_ + _%tl199104199203%_)))) + (let ((_%tl199107199211%_ (let () (declare (not safe)) - (##cdr _%e197973198074%_))) - (_%hd197974198077%_ + (##cdr _%e199105199206%_))) + (_%hd199106199209%_ (let () (declare (not safe)) - (##car _%e197973198074%_)))) + (##car _%e199105199206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197975198079%_)) + _%tl199107199211%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197969198063%_)) - (let ((_%e197976198082%_ + _%tl199101199195%_)) + (let ((_%e199108199214%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl197969198063%_)))) - (let ((_%tl197978198087%_ + (gx#stx-e _%tl199101199195%_)))) + (let ((_%tl199110199219%_ (let () (declare (not safe)) - (##cdr _%e197976198082%_))) - (_%hd197977198085%_ + (##cdr _%e199108199214%_))) + (_%hd199109199217%_ (let () (declare (not safe)) - (##car _%e197976198082%_)))) + (##car _%e199108199214%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197977198085%_)) - (let ((_%e197979198090%_ + (gx#stx-pair? _%hd199109199217%_)) + (let ((_%e199111199222%_ (let () (declare (not safe)) - (gx#stx-e _%hd197977198085%_)))) - (let ((_%tl197981198095%_ + (gx#stx-e _%hd199109199217%_)))) + (let ((_%tl199113199227%_ (let () (declare (not safe)) - (##cdr _%e197979198090%_))) - (_%hd197980198093%_ + (##cdr _%e199111199222%_))) + (_%hd199112199225%_ (let () (declare (not safe)) - (##car _%e197979198090%_)))) + (##car _%e199111199222%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd197980198093%_)) + (gx#identifier? _%hd199112199225%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd197980198093%_)) + _%hd199112199225%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197981198095%_)) - (let ((_%e197982198098%_ + _%tl199113199227%_)) + (let ((_%e199114199230%_ (let () (declare (not safe)) (gx#stx-e - _%tl197981198095%_)))) - (let ((_%tl197984198103%_ + _%tl199113199227%_)))) + (let ((_%tl199116199235%_ (let () (declare (not safe)) - (##cdr _%e197982198098%_))) - (_%hd197983198101%_ + (##cdr _%e199114199230%_))) + (_%hd199115199233%_ (let () (declare (not safe)) - (##car _%e197982198098%_)))) + (##car _%e199114199230%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197984198103%_)) + _%tl199116199235%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197978198087%_)) - (_%__kont199333199334%_ - _%hd197983198101%_ - _%hd197974198077%_) + _%tl199110199219%_)) + (_%__kont200465200466%_ + _%hd199115199233%_ + _%hd199106199209%_) (let () (declare (not safe)) - (_%g197960198000%_))) + (_%g199092199132%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197978198087%_)) - (_%__kont199335199336%_ - _%hd197977198085%_ - _%hd197968198061%_) + _%tl199110199219%_)) + (_%__kont200467200468%_ + _%hd199109199217%_ + _%hd199100199193%_) (let () (declare (not safe)) - (_%g197960198000%_)))))) + (_%g199092199132%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197978198087%_)) - (_%__kont199335199336%_ - _%hd197977198085%_ - _%hd197968198061%_) + _%tl199110199219%_)) + (_%__kont200467200468%_ + _%hd199109199217%_ + _%hd199100199193%_) (let () (declare (not safe)) - (_%g197960198000%_)))) + (_%g199092199132%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197978198087%_)) - (_%__kont199335199336%_ - _%hd197977198085%_ - _%hd197968198061%_) + _%tl199110199219%_)) + (_%__kont200467200468%_ + _%hd199109199217%_ + _%hd199100199193%_) (let () (declare (not safe)) - (_%g197960198000%_)))) + (_%g199092199132%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197978198087%_)) - (_%__kont199335199336%_ - _%hd197977198085%_ - _%hd197968198061%_) + (gx#stx-null? _%tl199110199219%_)) + (_%__kont200467200468%_ + _%hd199109199217%_ + _%hd199100199193%_) (let () (declare (not safe)) - (_%g197960198000%_)))))) + (_%g199092199132%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197978198087%_)) - (_%__kont199335199336%_ - _%hd197977198085%_ - _%hd197968198061%_) + (gx#stx-null? _%tl199110199219%_)) + (_%__kont200467200468%_ + _%hd199109199217%_ + _%hd199100199193%_) (let () (declare (not safe)) - (_%g197960198000%_)))))) - (let () (declare (not safe)) (_%g197960198000%_))) + (_%g199092199132%_)))))) + (let () (declare (not safe)) (_%g199092199132%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197969198063%_)) - (let ((_%e197993198021%_ + (gx#stx-pair? _%tl199101199195%_)) + (let ((_%e199125199153%_ (let () (declare (not safe)) - (gx#stx-e _%tl197969198063%_)))) - (let ((_%tl197995198026%_ + (gx#stx-e _%tl199101199195%_)))) + (let ((_%tl199127199158%_ (let () (declare (not safe)) - (##cdr _%e197993198021%_))) - (_%hd197994198024%_ + (##cdr _%e199125199153%_))) + (_%hd199126199156%_ (let () (declare (not safe)) - (##car _%e197993198021%_)))) + (##car _%e199125199153%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197995198026%_)) - (_%__kont199335199336%_ - _%hd197994198024%_ - _%hd197968198061%_) + (gx#stx-null? _%tl199127199158%_)) + (_%__kont200467200468%_ + _%hd199126199156%_ + _%hd199100199193%_) (let () (declare (not safe)) - (_%g197960198000%_))))) - (let () (declare (not safe)) (_%g197960198000%_)))))) + (_%g199092199132%_))))) + (let () (declare (not safe)) (_%g199092199132%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197969198063%_)) - (let ((_%e197993198021%_ + _%tl199101199195%_)) + (let ((_%e199125199153%_ (let () (declare (not safe)) (gx#stx-e - _%tl197969198063%_)))) - (let ((_%tl197995198026%_ + _%tl199101199195%_)))) + (let ((_%tl199127199158%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e197993198021%_))) - (_%hd197994198024%_ - (let () (declare (not safe)) (##car _%e197993198021%_)))) + (##cdr _%e199125199153%_))) + (_%hd199126199156%_ + (let () (declare (not safe)) (##car _%e199125199153%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197995198026%_)) - (_%__kont199335199336%_ - _%hd197994198024%_ - _%hd197968198061%_) - (let () (declare (not safe)) (_%g197960198000%_))))) + (gx#stx-null? _%tl199127199158%_)) + (_%__kont200467200468%_ + _%hd199126199156%_ + _%hd199100199193%_) + (let () (declare (not safe)) (_%g199092199132%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g197960198000%_)))) + (_%g199092199132%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197969198063%_)) - (let ((_%e197993198021%_ + _%tl199101199195%_)) + (let ((_%e199125199153%_ (let () (declare (not safe)) (gx#stx-e - _%tl197969198063%_)))) - (let ((_%tl197995198026%_ + _%tl199101199195%_)))) + (let ((_%tl199127199158%_ (let () (declare (not safe)) - (##cdr _%e197993198021%_))) - (_%hd197994198024%_ + (##cdr _%e199125199153%_))) + (_%hd199126199156%_ (let () (declare (not safe)) - (##car _%e197993198021%_)))) + (##car _%e199125199153%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197995198026%_)) - (_%__kont199335199336%_ - _%hd197994198024%_ - _%hd197968198061%_) + _%tl199127199158%_)) + (_%__kont200467200468%_ + _%hd199126199156%_ + _%hd199100199193%_) (let () (declare (not safe)) - (_%g197960198000%_))))) + (_%g199092199132%_))))) (let () (declare (not safe)) - (_%g197960198000%_)))) + (_%g199092199132%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197969198063%_)) - (let ((_%e197993198021%_ + _%tl199101199195%_)) + (let ((_%e199125199153%_ (let () (declare (not safe)) (gx#stx-e - _%tl197969198063%_)))) - (let ((_%tl197995198026%_ + _%tl199101199195%_)))) + (let ((_%tl199127199158%_ (let () (declare (not safe)) - (##cdr _%e197993198021%_))) - (_%hd197994198024%_ + (##cdr _%e199125199153%_))) + (_%hd199126199156%_ (let () (declare (not safe)) - (##car _%e197993198021%_)))) + (##car _%e199125199153%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197995198026%_)) - (_%__kont199335199336%_ - _%hd197994198024%_ - _%hd197968198061%_) + _%tl199127199158%_)) + (_%__kont200467200468%_ + _%hd199126199156%_ + _%hd199100199193%_) (let () (declare (not safe)) - (_%g197960198000%_))))) + (_%g199092199132%_))))) (let () (declare (not safe)) - (_%g197960198000%_)))))) + (_%g199092199132%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197969198063%_)) - (let ((_%e197993198021%_ + (gx#stx-pair? _%tl199101199195%_)) + (let ((_%e199125199153%_ (let () (declare (not safe)) - (gx#stx-e _%tl197969198063%_)))) - (let ((_%tl197995198026%_ + (gx#stx-e _%tl199101199195%_)))) + (let ((_%tl199127199158%_ (let () (declare (not safe)) - (##cdr _%e197993198021%_))) - (_%hd197994198024%_ + (##cdr _%e199125199153%_))) + (_%hd199126199156%_ (let () (declare (not safe)) - (##car _%e197993198021%_)))) + (##car _%e199125199153%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197995198026%_)) - (_%__kont199335199336%_ - _%hd197994198024%_ - _%hd197968198061%_) + _%tl199127199158%_)) + (_%__kont200467200468%_ + _%hd199126199156%_ + _%hd199100199193%_) (let () (declare (not safe)) - (_%g197960198000%_))))) + (_%g199092199132%_))))) (let () (declare (not safe)) - (_%g197960198000%_)))))) - (let () (declare (not safe)) (_%g197960198000%_))))) - (let () (declare (not safe)) (_%g197960198000%_))))))) + (_%g199092199132%_)))))) + (let () (declare (not safe)) (_%g199092199132%_))))) + (let () (declare (not safe)) (_%g199092199132%_))))))) (define gxc#!alias::typedecl - (lambda (_%self196150197941%_) - (let* ((_%self197944%_ _%self196150197941%_) - (_%self197946%_ _%self197944%_)) + (lambda (_%self197282199073%_) + (let* ((_%self199076%_ _%self197282199073%_) + (_%self199078%_ _%self199076%_)) (cons '@alias (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197946%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self199078%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) (__bind-method!__% gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_%self196151197712%_) - (let* ((_%self197715%_ _%self196151197712%_) - (_%self197717%_ _%self197715%_) - (_%self197726197742%_ _%self197717%_) - (_%E197728197746%_ + (lambda (_%self197283198844%_) + (let* ((_%self198847%_ _%self197283198844%_) + (_%self198849%_ _%self198847%_) + (_%self198858198874%_ _%self198849%_) + (_%E198860198878%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self197726197742%_ + _%self198858198874%_ '((!class id super precendence-list @@ -2054,124 +2054,124 @@ metaclass methods)))) '#!void)) - (_%K197729197761%_ - (lambda (_%methods197749%_ - _%metaclass197750%_ - _%system?197751%_ - _%final?197752%_ - _%struct?197753%_ - _%constructor197754%_ - _%fields197755%_ - _%slots197756%_ - _%precendence-list197757%_ - _%super197758%_ - _%id197759%_) + (_%K198861198893%_ + (lambda (_%methods198881%_ + _%metaclass198882%_ + _%system?198883%_ + _%final?198884%_ + _%struct?198885%_ + _%constructor198886%_ + _%fields198887%_ + _%slots198888%_ + _%precendence-list198889%_ + _%super198890%_ + _%id198891%_) (cons '@class - (cons _%id197759%_ - (cons _%super197758%_ - (cons _%precendence-list197757%_ - (cons _%slots197756%_ - (cons _%fields197755%_ - (cons _%constructor197754%_ - (cons _%struct?197753%_ + (cons _%id198891%_ + (cons _%super198890%_ + (cons _%precendence-list198889%_ + (cons _%slots198888%_ + (cons _%fields198887%_ + (cons _%constructor198886%_ + (cons _%struct?198885%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%final?197752%_ - (cons _%system?197751%_ - (cons _%metaclass197750%_ - (cons (if _%methods197749%_ + (cons _%final?198884%_ + (cons _%system?198883%_ + (cons _%metaclass198882%_ + (cons (if _%methods198881%_ (let () (declare (not safe)) (hash->list - _%methods197749%_)) + _%methods198881%_)) '#f) '())))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%e197730197764%_ + (_%e198862198896%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197726197742%_ '1 '#f '#f))) - (_%id197767%_ _%e197730197764%_) - (_%e197731197769%_ + (##unchecked-structure-ref _%self198858198874%_ '1 '#f '#f))) + (_%id198899%_ _%e198862198896%_) + (_%e198863198901%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197726197742%_ '2 '#f '#f))) - (_%super197772%_ _%e197731197769%_) - (_%e197732197774%_ + (##unchecked-structure-ref _%self198858198874%_ '2 '#f '#f))) + (_%super198904%_ _%e198863198901%_) + (_%e198864198906%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197726197742%_ '3 '#f '#f))) - (_%precendence-list197777%_ _%e197732197774%_) - (_%e197733197779%_ + (##unchecked-structure-ref _%self198858198874%_ '3 '#f '#f))) + (_%precendence-list198909%_ _%e198864198906%_) + (_%e198865198911%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197726197742%_ '4 '#f '#f))) - (_%slots197782%_ _%e197733197779%_) - (_%e197734197784%_ + (##unchecked-structure-ref _%self198858198874%_ '4 '#f '#f))) + (_%slots198914%_ _%e198865198911%_) + (_%e198866198916%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197726197742%_ '5 '#f '#f))) - (_%fields197787%_ _%e197734197784%_) - (_%e197735197789%_ + (##unchecked-structure-ref _%self198858198874%_ '5 '#f '#f))) + (_%fields198919%_ _%e198866198916%_) + (_%e198867198921%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197726197742%_ '6 '#f '#f))) - (_%constructor197792%_ _%e197735197789%_) - (_%e197736197794%_ + (##unchecked-structure-ref _%self198858198874%_ '6 '#f '#f))) + (_%constructor198924%_ _%e198867198921%_) + (_%e198868198926%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197726197742%_ '7 '#f '#f))) - (_%struct?197797%_ _%e197736197794%_) - (_%e197737197799%_ + (##unchecked-structure-ref _%self198858198874%_ '7 '#f '#f))) + (_%struct?198929%_ _%e198868198926%_) + (_%e198869198931%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197726197742%_ '8 '#f '#f))) - (_%final?197802%_ _%e197737197799%_) - (_%e197738197804%_ + (##unchecked-structure-ref _%self198858198874%_ '8 '#f '#f))) + (_%final?198934%_ _%e198869198931%_) + (_%e198870198936%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197726197742%_ '9 '#f '#f))) - (_%system?197807%_ _%e197738197804%_) - (_%e197739197809%_ + (##unchecked-structure-ref _%self198858198874%_ '9 '#f '#f))) + (_%system?198939%_ _%e198870198936%_) + (_%e198871198941%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self197726197742%_ + _%self198858198874%_ '10 '#f '#f))) - (_%metaclass197812%_ _%e197739197809%_) - (_%e197740197814%_ + (_%metaclass198944%_ _%e198871198941%_) + (_%e198872198946%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self197726197742%_ + _%self198858198874%_ '11 '#f '#f))) - (_%methods197817%_ _%e197740197814%_)) - (_%K197729197761%_ - _%methods197817%_ - _%metaclass197812%_ - _%system?197807%_ - _%final?197802%_ - _%struct?197797%_ - _%constructor197792%_ - _%fields197787%_ - _%slots197782%_ - _%precendence-list197777%_ - _%super197772%_ - _%id197767%_)))) + (_%methods198949%_ _%e198872198946%_)) + (_%K198861198893%_ + _%methods198949%_ + _%metaclass198944%_ + _%system?198939%_ + _%final?198934%_ + _%struct?198929%_ + _%constructor198924%_ + _%fields198919%_ + _%slots198914%_ + _%precendence-list198909%_ + _%super198904%_ + _%id198899%_)))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_%self196152197575%_) - (let* ((_%self197578%_ _%self196152197575%_) - (_%self197580%_ _%self197578%_)) + (lambda (_%self197284198707%_) + (let* ((_%self198710%_ _%self197284198707%_) + (_%self198712%_ _%self198710%_)) (cons '@predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197580%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198712%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2181,13 +2181,13 @@ gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_%self196153197438%_) - (let* ((_%self197441%_ _%self196153197438%_) - (_%self197443%_ _%self197441%_)) + (lambda (_%self197285198570%_) + (let* ((_%self198573%_ _%self197285198570%_) + (_%self198575%_ _%self198573%_)) (cons '@constructor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197443%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198575%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2197,24 +2197,24 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_%self196154197301%_) - (let* ((_%self197304%_ _%self196154197301%_) - (_%self197306%_ _%self197304%_)) + (lambda (_%self197286198433%_) + (let* ((_%self198436%_ _%self197286198433%_) + (_%self198438%_ _%self198436%_)) (cons '@accessor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197306%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198438%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197306%_ + _%self198438%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197306%_ + _%self198438%_ '4 '#f '#f)) @@ -2227,24 +2227,24 @@ gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_%self196155197164%_) - (let* ((_%self197167%_ _%self196155197164%_) - (_%self197169%_ _%self197167%_)) + (lambda (_%self197287198296%_) + (let* ((_%self198299%_ _%self197287198296%_) + (_%self198301%_ _%self198299%_)) (cons '@mutator (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197169%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198301%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197169%_ + _%self198301%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197169%_ + _%self198301%_ '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 (_%self196156197027%_) - (let* ((_%self197030%_ _%self196156197027%_) - (_%self197032%_ _%self197030%_)) + (lambda (_%self197288198159%_) + (let* ((_%self198162%_ _%self197288198159%_) + (_%self198164%_ _%self198162%_)) (cons '@interface (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197032%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198164%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197032%_ + _%self198164%_ '2 '#f '#f)) @@ -2276,34 +2276,34 @@ gxc#!interface::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_%self196157196838%_) - (let* ((_%self196841%_ _%self196157196838%_) - (_%self196843%_ _%self196841%_) - (_%self196852196861%_ _%self196843%_) - (_%E196854196865%_ + (lambda (_%self197289197970%_) + (let* ((_%self197973%_ _%self197289197970%_) + (_%self197975%_ _%self197973%_) + (_%self197984197993%_ _%self197975%_) + (_%E197986197997%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self196852196861%_ + _%self197984197993%_ '((!lambda _ signature arity dispatch)))) '#!void)) - (_%K196855196884%_ - (lambda (_%dispatch196868%_ - _%arity196869%_ - _%signature196870%_) - (if _%signature196870%_ - (let ((_%signature196872%_ _%signature196870%_)) + (_%K197987198016%_ + (lambda (_%dispatch198000%_ + _%arity198001%_ + _%signature198002%_) + (if _%signature198002%_ + (let ((_%signature198004%_ _%signature198002%_)) (cons '@lambda - (cons _%arity196869%_ - (cons _%dispatch196868%_ + (cons _%arity198001%_ + (cons _%dispatch198000%_ (cons 'signature: (cons (cons 'return: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%signature196872%_ + _%signature198004%_ '1 '#f '#f)) @@ -2311,7 +2311,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature196872%_ + _%signature198004%_ '2 '#f '#f)) @@ -2319,7 +2319,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature196872%_ + _%signature198004%_ '3 '#f '#f)) @@ -2329,7 +2329,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%signature196872%_ + _%signature198004%_ '4 '#f '#f)) @@ -2337,7 +2337,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature196872%_ + _%signature198004%_ '5 '#f '#f)) @@ -2346,63 +2346,63 @@ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '@lambda - (cons _%arity196869%_ - (cons _%dispatch196868%_ '())))))) - (_%e196856196887%_ + (cons _%arity198001%_ + (cons _%dispatch198000%_ '())))))) + (_%e197988198019%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self196852196861%_ '1 '#f '#f))) - (_%e196857196890%_ + (##unchecked-structure-ref _%self197984197993%_ '1 '#f '#f))) + (_%e197989198022%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self196852196861%_ '2 '#f '#f))) - (_%signature196893%_ _%e196857196890%_) - (_%e196858196895%_ + (##unchecked-structure-ref _%self197984197993%_ '2 '#f '#f))) + (_%signature198025%_ _%e197989198022%_) + (_%e197990198027%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self196852196861%_ '3 '#f '#f))) - (_%arity196898%_ _%e196858196895%_) - (_%e196859196900%_ + (##unchecked-structure-ref _%self197984197993%_ '3 '#f '#f))) + (_%arity198030%_ _%e197990198027%_) + (_%e197991198032%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self196852196861%_ '4 '#f '#f))) - (_%dispatch196903%_ _%e196859196900%_)) - (_%K196855196884%_ - _%dispatch196903%_ - _%arity196898%_ - _%signature196893%_)))) + (##unchecked-structure-ref _%self197984197993%_ '4 '#f '#f))) + (_%dispatch198035%_ _%e197991198032%_)) + (_%K197987198016%_ + _%dispatch198035%_ + _%arity198030%_ + _%signature198025%_)))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_%self196158196697%_) - (let* ((_%self196700%_ _%self196158196697%_) - (_%self196702%_ _%self196700%_)) - (letrec ((_%clause-e196712%_ - (lambda (_%clause196714%_) - (cdr (let ((__method199419 + (lambda (_%self197290197829%_) + (let* ((_%self197832%_ _%self197290197829%_) + (_%self197834%_ _%self197832%_)) + (letrec ((_%clause-e197844%_ + (lambda (_%clause197846%_) + (cdr (let ((__method200551 (let () (declare (not safe)) (__method-ref - _%clause196714%_ + _%clause197846%_ 'typedecl)))) - (if __method199419 + (if __method200551 (let () (declare (not safe)) - (__method199419 _%clause196714%_)) + (__method200551 _%clause197846%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause196714%_ + _%clause197846%_ 'typedecl)) '#!void))))))) (cons '@case-lambda - (map _%clause-e196712%_ + (map _%clause-e197844%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self196702%_ + _%self197834%_ '3 '#f '#f)))))))) @@ -2414,17 +2414,17 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_%self196159196560%_) - (let* ((_%self196563%_ _%self196159196560%_) - (_%self196565%_ _%self196563%_)) + (lambda (_%self197291197692%_) + (let* ((_%self197695%_ _%self197291197692%_) + (_%self197697%_ _%self197695%_)) (cons '@kw-lambda (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self196565%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self197697%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self196565%_ + _%self197697%_ '4 '#f '#f)) @@ -2437,17 +2437,17 @@ gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_%self196160196423%_) - (let* ((_%self196426%_ _%self196160196423%_) - (_%self196428%_ _%self196426%_)) + (lambda (_%self197292197555%_) + (let* ((_%self197558%_ _%self197292197555%_) + (_%self197560%_ _%self197558%_)) (cons '@kw-lambda-dispatch (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self196428%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self197560%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self196428%_ + _%self197560%_ '4 '#f '#f)) @@ -2460,13 +2460,13 @@ gxc#!kw-lambda-primary::typedecl '#f)) (define gxc#!primitive-predicate::typedecl - (lambda (_%self196161196286%_) - (let* ((_%self196289%_ _%self196161196286%_) - (_%self196291%_ _%self196289%_)) + (lambda (_%self197293197418%_) + (let* ((_%self197421%_ _%self197293197418%_) + (_%self197423%_ _%self197421%_)) (cons '@primitive-predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self196291%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self197423%_ '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 a5cb0b6d4..532f1aae7 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]#_g199446_| + (define |gxc[1]#_g200578_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g199448_| + (define |gxc[1]#_g200580_| (##structure gx#syntax-quote::t '::generate-ssxi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g199450_| + (define |gxc[1]#_g200582_| (##structure gx#syntax-quote::t 'make-::generate-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g199452_| + (define |gxc[1]#_g200584_| (##structure gx#syntax-quote::t '::generate-ssxi? @@ -29,7 +29,7 @@ (gx#current-expander-context) '())) (define |gxc[:0:]#::generate-ssxi| - (let ((__obj199415 + (let ((__obj200547 (let () (declare (not safe)) (##structure @@ -58,63 +58,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj199415 + __obj200547 'gxc#::generate-ssxi::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199415 '::generate-ssxi '2 '#f '#f)) + (##unchecked-structure-set! __obj200547 '::generate-ssxi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199415 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj200547 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199415 '() '6 '#f '#f)) - (let ((__tmp199445 (cons |gxc[1]#_g199446_| '()))) + (##unchecked-structure-set! __obj200547 '() '6 '#f '#f)) + (let ((__tmp200577 (cons |gxc[1]#_g200578_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj199415 __tmp199445 '3 '#f '#f)) + (##unchecked-structure-set! __obj200547 __tmp200577 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199415 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj200547 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199415 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj200547 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199415 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj200547 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199415 '#f '11 '#f '#f)) - (let ((__tmp199447 |gxc[1]#_g199448_|)) + (##unchecked-structure-set! __obj200547 '#f '11 '#f '#f)) + (let ((__tmp200579 |gxc[1]#_g200580_|)) (declare (not safe)) - (##unchecked-structure-set! __obj199415 __tmp199447 '12 '#f '#f)) - (let ((__tmp199449 |gxc[1]#_g199450_|)) + (##unchecked-structure-set! __obj200547 __tmp200579 '12 '#f '#f)) + (let ((__tmp200581 |gxc[1]#_g200582_|)) (declare (not safe)) - (##unchecked-structure-set! __obj199415 __tmp199449 '13 '#f '#f)) - (let ((__tmp199451 |gxc[1]#_g199452_|)) + (##unchecked-structure-set! __obj200547 __tmp200581 '13 '#f '#f)) + (let ((__tmp200583 |gxc[1]#_g200584_|)) (declare (not safe)) - (##unchecked-structure-set! __obj199415 __tmp199451 '14 '#f '#f)) + (##unchecked-structure-set! __obj200547 __tmp200583 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199415 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj200547 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199415 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj200547 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199415 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj200547 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199415 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj200547 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199415 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj200547 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199415 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj200547 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199415 '() '20 '#f '#f)) - __obj199415))) + (##unchecked-structure-set! __obj200547 '() '20 '#f '#f)) + __obj200547))) diff --git a/src/bootstrap/gerbil/compiler/ssxi~1.scm b/src/bootstrap/gerbil/compiler/ssxi~1.scm index 0d0e6f147..7b76de732 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]#_g207933_| + (define |gxc[1]#_g209065_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207940_| + (define |gxc[1]#_g209072_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207942_| + (define |gxc[1]#_g209074_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207944_| + (define |gxc[1]#_g209076_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207946_| + (define |gxc[1]#_g209078_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207948_| + (define |gxc[1]#_g209080_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207960_| + (define |gxc[1]#_g209092_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207962_| + (define |gxc[1]#_g209094_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207964_| + (define |gxc[1]#_g209096_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207966_| + (define |gxc[1]#_g209098_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207968_| + (define |gxc[1]#_g209100_| (##structure gx#syntax-quote::t 'quote @@ -79,73 +79,73 @@ '())) (begin (define |gxc[:0:]#declare-type| - (lambda (_%$stx201351%_) - (let* ((_%g201355201373%_ - (lambda (_%g201356201369%_) + (lambda (_%$stx202483%_) + (let* ((_%g202487202505%_ + (lambda (_%g202488202501%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g201356201369%_)))) - (_%g201354201428%_ - (lambda (_%g201356201377%_) + _%g202488202501%_)))) + (_%g202486202560%_ + (lambda (_%g202488202509%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g201356201377%_)) - (let ((_%e201359201380%_ + (gx#stx-pair? _%g202488202509%_)) + (let ((_%e202491202512%_ (let () (declare (not safe)) - (gx#syntax-e _%g201356201377%_)))) - (let ((_%hd201360201384%_ + (gx#syntax-e _%g202488202509%_)))) + (let ((_%hd202492202516%_ (let () (declare (not safe)) - (##car _%e201359201380%_))) - (_%tl201361201387%_ + (##car _%e202491202512%_))) + (_%tl202493202519%_ (let () (declare (not safe)) - (##cdr _%e201359201380%_)))) + (##cdr _%e202491202512%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201361201387%_)) - (let ((_%e201362201390%_ + (gx#stx-pair? _%tl202493202519%_)) + (let ((_%e202494202522%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201361201387%_)))) - (let ((_%hd201363201394%_ + (gx#syntax-e _%tl202493202519%_)))) + (let ((_%hd202495202526%_ (let () (declare (not safe)) - (##car _%e201362201390%_))) - (_%tl201364201397%_ + (##car _%e202494202522%_))) + (_%tl202496202529%_ (let () (declare (not safe)) - (##cdr _%e201362201390%_)))) + (##cdr _%e202494202522%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201364201397%_)) - (let ((_%e201365201400%_ + (gx#stx-pair? _%tl202496202529%_)) + (let ((_%e202497202532%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201364201397%_)))) - (let ((_%hd201366201404%_ + _%tl202496202529%_)))) + (let ((_%hd202498202536%_ (let () (declare (not safe)) - (##car _%e201365201400%_))) - (_%tl201367201407%_ + (##car _%e202497202532%_))) + (_%tl202499202539%_ (let () (declare (not safe)) - (##cdr _%e201365201400%_)))) + (##cdr _%e202497202532%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201367201407%_)) - ((lambda (_%L201410%_ - _%L201412%_) + _%tl202499202539%_)) + ((lambda (_%L202542%_ + _%L202544%_) (if (let () (declare (not safe)) (gx#identifier? - _%L201412%_)) + _%L202544%_)) (cons (let () (declare (not safe)) @@ -156,87 +156,87 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201412%_ '())) - (cons _%L201410%_ '()))) + (cons _%L202544%_ '())) + (cons _%L202542%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g201355201373%_ - _%g201356201377%_))) - _%hd201366201404%_ - _%hd201363201394%_) - (_%g201355201373%_ - _%g201356201377%_)))) - (_%g201355201373%_ _%g201356201377%_)))) - (_%g201355201373%_ _%g201356201377%_)))) - (_%g201355201373%_ _%g201356201377%_))))) - (_%g201354201428%_ _%$stx201351%_)))) + (_%g202487202505%_ + _%g202488202509%_))) + _%hd202498202536%_ + _%hd202495202526%_) + (_%g202487202505%_ + _%g202488202509%_)))) + (_%g202487202505%_ _%g202488202509%_)))) + (_%g202487202505%_ _%g202488202509%_)))) + (_%g202487202505%_ _%g202488202509%_))))) + (_%g202486202560%_ _%$stx202483%_)))) (define |gxc[:0:]#declare-class| - (lambda (_%$stx201432%_) - (let* ((_%g201436201454%_ - (lambda (_%g201437201450%_) + (lambda (_%$stx202564%_) + (let* ((_%g202568202586%_ + (lambda (_%g202569202582%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g201437201450%_)))) - (_%g201435201509%_ - (lambda (_%g201437201458%_) + _%g202569202582%_)))) + (_%g202567202641%_ + (lambda (_%g202569202590%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g201437201458%_)) - (let ((_%e201440201461%_ + (gx#stx-pair? _%g202569202590%_)) + (let ((_%e202572202593%_ (let () (declare (not safe)) - (gx#syntax-e _%g201437201458%_)))) - (let ((_%hd201441201465%_ + (gx#syntax-e _%g202569202590%_)))) + (let ((_%hd202573202597%_ (let () (declare (not safe)) - (##car _%e201440201461%_))) - (_%tl201442201468%_ + (##car _%e202572202593%_))) + (_%tl202574202600%_ (let () (declare (not safe)) - (##cdr _%e201440201461%_)))) + (##cdr _%e202572202593%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201442201468%_)) - (let ((_%e201443201471%_ + (gx#stx-pair? _%tl202574202600%_)) + (let ((_%e202575202603%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201442201468%_)))) - (let ((_%hd201444201475%_ + (gx#syntax-e _%tl202574202600%_)))) + (let ((_%hd202576202607%_ (let () (declare (not safe)) - (##car _%e201443201471%_))) - (_%tl201445201478%_ + (##car _%e202575202603%_))) + (_%tl202577202610%_ (let () (declare (not safe)) - (##cdr _%e201443201471%_)))) + (##cdr _%e202575202603%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201445201478%_)) - (let ((_%e201446201481%_ + (gx#stx-pair? _%tl202577202610%_)) + (let ((_%e202578202613%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201445201478%_)))) - (let ((_%hd201447201485%_ + _%tl202577202610%_)))) + (let ((_%hd202579202617%_ (let () (declare (not safe)) - (##car _%e201446201481%_))) - (_%tl201448201488%_ + (##car _%e202578202613%_))) + (_%tl202580202620%_ (let () (declare (not safe)) - (##cdr _%e201446201481%_)))) + (##cdr _%e202578202613%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201448201488%_)) - ((lambda (_%L201491%_ - _%L201493%_) + _%tl202580202620%_)) + ((lambda (_%L202623%_ + _%L202625%_) (if (let () (declare (not safe)) (gx#identifier? - _%L201493%_)) + _%L202625%_)) (cons (let () (declare (not safe)) @@ -247,146 +247,146 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201493%_ '())) - (cons _%L201491%_ '()))) + (cons _%L202625%_ '())) + (cons _%L202623%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g201436201454%_ - _%g201437201458%_))) - _%hd201447201485%_ - _%hd201444201475%_) - (_%g201436201454%_ - _%g201437201458%_)))) - (_%g201436201454%_ _%g201437201458%_)))) - (_%g201436201454%_ _%g201437201458%_)))) - (_%g201436201454%_ _%g201437201458%_))))) - (_%g201435201509%_ _%$stx201432%_)))) + (_%g202568202586%_ + _%g202569202590%_))) + _%hd202579202617%_ + _%hd202576202607%_) + (_%g202568202586%_ + _%g202569202590%_)))) + (_%g202568202586%_ _%g202569202590%_)))) + (_%g202568202586%_ _%g202569202590%_)))) + (_%g202568202586%_ _%g202569202590%_))))) + (_%g202567202641%_ _%$stx202564%_)))) (define |gxc[:0:]#declare-type*| - (lambda (_%$stx201513%_) - (let* ((_%g201517201546%_ - (lambda (_%g201518201542%_) + (lambda (_%$stx202645%_) + (let* ((_%g202649202678%_ + (lambda (_%g202650202674%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g201518201542%_)))) - (_%g201516201646%_ - (lambda (_%g201518201550%_) + _%g202650202674%_)))) + (_%g202648202778%_ + (lambda (_%g202650202682%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g201518201550%_)) - (let ((_%e201521201553%_ + (gx#stx-pair? _%g202650202682%_)) + (let ((_%e202653202685%_ (let () (declare (not safe)) - (gx#syntax-e _%g201518201550%_)))) - (let ((_%hd201522201557%_ + (gx#syntax-e _%g202650202682%_)))) + (let ((_%hd202654202689%_ (let () (declare (not safe)) - (##car _%e201521201553%_))) - (_%tl201523201560%_ + (##car _%e202653202685%_))) + (_%tl202655202692%_ (let () (declare (not safe)) - (##cdr _%e201521201553%_)))) + (##cdr _%e202653202685%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl201523201560%_)) - (let ((_g207911_ + (gx#stx-pair/null? _%tl202655202692%_)) + (let ((_g209043_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl201523201560%_ + _%tl202655202692%_ '0)))) (begin - (let ((_g207912_ + (let ((_g209044_ (let () (declare (not safe)) - (if (##values? _g207911_) - (##vector-length _g207911_) + (if (##values? _g209043_) + (##vector-length _g209043_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207912_ 2))) + (##fx= _g209044_ 2))) (error "Context expects 2 values" - _g207912_))) - (let ((_%target201524201563%_ + _g209044_))) + (let ((_%target202656202695%_ (let () (declare (not safe)) - (##vector-ref _g207911_ 0))) - (_%tl201526201566%_ + (##vector-ref _g209043_ 0))) + (_%tl202658202698%_ (let () (declare (not safe)) - (##vector-ref _g207911_ 1)))) + (##vector-ref _g209043_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201526201566%_)) - (letrec ((_%loop201527201569%_ - (lambda (_%hd201525201573%_ - _%type201531201576%_ - _%symbol201532201578%_) + (gx#stx-null? _%tl202658202698%_)) + (letrec ((_%loop202659202701%_ + (lambda (_%hd202657202705%_ + _%type202663202708%_ + _%symbol202664202710%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd201525201573%_)) - (let ((_%e201528201581%_ + _%hd202657202705%_)) + (let ((_%e202660202713%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd201525201573%_)))) - (let ((_%lp-hd201529201585%_ + (gx#syntax-e _%hd202657202705%_)))) + (let ((_%lp-hd202661202717%_ (let () (declare (not safe)) - (##car _%e201528201581%_))) - (_%lp-tl201530201588%_ + (##car _%e202660202713%_))) + (_%lp-tl202662202720%_ (let () (declare (not safe)) - (##cdr _%e201528201581%_)))) + (##cdr _%e202660202713%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd201529201585%_)) - (let ((_%e201535201591%_ + (gx#stx-pair? _%lp-hd202661202717%_)) + (let ((_%e202667202723%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd201529201585%_)))) - (let ((_%hd201536201595%_ + (gx#syntax-e _%lp-hd202661202717%_)))) + (let ((_%hd202668202727%_ (let () (declare (not safe)) - (##car _%e201535201591%_))) - (_%tl201537201598%_ + (##car _%e202667202723%_))) + (_%tl202669202730%_ (let () (declare (not safe)) - (##cdr _%e201535201591%_)))) + (##cdr _%e202667202723%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201537201598%_)) - (let ((_%e201538201601%_ + (gx#stx-pair? _%tl202669202730%_)) + (let ((_%e202670202733%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201537201598%_)))) - (let ((_%hd201539201605%_ + (gx#syntax-e _%tl202669202730%_)))) + (let ((_%hd202671202737%_ (let () (declare (not safe)) - (##car _%e201538201601%_))) - (_%tl201540201608%_ + (##car _%e202670202733%_))) + (_%tl202672202740%_ (let () (declare (not safe)) - (##cdr _%e201538201601%_)))) + (##cdr _%e202670202733%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201540201608%_)) - (_%loop201527201569%_ - _%lp-tl201530201588%_ - (cons _%hd201539201605%_ - _%type201531201576%_) - (cons _%hd201536201595%_ - _%symbol201532201578%_)) - (_%g201517201546%_ - _%g201518201550%_)))) - (_%g201517201546%_ _%g201518201550%_)))) - (_%g201517201546%_ _%g201518201550%_)))) - (let ((_%type201533201611%_ (reverse _%type201531201576%_)) - (_%symbol201534201614%_ - (reverse _%symbol201532201578%_))) - ((lambda (_%L201617%_ _%L201619%_) + (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%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -394,52 +394,52 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L201617%_ - _%L201619%_)) - (let ((__tmp207913 - (lambda (_%g201634201638%_ - _%g201635201641%_ - _%g201636201643%_) + _%L202749%_ + _%L202751%_)) + (let ((__tmp209045 + (lambda (_%g202766202770%_ + _%g202767202773%_ + _%g202768202775%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%g201635201641%_ - (cons _%g201634201638%_ + (cons _%g202767202773%_ + (cons _%g202766202770%_ '()))) - _%g201636201643%_)))) + _%g202768202775%_)))) (declare (not safe)) (__foldr2 - __tmp207913 + __tmp209045 '() - _%L201617%_ - _%L201619%_))))) - _%type201533201611%_ - _%symbol201534201614%_)))))) + _%L202749%_ + _%L202751%_))))) + _%type202665202743%_ + _%symbol202666202746%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop201527201569%_ - _%target201524201563%_ + (_%loop202659202701%_ + _%target202656202695%_ '() '())) - (_%g201517201546%_ - _%g201518201550%_))))) - (_%g201517201546%_ _%g201518201550%_)))) - (_%g201517201546%_ _%g201518201550%_))))) - (_%g201516201646%_ _%$stx201513%_)))) + (_%g202649202678%_ + _%g202650202682%_))))) + (_%g202649202678%_ _%g202650202682%_)))) + (_%g202649202678%_ _%g202650202682%_))))) + (_%g202648202778%_ _%$stx202645%_)))) (define |gxc[:0:]#declare-method| - (lambda (_%$stx201651%_) - (let* ((_%__stx207222207223%_ _%$stx201651%_) - (_%g201656201698%_ + (lambda (_%$stx202783%_) + (let* ((_%__stx208354208355%_ _%$stx202783%_) + (_%g202788202830%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx207222207223%_))))) - (let ((_%__kont207225207226%_ - (lambda (_%L201826%_ _%L201828%_ _%L201829%_ _%L201830%_) + _%__stx208354208355%_))))) + (let ((_%__kont208357208358%_ + (lambda (_%L202958%_ _%L202960%_ _%L202961%_ _%L202962%_) (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 _%L201830%_ '())) + (cons _%L202962%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201829%_ '())) + (cons _%L202961%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201828%_ '())) - (cons _%L201826%_ '()))))))) - (_%__kont207227207228%_ - (lambda (_%L201745%_ _%L201747%_ _%L201748%_ _%L201749%_) - (cons _%L201749%_ - (cons _%L201748%_ - (cons _%L201747%_ - (cons _%L201745%_ + (cons _%L202960%_ '())) + (cons _%L202958%_ '()))))))) + (_%__kont208359208360%_ + (lambda (_%L202877%_ _%L202879%_ _%L202880%_ _%L202881%_) + (cons _%L202881%_ + (cons _%L202880%_ + (cons _%L202879%_ + (cons _%L202877%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)) '())))))))) - (let ((_%__match207261207262%_ - (lambda (_%e201662201776%_ - _%hd201663201780%_ - _%tl201664201783%_ - _%e201665201786%_ - _%hd201666201790%_ - _%tl201667201793%_ - _%e201668201796%_ - _%hd201669201800%_ - _%tl201670201803%_ - _%e201671201806%_ - _%hd201672201810%_ - _%tl201673201813%_ - _%e201674201816%_ - _%hd201675201820%_ - _%tl201676201823%_) - (let ((_%L201826%_ _%hd201675201820%_) - (_%L201828%_ _%hd201672201810%_) - (_%L201829%_ _%hd201669201800%_) - (_%L201830%_ _%hd201666201790%_)) + (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%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L201830%_)) + (gx#identifier? _%L202962%_)) (let () (declare (not safe)) - (gx#identifier? _%L201829%_)) + (gx#identifier? _%L202961%_)) (let () (declare (not safe)) - (gx#identifier? _%L201828%_))) - (_%__kont207225207226%_ - _%L201826%_ - _%L201828%_ - _%L201829%_ - _%L201830%_) + (gx#identifier? _%L202960%_))) + (_%__kont208357208358%_ + _%L202958%_ + _%L202960%_ + _%L202961%_ + _%L202962%_) (let () (declare (not safe)) - (_%g201656201698%_))))))) + (_%g202788202830%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx207222207223%_)) - (let ((_%e201662201776%_ + (gx#stx-pair? _%__stx208354208355%_)) + (let ((_%e202794202908%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx207222207223%_)))) - (let ((_%tl201664201783%_ + (gx#syntax-e _%__stx208354208355%_)))) + (let ((_%tl202796202915%_ (let () (declare (not safe)) - (##cdr _%e201662201776%_))) - (_%hd201663201780%_ + (##cdr _%e202794202908%_))) + (_%hd202795202912%_ (let () (declare (not safe)) - (##car _%e201662201776%_)))) + (##car _%e202794202908%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201664201783%_)) - (let ((_%e201665201786%_ + (gx#stx-pair? _%tl202796202915%_)) + (let ((_%e202797202918%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201664201783%_)))) - (let ((_%tl201667201793%_ + (gx#syntax-e _%tl202796202915%_)))) + (let ((_%tl202799202925%_ (let () (declare (not safe)) - (##cdr _%e201665201786%_))) - (_%hd201666201790%_ + (##cdr _%e202797202918%_))) + (_%hd202798202922%_ (let () (declare (not safe)) - (##car _%e201665201786%_)))) + (##car _%e202797202918%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201667201793%_)) - (let ((_%e201668201796%_ + (gx#stx-pair? _%tl202799202925%_)) + (let ((_%e202800202928%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201667201793%_)))) - (let ((_%tl201670201803%_ + (gx#syntax-e _%tl202799202925%_)))) + (let ((_%tl202802202935%_ (let () (declare (not safe)) - (##cdr _%e201668201796%_))) - (_%hd201669201800%_ + (##cdr _%e202800202928%_))) + (_%hd202801202932%_ (let () (declare (not safe)) - (##car _%e201668201796%_)))) + (##car _%e202800202928%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201670201803%_)) - (let ((_%e201671201806%_ + (gx#stx-pair? _%tl202802202935%_)) + (let ((_%e202803202938%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201670201803%_)))) - (let ((_%tl201673201813%_ + _%tl202802202935%_)))) + (let ((_%tl202805202945%_ (let () (declare (not safe)) - (##cdr _%e201671201806%_))) - (_%hd201672201810%_ + (##cdr _%e202803202938%_))) + (_%hd202804202942%_ (let () (declare (not safe)) - (##car _%e201671201806%_)))) + (##car _%e202803202938%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201673201813%_)) - (let ((_%e201674201816%_ + _%tl202805202945%_)) + (let ((_%e202806202948%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201673201813%_)))) - (let ((_%tl201676201823%_ + _%tl202805202945%_)))) + (let ((_%tl202808202955%_ (let () (declare (not safe)) - (##cdr _%e201674201816%_))) - (_%hd201675201820%_ + (##cdr _%e202806202948%_))) + (_%hd202807202952%_ (let () (declare (not safe)) - (##car _%e201674201816%_)))) + (##car _%e202806202948%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201676201823%_)) - (_%__match207261207262%_ - _%e201662201776%_ - _%hd201663201780%_ - _%tl201664201783%_ - _%e201665201786%_ - _%hd201666201790%_ - _%tl201667201793%_ - _%e201668201796%_ - _%hd201669201800%_ - _%tl201670201803%_ - _%e201671201806%_ - _%hd201672201810%_ - _%tl201673201813%_ - _%e201674201816%_ - _%hd201675201820%_ - _%tl201676201823%_) + _%tl202808202955%_)) + (_%__match208393208394%_ + _%e202794202908%_ + _%hd202795202912%_ + _%tl202796202915%_ + _%e202797202918%_ + _%hd202798202922%_ + _%tl202799202925%_ + _%e202800202928%_ + _%hd202801202932%_ + _%tl202802202935%_ + _%e202803202938%_ + _%hd202804202942%_ + _%tl202805202945%_ + _%e202806202948%_ + _%hd202807202952%_ + _%tl202808202955%_) (let () (declare (not safe)) - (_%g201656201698%_))))) + (_%g202788202830%_))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201673201813%_)) - (_%__kont207227207228%_ - _%hd201672201810%_ - _%hd201669201800%_ - _%hd201666201790%_ - _%hd201663201780%_) + _%tl202805202945%_)) + (_%__kont208359208360%_ + _%hd202804202942%_ + _%hd202801202932%_ + _%hd202798202922%_ + _%hd202795202912%_) (let () (declare (not safe)) - (_%g201656201698%_)))))) + (_%g202788202830%_)))))) (let () (declare (not safe)) - (_%g201656201698%_))))) + (_%g202788202830%_))))) (let () (declare (not safe)) - (_%g201656201698%_))))) - (let () (declare (not safe)) (_%g201656201698%_))))) - (let () (declare (not safe)) (_%g201656201698%_)))))))) + (_%g202788202830%_))))) + (let () (declare (not safe)) (_%g202788202830%_))))) + (let () (declare (not safe)) (_%g202788202830%_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_%$stx201855%_) - (let* ((_%g201859201894%_ - (lambda (_%g201860201890%_) + (lambda (_%$stx202987%_) + (let* ((_%g202991203026%_ + (lambda (_%g202992203022%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g201860201890%_)))) - (_%g201858202013%_ - (lambda (_%g201860201898%_) + _%g202992203022%_)))) + (_%g202990203145%_ + (lambda (_%g202992203030%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g201860201898%_)) - (let ((_%e201864201901%_ + (gx#stx-pair? _%g202992203030%_)) + (let ((_%e202996203033%_ (let () (declare (not safe)) - (gx#syntax-e _%g201860201898%_)))) - (let ((_%hd201865201905%_ + (gx#syntax-e _%g202992203030%_)))) + (let ((_%hd202997203037%_ (let () (declare (not safe)) - (##car _%e201864201901%_))) - (_%tl201866201908%_ + (##car _%e202996203033%_))) + (_%tl202998203040%_ (let () (declare (not safe)) - (##cdr _%e201864201901%_)))) + (##cdr _%e202996203033%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl201866201908%_)) - (let ((_g207914_ + (gx#stx-pair/null? _%tl202998203040%_)) + (let ((_g209046_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl201866201908%_ + _%tl202998203040%_ '0)))) (begin - (let ((_g207915_ + (let ((_g209047_ (let () (declare (not safe)) - (if (##values? _g207914_) - (##vector-length _g207914_) + (if (##values? _g209046_) + (##vector-length _g209046_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207915_ 2))) + (##fx= _g209047_ 2))) (error "Context expects 2 values" - _g207915_))) - (let ((_%target201867201911%_ + _g209047_))) + (let ((_%target202999203043%_ (let () (declare (not safe)) - (##vector-ref _g207914_ 0))) - (_%tl201869201914%_ + (##vector-ref _g209046_ 0))) + (_%tl203001203046%_ (let () (declare (not safe)) - (##vector-ref _g207914_ 1)))) + (##vector-ref _g209046_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201869201914%_)) - (letrec ((_%loop201870201917%_ - (lambda (_%hd201868201921%_ - _%symbol201874201924%_ - _%method201875201926%_ - _%type-t201876201928%_) + (gx#stx-null? _%tl203001203046%_)) + (letrec ((_%loop203002203049%_ + (lambda (_%hd203000203053%_ + _%symbol203006203056%_ + _%method203007203058%_ + _%type-t203008203060%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd201868201921%_)) - (let ((_%e201871201931%_ + _%hd203000203053%_)) + (let ((_%e203003203063%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd201868201921%_)))) - (let ((_%lp-hd201872201935%_ + (gx#syntax-e _%hd203000203053%_)))) + (let ((_%lp-hd203004203067%_ (let () (declare (not safe)) - (##car _%e201871201931%_))) - (_%lp-tl201873201938%_ + (##car _%e203003203063%_))) + (_%lp-tl203005203070%_ (let () (declare (not safe)) - (##cdr _%e201871201931%_)))) + (##cdr _%e203003203063%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd201872201935%_)) - (let ((_%e201880201941%_ + (gx#stx-pair? _%lp-hd203004203067%_)) + (let ((_%e203012203073%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd201872201935%_)))) - (let ((_%hd201881201945%_ + (gx#syntax-e _%lp-hd203004203067%_)))) + (let ((_%hd203013203077%_ (let () (declare (not safe)) - (##car _%e201880201941%_))) - (_%tl201882201948%_ + (##car _%e203012203073%_))) + (_%tl203014203080%_ (let () (declare (not safe)) - (##cdr _%e201880201941%_)))) + (##cdr _%e203012203073%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201882201948%_)) - (let ((_%e201883201951%_ + (gx#stx-pair? _%tl203014203080%_)) + (let ((_%e203015203083%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201882201948%_)))) - (let ((_%hd201884201955%_ + (gx#syntax-e _%tl203014203080%_)))) + (let ((_%hd203016203087%_ (let () (declare (not safe)) - (##car _%e201883201951%_))) - (_%tl201885201958%_ + (##car _%e203015203083%_))) + (_%tl203017203090%_ (let () (declare (not safe)) - (##cdr _%e201883201951%_)))) + (##cdr _%e203015203083%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201885201958%_)) - (let ((_%e201886201961%_ + (gx#stx-pair? _%tl203017203090%_)) + (let ((_%e203018203093%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201885201958%_)))) - (let ((_%hd201887201965%_ + _%tl203017203090%_)))) + (let ((_%hd203019203097%_ (let () (declare (not safe)) - (##car _%e201886201961%_))) - (_%tl201888201968%_ + (##car _%e203018203093%_))) + (_%tl203020203100%_ (let () (declare (not safe)) - (##cdr _%e201886201961%_)))) + (##cdr _%e203018203093%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201888201968%_)) - (_%loop201870201917%_ - _%lp-tl201873201938%_ - (cons _%hd201887201965%_ - _%symbol201874201924%_) - (cons _%hd201884201955%_ - _%method201875201926%_) - (cons _%hd201881201945%_ - _%type-t201876201928%_)) - (_%g201859201894%_ - _%g201860201898%_)))) - (_%g201859201894%_ - _%g201860201898%_)))) - (_%g201859201894%_ _%g201860201898%_)))) - (_%g201859201894%_ _%g201860201898%_)))) - (let ((_%symbol201877201971%_ (reverse _%symbol201874201924%_)) - (_%method201878201974%_ (reverse _%method201875201926%_)) - (_%type-t201879201976%_ - (reverse _%type-t201876201928%_))) - ((lambda (_%L201979%_ _%L201981%_ _%L201982%_) + _%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%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -791,196 +791,196 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L201979%_ - _%L201981%_ - _%L201982%_)) - (let ((__tmp207916 - (lambda (_%g201998202003%_ - _%g201999202006%_ - _%g202000202008%_ - _%g202001202010%_) + _%L203111%_ + _%L203113%_ + _%L203114%_)) + (let ((__tmp209048 + (lambda (_%g203130203135%_ + _%g203131203138%_ + _%g203132203140%_ + _%g203133203142%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%g202000202008%_ - (cons _%g201999202006%_ - (cons _%g201998202003%_ + (cons _%g203132203140%_ + (cons _%g203131203138%_ + (cons _%g203130203135%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g202001202010%_)))) + _%g203133203142%_)))) (declare (not safe)) (__foldr* - __tmp207916 + __tmp209048 '() - _%L201979%_ - _%L201981%_ - _%L201982%_))))) - _%symbol201877201971%_ - _%method201878201974%_ - _%type-t201879201976%_)))))) + _%L203111%_ + _%L203113%_ + _%L203114%_))))) + _%symbol203009203103%_ + _%method203010203106%_ + _%type-t203011203108%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop201870201917%_ - _%target201867201911%_ + (_%loop203002203049%_ + _%target202999203043%_ '() '() '())) - (_%g201859201894%_ - _%g201860201898%_))))) - (_%g201859201894%_ _%g201860201898%_)))) - (_%g201859201894%_ _%g201860201898%_))))) - (_%g201858202013%_ _%$stx201855%_)))) + (_%g202991203026%_ + _%g202992203030%_))))) + (_%g202991203026%_ _%g202992203030%_)))) + (_%g202991203026%_ _%g202992203030%_))))) + (_%g202990203145%_ _%$stx202987%_)))) (define |gxc[:0:]#declare-methods| - (lambda (_%$stx202018%_) - (let* ((_%g202022202055%_ - (lambda (_%g202023202051%_) + (lambda (_%$stx203150%_) + (let* ((_%g203154203187%_ + (lambda (_%g203155203183%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202023202051%_)))) - (_%g202021202169%_ - (lambda (_%g202023202059%_) + _%g203155203183%_)))) + (_%g203153203301%_ + (lambda (_%g203155203191%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202023202059%_)) - (let ((_%e202027202062%_ + (gx#stx-pair? _%g203155203191%_)) + (let ((_%e203159203194%_ (let () (declare (not safe)) - (gx#syntax-e _%g202023202059%_)))) - (let ((_%hd202028202066%_ + (gx#syntax-e _%g203155203191%_)))) + (let ((_%hd203160203198%_ (let () (declare (not safe)) - (##car _%e202027202062%_))) - (_%tl202029202069%_ + (##car _%e203159203194%_))) + (_%tl203161203201%_ (let () (declare (not safe)) - (##cdr _%e202027202062%_)))) + (##cdr _%e203159203194%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202029202069%_)) - (let ((_%e202030202072%_ + (gx#stx-pair? _%tl203161203201%_)) + (let ((_%e203162203204%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202029202069%_)))) - (let ((_%hd202031202076%_ + (gx#syntax-e _%tl203161203201%_)))) + (let ((_%hd203163203208%_ (let () (declare (not safe)) - (##car _%e202030202072%_))) - (_%tl202032202079%_ + (##car _%e203162203204%_))) + (_%tl203164203211%_ (let () (declare (not safe)) - (##cdr _%e202030202072%_)))) + (##cdr _%e203162203204%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl202032202079%_)) - (let ((_g207917_ + (gx#stx-pair/null? _%tl203164203211%_)) + (let ((_g209049_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl202032202079%_ + _%tl203164203211%_ '0)))) (begin - (let ((_g207918_ + (let ((_g209050_ (let () (declare (not safe)) - (if (##values? _g207917_) + (if (##values? _g209049_) (##vector-length - _g207917_) + _g209049_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207918_ 2))) + (##fx= _g209050_ 2))) (error "Context expects 2 values" - _g207918_))) - (let ((_%target202033202082%_ + _g209050_))) + (let ((_%target203165203214%_ (let () (declare (not safe)) - (##vector-ref _g207917_ 0))) - (_%tl202035202085%_ + (##vector-ref _g209049_ 0))) + (_%tl203167203217%_ (let () (declare (not safe)) (##vector-ref - _g207917_ + _g209049_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202035202085%_)) - (letrec ((_%loop202036202088%_ - (lambda (_%hd202034202092%_ + _%tl203167203217%_)) + (letrec ((_%loop203168203220%_ + (lambda (_%hd203166203224%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%symbol202040202095%_ - _%method202041202097%_) + _%symbol203172203227%_ + _%method203173203229%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd202034202092%_)) - (let ((_%e202037202100%_ + (gx#stx-pair? _%hd203166203224%_)) + (let ((_%e203169203232%_ (let () (declare (not safe)) - (gx#syntax-e _%hd202034202092%_)))) - (let ((_%lp-hd202038202104%_ + (gx#syntax-e _%hd203166203224%_)))) + (let ((_%lp-hd203170203236%_ (let () (declare (not safe)) - (##car _%e202037202100%_))) - (_%lp-tl202039202107%_ + (##car _%e203169203232%_))) + (_%lp-tl203171203239%_ (let () (declare (not safe)) - (##cdr _%e202037202100%_)))) + (##cdr _%e203169203232%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd202038202104%_)) - (let ((_%e202044202110%_ + (gx#stx-pair? _%lp-hd203170203236%_)) + (let ((_%e203176203242%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd202038202104%_)))) - (let ((_%hd202045202114%_ + (gx#syntax-e _%lp-hd203170203236%_)))) + (let ((_%hd203177203246%_ (let () (declare (not safe)) - (##car _%e202044202110%_))) - (_%tl202046202117%_ + (##car _%e203176203242%_))) + (_%tl203178203249%_ (let () (declare (not safe)) - (##cdr _%e202044202110%_)))) + (##cdr _%e203176203242%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202046202117%_)) - (let ((_%e202047202120%_ + (gx#stx-pair? _%tl203178203249%_)) + (let ((_%e203179203252%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202046202117%_)))) - (let ((_%hd202048202124%_ + _%tl203178203249%_)))) + (let ((_%hd203180203256%_ (let () (declare (not safe)) - (##car _%e202047202120%_))) - (_%tl202049202127%_ + (##car _%e203179203252%_))) + (_%tl203181203259%_ (let () (declare (not safe)) - (##cdr _%e202047202120%_)))) + (##cdr _%e203179203252%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202049202127%_)) - (_%loop202036202088%_ - _%lp-tl202039202107%_ - (cons _%hd202048202124%_ - _%symbol202040202095%_) - (cons _%hd202045202114%_ - _%method202041202097%_)) - (_%g202022202055%_ - _%g202023202059%_)))) - (_%g202022202055%_ - _%g202023202059%_)))) - (_%g202022202055%_ _%g202023202059%_)))) - (let ((_%symbol202042202130%_ - (reverse _%symbol202040202095%_)) - (_%method202043202133%_ - (reverse _%method202041202097%_))) - ((lambda (_%L202136%_ _%L202138%_ _%L202139%_) + _%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%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -988,90 +988,90 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L202136%_ - _%L202138%_)) - (let ((__tmp207919 - (lambda (_%g202157202161%_ - _%g202158202164%_ - _%g202159202166%_) + _%L203268%_ + _%L203270%_)) + (let ((__tmp209051 + (lambda (_%g203289203293%_ + _%g203290203296%_ + _%g203291203298%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%L202139%_ - (cons _%g202158202164%_ + (cons _%L203271%_ + (cons _%g203290203296%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g202157202161%_ '())))) + (cons _%g203289203293%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g202159202166%_)))) + _%g203291203298%_)))) (declare (not safe)) (__foldr2 - __tmp207919 + __tmp209051 '() - _%L202136%_ - _%L202138%_))))) - _%symbol202042202130%_ - _%method202043202133%_ - _%hd202031202076%_)))))) + _%L203268%_ + _%L203270%_))))) + _%symbol203174203262%_ + _%method203175203265%_ + _%hd203163203208%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop202036202088%_ - _%target202033202082%_ + (_%loop203168203220%_ + _%target203165203214%_ '() '())) - (_%g202022202055%_ - _%g202023202059%_))))) - (_%g202022202055%_ _%g202023202059%_)))) - (_%g202022202055%_ _%g202023202059%_)))) - (_%g202022202055%_ _%g202023202059%_))))) - (_%g202021202169%_ _%$stx202018%_)))) + (_%g203154203187%_ + _%g203155203191%_))))) + (_%g203154203187%_ _%g203155203191%_)))) + (_%g203154203187%_ _%g203155203191%_)))) + (_%g203154203187%_ _%g203155203191%_))))) + (_%g203153203301%_ _%$stx203150%_)))) (define |gxc[:0:]#@alias| - (lambda (_%$stx202174%_) - (let* ((_%g202178202192%_ - (lambda (_%g202179202188%_) + (lambda (_%$stx203306%_) + (let* ((_%g203310203324%_ + (lambda (_%g203311203320%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202179202188%_)))) - (_%g202177202233%_ - (lambda (_%g202179202196%_) + _%g203311203320%_)))) + (_%g203309203365%_ + (lambda (_%g203311203328%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202179202196%_)) - (let ((_%e202181202199%_ + (gx#stx-pair? _%g203311203328%_)) + (let ((_%e203313203331%_ (let () (declare (not safe)) - (gx#syntax-e _%g202179202196%_)))) - (let ((_%hd202182202203%_ + (gx#syntax-e _%g203311203328%_)))) + (let ((_%hd203314203335%_ (let () (declare (not safe)) - (##car _%e202181202199%_))) - (_%tl202183202206%_ + (##car _%e203313203331%_))) + (_%tl203315203338%_ (let () (declare (not safe)) - (##cdr _%e202181202199%_)))) + (##cdr _%e203313203331%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202183202206%_)) - (let ((_%e202184202209%_ + (gx#stx-pair? _%tl203315203338%_)) + (let ((_%e203316203341%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202183202206%_)))) - (let ((_%hd202185202213%_ + (gx#syntax-e _%tl203315203338%_)))) + (let ((_%hd203317203345%_ (let () (declare (not safe)) - (##car _%e202184202209%_))) - (_%tl202186202216%_ + (##car _%e203316203341%_))) + (_%tl203318203348%_ (let () (declare (not safe)) - (##cdr _%e202184202209%_)))) + (##cdr _%e203316203341%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202186202216%_)) - ((lambda (_%L202219%_) + (gx#stx-null? _%tl203318203348%_)) + ((lambda (_%L203351%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1083,230 +1083,230 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202219%_ + (cons _%L203351%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd202185202213%_) - (_%g202178202192%_ _%g202179202196%_)))) - (_%g202178202192%_ _%g202179202196%_)))) - (_%g202178202192%_ _%g202179202196%_))))) - (_%g202177202233%_ _%$stx202174%_)))) + _%hd203317203345%_) + (_%g203310203324%_ _%g203311203328%_)))) + (_%g203310203324%_ _%g203311203328%_)))) + (_%g203310203324%_ _%g203311203328%_))))) + (_%g203309203365%_ _%$stx203306%_)))) (define |gxc[:0:]#@class| - (lambda (_%$stx202237%_) - (let* ((_%g202241202295%_ - (lambda (_%g202242202291%_) + (lambda (_%$stx203369%_) + (let* ((_%g203373203427%_ + (lambda (_%g203374203423%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202242202291%_)))) - (_%g202240202476%_ - (lambda (_%g202242202299%_) + _%g203374203423%_)))) + (_%g203372203608%_ + (lambda (_%g203374203431%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202242202299%_)) - (let ((_%e202254202302%_ + (gx#stx-pair? _%g203374203431%_)) + (let ((_%e203386203434%_ (let () (declare (not safe)) - (gx#syntax-e _%g202242202299%_)))) - (let ((_%hd202255202306%_ + (gx#syntax-e _%g203374203431%_)))) + (let ((_%hd203387203438%_ (let () (declare (not safe)) - (##car _%e202254202302%_))) - (_%tl202256202309%_ + (##car _%e203386203434%_))) + (_%tl203388203441%_ (let () (declare (not safe)) - (##cdr _%e202254202302%_)))) + (##cdr _%e203386203434%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202256202309%_)) - (let ((_%e202257202312%_ + (gx#stx-pair? _%tl203388203441%_)) + (let ((_%e203389203444%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202256202309%_)))) - (let ((_%hd202258202316%_ + (gx#syntax-e _%tl203388203441%_)))) + (let ((_%hd203390203448%_ (let () (declare (not safe)) - (##car _%e202257202312%_))) - (_%tl202259202319%_ + (##car _%e203389203444%_))) + (_%tl203391203451%_ (let () (declare (not safe)) - (##cdr _%e202257202312%_)))) + (##cdr _%e203389203444%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202259202319%_)) - (let ((_%e202260202322%_ + (gx#stx-pair? _%tl203391203451%_)) + (let ((_%e203392203454%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202259202319%_)))) - (let ((_%hd202261202326%_ + _%tl203391203451%_)))) + (let ((_%hd203393203458%_ (let () (declare (not safe)) - (##car _%e202260202322%_))) - (_%tl202262202329%_ + (##car _%e203392203454%_))) + (_%tl203394203461%_ (let () (declare (not safe)) - (##cdr _%e202260202322%_)))) + (##cdr _%e203392203454%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202262202329%_)) - (let ((_%e202263202332%_ + _%tl203394203461%_)) + (let ((_%e203395203464%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202262202329%_)))) - (let ((_%hd202264202336%_ + _%tl203394203461%_)))) + (let ((_%hd203396203468%_ (let () (declare (not safe)) - (##car _%e202263202332%_))) - (_%tl202265202339%_ + (##car _%e203395203464%_))) + (_%tl203397203471%_ (let () (declare (not safe)) - (##cdr _%e202263202332%_)))) + (##cdr _%e203395203464%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202265202339%_)) - (let ((_%e202266202342%_ + _%tl203397203471%_)) + (let ((_%e203398203474%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl202265202339%_)))) - (let ((_%hd202267202346%_ - (let () (declare (not safe)) (##car _%e202266202342%_))) - (_%tl202268202349%_ + (gx#syntax-e _%tl203397203471%_)))) + (let ((_%hd203399203478%_ + (let () (declare (not safe)) (##car _%e203398203474%_))) + (_%tl203400203481%_ (let () (declare (not safe)) - (##cdr _%e202266202342%_)))) + (##cdr _%e203398203474%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202268202349%_)) - (let ((_%e202269202352%_ + (gx#stx-pair? _%tl203400203481%_)) + (let ((_%e203401203484%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202268202349%_)))) - (let ((_%hd202270202356%_ + (gx#syntax-e _%tl203400203481%_)))) + (let ((_%hd203402203488%_ (let () (declare (not safe)) - (##car _%e202269202352%_))) - (_%tl202271202359%_ + (##car _%e203401203484%_))) + (_%tl203403203491%_ (let () (declare (not safe)) - (##cdr _%e202269202352%_)))) + (##cdr _%e203401203484%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202271202359%_)) - (let ((_%e202272202362%_ + (gx#stx-pair? _%tl203403203491%_)) + (let ((_%e203404203494%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202271202359%_)))) - (let ((_%hd202273202366%_ + (gx#syntax-e _%tl203403203491%_)))) + (let ((_%hd203405203498%_ (let () (declare (not safe)) - (##car _%e202272202362%_))) - (_%tl202274202369%_ + (##car _%e203404203494%_))) + (_%tl203406203501%_ (let () (declare (not safe)) - (##cdr _%e202272202362%_)))) + (##cdr _%e203404203494%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202274202369%_)) - (let ((_%e202275202372%_ + (gx#stx-pair? _%tl203406203501%_)) + (let ((_%e203407203504%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202274202369%_)))) - (let ((_%hd202276202376%_ + _%tl203406203501%_)))) + (let ((_%hd203408203508%_ (let () (declare (not safe)) - (##car _%e202275202372%_))) - (_%tl202277202379%_ + (##car _%e203407203504%_))) + (_%tl203409203511%_ (let () (declare (not safe)) - (##cdr _%e202275202372%_)))) + (##cdr _%e203407203504%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202277202379%_)) - (let ((_%e202278202382%_ + _%tl203409203511%_)) + (let ((_%e203410203514%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202277202379%_)))) - (let ((_%hd202279202386%_ + _%tl203409203511%_)))) + (let ((_%hd203411203518%_ (let () (declare (not safe)) - (##car _%e202278202382%_))) - (_%tl202280202389%_ + (##car _%e203410203514%_))) + (_%tl203412203521%_ (let () (declare (not safe)) - (##cdr _%e202278202382%_)))) + (##cdr _%e203410203514%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202280202389%_)) - (let ((_%e202281202392%_ + _%tl203412203521%_)) + (let ((_%e203413203524%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl202280202389%_)))) - (let ((_%hd202282202396%_ - (let () (declare (not safe)) (##car _%e202281202392%_))) - (_%tl202283202399%_ + (gx#syntax-e _%tl203412203521%_)))) + (let ((_%hd203414203528%_ + (let () (declare (not safe)) (##car _%e203413203524%_))) + (_%tl203415203531%_ (let () (declare (not safe)) - (##cdr _%e202281202392%_)))) + (##cdr _%e203413203524%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202283202399%_)) - (let ((_%e202284202402%_ + (gx#stx-pair? _%tl203415203531%_)) + (let ((_%e203416203534%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202283202399%_)))) - (let ((_%hd202285202406%_ + (gx#syntax-e _%tl203415203531%_)))) + (let ((_%hd203417203538%_ (let () (declare (not safe)) - (##car _%e202284202402%_))) - (_%tl202286202409%_ + (##car _%e203416203534%_))) + (_%tl203418203541%_ (let () (declare (not safe)) - (##cdr _%e202284202402%_)))) + (##cdr _%e203416203534%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202286202409%_)) - (let ((_%e202287202412%_ + (gx#stx-pair? _%tl203418203541%_)) + (let ((_%e203419203544%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202286202409%_)))) - (let ((_%hd202288202416%_ + (gx#syntax-e _%tl203418203541%_)))) + (let ((_%hd203420203548%_ (let () (declare (not safe)) - (##car _%e202287202412%_))) - (_%tl202289202419%_ + (##car _%e203419203544%_))) + (_%tl203421203551%_ (let () (declare (not safe)) - (##cdr _%e202287202412%_)))) + (##cdr _%e203419203544%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202289202419%_)) - ((lambda (_%L202422%_ - _%L202424%_ - _%L202425%_ - _%L202426%_ - _%L202427%_ - _%L202428%_ - _%L202429%_ - _%L202430%_ - _%L202431%_ - _%L202432%_ - _%L202433%_) + (gx#stx-null? _%tl203421203551%_)) + ((lambda (_%L203554%_ + _%L203556%_ + _%L203557%_ + _%L203558%_ + _%L203559%_ + _%L203560%_ + _%L203561%_ + _%L203562%_ + _%L203563%_ + _%L203564%_ + _%L203565%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1318,7 +1318,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202433%_ + (cons _%L203565%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1326,115 +1326,115 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202432%_ '())) + (cons _%L203564%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202431%_ '())) + (cons _%L203563%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202430%_ '())) + (cons _%L203562%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202429%_ '())) + (cons _%L203561%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202428%_ '())) - (cons _%L202427%_ - (cons _%L202426%_ - (cons _%L202425%_ + (cons _%L203560%_ '())) + (cons _%L203559%_ + (cons _%L203558%_ + (cons _%L203557%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202424%_ '())) + (cons _%L203556%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202422%_ '())) + (cons _%L203554%_ '())) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd202288202416%_ - _%hd202285202406%_ - _%hd202282202396%_ - _%hd202279202386%_ - _%hd202276202376%_ - _%hd202273202366%_ - _%hd202270202356%_ - _%hd202267202346%_ - _%hd202264202336%_ - _%hd202261202326%_ - _%hd202258202316%_) - (_%g202241202295%_ _%g202242202299%_)))) - (_%g202241202295%_ _%g202242202299%_)))) - (_%g202241202295%_ _%g202242202299%_)))) - (_%g202241202295%_ _%g202242202299%_)))) + _%hd203420203548%_ + _%hd203417203538%_ + _%hd203414203528%_ + _%hd203411203518%_ + _%hd203408203508%_ + _%hd203405203498%_ + _%hd203402203488%_ + _%hd203399203478%_ + _%hd203396203468%_ + _%hd203393203458%_ + _%hd203390203448%_) + (_%g203373203427%_ _%g203374203431%_)))) + (_%g203373203427%_ _%g203374203431%_)))) + (_%g203373203427%_ _%g203374203431%_)))) + (_%g203373203427%_ _%g203374203431%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202241202295%_ - _%g202242202299%_)))) - (_%g202241202295%_ _%g202242202299%_)))) - (_%g202241202295%_ _%g202242202299%_)))) - (_%g202241202295%_ _%g202242202299%_)))) - (_%g202241202295%_ _%g202242202299%_)))) + (_%g203373203427%_ + _%g203374203431%_)))) + (_%g203373203427%_ _%g203374203431%_)))) + (_%g203373203427%_ _%g203374203431%_)))) + (_%g203373203427%_ _%g203374203431%_)))) + (_%g203373203427%_ _%g203374203431%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202241202295%_ - _%g202242202299%_)))) - (_%g202241202295%_ _%g202242202299%_)))) - (_%g202241202295%_ _%g202242202299%_)))) - (_%g202241202295%_ _%g202242202299%_))))) - (_%g202240202476%_ _%$stx202237%_)))) + (_%g203373203427%_ + _%g203374203431%_)))) + (_%g203373203427%_ _%g203374203431%_)))) + (_%g203373203427%_ _%g203374203431%_)))) + (_%g203373203427%_ _%g203374203431%_))))) + (_%g203372203608%_ _%$stx203369%_)))) (define |gxc[:0:]#@predicate| - (lambda (_%$stx202480%_) - (let* ((_%g202484202498%_ - (lambda (_%g202485202494%_) + (lambda (_%$stx203612%_) + (let* ((_%g203616203630%_ + (lambda (_%g203617203626%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202485202494%_)))) - (_%g202483202539%_ - (lambda (_%g202485202502%_) + _%g203617203626%_)))) + (_%g203615203671%_ + (lambda (_%g203617203634%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202485202502%_)) - (let ((_%e202487202505%_ + (gx#stx-pair? _%g203617203634%_)) + (let ((_%e203619203637%_ (let () (declare (not safe)) - (gx#syntax-e _%g202485202502%_)))) - (let ((_%hd202488202509%_ + (gx#syntax-e _%g203617203634%_)))) + (let ((_%hd203620203641%_ (let () (declare (not safe)) - (##car _%e202487202505%_))) - (_%tl202489202512%_ + (##car _%e203619203637%_))) + (_%tl203621203644%_ (let () (declare (not safe)) - (##cdr _%e202487202505%_)))) + (##cdr _%e203619203637%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202489202512%_)) - (let ((_%e202490202515%_ + (gx#stx-pair? _%tl203621203644%_)) + (let ((_%e203622203647%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202489202512%_)))) - (let ((_%hd202491202519%_ + (gx#syntax-e _%tl203621203644%_)))) + (let ((_%hd203623203651%_ (let () (declare (not safe)) - (##car _%e202490202515%_))) - (_%tl202492202522%_ + (##car _%e203622203647%_))) + (_%tl203624203654%_ (let () (declare (not safe)) - (##cdr _%e202490202515%_)))) + (##cdr _%e203622203647%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202492202522%_)) - ((lambda (_%L202525%_) + (gx#stx-null? _%tl203624203654%_)) + ((lambda (_%L203657%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1446,62 +1446,62 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202525%_ + (cons _%L203657%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd202491202519%_) - (_%g202484202498%_ _%g202485202502%_)))) - (_%g202484202498%_ _%g202485202502%_)))) - (_%g202484202498%_ _%g202485202502%_))))) - (_%g202483202539%_ _%$stx202480%_)))) + _%hd203623203651%_) + (_%g203616203630%_ _%g203617203634%_)))) + (_%g203616203630%_ _%g203617203634%_)))) + (_%g203616203630%_ _%g203617203634%_))))) + (_%g203615203671%_ _%$stx203612%_)))) (define |gxc[:0:]#@constructor| - (lambda (_%$stx202543%_) - (let* ((_%g202547202561%_ - (lambda (_%g202548202557%_) + (lambda (_%$stx203675%_) + (let* ((_%g203679203693%_ + (lambda (_%g203680203689%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202548202557%_)))) - (_%g202546202602%_ - (lambda (_%g202548202565%_) + _%g203680203689%_)))) + (_%g203678203734%_ + (lambda (_%g203680203697%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202548202565%_)) - (let ((_%e202550202568%_ + (gx#stx-pair? _%g203680203697%_)) + (let ((_%e203682203700%_ (let () (declare (not safe)) - (gx#syntax-e _%g202548202565%_)))) - (let ((_%hd202551202572%_ + (gx#syntax-e _%g203680203697%_)))) + (let ((_%hd203683203704%_ (let () (declare (not safe)) - (##car _%e202550202568%_))) - (_%tl202552202575%_ + (##car _%e203682203700%_))) + (_%tl203684203707%_ (let () (declare (not safe)) - (##cdr _%e202550202568%_)))) + (##cdr _%e203682203700%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202552202575%_)) - (let ((_%e202553202578%_ + (gx#stx-pair? _%tl203684203707%_)) + (let ((_%e203685203710%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202552202575%_)))) - (let ((_%hd202554202582%_ + (gx#syntax-e _%tl203684203707%_)))) + (let ((_%hd203686203714%_ (let () (declare (not safe)) - (##car _%e202553202578%_))) - (_%tl202555202585%_ + (##car _%e203685203710%_))) + (_%tl203687203717%_ (let () (declare (not safe)) - (##cdr _%e202553202578%_)))) + (##cdr _%e203685203710%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202555202585%_)) - ((lambda (_%L202588%_) + (gx#stx-null? _%tl203687203717%_)) + ((lambda (_%L203720%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1513,98 +1513,98 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202588%_ + (cons _%L203720%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd202554202582%_) - (_%g202547202561%_ _%g202548202565%_)))) - (_%g202547202561%_ _%g202548202565%_)))) - (_%g202547202561%_ _%g202548202565%_))))) - (_%g202546202602%_ _%$stx202543%_)))) + _%hd203686203714%_) + (_%g203679203693%_ _%g203680203697%_)))) + (_%g203679203693%_ _%g203680203697%_)))) + (_%g203679203693%_ _%g203680203697%_))))) + (_%g203678203734%_ _%$stx203675%_)))) (define |gxc[:0:]#@accessor| - (lambda (_%$stx202606%_) - (let* ((_%g202610202632%_ - (lambda (_%g202611202628%_) + (lambda (_%$stx203738%_) + (let* ((_%g203742203764%_ + (lambda (_%g203743203760%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202611202628%_)))) - (_%g202609202701%_ - (lambda (_%g202611202636%_) + _%g203743203760%_)))) + (_%g203741203833%_ + (lambda (_%g203743203768%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202611202636%_)) - (let ((_%e202615202639%_ + (gx#stx-pair? _%g203743203768%_)) + (let ((_%e203747203771%_ (let () (declare (not safe)) - (gx#syntax-e _%g202611202636%_)))) - (let ((_%hd202616202643%_ + (gx#syntax-e _%g203743203768%_)))) + (let ((_%hd203748203775%_ (let () (declare (not safe)) - (##car _%e202615202639%_))) - (_%tl202617202646%_ + (##car _%e203747203771%_))) + (_%tl203749203778%_ (let () (declare (not safe)) - (##cdr _%e202615202639%_)))) + (##cdr _%e203747203771%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202617202646%_)) - (let ((_%e202618202649%_ + (gx#stx-pair? _%tl203749203778%_)) + (let ((_%e203750203781%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202617202646%_)))) - (let ((_%hd202619202653%_ + (gx#syntax-e _%tl203749203778%_)))) + (let ((_%hd203751203785%_ (let () (declare (not safe)) - (##car _%e202618202649%_))) - (_%tl202620202656%_ + (##car _%e203750203781%_))) + (_%tl203752203788%_ (let () (declare (not safe)) - (##cdr _%e202618202649%_)))) + (##cdr _%e203750203781%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202620202656%_)) - (let ((_%e202621202659%_ + (gx#stx-pair? _%tl203752203788%_)) + (let ((_%e203753203791%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202620202656%_)))) - (let ((_%hd202622202663%_ + _%tl203752203788%_)))) + (let ((_%hd203754203795%_ (let () (declare (not safe)) - (##car _%e202621202659%_))) - (_%tl202623202666%_ + (##car _%e203753203791%_))) + (_%tl203755203798%_ (let () (declare (not safe)) - (##cdr _%e202621202659%_)))) + (##cdr _%e203753203791%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202623202666%_)) - (let ((_%e202624202669%_ + _%tl203755203798%_)) + (let ((_%e203756203801%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202623202666%_)))) - (let ((_%hd202625202673%_ + _%tl203755203798%_)))) + (let ((_%hd203757203805%_ (let () (declare (not safe)) - (##car _%e202624202669%_))) - (_%tl202626202676%_ + (##car _%e203756203801%_))) + (_%tl203758203808%_ (let () (declare (not safe)) - (##cdr _%e202624202669%_)))) + (##cdr _%e203756203801%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202626202676%_)) - ((lambda (_%L202679%_ - _%L202681%_ - _%L202682%_) + _%tl203758203808%_)) + ((lambda (_%L203811%_ + _%L203813%_ + _%L203814%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1612,105 +1612,105 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202682%_ '())) + (cons _%L203814%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202681%_ '())) - (cons _%L202679%_ '()))))) - _%hd202625202673%_ - _%hd202622202663%_ - _%hd202619202653%_) - (_%g202610202632%_ _%g202611202636%_)))) + (cons _%L203813%_ '())) + (cons _%L203811%_ '()))))) + _%hd203757203805%_ + _%hd203754203795%_ + _%hd203751203785%_) + (_%g203742203764%_ _%g203743203768%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202610202632%_ - _%g202611202636%_)))) - (_%g202610202632%_ _%g202611202636%_)))) - (_%g202610202632%_ _%g202611202636%_)))) - (_%g202610202632%_ _%g202611202636%_))))) - (_%g202609202701%_ _%$stx202606%_)))) + (_%g203742203764%_ + _%g203743203768%_)))) + (_%g203742203764%_ _%g203743203768%_)))) + (_%g203742203764%_ _%g203743203768%_)))) + (_%g203742203764%_ _%g203743203768%_))))) + (_%g203741203833%_ _%$stx203738%_)))) (define |gxc[:0:]#@mutator| - (lambda (_%$stx202705%_) - (let* ((_%g202709202731%_ - (lambda (_%g202710202727%_) + (lambda (_%$stx203837%_) + (let* ((_%g203841203863%_ + (lambda (_%g203842203859%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202710202727%_)))) - (_%g202708202800%_ - (lambda (_%g202710202735%_) + _%g203842203859%_)))) + (_%g203840203932%_ + (lambda (_%g203842203867%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202710202735%_)) - (let ((_%e202714202738%_ + (gx#stx-pair? _%g203842203867%_)) + (let ((_%e203846203870%_ (let () (declare (not safe)) - (gx#syntax-e _%g202710202735%_)))) - (let ((_%hd202715202742%_ + (gx#syntax-e _%g203842203867%_)))) + (let ((_%hd203847203874%_ (let () (declare (not safe)) - (##car _%e202714202738%_))) - (_%tl202716202745%_ + (##car _%e203846203870%_))) + (_%tl203848203877%_ (let () (declare (not safe)) - (##cdr _%e202714202738%_)))) + (##cdr _%e203846203870%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202716202745%_)) - (let ((_%e202717202748%_ + (gx#stx-pair? _%tl203848203877%_)) + (let ((_%e203849203880%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202716202745%_)))) - (let ((_%hd202718202752%_ + (gx#syntax-e _%tl203848203877%_)))) + (let ((_%hd203850203884%_ (let () (declare (not safe)) - (##car _%e202717202748%_))) - (_%tl202719202755%_ + (##car _%e203849203880%_))) + (_%tl203851203887%_ (let () (declare (not safe)) - (##cdr _%e202717202748%_)))) + (##cdr _%e203849203880%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202719202755%_)) - (let ((_%e202720202758%_ + (gx#stx-pair? _%tl203851203887%_)) + (let ((_%e203852203890%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202719202755%_)))) - (let ((_%hd202721202762%_ + _%tl203851203887%_)))) + (let ((_%hd203853203894%_ (let () (declare (not safe)) - (##car _%e202720202758%_))) - (_%tl202722202765%_ + (##car _%e203852203890%_))) + (_%tl203854203897%_ (let () (declare (not safe)) - (##cdr _%e202720202758%_)))) + (##cdr _%e203852203890%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202722202765%_)) - (let ((_%e202723202768%_ + _%tl203854203897%_)) + (let ((_%e203855203900%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202722202765%_)))) - (let ((_%hd202724202772%_ + _%tl203854203897%_)))) + (let ((_%hd203856203904%_ (let () (declare (not safe)) - (##car _%e202723202768%_))) - (_%tl202725202775%_ + (##car _%e203855203900%_))) + (_%tl203857203907%_ (let () (declare (not safe)) - (##cdr _%e202723202768%_)))) + (##cdr _%e203855203900%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202725202775%_)) - ((lambda (_%L202778%_ - _%L202780%_ - _%L202781%_) + _%tl203857203907%_)) + ((lambda (_%L203910%_ + _%L203912%_ + _%L203913%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1718,69 +1718,69 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202781%_ '())) + (cons _%L203913%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202780%_ '())) - (cons _%L202778%_ '()))))) - _%hd202724202772%_ - _%hd202721202762%_ - _%hd202718202752%_) - (_%g202709202731%_ _%g202710202735%_)))) + (cons _%L203912%_ '())) + (cons _%L203910%_ '()))))) + _%hd203856203904%_ + _%hd203853203894%_ + _%hd203850203884%_) + (_%g203841203863%_ _%g203842203867%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202709202731%_ - _%g202710202735%_)))) - (_%g202709202731%_ _%g202710202735%_)))) - (_%g202709202731%_ _%g202710202735%_)))) - (_%g202709202731%_ _%g202710202735%_))))) - (_%g202708202800%_ _%$stx202705%_)))) + (_%g203841203863%_ + _%g203842203867%_)))) + (_%g203841203863%_ _%g203842203867%_)))) + (_%g203841203863%_ _%g203842203867%_)))) + (_%g203841203863%_ _%g203842203867%_))))) + (_%g203840203932%_ _%$stx203837%_)))) (define |gxc[:0:]#@primitive-predicate| - (lambda (_%$stx202804%_) - (let* ((_%g202808202822%_ - (lambda (_%g202809202818%_) + (lambda (_%$stx203936%_) + (let* ((_%g203940203954%_ + (lambda (_%g203941203950%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202809202818%_)))) - (_%g202807202863%_ - (lambda (_%g202809202826%_) + _%g203941203950%_)))) + (_%g203939203995%_ + (lambda (_%g203941203958%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202809202826%_)) - (let ((_%e202811202829%_ + (gx#stx-pair? _%g203941203958%_)) + (let ((_%e203943203961%_ (let () (declare (not safe)) - (gx#syntax-e _%g202809202826%_)))) - (let ((_%hd202812202833%_ + (gx#syntax-e _%g203941203958%_)))) + (let ((_%hd203944203965%_ (let () (declare (not safe)) - (##car _%e202811202829%_))) - (_%tl202813202836%_ + (##car _%e203943203961%_))) + (_%tl203945203968%_ (let () (declare (not safe)) - (##cdr _%e202811202829%_)))) + (##cdr _%e203943203961%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202813202836%_)) - (let ((_%e202814202839%_ + (gx#stx-pair? _%tl203945203968%_)) + (let ((_%e203946203971%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202813202836%_)))) - (let ((_%hd202815202843%_ + (gx#syntax-e _%tl203945203968%_)))) + (let ((_%hd203947203975%_ (let () (declare (not safe)) - (##car _%e202814202839%_))) - (_%tl202816202846%_ + (##car _%e203946203971%_))) + (_%tl203948203978%_ (let () (declare (not safe)) - (##cdr _%e202814202839%_)))) + (##cdr _%e203946203971%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202816202846%_)) - ((lambda (_%L202849%_) + (gx#stx-null? _%tl203948203978%_)) + ((lambda (_%L203981%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1792,80 +1792,80 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202849%_ + (cons _%L203981%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd202815202843%_) - (_%g202808202822%_ _%g202809202826%_)))) - (_%g202808202822%_ _%g202809202826%_)))) - (_%g202808202822%_ _%g202809202826%_))))) - (_%g202807202863%_ _%$stx202804%_)))) + _%hd203947203975%_) + (_%g203940203954%_ _%g203941203958%_)))) + (_%g203940203954%_ _%g203941203958%_)))) + (_%g203940203954%_ _%g203941203958%_))))) + (_%g203939203995%_ _%$stx203936%_)))) (define |gxc[:0:]#@interface| - (lambda (_%$stx202867%_) - (let* ((_%g202871202889%_ - (lambda (_%g202872202885%_) + (lambda (_%$stx203999%_) + (let* ((_%g204003204021%_ + (lambda (_%g204004204017%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202872202885%_)))) - (_%g202870202944%_ - (lambda (_%g202872202893%_) + _%g204004204017%_)))) + (_%g204002204076%_ + (lambda (_%g204004204025%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202872202893%_)) - (let ((_%e202875202896%_ + (gx#stx-pair? _%g204004204025%_)) + (let ((_%e204007204028%_ (let () (declare (not safe)) - (gx#syntax-e _%g202872202893%_)))) - (let ((_%hd202876202900%_ + (gx#syntax-e _%g204004204025%_)))) + (let ((_%hd204008204032%_ (let () (declare (not safe)) - (##car _%e202875202896%_))) - (_%tl202877202903%_ + (##car _%e204007204028%_))) + (_%tl204009204035%_ (let () (declare (not safe)) - (##cdr _%e202875202896%_)))) + (##cdr _%e204007204028%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202877202903%_)) - (let ((_%e202878202906%_ + (gx#stx-pair? _%tl204009204035%_)) + (let ((_%e204010204038%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202877202903%_)))) - (let ((_%hd202879202910%_ + (gx#syntax-e _%tl204009204035%_)))) + (let ((_%hd204011204042%_ (let () (declare (not safe)) - (##car _%e202878202906%_))) - (_%tl202880202913%_ + (##car _%e204010204038%_))) + (_%tl204012204045%_ (let () (declare (not safe)) - (##cdr _%e202878202906%_)))) + (##cdr _%e204010204038%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202880202913%_)) - (let ((_%e202881202916%_ + (gx#stx-pair? _%tl204012204045%_)) + (let ((_%e204013204048%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202880202913%_)))) - (let ((_%hd202882202920%_ + _%tl204012204045%_)))) + (let ((_%hd204014204052%_ (let () (declare (not safe)) - (##car _%e202881202916%_))) - (_%tl202883202923%_ + (##car _%e204013204048%_))) + (_%tl204015204055%_ (let () (declare (not safe)) - (##cdr _%e202881202916%_)))) + (##cdr _%e204013204048%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202883202923%_)) - ((lambda (_%L202926%_ - _%L202928%_) + _%tl204015204055%_)) + ((lambda (_%L204058%_ + _%L204060%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1875,59 +1875,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202928%_ '())) + (cons _%L204060%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202926%_ '())) + (cons _%L204058%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd202882202920%_ - _%hd202879202910%_) - (_%g202871202889%_ - _%g202872202893%_)))) - (_%g202871202889%_ _%g202872202893%_)))) - (_%g202871202889%_ _%g202872202893%_)))) - (_%g202871202889%_ _%g202872202893%_))))) - (_%g202870202944%_ _%$stx202867%_)))) + _%hd204014204052%_ + _%hd204011204042%_) + (_%g204003204021%_ + _%g204004204025%_)))) + (_%g204003204021%_ _%g204004204025%_)))) + (_%g204003204021%_ _%g204004204025%_)))) + (_%g204003204021%_ _%g204004204025%_))))) + (_%g204002204076%_ _%$stx203999%_)))) (define |gxc[:0:]#@lambda| - (lambda (_%$stx202948%_) - (let* ((_%__stx207290207291%_ _%$stx202948%_) - (_%g202955203016%_ + (lambda (_%$stx204080%_) + (let* ((_%__stx208422208423%_ _%$stx204080%_) + (_%g204087204148%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx207290207291%_))))) - (let ((_%__kont207293207294%_ - (lambda (_%L203254%_ _%L203256%_) + _%__stx208422208423%_))))) + (let ((_%__kont208425208426%_ + (lambda (_%L204386%_ _%L204388%_) (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 _%L203256%_ '())) + (cons _%L204388%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203254%_ '())) + (cons _%L204386%_ '())) '()))))) - (_%__kont207295207296%_ - (lambda (_%L203193%_ _%L203195%_ _%L203196%_) + (_%__kont208427208428%_ + (lambda (_%L204325%_ _%L204327%_ _%L204328%_) (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 _%L203196%_ '())) + (cons _%L204328%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203195%_ '())) + (cons _%L204327%_ '())) (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 _%L203193%_ '())) + (cons _%L204325%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (_%__kont207297207298%_ - (lambda (_%L203117%_ _%L203119%_) - (cons _%L203119%_ (cons _%L203117%_ (cons '#f '()))))) - (_%__kont207299207300%_ - (lambda (_%L203067%_ _%L203069%_ _%L203070%_) - (cons _%L203070%_ - (cons _%L203069%_ + (_%__kont208429208430%_ + (lambda (_%L204249%_ _%L204251%_) + (cons _%L204251%_ (cons _%L204249%_ (cons '#f '()))))) + (_%__kont208431208432%_ + (lambda (_%L204199%_ _%L204201%_ _%L204202%_) + (cons _%L204202%_ + (cons _%L204201%_ (cons '#f (cons 'signature: - (cons _%L203067%_ '())))))))) + (cons _%L204199%_ '())))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx207290207291%_)) - (let ((_%e202959203224%_ + (gx#stx-pair? _%__stx208422208423%_)) + (let ((_%e204091204356%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx207290207291%_)))) - (let ((_%tl202961203231%_ + (gx#syntax-e _%__stx208422208423%_)))) + (let ((_%tl204093204363%_ (let () (declare (not safe)) - (##cdr _%e202959203224%_))) - (_%hd202960203228%_ + (##cdr _%e204091204356%_))) + (_%hd204092204360%_ (let () (declare (not safe)) - (##car _%e202959203224%_)))) + (##car _%e204091204356%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202961203231%_)) - (let ((_%e202962203234%_ + (gx#stx-pair? _%tl204093204363%_)) + (let ((_%e204094204366%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202961203231%_)))) - (let ((_%tl202964203241%_ + (gx#syntax-e _%tl204093204363%_)))) + (let ((_%tl204096204373%_ (let () (declare (not safe)) - (##cdr _%e202962203234%_))) - (_%hd202963203238%_ + (##cdr _%e204094204366%_))) + (_%hd204095204370%_ (let () (declare (not safe)) - (##car _%e202962203234%_)))) + (##car _%e204094204366%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202964203241%_)) - (let ((_%e202965203244%_ + (gx#stx-pair? _%tl204096204373%_)) + (let ((_%e204097204376%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202964203241%_)))) - (let ((_%tl202967203251%_ + (gx#syntax-e _%tl204096204373%_)))) + (let ((_%tl204099204383%_ (let () (declare (not safe)) - (##cdr _%e202965203244%_))) - (_%hd202966203248%_ + (##cdr _%e204097204376%_))) + (_%hd204098204380%_ (let () (declare (not safe)) - (##car _%e202965203244%_)))) + (##car _%e204097204376%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202967203251%_)) - (_%__kont207293207294%_ - _%hd202966203248%_ - _%hd202963203238%_) + (gx#stx-null? _%tl204099204383%_)) + (_%__kont208425208426%_ + _%hd204098204380%_ + _%hd204095204370%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202967203251%_)) - (let ((_%e202980203169%_ + _%tl204099204383%_)) + (let ((_%e204112204301%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202967203251%_)))) - (let ((_%tl202982203176%_ + _%tl204099204383%_)))) + (let ((_%tl204114204308%_ (let () (declare (not safe)) - (##cdr _%e202980203169%_))) - (_%hd202981203173%_ + (##cdr _%e204112204301%_))) + (_%hd204113204305%_ (let () (declare (not safe)) - (##car _%e202980203169%_)))) + (##car _%e204112204301%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd202981203173%_)) - (let ((_%e202983203179%_ + _%hd204113204305%_)) + (let ((_%e204115204311%_ (let () (declare (not safe)) (gx#stx-e - _%hd202981203173%_)))) - (if (equal? _%e202983203179%_ + _%hd204113204305%_)))) + (if (equal? _%e204115204311%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'signature:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202982203176%_)) - (let ((_%e202984203183%_ + (gx#stx-pair? _%tl204114204308%_)) + (let ((_%e204116204315%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202982203176%_)))) - (let ((_%tl202986203190%_ + (gx#syntax-e _%tl204114204308%_)))) + (let ((_%tl204118204322%_ (let () (declare (not safe)) - (##cdr _%e202984203183%_))) - (_%hd202985203187%_ + (##cdr _%e204116204315%_))) + (_%hd204117204319%_ (let () (declare (not safe)) - (##car _%e202984203183%_)))) + (##car _%e204116204315%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202986203190%_)) - (_%__kont207295207296%_ - _%hd202985203187%_ - _%hd202966203248%_ - _%hd202963203238%_) + (gx#stx-null? _%tl204118204322%_)) + (_%__kont208427208428%_ + _%hd204117204319%_ + _%hd204098204380%_ + _%hd204095204370%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd202966203248%_)) - (let ((_%e203007203053%_ + (gx#stx-datum? _%hd204098204380%_)) + (let ((_%e204139204185%_ (let () (declare (not safe)) - (gx#stx-e _%hd202966203248%_)))) + (gx#stx-e _%hd204098204380%_)))) (declare (not safe)) - (_%g202955203016%_)) + (_%g204087204148%_)) (let () (declare (not safe)) - (_%g202955203016%_)))))) + (_%g204087204148%_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd202966203248%_)) - (let ((_%e203007203053%_ + (gx#stx-datum? _%hd204098204380%_)) + (let ((_%e204139204185%_ (let () (declare (not safe)) - (gx#stx-e _%hd202966203248%_)))) - (if (equal? _%e203007203053%_ 'signature:) + (gx#stx-e _%hd204098204380%_)))) + (if (equal? _%e204139204185%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202982203176%_)) - (_%__kont207299207300%_ - _%hd202981203173%_ - _%hd202963203238%_ - _%hd202960203228%_) + (gx#stx-null? _%tl204114204308%_)) + (_%__kont208431208432%_ + _%hd204113204305%_ + _%hd204095204370%_ + _%hd204092204360%_) (let () (declare (not safe)) - (_%g202955203016%_))) + (_%g204087204148%_))) (let () (declare (not safe)) - (_%g202955203016%_)))) - (let () (declare (not safe)) (_%g202955203016%_)))) + (_%g204087204148%_)))) + (let () (declare (not safe)) (_%g204087204148%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd202966203248%_)) - (let ((_%e203007203053%_ + (gx#stx-datum? _%hd204098204380%_)) + (let ((_%e204139204185%_ (let () (declare (not safe)) - (gx#stx-e _%hd202966203248%_)))) - (if (equal? _%e203007203053%_ 'signature:) + (gx#stx-e _%hd204098204380%_)))) + (if (equal? _%e204139204185%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202982203176%_)) - (_%__kont207299207300%_ - _%hd202981203173%_ - _%hd202963203238%_ - _%hd202960203228%_) + (gx#stx-null? _%tl204114204308%_)) + (_%__kont208431208432%_ + _%hd204113204305%_ + _%hd204095204370%_ + _%hd204092204360%_) (let () (declare (not safe)) - (_%g202955203016%_))) - (let () (declare (not safe)) (_%g202955203016%_)))) - (let () (declare (not safe)) (_%g202955203016%_))))) + (_%g204087204148%_))) + (let () (declare (not safe)) (_%g204087204148%_)))) + (let () (declare (not safe)) (_%g204087204148%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd202966203248%_)) - (let ((_%e203007203053%_ + _%hd204098204380%_)) + (let ((_%e204139204185%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd202966203248%_)))) - (if (equal? _%e203007203053%_ 'signature:) + (gx#stx-e _%hd204098204380%_)))) + (if (equal? _%e204139204185%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202982203176%_)) - (_%__kont207299207300%_ - _%hd202981203173%_ - _%hd202963203238%_ - _%hd202960203228%_) - (let () (declare (not safe)) (_%g202955203016%_))) - (let () (declare (not safe)) (_%g202955203016%_)))) - (let () (declare (not safe)) (_%g202955203016%_)))))) + (gx#stx-null? _%tl204114204308%_)) + (_%__kont208431208432%_ + _%hd204113204305%_ + _%hd204095204370%_ + _%hd204092204360%_) + (let () (declare (not safe)) (_%g204087204148%_))) + (let () (declare (not safe)) (_%g204087204148%_)))) + (let () (declare (not safe)) (_%g204087204148%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd202966203248%_)) - (let ((_%e203007203053%_ + _%hd204098204380%_)) + (let ((_%e204139204185%_ (let () (declare (not safe)) (gx#stx-e - _%hd202966203248%_)))) + _%hd204098204380%_)))) (declare (not safe)) - (_%g202955203016%_)) + (_%g204087204148%_)) (let () (declare (not safe)) - (_%g202955203016%_))))))) + (_%g204087204148%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202964203241%_)) - (_%__kont207297207298%_ - _%hd202963203238%_ - _%hd202960203228%_) + (gx#stx-null? _%tl204096204373%_)) + (_%__kont208429208430%_ + _%hd204095204370%_ + _%hd204092204360%_) (let () (declare (not safe)) - (_%g202955203016%_)))))) - (let () (declare (not safe)) (_%g202955203016%_))))) - (let () (declare (not safe)) (_%g202955203016%_))))))) + (_%g204087204148%_)))))) + (let () (declare (not safe)) (_%g204087204148%_))))) + (let () (declare (not safe)) (_%g204087204148%_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_%$stx203275%_) - (let* ((_%g203279203308%_ - (lambda (_%g203280203304%_) + (lambda (_%$stx204407%_) + (let* ((_%g204411204440%_ + (lambda (_%g204412204436%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203280203304%_)))) - (_%g203278203417%_ - (lambda (_%g203280203312%_) + _%g204412204436%_)))) + (_%g204410204549%_ + (lambda (_%g204412204444%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203280203312%_)) - (let ((_%e203282203315%_ + (gx#stx-pair? _%g204412204444%_)) + (let ((_%e204414204447%_ (let () (declare (not safe)) - (gx#syntax-e _%g203280203312%_)))) - (let ((_%hd203283203319%_ + (gx#syntax-e _%g204412204444%_)))) + (let ((_%hd204415204451%_ (let () (declare (not safe)) - (##car _%e203282203315%_))) - (_%tl203284203322%_ + (##car _%e204414204447%_))) + (_%tl204416204454%_ (let () (declare (not safe)) - (##cdr _%e203282203315%_)))) + (##cdr _%e204414204447%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203284203322%_)) - (let ((_g207920_ + (gx#stx-pair/null? _%tl204416204454%_)) + (let ((_g209052_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203284203322%_ + _%tl204416204454%_ '0)))) (begin - (let ((_g207921_ + (let ((_g209053_ (let () (declare (not safe)) - (if (##values? _g207920_) - (##vector-length _g207920_) + (if (##values? _g209052_) + (##vector-length _g209052_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207921_ 2))) + (##fx= _g209053_ 2))) (error "Context expects 2 values" - _g207921_))) - (let ((_%target203285203325%_ + _g209053_))) + (let ((_%target204417204457%_ (let () (declare (not safe)) - (##vector-ref _g207920_ 0))) - (_%tl203287203328%_ + (##vector-ref _g209052_ 0))) + (_%tl204419204460%_ (let () (declare (not safe)) - (##vector-ref _g207920_ 1)))) + (##vector-ref _g209052_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203287203328%_)) - (letrec ((_%loop203288203331%_ - (lambda (_%hd203286203335%_ - _%clause203292203338%_) + (gx#stx-null? _%tl204419204460%_)) + (letrec ((_%loop204420204463%_ + (lambda (_%hd204418204467%_ + _%clause204424204470%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd203286203335%_)) - (let ((_%e203289203341%_ + _%hd204418204467%_)) + (let ((_%e204421204473%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd203286203335%_)))) - (let ((_%lp-hd203290203345%_ + (gx#syntax-e _%hd204418204467%_)))) + (let ((_%lp-hd204422204477%_ (let () (declare (not safe)) - (##car _%e203289203341%_))) - (_%lp-tl203291203348%_ + (##car _%e204421204473%_))) + (_%lp-tl204423204480%_ (let () (declare (not safe)) - (##cdr _%e203289203341%_)))) + (##cdr _%e204421204473%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%lp-hd203290203345%_)) - (let ((_g207922_ + (gx#stx-pair/null? _%lp-hd204422204477%_)) + (let ((_g209054_ (let () (declare (not safe)) (gx#syntax-split-splice - _%lp-hd203290203345%_ + _%lp-hd204422204477%_ '0)))) (begin - (let ((_g207923_ + (let ((_g209055_ (let () (declare (not safe)) - (if (##values? _g207922_) - (##vector-length _g207922_) + (if (##values? _g209054_) + (##vector-length _g209054_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207923_ 2))) + (##fx= _g209055_ 2))) (error "Context expects 2 values" - _g207923_))) - (let ((_%target203294203351%_ + _g209055_))) + (let ((_%target204426204483%_ (let () (declare (not safe)) - (##vector-ref _g207922_ 0))) - (_%tl203296203354%_ + (##vector-ref _g209054_ 0))) + (_%tl204428204486%_ (let () (declare (not safe)) - (##vector-ref _g207922_ 1)))) + (##vector-ref _g209054_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203296203354%_)) - (letrec ((_%loop203297203357%_ - (lambda (_%hd203295203361%_ - _%clause203301203364%_) + (gx#stx-null? _%tl204428204486%_)) + (letrec ((_%loop204429204489%_ + (lambda (_%hd204427204493%_ + _%clause204433204496%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd203295203361%_)) - (let ((_%e203298203367%_ + _%hd204427204493%_)) + (let ((_%e204430204499%_ (let () (declare (not safe)) (gx#syntax-e - _%hd203295203361%_)))) - (let ((_%lp-hd203299203371%_ + _%hd204427204493%_)))) + (let ((_%lp-hd204431204503%_ (let () (declare (not safe)) - (##car _%e203298203367%_))) - (_%lp-tl203300203374%_ + (##car _%e204430204499%_))) + (_%lp-tl204432204506%_ (let () (declare (not safe)) - (##cdr _%e203298203367%_)))) - (_%loop203297203357%_ - _%lp-tl203300203374%_ - (cons _%lp-hd203299203371%_ - _%clause203301203364%_)))) - (let ((_%clause203302203377%_ - (reverse _%clause203301203364%_))) - (_%loop203288203331%_ - _%lp-tl203291203348%_ - (cons _%clause203302203377%_ - _%clause203292203338%_))))))) - (_%loop203297203357%_ - _%target203294203351%_ + (##cdr _%e204430204499%_)))) + (_%loop204429204489%_ + _%lp-tl204432204506%_ + (cons _%lp-hd204431204503%_ + _%clause204433204496%_)))) + (let ((_%clause204434204509%_ + (reverse _%clause204433204496%_))) + (_%loop204420204463%_ + _%lp-tl204423204480%_ + (cons _%clause204434204509%_ + _%clause204424204470%_))))))) + (_%loop204429204489%_ + _%target204426204483%_ '())) - (_%g203279203308%_ _%g203280203312%_))))) - (_%g203279203308%_ _%g203280203312%_)))) - (let ((_%clause203293203381%_ - (reverse _%clause203292203338%_))) - ((lambda (_%L203385%_) + (_%g204411204440%_ _%g204412204444%_))))) + (_%g204411204440%_ _%g204412204444%_)))) + (let ((_%clause204425204513%_ + (reverse _%clause204424204470%_))) + ((lambda (_%L204517%_) (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 ((__tmp207924 - (lambda (_%g203400203405%_ - _%g203401203408%_) + (let ((__tmp209056 + (lambda (_%g204532204537%_ + _%g204533204540%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda)) - (let ((__tmp207925 + (let ((__tmp209057 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g203402203411%_ _%g203403203414%_) - (cons _%g203402203411%_ _%g203403203414%_)))) + (lambda (_%g204534204543%_ _%g204535204546%_) + (cons _%g204534204543%_ _%g204535204546%_)))) (declare (not safe)) - (__foldr1 __tmp207925 '() _%g203400203405%_))) - _%g203401203408%_)))) + (__foldr1 __tmp209057 '() _%g204532204537%_))) + _%g204533204540%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp207924 + __tmp209056 '() - _%L203385%_))) + _%L204517%_))) '()))) - _%clause203293203381%_)))))) + _%clause204425204513%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop203288203331%_ - _%target203285203325%_ + (_%loop204420204463%_ + _%target204417204457%_ '())) - (_%g203279203308%_ - _%g203280203312%_))))) - (_%g203279203308%_ _%g203280203312%_)))) - (_%g203279203308%_ _%g203280203312%_))))) - (_%g203278203417%_ _%$stx203275%_)))) + (_%g204411204440%_ + _%g204412204444%_))))) + (_%g204411204440%_ _%g204412204444%_)))) + (_%g204411204440%_ _%g204412204444%_))))) + (_%g204410204549%_ _%$stx204407%_)))) (define |gxc[:0:]#@kw-lambda| - (lambda (_%$stx203423%_) - (let* ((_%g203427203445%_ - (lambda (_%g203428203441%_) + (lambda (_%$stx204555%_) + (let* ((_%g204559204577%_ + (lambda (_%g204560204573%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203428203441%_)))) - (_%g203426203500%_ - (lambda (_%g203428203449%_) + _%g204560204573%_)))) + (_%g204558204632%_ + (lambda (_%g204560204581%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203428203449%_)) - (let ((_%e203431203452%_ + (gx#stx-pair? _%g204560204581%_)) + (let ((_%e204563204584%_ (let () (declare (not safe)) - (gx#syntax-e _%g203428203449%_)))) - (let ((_%hd203432203456%_ + (gx#syntax-e _%g204560204581%_)))) + (let ((_%hd204564204588%_ (let () (declare (not safe)) - (##car _%e203431203452%_))) - (_%tl203433203459%_ + (##car _%e204563204584%_))) + (_%tl204565204591%_ (let () (declare (not safe)) - (##cdr _%e203431203452%_)))) + (##cdr _%e204563204584%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203433203459%_)) - (let ((_%e203434203462%_ + (gx#stx-pair? _%tl204565204591%_)) + (let ((_%e204566204594%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203433203459%_)))) - (let ((_%hd203435203466%_ + (gx#syntax-e _%tl204565204591%_)))) + (let ((_%hd204567204598%_ (let () (declare (not safe)) - (##car _%e203434203462%_))) - (_%tl203436203469%_ + (##car _%e204566204594%_))) + (_%tl204568204601%_ (let () (declare (not safe)) - (##cdr _%e203434203462%_)))) + (##cdr _%e204566204594%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203436203469%_)) - (let ((_%e203437203472%_ + (gx#stx-pair? _%tl204568204601%_)) + (let ((_%e204569204604%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203436203469%_)))) - (let ((_%hd203438203476%_ + _%tl204568204601%_)))) + (let ((_%hd204570204608%_ (let () (declare (not safe)) - (##car _%e203437203472%_))) - (_%tl203439203479%_ + (##car _%e204569204604%_))) + (_%tl204571204611%_ (let () (declare (not safe)) - (##cdr _%e203437203472%_)))) + (##cdr _%e204569204604%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203439203479%_)) - ((lambda (_%L203482%_ - _%L203484%_) + _%tl204571204611%_)) + ((lambda (_%L204614%_ + _%L204616%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2423,85 +2423,85 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203484%_ '())) + (cons _%L204616%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203482%_ '())) + (cons _%L204614%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203438203476%_ - _%hd203435203466%_) - (_%g203427203445%_ - _%g203428203449%_)))) - (_%g203427203445%_ _%g203428203449%_)))) - (_%g203427203445%_ _%g203428203449%_)))) - (_%g203427203445%_ _%g203428203449%_))))) - (_%g203426203500%_ _%$stx203423%_)))) + _%hd204570204608%_ + _%hd204567204598%_) + (_%g204559204577%_ + _%g204560204581%_)))) + (_%g204559204577%_ _%g204560204581%_)))) + (_%g204559204577%_ _%g204560204581%_)))) + (_%g204559204577%_ _%g204560204581%_))))) + (_%g204558204632%_ _%$stx204555%_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_%$stx203504%_) - (let* ((_%g203508203526%_ - (lambda (_%g203509203522%_) + (lambda (_%$stx204636%_) + (let* ((_%g204640204658%_ + (lambda (_%g204641204654%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203509203522%_)))) - (_%g203507203581%_ - (lambda (_%g203509203530%_) + _%g204641204654%_)))) + (_%g204639204713%_ + (lambda (_%g204641204662%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203509203530%_)) - (let ((_%e203512203533%_ + (gx#stx-pair? _%g204641204662%_)) + (let ((_%e204644204665%_ (let () (declare (not safe)) - (gx#syntax-e _%g203509203530%_)))) - (let ((_%hd203513203537%_ + (gx#syntax-e _%g204641204662%_)))) + (let ((_%hd204645204669%_ (let () (declare (not safe)) - (##car _%e203512203533%_))) - (_%tl203514203540%_ + (##car _%e204644204665%_))) + (_%tl204646204672%_ (let () (declare (not safe)) - (##cdr _%e203512203533%_)))) + (##cdr _%e204644204665%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203514203540%_)) - (let ((_%e203515203543%_ + (gx#stx-pair? _%tl204646204672%_)) + (let ((_%e204647204675%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203514203540%_)))) - (let ((_%hd203516203547%_ + (gx#syntax-e _%tl204646204672%_)))) + (let ((_%hd204648204679%_ (let () (declare (not safe)) - (##car _%e203515203543%_))) - (_%tl203517203550%_ + (##car _%e204647204675%_))) + (_%tl204649204682%_ (let () (declare (not safe)) - (##cdr _%e203515203543%_)))) + (##cdr _%e204647204675%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203517203550%_)) - (let ((_%e203518203553%_ + (gx#stx-pair? _%tl204649204682%_)) + (let ((_%e204650204685%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203517203550%_)))) - (let ((_%hd203519203557%_ + _%tl204649204682%_)))) + (let ((_%hd204651204689%_ (let () (declare (not safe)) - (##car _%e203518203553%_))) - (_%tl203520203560%_ + (##car _%e204650204685%_))) + (_%tl204652204692%_ (let () (declare (not safe)) - (##cdr _%e203518203553%_)))) + (##cdr _%e204650204685%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203520203560%_)) - ((lambda (_%L203563%_ - _%L203565%_) + _%tl204652204692%_)) + ((lambda (_%L204695%_ + _%L204697%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2511,147 +2511,147 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203565%_ '())) + (cons _%L204697%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203563%_ '())) + (cons _%L204695%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203519203557%_ - _%hd203516203547%_) - (_%g203508203526%_ - _%g203509203530%_)))) - (_%g203508203526%_ _%g203509203530%_)))) - (_%g203508203526%_ _%g203509203530%_)))) - (_%g203508203526%_ _%g203509203530%_))))) - (_%g203507203581%_ _%$stx203504%_)))) + _%hd204651204689%_ + _%hd204648204679%_) + (_%g204640204658%_ + _%g204641204662%_)))) + (_%g204640204658%_ _%g204641204662%_)))) + (_%g204640204658%_ _%g204641204662%_)))) + (_%g204640204658%_ _%g204641204662%_))))) + (_%g204639204713%_ _%$stx204636%_)))) (define |gxc[:0:]#declare-inline-rules!| - (lambda (_%$stx203585%_) - (let* ((_%g203589203618%_ - (lambda (_%g203590203614%_) + (lambda (_%$stx204717%_) + (let* ((_%g204721204750%_ + (lambda (_%g204722204746%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203590203614%_)))) - (_%g203588203718%_ - (lambda (_%g203590203622%_) + _%g204722204746%_)))) + (_%g204720204850%_ + (lambda (_%g204722204754%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203590203622%_)) - (let ((_%e203593203625%_ + (gx#stx-pair? _%g204722204754%_)) + (let ((_%e204725204757%_ (let () (declare (not safe)) - (gx#syntax-e _%g203590203622%_)))) - (let ((_%hd203594203629%_ + (gx#syntax-e _%g204722204754%_)))) + (let ((_%hd204726204761%_ (let () (declare (not safe)) - (##car _%e203593203625%_))) - (_%tl203595203632%_ + (##car _%e204725204757%_))) + (_%tl204727204764%_ (let () (declare (not safe)) - (##cdr _%e203593203625%_)))) + (##cdr _%e204725204757%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203595203632%_)) - (let ((_g207926_ + (gx#stx-pair/null? _%tl204727204764%_)) + (let ((_g209058_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203595203632%_ + _%tl204727204764%_ '0)))) (begin - (let ((_g207927_ + (let ((_g209059_ (let () (declare (not safe)) - (if (##values? _g207926_) - (##vector-length _g207926_) + (if (##values? _g209058_) + (##vector-length _g209058_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207927_ 2))) + (##fx= _g209059_ 2))) (error "Context expects 2 values" - _g207927_))) - (let ((_%target203596203635%_ + _g209059_))) + (let ((_%target204728204767%_ (let () (declare (not safe)) - (##vector-ref _g207926_ 0))) - (_%tl203598203638%_ + (##vector-ref _g209058_ 0))) + (_%tl204730204770%_ (let () (declare (not safe)) - (##vector-ref _g207926_ 1)))) + (##vector-ref _g209058_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203598203638%_)) - (letrec ((_%loop203599203641%_ - (lambda (_%hd203597203645%_ - _%rule203603203648%_ - _%proc203604203650%_) + (gx#stx-null? _%tl204730204770%_)) + (letrec ((_%loop204731204773%_ + (lambda (_%hd204729204777%_ + _%rule204735204780%_ + _%proc204736204782%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd203597203645%_)) - (let ((_%e203600203653%_ + _%hd204729204777%_)) + (let ((_%e204732204785%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd203597203645%_)))) - (let ((_%lp-hd203601203657%_ + (gx#syntax-e _%hd204729204777%_)))) + (let ((_%lp-hd204733204789%_ (let () (declare (not safe)) - (##car _%e203600203653%_))) - (_%lp-tl203602203660%_ + (##car _%e204732204785%_))) + (_%lp-tl204734204792%_ (let () (declare (not safe)) - (##cdr _%e203600203653%_)))) + (##cdr _%e204732204785%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd203601203657%_)) - (let ((_%e203607203663%_ + (gx#stx-pair? _%lp-hd204733204789%_)) + (let ((_%e204739204795%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd203601203657%_)))) - (let ((_%hd203608203667%_ + (gx#syntax-e _%lp-hd204733204789%_)))) + (let ((_%hd204740204799%_ (let () (declare (not safe)) - (##car _%e203607203663%_))) - (_%tl203609203670%_ + (##car _%e204739204795%_))) + (_%tl204741204802%_ (let () (declare (not safe)) - (##cdr _%e203607203663%_)))) + (##cdr _%e204739204795%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203609203670%_)) - (let ((_%e203610203673%_ + (gx#stx-pair? _%tl204741204802%_)) + (let ((_%e204742204805%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203609203670%_)))) - (let ((_%hd203611203677%_ + (gx#syntax-e _%tl204741204802%_)))) + (let ((_%hd204743204809%_ (let () (declare (not safe)) - (##car _%e203610203673%_))) - (_%tl203612203680%_ + (##car _%e204742204805%_))) + (_%tl204744204812%_ (let () (declare (not safe)) - (##cdr _%e203610203673%_)))) + (##cdr _%e204742204805%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203612203680%_)) - (_%loop203599203641%_ - _%lp-tl203602203660%_ - (cons _%hd203611203677%_ - _%rule203603203648%_) - (cons _%hd203608203667%_ - _%proc203604203650%_)) - (_%g203589203618%_ - _%g203590203622%_)))) - (_%g203589203618%_ _%g203590203622%_)))) - (_%g203589203618%_ _%g203590203622%_)))) - (let ((_%rule203605203683%_ (reverse _%rule203603203648%_)) - (_%proc203606203686%_ (reverse _%proc203604203650%_))) - ((lambda (_%L203689%_ _%L203691%_) + (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%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2659,103 +2659,103 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L203689%_ - _%L203691%_)) - (let ((__tmp207928 - (lambda (_%g203706203710%_ - _%g203707203713%_ - _%g203708203715%_) + _%L204821%_ + _%L204823%_)) + (let ((__tmp209060 + (lambda (_%g204838204842%_ + _%g204839204845%_ + _%g204840204847%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-inline-rule!)) - (cons _%g203707203713%_ - (cons _%g203706203710%_ + (cons _%g204839204845%_ + (cons _%g204838204842%_ '()))) - _%g203708203715%_)))) + _%g204840204847%_)))) (declare (not safe)) (__foldr2 - __tmp207928 + __tmp209060 '() - _%L203689%_ - _%L203691%_))))) - _%rule203605203683%_ - _%proc203606203686%_)))))) + _%L204821%_ + _%L204823%_))))) + _%rule204737204815%_ + _%proc204738204818%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop203599203641%_ - _%target203596203635%_ + (_%loop204731204773%_ + _%target204728204767%_ '() '())) - (_%g203589203618%_ - _%g203590203622%_))))) - (_%g203589203618%_ _%g203590203622%_)))) - (_%g203589203618%_ _%g203590203622%_))))) - (_%g203588203718%_ _%$stx203585%_)))) + (_%g204721204750%_ + _%g204722204754%_))))) + (_%g204721204750%_ _%g204722204754%_)))) + (_%g204721204750%_ _%g204722204754%_))))) + (_%g204720204850%_ _%$stx204717%_)))) (define |gxc[:0:]#declare-inline-rule!| - (lambda (_%$stx203723%_) - (let* ((_%g203727203745%_ - (lambda (_%g203728203741%_) + (lambda (_%$stx204855%_) + (let* ((_%g204859204877%_ + (lambda (_%g204860204873%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203728203741%_)))) - (_%g203726203800%_ - (lambda (_%g203728203749%_) + _%g204860204873%_)))) + (_%g204858204932%_ + (lambda (_%g204860204881%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203728203749%_)) - (let ((_%e203731203752%_ + (gx#stx-pair? _%g204860204881%_)) + (let ((_%e204863204884%_ (let () (declare (not safe)) - (gx#syntax-e _%g203728203749%_)))) - (let ((_%hd203732203756%_ + (gx#syntax-e _%g204860204881%_)))) + (let ((_%hd204864204888%_ (let () (declare (not safe)) - (##car _%e203731203752%_))) - (_%tl203733203759%_ + (##car _%e204863204884%_))) + (_%tl204865204891%_ (let () (declare (not safe)) - (##cdr _%e203731203752%_)))) + (##cdr _%e204863204884%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203733203759%_)) - (let ((_%e203734203762%_ + (gx#stx-pair? _%tl204865204891%_)) + (let ((_%e204866204894%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203733203759%_)))) - (let ((_%hd203735203766%_ + (gx#syntax-e _%tl204865204891%_)))) + (let ((_%hd204867204898%_ (let () (declare (not safe)) - (##car _%e203734203762%_))) - (_%tl203736203769%_ + (##car _%e204866204894%_))) + (_%tl204868204901%_ (let () (declare (not safe)) - (##cdr _%e203734203762%_)))) + (##cdr _%e204866204894%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203736203769%_)) - (let ((_%e203737203772%_ + (gx#stx-pair? _%tl204868204901%_)) + (let ((_%e204869204904%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203736203769%_)))) - (let ((_%hd203738203776%_ + _%tl204868204901%_)))) + (let ((_%hd204870204908%_ (let () (declare (not safe)) - (##car _%e203737203772%_))) - (_%tl203739203779%_ + (##car _%e204869204904%_))) + (_%tl204871204911%_ (let () (declare (not safe)) - (##cdr _%e203737203772%_)))) + (##cdr _%e204869204904%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203739203779%_)) - ((lambda (_%L203782%_ - _%L203784%_) + _%tl204871204911%_)) + ((lambda (_%L204914%_ + _%L204916%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2775,7 +2775,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203784%_ '())) + (cons _%L204916%_ '())) '())) '())) (cons (cons (let () @@ -2805,7 +2805,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'type)) '())) - (cons _%L203782%_ '()))) + (cons _%L204914%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare (not safe)) @@ -2817,39 +2817,39 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203784%_ '())) + (cons _%L204916%_ '())) (cons '"; ignoring inline rule" '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203738203776%_ - _%hd203735203766%_) - (_%g203727203745%_ - _%g203728203749%_)))) - (_%g203727203745%_ _%g203728203749%_)))) - (_%g203727203745%_ _%g203728203749%_)))) - (_%g203727203745%_ _%g203728203749%_))))) - (_%g203726203800%_ _%$stx203723%_)))) + _%hd204870204908%_ + _%hd204867204898%_) + (_%g204859204877%_ + _%g204860204881%_)))) + (_%g204859204877%_ _%g204860204881%_)))) + (_%g204859204877%_ _%g204860204881%_)))) + (_%g204859204877%_ _%g204860204881%_))))) + (_%g204858204932%_ _%$stx204855%_)))) (define |gxc[:0:]#declare-primitive-predicates| - (lambda (_%$stx203804%_) - (let* ((_%__stx207408207409%_ _%$stx203804%_) - (_%g203809203834%_ + (lambda (_%$stx204936%_) + (let* ((_%__stx208540208541%_ _%$stx204936%_) + (_%g204941204966%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx207408207409%_))))) - (let ((_%__kont207411207412%_ + _%__stx208540208541%_))))) + (let ((_%__kont208543208544%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont207413207414%_ - (lambda (_%L203881%_ _%L203883%_ _%L203884%_) + (_%__kont208545208546%_ + (lambda (_%L205013%_ _%L205015%_ _%L205016%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2858,121 +2858,121 @@ (gx#datum->syntax__0 '#f 'declare-primitive-predicate)) - (cons _%L203884%_ (cons _%L203883%_ '()))) + (cons _%L205016%_ (cons _%L205015%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-predicates)) - _%L203881%_) + _%L205013%_) '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx207408207409%_)) - (let ((_%e203811203910%_ + (gx#stx-pair? _%__stx208540208541%_)) + (let ((_%e204943205042%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx207408207409%_)))) - (let ((_%tl203813203917%_ + (gx#syntax-e _%__stx208540208541%_)))) + (let ((_%tl204945205049%_ (let () (declare (not safe)) - (##cdr _%e203811203910%_))) - (_%hd203812203914%_ + (##cdr _%e204943205042%_))) + (_%hd204944205046%_ (let () (declare (not safe)) - (##car _%e203811203910%_)))) + (##car _%e204943205042%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203813203917%_)) - (_%__kont207411207412%_) + (gx#stx-null? _%tl204945205049%_)) + (_%__kont208543208544%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203813203917%_)) - (let ((_%e203820203851%_ + (gx#stx-pair? _%tl204945205049%_)) + (let ((_%e204952204983%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203813203917%_)))) - (let ((_%tl203822203858%_ + (gx#syntax-e _%tl204945205049%_)))) + (let ((_%tl204954204990%_ (let () (declare (not safe)) - (##cdr _%e203820203851%_))) - (_%hd203821203855%_ + (##cdr _%e204952204983%_))) + (_%hd204953204987%_ (let () (declare (not safe)) - (##car _%e203820203851%_)))) + (##car _%e204952204983%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203821203855%_)) - (let ((_%e203823203861%_ + (gx#stx-pair? _%hd204953204987%_)) + (let ((_%e204955204993%_ (let () (declare (not safe)) (gx#syntax-e - _%hd203821203855%_)))) - (let ((_%tl203825203868%_ + _%hd204953204987%_)))) + (let ((_%tl204957205000%_ (let () (declare (not safe)) - (##cdr _%e203823203861%_))) - (_%hd203824203865%_ + (##cdr _%e204955204993%_))) + (_%hd204956204997%_ (let () (declare (not safe)) - (##car _%e203823203861%_)))) + (##car _%e204955204993%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203825203868%_)) - (let ((_%e203826203871%_ + _%tl204957205000%_)) + (let ((_%e204958205003%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203825203868%_)))) - (let ((_%tl203828203878%_ + _%tl204957205000%_)))) + (let ((_%tl204960205010%_ (let () (declare (not safe)) - (##cdr _%e203826203871%_))) - (_%hd203827203875%_ + (##cdr _%e204958205003%_))) + (_%hd204959205007%_ (let () (declare (not safe)) - (##car _%e203826203871%_)))) + (##car _%e204958205003%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203828203878%_)) - (_%__kont207413207414%_ - _%tl203822203858%_ - _%hd203827203875%_ - _%hd203824203865%_) + _%tl204960205010%_)) + (_%__kont208545208546%_ + _%tl204954204990%_ + _%hd204959205007%_ + _%hd204956204997%_) (let () (declare (not safe)) - (_%g203809203834%_))))) + (_%g204941204966%_))))) (let () (declare (not safe)) - (_%g203809203834%_))))) + (_%g204941204966%_))))) (let () (declare (not safe)) - (_%g203809203834%_))))) + (_%g204941204966%_))))) (let () (declare (not safe)) - (_%g203809203834%_)))))) - (let () (declare (not safe)) (_%g203809203834%_))))))) + (_%g204941204966%_)))))) + (let () (declare (not safe)) (_%g204941204966%_))))))) (define |gxc[:0:]#declare-primitive-procedures| - (lambda (_%$stx203928%_) - (let* ((_%__stx207452207453%_ _%$stx203928%_) - (_%g203933203964%_ + (lambda (_%$stx205060%_) + (let* ((_%__stx208584208585%_ _%$stx205060%_) + (_%g205065205096%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx207452207453%_))))) - (let ((_%__kont207455207456%_ + _%__stx208584208585%_))))) + (let ((_%__kont208587208588%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont207457207458%_ - (lambda (_%L204031%_ _%L204033%_ _%L204034%_) + (_%__kont208589208590%_ + (lambda (_%L205163%_ _%L205165%_ _%L205166%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2981,887 +2981,883 @@ (gx#datum->syntax__0 '#f 'declare-primitive-procedure)) - (cons _%L204034%_ - (let ((__tmp207929 - (lambda (_%g204054204057%_ - _%g204055204060%_) - (cons _%g204054204057%_ - _%g204055204060%_)))) + (cons _%L205166%_ + (let ((__tmp209061 + (lambda (_%g205186205189%_ + _%g205187205192%_) + (cons _%g205186205189%_ + _%g205187205192%_)))) (declare (not safe)) (__foldr1 - __tmp207929 + __tmp209061 '() - _%L204033%_)))) + _%L205165%_)))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-procedures)) - _%L204031%_) + _%L205163%_) '())))))) - (let ((_%__match207495207496%_ - (lambda (_%e203941203971%_ - _%hd203942203975%_ - _%tl203943203978%_ - _%e203944203981%_ - _%hd203945203985%_ - _%tl203946203988%_ - _%e203947203991%_ - _%hd203948203995%_ - _%tl203949203998%_ - _%__splice207459207460%_ - _%target203950204001%_ - _%tl203952204004%_) - (letrec ((_%loop203953204007%_ - (lambda (_%hd203951204011%_ _%sig203957204014%_) + (let ((_%__match208627208628%_ + (lambda (_%e205073205103%_ + _%hd205074205107%_ + _%tl205075205110%_ + _%e205076205113%_ + _%hd205077205117%_ + _%tl205078205120%_ + _%e205079205123%_ + _%hd205080205127%_ + _%tl205081205130%_ + _%__splice208591208592%_ + _%target205082205133%_ + _%tl205084205136%_) + (letrec ((_%loop205085205139%_ + (lambda (_%hd205083205143%_ _%sig205089205146%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203951204011%_)) - (let ((_%e203954204017%_ + (gx#stx-pair? _%hd205083205143%_)) + (let ((_%e205086205149%_ (let () (declare (not safe)) (gx#syntax-e - _%hd203951204011%_)))) - (let ((_%lp-tl203956204024%_ + _%hd205083205143%_)))) + (let ((_%lp-tl205088205156%_ (let () (declare (not safe)) - (##cdr _%e203954204017%_))) - (_%lp-hd203955204021%_ + (##cdr _%e205086205149%_))) + (_%lp-hd205087205153%_ (let () (declare (not safe)) - (##car _%e203954204017%_)))) - (_%loop203953204007%_ - _%lp-tl203956204024%_ - (cons _%lp-hd203955204021%_ - _%sig203957204014%_)))) - (let ((_%sig203958204027%_ - (reverse _%sig203957204014%_))) - (_%__kont207457207458%_ - _%tl203946203988%_ - _%sig203958204027%_ - _%hd203948203995%_)))))) - (_%loop203953204007%_ _%target203950204001%_ '()))))) + (##car _%e205086205149%_)))) + (_%loop205085205139%_ + _%lp-tl205088205156%_ + (cons _%lp-hd205087205153%_ + _%sig205089205146%_)))) + (let ((_%sig205090205159%_ + (reverse _%sig205089205146%_))) + (_%__kont208589208590%_ + _%tl205078205120%_ + _%sig205090205159%_ + _%hd205080205127%_)))))) + (_%loop205085205139%_ _%target205082205133%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx207452207453%_)) - (let ((_%e203935204070%_ + (gx#stx-pair? _%__stx208584208585%_)) + (let ((_%e205067205202%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx207452207453%_)))) - (let ((_%tl203937204077%_ + (gx#syntax-e _%__stx208584208585%_)))) + (let ((_%tl205069205209%_ (let () (declare (not safe)) - (##cdr _%e203935204070%_))) - (_%hd203936204074%_ + (##cdr _%e205067205202%_))) + (_%hd205068205206%_ (let () (declare (not safe)) - (##car _%e203935204070%_)))) + (##car _%e205067205202%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203937204077%_)) - (_%__kont207455207456%_) + (gx#stx-null? _%tl205069205209%_)) + (_%__kont208587208588%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203937204077%_)) - (let ((_%e203944203981%_ + (gx#stx-pair? _%tl205069205209%_)) + (let ((_%e205076205113%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203937204077%_)))) - (let ((_%tl203946203988%_ + (gx#syntax-e _%tl205069205209%_)))) + (let ((_%tl205078205120%_ (let () (declare (not safe)) - (##cdr _%e203944203981%_))) - (_%hd203945203985%_ + (##cdr _%e205076205113%_))) + (_%hd205077205117%_ (let () (declare (not safe)) - (##car _%e203944203981%_)))) + (##car _%e205076205113%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203945203985%_)) - (let ((_%e203947203991%_ + (gx#stx-pair? _%hd205077205117%_)) + (let ((_%e205079205123%_ (let () (declare (not safe)) (gx#syntax-e - _%hd203945203985%_)))) - (let ((_%tl203949203998%_ + _%hd205077205117%_)))) + (let ((_%tl205081205130%_ (let () (declare (not safe)) - (##cdr _%e203947203991%_))) - (_%hd203948203995%_ + (##cdr _%e205079205123%_))) + (_%hd205080205127%_ (let () (declare (not safe)) - (##car _%e203947203991%_)))) + (##car _%e205079205123%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl203949203998%_)) - (let ((_%__splice207459207460%_ + _%tl205081205130%_)) + (let ((_%__splice208591208592%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203949203998%_ + _%tl205081205130%_ '0)))) - (let ((_%tl203952204004%_ + (let ((_%tl205084205136%_ (let () (declare (not safe)) (##vector-ref - _%__splice207459207460%_ + _%__splice208591208592%_ '1))) - (_%target203950204001%_ + (_%target205082205133%_ (let () (declare (not safe)) (##vector-ref - _%__splice207459207460%_ + _%__splice208591208592%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203952204004%_)) - (_%__match207495207496%_ - _%e203935204070%_ - _%hd203936204074%_ - _%tl203937204077%_ - _%e203944203981%_ - _%hd203945203985%_ - _%tl203946203988%_ - _%e203947203991%_ - _%hd203948203995%_ - _%tl203949203998%_ - _%__splice207459207460%_ - _%target203950204001%_ - _%tl203952204004%_) + _%tl205084205136%_)) + (_%__match208627208628%_ + _%e205067205202%_ + _%hd205068205206%_ + _%tl205069205209%_ + _%e205076205113%_ + _%hd205077205117%_ + _%tl205078205120%_ + _%e205079205123%_ + _%hd205080205127%_ + _%tl205081205130%_ + _%__splice208591208592%_ + _%target205082205133%_ + _%tl205084205136%_) (let () (declare (not safe)) - (_%g203933203964%_))))) + (_%g205065205096%_))))) (let () (declare (not safe)) - (_%g203933203964%_))))) + (_%g205065205096%_))))) (let () (declare (not safe)) - (_%g203933203964%_))))) + (_%g205065205096%_))))) (let () (declare (not safe)) - (_%g203933203964%_)))))) - (let () (declare (not safe)) (_%g203933203964%_)))))))) + (_%g205065205096%_)))))) + (let () (declare (not safe)) (_%g205065205096%_)))))))) (define |gxc[:0:]#declare-primitive-procedure| - (lambda (_%$stx204089%_) - (let* ((_%__stx207498207499%_ _%$stx204089%_) - (_%g204094204141%_ + (lambda (_%$stx205221%_) + (let* ((_%__stx208630208631%_ _%$stx205221%_) + (_%g205226205273%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx207498207499%_))))) - (let ((_%__kont207501207502%_ - (lambda (_%L204303%_ _%L204305%_) + _%__stx208630208631%_))))) + (let ((_%__kont208633208634%_ + (lambda (_%L205435%_ _%L205437%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-case-lambda)) - (cons _%L204305%_ - (let ((__tmp207930 - (lambda (_%g204325204328%_ - _%g204326204331%_) - (cons _%g204325204328%_ - _%g204326204331%_)))) + (cons _%L205437%_ + (let ((__tmp209062 + (lambda (_%g205457205460%_ + _%g205458205463%_) + (cons _%g205457205460%_ + _%g205458205463%_)))) (declare (not safe)) - (__foldr1 __tmp207930 '() _%L204303%_)))))) - (_%__kont207505207506%_ - (lambda (_%L204198%_ _%L204200%_) + (__foldr1 __tmp209062 '() _%L205435%_)))))) + (_%__kont208637208638%_ + (lambda (_%L205330%_ _%L205332%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-lambda)) - (cons _%L204200%_ - (let ((__tmp207931 - (lambda (_%g204217204220%_ - _%g204218204223%_) - (cons _%g204217204220%_ - _%g204218204223%_)))) + (cons _%L205332%_ + (let ((__tmp209063 + (lambda (_%g205349205352%_ + _%g205350205355%_) + (cons _%g205349205352%_ + _%g205350205355%_)))) (declare (not safe)) - (__foldr1 __tmp207931 '() _%L204198%_))))))) - (let* ((_%__match207565207566%_ - (lambda (_%e204121204148%_ - _%hd204122204152%_ - _%tl204123204155%_ - _%e204124204158%_ - _%hd204125204162%_ - _%tl204126204165%_ - _%__splice207507207508%_ - _%target204127204168%_ - _%tl204129204171%_) - (letrec ((_%loop204130204174%_ - (lambda (_%hd204128204178%_ - _%sig204134204181%_) + (__foldr1 __tmp209063 '() _%L205330%_))))))) + (let* ((_%__match208697208698%_ + (lambda (_%e205253205280%_ + _%hd205254205284%_ + _%tl205255205287%_ + _%e205256205290%_ + _%hd205257205294%_ + _%tl205258205297%_ + _%__splice208639208640%_ + _%target205259205300%_ + _%tl205261205303%_) + (letrec ((_%loop205262205306%_ + (lambda (_%hd205260205310%_ + _%sig205266205313%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd204128204178%_)) - (let ((_%e204131204184%_ + (gx#stx-pair? _%hd205260205310%_)) + (let ((_%e205263205316%_ (let () (declare (not safe)) (gx#syntax-e - _%hd204128204178%_)))) - (let ((_%lp-tl204133204191%_ + _%hd205260205310%_)))) + (let ((_%lp-tl205265205323%_ (let () (declare (not safe)) - (##cdr _%e204131204184%_))) - (_%lp-hd204132204188%_ + (##cdr _%e205263205316%_))) + (_%lp-hd205264205320%_ (let () (declare (not safe)) - (##car _%e204131204184%_)))) - (_%loop204130204174%_ - _%lp-tl204133204191%_ - (cons _%lp-hd204132204188%_ - _%sig204134204181%_)))) - (let ((_%sig204135204194%_ - (reverse _%sig204134204181%_))) - (_%__kont207505207506%_ - _%sig204135204194%_ - _%hd204125204162%_)))))) - (_%loop204130204174%_ _%target204127204168%_ '())))) - (_%__match207557207558%_ - (lambda (_%e204121204148%_ - _%hd204122204152%_ - _%tl204123204155%_ - _%e204124204158%_ - _%hd204125204162%_ - _%tl204126204165%_) + (##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%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204126204165%_)) - (let ((_%__splice207507207508%_ + (gx#stx-pair/null? _%tl205258205297%_)) + (let ((_%__splice208639208640%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl204126204165%_ + _%tl205258205297%_ '0)))) - (let ((_%tl204129204171%_ + (let ((_%tl205261205303%_ (let () (declare (not safe)) (##vector-ref - _%__splice207507207508%_ + _%__splice208639208640%_ '1))) - (_%target204127204168%_ + (_%target205259205300%_ (let () (declare (not safe)) (##vector-ref - _%__splice207507207508%_ + _%__splice208639208640%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204129204171%_)) - (_%__match207565207566%_ - _%e204121204148%_ - _%hd204122204152%_ - _%tl204123204155%_ - _%e204124204158%_ - _%hd204125204162%_ - _%tl204126204165%_ - _%__splice207507207508%_ - _%target204127204168%_ - _%tl204129204171%_) + (gx#stx-null? _%tl205261205303%_)) + (_%__match208697208698%_ + _%e205253205280%_ + _%hd205254205284%_ + _%tl205255205287%_ + _%e205256205290%_ + _%hd205257205294%_ + _%tl205258205297%_ + _%__splice208639208640%_ + _%target205259205300%_ + _%tl205261205303%_) (let () (declare (not safe)) - (_%g204094204141%_))))) - (let () (declare (not safe)) (_%g204094204141%_))))) - (_%__match207545207546%_ - (lambda (_%e204098204233%_ - _%hd204099204237%_ - _%tl204100204240%_ - _%e204101204243%_ - _%hd204102204247%_ - _%tl204103204250%_ - _%e204104204253%_ - _%hd204105204257%_ - _%tl204106204260%_ - _%e204107204263%_ - _%hd204108204267%_ - _%tl204109204270%_ - _%__splice207503207504%_ - _%target204110204273%_ - _%tl204112204276%_) - (letrec ((_%loop204113204279%_ - (lambda (_%hd204111204283%_ - _%sig204117204286%_) + (_%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%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd204111204283%_)) - (let ((_%e204114204289%_ + (gx#stx-pair? _%hd205243205415%_)) + (let ((_%e205246205421%_ (let () (declare (not safe)) (gx#syntax-e - _%hd204111204283%_)))) - (let ((_%lp-tl204116204296%_ + _%hd205243205415%_)))) + (let ((_%lp-tl205248205428%_ (let () (declare (not safe)) - (##cdr _%e204114204289%_))) - (_%lp-hd204115204293%_ + (##cdr _%e205246205421%_))) + (_%lp-hd205247205425%_ (let () (declare (not safe)) - (##car _%e204114204289%_)))) - (_%loop204113204279%_ - _%lp-tl204116204296%_ - (cons _%lp-hd204115204293%_ - _%sig204117204286%_)))) - (let ((_%sig204118204299%_ - (reverse _%sig204117204286%_))) + (##car _%e205246205421%_)))) + (_%loop205245205411%_ + _%lp-tl205248205428%_ + (cons _%lp-hd205247205425%_ + _%sig205249205418%_)))) + (let ((_%sig205250205431%_ + (reverse _%sig205249205418%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204106204260%_)) - (_%__kont207501207502%_ - _%sig204118204299%_ - _%hd204102204247%_) - (_%__match207557207558%_ - _%e204098204233%_ - _%hd204099204237%_ - _%tl204100204240%_ - _%e204101204243%_ - _%hd204102204247%_ - _%tl204103204250%_))))))) - (_%loop204113204279%_ _%target204110204273%_ '()))))) + _%tl205238205392%_)) + (_%__kont208633208634%_ + _%sig205250205431%_ + _%hd205234205379%_) + (_%__match208689208690%_ + _%e205230205365%_ + _%hd205231205369%_ + _%tl205232205372%_ + _%e205233205375%_ + _%hd205234205379%_ + _%tl205235205382%_))))))) + (_%loop205245205411%_ _%target205242205405%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx207498207499%_)) - (let ((_%e204098204233%_ + (gx#stx-pair? _%__stx208630208631%_)) + (let ((_%e205230205365%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx207498207499%_)))) - (let ((_%tl204100204240%_ + (gx#syntax-e _%__stx208630208631%_)))) + (let ((_%tl205232205372%_ (let () (declare (not safe)) - (##cdr _%e204098204233%_))) - (_%hd204099204237%_ + (##cdr _%e205230205365%_))) + (_%hd205231205369%_ (let () (declare (not safe)) - (##car _%e204098204233%_)))) + (##car _%e205230205365%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204100204240%_)) - (let ((_%e204101204243%_ + (gx#stx-pair? _%tl205232205372%_)) + (let ((_%e205233205375%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204100204240%_)))) - (let ((_%tl204103204250%_ + (gx#syntax-e _%tl205232205372%_)))) + (let ((_%tl205235205382%_ (let () (declare (not safe)) - (##cdr _%e204101204243%_))) - (_%hd204102204247%_ + (##cdr _%e205233205375%_))) + (_%hd205234205379%_ (let () (declare (not safe)) - (##car _%e204101204243%_)))) + (##car _%e205233205375%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204103204250%_)) - (let ((_%e204104204253%_ + (gx#stx-pair? _%tl205235205382%_)) + (let ((_%e205236205385%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204103204250%_)))) - (let ((_%tl204106204260%_ + (gx#syntax-e _%tl205235205382%_)))) + (let ((_%tl205238205392%_ (let () (declare (not safe)) - (##cdr _%e204104204253%_))) - (_%hd204105204257%_ + (##cdr _%e205236205385%_))) + (_%hd205237205389%_ (let () (declare (not safe)) - (##car _%e204104204253%_)))) + (##car _%e205236205385%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd204105204257%_)) - (let ((_%e204107204263%_ + (gx#stx-pair? _%hd205237205389%_)) + (let ((_%e205239205395%_ (let () (declare (not safe)) (gx#syntax-e - _%hd204105204257%_)))) - (let ((_%tl204109204270%_ + _%hd205237205389%_)))) + (let ((_%tl205241205402%_ (let () (declare (not safe)) - (##cdr _%e204107204263%_))) - (_%hd204108204267%_ + (##cdr _%e205239205395%_))) + (_%hd205240205399%_ (let () (declare (not safe)) - (##car _%e204107204263%_)))) + (##car _%e205239205395%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd204108204267%_)) - (if (let ((__tmp207932 - |gxc[1]#_g207933_|)) + _%hd205240205399%_)) + (if (let ((__tmp209064 + |gxc[1]#_g209065_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207932 - _%hd204108204267%_)) + __tmp209064 + _%hd205240205399%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl204109204270%_)) - (let ((_%__splice207503207504%_ + _%tl205241205402%_)) + (let ((_%__splice208635208636%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl204109204270%_ '0)))) - (let ((_%tl204112204276%_ + (gx#syntax-split-splice _%tl205241205402%_ '0)))) + (let ((_%tl205244205408%_ (let () (declare (not safe)) - (##vector-ref _%__splice207503207504%_ '1))) - (_%target204110204273%_ + (##vector-ref _%__splice208635208636%_ '1))) + (_%target205242205405%_ (let () (declare (not safe)) - (##vector-ref _%__splice207503207504%_ '0)))) + (##vector-ref _%__splice208635208636%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204112204276%_)) - (_%__match207545207546%_ - _%e204098204233%_ - _%hd204099204237%_ - _%tl204100204240%_ - _%e204101204243%_ - _%hd204102204247%_ - _%tl204103204250%_ - _%e204104204253%_ - _%hd204105204257%_ - _%tl204106204260%_ - _%e204107204263%_ - _%hd204108204267%_ - _%tl204109204270%_ - _%__splice207503207504%_ - _%target204110204273%_ - _%tl204112204276%_) + (gx#stx-null? _%tl205244205408%_)) + (_%__match208677208678%_ + _%e205230205365%_ + _%hd205231205369%_ + _%tl205232205372%_ + _%e205233205375%_ + _%hd205234205379%_ + _%tl205235205382%_ + _%e205236205385%_ + _%hd205237205389%_ + _%tl205238205392%_ + _%e205239205395%_ + _%hd205240205399%_ + _%tl205241205402%_ + _%__splice208635208636%_ + _%target205242205405%_ + _%tl205244205408%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204103204250%_)) - (let ((_%__splice207507207508%_ + (gx#stx-pair/null? _%tl205235205382%_)) + (let ((_%__splice208639208640%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl204103204250%_ + _%tl205235205382%_ '0)))) - (let ((_%tl204129204171%_ + (let ((_%tl205261205303%_ (let () (declare (not safe)) (##vector-ref - _%__splice207507207508%_ + _%__splice208639208640%_ '1))) - (_%target204127204168%_ + (_%target205259205300%_ (let () (declare (not safe)) (##vector-ref - _%__splice207507207508%_ + _%__splice208639208640%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204129204171%_)) - (_%__match207565207566%_ - _%e204098204233%_ - _%hd204099204237%_ - _%tl204100204240%_ - _%e204101204243%_ - _%hd204102204247%_ - _%tl204103204250%_ - _%__splice207507207508%_ - _%target204127204168%_ - _%tl204129204171%_) + (gx#stx-null? _%tl205261205303%_)) + (_%__match208697208698%_ + _%e205230205365%_ + _%hd205231205369%_ + _%tl205232205372%_ + _%e205233205375%_ + _%hd205234205379%_ + _%tl205235205382%_ + _%__splice208639208640%_ + _%target205259205300%_ + _%tl205261205303%_) (let () (declare (not safe)) - (_%g204094204141%_))))) + (_%g205226205273%_))))) (let () (declare (not safe)) - (_%g204094204141%_)))))) + (_%g205226205273%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204103204250%_)) - (let ((_%__splice207507207508%_ + (gx#stx-pair/null? _%tl205235205382%_)) + (let ((_%__splice208639208640%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl204103204250%_ + _%tl205235205382%_ '0)))) - (let ((_%tl204129204171%_ + (let ((_%tl205261205303%_ (let () (declare (not safe)) - (##vector-ref _%__splice207507207508%_ '1))) - (_%target204127204168%_ + (##vector-ref _%__splice208639208640%_ '1))) + (_%target205259205300%_ (let () (declare (not safe)) - (##vector-ref _%__splice207507207508%_ '0)))) + (##vector-ref _%__splice208639208640%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204129204171%_)) - (_%__match207565207566%_ - _%e204098204233%_ - _%hd204099204237%_ - _%tl204100204240%_ - _%e204101204243%_ - _%hd204102204247%_ - _%tl204103204250%_ - _%__splice207507207508%_ - _%target204127204168%_ - _%tl204129204171%_) + (gx#stx-null? _%tl205261205303%_)) + (_%__match208697208698%_ + _%e205230205365%_ + _%hd205231205369%_ + _%tl205232205372%_ + _%e205233205375%_ + _%hd205234205379%_ + _%tl205235205382%_ + _%__splice208639208640%_ + _%target205259205300%_ + _%tl205261205303%_) (let () (declare (not safe)) - (_%g204094204141%_))))) - (let () (declare (not safe)) (_%g204094204141%_)))) + (_%g205226205273%_))))) + (let () (declare (not safe)) (_%g205226205273%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204103204250%_)) - (let ((_%__splice207507207508%_ + (gx#stx-pair/null? _%tl205235205382%_)) + (let ((_%__splice208639208640%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl204103204250%_ '0)))) - (let ((_%tl204129204171%_ + (gx#syntax-split-splice _%tl205235205382%_ '0)))) + (let ((_%tl205261205303%_ (let () (declare (not safe)) - (##vector-ref _%__splice207507207508%_ '1))) - (_%target204127204168%_ + (##vector-ref _%__splice208639208640%_ '1))) + (_%target205259205300%_ (let () (declare (not safe)) - (##vector-ref _%__splice207507207508%_ '0)))) + (##vector-ref _%__splice208639208640%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204129204171%_)) - (_%__match207565207566%_ - _%e204098204233%_ - _%hd204099204237%_ - _%tl204100204240%_ - _%e204101204243%_ - _%hd204102204247%_ - _%tl204103204250%_ - _%__splice207507207508%_ - _%target204127204168%_ - _%tl204129204171%_) - (let () (declare (not safe)) (_%g204094204141%_))))) - (let () (declare (not safe)) (_%g204094204141%_)))) + (gx#stx-null? _%tl205261205303%_)) + (_%__match208697208698%_ + _%e205230205365%_ + _%hd205231205369%_ + _%tl205232205372%_ + _%e205233205375%_ + _%hd205234205379%_ + _%tl205235205382%_ + _%__splice208639208640%_ + _%target205259205300%_ + _%tl205261205303%_) + (let () (declare (not safe)) (_%g205226205273%_))))) + (let () (declare (not safe)) (_%g205226205273%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl204103204250%_)) - (let ((_%__splice207507207508%_ + _%tl205235205382%_)) + (let ((_%__splice208639208640%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl204103204250%_ '0)))) - (let ((_%tl204129204171%_ + (gx#syntax-split-splice _%tl205235205382%_ '0)))) + (let ((_%tl205261205303%_ (let () (declare (not safe)) - (##vector-ref _%__splice207507207508%_ '1))) - (_%target204127204168%_ + (##vector-ref _%__splice208639208640%_ '1))) + (_%target205259205300%_ (let () (declare (not safe)) - (##vector-ref _%__splice207507207508%_ '0)))) + (##vector-ref _%__splice208639208640%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204129204171%_)) - (_%__match207565207566%_ - _%e204098204233%_ - _%hd204099204237%_ - _%tl204100204240%_ - _%e204101204243%_ - _%hd204102204247%_ - _%tl204103204250%_ - _%__splice207507207508%_ - _%target204127204168%_ - _%tl204129204171%_) - (let () (declare (not safe)) (_%g204094204141%_))))) - (let () (declare (not safe)) (_%g204094204141%_)))))) + (gx#stx-null? _%tl205261205303%_)) + (_%__match208697208698%_ + _%e205230205365%_ + _%hd205231205369%_ + _%tl205232205372%_ + _%e205233205375%_ + _%hd205234205379%_ + _%tl205235205382%_ + _%__splice208639208640%_ + _%target205259205300%_ + _%tl205261205303%_) + (let () (declare (not safe)) (_%g205226205273%_))))) + (let () (declare (not safe)) (_%g205226205273%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl204103204250%_)) - (let ((_%__splice207507207508%_ + _%tl205235205382%_)) + (let ((_%__splice208639208640%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl204103204250%_ + _%tl205235205382%_ '0)))) - (let ((_%tl204129204171%_ + (let ((_%tl205261205303%_ (let () (declare (not safe)) (##vector-ref - _%__splice207507207508%_ + _%__splice208639208640%_ '1))) - (_%target204127204168%_ + (_%target205259205300%_ (let () (declare (not safe)) (##vector-ref - _%__splice207507207508%_ + _%__splice208639208640%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204129204171%_)) - (_%__match207565207566%_ - _%e204098204233%_ - _%hd204099204237%_ - _%tl204100204240%_ - _%e204101204243%_ - _%hd204102204247%_ - _%tl204103204250%_ - _%__splice207507207508%_ - _%target204127204168%_ - _%tl204129204171%_) + _%tl205261205303%_)) + (_%__match208697208698%_ + _%e205230205365%_ + _%hd205231205369%_ + _%tl205232205372%_ + _%e205233205375%_ + _%hd205234205379%_ + _%tl205235205382%_ + _%__splice208639208640%_ + _%target205259205300%_ + _%tl205261205303%_) (let () (declare (not safe)) - (_%g204094204141%_))))) + (_%g205226205273%_))))) (let () (declare (not safe)) - (_%g204094204141%_)))))) + (_%g205226205273%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204103204250%_)) - (let ((_%__splice207507207508%_ + (gx#stx-pair/null? _%tl205235205382%_)) + (let ((_%__splice208639208640%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl204103204250%_ + _%tl205235205382%_ '0)))) - (let ((_%tl204129204171%_ + (let ((_%tl205261205303%_ (let () (declare (not safe)) (##vector-ref - _%__splice207507207508%_ + _%__splice208639208640%_ '1))) - (_%target204127204168%_ + (_%target205259205300%_ (let () (declare (not safe)) (##vector-ref - _%__splice207507207508%_ + _%__splice208639208640%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204129204171%_)) - (_%__match207565207566%_ - _%e204098204233%_ - _%hd204099204237%_ - _%tl204100204240%_ - _%e204101204243%_ - _%hd204102204247%_ - _%tl204103204250%_ - _%__splice207507207508%_ - _%target204127204168%_ - _%tl204129204171%_) + _%tl205261205303%_)) + (_%__match208697208698%_ + _%e205230205365%_ + _%hd205231205369%_ + _%tl205232205372%_ + _%e205233205375%_ + _%hd205234205379%_ + _%tl205235205382%_ + _%__splice208639208640%_ + _%target205259205300%_ + _%tl205261205303%_) (let () (declare (not safe)) - (_%g204094204141%_))))) + (_%g205226205273%_))))) (let () (declare (not safe)) - (_%g204094204141%_)))))) - (let () (declare (not safe)) (_%g204094204141%_))))) - (let () (declare (not safe)) (_%g204094204141%_)))))))) + (_%g205226205273%_)))))) + (let () (declare (not safe)) (_%g205226205273%_))))) + (let () (declare (not safe)) (_%g205226205273%_)))))))) (define |gxc[1]#verify-procedure!| - (lambda (_%ctx205488%_ _%id205490%_) - (let ((_%proc205494%_ - (let ((__tmp207934 + (lambda (_%ctx206620%_ _%id206622%_) + (let ((_%proc206626%_ + (let ((__tmp209066 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id205490%_))))) + (gx#eval-syntax__0 _%id206622%_))))) (declare (not safe)) - (__with-catch false __tmp207934)))) - (if (procedure? _%proc205494%_) + (__with-catch false __tmp209066)))) + (if (procedure? _%proc206626%_) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown procedure" - _%ctx205488%_ - _%id205490%_)))))) + _%ctx206620%_ + _%id206622%_)))))) (define |gxc[1]#verify-class!| - (lambda (_%ctx205479%_ _%id205481%_) - (let ((_%klass205485%_ - (let ((__tmp207935 + (lambda (_%ctx206611%_ _%id206613%_) + (let ((_%klass206617%_ + (let ((__tmp209067 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id205481%_))))) + (gx#eval-syntax__0 _%id206613%_))))) (declare (not safe)) - (__with-catch false __tmp207935)))) + (__with-catch false __tmp209067)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass205485%_ 'class)) + (##structure-instance-of? _%klass206617%_ 'class)) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown class" - _%ctx205479%_ - _%id205481%_)))))) + _%ctx206611%_ + _%id206613%_)))))) (define |gxc[1]#parse-signature| - (lambda (_%ctx204729%_ _%proc204731%_ _%sig204732%_) - (letrec ((_%signature-arity204734%_ - (lambda (_%args205411%_) - (let _%loop205414%_ ((_%rest205417%_ _%args205411%_) - (_%count205419%_ '0)) - (let* ((_%rest205420205431%_ _%rest205417%_) - (_%E205424205437%_ + (lambda (_%ctx205861%_ _%proc205863%_ _%sig205864%_) + (letrec ((_%signature-arity205866%_ + (lambda (_%args206543%_) + (let _%loop206546%_ ((_%rest206549%_ _%args206543%_) + (_%count206551%_ '0)) + (let* ((_%rest206552206563%_ _%rest206549%_) + (_%E206556206569%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest205420205431%_ + _%rest206552206563%_ '([_ . rest]) '([]) '(_))) '#!void))) - (let ((_%K205427205468%_ - (lambda (_%rest205465%_) - (_%loop205414%_ - _%rest205465%_ + (let ((_%K206559206600%_ + (lambda (_%rest206597%_) + (_%loop206546%_ + _%rest206597%_ (let () (declare (not safe)) - (##fx+ _%count205419%_ '1))))) - (_%K205426205457%_ (lambda () _%count205419%_)) - (_%K205425205445%_ - (lambda () (cons _%count205419%_ '())))) - (let ((_%try-match205422205461%_ + (##fx+ _%count206551%_ '1))))) + (_%K206558206589%_ (lambda () _%count206551%_)) + (_%K206557206577%_ + (lambda () (cons _%count206551%_ '())))) + (let ((_%try-match206554206593%_ (lambda () - (if (let () - (declare (not safe)) - (##null? _%rest205420205431%_)) - (_%K205426205457%_) - (_%K205425205445%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest205420205431%_)) - (let* ((_%tl205429205472%_ + (if (null? _%rest206552206563%_) + (_%K206558206589%_) + (_%K206557206577%_))))) + (if (pair? _%rest206552206563%_) + (let* ((_%tl206561206604%_ (let () (declare (not safe)) - (##cdr _%rest205420205431%_))) - (_%rest205476%_ _%tl205429205472%_)) - (_%K205427205468%_ _%rest205476%_)) - (_%try-match205422205461%_)))))))) - (_%make-signature204736%_ - (lambda (_%args205293%_ - _%return205295%_ - _%effect205296%_ - _%unchecked205297%_) - (let ((__tmp207936 - (lambda (_%g205298205300%_) + (##cdr _%rest206552206563%_))) + (_%rest206608%_ _%tl206561206604%_)) + (_%K206559206600%_ _%rest206608%_)) + (_%try-match206554206593%_)))))))) + (_%make-signature205868%_ + (lambda (_%args206425%_ + _%return206427%_ + _%effect206428%_ + _%unchecked206429%_) + (let ((__tmp209068 + (lambda (_%g206430206432%_) (|gxc[1]#verify-class!| - _%ctx204729%_ - _%g205298205300%_)))) + _%ctx205861%_ + _%g206430206432%_)))) (declare (not safe)) - (gx#stx-for-each1 __tmp207936 _%args205293%_)) - (|gxc[1]#verify-class!| _%ctx204729%_ _%return205295%_) - (if _%unchecked205297%_ + (gx#stx-for-each1 __tmp209068 _%args206425%_)) + (|gxc[1]#verify-class!| _%ctx205861%_ _%return206427%_) + (if _%unchecked206429%_ (|gxc[1]#verify-procedure!| - _%ctx204729%_ - _%unchecked205297%_) + _%ctx205861%_ + _%unchecked206429%_) '#!void) - (let ((_%arity205304%_ - (_%signature-arity204734%_ + (let ((_%arity206436%_ + (_%signature-arity205866%_ (let () (declare (not safe)) - (gx#stx-map1 gx#stx-e _%args205293%_))))) - (if _%effect205296%_ - (let ((_%effect205307%_ + (gx#stx-map1 gx#stx-e _%args206425%_))))) + (if _%effect206428%_ + (let ((_%effect206439%_ (let () (declare (not safe)) - (gx#syntax->datum _%effect205296%_)))) - (if (and (list? _%effect205307%_) + (gx#syntax->datum _%effect206428%_)))) + (if (and (list? _%effect206439%_) (let () (declare (not safe)) - (__andmap1 symbol? _%effect205307%_))) + (__andmap1 symbol? _%effect206439%_))) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"bad effect" - _%ctx204729%_ - _%proc204731%_ - _%effect205307%_)))) + _%ctx205861%_ + _%proc205863%_ + _%effect206439%_)))) '#!void) - (cons _%arity205304%_ - (cons (let* ((_%g205310205333%_ - (lambda (_%g205311205329%_) + (cons _%arity206436%_ + (cons (let* ((_%g206442206465%_ + (lambda (_%g206443206461%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205311205329%_)))) - (_%g205309205407%_ - (lambda (_%g205311205337%_) + _%g206443206461%_)))) + (_%g206441206539%_ + (lambda (_%g206443206469%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g205311205337%_)) - (let ((_%e205316205340%_ + _%g206443206469%_)) + (let ((_%e206448206472%_ (let () (declare (not safe)) (gx#syntax-e - _%g205311205337%_)))) - (let ((_%hd205317205344%_ + _%g206443206469%_)))) + (let ((_%hd206449206476%_ (let () (declare (not safe)) - (##car _%e205316205340%_))) - (_%tl205318205347%_ + (##car _%e206448206472%_))) + (_%tl206450206479%_ (let () (declare (not safe)) - (##cdr _%e205316205340%_)))) + (##cdr _%e206448206472%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205318205347%_)) - (let ((_%e205319205350%_ + _%tl206450206479%_)) + (let ((_%e206451206482%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl205318205347%_)))) - (let ((_%hd205320205354%_ + (gx#syntax-e _%tl206450206479%_)))) + (let ((_%hd206452206486%_ (let () (declare (not safe)) - (##car _%e205319205350%_))) - (_%tl205321205357%_ + (##car _%e206451206482%_))) + (_%tl206453206489%_ (let () (declare (not safe)) - (##cdr _%e205319205350%_)))) + (##cdr _%e206451206482%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205321205357%_)) - (let ((_%e205322205360%_ + (gx#stx-pair? _%tl206453206489%_)) + (let ((_%e206454206492%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205321205357%_)))) - (let ((_%hd205323205364%_ + (gx#syntax-e _%tl206453206489%_)))) + (let ((_%hd206455206496%_ (let () (declare (not safe)) - (##car _%e205322205360%_))) - (_%tl205324205367%_ + (##car _%e206454206492%_))) + (_%tl206456206499%_ (let () (declare (not safe)) - (##cdr _%e205322205360%_)))) + (##cdr _%e206454206492%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205324205367%_)) - (let ((_%e205325205370%_ + (gx#stx-pair? _%tl206456206499%_)) + (let ((_%e206457206502%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205324205367%_)))) - (let ((_%hd205326205374%_ + (gx#syntax-e _%tl206456206499%_)))) + (let ((_%hd206458206506%_ (let () (declare (not safe)) - (##car _%e205325205370%_))) - (_%tl205327205377%_ + (##car _%e206457206502%_))) + (_%tl206459206509%_ (let () (declare (not safe)) - (##cdr _%e205325205370%_)))) + (##cdr _%e206457206502%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205327205377%_)) - ((lambda (_%L205380%_ - _%L205382%_ - _%L205383%_ - _%L205384%_) + (gx#stx-null? _%tl206459206509%_)) + ((lambda (_%L206512%_ + _%L206514%_ + _%L206515%_ + _%L206516%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -3872,25 +3868,25 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205384%_ '())) + (cons _%L206516%_ '())) (cons 'return: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205383%_ '())) + (cons _%L206515%_ '())) (cons 'effect: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205382%_ '())) + (cons _%L206514%_ '())) (cons 'unchecked: (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205380%_ '())) + (cons _%L206512%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) @@ -3902,779 +3898,779 @@ '())))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd205326205374%_ - _%hd205323205364%_ - _%hd205320205354%_ - _%hd205317205344%_) - (_%g205310205333%_ - _%g205311205337%_)))) - (_%g205310205333%_ _%g205311205337%_)))) - (_%g205310205333%_ _%g205311205337%_)))) - (_%g205310205333%_ _%g205311205337%_)))) + _%hd206458206506%_ + _%hd206455206496%_ + _%hd206452206486%_ + _%hd206449206476%_) + (_%g206442206465%_ + _%g206443206469%_)))) + (_%g206442206465%_ _%g206443206469%_)))) + (_%g206442206465%_ _%g206443206469%_)))) + (_%g206442206465%_ _%g206443206469%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205310205333%_ - _%g205311205337%_))))) - (_%g205309205407%_ - (list _%args205293%_ - _%return205295%_ - _%effect205296%_ - _%unchecked205297%_))) + (_%g206442206465%_ + _%g206443206469%_))))) + (_%g206441206539%_ + (list _%args206425%_ + _%return206427%_ + _%effect206428%_ + _%unchecked206429%_))) '())))))) - (|gxc[1]#verify-procedure!| _%ctx204729%_ _%proc204731%_) - (let* ((_%__stx207576207577%_ _%sig204732%_) - (_%g204743204846%_ + (|gxc[1]#verify-procedure!| _%ctx205861%_ _%proc205863%_) + (let* ((_%__stx208708208709%_ _%sig205864%_) + (_%g205875205978%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx207576207577%_))))) - (let ((_%__kont207579207580%_ - (lambda (_%L205274%_ _%L205276%_) - (_%make-signature204736%_ - _%L205276%_ - _%L205274%_ + _%__stx208708208709%_))))) + (let ((_%__kont208711208712%_ + (lambda (_%L206406%_ _%L206408%_) + (_%make-signature205868%_ + _%L206408%_ + _%L206406%_ '#f '#f))) - (_%__kont207581207582%_ - (lambda (_%L205225%_ _%L205227%_ _%L205228%_) - (_%make-signature204736%_ - _%L205228%_ - _%L205227%_ - _%L205225%_ + (_%__kont208713208714%_ + (lambda (_%L206357%_ _%L206359%_ _%L206360%_) + (_%make-signature205868%_ + _%L206360%_ + _%L206359%_ + _%L206357%_ '#f))) - (_%__kont207583207584%_ - (lambda (_%L205149%_ _%L205151%_ _%L205152%_) - (_%make-signature204736%_ - _%L205152%_ - _%L205151%_ - _%L205149%_ - (let ((__tmp207937 + (_%__kont208715208716%_ + (lambda (_%L206281%_ _%L206283%_ _%L206284%_) + (_%make-signature205868%_ + _%L206284%_ + _%L206283%_ + _%L206281%_ + (let ((__tmp209069 (let () (declare (not safe)) - (gx#stx-e _%proc204731%_)))) + (gx#stx-e _%proc205863%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp207937))))) - (_%__kont207585207586%_ - (lambda (_%L205055%_ _%L205057%_ _%L205058%_ _%L205059%_) - (_%make-signature204736%_ - _%L205059%_ - _%L205058%_ + (make-symbol__1 '"##" __tmp209069))))) + (_%__kont208717208718%_ + (lambda (_%L206187%_ _%L206189%_ _%L206190%_ _%L206191%_) + (_%make-signature205868%_ + _%L206191%_ + _%L206190%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L205055%_))))) - (_%__kont207587207588%_ - (lambda (_%L204962%_ _%L204964%_) - (_%make-signature204736%_ - _%L204964%_ - _%L204962%_ + (let () (declare (not safe)) (gx#stx-e _%L206187%_))))) + (_%__kont208719208720%_ + (lambda (_%L206094%_ _%L206096%_) + (_%make-signature205868%_ + _%L206096%_ + _%L206094%_ '#f - (let ((__tmp207938 + (let ((__tmp209070 (let () (declare (not safe)) - (gx#stx-e _%proc204731%_)))) + (gx#stx-e _%proc205863%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp207938))))) - (_%__kont207589207590%_ - (lambda (_%L204897%_ _%L204899%_ _%L204900%_) - (_%make-signature204736%_ - _%L204900%_ - _%L204899%_ + (make-symbol__1 '"##" __tmp209070))))) + (_%__kont208721208722%_ + (lambda (_%L206029%_ _%L206031%_ _%L206032%_) + (_%make-signature205868%_ + _%L206032%_ + _%L206031%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L204897%_)))))) + (let () (declare (not safe)) (gx#stx-e _%L206029%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx207576207577%_)) - (let ((_%e204747205254%_ + (gx#stx-pair? _%__stx208708208709%_)) + (let ((_%e205879206386%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx207576207577%_)))) - (let ((_%tl204749205261%_ + (gx#syntax-e _%__stx208708208709%_)))) + (let ((_%tl205881206393%_ (let () (declare (not safe)) - (##cdr _%e204747205254%_))) - (_%hd204748205258%_ + (##cdr _%e205879206386%_))) + (_%hd205880206390%_ (let () (declare (not safe)) - (##car _%e204747205254%_)))) + (##car _%e205879206386%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204749205261%_)) - (let ((_%e204750205264%_ + (gx#stx-pair? _%tl205881206393%_)) + (let ((_%e205882206396%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204749205261%_)))) - (let ((_%tl204752205271%_ + (gx#syntax-e _%tl205881206393%_)))) + (let ((_%tl205884206403%_ (let () (declare (not safe)) - (##cdr _%e204750205264%_))) - (_%hd204751205268%_ + (##cdr _%e205882206396%_))) + (_%hd205883206400%_ (let () (declare (not safe)) - (##car _%e204750205264%_)))) + (##car _%e205882206396%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204752205271%_)) - (_%__kont207579207580%_ - _%hd204751205268%_ - _%hd204748205258%_) + (gx#stx-null? _%tl205884206403%_)) + (_%__kont208711208712%_ + _%hd205883206400%_ + _%hd205880206390%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204752205271%_)) - (let ((_%e204762205201%_ + (gx#stx-pair? _%tl205884206403%_)) + (let ((_%e205894206333%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204752205271%_)))) - (let ((_%tl204764205208%_ + _%tl205884206403%_)))) + (let ((_%tl205896206340%_ (let () (declare (not safe)) - (##cdr _%e204762205201%_))) - (_%hd204763205205%_ + (##cdr _%e205894206333%_))) + (_%hd205895206337%_ (let () (declare (not safe)) - (##car _%e204762205201%_)))) + (##car _%e205894206333%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204763205205%_)) - (let ((_%e204765205211%_ + _%hd205895206337%_)) + (let ((_%e205897206343%_ (let () (declare (not safe)) (gx#stx-e - _%hd204763205205%_)))) - (if (equal? _%e204765205211%_ + _%hd205895206337%_)))) + (if (equal? _%e205897206343%_ 'effect:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204764205208%_)) - (let ((_%e204766205215%_ + _%tl205896206340%_)) + (let ((_%e205898206347%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl204764205208%_)))) - (let ((_%tl204768205222%_ + (gx#syntax-e _%tl205896206340%_)))) + (let ((_%tl205900206354%_ (let () (declare (not safe)) - (##cdr _%e204766205215%_))) - (_%hd204767205219%_ + (##cdr _%e205898206347%_))) + (_%hd205899206351%_ (let () (declare (not safe)) - (##car _%e204766205215%_)))) + (##car _%e205898206347%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204768205222%_)) - (_%__kont207581207582%_ - _%hd204767205219%_ - _%hd204751205268%_ - _%hd204748205258%_) + (gx#stx-null? _%tl205900206354%_)) + (_%__kont208713208714%_ + _%hd205899206351%_ + _%hd205883206400%_ + _%hd205880206390%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204768205222%_)) - (let ((_%e204785205135%_ + (gx#stx-pair? _%tl205900206354%_)) + (let ((_%e205917206267%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204768205222%_)))) - (let ((_%tl204787205142%_ + (gx#syntax-e _%tl205900206354%_)))) + (let ((_%tl205919206274%_ (let () (declare (not safe)) - (##cdr _%e204785205135%_))) - (_%hd204786205139%_ + (##cdr _%e205917206267%_))) + (_%hd205918206271%_ (let () (declare (not safe)) - (##car _%e204785205135%_)))) + (##car _%e205917206267%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204786205139%_)) - (let ((_%e204788205145%_ + (gx#stx-datum? _%hd205918206271%_)) + (let ((_%e205920206277%_ (let () (declare (not safe)) - (gx#stx-e _%hd204786205139%_)))) - (if (equal? _%e204788205145%_ + (gx#stx-e _%hd205918206271%_)))) + (if (equal? _%e205920206277%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204787205142%_)) - (_%__kont207583207584%_ - _%hd204767205219%_ - _%hd204751205268%_ - _%hd204748205258%_) + _%tl205919206274%_)) + (_%__kont208715208716%_ + _%hd205899206351%_ + _%hd205883206400%_ + _%hd205880206390%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204787205142%_)) - (let ((_%e204810205045%_ + _%tl205919206274%_)) + (let ((_%e205942206177%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204787205142%_)))) - (let ((_%tl204812205052%_ + _%tl205919206274%_)))) + (let ((_%tl205944206184%_ (let () (declare (not safe)) - (##cdr _%e204810205045%_))) - (_%hd204811205049%_ + (##cdr _%e205942206177%_))) + (_%hd205943206181%_ (let () (declare (not safe)) - (##car _%e204810205045%_)))) + (##car _%e205942206177%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204812205052%_)) - (_%__kont207585207586%_ - _%hd204811205049%_ - _%hd204767205219%_ - _%hd204751205268%_ - _%hd204748205258%_) + _%tl205944206184%_)) + (_%__kont208717208718%_ + _%hd205943206181%_ + _%hd205899206351%_ + _%hd205883206400%_ + _%hd205880206390%_) (let () (declare (not safe)) - (_%g204743204846%_))))) + (_%g205875205978%_))))) (let () (declare (not safe)) - (_%g204743204846%_)))) + (_%g205875205978%_)))) (let () (declare (not safe)) - (_%g204743204846%_)))) + (_%g205875205978%_)))) (let () (declare (not safe)) - (_%g204743204846%_))))) + (_%g205875205978%_))))) (let () (declare (not safe)) - (_%g204743204846%_)))))) - (let () (declare (not safe)) (_%g204743204846%_))) + (_%g205875205978%_)))))) + (let () (declare (not safe)) (_%g205875205978%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e204765205211%_ + (if (equal? _%e205897206343%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204764205208%_)) - (_%__kont207587207588%_ - _%hd204751205268%_ - _%hd204748205258%_) + _%tl205896206340%_)) + (_%__kont208719208720%_ + _%hd205883206400%_ + _%hd205880206390%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl204764205208%_)) - (let ((_%e204838204887%_ + (gx#stx-pair? _%tl205896206340%_)) + (let ((_%e205970206019%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204764205208%_)))) - (let ((_%tl204840204894%_ + (gx#syntax-e _%tl205896206340%_)))) + (let ((_%tl205972206026%_ (let () (declare (not safe)) - (##cdr _%e204838204887%_))) - (_%hd204839204891%_ + (##cdr _%e205970206019%_))) + (_%hd205971206023%_ (let () (declare (not safe)) - (##car _%e204838204887%_)))) + (##car _%e205970206019%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204840204894%_)) - (_%__kont207589207590%_ - _%hd204839204891%_ - _%hd204751205268%_ - _%hd204748205258%_) + (gx#stx-null? _%tl205972206026%_)) + (_%__kont208721208722%_ + _%hd205971206023%_ + _%hd205883206400%_ + _%hd205880206390%_) (let () (declare (not safe)) - (_%g204743204846%_))))) - (let () (declare (not safe)) (_%g204743204846%_)))) - (let () (declare (not safe)) (_%g204743204846%_))))) + (_%g205875205978%_))))) + (let () (declare (not safe)) (_%g205875205978%_)))) + (let () (declare (not safe)) (_%g205875205978%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g204743204846%_))))) + (_%g205875205978%_))))) (let () (declare (not safe)) - (_%g204743204846%_)))))) - (let () (declare (not safe)) (_%g204743204846%_))))) - (let () (declare (not safe)) (_%g204743204846%_)))))))) + (_%g205875205978%_)))))) + (let () (declare (not safe)) (_%g205875205978%_))))) + (let () (declare (not safe)) (_%g205875205978%_)))))))) (define |gxc[1]#signature->unchecked-signature| - (lambda (_%sig204340%_) - (let* ((_%g204343204423%_ - (lambda (_%g204344204419%_) + (lambda (_%sig205472%_) + (let* ((_%g205475205555%_ + (lambda (_%g205476205551%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204344204419%_)))) - (_%g204342204725%_ - (lambda (_%g204344204427%_) + _%g205476205551%_)))) + (_%g205474205857%_ + (lambda (_%g205476205559%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204344204427%_)) - (let ((_%e204350204430%_ + (gx#stx-pair? _%g205476205559%_)) + (let ((_%e205482205562%_ (let () (declare (not safe)) - (gx#syntax-e _%g204344204427%_)))) - (let ((_%hd204351204434%_ + (gx#syntax-e _%g205476205559%_)))) + (let ((_%hd205483205566%_ (let () (declare (not safe)) - (##car _%e204350204430%_))) - (_%tl204352204437%_ + (##car _%e205482205562%_))) + (_%tl205484205569%_ (let () (declare (not safe)) - (##cdr _%e204350204430%_)))) + (##cdr _%e205482205562%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204352204437%_)) - (let ((_%e204353204440%_ + (gx#stx-pair? _%tl205484205569%_)) + (let ((_%e205485205572%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204352204437%_)))) - (let ((_%hd204354204444%_ + (gx#syntax-e _%tl205484205569%_)))) + (let ((_%hd205486205576%_ (let () (declare (not safe)) - (##car _%e204353204440%_))) - (_%tl204355204447%_ + (##car _%e205485205572%_))) + (_%tl205487205579%_ (let () (declare (not safe)) - (##cdr _%e204353204440%_)))) + (##cdr _%e205485205572%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204354204444%_)) - (let ((_%e204356204450%_ + (gx#stx-datum? _%hd205486205576%_)) + (let ((_%e205488205582%_ (let () (declare (not safe)) - (gx#stx-e _%hd204354204444%_)))) - (if (equal? _%e204356204450%_ + (gx#stx-e _%hd205486205576%_)))) + (if (equal? _%e205488205582%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204355204447%_)) - (let ((_%e204357204454%_ + _%tl205487205579%_)) + (let ((_%e205489205586%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204355204447%_)))) - (let ((_%hd204358204458%_ + _%tl205487205579%_)))) + (let ((_%hd205490205590%_ (let () (declare (not safe)) - (##car _%e204357204454%_))) - (_%tl204359204461%_ + (##car _%e205489205586%_))) + (_%tl205491205593%_ (let () (declare (not safe)) - (##cdr _%e204357204454%_)))) + (##cdr _%e205489205586%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204358204458%_)) - (let ((_%e204360204464%_ + _%hd205490205590%_)) + (let ((_%e205492205596%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd204358204458%_)))) - (let ((_%hd204361204468%_ + (gx#syntax-e _%hd205490205590%_)))) + (let ((_%hd205493205600%_ (let () (declare (not safe)) - (##car _%e204360204464%_))) - (_%tl204362204471%_ + (##car _%e205492205596%_))) + (_%tl205494205603%_ (let () (declare (not safe)) - (##cdr _%e204360204464%_)))) + (##cdr _%e205492205596%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd204361204468%_)) - (if (let ((__tmp207939 |gxc[1]#_g207940_|)) + (gx#identifier? _%hd205493205600%_)) + (if (let ((__tmp209071 |gxc[1]#_g209072_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207939 - _%hd204361204468%_)) + __tmp209071 + _%hd205493205600%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204362204471%_)) - (let ((_%e204363204474%_ + (gx#stx-pair? _%tl205494205603%_)) + (let ((_%e205495205606%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204362204471%_)))) - (let ((_%hd204364204478%_ + (gx#syntax-e _%tl205494205603%_)))) + (let ((_%hd205496205610%_ (let () (declare (not safe)) - (##car _%e204363204474%_))) - (_%tl204365204481%_ + (##car _%e205495205606%_))) + (_%tl205497205613%_ (let () (declare (not safe)) - (##cdr _%e204363204474%_)))) + (##cdr _%e205495205606%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204365204481%_)) + (gx#stx-null? _%tl205497205613%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204359204461%_)) - (let ((_%e204366204484%_ + _%tl205491205593%_)) + (let ((_%e205498205616%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204359204461%_)))) - (let ((_%hd204367204488%_ + _%tl205491205593%_)))) + (let ((_%hd205499205620%_ (let () (declare (not safe)) - (##car _%e204366204484%_))) - (_%tl204368204491%_ + (##car _%e205498205616%_))) + (_%tl205500205623%_ (let () (declare (not safe)) - (##cdr _%e204366204484%_)))) + (##cdr _%e205498205616%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204367204488%_)) - (let ((_%e204369204494%_ + _%hd205499205620%_)) + (let ((_%e205501205626%_ (let () (declare (not safe)) (gx#stx-e - _%hd204367204488%_)))) - (if (equal? _%e204369204494%_ + _%hd205499205620%_)))) + (if (equal? _%e205501205626%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204368204491%_)) - (let ((_%e204370204498%_ + (gx#stx-pair? _%tl205500205623%_)) + (let ((_%e205502205630%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204368204491%_)))) - (let ((_%hd204371204502%_ + (gx#syntax-e _%tl205500205623%_)))) + (let ((_%hd205503205634%_ (let () (declare (not safe)) - (##car _%e204370204498%_))) - (_%tl204372204505%_ + (##car _%e205502205630%_))) + (_%tl205504205637%_ (let () (declare (not safe)) - (##cdr _%e204370204498%_)))) + (##cdr _%e205502205630%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd204371204502%_)) - (let ((_%e204373204508%_ + (gx#stx-pair? _%hd205503205634%_)) + (let ((_%e205505205640%_ (let () (declare (not safe)) - (gx#syntax-e _%hd204371204502%_)))) - (let ((_%hd204374204512%_ + (gx#syntax-e _%hd205503205634%_)))) + (let ((_%hd205506205644%_ (let () (declare (not safe)) - (##car _%e204373204508%_))) - (_%tl204375204515%_ + (##car _%e205505205640%_))) + (_%tl205507205647%_ (let () (declare (not safe)) - (##cdr _%e204373204508%_)))) + (##cdr _%e205505205640%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd204374204512%_)) - (if (let ((__tmp207941 - |gxc[1]#_g207942_|)) + (gx#identifier? _%hd205506205644%_)) + (if (let ((__tmp209073 + |gxc[1]#_g209074_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207941 - _%hd204374204512%_)) + __tmp209073 + _%hd205506205644%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204375204515%_)) - (let ((_%e204376204518%_ + _%tl205507205647%_)) + (let ((_%e205508205650%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204375204515%_)))) - (let ((_%hd204377204522%_ + _%tl205507205647%_)))) + (let ((_%hd205509205654%_ (let () (declare (not safe)) - (##car _%e204376204518%_))) - (_%tl204378204525%_ + (##car _%e205508205650%_))) + (_%tl205510205657%_ (let () (declare (not safe)) - (##cdr _%e204376204518%_)))) + (##cdr _%e205508205650%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204378204525%_)) + _%tl205510205657%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204372204505%_)) - (let ((_%e204379204528%_ + _%tl205504205637%_)) + (let ((_%e205511205660%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl204372204505%_)))) - (let ((_%hd204380204532%_ + (gx#syntax-e _%tl205504205637%_)))) + (let ((_%hd205512205664%_ (let () (declare (not safe)) - (##car _%e204379204528%_))) - (_%tl204381204535%_ + (##car _%e205511205660%_))) + (_%tl205513205667%_ (let () (declare (not safe)) - (##cdr _%e204379204528%_)))) + (##cdr _%e205511205660%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204380204532%_)) - (let ((_%e204382204538%_ + (gx#stx-datum? _%hd205512205664%_)) + (let ((_%e205514205670%_ (let () (declare (not safe)) - (gx#stx-e _%hd204380204532%_)))) - (if (equal? _%e204382204538%_ 'effect:) + (gx#stx-e _%hd205512205664%_)))) + (if (equal? _%e205514205670%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204381204535%_)) - (let ((_%e204383204542%_ + (gx#stx-pair? _%tl205513205667%_)) + (let ((_%e205515205674%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204381204535%_)))) - (let ((_%hd204384204546%_ + _%tl205513205667%_)))) + (let ((_%hd205516205678%_ (let () (declare (not safe)) - (##car _%e204383204542%_))) - (_%tl204385204549%_ + (##car _%e205515205674%_))) + (_%tl205517205681%_ (let () (declare (not safe)) - (##cdr _%e204383204542%_)))) + (##cdr _%e205515205674%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204384204546%_)) - (let ((_%e204386204552%_ + _%hd205516205678%_)) + (let ((_%e205518205684%_ (let () (declare (not safe)) (gx#syntax-e - _%hd204384204546%_)))) - (let ((_%hd204387204556%_ + _%hd205516205678%_)))) + (let ((_%hd205519205688%_ (let () (declare (not safe)) - (##car _%e204386204552%_))) - (_%tl204388204559%_ + (##car _%e205518205684%_))) + (_%tl205520205691%_ (let () (declare (not safe)) - (##cdr _%e204386204552%_)))) + (##cdr _%e205518205684%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd204387204556%_)) - (if (let ((__tmp207943 - |gxc[1]#_g207944_|)) + _%hd205519205688%_)) + (if (let ((__tmp209075 + |gxc[1]#_g209076_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207943 - _%hd204387204556%_)) + __tmp209075 + _%hd205519205688%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204388204559%_)) - (let ((_%e204389204562%_ + _%tl205520205691%_)) + (let ((_%e205521205694%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl204388204559%_)))) - (let ((_%hd204390204566%_ + (gx#syntax-e _%tl205520205691%_)))) + (let ((_%hd205522205698%_ (let () (declare (not safe)) - (##car _%e204389204562%_))) - (_%tl204391204569%_ + (##car _%e205521205694%_))) + (_%tl205523205701%_ (let () (declare (not safe)) - (##cdr _%e204389204562%_)))) + (##cdr _%e205521205694%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204391204569%_)) + (gx#stx-null? _%tl205523205701%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204385204549%_)) - (let ((_%e204392204572%_ + (gx#stx-pair? _%tl205517205681%_)) + (let ((_%e205524205704%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204385204549%_)))) - (let ((_%hd204393204576%_ + (gx#syntax-e _%tl205517205681%_)))) + (let ((_%hd205525205708%_ (let () (declare (not safe)) - (##car _%e204392204572%_))) - (_%tl204394204579%_ + (##car _%e205524205704%_))) + (_%tl205526205711%_ (let () (declare (not safe)) - (##cdr _%e204392204572%_)))) + (##cdr _%e205524205704%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204393204576%_)) - (let ((_%e204395204582%_ + (gx#stx-datum? _%hd205525205708%_)) + (let ((_%e205527205714%_ (let () (declare (not safe)) (gx#stx-e - _%hd204393204576%_)))) - (if (equal? _%e204395204582%_ + _%hd205525205708%_)))) + (if (equal? _%e205527205714%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204394204579%_)) - (let ((_%e204396204586%_ + _%tl205526205711%_)) + (let ((_%e205528205718%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204394204579%_)))) - (let ((_%hd204397204590%_ + _%tl205526205711%_)))) + (let ((_%hd205529205722%_ (let () (declare (not safe)) - (##car _%e204396204586%_))) - (_%tl204398204593%_ + (##car _%e205528205718%_))) + (_%tl205530205725%_ (let () (declare (not safe)) - (##cdr _%e204396204586%_)))) + (##cdr _%e205528205718%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204397204590%_)) - (let ((_%e204399204596%_ + _%hd205529205722%_)) + (let ((_%e205531205728%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd204397204590%_)))) - (let ((_%hd204400204600%_ + (gx#syntax-e _%hd205529205722%_)))) + (let ((_%hd205532205732%_ (let () (declare (not safe)) - (##car _%e204399204596%_))) - (_%tl204401204603%_ + (##car _%e205531205728%_))) + (_%tl205533205735%_ (let () (declare (not safe)) - (##cdr _%e204399204596%_)))) + (##cdr _%e205531205728%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd204400204600%_)) - (if (let ((__tmp207945 |gxc[1]#_g207946_|)) + (gx#identifier? _%hd205532205732%_)) + (if (let ((__tmp209077 |gxc[1]#_g209078_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207945 - _%hd204400204600%_)) + __tmp209077 + _%hd205532205732%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204401204603%_)) - (let ((_%e204402204606%_ + (gx#stx-pair? _%tl205533205735%_)) + (let ((_%e205534205738%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204401204603%_)))) - (let ((_%hd204403204610%_ + (gx#syntax-e _%tl205533205735%_)))) + (let ((_%hd205535205742%_ (let () (declare (not safe)) - (##car _%e204402204606%_))) - (_%tl204404204613%_ + (##car _%e205534205738%_))) + (_%tl205536205745%_ (let () (declare (not safe)) - (##cdr _%e204402204606%_)))) + (##cdr _%e205534205738%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204404204613%_)) + (gx#stx-null? _%tl205536205745%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204398204593%_)) - (let ((_%e204405204616%_ + _%tl205530205725%_)) + (let ((_%e205537205748%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204398204593%_)))) - (let ((_%hd204406204620%_ + _%tl205530205725%_)))) + (let ((_%hd205538205752%_ (let () (declare (not safe)) - (##car _%e204405204616%_))) - (_%tl204407204623%_ + (##car _%e205537205748%_))) + (_%tl205539205755%_ (let () (declare (not safe)) - (##cdr _%e204405204616%_)))) + (##cdr _%e205537205748%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204406204620%_)) - (let ((_%e204408204626%_ + _%hd205538205752%_)) + (let ((_%e205540205758%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd204406204620%_)))) - (if (equal? _%e204408204626%_ 'origin:) + (gx#stx-e _%hd205538205752%_)))) + (if (equal? _%e205540205758%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204407204623%_)) - (let ((_%e204409204630%_ + (gx#stx-pair? _%tl205539205755%_)) + (let ((_%e205541205762%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204407204623%_)))) - (let ((_%hd204410204634%_ + (gx#syntax-e _%tl205539205755%_)))) + (let ((_%hd205542205766%_ (let () (declare (not safe)) - (##car _%e204409204630%_))) - (_%tl204411204637%_ + (##car _%e205541205762%_))) + (_%tl205543205769%_ (let () (declare (not safe)) - (##cdr _%e204409204630%_)))) + (##cdr _%e205541205762%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd204410204634%_)) - (let ((_%e204412204640%_ + (gx#stx-pair? _%hd205542205766%_)) + (let ((_%e205544205772%_ (let () (declare (not safe)) - (gx#syntax-e _%hd204410204634%_)))) - (let ((_%hd204413204644%_ + (gx#syntax-e _%hd205542205766%_)))) + (let ((_%hd205545205776%_ (let () (declare (not safe)) - (##car _%e204412204640%_))) - (_%tl204414204647%_ + (##car _%e205544205772%_))) + (_%tl205546205779%_ (let () (declare (not safe)) - (##cdr _%e204412204640%_)))) + (##cdr _%e205544205772%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd204413204644%_)) - (if (let ((__tmp207947 - |gxc[1]#_g207948_|)) + (gx#identifier? _%hd205545205776%_)) + (if (let ((__tmp209079 + |gxc[1]#_g209080_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207947 - _%hd204413204644%_)) + __tmp209079 + _%hd205545205776%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204414204647%_)) - (let ((_%e204415204650%_ + _%tl205546205779%_)) + (let ((_%e205547205782%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204414204647%_)))) - (let ((_%hd204416204654%_ + _%tl205546205779%_)))) + (let ((_%hd205548205786%_ (let () (declare (not safe)) - (##car _%e204415204650%_))) - (_%tl204417204657%_ + (##car _%e205547205782%_))) + (_%tl205549205789%_ (let () (declare (not safe)) - (##cdr _%e204415204650%_)))) + (##cdr _%e205547205782%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204417204657%_)) + _%tl205549205789%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204411204637%_)) - ((lambda (_%L204660%_ + _%tl205543205769%_)) + ((lambda (_%L205792%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L204662%_ - _%L204663%_ - _%L204664%_ - _%L204665%_) - (if (let () (declare (not safe)) (gx#stx-e _%L204662%_)) - (cons _%L204662%_ + _%L205794%_ + _%L205795%_ + _%L205796%_ + _%L205797%_) + (if (let () (declare (not safe)) (gx#stx-e _%L205794%_)) + (cons _%L205794%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4685,180 +4681,180 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204664%_ '())) + (cons _%L205796%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204660%_ '())) + (cons _%L205792%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '#f)) - _%hd204416204654%_ - _%hd204403204610%_ - _%hd204390204566%_ - _%hd204377204522%_ - _%hd204364204478%_) - (_%g204343204423%_ _%g204344204427%_)) - (_%g204343204423%_ _%g204344204427%_)))) + _%hd205548205786%_ + _%hd205535205742%_ + _%hd205522205698%_ + _%hd205509205654%_ + _%hd205496205610%_) + (_%g205475205555%_ _%g205476205559%_)) + (_%g205475205555%_ _%g205476205559%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204343204423%_ - _%g204344204427%_)) - (_%g204343204423%_ - _%g204344204427%_)) - (_%g204343204423%_ - _%g204344204427%_)))) - (_%g204343204423%_ _%g204344204427%_)))) - (_%g204343204423%_ _%g204344204427%_)) - (_%g204343204423%_ _%g204344204427%_))) - (_%g204343204423%_ _%g204344204427%_)))) + (_%g205475205555%_ + _%g205476205559%_)) + (_%g205475205555%_ + _%g205476205559%_)) + (_%g205475205555%_ + _%g205476205559%_)))) + (_%g205475205555%_ _%g205476205559%_)))) + (_%g205475205555%_ _%g205476205559%_)) + (_%g205475205555%_ _%g205476205559%_))) + (_%g205475205555%_ _%g205476205559%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204343204423%_ - _%g204344204427%_)) - (_%g204343204423%_ - _%g204344204427%_)))) - (_%g204343204423%_ _%g204344204427%_)) - (_%g204343204423%_ _%g204344204427%_)) - (_%g204343204423%_ _%g204344204427%_)))) - (_%g204343204423%_ _%g204344204427%_)))) + (_%g205475205555%_ + _%g205476205559%_)) + (_%g205475205555%_ + _%g205476205559%_)))) + (_%g205475205555%_ _%g205476205559%_)) + (_%g205475205555%_ _%g205476205559%_)) + (_%g205475205555%_ _%g205476205559%_)))) + (_%g205475205555%_ _%g205476205559%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204343204423%_ - _%g204344204427%_)) - (_%g204343204423%_ - _%g204344204427%_))) - (_%g204343204423%_ - _%g204344204427%_)))) - (_%g204343204423%_ _%g204344204427%_)) - (_%g204343204423%_ _%g204344204427%_)))) - (_%g204343204423%_ _%g204344204427%_)) - (_%g204343204423%_ _%g204344204427%_)) + (_%g205475205555%_ + _%g205476205559%_)) + (_%g205475205555%_ + _%g205476205559%_))) + (_%g205475205555%_ + _%g205476205559%_)))) + (_%g205475205555%_ _%g205476205559%_)) + (_%g205475205555%_ _%g205476205559%_)))) + (_%g205475205555%_ _%g205476205559%_)) + (_%g205475205555%_ _%g205476205559%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204343204423%_ - _%g204344204427%_)))) - (_%g204343204423%_ - _%g204344204427%_)))) - (_%g204343204423%_ _%g204344204427%_)) - (_%g204343204423%_ _%g204344204427%_))) - (_%g204343204423%_ _%g204344204427%_)))) - (_%g204343204423%_ _%g204344204427%_)) - (_%g204343204423%_ _%g204344204427%_)))) + (_%g205475205555%_ + _%g205476205559%_)))) + (_%g205475205555%_ + _%g205476205559%_)))) + (_%g205475205555%_ _%g205476205559%_)) + (_%g205475205555%_ _%g205476205559%_))) + (_%g205475205555%_ _%g205476205559%_)))) + (_%g205475205555%_ _%g205476205559%_)) + (_%g205475205555%_ _%g205476205559%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204343204423%_ - _%g204344204427%_)) - (_%g204343204423%_ - _%g204344204427%_)) - (_%g204343204423%_ _%g204344204427%_)))) - (_%g204343204423%_ _%g204344204427%_)))) - (_%g204343204423%_ _%g204344204427%_)) - (_%g204343204423%_ _%g204344204427%_))) + (_%g205475205555%_ + _%g205476205559%_)) + (_%g205475205555%_ + _%g205476205559%_)) + (_%g205475205555%_ _%g205476205559%_)))) + (_%g205475205555%_ _%g205476205559%_)))) + (_%g205475205555%_ _%g205476205559%_)) + (_%g205475205555%_ _%g205476205559%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204343204423%_ - _%g204344204427%_)))) - (_%g204343204423%_ - _%g204344204427%_)) - (_%g204343204423%_ - _%g204344204427%_)))) - (_%g204343204423%_ _%g204344204427%_)) - (_%g204343204423%_ _%g204344204427%_)) - (_%g204343204423%_ _%g204344204427%_)))) - (_%g204343204423%_ _%g204344204427%_)))) + (_%g205475205555%_ + _%g205476205559%_)))) + (_%g205475205555%_ + _%g205476205559%_)) + (_%g205475205555%_ + _%g205476205559%_)))) + (_%g205475205555%_ _%g205476205559%_)) + (_%g205475205555%_ _%g205476205559%_)) + (_%g205475205555%_ _%g205476205559%_)))) + (_%g205475205555%_ _%g205476205559%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204343204423%_ - _%g204344204427%_)) - (_%g204343204423%_ - _%g204344204427%_))) - (_%g204343204423%_ _%g204344204427%_)))) - (_%g204343204423%_ _%g204344204427%_)))) - (_%g204343204423%_ _%g204344204427%_))))) - (_%g204342204725%_ _%sig204340%_)))) + (_%g205475205555%_ + _%g205476205559%_)) + (_%g205475205555%_ + _%g205476205559%_))) + (_%g205475205555%_ _%g205476205559%_)))) + (_%g205475205555%_ _%g205476205559%_)))) + (_%g205475205555%_ _%g205476205559%_))))) + (_%g205474205857%_ _%sig205472%_)))) (define |gxc[:0:]#declare-primitive-predicate| - (lambda (_%stx205497%_) - (let* ((_%g205500205518%_ - (lambda (_%g205501205514%_) + (lambda (_%stx206629%_) + (let* ((_%g206632206650%_ + (lambda (_%g206633206646%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205501205514%_)))) - (_%g205499205573%_ - (lambda (_%g205501205522%_) + _%g206633206646%_)))) + (_%g206631206705%_ + (lambda (_%g206633206654%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205501205522%_)) - (let ((_%e205504205525%_ + (gx#stx-pair? _%g206633206654%_)) + (let ((_%e206636206657%_ (let () (declare (not safe)) - (gx#syntax-e _%g205501205522%_)))) - (let ((_%hd205505205529%_ + (gx#syntax-e _%g206633206654%_)))) + (let ((_%hd206637206661%_ (let () (declare (not safe)) - (##car _%e205504205525%_))) - (_%tl205506205532%_ + (##car _%e206636206657%_))) + (_%tl206638206664%_ (let () (declare (not safe)) - (##cdr _%e205504205525%_)))) + (##cdr _%e206636206657%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205506205532%_)) - (let ((_%e205507205535%_ + (gx#stx-pair? _%tl206638206664%_)) + (let ((_%e206639206667%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205506205532%_)))) - (let ((_%hd205508205539%_ + (gx#syntax-e _%tl206638206664%_)))) + (let ((_%hd206640206671%_ (let () (declare (not safe)) - (##car _%e205507205535%_))) - (_%tl205509205542%_ + (##car _%e206639206667%_))) + (_%tl206641206674%_ (let () (declare (not safe)) - (##cdr _%e205507205535%_)))) + (##cdr _%e206639206667%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205509205542%_)) - (let ((_%e205510205545%_ + (gx#stx-pair? _%tl206641206674%_)) + (let ((_%e206642206677%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205509205542%_)))) - (let ((_%hd205511205549%_ + _%tl206641206674%_)))) + (let ((_%hd206643206681%_ (let () (declare (not safe)) - (##car _%e205510205545%_))) - (_%tl205512205552%_ + (##car _%e206642206677%_))) + (_%tl206644206684%_ (let () (declare (not safe)) - (##cdr _%e205510205545%_)))) + (##cdr _%e206642206677%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205512205552%_)) - ((lambda (_%L205555%_ - _%L205557%_) + _%tl206644206684%_)) + ((lambda (_%L206687%_ + _%L206689%_) (if (and (let () (declare (not safe)) (gx#identifier? - _%L205557%_)) + _%L206689%_)) (let () (declare (not safe)) (gx#identifier? - _%L205555%_))) + _%L206687%_))) (begin (|gxc[1]#verify-procedure!| - _%stx205497%_ - _%L205557%_) + _%stx206629%_ + _%L206689%_) (|gxc[1]#verify-class!| - _%stx205497%_ - _%L205555%_) + _%stx206629%_ + _%L206687%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L205557%_ + (cons _%L206689%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4869,268 +4865,268 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205555%_ '())) + (cons _%L206687%_ '())) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205500205518%_ - _%g205501205522%_))) - _%hd205511205549%_ - _%hd205508205539%_) - (_%g205500205518%_ - _%g205501205522%_)))) - (_%g205500205518%_ _%g205501205522%_)))) - (_%g205500205518%_ _%g205501205522%_)))) - (_%g205500205518%_ _%g205501205522%_))))) - (_%g205499205573%_ _%stx205497%_)))) + (_%g206632206650%_ + _%g206633206654%_))) + _%hd206643206681%_ + _%hd206640206671%_) + (_%g206632206650%_ + _%g206633206654%_)))) + (_%g206632206650%_ _%g206633206654%_)))) + (_%g206632206650%_ _%g206633206654%_)))) + (_%g206632206650%_ _%g206633206654%_))))) + (_%g206631206705%_ _%stx206629%_)))) (define |gxc[:0:]#declare-primitive-lambda| - (lambda (_%stx205577%_) - (let* ((_%g205580205604%_ - (lambda (_%g205581205600%_) + (lambda (_%stx206709%_) + (let* ((_%g206712206736%_ + (lambda (_%g206713206732%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205581205600%_)))) - (_%g205579205887%_ - (lambda (_%g205581205608%_) + _%g206713206732%_)))) + (_%g206711207019%_ + (lambda (_%g206713206740%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205581205608%_)) - (let ((_%e205584205611%_ + (gx#stx-pair? _%g206713206740%_)) + (let ((_%e206716206743%_ (let () (declare (not safe)) - (gx#syntax-e _%g205581205608%_)))) - (let ((_%hd205585205615%_ + (gx#syntax-e _%g206713206740%_)))) + (let ((_%hd206717206747%_ (let () (declare (not safe)) - (##car _%e205584205611%_))) - (_%tl205586205618%_ + (##car _%e206716206743%_))) + (_%tl206718206750%_ (let () (declare (not safe)) - (##cdr _%e205584205611%_)))) + (##cdr _%e206716206743%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205586205618%_)) - (let ((_%e205587205621%_ + (gx#stx-pair? _%tl206718206750%_)) + (let ((_%e206719206753%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205586205618%_)))) - (let ((_%hd205588205625%_ + (gx#syntax-e _%tl206718206750%_)))) + (let ((_%hd206720206757%_ (let () (declare (not safe)) - (##car _%e205587205621%_))) - (_%tl205589205628%_ + (##car _%e206719206753%_))) + (_%tl206721206760%_ (let () (declare (not safe)) - (##cdr _%e205587205621%_)))) + (##cdr _%e206719206753%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205589205628%_)) - (let ((_g207949_ + (gx#stx-pair/null? _%tl206721206760%_)) + (let ((_g209081_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205589205628%_ + _%tl206721206760%_ '0)))) (begin - (let ((_g207950_ + (let ((_g209082_ (let () (declare (not safe)) - (if (##values? _g207949_) + (if (##values? _g209081_) (##vector-length - _g207949_) + _g209081_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207950_ 2))) + (##fx= _g209082_ 2))) (error "Context expects 2 values" - _g207950_))) - (let ((_%target205590205631%_ + _g209082_))) + (let ((_%target206722206763%_ (let () (declare (not safe)) - (##vector-ref _g207949_ 0))) - (_%tl205592205634%_ + (##vector-ref _g209081_ 0))) + (_%tl206724206766%_ (let () (declare (not safe)) (##vector-ref - _g207949_ + _g209081_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205592205634%_)) - (letrec ((_%loop205593205637%_ - (lambda (_%hd205591205641%_ + _%tl206724206766%_)) + (letrec ((_%loop206725206769%_ + (lambda (_%hd206723206773%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signature205597205644%_) + _%signature206729206776%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205591205641%_)) - (let ((_%e205594205647%_ + (gx#stx-pair? _%hd206723206773%_)) + (let ((_%e206726206779%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205591205641%_)))) - (let ((_%lp-hd205595205651%_ + (gx#syntax-e _%hd206723206773%_)))) + (let ((_%lp-hd206727206783%_ (let () (declare (not safe)) - (##car _%e205594205647%_))) - (_%lp-tl205596205654%_ + (##car _%e206726206779%_))) + (_%lp-tl206728206786%_ (let () (declare (not safe)) - (##cdr _%e205594205647%_)))) - (_%loop205593205637%_ - _%lp-tl205596205654%_ - (cons _%lp-hd205595205651%_ - _%signature205597205644%_)))) - (let ((_%signature205598205657%_ - (reverse _%signature205597205644%_))) - ((lambda (_%L205661%_ _%L205663%_) + (##cdr _%e206726206779%_)))) + (_%loop206725206769%_ + _%lp-tl206728206786%_ + (cons _%lp-hd206727206783%_ + _%signature206729206776%_)))) + (let ((_%signature206730206789%_ + (reverse _%signature206729206776%_))) + ((lambda (_%L206793%_ _%L206795%_) (if (let () (declare (not safe)) - (gx#identifier? _%L205663%_)) - (let* ((_%g205681205696%_ - (lambda (_%g205682205692%_) + (gx#identifier? _%L206795%_)) + (let* ((_%g206813206828%_ + (lambda (_%g206814206824%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205682205692%_)))) - (_%g205680205875%_ - (lambda (_%g205682205700%_) + _%g206814206824%_)))) + (_%g206812207007%_ + (lambda (_%g206814206832%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g205682205700%_)) - (let ((_%e205685205703%_ + _%g206814206832%_)) + (let ((_%e206817206835%_ (let () (declare (not safe)) (gx#syntax-e - _%g205682205700%_)))) - (let ((_%hd205686205707%_ + _%g206814206832%_)))) + (let ((_%hd206818206839%_ (let () (declare (not safe)) - (##car _%e205685205703%_))) - (_%tl205687205710%_ + (##car _%e206817206835%_))) + (_%tl206819206842%_ (let () (declare (not safe)) - (##cdr _%e205685205703%_)))) + (##cdr _%e206817206835%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205687205710%_)) - (let ((_%e205688205713%_ + _%tl206819206842%_)) + (let ((_%e206820206845%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl205687205710%_)))) - (let ((_%hd205689205717%_ + (gx#syntax-e _%tl206819206842%_)))) + (let ((_%hd206821206849%_ (let () (declare (not safe)) - (##car _%e205688205713%_))) - (_%tl205690205720%_ + (##car _%e206820206845%_))) + (_%tl206822206852%_ (let () (declare (not safe)) - (##cdr _%e205688205713%_)))) + (##cdr _%e206820206845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205690205720%_)) - ((lambda (_%L205723%_ _%L205725%_) - (let* ((_%g205741205749%_ - (lambda (_%g205742205745%_) + (gx#stx-null? _%tl206822206852%_)) + ((lambda (_%L206855%_ _%L206857%_) + (let* ((_%g206873206881%_ + (lambda (_%g206874206877%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205742205745%_)))) - (_%g205740205871%_ - (lambda (_%g205742205753%_) - ((lambda (_%L205756%_) - (let* ((_%unchecked205769%_ + _%g206874206877%_)))) + (_%g206872207003%_ + (lambda (_%g206874206885%_) + ((lambda (_%L206888%_) + (let* ((_%unchecked206901%_ (|gxc[1]#signature->unchecked-signature| - _%L205723%_)) - (_%g205772205780%_ - (lambda (_%g205773205776%_) + _%L206855%_)) + (_%g206904206912%_ + (lambda (_%g206905206908%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205773205776%_)))) - (_%g205771205803%_ - (lambda (_%g205773205784%_) - ((lambda (_%L205787%_) + _%g206905206908%_)))) + (_%g206903206935%_ + (lambda (_%g206905206916%_) + ((lambda (_%L206919%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L205756%_ - (cons _%L205787%_ + (cons _%L206888%_ + (cons _%L206919%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g205773205784%_)))) - (_%g205771205803%_ - (if _%unchecked205769%_ - (let* ((_%g205807205822%_ - (lambda (_%g205808205818%_) + _%g206905206916%_)))) + (_%g206903206935%_ + (if _%unchecked206901%_ + (let* ((_%g206939206954%_ + (lambda (_%g206940206950%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205808205818%_)))) - (_%g205806205867%_ - (lambda (_%g205808205826%_) + _%g206940206950%_)))) + (_%g206938206999%_ + (lambda (_%g206940206958%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g205808205826%_)) - (let ((_%e205811205829%_ + _%g206940206958%_)) + (let ((_%e206943206961%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%g205808205826%_)))) - (let ((_%hd205812205833%_ + (gx#syntax-e _%g206940206958%_)))) + (let ((_%hd206944206965%_ (let () (declare (not safe)) - (##car _%e205811205829%_))) - (_%tl205813205836%_ + (##car _%e206943206961%_))) + (_%tl206945206968%_ (let () (declare (not safe)) - (##cdr _%e205811205829%_)))) + (##cdr _%e206943206961%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205813205836%_)) - (let ((_%e205814205839%_ + (gx#stx-pair? _%tl206945206968%_)) + (let ((_%e206946206971%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205813205836%_)))) - (let ((_%hd205815205843%_ + (gx#syntax-e _%tl206945206968%_)))) + (let ((_%hd206947206975%_ (let () (declare (not safe)) - (##car _%e205814205839%_))) - (_%tl205816205846%_ + (##car _%e206946206971%_))) + (_%tl206948206978%_ (let () (declare (not safe)) - (##cdr _%e205814205839%_)))) + (##cdr _%e206946206971%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205816205846%_)) - ((lambda (_%L205849%_ _%L205851%_) + (gx#stx-null? _%tl206948206978%_)) + ((lambda (_%L206981%_ _%L206983%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L205851%_ + (cons _%L206983%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -5138,26 +5134,26 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205725%_ '())) + (cons _%L206857%_ '())) (cons '#f - (cons 'signature: (cons _%L205849%_ '()))))) + (cons 'signature: (cons _%L206981%_ '()))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd205815205843%_ - _%hd205812205833%_) - (_%g205807205822%_ _%g205808205826%_)))) - (_%g205807205822%_ _%g205808205826%_)))) - (_%g205807205822%_ _%g205808205826%_))))) + _%hd206947206975%_ + _%hd206944206965%_) + (_%g206939206954%_ _%g206940206958%_)))) + (_%g206939206954%_ _%g206940206958%_)))) + (_%g206939206954%_ _%g206940206958%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205806205867%_ - _%unchecked205769%_)) + (_%g206938206999%_ + _%unchecked206901%_)) '(begin))))) - _%g205742205753%_)))) - (_%g205740205871%_ + _%g206874206885%_)))) + (_%g206872207003%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L205663%_ + (cons _%L206795%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -5167,313 +5163,313 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205725%_ '())) - (cons '#f (cons 'signature: (cons _%L205723%_ '()))))) + (cons _%L206857%_ '())) + (cons '#f (cons 'signature: (cons _%L206855%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%hd205689205717%_ - _%hd205686205707%_) - (_%g205681205696%_ _%g205682205700%_)))) - (_%g205681205696%_ _%g205682205700%_)))) + _%hd206821206849%_ + _%hd206818206839%_) + (_%g206813206828%_ _%g206814206832%_)))) + (_%g206813206828%_ _%g206814206832%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205681205696%_ - _%g205682205700%_))))) - (_%g205680205875%_ + (_%g206813206828%_ + _%g206814206832%_))))) + (_%g206812207007%_ (|gxc[1]#parse-signature| - _%stx205577%_ - _%L205663%_ - (let ((__tmp207951 - (lambda (_%g205878205881%_ - _%g205879205884%_) - (cons _%g205878205881%_ - _%g205879205884%_)))) + _%stx206709%_ + _%L206795%_ + (let ((__tmp209083 + (lambda (_%g207010207013%_ + _%g207011207016%_) + (cons _%g207010207013%_ + _%g207011207016%_)))) (declare (not safe)) (__foldr1 - __tmp207951 + __tmp209083 '() - _%L205661%_))))) - (_%g205580205604%_ _%g205581205608%_))) - _%signature205598205657%_ - _%hd205588205625%_)))))) + _%L206793%_))))) + (_%g206712206736%_ _%g206713206740%_))) + _%signature206730206789%_ + _%hd206720206757%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop205593205637%_ - _%target205590205631%_ + (_%loop206725206769%_ + _%target206722206763%_ '())) - (_%g205580205604%_ - _%g205581205608%_))))) - (_%g205580205604%_ _%g205581205608%_)))) - (_%g205580205604%_ _%g205581205608%_)))) - (_%g205580205604%_ _%g205581205608%_))))) - (_%g205579205887%_ _%stx205577%_)))) + (_%g206712206736%_ + _%g206713206740%_))))) + (_%g206712206736%_ _%g206713206740%_)))) + (_%g206712206736%_ _%g206713206740%_)))) + (_%g206712206736%_ _%g206713206740%_))))) + (_%g206711207019%_ _%stx206709%_)))) (define |gxc[:0:]#declare-primitive-case-lambda| - (lambda (_%stx205892%_) - (let* ((_%g205895205919%_ - (lambda (_%g205896205915%_) + (lambda (_%stx207024%_) + (let* ((_%g207027207051%_ + (lambda (_%g207028207047%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205896205915%_)))) - (_%g205894206802%_ - (lambda (_%g205896205923%_) + _%g207028207047%_)))) + (_%g207026207934%_ + (lambda (_%g207028207055%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205896205923%_)) - (let ((_%e205899205926%_ + (gx#stx-pair? _%g207028207055%_)) + (let ((_%e207031207058%_ (let () (declare (not safe)) - (gx#syntax-e _%g205896205923%_)))) - (let ((_%hd205900205930%_ + (gx#syntax-e _%g207028207055%_)))) + (let ((_%hd207032207062%_ (let () (declare (not safe)) - (##car _%e205899205926%_))) - (_%tl205901205933%_ + (##car _%e207031207058%_))) + (_%tl207033207065%_ (let () (declare (not safe)) - (##cdr _%e205899205926%_)))) + (##cdr _%e207031207058%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205901205933%_)) - (let ((_%e205902205936%_ + (gx#stx-pair? _%tl207033207065%_)) + (let ((_%e207034207068%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205901205933%_)))) - (let ((_%hd205903205940%_ + (gx#syntax-e _%tl207033207065%_)))) + (let ((_%hd207035207072%_ (let () (declare (not safe)) - (##car _%e205902205936%_))) - (_%tl205904205943%_ + (##car _%e207034207068%_))) + (_%tl207036207075%_ (let () (declare (not safe)) - (##cdr _%e205902205936%_)))) + (##cdr _%e207034207068%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205904205943%_)) - (let ((_g207952_ + (gx#stx-pair/null? _%tl207036207075%_)) + (let ((_g209084_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205904205943%_ + _%tl207036207075%_ '0)))) (begin - (let ((_g207953_ + (let ((_g209085_ (let () (declare (not safe)) - (if (##values? _g207952_) + (if (##values? _g209084_) (##vector-length - _g207952_) + _g209084_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207953_ 2))) + (##fx= _g209085_ 2))) (error "Context expects 2 values" - _g207953_))) - (let ((_%target205905205946%_ + _g209085_))) + (let ((_%target207037207078%_ (let () (declare (not safe)) - (##vector-ref _g207952_ 0))) - (_%tl205907205949%_ + (##vector-ref _g209084_ 0))) + (_%tl207039207081%_ (let () (declare (not safe)) (##vector-ref - _g207952_ + _g209084_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205907205949%_)) - (letrec ((_%loop205908205952%_ - (lambda (_%hd205906205956%_ + _%tl207039207081%_)) + (letrec ((_%loop207040207084%_ + (lambda (_%hd207038207088%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%case-signature205912205959%_) + _%case-signature207044207091%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205906205956%_)) - (let ((_%e205909205962%_ + (gx#stx-pair? _%hd207038207088%_)) + (let ((_%e207041207094%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205906205956%_)))) - (let ((_%lp-hd205910205966%_ + (gx#syntax-e _%hd207038207088%_)))) + (let ((_%lp-hd207042207098%_ (let () (declare (not safe)) - (##car _%e205909205962%_))) - (_%lp-tl205911205969%_ + (##car _%e207041207094%_))) + (_%lp-tl207043207101%_ (let () (declare (not safe)) - (##cdr _%e205909205962%_)))) - (_%loop205908205952%_ - _%lp-tl205911205969%_ - (cons _%lp-hd205910205966%_ - _%case-signature205912205959%_)))) - (let ((_%case-signature205913205972%_ - (reverse _%case-signature205912205959%_))) - ((lambda (_%L205976%_ _%L205978%_) + (##cdr _%e207041207094%_)))) + (_%loop207040207084%_ + _%lp-tl207043207101%_ + (cons _%lp-hd207042207098%_ + _%case-signature207044207091%_)))) + (let ((_%case-signature207045207104%_ + (reverse _%case-signature207044207091%_))) + ((lambda (_%L207108%_ _%L207110%_) (if (let () (declare (not safe)) - (gx#identifier? _%L205978%_)) - (let* ((_%signatures206009%_ - (map (lambda (_%g205995205997%_) + (gx#identifier? _%L207110%_)) + (let* ((_%signatures207141%_ + (map (lambda (_%g207127207129%_) (|gxc[1]#parse-signature| - _%stx205892%_ - _%L205978%_ - _%g205995205997%_)) - (let ((__tmp207954 - (lambda (_%g206000206003%_ - _%g206001206006%_) - (cons _%g206000206003%_ - _%g206001206006%_)))) + _%stx207024%_ + _%L207110%_ + _%g207127207129%_)) + (let ((__tmp209086 + (lambda (_%g207132207135%_ + _%g207133207138%_) + (cons _%g207132207135%_ + _%g207133207138%_)))) (declare (not safe)) (__foldr1 - __tmp207954 + __tmp209086 '() - _%L205976%_)))) - (_%g206012206038%_ - (lambda (_%g206013206034%_) + _%L207108%_)))) + (_%g207144207170%_ + (lambda (_%g207145207166%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206013206034%_)))) - (_%g206011206798%_ - (lambda (_%g206013206042%_) + _%g207145207166%_)))) + (_%g207143207930%_ + (lambda (_%g207145207174%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g206013206042%_)) - (let ((_g207955_ + _%g207145207174%_)) + (let ((_g209087_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g206013206042%_ + _%g207145207174%_ '0)))) (begin - (let ((_g207956_ + (let ((_g209088_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g207955_) - (##vector-length _g207955_) + _g209087_) + (##vector-length _g209087_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g207956_ 2))) - (error "Context expects 2 values" _g207956_))) + (##fx= _g209088_ 2))) + (error "Context expects 2 values" _g209088_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target206016206045%_ + (let ((_%target207148207177%_ (let () (declare (not safe)) (##vector-ref - _g207955_ + _g209087_ 0))) - (_%tl206018206048%_ + (_%tl207150207180%_ (let () (declare (not safe)) (##vector-ref - _g207955_ + _g209087_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206018206048%_)) - (letrec ((_%loop206019206051%_ + _%tl207150207180%_)) + (letrec ((_%loop207151207183%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd206017206055%_ - _%sig206023206058%_ - _%arity206024206060%_) + (lambda (_%hd207149207187%_ + _%sig207155207190%_ + _%arity207156207192%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd206017206055%_)) - (let ((_%e206020206063%_ + (gx#stx-pair? _%hd207149207187%_)) + (let ((_%e207152207195%_ (let () (declare (not safe)) - (gx#syntax-e _%hd206017206055%_)))) - (let ((_%lp-hd206021206067%_ + (gx#syntax-e _%hd207149207187%_)))) + (let ((_%lp-hd207153207199%_ (let () (declare (not safe)) - (##car _%e206020206063%_))) - (_%lp-tl206022206070%_ + (##car _%e207152207195%_))) + (_%lp-tl207154207202%_ (let () (declare (not safe)) - (##cdr _%e206020206063%_)))) + (##cdr _%e207152207195%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd206021206067%_)) - (let ((_%e206027206073%_ + _%lp-hd207153207199%_)) + (let ((_%e207159207205%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd206021206067%_)))) - (let ((_%hd206028206077%_ + _%lp-hd207153207199%_)))) + (let ((_%hd207160207209%_ (let () (declare (not safe)) - (##car _%e206027206073%_))) - (_%tl206029206080%_ + (##car _%e207159207205%_))) + (_%tl207161207212%_ (let () (declare (not safe)) - (##cdr _%e206027206073%_)))) + (##cdr _%e207159207205%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206029206080%_)) - (let ((_%e206030206083%_ + _%tl207161207212%_)) + (let ((_%e207162207215%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206029206080%_)))) - (let ((_%hd206031206087%_ + _%tl207161207212%_)))) + (let ((_%hd207163207219%_ (let () (declare (not safe)) - (##car _%e206030206083%_))) - (_%tl206032206090%_ + (##car _%e207162207215%_))) + (_%tl207164207222%_ (let () (declare (not safe)) - (##cdr _%e206030206083%_)))) + (##cdr _%e207162207215%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206032206090%_)) - (_%loop206019206051%_ - _%lp-tl206022206070%_ - (cons _%hd206031206087%_ - _%sig206023206058%_) - (cons _%hd206028206077%_ - _%arity206024206060%_)) - (_%g206012206038%_ - _%g206013206042%_)))) - (_%g206012206038%_ - _%g206013206042%_)))) - (_%g206012206038%_ - _%g206013206042%_)))) - (let ((_%sig206025206093%_ - (reverse _%sig206023206058%_)) - (_%arity206026206096%_ - (reverse _%arity206024206060%_))) - ((lambda (_%L206099%_ _%L206101%_) - (let* ((_%g206118206126%_ - (lambda (_%g206119206122%_) + _%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%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206119206122%_)))) - (_%g206117206783%_ - (lambda (_%g206119206130%_) - ((lambda (_%L206133%_) - (let* ((_%g206146206154%_ - (lambda (_%g206147206150%_) + _%g207251207254%_)))) + (_%g207249207915%_ + (lambda (_%g207251207262%_) + ((lambda (_%L207265%_) + (let* ((_%g207278207286%_ + (lambda (_%g207279207282%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -5481,551 +5477,551 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206147206150%_)))) - (_%g206145206176%_ - (lambda (_%g206147206158%_) - ((lambda (_%L206161%_) + _%g207279207282%_)))) + (_%g207277207308%_ + (lambda (_%g207279207290%_) + ((lambda (_%L207293%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L206133%_ (cons _%L206161%_ '())))) - _%g206147206158%_)))) + (cons _%L207265%_ (cons _%L207293%_ '())))) + _%g207279207290%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206145206176%_ - (let ((_g207957_ - (let _%loop206180%_ ((_%rest206183%_ + (_%g207277207308%_ + (let ((_g209089_ + (let _%loop207312%_ ((_%rest207315%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signatures206009%_) - (_%unchecked-proc206185%_ '#f) - (_%unchecked-clauses206186%_ '())) - (let* ((_%rest206187206195%_ _%rest206183%_) - (_%else206189206207%_ + _%signatures207141%_) + (_%unchecked-proc207317%_ '#f) + (_%unchecked-clauses207318%_ '())) + (let* ((_%rest207319207327%_ _%rest207315%_) + (_%else207321207339%_ (lambda () - (values _%unchecked-proc206185%_ + (values _%unchecked-proc207317%_ (reverse! - _%unchecked-clauses206186%_)))) - (_%K206191206648%_ - (lambda (_%rest206211%_ _%hd206213%_) - (let* ((_%g206215206302%_ - (lambda (_%g206216206298%_) + _%unchecked-clauses207318%_)))) + (_%K207323207780%_ + (lambda (_%rest207343%_ _%hd207345%_) + (let* ((_%g207347207434%_ + (lambda (_%g207348207430%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206216206298%_)))) - (_%g206214206644%_ - (lambda (_%g206216206306%_) + _%g207348207430%_)))) + (_%g207346207776%_ + (lambda (_%g207348207438%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g206216206306%_)) - (let ((_%e206223206309%_ + _%g207348207438%_)) + (let ((_%e207355207441%_ (let () (declare (not safe)) (gx#syntax-e - _%g206216206306%_)))) - (let ((_%hd206224206313%_ + _%g207348207438%_)))) + (let ((_%hd207356207445%_ (let () (declare (not safe)) - (##car _%e206223206309%_))) - (_%tl206225206316%_ + (##car _%e207355207441%_))) + (_%tl207357207448%_ (let () (declare (not safe)) - (##cdr _%e206223206309%_)))) + (##cdr _%e207355207441%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206225206316%_)) - (let ((_%e206226206319%_ + _%tl207357207448%_)) + (let ((_%e207358207451%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl206225206316%_)))) - (let ((_%hd206227206323%_ + (gx#syntax-e _%tl207357207448%_)))) + (let ((_%hd207359207455%_ (let () (declare (not safe)) - (##car _%e206226206319%_))) - (_%tl206228206326%_ + (##car _%e207358207451%_))) + (_%tl207360207458%_ (let () (declare (not safe)) - (##cdr _%e206226206319%_)))) + (##cdr _%e207358207451%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd206227206323%_)) - (let ((_%e206229206329%_ + (gx#stx-pair? _%hd207359207455%_)) + (let ((_%e207361207461%_ (let () (declare (not safe)) - (gx#syntax-e _%hd206227206323%_)))) - (let ((_%hd206230206333%_ + (gx#syntax-e _%hd207359207455%_)))) + (let ((_%hd207362207465%_ (let () (declare (not safe)) - (##car _%e206229206329%_))) - (_%tl206231206336%_ + (##car _%e207361207461%_))) + (_%tl207363207468%_ (let () (declare (not safe)) - (##cdr _%e206229206329%_)))) + (##cdr _%e207361207461%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206231206336%_)) - (let ((_%e206232206339%_ + (gx#stx-pair? _%tl207363207468%_)) + (let ((_%e207364207471%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206231206336%_)))) - (let ((_%hd206233206343%_ + (gx#syntax-e _%tl207363207468%_)))) + (let ((_%hd207365207475%_ (let () (declare (not safe)) - (##car _%e206232206339%_))) - (_%tl206234206346%_ + (##car _%e207364207471%_))) + (_%tl207366207478%_ (let () (declare (not safe)) - (##cdr _%e206232206339%_)))) + (##cdr _%e207364207471%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd206233206343%_)) - (let ((_%e206235206349%_ + (gx#stx-datum? _%hd207365207475%_)) + (let ((_%e207367207481%_ (let () (declare (not safe)) (gx#stx-e - _%hd206233206343%_)))) - (if (equal? _%e206235206349%_ + _%hd207365207475%_)))) + (if (equal? _%e207367207481%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206234206346%_)) - (let ((_%e206236206353%_ + _%tl207366207478%_)) + (let ((_%e207368207485%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206234206346%_)))) - (let ((_%hd206237206357%_ + _%tl207366207478%_)))) + (let ((_%hd207369207489%_ (let () (declare (not safe)) - (##car _%e206236206353%_))) - (_%tl206238206360%_ + (##car _%e207368207485%_))) + (_%tl207370207492%_ (let () (declare (not safe)) - (##cdr _%e206236206353%_)))) + (##cdr _%e207368207485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd206237206357%_)) - (let ((_%e206239206363%_ + _%hd207369207489%_)) + (let ((_%e207371207495%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd206237206357%_)))) - (let ((_%hd206240206367%_ + (gx#syntax-e _%hd207369207489%_)))) + (let ((_%hd207372207499%_ (let () (declare (not safe)) - (##car _%e206239206363%_))) - (_%tl206241206370%_ + (##car _%e207371207495%_))) + (_%tl207373207502%_ (let () (declare (not safe)) - (##cdr _%e206239206363%_)))) + (##cdr _%e207371207495%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd206240206367%_)) - (if (let ((__tmp207959 |gxc[1]#_g207960_|)) + (gx#identifier? _%hd207372207499%_)) + (if (let ((__tmp209091 |gxc[1]#_g209092_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207959 - _%hd206240206367%_)) + __tmp209091 + _%hd207372207499%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206241206370%_)) - (let ((_%e206242206373%_ + (gx#stx-pair? _%tl207373207502%_)) + (let ((_%e207374207505%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206241206370%_)))) - (let ((_%hd206243206377%_ + (gx#syntax-e _%tl207373207502%_)))) + (let ((_%hd207375207509%_ (let () (declare (not safe)) - (##car _%e206242206373%_))) - (_%tl206244206380%_ + (##car _%e207374207505%_))) + (_%tl207376207512%_ (let () (declare (not safe)) - (##cdr _%e206242206373%_)))) + (##cdr _%e207374207505%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206244206380%_)) + (gx#stx-null? _%tl207376207512%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206238206360%_)) - (let ((_%e206245206383%_ + _%tl207370207492%_)) + (let ((_%e207377207515%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206238206360%_)))) - (let ((_%hd206246206387%_ + _%tl207370207492%_)))) + (let ((_%hd207378207519%_ (let () (declare (not safe)) - (##car _%e206245206383%_))) - (_%tl206247206390%_ + (##car _%e207377207515%_))) + (_%tl207379207522%_ (let () (declare (not safe)) - (##cdr _%e206245206383%_)))) + (##cdr _%e207377207515%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd206246206387%_)) - (let ((_%e206248206393%_ + _%hd207378207519%_)) + (let ((_%e207380207525%_ (let () (declare (not safe)) (gx#stx-e - _%hd206246206387%_)))) - (if (equal? _%e206248206393%_ + _%hd207378207519%_)))) + (if (equal? _%e207380207525%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206247206390%_)) - (let ((_%e206249206397%_ + (gx#stx-pair? _%tl207379207522%_)) + (let ((_%e207381207529%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206247206390%_)))) - (let ((_%hd206250206401%_ + (gx#syntax-e _%tl207379207522%_)))) + (let ((_%hd207382207533%_ (let () (declare (not safe)) - (##car _%e206249206397%_))) - (_%tl206251206404%_ + (##car _%e207381207529%_))) + (_%tl207383207536%_ (let () (declare (not safe)) - (##cdr _%e206249206397%_)))) + (##cdr _%e207381207529%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd206250206401%_)) - (let ((_%e206252206407%_ + (gx#stx-pair? _%hd207382207533%_)) + (let ((_%e207384207539%_ (let () (declare (not safe)) - (gx#syntax-e _%hd206250206401%_)))) - (let ((_%hd206253206411%_ + (gx#syntax-e _%hd207382207533%_)))) + (let ((_%hd207385207543%_ (let () (declare (not safe)) - (##car _%e206252206407%_))) - (_%tl206254206414%_ + (##car _%e207384207539%_))) + (_%tl207386207546%_ (let () (declare (not safe)) - (##cdr _%e206252206407%_)))) + (##cdr _%e207384207539%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd206253206411%_)) - (if (let ((__tmp207961 - |gxc[1]#_g207962_|)) + (gx#identifier? _%hd207385207543%_)) + (if (let ((__tmp209093 + |gxc[1]#_g209094_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207961 - _%hd206253206411%_)) + __tmp209093 + _%hd207385207543%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206254206414%_)) - (let ((_%e206255206417%_ + _%tl207386207546%_)) + (let ((_%e207387207549%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206254206414%_)))) - (let ((_%hd206256206421%_ + _%tl207386207546%_)))) + (let ((_%hd207388207553%_ (let () (declare (not safe)) - (##car _%e206255206417%_))) - (_%tl206257206424%_ + (##car _%e207387207549%_))) + (_%tl207389207556%_ (let () (declare (not safe)) - (##cdr _%e206255206417%_)))) + (##cdr _%e207387207549%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206257206424%_)) + _%tl207389207556%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206251206404%_)) - (let ((_%e206258206427%_ + _%tl207383207536%_)) + (let ((_%e207390207559%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl206251206404%_)))) - (let ((_%hd206259206431%_ + (gx#syntax-e _%tl207383207536%_)))) + (let ((_%hd207391207563%_ (let () (declare (not safe)) - (##car _%e206258206427%_))) - (_%tl206260206434%_ + (##car _%e207390207559%_))) + (_%tl207392207566%_ (let () (declare (not safe)) - (##cdr _%e206258206427%_)))) + (##cdr _%e207390207559%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd206259206431%_)) - (let ((_%e206261206437%_ + (gx#stx-datum? _%hd207391207563%_)) + (let ((_%e207393207569%_ (let () (declare (not safe)) - (gx#stx-e _%hd206259206431%_)))) - (if (equal? _%e206261206437%_ 'effect:) + (gx#stx-e _%hd207391207563%_)))) + (if (equal? _%e207393207569%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206260206434%_)) - (let ((_%e206262206441%_ + (gx#stx-pair? _%tl207392207566%_)) + (let ((_%e207394207573%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206260206434%_)))) - (let ((_%hd206263206445%_ + _%tl207392207566%_)))) + (let ((_%hd207395207577%_ (let () (declare (not safe)) - (##car _%e206262206441%_))) - (_%tl206264206448%_ + (##car _%e207394207573%_))) + (_%tl207396207580%_ (let () (declare (not safe)) - (##cdr _%e206262206441%_)))) + (##cdr _%e207394207573%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd206263206445%_)) - (let ((_%e206265206451%_ + _%hd207395207577%_)) + (let ((_%e207397207583%_ (let () (declare (not safe)) (gx#syntax-e - _%hd206263206445%_)))) - (let ((_%hd206266206455%_ + _%hd207395207577%_)))) + (let ((_%hd207398207587%_ (let () (declare (not safe)) - (##car _%e206265206451%_))) - (_%tl206267206458%_ + (##car _%e207397207583%_))) + (_%tl207399207590%_ (let () (declare (not safe)) - (##cdr _%e206265206451%_)))) + (##cdr _%e207397207583%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd206266206455%_)) - (if (let ((__tmp207963 - |gxc[1]#_g207964_|)) + _%hd207398207587%_)) + (if (let ((__tmp209095 + |gxc[1]#_g209096_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207963 - _%hd206266206455%_)) + __tmp209095 + _%hd207398207587%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl206267206458%_)) - (let ((_%e206268206461%_ + (gx#stx-pair? _%tl207399207590%_)) + (let ((_%e207400207593%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206267206458%_)))) - (let ((_%hd206269206465%_ + (gx#syntax-e _%tl207399207590%_)))) + (let ((_%hd207401207597%_ (let () (declare (not safe)) - (##car _%e206268206461%_))) - (_%tl206270206468%_ + (##car _%e207400207593%_))) + (_%tl207402207600%_ (let () (declare (not safe)) - (##cdr _%e206268206461%_)))) + (##cdr _%e207400207593%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206270206468%_)) + (gx#stx-null? _%tl207402207600%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206264206448%_)) - (let ((_%e206271206471%_ + (gx#stx-pair? _%tl207396207580%_)) + (let ((_%e207403207603%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206264206448%_)))) - (let ((_%hd206272206475%_ + (gx#syntax-e _%tl207396207580%_)))) + (let ((_%hd207404207607%_ (let () (declare (not safe)) - (##car _%e206271206471%_))) - (_%tl206273206478%_ + (##car _%e207403207603%_))) + (_%tl207405207610%_ (let () (declare (not safe)) - (##cdr _%e206271206471%_)))) + (##cdr _%e207403207603%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd206272206475%_)) - (let ((_%e206274206481%_ + (gx#stx-datum? _%hd207404207607%_)) + (let ((_%e207406207613%_ (let () (declare (not safe)) (gx#stx-e - _%hd206272206475%_)))) - (if (equal? _%e206274206481%_ + _%hd207404207607%_)))) + (if (equal? _%e207406207613%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206273206478%_)) - (let ((_%e206275206485%_ + _%tl207405207610%_)) + (let ((_%e207407207617%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206273206478%_)))) - (let ((_%hd206276206489%_ + _%tl207405207610%_)))) + (let ((_%hd207408207621%_ (let () (declare (not safe)) - (##car _%e206275206485%_))) - (_%tl206277206492%_ + (##car _%e207407207617%_))) + (_%tl207409207624%_ (let () (declare (not safe)) - (##cdr _%e206275206485%_)))) + (##cdr _%e207407207617%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd206276206489%_)) - (let ((_%e206278206495%_ + _%hd207408207621%_)) + (let ((_%e207410207627%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd206276206489%_)))) - (let ((_%hd206279206499%_ + (gx#syntax-e _%hd207408207621%_)))) + (let ((_%hd207411207631%_ (let () (declare (not safe)) - (##car _%e206278206495%_))) - (_%tl206280206502%_ + (##car _%e207410207627%_))) + (_%tl207412207634%_ (let () (declare (not safe)) - (##cdr _%e206278206495%_)))) + (##cdr _%e207410207627%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd206279206499%_)) - (if (let ((__tmp207965 |gxc[1]#_g207966_|)) + (gx#identifier? _%hd207411207631%_)) + (if (let ((__tmp209097 |gxc[1]#_g209098_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207965 - _%hd206279206499%_)) + __tmp209097 + _%hd207411207631%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206280206502%_)) - (let ((_%e206281206505%_ + (gx#stx-pair? _%tl207412207634%_)) + (let ((_%e207413207637%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206280206502%_)))) - (let ((_%hd206282206509%_ + (gx#syntax-e _%tl207412207634%_)))) + (let ((_%hd207414207641%_ (let () (declare (not safe)) - (##car _%e206281206505%_))) - (_%tl206283206512%_ + (##car _%e207413207637%_))) + (_%tl207415207644%_ (let () (declare (not safe)) - (##cdr _%e206281206505%_)))) + (##cdr _%e207413207637%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206283206512%_)) + (gx#stx-null? _%tl207415207644%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206277206492%_)) - (let ((_%e206284206515%_ + _%tl207409207624%_)) + (let ((_%e207416207647%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206277206492%_)))) - (let ((_%hd206285206519%_ + _%tl207409207624%_)))) + (let ((_%hd207417207651%_ (let () (declare (not safe)) - (##car _%e206284206515%_))) - (_%tl206286206522%_ + (##car _%e207416207647%_))) + (_%tl207418207654%_ (let () (declare (not safe)) - (##cdr _%e206284206515%_)))) + (##cdr _%e207416207647%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd206285206519%_)) - (let ((_%e206287206525%_ + _%hd207417207651%_)) + (let ((_%e207419207657%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd206285206519%_)))) - (if (equal? _%e206287206525%_ 'origin:) + (gx#stx-e _%hd207417207651%_)))) + (if (equal? _%e207419207657%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206286206522%_)) - (let ((_%e206288206529%_ + (gx#stx-pair? _%tl207418207654%_)) + (let ((_%e207420207661%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206286206522%_)))) - (let ((_%hd206289206533%_ + (gx#syntax-e _%tl207418207654%_)))) + (let ((_%hd207421207665%_ (let () (declare (not safe)) - (##car _%e206288206529%_))) - (_%tl206290206536%_ + (##car _%e207420207661%_))) + (_%tl207422207668%_ (let () (declare (not safe)) - (##cdr _%e206288206529%_)))) + (##cdr _%e207420207661%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd206289206533%_)) - (let ((_%e206291206539%_ + (gx#stx-pair? _%hd207421207665%_)) + (let ((_%e207423207671%_ (let () (declare (not safe)) - (gx#syntax-e _%hd206289206533%_)))) - (let ((_%hd206292206543%_ + (gx#syntax-e _%hd207421207665%_)))) + (let ((_%hd207424207675%_ (let () (declare (not safe)) - (##car _%e206291206539%_))) - (_%tl206293206546%_ + (##car _%e207423207671%_))) + (_%tl207425207678%_ (let () (declare (not safe)) - (##cdr _%e206291206539%_)))) + (##cdr _%e207423207671%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd206292206543%_)) - (if (let ((__tmp207967 - |gxc[1]#_g207968_|)) + (gx#identifier? _%hd207424207675%_)) + (if (let ((__tmp209099 + |gxc[1]#_g209100_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207967 - _%hd206292206543%_)) + __tmp209099 + _%hd207424207675%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206293206546%_)) - (let ((_%e206294206549%_ + _%tl207425207678%_)) + (let ((_%e207426207681%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206293206546%_)))) - (let ((_%hd206295206553%_ + _%tl207425207678%_)))) + (let ((_%hd207427207685%_ (let () (declare (not safe)) - (##car _%e206294206549%_))) - (_%tl206296206556%_ + (##car _%e207426207681%_))) + (_%tl207428207688%_ (let () (declare (not safe)) - (##cdr _%e206294206549%_)))) + (##cdr _%e207426207681%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206296206556%_)) + _%tl207428207688%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl206290206536%_)) + (gx#stx-null? _%tl207422207668%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206228206326%_)) - ((lambda (_%L206559%_ - _%L206561%_ - _%L206562%_ - _%L206563%_ - _%L206564%_ - _%L206565%_) - (let ((_%clause206636%_ + (gx#stx-null? _%tl207360207458%_)) + ((lambda (_%L207691%_ + _%L207693%_ + _%L207694%_ + _%L207695%_ + _%L207696%_ + _%L207697%_) + (let ((_%clause207768%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6036,7 +6032,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206565%_ '())) + (cons _%L207697%_ '())) (cons '#f (cons 'signature: (cons (cons (let () @@ -6049,258 +6045,256 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206563%_ '())) + (cons _%L207695%_ '())) (cons 'origin: (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206559%_ '())) + (cons _%L207691%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%unchecked206638%_ + (_%unchecked207770%_ (let () (declare (not safe)) - (gx#stx-e _%L206561%_)))) - (_%loop206180%_ - _%rest206211%_ - (let ((_%$e206640%_ _%unchecked206638%_)) - (if _%$e206640%_ - _%$e206640%_ - _%unchecked-proc206185%_)) - (cons _%clause206636%_ - _%unchecked-clauses206186%_)))) - _%hd206295206553%_ - _%hd206282206509%_ - _%hd206269206465%_ - _%hd206256206421%_ - _%hd206243206377%_ - _%hd206224206313%_) - (_%g206215206302%_ _%g206216206306%_)) - (_%g206215206302%_ _%g206216206306%_)) - (_%g206215206302%_ _%g206216206306%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206215206302%_ - _%g206216206306%_)) - (_%g206215206302%_ - _%g206216206306%_)) - (_%g206215206302%_ - _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)) - (_%g206215206302%_ _%g206216206306%_))) - (_%g206215206302%_ _%g206216206306%_)))) + (_%g207347207434%_ + _%g207348207438%_)) + (_%g207347207434%_ + _%g207348207438%_)) + (_%g207347207434%_ + _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)) + (_%g207347207434%_ _%g207348207438%_))) + (_%g207347207434%_ _%g207348207438%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206215206302%_ - _%g206216206306%_)) - (_%g206215206302%_ - _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)) - (_%g206215206302%_ _%g206216206306%_)) - (_%g206215206302%_ _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)))) + (_%g207347207434%_ + _%g207348207438%_)) + (_%g207347207434%_ + _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)) + (_%g207347207434%_ _%g207348207438%_)) + (_%g207347207434%_ _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206215206302%_ - _%g206216206306%_)) - (_%g206215206302%_ - _%g206216206306%_))) - (_%g206215206302%_ - _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)) - (_%g206215206302%_ _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)) - (_%g206215206302%_ _%g206216206306%_)) + (_%g207347207434%_ + _%g207348207438%_)) + (_%g207347207434%_ + _%g207348207438%_))) + (_%g207347207434%_ + _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)) + (_%g207347207434%_ _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)) + (_%g207347207434%_ _%g207348207438%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206215206302%_ - _%g206216206306%_)))) - (_%g206215206302%_ - _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)) - (_%g206215206302%_ _%g206216206306%_))) - (_%g206215206302%_ _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)) - (_%g206215206302%_ _%g206216206306%_)))) + (_%g207347207434%_ + _%g207348207438%_)))) + (_%g207347207434%_ + _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)) + (_%g207347207434%_ _%g207348207438%_))) + (_%g207347207434%_ _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)) + (_%g207347207434%_ _%g207348207438%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206215206302%_ - _%g206216206306%_)) - (_%g206215206302%_ - _%g206216206306%_)) - (_%g206215206302%_ _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)) - (_%g206215206302%_ _%g206216206306%_))) + (_%g207347207434%_ + _%g207348207438%_)) + (_%g207347207434%_ + _%g207348207438%_)) + (_%g207347207434%_ _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)) + (_%g207347207434%_ _%g207348207438%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206215206302%_ - _%g206216206306%_)))) - (_%g206215206302%_ - _%g206216206306%_)) - (_%g206215206302%_ - _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)) - (_%g206215206302%_ _%g206216206306%_)) - (_%g206215206302%_ _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)))) + (_%g207347207434%_ + _%g207348207438%_)))) + (_%g207347207434%_ + _%g207348207438%_)) + (_%g207347207434%_ + _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)) + (_%g207347207434%_ _%g207348207438%_)) + (_%g207347207434%_ _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206215206302%_ - _%g206216206306%_)) - (_%g206215206302%_ - _%g206216206306%_))) - (_%g206215206302%_ _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)))) - (_%g206215206302%_ _%g206216206306%_)))) + (_%g207347207434%_ + _%g207348207438%_)) + (_%g207347207434%_ + _%g207348207438%_))) + (_%g207347207434%_ _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)))) + (_%g207347207434%_ _%g207348207438%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206215206302%_ - _%g206216206306%_))))) - (_%g206214206644%_ _%hd206213%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest206187206195%_)) - (let ((_%hd206192206652%_ + (_%g207347207434%_ + _%g207348207438%_))))) + (_%g207346207776%_ _%hd207345%_))))) + (if (pair? _%rest207319207327%_) + (let ((_%hd207324207784%_ (let () (declare (not safe)) - (##car _%rest206187206195%_))) - (_%tl206193206655%_ + (##car _%rest207319207327%_))) + (_%tl207325207787%_ (let () (declare (not safe)) - (##cdr _%rest206187206195%_)))) - (let* ((_%hd206658%_ _%hd206192206652%_) - (_%rest206661%_ _%tl206193206655%_)) - (_%K206191206648%_ - _%rest206661%_ - _%hd206658%_))) - (_%else206189206207%_)))))) + (##cdr _%rest207319207327%_)))) + (let* ((_%hd207790%_ _%hd207324207784%_) + (_%rest207793%_ _%tl207325207787%_)) + (_%K207323207780%_ + _%rest207793%_ + _%hd207790%_))) + (_%else207321207339%_)))))) (begin - (let ((_g207958_ + (let ((_g209090_ (let () (declare (not safe)) - (if (##values? _g207957_) - (##vector-length _g207957_) + (if (##values? _g209089_) + (##vector-length _g209089_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g207958_ 2))) - (error "Context expects 2 values" _g207958_))) - (let ((_%unchecked-proc206664%_ + (if (not (let () (declare (not safe)) (##fx= _g209090_ 2))) + (error "Context expects 2 values" _g209090_))) + (let ((_%unchecked-proc207796%_ (let () (declare (not safe)) - (##vector-ref _g207957_ 0))) - (_%unchecked-clauses206666%_ + (##vector-ref _g209089_ 0))) + (_%unchecked-clauses207798%_ (let () (declare (not safe)) - (##vector-ref _g207957_ 1)))) - (if _%unchecked-proc206664%_ - (let* ((_%g206668206692%_ - (lambda (_%g206669206688%_) + (##vector-ref _g209089_ 1)))) + (if _%unchecked-proc207796%_ + (let* ((_%g207800207824%_ + (lambda (_%g207801207820%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206669206688%_)))) - (_%g206667206779%_ - (lambda (_%g206669206696%_) + _%g207801207820%_)))) + (_%g207799207911%_ + (lambda (_%g207801207828%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g206669206696%_)) - (let ((_%e206672206699%_ + (gx#stx-pair? _%g207801207828%_)) + (let ((_%e207804207831%_ (let () (declare (not safe)) (gx#syntax-e - _%g206669206696%_)))) - (let ((_%hd206673206703%_ + _%g207801207828%_)))) + (let ((_%hd207805207835%_ (let () (declare (not safe)) - (##car _%e206672206699%_))) - (_%tl206674206706%_ + (##car _%e207804207831%_))) + (_%tl207806207838%_ (let () (declare (not safe)) - (##cdr _%e206672206699%_)))) + (##cdr _%e207804207831%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206674206706%_)) - (let ((_%e206675206709%_ + _%tl207806207838%_)) + (let ((_%e207807207841%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206674206706%_)))) - (let ((_%hd206676206713%_ + _%tl207806207838%_)))) + (let ((_%hd207808207845%_ (let () (declare (not safe)) - (##car _%e206675206709%_))) - (_%tl206677206716%_ + (##car _%e207807207841%_))) + (_%tl207809207848%_ (let () (declare (not safe)) - (##cdr _%e206675206709%_)))) + (##cdr _%e207807207841%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd206676206713%_)) - (let ((_g207969_ + _%hd207808207845%_)) + (let ((_g209101_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%hd206676206713%_ '0)))) + (gx#syntax-split-splice _%hd207808207845%_ '0)))) (begin - (let ((_g207970_ + (let ((_g209102_ (let () (declare (not safe)) - (if (##values? _g207969_) - (##vector-length _g207969_) + (if (##values? _g209101_) + (##vector-length _g209101_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g207970_ 2))) - (error "Context expects 2 values" _g207970_))) - (let ((_%target206678206719%_ + (if (not (let () (declare (not safe)) (##fx= _g209102_ 2))) + (error "Context expects 2 values" _g209102_))) + (let ((_%target207810207851%_ (let () (declare (not safe)) - (##vector-ref _g207969_ 0))) - (_%tl206680206722%_ + (##vector-ref _g209101_ 0))) + (_%tl207812207854%_ (let () (declare (not safe)) - (##vector-ref _g207969_ 1)))) + (##vector-ref _g209101_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206680206722%_)) - (letrec ((_%loop206681206725%_ - (lambda (_%hd206679206729%_ - _%clause206685206732%_) + (gx#stx-null? _%tl207812207854%_)) + (letrec ((_%loop207813207857%_ + (lambda (_%hd207811207861%_ + _%clause207817207864%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd206679206729%_)) - (let ((_%e206682206735%_ + (gx#stx-pair? _%hd207811207861%_)) + (let ((_%e207814207867%_ (let () (declare (not safe)) (gx#syntax-e - _%hd206679206729%_)))) - (let ((_%lp-hd206683206739%_ + _%hd207811207861%_)))) + (let ((_%lp-hd207815207871%_ (let () (declare (not safe)) - (##car _%e206682206735%_))) - (_%lp-tl206684206742%_ + (##car _%e207814207867%_))) + (_%lp-tl207816207874%_ (let () (declare (not safe)) - (##cdr _%e206682206735%_)))) - (_%loop206681206725%_ - _%lp-tl206684206742%_ - (cons _%lp-hd206683206739%_ - _%clause206685206732%_)))) - (let ((_%clause206686206745%_ - (reverse _%clause206685206732%_))) + (##cdr _%e207814207867%_)))) + (_%loop207813207857%_ + _%lp-tl207816207874%_ + (cons _%lp-hd207815207871%_ + _%clause207817207864%_)))) + (let ((_%clause207818207877%_ + (reverse _%clause207817207864%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206677206716%_)) - ((lambda (_%L206749%_ - _%L206751%_) + _%tl207809207848%_)) + ((lambda (_%L207881%_ + _%L207883%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L206751%_ + (cons _%L207883%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6312,43 +6306,43 @@ (gx#datum->syntax__0 '#f '@list)) - (let ((__tmp207971 - (lambda (_%g206770206773%_ - _%g206771206776%_) - (cons _%g206770206773%_ - _%g206771206776%_)))) + (let ((__tmp209103 + (lambda (_%g207902207905%_ + _%g207903207908%_) + (cons _%g207902207905%_ + _%g207903207908%_)))) (declare (not safe)) (__foldr1 - __tmp207971 + __tmp209103 '() - _%L206749%_))) + _%L207881%_))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause206686206745%_ - _%hd206673206703%_) - (_%g206668206692%_ - _%g206669206696%_))))))) - (_%loop206681206725%_ _%target206678206719%_ '())) - (_%g206668206692%_ _%g206669206696%_))))) - (_%g206668206692%_ _%g206669206696%_)))) + _%clause207818207877%_ + _%hd207805207835%_) + (_%g207800207824%_ + _%g207801207828%_))))))) + (_%loop207813207857%_ _%target207810207851%_ '())) + (_%g207800207824%_ _%g207801207828%_))))) + (_%g207800207824%_ _%g207801207828%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206668206692%_ - _%g206669206696%_)))) - (_%g206668206692%_ _%g206669206696%_))))) - (_%g206667206779%_ - (list _%unchecked-proc206664%_ - _%unchecked-clauses206666%_))) + (_%g207800207824%_ + _%g207801207828%_)))) + (_%g207800207824%_ _%g207801207828%_))))) + (_%g207799207911%_ + (list _%unchecked-proc207796%_ + _%unchecked-clauses207798%_))) '(begin)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g206119206130%_)))) - (_%g206117206783%_ + _%g207251207262%_)))) + (_%g207249207915%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L205978%_ + (cons _%L207110%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6362,12 +6356,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L206099%_ - _%L206101%_)) - (let ((__tmp207972 - (lambda (_%g206786206790%_ - _%g206787206793%_ - _%g206788206795%_) + _%L207231%_ + _%L207233%_)) + (let ((__tmp209104 + (lambda (_%g207918207922%_ + _%g207919207925%_ + _%g207920207927%_) (cons (cons (let () (declare (not safe)) @@ -6378,55 +6372,55 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g206787206793%_ '())) + (cons _%g207919207925%_ '())) (cons '#f (cons 'signature: - (cons _%g206786206790%_ '()))))) - _%g206788206795%_)))) + (cons _%g207918207922%_ '()))))) + _%g207920207927%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp207972 + __tmp209104 '() - _%L206099%_ - _%L206101%_)))) + _%L207231%_ + _%L207233%_)))) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%sig206025206093%_ - _%arity206026206096%_)))))) - (_%loop206019206051%_ _%target206016206045%_ '() '())) - (_%g206012206038%_ _%g206013206042%_))))) + _%sig207157207225%_ + _%arity207158207228%_)))))) + (_%loop207151207183%_ _%target207148207177%_ '() '())) + (_%g207144207170%_ _%g207145207174%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206012206038%_ - _%g206013206042%_))))) - (_%g206011206798%_ _%signatures206009%_)) - (_%g205895205919%_ _%g205896205923%_))) - _%case-signature205913205972%_ - _%hd205903205940%_)))))) + (_%g207144207170%_ + _%g207145207174%_))))) + (_%g207143207930%_ _%signatures207141%_)) + (_%g207027207051%_ _%g207028207055%_))) + _%case-signature207045207104%_ + _%hd207035207072%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop205908205952%_ - _%target205905205946%_ + (_%loop207040207084%_ + _%target207037207078%_ '())) - (_%g205895205919%_ - _%g205896205923%_))))) - (_%g205895205919%_ _%g205896205923%_)))) - (_%g205895205919%_ _%g205896205923%_)))) - (_%g205895205919%_ _%g205896205923%_))))) - (_%g205894206802%_ _%stx205892%_)))) + (_%g207027207051%_ + _%g207028207055%_))))) + (_%g207027207051%_ _%g207028207055%_)))) + (_%g207027207051%_ _%g207028207055%_)))) + (_%g207027207051%_ _%g207028207055%_))))) + (_%g207026207934%_ _%stx207024%_)))) (define |gxc[:0:]#declare-builtin-class| - (lambda (_%$stx206810%_) - (let* ((_%__stx207792207793%_ _%$stx206810%_) - (_%g206816206876%_ + (lambda (_%$stx207942%_) + (let* ((_%__stx208924208925%_ _%$stx207942%_) + (_%g207948208008%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx207792207793%_))))) - (let ((_%__kont207795207796%_ - (lambda (_%L207098%_ _%L207100%_) + _%__stx208924208925%_))))) + (let ((_%__kont208927208928%_ + (lambda (_%L208230%_ _%L208232%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6435,7 +6429,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207100%_ '())) + (cons _%L208232%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6446,13 +6440,13 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L207100%_ '())) + (cons _%L208232%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207098%_ '())) + (cons _%L208230%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)) @@ -6461,8 +6455,8 @@ (cons '#f (cons '#f (cons '#t (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont207797207798%_ - (lambda (_%L207023%_ _%L207025%_ _%L207026%_) + (_%__kont208929208930%_ + (lambda (_%L208155%_ _%L208157%_ _%L208158%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6471,7 +6465,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207026%_ '())) + (cons _%L208158%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6482,23 +6476,23 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L207026%_ '())) + (cons _%L208158%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207025%_ '())) + (cons _%L208157%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207023%_ '())) + (cons _%L208155%_ '())) (cons '#f (cons '#f (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont207799207800%_ - (lambda (_%L206937%_ _%L206939%_ _%L206940%_) + (_%__kont208931208932%_ + (lambda (_%L208069%_ _%L208071%_ _%L208072%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6507,7 +6501,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206940%_ '())) + (cons _%L208072%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6518,360 +6512,360 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L206940%_ '())) + (cons _%L208072%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206939%_ '())) + (cons _%L208071%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206937%_ '())) + (cons _%L208069%_ '())) (cons '#f (cons '#t (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx207792207793%_)) - (let ((_%e206820207054%_ + (gx#stx-pair? _%__stx208924208925%_)) + (let ((_%e207952208186%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx207792207793%_)))) - (let ((_%tl206822207061%_ + (gx#syntax-e _%__stx208924208925%_)))) + (let ((_%tl207954208193%_ (let () (declare (not safe)) - (##cdr _%e206820207054%_))) - (_%hd206821207058%_ + (##cdr _%e207952208186%_))) + (_%hd207953208190%_ (let () (declare (not safe)) - (##car _%e206820207054%_)))) + (##car _%e207952208186%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206822207061%_)) - (let ((_%e206823207064%_ + (gx#stx-pair? _%tl207954208193%_)) + (let ((_%e207955208196%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206822207061%_)))) - (let ((_%tl206825207071%_ + (gx#syntax-e _%tl207954208193%_)))) + (let ((_%tl207957208203%_ (let () (declare (not safe)) - (##cdr _%e206823207064%_))) - (_%hd206824207068%_ + (##cdr _%e207955208196%_))) + (_%hd207956208200%_ (let () (declare (not safe)) - (##car _%e206823207064%_)))) + (##car _%e207955208196%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd206824207068%_)) - (let ((_%e206826207074%_ + (gx#stx-datum? _%hd207956208200%_)) + (let ((_%e207958208206%_ (let () (declare (not safe)) - (gx#stx-e _%hd206824207068%_)))) - (if (equal? _%e206826207074%_ 'system:) + (gx#stx-e _%hd207956208200%_)))) + (if (equal? _%e207958208206%_ 'system:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206825207071%_)) - (let ((_%e206827207078%_ + (gx#stx-pair? _%tl207957208203%_)) + (let ((_%e207959208210%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206825207071%_)))) - (let ((_%tl206829207085%_ + _%tl207957208203%_)))) + (let ((_%tl207961208217%_ (let () (declare (not safe)) - (##cdr _%e206827207078%_))) - (_%hd206828207082%_ + (##cdr _%e207959208210%_))) + (_%hd207960208214%_ (let () (declare (not safe)) - (##car _%e206827207078%_)))) + (##car _%e207959208210%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206829207085%_)) - (let ((_%e206830207088%_ + _%tl207961208217%_)) + (let ((_%e207962208220%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206829207085%_)))) - (let ((_%tl206832207095%_ + _%tl207961208217%_)))) + (let ((_%tl207964208227%_ (let () (declare (not safe)) - (##cdr _%e206830207088%_))) - (_%hd206831207092%_ + (##cdr _%e207962208220%_))) + (_%hd207963208224%_ (let () (declare (not safe)) - (##car _%e206830207088%_)))) + (##car _%e207962208220%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206832207095%_)) - (_%__kont207795207796%_ - _%hd206831207092%_ - _%hd206828207082%_) + _%tl207964208227%_)) + (_%__kont208927208928%_ + _%hd207963208224%_ + _%hd207960208214%_) (let () (declare (not safe)) - (_%g206816206876%_))))) + (_%g207948208008%_))))) (let () (declare (not safe)) - (_%g206816206876%_))))) + (_%g207948208008%_))))) (let () (declare (not safe)) - (_%g206816206876%_))) - (if (equal? _%e206826207074%_ 'struct:) + (_%g207948208008%_))) + (if (equal? _%e207958208206%_ 'struct:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206825207071%_)) - (let ((_%e206843206993%_ + _%tl207957208203%_)) + (let ((_%e207975208125%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206825207071%_)))) - (let ((_%tl206845207000%_ + _%tl207957208203%_)))) + (let ((_%tl207977208132%_ (let () (declare (not safe)) - (##cdr _%e206843206993%_))) - (_%hd206844206997%_ + (##cdr _%e207975208125%_))) + (_%hd207976208129%_ (let () (declare (not safe)) - (##car _%e206843206993%_)))) + (##car _%e207975208125%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206845207000%_)) - (let ((_%e206846207003%_ + _%tl207977208132%_)) + (let ((_%e207978208135%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl206845207000%_)))) - (let ((_%tl206848207010%_ - (let () (declare (not safe)) (##cdr _%e206846207003%_))) - (_%hd206847207007%_ + (gx#syntax-e _%tl207977208132%_)))) + (let ((_%tl207980208142%_ + (let () (declare (not safe)) (##cdr _%e207978208135%_))) + (_%hd207979208139%_ (let () (declare (not safe)) - (##car _%e206846207003%_)))) + (##car _%e207978208135%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206848207010%_)) - (let ((_%e206849207013%_ + (gx#stx-pair? _%tl207980208142%_)) + (let ((_%e207981208145%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206848207010%_)))) - (let ((_%tl206851207020%_ + (gx#syntax-e _%tl207980208142%_)))) + (let ((_%tl207983208152%_ (let () (declare (not safe)) - (##cdr _%e206849207013%_))) - (_%hd206850207017%_ + (##cdr _%e207981208145%_))) + (_%hd207982208149%_ (let () (declare (not safe)) - (##car _%e206849207013%_)))) + (##car _%e207981208145%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206851207020%_)) - (_%__kont207797207798%_ - _%hd206850207017%_ - _%hd206847207007%_ - _%hd206844206997%_) + (gx#stx-null? _%tl207983208152%_)) + (_%__kont208929208930%_ + _%hd207982208149%_ + _%hd207979208139%_ + _%hd207976208129%_) (let () (declare (not safe)) - (_%g206816206876%_))))) - (let () (declare (not safe)) (_%g206816206876%_))))) - (let () (declare (not safe)) (_%g206816206876%_))))) + (_%g207948208008%_))))) + (let () (declare (not safe)) (_%g207948208008%_))))) + (let () (declare (not safe)) (_%g207948208008%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g206816206876%_))) - (if (equal? _%e206826207074%_ + (_%g207948208008%_))) + (if (equal? _%e207958208206%_ 'class:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206825207071%_)) - (let ((_%e206862206907%_ + _%tl207957208203%_)) + (let ((_%e207994208039%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206825207071%_)))) - (let ((_%tl206864206914%_ + _%tl207957208203%_)))) + (let ((_%tl207996208046%_ (let () (declare (not safe)) - (##cdr _%e206862206907%_))) - (_%hd206863206911%_ + (##cdr _%e207994208039%_))) + (_%hd207995208043%_ (let () (declare (not safe)) - (##car _%e206862206907%_)))) + (##car _%e207994208039%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206864206914%_)) - (let ((_%e206865206917%_ + _%tl207996208046%_)) + (let ((_%e207997208049%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl206864206914%_)))) - (let ((_%tl206867206924%_ + (gx#syntax-e _%tl207996208046%_)))) + (let ((_%tl207999208056%_ (let () (declare (not safe)) - (##cdr _%e206865206917%_))) - (_%hd206866206921%_ + (##cdr _%e207997208049%_))) + (_%hd207998208053%_ (let () (declare (not safe)) - (##car _%e206865206917%_)))) + (##car _%e207997208049%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206867206924%_)) - (let ((_%e206868206927%_ + (gx#stx-pair? _%tl207999208056%_)) + (let ((_%e208000208059%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206867206924%_)))) - (let ((_%tl206870206934%_ + (gx#syntax-e _%tl207999208056%_)))) + (let ((_%tl208002208066%_ (let () (declare (not safe)) - (##cdr _%e206868206927%_))) - (_%hd206869206931%_ + (##cdr _%e208000208059%_))) + (_%hd208001208063%_ (let () (declare (not safe)) - (##car _%e206868206927%_)))) + (##car _%e208000208059%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206870206934%_)) - (_%__kont207799207800%_ - _%hd206869206931%_ - _%hd206866206921%_ - _%hd206863206911%_) + (gx#stx-null? _%tl208002208066%_)) + (_%__kont208931208932%_ + _%hd208001208063%_ + _%hd207998208053%_ + _%hd207995208043%_) (let () (declare (not safe)) - (_%g206816206876%_))))) - (let () (declare (not safe)) (_%g206816206876%_))))) - (let () (declare (not safe)) (_%g206816206876%_))))) + (_%g207948208008%_))))) + (let () (declare (not safe)) (_%g207948208008%_))))) + (let () (declare (not safe)) (_%g207948208008%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g206816206876%_))) + (_%g207948208008%_))) (let () (declare (not safe)) - (_%g206816206876%_)))))) + (_%g207948208008%_)))))) (let () (declare (not safe)) - (_%g206816206876%_))))) - (let () (declare (not safe)) (_%g206816206876%_))))) - (let () (declare (not safe)) (_%g206816206876%_))))))) + (_%g207948208008%_))))) + (let () (declare (not safe)) (_%g207948208008%_))))) + (let () (declare (not safe)) (_%g207948208008%_))))))) (define |gxc[:0:]#declare-builtin-classes| - (lambda (_%$stx207122%_) - (let* ((_%g207126207146%_ - (lambda (_%g207127207142%_) + (lambda (_%$stx208254%_) + (let* ((_%g208258208278%_ + (lambda (_%g208259208274%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207127207142%_)))) - (_%g207125207217%_ - (lambda (_%g207127207150%_) + _%g208259208274%_)))) + (_%g208257208349%_ + (lambda (_%g208259208282%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g207127207150%_)) - (let ((_%e207129207153%_ + (gx#stx-pair? _%g208259208282%_)) + (let ((_%e208261208285%_ (let () (declare (not safe)) - (gx#syntax-e _%g207127207150%_)))) - (let ((_%hd207130207157%_ + (gx#syntax-e _%g208259208282%_)))) + (let ((_%hd208262208289%_ (let () (declare (not safe)) - (##car _%e207129207153%_))) - (_%tl207131207160%_ + (##car _%e208261208285%_))) + (_%tl208263208292%_ (let () (declare (not safe)) - (##cdr _%e207129207153%_)))) + (##cdr _%e208261208285%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl207131207160%_)) - (let ((_g207973_ + (gx#stx-pair/null? _%tl208263208292%_)) + (let ((_g209105_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl207131207160%_ + _%tl208263208292%_ '0)))) (begin - (let ((_g207974_ + (let ((_g209106_ (let () (declare (not safe)) - (if (##values? _g207973_) - (##vector-length _g207973_) + (if (##values? _g209105_) + (##vector-length _g209105_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207974_ 2))) + (##fx= _g209106_ 2))) (error "Context expects 2 values" - _g207974_))) - (let ((_%target207132207163%_ + _g209106_))) + (let ((_%target208264208295%_ (let () (declare (not safe)) - (##vector-ref _g207973_ 0))) - (_%tl207134207166%_ + (##vector-ref _g209105_ 0))) + (_%tl208266208298%_ (let () (declare (not safe)) - (##vector-ref _g207973_ 1)))) + (##vector-ref _g209105_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207134207166%_)) - (letrec ((_%loop207135207169%_ - (lambda (_%hd207133207173%_ - _%decl207139207176%_) + (gx#stx-null? _%tl208266208298%_)) + (letrec ((_%loop208267208301%_ + (lambda (_%hd208265208305%_ + _%decl208271208308%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207133207173%_)) - (let ((_%e207136207179%_ + _%hd208265208305%_)) + (let ((_%e208268208311%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd207133207173%_)))) - (let ((_%lp-hd207137207183%_ + (gx#syntax-e _%hd208265208305%_)))) + (let ((_%lp-hd208269208315%_ (let () (declare (not safe)) - (##car _%e207136207179%_))) - (_%lp-tl207138207186%_ + (##car _%e208268208311%_))) + (_%lp-tl208270208318%_ (let () (declare (not safe)) - (##cdr _%e207136207179%_)))) - (_%loop207135207169%_ - _%lp-tl207138207186%_ - (cons _%lp-hd207137207183%_ _%decl207139207176%_)))) - (let ((_%decl207140207189%_ (reverse _%decl207139207176%_))) - ((lambda (_%L207193%_) + (##cdr _%e208268208311%_)))) + (_%loop208267208301%_ + _%lp-tl208270208318%_ + (cons _%lp-hd208269208315%_ _%decl208271208308%_)))) + (let ((_%decl208272208321%_ (reverse _%decl208271208308%_))) + ((lambda (_%L208325%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp207975 - (lambda (_%g207208207211%_ _%g207209207214%_) + (let ((__tmp209107 + (lambda (_%g208340208343%_ _%g208341208346%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-builtin-class)) - _%g207208207211%_) - _%g207209207214%_)))) + _%g208340208343%_) + _%g208341208346%_)))) (declare (not safe)) - (__foldr1 __tmp207975 '() _%L207193%_)))) - _%decl207140207189%_)))))) + (__foldr1 __tmp209107 '() _%L208325%_)))) + _%decl208272208321%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop207135207169%_ - _%target207132207163%_ + (_%loop208267208301%_ + _%target208264208295%_ '())) - (_%g207126207146%_ - _%g207127207150%_))))) - (_%g207126207146%_ _%g207127207150%_)))) - (_%g207126207146%_ _%g207127207150%_))))) - (_%g207125207217%_ _%$stx207122%_)))))) + (_%g208258208278%_ + _%g208259208282%_))))) + (_%g208258208278%_ _%g208259208282%_)))) + (_%g208258208278%_ _%g208259208282%_))))) + (_%g208257208349%_ _%$stx208254%_)))))) diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index 3f8348e80..a4c8206a5 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-1 0 MOP-1) (0 MOP-4 0 MOP-4) - (0 MOP-3 0 MOP-3) + (0 MOP-1 0 MOP-1) (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 defclass 0 defclass) (0 define-class 0 define-class) (0 define-struct 0 define-struct) - (0 defstruct 0 defstruct) (0 @-set! 0 @-set!) - (0 @ 0 @) (0 defmethod 0 defmethod) + (0 @ 0 @) + (0 defclass 0 defclass) + (0 defstruct 0 defstruct) + (0 :readtable 0 :readtable) + (0 :number 0 :number) + (0 :directory-port 0 :directory-port) + (0 :real 0 :real) + (0 :f64vector 0 :f64vector) + (0 :class 0 :class) + (0 :thread 0 :thread) (0 :u64vector 0 :u64vector) - (0 :s32vector 0 :s32vector) - (0 defsystem-class-info 0 defsystem-class-info) + (0 :processor 0 :processor) + (0 :s64vector 0 :s64vector) + (0 :ratnum 0 :ratnum) + (0 :port 0 :port) + (0 :bignum 0 :bignum) + (0 :writeenv 0 :writeenv) + (0 :event-queue-port 0 :event-queue-port) + (0 :time 0 :time) + (0 :promise 0 :promise) + (0 :eof 0 :eof) + (0 :s16vector 0 :s16vector) + (0 :t 0 :t) + (0 :weak 0 :weak) + (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 :u8vector 0 :u8vector) + (0 :device-port 0 :device-port) (0 :frame 0 :frame) - (0 :foreign 0 :foreign) - (0 :real 0 :real) - (0 :pair 0 :pair) - (0 :u8vector-port 0 :u8vector-port) (0 :boolean 0 :boolean) + (0 :object-port 0 :object-port) + (0 :pair 0 :pair) + (0 :continuation 0 :continuation) + (0 :mutex 0 :mutex) + (0 :vm 0 :vm) + (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 :integer 0 :integer) - (0 :procedure 0 :procedure) - (0 :cpxnum 0 :cpxnum) + (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 :string-port 0 :string-port) (0 :raw-device-port 0 :raw-device-port) - (0 :immediate 0 :immediate) - (0 :symbolic 0 :symbolic) - (0 :s64vector 0 :s64vector) - (0 :mutex 0 :mutex) - (0 :f32vector 0 :f32vector) - (0 :box 0 :box) - (0 :list 0 :list) + (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 :u16vector 0 :u16vector) - (0 :keyword 0 :keyword) - (0 :tcp-server-port 0 :tcp-server-port) - (0 :bignum 0 :bignum) - (0 :s16vector 0 :s16vector) (0 class 0 class) - (0 :time 0 :time) + (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 :processor 0 :processor) - (0 :writeenv 0 :writeenv) - (0 :promise 0 :promise) - (0 :continuation 0 :continuation) - (0 :f64vector 0 :f64vector) - (0 :s8vector 0 :s8vector) - (0 :number 0 :number) - (0 :u8vector 0 :u8vector) - (0 :null 0 :null) - (0 :true 0 :true) - (0 :t 0 :t) - (0 :atom 0 :atom) - (0 :directory-port 0 :directory-port) - (0 :byte-port 0 :byte-port) + (0 :string-port 0 :string-port) (0 :character-port 0 :character-port) - (0 :port 0 :port) - (0 :void 0 :void) - (0 :string 0 :string) - (0 :condvar 0 :condvar) - (0 :eof 0 :eof) - (0 :thread-group 0 :thread-group) - (0 :values 0 :values) - (0 :vector 0 :vector) - (0 :sequence 0 :sequence) - (0 :special 0 :special) - (0 :weak 0 :weak) - (0 :readtable 0 :readtable) - (0 :object 0 :object) - (0 :vm 0 :vm) - (0 :readenv 0 :readenv) - (0 :event-queue-port 0 :event-queue-port) (0 :vector-port 0 :vector-port) - (0 :device-port 0 :device-port) - (0 :object-port 0 :object-port) - (0 :thread 0 :thread) - (0 :ratnum 0 :ratnum) - (0 :flonum 0 :flonum) - (0 :class 0 :class) - (0 :false 0 :false) - (0 :symbol 0 :symbol) - (0 :hvector 0 :hvector) (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? 1 !class-type-system?) - (1 - !class-type-constructor-method-set! - 1 - !class-type-constructor-method-set!) - (1 &!class-type-constructor 1 &!class-type-constructor) - (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (1 &!class-type-struct? 1 &!class-type-struct?) + (1 &!class-type-system?-set! 1 &!class-type-system?-set!) + (1 !class-type-descriptor 1 !class-type-descriptor) (1 - class-type-info::apply-macro-expander + &!class-type-constructor-method 1 - class-type-info::apply-macro-expander) + &!class-type-constructor-method) + (1 &!class-type-slots-set! 1 &!class-type-slots-set!) + (1 !class-type-super-set! 1 !class-type-super-set!) + (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-precedence-list 1 &!class-type-precedence-list) - (1 &!class-type-super 1 &!class-type-super) - (1 !class-type-name-set! 1 !class-type-name-set!) - (1 !class-type-slot-contracts 1 !class-type-slot-contracts) - (1 !class-type-constructor 1 !class-type-constructor) - (1 !class-type-descriptor 1 !class-type-descriptor) - (1 !class-type-super 1 !class-type-super) - (1 &!class-type-slot-types 1 &!class-type-slot-types) - (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) - (1 &!class-type-super-set! 1 &!class-type-super-set!) - (1 &!class-type-constructor-set! 1 &!class-type-constructor-set!) (1 - &!class-type-ordered-slots-set! + &!class-type-unchecked-mutators-set! 1 - &!class-type-ordered-slots-set!) - (1 !class-type-accessors 1 !class-type-accessors) - (1 !class-type-ordered-slots 1 !class-type-ordered-slots) + &!class-type-unchecked-mutators-set!) (1 - !class-type-unchecked-accessors + &!class-type-constructor-method-set! 1 - !class-type-unchecked-accessors) - (1 &!class-type-name-set! 1 &!class-type-name-set!) - (1 &!class-type-slots 1 &!class-type-slots) + &!class-type-constructor-method-set!) + (1 &!class-type-predicate 1 &!class-type-predicate) (1 - &!class-type-unchecked-accessors + &!class-type-slot-defaults-set! 1 - &!class-type-unchecked-accessors) - (1 &!class-type-descriptor 1 &!class-type-descriptor) + &!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!) (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-slot-defaults-set! - 1 - &!class-type-slot-defaults-set!) - (1 - &!class-type-unchecked-mutators-set! + !class-type-unchecked-mutators-set! 1 - &!class-type-unchecked-mutators-set!) + !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-metaclass 1 &!class-type-metaclass) - (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (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-precedence-list-set! 1 !class-type-precedence-list-set!) - (1 !class-type-slot-defaults 1 !class-type-slot-defaults) - (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (1 &!class-type-slots-set! 1 &!class-type-slots-set!) - (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!) - (1 - &!class-type-slot-contracts-set! - 1 - &!class-type-slot-contracts-set!) - (1 &!class-type-slot-types-set! 1 &!class-type-slot-types-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-unchecked-accessors-set! + !class-type-slot-contracts-set! 1 - &!class-type-unchecked-accessors-set!) - (1 &!class-type-ordered-slots 1 &!class-type-ordered-slots) + !class-type-slot-contracts-set!) + (1 &!class-type-metaclass 1 &!class-type-metaclass) (1 - !class-type-unchecked-accessors-set! + &!class-type-unchecked-accessors 1 - !class-type-unchecked-accessors-set!) - (1 !class-type-id-set! 1 !class-type-id-set!) - (1 !class-type-struct? 1 !class-type-struct?) - (1 !class-type-slots 1 !class-type-slots) - (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) - (1 &!class-type-system?-set! 1 &!class-type-system?-set!) + &!class-type-unchecked-accessors) + (1 !class-type-id 1 !class-type-id) + (1 &!class-type-id 1 &!class-type-id) (1 - &!class-type-constructor-method + &!class-type-slot-contracts-set! 1 - &!class-type-constructor-method) - (1 &!class-type-id 1 &!class-type-id) + &!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?) (1 - &!class-type-constructor-method-set! + &!class-type-unchecked-accessors-set! 1 - &!class-type-constructor-method-set!) - (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (1 make-class-type-info 1 make-class-type-info) + &!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-slot-types-set! 1 !class-type-slot-types-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!) - (1 !class-type-predicate 1 !class-type-predicate) - (1 &!class-type-predicate 1 &!class-type-predicate) (1 - !class-type-unchecked-mutators-set! + &!class-type-unchecked-mutators 1 - !class-type-unchecked-mutators-set!) + &!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-super-set! 1 !class-type-super-set!) - (1 !class-type-predicate-set! 1 !class-type-predicate-set!) - (1 !class-type-final?-set! 1 !class-type-final?-set!) - (1 !class-type-mutators 1 !class-type-mutators) (1 !class-type-metaclass 1 !class-type-metaclass) - (1 !class-type-precedence-list 1 !class-type-precedence-list) - (1 &!class-type-name 1 &!class-type-name) - (1 !class-type-constructor-method 1 !class-type-constructor-method) - (1 - &!class-type-unchecked-mutators - 1 - &!class-type-unchecked-mutators) - (1 !class-type-final? 1 !class-type-final?) + (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-id-set! 1 &!class-type-id-set!) - (1 !class-type-mutators-set! 1 !class-type-mutators-set!) + (1 &!class-type-name 1 &!class-type-name) + (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) (1 - !class-type-slot-contracts-set! + !class-type-unchecked-accessors 1 - !class-type-slot-contracts-set!) - (1 &!class-type-system? 1 &!class-type-system?) - (1 !class-type-accessors-set! 1 !class-type-accessors-set!) + !class-type-unchecked-accessors) + (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-descriptor-set! 1 &!class-type-descriptor-set!) - (1 &!class-type-accessors 1 &!class-type-accessors) - (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (1 !class-type-id 1 !class-type-id) + (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-unchecked-mutators 1 !class-type-unchecked-mutators) + (1 + class-type-info::apply-macro-expander + 1 + class-type-info::apply-macro-expander) + (1 + !class-type-constructor-method-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!) + (1 + &!class-type-ordered-slots-set! + 1 + &!class-type-ordered-slots-set!) + (1 + !class-type-unchecked-accessors-set! + 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) (1 class-type-info 1 class-type-info) - (1 defclass 1 defclass) (1 define-class 1 define-class) (1 define-struct 1 define-struct) - (1 defstruct 1 defstruct) (1 @-set! 1 @-set!) - (1 @ 1 @) (1 defmethod 1 defmethod) + (1 @ 1 @) + (1 defclass 1 defclass) + (1 defstruct 1 defstruct) + (1 :readtable 1 :readtable) + (1 :number 1 :number) + (1 :directory-port 1 :directory-port) + (1 :real 1 :real) + (1 :f64vector 1 :f64vector) + (1 :class 1 :class) + (1 :thread 1 :thread) (1 :u64vector 1 :u64vector) - (1 :s32vector 1 :s32vector) - (1 defsystem-class-info 1 defsystem-class-info) + (1 :processor 1 :processor) + (1 :s64vector 1 :s64vector) + (1 :ratnum 1 :ratnum) + (1 :port 1 :port) + (1 :bignum 1 :bignum) + (1 :writeenv 1 :writeenv) + (1 :event-queue-port 1 :event-queue-port) + (1 :time 1 :time) + (1 :promise 1 :promise) + (1 :eof 1 :eof) + (1 :s16vector 1 :s16vector) + (1 :t 1 :t) + (1 :weak 1 :weak) + (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 :u8vector 1 :u8vector) + (1 :device-port 1 :device-port) (1 :frame 1 :frame) - (1 :foreign 1 :foreign) - (1 :real 1 :real) - (1 :pair 1 :pair) - (1 :u8vector-port 1 :u8vector-port) (1 :boolean 1 :boolean) + (1 :object-port 1 :object-port) + (1 :pair 1 :pair) + (1 :continuation 1 :continuation) + (1 :mutex 1 :mutex) + (1 :vm 1 :vm) + (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 :integer 1 :integer) - (1 :procedure 1 :procedure) - (1 :cpxnum 1 :cpxnum) + (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 :string-port 1 :string-port) (1 :raw-device-port 1 :raw-device-port) - (1 :immediate 1 :immediate) - (1 :symbolic 1 :symbolic) - (1 :s64vector 1 :s64vector) - (1 :mutex 1 :mutex) - (1 :f32vector 1 :f32vector) - (1 :box 1 :box) - (1 :list 1 :list) + (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 :u16vector 1 :u16vector) - (1 :keyword 1 :keyword) - (1 :tcp-server-port 1 :tcp-server-port) - (1 :bignum 1 :bignum) - (1 :s16vector 1 :s16vector) (1 class 1 class) - (1 :time 1 :time) + (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 :processor 1 :processor) - (1 :writeenv 1 :writeenv) - (1 :promise 1 :promise) - (1 :continuation 1 :continuation) - (1 :f64vector 1 :f64vector) - (1 :s8vector 1 :s8vector) - (1 :number 1 :number) - (1 :u8vector 1 :u8vector) - (1 :null 1 :null) - (1 :true 1 :true) - (1 :t 1 :t) - (1 :atom 1 :atom) - (1 :directory-port 1 :directory-port) - (1 :byte-port 1 :byte-port) + (1 :string-port 1 :string-port) (1 :character-port 1 :character-port) - (1 :port 1 :port) - (1 :void 1 :void) - (1 :string 1 :string) - (1 :condvar 1 :condvar) - (1 :eof 1 :eof) - (1 :thread-group 1 :thread-group) - (1 :values 1 :values) - (1 :vector 1 :vector) - (1 :sequence 1 :sequence) - (1 :special 1 :special) - (1 :weak 1 :weak) - (1 :readtable 1 :readtable) - (1 :object 1 :object) - (1 :vm 1 :vm) - (1 :readenv 1 :readenv) - (1 :event-queue-port 1 :event-queue-port) - (1 :vector-port 1 :vector-port) - (1 :device-port 1 :device-port) - (1 :object-port 1 :object-port) - (1 :thread 1 :thread) - (1 :ratnum 1 :ratnum) - (1 :flonum 1 :flonum) - (1 :class 1 :class) - (1 :false 1 :false) - (1 :symbol 1 :symbol) - (1 :hvector 1 :hvector)) + (1 :vector-port 1 :vector-port)) :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-1 0 MOP-1) (1 MOP-4 0 MOP-4) - (1 MOP-3 0 MOP-3) + (1 MOP-1 0 MOP-1) (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 defclass 0 defclass) (1 define-class 0 define-class) (1 define-struct 0 define-struct) - (1 defstruct 0 defstruct) (1 @-set! 0 @-set!) - (1 @ 0 @) (1 defmethod 0 defmethod) - (1 :u64vector 0 :u64vector) - (1 :s32vector 0 :s32vector) - (1 defsystem-class-info 0 defsystem-class-info) - (1 :fixnum 0 :fixnum) - (1 :frame 0 :frame) - (1 :foreign 0 :foreign) + (1 @ 0 @) + (1 defclass 0 defclass) + (1 defstruct 0 defstruct) + (1 :readtable 0 :readtable) + (1 :number 0 :number) + (1 :directory-port 0 :directory-port) (1 :real 0 :real) - (1 :pair 0 :pair) - (1 :u8vector-port 0 :u8vector-port) - (1 :boolean 0 :boolean) - (1 :char 0 :char) - (1 :integer 0 :integer) - (1 :procedure 0 :procedure) - (1 :cpxnum 0 :cpxnum) - (1 :address-info 0 :address-info) - (1 :table 0 :table) - (1 :udp-port 0 :udp-port) - (1 :string-port 0 :string-port) - (1 :raw-device-port 0 :raw-device-port) - (1 :immediate 0 :immediate) - (1 :symbolic 0 :symbolic) + (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 :mutex 0 :mutex) - (1 :f32vector 0 :f32vector) - (1 :box 0 :box) - (1 :list 0 :list) - (1 :u32vector 0 :u32vector) - (1 :u16vector 0 :u16vector) - (1 :keyword 0 :keyword) - (1 :tcp-server-port 0 :tcp-server-port) + (1 :ratnum 0 :ratnum) + (1 :port 0 :port) (1 :bignum 0 :bignum) - (1 :s16vector 0 :s16vector) - (1 class 0 class) - (1 :time 0 :time) - (1 :socket-info 0 :socket-info) - (1 :file-info 0 :file-info) - (1 :processor 0 :processor) (1 :writeenv 0 :writeenv) + (1 :event-queue-port 0 :event-queue-port) + (1 :time 0 :time) (1 :promise 0 :promise) - (1 :continuation 0 :continuation) - (1 :f64vector 0 :f64vector) - (1 :s8vector 0 :s8vector) - (1 :number 0 :number) - (1 :u8vector 0 :u8vector) - (1 :null 0 :null) - (1 :true 0 :true) - (1 :t 0 :t) - (1 :atom 0 :atom) - (1 :directory-port 0 :directory-port) - (1 :byte-port 0 :byte-port) - (1 :character-port 0 :character-port) - (1 :port 0 :port) - (1 :void 0 :void) - (1 :string 0 :string) - (1 :condvar 0 :condvar) (1 :eof 0 :eof) - (1 :thread-group 0 :thread-group) - (1 :values 0 :values) - (1 :vector 0 :vector) - (1 :sequence 0 :sequence) - (1 :special 0 :special) + (1 :s16vector 0 :s16vector) + (1 :t 0 :t) (1 :weak 0 :weak) - (1 :readtable 0 :readtable) - (1 :object 0 :object) - (1 :vm 0 :vm) + (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 :event-queue-port 0 :event-queue-port) - (1 :vector-port 0 :vector-port) + (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 :thread 0 :thread) - (1 :ratnum 0 :ratnum) - (1 :flonum 0 :flonum) - (1 :class 0 :class) + (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 :flonum 0 :flonum) + (1 :s32vector 0 :s32vector) + (1 :null 0 :null) + (1 :keyword 0 :keyword) + (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 :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 :foreign 0 :foreign) + (1 :sequence 0 :sequence) + (1 :box 0 :box) + (1 :u16vector 0 :u16vector) + (1 :string 0 :string) + (1 :list 0 :list) (1 :symbol 0 :symbol) - (1 :hvector 0 :hvector) + (1 :socket-info 0 :socket-info) + (1 :file-info 0 :file-info) + (1 :string-port 0 :string-port) + (1 :character-port 0 :character-port) + (1 :vector-port 0 :vector-port) (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? 1 !class-type-system?) - (2 - !class-type-constructor-method-set! - 1 - !class-type-constructor-method-set!) - (2 &!class-type-constructor 1 &!class-type-constructor) - (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (2 &!class-type-struct? 1 &!class-type-struct?) + (2 &!class-type-system?-set! 1 &!class-type-system?-set!) + (2 !class-type-descriptor 1 !class-type-descriptor) (2 - class-type-info::apply-macro-expander + &!class-type-constructor-method 1 - class-type-info::apply-macro-expander) + &!class-type-constructor-method) + (2 &!class-type-slots-set! 1 &!class-type-slots-set!) + (2 !class-type-super-set! 1 !class-type-super-set!) + (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-precedence-list 1 &!class-type-precedence-list) - (2 &!class-type-super 1 &!class-type-super) - (2 !class-type-name-set! 1 !class-type-name-set!) - (2 !class-type-slot-contracts 1 !class-type-slot-contracts) - (2 !class-type-constructor 1 !class-type-constructor) - (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 syntax-local-class-type-info? 1 syntax-local-class-type-info?) - (2 &!class-type-super-set! 1 &!class-type-super-set!) - (2 &!class-type-constructor-set! 1 &!class-type-constructor-set!) (2 - &!class-type-ordered-slots-set! + &!class-type-unchecked-mutators-set! 1 - &!class-type-ordered-slots-set!) - (2 !class-type-accessors 1 !class-type-accessors) - (2 !class-type-ordered-slots 1 !class-type-ordered-slots) + &!class-type-unchecked-mutators-set!) (2 - !class-type-unchecked-accessors + &!class-type-constructor-method-set! 1 - !class-type-unchecked-accessors) - (2 &!class-type-name-set! 1 &!class-type-name-set!) - (2 &!class-type-slots 1 &!class-type-slots) + &!class-type-constructor-method-set!) + (2 &!class-type-predicate 1 &!class-type-predicate) (2 - &!class-type-unchecked-accessors + &!class-type-slot-defaults-set! 1 - &!class-type-unchecked-accessors) - (2 &!class-type-descriptor 1 &!class-type-descriptor) + &!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!) (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-slot-defaults-set! - 1 - &!class-type-slot-defaults-set!) - (2 - &!class-type-unchecked-mutators-set! + !class-type-unchecked-mutators-set! 1 - &!class-type-unchecked-mutators-set!) + !class-type-unchecked-mutators-set!) + (2 &!class-type-slots 1 &!class-type-slots) + (2 &!class-type-struct? 1 &!class-type-struct?) + (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-metaclass 1 &!class-type-metaclass) - (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (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-precedence-list-set! 1 !class-type-precedence-list-set!) - (2 !class-type-slot-defaults 1 !class-type-slot-defaults) - (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (2 &!class-type-slots-set! 1 &!class-type-slots-set!) - (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!) - (2 - &!class-type-slot-contracts-set! - 1 - &!class-type-slot-contracts-set!) - (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (2 !class-type-slot-contracts 1 !class-type-slot-contracts) + (2 !class-type-mutators 1 !class-type-mutators) + (2 !class-type-constructor-method 1 !class-type-constructor-method) + (2 !class-type-precedence-list 1 !class-type-precedence-list) (2 - &!class-type-unchecked-accessors-set! + !class-type-slot-contracts-set! 1 - &!class-type-unchecked-accessors-set!) - (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) + !class-type-slot-contracts-set!) + (2 &!class-type-metaclass 1 &!class-type-metaclass) (2 - !class-type-unchecked-accessors-set! + &!class-type-unchecked-accessors 1 - !class-type-unchecked-accessors-set!) - (2 !class-type-id-set! 1 !class-type-id-set!) - (2 !class-type-struct? 1 !class-type-struct?) - (2 !class-type-slots 1 !class-type-slots) - (2 &!class-type-accessors-set! 1 &!class-type-accessors-set!) - (2 &!class-type-system?-set! 1 &!class-type-system?-set!) + &!class-type-unchecked-accessors) + (2 !class-type-id 1 !class-type-id) + (2 &!class-type-id 1 &!class-type-id) (2 - &!class-type-constructor-method + &!class-type-slot-contracts-set! 1 - &!class-type-constructor-method) - (2 &!class-type-id 1 &!class-type-id) + &!class-type-slot-contracts-set!) + (2 !class-type-accessors-set! 1 !class-type-accessors-set!) + (2 syntax-local-class-type-info? 1 syntax-local-class-type-info?) (2 - &!class-type-constructor-method-set! + &!class-type-unchecked-accessors-set! 1 - &!class-type-constructor-method-set!) - (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (2 make-class-type-info 1 make-class-type-info) + &!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-slot-types-set! 1 !class-type-slot-types-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!) - (2 !class-type-predicate 1 !class-type-predicate) - (2 &!class-type-predicate 1 &!class-type-predicate) (2 - !class-type-unchecked-mutators-set! + &!class-type-unchecked-mutators 1 - !class-type-unchecked-mutators-set!) + &!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?) + (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-super-set! 1 !class-type-super-set!) - (2 !class-type-predicate-set! 1 !class-type-predicate-set!) - (2 !class-type-final?-set! 1 !class-type-final?-set!) - (2 !class-type-mutators 1 !class-type-mutators) (2 !class-type-metaclass 1 !class-type-metaclass) - (2 !class-type-precedence-list 1 !class-type-precedence-list) - (2 &!class-type-name 1 &!class-type-name) - (2 !class-type-constructor-method 1 !class-type-constructor-method) - (2 - &!class-type-unchecked-mutators - 1 - &!class-type-unchecked-mutators) - (2 !class-type-final? 1 !class-type-final?) + (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-id-set! 1 &!class-type-id-set!) - (2 !class-type-mutators-set! 1 !class-type-mutators-set!) + (2 &!class-type-name 1 &!class-type-name) + (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) (2 - !class-type-slot-contracts-set! + !class-type-unchecked-accessors 1 - !class-type-slot-contracts-set!) - (2 &!class-type-system? 1 &!class-type-system?) - (2 !class-type-accessors-set! 1 !class-type-accessors-set!) + !class-type-unchecked-accessors) + (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-descriptor-set! 1 &!class-type-descriptor-set!) - (2 &!class-type-accessors 1 &!class-type-accessors) - (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (2 !class-type-id 1 !class-type-id) + (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-unchecked-mutators 1 !class-type-unchecked-mutators) - (2 !class-type-slots-set! 1 !class-type-slots-set!) - (2 class-type-info::t 1 class-type-info::t) - (2 class-type-info 1 class-type-info) - (2 defclass 1 defclass) - (2 define-class 1 define-class) - (2 define-struct 1 define-struct) - (2 defstruct 1 defstruct) + (2 + class-type-info::apply-macro-expander + 1 + class-type-info::apply-macro-expander) + (2 + !class-type-constructor-method-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!) + (2 + &!class-type-ordered-slots-set! + 1 + &!class-type-ordered-slots-set!) + (2 + !class-type-unchecked-accessors-set! + 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) + (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 @ 1 @) (2 defmethod 1 defmethod) + (2 @ 1 @) + (2 defclass 1 defclass) + (2 defstruct 1 defstruct) + (2 :readtable 1 :readtable) + (2 :number 1 :number) + (2 :directory-port 1 :directory-port) + (2 :real 1 :real) + (2 :f64vector 1 :f64vector) + (2 :class 1 :class) + (2 :thread 1 :thread) (2 :u64vector 1 :u64vector) - (2 :s32vector 1 :s32vector) - (2 defsystem-class-info 1 defsystem-class-info) + (2 :processor 1 :processor) + (2 :s64vector 1 :s64vector) + (2 :ratnum 1 :ratnum) + (2 :port 1 :port) + (2 :bignum 1 :bignum) + (2 :writeenv 1 :writeenv) + (2 :event-queue-port 1 :event-queue-port) + (2 :time 1 :time) + (2 :promise 1 :promise) + (2 :eof 1 :eof) + (2 :s16vector 1 :s16vector) + (2 :t 1 :t) + (2 :weak 1 :weak) + (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 :u8vector 1 :u8vector) + (2 :device-port 1 :device-port) (2 :frame 1 :frame) - (2 :foreign 1 :foreign) - (2 :real 1 :real) - (2 :pair 1 :pair) - (2 :u8vector-port 1 :u8vector-port) (2 :boolean 1 :boolean) + (2 :object-port 1 :object-port) + (2 :pair 1 :pair) + (2 :continuation 1 :continuation) + (2 :mutex 1 :mutex) + (2 :vm 1 :vm) + (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 :integer 1 :integer) - (2 :procedure 1 :procedure) - (2 :cpxnum 1 :cpxnum) + (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 :string-port 1 :string-port) (2 :raw-device-port 1 :raw-device-port) - (2 :immediate 1 :immediate) - (2 :symbolic 1 :symbolic) - (2 :s64vector 1 :s64vector) - (2 :mutex 1 :mutex) - (2 :f32vector 1 :f32vector) - (2 :box 1 :box) - (2 :list 1 :list) + (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 :u16vector 1 :u16vector) - (2 :keyword 1 :keyword) - (2 :tcp-server-port 1 :tcp-server-port) - (2 :bignum 1 :bignum) - (2 :s16vector 1 :s16vector) (2 class 1 class) - (2 :time 1 :time) + (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 :processor 1 :processor) - (2 :writeenv 1 :writeenv) - (2 :promise 1 :promise) - (2 :continuation 1 :continuation) - (2 :f64vector 1 :f64vector) - (2 :s8vector 1 :s8vector) - (2 :number 1 :number) - (2 :u8vector 1 :u8vector) - (2 :null 1 :null) - (2 :true 1 :true) - (2 :t 1 :t) - (2 :atom 1 :atom) - (2 :directory-port 1 :directory-port) - (2 :byte-port 1 :byte-port) + (2 :string-port 1 :string-port) (2 :character-port 1 :character-port) - (2 :port 1 :port) - (2 :void 1 :void) - (2 :string 1 :string) - (2 :condvar 1 :condvar) - (2 :eof 1 :eof) - (2 :thread-group 1 :thread-group) - (2 :values 1 :values) - (2 :vector 1 :vector) - (2 :sequence 1 :sequence) - (2 :special 1 :special) - (2 :weak 1 :weak) - (2 :readtable 1 :readtable) - (2 :object 1 :object) - (2 :vm 1 :vm) - (2 :readenv 1 :readenv) - (2 :event-queue-port 1 :event-queue-port) - (2 :vector-port 1 :vector-port) - (2 :device-port 1 :device-port) - (2 :object-port 1 :object-port) - (2 :thread 1 :thread) - (2 :ratnum 1 :ratnum) - (2 :flonum 1 :flonum) - (2 :class 1 :class) - (2 :false 1 :false) - (2 :symbol 1 :symbol) - (2 :hvector 1 :hvector)) + (2 :vector-port 1 :vector-port)) (phi: 1 :gerbil/core/match) (phi: 1 :gerbil/core/more-sugar) (phi: 1 :gerbil/core/contract) @@ -669,298 +669,302 @@ namespace: gerbil/core (phi: 2 :gerbil/core/expander)) (%#export (spec: 1 !class-precedence-list !class-precedence-list) + (spec: 1 type-env-type-set! type-env-type-set!) + (spec: 1 &type-env-type-set! &type-env-type-set!) + (spec: 1 current-type-env current-type-env) (spec: 1 type-env-type type-env-type) - (spec: 1 type-env-var-set! type-env-var-set!) - (spec: 1 &type-env-type &type-env-type) (spec: 1 type-env::t type-env::t) - (spec: 1 type-env-checked? type-env-checked?) - (spec: 1 type-env type-env) - (spec: 1 &type-env-type-set! &type-env-type-set!) (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? &type-env-checked?) - (spec: 1 make-type-env make-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?-set! &type-env-checked?-set!) + (spec: 1 type-env-var type-env-var) (spec: 1 type-env-super-set! type-env-super-set!) + (spec: 1 &type-env-checked? &type-env-checked?) + (spec: 1 type-env type-env) + (spec: 1 type-env-checked? type-env-checked?) (spec: 1 &type-env-var &type-env-var) - (spec: 1 current-type-env current-type-env) - (spec: 1 type-env-var type-env-var) - (spec: 1 &type-env-super-set! &type-env-super-set!) - (spec: 1 &type-env-var-set! &type-env-var-set!) - (spec: 1 type-env-lookup type-env-lookup) (spec: 1 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) - (spec: - 1 - &interface-info-interface-methods - &interface-info-interface-methods) - (spec: 1 &interface-info-instance-type &interface-info-instance-type) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) (spec: 1 &interface-info-instance-satisfies-predicate &interface-info-instance-satisfies-predicate) - (spec: 1 &interface-info-name-set! &interface-info-name-set!) + (spec: 1 interface-info::t interface-info::t) (spec: 1 - interface-info-instance-satisfies-predicate-set! - interface-info-instance-satisfies-predicate-set!) - (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) (spec: 1 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) - (spec: 1 interface-info-name-set! interface-info-name-set!) - (spec: 1 make-interface-info make-interface-info) + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) + (spec: 1 interface-info-flatten-mixin interface-info-flatten-mixin) (spec: 1 - interface-info-interface-mixin - interface-info-interface-mixin) + interface-info-interface-methods + interface-info-interface-methods) + (spec: 1 interface-info-instance-type interface-info-instance-type) (spec: 1 - &interface-info-instance-predicate - &interface-info-instance-predicate) + &interface-info-unchecked-implementation-methods-set! + &interface-info-unchecked-implementation-methods-set!) (spec: 1 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) (spec: 1 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + interface-info-instance-constructor + interface-info-instance-constructor) (spec: 1 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) + interface-info-instance-type-set! + interface-info-instance-type-set!) + (spec: + 1 + interface-info-instance-predicate + interface-info-instance-predicate) (spec: 1 interface-info-instance-predicate-set! interface-info-instance-predicate-set!) (spec: 1 - interface-info-implementation-methods - interface-info-implementation-methods) + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) (spec: 1 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) + (spec: 1 interface-info? interface-info?) (spec: 1 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) - (spec: 1 &interface-info-name &interface-info-name) + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) (spec: 1 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) + &interface-info-implementation-methods + &interface-info-implementation-methods) (spec: 1 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: 1 - interface-info-instance-constructor - interface-info-instance-constructor) + &interface-info-interface-descriptor-set! + &interface-info-interface-descriptor-set!) (spec: 1 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-set!) + interface-info::apply-macro-expander + interface-info::apply-macro-expander) + (spec: 1 &interface-info-name &interface-info-name) (spec: 1 - &interface-info-instance-try-constructor - &interface-info-instance-try-constructor) - (spec: 1 interface-info interface-info) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) + (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) (spec: 1 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) + &interface-info-interface-methods + &interface-info-interface-methods) (spec: 1 - &interface-info-instance-constructor - &interface-info-instance-constructor) + interface-info-interface-mixin + interface-info-interface-mixin) (spec: 1 - &interface-info-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) (spec: 1 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) + (spec: 1 interface-info-name-set! interface-info-name-set!) (spec: 1 - &interface-info-implementation-methods - &interface-info-implementation-methods) - (spec: 1 interface-info-name interface-info-name) - (spec: 1 interface-info::t interface-info::t) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) (spec: 1 - interface-info-instance-type-set! - interface-info-instance-type-set!) + &interface-info-interface-methods-set! + &interface-info-interface-methods-set!) (spec: 1 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-implementation-methods-set!) - (spec: 1 interface-info? interface-info?) + &interface-info-interface-mixin + &interface-info-interface-mixin) (spec: 1 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + &interface-info-instance-predicate + &interface-info-instance-predicate) + (spec: 1 &interface-info-instance-type &interface-info-instance-type) (spec: 1 - interface-info-interface-methods-set! - interface-info-interface-methods-set!) + &interface-info-interface-descriptor + &interface-info-interface-descriptor) (spec: 1 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) (spec: 1 - interface-info-interface-descriptor - interface-info-interface-descriptor) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) + (spec: 1 interface-info-name interface-info-name) (spec: 1 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) - (spec: 1 interface-info-instance-type interface-info-instance-type) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 1 - interface-info-instance-predicate - interface-info-instance-predicate) + interface-info-interface-descriptor + interface-info-interface-descriptor) (spec: 1 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) + &interface-info-instance-type-set! + &interface-info-instance-type-set!) + (spec: 1 interface-info interface-info) (spec: 1 - &interface-info-interface-descriptor - &interface-info-interface-descriptor) + interface-info-interface-methods-set! + interface-info-interface-methods-set!) (spec: 1 - interface-info-interface-methods - interface-info-interface-methods) + &interface-info-instance-try-constructor + &interface-info-instance-try-constructor) + (spec: 1 make-interface-info make-interface-info) (spec: 1 - &interface-info-implementation-methods-set! - &interface-info-implementation-methods-set!) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 1 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) + interface-info-implementation-methods + interface-info-implementation-methods) (spec: 1 - &interface-info-interface-mixin - &interface-info-interface-mixin) - (spec: 1 interface-info-flatten-mixin interface-info-flatten-mixin) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) (spec: 1 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) + &interface-info-instance-constructor + &interface-info-instance-constructor) + (spec: 1 &interface-info-name-set! &interface-info-name-set!) (spec: 1 is-signature? is-signature?) - (spec: 0 with-procedure-contract with-procedure-contract) - (spec: 0 with-receiver with-receiver) - (spec: - 0 - with-procedure-unchecked-contract - with-procedure-unchecked-contract) - (spec: 0 defmethod/c defmethod/c) - (spec: 0 case-lambda/c case-lambda/c) + (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 defstruct/c defstruct/c) (spec: 0 def*/c def*/c) - (spec: 0 defmutable defmutable) + (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 let/c let/c) + (spec: 0 with-procedure-contract with-procedure-contract) + (spec: + 0 + with-procedure-unchecked-contract + with-procedure-unchecked-contract) + (spec: 0 with-receiver with-receiver) (spec: 0 defmutable* defmutable*) - (spec: 0 with-procedure-signature with-procedure-signature) - (spec: 1 signature-has-keywords? signature-has-keywords?) - (spec: 1 check-valid-type! check-valid-type!) + (spec: 0 let/c let/c) (spec: 1 - check-signature-contract-types! - check-signature-contract-types!) - (spec: 1 compatible-signatures? compatible-signatures?) - (spec: 1 signature-arity signature-arity) + compatible-signature-type-contract? + compatible-signature-type-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 check-signature-spec! check-signature-spec!) - (spec: 1 make-procedure-contract make-procedure-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 signature-arguments-in signature-arguments-in) (spec: 1 contract-type-subtype? contract-type-subtype?) - (spec: 1 signature-contract? signature-contract?) (spec: 1 - make-procedure-lambda-signature - make-procedure-lambda-signature) - (spec: 1 symboltype-descriptor resolve-type->type-descriptor) (spec: 1 make-type-reference make-type-reference) - (spec: 1 resolve-type->identifier resolve-type->identifier) - (spec: 1 type-reference-identifier type-reference-identifier) - (spec: 1 type-reference? type-reference?) (spec: 1 type-identifier? type-identifier?) - (spec: 1 type-reference type-reference) + (spec: 1 resolve-type->identifier resolve-type->identifier) (spec: 0 deftype deftype) - (spec: 0 TypedDefinitions TypedDefinitions) + (spec: 0 ContractRules ContractRules) + (spec: 0 ClassMeta ClassMeta) (spec: 0 TypeCast TypeCast) (spec: 0 Interface Interface) - (spec: 0 Using Using) - (spec: 0 ContractRules ContractRules) (spec: 0 TypeReference TypeReference) - (spec: 0 InterfaceInfo InterfaceInfo) (spec: 0 TypeEnv TypeEnv) - (spec: 0 ClassMeta ClassMeta) - (spec: 0 except-in except-in) + (spec: 0 TypedDefinitions TypedDefinitions) + (spec: 0 Using Using) + (spec: 0 InterfaceInfo InterfaceInfo) (spec: 0 defsyntax-for-import defsyntax-for-import) - (spec: 0 rename-out rename-out) - (spec: 0 require require) - (spec: 0 struct-out struct-out) - (spec: 0 group-in group-in) - (spec: 0 except-out except-out) (spec: 0 for-template for-template) - (spec: 0 for-syntax for-syntax) (spec: 0 rename-in rename-in) - (spec: 0 defsyntax-for-import-export defsyntax-for-import-export) + (spec: 0 group-in group-in) + (spec: 0 prefix-out prefix-out) (spec: 0 defsyntax-for-export defsyntax-for-export) - (spec: 0 only-in only-in) + (spec: 0 except-out except-out) + (spec: 0 struct-out struct-out) (spec: 0 prefix-in prefix-in) - (spec: 0 prefix-out prefix-out) - (spec: 1 setf-macro-macro setf-macro-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-macro setq-macro-macro) - (spec: 1 make-setf-macro make-setf-macro) - (spec: 1 expand-set! expand-set!) - (spec: 1 make-setq-macro make-setq-macro) - (spec: 1 setq-macro? setq-macro?) - (spec: 1 setf-macro::t setf-macro::t) - (spec: 1 &setf-macro-macro &setf-macro-macro) + (spec: 0 require require) + (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: 1 setf-macro setf-macro) (spec: 1 setq-macro::t setq-macro::t) - (spec: 1 setf-macro? setf-macro?) - (spec: 1 &setf-macro-macro-set! &setf-macro-macro-set!) - (spec: 1 syntax-local-setq-macro? syntax-local-setq-macro?) (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 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 &setf-macro-macro &setf-macro-macro) + (spec: 1 make-setq-macro make-setq-macro) + (spec: 1 &setf-macro-macro-set! &setf-macro-macro-set!) (spec: 1 setq-macro setq-macro) - (spec: 1 setf-macro setf-macro) - (spec: 0 values-set! values-set!) - (spec: 0 eval-when-compile eval-when-compile) - (spec: 0 let/cc let/cc) + (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 values-set! values-set!) (spec: 1 match-pattern? match-pattern?) (spec: 1 syntax-local-match-macro? syntax-local-match-macro?) (spec: 1 match-macro? match-macro?) (spec: 1 make-match-macro make-match-macro) (spec: 1 match-macro::t match-macro::t) (spec: 1 match-macro match-macro) - (spec: 0 with* with*) (spec: 0 match* match*) - (spec: 0 with with) - (spec: 0 match match) + (spec: 0 defrules-for-match defrules-for-match) + (spec: 0 with* with*) (spec: 0 ? ?) (spec: 0 defsyntax-for-match defsyntax-for-match) - (spec: 0 defrules-for-match defrules-for-match) - (spec: 0 :hvector :hvector) - (spec: 0 :symbol :symbol) - (spec: 0 :false :false) - (spec: 0 :class :class) - (spec: 0 :flonum :flonum) - (spec: 0 :ratnum :ratnum) - (spec: 0 :thread :thread) - (spec: 0 :object-port :object-port) - (spec: 0 :device-port :device-port) + (spec: 0 with with) + (spec: 0 match match) (spec: 0 :vector-port :vector-port) - (spec: 0 :event-queue-port :event-queue-port) - (spec: 0 :readenv :readenv) - (spec: 0 :vm :vm) - (spec: 0 :object :object) - (spec: 0 :readtable :readtable) - (spec: 0 :weak :weak) - (spec: 0 :special :special) - (spec: 0 :sequence :sequence) - (spec: 0 :vector :vector) - (spec: 0 :values :values) - (spec: 0 :thread-group :thread-group) - (spec: 0 :eof :eof) - (spec: 0 :condvar :condvar) - (spec: 0 :string :string) - (spec: 0 :void :void) - (spec: 0 :port :port) (spec: 0 :character-port :character-port) - (spec: 0 :byte-port :byte-port) - (spec: 0 :directory-port :directory-port) - (spec: 0 :atom :atom) - (spec: 0 :t :t) - (spec: 0 :true :true) - (spec: 0 :null :null) - (spec: 0 :u8vector :u8vector) - (spec: 0 :number :number) - (spec: 0 :s8vector :s8vector) - (spec: 0 :f64vector :f64vector) - (spec: 0 :continuation :continuation) - (spec: 0 :promise :promise) - (spec: 0 :writeenv :writeenv) - (spec: 0 :processor :processor) + (spec: 0 :string-port :string-port) (spec: 0 :file-info :file-info) (spec: 0 :socket-info :socket-info) - (spec: 0 :time :time) - (spec: 0 class class) - (spec: 0 :s16vector :s16vector) - (spec: 0 :bignum :bignum) - (spec: 0 :tcp-server-port :tcp-server-port) - (spec: 0 :keyword :keyword) - (spec: 0 :u16vector :u16vector) - (spec: 0 :u32vector :u32vector) + (spec: 0 :symbol :symbol) (spec: 0 :list :list) + (spec: 0 :string :string) + (spec: 0 :u16vector :u16vector) (spec: 0 :box :box) - (spec: 0 :f32vector :f32vector) - (spec: 0 :mutex :mutex) - (spec: 0 :s64vector :s64vector) - (spec: 0 :symbolic :symbolic) - (spec: 0 :immediate :immediate) + (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 :string-port :string-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 :cpxnum :cpxnum) - (spec: 0 :procedure :procedure) - (spec: 0 :integer :integer) + (spec: 0 :false :false) + (spec: 0 :thread-group :thread-group) + (spec: 0 :object :object) + (spec: 0 :atom :atom) (spec: 0 :char :char) - (spec: 0 :boolean :boolean) - (spec: 0 :u8vector-port :u8vector-port) + (spec: 0 :void :void) + (spec: 0 :vector :vector) + (spec: 0 :values :values) + (spec: 0 :s8vector :s8vector) + (spec: 0 :f32vector :f32vector) + (spec: 0 :vm :vm) + (spec: 0 :mutex :mutex) + (spec: 0 :continuation :continuation) (spec: 0 :pair :pair) - (spec: 0 :real :real) - (spec: 0 :foreign :foreign) + (spec: 0 :object-port :object-port) + (spec: 0 :boolean :boolean) (spec: 0 :frame :frame) - (spec: 0 :fixnum :fixnum) + (spec: 0 :device-port :device-port) + (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 :s32vector :s32vector) + (spec: 0 :fixnum :fixnum) + (spec: 0 :hvector :hvector) + (spec: 0 :weak :weak) + (spec: 0 :t :t) + (spec: 0 :s16vector :s16vector) + (spec: 0 :eof :eof) + (spec: 0 :promise :promise) + (spec: 0 :time :time) + (spec: 0 :event-queue-port :event-queue-port) + (spec: 0 :writeenv :writeenv) + (spec: 0 :bignum :bignum) + (spec: 0 :port :port) + (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 :real :real) + (spec: 0 :directory-port :directory-port) + (spec: 0 :number :number) + (spec: 0 :readtable :readtable) (spec: 0 @ @) (spec: 0 @-set! @-set!) (spec: 0 define-struct define-struct) (spec: 0 define-class define-class) (spec: 0 defstruct-type defstruct-type) (spec: 0 defclass-type defclass-type) - (spec: 0 MOP-3 MOP-3) - (spec: 0 MOP-4 MOP-4) (spec: 0 MOP-1 MOP-1) + (spec: 0 MOP-4 MOP-4) (spec: 0 MOP-5 MOP-5) (spec: 0 MOP-2 MOP-2) + (spec: 0 MOP-3 MOP-3) (spec: 0 defsyntax defsyntax) - (spec: 0 definline definline) (spec: 0 defconst defconst) + (spec: 0 definline definline) + (spec: 0 ~case-dispatch* ~case-dispatch*) (spec: 0 defvalues defvalues) + (spec: 0 delay delay) (spec: 0 case case) - (spec: 0 do do) - (spec: 0 do-while do-while) - (spec: 0 and-let* and-let*) - (spec: 0 begin0 begin0) - (spec: 0 alet* alet*) + (spec: 0 ~case-dispatch ~case-dispatch) + (spec: 0 quasiquote quasiquote) (spec: 0 cut cut) - (spec: 0 <...> <...>) - (spec: 0 ~case-test ~case-test) - (spec: 0 ~case ~case) - (spec: 0 ~case-dispatch* ~case-dispatch*) + (spec: 0 begin0 begin0) (spec: 0 ~case-dispatch-bsearch ~case-dispatch-bsearch) - (spec: 0 rec rec) (spec: 0 alet alet) - (spec: 0 quasiquote quasiquote) (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 ~case-dispatch ~case-dispatch) - (spec: 0 delay delay) + (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 unless unless) + (spec: 0 let*-values let*-values) + (spec: 0 ~let ~let) (spec: 0 syntax-error syntax-error) (spec: 0 defalias defalias) - (spec: 0 letrec* letrec*) - (spec: 0 ~let ~let) - (spec: 0 letrec letrec) (spec: 0 defrule defrule) - (spec: 0 cond cond) - (spec: 0 let*-values let*-values) - (spec: 0 defrules defrules) - (spec: 0 let* let*) - (spec: 0 define-rules define-rules) - (spec: 0 define define) + (spec: 0 or or) (spec: 0 when when) - (spec: 0 and and) + (spec: 0 define define) (spec: 0 defsyntax% defsyntax%) - (spec: 0 or or) - (spec: 0 random-bytes random-bytes) + (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 random-source-make-bytes random-source-make-bytes) (spec: 0 cdr-set! cdr-set!) - (spec: 0 u64vector-ref-set! u64vector-ref-set!) - (spec: 0 u16vector-ref-set! u16vector-ref-set!) - (spec: 0 f32vector-ref-set! f32vector-ref-set!) - (spec: 0 s32vector-ref-set! s32vector-ref-set!) - (spec: 0 u32vector-ref-set! u32vector-ref-set!) - (spec: 0 car-set! car-set!) - (spec: 0 call/parameters call/parameters) - (spec: 0 box-set! box-set!) (spec: 0 s64vector-ref-set! s64vector-ref-set!) - (spec: 0 u8vector-ref-set! u8vector-ref-set!) - (spec: 0 vector-ref-set! vector-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 u32vector-ref-set! u32vector-ref-set!) (spec: 0 call/values call/values) - (spec: 0 s16vector-ref-set! s16vector-ref-set!) (spec: 0 f64vector-ref-set! f64vector-ref-set!) - (spec: 0 error error) - (spec: 0 readenv::t readenv::t) - (spec: 0 exception? exception?) - (spec: 0 boolean::t boolean::t) - (spec: 0 keyword->symbol keyword->symbol) - (spec: 0 interface-instance-object interface-instance-object) - (spec: 0 hash-table? hash-table?) - (spec: 0 directory-port::t directory-port::t) - (spec: 0 special::t special::t) - (spec: 0 &class-type-id &class-type-id) - (spec: 0 list->hash-table-symbolic list->hash-table-symbolic) - (spec: - 0 - make-class-slot-unchecked-mutator - make-class-slot-unchecked-mutator) - (spec: 0 dssl-rest-object? dssl-rest-object?) - (spec: 0 seal-class! seal-class!) - (spec: 0 symbolic-table-ref symbolic-table-ref) - (spec: 0 hash-fold hash-fold) - (spec: 0 memf memf) - (spec: 0 struct-instance-init! struct-instance-init!) - (spec: - 0 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 0 tcp-server-port::t tcp-server-port::t) - (spec: - 0 - unhandled-actor-exception-hook-set! - unhandled-actor-exception-hook-set!) - (spec: 0 immediate-hash immediate-hash) - (spec: 0 false false) - (spec: 0 void::t void::t) - (spec: 0 class-type-slot-table class-type-slot-table) - (spec: 0 pgetq pgetq) - (spec: 0 list->hash-table-string list->hash-table-string) - (spec: 0 replx replx) - (spec: 0 make-object make-object) - (spec: 0 direct-method-ref direct-method-ref) - (spec: 0 class-type-flags class-type-flags) - (spec: 0 satisfies? satisfies?) - (spec: 0 symblic-hash symblic-hash) - (spec: 0 string-hash string-hash) - (spec: 0 dssl-optional-object? dssl-optional-object?) - (spec: 0 agetv agetv) - (spec: 0 symbolic-table-delete! symbolic-table-delete!) - (spec: - 0 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 0 constructor-init! constructor-init!) - (spec: 0 struct-copy struct-copy) - (spec: 0 as-string as-string) - (spec: 0 interface-descriptor? interface-descriptor?) - (spec: 0 unchecked-slot-set! unchecked-slot-set!) - (spec: 0 gerbil-version-string gerbil-version-string) - (spec: 0 vm? vm?) - (spec: 0 class-type-slot-list class-type-slot-list) - (spec: 0 &class-type-super &class-type-super) - (spec: 0 &class-type-flags &class-type-flags) - (spec: 0 raw-device-port? raw-device-port?) - (spec: 0 direct-instance? direct-instance?) - (spec: 0 list->hash-table-immediate list->hash-table-immediate) - (spec: 0 make-class-slot-mutator make-class-slot-mutator) - (spec: 0 s8vector::t s8vector::t) - (spec: 0 string-empty? string-empty?) - (spec: 0 dssl-object? dssl-object?) - (spec: 0 filter-map filter-map) - (spec: 0 current-thread-group current-thread-group) - (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 0 struct->list struct->list) - (spec: 0 vm::t vm::t) - (spec: 0 bytes->string bytes->string) - (spec: 0 max-char-code max-char-code) - (spec: 0 unchecked-slot-ref unchecked-slot-ref) - (spec: 0 fxshift fxshift) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 gerbil-system-version-string gerbil-system-version-string) - (spec: 0 checked-bound-method-ref checked-bound-method-ref) - (spec: 0 class-type-sealed? class-type-sealed?) - (spec: 0 hash-remove! hash-remove!) - (spec: 0 raw-device-port::t raw-device-port::t) - (spec: 0 hash-find hash-find) - (spec: 0 dssl-key-object? dssl-key-object?) - (spec: 0 device-port? device-port?) - (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 0 make-class-slot-accessor make-class-slot-accessor) - (spec: 0 s64vector::t s64vector::t) - (spec: 0 list->hash-table-eqv list->hash-table-eqv) - (spec: 0 table::t table::t) - (spec: 0 spawn/name spawn/name) - (spec: 0 file-newer? file-newer?) - (spec: 0 absent-value absent-value) - (spec: 0 AST? AST?) - (spec: 0 eqv-hash eqv-hash) - (spec: 0 foldr foldr) - (spec: 0 string::t string::t) - (spec: 0 with-exception-catcher with-exception-catcher) - (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 0 hash-copy hash-copy) - (spec: 0 fx>=0? fx>=0?) - (spec: 0 time::t time::t) - (spec: 0 gerbil-system-manifest gerbil-system-manifest) - (spec: 0 &class-type-slot-vector &class-type-slot-vector) - (spec: 0 class-type-seal! class-type-seal!) - (spec: 0 pget pget) - (spec: 0 with-unwind-protect with-unwind-protect) - (spec: 0 class-of class-of) - (spec: 0 ratnum::t ratnum::t) - (spec: 0 is-hash-table? is-hash-table?) - (spec: 0 make-hash-table-string make-hash-table-string) - (spec: 0 &class-type-fields &class-type-fields) - (spec: 0 1- 1-) - (spec: 0 make-class-predicate make-class-predicate) - (spec: 0 s32vector::t s32vector::t) - (spec: 0 device-port::t device-port::t) - (spec: 0 symbol::t symbol::t) - (spec: 0 agetq agetq) - (spec: 0 remq remq) - (spec: 0 absent-obj absent-obj) - (spec: 0 slot-set! slot-set!) - (spec: 0 next-method next-method) - (spec: 0 t::t t::t) - (spec: 0 file-info::t file-info::t) - (spec: 0 byte-port::t byte-port::t) - (spec: 0 thread::t thread::t) - (spec: 0 character-port? character-port?) - (spec: 0 fx>0? fx>0?) - (spec: 0 gerbil-system gerbil-system) - (spec: 0 read-u8vector read-u8vector) - (spec: 0 vector::t vector::t) - (spec: 0 hvector? hvector?) - (spec: 0 class-instance? class-instance?) - (spec: 0 interface-descriptor-type interface-descriptor-type) - (spec: 0 remove1 remove1) - (spec: 0 list->hash-table-eq list->hash-table-eq) - (spec: 0 make-hash-table-immediate make-hash-table-immediate) - (spec: 0 plist->hash-table-string plist->hash-table-string) - (spec: 0 hash-clear! hash-clear!) - (spec: 0 1+ 1+) + (spec: 0 random-bytes random-bytes) + (spec: 0 f32vector-ref-set! f32vector-ref-set!) + (spec: 0 u16vector-ref-set! u16vector-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 s16vector::t s16vector::t) (spec: 0 condvar::t condvar::t) - (spec: 0 spawn/group spawn/group) - (spec: 0 with-lock with-lock) - (spec: 0 new-instance new-instance) - (spec: 0 hash->plist hash->plist) - (spec: 0 plist->hash-table-immediate plist->hash-table-immediate) - (spec: 0 make-syntax-error make-syntax-error) - (spec: 0 object? object?) - (spec: 0 fx=0? fx=0?) - (spec: 0 cons* cons*) - (spec: 0 class-type-properties class-type-properties) - (spec: 0 &class-type-slot-table &class-type-slot-table) - (spec: 0 bind-specializer! bind-specializer!) - (spec: 0 class-instance-init! class-instance-init!) - (spec: 0 pair::t pair::t) - (spec: 0 hvector::t hvector::t) - (spec: 0 character-port::t character-port::t) - (spec: 0 vector-port? vector-port?) + (spec: 0 AST-e AST-e) (spec: 0 class-type-final? class-type-final?) - (spec: 0 &class-type-constructor &class-type-constructor) + (spec: 0 class-instance-init! class-instance-init!) (spec: 0 raise-unbound-key-error raise-unbound-key-error) - (spec: 0 make-hash-table-eqv make-hash-table-eqv) - (spec: 0 list->hash-table list->hash-table) - (spec: 0 hash-ref hash-ref) - (spec: 0 AST-source AST-source) - (spec: 0 hash->list hash->list) - (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 0 unbound-key-error? unbound-key-error?) - (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 0 writenv? writenv?) + (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 fx<=0? fx<=0?) + (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 vector-port::t vector-port::t) - (spec: 0 interface-descriptor-methods interface-descriptor-methods) - (spec: 0 try-cast try-cast) - (spec: 0 class->list class->list) - (spec: 0 class::t class::t) - (spec: 0 remf remf) - (spec: 0 make-hash-table-eq make-hash-table-eq) - (spec: 0 hash-put! hash-put!) - (spec: 0 foldl foldl) - (spec: 0 aget aget) + (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 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 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 false::t false::t) - (spec: 0 event-queue-port? event-queue-port?) - (spec: 0 immediate? immediate?) - (spec: 0 build-manifest/layer build-manifest/layer) - (spec: 0 udp-port? udp-port?) - (spec: 0 plist->hash-table-eq plist->hash-table-eq) - (spec: 0 object-type object-type) - (spec: 0 fx<0? fx<0?) - (spec: 0 processor::t processor::t) - (spec: 0 class-type-precedence-list class-type-precedence-list) - (spec: 0 make-promise make-promise) - (spec: 0 &class-type-properties &class-type-properties) + (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 raise-contract-violation-error raise-contract-violation-error) (spec: 0 class-type? class-type?) (spec: 0 &interface-instance-object &interface-instance-object) - (spec: 0 cast cast) - (spec: 0 make-hash-table make-hash-table) - (spec: 0 class-type-fields class-type-fields) - (spec: 0 plist->hash-table plist->hash-table) - (spec: 0 hash-merge! hash-merge!) - (spec: 0 thread-local-set! thread-local-set!) - (spec: 0 f64vector::t f64vector::t) - (spec: 0 symbol->keyword symbol->keyword) - (spec: 0 cpxnum::t cpxnum::t) - (spec: 0 address-info::t address-info::t) - (spec: 0 string-split string-split) - (spec: 0 flonum::t flonum::t) - (spec: 0 mutex::t mutex::t) - (spec: 0 build-manifest/head build-manifest/head) - (spec: 0 immediate::t immediate::t) - (spec: 0 udp-port::t udp-port::t) + (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-) - (spec: 0 event-queue-port::t event-queue-port::t) + (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 object-port? object-port?) - (spec: 0 bind-method! bind-method!) - (spec: 0 interned-symbol? interned-symbol?) - (spec: 0 byte-port? byte-port?) - (spec: 0 class-type=? class-type=?) - (spec: 0 error-object? error-object?) - (spec: 0 interface-cast-error? interface-cast-error?) - (spec: 0 class-type-field-count class-type-field-count) + (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 with-exception-stack-trace with-exception-stack-trace) + (spec: 0 current-thread-group current-thread-group) + (spec: 0 s8vector::t s8vector::t) + (spec: 0 string-empty? string-empty?) (spec: 0 HashTableLock::interface HashTableLock::interface) - (spec: 0 hash-merge hash-merge) - (spec: 0 with-dynamic-lock with-dynamic-lock) - (spec: 0 make-keyword make-keyword) - (spec: 0 substruct? substruct?) - (spec: 0 f32vector::t f32vector::t) - (spec: 0 remv remv) - (spec: 0 string-port? string-port?) - (spec: 0 make-symbolic-table make-symbolic-table) - (spec: 0 fixnum::t fixnum::t) - (spec: 0 object-port::t object-port::t) - (spec: 0 procedure-hash procedure-hash) - (spec: 0 eof-object eof-object) - (spec: 0 fx1+ fx1+) - (spec: 0 atom::t atom::t) - (spec: 0 values-ref values-ref) - (spec: 0 class-type-name class-type-name) - (spec: 0 &class-type-precedence-list &class-type-precedence-list) + (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 checked-method-ref checked-method-ref) - (spec: 0 integer::t integer::t) - (spec: 0 class-type-system? class-type-system?) - (spec: 0 u8vector::t u8vector::t) - (spec: 0 return::t return::t) - (spec: 0 writeenv::t writeenv::t) - (spec: 0 with-catch with-catch) - (spec: 0 error? error?) - (spec: 0 make-interface-descriptor make-interface-descriptor) - (spec: 0 string-port::t string-port::t) - (spec: 0 HashTable::t HashTable::t) - (spec: 0 hash-map hash-map) - (spec: 0 spawn spawn) + (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 with-exception-stack-trace with-exception-stack-trace) - (spec: 0 hash-length hash-length) - (spec: 0 object-fill! object-fill!) - (spec: 0 u8vector-port? u8vector-port?) + (spec: 0 u8vector-port::t u8vector-port::t) + (spec: 0 processor::t processor::t) + (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 actor-thread? actor-thread?) + (spec: 0 1+ 1+) + (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 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 thread-local-ref thread-local-ref) + (spec: 0 class-type-slot-list class-type-slot-list) + (spec: 0 hvector? hvector?) (spec: 0 values-count values-count) - (spec: 0 interned-keyword? interned-keyword?) - (spec: 0 call-with-parameters call-with-parameters) - (spec: 0 u64vector::t u64vector::t) - (spec: 0 HashTable::interface HashTable::interface) - (spec: 0 syntax-error? syntax-error?) - (spec: 0 make-AST make-AST) - (spec: 0 AST-e AST-e) - (spec: 0 make-instance make-instance) - (spec: 0 read-syntax read-syntax) - (spec: 0 class-type-constructor class-type-constructor) - (spec: 0 read-syntax-from-file read-syntax-from-file) - (spec: 0 make-class-type make-class-type) - (spec: 0 display-build-manifest display-build-manifest) - (spec: 0 string-join string-join) - (spec: 0 sequence? sequence?) - (spec: 0 add-load-path! add-load-path!) - (spec: 0 source-location? source-location?) - (spec: 0 string-rindex string-rindex) - (spec: 0 eof::t eof::t) - (spec: 0 hash-keys hash-keys) - (spec: 0 build-manifest-string build-manifest-string) - (spec: 0 u8vector-port::t u8vector-port::t) - (spec: 0 error-message error-message) - (spec: 0 assgetv assgetv) - (spec: 0 hash-values hash-values) - (spec: 0 values->list values->list) - (spec: 0 call-next-method call-next-method) - (spec: 0 class-type-methods class-type-methods) - (spec: 0 build-manifest build-manifest) - (spec: 0 immediate-instance-of? immediate-instance-of?) - (spec: 0 real::t real::t) - (spec: 0 u32vector::t u32vector::t) - (spec: 0 class-type-super class-type-super) + (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 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 set-load-path! set-load-path!) - (spec: 0 &class-type-name &class-type-name) + (spec: 0 s64vector::t s64vector::t) + (spec: 0 make-class-slot-accessor make-class-slot-accessor) + (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 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 agetv agetv) + (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 sequence::t sequence::t) - (spec: 0 display-as-string display-as-string) (spec: 0 gerbil-load-expander! gerbil-load-expander!) - (spec: 0 symbolic? symbolic?) - (spec: 0 HashTableLock::t HashTableLock::t) - (spec: 0 source-location-path? source-location-path?) - (spec: 0 find-method find-method) - (spec: 0 andmap andmap) - (spec: 0 build-manifest-set! build-manifest-set!) - (spec: 0 number::t number::t) - (spec: 0 substring->bytes substring->bytes) - (spec: 0 method-ref method-ref) - (spec: 0 assgetq assgetq) - (spec: 0 gerbil-home gerbil-home) - (spec: 0 call-method call-method) - (spec: 0 class-type-struct? class-type-struct?) - (spec: 0 true::t true::t) - (spec: 0 u16vector::t u16vector::t) - (spec: 0 weak? weak?) - (spec: 0 keyword::t keyword::t) - (spec: 0 raise raise) - (spec: 0 error-irritants error-irritants) + (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 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 + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 0 special::t special::t) (spec: 0 class-type-metaclass? class-type-metaclass?) - (spec: 0 interface-instance? interface-instance?) - (spec: 0 hash-key? hash-key?) - (spec: 0 thread-local-delete! thread-local-delete!) - (spec: 0 load-path load-path) - (spec: 0 symbolic::t symbolic::t) - (spec: 0 source-location-path source-location-path) - (spec: 0 make-symbol make-symbol) - (spec: 0 assget assget) - (spec: 0 find find) - (spec: 0 null::t null::t) - (spec: 0 thread-group::t thread-group::t) - (spec: 0 hash-get hash-get) - (spec: 0 true true) + (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) + (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-greeting-set! gerbil-greeting-set!) - (spec: 0 frame::t frame::t) - (spec: 0 weak::t weak::t) - (spec: 0 box::t box::t) - (spec: 0 readtable::t readtable::t) - (spec: 0 keyword-rest keyword-rest) - (spec: 0 interface-instance::t interface-instance::t) - (spec: 0 load-module load-module) - (spec: 0 string-index string-index) - (spec: 0 socket-info::t socket-info::t) + (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 foreign::t foreign::t) - (spec: 0 hash-update! hash-update!) - (spec: 0 gerbil-greeting gerbil-greeting) - (spec: 0 class-type-slot-vector class-type-slot-vector) - (spec: 0 bound-method-ref bound-method-ref) - (spec: 0 readenv? readenv?) - (spec: 0 write-u8vector write-u8vector) - (spec: 0 keyword-dispatch keyword-dispatch) - (spec: 0 directory-port? directory-port?) + (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 continuation::t continuation::t) - (spec: 0 dump-stack-trace! dump-stack-trace!) + (spec: 0 raise raise) + (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 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 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 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 find-method find-method) + (spec: 0 object-fill! object-fill!) + (spec: 0 error-irritants error-irritants) + (spec: 0 interface-descriptor? interface-descriptor?) (spec: 0 display-exception display-exception) + (spec: 0 sequence? sequence?) + (spec: 0 display-build-manifest display-build-manifest) + (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 tcp-server-port? tcp-server-port?) - (spec: 0 c4-linearize c4-linearize) - (spec: 0 port::t port::t) - (spec: 0 subclass? subclass?) - (spec: 0 pgetv pgetv) - (spec: 0 bignum::t bignum::t) + (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 write-u8vector write-u8vector) + (spec: 0 add-load-path! add-load-path!) + (spec: 0 assgetv assgetv) + (spec: 0 hash-values hash-values) (spec: 0 void? void?) - (spec: 0 input-port-line input-port-line) - (spec: 0 filter! filter!) - (spec: 0 make-s8vector make-s8vector) - (spec: 0 process-times process-times) - (spec: 0 r7rs-raise r7rs-raise) - (spec: 0 subu64vector-move! subu64vector-move!) - (spec: 0 create-directory create-directory) - (spec: 0 bitwise-orc2 bitwise-orc2) - (spec: 0 u64vector-set u64vector-set) + (spec: 0 build-manifest-string build-manifest-string) + (spec: 0 call-next-method call-next-method) (spec: 0 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 0 read-file-u8vector read-file-u8vector) + 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 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) - (spec: 0 fl/ fl/) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 drop-right drop-right) - (spec: 0 flsinh flsinh) - (spec: 0 random-source-state-set! random-source-state-set!) - (spec: 0 current-thread current-thread) - (spec: 0 break break) - (spec: 0 file-info? file-info?) - (spec: 0 initial-current-directory initial-current-directory) - (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 0 table-merge! table-merge!) - (spec: 0 flcosh flcosh) - (spec: 0 call-with-input-u8vector call-with-input-u8vector) - (spec: 0 uncaught-exception-reason uncaught-exception-reason) - (spec: 0 thread-group-resume! thread-group-resume!) - (spec: 0 open-vector-pipe open-vector-pipe) - (spec: 0 foreign-address foreign-address) - (spec: 0 s32vector-concatenate s32vector-concatenate) - (spec: 0 list-tabulate list-tabulate) - (spec: 0 fxwrap* fxwrap*) - (spec: 0 path-strip-extension path-strip-extension) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) + (spec: 0 s32vector-ref s32vector-ref) + (spec: 0 flinteger? flinteger?) (spec: 0 - display-continuation-environment - display-continuation-environment) - (spec: 0 flmin flmin) - (spec: 0 join-timeout-exception? join-timeout-exception?) - (spec: 0 thread-quantum-set! thread-quantum-set!) + 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 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 0 fx= fx=) - (spec: 0 char-set-adjoin! char-set-adjoin!) - (spec: 0 s64vector-append s64vector-append) - (spec: 0 u16vector? u16vector?) - (spec: 0 string=?-hash string=?-hash) - (spec: 0 protocol-info? protocol-info?) - (spec: 0 condition-variable-signal! condition-variable-signal!) + 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 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 0 s16vector-copy! s16vector-copy!) - (spec: 0 err-code->string err-code->string) - (spec: 0 char-set-filter char-set-filter) - (spec: 0 fxior fxior) - (spec: 0 list->s8vector list->s8vector) - (spec: 0 s8vector->list s8vector->list) - (spec: 0 make-f64vector make-f64vector) - (spec: 0 pretty-print pretty-print) - (spec: 0 tty-history-set! tty-history-set!) - (spec: 0 vector-cas! vector-cas!) - (spec: 0 u32vector-swap! u32vector-swap!) - (spec: 0 seventh seventh) - (spec: 0 subs32vector-move! subs32vector-move!) - (spec: 0 bits->vector bits->vector) - (spec: 0 with-input-from-port with-input-from-port) - (spec: 0 udp-destination-set! udp-destination-set!) - (spec: 0 read-file-string-list read-file-string-list) - (spec: 0 input-port-column input-port-column) - (spec: 0 deadlock-exception? deadlock-exception?) - (spec: 0 filter filter) - (spec: 0 make-s64vector make-s64vector) - (spec: 0 asinh asinh) - (spec: 0 extract-bit-field extract-bit-field) - (spec: 0 process-status process-status) - (spec: 0 subu64vector-fill! subu64vector-fill!) - (spec: 0 random-source-state-ref random-source-state-ref) - (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 0 bitwise-orc1 bitwise-orc1) - (spec: 0 file-exists-exception? file-exists-exception?) - (spec: 0 u64vector-ref u64vector-ref) + 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 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) - (spec: 0 fl- fl-) - (spec: 0 sixth sixth) - (spec: 0 drop drop) - (spec: 0 flsin flsin) - (spec: 0 open-input-vector open-input-vector) - (spec: 0 u8vector-fill! u8vector-fill!) - (spec: 0 file-info-type file-info-type) - (spec: 0 table-merge table-merge) - (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 0 call-with-input-string call-with-input-string) - (spec: 0 flcos flcos) - (spec: 0 thread-group-parent thread-group-parent) - (spec: 0 open-vector open-vector) - (spec: 0 s32vector-append s32vector-append) - (spec: 0 list-sort! list-sort!) - (spec: 0 fxsquare fxsquare) - (spec: 0 char-set-xor! char-set-xor!) - (spec: 0 compile-file-to-target compile-file-to-target) - (spec: 0 path-strip-directory path-strip-directory) - (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) + 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) (spec: 0 - join-timeout-exception-procedure - join-timeout-exception-procedure) + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 0 read-subu8vector read-subu8vector) (spec: 0 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) - (spec: 0 flmax flmax) - (spec: 0 object->u8vector object->u8vector) - (spec: 0 thread-quantum thread-quantum) - (spec: 0 output-port-line output-port-line) - (spec: 0 fx<= fx<=) - (spec: 0 char-set-adjoin char-set-adjoin) - (spec: 0 top top) - (spec: 0 s64vector->list s64vector->list) - (spec: 0 string-contains-ci string-contains-ci) - (spec: 0 address-infos address-infos) - (spec: 0 gc-report-set! gc-report-set!) - (spec: 0 u16vector-swap! u16vector-swap!) - (spec: 0 subs32vector-fill! subs32vector-fill!) - (spec: 0 f32vector? f32vector?) - (spec: 0 condition-variable-name condition-variable-name) - (spec: 0 protocol-info-number protocol-info-number) + default-user-interrupt-handler + default-user-interrupt-handler) (spec: 0 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 0 s16vector-copy s16vector-copy) - (spec: 0 list->s64vector list->s64vector) - (spec: 0 eqv?-hash eqv?-hash) - (spec: 0 char-set-every char-set-every) - (spec: 0 fxif fxif) - (spec: 0 s8vector s8vector) - (spec: 0 make-f32vector make-f32vector) - (spec: 0 started-thread-exception? started-thread-exception?) - (spec: 0 apropos apropos) - (spec: 0 string-prefix-ci? string-prefix-ci?) - (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) - (spec: 0 subu32vector-move! subu32vector-move!) - (spec: 0 f64vector? f64vector?) - (spec: 0 bits->list bits->list) - (spec: 0 u32vector-shrink! u32vector-shrink!) - (spec: 0 xcons xcons) - (spec: 0 read-file-string read-file-string) + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) (spec: 0 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 0 ninth ninth) - (spec: 0 unbound-global-exception? unbound-global-exception?) - (spec: 0 type-exception? type-exception?) - (spec: 0 make-s32vector make-s32vector) - (spec: 0 help-browser help-browser) - (spec: 0 bitwise-not bitwise-not) - (spec: 0 serial-number->object serial-number->object) - (spec: 0 subu64vector subu64vector) - (spec: 0 u8vector-copy! u8vector-copy!) - (spec: 0 write-substring write-substring) + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) (spec: 0 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 0 integer-sqrt integer-sqrt) - (spec: 0 fl+* fl+*) - (spec: 0 open-input-u8vector open-input-u8vector) - (spec: 0 dotted-list? dotted-list?) - (spec: 0 flscalbn flscalbn) - (spec: 0 current-readtable current-readtable) - (spec: 0 call-with-input-process call-with-input-process) - (spec: 0 file-info-size file-info-size) - (spec: 0 table-length table-length) - (spec: 0 readtable? readtable?) + 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?) (spec: 0 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 0 flceiling flceiling) - (spec: 0 thread-group-name thread-group-name) - (spec: 0 user-name user-name) - (spec: 0 eighth eighth) - (spec: 0 open-udp open-udp) - (spec: 0 thread? thread?) - (spec: 0 s64vector s64vector) - (spec: 0 list-sort list-sort) - (spec: 0 char-set-xor char-set-xor) - (spec: 0 fxremainder fxremainder) - (spec: 0 string->keyword string->keyword) - (spec: 0 thread-priority thread-priority) + 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) (spec: 0 - join-timeout-exception-arguments - join-timeout-exception-arguments) + 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) (spec: 0 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 0 char-set-difference! char-set-difference!) - (spec: 0 fllog1p fllog1p) - (spec: 0 object->string object->string) - (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 0 output-port-column output-port-column) - (spec: 0 char-set->string char-set->string) - (spec: 0 fx< fx<) - (spec: 0 s16vector-concatenate s16vector-concatenate) - (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 0 permission-denied-exception? permission-denied-exception?) - (spec: 0 address-info? address-info?) - (spec: 0 string-contains string-contains) - (spec: 0 u16vector-shrink! u16vector-shrink!) - (spec: 0 setenv setenv) - (spec: 0 f32vector-swap! f32vector-swap!) - (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 0 protocol-info-name protocol-info-name) - (spec: 0 subs32vector subs32vector) - (spec: 0 s32vector->list s32vector->list) - (spec: 0 list->s32vector list->s32vector) - (spec: 0 fxfirst-set-bit fxfirst-set-bit) + 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!) (spec: 0 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 0 vector-any vector-any) - (spec: 0 tty-history tty-history) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 write-subu8vector write-subu8vector) - (spec: 0 u32vector-set! u32vector-set!) - (spec: 0 subu32vector-fill! subu32vector-fill!) - (spec: 0 f64vector-swap! f64vector-swap!) - (spec: 0 bits bits) - (spec: 0 fl+ fl+) + invalid-hash-number-exception-arguments + invalid-hash-number-exception-arguments) (spec: 0 - unbound-global-exception-variable - unbound-global-exception-variable) - (spec: 0 input-port-char-position input-port-char-position) - (spec: 0 dead-end dead-end) - (spec: 0 u16vector-set u16vector-set) - (spec: 0 make-s16vector make-s16vector) - (spec: 0 file-info-owner file-info-owner) - (spec: 0 bitwise-nor bitwise-nor) - (spec: 0 process-pid process-pid) - (spec: 0 symbol-hash symbol-hash) - (spec: 0 inactive-thread-exception? inactive-thread-exception?) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) + (spec: 0 uninterned-keyword? uninterned-keyword?) + (spec: 0 open-string open-string) (spec: 0 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 0 random-source-randomize! random-source-randomize!) - (spec: 0 u8vector-copy u8vector-copy) - (spec: 0 table-for-each table-for-each) - (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) - (spec: 0 integer-nth-root integer-nth-root) - (spec: 0 force-output force-output) + 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?) (spec: 0 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 0 thread-group->thread-vector thread-group->thread-vector) - (spec: 0 flround flround) - (spec: 0 box? box?) - (spec: 0 ucs-range->char-set! ucs-range->char-set!) - (spec: 0 current-processor current-processor) - (spec: 0 fllog fllog) - (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) - (spec: - 0 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) - (spec: 0 flatanh flatanh) - (spec: 0 not-pair? not-pair?) - (spec: - 0 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 0 thread-name thread-name) - (spec: 0 split-at! split-at!) - (spec: 0 open-u8vector-pipe open-u8vector-pipe) - (spec: 0 address-info-socket-type address-info-socket-type) - (spec: 0 char-set-union! char-set-union!) - (spec: 0 user-info? user-info?) - (spec: 0 thread-yield! thread-yield!) - (spec: 0 path-normalize path-normalize) - (spec: 0 fxquotient fxquotient) - (spec: 0 string->char-set! string->char-set!) - (spec: 0 rename-file rename-file) - (spec: 0 object->serial-number object->serial-number) - (spec: 0 char-set->list char-set->list) - (spec: 0 s16vector-append s16vector-append) - (spec: 0 output-port-char-position output-port-char-position) - (spec: 0 fx- fx-) - (spec: 0 thread-priority-boost thread-priority-boost) - (spec: 0 with-exception-catcher with-exception-catcher) - (spec: 0 string-concatenate string-concatenate) - (spec: - 0 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 0 bit-swap bit-swap) - (spec: 0 u16vector-set! u16vector-set!) - (spec: 0 protocol-info-aliases protocol-info-aliases) - (spec: 0 f32vector-shrink! f32vector-shrink!) - (spec: 0 char-set-difference char-set-difference) - (spec: 0 subs16vector-move! subs16vector-move!) - (spec: 0 thread-state-initialized? thread-state-initialized?) - (spec: 0 s32vector s32vector) - (spec: 0 equal?-hash equal?-hash) - (spec: 0 fxeven? fxeven?) - (spec: 0 list->s16vector list->s16vector) + 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) (spec: 0 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 0 s8vector? s8vector?) - (spec: 0 make-condition-variable make-condition-variable) - (spec: 0 getenv getenv) - (spec: 0 append-reverse! append-reverse!) - (spec: 0 console-port console-port) - (spec: 0 pp pp) - (spec: 0 subu32vector subu32vector) - (spec: 0 f64vector-shrink! f64vector-shrink!) - (spec: 0 u32vector-set u32vector-set) - (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) - (spec: 0 datum-parsing-exception? datum-parsing-exception?) - (spec: 0 arithmetic-shift arithmetic-shift) + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) (spec: 0 heap-overflow-exception? heap-overflow-exception?) - (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 0 u16vector-ref u16vector-ref) - (spec: 0 make-root-thread make-root-thread) + (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 bitwise-nand bitwise-nand) + (spec: 0 s8vector-copy s8vector-copy) + (spec: 0 get-output-u8vector get-output-u8vector) (spec: 0 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) (spec: 0 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 0 cpu-time cpu-time) - (spec: 0 fl* fl*) - (spec: 0 u8vector-concatenate u8vector-concatenate) - (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 0 integer-length integer-length) - (spec: 0 flpositive? flpositive?) + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: 0 any any) + (spec: 0 u16vector-copy! u16vector-copy!) (spec: 0 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 0 table-copy table-copy) - (spec: 0 thread-group->thread-list thread-group->thread-list) - (spec: 0 unbreak unbreak) - (spec: 0 keyword? keyword?) - (spec: 0 file-info-number-of-links file-info-number-of-links) - (spec: 0 box box) - (spec: 0 open-input-process open-input-process) - (spec: 0 ucs-range->char-set ucs-range->char-set) - (spec: 0 flatan flatan) - (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) + 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) (spec: 0 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) + 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 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) - (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 0 split-at split-at) - (spec: 0 open-u8vector open-u8vector) - (spec: 0 char-set-union char-set-union) - (spec: 0 user-info-uid user-info-uid) - (spec: 0 string->char-set string->char-set) - (spec: 0 fxpositive? fxpositive?) - (spec: 0 car+cdr car+cdr) - (spec: 0 list-set list-set) - (spec: 0 path-extension path-extension) - (spec: 0 remq remq) - (spec: 0 test-bit-field? test-bit-field?) - (spec: 0 fxeqv fxeqv) - (spec: 0 char-set char-set) - (spec: 0 untrace untrace) - (spec: 0 s16vector->list s16vector->list) - (spec: 0 output-port-byte-position output-port-byte-position) - (spec: 0 fx+ fx+) - (spec: 0 address-info-socket-info address-info-socket-info) - (spec: 0 s64vector? s64vector?) + 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?) - (spec: 0 u32vector-ref u32vector-ref) - (spec: 0 subs16vector-fill! subs16vector-fill!) - (spec: 0 f32vector-set! f32vector-set!) - (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 0 identity identity) - (spec: 0 protocol-info protocol-info) - (spec: 0 thread-thread-group thread-thread-group) - (spec: 0 list->f64vector list->f64vector) - (spec: 0 append-reverse append-reverse) - (spec: 0 help help) - (spec: 0 type-exception-type-id type-exception-type-id) - (spec: 0 s8vector-swap! s8vector-swap!) - (spec: 0 get-output-vector get-output-vector) - (spec: 0 bit-set? bit-set?) - (spec: 0 subu16vector-move! subu16vector-move!) - (spec: 0 f64vector-set! f64vector-set!) - (spec: - 0 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 0 file-type file-type) (spec: 0 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) - (spec: 0 unbound-global-exception-code unbound-global-exception-code) - (spec: 0 input-port-byte-position input-port-byte-position) + terminated-thread-exception-procedure + terminated-thread-exception-procedure) (spec: 0 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 0 seconds->time seconds->time) - (spec: 0 string-suffix? string-suffix?) - (spec: 0 bitwise-merge bitwise-merge) - (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) + 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) (spec: 0 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 0 fixnum? fixnum?) - (spec: 0 module-whitelist-reset! module-whitelist-reset!) - (spec: 0 u8vector-append u8vector-append) - (spec: 0 table->list table->list) - (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) - (spec: 0 open-tcp-server open-tcp-server) - (spec: 0 unbox unbox) + 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?) (spec: 0 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 0 keyword-hash keyword-hash) - (spec: 0 file-info-mode file-info-mode) - (spec: 0 u8vector? u8vector?) - (spec: 0 flasinh flasinh) + 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) (spec: 0 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) + unbound-serial-number-exception? + unbound-serial-number-exception?) + (spec: 0 readtable-comment-handler readtable-comment-handler) (spec: 0 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) - (spec: 0 thread-mailbox-next thread-mailbox-next) - (spec: 0 user-info-shell user-info-shell) - (spec: 0 fxorc2 fxorc2) - (spec: 0 char-set-unfold! char-set-unfold!) - (spec: 0 s32vector? s32vector?) - (spec: 0 path-expand path-expand) - (spec: 0 flinteger? flinteger?) - (spec: 0 void void) - (spec: 0 remove! remove!) - (spec: 0 eq?-hash eq?-hash) + 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!) + (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) (spec: 0 - unterminated-process-exception? - unterminated-process-exception?) + 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) (spec: 0 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 0 s16vector s16vector) - (spec: 0 vector->bits vector->bits) - (spec: 0 address-info-protocol address-info-protocol) - (spec: 0 will-testator will-testator) - (spec: 0 s64vector-swap! s64vector-swap!) - (spec: 0 f64vector-set f64vector-set) - (spec: 0 subs16vector subs16vector) - (spec: 0 make-will make-will) - (spec: 0 f32vector-set f32vector-set) - (spec: 0 char-set-diff+intersection char-set-diff+intersection) - (spec: 0 fxbit-set? fxbit-set?) - (spec: 0 thread-terminate! thread-terminate!) - (spec: 0 list->f32vector list->f32vector) - (spec: 0 expression-parsing-exception? expression-parsing-exception?) - (spec: 0 append! append!) - (spec: 0 get-output-u8vector get-output-u8vector) - (spec: 0 type-exception-procedure type-exception-procedure) - (spec: 0 s8vector-shrink! s8vector-shrink!) - (spec: 0 make-bitwise-generator make-bitwise-generator) - (spec: 0 bit-field-set bit-field-set) - (spec: 0 cons* cons*) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) + (spec: 0 take take) (spec: 0 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 0 u64vector-length u64vector-length) - (spec: 0 subu16vector-fill! subu16vector-fill!) + 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) (spec: 0 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 0 file-size file-size) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 0 fixnum? fixnum?) + (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) (spec: 0 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 0 second second) - (spec: 0 module-whitelist-add! module-whitelist-add!) - (spec: 0 file-device file-device) - (spec: 0 bitwise-ior bitwise-ior) - (spec: 0 string-suffix-length-ci string-suffix-length-ci) - (spec: 0 u16vector-length u16vector-length) - (spec: 0 random-source-make-reals random-source-make-reals) - (spec: 0 u8vector->object u8vector->object) - (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: 0 readtable-comment-handler readtable-comment-handler) + 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) (spec: 0 - unbound-serial-number-exception? - unbound-serial-number-exception?) + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 0 write-substring write-substring) + (spec: 0 u16vector-concatenate u16vector-concatenate) (spec: 0 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: 0 keyword-expected-exception? keyword-expected-exception?) + 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) (spec: 0 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 0 u8vector-swap! u8vector-swap!) + unterminated-process-exception? + unterminated-process-exception?) + (spec: 0 remove! remove!) + (spec: 0 flmax flmax) (spec: 0 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) - (spec: 0 flasin flasin) - (spec: 0 tanh tanh) + not-in-compilation-context-exception? + not-in-compilation-context-exception?) (spec: 0 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) + 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*) (spec: 0 - invalid-hash-number-exception? - invalid-hash-number-exception?) - (spec: 0 open-tcp-client open-tcp-client) + 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?) (spec: 0 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 0 user-info-name user-info-name) - (spec: 0 fxorc1 fxorc1) - (spec: 0 char-set-unfold char-set-unfold) - (spec: 0 s32vector-swap! s32vector-swap!) - (spec: 0 flinfinite? flinfinite?) - (spec: 0 remove remove) - (spec: 0 terminated-thread-exception? terminated-thread-exception?) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) (spec: 0 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) + 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) (spec: 0 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 0 fxzero? fxzero?) - (spec: 0 address-info-family address-info-family) - (spec: 0 s64vector-shrink! s64vector-shrink!) - (spec: 0 f32vector-ref f32vector-ref) - (spec: 0 concatenate! concatenate!) - (spec: 0 string-ci=?-hash string-ci=?-hash) - (spec: 0 will-execute! will-execute!) - (spec: 0 u32vector-length u32vector-length) - (spec: 0 subf64vector-move! subf64vector-move!) - (spec: 0 fxbit-count fxbit-count) - (spec: 0 char-set-delete! char-set-delete!) - (spec: 0 thread-suspend! thread-suspend!) - (spec: 0 vector-inc! vector-inc!) - (spec: 0 list->char-set! list->char-set!) + 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 type-exception-arguments type-exception-arguments) (spec: 0 f64vector-ref f64vector-ref) - (spec: 0 bit-field-rotate bit-field-rotate) - (spec: 0 with-output-to-vector with-output-to-vector) - (spec: 0 u64vector-fill! u64vector-fill!) - (spec: 0 subu16vector subu16vector) - (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) - (spec: 0 make-random-source make-random-source) + (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) (spec: 0 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 0 u16vector-fill! u16vector-fill!) - (spec: 0 write-file-u8vector write-file-u8vector) - (spec: 0 cosh cosh) - (spec: 0 bitwise-if bitwise-if) + 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?) + (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) + (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 module-search-order-reset! module-search-order-reset!) - (spec: 0 random-source-make-integers random-source-make-integers) - (spec: 0 u8vector->list u8vector->list) + (spec: 0 cosh cosh) + (spec: 0 bitwise-nor bitwise-nor) + (spec: 0 symbol-hash symbol-hash) + (spec: 0 inactive-thread-exception? inactive-thread-exception?) (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) (spec: 0 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) + 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 divide-by-zero-exception? divide-by-zero-exception?) + (spec: 0 ucs-range->char-set! ucs-range->char-set!) + (spec: 0 input-port-char-position input-port-char-position) (spec: 0 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) - (spec: 0 open-file open-file) - (spec: 0 current-exception-handler current-exception-handler) - (spec: 0 file-info-last-change-time file-info-last-change-time) - (spec: 0 u8vector-shrink! u8vector-shrink!) + 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!) (spec: 0 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) + 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!) (spec: 0 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) - (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 0 last-pair last-pair) - (spec: 0 fold-right fold-right) - (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 0 open-string-pipe open-string-pipe) - (spec: 0 thread-join! thread-join!) - (spec: 0 path-directory path-directory) - (spec: 0 fxodd? fxodd?) - (spec: 0 char-set-size char-set-size) - (spec: 0 uninterned-symbol? uninterned-symbol?) - (spec: 0 user-info-home user-info-home) - (spec: 0 s32vector-shrink! s32vector-shrink!) - (spec: 0 step-level-set! step-level-set!) - (spec: 0 flilogb flilogb) - (spec: 0 call/cc call/cc) + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 0 fxfirst-set-bit fxfirst-set-bit) (spec: 0 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) - (spec: 0 list->char-set list->char-set) + 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) (spec: 0 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 0 fxxor fxxor) - (spec: 0 s64vector-set! s64vector-set!) - (spec: 0 concatenate concatenate) - (spec: 0 u32vector-fill! u32vector-fill!) - (spec: 0 subf64vector-fill! subf64vector-fill!) + 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) (spec: 0 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 0 char-set-delete char-set-delete) - (spec: 0 s16vector? s16vector?) - (spec: 0 port-settings-set! port-settings-set!) - (spec: 0 any-bits-set? any-bits-set?) - (spec: 0 thread-state-waiting? thread-state-waiting?) - (spec: 0 type-exception-arg-id type-exception-arg-id) - (spec: 0 s8vector-set s8vector-set) - (spec: 0 with-output-to-u8vector with-output-to-u8vector) - (spec: 0 bit-field-reverse bit-field-reverse) - (spec: 0 conjugate conjugate) - (spec: 0 u64vector-copy! u64vector-copy!) - (spec: 0 readtable-case-conversion? readtable-case-conversion?) - (spec: 0 network-info? network-info?) - (spec: 0 file-owner file-owner) - (spec: 0 substring-move! substring-move!) - (spec: 0 udp-write-u8vector udp-write-u8vector) - (spec: 0 string-suffix-ci? string-suffix-ci?) - (spec: 0 println println) - (spec: 0 clear-bit-field clear-bit-field) - (spec: 0 u16vector-copy! u16vector-copy!) - (spec: 0 range-exception? range-exception?) - (spec: 0 module-search-order-add! module-search-order-add!) - (spec: 0 file-attributes file-attributes) - (spec: 0 bitwise-for-each bitwise-for-each) - (spec: 0 write-file-string-list write-file-string-list) - (spec: 0 u8vector u8vector) - (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) - (spec: 0 noncontinuable-exception? noncontinuable-exception?) + 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<=) (spec: 0 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) + 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) (spec: 0 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) + 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) (spec: 0 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 0 tanh tanh) (spec: 0 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) - (spec: 0 open-event-queue open-event-queue) - (spec: 0 link-incremental link-incremental) - (spec: 0 replace-bit-field replace-bit-field) - (spec: 0 file-info-last-access-time file-info-last-access-time) - (spec: 0 mutex? mutex?) - (spec: 0 u8vector-set! u8vector-set!) + invalid-hash-number-exception? + invalid-hash-number-exception?) + (spec: 0 flceiling flceiling) + (spec: 0 readtable? readtable?) (spec: 0 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) - (spec: 0 flacosh flacosh) - (spec: 0 take-right take-right) - (spec: 0 readtable-start-syntax readtable-start-syntax) - (spec: 0 open-string open-string) - (spec: 0 fold fold) + 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?) (spec: 0 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 0 thread-interrupt! thread-interrupt!) - (spec: 0 uninterned-keyword? uninterned-keyword?) - (spec: 0 user-info-gid user-info-gid) - (spec: 0 fxnot fxnot) - (spec: 0 char-set-ref char-set-ref) - (spec: 0 s32vector-set! s32vector-set!) - (spec: 0 step step) - (spec: 0 directory-files directory-files) - (spec: 0 flhypot flhypot) + 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!) (spec: 0 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 0 file-exists-exception? file-exists-exception?) + (spec: 0 u8vector-append u8vector-append) (spec: 0 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 0 vector-unfold-right vector-unfold-right) - (spec: 0 os-exception? os-exception?) - (spec: 0 thread-state thread-state) - (spec: 0 fxwrapsquare fxwrapsquare) - (spec: 0 s64vector-set s64vector-set) - (spec: 0 make-u8vector make-u8vector) - (spec: 0 f32vector-length f32vector-length) - (spec: 0 proper-list? proper-list?) - (spec: 0 substring-fill! substring-fill!) - (spec: 0 set-box! set-box!) - (spec: 0 list->bits list->bits) - (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 0 char-set-cursor-next char-set-cursor-next) - (spec: 0 subf64vector subf64vector) - (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) + (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 main main) - (spec: 0 any-bit-set? any-bit-set?) - (spec: 0 string-suffix-length string-suffix-length) - (spec: 0 u32vector-copy! u32vector-copy!) - (spec: 0 s8vector-ref s8vector-ref) - (spec: 0 vector-fold-right vector-fold-right) - (spec: 0 f64vector-length f64vector-length) - (spec: 0 bit-field-replace-same bit-field-replace-same) - (spec: 0 with-output-to-string with-output-to-string) - (spec: 0 u64vector-copy u64vector-copy) + (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) (spec: 0 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) - (spec: 0 network-info-number network-info-number) - (spec: 0 file-number-of-links file-number-of-links) - (spec: 0 script-directory script-directory) - (spec: 0 print print) - (spec: 0 circular-list? circular-list?) - (spec: 0 string-shrink! string-shrink!) - (spec: 0 udp-write-subu8vector udp-write-subu8vector) - (spec: 0 u16vector-copy u16vector-copy) - (spec: 0 sinh sinh) - (spec: 0 copy-file copy-file) - (spec: 0 bitwise-fold bitwise-fold) - (spec: 0 fifth fifth) - (spec: 0 u8vector-set u8vector-set) + 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) (spec: 0 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 0 repl-result-history-ref repl-result-history-ref) - (spec: 0 user-info user-info) + 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) (spec: 0 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 0 flonum? flonum?) - (spec: 0 open-dummy open-dummy) - (spec: 0 thread-base-priority-set! thread-base-priority-set!) - (spec: 0 range-exception-procedure range-exception-procedure) - (spec: 0 mutex-unlock! mutex-unlock!) - (spec: 0 current-directory current-directory) - (spec: 0 file-info-inode file-info-inode) + 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/) (spec: 0 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 0 delete-file-or-directory delete-file-or-directory) - (spec: 0 flacos flacos) - (spec: 0 take! take!) - (spec: 0 open-process open-process) - (spec: 0 flzero? flzero?) + 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) (spec: 0 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 0 s64vector-ref s64vector-ref) - (spec: 0 partition! partition!) - (spec: 0 fxnor fxnor) - (spec: 0 char-set-map char-set-map) - (spec: 0 thread-init! thread-init!) - (spec: 0 vector-unfold vector-unfold) - (spec: 0 s32vector-set s32vector-set) - (spec: 0 iota iota) - (spec: 0 flfloor flfloor) + 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) (spec: 0 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 0 s16vector-shrink! s16vector-shrink!) - (spec: 0 length-mismatch-exception? length-mismatch-exception?) - (spec: 0 os-exception-procedure os-exception-procedure) - (spec: 0 thread-start! thread-start!) - (spec: 0 fxwrapquotient fxwrapquotient) - (spec: 0 acosh acosh) - (spec: 0 make-u64vector make-u64vector) - (spec: 0 f32vector-fill! f32vector-fill!) - (spec: 0 compilation-target compilation-target) - (spec: 0 host-name host-name) - (spec: 0 subf32vector-move! subf32vector-move!) - (spec: 0 stack-overflow-exception? stack-overflow-exception?) - (spec: 0 fxarithmetic-shift fxarithmetic-shift) - (spec: 0 char-set-cursor char-set-cursor) - (spec: 0 u32vector-copy u32vector-copy) - (spec: 0 thread-state-waiting-for thread-state-waiting-for) - (spec: 0 script-file script-file) + 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!) (spec: 0 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) - (spec: 0 any any) + 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+) (spec: 0 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 0 vector-fold vector-fold) - (spec: 0 with-output-to-process with-output-to-process) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) + (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) (spec: 0 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) - (spec: 0 bit-field-replace bit-field-replace) - (spec: 0 configure-command-string configure-command-string) - (spec: 0 f64vector-fill! f64vector-fill!) - (spec: 0 system-version-string system-version-string) - (spec: 0 u64vector-concatenate u64vector-concatenate) - (spec: 0 network-info-name network-info-name) - (spec: 0 file-mode file-mode) - (spec: 0 udp-source-socket-info udp-source-socket-info) - (spec: 0 primordial-exception-handler primordial-exception-handler) - (spec: 0 group-info? group-info?) - (spec: 0 random-real random-real) - (spec: 0 copy-bit-field copy-bit-field) - (spec: 0 module-not-found-exception? module-not-found-exception?) - (spec: 0 subvector-move! subvector-move!) + 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) (spec: 0 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 0 fixnum->flonum fixnum->flonum) + 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) (spec: 0 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 0 keyword->string keyword->string) + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: 0 call-with-output-u8vector call-with-output-u8vector) (spec: 0 - cfun-conversion-exception-code - cfun-conversion-exception-code) - (spec: 0 open-directory open-directory) - (spec: 0 thread-priority-set! thread-priority-set!) - (spec: 0 range-exception-arguments range-exception-arguments) - (spec: 0 mutex-state mutex-state) - (spec: 0 file-info-group file-info-group) - (spec: 0 thread-base-priority thread-base-priority) - (spec: 0 u8vector-ref u8vector-ref) - (spec: 0 tenth tenth) - (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) + 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) (spec: 0 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 0 flabs flabs) - (spec: 0 call-with-output-vector call-with-output-vector) - (spec: 0 take take) - (spec: 0 socket-info? socket-info?) - (spec: 0 s32vector-ref s32vector-ref) - (spec: 0 list->u8vector list->u8vector) - (spec: 0 char-set-intersection! char-set-intersection!) - (spec: 0 fxnegative? fxnegative?) - (spec: 0 partition partition) - (spec: 0 timeout->time timeout->time) + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 0 random-u8vector random-u8vector) (spec: 0 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) - (spec: 0 flfinite? flfinite?) - (spec: 0 vector-swap! vector-swap!) + 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) (spec: 0 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 0 os-exception-message os-exception-message) - (spec: 0 thread-specific-set! thread-specific-set!) - (spec: 0 every-bit-set? every-bit-set?) - (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 0 trace trace) - (spec: 0 service-info? service-info?) - (spec: 0 f32vector-copy! f32vector-copy!) - (spec: 0 host-info? host-info?) - (spec: 0 make-u32vector make-u32vector) - (spec: 0 subf32vector-fill! subf32vector-fill!) - (spec: 0 s16vector-set! s16vector-set!) - (spec: 0 u32vector-concatenate u32vector-concatenate) - (spec: 0 fxandc2 fxandc2) - (spec: 0 char-set-count char-set-count) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 0 integer-sqrt integer-sqrt) (spec: 0 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 0 write-file-string write-file-string) - (spec: 0 s8vector-length s8vector-length) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) + (spec: 0 unbound-key-exception? unbound-key-exception?) + (spec: 0 fl+* fl+*) (spec: 0 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 0 tty? tty?) - (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 0 subs8vector-move! subs8vector-move!) - (spec: 0 f64vector-copy! f64vector-copy!) - (spec: 0 bit-field-every? bit-field-every?) - (spec: 0 with-output-to-port with-output-to-port) - (spec: 0 u64vector-append u64vector-append) - (spec: 0 read-all read-all) - (spec: 0 network-info-aliases network-info-aliases) - (spec: 0 file-last-modification-time file-last-modification-time) - (spec: 0 udp-read-u8vector udp-read-u8vector) - (spec: 0 u16vector-append u16vector-append) - (spec: 0 string-set string-set) - (spec: 0 make-mutex make-mutex) - (spec: 0 group-info-name group-info-name) + input-port-characters-buffered + input-port-characters-buffered) + (spec: 0 string-prefix-length string-prefix-length) (spec: 0 command-name command-name) - (spec: 0 random-integer random-integer) + (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!) (spec: 0 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 0 copy-bit copy-bit) - (spec: 0 subvector-fill! subvector-fill!) - (spec: 0 system-version system-version) + 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) (spec: 0 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 0 defer-user-interrupts defer-user-interrupts) + 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+) (spec: 0 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) - (spec: 0 repl-output-port repl-output-port) - (spec: 0 thread thread) - (spec: 0 display-procedure-environment display-procedure-environment) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) (spec: 0 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 0 flodd? flodd?) - (spec: 0 range-exception-arg-id range-exception-arg-id) - (spec: 0 mutex-specific-set! mutex-specific-set!) - (spec: 0 file-info-device file-info-device) - (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) + join-timeout-exception-arguments + join-timeout-exception-arguments) + (spec: 0 flnegative? flnegative?) + (spec: 0 display-exception-in-context display-exception-in-context) (spec: 0 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) - (spec: 0 delete-directory delete-directory) - (spec: 0 call-with-output-u8vector call-with-output-u8vector) - (spec: 0 fl>= fl>=) - (spec: 0 thread-group? thread-group?) - (spec: 0 reverse! reverse!) - (spec: 0 open-output-vector open-output-vector) - (spec: 0 fltruncate fltruncate) - (spec: 0 socket-info-port-number socket-info-port-number) - (spec: 0 touch touch) - (spec: 0 vector-shrink! vector-shrink!) - (spec: 0 error-exception? error-exception?) - (spec: 0 fxnand fxnand) - (spec: 0 list->u64vector list->u64vector) - (spec: 0 tcp-service-unregister! tcp-service-unregister!) + 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) (spec: 0 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) - (spec: 0 flexpt flexpt) - (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) + 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) (spec: 0 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) - (spec: 0 fourth fourth) - (spec: 0 char-set-copy char-set-copy) - (spec: 0 os-exception-code os-exception-code) - (spec: 0 s64vector-length s64vector-length) - (spec: 0 thread-specific thread-specific) - (spec: 0 every every) - (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) - (spec: 0 u64vector->list u64vector->list) - (spec: 0 service-info-protocol service-info-protocol) - (spec: 0 f32vector-copy f32vector-copy) - (spec: 0 atanh atanh) - (spec: 0 host-info-name host-info-name) - (spec: 0 make-u16vector make-u16vector) - (spec: 0 s16vector-set s16vector-set) - (spec: 0 subf32vector subf32vector) - (spec: 0 fxandc1 fxandc1) - (spec: 0 char-set-intersection char-set-intersection) - (spec: 0 u32vector-append u32vector-append) - (spec: 0 u16vector-concatenate u16vector-concatenate) - (spec: 0 s8vector-fill! s8vector-fill!) + 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) (spec: 0 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 0 gensym gensym) - (spec: 0 circular-list circular-list) - (spec: 0 poll-point poll-point) + join-timeout-exception-procedure + join-timeout-exception-procedure) (spec: 0 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 0 subs8vector-fill! subs8vector-fill!) - (spec: 0 f64vector-copy f64vector-copy) - (spec: 0 bit-field-clear bit-field-clear) - (spec: 0 tty-type-set! tty-type-set!) - (spec: 0 vector-every vector-every) - (spec: 0 udp-read-subu8vector udp-read-subu8vector) - (spec: 0 initialized-thread-exception? initialized-thread-exception?) - (spec: 0 first-set-bit first-set-bit) - (spec: 0 network-info network-info) - (spec: 0 u16vector->list u16vector->list) - (spec: 0 executable-path executable-path) - (spec: 0 host-info-addresses host-info-addresses) - (spec: 0 subvector subvector) - (spec: 0 random-f64vector random-f64vector) + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) (spec: 0 - module-not-found-exception-arguments - module-not-found-exception-arguments) + 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 u64vector? u64vector?) - (spec: 0 read-subu8vector read-subu8vector) - (spec: 0 input-port-timeout-set! input-port-timeout-set!) - (spec: - 0 - default-user-interrupt-handler - default-user-interrupt-handler) + (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!) (spec: 0 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) - (spec: 0 system-type-string system-type-string) - (spec: 0 repl-input-port repl-input-port) - (spec: 0 fltanh fltanh) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) (spec: 0 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 0 mutex-specific mutex-specific) - (spec: 0 create-temporary-directory create-temporary-directory) - (spec: 0 file-last-change-time file-last-change-time) - (spec: 0 table? table?) - (spec: 0 readtable-max-write-level readtable-max-write-level) - (spec: 0 delete! delete!) - (spec: 0 call-with-output-string call-with-output-string) - (spec: 0 flexpm1 flexpm1) + 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) (spec: 0 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 0 thread-group-terminate! thread-group-terminate!) - (spec: 0 last last) - (spec: 0 open-output-u8vector open-output-u8vector) - (spec: 0 socket-info-family socket-info-family) + 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) (spec: 0 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 0 s32vector-length s32vector-length) - (spec: 0 list->u32vector list->u32vector) - (spec: 0 error-exception-parameters error-exception-parameters) - (spec: 0 fxmodulo fxmodulo) - (spec: 0 time? time?) - (spec: 0 tcp-service-register! tcp-service-register!) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) + (spec: 0 service-info-aliases service-info-aliases) (spec: 0 - invalid-utf8-encoding-exception-procedure - invalid-utf8-encoding-exception-procedure) - (spec: 0 thread-sleep! thread-sleep!) + 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>) (spec: 0 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) - (spec: 0 foreign? foreign?) - (spec: 0 char-set-contains? char-set-contains?) - (spec: 0 os-exception-arguments os-exception-arguments) - (spec: 0 s64vector-fill! s64vector-fill!) - (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 0 char-set? char-set?) - (spec: 0 service-info-port-number service-info-port-number) - (spec: 0 make-tls-context make-tls-context) - (spec: 0 f32vector-concatenate f32vector-concatenate) - (spec: 0 bit-field-any? bit-field-any?) - (spec: 0 host-info-aliases host-info-aliases) - (spec: 0 processor? processor?) - (spec: 0 s16vector-ref s16vector-ref) - (spec: 0 output-port-width output-port-width) - (spec: 0 char-set-hash char-set-hash) - (spec: 0 fxand fxand) - (spec: 0 u32vector->list u32vector->list) - (spec: 0 s8vector-copy! s8vector-copy!) - (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 0 vector-cumulate vector-cumulate) - (spec: 0 with-input-from-vector with-input-from-vector) - (spec: 0 u64vector u64vector) + 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) (spec: 0 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 0 f64vector-concatenate f64vector-concatenate) - (spec: 0 bitwise-eqv bitwise-eqv) - (spec: 0 continuation? continuation?) - (spec: 0 subs8vector subs8vector) + display-continuation-environment + display-continuation-environment) (spec: 0 - wrong-number-of-arguments-exception? - wrong-number-of-arguments-exception?) + invalid-utf8-encoding-exception-procedure + invalid-utf8-encoding-exception-procedure) + (spec: 0 tcp-service-register! tcp-service-register!) (spec: 0 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 0 default-random-source default-random-source) - (spec: 0 first first) - (spec: 0 u16vector u16vector) - (spec: 0 string-prefix? string-prefix?) - (spec: 0 f32vector->list f32vector->list) - (spec: 0 command-args command-args) - (spec: 0 host-info host-info) - (spec: 0 subu8vector-move! subu8vector-move!) - (spec: 0 raise raise) - (spec: 0 u64vector-swap! u64vector-swap!) - (spec: 0 create-symbolic-link create-symbolic-link) - (spec: 0 file-info-attributes file-info-attributes) - (spec: 0 system-type system-type) - (spec: 0 input-port-readtable-set! input-port-readtable-set!) - (spec: 0 compile-file compile-file) - (spec: 0 delete delete) - (spec: 0 fl= fl=) + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 0 flacosh flacosh) (spec: 0 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 0 read-substring read-substring) - (spec: 0 repl-highlight-source-level repl-highlight-source-level) - (spec: 0 fltan fltan) - (spec: 0 third third) - (spec: 0 mutex-name mutex-name) - (spec: 0 file-last-access-time file-last-access-time) - (spec: 0 table-set! table-set!) + 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) (spec: 0 - readtable-max-write-length-set - readtable-max-write-length-set) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 0 system-version system-version) + (spec: 0 fl< fl<) (spec: 0 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) - (spec: 0 flexp flexp) - (spec: 0 call-with-output-process call-with-output-process) - (spec: 0 thread-group-suspend! thread-group-suspend!) - (spec: 0 socket-info-address socket-info-address) - (spec: 0 foreign-tags foreign-tags) - (spec: 0 time->seconds time->seconds) - (spec: 0 s32vector-fill! s32vector-fill!) - (spec: 0 list->u16vector list->u16vector) - (spec: 0 fxwrapabs fxwrapabs) - (spec: 0 error-exception-message error-exception-message) - (spec: 0 vector-set vector-set) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) (spec: 0 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: 0 flnumerator flnumerator) - (spec: 0 thread-send thread-send) - (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 0 fxabs fxabs) - (spec: 0 char-set-complement! char-set-complement!) - (spec: 0 s64vector-copy! s64vector-copy!) - (spec: 0 list= list=) - (spec: 0 all-bits-set? all-bits-set?) - (spec: 0 char-set= char-set=) - (spec: 0 path-volume path-volume) - (spec: 0 string->uninterned-symbol string->uninterned-symbol) - (spec: 0 service-info-name service-info-name) - (spec: 0 f32vector-append f32vector-append) - (spec: 0 bit-field bit-field) + 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 output-port-timeout-set! output-port-timeout-set!) - (spec: 0 fxmin fxmin) - (spec: 0 char-set-for-each char-set-for-each) - (spec: 0 thread-state-running? thread-state-running?) + (spec: 0 s16vector-length s16vector-length) + (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 s8vector-copy s8vector-copy) - (spec: 0 with-input-from-u8vector with-input-from-u8vector) - (spec: 0 group-info-members group-info-members) + (spec: 0 path-strip-volume path-strip-volume) + (spec: 0 s64vector-copy s64vector-copy) (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) (spec: 0 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 0 subs64vector-move! subs64vector-move!) - (spec: 0 f64vector-append f64vector-append) - (spec: 0 bitwise-andc2 bitwise-andc2) - (spec: 0 continuation-return continuation-return) - (spec: 0 link-flat link-flat) + 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) (spec: 0 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 0 scheduler-exception? scheduler-exception?) - (spec: 0 f32vector f32vector) - (spec: 0 string-prefix-length-ci string-prefix-length-ci) - (spec: 0 ->char-set ->char-set) - (spec: 0 subu8vector-fill! subu8vector-fill!) - (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 0 mutex-lock! mutex-lock!) - (spec: 0 create-link create-link) - (spec: 0 bitwise-xor bitwise-xor) - (spec: 0 file-info file-info) - (spec: 0 shell-command shell-command) - (spec: 0 input-port-readtable input-port-readtable) - (spec: 0 fl<= fl<=) + unterminated-process-exception-arguments + unterminated-process-exception-arguments) + (spec: 0 fl>= fl>=) (spec: 0 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) - (spec: 0 system-stamp system-stamp) - (spec: 0 u64vector-shrink! u64vector-shrink!) - (spec: 0 repl-error-port repl-error-port) - (spec: 0 flsquare flsquare) - (spec: 0 open-output-process open-output-process) - (spec: 0 unbound-key-exception? unbound-key-exception?) - (spec: 0 random-u8vector random-u8vector) + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) (spec: 0 - current-user-interrupt-handler - current-user-interrupt-handler) + 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) (spec: 0 file-last-access-and-modification-times-set! file-last-access-and-modification-times-set!) - (spec: 0 table-search table-search) - (spec: 0 readtable-max-write-length readtable-max-write-length) - (spec: 0 fleven? fleven?) - (spec: 0 thread-group-specific-set! thread-group-specific-set!) - (spec: 0 foreign-released? foreign-released?) - (spec: 0 time time) - (spec: 0 list->table list->table) - (spec: 0 fxwrap- fxwrap-) - (spec: 0 abort abort) - (spec: 0 s32vector-copy! s32vector-copy!) - (spec: 0 tcp-server-socket-info tcp-server-socket-info) - (spec: 0 display-exception-in-context display-exception-in-context) - (spec: 0 flnegative? flnegative?) + (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<=) (spec: 0 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 0 length+ length+) - (spec: 0 end-of-char-set? end-of-char-set?) - (spec: 0 char-set-complement char-set-complement) - (spec: 0 fx>= fx>=) - (spec: 0 thread-resume! thread-resume!) - (spec: 0 s64vector-copy s64vector-copy) - (spec: 0 path-strip-volume path-strip-volume) - (spec: 0 char-set<= char-set<=) - (spec: 0 string->uninterned-keyword string->uninterned-keyword) - (spec: 0 service-info-aliases service-info-aliases) - (spec: 0 make-thread make-thread) - (spec: 0 f64vector->list f64vector->list) - (spec: 0 bit-count bit-count) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 0 udp-source-socket-info udp-source-socket-info) (spec: 0 - condition-variable-specific-set! - condition-variable-specific-set!) + 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) (spec: 0 - thread-state-running-processor - thread-state-running-processor) - (spec: 0 s16vector-length s16vector-length) - (spec: 0 fxmax fxmax) - (spec: 0 char-set-fold char-set-fold) - (spec: 0 output-port-readtable-set! output-port-readtable-set!) + 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?) (spec: 0 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 0 s8vector-concatenate s8vector-concatenate) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) + (spec: 0 table-search table-search) (spec: 0 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 0 group-info-gid group-info-gid) - (spec: 0 with-input-from-string with-input-from-string) + 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) (spec: 0 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 0 subs64vector-fill! subs64vector-fill!) - (spec: 0 bitwise-andc1 bitwise-andc1) - (spec: 0 continuation-graft continuation-graft) - (spec: 0 udp-local-socket-info udp-local-socket-info) - (spec: 0 scheduler-exception-reason scheduler-exception-reason) - (spec: 0 string-prefix-length string-prefix-length) - (spec: 0 subu8vector subu8vector) - (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 0 create-fifo create-fifo) - (spec: 0 bitwise-unfold bitwise-unfold) - (spec: 0 file-group file-group) - (spec: 0 u64vector-set! u64vector-set!) + 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) (spec: 0 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 0 fl< fl<) + 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) (spec: 0 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) - (spec: 0 drop-right! drop-right!) - (spec: 0 flsqrt flsqrt) - (spec: 0 random-source? random-source?) - (spec: 0 u8vector-length u8vector-length) - (spec: 0 current-time current-time) - (spec: 0 file-inode file-inode) - (spec: 0 table-ref table-ref) + 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!) (spec: 0 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 0 null-list? null-list?) - (spec: 0 fldenominator fldenominator) - (spec: 0 call-with-input-vector call-with-input-vector) - (spec: 0 uncaught-exception? uncaught-exception?) - (spec: 0 thread-group-specific thread-group-specific) - (spec: 0 foreign-release! foreign-release!) - (spec: 0 s32vector-copy s32vector-copy) + 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) (spec: 0 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 0 fxwrap+ fxwrap+) - (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 0 real-time real-time) - (spec: 0 display-exception display-exception) - (spec: 0 flnan? flnan?) - (spec: 0 thread-receive thread-receive) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 0 thread-sleep! thread-sleep!) (spec: 0 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 0 output-port-readtable output-port-readtable) - (spec: 0 fx> fx>) - (spec: 0 char-set-any char-set-any) - (spec: 0 s64vector-concatenate s64vector-concatenate) - (spec: 0 make-table make-table) - (spec: 0 f64vector f64vector) - (spec: 0 condition-variable-specific condition-variable-specific) - (spec: 0 service-info service-info) - (spec: 0 s16vector-fill! s16vector-fill!) - (spec: 0 vector-concatenate vector-concatenate) - (spec: 0 error error) - (spec: 0 char-set-filter! char-set-filter!) - (spec: 0 fxlength fxlength) - (spec: 0 tty-mode-set! tty-mode-set!) - (spec: 0 s8vector-append s8vector-append) - (spec: 0 group-info group-info) - (spec: 0 with-input-from-process with-input-from-process) - (spec: 0 u32vector? u32vector?) - (spec: 0 subs64vector subs64vector) - (spec: 0 bitwise-and bitwise-and) - (spec: 0 continuation-capture continuation-capture) - (spec: 0 bytevector bytevector) - (spec: 0 close-port close-port) - (spec: 0 file-exists? file-exists?) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 output-port-open? output-port-open?) - (spec: 0 current-second current-second) - (spec: 0 nan? nan?) - (spec: 0 square square) - (spec: 0 utf8->string utf8->string) - (spec: 0 vector-append vector-append) - (spec: 0 write-u8 write-u8) - (spec: 0 symbol=? symbol=?) - (spec: 0 round/ round/) - (spec: 0 euclidean/ euclidean/) - (spec: 0 exact-integer? exact-integer?) - (spec: 0 textual-port? textual-port?) - (spec: 0 vector-map vector-map) - (spec: 0 string-upcase string-upcase) - (spec: 0 write-string write-string) - (spec: 0 open-input-string open-input-string) - (spec: 0 round-remainder round-remainder) - (spec: 0 euclidean-remainder euclidean-remainder) - (spec: 0 exact-integer-sqrt exact-integer-sqrt) - (spec: 0 list-set! list-set!) - (spec: 0 vector->string vector->string) - (spec: 0 read-error? read-error?) - (spec: 0 write-simple write-simple) - (spec: 0 infinite? infinite?) - (spec: 0 round-quotient round-quotient) - (spec: 0 euclidean-quotient euclidean-quotient) - (spec: 0 balanced/ balanced/) - (spec: 0 jiffies-per-second jiffies-per-second) - (spec: 0 make-bytevector make-bytevector) - (spec: 0 file-error? file-error?) + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) + (spec: 0 os-exception? os-exception?) + (spec: 0 foreign? foreign?) + (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/) - (spec: 0 current-jiffy current-jiffy) - (spec: 0 truncate/ truncate/) - (spec: 0 write-shared write-shared) - (spec: 0 balanced-remainder balanced-remainder) - (spec: 0 truncate-remainder truncate-remainder) - (spec: 0 floor-remainder floor-remainder) - (spec: 0 open-input-bytevector open-input-bytevector) - (spec: 0 balanced-quotient balanced-quotient) + (spec: 0 binary-port? binary-port?) + (spec: 0 bytevector-length bytevector-length) (spec: 0 get-output-string get-output-string) - (spec: 0 port? port?) - (spec: 0 truncate-quotient truncate-quotient) - (spec: 0 floor-quotient floor-quotient) - (spec: 0 get-output-bytevector get-output-bytevector) - (spec: 0 string-map string-map) + (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 read-u8 read-u8) (spec: 0 make-promise make-promise) (spec: 0 vector-for-each vector-for-each) - (spec: 0 current-error-port current-error-port) - (spec: 0 error-object? error-object?) - (spec: 0 boolean=? boolean=?) + (spec: 0 char-foldcase char-foldcase) (spec: 0 list-copy list-copy) - (spec: 0 peek-u8 peek-u8) - (spec: 0 read-bytevector! read-bytevector!) + (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 boolean=? boolean=?) + (spec: 0 current-error-port current-error-port) + (spec: 0 infinite? infinite?) + (spec: 0 port? port?) + (spec: 0 write-shared write-shared) (spec: 0 error-object-message error-object-message) - (spec: 0 call-with-port call-with-port) - (spec: 0 exact exact) - (spec: 0 get-environment-variables get-environment-variables) - (spec: 0 bytevector-u8-set! bytevector-u8-set!) - (spec: 0 inexact inexact) - (spec: 0 delete-file delete-file) - (spec: 0 flush-output-port flush-output-port) - (spec: 0 error-object-irritants error-object-irritants) - (spec: 0 char-foldcase char-foldcase) - (spec: 0 get-environment-variable get-environment-variable) - (spec: 0 bytevector-u8-ref bytevector-u8-ref) - (spec: 0 read-u8 read-u8) + (spec: 0 jiffies-per-second jiffies-per-second) + (spec: 0 truncate-remainder truncate-remainder) + (spec: 0 vector->string vector->string) + (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 exit exit) - (spec: 0 make-parameter make-parameter) + (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 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 close-port close-port) + (spec: 0 write-u8 write-u8) + (spec: 0 euclidean-quotient euclidean-quotient) (spec: 0 open-binary-output-file open-binary-output-file) - (spec: 0 promise? promise?) - (spec: 0 read-bytevector read-bytevector) - (spec: 0 bytevector-length bytevector-length) - (spec: 0 command-line command-line) - (spec: 0 make-list make-list) - (spec: 0 open-binary-input-file open-binary-input-file) - (spec: 0 digit-value digit-value) - (spec: 0 string->utf8 string->utf8) - (spec: 0 string->vector string->vector) - (spec: 0 string-foldcase string-foldcase) - (spec: 0 bytevector-copy! bytevector-copy!) - (spec: 0 string-for-each string-for-each) - (spec: 0 ceiling/ ceiling/) - (spec: 0 open-output-string open-output-string) - (spec: 0 u8-ready? u8-ready?) - (spec: 0 vector-copy! vector-copy!) + (spec: 0 round-remainder round-remainder) (spec: 0 bytevector-copy bytevector-copy) (spec: 0 read-string read-string) - (spec: 0 ceiling-remainder ceiling-remainder) + (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 finite? finite?) - (spec: 0 write-bytevector write-bytevector) - (spec: 0 vector-copy vector-copy) + (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 bytevector-append bytevector-append) + (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 ceiling-quotient ceiling-quotient) - (spec: 0 input-port-open? input-port-open?) - (spec: 0 string-downcase string-downcase) - (spec: 0 binary-port? binary-port?) - (spec: 0 string-copy! string-copy!) - (spec: 0 + +) - (spec: 0 string=? string=?) - (spec: 0 caaar caaar) - (spec: 0 ceiling ceiling) - (spec: 0 interaction-environment interaction-environment) - (spec: 0 null-environment null-environment) - (spec: 0 char-ci=? char-ci=?) - (spec: 0 real-part real-part) - (spec: 0 string->number string->number) - (spec: 0 max max) - (spec: 0 - -) - (spec: 0 string-copy string-copy) - (spec: 0 caaadr caaadr) - (spec: 0 * *) - (spec: 0 stringlist string->list) - (spec: 0 eval eval) - (spec: 0 with-input-from-file with-input-from-file) - (spec: 0 exact? exact?) - (spec: 0 char? char?) - (spec: 0 close-output-port close-output-port) - (spec: 0 string<=? string<=?) - (spec: 0 caaaar caaaar) - (spec: 0 cddr cddr) - (spec: 0 char-ci<=? char-ci<=?) - (spec: 0 sqrt sqrt) - (spec: 0 eqv? eqv?) - (spec: 0 apply apply) - (spec: 0 char>? char>?) - (spec: 0 newline newline) - (spec: 0 close-input-port close-input-port) - (spec: 0 expt expt) - (spec: 0 cdddr cdddr) + (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 cadar cadar) + (spec: 0 for-each for-each) + (spec: 0 cdar cdar) + (spec: 0 caar caar) + (spec: 0 read read) + (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 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-ci= >=) - (spec: 0 asin asin) + (spec: 0 cdddr cdddr) + (spec: 0 current-input-port current-input-port) + (spec: 0 imag-part imag-part) + (spec: 0 rational? rational?) + (spec: 0 sin sin) + (spec: 0 close-input-port close-input-port) + (spec: 0 char=? char=?) + (spec: 0 memv memv) + (spec: 0 < <) + (spec: 0 list list) + (spec: 0 positive? positive?) + (spec: 0 quotient quotient) + (spec: 0 string-ci=? string-ci=?) + (spec: 0 char-ci<=? char-ci<=?) + (spec: 0 cddr cddr) + (spec: 0 inexact->exact inexact->exact) + (spec: 0 rationalize rationalize) + (spec: 0 close-output-port close-output-port) + (spec: 0 angle angle) (spec: 0 char>=? char>=?) - (spec: 0 pair? pair?) - (spec: 0 current-output-port current-output-port) - (spec: 0 modulo modulo) + (spec: 0 <= <=) + (spec: 0 member member) + (spec: 0 set-car! set-car!) + (spec: 0 vector->list vector->list) + (spec: 0 vector-length vector-length) + (spec: 0 car car) + (spec: 0 numerator numerator) + (spec: 0 cadr cadr) + (spec: 0 dynamic-wind dynamic-wind) + (spec: 0 cdddar cdddar) + (spec: 0 open-input-file open-input-file) + (spec: 0 cos cos) + (spec: 0 round round) (spec: 0 symbol->string symbol->string) - (spec: 0 cddddr cddddr) + (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 display display) - (spec: 0 force force) (spec: 0 lcm lcm) - (spec: 0 vector->list vector->list) - (spec: 0 log log) - (spec: 0 > >) - (spec: 0 map map) - (spec: 0 char=? char=?) - (spec: 0 equal? equal?) - (spec: 0 positive? positive?) - (spec: 0 quotient quotient) - (spec: 0 make-rectangular make-rectangular) - (spec: 0 string-ci>? string-ci>?) - (spec: 0 vector-length vector-length) - (spec: 0 cdddar cdddar) - (spec: 0 integer->char integer->char) - (spec: 0 cadr cadr) - (spec: 0 for-each for-each) - (spec: 0 inexact? inexact?) - (spec: 0 list-ref list-ref) - (spec: 0 car car) - (spec: 0 char-ready? char-ready?) - (spec: 0 numerator numerator) - (spec: 0 open-input-file open-input-file) - (spec: 0 rationalize rationalize) + (spec: 0 string=? string-ci>=?) - (spec: 0 dynamic-wind dynamic-wind) - (spec: 0 cddar cddar) - (spec: 0 current-input-port current-input-port) - (spec: 0 rational? rational?) - (spec: 0 caddr caddr) - (spec: 0 number? number?) - (spec: 0 char-numeric? char-numeric?) - (spec: 0 vector vector) - (spec: 0 = =) (spec: 0 eq? eq?) - (spec: 0 append append) - (spec: 0 char<=? char<=?) - (spec: 0 cons cons) - (spec: 0 make-vector make-vector) - (spec: 0 procedure? procedure?) - (spec: 0 set-cdr! set-cdr!) - (spec: 0 cddadr cddadr) - (spec: 0 boolean? boolean?) - (spec: 0 cadddr cadddr) - (spec: 0 tan tan) - (spec: 0 vector? vector?) + (spec: 0 char-numeric? char-numeric?) + (spec: 0 acos acos) + (spec: 0 log log) + (spec: 0 string-ci>? string-ci>?) + (spec: 0 cdaaar cdaaar) (spec: 0 remainder remainder) - (spec: 0 char-lower-case? char-lower-case?) - (spec: 0 string-ci=? string-ci=?) - (spec: 0 <= <=) - (spec: 0 set-car! set-car!) - (spec: 0 char-whitespace? char-whitespace?) + (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 read-char read-char) - (spec: 0 / /) - (spec: 0 cos cos) - (spec: 0 cddaar cddaar) - (spec: 0 floor floor) - (spec: 0 caddar caddar) - (spec: 0 denominator denominator) - (spec: 0 string-ciinexact exact->inexact) - (spec: 0 < <) - (spec: 0 complex? complex?) + (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 string<=? string<=?) + (spec: 0 >= >=) (spec: 0 eof-object? eof-object?) - (spec: 0 memv memv) - (spec: 0 transcript-on transcript-on) - (spec: 0 exp exp) - (spec: 0 make-polar make-polar) - (spec: 0 cdar cdar) - (spec: 0 inexact->exact inexact->exact) - (spec: 0 cadar cadar) - (spec: 0 list->vector list->vector) - (spec: 0 string-ci<=? string-ci<=?) - (spec: 0 transcript-off transcript-off) - (spec: 0 list list) - (spec: 0 string-length string-length) - (spec: 0 char-upper-case? char-upper-case?) - (spec: 0 memq memq) - (spec: 0 string-set! string-set!) - (spec: 0 imag-part imag-part) - (spec: 0 sin sin) - (spec: 0 cadadr cadadr) - (spec: 0 substring substring) - (spec: 0 cdadr cdadr) - (spec: 0 string-append string-append) - (spec: 0 acos acos) - (spec: 0 peek-char peek-char) - (spec: 0 vector-fill! vector-fill!) - (spec: 0 char-upcase char-upcase) - (spec: 0 atan atan) - (spec: 0 input-port? input-port?) - (spec: 0 cadaar cadaar) - (spec: 0 not not) - (spec: 0 cdaddr cdaddr) - (spec: 0 load load) - (spec: 0 output-port? output-port?) - (spec: 0 with-output-to-file with-output-to-file) - (spec: 0 angle angle) - (spec: 0 member member) - (spec: 0 read read) + (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 write-char write-char) - (spec: 0 caar caar) - (spec: 0 reverse reverse) - (spec: 0 char-downcase char-downcase) - (spec: 0 cdadar cdadar) - (spec: 0 number->string number->string) - (spec: 0 list? list?) + (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 asin asin) + (spec: 0 with-output-to-file with-output-to-file) + (spec: 0 string>=? string>=?) + (spec: 0 equal? equal?) (spec: 0 values values) - (spec: 0 scheme-report-environment scheme-report-environment) - (spec: 0 assv assv) - (spec: 0 caadr caadr) + (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 cdaar cdaar) - (spec: 0 string? string?) - (spec: 0 string-fill! string-fill!) + (spec: 0 cdadar cdadar) + (spec: 0 number->string number->string) + (spec: 0 char-downcase char-downcase) + (spec: 0 floor floor) + (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 assq assq) - (spec: 0 caaddr caaddr) - (spec: 0 negative? negative?) - (spec: 0 null? null?) - (spec: 0 call-with-output-file call-with-output-file) - (spec: 0 char-ci>? char-ci>?) - (spec: 0 vector-ref vector-ref) - (spec: 0 cdaadr cdaadr) - (spec: 0 real? real?) - (spec: 0 gcd gcd) - (spec: 0 string>? string>?) - (spec: 0 magnitude magnitude) - (spec: 0 assoc assoc) - (spec: 0 make-string make-string) - (spec: 0 write write) - (spec: 0 caadar caadar) - (spec: 0 open-output-file open-output-file) - (spec: 0 char-ci>=? char-ci>=?) - (spec: 0 even? even?) + (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 cdaaar cdaaar) - (spec: 0 list-tail list-tail) - (spec: 0 length length) - (spec: 0 string->symbol string->symbol) - (spec: 0 string>=? string>=?) - (spec: 0 R5RSRuntime R5RSRuntime) - (spec: 0 GerbilRuntime GerbilRuntime) - (spec: 0 GambitRuntime GambitRuntime) - (spec: 0 Runtime Runtime) + (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 RuntimeAliases RuntimeAliases) (spec: 0 R7RSRuntime R7RSRuntime) + (spec: 0 GerbilRuntime GerbilRuntime) + (spec: 0 Runtime Runtime) + (spec: 0 GambitRuntime GambitRuntime) + (spec: 0 R5RSRuntime R5RSRuntime) (spec: 0 %%app-dotted %%app) (spec: 0 %%ref-dotted %%ref) (spec: 0 %%set-dotted! set!) @@ -3339,476 +3341,482 @@ namespace: gerbil/core (spec: 0 defmethod/c defmethod) (spec: 0 defclass/c defclass) (spec: 0 defstruct/c defstruct) + (spec: 0 do/c do) + (spec: 0 do-while/c do-while) (spec: 1 identifier-rules identifier-rules) (spec: 1 quasisyntax quasisyntax) (spec: 1 macro-object macro-object) - (spec: 1 ¯o-object-macro-set! ¯o-object-macro-set!) - (spec: 1 macro-object? macro-object?) - (spec: 1 macro-object-macro-set! macro-object-macro-set!) - (spec: 1 macro-object-macro macro-object-macro) - (spec: 1 make-macro-object make-macro-object) (spec: 1 ¯o-object-macro ¯o-object-macro) (spec: 1 macro-object::apply-macro-expander macro-object::apply-macro-expander) + (spec: 1 make-macro-object make-macro-object) + (spec: 1 macro-object-macro-set! macro-object-macro-set!) + (spec: 1 ¯o-object-macro-set! ¯o-object-macro-set!) (spec: 1 macro-object::t macro-object::t) - (spec: 1 syntax-rules syntax-rules) - (spec: 1 with-syntax with-syntax) - (spec: 1 syntax/loc syntax/loc) + (spec: 1 macro-object? macro-object?) + (spec: 1 macro-object-macro macro-object-macro) + (spec: 1 with-syntax with-syntax) + (spec: 1 syntax-rules syntax-rules) (spec: 1 with-syntax* with-syntax*) - (spec: 1 syntax-case syntax-case) + (spec: 1 syntax/loc syntax/loc) (spec: 1 syntax syntax) - (spec: 1 module-import-phi module-import-phi) - (spec: 1 core-resolve-identifier core-resolve-identifier) - (spec: 1 import-export-expander? import-export-expander?) - (spec: 1 export-set-source export-set-source) - (spec: 1 syntax-binding? syntax-binding?) + (spec: 1 syntax-case syntax-case) + (spec: 1 ellipsis? ellipsis?) + (spec: 1 prelude-context? prelude-context?) + (spec: 1 top-binding? top-binding?) + (spec: 1 stx-car stx-car) + (spec: 1 make-import-export-expander make-import-export-expander) + (spec: 1 module-export-phi module-export-phi) (spec: 1 binding-id binding-id) + (spec: 1 core-quote-syntax core-quote-syntax) + (spec: 1 export-set-source export-set-source) + (spec: 1 stx-e stx-e) + (spec: 1 core-identifier-key core-identifier-key) + (spec: 1 core-apply-expander core-apply-expander) + (spec: 1 expander? expander?) + (spec: 1 make-local-context make-local-context) + (spec: 1 core-expand core-expand) + (spec: 1 datum->syntax datum->syntax) (spec: 1 alias-binding? alias-binding?) - (spec: 1 stx-vector? stx-vector?) - (spec: 1 make-module-import make-module-import) - (spec: 1 binding? 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 current-expander-marks current-expander-marks) (spec: 1 eval-module eval-module) - (spec: 1 import-binding-e import-binding-e) - (spec: 1 stx-last-pair stx-last-pair) - (spec: 1 module-import-name module-import-name) - (spec: 1 stx-boolean? stx-boolean?) - (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) - (spec: 1 current-module-reader-args current-module-reader-args) - (spec: 1 module-context-import module-context-import) - (spec: 1 stx-car stx-car) - (spec: 1 top-context? top-context?) - (spec: 1 module-import-source module-import-source) - (spec: 1 syntax-local-rewrap syntax-local-rewrap) - (spec: 1 make-module-export make-module-export) - (spec: 1 module-export-context module-export-context) - (spec: 1 core-context-top core-context-top) - (spec: 1 stx-pair? stx-pair?) + (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 stx-ormap stx-ormap) + (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 identifier? identifier?) - (spec: 1 stx-last stx-last) - (spec: 1 current-expander-compiling? current-expander-compiling?) - (spec: 1 eval-syntax eval-syntax) - (spec: 1 module-export? module-export?) - (spec: 1 stx-string? stx-string?) - (spec: 1 export-set-phi export-set-phi) - (spec: 1 stx-pair/null? stx-pair/null?) - (spec: 1 core-resolve-module-export core-resolve-module-export) - (spec: 1 current-module-reader-path current-module-reader-path) - (spec: 1 syntax->list syntax->list) + (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-pattern-depth syntax-pattern-depth) - (spec: 1 stx-number? stx-number?) - (spec: 1 current-expander-phi current-expander-phi) + (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) + (spec: 1 stx-list-ref stx-list-ref) + (spec: 1 stx-keyword? stx-keyword?) (spec: 1 syntax-local-pattern? syntax-local-pattern?) - (spec: 1 module-context-code module-context-code) - (spec: 1 prelude-context? prelude-context?) - (spec: 1 core-expand-expression+1 core-expand-expression+1) - (spec: 1 make-syntax-pattern make-syntax-pattern) - (spec: 1 local-context? local-context?) - (spec: 1 module-context-ns module-context-ns) - (spec: 1 syntax->datum syntax->datum) - (spec: 1 expander-context-id expander-context-id) - (spec: 1 bound-identifier=? bound-identifier=?) - (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) - (spec: 1 core-resolve-module-path core-resolve-module-path) - (spec: 1 stx-source stx-source) - (spec: 1 syntax-local-introduce syntax-local-introduce) - (spec: 1 expander? expander?) - (spec: 1 stx-identifier stx-identifier) - (spec: 1 stx-null? stx-null?) - (spec: 1 syntax-pattern? syntax-pattern?) - (spec: 1 feature-expander? feature-expander?) - (spec: 1 module-import-weak? module-import-weak?) - (spec: 1 core-expand-import-source core-expand-import-source) - (spec: 1 stx-foldl stx-foldl) - (spec: 1 syntax-pattern-id syntax-pattern-id) - (spec: 1 core-expand-head core-expand-head) - (spec: 1 syntax-local-unwrap syntax-local-unwrap) - (spec: 1 extern-binding? extern-binding?) - (spec: 1 syntax-split-splice syntax-split-splice) - (spec: 1 stx-false? stx-false?) + (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 raise-syntax-error raise-syntax-error) - (spec: 1 module-context-export module-context-export) - (spec: 1 user-expander-context user-expander-context) - (spec: 1 import-set-imports import-set-imports) (spec: 1 current-expander-path current-expander-path) - (spec: 1 current-expander-context current-expander-context) - (spec: 1 export-set-exports export-set-exports) - (spec: 1 stx-length stx-length) - (spec: 1 stx-foldr stx-foldr) - (spec: 1 stx-reverse stx-reverse) - (spec: 1 syntax-local-e syntax-local-e) - (spec: 1 make-local-context make-local-context) - (spec: 1 stx-keyword? stx-keyword?) - (spec: 1 ellipsis? ellipsis?) - (spec: 1 stx-wrap-source stx-wrap-source) - (spec: 1 core-library-module-path? core-library-module-path?) - (spec: 1 resolve-identifier resolve-identifier) - (spec: 1 current-expander-marks current-expander-marks) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 stx-eq? stx-eq?) + (spec: 1 stx-null? stx-null?) (spec: 1 module-binding? module-binding?) - (spec: 1 stx-list-ref stx-list-ref) - (spec: 1 expander-e expander-e) - (spec: 1 stx-fixnum? stx-fixnum?) + (spec: 1 module-export? module-export?) (spec: 1 make-user-expander make-user-expander) - (spec: 1 module-export-name module-export-name) - (spec: 1 core-quote-syntax core-quote-syntax) - (spec: 1 export-set? export-set?) - (spec: 1 gentemps gentemps) - (spec: 1 import-module import-module) - (spec: 1 syntax-e syntax-e) - (spec: 1 stx-e stx-e) - (spec: 1 make-import-export-expander make-import-export-expander) - (spec: 1 stx-plist? stx-plist?) - (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) - (spec: 1 import-binding? import-binding?) - (spec: 1 stx-datum? stx-datum?) - (spec: 1 export-expander? export-expander?) - (spec: 1 datum->syntax datum->syntax) - (spec: 1 module-export-phi module-export-phi) - (spec: 1 user-expander? user-expander?) - (spec: 1 import-set-source import-set-source) - (spec: 1 genident genident) - (spec: 1 module-import? module-import?) - (spec: 1 stx-cdr stx-cdr) - (spec: 1 alias-binding-e alias-binding-e) + (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 free-identifier=? free-identifier=?) - (spec: 1 import-set? import-set?) - (spec: 1 import-expander? import-expander?) + (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 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 import-binding-e import-binding-e) + (spec: 1 syntax-pattern? syntax-pattern?) + (spec: 1 stx-length stx-length) + (spec: 1 module-import-weak? module-import-weak?) + (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 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 runtime-binding? runtime-binding?) - (spec: 1 stx-char? stx-char?) - (spec: 1 stx-box? stx-box?) + (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 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 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 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 syntax-local-value syntax-local-value) + (spec: 1 user-expander? user-expander?) + (spec: 1 export-set-exports export-set-exports) + (spec: 1 runtime-binding? runtime-binding?) + (spec: 1 core-resolve-module-export core-resolve-module-export) + (spec: 1 export-set? export-set?) (spec: 1 stx-equal? stx-equal?) - (spec: 1 module-context? module-context?) - (spec: 1 top-binding? top-binding?) + (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 underscore? underscore?) - (spec: 1 stx-andmap stx-andmap) - (spec: 1 expander-binding-e expander-binding-e) - (spec: 1 user-expander-phi user-expander-phi) - (spec: 1 stx-list-tail stx-list-tail) - (spec: 1 core-identifier-key core-identifier-key) - (spec: 1 import-set-phi import-set-phi) - (spec: 1 identifier-list? identifier-list?) - (spec: 1 core-apply-expander core-apply-expander) - (spec: 1 core-expand core-expand) + (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 stx-eqv? stx-eqv?) - (spec: 1 core-module-export->import core-module-export->import) - (spec: 1 syntax-binding-e syntax-binding-e) - (spec: 1 module-export-key module-export-key) - (spec: 1 expander-binding? expander-binding?) - (spec: 1 make-import-expander make-import-expander) - (spec: 1 SyntaxCase SyntaxCase) - (spec: 1 SyntaxSugar SyntaxSugar) + (spec: 1 make-module-export make-module-export) + (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 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 SyntaxCase SyntaxCase) + (spec: 1 SyntaxSugar SyntaxSugar) (spec: 2 !class-precedence-list !class-precedence-list) + (spec: 2 type-env-type-set! type-env-type-set!) + (spec: 2 &type-env-type-set! &type-env-type-set!) + (spec: 2 current-type-env current-type-env) (spec: 2 type-env-type type-env-type) - (spec: 2 type-env-var-set! type-env-var-set!) - (spec: 2 &type-env-type &type-env-type) (spec: 2 type-env::t type-env::t) - (spec: 2 type-env-checked? type-env-checked?) - (spec: 2 type-env type-env) - (spec: 2 &type-env-type-set! &type-env-type-set!) (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? &type-env-checked?) - (spec: 2 make-type-env make-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?-set! &type-env-checked?-set!) + (spec: 2 type-env-var type-env-var) (spec: 2 type-env-super-set! type-env-super-set!) + (spec: 2 &type-env-checked? &type-env-checked?) + (spec: 2 type-env type-env) + (spec: 2 type-env-checked? type-env-checked?) (spec: 2 &type-env-var &type-env-var) - (spec: 2 current-type-env current-type-env) - (spec: 2 type-env-var type-env-var) - (spec: 2 &type-env-super-set! &type-env-super-set!) - (spec: 2 &type-env-var-set! &type-env-var-set!) - (spec: 2 type-env-lookup type-env-lookup) - (spec: - 2 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) (spec: 2 - &interface-info-interface-methods - &interface-info-interface-methods) - (spec: 2 &interface-info-instance-type &interface-info-instance-type) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) (spec: 2 &interface-info-instance-satisfies-predicate &interface-info-instance-satisfies-predicate) - (spec: 2 &interface-info-name-set! &interface-info-name-set!) + (spec: 2 interface-info::t interface-info::t) (spec: 2 - interface-info-instance-satisfies-predicate-set! - interface-info-instance-satisfies-predicate-set!) - (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) (spec: 2 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) - (spec: 2 interface-info-name-set! interface-info-name-set!) - (spec: 2 make-interface-info make-interface-info) + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) + (spec: 2 interface-info-flatten-mixin interface-info-flatten-mixin) (spec: 2 - interface-info-interface-mixin - interface-info-interface-mixin) + interface-info-interface-methods + interface-info-interface-methods) + (spec: 2 interface-info-instance-type interface-info-instance-type) (spec: 2 - &interface-info-instance-predicate - &interface-info-instance-predicate) + &interface-info-unchecked-implementation-methods-set! + &interface-info-unchecked-implementation-methods-set!) (spec: 2 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) (spec: 2 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + interface-info-instance-constructor + interface-info-instance-constructor) (spec: 2 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) + interface-info-instance-type-set! + interface-info-instance-type-set!) + (spec: + 2 + interface-info-instance-predicate + interface-info-instance-predicate) (spec: 2 interface-info-instance-predicate-set! interface-info-instance-predicate-set!) (spec: 2 - interface-info-implementation-methods - interface-info-implementation-methods) + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) (spec: 2 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) + (spec: 2 interface-info? interface-info?) (spec: 2 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) - (spec: 2 &interface-info-name &interface-info-name) + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) (spec: 2 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) + &interface-info-implementation-methods + &interface-info-implementation-methods) (spec: 2 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: 2 - interface-info-instance-constructor - interface-info-instance-constructor) + &interface-info-interface-descriptor-set! + &interface-info-interface-descriptor-set!) (spec: 2 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-set!) + interface-info::apply-macro-expander + interface-info::apply-macro-expander) + (spec: 2 &interface-info-name &interface-info-name) (spec: 2 - &interface-info-instance-try-constructor - &interface-info-instance-try-constructor) - (spec: 2 interface-info interface-info) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) + (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) (spec: 2 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) + &interface-info-interface-methods + &interface-info-interface-methods) (spec: 2 - &interface-info-instance-constructor - &interface-info-instance-constructor) + interface-info-interface-mixin + interface-info-interface-mixin) (spec: 2 - &interface-info-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) (spec: 2 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) + (spec: 2 interface-info-name-set! interface-info-name-set!) (spec: 2 - &interface-info-implementation-methods - &interface-info-implementation-methods) - (spec: 2 interface-info-name interface-info-name) - (spec: 2 interface-info::t interface-info::t) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) (spec: 2 - interface-info-instance-type-set! - interface-info-instance-type-set!) + &interface-info-interface-methods-set! + &interface-info-interface-methods-set!) (spec: 2 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-implementation-methods-set!) - (spec: 2 interface-info? interface-info?) + &interface-info-interface-mixin + &interface-info-interface-mixin) (spec: 2 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + &interface-info-instance-predicate + &interface-info-instance-predicate) + (spec: 2 &interface-info-instance-type &interface-info-instance-type) (spec: 2 - interface-info-interface-methods-set! - interface-info-interface-methods-set!) + &interface-info-interface-descriptor + &interface-info-interface-descriptor) (spec: 2 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) (spec: 2 - interface-info-interface-descriptor - interface-info-interface-descriptor) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) + (spec: 2 interface-info-name interface-info-name) (spec: 2 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) - (spec: 2 interface-info-instance-type interface-info-instance-type) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 2 - interface-info-instance-predicate - interface-info-instance-predicate) + interface-info-interface-descriptor + interface-info-interface-descriptor) (spec: 2 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) + &interface-info-instance-type-set! + &interface-info-instance-type-set!) + (spec: 2 interface-info interface-info) (spec: 2 - &interface-info-interface-descriptor - &interface-info-interface-descriptor) + interface-info-interface-methods-set! + interface-info-interface-methods-set!) (spec: 2 - interface-info-interface-methods - interface-info-interface-methods) + &interface-info-instance-try-constructor + &interface-info-instance-try-constructor) + (spec: 2 make-interface-info make-interface-info) (spec: 2 - &interface-info-implementation-methods-set! - &interface-info-implementation-methods-set!) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 2 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) + interface-info-implementation-methods + interface-info-implementation-methods) (spec: 2 - &interface-info-interface-mixin - &interface-info-interface-mixin) - (spec: 2 interface-info-flatten-mixin interface-info-flatten-mixin) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) (spec: 2 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) + &interface-info-instance-constructor + &interface-info-instance-constructor) + (spec: 2 &interface-info-name-set! &interface-info-name-set!) (spec: 2 is-signature? is-signature?) - (spec: 1 with-procedure-contract with-procedure-contract) - (spec: 1 with-receiver with-receiver) - (spec: - 1 - with-procedure-unchecked-contract - with-procedure-unchecked-contract) - (spec: 1 defmethod/c defmethod/c) - (spec: 1 case-lambda/c case-lambda/c) + (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 defstruct/c defstruct/c) (spec: 1 def*/c def*/c) - (spec: 1 defmutable defmutable) + (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 let/c let/c) + (spec: 1 with-procedure-contract with-procedure-contract) + (spec: + 1 + with-procedure-unchecked-contract + with-procedure-unchecked-contract) + (spec: 1 with-receiver with-receiver) (spec: 1 defmutable* defmutable*) - (spec: 1 with-procedure-signature with-procedure-signature) - (spec: 2 signature-has-keywords? signature-has-keywords?) - (spec: 2 check-valid-type! check-valid-type!) + (spec: 1 let/c let/c) (spec: 2 - check-signature-contract-types! - check-signature-contract-types!) - (spec: 2 compatible-signatures? compatible-signatures?) - (spec: 2 signature-arity signature-arity) + compatible-signature-type-contract? + compatible-signature-type-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 check-signature-spec! check-signature-spec!) - (spec: 2 make-procedure-contract make-procedure-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 signature-arguments-in signature-arguments-in) (spec: 2 contract-type-subtype? contract-type-subtype?) - (spec: 2 signature-contract? signature-contract?) (spec: 2 - make-procedure-lambda-signature - make-procedure-lambda-signature) - (spec: 2 symboltype-descriptor resolve-type->type-descriptor) (spec: 2 make-type-reference make-type-reference) - (spec: 2 resolve-type->identifier resolve-type->identifier) - (spec: 2 type-reference-identifier type-reference-identifier) - (spec: 2 type-reference? type-reference?) (spec: 2 type-identifier? type-identifier?) - (spec: 2 type-reference type-reference) + (spec: 2 resolve-type->identifier resolve-type->identifier) (spec: 1 deftype deftype) - (spec: 1 TypedDefinitions TypedDefinitions) + (spec: 1 ContractRules ContractRules) + (spec: 1 ClassMeta ClassMeta) (spec: 1 TypeCast TypeCast) (spec: 1 Interface Interface) - (spec: 1 Using Using) - (spec: 1 ContractRules ContractRules) (spec: 1 TypeReference TypeReference) - (spec: 1 InterfaceInfo InterfaceInfo) (spec: 1 TypeEnv TypeEnv) - (spec: 1 ClassMeta ClassMeta) - (spec: 2 setf-macro-macro setf-macro-macro) - (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) - (spec: 2 setf-macro-macro-set! setf-macro-macro-set!) + (spec: 1 TypedDefinitions TypedDefinitions) + (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 expand-set! expand-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::t setf-macro::t) - (spec: 2 &setf-macro-macro &setf-macro-macro) - (spec: 2 &setq-macro-macro-set! &setq-macro-macro-set!) - (spec: 2 setq-macro::t setq-macro::t) (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 &setf-macro-macro &setf-macro-macro) + (spec: 2 make-setq-macro make-setq-macro) (spec: 2 &setf-macro-macro-set! &setf-macro-macro-set!) - (spec: 2 syntax-local-setq-macro? syntax-local-setq-macro?) - (spec: 2 syntax-local-setf-macro? syntax-local-setf-macro?) - (spec: 2 &setq-macro-macro &setq-macro-macro) (spec: 2 setq-macro setq-macro) - (spec: 2 setf-macro setf-macro) - (spec: 1 values-set! values-set!) - (spec: 1 eval-when-compile eval-when-compile) - (spec: 1 let/cc let/cc) + (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 values-set! values-set!) (spec: 2 match-pattern? match-pattern?) (spec: 2 syntax-local-match-macro? syntax-local-match-macro?) (spec: 2 match-macro? match-macro?) (spec: 2 make-match-macro make-match-macro) (spec: 2 match-macro::t match-macro::t) (spec: 2 match-macro match-macro) - (spec: 1 with* with*) (spec: 1 match* match*) - (spec: 1 with with) - (spec: 1 match match) + (spec: 1 defrules-for-match defrules-for-match) + (spec: 1 with* with*) (spec: 1 ? ?) (spec: 1 defsyntax-for-match defsyntax-for-match) - (spec: 1 defrules-for-match defrules-for-match) - (spec: 1 :hvector :hvector) - (spec: 1 :symbol :symbol) - (spec: 1 :false :false) - (spec: 1 :class :class) - (spec: 1 :flonum :flonum) - (spec: 1 :ratnum :ratnum) - (spec: 1 :thread :thread) - (spec: 1 :object-port :object-port) - (spec: 1 :device-port :device-port) + (spec: 1 with with) + (spec: 1 match match) (spec: 1 :vector-port :vector-port) - (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :readenv :readenv) - (spec: 1 :vm :vm) - (spec: 1 :object :object) - (spec: 1 :readtable :readtable) - (spec: 1 :weak :weak) - (spec: 1 :special :special) - (spec: 1 :sequence :sequence) - (spec: 1 :vector :vector) - (spec: 1 :values :values) - (spec: 1 :thread-group :thread-group) - (spec: 1 :eof :eof) - (spec: 1 :condvar :condvar) - (spec: 1 :string :string) - (spec: 1 :void :void) - (spec: 1 :port :port) (spec: 1 :character-port :character-port) - (spec: 1 :byte-port :byte-port) - (spec: 1 :directory-port :directory-port) - (spec: 1 :atom :atom) - (spec: 1 :t :t) - (spec: 1 :true :true) - (spec: 1 :null :null) - (spec: 1 :u8vector :u8vector) - (spec: 1 :number :number) - (spec: 1 :s8vector :s8vector) - (spec: 1 :f64vector :f64vector) - (spec: 1 :continuation :continuation) - (spec: 1 :promise :promise) - (spec: 1 :writeenv :writeenv) - (spec: 1 :processor :processor) + (spec: 1 :string-port :string-port) (spec: 1 :file-info :file-info) (spec: 1 :socket-info :socket-info) - (spec: 1 :time :time) - (spec: 1 class class) - (spec: 1 :s16vector :s16vector) - (spec: 1 :bignum :bignum) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :keyword :keyword) - (spec: 1 :u16vector :u16vector) - (spec: 1 :u32vector :u32vector) + (spec: 1 :symbol :symbol) (spec: 1 :list :list) + (spec: 1 :string :string) + (spec: 1 :u16vector :u16vector) (spec: 1 :box :box) - (spec: 1 :f32vector :f32vector) - (spec: 1 :mutex :mutex) - (spec: 1 :s64vector :s64vector) - (spec: 1 :symbolic :symbolic) - (spec: 1 :immediate :immediate) + (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 :string-port :string-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 :cpxnum :cpxnum) - (spec: 1 :procedure :procedure) - (spec: 1 :integer :integer) + (spec: 1 :false :false) + (spec: 1 :thread-group :thread-group) + (spec: 1 :object :object) + (spec: 1 :atom :atom) (spec: 1 :char :char) - (spec: 1 :boolean :boolean) - (spec: 1 :u8vector-port :u8vector-port) + (spec: 1 :void :void) + (spec: 1 :vector :vector) + (spec: 1 :values :values) + (spec: 1 :s8vector :s8vector) + (spec: 1 :f32vector :f32vector) + (spec: 1 :vm :vm) + (spec: 1 :mutex :mutex) + (spec: 1 :continuation :continuation) (spec: 1 :pair :pair) - (spec: 1 :real :real) - (spec: 1 :foreign :foreign) + (spec: 1 :object-port :object-port) + (spec: 1 :boolean :boolean) (spec: 1 :frame :frame) - (spec: 1 :fixnum :fixnum) + (spec: 1 :device-port :device-port) + (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 :s32vector :s32vector) - (spec: 1 :u64vector :u64vector) - (spec: 1 @ @) - (spec: 1 @-set! @-set!) - (spec: 1 define-struct define-struct) - (spec: 1 define-class define-class) - (spec: 1 defstruct-type defstruct-type) - (spec: 1 defclass-type defclass-type) - (spec: 1 MOP-3 MOP-3) - (spec: 1 MOP-4 MOP-4) - (spec: 1 MOP-1 MOP-1) - (spec: 1 MOP-5 MOP-5) - (spec: 1 MOP-2 MOP-2) + (spec: 1 :fixnum :fixnum) (spec: 1 :hvector :hvector) - (spec: 1 :symbol :symbol) - (spec: 1 :false :false) - (spec: 1 :class :class) - (spec: 1 :flonum :flonum) - (spec: 1 :ratnum :ratnum) - (spec: 1 :thread :thread) - (spec: 1 :object-port :object-port) - (spec: 1 :device-port :device-port) - (spec: 1 :vector-port :vector-port) - (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :readenv :readenv) - (spec: 1 :vm :vm) - (spec: 1 :object :object) - (spec: 1 :readtable :readtable) (spec: 1 :weak :weak) - (spec: 1 :special :special) - (spec: 1 :sequence :sequence) - (spec: 1 :vector :vector) - (spec: 1 :values :values) - (spec: 1 :thread-group :thread-group) - (spec: 1 :eof :eof) - (spec: 1 :condvar :condvar) - (spec: 1 :string :string) - (spec: 1 :void :void) - (spec: 1 :port :port) - (spec: 1 :character-port :character-port) - (spec: 1 :byte-port :byte-port) - (spec: 1 :directory-port :directory-port) - (spec: 1 :atom :atom) (spec: 1 :t :t) - (spec: 1 :true :true) - (spec: 1 :null :null) - (spec: 1 :u8vector :u8vector) - (spec: 1 :number :number) - (spec: 1 :s8vector :s8vector) - (spec: 1 :f64vector :f64vector) - (spec: 1 :continuation :continuation) + (spec: 1 :s16vector :s16vector) + (spec: 1 :eof :eof) (spec: 1 :promise :promise) + (spec: 1 :time :time) + (spec: 1 :event-queue-port :event-queue-port) (spec: 1 :writeenv :writeenv) + (spec: 1 :bignum :bignum) + (spec: 1 :port :port) + (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 :real :real) + (spec: 1 :directory-port :directory-port) + (spec: 1 :number :number) + (spec: 1 :readtable :readtable) + (spec: 1 @ @) + (spec: 1 @-set! @-set!) + (spec: 1 define-struct define-struct) + (spec: 1 define-class define-class) + (spec: 1 defstruct-type defstruct-type) + (spec: 1 defclass-type defclass-type) + (spec: 1 MOP-1 MOP-1) + (spec: 1 MOP-4 MOP-4) + (spec: 1 MOP-5 MOP-5) + (spec: 1 MOP-2 MOP-2) + (spec: 1 MOP-3 MOP-3) + (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 :time :time) - (spec: 1 class class) - (spec: 1 :s16vector :s16vector) - (spec: 1 :bignum :bignum) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :keyword :keyword) - (spec: 1 :u16vector :u16vector) - (spec: 1 :u32vector :u32vector) + (spec: 1 :symbol :symbol) (spec: 1 :list :list) + (spec: 1 :string :string) + (spec: 1 :u16vector :u16vector) (spec: 1 :box :box) - (spec: 1 :f32vector :f32vector) - (spec: 1 :mutex :mutex) - (spec: 1 :s64vector :s64vector) - (spec: 1 :symbolic :symbolic) - (spec: 1 :immediate :immediate) + (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 :string-port :string-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 :cpxnum :cpxnum) - (spec: 1 :procedure :procedure) - (spec: 1 :integer :integer) + (spec: 1 :false :false) + (spec: 1 :thread-group :thread-group) + (spec: 1 :object :object) + (spec: 1 :atom :atom) (spec: 1 :char :char) - (spec: 1 :boolean :boolean) - (spec: 1 :u8vector-port :u8vector-port) + (spec: 1 :void :void) + (spec: 1 :vector :vector) + (spec: 1 :values :values) + (spec: 1 :s8vector :s8vector) + (spec: 1 :f32vector :f32vector) + (spec: 1 :vm :vm) + (spec: 1 :mutex :mutex) + (spec: 1 :continuation :continuation) (spec: 1 :pair :pair) - (spec: 1 :real :real) - (spec: 1 :foreign :foreign) + (spec: 1 :object-port :object-port) + (spec: 1 :boolean :boolean) (spec: 1 :frame :frame) - (spec: 1 :fixnum :fixnum) + (spec: 1 :device-port :device-port) + (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 :s32vector :s32vector) + (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 :promise :promise) + (spec: 1 :time :time) + (spec: 1 :event-queue-port :event-queue-port) + (spec: 1 :writeenv :writeenv) + (spec: 1 :bignum :bignum) + (spec: 1 :port :port) + (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 :real :real) + (spec: 1 :directory-port :directory-port) + (spec: 1 :number :number) + (spec: 1 :readtable :readtable) (spec: 1 @ @) (spec: 1 @-set! @-set!) (spec: 1 define-struct define-struct) @@ -4045,2360 +4053,2358 @@ namespace: gerbil/core (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-unchecked-mutators - !class-type-unchecked-mutators) - (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) - (spec: 1 !class-type-id !class-type-id) + !class-type-ordered-slots-set! + !class-type-ordered-slots-set!) (spec: 1 - !class-type-slot-defaults-set! - !class-type-slot-defaults-set!) - (spec: 1 &!class-type-accessors &!class-type-accessors) - (spec: 1 &!class-type-descriptor-set! &!class-type-descriptor-set!) - (spec: 1 class-type-info? class-type-info?) - (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) - (spec: 1 &!class-type-system? &!class-type-system?) + !class-type-unchecked-accessors-set! + !class-type-unchecked-accessors-set!) (spec: 1 - !class-type-slot-contracts-set! - !class-type-slot-contracts-set!) - (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) - (spec: 1 &!class-type-id-set! &!class-type-id-set!) - (spec: 1 !class-type-name !class-type-name) - (spec: 1 !class-type-final? !class-type-final?) + &!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) (spec: 1 - &!class-type-unchecked-mutators - &!class-type-unchecked-mutators) + !class-type-constructor-method-set! + !class-type-constructor-method-set!) (spec: 1 - !class-type-constructor-method - !class-type-constructor-method) + 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!) + (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-precedence-list !class-type-precedence-list) + (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-mutators !class-type-mutators) - (spec: 1 !class-type-final?-set! !class-type-final?-set!) - (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) - (spec: 1 !class-type-super-set! !class-type-super-set!) (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-unchecked-mutators-set! - !class-type-unchecked-mutators-set!) - (spec: 1 &!class-type-predicate &!class-type-predicate) - (spec: 1 !class-type-predicate !class-type-predicate) - (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) - (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) - (spec: 1 !class-type-slot-types-set! !class-type-slot-types-set!) - (spec: 1 !class-type-metaclass-set! !class-type-metaclass-set!) - (spec: 1 make-class-type-info make-class-type-info) - (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) - (spec: - 1 - &!class-type-constructor-method-set! - &!class-type-constructor-method-set!) - (spec: 1 &!class-type-id &!class-type-id) + !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-constructor-method - &!class-type-constructor-method) - (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) - (spec: 1 &!class-type-accessors-set! &!class-type-accessors-set!) - (spec: 1 !class-type-slots !class-type-slots) - (spec: 1 !class-type-struct? !class-type-struct?) - (spec: 1 !class-type-id-set! !class-type-id-set!) + !class-type-unchecked-mutators + !class-type-unchecked-mutators) (spec: 1 - !class-type-unchecked-accessors-set! - !class-type-unchecked-accessors-set!) - (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) + &!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) (spec: 1 &!class-type-unchecked-accessors-set! &!class-type-unchecked-accessors-set!) - (spec: 1 &!class-type-slot-types-set! &!class-type-slot-types-set!) + (spec: 1 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!) - (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-slots-set! &!class-type-slots-set!) - (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) - (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) + (spec: 1 &!class-type-id &!class-type-id) + (spec: 1 !class-type-id !class-type-id) (spec: 1 - !class-type-precedence-list-set! - !class-type-precedence-list-set!) - (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) + &!class-type-unchecked-accessors + &!class-type-unchecked-accessors) (spec: 1 &!class-type-metaclass &!class-type-metaclass) - (spec: 1 &!class-type-mutators &!class-type-mutators) - (spec: 1 &!class-type-slot-defaults &!class-type-slot-defaults) (spec: 1 - &!class-type-unchecked-mutators-set! - &!class-type-unchecked-mutators-set!) + !class-type-slot-contracts-set! + !class-type-slot-contracts-set!) + (spec: 1 !class-type-precedence-list !class-type-precedence-list) (spec: 1 - &!class-type-slot-defaults-set! - &!class-type-slot-defaults-set!) + !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-precedence-list-set! - &!class-type-precedence-list-set!) + !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) (spec: 1 - &!class-type-unchecked-accessors - &!class-type-unchecked-accessors) - (spec: 1 &!class-type-slots &!class-type-slots) + !class-type-unchecked-mutators-set! + !class-type-unchecked-mutators-set!) + (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-unchecked-accessors - !class-type-unchecked-accessors) - (spec: 1 !class-type-ordered-slots !class-type-ordered-slots) - (spec: 1 !class-type-accessors !class-type-accessors) + &!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-ordered-slots-set! - &!class-type-ordered-slots-set!) - (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) - (spec: 1 &!class-type-super-set! &!class-type-super-set!) - (spec: 1 syntax-local-class-type-info? syntax-local-class-type-info?) - (spec: 1 &!class-type-slot-types &!class-type-slot-types) - (spec: 1 !class-type-super !class-type-super) - (spec: 1 !class-type-descriptor !class-type-descriptor) - (spec: 1 !class-type-constructor !class-type-constructor) - (spec: 1 !class-type-slot-contracts !class-type-slot-contracts) - (spec: 1 !class-type-name-set! !class-type-name-set!) - (spec: 1 &!class-type-super &!class-type-super) - (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) - (spec: 1 &!class-type-slot-contracts &!class-type-slot-contracts) + &!class-type-slot-defaults-set! + &!class-type-slot-defaults-set!) + (spec: 1 &!class-type-predicate &!class-type-predicate) (spec: 1 - class-type-info::apply-macro-expander - class-type-info::apply-macro-expander) - (spec: 1 &!class-type-struct? &!class-type-struct?) + &!class-type-constructor-method-set! + &!class-type-constructor-method-set!) (spec: 1 - !class-type-ordered-slots-set! - !class-type-ordered-slots-set!) - (spec: 1 &!class-type-constructor &!class-type-constructor) + &!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!) + (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-constructor-method-set! - !class-type-constructor-method-set!) - (spec: 1 !class-type-system? !class-type-system?) + &!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!) (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 definline definline) (spec: 1 defconst defconst) + (spec: 1 definline definline) + (spec: 1 ~case-dispatch* ~case-dispatch*) (spec: 1 defvalues defvalues) + (spec: 1 delay delay) (spec: 1 case case) - (spec: 1 do do) - (spec: 1 do-while do-while) - (spec: 1 and-let* and-let*) - (spec: 1 begin0 begin0) - (spec: 1 alet* alet*) + (spec: 1 ~case-dispatch ~case-dispatch) + (spec: 1 quasiquote quasiquote) (spec: 1 cut cut) - (spec: 1 <...> <...>) - (spec: 1 ~case-test ~case-test) - (spec: 1 ~case ~case) - (spec: 1 ~case-dispatch* ~case-dispatch*) + (spec: 1 begin0 begin0) (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) - (spec: 1 rec rec) (spec: 1 alet alet) - (spec: 1 quasiquote quasiquote) (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 ~case-dispatch ~case-dispatch) - (spec: 1 delay delay) + (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 unless unless) + (spec: 1 let*-values let*-values) + (spec: 1 ~let ~let) (spec: 1 syntax-error syntax-error) (spec: 1 defalias defalias) - (spec: 1 letrec* letrec*) - (spec: 1 ~let ~let) - (spec: 1 letrec letrec) (spec: 1 defrule defrule) - (spec: 1 cond cond) - (spec: 1 let*-values let*-values) - (spec: 1 defrules defrules) - (spec: 1 let* let*) - (spec: 1 define-rules define-rules) - (spec: 1 define define) + (spec: 1 or or) (spec: 1 when when) - (spec: 1 and and) + (spec: 1 define define) (spec: 1 defsyntax% defsyntax%) - (spec: 1 or or) - (spec: 1 random-bytes random-bytes) + (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 random-source-make-bytes random-source-make-bytes) (spec: 1 cdr-set! cdr-set!) - (spec: 1 u64vector-ref-set! u64vector-ref-set!) - (spec: 1 u16vector-ref-set! u16vector-ref-set!) - (spec: 1 f32vector-ref-set! f32vector-ref-set!) - (spec: 1 s32vector-ref-set! s32vector-ref-set!) - (spec: 1 u32vector-ref-set! u32vector-ref-set!) - (spec: 1 car-set! car-set!) - (spec: 1 call/parameters call/parameters) - (spec: 1 box-set! box-set!) (spec: 1 s64vector-ref-set! s64vector-ref-set!) - (spec: 1 u8vector-ref-set! u8vector-ref-set!) - (spec: 1 vector-ref-set! vector-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 u32vector-ref-set! u32vector-ref-set!) (spec: 1 call/values call/values) - (spec: 1 s16vector-ref-set! s16vector-ref-set!) (spec: 1 f64vector-ref-set! f64vector-ref-set!) - (spec: 1 error error) - (spec: 1 readenv::t readenv::t) - (spec: 1 exception? exception?) - (spec: 1 boolean::t boolean::t) - (spec: 1 keyword->symbol keyword->symbol) - (spec: 1 interface-instance-object interface-instance-object) - (spec: 1 hash-table? hash-table?) - (spec: 1 directory-port::t directory-port::t) - (spec: 1 special::t special::t) - (spec: 1 &class-type-id &class-type-id) - (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) - (spec: - 1 - make-class-slot-unchecked-mutator - make-class-slot-unchecked-mutator) - (spec: 1 dssl-rest-object? dssl-rest-object?) - (spec: 1 seal-class! seal-class!) - (spec: 1 symbolic-table-ref symbolic-table-ref) - (spec: 1 hash-fold hash-fold) - (spec: 1 memf memf) - (spec: 1 struct-instance-init! struct-instance-init!) - (spec: - 1 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 1 tcp-server-port::t tcp-server-port::t) - (spec: - 1 - unhandled-actor-exception-hook-set! - unhandled-actor-exception-hook-set!) - (spec: 1 immediate-hash immediate-hash) - (spec: 1 false false) - (spec: 1 void::t void::t) - (spec: 1 class-type-slot-table class-type-slot-table) - (spec: 1 pgetq pgetq) - (spec: 1 list->hash-table-string list->hash-table-string) - (spec: 1 replx replx) - (spec: 1 make-object make-object) - (spec: 1 direct-method-ref direct-method-ref) - (spec: 1 class-type-flags class-type-flags) - (spec: 1 satisfies? satisfies?) - (spec: 1 symblic-hash symblic-hash) - (spec: 1 string-hash string-hash) - (spec: 1 dssl-optional-object? dssl-optional-object?) - (spec: 1 agetv agetv) - (spec: 1 symbolic-table-delete! symbolic-table-delete!) - (spec: - 1 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 1 constructor-init! constructor-init!) - (spec: 1 struct-copy struct-copy) - (spec: 1 as-string as-string) - (spec: 1 interface-descriptor? interface-descriptor?) - (spec: 1 unchecked-slot-set! unchecked-slot-set!) - (spec: 1 gerbil-version-string gerbil-version-string) - (spec: 1 vm? vm?) - (spec: 1 class-type-slot-list class-type-slot-list) - (spec: 1 &class-type-super &class-type-super) - (spec: 1 &class-type-flags &class-type-flags) - (spec: 1 raw-device-port? raw-device-port?) - (spec: 1 direct-instance? direct-instance?) - (spec: 1 list->hash-table-immediate list->hash-table-immediate) - (spec: 1 make-class-slot-mutator make-class-slot-mutator) - (spec: 1 s8vector::t s8vector::t) - (spec: 1 string-empty? string-empty?) - (spec: 1 dssl-object? dssl-object?) - (spec: 1 filter-map filter-map) - (spec: 1 current-thread-group current-thread-group) - (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 1 struct->list struct->list) - (spec: 1 vm::t vm::t) - (spec: 1 bytes->string bytes->string) - (spec: 1 max-char-code max-char-code) - (spec: 1 unchecked-slot-ref unchecked-slot-ref) - (spec: 1 fxshift fxshift) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 gerbil-system-version-string gerbil-system-version-string) - (spec: 1 checked-bound-method-ref checked-bound-method-ref) - (spec: 1 class-type-sealed? class-type-sealed?) - (spec: 1 hash-remove! hash-remove!) - (spec: 1 raw-device-port::t raw-device-port::t) - (spec: 1 hash-find hash-find) - (spec: 1 dssl-key-object? dssl-key-object?) - (spec: 1 device-port? device-port?) - (spec: 1 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 1 make-class-slot-accessor make-class-slot-accessor) - (spec: 1 s64vector::t s64vector::t) - (spec: 1 list->hash-table-eqv list->hash-table-eqv) - (spec: 1 table::t table::t) - (spec: 1 spawn/name spawn/name) - (spec: 1 file-newer? file-newer?) - (spec: 1 absent-value absent-value) - (spec: 1 AST? AST?) - (spec: 1 eqv-hash eqv-hash) - (spec: 1 foldr foldr) - (spec: 1 string::t string::t) - (spec: 1 with-exception-catcher with-exception-catcher) - (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 1 hash-copy hash-copy) - (spec: 1 fx>=0? fx>=0?) - (spec: 1 time::t time::t) - (spec: 1 gerbil-system-manifest gerbil-system-manifest) - (spec: 1 &class-type-slot-vector &class-type-slot-vector) - (spec: 1 class-type-seal! class-type-seal!) - (spec: 1 pget pget) - (spec: 1 with-unwind-protect with-unwind-protect) - (spec: 1 class-of class-of) - (spec: 1 ratnum::t ratnum::t) - (spec: 1 is-hash-table? is-hash-table?) - (spec: 1 make-hash-table-string make-hash-table-string) - (spec: 1 &class-type-fields &class-type-fields) - (spec: 1 1- 1-) - (spec: 1 make-class-predicate make-class-predicate) - (spec: 1 s32vector::t s32vector::t) - (spec: 1 device-port::t device-port::t) - (spec: 1 symbol::t symbol::t) - (spec: 1 agetq agetq) - (spec: 1 remq remq) - (spec: 1 absent-obj absent-obj) - (spec: 1 slot-set! slot-set!) - (spec: 1 next-method next-method) - (spec: 1 t::t t::t) - (spec: 1 file-info::t file-info::t) - (spec: 1 byte-port::t byte-port::t) - (spec: 1 thread::t thread::t) - (spec: 1 character-port? character-port?) - (spec: 1 fx>0? fx>0?) - (spec: 1 gerbil-system gerbil-system) - (spec: 1 read-u8vector read-u8vector) - (spec: 1 vector::t vector::t) - (spec: 1 hvector? hvector?) - (spec: 1 class-instance? class-instance?) - (spec: 1 interface-descriptor-type interface-descriptor-type) - (spec: 1 remove1 remove1) - (spec: 1 list->hash-table-eq list->hash-table-eq) - (spec: 1 make-hash-table-immediate make-hash-table-immediate) - (spec: 1 plist->hash-table-string plist->hash-table-string) - (spec: 1 hash-clear! hash-clear!) - (spec: 1 1+ 1+) + (spec: 1 random-bytes random-bytes) + (spec: 1 f32vector-ref-set! f32vector-ref-set!) + (spec: 1 u16vector-ref-set! u16vector-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 s16vector::t s16vector::t) (spec: 1 condvar::t condvar::t) - (spec: 1 spawn/group spawn/group) - (spec: 1 with-lock with-lock) - (spec: 1 new-instance new-instance) - (spec: 1 hash->plist hash->plist) - (spec: 1 plist->hash-table-immediate plist->hash-table-immediate) - (spec: 1 make-syntax-error make-syntax-error) - (spec: 1 object? object?) - (spec: 1 fx=0? fx=0?) - (spec: 1 cons* cons*) - (spec: 1 class-type-properties class-type-properties) - (spec: 1 &class-type-slot-table &class-type-slot-table) - (spec: 1 bind-specializer! bind-specializer!) - (spec: 1 class-instance-init! class-instance-init!) - (spec: 1 pair::t pair::t) - (spec: 1 hvector::t hvector::t) - (spec: 1 character-port::t character-port::t) - (spec: 1 vector-port? vector-port?) + (spec: 1 AST-e AST-e) (spec: 1 class-type-final? class-type-final?) - (spec: 1 &class-type-constructor &class-type-constructor) + (spec: 1 class-instance-init! class-instance-init!) (spec: 1 raise-unbound-key-error raise-unbound-key-error) - (spec: 1 make-hash-table-eqv make-hash-table-eqv) - (spec: 1 list->hash-table list->hash-table) - (spec: 1 hash-ref hash-ref) - (spec: 1 AST-source AST-source) - (spec: 1 hash->list hash->list) - (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 1 unbound-key-error? unbound-key-error?) - (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 1 writenv? writenv?) + (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 fx<=0? fx<=0?) + (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 vector-port::t vector-port::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 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 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 + 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) + (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 interface-descriptor-methods interface-descriptor-methods) - (spec: 1 try-cast try-cast) - (spec: 1 class->list class->list) - (spec: 1 class::t class::t) - (spec: 1 remf remf) - (spec: 1 make-hash-table-eq make-hash-table-eq) - (spec: 1 hash-put! hash-put!) + (spec: 1 satisfies? satisfies?) + (spec: 1 new-instance new-instance) (spec: 1 foldl foldl) (spec: 1 aget aget) - (spec: 1 create-directory* create-directory*) - (spec: 1 slot-ref slot-ref) + (spec: 1 slot-set! slot-set!) (spec: 1 false::t false::t) - (spec: 1 event-queue-port? event-queue-port?) - (spec: 1 immediate? immediate?) - (spec: 1 build-manifest/layer build-manifest/layer) - (spec: 1 udp-port? udp-port?) - (spec: 1 plist->hash-table-eq plist->hash-table-eq) - (spec: 1 object-type object-type) - (spec: 1 fx<0? fx<0?) - (spec: 1 processor::t processor::t) - (spec: 1 class-type-precedence-list class-type-precedence-list) - (spec: 1 make-promise make-promise) - (spec: 1 &class-type-properties &class-type-properties) - (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 cast cast) + (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 class-type-fields class-type-fields) - (spec: 1 plist->hash-table plist->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 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 thread-local-set! thread-local-set!) - (spec: 1 f64vector::t f64vector::t) - (spec: 1 symbol->keyword symbol->keyword) - (spec: 1 cpxnum::t cpxnum::t) - (spec: 1 address-info::t address-info::t) - (spec: 1 string-split string-split) - (spec: 1 flonum::t flonum::t) + (spec: 1 spawn/group spawn/group) + (spec: 1 t::t t::t) (spec: 1 mutex::t mutex::t) - (spec: 1 build-manifest/head build-manifest/head) - (spec: 1 immediate::t immediate::t) - (spec: 1 udp-port::t udp-port::t) - (spec: 1 fx1- fx1-) - (spec: 1 event-queue-port::t event-queue-port::t) - (spec: 1 gerbil-path gerbil-path) - (spec: 1 values::t values::t) - (spec: 1 procedure::t procedure::t) - (spec: 1 object-port? object-port?) - (spec: 1 bind-method! bind-method!) - (spec: 1 interned-symbol? interned-symbol?) - (spec: 1 byte-port? byte-port?) - (spec: 1 class-type=? class-type=?) (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 class-type-field-count class-type-field-count) - (spec: 1 HashTableLock::interface HashTableLock::interface) + (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 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-dynamic-lock with-dynamic-lock) - (spec: 1 make-keyword make-keyword) - (spec: 1 substruct? substruct?) - (spec: 1 f32vector::t f32vector::t) - (spec: 1 remv remv) - (spec: 1 string-port? string-port?) - (spec: 1 make-symbolic-table make-symbolic-table) - (spec: 1 fixnum::t fixnum::t) - (spec: 1 object-port::t object-port::t) - (spec: 1 procedure-hash procedure-hash) - (spec: 1 eof-object eof-object) - (spec: 1 fx1+ fx1+) - (spec: 1 atom::t atom::t) - (spec: 1 values-ref values-ref) - (spec: 1 class-type-name class-type-name) - (spec: 1 &class-type-precedence-list &class-type-precedence-list) - (spec: 1 true? true?) - (spec: 1 checked-method-ref checked-method-ref) - (spec: 1 integer::t integer::t) - (spec: 1 class-type-system? class-type-system?) - (spec: 1 u8vector::t u8vector::t) - (spec: 1 return::t return::t) - (spec: 1 writeenv::t writeenv::t) - (spec: 1 with-catch with-catch) - (spec: 1 error? error?) - (spec: 1 make-interface-descriptor make-interface-descriptor) - (spec: 1 string-port::t string-port::t) - (spec: 1 HashTable::t HashTable::t) - (spec: 1 hash-map hash-map) - (spec: 1 spawn spawn) - (spec: 1 eq-hash eq-hash) - (spec: 1 with-exception-stack-trace with-exception-stack-trace) - (spec: 1 hash-length hash-length) - (spec: 1 object-fill! object-fill!) - (spec: 1 u8vector-port? u8vector-port?) - (spec: 1 error-trace error-trace) - (spec: 1 actor-thread? actor-thread?) - (spec: 1 fx/ fx/) - (spec: 1 thread-local-ref thread-local-ref) - (spec: 1 values-count values-count) - (spec: 1 interned-keyword? interned-keyword?) - (spec: 1 call-with-parameters call-with-parameters) - (spec: 1 u64vector::t u64vector::t) - (spec: 1 HashTable::interface HashTable::interface) - (spec: 1 syntax-error? syntax-error?) + (spec: 1 make-syntax-error make-syntax-error) + (spec: 1 AST? AST?) (spec: 1 make-AST make-AST) - (spec: 1 AST-e AST-e) - (spec: 1 make-instance make-instance) - (spec: 1 read-syntax read-syntax) - (spec: 1 class-type-constructor class-type-constructor) - (spec: 1 read-syntax-from-file read-syntax-from-file) - (spec: 1 make-class-type make-class-type) - (spec: 1 display-build-manifest display-build-manifest) - (spec: 1 string-join string-join) - (spec: 1 sequence? sequence?) - (spec: 1 add-load-path! add-load-path!) - (spec: 1 source-location? source-location?) - (spec: 1 string-rindex string-rindex) - (spec: 1 eof::t eof::t) - (spec: 1 hash-keys hash-keys) - (spec: 1 build-manifest-string build-manifest-string) - (spec: 1 u8vector-port::t u8vector-port::t) - (spec: 1 error-message error-message) - (spec: 1 assgetv assgetv) - (spec: 1 hash-values hash-values) - (spec: 1 values->list values->list) - (spec: 1 call-next-method call-next-method) - (spec: 1 class-type-methods class-type-methods) - (spec: 1 build-manifest build-manifest) - (spec: 1 immediate-instance-of? immediate-instance-of?) - (spec: 1 real::t real::t) - (spec: 1 u32vector::t u32vector::t) - (spec: 1 class-type-super class-type-super) - (spec: 1 thread-local-get thread-local-get) - (spec: 1 set-load-path! set-load-path!) - (spec: 1 &class-type-name &class-type-name) + (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 sequence::t sequence::t) - (spec: 1 display-as-string display-as-string) (spec: 1 gerbil-load-expander! gerbil-load-expander!) - (spec: 1 symbolic? symbolic?) - (spec: 1 HashTableLock::t HashTableLock::t) - (spec: 1 source-location-path? source-location-path?) - (spec: 1 find-method find-method) - (spec: 1 andmap andmap) - (spec: 1 build-manifest-set! build-manifest-set!) - (spec: 1 number::t number::t) - (spec: 1 substring->bytes substring->bytes) - (spec: 1 method-ref method-ref) - (spec: 1 assgetq assgetq) - (spec: 1 gerbil-home gerbil-home) - (spec: 1 call-method call-method) - (spec: 1 class-type-struct? class-type-struct?) - (spec: 1 true::t true::t) - (spec: 1 u16vector::t u16vector::t) - (spec: 1 weak? weak?) - (spec: 1 keyword::t keyword::t) - (spec: 1 raise raise) - (spec: 1 error-irritants error-irritants) + (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 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 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 interface-instance? interface-instance?) - (spec: 1 hash-key? hash-key?) - (spec: 1 thread-local-delete! thread-local-delete!) - (spec: 1 load-path load-path) - (spec: 1 symbolic::t symbolic::t) - (spec: 1 source-location-path source-location-path) - (spec: 1 make-symbol make-symbol) + (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 filter-map filter-map) + (spec: 1 hash-clear! hash-clear!) + (spec: 1 continuation::t continuation::t) + (spec: 1 dump-stack-trace! dump-stack-trace!) + (spec: 1 special? special?) + (spec: 1 directory-port? directory-port?) + (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 interface-descriptor-type interface-descriptor-type) + (spec: 1 void::t void::t) + (spec: 1 absent-value absent-value) + (spec: 1 eqv-hash eqv-hash) + (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 hash-get hash-get) - (spec: 1 true true) - (spec: 1 ormap ormap) - (spec: 1 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 1 frame::t frame::t) - (spec: 1 weak::t weak::t) - (spec: 1 box::t box::t) - (spec: 1 readtable::t readtable::t) - (spec: 1 keyword-rest keyword-rest) - (spec: 1 interface-instance::t interface-instance::t) - (spec: 1 load-module load-module) - (spec: 1 string-index string-index) - (spec: 1 socket-info::t socket-info::t) - (spec: 1 hash-for-each hash-for-each) - (spec: 1 foreign::t foreign::t) - (spec: 1 hash-update! hash-update!) - (spec: 1 gerbil-greeting gerbil-greeting) - (spec: 1 class-type-slot-vector class-type-slot-vector) - (spec: 1 bound-method-ref bound-method-ref) - (spec: 1 readenv? readenv?) - (spec: 1 write-u8vector write-u8vector) - (spec: 1 keyword-dispatch keyword-dispatch) - (spec: 1 directory-port? directory-port?) - (spec: 1 special? special?) + (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 continuation::t continuation::t) - (spec: 1 dump-stack-trace! dump-stack-trace!) - (spec: 1 symbolic-table-set! symbolic-table-set!) - (spec: 1 display-exception display-exception) - (spec: 1 struct-instance? struct-instance?) - (spec: 1 dump-stack-trace? dump-stack-trace?) - (spec: 1 tcp-server-port? tcp-server-port?) - (spec: 1 c4-linearize c4-linearize) - (spec: 1 port::t port::t) - (spec: 1 subclass? subclass?) + (spec: 1 raise raise) + (spec: 1 keyword-dispatch keyword-dispatch) + (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 void? void?) - (spec: 1 input-port-line input-port-line) - (spec: 1 filter! filter!) - (spec: 1 make-s8vector make-s8vector) - (spec: 1 process-times process-times) - (spec: 1 r7rs-raise r7rs-raise) - (spec: 1 subu64vector-move! subu64vector-move!) - (spec: 1 create-directory create-directory) - (spec: 1 bitwise-orc2 bitwise-orc2) - (spec: 1 u64vector-set u64vector-set) - (spec: - 1 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 1 read-file-u8vector read-file-u8vector) - (spec: - 1 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) - (spec: 1 fl/ fl/) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 drop-right drop-right) - (spec: 1 flsinh flsinh) - (spec: 1 random-source-state-set! random-source-state-set!) - (spec: 1 current-thread current-thread) - (spec: 1 break break) - (spec: 1 file-info? file-info?) - (spec: 1 initial-current-directory initial-current-directory) - (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 1 table-merge! table-merge!) - (spec: 1 flcosh flcosh) - (spec: 1 call-with-input-u8vector call-with-input-u8vector) - (spec: 1 uncaught-exception-reason uncaught-exception-reason) - (spec: 1 thread-group-resume! thread-group-resume!) - (spec: 1 open-vector-pipe open-vector-pipe) - (spec: 1 foreign-address foreign-address) - (spec: 1 s32vector-concatenate s32vector-concatenate) - (spec: 1 list-tabulate list-tabulate) - (spec: 1 fxwrap* fxwrap*) - (spec: 1 path-strip-extension path-strip-extension) - (spec: - 1 - display-continuation-environment - display-continuation-environment) - (spec: 1 flmin flmin) - (spec: 1 join-timeout-exception? join-timeout-exception?) - (spec: 1 thread-quantum-set! thread-quantum-set!) + (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 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 1 fx= fx=) - (spec: 1 char-set-adjoin! char-set-adjoin!) - (spec: 1 s64vector-append s64vector-append) - (spec: 1 u16vector? u16vector?) - (spec: 1 string=?-hash string=?-hash) - (spec: 1 protocol-info? protocol-info?) - (spec: 1 condition-variable-signal! condition-variable-signal!) + make-class-slot-unchecked-accessor + make-class-slot-unchecked-accessor) + (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 class-type-system? class-type-system?) + (spec: 1 return::t return::t) + (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 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 1 s16vector-copy! s16vector-copy!) - (spec: 1 err-code->string err-code->string) - (spec: 1 char-set-filter char-set-filter) - (spec: 1 fxior fxior) - (spec: 1 list->s8vector list->s8vector) - (spec: 1 s8vector->list s8vector->list) - (spec: 1 make-f64vector make-f64vector) - (spec: 1 pretty-print pretty-print) - (spec: 1 tty-history-set! tty-history-set!) - (spec: 1 vector-cas! vector-cas!) - (spec: 1 u32vector-swap! u32vector-swap!) - (spec: 1 seventh seventh) - (spec: 1 subs32vector-move! subs32vector-move!) - (spec: 1 bits->vector bits->vector) - (spec: 1 with-input-from-port with-input-from-port) - (spec: 1 udp-destination-set! udp-destination-set!) - (spec: 1 read-file-string-list read-file-string-list) - (spec: 1 input-port-column input-port-column) - (spec: 1 deadlock-exception? deadlock-exception?) - (spec: 1 filter filter) - (spec: 1 make-s64vector make-s64vector) - (spec: 1 asinh asinh) - (spec: 1 extract-bit-field extract-bit-field) - (spec: 1 process-status process-status) - (spec: 1 subu64vector-fill! subu64vector-fill!) - (spec: 1 random-source-state-ref random-source-state-ref) - (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 1 bitwise-orc1 bitwise-orc1) - (spec: 1 file-exists-exception? file-exists-exception?) - (spec: 1 u64vector-ref u64vector-ref) + 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 frame::t frame::t) + (spec: 1 substring->bytes substring->bytes) + (spec: 1 memf memf) + (spec: 1 weak::t weak::t) + (spec: 1 find-method find-method) + (spec: 1 object-fill! object-fill!) + (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 actor-thread? actor-thread?) + (spec: 1 make-interface-descriptor make-interface-descriptor) + (spec: 1 class-type-constructor class-type-constructor) + (spec: 1 source-location? source-location?) + (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 void? void?) + (spec: 1 build-manifest-string build-manifest-string) + (spec: 1 call-next-method call-next-method) (spec: 1 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) - (spec: 1 fl- fl-) - (spec: 1 sixth sixth) - (spec: 1 drop drop) - (spec: 1 flsin flsin) - (spec: 1 open-input-vector open-input-vector) - (spec: 1 u8vector-fill! u8vector-fill!) - (spec: 1 file-info-type file-info-type) - (spec: 1 table-merge table-merge) - (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 1 call-with-input-string call-with-input-string) - (spec: 1 flcos flcos) - (spec: 1 thread-group-parent thread-group-parent) - (spec: 1 open-vector open-vector) - (spec: 1 s32vector-append s32vector-append) - (spec: 1 list-sort! list-sort!) - (spec: 1 fxsquare fxsquare) - (spec: 1 char-set-xor! char-set-xor!) - (spec: 1 compile-file-to-target compile-file-to-target) - (spec: 1 path-strip-directory path-strip-directory) - (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) + 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 - join-timeout-exception-procedure - join-timeout-exception-procedure) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) + (spec: 1 s32vector-ref s32vector-ref) + (spec: 1 flinteger? flinteger?) (spec: 1 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) - (spec: 1 flmax flmax) - (spec: 1 object->u8vector object->u8vector) - (spec: 1 thread-quantum thread-quantum) - (spec: 1 output-port-line output-port-line) - (spec: 1 fx<= fx<=) - (spec: 1 char-set-adjoin char-set-adjoin) - (spec: 1 top top) - (spec: 1 s64vector->list s64vector->list) - (spec: 1 string-contains-ci string-contains-ci) - (spec: 1 address-infos address-infos) - (spec: 1 gc-report-set! gc-report-set!) - (spec: 1 u16vector-swap! u16vector-swap!) - (spec: 1 subs32vector-fill! subs32vector-fill!) - (spec: 1 f32vector? f32vector?) - (spec: 1 condition-variable-name condition-variable-name) - (spec: 1 protocol-info-number protocol-info-number) + 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 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 1 s16vector-copy s16vector-copy) - (spec: 1 list->s64vector list->s64vector) - (spec: 1 eqv?-hash eqv?-hash) - (spec: 1 char-set-every char-set-every) - (spec: 1 fxif fxif) - (spec: 1 s8vector s8vector) - (spec: 1 make-f32vector make-f32vector) - (spec: 1 started-thread-exception? started-thread-exception?) - (spec: 1 apropos apropos) - (spec: 1 string-prefix-ci? string-prefix-ci?) - (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) - (spec: 1 subu32vector-move! subu32vector-move!) - (spec: 1 f64vector? f64vector?) - (spec: 1 bits->list bits->list) - (spec: 1 u32vector-shrink! u32vector-shrink!) - (spec: 1 xcons xcons) - (spec: 1 read-file-string read-file-string) + 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 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 1 ninth ninth) - (spec: 1 unbound-global-exception? unbound-global-exception?) - (spec: 1 type-exception? type-exception?) - (spec: 1 make-s32vector make-s32vector) - (spec: 1 help-browser help-browser) - (spec: 1 bitwise-not bitwise-not) - (spec: 1 serial-number->object serial-number->object) - (spec: 1 subu64vector subu64vector) - (spec: 1 u8vector-copy! u8vector-copy!) - (spec: 1 write-substring write-substring) + 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 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 1 integer-sqrt integer-sqrt) - (spec: 1 fl+* fl+*) - (spec: 1 open-input-u8vector open-input-u8vector) - (spec: 1 dotted-list? dotted-list?) - (spec: 1 flscalbn flscalbn) - (spec: 1 current-readtable current-readtable) - (spec: 1 call-with-input-process call-with-input-process) - (spec: 1 file-info-size file-info-size) - (spec: 1 table-length table-length) - (spec: 1 readtable? readtable?) + 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 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 1 flceiling flceiling) - (spec: 1 thread-group-name thread-group-name) - (spec: 1 user-name user-name) - (spec: 1 eighth eighth) - (spec: 1 open-udp open-udp) - (spec: 1 thread? thread?) - (spec: 1 s64vector s64vector) - (spec: 1 list-sort list-sort) - (spec: 1 char-set-xor char-set-xor) - (spec: 1 fxremainder fxremainder) - (spec: 1 string->keyword string->keyword) - (spec: 1 thread-priority thread-priority) + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 1 read-subu8vector read-subu8vector) (spec: 1 - join-timeout-exception-arguments - join-timeout-exception-arguments) + default-user-interrupt-handler + default-user-interrupt-handler) (spec: 1 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 1 char-set-difference! char-set-difference!) - (spec: 1 fllog1p fllog1p) - (spec: 1 object->string object->string) - (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 1 output-port-column output-port-column) - (spec: 1 char-set->string char-set->string) - (spec: 1 fx< fx<) - (spec: 1 s16vector-concatenate s16vector-concatenate) - (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 1 permission-denied-exception? permission-denied-exception?) - (spec: 1 address-info? address-info?) - (spec: 1 string-contains string-contains) - (spec: 1 u16vector-shrink! u16vector-shrink!) - (spec: 1 setenv setenv) - (spec: 1 f32vector-swap! f32vector-swap!) - (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 1 protocol-info-name protocol-info-name) - (spec: 1 subs32vector subs32vector) - (spec: 1 s32vector->list s32vector->list) - (spec: 1 list->s32vector list->s32vector) - (spec: 1 fxfirst-set-bit fxfirst-set-bit) + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) (spec: 1 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 1 vector-any vector-any) - (spec: 1 tty-history tty-history) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 write-subu8vector write-subu8vector) - (spec: 1 u32vector-set! u32vector-set!) - (spec: 1 subu32vector-fill! subu32vector-fill!) - (spec: 1 f64vector-swap! f64vector-swap!) - (spec: 1 bits bits) - (spec: 1 fl+ fl+) + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) (spec: 1 - unbound-global-exception-variable - unbound-global-exception-variable) - (spec: 1 input-port-char-position input-port-char-position) - (spec: 1 dead-end dead-end) - (spec: 1 u16vector-set u16vector-set) - (spec: 1 make-s16vector make-s16vector) - (spec: 1 file-info-owner file-info-owner) - (spec: 1 bitwise-nor bitwise-nor) - (spec: 1 process-pid process-pid) - (spec: 1 symbol-hash symbol-hash) - (spec: 1 inactive-thread-exception? inactive-thread-exception?) + 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?) (spec: 1 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 1 random-source-randomize! random-source-randomize!) - (spec: 1 u8vector-copy u8vector-copy) - (spec: 1 table-for-each table-for-each) - (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) - (spec: 1 integer-nth-root integer-nth-root) - (spec: 1 force-output force-output) + 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) (spec: 1 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 1 thread-group->thread-vector thread-group->thread-vector) - (spec: 1 flround flround) - (spec: 1 box? box?) - (spec: 1 ucs-range->char-set! ucs-range->char-set!) - (spec: 1 current-processor current-processor) - (spec: 1 fllog fllog) - (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) + 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) + (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!) (spec: 1 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) - (spec: 1 flatanh flatanh) - (spec: 1 not-pair? not-pair?) + invalid-hash-number-exception-arguments + invalid-hash-number-exception-arguments) (spec: 1 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 1 thread-name thread-name) - (spec: 1 split-at! split-at!) - (spec: 1 open-u8vector-pipe open-u8vector-pipe) - (spec: 1 address-info-socket-type address-info-socket-type) - (spec: 1 char-set-union! char-set-union!) - (spec: 1 user-info? user-info?) - (spec: 1 thread-yield! thread-yield!) - (spec: 1 path-normalize path-normalize) - (spec: 1 fxquotient fxquotient) - (spec: 1 string->char-set! string->char-set!) - (spec: 1 rename-file rename-file) - (spec: 1 object->serial-number object->serial-number) - (spec: 1 char-set->list char-set->list) - (spec: 1 s16vector-append s16vector-append) - (spec: 1 output-port-char-position output-port-char-position) - (spec: 1 fx- fx-) - (spec: 1 thread-priority-boost thread-priority-boost) - (spec: 1 with-exception-catcher with-exception-catcher) - (spec: 1 string-concatenate string-concatenate) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) + (spec: 1 uninterned-keyword? uninterned-keyword?) + (spec: 1 open-string open-string) (spec: 1 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 1 bit-swap bit-swap) - (spec: 1 u16vector-set! u16vector-set!) - (spec: 1 protocol-info-aliases protocol-info-aliases) - (spec: 1 f32vector-shrink! f32vector-shrink!) - (spec: 1 char-set-difference char-set-difference) - (spec: 1 subs16vector-move! subs16vector-move!) - (spec: 1 thread-state-initialized? thread-state-initialized?) - (spec: 1 s32vector s32vector) - (spec: 1 equal?-hash equal?-hash) - (spec: 1 fxeven? fxeven?) - (spec: 1 list->s16vector list->s16vector) + 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?) (spec: 1 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 1 s8vector? s8vector?) - (spec: 1 make-condition-variable make-condition-variable) - (spec: 1 getenv getenv) - (spec: 1 append-reverse! append-reverse!) - (spec: 1 console-port console-port) - (spec: 1 pp pp) - (spec: 1 subu32vector subu32vector) - (spec: 1 f64vector-shrink! f64vector-shrink!) - (spec: 1 u32vector-set u32vector-set) - (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) - (spec: 1 datum-parsing-exception? datum-parsing-exception?) - (spec: 1 arithmetic-shift arithmetic-shift) + 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) + (spec: + 1 + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) (spec: 1 heap-overflow-exception? heap-overflow-exception?) - (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 1 u16vector-ref u16vector-ref) - (spec: 1 make-root-thread make-root-thread) + (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 bitwise-nand bitwise-nand) + (spec: 1 s8vector-copy s8vector-copy) + (spec: 1 get-output-u8vector get-output-u8vector) (spec: 1 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) (spec: 1 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 1 cpu-time cpu-time) - (spec: 1 fl* fl*) - (spec: 1 u8vector-concatenate u8vector-concatenate) - (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 1 integer-length integer-length) - (spec: 1 flpositive? flpositive?) + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: 1 any any) + (spec: 1 u16vector-copy! u16vector-copy!) (spec: 1 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 1 table-copy table-copy) - (spec: 1 thread-group->thread-list thread-group->thread-list) - (spec: 1 unbreak unbreak) - (spec: 1 keyword? keyword?) - (spec: 1 file-info-number-of-links file-info-number-of-links) - (spec: 1 box box) - (spec: 1 open-input-process open-input-process) - (spec: 1 ucs-range->char-set ucs-range->char-set) - (spec: 1 flatan flatan) - (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) + 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) (spec: 1 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) + 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) (spec: 1 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) - (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 1 split-at split-at) - (spec: 1 open-u8vector open-u8vector) - (spec: 1 char-set-union char-set-union) - (spec: 1 user-info-uid user-info-uid) - (spec: 1 string->char-set string->char-set) - (spec: 1 fxpositive? fxpositive?) - (spec: 1 car+cdr car+cdr) - (spec: 1 list-set list-set) - (spec: 1 path-extension path-extension) - (spec: 1 remq remq) - (spec: 1 test-bit-field? test-bit-field?) - (spec: 1 fxeqv fxeqv) - (spec: 1 char-set char-set) - (spec: 1 untrace untrace) - (spec: 1 s16vector->list s16vector->list) - (spec: 1 output-port-byte-position output-port-byte-position) - (spec: 1 fx+ fx+) - (spec: 1 address-info-socket-info address-info-socket-info) - (spec: 1 s64vector? s64vector?) + 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) (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?) - (spec: 1 u32vector-ref u32vector-ref) - (spec: 1 subs16vector-fill! subs16vector-fill!) - (spec: 1 f32vector-set! f32vector-set!) - (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 1 identity identity) - (spec: 1 protocol-info protocol-info) - (spec: 1 thread-thread-group thread-thread-group) - (spec: 1 list->f64vector list->f64vector) - (spec: 1 append-reverse append-reverse) - (spec: 1 help help) - (spec: 1 type-exception-type-id type-exception-type-id) - (spec: 1 s8vector-swap! s8vector-swap!) - (spec: 1 get-output-vector get-output-vector) - (spec: 1 bit-set? bit-set?) - (spec: 1 subu16vector-move! subu16vector-move!) - (spec: 1 f64vector-set! f64vector-set!) (spec: 1 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 1 file-type file-type) + terminated-thread-exception-procedure + terminated-thread-exception-procedure) (spec: 1 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) - (spec: 1 unbound-global-exception-code unbound-global-exception-code) - (spec: 1 input-port-byte-position input-port-byte-position) + 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) (spec: 1 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 1 seconds->time seconds->time) - (spec: 1 string-suffix? string-suffix?) - (spec: 1 bitwise-merge bitwise-merge) - (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) + 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?) (spec: 1 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 1 fixnum? fixnum?) - (spec: 1 module-whitelist-reset! module-whitelist-reset!) - (spec: 1 u8vector-append u8vector-append) - (spec: 1 table->list table->list) - (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) - (spec: 1 open-tcp-server open-tcp-server) - (spec: 1 unbox unbox) + 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) + (spec: + 1 + unbound-serial-number-exception? + unbound-serial-number-exception?) + (spec: 1 readtable-comment-handler readtable-comment-handler) (spec: 1 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 1 keyword-hash keyword-hash) - (spec: 1 file-info-mode file-info-mode) - (spec: 1 u8vector? u8vector?) - (spec: 1 flasinh flasinh) + 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!) (spec: 1 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) + 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) (spec: 1 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) - (spec: 1 thread-mailbox-next thread-mailbox-next) - (spec: 1 user-info-shell user-info-shell) - (spec: 1 fxorc2 fxorc2) - (spec: 1 char-set-unfold! char-set-unfold!) - (spec: 1 s32vector? s32vector?) - (spec: 1 path-expand path-expand) - (spec: 1 flinteger? flinteger?) - (spec: 1 void void) - (spec: 1 remove! remove!) - (spec: 1 eq?-hash eq?-hash) - (spec: 1 fx* fx*) + 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) (spec: 1 - unterminated-process-exception? - unterminated-process-exception?) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) + (spec: 1 take take) (spec: 1 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 1 s16vector s16vector) - (spec: 1 vector->bits vector->bits) - (spec: 1 address-info-protocol address-info-protocol) - (spec: 1 will-testator will-testator) - (spec: 1 s64vector-swap! s64vector-swap!) - (spec: 1 f64vector-set f64vector-set) - (spec: 1 subs16vector subs16vector) - (spec: 1 make-will make-will) - (spec: 1 f32vector-set f32vector-set) - (spec: 1 char-set-diff+intersection char-set-diff+intersection) - (spec: 1 fxbit-set? fxbit-set?) - (spec: 1 thread-terminate! thread-terminate!) - (spec: 1 list->f32vector list->f32vector) - (spec: 1 expression-parsing-exception? expression-parsing-exception?) - (spec: 1 append! append!) - (spec: 1 get-output-u8vector get-output-u8vector) - (spec: 1 type-exception-procedure type-exception-procedure) - (spec: 1 s8vector-shrink! s8vector-shrink!) - (spec: 1 make-bitwise-generator make-bitwise-generator) - (spec: 1 bit-field-set bit-field-set) - (spec: 1 cons* cons*) + 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) (spec: 1 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 1 u64vector-length u64vector-length) - (spec: 1 subu16vector-fill! subu16vector-fill!) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 1 fixnum? fixnum?) + (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) (spec: 1 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 1 file-size file-size) + 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) (spec: 1 expression-parsing-exception-parameters expression-parsing-exception-parameters) + (spec: 1 write-substring write-substring) + (spec: 1 u16vector-concatenate u16vector-concatenate) + (spec: + 1 + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) (spec: 1 second second) - (spec: 1 module-whitelist-add! module-whitelist-add!) - (spec: 1 file-device file-device) - (spec: 1 bitwise-ior bitwise-ior) (spec: 1 string-suffix-length-ci string-suffix-length-ci) - (spec: 1 u16vector-length u16vector-length) - (spec: 1 random-source-make-reals random-source-make-reals) - (spec: 1 u8vector->object u8vector->object) - (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: 1 readtable-comment-handler readtable-comment-handler) + (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) (spec: 1 - unbound-serial-number-exception? - unbound-serial-number-exception?) + unterminated-process-exception? + unterminated-process-exception?) + (spec: 1 remove! remove!) + (spec: 1 flmax flmax) (spec: 1 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: 1 keyword-expected-exception? keyword-expected-exception?) + not-in-compilation-context-exception? + not-in-compilation-context-exception?) (spec: 1 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 1 u8vector-swap! u8vector-swap!) + 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*) (spec: 1 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) - (spec: 1 flasin flasin) - (spec: 1 tanh tanh) + 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?) (spec: 1 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) (spec: 1 - invalid-hash-number-exception? - invalid-hash-number-exception?) - (spec: 1 open-tcp-client open-tcp-client) + 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) (spec: 1 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 1 user-info-name user-info-name) - (spec: 1 fxorc1 fxorc1) - (spec: 1 char-set-unfold char-set-unfold) - (spec: 1 s32vector-swap! s32vector-swap!) - (spec: 1 flinfinite? flinfinite?) - (spec: 1 remove remove) - (spec: 1 terminated-thread-exception? terminated-thread-exception?) + 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) (spec: 1 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) + 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?) (spec: 1 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 1 fxzero? fxzero?) - (spec: 1 address-info-family address-info-family) - (spec: 1 s64vector-shrink! s64vector-shrink!) - (spec: 1 f32vector-ref f32vector-ref) - (spec: 1 concatenate! concatenate!) - (spec: 1 string-ci=?-hash string-ci=?-hash) - (spec: 1 will-execute! will-execute!) - (spec: 1 u32vector-length u32vector-length) - (spec: 1 subf64vector-move! subf64vector-move!) - (spec: 1 fxbit-count fxbit-count) - (spec: 1 char-set-delete! char-set-delete!) - (spec: 1 thread-suspend! thread-suspend!) - (spec: 1 vector-inc! vector-inc!) - (spec: 1 list->char-set! list->char-set!) - (spec: 1 s8vector-set! s8vector-set!) - (spec: 1 type-exception-arguments type-exception-arguments) - (spec: 1 f64vector-ref f64vector-ref) - (spec: 1 bit-field-rotate bit-field-rotate) - (spec: 1 with-output-to-vector with-output-to-vector) - (spec: 1 u64vector-fill! u64vector-fill!) - (spec: 1 subu16vector subu16vector) - (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) - (spec: 1 make-random-source make-random-source) + 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) (spec: 1 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 1 u16vector-fill! u16vector-fill!) - (spec: 1 write-file-u8vector write-file-u8vector) - (spec: 1 cosh cosh) - (spec: 1 bitwise-if bitwise-if) + 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 module-search-order-reset! module-search-order-reset!) - (spec: 1 random-source-make-integers random-source-make-integers) - (spec: 1 u8vector->list u8vector->list) + (spec: 1 cosh cosh) + (spec: 1 bitwise-nor bitwise-nor) + (spec: 1 symbol-hash symbol-hash) + (spec: 1 inactive-thread-exception? inactive-thread-exception?) (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) (spec: 1 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) (spec: 1 readtable-case-conversion?-set readtable-case-conversion?-set) - (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) + (spec: 1 ucs-range->char-set! ucs-range->char-set!) + (spec: 1 input-port-char-position input-port-char-position) (spec: 1 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) - (spec: 1 open-file open-file) - (spec: 1 current-exception-handler current-exception-handler) - (spec: 1 file-info-last-change-time file-info-last-change-time) - (spec: 1 u8vector-shrink! u8vector-shrink!) + 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!) (spec: 1 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) + 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!) (spec: 1 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) - (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 1 last-pair last-pair) - (spec: 1 fold-right fold-right) - (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 1 open-string-pipe open-string-pipe) - (spec: 1 thread-join! thread-join!) - (spec: 1 path-directory path-directory) - (spec: 1 fxodd? fxodd?) - (spec: 1 char-set-size char-set-size) - (spec: 1 uninterned-symbol? uninterned-symbol?) - (spec: 1 user-info-home user-info-home) - (spec: 1 s32vector-shrink! s32vector-shrink!) - (spec: 1 step-level-set! step-level-set!) - (spec: 1 flilogb flilogb) - (spec: 1 call/cc call/cc) + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 1 fxfirst-set-bit fxfirst-set-bit) (spec: 1 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) - (spec: 1 list->char-set list->char-set) + 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) (spec: 1 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 1 fxxor fxxor) - (spec: 1 s64vector-set! s64vector-set!) - (spec: 1 concatenate concatenate) - (spec: 1 u32vector-fill! u32vector-fill!) - (spec: 1 subf64vector-fill! subf64vector-fill!) + 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) (spec: 1 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 1 char-set-delete char-set-delete) - (spec: 1 s16vector? s16vector?) - (spec: 1 port-settings-set! port-settings-set!) - (spec: 1 any-bits-set? any-bits-set?) - (spec: 1 thread-state-waiting? thread-state-waiting?) - (spec: 1 type-exception-arg-id type-exception-arg-id) - (spec: 1 s8vector-set s8vector-set) - (spec: 1 with-output-to-u8vector with-output-to-u8vector) - (spec: 1 bit-field-reverse bit-field-reverse) - (spec: 1 conjugate conjugate) - (spec: 1 u64vector-copy! u64vector-copy!) - (spec: 1 readtable-case-conversion? readtable-case-conversion?) - (spec: 1 network-info? network-info?) - (spec: 1 file-owner file-owner) - (spec: 1 substring-move! substring-move!) - (spec: 1 udp-write-u8vector udp-write-u8vector) - (spec: 1 string-suffix-ci? string-suffix-ci?) - (spec: 1 println println) - (spec: 1 clear-bit-field clear-bit-field) - (spec: 1 u16vector-copy! u16vector-copy!) - (spec: 1 range-exception? range-exception?) - (spec: 1 module-search-order-add! module-search-order-add!) - (spec: 1 file-attributes file-attributes) - (spec: 1 bitwise-for-each bitwise-for-each) - (spec: 1 write-file-string-list write-file-string-list) - (spec: 1 u8vector u8vector) - (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) - (spec: 1 noncontinuable-exception? noncontinuable-exception?) + 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<=) (spec: 1 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) + 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) + (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) (spec: 1 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 1 tanh tanh) (spec: 1 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) + invalid-hash-number-exception? + invalid-hash-number-exception?) + (spec: 1 flceiling flceiling) + (spec: 1 readtable? readtable?) (spec: 1 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) - (spec: 1 open-event-queue open-event-queue) - (spec: 1 link-incremental link-incremental) - (spec: 1 replace-bit-field replace-bit-field) - (spec: 1 file-info-last-access-time file-info-last-access-time) - (spec: 1 mutex? mutex?) - (spec: 1 u8vector-set! u8vector-set!) + 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?) (spec: 1 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) - (spec: 1 flacosh flacosh) - (spec: 1 take-right take-right) - (spec: 1 readtable-start-syntax readtable-start-syntax) - (spec: 1 open-string open-string) - (spec: 1 fold fold) + 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!) (spec: 1 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 1 thread-interrupt! thread-interrupt!) - (spec: 1 uninterned-keyword? uninterned-keyword?) - (spec: 1 user-info-gid user-info-gid) - (spec: 1 fxnot fxnot) - (spec: 1 char-set-ref char-set-ref) - (spec: 1 s32vector-set! s32vector-set!) - (spec: 1 step step) - (spec: 1 directory-files directory-files) - (spec: 1 flhypot flhypot) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 1 file-exists-exception? file-exists-exception?) + (spec: 1 u8vector-append u8vector-append) (spec: 1 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) (spec: 1 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 1 vector-unfold-right vector-unfold-right) - (spec: 1 os-exception? os-exception?) - (spec: 1 thread-state thread-state) - (spec: 1 fxwrapsquare fxwrapsquare) - (spec: 1 s64vector-set s64vector-set) - (spec: 1 make-u8vector make-u8vector) - (spec: 1 f32vector-length f32vector-length) - (spec: 1 proper-list? proper-list?) - (spec: 1 substring-fill! substring-fill!) - (spec: 1 set-box! set-box!) - (spec: 1 list->bits list->bits) - (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 1 char-set-cursor-next char-set-cursor-next) - (spec: 1 subf64vector subf64vector) - (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) + 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 main main) - (spec: 1 any-bit-set? any-bit-set?) - (spec: 1 string-suffix-length string-suffix-length) - (spec: 1 u32vector-copy! u32vector-copy!) - (spec: 1 s8vector-ref s8vector-ref) - (spec: 1 vector-fold-right vector-fold-right) - (spec: 1 f64vector-length f64vector-length) - (spec: 1 bit-field-replace-same bit-field-replace-same) - (spec: 1 with-output-to-string with-output-to-string) - (spec: 1 u64vector-copy u64vector-copy) + (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) (spec: 1 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) - (spec: 1 network-info-number network-info-number) - (spec: 1 file-number-of-links file-number-of-links) - (spec: 1 script-directory script-directory) - (spec: 1 print print) - (spec: 1 circular-list? circular-list?) - (spec: 1 string-shrink! string-shrink!) - (spec: 1 udp-write-subu8vector udp-write-subu8vector) - (spec: 1 u16vector-copy u16vector-copy) - (spec: 1 sinh sinh) - (spec: 1 copy-file copy-file) - (spec: 1 bitwise-fold bitwise-fold) - (spec: 1 fifth fifth) - (spec: 1 u8vector-set u8vector-set) + 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) (spec: 1 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 1 repl-result-history-ref repl-result-history-ref) - (spec: 1 user-info user-info) + 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) (spec: 1 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 1 flonum? flonum?) - (spec: 1 open-dummy open-dummy) - (spec: 1 thread-base-priority-set! thread-base-priority-set!) - (spec: 1 range-exception-procedure range-exception-procedure) - (spec: 1 mutex-unlock! mutex-unlock!) - (spec: 1 current-directory current-directory) - (spec: 1 file-info-inode file-info-inode) + 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/) (spec: 1 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 1 delete-file-or-directory delete-file-or-directory) - (spec: 1 flacos flacos) - (spec: 1 take! take!) - (spec: 1 open-process open-process) - (spec: 1 flzero? flzero?) + 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) (spec: 1 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 1 s64vector-ref s64vector-ref) - (spec: 1 partition! partition!) - (spec: 1 fxnor fxnor) - (spec: 1 char-set-map char-set-map) - (spec: 1 thread-init! thread-init!) - (spec: 1 vector-unfold vector-unfold) - (spec: 1 s32vector-set s32vector-set) - (spec: 1 iota iota) - (spec: 1 flfloor flfloor) + 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) (spec: 1 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 1 s16vector-shrink! s16vector-shrink!) - (spec: 1 length-mismatch-exception? length-mismatch-exception?) - (spec: 1 os-exception-procedure os-exception-procedure) - (spec: 1 thread-start! thread-start!) - (spec: 1 fxwrapquotient fxwrapquotient) - (spec: 1 acosh acosh) - (spec: 1 make-u64vector make-u64vector) - (spec: 1 f32vector-fill! f32vector-fill!) - (spec: 1 compilation-target compilation-target) - (spec: 1 host-name host-name) - (spec: 1 subf32vector-move! subf32vector-move!) - (spec: 1 stack-overflow-exception? stack-overflow-exception?) - (spec: 1 fxarithmetic-shift fxarithmetic-shift) - (spec: 1 char-set-cursor char-set-cursor) - (spec: 1 u32vector-copy u32vector-copy) - (spec: 1 thread-state-waiting-for thread-state-waiting-for) - (spec: 1 script-file script-file) + 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!) (spec: 1 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) - (spec: 1 any any) + 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+) (spec: 1 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 1 vector-fold vector-fold) - (spec: 1 with-output-to-process with-output-to-process) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) + (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) (spec: 1 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) - (spec: 1 bit-field-replace bit-field-replace) - (spec: 1 configure-command-string configure-command-string) - (spec: 1 f64vector-fill! f64vector-fill!) - (spec: 1 system-version-string system-version-string) - (spec: 1 u64vector-concatenate u64vector-concatenate) - (spec: 1 network-info-name network-info-name) - (spec: 1 file-mode file-mode) - (spec: 1 udp-source-socket-info udp-source-socket-info) - (spec: 1 primordial-exception-handler primordial-exception-handler) - (spec: 1 group-info? group-info?) - (spec: 1 random-real random-real) - (spec: 1 copy-bit-field copy-bit-field) - (spec: 1 module-not-found-exception? module-not-found-exception?) - (spec: 1 subvector-move! subvector-move!) + 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) (spec: 1 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 1 fixnum->flonum fixnum->flonum) + 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) (spec: 1 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 1 keyword->string keyword->string) + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: 1 call-with-output-u8vector call-with-output-u8vector) (spec: 1 - cfun-conversion-exception-code - cfun-conversion-exception-code) - (spec: 1 open-directory open-directory) - (spec: 1 thread-priority-set! thread-priority-set!) - (spec: 1 range-exception-arguments range-exception-arguments) - (spec: 1 mutex-state mutex-state) - (spec: 1 file-info-group file-info-group) - (spec: 1 thread-base-priority thread-base-priority) - (spec: 1 u8vector-ref u8vector-ref) - (spec: 1 tenth tenth) - (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) + 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) (spec: 1 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 1 flabs flabs) - (spec: 1 call-with-output-vector call-with-output-vector) - (spec: 1 take take) - (spec: 1 socket-info? socket-info?) - (spec: 1 s32vector-ref s32vector-ref) - (spec: 1 list->u8vector list->u8vector) - (spec: 1 char-set-intersection! char-set-intersection!) - (spec: 1 fxnegative? fxnegative?) - (spec: 1 partition partition) - (spec: 1 timeout->time timeout->time) + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 1 random-u8vector random-u8vector) (spec: 1 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) - (spec: 1 flfinite? flfinite?) - (spec: 1 vector-swap! vector-swap!) + 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) (spec: 1 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 1 os-exception-message os-exception-message) - (spec: 1 thread-specific-set! thread-specific-set!) - (spec: 1 every-bit-set? every-bit-set?) - (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 1 trace trace) - (spec: 1 service-info? service-info?) - (spec: 1 f32vector-copy! f32vector-copy!) - (spec: 1 host-info? host-info?) - (spec: 1 make-u32vector make-u32vector) - (spec: 1 subf32vector-fill! subf32vector-fill!) - (spec: 1 s16vector-set! s16vector-set!) - (spec: 1 u32vector-concatenate u32vector-concatenate) - (spec: 1 fxandc2 fxandc2) - (spec: 1 char-set-count char-set-count) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 1 integer-sqrt integer-sqrt) (spec: 1 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 1 write-file-string write-file-string) - (spec: 1 s8vector-length s8vector-length) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) + (spec: 1 unbound-key-exception? unbound-key-exception?) + (spec: 1 fl+* fl+*) (spec: 1 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 1 tty? tty?) - (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 1 subs8vector-move! subs8vector-move!) - (spec: 1 f64vector-copy! f64vector-copy!) - (spec: 1 bit-field-every? bit-field-every?) - (spec: 1 with-output-to-port with-output-to-port) - (spec: 1 u64vector-append u64vector-append) - (spec: 1 read-all read-all) - (spec: 1 network-info-aliases network-info-aliases) - (spec: 1 file-last-modification-time file-last-modification-time) - (spec: 1 udp-read-u8vector udp-read-u8vector) - (spec: 1 u16vector-append u16vector-append) - (spec: 1 string-set string-set) - (spec: 1 make-mutex make-mutex) - (spec: 1 group-info-name group-info-name) + input-port-characters-buffered + input-port-characters-buffered) + (spec: 1 string-prefix-length string-prefix-length) (spec: 1 command-name command-name) - (spec: 1 random-integer random-integer) + (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!) (spec: 1 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 1 copy-bit copy-bit) - (spec: 1 subvector-fill! subvector-fill!) - (spec: 1 system-version system-version) + 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) + (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+) (spec: 1 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 1 defer-user-interrupts defer-user-interrupts) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) (spec: 1 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) - (spec: 1 repl-output-port repl-output-port) - (spec: 1 thread thread) - (spec: 1 display-procedure-environment display-procedure-environment) + join-timeout-exception-arguments + join-timeout-exception-arguments) + (spec: 1 flnegative? flnegative?) + (spec: 1 display-exception-in-context display-exception-in-context) (spec: 1 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 1 flodd? flodd?) - (spec: 1 range-exception-arg-id range-exception-arg-id) - (spec: 1 mutex-specific-set! mutex-specific-set!) - (spec: 1 file-info-device file-info-device) - (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) + 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) (spec: 1 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) - (spec: 1 delete-directory delete-directory) - (spec: 1 call-with-output-u8vector call-with-output-u8vector) - (spec: 1 fl>= fl>=) - (spec: 1 thread-group? thread-group?) - (spec: 1 reverse! reverse!) - (spec: 1 open-output-vector open-output-vector) - (spec: 1 fltruncate fltruncate) - (spec: 1 socket-info-port-number socket-info-port-number) - (spec: 1 touch touch) - (spec: 1 vector-shrink! vector-shrink!) - (spec: 1 error-exception? error-exception?) - (spec: 1 fxnand fxnand) - (spec: 1 list->u64vector list->u64vector) - (spec: 1 tcp-service-unregister! tcp-service-unregister!) + 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) (spec: 1 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) - (spec: 1 flexpt flexpt) - (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) + 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) (spec: 1 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) - (spec: 1 fourth fourth) - (spec: 1 char-set-copy char-set-copy) - (spec: 1 os-exception-code os-exception-code) - (spec: 1 s64vector-length s64vector-length) - (spec: 1 thread-specific thread-specific) - (spec: 1 every every) - (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) - (spec: 1 u64vector->list u64vector->list) - (spec: 1 service-info-protocol service-info-protocol) - (spec: 1 f32vector-copy f32vector-copy) - (spec: 1 atanh atanh) - (spec: 1 host-info-name host-info-name) - (spec: 1 make-u16vector make-u16vector) - (spec: 1 s16vector-set s16vector-set) - (spec: 1 subf32vector subf32vector) - (spec: 1 fxandc1 fxandc1) - (spec: 1 char-set-intersection char-set-intersection) - (spec: 1 u32vector-append u32vector-append) - (spec: 1 u16vector-concatenate u16vector-concatenate) - (spec: 1 s8vector-fill! s8vector-fill!) + join-timeout-exception-procedure + join-timeout-exception-procedure) (spec: 1 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 1 gensym gensym) - (spec: 1 circular-list circular-list) - (spec: 1 poll-point poll-point) + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) (spec: 1 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 1 subs8vector-fill! subs8vector-fill!) - (spec: 1 f64vector-copy f64vector-copy) - (spec: 1 bit-field-clear bit-field-clear) - (spec: 1 tty-type-set! tty-type-set!) - (spec: 1 vector-every vector-every) - (spec: 1 udp-read-subu8vector udp-read-subu8vector) - (spec: 1 initialized-thread-exception? initialized-thread-exception?) - (spec: 1 first-set-bit first-set-bit) - (spec: 1 network-info network-info) - (spec: 1 u16vector->list u16vector->list) - (spec: 1 executable-path executable-path) - (spec: 1 host-info-addresses host-info-addresses) + 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 random-f64vector random-f64vector) - (spec: - 1 - module-not-found-exception-arguments - module-not-found-exception-arguments) + (spec: 1 create-directory create-directory) (spec: 1 file-info-creation-time file-info-creation-time) - (spec: 1 u64vector? u64vector?) - (spec: 1 read-subu8vector read-subu8vector) - (spec: 1 input-port-timeout-set! input-port-timeout-set!) - (spec: - 1 - default-user-interrupt-handler - default-user-interrupt-handler) + (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!) (spec: 1 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) - (spec: 1 system-type-string system-type-string) - (spec: 1 repl-input-port repl-input-port) - (spec: 1 fltanh fltanh) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) (spec: 1 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 1 mutex-specific mutex-specific) - (spec: 1 create-temporary-directory create-temporary-directory) - (spec: 1 file-last-change-time file-last-change-time) - (spec: 1 table? table?) - (spec: 1 readtable-max-write-level readtable-max-write-level) - (spec: 1 delete! delete!) - (spec: 1 call-with-output-string call-with-output-string) - (spec: 1 flexpm1 flexpm1) + 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) (spec: 1 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 1 thread-group-terminate! thread-group-terminate!) - (spec: 1 last last) - (spec: 1 open-output-u8vector open-output-u8vector) - (spec: 1 socket-info-family socket-info-family) + 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) (spec: 1 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 1 s32vector-length s32vector-length) - (spec: 1 list->u32vector list->u32vector) - (spec: 1 error-exception-parameters error-exception-parameters) - (spec: 1 fxmodulo fxmodulo) - (spec: 1 time? time?) - (spec: 1 tcp-service-register! tcp-service-register!) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) + (spec: 1 service-info-aliases service-info-aliases) (spec: 1 - invalid-utf8-encoding-exception-procedure - invalid-utf8-encoding-exception-procedure) - (spec: 1 thread-sleep! thread-sleep!) + 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>) (spec: 1 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) - (spec: 1 foreign? foreign?) - (spec: 1 char-set-contains? char-set-contains?) - (spec: 1 os-exception-arguments os-exception-arguments) - (spec: 1 s64vector-fill! s64vector-fill!) - (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 1 char-set? char-set?) - (spec: 1 service-info-port-number service-info-port-number) - (spec: 1 make-tls-context make-tls-context) - (spec: 1 f32vector-concatenate f32vector-concatenate) - (spec: 1 bit-field-any? bit-field-any?) - (spec: 1 host-info-aliases host-info-aliases) - (spec: 1 processor? processor?) - (spec: 1 s16vector-ref s16vector-ref) - (spec: 1 output-port-width output-port-width) - (spec: 1 char-set-hash char-set-hash) - (spec: 1 fxand fxand) - (spec: 1 u32vector->list u32vector->list) - (spec: 1 s8vector-copy! s8vector-copy!) - (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 1 vector-cumulate vector-cumulate) - (spec: 1 with-input-from-vector with-input-from-vector) - (spec: 1 u64vector u64vector) + 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) (spec: 1 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 1 f64vector-concatenate f64vector-concatenate) - (spec: 1 bitwise-eqv bitwise-eqv) - (spec: 1 continuation? continuation?) - (spec: 1 subs8vector subs8vector) + display-continuation-environment + display-continuation-environment) (spec: 1 - wrong-number-of-arguments-exception? - wrong-number-of-arguments-exception?) + invalid-utf8-encoding-exception-procedure + invalid-utf8-encoding-exception-procedure) + (spec: 1 tcp-service-register! tcp-service-register!) (spec: 1 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 1 default-random-source default-random-source) - (spec: 1 first first) - (spec: 1 u16vector u16vector) - (spec: 1 string-prefix? string-prefix?) - (spec: 1 f32vector->list f32vector->list) - (spec: 1 command-args command-args) - (spec: 1 host-info host-info) - (spec: 1 subu8vector-move! subu8vector-move!) - (spec: 1 raise raise) - (spec: 1 u64vector-swap! u64vector-swap!) - (spec: 1 create-symbolic-link create-symbolic-link) - (spec: 1 file-info-attributes file-info-attributes) - (spec: 1 system-type system-type) - (spec: 1 input-port-readtable-set! input-port-readtable-set!) - (spec: 1 compile-file compile-file) - (spec: 1 delete delete) - (spec: 1 fl= fl=) + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 1 flacosh flacosh) (spec: 1 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 1 read-substring read-substring) - (spec: 1 repl-highlight-source-level repl-highlight-source-level) - (spec: 1 fltan fltan) - (spec: 1 third third) - (spec: 1 mutex-name mutex-name) - (spec: 1 file-last-access-time file-last-access-time) - (spec: 1 table-set! table-set!) + 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) (spec: 1 - readtable-max-write-length-set - readtable-max-write-length-set) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 1 system-version system-version) + (spec: 1 fl< fl<) (spec: 1 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) - (spec: 1 flexp flexp) - (spec: 1 call-with-output-process call-with-output-process) - (spec: 1 thread-group-suspend! thread-group-suspend!) - (spec: 1 socket-info-address socket-info-address) - (spec: 1 foreign-tags foreign-tags) - (spec: 1 time->seconds time->seconds) - (spec: 1 s32vector-fill! s32vector-fill!) - (spec: 1 list->u16vector list->u16vector) - (spec: 1 fxwrapabs fxwrapabs) - (spec: 1 error-exception-message error-exception-message) - (spec: 1 vector-set vector-set) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) (spec: 1 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: 1 flnumerator flnumerator) - (spec: 1 thread-send thread-send) - (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 1 fxabs fxabs) - (spec: 1 char-set-complement! char-set-complement!) - (spec: 1 s64vector-copy! s64vector-copy!) - (spec: 1 list= list=) - (spec: 1 all-bits-set? all-bits-set?) - (spec: 1 char-set= char-set=) - (spec: 1 path-volume path-volume) - (spec: 1 string->uninterned-symbol string->uninterned-symbol) - (spec: 1 service-info-name service-info-name) - (spec: 1 f32vector-append f32vector-append) - (spec: 1 bit-field bit-field) + 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 output-port-timeout-set! output-port-timeout-set!) - (spec: 1 fxmin fxmin) - (spec: 1 char-set-for-each char-set-for-each) - (spec: 1 thread-state-running? thread-state-running?) + (spec: 1 s16vector-length s16vector-length) + (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 s8vector-copy s8vector-copy) - (spec: 1 with-input-from-u8vector with-input-from-u8vector) - (spec: 1 group-info-members group-info-members) + (spec: 1 path-strip-volume path-strip-volume) + (spec: 1 s64vector-copy s64vector-copy) (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) (spec: 1 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 1 subs64vector-move! subs64vector-move!) - (spec: 1 f64vector-append f64vector-append) - (spec: 1 bitwise-andc2 bitwise-andc2) - (spec: 1 continuation-return continuation-return) - (spec: 1 link-flat link-flat) + 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) (spec: 1 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 1 scheduler-exception? scheduler-exception?) - (spec: 1 f32vector f32vector) - (spec: 1 string-prefix-length-ci string-prefix-length-ci) - (spec: 1 ->char-set ->char-set) - (spec: 1 subu8vector-fill! subu8vector-fill!) - (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 1 mutex-lock! mutex-lock!) - (spec: 1 create-link create-link) - (spec: 1 bitwise-xor bitwise-xor) - (spec: 1 file-info file-info) - (spec: 1 shell-command shell-command) - (spec: 1 input-port-readtable input-port-readtable) - (spec: 1 fl<= fl<=) + unterminated-process-exception-arguments + unterminated-process-exception-arguments) + (spec: 1 fl>= fl>=) (spec: 1 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) - (spec: 1 system-stamp system-stamp) - (spec: 1 u64vector-shrink! u64vector-shrink!) - (spec: 1 repl-error-port repl-error-port) - (spec: 1 flsquare flsquare) - (spec: 1 open-output-process open-output-process) - (spec: 1 unbound-key-exception? unbound-key-exception?) - (spec: 1 random-u8vector random-u8vector) + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) (spec: 1 - current-user-interrupt-handler - current-user-interrupt-handler) + 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) (spec: 1 file-last-access-and-modification-times-set! file-last-access-and-modification-times-set!) - (spec: 1 table-search table-search) - (spec: 1 readtable-max-write-length readtable-max-write-length) - (spec: 1 fleven? fleven?) - (spec: 1 thread-group-specific-set! thread-group-specific-set!) - (spec: 1 foreign-released? foreign-released?) - (spec: 1 time time) - (spec: 1 list->table list->table) - (spec: 1 fxwrap- fxwrap-) - (spec: 1 abort abort) - (spec: 1 s32vector-copy! s32vector-copy!) - (spec: 1 tcp-server-socket-info tcp-server-socket-info) - (spec: 1 display-exception-in-context display-exception-in-context) - (spec: 1 flnegative? flnegative?) + (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<=) (spec: 1 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 1 length+ length+) - (spec: 1 end-of-char-set? end-of-char-set?) - (spec: 1 char-set-complement char-set-complement) - (spec: 1 fx>= fx>=) - (spec: 1 thread-resume! thread-resume!) - (spec: 1 s64vector-copy s64vector-copy) - (spec: 1 path-strip-volume path-strip-volume) - (spec: 1 char-set<= char-set<=) - (spec: 1 string->uninterned-keyword string->uninterned-keyword) - (spec: 1 service-info-aliases service-info-aliases) - (spec: 1 make-thread make-thread) - (spec: 1 f64vector->list f64vector->list) - (spec: 1 bit-count bit-count) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 1 udp-source-socket-info udp-source-socket-info) (spec: 1 - condition-variable-specific-set! - condition-variable-specific-set!) + 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) (spec: 1 - thread-state-running-processor - thread-state-running-processor) - (spec: 1 s16vector-length s16vector-length) - (spec: 1 fxmax fxmax) - (spec: 1 char-set-fold char-set-fold) - (spec: 1 output-port-readtable-set! output-port-readtable-set!) + 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?) (spec: 1 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 1 s8vector-concatenate s8vector-concatenate) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) + (spec: 1 table-search table-search) (spec: 1 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 1 group-info-gid group-info-gid) - (spec: 1 with-input-from-string with-input-from-string) + 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) (spec: 1 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 1 subs64vector-fill! subs64vector-fill!) - (spec: 1 bitwise-andc1 bitwise-andc1) - (spec: 1 continuation-graft continuation-graft) - (spec: 1 udp-local-socket-info udp-local-socket-info) - (spec: 1 scheduler-exception-reason scheduler-exception-reason) - (spec: 1 string-prefix-length string-prefix-length) - (spec: 1 subu8vector subu8vector) - (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 1 create-fifo create-fifo) - (spec: 1 bitwise-unfold bitwise-unfold) - (spec: 1 file-group file-group) - (spec: 1 u64vector-set! u64vector-set!) + 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) (spec: 1 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 1 fl< fl<) + 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) (spec: 1 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) - (spec: 1 drop-right! drop-right!) - (spec: 1 flsqrt flsqrt) - (spec: 1 random-source? random-source?) - (spec: 1 u8vector-length u8vector-length) - (spec: 1 current-time current-time) - (spec: 1 file-inode file-inode) - (spec: 1 table-ref table-ref) + 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!) (spec: 1 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 1 null-list? null-list?) - (spec: 1 fldenominator fldenominator) - (spec: 1 call-with-input-vector call-with-input-vector) - (spec: 1 uncaught-exception? uncaught-exception?) - (spec: 1 thread-group-specific thread-group-specific) - (spec: 1 foreign-release! foreign-release!) - (spec: 1 s32vector-copy s32vector-copy) + 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) (spec: 1 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 1 fxwrap+ fxwrap+) - (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 1 real-time real-time) - (spec: 1 display-exception display-exception) - (spec: 1 flnan? flnan?) - (spec: 1 thread-receive thread-receive) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 1 thread-sleep! thread-sleep!) (spec: 1 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 1 output-port-readtable output-port-readtable) - (spec: 1 fx> fx>) - (spec: 1 char-set-any char-set-any) - (spec: 1 s64vector-concatenate s64vector-concatenate) - (spec: 1 make-table make-table) - (spec: 1 f64vector f64vector) - (spec: 1 condition-variable-specific condition-variable-specific) - (spec: 1 service-info service-info) - (spec: 1 s16vector-fill! s16vector-fill!) - (spec: 1 vector-concatenate vector-concatenate) - (spec: 1 error error) - (spec: 1 char-set-filter! char-set-filter!) - (spec: 1 fxlength fxlength) - (spec: 1 tty-mode-set! tty-mode-set!) - (spec: 1 s8vector-append s8vector-append) - (spec: 1 group-info group-info) - (spec: 1 with-input-from-process with-input-from-process) - (spec: 1 u32vector? u32vector?) - (spec: 1 subs64vector subs64vector) - (spec: 1 bitwise-and bitwise-and) - (spec: 1 continuation-capture continuation-capture) - (spec: 1 bytevector bytevector) - (spec: 1 close-port close-port) - (spec: 1 file-exists? file-exists?) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 output-port-open? output-port-open?) - (spec: 1 current-second current-second) - (spec: 1 nan? nan?) - (spec: 1 square square) - (spec: 1 utf8->string utf8->string) - (spec: 1 vector-append vector-append) - (spec: 1 write-u8 write-u8) - (spec: 1 symbol=? symbol=?) - (spec: 1 round/ round/) - (spec: 1 euclidean/ euclidean/) - (spec: 1 exact-integer? exact-integer?) - (spec: 1 textual-port? textual-port?) - (spec: 1 vector-map vector-map) - (spec: 1 string-upcase string-upcase) - (spec: 1 write-string write-string) - (spec: 1 open-input-string open-input-string) - (spec: 1 round-remainder round-remainder) - (spec: 1 euclidean-remainder euclidean-remainder) - (spec: 1 exact-integer-sqrt exact-integer-sqrt) - (spec: 1 list-set! list-set!) - (spec: 1 vector->string vector->string) - (spec: 1 read-error? read-error?) - (spec: 1 write-simple write-simple) - (spec: 1 infinite? infinite?) - (spec: 1 round-quotient round-quotient) - (spec: 1 euclidean-quotient euclidean-quotient) - (spec: 1 balanced/ balanced/) - (spec: 1 jiffies-per-second jiffies-per-second) - (spec: 1 make-bytevector make-bytevector) - (spec: 1 file-error? file-error?) - (spec: 1 floor/ floor/) - (spec: 1 current-jiffy current-jiffy) - (spec: 1 truncate/ truncate/) - (spec: 1 write-shared write-shared) - (spec: 1 balanced-remainder balanced-remainder) - (spec: 1 truncate-remainder truncate-remainder) - (spec: 1 floor-remainder floor-remainder) - (spec: 1 open-input-bytevector open-input-bytevector) - (spec: 1 balanced-quotient balanced-quotient) + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) + (spec: 1 os-exception? os-exception?) + (spec: 1 foreign? foreign?) + (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/) + (spec: 1 binary-port? binary-port?) + (spec: 1 bytevector-length bytevector-length) (spec: 1 get-output-string get-output-string) - (spec: 1 port? port?) - (spec: 1 truncate-quotient truncate-quotient) - (spec: 1 floor-quotient floor-quotient) - (spec: 1 get-output-bytevector get-output-bytevector) - (spec: 1 string-map string-map) + (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 read-u8 read-u8) (spec: 1 make-promise make-promise) (spec: 1 vector-for-each vector-for-each) - (spec: 1 current-error-port current-error-port) - (spec: 1 error-object? error-object?) - (spec: 1 boolean=? boolean=?) + (spec: 1 char-foldcase char-foldcase) (spec: 1 list-copy list-copy) - (spec: 1 peek-u8 peek-u8) - (spec: 1 read-bytevector! read-bytevector!) + (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 boolean=? boolean=?) + (spec: 1 current-error-port current-error-port) + (spec: 1 infinite? infinite?) + (spec: 1 port? port?) + (spec: 1 write-shared write-shared) (spec: 1 error-object-message error-object-message) - (spec: 1 call-with-port call-with-port) - (spec: 1 exact exact) - (spec: 1 get-environment-variables get-environment-variables) - (spec: 1 bytevector-u8-set! bytevector-u8-set!) - (spec: 1 inexact inexact) - (spec: 1 delete-file delete-file) - (spec: 1 flush-output-port flush-output-port) - (spec: 1 error-object-irritants error-object-irritants) - (spec: 1 char-foldcase char-foldcase) - (spec: 1 get-environment-variable get-environment-variable) - (spec: 1 bytevector-u8-ref bytevector-u8-ref) - (spec: 1 read-u8 read-u8) + (spec: 1 jiffies-per-second jiffies-per-second) + (spec: 1 truncate-remainder truncate-remainder) + (spec: 1 vector->string vector->string) + (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 exit exit) - (spec: 1 make-parameter make-parameter) + (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 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 close-port close-port) + (spec: 1 write-u8 write-u8) + (spec: 1 euclidean-quotient euclidean-quotient) (spec: 1 open-binary-output-file open-binary-output-file) - (spec: 1 promise? promise?) - (spec: 1 read-bytevector read-bytevector) - (spec: 1 bytevector-length bytevector-length) - (spec: 1 command-line command-line) - (spec: 1 make-list make-list) - (spec: 1 open-binary-input-file open-binary-input-file) - (spec: 1 digit-value digit-value) - (spec: 1 string->utf8 string->utf8) - (spec: 1 string->vector string->vector) - (spec: 1 string-foldcase string-foldcase) - (spec: 1 bytevector-copy! bytevector-copy!) - (spec: 1 string-for-each string-for-each) - (spec: 1 ceiling/ ceiling/) - (spec: 1 open-output-string open-output-string) - (spec: 1 u8-ready? u8-ready?) - (spec: 1 vector-copy! vector-copy!) + (spec: 1 round-remainder round-remainder) (spec: 1 bytevector-copy bytevector-copy) (spec: 1 read-string read-string) - (spec: 1 ceiling-remainder ceiling-remainder) + (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 finite? finite?) - (spec: 1 write-bytevector write-bytevector) - (spec: 1 vector-copy vector-copy) + (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 bytevector-append bytevector-append) + (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 ceiling-quotient ceiling-quotient) - (spec: 1 input-port-open? input-port-open?) - (spec: 1 string-downcase string-downcase) - (spec: 1 binary-port? binary-port?) - (spec: 1 string-copy! string-copy!) - (spec: 1 + +) - (spec: 1 string=? string=?) - (spec: 1 caaar caaar) - (spec: 1 ceiling ceiling) - (spec: 1 interaction-environment interaction-environment) - (spec: 1 null-environment null-environment) - (spec: 1 char-ci=? char-ci=?) - (spec: 1 real-part real-part) - (spec: 1 string->number string->number) - (spec: 1 max max) - (spec: 1 - -) - (spec: 1 string-copy string-copy) - (spec: 1 caaadr caaadr) - (spec: 1 * *) - (spec: 1 stringlist string->list) - (spec: 1 eval eval) - (spec: 1 with-input-from-file with-input-from-file) - (spec: 1 exact? exact?) - (spec: 1 char? char?) - (spec: 1 close-output-port close-output-port) - (spec: 1 string<=? string<=?) - (spec: 1 caaaar caaaar) - (spec: 1 cddr cddr) - (spec: 1 char-ci<=? char-ci<=?) - (spec: 1 sqrt sqrt) - (spec: 1 eqv? eqv?) - (spec: 1 apply apply) - (spec: 1 char>? char>?) - (spec: 1 newline newline) - (spec: 1 close-input-port close-input-port) - (spec: 1 expt expt) - (spec: 1 cdddr cdddr) + (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 read read) + (spec: 1 assv assv) + (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 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 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-ci= >=) - (spec: 1 asin asin) - (spec: 1 char>=? char>=?) - (spec: 1 pair? pair?) - (spec: 1 current-output-port current-output-port) - (spec: 1 modulo modulo) - (spec: 1 symbol->string symbol->string) - (spec: 1 cddddr cddddr) - (spec: - 1 - call-with-current-continuation - call-with-current-continuation) - (spec: 1 char->integer char->integer) - (spec: 1 display display) - (spec: 1 force force) - (spec: 1 lcm lcm) - (spec: 1 vector->list vector->list) - (spec: 1 log log) - (spec: 1 > >) - (spec: 1 map map) + (spec: 1 cdddr cdddr) + (spec: 1 current-input-port current-input-port) + (spec: 1 imag-part imag-part) + (spec: 1 rational? rational?) + (spec: 1 sin sin) + (spec: 1 close-input-port close-input-port) (spec: 1 char=? char=?) - (spec: 1 equal? equal?) + (spec: 1 memv memv) + (spec: 1 < <) + (spec: 1 list list) (spec: 1 positive? positive?) (spec: 1 quotient quotient) - (spec: 1 make-rectangular make-rectangular) - (spec: 1 string-ci>? string-ci>?) + (spec: 1 string-ci=? string-ci=?) + (spec: 1 char-ci<=? char-ci<=?) + (spec: 1 cddr cddr) + (spec: 1 inexact->exact 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 vector->list vector->list) (spec: 1 vector-length vector-length) - (spec: 1 cdddar cdddar) - (spec: 1 integer->char integer->char) - (spec: 1 cadr cadr) - (spec: 1 for-each for-each) - (spec: 1 inexact? inexact?) - (spec: 1 list-ref list-ref) (spec: 1 car car) - (spec: 1 char-ready? char-ready?) (spec: 1 numerator numerator) + (spec: 1 cadr cadr) + (spec: 1 dynamic-wind dynamic-wind) + (spec: 1 cdddar cdddar) (spec: 1 open-input-file open-input-file) - (spec: 1 rationalize rationalize) - (spec: 1 char=? string-ci>=?) - (spec: 1 dynamic-wind dynamic-wind) - (spec: 1 cddar cddar) - (spec: 1 current-input-port current-input-port) - (spec: 1 rational? rational?) - (spec: 1 caddr caddr) - (spec: 1 number? number?) - (spec: 1 char-numeric? char-numeric?) - (spec: 1 vector vector) - (spec: 1 = =) - (spec: 1 eq? eq?) - (spec: 1 append append) + (spec: 1 symbol->string 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 make-vector make-vector) (spec: 1 procedure? procedure?) + (spec: 1 pair? pair?) + (spec: 1 load load) (spec: 1 set-cdr! set-cdr!) - (spec: 1 cddadr cddadr) - (spec: 1 boolean? boolean?) - (spec: 1 cadddr cadddr) - (spec: 1 tan tan) - (spec: 1 vector? vector?) + (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 char-lower-case? char-lower-case?) - (spec: 1 string-ci=? string-ci=?) - (spec: 1 <= <=) - (spec: 1 set-car! set-car!) - (spec: 1 char-whitespace? char-whitespace?) + (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 read-char read-char) - (spec: 1 / /) - (spec: 1 cos cos) - (spec: 1 cddaar cddaar) - (spec: 1 floor floor) - (spec: 1 caddar caddar) - (spec: 1 denominator denominator) - (spec: 1 string-ciinexact exact->inexact) - (spec: 1 < <) - (spec: 1 complex? complex?) + (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 string<=? string<=?) + (spec: 1 >= >=) (spec: 1 eof-object? eof-object?) - (spec: 1 memv memv) - (spec: 1 transcript-on transcript-on) - (spec: 1 exp exp) - (spec: 1 make-polar make-polar) - (spec: 1 cdar cdar) - (spec: 1 inexact->exact inexact->exact) - (spec: 1 cadar cadar) - (spec: 1 list->vector list->vector) - (spec: 1 string-ci<=? string-ci<=?) - (spec: 1 transcript-off transcript-off) - (spec: 1 list list) - (spec: 1 string-length string-length) - (spec: 1 char-upper-case? char-upper-case?) - (spec: 1 memq memq) - (spec: 1 string-set! string-set!) - (spec: 1 imag-part imag-part) - (spec: 1 sin sin) - (spec: 1 cadadr cadadr) - (spec: 1 substring substring) - (spec: 1 cdadr cdadr) - (spec: 1 string-append string-append) - (spec: 1 acos acos) - (spec: 1 peek-char peek-char) - (spec: 1 vector-fill! vector-fill!) - (spec: 1 char-upcase char-upcase) - (spec: 1 atan atan) - (spec: 1 input-port? input-port?) - (spec: 1 cadaar cadaar) - (spec: 1 not not) - (spec: 1 cdaddr cdaddr) - (spec: 1 load load) - (spec: 1 output-port? output-port?) - (spec: 1 with-output-to-file with-output-to-file) - (spec: 1 angle angle) - (spec: 1 member member) - (spec: 1 read read) + (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 write-char write-char) - (spec: 1 caar caar) - (spec: 1 reverse reverse) - (spec: 1 char-downcase char-downcase) - (spec: 1 cdadar cdadar) - (spec: 1 number->string number->string) - (spec: 1 list? list?) + (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 asin asin) + (spec: 1 with-output-to-file with-output-to-file) + (spec: 1 string>=? string>=?) + (spec: 1 equal? equal?) (spec: 1 values values) - (spec: 1 scheme-report-environment scheme-report-environment) - (spec: 1 assv assv) - (spec: 1 caadr caadr) + (spec: 1 string->number string->number) + (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 cdaar cdaar) - (spec: 1 string? string?) - (spec: 1 string-fill! string-fill!) + (spec: 1 cdadar cdadar) + (spec: 1 number->string number->string) + (spec: 1 char-downcase char-downcase) + (spec: 1 floor floor) + (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 assq assq) - (spec: 1 caaddr caaddr) - (spec: 1 negative? negative?) - (spec: 1 null? null?) - (spec: 1 call-with-output-file call-with-output-file) - (spec: 1 char-ci>? char-ci>?) - (spec: 1 vector-ref vector-ref) - (spec: 1 cdaadr cdaadr) - (spec: 1 real? real?) - (spec: 1 gcd gcd) - (spec: 1 string>? string>?) - (spec: 1 magnitude magnitude) - (spec: 1 assoc assoc) - (spec: 1 make-string make-string) - (spec: 1 write write) - (spec: 1 caadar caadar) - (spec: 1 open-output-file open-output-file) - (spec: 1 char-ci>=? char-ci>=?) - (spec: 1 even? even?) + (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 cdaaar cdaaar) - (spec: 1 list-tail list-tail) - (spec: 1 length length) - (spec: 1 string->symbol string->symbol) - (spec: 1 string>=? string>=?) - (spec: 1 R5RSRuntime R5RSRuntime) - (spec: 1 GerbilRuntime GerbilRuntime) - (spec: 1 GambitRuntime GambitRuntime) - (spec: 1 Runtime Runtime) + (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 RuntimeAliases RuntimeAliases) (spec: 1 R7RSRuntime R7RSRuntime) + (spec: 1 GerbilRuntime GerbilRuntime) + (spec: 1 Runtime Runtime) + (spec: 1 GambitRuntime GambitRuntime) + (spec: 1 R5RSRuntime R5RSRuntime) (spec: 1 %%app-dotted %%app) (spec: 1 %%ref-dotted %%ref) (spec: 1 %%set-dotted! set!) @@ -6410,5 +6416,7 @@ namespace: gerbil/core (spec: 1 defmethod/c defmethod) (spec: 1 defclass/c defclass) (spec: 1 defstruct/c defstruct) + (spec: 1 do/c do) + (spec: 1 do-while/c do-while) (phi: 2 (import: :gerbil/core/runtime)) (phi: 2 (import: :gerbil/core/expander)))) diff --git a/src/bootstrap/gerbil/core/contract.ssi b/src/bootstrap/gerbil/core/contract.ssi index 62fad26e3..17abdc1e8 100644 --- a/src/bootstrap/gerbil/core/contract.ssi +++ b/src/bootstrap/gerbil/core/contract.ssi @@ -610,6 +610,18 @@ namespace: gerbil/core/contract (%#define-syntax defstruct/c |gerbil/core/contract~TypedDefinitions[:0:]#defstruct/c|) + (%#define-syntax + do/c + |gerbil/core/contract~TypedDefinitions[:0:]#do/c|) + (%#define-syntax + do-loop-result + |gerbil/core/contract~TypedDefinitions[:0:]#do-loop-result|) + (%#define-syntax + do-loop-step + |gerbil/core/contract~TypedDefinitions[:0:]#do-loop-step|) + (%#define-syntax + do-while/c + |gerbil/core/contract~TypedDefinitions[:0:]#do-while/c|) (%#define-syntax defmutable* |gerbil/core/contract~TypedDefinitions[:0:]#defmutable*|) diff --git a/src/bootstrap/gerbil/core/contract~1.scm b/src/bootstrap/gerbil/core/contract~1.scm index 370006c25..33557f86e 100644 --- a/src/bootstrap/gerbil/core/contract~1.scm +++ b/src/bootstrap/gerbil/core/contract~1.scm @@ -1,328 +1,328 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~InterfaceInfo[1]#_g82800_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83922_| (##structure gx#syntax-quote::t 'interface-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82802_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83924_| (##structure gx#syntax-quote::t 'make-interface-info #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82804_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83926_| (##structure gx#syntax-quote::t 'interface-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82806_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83928_| (##structure gx#syntax-quote::t 'interface-info-name #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82807_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83929_| (##structure gx#syntax-quote::t 'interface-info-interface-mixin #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82808_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83930_| (##structure gx#syntax-quote::t 'interface-info-interface-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82809_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83931_| (##structure gx#syntax-quote::t 'interface-info-instance-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82810_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83932_| (##structure gx#syntax-quote::t 'interface-info-interface-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82811_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83933_| (##structure gx#syntax-quote::t 'interface-info-instance-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82812_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83934_| (##structure gx#syntax-quote::t 'interface-info-instance-try-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82813_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83935_| (##structure gx#syntax-quote::t 'interface-info-instance-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82814_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83936_| (##structure gx#syntax-quote::t 'interface-info-instance-satisfies-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82815_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83937_| (##structure gx#syntax-quote::t 'interface-info-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82816_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83938_| (##structure gx#syntax-quote::t 'interface-info-unchecked-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82818_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83940_| (##structure gx#syntax-quote::t 'interface-info-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82819_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83941_| (##structure gx#syntax-quote::t 'interface-info-interface-mixin-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82820_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83942_| (##structure gx#syntax-quote::t 'interface-info-interface-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82821_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83943_| (##structure gx#syntax-quote::t 'interface-info-instance-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82822_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83944_| (##structure gx#syntax-quote::t 'interface-info-interface-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82823_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83945_| (##structure gx#syntax-quote::t 'interface-info-instance-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82824_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83946_| (##structure gx#syntax-quote::t 'interface-info-instance-try-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82825_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83947_| (##structure gx#syntax-quote::t 'interface-info-instance-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82826_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83948_| (##structure gx#syntax-quote::t 'interface-info-instance-satisfies-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82827_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83949_| (##structure gx#syntax-quote::t 'interface-info-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82828_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83950_| (##structure gx#syntax-quote::t 'interface-info-unchecked-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82830_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83952_| (##structure gx#syntax-quote::t '&interface-info-name #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82831_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83953_| (##structure gx#syntax-quote::t '&interface-info-interface-mixin #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82832_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83954_| (##structure gx#syntax-quote::t '&interface-info-interface-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82833_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83955_| (##structure gx#syntax-quote::t '&interface-info-instance-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82834_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83956_| (##structure gx#syntax-quote::t '&interface-info-interface-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82835_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83957_| (##structure gx#syntax-quote::t '&interface-info-instance-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82836_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83958_| (##structure gx#syntax-quote::t '&interface-info-instance-try-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82837_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83959_| (##structure gx#syntax-quote::t '&interface-info-instance-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82838_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83960_| (##structure gx#syntax-quote::t '&interface-info-instance-satisfies-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82839_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83961_| (##structure gx#syntax-quote::t '&interface-info-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82840_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83962_| (##structure gx#syntax-quote::t '&interface-info-unchecked-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82842_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83964_| (##structure gx#syntax-quote::t '&interface-info-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82843_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83965_| (##structure gx#syntax-quote::t '&interface-info-interface-mixin-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82844_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83966_| (##structure gx#syntax-quote::t '&interface-info-interface-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82845_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83967_| (##structure gx#syntax-quote::t '&interface-info-instance-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82846_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83968_| (##structure gx#syntax-quote::t '&interface-info-interface-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82847_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83969_| (##structure gx#syntax-quote::t '&interface-info-instance-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82848_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83970_| (##structure gx#syntax-quote::t '&interface-info-instance-try-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82849_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83971_| (##structure gx#syntax-quote::t '&interface-info-instance-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82850_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83972_| (##structure gx#syntax-quote::t '&interface-info-instance-satisfies-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82851_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83973_| (##structure gx#syntax-quote::t '&interface-info-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82852_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g83974_| (##structure gx#syntax-quote::t '&interface-info-unchecked-implementation-methods-set! @@ -330,7 +330,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/contract~InterfaceInfo[:0:]#interface-info| - (let ((__obj82715 + (let ((__obj83837 (let () (declare (not safe)) (##structure @@ -359,18 +359,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82715 + __obj83837 'gerbil/core/contract~InterfaceInfo#interface-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82715 'interface-info '2 '#f '#f)) + (##unchecked-structure-set! __obj83837 'interface-info '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82715 + __obj83837 '(name interface-mixin interface-methods instance-type @@ -386,138 +386,138 @@ '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82715 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj83837 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82715 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj83837 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82715 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj83837 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82715 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj83837 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82715 '#f '11 '#f '#f)) - (let ((__tmp82799 |gerbil/core/contract~InterfaceInfo[1]#_g82800_|)) + (##unchecked-structure-set! __obj83837 '#f '11 '#f '#f)) + (let ((__tmp83921 |gerbil/core/contract~InterfaceInfo[1]#_g83922_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82715 __tmp82799 '12 '#f '#f)) - (let ((__tmp82801 |gerbil/core/contract~InterfaceInfo[1]#_g82802_|)) + (##unchecked-structure-set! __obj83837 __tmp83921 '12 '#f '#f)) + (let ((__tmp83923 |gerbil/core/contract~InterfaceInfo[1]#_g83924_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82715 __tmp82801 '13 '#f '#f)) - (let ((__tmp82803 |gerbil/core/contract~InterfaceInfo[1]#_g82804_|)) + (##unchecked-structure-set! __obj83837 __tmp83923 '13 '#f '#f)) + (let ((__tmp83925 |gerbil/core/contract~InterfaceInfo[1]#_g83926_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82715 __tmp82803 '14 '#f '#f)) - (let ((__tmp82805 + (##unchecked-structure-set! __obj83837 __tmp83925 '14 '#f '#f)) + (let ((__tmp83927 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g82806_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83928_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g82807_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83929_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82808_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83930_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g82809_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83931_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g82810_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83932_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82811_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83933_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82812_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83934_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g82813_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83935_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g82814_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83936_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82815_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83937_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82816_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83938_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj82715 __tmp82805 '15 '#f '#f)) - (let ((__tmp82817 + (##unchecked-structure-set! __obj83837 __tmp83927 '15 '#f '#f)) + (let ((__tmp83939 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g82818_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83940_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g82819_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83941_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82820_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83942_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g82821_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83943_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g82822_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83944_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82823_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83945_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82824_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83946_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g82825_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83947_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g82826_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83948_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82827_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83949_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82828_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83950_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj82715 __tmp82817 '16 '#f '#f)) - (let ((__tmp82829 + (##unchecked-structure-set! __obj83837 __tmp83939 '16 '#f '#f)) + (let ((__tmp83951 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g82830_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83952_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g82831_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83953_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82832_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83954_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g82833_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83955_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g82834_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83956_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82835_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83957_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82836_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83958_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g82837_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83959_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g82838_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83960_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82839_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83961_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82840_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83962_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj82715 __tmp82829 '17 '#f '#f)) - (let ((__tmp82841 + (##unchecked-structure-set! __obj83837 __tmp83951 '17 '#f '#f)) + (let ((__tmp83963 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g82842_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83964_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g82843_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83965_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82844_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83966_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g82845_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83967_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g82846_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83968_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82847_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83969_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82848_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83970_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g82849_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83971_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g82850_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83972_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82851_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83973_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82852_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83974_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj82715 __tmp82841 '18 '#f '#f)) - __obj82715))) + (##unchecked-structure-set! __obj83837 __tmp83963 '18 '#f '#f)) + __obj83837))) diff --git a/src/bootstrap/gerbil/core/contract~2.scm b/src/bootstrap/gerbil/core/contract~2.scm index 92c19d25d..6913a7d15 100644 --- a/src/bootstrap/gerbil/core/contract~2.scm +++ b/src/bootstrap/gerbil/core/contract~2.scm @@ -84,20 +84,20 @@ _%t45040%_)) (_%loop45037%_ (gx#syntax-local-value - (let ((__obj82723 _%t45040%_)) + (let ((__obj83845 _%t45040%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82723 + __obj83845 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82723 + __obj83845 '1 '#f '#f)) - (unchecked-slot-ref __obj82723 'identifier))) + (unchecked-slot-ref __obj83845 'identifier))) false)) (if (not _%t45040%_) (gx#raise-syntax-error @@ -134,21 +134,21 @@ |gerbil/core/contract~TypeReference[1]#type-reference::t| _%t45018%_)) (let ((_%id45026%_ - (let ((__obj82724 _%t45018%_)) + (let ((__obj83846 _%t45018%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82724 + __obj83846 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82724 + __obj83846 '1 '#f '#f)) (unchecked-slot-ref - __obj82724 + __obj83846 'identifier))))) (_%loop45013%_ _%id45026%_ @@ -176,31 +176,31 @@ (class-instance? gerbil/core/mop~MOP-2#class-type-info::t _%t45000%_)) - (let ((__obj82726 _%t45000%_)) + (let ((__obj83848 _%t45000%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82726 + __obj83848 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82726 '12 '#f '#f)) - (unchecked-slot-ref __obj82726 'type-descriptor))) + (##unchecked-structure-ref __obj83848 '12 '#f '#f)) + (unchecked-slot-ref __obj83848 'type-descriptor))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t _%t45000%_)) - (let ((__obj82725 _%t45000%_)) + (let ((__obj83847 _%t45000%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82725 + __obj83847 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82725 '4 '#f '#f)) - (unchecked-slot-ref __obj82725 'instance-type))) + (##unchecked-structure-ref __obj83847 '4 '#f '#f)) + (unchecked-slot-ref __obj83847 'instance-type))) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" diff --git a/src/bootstrap/gerbil/core/contract~3.scm b/src/bootstrap/gerbil/core/contract~3.scm index 04eeb69c2..e5d7e0df3 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]#_g82854_| + (define |gerbil/core/contract~TypeReference[2]#_g83976_| (##structure gx#syntax-quote::t 'type-reference::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g82856_| + (define |gerbil/core/contract~TypeReference[2]#_g83978_| (##structure gx#syntax-quote::t 'make-type-reference #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g82858_| + (define |gerbil/core/contract~TypeReference[2]#_g83980_| (##structure gx#syntax-quote::t 'type-reference? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g82860_| + (define |gerbil/core/contract~TypeReference[2]#_g83982_| (##structure gx#syntax-quote::t 'type-reference-identifier #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g82862_| + (define |gerbil/core/contract~TypeReference[2]#_g83984_| (##structure gx#syntax-quote::t 'type-reference-identifier-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g82864_| + (define |gerbil/core/contract~TypeReference[2]#_g83986_| (##structure gx#syntax-quote::t '&type-reference-identifier #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g82866_| + (define |gerbil/core/contract~TypeReference[2]#_g83988_| (##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 ((__obj82722 + (let ((__obj83844 (let () (declare (not safe)) (##structure @@ -79,63 +79,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82722 + __obj83844 'gerbil/core/contract~TypeReference#type-reference::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82722 'type-reference '2 '#f '#f)) + (##unchecked-structure-set! __obj83844 'type-reference '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82722 '(identifier) '4 '#f '#f)) + (##unchecked-structure-set! __obj83844 '(identifier) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82722 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj83844 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82722 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj83844 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82722 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj83844 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82722 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj83844 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82722 '#f '11 '#f '#f)) - (let ((__tmp82853 |gerbil/core/contract~TypeReference[2]#_g82854_|)) + (##unchecked-structure-set! __obj83844 '#f '11 '#f '#f)) + (let ((__tmp83975 |gerbil/core/contract~TypeReference[2]#_g83976_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82722 __tmp82853 '12 '#f '#f)) - (let ((__tmp82855 |gerbil/core/contract~TypeReference[2]#_g82856_|)) + (##unchecked-structure-set! __obj83844 __tmp83975 '12 '#f '#f)) + (let ((__tmp83977 |gerbil/core/contract~TypeReference[2]#_g83978_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82722 __tmp82855 '13 '#f '#f)) - (let ((__tmp82857 |gerbil/core/contract~TypeReference[2]#_g82858_|)) + (##unchecked-structure-set! __obj83844 __tmp83977 '13 '#f '#f)) + (let ((__tmp83979 |gerbil/core/contract~TypeReference[2]#_g83980_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82722 __tmp82857 '14 '#f '#f)) - (let ((__tmp82859 + (##unchecked-structure-set! __obj83844 __tmp83979 '14 '#f '#f)) + (let ((__tmp83981 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g82860_|) + |gerbil/core/contract~TypeReference[2]#_g83982_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj82722 __tmp82859 '15 '#f '#f)) - (let ((__tmp82861 + (##unchecked-structure-set! __obj83844 __tmp83981 '15 '#f '#f)) + (let ((__tmp83983 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g82862_|) + |gerbil/core/contract~TypeReference[2]#_g83984_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj82722 __tmp82861 '16 '#f '#f)) - (let ((__tmp82863 + (##unchecked-structure-set! __obj83844 __tmp83983 '16 '#f '#f)) + (let ((__tmp83985 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g82864_|) + |gerbil/core/contract~TypeReference[2]#_g83986_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj82722 __tmp82863 '17 '#f '#f)) - (let ((__tmp82865 + (##unchecked-structure-set! __obj83844 __tmp83985 '17 '#f '#f)) + (let ((__tmp83987 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g82866_|) + |gerbil/core/contract~TypeReference[2]#_g83988_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj82722 __tmp82865 '18 '#f '#f)) - __obj82722))) + (##unchecked-structure-set! __obj83844 __tmp83987 '18 '#f '#f)) + __obj83844))) diff --git a/src/bootstrap/gerbil/core/contract~4.scm b/src/bootstrap/gerbil/core/contract~4.scm index 7b0cb8205..75eceba85 100644 --- a/src/bootstrap/gerbil/core/contract~4.scm +++ b/src/bootstrap/gerbil/core/contract~4.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypeCast[1]#_g82869_| + (define |gerbil/core/contract~TypeCast[1]#_g83991_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~TypeCast[:0:]#:| @@ -98,25 +98,25 @@ _%tl4524945279%_) ((lambda (_%L45282%_ _%L45284%_) - (if (let ((__tmp82867 - (let ((__obj82728 + (if (let ((__tmp83989 + (let ((__obj83850 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%meta45235%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82728 + __obj83850 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82728 + __obj83850 '1 '#f '#f)) - (unchecked-slot-ref __obj82728 'id))))) + (unchecked-slot-ref __obj83850 'id))))) (declare (not safe)) - (##memq __tmp82867 '(t void))) + (##memq __tmp83989 '(t void))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) (cons _%L45284%_ '())) @@ -153,37 +153,37 @@ (_%g4524045255%_ _%g4524145259%_)))) (_%g4524045255%_ _%g4524145259%_))))) (_%g4523945302%_ - (list (let ((__obj82729 _%meta45235%_)) + (list (let ((__obj83851 _%meta45235%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82729 + __obj83851 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82729 + __obj83851 '12 '#f '#f)) (unchecked-slot-ref - __obj82729 + __obj83851 'type-descriptor))) - (let ((__obj82730 _%meta45235%_)) + (let ((__obj83852 _%meta45235%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82730 + __obj83852 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82730 + __obj83852 '14 '#f '#f)) (unchecked-slot-ref - __obj82730 + __obj83852 'predicate)))))) (if (let () (declare (not safe)) @@ -244,21 +244,21 @@ _%g4530945327%_)))) (_%g4530845323%_ _%g4530945327%_))))) (_%g4530745368%_ - (list (let ((__obj82727 _%meta45235%_)) + (list (let ((__obj83849 _%meta45235%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82727 + __obj83849 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82727 + __obj83849 '4 '#f '#f)) (unchecked-slot-ref - __obj82727 + __obj83849 'instance-type))) (let () (declare (not safe)) @@ -376,25 +376,25 @@ _%tl4546845498%_) ((lambda (_%L45501%_ _%L45503%_) - (if (let ((__tmp82868 - (let ((__obj82732 + (if (let ((__tmp83990 + (let ((__obj83854 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%meta45454%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82732 + __obj83854 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82732 + __obj83854 '1 '#f '#f)) - (unchecked-slot-ref __obj82732 'id))))) + (unchecked-slot-ref __obj83854 'id))))) (declare (not safe)) - (##memq __tmp82868 '(t void))) + (##memq __tmp83990 '(t void))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) (cons _%L45503%_ '())) @@ -446,37 +446,37 @@ (_%g4545945474%_ _%g4546045478%_)))) (_%g4545945474%_ _%g4546045478%_))))) (_%g4545845521%_ - (list (let ((__obj82733 _%meta45454%_)) + (list (let ((__obj83855 _%meta45454%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82733 + __obj83855 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82733 + __obj83855 '12 '#f '#f)) (unchecked-slot-ref - __obj82733 + __obj83855 'type-descriptor))) - (let ((__obj82734 _%meta45454%_)) + (let ((__obj83856 _%meta45454%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82734 + __obj83856 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82734 + __obj83856 '14 '#f '#f)) (unchecked-slot-ref - __obj82734 + __obj83856 'predicate)))))) (if (let () (declare (not safe)) @@ -551,21 +551,21 @@ _%g4552845546%_)))) (_%g4552745542%_ _%g4552845546%_))))) (_%g4552645587%_ - (list (let ((__obj82731 _%meta45454%_)) + (list (let ((__obj83853 _%meta45454%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82731 + __obj83853 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82731 + __obj83853 '4 '#f '#f)) (unchecked-slot-ref - __obj82731 + __obj83853 'instance-type))) (let () (declare (not safe)) @@ -668,14 +668,14 @@ (_%g4559945704%_ _%stx45597%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:~| (lambda (_%$stx45708%_) - (let* ((_%__stx7738677387%_ _%$stx45708%_) + (let* ((_%__stx7837878379%_ _%$stx45708%_) (_%g4571345749%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7738677387%_)))) - (let ((_%__kont7738977390%_ + _%__stx7837878379%_)))) + (let ((_%__kont7838178382%_ (lambda (_%L45867%_ _%L45869%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) @@ -700,14 +700,14 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7739177392%_ + (_%__kont7838378384%_ (lambda (_%L45806%_ _%L45808%_ _%L45809%_) (cons (gx#datum->syntax '#f ':-) (cons (cons (gx#datum->syntax '#f ':~) (cons _%L45809%_ (cons _%L45808%_ '()))) (cons _%L45806%_ '())))))) - (if (gx#stx-pair? _%__stx7738677387%_) - (let ((_%e4571745837%_ (gx#syntax-e _%__stx7738677387%_))) + (if (gx#stx-pair? _%__stx7837878379%_) + (let ((_%e4571745837%_ (gx#syntax-e _%__stx7837878379%_))) (let ((_%tl4571945844%_ (let () (declare (not safe)) (##cdr _%e4571745837%_))) (_%hd4571845841%_ @@ -736,7 +736,7 @@ (declare (not safe)) (##car _%e4572345857%_)))) (if (gx#stx-null? _%tl4572545864%_) - (_%__kont7738977390%_ + (_%__kont7838178382%_ _%hd4572445861%_ _%hd4572145851%_) (if (gx#stx-pair? _%tl4572545864%_) @@ -754,7 +754,7 @@ (if (gx#identifier? _%hd4573945790%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypeCast[1]#_g82869_| + |gerbil/core/contract~TypeCast[1]#_g83991_| _%hd4573945790%_) (if (gx#stx-pair? _%tl4574045793%_) @@ -770,7 +770,7 @@ (declare (not safe)) (##car _%e4574145796%_)))) (if (gx#stx-null? _%tl4574345803%_) - (_%__kont7739177392%_ + (_%__kont7838378384%_ _%hd4574245800%_ _%hd4572445861%_ _%hd4572145851%_) diff --git a/src/bootstrap/gerbil/core/contract~5.scm b/src/bootstrap/gerbil/core/contract~5.scm index 4151d6a2e..159789b7b 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]#_g82871_| + (define |gerbil/core/contract~TypeEnv[1]#_g83993_| (##structure gx#syntax-quote::t 'type-env::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82873_| + (define |gerbil/core/contract~TypeEnv[1]#_g83995_| (##structure gx#syntax-quote::t 'make-type-env #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82875_| + (define |gerbil/core/contract~TypeEnv[1]#_g83997_| (##structure gx#syntax-quote::t 'type-env? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82877_| + (define |gerbil/core/contract~TypeEnv[1]#_g83999_| (##structure gx#syntax-quote::t 'type-env-var #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82878_| + (define |gerbil/core/contract~TypeEnv[1]#_g84000_| (##structure gx#syntax-quote::t 'type-env-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82879_| + (define |gerbil/core/contract~TypeEnv[1]#_g84001_| (##structure gx#syntax-quote::t 'type-env-checked? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82880_| + (define |gerbil/core/contract~TypeEnv[1]#_g84002_| (##structure gx#syntax-quote::t 'type-env-super #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82882_| + (define |gerbil/core/contract~TypeEnv[1]#_g84004_| (##structure gx#syntax-quote::t 'type-env-var-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82883_| + (define |gerbil/core/contract~TypeEnv[1]#_g84005_| (##structure gx#syntax-quote::t 'type-env-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82884_| + (define |gerbil/core/contract~TypeEnv[1]#_g84006_| (##structure gx#syntax-quote::t 'type-env-checked?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82885_| + (define |gerbil/core/contract~TypeEnv[1]#_g84007_| (##structure gx#syntax-quote::t 'type-env-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82887_| + (define |gerbil/core/contract~TypeEnv[1]#_g84009_| (##structure gx#syntax-quote::t '&type-env-var #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82888_| + (define |gerbil/core/contract~TypeEnv[1]#_g84010_| (##structure gx#syntax-quote::t '&type-env-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82889_| + (define |gerbil/core/contract~TypeEnv[1]#_g84011_| (##structure gx#syntax-quote::t '&type-env-checked? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82890_| + (define |gerbil/core/contract~TypeEnv[1]#_g84012_| (##structure gx#syntax-quote::t '&type-env-super #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82892_| + (define |gerbil/core/contract~TypeEnv[1]#_g84014_| (##structure gx#syntax-quote::t '&type-env-var-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82893_| + (define |gerbil/core/contract~TypeEnv[1]#_g84015_| (##structure gx#syntax-quote::t '&type-env-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82894_| + (define |gerbil/core/contract~TypeEnv[1]#_g84016_| (##structure gx#syntax-quote::t '&type-env-checked?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82895_| + (define |gerbil/core/contract~TypeEnv[1]#_g84017_| (##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 ((__obj82735 + (let ((__obj83857 (let () (declare (not safe)) (##structure @@ -163,88 +163,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82735 + __obj83857 'gerbil/core/contract~TypeEnv#type-env::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82735 'type-env '2 '#f '#f)) + (##unchecked-structure-set! __obj83857 'type-env '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82735 + __obj83857 '(var type checked? super) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82735 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj83857 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82735 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj83857 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82735 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj83857 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82735 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj83857 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82735 '#f '11 '#f '#f)) - (let ((__tmp82870 |gerbil/core/contract~TypeEnv[1]#_g82871_|)) + (##unchecked-structure-set! __obj83857 '#f '11 '#f '#f)) + (let ((__tmp83992 |gerbil/core/contract~TypeEnv[1]#_g83993_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82735 __tmp82870 '12 '#f '#f)) - (let ((__tmp82872 |gerbil/core/contract~TypeEnv[1]#_g82873_|)) + (##unchecked-structure-set! __obj83857 __tmp83992 '12 '#f '#f)) + (let ((__tmp83994 |gerbil/core/contract~TypeEnv[1]#_g83995_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82735 __tmp82872 '13 '#f '#f)) - (let ((__tmp82874 |gerbil/core/contract~TypeEnv[1]#_g82875_|)) + (##unchecked-structure-set! __obj83857 __tmp83994 '13 '#f '#f)) + (let ((__tmp83996 |gerbil/core/contract~TypeEnv[1]#_g83997_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82735 __tmp82874 '14 '#f '#f)) - (let ((__tmp82876 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g82877_|) + (##unchecked-structure-set! __obj83857 __tmp83996 '14 '#f '#f)) + (let ((__tmp83998 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g83999_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g82878_|) + |gerbil/core/contract~TypeEnv[1]#_g84000_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g82879_|) + |gerbil/core/contract~TypeEnv[1]#_g84001_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g82880_|) + |gerbil/core/contract~TypeEnv[1]#_g84002_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj82735 __tmp82876 '15 '#f '#f)) - (let ((__tmp82881 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g82882_|) + (##unchecked-structure-set! __obj83857 __tmp83998 '15 '#f '#f)) + (let ((__tmp84003 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84004_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g82883_|) + |gerbil/core/contract~TypeEnv[1]#_g84005_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g82884_|) + |gerbil/core/contract~TypeEnv[1]#_g84006_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g82885_|) + |gerbil/core/contract~TypeEnv[1]#_g84007_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj82735 __tmp82881 '16 '#f '#f)) - (let ((__tmp82886 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g82887_|) + (##unchecked-structure-set! __obj83857 __tmp84003 '16 '#f '#f)) + (let ((__tmp84008 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84009_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g82888_|) + |gerbil/core/contract~TypeEnv[1]#_g84010_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g82889_|) + |gerbil/core/contract~TypeEnv[1]#_g84011_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g82890_|) + |gerbil/core/contract~TypeEnv[1]#_g84012_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj82735 __tmp82886 '17 '#f '#f)) - (let ((__tmp82891 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g82892_|) + (##unchecked-structure-set! __obj83857 __tmp84008 '17 '#f '#f)) + (let ((__tmp84013 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84014_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g82893_|) + |gerbil/core/contract~TypeEnv[1]#_g84015_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g82894_|) + |gerbil/core/contract~TypeEnv[1]#_g84016_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g82895_|) + |gerbil/core/contract~TypeEnv[1]#_g84017_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj82735 __tmp82891 '18 '#f '#f)) - __obj82735))) + (##unchecked-structure-set! __obj83857 __tmp84013 '18 '#f '#f)) + __obj83857))) diff --git a/src/bootstrap/gerbil/core/contract~6.scm b/src/bootstrap/gerbil/core/contract~6.scm index 85b90ec3a..5c36ae108 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]#_g82896_| + (define |gerbil/core/contract~Using[1]#_g84018_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82897_| + (define |gerbil/core/contract~Using[1]#_g84019_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82898_| + (define |gerbil/core/contract~Using[1]#_g84020_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82901_| + (define |gerbil/core/contract~Using[1]#_g84023_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82902_| + (define |gerbil/core/contract~Using[1]#_g84024_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82905_| + (define |gerbil/core/contract~Using[1]#_g84027_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82906_| + (define |gerbil/core/contract~Using[1]#_g84028_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82907_| + (define |gerbil/core/contract~Using[1]#_g84029_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82908_| + (define |gerbil/core/contract~Using[1]#_g84030_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82912_| + (define |gerbil/core/contract~Using[1]#_g84034_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82913_| + (define |gerbil/core/contract~Using[1]#_g84035_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82914_| + (define |gerbil/core/contract~Using[1]#_g84036_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82915_| + (define |gerbil/core/contract~Using[1]#_g84037_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82919_| + (define |gerbil/core/contract~Using[1]#_g84041_| (##structure gx#syntax-quote::t '%%ref-dotted @@ -36,14 +36,14 @@ (begin (define |gerbil/core/contract~Using[:0:]#using| (lambda (_%stx46329%_) - (let* ((_%__stx7745277453%_ _%stx46329%_) + (let* ((_%__stx7844478445%_ _%stx46329%_) (_%g4633846547%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7745277453%_)))) - (let ((_%__kont7745577456%_ + _%__stx7844478445%_)))) + (let ((_%__kont7844778448%_ (lambda (_%L47453%_ _%L47455%_ _%L47456%_ @@ -66,7 +66,7 @@ _%L47453%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7745977460%_ + (_%__kont7845178452%_ (lambda (_%L47297%_ _%L47299%_ _%L47300%_ @@ -97,7 +97,7 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7746377464%_ + (_%__kont7845578456%_ (lambda (_%L47114%_ _%L47116%_ _%L47117%_ _%L47118%_) (let ((_%meta47155%_ (let () @@ -141,7 +141,7 @@ _%stx46329%_ _%L47116%_ _%meta47155%_)))))) - (_%__kont7746777468%_ + (_%__kont7845978460%_ (lambda (_%L46992%_ _%L46994%_ _%L46995%_) (cons (gx#datum->syntax '#f 'with-contract) (cons (cons _%L46995%_ @@ -151,7 +151,7 @@ (cons _%g4701847021%_ _%g4701947024%_)) '() _%L46992%_))))) - (_%__kont7747177472%_ + (_%__kont7846378464%_ (lambda (_%L46850%_ _%L46852%_ _%L46853%_ @@ -176,7 +176,7 @@ _%L46850%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7747577476%_ + (_%__kont7846778468%_ (lambda (_%L46708%_ _%L46710%_ _%L46711%_ _%L46712%_) (cons (gx#datum->syntax '#f 'using) (cons (cons _%L46712%_ _%L46711%_) @@ -190,7 +190,7 @@ _%L46708%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7747977480%_ + (_%__kont7847178472%_ (lambda (_%L46604%_) (cons (gx#datum->syntax '#f 'let) (cons '() @@ -198,14 +198,14 @@ (cons _%g4662246625%_ _%g4662346628%_)) '() _%L46604%_)))))) - (let* ((_%__match7778577786%_ + (let* ((_%__match7877778778%_ (lambda (_%e4652746554%_ _%hd4652846558%_ _%tl4652946561%_ _%e4653046564%_ _%hd4653146568%_ _%tl4653246571%_ - _%__splice7748177482%_ + _%__splice7847378474%_ _%target4653346574%_ _%tl4653546577%_) (letrec ((_%loop4653646580%_ @@ -227,10 +227,10 @@ _%body4654046587%_)))) (let ((_%body4654146600%_ (reverse _%body4654046587%_))) - (_%__kont7747977480%_ + (_%__kont7847178472%_ _%body4654146600%_)))))) (_%loop4653646580%_ _%target4653346574%_ '())))) - (_%__match7776377764%_ + (_%__match7875578756%_ (lambda (_%e4650546638%_ _%hd4650646642%_ _%tl4650746645%_ @@ -243,7 +243,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (letrec ((_%loop4652046684%_ @@ -270,7 +270,7 @@ (_%L46711%_ _%tl4651646675%_) (_%L46712%_ _%hd4651546672%_)) (if (gx#identifier? _%L46712%_) - (_%__kont7747577476%_ + (_%__kont7846778468%_ _%L46708%_ _%L46710%_ _%L46711%_ @@ -279,7 +279,7 @@ (declare (not safe)) (_%g4633846547%_))))))))) (_%loop4652046684%_ _%target4651746678%_ '())))) - (_%__match7774977750%_ + (_%__match7874178742%_ (lambda (_%e4650546638%_ _%hd4650646642%_ _%tl4650746645%_ @@ -301,7 +301,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4651046655%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4651046655%_ '0))) @@ -309,16 +309,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4650546638%_ _%hd4650646642%_ _%tl4650746645%_ @@ -331,7 +331,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -341,7 +341,7 @@ (declare (not safe)) (_%g4633846547%_))))) (let () (declare (not safe)) (_%g4633846547%_))))) - (_%__match7773177732%_ + (_%__match7872378724%_ (lambda (_%e4647146750%_ _%hd4647246754%_ _%tl4647346757%_ @@ -363,7 +363,7 @@ _%e4648946810%_ _%hd4649046814%_ _%tl4649146817%_ - _%__splice7747377474%_ + _%__splice7846578466%_ _%target4649246820%_ _%tl4649446823%_) (letrec ((_%loop4649546826%_ @@ -413,13 +413,13 @@ (gx#datum->syntax '#f ':?)))) - (_%__kont7747177472%_ + (_%__kont7846378464%_ _%L46850%_ _%L46852%_ _%L46853%_ _%L46854%_ _%L46855%_) - (_%__match7774977750%_ + (_%__match7874178742%_ _%e4647146750%_ _%hd4647246754%_ _%tl4647346757%_ @@ -430,7 +430,7 @@ _%hd4647846774%_ _%tl4647946777%_)))))))) (_%loop4649546826%_ _%target4649246820%_ '())))) - (_%__match7767577676%_ + (_%__match7866778668%_ (lambda (_%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -446,7 +446,7 @@ _%e4645446952%_ _%hd4645546956%_ _%tl4645646959%_ - _%__splice7746977470%_ + _%__splice7846178462%_ _%target4645746962%_ _%tl4645946965%_) (letrec ((_%loop4646046968%_ @@ -472,11 +472,11 @@ (_%L46994%_ _%hd4645546956%_) (_%L46995%_ _%hd4644946936%_)) (if (gx#identifier? _%L46995%_) - (_%__kont7746777468%_ + (_%__kont7845978460%_ _%L46992%_ _%L46994%_ _%L46995%_) - (_%__match7774977750%_ + (_%__match7874178742%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -487,7 +487,7 @@ _%hd4644946936%_ _%tl4645046939%_)))))))) (_%loop4646046968%_ _%target4645746962%_ '())))) - (_%__match7765577656%_ + (_%__match7864778648%_ (lambda (_%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -502,7 +502,7 @@ _%tl4645346949%_) (if (gx#identifier? _%hd4645246946%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82896_| + |gerbil/core/contract~Using[1]#_g84018_| _%hd4645246946%_) (if (gx#stx-pair? _%tl4645346949%_) (let ((_%e4645446952%_ @@ -518,7 +518,7 @@ (if (gx#stx-null? _%tl4645646959%_) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7746977470%_ + (let ((_%__splice7846178462%_ (gx#syntax-split-splice _%tl4644746929%_ '0))) @@ -526,17 +526,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7746977470%_ + _%__splice7846178462%_ '1))) (_%target4645746962%_ (let () (declare (not safe)) (##vector-ref - _%__splice7746977470%_ + _%__splice7846178462%_ '0)))) (if (gx#stx-null? _%tl4645946965%_) - (_%__match7767577676%_ + (_%__match7866778668%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -552,7 +552,7 @@ _%e4645446952%_ _%hd4645546956%_ _%tl4645646959%_ - _%__splice7746977470%_ + _%__splice7846178462%_ _%target4645746962%_ _%tl4645946965%_) (if (gx#stx-pair? @@ -618,20 +618,20 @@ (let () (declare (not safe)) (##car _%e4648946810%_)))) (if (gx#stx-null? _%tl4649146817%_) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7747377474%_ + (let ((_%__splice7846578466%_ (gx#syntax-split-splice _%tl4644746929%_ '0))) (let ((_%tl4649446823%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747377474%_ '1))) + (##vector-ref _%__splice7846578466%_ '1))) (_%target4649246820%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747377474%_ + _%__splice7846578466%_ '0)))) (if (gx#stx-null? _%tl4649446823%_) - (_%__match7773177732%_ + (_%__match7872378724%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -653,7 +653,7 @@ _%e4648946810%_ _%hd4649046814%_ _%tl4649146817%_ - _%__splice7747377474%_ + _%__splice7846578466%_ _%target4649246820%_ _%tl4649446823%_) (if (gx#stx-pair? _%hd4644946936%_) @@ -700,7 +700,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4644746929%_ '0))) @@ -708,16 +708,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -730,7 +730,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -751,20 +751,20 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4644746929%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -777,7 +777,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -803,19 +803,19 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4644746929%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '0)))) + (##vector-ref _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -828,7 +828,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -850,7 +850,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4644746929%_ '0))) @@ -858,17 +858,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -881,7 +881,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -905,7 +905,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4644746929%_ '0))) @@ -913,17 +913,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -936,7 +936,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -960,7 +960,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4644746929%_ '0))) @@ -968,16 +968,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -990,7 +990,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -1002,7 +1002,7 @@ (let () (declare (not safe)) (_%g4633846547%_)))))) - (_%__match7763177632%_ + (_%__match7862378624%_ (lambda (_%e4641547034%_ _%hd4641647038%_ _%tl4641747041%_ @@ -1018,7 +1018,7 @@ _%e4642747074%_ _%hd4642847078%_ _%tl4642947081%_ - _%__splice7746577466%_ + _%__splice7845778458%_ _%target4643047084%_ _%tl4643247087%_) (letrec ((_%loop4643347090%_ @@ -1067,12 +1067,12 @@ (gx#datum->syntax '#f ':?)))) - (_%__kont7746377464%_ + (_%__kont7845578456%_ _%L47114%_ _%L47116%_ _%L47117%_ _%L47118%_) - (_%__match7765577656%_ + (_%__match7864778648%_ _%e4641547034%_ _%hd4641647038%_ _%tl4641747041%_ @@ -1086,7 +1086,7 @@ _%hd4642547068%_ _%tl4642647071%_)))))))) (_%loop4643347090%_ _%target4643047084%_ '())))) - (_%__match7759177592%_ + (_%__match7858378584%_ (lambda (_%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1111,7 +1111,7 @@ _%e4639947257%_ _%hd4640047261%_ _%tl4640147264%_ - _%__splice7746177462%_ + _%__splice7845378454%_ _%target4640247267%_ _%tl4640447270%_) (letrec ((_%loop4640547273%_ @@ -1162,14 +1162,14 @@ (gx#datum->syntax '#f ':?)))) - (_%__kont7745977460%_ + (_%__kont7845178452%_ _%L47297%_ _%L47299%_ _%L47300%_ _%L47301%_ _%L47302%_ _%L47303%_) - (_%__match7765577656%_ + (_%__match7864778648%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1183,7 +1183,7 @@ _%hd4638847221%_ _%tl4638947224%_)))))))) (_%loop4640547273%_ _%target4640247267%_ '())))) - (_%__match7755977560%_ + (_%__match7855178552%_ (lambda (_%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1201,7 +1201,7 @@ _%tl4639247234%_) (if (gx#identifier? _%hd4639147231%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82897_| + |gerbil/core/contract~Using[1]#_g84019_| _%hd4639147231%_) (if (gx#stx-pair? _%tl4639247234%_) (let ((_%e4639347237%_ @@ -1245,19 +1245,19 @@ _%tl4640147264%_) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7746177462%_ + (let ((_%__splice7845378454%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4640447270%_ (let () (declare (not safe)) - (##vector-ref _%__splice7746177462%_ '1))) + (##vector-ref _%__splice7845378454%_ '1))) (_%target4640247267%_ (let () (declare (not safe)) - (##vector-ref _%__splice7746177462%_ '0)))) + (##vector-ref _%__splice7845378454%_ '0)))) (if (gx#stx-null? _%tl4640447270%_) - (_%__match7759177592%_ + (_%__match7858378584%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1282,7 +1282,7 @@ _%e4639947257%_ _%hd4640047261%_ _%tl4640147264%_ - _%__splice7746177462%_ + _%__splice7845378454%_ _%target4640247267%_ _%tl4640447270%_) (if (gx#stx-pair? _%hd4638547211%_) @@ -1326,7 +1326,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1334,16 +1334,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1356,7 +1356,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -1370,27 +1370,27 @@ (if (gx#identifier? _%hd4638847221%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82896_| + |gerbil/core/contract~Using[1]#_g84018_| _%hd4638847221%_) (if (gx#stx-null? _%tl4639847254%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%tl4638347204%_) - (let ((_%__splice7747377474%_ + (let ((_%__splice7846578466%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4649446823%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747377474%_ '1))) + (##vector-ref _%__splice7846578466%_ '1))) (_%target4649246820%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747377474%_ + _%__splice7846578466%_ '0)))) (if (gx#stx-null? _%tl4649446823%_) - (_%__match7773177732%_ + (_%__match7872378724%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1412,7 +1412,7 @@ _%e4639647247%_ _%hd4639747251%_ _%tl4639847254%_ - _%__splice7747377474%_ + _%__splice7846578466%_ _%target4649246820%_ _%tl4649446823%_) (if (gx#stx-pair? _%hd4638547211%_) @@ -1459,7 +1459,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1467,16 +1467,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1489,7 +1489,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -1510,7 +1510,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1518,16 +1518,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1540,7 +1540,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -1561,20 +1561,20 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1587,7 +1587,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -1610,7 +1610,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1618,13 +1618,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '0)))) + (##vector-ref _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1637,7 +1637,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -1648,7 +1648,7 @@ (_%g4633846547%_)))))) (if (gx#stx-null? _%tl4639247234%_) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7746577466%_ + (let ((_%__splice7845778458%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1656,17 +1656,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7746577466%_ + _%__splice7845778458%_ '1))) (_%target4643047084%_ (let () (declare (not safe)) (##vector-ref - _%__splice7746577466%_ + _%__splice7845778458%_ '0)))) (if (gx#stx-null? _%tl4643247087%_) - (_%__match7763177632%_ + (_%__match7862378624%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1682,7 +1682,7 @@ _%e4639047227%_ _%hd4639147231%_ _%tl4639247234%_ - _%__splice7746577466%_ + _%__splice7845778458%_ _%target4643047084%_ _%tl4643247087%_) (if (gx#stx-pair? @@ -1732,7 +1732,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1741,18 +1741,18 @@ (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1765,7 +1765,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -1780,7 +1780,7 @@ (_%g4633846547%_))))) (if (gx#stx-null? _%tl4639247234%_) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7746577466%_ + (let ((_%__splice7845778458%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1788,16 +1788,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7746577466%_ + _%__splice7845778458%_ '1))) (_%target4643047084%_ (let () (declare (not safe)) (##vector-ref - _%__splice7746577466%_ + _%__splice7845778458%_ '0)))) (if (gx#stx-null? _%tl4643247087%_) - (_%__match7763177632%_ + (_%__match7862378624%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1813,7 +1813,7 @@ _%e4639047227%_ _%hd4639147231%_ _%tl4639247234%_ - _%__splice7746577466%_ + _%__splice7845778458%_ _%target4643047084%_ _%tl4643247087%_) (if (gx#stx-pair? @@ -1857,7 +1857,7 @@ (_%g4633846547%_)))) (if (gx#identifier? _%hd4638847221%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82896_| + |gerbil/core/contract~Using[1]#_g84018_| _%hd4638847221%_) (if (gx#stx-pair? _%tl4639247234%_) (let ((_%e4648646800%_ @@ -1885,20 +1885,20 @@ (let () (declare (not safe)) (##car _%e4648946810%_)))) (if (gx#stx-null? _%tl4649146817%_) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747377474%_ + (let ((_%__splice7846578466%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4649446823%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747377474%_ '1))) + (##vector-ref _%__splice7846578466%_ '1))) (_%target4649246820%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747377474%_ + _%__splice7846578466%_ '0)))) (if (gx#stx-null? _%tl4649446823%_) - (_%__match7773177732%_ + (_%__match7872378724%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1920,7 +1920,7 @@ _%e4648946810%_ _%hd4649046814%_ _%tl4649146817%_ - _%__splice7747377474%_ + _%__splice7846578466%_ _%target4649246820%_ _%tl4649446823%_) (if (gx#stx-pair? _%hd4638547211%_) @@ -1967,7 +1967,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1975,16 +1975,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1997,7 +1997,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -2018,20 +2018,20 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2044,7 +2044,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -2070,19 +2070,19 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '0)))) + (##vector-ref _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2095,7 +2095,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -2118,7 +2118,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -2126,13 +2126,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '0)))) + (##vector-ref _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2145,7 +2145,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -2168,7 +2168,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -2177,18 +2177,18 @@ (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2201,7 +2201,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -2216,7 +2216,7 @@ (_%g4633846547%_)))))) (if (gx#stx-null? _%tl4639247234%_) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7746577466%_ + (let ((_%__splice7845778458%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -2224,16 +2224,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7746577466%_ + _%__splice7845778458%_ '1))) (_%target4643047084%_ (let () (declare (not safe)) (##vector-ref - _%__splice7746577466%_ + _%__splice7845778458%_ '0)))) (if (gx#stx-null? _%tl4643247087%_) - (_%__match7763177632%_ + (_%__match7862378624%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2249,7 +2249,7 @@ _%e4639047227%_ _%hd4639147231%_ _%tl4639247234%_ - _%__splice7746577466%_ + _%__splice7845778458%_ _%target4643047084%_ _%tl4643247087%_) (if (gx#stx-pair? _%hd4638547211%_) @@ -2289,7 +2289,7 @@ (_%g4633846547%_)))) (if (gx#identifier? _%hd4638847221%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82896_| + |gerbil/core/contract~Using[1]#_g84018_| _%hd4638847221%_) (if (gx#stx-pair? _%tl4639247234%_) (let ((_%e4648646800%_ @@ -2322,19 +2322,19 @@ _%tl4649146817%_) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747377474%_ + (let ((_%__splice7846578466%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4649446823%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747377474%_ '1))) + (##vector-ref _%__splice7846578466%_ '1))) (_%target4649246820%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747377474%_ '0)))) + (##vector-ref _%__splice7846578466%_ '0)))) (if (gx#stx-null? _%tl4649446823%_) - (_%__match7773177732%_ + (_%__match7872378724%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2356,7 +2356,7 @@ _%e4648946810%_ _%hd4649046814%_ _%tl4649146817%_ - _%__splice7747377474%_ + _%__splice7846578466%_ _%target4649246820%_ _%tl4649446823%_) (if (gx#stx-pair? _%hd4638547211%_) @@ -2400,7 +2400,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -2408,16 +2408,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2430,7 +2430,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -2454,18 +2454,18 @@ (_%hd4651546672%_ (let () (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '0)))) + (##vector-ref _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2478,7 +2478,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -2501,7 +2501,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -2509,13 +2509,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '0)))) + (##vector-ref _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2528,7 +2528,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -2551,7 +2551,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -2560,18 +2560,18 @@ (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2584,7 +2584,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -2610,7 +2610,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -2618,17 +2618,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2641,7 +2641,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -2653,7 +2653,7 @@ (let () (declare (not safe)) (_%g4633846547%_)))))))) - (_%__match7752977530%_ + (_%__match7852178522%_ (lambda (_%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -2672,7 +2672,7 @@ _%e4636047413%_ _%hd4636147417%_ _%tl4636247420%_ - _%__splice7745777458%_ + _%__splice7844978450%_ _%target4636347423%_ _%tl4636547426%_) (letrec ((_%loop4636647429%_ @@ -2726,13 +2726,13 @@ (gx#datum->syntax '#f ':?)))) - (_%__kont7745577456%_ + (_%__kont7844778448%_ _%L47453%_ _%L47455%_ _%L47456%_ _%L47457%_ _%L47458%_) - (_%__match7755977560%_ + (_%__match7855178552%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -2749,8 +2749,8 @@ _%hd4635847407%_ _%tl4635947410%_)))))))) (_%loop4636647429%_ _%target4636347423%_ '()))))) - (if (gx#stx-pair? _%__stx7745277453%_) - (let ((_%e4634547363%_ (gx#syntax-e _%__stx7745277453%_))) + (if (gx#stx-pair? _%__stx7844478445%_) + (let ((_%e4634547363%_ (gx#syntax-e _%__stx7844478445%_))) (let ((_%tl4634747370%_ (let () (declare (not safe)) @@ -2823,7 +2823,7 @@ (##car _%e4636047413%_)))) (if (gx#stx-null? _%tl4636247420%_) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7745777458%_ + (let ((_%__splice7844978450%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -2831,16 +2831,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7745777458%_ + _%__splice7844978450%_ '1))) (_%target4636347423%_ (let () (declare (not safe)) (##vector-ref - _%__splice7745777458%_ + _%__splice7844978450%_ '0)))) (if (gx#stx-null? _%tl4636547426%_) - (_%__match7752977530%_ + (_%__match7852178522%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -2859,7 +2859,7 @@ _%e4636047413%_ _%hd4636147417%_ _%tl4636247420%_ - _%__splice7745777458%_ + _%__splice7844978450%_ _%target4636347423%_ _%tl4636547426%_) (if (gx#stx-pair? _%hd4635247387%_) @@ -2899,7 +2899,7 @@ (_%g4633846547%_)))) (if (gx#identifier? _%hd4635847407%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82897_| + |gerbil/core/contract~Using[1]#_g84019_| _%hd4635847407%_) (if (gx#stx-pair? _%tl4636247420%_) (let ((_%e4639647247%_ @@ -2928,19 +2928,19 @@ _%tl4640147264%_) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7746177462%_ + (let ((_%__splice7845378454%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4640447270%_ (let () (declare (not safe)) - (##vector-ref _%__splice7746177462%_ '1))) + (##vector-ref _%__splice7845378454%_ '1))) (_%target4640247267%_ (let () (declare (not safe)) - (##vector-ref _%__splice7746177462%_ '0)))) + (##vector-ref _%__splice7845378454%_ '0)))) (if (gx#stx-null? _%tl4640447270%_) - (_%__match7759177592%_ + (_%__match7858378584%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -2965,7 +2965,7 @@ _%e4639947257%_ _%hd4640047261%_ _%tl4640147264%_ - _%__splice7746177462%_ + _%__splice7845378454%_ _%target4640247267%_ _%tl4640447270%_) (if (gx#stx-pair? _%hd4635247387%_) @@ -3008,20 +3008,20 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3034,7 +3034,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3046,25 +3046,25 @@ (if (gx#identifier? _%hd4635547397%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82896_| + |gerbil/core/contract~Using[1]#_g84018_| _%hd4635547397%_) (if (gx#stx-null? _%tl4639847254%_) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747377474%_ + (let ((_%__splice7846578466%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4649446823%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747377474%_ '1))) + (##vector-ref _%__splice7846578466%_ '1))) (_%target4649246820%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747377474%_ '0)))) + (##vector-ref _%__splice7846578466%_ '0)))) (if (gx#stx-null? _%tl4649446823%_) - (_%__match7773177732%_ + (_%__match7872378724%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3086,7 +3086,7 @@ _%e4639647247%_ _%hd4639747251%_ _%tl4639847254%_ - _%__splice7747377474%_ + _%__splice7846578466%_ _%target4649246820%_ _%tl4649446823%_) (if (gx#stx-pair? _%hd4635247387%_) @@ -3130,7 +3130,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3138,16 +3138,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3160,7 +3160,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3181,20 +3181,20 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3207,7 +3207,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3229,18 +3229,18 @@ (_%hd4651546672%_ (let () (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '0)))) + (##vector-ref _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3253,7 +3253,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3276,7 +3276,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3285,18 +3285,18 @@ (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3309,7 +3309,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3324,7 +3324,7 @@ (_%g4633846547%_)))) (if (gx#identifier? _%hd4635547397%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82896_| + |gerbil/core/contract~Using[1]#_g84018_| _%hd4635547397%_) (if (gx#stx-pair? _%tl4636247420%_) (let ((_%e4648946810%_ @@ -3342,19 +3342,19 @@ _%tl4649146817%_) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747377474%_ + (let ((_%__splice7846578466%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4649446823%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747377474%_ '1))) + (##vector-ref _%__splice7846578466%_ '1))) (_%target4649246820%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747377474%_ '0)))) + (##vector-ref _%__splice7846578466%_ '0)))) (if (gx#stx-null? _%tl4649446823%_) - (_%__match7773177732%_ + (_%__match7872378724%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3376,7 +3376,7 @@ _%e4648946810%_ _%hd4649046814%_ _%tl4649146817%_ - _%__splice7747377474%_ + _%__splice7846578466%_ _%target4649246820%_ _%tl4649446823%_) (if (gx#stx-pair? _%hd4635247387%_) @@ -3419,20 +3419,20 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3445,7 +3445,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3471,19 +3471,19 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '0)))) + (##vector-ref _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3496,7 +3496,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -3519,7 +3519,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3527,13 +3527,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '0)))) + (##vector-ref _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3546,7 +3546,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -3569,7 +3569,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3578,18 +3578,18 @@ (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3602,7 +3602,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3617,7 +3617,7 @@ (_%g4633846547%_))))) (if (gx#identifier? _%hd4635547397%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82896_| + |gerbil/core/contract~Using[1]#_g84018_| _%hd4635547397%_) (if (gx#stx-pair? _%tl4636247420%_) (let ((_%e4648946810%_ @@ -3635,7 +3635,7 @@ _%tl4649146817%_) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747377474%_ + (let ((_%__splice7846578466%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3643,13 +3643,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7747377474%_ '1))) + (##vector-ref _%__splice7846578466%_ '1))) (_%target4649246820%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747377474%_ '0)))) + (##vector-ref _%__splice7846578466%_ '0)))) (if (gx#stx-null? _%tl4649446823%_) - (_%__match7773177732%_ + (_%__match7872378724%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3671,7 +3671,7 @@ _%e4648946810%_ _%hd4649046814%_ _%tl4649146817%_ - _%__splice7747377474%_ + _%__splice7846578466%_ _%target4649246820%_ _%tl4649446823%_) (if (gx#stx-pair? _%hd4635247387%_) @@ -3713,18 +3713,18 @@ (_%hd4651546672%_ (let () (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '0)))) + (##vector-ref _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3737,7 +3737,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3760,7 +3760,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3768,13 +3768,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '0)))) + (##vector-ref _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3787,7 +3787,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -3810,7 +3810,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3819,18 +3819,18 @@ (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3843,7 +3843,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3869,7 +3869,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3877,17 +3877,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3900,7 +3900,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3914,20 +3914,20 @@ (_%g4633846547%_)))))))) (if (gx#stx-null? _%tl4635947410%_) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7746577466%_ + (let ((_%__splice7845778458%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4643247087%_ (let () (declare (not safe)) - (##vector-ref _%__splice7746577466%_ '1))) + (##vector-ref _%__splice7845778458%_ '1))) (_%target4643047084%_ (let () (declare (not safe)) (##vector-ref - _%__splice7746577466%_ + _%__splice7845778458%_ '0)))) (if (gx#stx-null? _%tl4643247087%_) - (_%__match7763177632%_ + (_%__match7862378624%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3943,7 +3943,7 @@ _%e4635747403%_ _%hd4635847407%_ _%tl4635947410%_ - _%__splice7746577466%_ + _%__splice7845778458%_ _%target4643047084%_ _%tl4643247087%_) (if (gx#stx-pair? _%hd4635247387%_) @@ -3990,7 +3990,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3998,16 +3998,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7747777478%_ + _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -4020,7 +4020,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -4044,18 +4044,18 @@ (_%hd4651546672%_ (let () (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '0)))) + (##vector-ref _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -4068,7 +4068,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -4091,7 +4091,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7747777478%_ + (let ((_%__splice7846978470%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -4099,13 +4099,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '1))) + (##vector-ref _%__splice7846978470%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7747777478%_ '0)))) + (##vector-ref _%__splice7846978470%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7776377764%_ + (_%__match7875578756%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -4118,7 +4118,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7747777478%_ + _%__splice7846978470%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -4129,7 +4129,7 @@ (_%g4633846547%_)))))) (if (gx#stx-null? _%hd4634947377%_) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7748177482%_ + (let ((_%__splice7847378474%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -4137,24 +4137,24 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7748177482%_ + _%__splice7847378474%_ '1))) (_%target4653346574%_ (let () (declare (not safe)) (##vector-ref - _%__splice7748177482%_ + _%__splice7847378474%_ '0)))) (if (gx#stx-null? _%tl4653546577%_) - (_%__match7778577786%_ + (_%__match7877778778%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ _%e4634847373%_ _%hd4634947377%_ _%tl4635047380%_ - _%__splice7748177482%_ + _%__splice7847378474%_ _%target4653346574%_ _%tl4653546577%_) (let () @@ -4225,7 +4225,7 @@ (if (gx#identifier? _%hd4754047600%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82898_| + |gerbil/core/contract~Using[1]#_g84020_| _%hd4754047600%_) (if (gx#stx-pair? _%tl4754147603%_) @@ -4242,30 +4242,30 @@ (##cdr _%e4754247606%_)))) (if (gx#stx-null? _%tl4754447613%_) (if (gx#stx-pair/null? _%tl4753547583%_) - (let ((_g82899_ + (let ((_g84021_ (gx#syntax-split-splice _%tl4753547583%_ '0))) (begin - (let ((_g82900_ + (let ((_g84022_ (let () (declare (not safe)) - (if (##values? _g82899_) - (##vector-length _g82899_) + (if (##values? _g84021_) + (##vector-length _g84021_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82900_ 2))) + (##fx= _g84022_ 2))) (error "Context expects 2 values" - _g82900_))) + _g84022_))) (let ((_%target4754547616%_ (let () (declare (not safe)) - (##vector-ref _g82899_ 0))) + (##vector-ref _g84021_ 0))) (_%tl4754747619%_ (let () (declare (not safe)) - (##vector-ref _g82899_ 1)))) + (##vector-ref _g84021_ 1)))) (if (gx#stx-null? _%tl4754747619%_) (letrec ((_%loop4754847622%_ (lambda (_%hd4754647626%_ @@ -4336,18 +4336,18 @@ (define |gerbil/core/contract~Using[1]#!class-slot-type| (lambda (_%klass48249%_ _%slot48251%_) (let ((_%$e48253%_ - (let ((__obj82736 _%klass48249%_)) + (let ((__obj83858 _%klass48249%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82736 + __obj83858 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82736 '19 '#f '#f)) + (##unchecked-structure-ref __obj83858 '19 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82736 + __obj83858 'slot-types))))) (if _%$e48253%_ ((lambda (_%slot-types48257%_) @@ -4357,18 +4357,18 @@ (define |gerbil/core/contract~Using[1]#!class-slot-default| (lambda (_%klass48230%_ _%slot48232%_) (let ((_%$e48234%_ - (let ((__obj82737 _%klass48230%_)) + (let ((__obj83859 _%klass48230%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82737 + __obj83859 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82737 '20 '#f '#f)) + (##unchecked-structure-ref __obj83859 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82737 + __obj83859 'slot-defaults))))) (if _%$e48234%_ ((lambda (_%slot-defaults48238%_) @@ -4382,18 +4382,18 @@ (define |gerbil/core/contract~Using[1]#!class-slot-contract| (lambda (_%klass48211%_ _%slot48213%_) (let ((_%$e48215%_ - (let ((__obj82738 _%klass48211%_)) + (let ((__obj83860 _%klass48211%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82738 + __obj83860 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82738 '20 '#f '#f)) + (##unchecked-structure-ref __obj83860 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82738 + __obj83860 'slot-defaults))))) (if _%$e48215%_ ((lambda (_%slot-defaults48219%_) @@ -4412,25 +4412,25 @@ _%slot47981%_))) (if _%contract4798247984%_ (let* ((_%contract47988%_ _%contract4798247984%_) - (_%__stx7778877789%_ _%contract47988%_) + (_%__stx7878078781%_ _%contract47988%_) (_%g4799348030%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7778877789%_)))) - (let ((_%__kont7779177792%_ + _%__stx7878078781%_)))) + (let ((_%__kont7878378784%_ (lambda (_%L48180%_ _%L48182%_) (not (gx#free-identifier=? _%L48182%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7779377794%_ + (_%__kont7878578786%_ (lambda (_%L48120%_ _%L48122%_ _%L48123%_) (not (gx#free-identifier=? _%L48122%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7779577796%_ (lambda (_%L48057%_) '#f))) - (let* ((_%__match7784177842%_ + (_%__kont7878778788%_ (lambda (_%L48057%_) '#f))) + (let* ((_%__match7883378834%_ (lambda (_%e4800648080%_ _%hd4800748084%_ _%tl4800848087%_ @@ -4459,14 +4459,14 @@ (gx#free-identifier=? _%L48122%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7779377794%_ + (_%__kont7878578786%_ _%L48120%_ _%L48122%_ _%L48123%_) (let () (declare (not safe)) (_%g4799348030%_)))))) - (_%__match7781177812%_ + (_%__match7880378804%_ (lambda (_%e4799748160%_ _%hd4799848164%_ _%tl4799948167%_ @@ -4488,12 +4488,12 @@ (gx#free-identifier=? _%L48182%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7779177792%_ _%L48180%_ _%L48182%_) + (_%__kont7878378784%_ _%L48180%_ _%L48182%_) (if (gx#identifier? _%hd4799848164%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82901_| + |gerbil/core/contract~Using[1]#_g84023_| _%hd4799848164%_) - (_%__kont7779577796%_ + (_%__kont7878778788%_ _%hd4800148174%_) (let () (declare (not safe)) @@ -4501,9 +4501,9 @@ (let () (declare (not safe)) (_%g4799348030%_)))))))) - (if (gx#stx-pair? _%__stx7778877789%_) + (if (gx#stx-pair? _%__stx7878078781%_) (let ((_%e4799748160%_ - (gx#syntax-e _%__stx7778877789%_))) + (gx#syntax-e _%__stx7878078781%_))) (let ((_%tl4799948167%_ (let () (declare (not safe)) @@ -4524,7 +4524,7 @@ (declare (not safe)) (##car _%e4800048170%_)))) (if (gx#stx-null? _%tl4800248177%_) - (_%__match7781177812%_ + (_%__match7880378804%_ _%e4799748160%_ _%hd4799848164%_ _%tl4799948167%_ @@ -4533,7 +4533,7 @@ _%tl4800248177%_) (if (gx#identifier? _%hd4799848164%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82901_| + |gerbil/core/contract~Using[1]#_g84023_| _%hd4799848164%_) (if (gx#stx-pair? _%tl4800248177%_) @@ -4559,7 +4559,7 @@ (declare (not safe)) (##car _%e4801548110%_)))) (if (gx#stx-null? _%tl4801748117%_) - (_%__match7784177842%_ + (_%__match7883378834%_ _%e4799748160%_ _%hd4799848164%_ _%tl4799948167%_ @@ -4597,22 +4597,22 @@ _%slot47749%_))) (if _%contract4775047752%_ (let* ((_%contract47756%_ _%contract4775047752%_) - (_%__stx7786277863%_ _%contract47756%_) + (_%__stx7885478855%_ _%contract47756%_) (_%g4776147798%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7786277863%_)))) - (let ((_%__kont7786577866%_ + _%__stx7885478855%_)))) + (let ((_%__kont7885778858%_ (lambda (_%L47948%_ _%L47950%_) (not (gx#free-identifier=? _%L47950%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7786777868%_ + (_%__kont7885978860%_ (lambda (_%L47888%_ _%L47890%_ _%L47891%_) '#t)) - (_%__kont7786977870%_ (lambda (_%L47825%_) '#t))) - (let* ((_%__match7791577916%_ + (_%__kont7886178862%_ (lambda (_%L47825%_) '#t))) + (let* ((_%__match7890778908%_ (lambda (_%e4777447848%_ _%hd4777547852%_ _%tl4777647855%_ @@ -4641,14 +4641,14 @@ (gx#free-identifier=? _%L47890%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7786777868%_ + (_%__kont7885978860%_ _%L47888%_ _%L47890%_ _%L47891%_) (let () (declare (not safe)) (_%g4776147798%_)))))) - (_%__match7788577886%_ + (_%__match7887778878%_ (lambda (_%e4776547928%_ _%hd4776647932%_ _%tl4776747935%_ @@ -4670,12 +4670,12 @@ (gx#free-identifier=? _%L47950%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7786577866%_ _%L47948%_ _%L47950%_) + (_%__kont7885778858%_ _%L47948%_ _%L47950%_) (if (gx#identifier? _%hd4776647932%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82902_| + |gerbil/core/contract~Using[1]#_g84024_| _%hd4776647932%_) - (_%__kont7786977870%_ + (_%__kont7886178862%_ _%hd4776947942%_) (let () (declare (not safe)) @@ -4683,9 +4683,9 @@ (let () (declare (not safe)) (_%g4776147798%_)))))))) - (if (gx#stx-pair? _%__stx7786277863%_) + (if (gx#stx-pair? _%__stx7885478855%_) (let ((_%e4776547928%_ - (gx#syntax-e _%__stx7786277863%_))) + (gx#syntax-e _%__stx7885478855%_))) (let ((_%tl4776747935%_ (let () (declare (not safe)) @@ -4706,7 +4706,7 @@ (declare (not safe)) (##car _%e4776847938%_)))) (if (gx#stx-null? _%tl4777047945%_) - (_%__match7788577886%_ + (_%__match7887778878%_ _%e4776547928%_ _%hd4776647932%_ _%tl4776747935%_ @@ -4715,7 +4715,7 @@ _%tl4777047945%_) (if (gx#identifier? _%hd4776647932%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82902_| + |gerbil/core/contract~Using[1]#_g84024_| _%hd4776647932%_) (if (gx#stx-pair? _%tl4777047945%_) @@ -4741,7 +4741,7 @@ (declare (not safe)) (##car _%e4778347878%_)))) (if (gx#stx-null? _%tl4778547885%_) - (_%__match7791577916%_ + (_%__match7890778908%_ _%e4776547928%_ _%hd4776647932%_ _%tl4776747935%_ @@ -4807,18 +4807,18 @@ _%klass-or-id47709%_)) _%klass-or-id47709%_)) (_%accessors47715%_ - (let ((__obj82739 _%klass47712%_)) + (let ((__obj83861 _%klass47712%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82739 + __obj83861 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82739 '17 '#f '#f)) + (##unchecked-structure-ref __obj83861 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82739 + __obj83861 'unchecked-accessors)))) (_%$e47720%_ (agetq _%slot47710%_ _%accessors47715%_))) (if _%$e47720%_ @@ -4844,31 +4844,31 @@ _%klass-or-id47689%_)) (_%mutators47696%_ (if _%checked?47691%_ - (let ((__obj82740 _%klass47693%_)) + (let ((__obj83862 _%klass47693%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82740 + __obj83862 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82740 '16 '#f '#f)) + (##unchecked-structure-ref __obj83862 '16 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82740 + __obj83862 'mutators))) - (let ((__obj82741 _%klass47693%_)) + (let ((__obj83863 _%klass47693%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82741 + __obj83863 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82741 '18 '#f '#f)) + (##unchecked-structure-ref __obj83863 '18 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82741 + __obj83863 'unchecked-mutators))))) (_%$e47701%_ (agetq _%slot47690%_ _%mutators47696%_))) (if _%$e47701%_ @@ -4982,25 +4982,25 @@ (##cdr _%e4920749291%_)))) (if (gx#stx-pair/null? _%hd4920849295%_) - (let ((_g82903_ + (let ((_g84025_ (gx#syntax-split-splice _%hd4920849295%_ '0))) (begin - (let ((_g82904_ + (let ((_g84026_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g82903_) - (##vector-length _g82903_) + (if (##values? _g84025_) + (##vector-length _g84025_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82904_ 2))) - (error "Context expects 2 values" _g82904_))) + (if (not (let () (declare (not safe)) (##fx= _g84026_ 2))) + (error "Context expects 2 values" _g84026_))) (let ((_%target4921049301%_ - (let () (declare (not safe)) (##vector-ref _g82903_ 0))) + (let () (declare (not safe)) (##vector-ref _g84025_ 0))) (_%tl4921249304%_ - (let () (declare (not safe)) (##vector-ref _g82903_ 1)))) + (let () (declare (not safe)) (##vector-ref _g84025_ 1)))) (if (gx#stx-null? _%tl4921249304%_) (letrec ((_%loop4921349307%_ (lambda (_%hd4921149311%_ _%body4921749314%_) @@ -5095,22 +5095,22 @@ (_%g4918049224%_ _%g4918149228%_))))) (_%g4917949381%_ (list (gx#syntax-local-introduce '@@type) - (let ((__obj82742 _%klass49173%_)) + (let ((__obj83864 _%klass49173%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82742 + __obj83864 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82742 + __obj83864 '12 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82742 + __obj83864 'type-descriptor))) _%var49175%_ _%klass49173%_ @@ -5200,22 +5200,22 @@ (_%g4908549104%_ _%g4908649108%_))))) (_%g4908449166%_ (list (let ((_%instance?49170%_ - (let ((__obj82743 _%klass49073%_)) + (let ((__obj83865 _%klass49073%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82743 + __obj83865 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82743 + __obj83865 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82743 + __obj83865 'predicate))))) (if _%maybe?49071%_ (cons '? @@ -5229,14 +5229,14 @@ _%var49065%_ _%expr-body49080%_))) _%expr-body49080%_))))) - (let* ((_%__stx7793677937%_ _%stx48262%_) + (let* ((_%__stx7892878929%_ _%stx48262%_) (_%g4827348416%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7793677937%_)))) - (let ((_%__kont7793977940%_ + _%__stx7892878929%_)))) + (let ((_%__kont7893178932%_ (lambda (_%L48993%_ _%L48995%_ _%L48996%_ _%L48997%_) (let* ((_%g4902249030%_ (lambda (_%g4902349026%_) @@ -5260,24 +5260,24 @@ _%L48993%_)))) _%g4902349034%_)))) (_%g4902149057%_ - (let ((__obj82744 (gx#syntax-local-value _%L48995%_))) + (let ((__obj83866 (gx#syntax-local-value _%L48995%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82744 + __obj83866 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82744 + __obj83866 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj82744 + __obj83866 'identifier))))))) - (_%__kont7794377944%_ + (_%__kont7893578936%_ (lambda (_%L48871%_ _%L48873%_ _%L48874%_) (_%expand48267%_ _%L48874%_ @@ -5289,7 +5289,7 @@ '#t '#t '#f))) - (_%__kont7794777948%_ + (_%__kont7893978940%_ (lambda (_%L48749%_ _%L48751%_ _%L48752%_) (_%expand48267%_ _%L48752%_ @@ -5301,7 +5301,7 @@ '#t '#t '#t))) - (_%__kont7795177952%_ + (_%__kont7894378944%_ (lambda (_%L48627%_ _%L48629%_ _%L48630%_) (_%expand48267%_ _%L48630%_ @@ -5313,7 +5313,7 @@ '#f '#f '#f))) - (_%__kont7795577956%_ + (_%__kont7894778948%_ (lambda (_%L48503%_ _%L48505%_ _%L48506%_) (_%expand48267%_ _%L48506%_ @@ -5325,7 +5325,7 @@ '#f '#t '#f)))) - (let* ((_%__match7817578176%_ + (let* ((_%__match7916779168%_ (lambda (_%e4838748423%_ _%hd4838848427%_ _%tl4838948430%_ @@ -5341,7 +5341,7 @@ _%e4839948463%_ _%hd4840048467%_ _%tl4840148470%_ - _%__splice7795777958%_ + _%__splice7894978950%_ _%target4840248473%_ _%tl4840448476%_) (letrec ((_%loop4840548479%_ @@ -5370,7 +5370,7 @@ (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 _%L48505%_)) - (_%__kont7795577956%_ + (_%__kont7894778948%_ _%L48503%_ _%L48505%_ _%L48506%_) @@ -5378,7 +5378,7 @@ (declare (not safe)) (_%g4827348416%_))))))))) (_%loop4840548479%_ _%target4840248473%_ '())))) - (_%__match7813178132%_ + (_%__match7912379124%_ (lambda (_%e4836048547%_ _%hd4836148551%_ _%tl4836248554%_ @@ -5394,7 +5394,7 @@ _%e4837248587%_ _%hd4837348591%_ _%tl4837448594%_ - _%__splice7795377954%_ + _%__splice7894578946%_ _%target4837548597%_ _%tl4837748600%_) (letrec ((_%loop4837848603%_ @@ -5423,7 +5423,7 @@ (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 _%L48629%_)) - (_%__kont7795177952%_ + (_%__kont7894378944%_ _%L48627%_ _%L48629%_ _%L48630%_) @@ -5431,7 +5431,7 @@ (declare (not safe)) (_%g4827348416%_))))))))) (_%loop4837848603%_ _%target4837548597%_ '())))) - (_%__match7808778088%_ + (_%__match7907979080%_ (lambda (_%e4833348669%_ _%hd4833448673%_ _%tl4833548676%_ @@ -5447,7 +5447,7 @@ _%e4834548709%_ _%hd4834648713%_ _%tl4834748716%_ - _%__splice7794977950%_ + _%__splice7894178942%_ _%target4834848719%_ _%tl4835048722%_) (letrec ((_%loop4835148725%_ @@ -5476,7 +5476,7 @@ (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 _%L48751%_)) - (_%__kont7794777948%_ + (_%__kont7893978940%_ _%L48749%_ _%L48751%_ _%L48752%_) @@ -5484,7 +5484,7 @@ (declare (not safe)) (_%g4827348416%_))))))))) (_%loop4835148725%_ _%target4834848719%_ '())))) - (_%__match7804378044%_ + (_%__match7903579036%_ (lambda (_%e4830648791%_ _%hd4830748795%_ _%tl4830848798%_ @@ -5500,7 +5500,7 @@ _%e4831848831%_ _%hd4831948835%_ _%tl4832048838%_ - _%__splice7794577946%_ + _%__splice7893778938%_ _%target4832148841%_ _%tl4832348844%_) (letrec ((_%loop4832448847%_ @@ -5529,7 +5529,7 @@ (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 _%L48873%_)) - (_%__kont7794377944%_ + (_%__kont7893578936%_ _%L48871%_ _%L48873%_ _%L48874%_) @@ -5537,7 +5537,7 @@ (declare (not safe)) (_%g4827348416%_))))))))) (_%loop4832448847%_ _%target4832148841%_ '())))) - (_%__match7802378024%_ + (_%__match7901579016%_ (lambda (_%e4830648791%_ _%hd4830748795%_ _%tl4830848798%_ @@ -5552,7 +5552,7 @@ _%tl4831748828%_) (if (gx#identifier? _%hd4831648825%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82905_| + |gerbil/core/contract~Using[1]#_g84027_| _%hd4831648825%_) (if (gx#stx-pair? _%tl4831748828%_) (let ((_%e4831848831%_ @@ -5568,7 +5568,7 @@ (if (gx#stx-null? _%tl4832048838%_) (if (gx#stx-pair/null? _%tl4831148808%_) - (let ((_%__splice7794577946%_ + (let ((_%__splice7893778938%_ (gx#syntax-split-splice _%tl4831148808%_ '0))) @@ -5576,17 +5576,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7794577946%_ + _%__splice7893778938%_ '1))) (_%target4832148841%_ (let () (declare (not safe)) (##vector-ref - _%__splice7794577946%_ + _%__splice7893778938%_ '0)))) (if (gx#stx-null? _%tl4832348844%_) - (_%__match7804378044%_ + (_%__match7903579036%_ _%e4830648791%_ _%hd4830748795%_ _%tl4830848798%_ @@ -5602,7 +5602,7 @@ _%e4831848831%_ _%hd4831948835%_ _%tl4832048838%_ - _%__splice7794577946%_ + _%__splice7893778938%_ _%target4832148841%_ _%tl4832348844%_) (let () @@ -5618,7 +5618,7 @@ (declare (not safe)) (_%g4827348416%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82906_| + |gerbil/core/contract~Using[1]#_g84028_| _%hd4831648825%_) (if (gx#stx-pair? _%tl4831748828%_) (let ((_%e4834548709%_ @@ -5634,7 +5634,7 @@ (if (gx#stx-null? _%tl4834748716%_) (if (gx#stx-pair/null? _%tl4831148808%_) - (let ((_%__splice7794977950%_ + (let ((_%__splice7894178942%_ (gx#syntax-split-splice _%tl4831148808%_ '0))) @@ -5643,13 +5643,13 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice7794977950%_ '1))) + (##vector-ref _%__splice7894178942%_ '1))) (_%target4834848719%_ (let () (declare (not safe)) - (##vector-ref _%__splice7794977950%_ '0)))) + (##vector-ref _%__splice7894178942%_ '0)))) (if (gx#stx-null? _%tl4835048722%_) - (_%__match7808778088%_ + (_%__match7907979080%_ _%e4830648791%_ _%hd4830748795%_ _%tl4830848798%_ @@ -5665,7 +5665,7 @@ _%e4834548709%_ _%hd4834648713%_ _%tl4834748716%_ - _%__splice7794977950%_ + _%__splice7894178942%_ _%target4834848719%_ _%tl4835048722%_) (let () (declare (not safe)) (_%g4827348416%_))))) @@ -5680,7 +5680,7 @@ (declare (not safe)) (_%g4827348416%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82907_| + |gerbil/core/contract~Using[1]#_g84029_| _%hd4831648825%_) (if (gx#stx-pair? _%tl4831748828%_) (let ((_%e4837248587%_ @@ -5698,7 +5698,7 @@ _%tl4837448594%_) (if (gx#stx-pair/null? _%tl4831148808%_) - (let ((_%__splice7795377954%_ + (let ((_%__splice7894578946%_ (gx#syntax-split-splice _%tl4831148808%_ '0))) @@ -5706,13 +5706,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice7795377954%_ '1))) + (##vector-ref _%__splice7894578946%_ '1))) (_%target4837548597%_ (let () (declare (not safe)) - (##vector-ref _%__splice7795377954%_ '0)))) + (##vector-ref _%__splice7894578946%_ '0)))) (if (gx#stx-null? _%tl4837748600%_) - (_%__match7813178132%_ + (_%__match7912379124%_ _%e4830648791%_ _%hd4830748795%_ _%tl4830848798%_ @@ -5728,7 +5728,7 @@ _%e4837248587%_ _%hd4837348591%_ _%tl4837448594%_ - _%__splice7795377954%_ + _%__splice7894578946%_ _%target4837548597%_ _%tl4837748600%_) (let () (declare (not safe)) (_%g4827348416%_))))) @@ -5741,7 +5741,7 @@ (declare (not safe)) (_%g4827348416%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82908_| + |gerbil/core/contract~Using[1]#_g84030_| _%hd4831648825%_) (if (gx#stx-pair? _%tl4831748828%_) (let ((_%e4839948463%_ @@ -5759,19 +5759,19 @@ _%tl4840148470%_) (if (gx#stx-pair/null? _%tl4831148808%_) - (let ((_%__splice7795777958%_ + (let ((_%__splice7894978950%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4831148808%_ '0))) (let ((_%tl4840448476%_ (let () (declare (not safe)) - (##vector-ref _%__splice7795777958%_ '1))) + (##vector-ref _%__splice7894978950%_ '1))) (_%target4840248473%_ (let () (declare (not safe)) - (##vector-ref _%__splice7795777958%_ '0)))) + (##vector-ref _%__splice7894978950%_ '0)))) (if (gx#stx-null? _%tl4840448476%_) - (_%__match7817578176%_ + (_%__match7916779168%_ _%e4830648791%_ _%hd4830748795%_ _%tl4830848798%_ @@ -5787,7 +5787,7 @@ _%e4839948463%_ _%hd4840048467%_ _%tl4840148470%_ - _%__splice7795777958%_ + _%__splice7894978950%_ _%target4840248473%_ _%tl4840448476%_) (let () (declare (not safe)) (_%g4827348416%_))))) @@ -5801,7 +5801,7 @@ (declare (not safe)) (_%g4827348416%_)))))) (let () (declare (not safe)) (_%g4827348416%_))))) - (_%__match7799978000%_ + (_%__match7899178992%_ (lambda (_%e4827948913%_ _%hd4828048917%_ _%tl4828148920%_ @@ -5817,7 +5817,7 @@ _%e4829148953%_ _%hd4829248957%_ _%tl4829348960%_ - _%__splice7794177942%_ + _%__splice7893378934%_ _%target4829448963%_ _%tl4829648966%_) (letrec ((_%loop4829748969%_ @@ -5843,20 +5843,20 @@ (_%L48995%_ _%hd4829248957%_) (_%L48996%_ _%hd4828948947%_) (_%L48997%_ _%hd4828648937%_)) - (if (let ((__tmp82909 + (if (let ((__tmp84031 (gx#syntax-local-value _%L48995%_ false))) (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - __tmp82909)) - (_%__kont7793977940%_ + __tmp84031)) + (_%__kont7893178932%_ _%L48993%_ _%L48995%_ _%L48996%_ _%L48997%_) - (_%__match7802378024%_ + (_%__match7901579016%_ _%e4827948913%_ _%hd4828048917%_ _%tl4828148920%_ @@ -5870,8 +5870,8 @@ _%hd4828948947%_ _%tl4829048950%_)))))))) (_%loop4829748969%_ _%target4829448963%_ '()))))) - (if (gx#stx-pair? _%__stx7793677937%_) - (let ((_%e4827948913%_ (gx#syntax-e _%__stx7793677937%_))) + (if (gx#stx-pair? _%__stx7892878929%_) + (let ((_%e4827948913%_ (gx#syntax-e _%__stx7892878929%_))) (let ((_%tl4828148920%_ (let () (declare (not safe)) @@ -5929,18 +5929,18 @@ (let () (declare (not safe)) (##car _%e4829148953%_)))) (if (gx#stx-null? _%tl4829348960%_) (if (gx#stx-pair/null? _%tl4828448930%_) - (let ((_%__splice7794177942%_ + (let ((_%__splice7893378934%_ (gx#syntax-split-splice _%tl4828448930%_ '0))) (let ((_%tl4829648966%_ (let () (declare (not safe)) - (##vector-ref _%__splice7794177942%_ '1))) + (##vector-ref _%__splice7893378934%_ '1))) (_%target4829448963%_ (let () (declare (not safe)) - (##vector-ref _%__splice7794177942%_ '0)))) + (##vector-ref _%__splice7893378934%_ '0)))) (if (gx#stx-null? _%tl4829648966%_) - (_%__match7799978000%_ + (_%__match7899178992%_ _%e4827948913%_ _%hd4828048917%_ _%tl4828148920%_ @@ -5956,7 +5956,7 @@ _%e4829148953%_ _%hd4829248957%_ _%tl4829348960%_ - _%__splice7794177942%_ + _%__splice7893378934%_ _%target4829448963%_ _%tl4829648966%_) (let () @@ -6084,25 +6084,25 @@ (##cdr _%e5043150515%_)))) (if (gx#stx-pair/null? _%hd5043250519%_) - (let ((_g82910_ + (let ((_g84032_ (gx#syntax-split-splice _%hd5043250519%_ '0))) (begin - (let ((_g82911_ + (let ((_g84033_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g82910_) - (##vector-length _g82910_) + (if (##values? _g84032_) + (##vector-length _g84032_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82911_ 2))) - (error "Context expects 2 values" _g82911_))) + (if (not (let () (declare (not safe)) (##fx= _g84033_ 2))) + (error "Context expects 2 values" _g84033_))) (let ((_%target5043450525%_ - (let () (declare (not safe)) (##vector-ref _g82910_ 0))) + (let () (declare (not safe)) (##vector-ref _g84032_ 0))) (_%tl5043650528%_ - (let () (declare (not safe)) (##vector-ref _g82910_ 1)))) + (let () (declare (not safe)) (##vector-ref _g84032_ 1)))) (if (gx#stx-null? _%tl5043650528%_) (letrec ((_%loop5043750531%_ (lambda (_%hd5043550535%_ _%body5044150538%_) @@ -6198,22 +6198,22 @@ (_%g5040350606%_ (list (gx#syntax-local-introduce '@@type) _%type50401%_ - (let ((__obj82745 _%type50401%_)) + (let ((__obj83867 _%type50401%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82745 + __obj83867 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82745 + __obj83867 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82745 + __obj83867 'instance-type))) _%var50395%_ _%checked?50399%_ @@ -6386,14 +6386,14 @@ (if _%$e50391%_ _%$e50391%_ _%checked-methods?50199%_)))))))) - (let* ((_%__stx7817878179%_ _%stx49391%_) + (let* ((_%__stx7917079171%_ _%stx49391%_) (_%g4940249545%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7817878179%_)))) - (let ((_%__kont7818178182%_ + _%__stx7917079171%_)))) + (let ((_%__kont7917379174%_ (lambda (_%L50122%_ _%L50124%_ _%L50125%_ _%L50126%_) (let* ((_%g5015150159%_ (lambda (_%g5015250155%_) @@ -6417,24 +6417,24 @@ _%L50122%_)))) _%g5015250163%_)))) (_%g5015050186%_ - (let ((__obj82746 (gx#syntax-local-value _%L50124%_))) + (let ((__obj83868 (gx#syntax-local-value _%L50124%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82746 + __obj83868 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82746 + __obj83868 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj82746 + __obj83868 'identifier))))))) - (_%__kont7818578186%_ + (_%__kont7917779178%_ (lambda (_%L50000%_ _%L50002%_ _%L50003%_) (_%expand49396%_ _%L50003%_ @@ -6446,7 +6446,7 @@ '#t '#t '#f))) - (_%__kont7818978190%_ + (_%__kont7918179182%_ (lambda (_%L49878%_ _%L49880%_ _%L49881%_) (_%expand49396%_ _%L49881%_ @@ -6458,7 +6458,7 @@ '#t '#t '#t))) - (_%__kont7819378194%_ + (_%__kont7918579186%_ (lambda (_%L49756%_ _%L49758%_ _%L49759%_) (_%expand49396%_ _%L49759%_ @@ -6470,7 +6470,7 @@ '#f '#f '#f))) - (_%__kont7819778198%_ + (_%__kont7918979190%_ (lambda (_%L49632%_ _%L49634%_ _%L49635%_) (_%expand49396%_ _%L49635%_ @@ -6482,7 +6482,7 @@ '#f '#t '#f)))) - (let* ((_%__match7841778418%_ + (let* ((_%__match7940979410%_ (lambda (_%e4951649552%_ _%hd4951749556%_ _%tl4951849559%_ @@ -6498,7 +6498,7 @@ _%e4952849592%_ _%hd4952949596%_ _%tl4953049599%_ - _%__splice7819978200%_ + _%__splice7919179192%_ _%target4953149602%_ _%tl4953349605%_) (letrec ((_%loop4953449608%_ @@ -6529,7 +6529,7 @@ (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 _%L49634%_))) - (_%__kont7819778198%_ + (_%__kont7918979190%_ _%L49632%_ _%L49634%_ _%L49635%_) @@ -6537,7 +6537,7 @@ (declare (not safe)) (_%g4940249545%_))))))))) (_%loop4953449608%_ _%target4953149602%_ '())))) - (_%__match7837378374%_ + (_%__match7936579366%_ (lambda (_%e4948949676%_ _%hd4949049680%_ _%tl4949149683%_ @@ -6553,7 +6553,7 @@ _%e4950149716%_ _%hd4950249720%_ _%tl4950349723%_ - _%__splice7819578196%_ + _%__splice7918779188%_ _%target4950449726%_ _%tl4950649729%_) (letrec ((_%loop4950749732%_ @@ -6584,7 +6584,7 @@ (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 _%L49758%_))) - (_%__kont7819378194%_ + (_%__kont7918579186%_ _%L49756%_ _%L49758%_ _%L49759%_) @@ -6592,7 +6592,7 @@ (declare (not safe)) (_%g4940249545%_))))))))) (_%loop4950749732%_ _%target4950449726%_ '())))) - (_%__match7832978330%_ + (_%__match7932179322%_ (lambda (_%e4946249798%_ _%hd4946349802%_ _%tl4946449805%_ @@ -6608,7 +6608,7 @@ _%e4947449838%_ _%hd4947549842%_ _%tl4947649845%_ - _%__splice7819178192%_ + _%__splice7918379184%_ _%target4947749848%_ _%tl4947949851%_) (letrec ((_%loop4948049854%_ @@ -6639,7 +6639,7 @@ (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 _%L49880%_))) - (_%__kont7818978190%_ + (_%__kont7918179182%_ _%L49878%_ _%L49880%_ _%L49881%_) @@ -6647,7 +6647,7 @@ (declare (not safe)) (_%g4940249545%_))))))))) (_%loop4948049854%_ _%target4947749848%_ '())))) - (_%__match7828578286%_ + (_%__match7927779278%_ (lambda (_%e4943549920%_ _%hd4943649924%_ _%tl4943749927%_ @@ -6663,7 +6663,7 @@ _%e4944749960%_ _%hd4944849964%_ _%tl4944949967%_ - _%__splice7818778188%_ + _%__splice7917979180%_ _%target4945049970%_ _%tl4945249973%_) (letrec ((_%loop4945349976%_ @@ -6694,7 +6694,7 @@ (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 _%L50002%_))) - (_%__kont7818578186%_ + (_%__kont7917779178%_ _%L50000%_ _%L50002%_ _%L50003%_) @@ -6702,7 +6702,7 @@ (declare (not safe)) (_%g4940249545%_))))))))) (_%loop4945349976%_ _%target4945049970%_ '())))) - (_%__match7826578266%_ + (_%__match7925779258%_ (lambda (_%e4943549920%_ _%hd4943649924%_ _%tl4943749927%_ @@ -6717,7 +6717,7 @@ _%tl4944649957%_) (if (gx#identifier? _%hd4944549954%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82912_| + |gerbil/core/contract~Using[1]#_g84034_| _%hd4944549954%_) (if (gx#stx-pair? _%tl4944649957%_) (let ((_%e4944749960%_ @@ -6733,7 +6733,7 @@ (if (gx#stx-null? _%tl4944949967%_) (if (gx#stx-pair/null? _%tl4944049937%_) - (let ((_%__splice7818778188%_ + (let ((_%__splice7917979180%_ (gx#syntax-split-splice _%tl4944049937%_ '0))) @@ -6741,17 +6741,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7818778188%_ + _%__splice7917979180%_ '1))) (_%target4945049970%_ (let () (declare (not safe)) (##vector-ref - _%__splice7818778188%_ + _%__splice7917979180%_ '0)))) (if (gx#stx-null? _%tl4945249973%_) - (_%__match7828578286%_ + (_%__match7927779278%_ _%e4943549920%_ _%hd4943649924%_ _%tl4943749927%_ @@ -6767,7 +6767,7 @@ _%e4944749960%_ _%hd4944849964%_ _%tl4944949967%_ - _%__splice7818778188%_ + _%__splice7917979180%_ _%target4945049970%_ _%tl4945249973%_) (let () @@ -6783,7 +6783,7 @@ (declare (not safe)) (_%g4940249545%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82913_| + |gerbil/core/contract~Using[1]#_g84035_| _%hd4944549954%_) (if (gx#stx-pair? _%tl4944649957%_) (let ((_%e4947449838%_ @@ -6799,7 +6799,7 @@ (if (gx#stx-null? _%tl4947649845%_) (if (gx#stx-pair/null? _%tl4944049937%_) - (let ((_%__splice7819178192%_ + (let ((_%__splice7918379184%_ (gx#syntax-split-splice _%tl4944049937%_ '0))) @@ -6808,13 +6808,13 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice7819178192%_ '1))) + (##vector-ref _%__splice7918379184%_ '1))) (_%target4947749848%_ (let () (declare (not safe)) - (##vector-ref _%__splice7819178192%_ '0)))) + (##vector-ref _%__splice7918379184%_ '0)))) (if (gx#stx-null? _%tl4947949851%_) - (_%__match7832978330%_ + (_%__match7932179322%_ _%e4943549920%_ _%hd4943649924%_ _%tl4943749927%_ @@ -6830,7 +6830,7 @@ _%e4947449838%_ _%hd4947549842%_ _%tl4947649845%_ - _%__splice7819178192%_ + _%__splice7918379184%_ _%target4947749848%_ _%tl4947949851%_) (let () (declare (not safe)) (_%g4940249545%_))))) @@ -6845,7 +6845,7 @@ (declare (not safe)) (_%g4940249545%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82914_| + |gerbil/core/contract~Using[1]#_g84036_| _%hd4944549954%_) (if (gx#stx-pair? _%tl4944649957%_) (let ((_%e4950149716%_ @@ -6863,7 +6863,7 @@ _%tl4950349723%_) (if (gx#stx-pair/null? _%tl4944049937%_) - (let ((_%__splice7819578196%_ + (let ((_%__splice7918779188%_ (gx#syntax-split-splice _%tl4944049937%_ '0))) @@ -6871,13 +6871,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice7819578196%_ '1))) + (##vector-ref _%__splice7918779188%_ '1))) (_%target4950449726%_ (let () (declare (not safe)) - (##vector-ref _%__splice7819578196%_ '0)))) + (##vector-ref _%__splice7918779188%_ '0)))) (if (gx#stx-null? _%tl4950649729%_) - (_%__match7837378374%_ + (_%__match7936579366%_ _%e4943549920%_ _%hd4943649924%_ _%tl4943749927%_ @@ -6893,7 +6893,7 @@ _%e4950149716%_ _%hd4950249720%_ _%tl4950349723%_ - _%__splice7819578196%_ + _%__splice7918779188%_ _%target4950449726%_ _%tl4950649729%_) (let () (declare (not safe)) (_%g4940249545%_))))) @@ -6906,7 +6906,7 @@ (declare (not safe)) (_%g4940249545%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82915_| + |gerbil/core/contract~Using[1]#_g84037_| _%hd4944549954%_) (if (gx#stx-pair? _%tl4944649957%_) (let ((_%e4952849592%_ @@ -6924,19 +6924,19 @@ _%tl4953049599%_) (if (gx#stx-pair/null? _%tl4944049937%_) - (let ((_%__splice7819978200%_ + (let ((_%__splice7919179192%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4944049937%_ '0))) (let ((_%tl4953349605%_ (let () (declare (not safe)) - (##vector-ref _%__splice7819978200%_ '1))) + (##vector-ref _%__splice7919179192%_ '1))) (_%target4953149602%_ (let () (declare (not safe)) - (##vector-ref _%__splice7819978200%_ '0)))) + (##vector-ref _%__splice7919179192%_ '0)))) (if (gx#stx-null? _%tl4953349605%_) - (_%__match7841778418%_ + (_%__match7940979410%_ _%e4943549920%_ _%hd4943649924%_ _%tl4943749927%_ @@ -6952,7 +6952,7 @@ _%e4952849592%_ _%hd4952949596%_ _%tl4953049599%_ - _%__splice7819978200%_ + _%__splice7919179192%_ _%target4953149602%_ _%tl4953349605%_) (let () (declare (not safe)) (_%g4940249545%_))))) @@ -6966,7 +6966,7 @@ (declare (not safe)) (_%g4940249545%_)))))) (let () (declare (not safe)) (_%g4940249545%_))))) - (_%__match7824178242%_ + (_%__match7923379234%_ (lambda (_%e4940850042%_ _%hd4940950046%_ _%tl4941050049%_ @@ -6982,7 +6982,7 @@ _%e4942050082%_ _%hd4942150086%_ _%tl4942250089%_ - _%__splice7818378184%_ + _%__splice7917579176%_ _%target4942350092%_ _%tl4942550095%_) (letrec ((_%loop4942650098%_ @@ -7008,20 +7008,20 @@ (_%L50124%_ _%hd4942150086%_) (_%L50125%_ _%hd4941850076%_) (_%L50126%_ _%hd4941550066%_)) - (if (let ((__tmp82916 + (if (let ((__tmp84038 (gx#syntax-local-value _%L50124%_ false))) (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - __tmp82916)) - (_%__kont7818178182%_ + __tmp84038)) + (_%__kont7917379174%_ _%L50122%_ _%L50124%_ _%L50125%_ _%L50126%_) - (_%__match7826578266%_ + (_%__match7925779258%_ _%e4940850042%_ _%hd4940950046%_ _%tl4941050049%_ @@ -7035,8 +7035,8 @@ _%hd4941850076%_ _%tl4941950079%_)))))))) (_%loop4942650098%_ _%target4942350092%_ '()))))) - (if (gx#stx-pair? _%__stx7817878179%_) - (let ((_%e4940850042%_ (gx#syntax-e _%__stx7817878179%_))) + (if (gx#stx-pair? _%__stx7917079171%_) + (let ((_%e4940850042%_ (gx#syntax-e _%__stx7917079171%_))) (let ((_%tl4941050049%_ (let () (declare (not safe)) @@ -7094,18 +7094,18 @@ (let () (declare (not safe)) (##car _%e4942050082%_)))) (if (gx#stx-null? _%tl4942250089%_) (if (gx#stx-pair/null? _%tl4941350059%_) - (let ((_%__splice7818378184%_ + (let ((_%__splice7917579176%_ (gx#syntax-split-splice _%tl4941350059%_ '0))) (let ((_%tl4942550095%_ (let () (declare (not safe)) - (##vector-ref _%__splice7818378184%_ '1))) + (##vector-ref _%__splice7917579176%_ '1))) (_%target4942350092%_ (let () (declare (not safe)) - (##vector-ref _%__splice7818378184%_ '0)))) + (##vector-ref _%__splice7917579176%_ '0)))) (if (gx#stx-null? _%tl4942550095%_) - (_%__match7824178242%_ + (_%__match7923379234%_ _%e4940850042%_ _%hd4940950046%_ _%tl4941050049%_ @@ -7121,7 +7121,7 @@ _%e4942050082%_ _%hd4942150086%_ _%tl4942250089%_ - _%__splice7818378184%_ + _%__splice7917579176%_ _%target4942350092%_ _%tl4942550095%_) (let () @@ -7143,14 +7143,14 @@ (let () (declare (not safe)) (_%g4940249545%_))))))))) (define |gerbil/core/contract~Using[:0:]#%%app-dotted| (lambda (_%stx50616%_) - (let* ((_%__stx7842078421%_ _%stx50616%_) + (let* ((_%__stx7941279413%_ _%stx50616%_) (_%g5062150681%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7842078421%_)))) - (let ((_%__kont7842378424%_ + _%__stx7941279413%_)))) + (let ((_%__kont7941579416%_ (lambda (_%L51243%_ _%L51245%_) (cons (gx#datum->syntax '#f '%%app-dotted) (cons (cons (gx#datum->syntax '#f '%%ref-dotted) @@ -7159,7 +7159,7 @@ (cons _%g5126151264%_ _%g5126251267%_)) '() _%L51243%_))))) - (_%__kont7842778428%_ + (_%__kont7941979420%_ (lambda (_%L50829%_ _%L50831%_) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| _%L50831%_) @@ -7229,20 +7229,20 @@ (lambda (_%rest50961%_ _%part50963%_) (if (and (not _%nil-check?50887%_) - (let ((__tmp82917 + (let ((__tmp84039 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (symbol->string _%part50963%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp82917))) + (##string-prefix? '"?" __tmp84039))) (let ((_%str50967%_ (symbol->string _%part50963%_))) (_%loop50879%_ - (cons (let ((__tmp82918 + (cons (let ((__tmp84040 (substring _%str50967%_ '1 (string-length _%str50967%_)))) (declare (not safe)) - (##string->symbol __tmp82918)) + (##string->symbol __tmp84040)) _%rest50961%_) _%type50884%_ _%object50885%_ @@ -7407,21 +7407,21 @@ (gx#stx-identifier _%L50831%_ (if _%checked-method?50886%_ '"" '"&") - (let ((__obj82747 _%type50884%_)) + (let ((__obj83869 _%type50884%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82747 + __obj83869 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82747 + __obj83869 '1 '#f '#f)) (unchecked-slot-ref - __obj82747 + __obj83869 'name))) '"-" _%part50963%_)))) @@ -7437,9 +7437,7 @@ _%stx50616%_ _%type50884%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%parts5088850896%_)) + (if (pair? _%parts5088850896%_) (let ((_%hd5089351140%_ (let () (declare (not safe)) @@ -7466,9 +7464,7 @@ '() _%L50829%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%g5085150858%_)) + (if (pair? _%g5085150858%_) (let ((_%hd5085551166%_ (let () (declare (not safe)) @@ -7491,18 +7487,18 @@ _%g5117851183%_)) '() _%L50829%_)))))) - (_%__kont7843178432%_ + (_%__kont7942379424%_ (lambda (_%L50728%_) (cons (gx#datum->syntax '#f '%%app) (foldr (lambda (_%g5074350746%_ _%g5074450749%_) (cons _%g5074350746%_ _%g5074450749%_)) '() _%L50728%_))))) - (let* ((_%__match7850778508%_ + (let* ((_%__match7949979500%_ (lambda (_%e5066450688%_ _%hd5066550692%_ _%tl5066650695%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (letrec ((_%loop5067050704%_ @@ -7524,10 +7520,10 @@ _%arg5067450711%_)))) (let ((_%arg5067550724%_ (reverse _%arg5067450711%_))) - (_%__kont7843178432%_ + (_%__kont7942379424%_ _%arg5067550724%_)))))) (_%loop5067050704%_ _%target5066750698%_ '())))) - (_%__match7849378494%_ + (_%__match7948579486%_ (lambda (_%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ @@ -7540,7 +7536,7 @@ _%e5065150789%_ _%hd5065250793%_ _%tl5065350796%_ - _%__splice7842978430%_ + _%__splice7942179422%_ _%target5065450799%_ _%tl5065650802%_) (letrec ((_%loop5065750805%_ @@ -7562,11 +7558,11 @@ _%rand5066150812%_)))) (let ((_%rand5066250825%_ (reverse _%rand5066150812%_))) - (_%__kont7842778428%_ + (_%__kont7941979420%_ _%rand5066250825%_ _%hd5065250793%_)))))) (_%loop5065750805%_ _%target5065450799%_ '())))) - (_%__match7846778468%_ + (_%__match7945979460%_ (lambda (_%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ @@ -7586,7 +7582,7 @@ (##car _%e5064850779%_)))) (if (gx#identifier? _%hd5064950783%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82919_| + |gerbil/core/contract~Using[1]#_g84041_| _%hd5064950783%_) (if (gx#stx-pair? _%tl5065050786%_) (let ((_%e5065150789%_ @@ -7604,7 +7600,7 @@ _%tl5065350796%_) (if (gx#stx-pair/null? _%tl5064750776%_) - (let ((_%__splice7842978430%_ + (let ((_%__splice7942179422%_ (gx#syntax-split-splice _%tl5064750776%_ '0))) @@ -7612,13 +7608,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7842978430%_ '1))) + (##vector-ref _%__splice7942179422%_ '1))) (_%target5065450799%_ (let () (declare (not safe)) - (##vector-ref _%__splice7842978430%_ '0)))) + (##vector-ref _%__splice7942179422%_ '0)))) (if (gx#stx-null? _%tl5065650802%_) - (_%__match7849378494%_ + (_%__match7948579486%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ @@ -7631,28 +7627,28 @@ _%e5065150789%_ _%hd5065250793%_ _%tl5065350796%_ - _%__splice7842978430%_ + _%__splice7942179422%_ _%target5065450799%_ _%tl5065650802%_) (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5064450766%_ '0))) (let ((_%tl5066950701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '1))) + (##vector-ref _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -7660,22 +7656,22 @@ (_%g5062150681%_))))) (let () (declare (not safe)) (_%g5062150681%_)))))) (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5064450766%_ '0))) (let ((_%tl5066950701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '1))) + (##vector-ref _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '0)))) + (##vector-ref _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () (declare (not safe)) (_%g5062150681%_))))) @@ -7683,7 +7679,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5064450766%_ '0))) @@ -7691,17 +7687,17 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '1))) + (##vector-ref _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '0)))) + (##vector-ref _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () (declare (not safe)) (_%g5062150681%_))))) @@ -7709,7 +7705,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5064450766%_ '0))) @@ -7717,21 +7713,21 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -7741,7 +7737,7 @@ (declare (not safe)) (_%g5062150681%_)))) (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5064450766%_ '0))) @@ -7749,21 +7745,21 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -7773,7 +7769,7 @@ (declare (not safe)) (_%g5062150681%_)))) (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5064450766%_ '0))) @@ -7781,20 +7777,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -7804,7 +7800,7 @@ (declare (not safe)) (_%g5062150681%_)))))) (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5064450766%_ '0))) @@ -7812,20 +7808,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -7834,14 +7830,14 @@ (let () (declare (not safe)) (_%g5062150681%_)))))) - (_%__match7845578456%_ + (_%__match7944779448%_ (lambda (_%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ _%e5062851203%_ _%hd5062951207%_ _%tl5063051210%_ - _%__splice7842578426%_ + _%__splice7941779418%_ _%target5063151213%_ _%tl5063351216%_) (letrec ((_%loop5063451219%_ @@ -7866,10 +7862,10 @@ (let ((_%L51243%_ _%rand5063951239%_) (_%L51245%_ _%hd5062951207%_)) (if (gx#identifier? _%L51245%_) - (_%__kont7842378424%_ + (_%__kont7941579416%_ _%L51243%_ _%L51245%_) - (_%__match7846778468%_ + (_%__match7945979460%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ @@ -7877,8 +7873,8 @@ _%hd5062951207%_ _%tl5063051210%_)))))))) (_%loop5063451219%_ _%target5063151213%_ '()))))) - (if (gx#stx-pair? _%__stx7842078421%_) - (let ((_%e5062551193%_ (gx#syntax-e _%__stx7842078421%_))) + (if (gx#stx-pair? _%__stx7941279413%_) + (let ((_%e5062551193%_ (gx#syntax-e _%__stx7941279413%_))) (let ((_%tl5062751200%_ (let () (declare (not safe)) @@ -7899,7 +7895,7 @@ (declare (not safe)) (##car _%e5062851203%_)))) (if (gx#stx-pair/null? _%tl5063051210%_) - (let ((_%__splice7842578426%_ + (let ((_%__splice7941779418%_ (gx#syntax-split-splice _%tl5063051210%_ '0))) @@ -7907,23 +7903,23 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7842578426%_ + _%__splice7941779418%_ '1))) (_%target5063151213%_ (let () (declare (not safe)) (##vector-ref - _%__splice7842578426%_ + _%__splice7941779418%_ '0)))) (if (gx#stx-null? _%tl5063351216%_) - (_%__match7845578456%_ + (_%__match7944779448%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ _%e5062851203%_ _%hd5062951207%_ _%tl5063051210%_ - _%__splice7842578426%_ + _%__splice7941779418%_ _%target5063151213%_ _%tl5063351216%_) (if (gx#stx-pair? _%hd5062951207%_) @@ -7941,7 +7937,7 @@ (if (gx#identifier? _%hd5064950783%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82919_| + |gerbil/core/contract~Using[1]#_g84041_| _%hd5064950783%_) (if (gx#stx-pair? _%tl5065050786%_) @@ -7957,7 +7953,7 @@ (declare (not safe)) (##car _%e5065150789%_)))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) @@ -7965,20 +7961,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -7988,24 +7984,24 @@ (declare (not safe)) (_%g5062150681%_))))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) (let ((_%tl5066950701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '1))) + (##vector-ref _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -8013,22 +8009,22 @@ (_%g5062150681%_))))) (let () (declare (not safe)) (_%g5062150681%_)))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) (let ((_%tl5066950701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '1))) + (##vector-ref _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '0)))) + (##vector-ref _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -8036,22 +8032,22 @@ (_%g5062150681%_))))) (let () (declare (not safe)) (_%g5062150681%_)))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) (let ((_%tl5066950701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '1))) + (##vector-ref _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '0)))) + (##vector-ref _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () (declare (not safe)) (_%g5062150681%_))))) @@ -8059,7 +8055,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) @@ -8068,22 +8064,22 @@ (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -8106,7 +8102,7 @@ (##car _%e5064850779%_)))) (if (gx#identifier? _%hd5064950783%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82919_| + |gerbil/core/contract~Using[1]#_g84041_| _%hd5064950783%_) (if (gx#stx-pair? _%tl5065050786%_) @@ -8121,22 +8117,22 @@ (_%hd5065250793%_ (let () (declare (not safe)) (##car _%e5065150789%_)))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) (let ((_%tl5066950701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '1))) + (##vector-ref _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '0)))) + (##vector-ref _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -8144,22 +8140,22 @@ (_%g5062150681%_))))) (let () (declare (not safe)) (_%g5062150681%_))))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) (let ((_%tl5066950701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '1))) + (##vector-ref _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '0)))) + (##vector-ref _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () (declare (not safe)) (_%g5062150681%_))))) @@ -8167,7 +8163,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) @@ -8175,17 +8171,17 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '1))) + (##vector-ref _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) - (##vector-ref _%__splice7843378434%_ '0)))) + (##vector-ref _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () (declare (not safe)) (_%g5062150681%_))))) @@ -8193,7 +8189,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) @@ -8202,22 +8198,22 @@ (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -8228,7 +8224,7 @@ (declare (not safe)) (_%g5062150681%_)))))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) @@ -8236,21 +8232,21 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -8260,7 +8256,7 @@ (declare (not safe)) (_%g5062150681%_))))))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7843378434%_ + (let ((_%__splice7942579426%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) @@ -8268,20 +8264,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7843378434%_ + _%__splice7942579426%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7850778508%_ + (_%__match7949979500%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7843378434%_ + _%__splice7942579426%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -8293,14 +8289,14 @@ (let () (declare (not safe)) (_%g5062150681%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%ref-dotted| (lambda (_%stx51277%_) - (let* ((_%__stx7851078511%_ _%stx51277%_) + (let* ((_%__stx7950279503%_ _%stx51277%_) (_%g5128151302%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7851078511%_)))) - (let ((_%__kont7851378514%_ + _%__stx7950279503%_)))) + (let ((_%__kont7950579506%_ (lambda (_%L51370%_) (let* ((_%g5138251389%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| @@ -8341,20 +8337,20 @@ (lambda (_%rest51442%_ _%part51444%_) (if (and (not _%nil-check?51417%_) - (let ((__tmp82920 + (let ((__tmp84042 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (symbol->string _%part51444%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp82920))) + (##string-prefix? '"?" __tmp84042))) (let ((_%str51448%_ (symbol->string _%part51444%_))) (_%loop51410%_ - (cons (let ((__tmp82921 + (cons (let ((__tmp84043 (substring _%str51448%_ '1 (string-length _%str51448%_)))) (declare (not safe)) - (##string->symbol __tmp82921)) + (##string->symbol __tmp84043)) _%rest51442%_) _%type51415%_ _%object51416%_ @@ -8505,9 +8501,7 @@ _%stx51277%_ _%type51415%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%parts5141851426%_)) + (if (pair? _%parts5141851426%_) (let ((_%hd5142351597%_ (let () (declare (not safe)) @@ -8527,9 +8521,7 @@ _%$e51403%_) (cons (gx#datum->syntax '#f '%%ref) (cons _%L51370%_ '()))))))) - (if (let () - (declare (not safe)) - (##pair? _%g5138251389%_)) + (if (pair? _%g5138251389%_) (let ((_%hd5138651615%_ (let () (declare (not safe)) @@ -8542,11 +8534,11 @@ (_%parts51624%_ _%tl5138751618%_)) (_%K5138551611%_ _%parts51624%_ _%var51621%_))) (_%E5138451395%_))))) - (_%__kont7851578516%_ + (_%__kont7950779508%_ (lambda (_%L51329%_) (cons (gx#datum->syntax '#f '%%ref) (cons _%L51329%_ '()))))) - (let ((_%__match7853178532%_ + (let ((_%__match7952379524%_ (lambda (_%e5128451350%_ _%hd5128551354%_ _%tl5128651357%_ @@ -8556,10 +8548,10 @@ (let ((_%L51370%_ _%hd5128851364%_)) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| _%L51370%_) - (_%__kont7851378514%_ _%L51370%_) - (_%__kont7851578516%_ _%hd5128851364%_)))))) - (if (gx#stx-pair? _%__stx7851078511%_) - (let ((_%e5128451350%_ (gx#syntax-e _%__stx7851078511%_))) + (_%__kont7950579506%_ _%L51370%_) + (_%__kont7950779508%_ _%hd5128851364%_)))))) + (if (gx#stx-pair? _%__stx7950279503%_) + (let ((_%e5128451350%_ (gx#syntax-e _%__stx7950279503%_))) (let ((_%tl5128651357%_ (let () (declare (not safe)) @@ -8580,7 +8572,7 @@ (declare (not safe)) (##car _%e5128751360%_)))) (if (gx#stx-null? _%tl5128951367%_) - (_%__match7853178532%_ + (_%__match7952379524%_ _%e5128451350%_ _%hd5128551354%_ _%tl5128651357%_ @@ -8594,14 +8586,14 @@ (let () (declare (not safe)) (_%g5128151302%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%set-dotted!| (lambda (_%stx51631%_) - (let* ((_%__stx7854878549%_ _%stx51631%_) + (let* ((_%__stx7954079541%_ _%stx51631%_) (_%g5163551664%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7854878549%_)))) - (let ((_%__kont7855178552%_ + _%__stx7954079541%_)))) + (let ((_%__kont7954379544%_ (lambda (_%L51756%_ _%L51758%_) (let* ((_%g5177251779%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| @@ -8652,20 +8644,20 @@ (lambda (_%rest51826%_ _%part51828%_) (if (and (not _%nil-check?51808%_) - (let ((__tmp82922 + (let ((__tmp84044 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (symbol->string _%part51828%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp82922))) + (##string-prefix? '"?" __tmp84044))) (let ((_%str51832%_ (symbol->string _%part51828%_))) (_%loop51800%_ - (cons (let ((__tmp82923 + (cons (let ((__tmp84045 (substring _%str51832%_ '1 (string-length _%str51832%_)))) (declare (not safe)) - (##string->symbol __tmp82923)) + (##string->symbol __tmp84045)) _%rest51826%_) _%type51805%_ _%object51806%_ @@ -8831,9 +8823,7 @@ _%stx51631%_ _%type51805%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%parts5180951816%_)) + (if (pair? _%parts5180951816%_) (let ((_%hd5181352001%_ (let () (declare (not safe)) @@ -8855,9 +8845,7 @@ (declare (not safe)) (|gerbil/core/more-sugar[1]#expand-set!| _%stx51631%_))))))) - (if (let () - (declare (not safe)) - (##pair? _%g5177251779%_)) + (if (pair? _%g5177251779%_) (let ((_%hd5177652019%_ (let () (declare (not safe)) @@ -8870,12 +8858,12 @@ (_%parts52028%_ _%tl5177752022%_)) (_%K5177552015%_ _%parts52028%_ _%var52025%_))) (_%E5177451785%_))))) - (_%__kont7855378554%_ + (_%__kont7954579546%_ (lambda (_%L51701%_ _%L51703%_) (let () (declare (not safe)) (|gerbil/core/more-sugar[1]#expand-set!| _%stx51631%_))))) - (let ((_%__match7857578576%_ + (let ((_%__match7956779568%_ (lambda (_%e5163951726%_ _%hd5164051730%_ _%tl5164151733%_ @@ -8889,12 +8877,12 @@ (_%L51758%_ _%hd5164351740%_)) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| _%L51758%_) - (_%__kont7855178552%_ _%L51756%_ _%L51758%_) - (_%__kont7855378554%_ + (_%__kont7954379544%_ _%L51756%_ _%L51758%_) + (_%__kont7954579546%_ _%hd5164651750%_ _%hd5164351740%_)))))) - (if (gx#stx-pair? _%__stx7854878549%_) - (let ((_%e5163951726%_ (gx#syntax-e _%__stx7854878549%_))) + (if (gx#stx-pair? _%__stx7954079541%_) + (let ((_%e5163951726%_ (gx#syntax-e _%__stx7954079541%_))) (let ((_%tl5164151733%_ (let () (declare (not safe)) @@ -8926,7 +8914,7 @@ (declare (not safe)) (##car _%e5164551746%_)))) (if (gx#stx-null? _%tl5164751753%_) - (_%__match7857578576%_ + (_%__match7956779568%_ _%e5163951726%_ _%hd5164051730%_ _%tl5164151733%_ diff --git a/src/bootstrap/gerbil/core/contract~8.scm b/src/bootstrap/gerbil/core/contract~8.scm index 7f2238d5b..f7d56d81a 100644 --- a/src/bootstrap/gerbil/core/contract~8.scm +++ b/src/bootstrap/gerbil/core/contract~8.scm @@ -1,72 +1,72 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~Interface[1]#_g82925_| + (define |gerbil/core/contract~Interface[1]#_g84047_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82927_| + (define |gerbil/core/contract~Interface[1]#_g84049_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82928_| + (define |gerbil/core/contract~Interface[1]#_g84050_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82929_| + (define |gerbil/core/contract~Interface[1]#_g84051_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82930_| + (define |gerbil/core/contract~Interface[1]#_g84052_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82931_| + (define |gerbil/core/contract~Interface[1]#_g84053_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82933_| + (define |gerbil/core/contract~Interface[1]#_g84055_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82935_| + (define |gerbil/core/contract~Interface[1]#_g84057_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82936_| + (define |gerbil/core/contract~Interface[1]#_g84058_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82937_| + (define |gerbil/core/contract~Interface[1]#_g84059_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82938_| + (define |gerbil/core/contract~Interface[1]#_g84060_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82939_| + (define |gerbil/core/contract~Interface[1]#_g84061_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82940_| + (define |gerbil/core/contract~Interface[1]#_g84062_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82941_| + (define |gerbil/core/contract~Interface[1]#_g84063_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82947_| + (define |gerbil/core/contract~Interface[1]#_g84069_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82948_| + (define |gerbil/core/contract~Interface[1]#_g84070_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82949_| + (define |gerbil/core/contract~Interface[1]#_g84071_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82950_| + (define |gerbil/core/contract~Interface[1]#_g84072_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82951_| + (define |gerbil/core/contract~Interface[1]#_g84073_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82952_| + (define |gerbil/core/contract~Interface[1]#_g84074_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82953_| + (define |gerbil/core/contract~Interface[1]#_g84075_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82954_| + (define |gerbil/core/contract~Interface[1]#_g84076_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82955_| + (define |gerbil/core/contract~Interface[1]#_g84077_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82956_| + (define |gerbil/core/contract~Interface[1]#_g84078_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82957_| + (define |gerbil/core/contract~Interface[1]#_g84079_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82958_| + (define |gerbil/core/contract~Interface[1]#_g84080_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82959_| + (define |gerbil/core/contract~Interface[1]#_g84081_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82960_| + (define |gerbil/core/contract~Interface[1]#_g84082_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82961_| + (define |gerbil/core/contract~Interface[1]#_g84083_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82962_| + (define |gerbil/core/contract~Interface[1]#_g84084_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82963_| + (define |gerbil/core/contract~Interface[1]#_g84085_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82964_| + (define |gerbil/core/contract~Interface[1]#_g84086_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82966_| + (define |gerbil/core/contract~Interface[1]#_g84088_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82974_| + (define |gerbil/core/contract~Interface[1]#_g84096_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~Interface[1]#check-signature!__%| @@ -168,14 +168,14 @@ (_%have-optional?59332%_ '#f) (_%ids59333%_ '()) (_%kws59334%_ '())) - (let* ((_%__stx7867478675%_ _%rest59330%_) + (let* ((_%__stx7966679667%_ _%rest59330%_) (_%g5934459414%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7867478675%_)))) - (let ((_%__kont7867778678%_ + _%__stx7966679667%_)))) + (let ((_%__kont7966979670%_ (lambda (_%L60030%_ _%L60032%_) (if _%have-optional?59332%_ (gx#raise-syntax-error @@ -204,7 +204,7 @@ (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7867978680%_ + (_%__kont7967179672%_ (lambda (_%L59983%_ _%L59985%_) (if (not _%optionals-allowed?59321%_) (gx#raise-syntax-error @@ -232,26 +232,26 @@ (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7868178682%_ + (_%__kont7967379674%_ (lambda (_%L59695%_ _%L59697%_ _%L59698%_) (if (not _%optionals-allowed?59321%_) - (let* ((_%__stx7859878599%_ _%L59697%_) + (let* ((_%__stx7959079591%_ _%L59697%_) (_%g5971559736%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7859878599%_)))) - (let ((_%__kont7860178602%_ + _%__stx7959079591%_)))) + (let ((_%__kont7959379594%_ (lambda (_%L59800%_) (gx#raise-syntax-error '#f '"invalid signature; optionals not allowed" _%stx59318%_ _%signature59319%_))) - (_%__kont7860578606%_ (lambda () (void)))) - (let ((_%__match7863378634%_ - (lambda (_%__splice7860378604%_ + (_%__kont7959779598%_ (lambda () (void)))) + (let ((_%__match7962579626%_ + (lambda (_%__splice7959579596%_ _%target5971859754%_ _%tl5972059757%_ _%e5972559760%_ @@ -275,31 +275,31 @@ (declare (not safe)) (##car _%e5972259788%_)))) (_%loop5972159780%_ _%lp-tl5972459795%_))) - (_%__kont7860178602%_ _%hd5972959774%_))))) + (_%__kont7959379594%_ _%hd5972959774%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%loop5972159780%_ _%target5971859754%_))))) - (if (gx#stx-pair/null? _%__stx7859878599%_) - (if (let ((__tmp82924 + (if (gx#stx-pair/null? _%__stx7959079591%_) + (if (let ((__tmp84046 (gx#stx-length - _%__stx7859878599%_))) + _%__stx7959079591%_))) (declare (not safe)) - (##fx>= __tmp82924 '2)) - (let ((_%__splice7860378604%_ + (##fx>= __tmp84046 '2)) + (let ((_%__splice7959579596%_ (gx#syntax-split-splice - _%__stx7859878599%_ + _%__stx7959079591%_ '2))) (let ((_%tl5972059757%_ (let () (declare (not safe)) (##vector-ref - _%__splice7860378604%_ + _%__splice7959579596%_ '1))) (_%target5971859754%_ (let () (declare (not safe)) (##vector-ref - _%__splice7860378604%_ + _%__splice7959579596%_ '0)))) (if (gx#stx-pair? _%tl5972059757%_) @@ -319,7 +319,7 @@ (if (gx#identifier? _%hd5972659764%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82925_| + |gerbil/core/contract~Interface[1]#_g84047_| _%hd5972659764%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -335,8 +335,8 @@ (declare (not safe)) (##car _%e5972859770%_)))) (if (gx#stx-null? _%tl5973059777%_) - (_%__match7863378634%_ - _%__splice7860378604%_ + (_%__match7962579626%_ + _%__splice7959579596%_ _%target5971859754%_ _%tl5972059757%_ _%e5972559760%_ @@ -345,24 +345,24 @@ _%e5972859770%_ _%hd5972959774%_ _%tl5973059777%_) - (_%__kont7860578606%_)))) - (_%__kont7860578606%_)) - (_%__kont7860578606%_)) - (_%__kont7860578606%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7860578606%_)))) - (_%__kont7860578606%_)) - (_%__kont7860578606%_))))) + (_%__kont7959779598%_)))) + (_%__kont7959779598%_)) + (_%__kont7959779598%_)) + (_%__kont7959779598%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7959779598%_)))) + (_%__kont7959779598%_)) + (_%__kont7959779598%_))))) (if (null? _%kws59334%_) (if _%have-optional?59332%_ - (let* ((_%__stx7863678637%_ _%L59697%_) + (let* ((_%__stx7962879629%_ _%L59697%_) (_%g5982959850%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7863678637%_)))) - (let ((_%__kont7863978640%_ + _%__stx7962879629%_)))) + (let ((_%__kont7963179632%_ (lambda (_%L59914%_) (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| _%stx59318%_ @@ -372,7 +372,7 @@ '#t (cons _%L59698%_ _%ids59333%_) _%kws59334%_))) - (_%__kont7864378644%_ + (_%__kont7963579636%_ (lambda () (gx#raise-syntax-error '#f @@ -380,8 +380,8 @@ _%stx59318%_ _%signature59319%_ _%L59697%_)))) - (let ((_%__match7867178672%_ - (lambda (_%__splice7864178642%_ + (let ((_%__match7966379664%_ + (lambda (_%__splice7963379634%_ _%target5983259868%_ _%tl5983459871%_ _%e5983959874%_ @@ -405,34 +405,34 @@ (declare (not safe)) (##car _%e5983659902%_)))) (_%loop5983559894%_ _%lp-tl5983859909%_))) - (_%__kont7863978640%_ _%hd5984359888%_))))) + (_%__kont7963179632%_ _%hd5984359888%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%loop5983559894%_ _%target5983259868%_))))) (if (gx#stx-pair/null? - _%__stx7863678637%_) - (if (let ((__tmp82926 + _%__stx7962879629%_) + (if (let ((__tmp84048 (gx#stx-length - _%__stx7863678637%_))) + _%__stx7962879629%_))) (declare (not safe)) - (##fx>= __tmp82926 '2)) - (let ((_%__splice7864178642%_ + (##fx>= __tmp84048 '2)) + (let ((_%__splice7963379634%_ (gx#syntax-split-splice - _%__stx7863678637%_ + _%__stx7962879629%_ '2))) (let ((_%tl5983459871%_ (let () (declare (not safe)) (##vector-ref - _%__splice7864178642%_ + _%__splice7963379634%_ '1))) (_%target5983259868%_ (let () (declare (not safe)) (##vector-ref - _%__splice7864178642%_ + _%__splice7963379634%_ '0)))) (if (gx#stx-pair? _%tl5983459871%_) @@ -450,7 +450,7 @@ (##car _%e5983959874%_)))) (if (gx#identifier? _%hd5984059878%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82927_| + |gerbil/core/contract~Interface[1]#_g84049_| _%hd5984059878%_) (if (gx#stx-pair? _%tl5984159881%_) (let ((_%e5984259884%_ @@ -464,8 +464,8 @@ (declare (not safe)) (##car _%e5984259884%_)))) (if (gx#stx-null? _%tl5984459891%_) - (_%__match7867178672%_ - _%__splice7864178642%_ + (_%__match7966379664%_ + _%__splice7963379634%_ _%target5983259868%_ _%tl5983459871%_ _%e5983959874%_ @@ -474,14 +474,14 @@ _%e5984259884%_ _%hd5984359888%_ _%tl5984459891%_) - (_%__kont7864378644%_)))) - (_%__kont7864378644%_)) - (_%__kont7864378644%_)) - (_%__kont7864378644%_)))) - (_%__kont7864378644%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7864378644%_)) - (_%__kont7864378644%_))))) + (_%__kont7963579636%_)))) + (_%__kont7963579636%_)) + (_%__kont7963579636%_)) + (_%__kont7963579636%_)))) + (_%__kont7963579636%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7963579636%_)) + (_%__kont7963579636%_))))) (if (find (lambda (_%g5993659938%_) (gx#bound-identifier=? _%g5993659938%_ @@ -505,7 +505,7 @@ (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7868378684%_ + (_%__kont7967579676%_ (lambda (_%L59638%_ _%L59640%_ _%L59641%_) (if (not _%keywords-allowed?59324%_) (gx#raise-syntax-error @@ -537,7 +537,7 @@ (cons _%L59640%_ _%ids59333%_) (cons (gx#stx-e _%L59641%_) _%kws59334%_))))))) - (_%__kont7868578686%_ + (_%__kont7967779678%_ (lambda (_%L59577%_ _%L59579%_ _%L59580%_) (if (not _%keywords-allowed?59324%_) (gx#raise-syntax-error @@ -569,7 +569,7 @@ (cons _%L59579%_ _%ids59333%_) (cons (gx#stx-e _%L59580%_) _%kws59334%_))))))) - (_%__kont7868778688%_ + (_%__kont7967979680%_ (lambda (_%L59496%_ _%L59498%_ _%L59499%_ _%L59500%_) (if (not _%keywords-allowed?59324%_) (gx#raise-syntax-error @@ -605,9 +605,9 @@ (cons _%L59499%_ _%ids59333%_) (cons (gx#stx-e _%L59500%_) _%kws59334%_)))))))) - (_%__kont7868978690%_ (lambda (_%L59443%_) '#t)) - (_%__kont7869178692%_ (lambda () '#t)) - (_%__kont7869378694%_ + (_%__kont7968179682%_ (lambda (_%L59443%_) '#t)) + (_%__kont7968379684%_ (lambda () '#t)) + (_%__kont7968579686%_ (lambda () (gx#raise-syntax-error '#f @@ -617,18 +617,18 @@ _%rest59330%_)))) (let* ((_%g5934259436%_ (lambda () - (if (gx#stx-null? _%__stx7867478675%_) - (_%__kont7869178692%_) - (_%__kont7869378694%_)))) + (if (gx#stx-null? _%__stx7966679667%_) + (_%__kont7968379684%_) + (_%__kont7968579686%_)))) (_%g5934159459%_ (lambda () - (let ((_%L59443%_ _%__stx7867478675%_)) + (let ((_%L59443%_ _%__stx7966679667%_)) (if (gx#identifier? _%L59443%_) - (_%__kont7868978690%_ _%L59443%_) + (_%__kont7968179682%_ _%L59443%_) (let () (declare (not safe)) (_%g5934259436%_)))))) - (_%__match7878978790%_ + (_%__match7978179782%_ (lambda (_%e5939959466%_ _%hd5940059470%_ _%tl5940159473%_ @@ -646,7 +646,7 @@ (gx#identifier? _%L59499%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L59498%_)) - (_%__kont7868778688%_ + (_%__kont7967979680%_ _%L59496%_ _%L59498%_ _%L59499%_ @@ -654,7 +654,7 @@ (let () (declare (not safe)) (_%g5934159459%_)))))) - (_%__match7877178772%_ + (_%__match7976379764%_ (lambda (_%e5938359537%_ _%hd5938459541%_ _%tl5938559544%_ @@ -672,11 +672,11 @@ (_%L59580%_ _%hd5938459541%_)) (if (and (gx#stx-keyword? _%L59580%_) (gx#identifier? _%L59579%_)) - (_%__kont7868578686%_ + (_%__kont7967779678%_ _%L59577%_ _%L59579%_ _%L59580%_) - (_%__match7878978790%_ + (_%__match7978179782%_ _%e5938359537%_ _%hd5938459541%_ _%tl5938559544%_ @@ -686,7 +686,7 @@ _%e5938959557%_ _%hd5939059561%_ _%tl5939159564%_))))) - (_%__match7874578746%_ + (_%__match7973779738%_ (lambda (_%e5937459618%_ _%hd5937559622%_ _%tl5937659625%_ @@ -698,7 +698,7 @@ (_%L59641%_ _%hd5937559622%_)) (if (and (gx#stx-keyword? _%L59641%_) (gx#identifier? _%L59640%_)) - (_%__kont7868378684%_ + (_%__kont7967579676%_ _%L59638%_ _%L59640%_ _%L59641%_) @@ -727,7 +727,7 @@ (##car _%e5939259567%_)))) (if (gx#stx-null? _%tl5939459574%_) - (_%__match7877178772%_ + (_%__match7976379764%_ _%e5937459618%_ _%hd5937559622%_ _%tl5937659625%_ @@ -740,7 +740,7 @@ _%e5939259567%_ _%hd5939359571%_ _%tl5939459574%_) - (_%__match7878978790%_ + (_%__match7978179782%_ _%e5937459618%_ _%hd5937559622%_ _%tl5937659625%_ @@ -750,7 +750,7 @@ _%e5938959557%_ _%hd5939059561%_ _%tl5939159564%_)))) - (_%__match7878978790%_ + (_%__match7978179782%_ _%e5937459618%_ _%hd5937559622%_ _%tl5937659625%_ @@ -763,7 +763,7 @@ (let () (declare (not safe)) (_%g5934159459%_))))))) - (_%__match7873378734%_ + (_%__match7972579726%_ (lambda (_%e5936559675%_ _%hd5936659679%_ _%tl5936759682%_ @@ -776,7 +776,7 @@ (if (and (gx#identifier? _%L59698%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L59697%_)) - (_%__kont7868178682%_ + (_%__kont7967379674%_ _%L59695%_ _%L59697%_ _%L59698%_) @@ -791,7 +791,7 @@ (let () (declare (not safe)) (##car _%e5937759628%_)))) - (_%__match7874578746%_ + (_%__match7973779738%_ _%e5936559675%_ _%hd5936659679%_ _%tl5936759682%_ @@ -801,7 +801,7 @@ (let () (declare (not safe)) (_%g5934159459%_))))))) - (_%__match7872178722%_ + (_%__match7971379714%_ (lambda (_%e5935359953%_ _%hd5935459957%_ _%tl5935559960%_ @@ -814,22 +814,22 @@ (let ((_%L59983%_ _%tl5935559960%_) (_%L59985%_ _%hd5935759967%_)) (if (gx#identifier? _%L59985%_) - (_%__kont7867978680%_ _%L59983%_ _%L59985%_) - (_%__match7873378734%_ + (_%__kont7967179672%_ _%L59983%_ _%L59985%_) + (_%__match7972579726%_ _%e5935359953%_ _%hd5935459957%_ _%tl5935559960%_ _%e5935659963%_ _%hd5935759967%_ _%tl5935859970%_))))) - (_%__match7870178702%_ + (_%__match7969379694%_ (lambda (_%e5934860020%_ _%hd5934960024%_ _%tl5935060027%_) (let ((_%L60030%_ _%tl5935060027%_) (_%L60032%_ _%hd5934960024%_)) (if (gx#identifier? _%L60032%_) - (_%__kont7867778678%_ _%L60030%_ _%L60032%_) + (_%__kont7966979670%_ _%L60030%_ _%L60032%_) (if (gx#stx-pair? _%hd5934960024%_) (let ((_%e5935659963%_ (gx#syntax-e _%hd5934960024%_))) @@ -855,7 +855,7 @@ (##car _%e5935959973%_)))) (if (gx#stx-null? _%tl5936159980%_) - (_%__match7872178722%_ + (_%__match7971379714%_ _%e5934860020%_ _%hd5934960024%_ _%tl5935060027%_ @@ -865,14 +865,14 @@ _%e5935959973%_ _%hd5936059977%_ _%tl5936159980%_) - (_%__match7873378734%_ + (_%__match7972579726%_ _%e5934860020%_ _%hd5934960024%_ _%tl5935060027%_ _%e5935659963%_ _%hd5935759967%_ _%tl5935859970%_)))) - (_%__match7873378734%_ + (_%__match7972579726%_ _%e5934860020%_ _%hd5934960024%_ _%tl5935060027%_ @@ -890,7 +890,7 @@ (let () (declare (not safe)) (##car _%e5937759628%_)))) - (_%__match7874578746%_ + (_%__match7973779738%_ _%e5934860020%_ _%hd5934960024%_ _%tl5935060027%_ @@ -900,9 +900,9 @@ (let () (declare (not safe)) (_%g5934159459%_))))))))) - (if (gx#stx-pair? _%__stx7867478675%_) + (if (gx#stx-pair? _%__stx7966679667%_) (let ((_%e5934860020%_ - (gx#syntax-e _%__stx7867478675%_))) + (gx#syntax-e _%__stx7966679667%_))) (let ((_%tl5935060027%_ (let () (declare (not safe)) @@ -911,7 +911,7 @@ (let () (declare (not safe)) (##car _%e5934860020%_)))) - (_%__match7870178702%_ + (_%__match7969379694%_ _%e5934860020%_ _%hd5934960024%_ _%tl5935060027%_))) @@ -934,28 +934,28 @@ _%args5931060073%_))) (define |gerbil/core/contract~Interface[1]#signature-contract?| (lambda (_%contract58767%_) - (let* ((_%__stx7879478795%_ _%contract58767%_) + (let* ((_%__stx7978679787%_ _%contract58767%_) (_%g5877658864%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7879478795%_)))) - (let ((_%__kont7879778798%_ + _%__stx7978679787%_)))) + (let ((_%__kont7978979790%_ (lambda (_%L59276%_ _%L59278%_) (gx#identifier? _%L59276%_))) - (_%__kont7879978800%_ + (_%__kont7979179792%_ (lambda (_%L59216%_ _%L59218%_ _%L59219%_) (gx#identifier? _%L59218%_))) - (_%__kont7880178802%_ (lambda (_%L59156%_) '#t)) - (_%__kont7880378804%_ (lambda (_%L59110%_ _%L59112%_) '#t)) - (_%__kont7880578806%_ + (_%__kont7979379794%_ (lambda (_%L59156%_) '#t)) + (_%__kont7979579796%_ (lambda (_%L59110%_ _%L59112%_) '#t)) + (_%__kont7979779798%_ (lambda (_%L59030%_ _%L59032%_ _%L59033%_) (gx#identifier? _%L59030%_))) - (_%__kont7880778808%_ + (_%__kont7979979800%_ (lambda (_%L58942%_ _%L58944%_ _%L58945%_ _%L58946%_) (gx#identifier? _%L58944%_))) - (_%__kont7880978810%_ (lambda () '#f))) - (let* ((_%__match7898378984%_ + (_%__kont7980179802%_ (lambda () '#f))) + (let* ((_%__match7997579976%_ (lambda (_%e5884158882%_ _%hd5884258886%_ _%tl5884358889%_ @@ -991,13 +991,13 @@ (gx#free-identifier=? _%L58945%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7880778808%_ + (_%__kont7979979800%_ _%L58942%_ _%L58944%_ _%L58945%_ _%L58946%_) - (_%__kont7880978810%_))))) - (_%__match7893778938%_ + (_%__kont7980179802%_))))) + (_%__match7992979930%_ (lambda (_%e5882558990%_ _%hd5882658994%_ _%tl5882758997%_ @@ -1026,12 +1026,12 @@ (gx#free-identifier=? _%L59032%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7880578806%_ + (_%__kont7979779798%_ _%L59030%_ _%L59032%_ _%L59033%_) - (_%__kont7880978810%_))))) - (_%__match7885578856%_ + (_%__kont7980179802%_))))) + (_%__match7984779848%_ (lambda (_%e5878959176%_ _%hd5879059180%_ _%tl5879159183%_ @@ -1060,20 +1060,20 @@ (gx#free-identifier=? _%L59219%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7879978800%_ + (_%__kont7979179792%_ _%L59216%_ _%L59218%_ _%L59219%_) (if (gx#identifier? _%hd5879059180%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82928_| + |gerbil/core/contract~Interface[1]#_g84050_| _%hd5879059180%_) - (_%__kont7880378804%_ + (_%__kont7979579796%_ _%hd5879959210%_ _%hd5879359190%_) - (_%__kont7880978810%_)) - (_%__kont7880978810%_)))))) - (_%__match7882578826%_ + (_%__kont7980179802%_)) + (_%__kont7980179802%_)))))) + (_%__match7981779818%_ (lambda (_%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1095,16 +1095,16 @@ (gx#free-identifier=? _%L59278%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7879778798%_ _%L59276%_ _%L59278%_) + (_%__kont7978979790%_ _%L59276%_ _%L59278%_) (if (gx#identifier? _%hd5878159260%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82928_| + |gerbil/core/contract~Interface[1]#_g84050_| _%hd5878159260%_) - (_%__kont7880178802%_ _%hd5878459270%_) - (_%__kont7880978810%_)) - (_%__kont7880978810%_))))))) - (if (gx#stx-pair? _%__stx7879478795%_) - (let ((_%e5878059256%_ (gx#syntax-e _%__stx7879478795%_))) + (_%__kont7979379794%_ _%hd5878459270%_) + (_%__kont7980179802%_)) + (_%__kont7980179802%_))))))) + (if (gx#stx-pair? _%__stx7978679787%_) + (let ((_%e5878059256%_ (gx#syntax-e _%__stx7978679787%_))) (let ((_%tl5878259263%_ (let () (declare (not safe)) @@ -1125,7 +1125,7 @@ (declare (not safe)) (##car _%e5878359266%_)))) (if (gx#stx-null? _%tl5878559273%_) - (_%__match7882578826%_ + (_%__match7981779818%_ _%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1145,7 +1145,7 @@ (##car _%e5879559196%_)))) (if (gx#identifier? _%hd5879659200%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82929_| + |gerbil/core/contract~Interface[1]#_g84051_| _%hd5879659200%_) (if (gx#stx-pair? _%tl5879759203%_) @@ -1160,7 +1160,7 @@ (_%hd5879959210%_ (let () (declare (not safe)) (##car _%e5879859206%_)))) (if (gx#stx-null? _%tl5880059213%_) - (_%__match7885578856%_ + (_%__match7984779848%_ _%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1175,7 +1175,7 @@ _%tl5880059213%_) (if (gx#identifier? _%hd5878159260%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82928_| + |gerbil/core/contract~Interface[1]#_g84050_| _%hd5878159260%_) (if (gx#stx-pair? _%tl5880059213%_) (let ((_%e5885358922%_ @@ -1190,7 +1190,7 @@ (##car _%e5885358922%_)))) (if (gx#identifier? _%hd5885458926%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82930_| + |gerbil/core/contract~Interface[1]#_g84052_| _%hd5885458926%_) (if (gx#stx-pair? _%tl5885558929%_) @@ -1209,7 +1209,7 @@ (##car _%e5885658932%_)))) (if (gx#stx-null? _%tl5885858939%_) - (_%__match7898378984%_ + (_%__match7997579976%_ _%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1228,19 +1228,19 @@ _%e5885658932%_ _%hd5885758936%_ _%tl5885858939%_) - (_%__kont7880978810%_)))) - (_%__kont7880978810%_)) - (_%__kont7880978810%_)) - (_%__kont7880978810%_)))) - (_%__kont7880978810%_)) - (_%__kont7880978810%_)) - (_%__kont7880978810%_))))) - (_%__kont7880978810%_)) + (_%__kont7980179802%_)))) + (_%__kont7980179802%_)) + (_%__kont7980179802%_)) + (_%__kont7980179802%_)))) + (_%__kont7980179802%_)) + (_%__kont7980179802%_)) + (_%__kont7980179802%_))))) + (_%__kont7980179802%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? _%hd5878159260%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82928_| + |gerbil/core/contract~Interface[1]#_g84050_| _%hd5878159260%_) (if (gx#stx-pair? _%tl5879759203%_) @@ -1256,7 +1256,7 @@ (declare (not safe)) (##car _%e5883459020%_)))) (if (gx#stx-null? _%tl5883659027%_) - (_%__match7893778938%_ + (_%__match7992979930%_ _%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1282,7 +1282,7 @@ (##car _%e5885358922%_)))) (if (gx#identifier? _%hd5885458926%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82930_| + |gerbil/core/contract~Interface[1]#_g84052_| _%hd5885458926%_) (if (gx#stx-pair? _%tl5885558929%_) @@ -1301,7 +1301,7 @@ (##car _%e5885658932%_)))) (if (gx#stx-null? _%tl5885858939%_) - (_%__match7898378984%_ + (_%__match7997579976%_ _%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1320,19 +1320,19 @@ _%e5885658932%_ _%hd5885758936%_ _%tl5885858939%_) - (_%__kont7880978810%_)))) - (_%__kont7880978810%_)) - (_%__kont7880978810%_)) - (_%__kont7880978810%_)))) - (_%__kont7880978810%_))))) - (_%__kont7880978810%_)) - (_%__kont7880978810%_)) - (_%__kont7880978810%_))) + (_%__kont7980179802%_)))) + (_%__kont7980179802%_)) + (_%__kont7980179802%_)) + (_%__kont7980179802%_)))) + (_%__kont7980179802%_))))) + (_%__kont7980179802%_)) + (_%__kont7980179802%_)) + (_%__kont7980179802%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? _%hd5878159260%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82928_| + |gerbil/core/contract~Interface[1]#_g84050_| _%hd5878159260%_) (if (gx#stx-pair? _%tl5879759203%_) @@ -1348,7 +1348,7 @@ (declare (not safe)) (##car _%e5883459020%_)))) (if (gx#stx-null? _%tl5883659027%_) - (_%__match7893778938%_ + (_%__match7992979930%_ _%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1374,7 +1374,7 @@ (##car _%e5885358922%_)))) (if (gx#identifier? _%hd5885458926%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82930_| + |gerbil/core/contract~Interface[1]#_g84052_| _%hd5885458926%_) (if (gx#stx-pair? _%tl5885558929%_) (let ((_%e5885658932%_ @@ -1390,7 +1390,7 @@ (##car _%e5885658932%_)))) (if (gx#stx-null? _%tl5885858939%_) - (_%__match7898378984%_ + (_%__match7997579976%_ _%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1409,39 +1409,39 @@ _%e5885658932%_ _%hd5885758936%_ _%tl5885858939%_) - (_%__kont7880978810%_)))) - (_%__kont7880978810%_)) - (_%__kont7880978810%_)) - (_%__kont7880978810%_)))) - (_%__kont7880978810%_))))) - (_%__kont7880978810%_)) - (_%__kont7880978810%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7880978810%_))))) - (_%__kont7880978810%_))))) - (_%__kont7880978810%_)))) - (_%__kont7880978810%_))))))) + (_%__kont7980179802%_)))) + (_%__kont7980179802%_)) + (_%__kont7980179802%_)) + (_%__kont7980179802%_)))) + (_%__kont7980179802%_))))) + (_%__kont7980179802%_)) + (_%__kont7980179802%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7980179802%_))))) + (_%__kont7980179802%_))))) + (_%__kont7980179802%_)))) + (_%__kont7980179802%_))))))) (define |gerbil/core/contract~Interface[1]#check-signature-contract-types!| (lambda (_%stx58574%_ _%contract58576%_) - (let* ((_%__stx7898678987%_ _%contract58576%_) + (let* ((_%__stx7997879979%_ _%contract58576%_) (_%g5858058612%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7898678987%_)))) - (let ((_%__kont7898978990%_ + _%__stx7997879979%_)))) + (let ((_%__kont7998179982%_ (lambda (_%L58734%_ _%L58736%_ _%L58737%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| _%stx58574%_ _%L58736%_))) - (_%__kont7899178992%_ + (_%__kont7998379984%_ (lambda (_%L58670%_ _%L58672%_ _%L58673%_ _%L58674%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| _%stx58574%_ _%L58672%_))) - (_%__kont7899378994%_ (lambda () (void)))) - (let* ((_%__match7903579036%_ + (_%__kont7998579986%_ (lambda () (void)))) + (let* ((_%__match8002780028%_ (lambda (_%e5859558630%_ _%hd5859658634%_ _%tl5859758637%_ @@ -1471,13 +1471,13 @@ (gx#free-identifier=? _%L58673%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7899178992%_ + (_%__kont7998379984%_ _%L58670%_ _%L58672%_ _%L58673%_ _%L58674%_) - (_%__kont7899378994%_))))) - (_%__match7900779008%_ + (_%__kont7998579986%_))))) + (_%__match7999980000%_ (lambda (_%e5858558714%_ _%hd5858658718%_ _%tl5858758721%_ @@ -1500,13 +1500,13 @@ (gx#free-identifier=? _%L58737%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7898978990%_ + (_%__kont7998179982%_ _%L58734%_ _%L58736%_ _%L58737%_) (if (gx#identifier? _%hd5858658718%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82931_| + |gerbil/core/contract~Interface[1]#_g84053_| _%hd5858658718%_) (if (gx#stx-pair? _%tl5859058731%_) (let ((_%e5860158650%_ @@ -1531,7 +1531,7 @@ (let () (declare (not safe)) (##car _%e5860458660%_)))) - (_%__match7903579036%_ + (_%__match8002780028%_ _%e5858558714%_ _%hd5858658718%_ _%tl5858758721%_ @@ -1544,12 +1544,12 @@ _%e5860458660%_ _%hd5860558664%_ _%tl5860658667%_))) - (_%__kont7899378994%_)))) - (_%__kont7899378994%_)) - (_%__kont7899378994%_)) - (_%__kont7899378994%_))))))) - (if (gx#stx-pair? _%__stx7898678987%_) - (let ((_%e5858558714%_ (gx#syntax-e _%__stx7898678987%_))) + (_%__kont7998579986%_)))) + (_%__kont7998579986%_)) + (_%__kont7998579986%_)) + (_%__kont7998579986%_))))))) + (if (gx#stx-pair? _%__stx7997879979%_) + (let ((_%e5858558714%_ (gx#syntax-e _%__stx7997879979%_))) (let ((_%tl5858758721%_ (let () (declare (not safe)) @@ -1569,59 +1569,59 @@ (let () (declare (not safe)) (##car _%e5858858724%_)))) - (_%__match7900779008%_ + (_%__match7999980000%_ _%e5858558714%_ _%hd5858658718%_ _%tl5858758721%_ _%e5858858724%_ _%hd5858958728%_ _%tl5859058731%_))) - (_%__kont7899378994%_)))) - (_%__kont7899378994%_))))))) + (_%__kont7998579986%_)))) + (_%__kont7998579986%_))))))) (define |gerbil/core/contract~Interface[1]#signature-arguments-in| (lambda (_%signature57930%_) (let _%loop57933%_ ((_%rest57936%_ _%signature57930%_) (_%result57938%_ '())) - (let* ((_%__stx7911479115%_ _%rest57936%_) + (let* ((_%__stx8010680107%_ _%rest57936%_) (_%g5794758019%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7911479115%_)))) - (let ((_%__kont7911779118%_ + _%__stx8010680107%_)))) + (let ((_%__kont8010980110%_ (lambda (_%L58557%_ _%L58559%_) (_%loop57933%_ _%L58557%_ (cons _%L58559%_ _%result57938%_)))) - (_%__kont7911979120%_ + (_%__kont8011180112%_ (lambda (_%L58521%_ _%L58523%_ _%L58524%_) (_%loop57933%_ _%L58521%_ (cons (cons _%L58524%_ (cons _%L58523%_ '())) _%result57938%_)))) - (_%__kont7912179122%_ + (_%__kont8011380114%_ (lambda (_%L58358%_ _%L58360%_ _%L58361%_) - (let* ((_%__stx7907679077%_ _%L58360%_) + (let* ((_%__stx8006880069%_ _%L58360%_) (_%g5837658397%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7907679077%_)))) - (let ((_%__kont7907979080%_ + _%__stx8006880069%_)))) + (let ((_%__kont8007180072%_ (lambda (_%L58461%_) (_%loop57933%_ _%L58358%_ (cons (cons _%L58361%_ (cons _%L58461%_ '())) _%result57938%_)))) - (_%__kont7908379084%_ + (_%__kont8007580076%_ (lambda () (_%loop57933%_ _%L58358%_ (cons _%L58361%_ _%result57938%_))))) - (let ((_%__match7911179112%_ - (lambda (_%__splice7908179082%_ + (let ((_%__match8010380104%_ + (lambda (_%__splice8007380074%_ _%target5837958415%_ _%tl5838158418%_ _%e5838658421%_ @@ -1649,30 +1649,30 @@ (##car _%e5838358449%_)))) (_%loop5838258441%_ _%lp-tl5838558456%_))) - (_%__kont7907979080%_ + (_%__kont8007180072%_ _%hd5839058435%_))))) (_%loop5838258441%_ _%target5837958415%_))))) - (if (gx#stx-pair/null? _%__stx7907679077%_) - (if (let ((__tmp82932 - (gx#stx-length _%__stx7907679077%_))) + (if (gx#stx-pair/null? _%__stx8006880069%_) + (if (let ((__tmp84054 + (gx#stx-length _%__stx8006880069%_))) (declare (not safe)) - (##fx>= __tmp82932 '2)) - (let ((_%__splice7908179082%_ + (##fx>= __tmp84054 '2)) + (let ((_%__splice8007380074%_ (gx#syntax-split-splice - _%__stx7907679077%_ + _%__stx8006880069%_ '2))) (let ((_%tl5838158418%_ (let () (declare (not safe)) (##vector-ref - _%__splice7908179082%_ + _%__splice8007380074%_ '1))) (_%target5837958415%_ (let () (declare (not safe)) (##vector-ref - _%__splice7908179082%_ + _%__splice8007380074%_ '0)))) (if (gx#stx-pair? _%tl5838158418%_) (let ((_%e5838658421%_ @@ -1689,7 +1689,7 @@ (if (gx#identifier? _%hd5838758425%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82933_| + |gerbil/core/contract~Interface[1]#_g84055_| _%hd5838758425%_) (if (gx#stx-pair? _%tl5838858428%_) @@ -1705,8 +1705,8 @@ (declare (not safe)) (##car _%e5838958431%_)))) (if (gx#stx-null? _%tl5839158438%_) - (_%__match7911179112%_ - _%__splice7908179082%_ + (_%__match8010380104%_ + _%__splice8007380074%_ _%target5837958415%_ _%tl5838158418%_ _%e5838658421%_ @@ -1715,48 +1715,48 @@ _%e5838958431%_ _%hd5839058435%_ _%tl5839158438%_) - (_%__kont7908379084%_)))) - (_%__kont7908379084%_)) - (_%__kont7908379084%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7908379084%_)))) - (_%__kont7908379084%_)))) - (_%__kont7908379084%_)) - (_%__kont7908379084%_))))))) - (_%__kont7912379124%_ + (_%__kont8007580076%_)))) + (_%__kont8007580076%_)) + (_%__kont8007580076%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8007580076%_)))) + (_%__kont8007580076%_)))) + (_%__kont8007580076%_)) + (_%__kont8007580076%_))))))) + (_%__kont8011580116%_ (lambda (_%L58314%_ _%L58316%_ _%L58317%_) (_%loop57933%_ _%L58314%_ (cons _%L58316%_ (cons _%L58317%_ _%result57938%_))))) - (_%__kont7912579126%_ + (_%__kont8011780118%_ (lambda (_%L58264%_ _%L58266%_ _%L58267%_ _%L58268%_) (_%loop57933%_ _%L58264%_ (cons (cons _%L58267%_ (cons _%L58266%_ '())) (cons _%L58268%_ _%result57938%_))))) - (_%__kont7912779128%_ + (_%__kont8011980120%_ (lambda (_%L58087%_ _%L58089%_ _%L58090%_ _%L58091%_) - (let* ((_%__stx7903879039%_ _%L58089%_) + (let* ((_%__stx8003080031%_ _%L58089%_) (_%g5810958130%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7903879039%_)))) - (let ((_%__kont7904179042%_ + _%__stx8003080031%_)))) + (let ((_%__kont8003380034%_ (lambda (_%L58194%_) (_%loop57933%_ _%L58087%_ (cons (cons _%L58090%_ (cons _%L58194%_ '())) (cons _%L58091%_ _%result57938%_))))) - (_%__kont7904579046%_ + (_%__kont8003780038%_ (lambda () (_%loop57933%_ _%L58087%_ (cons _%L58090%_ (cons _%L58091%_ _%result57938%_)))))) - (let ((_%__match7907379074%_ - (lambda (_%__splice7904379044%_ + (let ((_%__match8006580066%_ + (lambda (_%__splice8003580036%_ _%target5811258148%_ _%tl5811458151%_ _%e5811958154%_ @@ -1784,30 +1784,30 @@ (##car _%e5811658182%_)))) (_%loop5811558174%_ _%lp-tl5811858189%_))) - (_%__kont7904179042%_ + (_%__kont8003380034%_ _%hd5812358168%_))))) (_%loop5811558174%_ _%target5811258148%_))))) - (if (gx#stx-pair/null? _%__stx7903879039%_) - (if (let ((__tmp82934 - (gx#stx-length _%__stx7903879039%_))) + (if (gx#stx-pair/null? _%__stx8003080031%_) + (if (let ((__tmp84056 + (gx#stx-length _%__stx8003080031%_))) (declare (not safe)) - (##fx>= __tmp82934 '2)) - (let ((_%__splice7904379044%_ + (##fx>= __tmp84056 '2)) + (let ((_%__splice8003580036%_ (gx#syntax-split-splice - _%__stx7903879039%_ + _%__stx8003080031%_ '2))) (let ((_%tl5811458151%_ (let () (declare (not safe)) (##vector-ref - _%__splice7904379044%_ + _%__splice8003580036%_ '1))) (_%target5811258148%_ (let () (declare (not safe)) (##vector-ref - _%__splice7904379044%_ + _%__splice8003580036%_ '0)))) (if (gx#stx-pair? _%tl5811458151%_) (let ((_%e5811958154%_ @@ -1824,7 +1824,7 @@ (if (gx#identifier? _%hd5812058158%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82935_| + |gerbil/core/contract~Interface[1]#_g84057_| _%hd5812058158%_) (if (gx#stx-pair? _%tl5812158161%_) @@ -1840,8 +1840,8 @@ (declare (not safe)) (##car _%e5812258164%_)))) (if (gx#stx-null? _%tl5812458171%_) - (_%__match7907379074%_ - _%__splice7904379044%_ + (_%__match8006580066%_ + _%__splice8003580036%_ _%target5811258148%_ _%tl5811458151%_ _%e5811958154%_ @@ -1850,26 +1850,26 @@ _%e5812258164%_ _%hd5812358168%_ _%tl5812458171%_) - (_%__kont7904579046%_)))) - (_%__kont7904579046%_)) - (_%__kont7904579046%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7904579046%_)))) - (_%__kont7904579046%_)))) - (_%__kont7904579046%_)) - (_%__kont7904579046%_))))))) - (_%__kont7912979130%_ + (_%__kont8003780038%_)))) + (_%__kont8003780038%_)) + (_%__kont8003780038%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8003780038%_)))) + (_%__kont8003780038%_)))) + (_%__kont8003780038%_)) + (_%__kont8003780038%_))))))) + (_%__kont8012180122%_ (lambda (_%L58037%_) (foldl cons _%L58037%_ _%result57938%_))) - (_%__kont7913179132%_ + (_%__kont8012380124%_ (lambda () (reverse! _%result57938%_)))) (let* ((_%g5794558050%_ (lambda () - (let ((_%L58037%_ _%__stx7911479115%_)) + (let ((_%L58037%_ _%__stx8010680107%_)) (if (gx#identifier? _%L58037%_) - (_%__kont7912979130%_ _%L58037%_) - (_%__kont7913179132%_))))) - (_%__match7922779228%_ + (_%__kont8012180122%_ _%L58037%_) + (_%__kont8012380124%_))))) + (_%__match8021980220%_ (lambda (_%e5800458057%_ _%hd5800558061%_ _%tl5800658064%_ @@ -1887,7 +1887,7 @@ (gx#identifier? _%L58090%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L58089%_)) - (_%__kont7912779128%_ + (_%__kont8011980120%_ _%L58087%_ _%L58089%_ _%L58090%_ @@ -1895,7 +1895,7 @@ (let () (declare (not safe)) (_%g5794558050%_)))))) - (_%__match7920979210%_ + (_%__match8020180202%_ (lambda (_%e5798858224%_ _%hd5798958228%_ _%tl5799058231%_ @@ -1914,12 +1914,12 @@ (_%L58268%_ _%hd5798958228%_)) (if (and (gx#stx-keyword? _%L58268%_) (gx#identifier? _%L58267%_)) - (_%__kont7912579126%_ + (_%__kont8011780118%_ _%L58264%_ _%L58266%_ _%L58267%_ _%L58268%_) - (_%__match7922779228%_ + (_%__match8021980220%_ _%e5798858224%_ _%hd5798958228%_ _%tl5799058231%_ @@ -1929,7 +1929,7 @@ _%e5799458244%_ _%hd5799558248%_ _%tl5799658251%_))))) - (_%__match7918379184%_ + (_%__match8017580176%_ (lambda (_%e5797858294%_ _%hd5797958298%_ _%tl5798058301%_ @@ -1941,7 +1941,7 @@ (_%L58317%_ _%hd5797958298%_)) (if (and (gx#stx-keyword? _%L58317%_) (gx#identifier? _%L58316%_)) - (_%__kont7912379124%_ + (_%__kont8011580116%_ _%L58314%_ _%L58316%_ _%L58317%_) @@ -1970,7 +1970,7 @@ (##car _%e5799758254%_)))) (if (gx#stx-null? _%tl5799958261%_) - (_%__match7920979210%_ + (_%__match8020180202%_ _%e5797858294%_ _%hd5797958298%_ _%tl5798058301%_ @@ -1983,7 +1983,7 @@ _%e5799758254%_ _%hd5799858258%_ _%tl5799958261%_) - (_%__match7922779228%_ + (_%__match8021980220%_ _%e5797858294%_ _%hd5797958298%_ _%tl5798058301%_ @@ -1993,7 +1993,7 @@ _%e5799458244%_ _%hd5799558248%_ _%tl5799658251%_)))) - (_%__match7922779228%_ + (_%__match8021980220%_ _%e5797858294%_ _%hd5797958298%_ _%tl5798058301%_ @@ -2006,7 +2006,7 @@ (let () (declare (not safe)) (_%g5794558050%_))))))) - (_%__match7917179172%_ + (_%__match8016380164%_ (lambda (_%e5796958338%_ _%hd5797058342%_ _%tl5797158345%_ @@ -2019,7 +2019,7 @@ (if (and (gx#identifier? _%L58361%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L58360%_)) - (_%__kont7912179122%_ + (_%__kont8011380114%_ _%L58358%_ _%L58360%_ _%L58361%_) @@ -2034,7 +2034,7 @@ (let () (declare (not safe)) (##car _%e5798158304%_)))) - (_%__match7918379184%_ + (_%__match8017580176%_ _%e5796958338%_ _%hd5797058342%_ _%tl5797158345%_ @@ -2044,7 +2044,7 @@ (let () (declare (not safe)) (_%g5794558050%_))))))) - (_%__match7915979160%_ + (_%__match8015180152%_ (lambda (_%e5795758491%_ _%hd5795858495%_ _%tl5795958498%_ @@ -2058,25 +2058,25 @@ (_%L58523%_ _%hd5796458515%_) (_%L58524%_ _%hd5796158505%_)) (if (gx#identifier? _%L58524%_) - (_%__kont7911979120%_ + (_%__kont8011180112%_ _%L58521%_ _%L58523%_ _%L58524%_) - (_%__match7917179172%_ + (_%__match8016380164%_ _%e5795758491%_ _%hd5795858495%_ _%tl5795958498%_ _%e5796058501%_ _%hd5796158505%_ _%tl5796258508%_))))) - (_%__match7913979140%_ + (_%__match8013180132%_ (lambda (_%e5795158547%_ _%hd5795258551%_ _%tl5795358554%_) (let ((_%L58557%_ _%tl5795358554%_) (_%L58559%_ _%hd5795258551%_)) (if (gx#identifier? _%L58559%_) - (_%__kont7911779118%_ _%L58557%_ _%L58559%_) + (_%__kont8010980110%_ _%L58557%_ _%L58559%_) (if (gx#stx-pair? _%hd5795258551%_) (let ((_%e5796058501%_ (gx#syntax-e _%hd5795258551%_))) @@ -2102,7 +2102,7 @@ (##car _%e5796358511%_)))) (if (gx#stx-null? _%tl5796558518%_) - (_%__match7915979160%_ + (_%__match8015180152%_ _%e5795158547%_ _%hd5795258551%_ _%tl5795358554%_ @@ -2112,14 +2112,14 @@ _%e5796358511%_ _%hd5796458515%_ _%tl5796558518%_) - (_%__match7917179172%_ + (_%__match8016380164%_ _%e5795158547%_ _%hd5795258551%_ _%tl5795358554%_ _%e5796058501%_ _%hd5796158505%_ _%tl5796258508%_)))) - (_%__match7917179172%_ + (_%__match8016380164%_ _%e5795158547%_ _%hd5795258551%_ _%tl5795358554%_ @@ -2137,7 +2137,7 @@ (let () (declare (not safe)) (##car _%e5798158304%_)))) - (_%__match7918379184%_ + (_%__match8017580176%_ _%e5795158547%_ _%hd5795258551%_ _%tl5795358554%_ @@ -2147,8 +2147,8 @@ (let () (declare (not safe)) (_%g5794558050%_))))))))) - (if (gx#stx-pair? _%__stx7911479115%_) - (let ((_%e5795158547%_ (gx#syntax-e _%__stx7911479115%_))) + (if (gx#stx-pair? _%__stx8010680107%_) + (let ((_%e5795158547%_ (gx#syntax-e _%__stx8010680107%_))) (let ((_%tl5795358554%_ (let () (declare (not safe)) @@ -2157,7 +2157,7 @@ (let () (declare (not safe)) (##car _%e5795158547%_)))) - (_%__match7913979140%_ + (_%__match8013180132%_ _%e5795158547%_ _%hd5795258551%_ _%tl5795358554%_))) @@ -2166,55 +2166,55 @@ (lambda (_%signature57507%_) (let _%loop57510%_ ((_%rest57513%_ _%signature57507%_) (_%result57515%_ '())) - (let* ((_%__stx7923079231%_ _%rest57513%_) + (let* ((_%__stx8022280223%_ _%rest57513%_) (_%g5752457595%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7923079231%_)))) - (let ((_%__kont7923379234%_ + _%__stx8022280223%_)))) + (let ((_%__kont8022580226%_ (lambda (_%L57913%_ _%L57915%_) (_%loop57510%_ _%L57913%_ (cons _%L57915%_ _%result57515%_)))) - (_%__kont7923579236%_ + (_%__kont8022780228%_ (lambda (_%L57879%_ _%L57881%_) (_%loop57510%_ _%L57879%_ (cons _%L57881%_ _%result57515%_)))) - (_%__kont7923779238%_ + (_%__kont8022980230%_ (lambda (_%L57825%_ _%L57827%_ _%L57828%_) (_%loop57510%_ _%L57825%_ (cons _%L57828%_ _%result57515%_)))) - (_%__kont7923979240%_ + (_%__kont8023180232%_ (lambda (_%L57781%_ _%L57783%_ _%L57784%_) (_%loop57510%_ _%L57781%_ (cons _%L57783%_ (cons _%L57784%_ _%result57515%_))))) - (_%__kont7924179242%_ + (_%__kont8023380234%_ (lambda (_%L57731%_ _%L57733%_ _%L57734%_ _%L57735%_) (_%loop57510%_ _%L57731%_ (cons _%L57734%_ (cons _%L57735%_ _%result57515%_))))) - (_%__kont7924379244%_ + (_%__kont8023580236%_ (lambda (_%L57663%_ _%L57665%_ _%L57666%_ _%L57667%_) (_%loop57510%_ _%L57663%_ (cons _%L57666%_ (cons _%L57667%_ _%result57515%_))))) - (_%__kont7924579246%_ + (_%__kont8023780238%_ (lambda (_%L57613%_) (foldl cons (cons _%L57613%_ '()) _%result57515%_))) - (_%__kont7924779248%_ + (_%__kont8023980240%_ (lambda () (reverse! _%result57515%_)))) (let* ((_%g5752257626%_ (lambda () - (let ((_%L57613%_ _%__stx7923079231%_)) + (let ((_%L57613%_ _%__stx8022280223%_)) (if (gx#identifier? _%L57613%_) - (_%__kont7924579246%_ _%L57613%_) - (_%__kont7924779248%_))))) - (_%__match7934379344%_ + (_%__kont8023780238%_ _%L57613%_) + (_%__kont8023980240%_))))) + (_%__match8033580336%_ (lambda (_%e5758057633%_ _%hd5758157637%_ _%tl5758257640%_ @@ -2232,7 +2232,7 @@ (gx#identifier? _%L57666%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L57665%_)) - (_%__kont7924379244%_ + (_%__kont8023580236%_ _%L57663%_ _%L57665%_ _%L57666%_ @@ -2240,7 +2240,7 @@ (let () (declare (not safe)) (_%g5752257626%_)))))) - (_%__match7932579326%_ + (_%__match8031780318%_ (lambda (_%e5756457691%_ _%hd5756557695%_ _%tl5756657698%_ @@ -2259,12 +2259,12 @@ (_%L57735%_ _%hd5756557695%_)) (if (and (gx#stx-keyword? _%L57735%_) (gx#identifier? _%L57734%_)) - (_%__kont7924179242%_ + (_%__kont8023380234%_ _%L57731%_ _%L57733%_ _%L57734%_ _%L57735%_) - (_%__match7934379344%_ + (_%__match8033580336%_ _%e5756457691%_ _%hd5756557695%_ _%tl5756657698%_ @@ -2274,7 +2274,7 @@ _%e5757057711%_ _%hd5757157715%_ _%tl5757257718%_))))) - (_%__match7929979300%_ + (_%__match8029180292%_ (lambda (_%e5755457761%_ _%hd5755557765%_ _%tl5755657768%_ @@ -2286,7 +2286,7 @@ (_%L57784%_ _%hd5755557765%_)) (if (and (gx#stx-keyword? _%L57784%_) (gx#identifier? _%L57783%_)) - (_%__kont7923979240%_ + (_%__kont8023180232%_ _%L57781%_ _%L57783%_ _%L57784%_) @@ -2315,7 +2315,7 @@ (##car _%e5757357721%_)))) (if (gx#stx-null? _%tl5757557728%_) - (_%__match7932579326%_ + (_%__match8031780318%_ _%e5755457761%_ _%hd5755557765%_ _%tl5755657768%_ @@ -2328,7 +2328,7 @@ _%e5757357721%_ _%hd5757457725%_ _%tl5757557728%_) - (_%__match7934379344%_ + (_%__match8033580336%_ _%e5755457761%_ _%hd5755557765%_ _%tl5755657768%_ @@ -2338,7 +2338,7 @@ _%e5757057711%_ _%hd5757157715%_ _%tl5757257718%_)))) - (_%__match7934379344%_ + (_%__match8033580336%_ _%e5755457761%_ _%hd5755557765%_ _%tl5755657768%_ @@ -2351,7 +2351,7 @@ (let () (declare (not safe)) (_%g5752257626%_))))))) - (_%__match7928779288%_ + (_%__match8027980280%_ (lambda (_%e5754557805%_ _%hd5754657809%_ _%tl5754757812%_ @@ -2364,7 +2364,7 @@ (if (and (gx#identifier? _%L57828%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L57827%_)) - (_%__kont7923779238%_ + (_%__kont8022980230%_ _%L57825%_ _%L57827%_ _%L57828%_) @@ -2379,7 +2379,7 @@ (let () (declare (not safe)) (##car _%e5755757771%_)))) - (_%__match7929979300%_ + (_%__match8029180292%_ _%e5754557805%_ _%hd5754657809%_ _%tl5754757812%_ @@ -2389,7 +2389,7 @@ (let () (declare (not safe)) (_%g5752257626%_))))))) - (_%__match7927579276%_ + (_%__match8026780268%_ (lambda (_%e5753357849%_ _%hd5753457853%_ _%tl5753557856%_ @@ -2402,22 +2402,22 @@ (let ((_%L57879%_ _%tl5753557856%_) (_%L57881%_ _%hd5753757863%_)) (if (gx#identifier? _%L57881%_) - (_%__kont7923579236%_ _%L57879%_ _%L57881%_) - (_%__match7928779288%_ + (_%__kont8022780228%_ _%L57879%_ _%L57881%_) + (_%__match8027980280%_ _%e5753357849%_ _%hd5753457853%_ _%tl5753557856%_ _%e5753657859%_ _%hd5753757863%_ _%tl5753857866%_))))) - (_%__match7925579256%_ + (_%__match8024780248%_ (lambda (_%e5752857903%_ _%hd5752957907%_ _%tl5753057910%_) (let ((_%L57913%_ _%tl5753057910%_) (_%L57915%_ _%hd5752957907%_)) (if (gx#identifier? _%L57915%_) - (_%__kont7923379234%_ _%L57913%_ _%L57915%_) + (_%__kont8022580226%_ _%L57913%_ _%L57915%_) (if (gx#stx-pair? _%hd5752957907%_) (let ((_%e5753657859%_ (gx#syntax-e _%hd5752957907%_))) @@ -2443,7 +2443,7 @@ (##car _%e5753957869%_)))) (if (gx#stx-null? _%tl5754157876%_) - (_%__match7927579276%_ + (_%__match8026780268%_ _%e5752857903%_ _%hd5752957907%_ _%tl5753057910%_ @@ -2453,14 +2453,14 @@ _%e5753957869%_ _%hd5754057873%_ _%tl5754157876%_) - (_%__match7928779288%_ + (_%__match8027980280%_ _%e5752857903%_ _%hd5752957907%_ _%tl5753057910%_ _%e5753657859%_ _%hd5753757863%_ _%tl5753857866%_)))) - (_%__match7928779288%_ + (_%__match8027980280%_ _%e5752857903%_ _%hd5752957907%_ _%tl5753057910%_ @@ -2478,7 +2478,7 @@ (let () (declare (not safe)) (##car _%e5755757771%_)))) - (_%__match7929979300%_ + (_%__match8029180292%_ _%e5752857903%_ _%hd5752957907%_ _%tl5753057910%_ @@ -2488,8 +2488,8 @@ (let () (declare (not safe)) (_%g5752257626%_))))))))) - (if (gx#stx-pair? _%__stx7923079231%_) - (let ((_%e5752857903%_ (gx#syntax-e _%__stx7923079231%_))) + (if (gx#stx-pair? _%__stx8022280223%_) + (let ((_%e5752857903%_ (gx#syntax-e _%__stx8022280223%_))) (let ((_%tl5753057910%_ (let () (declare (not safe)) @@ -2498,7 +2498,7 @@ (let () (declare (not safe)) (##car _%e5752857903%_)))) - (_%__match7925579256%_ + (_%__match8024780248%_ _%e5752857903%_ _%hd5752957907%_ _%tl5753057910%_))) @@ -2506,29 +2506,29 @@ (define |gerbil/core/contract~Interface[1]#signature-has-keywords?| (lambda (_%signature57100%_) (let _%loop57103%_ ((_%rest57106%_ _%signature57100%_)) - (let* ((_%__stx7934679347%_ _%rest57106%_) + (let* ((_%__stx8033880339%_ _%rest57106%_) (_%g5711557186%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7934679347%_)))) - (let ((_%__kont7934979350%_ + _%__stx8033880339%_)))) + (let ((_%__kont8034180342%_ (lambda (_%L57490%_ _%L57492%_) (_%loop57103%_ _%L57490%_))) - (_%__kont7935179352%_ + (_%__kont8034380344%_ (lambda (_%L57454%_ _%L57456%_ _%L57457%_) (_%loop57103%_ _%L57454%_))) - (_%__kont7935379354%_ + (_%__kont8034580346%_ (lambda (_%L57400%_ _%L57402%_ _%L57403%_) (_%loop57103%_ _%L57400%_))) - (_%__kont7935579356%_ + (_%__kont8034780348%_ (lambda (_%L57356%_ _%L57358%_ _%L57359%_) '#t)) - (_%__kont7935779358%_ + (_%__kont8034980350%_ (lambda (_%L57306%_ _%L57308%_ _%L57309%_ _%L57310%_) '#t)) - (_%__kont7935979360%_ + (_%__kont8035180352%_ (lambda (_%L57234%_ _%L57236%_ _%L57237%_ _%L57238%_) '#t)) - (_%__kont7936179362%_ (lambda () '#f))) - (let* ((_%__match7945779458%_ + (_%__kont8035380354%_ (lambda () '#f))) + (let* ((_%__match8044980450%_ (lambda (_%e5717257204%_ _%hd5717357208%_ _%tl5717457211%_ @@ -2546,13 +2546,13 @@ (gx#identifier? _%L57237%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L57236%_)) - (_%__kont7935979360%_ + (_%__kont8035180352%_ _%L57234%_ _%L57236%_ _%L57237%_ _%L57238%_) - (_%__kont7936179362%_))))) - (_%__match7943979440%_ + (_%__kont8035380354%_))))) + (_%__match8043180432%_ (lambda (_%e5715657266%_ _%hd5715757270%_ _%tl5715857273%_ @@ -2571,12 +2571,12 @@ (_%L57310%_ _%hd5715757270%_)) (if (and (gx#stx-keyword? _%L57310%_) (gx#identifier? _%L57309%_)) - (_%__kont7935779358%_ + (_%__kont8034980350%_ _%L57306%_ _%L57308%_ _%L57309%_ _%L57310%_) - (_%__match7945779458%_ + (_%__match8044980450%_ _%e5715657266%_ _%hd5715757270%_ _%tl5715857273%_ @@ -2586,7 +2586,7 @@ _%e5716257286%_ _%hd5716357290%_ _%tl5716457293%_))))) - (_%__match7941379414%_ + (_%__match8040580406%_ (lambda (_%e5714657336%_ _%hd5714757340%_ _%tl5714857343%_ @@ -2598,7 +2598,7 @@ (_%L57359%_ _%hd5714757340%_)) (if (and (gx#stx-keyword? _%L57359%_) (gx#identifier? _%L57358%_)) - (_%__kont7935579356%_ + (_%__kont8034780348%_ _%L57356%_ _%L57358%_ _%L57359%_) @@ -2627,7 +2627,7 @@ (##car _%e5716557296%_)))) (if (gx#stx-null? _%tl5716757303%_) - (_%__match7943979440%_ + (_%__match8043180432%_ _%e5714657336%_ _%hd5714757340%_ _%tl5714857343%_ @@ -2640,7 +2640,7 @@ _%e5716557296%_ _%hd5716657300%_ _%tl5716757303%_) - (_%__match7945779458%_ + (_%__match8044980450%_ _%e5714657336%_ _%hd5714757340%_ _%tl5714857343%_ @@ -2650,7 +2650,7 @@ _%e5716257286%_ _%hd5716357290%_ _%tl5716457293%_)))) - (_%__match7945779458%_ + (_%__match8044980450%_ _%e5714657336%_ _%hd5714757340%_ _%tl5714857343%_ @@ -2660,8 +2660,8 @@ _%e5716257286%_ _%hd5716357290%_ _%tl5716457293%_)))) - (_%__kont7936179362%_)))))) - (_%__match7940179402%_ + (_%__kont8035380354%_)))))) + (_%__match8039380394%_ (lambda (_%e5713757380%_ _%hd5713857384%_ _%tl5713957387%_ @@ -2674,7 +2674,7 @@ (if (and (gx#identifier? _%L57403%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L57402%_)) - (_%__kont7935379354%_ + (_%__kont8034580346%_ _%L57400%_ _%L57402%_ _%L57403%_) @@ -2689,15 +2689,15 @@ (let () (declare (not safe)) (##car _%e5714957346%_)))) - (_%__match7941379414%_ + (_%__match8040580406%_ _%e5713757380%_ _%hd5713857384%_ _%tl5713957387%_ _%e5714957346%_ _%hd5715057350%_ _%tl5715157353%_))) - (_%__kont7936179362%_)))))) - (_%__match7938979390%_ + (_%__kont8035380354%_)))))) + (_%__match8038180382%_ (lambda (_%e5712557424%_ _%hd5712657428%_ _%tl5712757431%_ @@ -2711,25 +2711,25 @@ (_%L57456%_ _%hd5713257448%_) (_%L57457%_ _%hd5712957438%_)) (if (gx#identifier? _%L57457%_) - (_%__kont7935179352%_ + (_%__kont8034380344%_ _%L57454%_ _%L57456%_ _%L57457%_) - (_%__match7940179402%_ + (_%__match8039380394%_ _%e5712557424%_ _%hd5712657428%_ _%tl5712757431%_ _%e5712857434%_ _%hd5712957438%_ _%tl5713057441%_))))) - (_%__match7936979370%_ + (_%__match8036180362%_ (lambda (_%e5711957480%_ _%hd5712057484%_ _%tl5712157487%_) (let ((_%L57490%_ _%tl5712157487%_) (_%L57492%_ _%hd5712057484%_)) (if (gx#identifier? _%L57492%_) - (_%__kont7934979350%_ _%L57490%_ _%L57492%_) + (_%__kont8034180342%_ _%L57490%_ _%L57492%_) (if (gx#stx-pair? _%hd5712057484%_) (let ((_%e5712857434%_ (gx#syntax-e _%hd5712057484%_))) @@ -2755,7 +2755,7 @@ (##car _%e5713157444%_)))) (if (gx#stx-null? _%tl5713357451%_) - (_%__match7938979390%_ + (_%__match8038180382%_ _%e5711957480%_ _%hd5712057484%_ _%tl5712157487%_ @@ -2765,14 +2765,14 @@ _%e5713157444%_ _%hd5713257448%_ _%tl5713357451%_) - (_%__match7940179402%_ + (_%__match8039380394%_ _%e5711957480%_ _%hd5712057484%_ _%tl5712157487%_ _%e5712857434%_ _%hd5712957438%_ _%tl5713057441%_)))) - (_%__match7940179402%_ + (_%__match8039380394%_ _%e5711957480%_ _%hd5712057484%_ _%tl5712157487%_ @@ -2790,16 +2790,16 @@ (let () (declare (not safe)) (##car _%e5714957346%_)))) - (_%__match7941379414%_ + (_%__match8040580406%_ _%e5711957480%_ _%hd5712057484%_ _%tl5712157487%_ _%e5714957346%_ _%hd5715057350%_ _%tl5715157353%_))) - (_%__kont7936179362%_)))))))) - (if (gx#stx-pair? _%__stx7934679347%_) - (let ((_%e5711957480%_ (gx#syntax-e _%__stx7934679347%_))) + (_%__kont8035380354%_)))))))) + (if (gx#stx-pair? _%__stx8033880339%_) + (let ((_%e5711957480%_ (gx#syntax-e _%__stx8033880339%_))) (let ((_%tl5712157487%_ (let () (declare (not safe)) @@ -2808,11 +2808,11 @@ (let () (declare (not safe)) (##car _%e5711957480%_)))) - (_%__match7936979370%_ + (_%__match8036180362%_ _%e5711957480%_ _%hd5712057484%_ _%tl5712157487%_))) - (_%__kont7936179362%_)))))))) + (_%__kont8035380354%_)))))))) (define |gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| (lambda (_%stx57089%_ _%self57091%_ @@ -2854,38 +2854,38 @@ _%unchecked56325%_) (letrec ((_%type-e56327%_ (lambda (_%contract56771%_) - (let* ((_%__stx7946079461%_ _%contract56771%_) + (let* ((_%__stx8045280453%_ _%contract56771%_) (_%g5677856833%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7946079461%_)))) - (let ((_%__kont7946379464%_ + _%__stx8045280453%_)))) + (let ((_%__kont8045580456%_ (lambda (_%L57063%_ _%L57065%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| _%stx56321%_ _%L57065%_)))) - (_%__kont7946579466%_ + (_%__kont8045780458%_ (lambda (_%L57015%_ _%L57017%_ _%L57018%_) (gx#core-quote-syntax 't::t))) - (_%__kont7946779468%_ + (_%__kont8045980460%_ (lambda (_%L56967%_ _%L56969%_ _%L56970%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| _%stx56321%_ _%L56969%_)))) - (_%__kont7946979470%_ + (_%__kont8046180462%_ (lambda (_%L56891%_ _%L56893%_ _%L56894%_ _%L56895%_) (gx#core-quote-syntax 't::t))) - (_%__kont7947179472%_ (lambda () '#f))) - (let* ((_%__match7956179562%_ + (_%__kont8046380464%_ (lambda () '#f))) + (let* ((_%__match8055380554%_ (lambda (_%e5681656851%_ _%hd5681756855%_ _%tl5681856858%_ @@ -2911,13 +2911,13 @@ (gx#datum->syntax '#f '::-)))) - (_%__kont7946979470%_ + (_%__kont8046180462%_ _%L56891%_ _%L56893%_ _%L56894%_ _%L56895%_) - (_%__kont7947179472%_))))) - (_%__match7950179502%_ + (_%__kont8046380464%_))))) + (_%__match8049380494%_ (lambda (_%e5679156995%_ _%hd5679256999%_ _%tl5679357002%_ @@ -2936,13 +2936,13 @@ (gx#datum->syntax '#f '::-)))) - (_%__kont7946579466%_ + (_%__kont8045780458%_ _%L57015%_ _%L57017%_ _%L57018%_) (if (gx#identifier? _%hd5679256999%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82936_| + |gerbil/core/contract~Interface[1]#_g84058_| _%hd5679256999%_) (if (gx#stx-pair? _%tl5679657012%_) @@ -2959,7 +2959,7 @@ (let () (declare (not safe)) (##car _%e5680656947%_)))) (if (gx#identifier? _%hd5680756951%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82937_| + |gerbil/core/contract~Interface[1]#_g84059_| _%hd5680756951%_) (if (gx#stx-pair? _%tl5680856954%_) (let ((_%e5680956957%_ @@ -2972,11 +2972,11 @@ (let () (declare (not safe)) (##car _%e5680956957%_)))) - (_%__kont7946779468%_ + (_%__kont8045980460%_ _%tl5681156964%_ _%hd5681056961%_ _%hd5679557009%_))) - (_%__kont7947179472%_)) + (_%__kont8046380464%_)) (if (gx#stx-pair? _%tl5680856954%_) (let ((_%e5682556881%_ (gx#syntax-e _%tl5680856954%_))) @@ -2988,7 +2988,7 @@ (let () (declare (not safe)) (##car _%e5682556881%_)))) - (_%__match7956179562%_ + (_%__match8055380554%_ _%e5679156995%_ _%hd5679256999%_ _%tl5679357002%_ @@ -3001,7 +3001,7 @@ _%e5682556881%_ _%hd5682656885%_ _%tl5682756888%_))) - (_%__kont7947179472%_))) + (_%__kont8046380464%_))) (if (gx#stx-pair? _%tl5680856954%_) (let ((_%e5682556881%_ (gx#syntax-e _%tl5680856954%_))) (let ((_%tl5682756888%_ @@ -3012,7 +3012,7 @@ (let () (declare (not safe)) (##car _%e5682556881%_)))) - (_%__match7956179562%_ + (_%__match8055380554%_ _%e5679156995%_ _%hd5679256999%_ _%tl5679357002%_ @@ -3025,14 +3025,14 @@ _%e5682556881%_ _%hd5682656885%_ _%tl5682756888%_))) - (_%__kont7947179472%_))))) + (_%__kont8046380464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7947179472%_)) - (_%__kont7947179472%_)) - (_%__kont7947179472%_))))))) - (if (gx#stx-pair? _%__stx7946079461%_) + (_%__kont8046380464%_)) + (_%__kont8046380464%_)) + (_%__kont8046380464%_))))))) + (if (gx#stx-pair? _%__stx8045280453%_) (let ((_%e5678257043%_ - (gx#syntax-e _%__stx7946079461%_))) + (gx#syntax-e _%__stx8045280453%_))) (let ((_%tl5678457050%_ (let () (declare (not safe)) @@ -3043,7 +3043,7 @@ (##car _%e5678257043%_)))) (if (gx#identifier? _%hd5678357047%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82938_| + |gerbil/core/contract~Interface[1]#_g84060_| _%hd5678357047%_) (if (gx#stx-pair? _%tl5678457050%_) (let ((_%e5678557053%_ @@ -3057,10 +3057,10 @@ (let () (declare (not safe)) (##car _%e5678557053%_)))) - (_%__kont7946379464%_ + (_%__kont8045580456%_ _%tl5678757060%_ _%hd5678657057%_))) - (_%__kont7947179472%_)) + (_%__kont8046380464%_)) (if (gx#stx-pair? _%tl5678457050%_) (let ((_%e5679457005%_ (gx#syntax-e @@ -3073,14 +3073,14 @@ (let () (declare (not safe)) (##car _%e5679457005%_)))) - (_%__match7950179502%_ + (_%__match8049380494%_ _%e5678257043%_ _%hd5678357047%_ _%tl5678457050%_ _%e5679457005%_ _%hd5679557009%_ _%tl5679657012%_))) - (_%__kont7947179472%_))) + (_%__kont8046380464%_))) (if (gx#stx-pair? _%tl5678457050%_) (let ((_%e5679457005%_ (gx#syntax-e @@ -3093,62 +3093,62 @@ (let () (declare (not safe)) (##car _%e5679457005%_)))) - (_%__match7950179502%_ + (_%__match8049380494%_ _%e5678257043%_ _%hd5678357047%_ _%tl5678457050%_ _%e5679457005%_ _%hd5679557009%_ _%tl5679657012%_))) - (_%__kont7947179472%_))))) - (_%__kont7947179472%_)))))))) + (_%__kont8046380464%_))))) + (_%__kont8046380464%_)))))))) (let _%loop56330%_ ((_%rest56333%_ _%signature56323%_) (_%has-keywords?56335%_ '#f) (_%result56336%_ '())) - (let* ((_%__stx7956479565%_ _%rest56333%_) + (let* ((_%__stx8055680557%_ _%rest56333%_) (_%g5634556415%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7956479565%_)))) - (let ((_%__kont7956779568%_ + _%__stx8055680557%_)))) + (let ((_%__kont8055980560%_ (lambda (_%L56754%_ _%L56756%_) (_%loop56330%_ _%L56754%_ '#f (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont7956979570%_ + (_%__kont8056180562%_ (lambda (_%L56720%_ _%L56722%_) (_%loop56330%_ _%L56720%_ '#f (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont7957179572%_ + (_%__kont8056380564%_ (lambda (_%L56666%_ _%L56668%_ _%L56669%_) (_%loop56330%_ _%L56666%_ '#f (cons (_%type-e56327%_ _%L56668%_) _%result56336%_)))) - (_%__kont7957379574%_ + (_%__kont8056580566%_ (lambda (_%L56622%_ _%L56624%_ _%L56625%_) (_%loop56330%_ _%L56622%_ '#t (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont7957579576%_ + (_%__kont8056780568%_ (lambda (_%L56574%_ _%L56576%_ _%L56577%_) (_%loop56330%_ _%L56574%_ '#t (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont7957779578%_ + (_%__kont8056980570%_ (lambda (_%L56506%_ _%L56508%_ _%L56509%_ _%L56510%_) (_%loop56330%_ _%L56506%_ '#t (cons (_%type-e56327%_ _%L56508%_) _%result56336%_)))) - (_%__kont7957979580%_ + (_%__kont8057180572%_ (lambda (_%L56444%_) (let* ((_%arguments56458%_ (if _%has-keywords?56335%_ @@ -3176,7 +3176,7 @@ (cons 'unchecked: (cons _%unchecked56464%_ '()))))))))) - (_%__kont7958179582%_ + (_%__kont8057380574%_ (lambda () (let* ((_%arguments56426%_ (if _%has-keywords?56335%_ @@ -3204,20 +3204,20 @@ '())))))))))) (let* ((_%g5634456437%_ (lambda () - (if (gx#stx-null? _%__stx7956479565%_) - (_%__kont7958179582%_) + (if (gx#stx-null? _%__stx8055680557%_) + (_%__kont8057380574%_) (let () (declare (not safe)) (_%g5634556415%_))))) (_%g5634356469%_ (lambda () - (let ((_%L56444%_ _%__stx7956479565%_)) + (let ((_%L56444%_ _%__stx8055680557%_)) (if (gx#identifier? _%L56444%_) - (_%__kont7957979580%_ _%L56444%_) + (_%__kont8057180572%_ _%L56444%_) (let () (declare (not safe)) (_%g5634456437%_)))))) - (_%__match7967779678%_ + (_%__match8066980670%_ (lambda (_%e5640056476%_ _%hd5640156480%_ _%tl5640256483%_ @@ -3235,7 +3235,7 @@ (gx#identifier? _%L56509%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L56508%_)) - (_%__kont7957779578%_ + (_%__kont8056980570%_ _%L56506%_ _%L56508%_ _%L56509%_ @@ -3243,7 +3243,7 @@ (let () (declare (not safe)) (_%g5634356469%_)))))) - (_%__match7965979660%_ + (_%__match8065180652%_ (lambda (_%e5638456534%_ _%hd5638556538%_ _%tl5638656541%_ @@ -3261,11 +3261,11 @@ (_%L56577%_ _%hd5638556538%_)) (if (and (gx#stx-keyword? _%L56577%_) (gx#identifier? _%L56576%_)) - (_%__kont7957579576%_ + (_%__kont8056780568%_ _%L56574%_ _%L56576%_ _%L56577%_) - (_%__match7967779678%_ + (_%__match8066980670%_ _%e5638456534%_ _%hd5638556538%_ _%tl5638656541%_ @@ -3275,7 +3275,7 @@ _%e5639056554%_ _%hd5639156558%_ _%tl5639256561%_))))) - (_%__match7963379634%_ + (_%__match8062580626%_ (lambda (_%e5637556602%_ _%hd5637656606%_ _%tl5637756609%_ @@ -3287,7 +3287,7 @@ (_%L56625%_ _%hd5637656606%_)) (if (and (gx#stx-keyword? _%L56625%_) (gx#identifier? _%L56624%_)) - (_%__kont7957379574%_ + (_%__kont8056580566%_ _%L56622%_ _%L56624%_ _%L56625%_) @@ -3316,7 +3316,7 @@ (##car _%e5639356564%_)))) (if (gx#stx-null? _%tl5639556571%_) - (_%__match7965979660%_ + (_%__match8065180652%_ _%e5637556602%_ _%hd5637656606%_ _%tl5637756609%_ @@ -3329,7 +3329,7 @@ _%e5639356564%_ _%hd5639456568%_ _%tl5639556571%_) - (_%__match7967779678%_ + (_%__match8066980670%_ _%e5637556602%_ _%hd5637656606%_ _%tl5637756609%_ @@ -3339,7 +3339,7 @@ _%e5639056554%_ _%hd5639156558%_ _%tl5639256561%_)))) - (_%__match7967779678%_ + (_%__match8066980670%_ _%e5637556602%_ _%hd5637656606%_ _%tl5637756609%_ @@ -3352,7 +3352,7 @@ (let () (declare (not safe)) (_%g5634356469%_))))))) - (_%__match7962179622%_ + (_%__match8061380614%_ (lambda (_%e5636656646%_ _%hd5636756650%_ _%tl5636856653%_ @@ -3365,7 +3365,7 @@ (if (and (gx#identifier? _%L56669%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L56668%_)) - (_%__kont7957179572%_ + (_%__kont8056380564%_ _%L56666%_ _%L56668%_ _%L56669%_) @@ -3380,7 +3380,7 @@ (let () (declare (not safe)) (##car _%e5637856612%_)))) - (_%__match7963379634%_ + (_%__match8062580626%_ _%e5636656646%_ _%hd5636756650%_ _%tl5636856653%_ @@ -3390,7 +3390,7 @@ (let () (declare (not safe)) (_%g5634356469%_))))))) - (_%__match7960979610%_ + (_%__match8060180602%_ (lambda (_%e5635456690%_ _%hd5635556694%_ _%tl5635656697%_ @@ -3403,22 +3403,22 @@ (let ((_%L56720%_ _%tl5635656697%_) (_%L56722%_ _%hd5635856704%_)) (if (gx#identifier? _%L56722%_) - (_%__kont7956979570%_ _%L56720%_ _%L56722%_) - (_%__match7962179622%_ + (_%__kont8056180562%_ _%L56720%_ _%L56722%_) + (_%__match8061380614%_ _%e5635456690%_ _%hd5635556694%_ _%tl5635656697%_ _%e5635756700%_ _%hd5635856704%_ _%tl5635956707%_))))) - (_%__match7958979590%_ + (_%__match8058180582%_ (lambda (_%e5634956744%_ _%hd5635056748%_ _%tl5635156751%_) (let ((_%L56754%_ _%tl5635156751%_) (_%L56756%_ _%hd5635056748%_)) (if (gx#identifier? _%L56756%_) - (_%__kont7956779568%_ _%L56754%_ _%L56756%_) + (_%__kont8055980560%_ _%L56754%_ _%L56756%_) (if (gx#stx-pair? _%hd5635056748%_) (let ((_%e5635756700%_ (gx#syntax-e _%hd5635056748%_))) @@ -3444,7 +3444,7 @@ (##car _%e5636056710%_)))) (if (gx#stx-null? _%tl5636256717%_) - (_%__match7960979610%_ + (_%__match8060180602%_ _%e5634956744%_ _%hd5635056748%_ _%tl5635156751%_ @@ -3454,14 +3454,14 @@ _%e5636056710%_ _%hd5636156714%_ _%tl5636256717%_) - (_%__match7962179622%_ + (_%__match8061380614%_ _%e5634956744%_ _%hd5635056748%_ _%tl5635156751%_ _%e5635756700%_ _%hd5635856704%_ _%tl5635956707%_)))) - (_%__match7962179622%_ + (_%__match8061380614%_ _%e5634956744%_ _%hd5635056748%_ _%tl5635156751%_ @@ -3479,7 +3479,7 @@ (let () (declare (not safe)) (##car _%e5637856612%_)))) - (_%__match7963379634%_ + (_%__match8062580626%_ _%e5634956744%_ _%hd5635056748%_ _%tl5635156751%_ @@ -3489,9 +3489,9 @@ (let () (declare (not safe)) (_%g5634356469%_))))))))) - (if (gx#stx-pair? _%__stx7956479565%_) + (if (gx#stx-pair? _%__stx8055680557%_) (let ((_%e5634956744%_ - (gx#syntax-e _%__stx7956479565%_))) + (gx#syntax-e _%__stx8055680557%_))) (let ((_%tl5635156751%_ (let () (declare (not safe)) @@ -3500,7 +3500,7 @@ (let () (declare (not safe)) (##car _%e5634956744%_)))) - (_%__match7958979590%_ + (_%__match8058180582%_ _%e5634956744%_ _%hd5635056748%_ _%tl5635156751%_))) @@ -3518,14 +3518,14 @@ (_%g5583956317%_ (lambda (_%g5584155852%_) ((lambda (_%L55855%_) - (let* ((_%__stx7968279683%_ _%contract55838%_) + (let* ((_%__stx8067480675%_ _%contract55838%_) (_%g5587255951%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7968279683%_)))) - (let ((_%__kont7968579686%_ + _%__stx8067480675%_)))) + (let ((_%__kont8067780678%_ (lambda (_%L56288%_ _%L56290%_ _%L56291%_) @@ -3544,7 +3544,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7968779688%_ + (_%__kont8067980680%_ (lambda (_%L56246%_ _%L56248%_) (cons _%L55855%_ (cons (gx#datum->syntax @@ -3552,7 +3552,7 @@ ':-) (cons _%L56248%_ '()))))) - (_%__kont7968979690%_ + (_%__kont8068180682%_ (lambda (_%L56188%_ _%L56190%_ _%L56191%_ @@ -3574,7 +3574,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7969179692%_ + (_%__kont8068380684%_ (lambda (_%L56110%_ _%L56112%_ _%L56113%_ @@ -3596,7 +3596,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7969379694%_ + (_%__kont8068580686%_ (lambda (_%L56042%_ _%L56044%_ _%L56045%_) @@ -3618,7 +3618,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7969579696%_ + (_%__kont8068780688%_ (lambda (_%L55978%_ _%L55980%_) (if _%checked?55431%_ (cons _%L55855%_ @@ -3639,7 +3639,7 @@ ':t) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match7978179782%_ + (let* ((_%__match8077380774%_ (lambda (_%e5591156070%_ _%hd5591256074%_ _%tl5591356077%_ @@ -3675,7 +3675,7 @@ (gx#datum->syntax '#f ':?))) - (_%__kont7969179692%_ + (_%__kont8068380684%_ _%L56110%_ _%L56112%_ _%L56113%_ @@ -3683,19 +3683,19 @@ (if (gx#identifier? _%hd5591856094%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82939_| + |gerbil/core/contract~Interface[1]#_g84061_| _%hd5591856094%_) - (_%__kont7969379694%_ + (_%__kont8068580686%_ _%tl5592256107%_ _%hd5592156104%_ _%hd5591556084%_) - (_%__kont7969579696%_ + (_%__kont8068780688%_ _%tl5591656087%_ _%hd5591556084%_)) - (_%__kont7969579696%_ + (_%__kont8068780688%_ _%tl5591656087%_ _%hd5591556084%_)))))) - (_%__match7975379754%_ + (_%__match8074580746%_ (lambda (_%e5589556148%_ _%hd5589656152%_ _%tl5589756155%_ @@ -3731,12 +3731,12 @@ (gx#datum->syntax '#f ':?))) - (_%__kont7968979690%_ + (_%__kont8068180682%_ _%L56188%_ _%L56190%_ _%L56191%_ _%L56192%_) - (_%__match7978179782%_ + (_%__match8077380774%_ _%e5589556148%_ _%hd5589656152%_ _%tl5589756155%_ @@ -3749,7 +3749,7 @@ _%e5590456178%_ _%hd5590556182%_ _%tl5590656185%_))))) - (_%__match7970979710%_ + (_%__match8070180702%_ (lambda (_%e5587756268%_ _%hd5587856272%_ _%tl5587956275%_ @@ -3777,21 +3777,21 @@ (gx#datum->syntax '#f ':?))) - (_%__kont7968579686%_ + (_%__kont8067780678%_ _%L56288%_ _%L56290%_ _%L56291%_) (if (gx#identifier? _%hd5587856272%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82940_| + |gerbil/core/contract~Interface[1]#_g84062_| _%hd5587856272%_) - (_%__kont7968779688%_ + (_%__kont8067980680%_ _%tl5588256285%_ _%hd5588156282%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~Interface[1]#_g82941_| + |gerbil/core/contract~Interface[1]#_g84063_| _%hd5587856272%_) (if (gx#stx-pair? _%tl5588256285%_) (let ((_%e5590156168%_ @@ -3815,7 +3815,7 @@ (let () (declare (not safe)) (##car _%e5590456178%_)))) - (_%__match7975379754%_ + (_%__match8074580746%_ _%e5587756268%_ _%hd5587856272%_ _%tl5587956275%_ @@ -3828,19 +3828,19 @@ _%e5590456178%_ _%hd5590556182%_ _%tl5590656185%_))) - (_%__kont7969579696%_ + (_%__kont8068780688%_ _%tl5588256285%_ _%hd5588156282%_)))) - (_%__kont7969579696%_ + (_%__kont8068780688%_ _%tl5588256285%_ _%hd5588156282%_)) (let () (declare (not safe)) (_%g5587255951%_)))) (let () (declare (not safe)) (_%g5587255951%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx7968279683%_) + (if (gx#stx-pair? _%__stx8067480675%_) (let ((_%e5587756268%_ (gx#syntax-e - _%__stx7968279683%_))) + _%__stx8067480675%_))) (let ((_%tl5587956275%_ (let () (declare (not safe)) @@ -3864,7 +3864,7 @@ (declare (not safe)) (##car _%e5588056278%_)))) - (_%__match7970979710%_ + (_%__match8070180702%_ _%e5587756268%_ _%hd5587856272%_ _%tl5587956275%_ @@ -3881,40 +3881,40 @@ (_%g5583956317%_ _%id55836%_))))) (let _%loop55436%_ ((_%rest55439%_ _%signature55430%_) (_%result55441%_ '())) - (let* ((_%__stx7983279833%_ _%rest55439%_) + (let* ((_%__stx8082480825%_ _%rest55439%_) (_%g5544955518%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7983279833%_)))) - (let ((_%__kont7983579836%_ + _%__stx8082480825%_)))) + (let ((_%__kont8082780828%_ (lambda (_%L55819%_ _%L55821%_) (_%loop55436%_ _%L55819%_ _%result55441%_))) - (_%__kont7983779838%_ + (_%__kont8082980830%_ (lambda (_%L55785%_ _%L55787%_) (_%loop55436%_ _%L55785%_ _%result55441%_))) - (_%__kont7983979840%_ + (_%__kont8083180832%_ (lambda (_%L55731%_ _%L55733%_ _%L55734%_) (_%loop55436%_ _%L55731%_ (cons (_%contract-e55433%_ _%L55734%_ _%L55733%_) _%result55441%_)))) - (_%__kont7984179842%_ + (_%__kont8083380834%_ (lambda (_%L55687%_ _%L55689%_ _%L55690%_) (_%loop55436%_ _%L55687%_ _%result55441%_))) - (_%__kont7984379844%_ + (_%__kont8083580836%_ (lambda (_%L55639%_ _%L55641%_ _%L55642%_) (_%loop55436%_ _%L55639%_ _%result55441%_))) - (_%__kont7984579846%_ + (_%__kont8083780838%_ (lambda (_%L55566%_ _%L55568%_ _%L55569%_ _%L55570%_) (_%loop55436%_ _%L55566%_ (cons (_%contract-e55433%_ _%L55569%_ _%L55568%_) _%result55441%_)))) - (_%__kont7984779848%_ + (_%__kont8083980840%_ (lambda () (reverse! (filter identity _%result55441%_))))) - (let* ((_%__match7994379944%_ + (let* ((_%__match8093580936%_ (lambda (_%e5550455536%_ _%hd5550555540%_ _%tl5550655543%_ @@ -3932,13 +3932,13 @@ (gx#identifier? _%L55569%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L55568%_)) - (_%__kont7984579846%_ + (_%__kont8083780838%_ _%L55566%_ _%L55568%_ _%L55569%_ _%L55570%_) - (_%__kont7984779848%_))))) - (_%__match7992579926%_ + (_%__kont8083980840%_))))) + (_%__match8091780918%_ (lambda (_%e5548855599%_ _%hd5548955603%_ _%tl5549055606%_ @@ -3956,11 +3956,11 @@ (_%L55642%_ _%hd5548955603%_)) (if (and (gx#stx-keyword? _%L55642%_) (gx#identifier? _%L55641%_)) - (_%__kont7984379844%_ + (_%__kont8083580836%_ _%L55639%_ _%L55641%_ _%L55642%_) - (_%__match7994379944%_ + (_%__match8093580936%_ _%e5548855599%_ _%hd5548955603%_ _%tl5549055606%_ @@ -3970,7 +3970,7 @@ _%e5549455619%_ _%hd5549555623%_ _%tl5549655626%_))))) - (_%__match7989979900%_ + (_%__match8089180892%_ (lambda (_%e5547955667%_ _%hd5548055671%_ _%tl5548155674%_ @@ -3982,7 +3982,7 @@ (_%L55690%_ _%hd5548055671%_)) (if (and (gx#stx-keyword? _%L55690%_) (gx#identifier? _%L55689%_)) - (_%__kont7984179842%_ + (_%__kont8083380834%_ _%L55687%_ _%L55689%_ _%L55690%_) @@ -4011,7 +4011,7 @@ (##car _%e5549755629%_)))) (if (gx#stx-null? _%tl5549955636%_) - (_%__match7992579926%_ + (_%__match8091780918%_ _%e5547955667%_ _%hd5548055671%_ _%tl5548155674%_ @@ -4024,7 +4024,7 @@ _%e5549755629%_ _%hd5549855633%_ _%tl5549955636%_) - (_%__match7994379944%_ + (_%__match8093580936%_ _%e5547955667%_ _%hd5548055671%_ _%tl5548155674%_ @@ -4034,7 +4034,7 @@ _%e5549455619%_ _%hd5549555623%_ _%tl5549655626%_)))) - (_%__match7994379944%_ + (_%__match8093580936%_ _%e5547955667%_ _%hd5548055671%_ _%tl5548155674%_ @@ -4044,8 +4044,8 @@ _%e5549455619%_ _%hd5549555623%_ _%tl5549655626%_)))) - (_%__kont7984779848%_)))))) - (_%__match7988779888%_ + (_%__kont8083980840%_)))))) + (_%__match8087980880%_ (lambda (_%e5547055711%_ _%hd5547155715%_ _%tl5547255718%_ @@ -4058,7 +4058,7 @@ (if (and (gx#identifier? _%L55734%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L55733%_)) - (_%__kont7983979840%_ + (_%__kont8083180832%_ _%L55731%_ _%L55733%_ _%L55734%_) @@ -4073,15 +4073,15 @@ (let () (declare (not safe)) (##car _%e5548255677%_)))) - (_%__match7989979900%_ + (_%__match8089180892%_ _%e5547055711%_ _%hd5547155715%_ _%tl5547255718%_ _%e5548255677%_ _%hd5548355681%_ _%tl5548455684%_))) - (_%__kont7984779848%_)))))) - (_%__match7987579876%_ + (_%__kont8083980840%_)))))) + (_%__match8086780868%_ (lambda (_%e5545855755%_ _%hd5545955759%_ _%tl5546055762%_ @@ -4094,22 +4094,22 @@ (let ((_%L55785%_ _%tl5546055762%_) (_%L55787%_ _%hd5546255769%_)) (if (gx#identifier? _%L55787%_) - (_%__kont7983779838%_ _%L55785%_ _%L55787%_) - (_%__match7988779888%_ + (_%__kont8082980830%_ _%L55785%_ _%L55787%_) + (_%__match8087980880%_ _%e5545855755%_ _%hd5545955759%_ _%tl5546055762%_ _%e5546155765%_ _%hd5546255769%_ _%tl5546355772%_))))) - (_%__match7985579856%_ + (_%__match8084780848%_ (lambda (_%e5545355809%_ _%hd5545455813%_ _%tl5545555816%_) (let ((_%L55819%_ _%tl5545555816%_) (_%L55821%_ _%hd5545455813%_)) (if (gx#identifier? _%L55821%_) - (_%__kont7983579836%_ _%L55819%_ _%L55821%_) + (_%__kont8082780828%_ _%L55819%_ _%L55821%_) (if (gx#stx-pair? _%hd5545455813%_) (let ((_%e5546155765%_ (gx#syntax-e _%hd5545455813%_))) @@ -4135,7 +4135,7 @@ (##car _%e5546455775%_)))) (if (gx#stx-null? _%tl5546655782%_) - (_%__match7987579876%_ + (_%__match8086780868%_ _%e5545355809%_ _%hd5545455813%_ _%tl5545555816%_ @@ -4145,14 +4145,14 @@ _%e5546455775%_ _%hd5546555779%_ _%tl5546655782%_) - (_%__match7988779888%_ + (_%__match8087980880%_ _%e5545355809%_ _%hd5545455813%_ _%tl5545555816%_ _%e5546155765%_ _%hd5546255769%_ _%tl5546355772%_)))) - (_%__match7988779888%_ + (_%__match8087980880%_ _%e5545355809%_ _%hd5545455813%_ _%tl5545555816%_ @@ -4170,17 +4170,17 @@ (let () (declare (not safe)) (##car _%e5548255677%_)))) - (_%__match7989979900%_ + (_%__match8089180892%_ _%e5545355809%_ _%hd5545455813%_ _%tl5545555816%_ _%e5548255677%_ _%hd5548355681%_ _%tl5548455684%_))) - (_%__kont7984779848%_)))))))) - (if (gx#stx-pair? _%__stx7983279833%_) + (_%__kont8083980840%_)))))))) + (if (gx#stx-pair? _%__stx8082480825%_) (let ((_%e5545355809%_ - (gx#syntax-e _%__stx7983279833%_))) + (gx#syntax-e _%__stx8082480825%_))) (let ((_%tl5545555816%_ (let () (declare (not safe)) @@ -4189,14 +4189,14 @@ (let () (declare (not safe)) (##car _%e5545355809%_)))) - (_%__match7985579856%_ + (_%__match8084780848%_ _%e5545355809%_ _%hd5545455813%_ _%tl5545555816%_))) - (_%__kont7984779848%_))))))))) + (_%__kont8083980840%_))))))))) (define |gerbil/core/contract~Interface[1]#compatible-signatures?| (lambda (_%left55395%_ _%right55397%_) - (let ((__tmp82942 + (let ((__tmp84064 (lambda (_%return55399%_) (let ((_%left-arity55402%_ (|gerbil/core/contract~Interface[1]#signature-arity| @@ -4216,49 +4216,49 @@ (if (equal? _%left-kws55406%_ _%right-kws55408%_) '#!void (_%return55399%_ '#f))) - (let ((_g82943_ + (let ((_g84065_ (|gerbil/core/contract~Interface[1]#signature-type-contract| _%left55395%_)) - (_g82945_ + (_g84067_ (|gerbil/core/contract~Interface[1]#signature-type-contract| _%right55397%_))) (begin - (let ((_g82944_ + (let ((_g84066_ (let () (declare (not safe)) - (if (##values? _g82943_) - (##vector-length _g82943_) + (if (##values? _g84065_) + (##vector-length _g84065_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82944_ 2))) - (error "Context expects 2 values" _g82944_))) - (let ((_g82946_ + (##fx= _g84066_ 2))) + (error "Context expects 2 values" _g84066_))) + (let ((_g84068_ (let () (declare (not safe)) - (if (##values? _g82945_) - (##vector-length _g82945_) + (if (##values? _g84067_) + (##vector-length _g84067_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82946_ 2))) - (error "Context expects 2 values" _g82946_))) + (##fx= _g84068_ 2))) + (error "Context expects 2 values" _g84068_))) (let ((_%left-positional-contract55410%_ (let () (declare (not safe)) - (##vector-ref _g82943_ 0))) + (##vector-ref _g84065_ 0))) (_%left-kw-contract55412%_ (let () (declare (not safe)) - (##vector-ref _g82943_ 1)))) + (##vector-ref _g84065_ 1)))) (let ((_%right-positional-contract55413%_ (let () (declare (not safe)) - (##vector-ref _g82945_ 0))) + (##vector-ref _g84067_ 0))) (_%right-kw-contract55414%_ (let () (declare (not safe)) - (##vector-ref _g82945_ 1)))) + (##vector-ref _g84067_ 1)))) (let ((_%left-contract55424%_ (append _%left-positional-contract55410%_ (foldr (lambda (_%kwc55416%_ @@ -4282,7 +4282,7 @@ (_%return55399%_ '#f))))))) '#t))) (declare (not safe)) - (##call-with-current-continuation __tmp82942)))) + (##call-with-current-continuation __tmp84064)))) (define |gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| (lambda (_%left55298%_ _%right55300%_) (let _%loop55302%_ ((_%left-rest55305%_ _%left55298%_) @@ -4302,9 +4302,7 @@ _%left-rest55332%_ _%right-rest55359%_) '#f)))) - (if (let () - (declare (not safe)) - (##pair? _%right-rest5533555343%_)) + (if (pair? _%right-rest5533555343%_) (let ((_%hd5534055367%_ (let () (declare (not safe)) @@ -4319,7 +4317,7 @@ _%right-rest55376%_ _%right55373%_))) (_%else5533755355%_)))))) - (if (let () (declare (not safe)) (##pair? _%left-rest5530855316%_)) + (if (pair? _%left-rest5530855316%_) (let ((_%hd5531355383%_ (let () (declare (not safe)) @@ -4335,37 +4333,37 @@ (define |gerbil/core/contract~Interface[1]#compatible-type-contract?| (lambda (_%left53427%_ _%right53429%_) (andmap (lambda (_%a53431%_ _%b53433%_) - (let* ((_%__stx8043880439%_ _%a53431%_) + (let* ((_%__stx8143081431%_ _%a53431%_) (_%g5344153519%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8043880439%_)))) - (let ((_%__kont8044180442%_ + _%__stx8143081431%_)))) + (let ((_%__kont8143381434%_ (lambda (_%L55032%_ _%L55034%_) - (let* ((_%__stx8035680357%_ _%b53433%_) + (let* ((_%__stx8134881349%_ _%b53433%_) (_%g5505355097%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8035680357%_)))) - (let ((_%__kont8035980360%_ + _%__stx8134881349%_)))) + (let ((_%__kont8135181352%_ (lambda (_%L55267%_ _%L55269%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L55032%_ _%L55267%_))) - (_%__kont8036180362%_ + (_%__kont8135381354%_ (lambda (_%L55211%_ _%L55213%_ _%L55214%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L55032%_ _%L55211%_))) - (_%__kont8036380364%_ + (_%__kont8135581356%_ (lambda (_%L55144%_ _%L55146%_) '#t))) - (let* ((_%__match8040580406%_ + (let* ((_%__match8139781398%_ (lambda (_%e5506655171%_ _%hd5506755175%_ _%tl5506855178%_ @@ -4396,19 +4394,19 @@ (gx#datum->syntax '#f ':-))) - (_%__kont8036180362%_ + (_%__kont8135381354%_ _%L55211%_ _%L55213%_ _%L55214%_) (if (gx#stx-null? _%tl5507755208%_) - (_%__kont8036380364%_ + (_%__kont8135581356%_ _%hd5507355195%_ _%hd5507055185%_) (let () (declare (not safe)) (_%g5505355097%_))))))) - (_%__match8037780378%_ + (_%__match8136981370%_ (lambda (_%e5505755247%_ _%hd5505855251%_ _%tl5505955254%_ @@ -4432,13 +4430,13 @@ (gx#datum->syntax '#f ':-))) - (_%__kont8035980360%_ + (_%__kont8135181352%_ _%L55267%_ _%L55269%_) (if (gx#identifier? _%hd5505855251%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82947_| + |gerbil/core/contract~Interface[1]#_g84069_| _%hd5505855251%_) (if (gx#stx-pair? _%tl5506255264%_) @@ -4464,7 +4462,7 @@ (let () (declare (not safe)) (##car _%e5507555201%_)))) - (_%__match8040580406%_ + (_%__match8139781398%_ _%e5505755247%_ _%hd5505855251%_ _%tl5505955254%_ @@ -4484,10 +4482,10 @@ (let () (declare (not safe)) (_%g5505355097%_)))))))) - (if (gx#stx-pair? _%__stx8035680357%_) + (if (gx#stx-pair? _%__stx8134881349%_) (let ((_%e5505755247%_ (gx#syntax-e - _%__stx8035680357%_))) + _%__stx8134881349%_))) (let ((_%tl5505955254%_ (let () (declare (not safe)) @@ -4508,7 +4506,7 @@ (let () (declare (not safe)) (##car _%e5506055257%_)))) - (_%__match8037780378%_ + (_%__match8136981370%_ _%e5505755247%_ _%hd5505855251%_ _%tl5505955254%_ @@ -4521,29 +4519,29 @@ (let () (declare (not safe)) (_%g5505355097%_)))))))) - (_%__kont8044380444%_ + (_%__kont8143581436%_ (lambda (_%L54839%_) - (let* ((_%__stx8029680297%_ _%b53433%_) + (let* ((_%__stx8128881289%_ _%b53433%_) (_%g5485454882%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8029680297%_)))) - (let ((_%__kont8029980300%_ + _%__stx8128881289%_)))) + (let ((_%__kont8129181292%_ (lambda (_%L54988%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54839%_ _%L54988%_))) - (_%__kont8030180302%_ + (_%__kont8129381294%_ (lambda (_%L54940%_ _%L54942%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54839%_ _%L54940%_))) - (_%__kont8030380304%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8029680297%_) + (_%__kont8129581296%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8128881289%_) (let ((_%e5485754968%_ - (gx#syntax-e _%__stx8029680297%_))) + (gx#syntax-e _%__stx8128881289%_))) (let ((_%tl5485954975%_ (let () (declare (not safe)) @@ -4554,7 +4552,7 @@ (##car _%e5485754968%_)))) (if (gx#identifier? _%hd5485854972%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82948_| + |gerbil/core/contract~Interface[1]#_g84070_| _%hd5485854972%_) (if (gx#stx-pair? _%tl5485954975%_) @@ -4569,11 +4567,11 @@ (##cdr _%e5486054978%_))) (_%hd5486154982%_ (let () (declare (not safe)) (##car _%e5486054978%_)))) - (_%__kont8029980300%_ _%hd5486154982%_))) + (_%__kont8129181292%_ _%hd5486154982%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8030380304%_)) + (_%__kont8129581296%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82949_| + |gerbil/core/contract~Interface[1]#_g84071_| _%hd5485854972%_) (if (gx#stx-pair? _%tl5485954975%_) @@ -4602,7 +4600,7 @@ (##car _%e5487154920%_)))) (if (gx#identifier? _%hd5487254924%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82950_| + |gerbil/core/contract~Interface[1]#_g84072_| _%hd5487254924%_) (if (gx#stx-pair? _%tl5487354927%_) (let ((_%e5487454930%_ @@ -4616,33 +4614,33 @@ (let () (declare (not safe)) (##car _%e5487454930%_)))) - (_%__kont8030180302%_ + (_%__kont8129381294%_ _%hd5487554934%_ _%hd5486954914%_))) - (_%__kont8030380304%_)) - (_%__kont8030380304%_)) - (_%__kont8030380304%_)))) - (_%__kont8030380304%_)))) - (_%__kont8030380304%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8030380304%_))) - (_%__kont8030380304%_)))) - (_%__kont8030380304%_)))))) - (_%__kont8044580446%_ + (_%__kont8129581296%_)) + (_%__kont8129581296%_)) + (_%__kont8129581296%_)))) + (_%__kont8129581296%_)))) + (_%__kont8129581296%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8129581296%_))) + (_%__kont8129581296%_)))) + (_%__kont8129581296%_)))))) + (_%__kont8143781438%_ (lambda (_%L54556%_) - (let* ((_%__stx8021080211%_ _%b53433%_) + (let* ((_%__stx8120281203%_ _%b53433%_) (_%g5457154615%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8021080211%_)))) - (let ((_%__kont8021380214%_ + _%__stx8120281203%_)))) + (let ((_%__kont8120581206%_ (lambda (_%L54785%_ _%L54787%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54556%_ _%L54785%_))) - (_%__kont8021580216%_ + (_%__kont8120781208%_ (lambda (_%L54727%_ _%L54729%_ _%L54730%_ @@ -4650,9 +4648,9 @@ (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54556%_ _%L54729%_))) - (_%__kont8021780218%_ + (_%__kont8120981210%_ (lambda (_%L54662%_) '#t))) - (let* ((_%__match8025980260%_ + (let* ((_%__match8125181252%_ (lambda (_%e5458554687%_ _%hd5458654691%_ _%tl5458754694%_ @@ -4684,7 +4682,7 @@ (gx#datum->syntax '#f ':-))) - (_%__kont8021580216%_ + (_%__kont8120781208%_ _%L54727%_ _%L54729%_ _%L54730%_ @@ -4692,11 +4690,11 @@ (if (gx#identifier? _%hd5459254711%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82951_| + |gerbil/core/contract~Interface[1]#_g84073_| _%hd5459254711%_) (if (gx#stx-null? _%tl5459654724%_) - (_%__kont8021780218%_ + (_%__kont8120981210%_ _%hd5458954701%_) (let () (declare @@ -4708,7 +4706,7 @@ (let () (declare (not safe)) (_%g5457154615%_))))))) - (_%__match8023180232%_ + (_%__match8122381224%_ (lambda (_%e5457554765%_ _%hd5457654769%_ _%tl5457754772%_ @@ -4732,13 +4730,13 @@ (gx#datum->syntax '#f ':-))) - (_%__kont8021380214%_ + (_%__kont8120581206%_ _%L54785%_ _%L54787%_) (if (gx#identifier? _%hd5457654769%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82952_| + |gerbil/core/contract~Interface[1]#_g84074_| _%hd5457654769%_) (if (gx#stx-pair? _%tl5458054782%_) @@ -4764,7 +4762,7 @@ (let () (declare (not safe)) (##car _%e5459454717%_)))) - (_%__match8025980260%_ + (_%__match8125181252%_ _%e5457554765%_ _%hd5457654769%_ _%tl5457754772%_ @@ -4784,10 +4782,10 @@ (let () (declare (not safe)) (_%g5457154615%_)))))))) - (if (gx#stx-pair? _%__stx8021080211%_) + (if (gx#stx-pair? _%__stx8120281203%_) (let ((_%e5457554765%_ (gx#syntax-e - _%__stx8021080211%_))) + _%__stx8120281203%_))) (let ((_%tl5457754772%_ (let () (declare (not safe)) @@ -4808,7 +4806,7 @@ (let () (declare (not safe)) (##car _%e5457854775%_)))) - (_%__match8023180232%_ + (_%__match8122381224%_ _%e5457554765%_ _%hd5457654769%_ _%tl5457754772%_ @@ -4821,30 +4819,30 @@ (let () (declare (not safe)) (_%g5457154615%_)))))))) - (_%__kont8044780448%_ + (_%__kont8143981440%_ (lambda (_%L54275%_ _%L54277%_) - (let* ((_%__stx8012880129%_ _%b53433%_) + (let* ((_%__stx8112081121%_ _%b53433%_) (_%g5429654340%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8012880129%_)))) - (let ((_%__kont8013180132%_ + _%__stx8112081121%_)))) + (let ((_%__kont8112381124%_ (lambda (_%L54502%_ _%L54504%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54275%_ _%L54502%_))) - (_%__kont8013380134%_ + (_%__kont8112581126%_ (lambda (_%L54454%_ _%L54456%_ _%L54457%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54275%_ _%L54454%_))) - (_%__kont8013580136%_ + (_%__kont8112781128%_ (lambda (_%L54387%_ _%L54389%_) '#t))) - (let ((_%__match8014980150%_ + (let ((_%__match8114181142%_ (lambda (_%e5430054482%_ _%hd5430154486%_ _%tl5430254489%_ @@ -4866,13 +4864,13 @@ (gx#datum->syntax '#f ':-))) - (_%__kont8013180132%_ + (_%__kont8112381124%_ _%L54502%_ _%L54504%_) (if (gx#identifier? _%hd5430154486%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82953_| + |gerbil/core/contract~Interface[1]#_g84075_| _%hd5430154486%_) (if (gx#stx-pair? _%tl5430554499%_) @@ -4898,7 +4896,7 @@ (let () (declare (not safe)) (##car _%e5431854444%_)))) - (_%__kont8013380134%_ + (_%__kont8112581126%_ _%hd5431954448%_ _%hd5431654438%_ _%hd5430454496%_))) @@ -4909,10 +4907,10 @@ (let () (declare (not safe)) (_%g5429654340%_)))))))) - (if (gx#stx-pair? _%__stx8012880129%_) + (if (gx#stx-pair? _%__stx8112081121%_) (let ((_%e5430054482%_ (gx#syntax-e - _%__stx8012880129%_))) + _%__stx8112081121%_))) (let ((_%tl5430254489%_ (let () (declare (not safe)) @@ -4933,7 +4931,7 @@ (let () (declare (not safe)) (##car _%e5430354492%_)))) - (_%__match8014980150%_ + (_%__match8114181142%_ _%e5430054482%_ _%hd5430154486%_ _%tl5430254489%_ @@ -4946,29 +4944,29 @@ (let () (declare (not safe)) (_%g5429654340%_)))))))) - (_%__kont8044980450%_ + (_%__kont8144181442%_ (lambda (_%L54056%_ _%L54058%_) - (let* ((_%__stx8006880069%_ _%b53433%_) + (let* ((_%__stx8106081061%_ _%b53433%_) (_%g5407754105%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8006880069%_)))) - (let ((_%__kont8007180072%_ + _%__stx8106081061%_)))) + (let ((_%__kont8106381064%_ (lambda (_%L54211%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54056%_ _%L54211%_))) - (_%__kont8007380074%_ + (_%__kont8106581066%_ (lambda (_%L54163%_ _%L54165%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54056%_ _%L54163%_))) - (_%__kont8007580076%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8006880069%_) + (_%__kont8106781068%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8106081061%_) (let ((_%e5408054191%_ - (gx#syntax-e _%__stx8006880069%_))) + (gx#syntax-e _%__stx8106081061%_))) (let ((_%tl5408254198%_ (let () (declare (not safe)) @@ -4979,7 +4977,7 @@ (##car _%e5408054191%_)))) (if (gx#identifier? _%hd5408154195%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82954_| + |gerbil/core/contract~Interface[1]#_g84076_| _%hd5408154195%_) (if (gx#stx-pair? _%tl5408254198%_) @@ -4994,11 +4992,11 @@ (##cdr _%e5408354201%_))) (_%hd5408454205%_ (let () (declare (not safe)) (##car _%e5408354201%_)))) - (_%__kont8007180072%_ _%hd5408454205%_))) + (_%__kont8106381064%_ _%hd5408454205%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8007580076%_)) + (_%__kont8106781068%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82955_| + |gerbil/core/contract~Interface[1]#_g84077_| _%hd5408154195%_) (if (gx#stx-pair? _%tl5408254198%_) @@ -5027,7 +5025,7 @@ (##car _%e5409454143%_)))) (if (gx#identifier? _%hd5409554147%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82956_| + |gerbil/core/contract~Interface[1]#_g84078_| _%hd5409554147%_) (if (gx#stx-pair? _%tl5409654150%_) (let ((_%e5409754153%_ @@ -5041,42 +5039,42 @@ (let () (declare (not safe)) (##car _%e5409754153%_)))) - (_%__kont8007380074%_ + (_%__kont8106581066%_ _%hd5409854157%_ _%hd5409254137%_))) - (_%__kont8007580076%_)) - (_%__kont8007580076%_)) - (_%__kont8007580076%_)))) - (_%__kont8007580076%_)))) - (_%__kont8007580076%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8007580076%_))) - (_%__kont8007580076%_)))) - (_%__kont8007580076%_)))))) - (_%__kont8045180452%_ + (_%__kont8106781068%_)) + (_%__kont8106781068%_)) + (_%__kont8106781068%_)))) + (_%__kont8106781068%_)))) + (_%__kont8106781068%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8106781068%_))) + (_%__kont8106781068%_)))) + (_%__kont8106781068%_)))))) + (_%__kont8144381444%_ (lambda (_%L53747%_ _%L53749%_) - (let* ((_%__stx7998679987%_ _%b53433%_) + (let* ((_%__stx8097880979%_ _%b53433%_) (_%g5376853812%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7998679987%_)))) - (let ((_%__kont7998979990%_ + _%__stx8097880979%_)))) + (let ((_%__kont8098180982%_ (lambda (_%L53982%_ _%L53984%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L53747%_ _%L53982%_))) - (_%__kont7999179992%_ + (_%__kont8098380984%_ (lambda (_%L53926%_ _%L53928%_ _%L53929%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L53747%_ _%L53926%_))) - (_%__kont7999379994%_ + (_%__kont8098580986%_ (lambda (_%L53859%_ _%L53861%_) '#t))) - (let* ((_%__match8003580036%_ + (let* ((_%__match8102781028%_ (lambda (_%e5378153886%_ _%hd5378253890%_ _%tl5378353893%_ @@ -5107,19 +5105,19 @@ (gx#datum->syntax '#f ':-))) - (_%__kont7999179992%_ + (_%__kont8098380984%_ _%L53926%_ _%L53928%_ _%L53929%_) (if (gx#stx-null? _%tl5379253923%_) - (_%__kont7999379994%_ + (_%__kont8098580986%_ _%hd5378853910%_ _%hd5378553900%_) (let () (declare (not safe)) (_%g5376853812%_))))))) - (_%__match8000780008%_ + (_%__match8099981000%_ (lambda (_%e5377253962%_ _%hd5377353966%_ _%tl5377453969%_ @@ -5143,13 +5141,13 @@ (gx#datum->syntax '#f ':-))) - (_%__kont7998979990%_ + (_%__kont8098180982%_ _%L53982%_ _%L53984%_) (if (gx#identifier? _%hd5377353966%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82957_| + |gerbil/core/contract~Interface[1]#_g84079_| _%hd5377353966%_) (if (gx#stx-pair? _%tl5377753979%_) @@ -5175,7 +5173,7 @@ (let () (declare (not safe)) (##car _%e5379053916%_)))) - (_%__match8003580036%_ + (_%__match8102781028%_ _%e5377253962%_ _%hd5377353966%_ _%tl5377453969%_ @@ -5195,10 +5193,10 @@ (let () (declare (not safe)) (_%g5376853812%_)))))))) - (if (gx#stx-pair? _%__stx7998679987%_) + (if (gx#stx-pair? _%__stx8097880979%_) (let ((_%e5377253962%_ (gx#syntax-e - _%__stx7998679987%_))) + _%__stx8097880979%_))) (let ((_%tl5377453969%_ (let () (declare (not safe)) @@ -5219,7 +5217,7 @@ (let () (declare (not safe)) (##car _%e5377553972%_)))) - (_%__match8000780008%_ + (_%__match8099981000%_ _%e5377253962%_ _%hd5377353966%_ _%tl5377453969%_ @@ -5232,21 +5230,21 @@ (let () (declare (not safe)) (_%g5376853812%_)))))))) - (_%__kont8045380454%_ + (_%__kont8144581446%_ (lambda (_%L53546%_) - (let* ((_%__stx7994679947%_ _%b53433%_) + (let* ((_%__stx8093880939%_ _%b53433%_) (_%g5356353585%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7994679947%_)))) - (let ((_%__kont7994979950%_ + _%__stx8093880939%_)))) + (let ((_%__kont8094180942%_ (lambda (_%L53677%_) '#f)) - (_%__kont7995179952%_ + (_%__kont8094380944%_ (lambda (_%L53633%_ _%L53635%_) '#f)) - (_%__kont7995379954%_ (lambda () '#t))) - (let* ((_%__match7998379984%_ + (_%__kont8094580946%_ (lambda () '#t))) + (let* ((_%__match8097580976%_ (lambda (_%e5357153603%_ _%hd5357253607%_ _%tl5357353610%_ @@ -5273,11 +5271,11 @@ (gx#datum->syntax '#f ':-))) - (_%__kont7995179952%_ + (_%__kont8094380944%_ _%L53633%_ _%L53635%_) - (_%__kont7995379954%_))))) - (_%__match7996179962%_ + (_%__kont8094580946%_))))) + (_%__match8095380954%_ (lambda (_%e5356653667%_ _%hd5356753671%_ _%tl5356853674%_) @@ -5297,12 +5295,12 @@ (gx#datum->syntax '#f ':-))) - (_%__kont7994979950%_ + (_%__kont8094180942%_ _%L53677%_) (if (gx#identifier? _%hd5356753671%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82958_| + |gerbil/core/contract~Interface[1]#_g84080_| _%hd5356753671%_) (if (gx#stx-pair? _%tl5356853674%_) @@ -5328,7 +5326,7 @@ (let () (declare (not safe)) (##car _%e5357753623%_)))) - (_%__match7998379984%_ + (_%__match8097580976%_ _%e5356653667%_ _%hd5356753671%_ _%tl5356853674%_ @@ -5338,15 +5336,15 @@ _%e5357753623%_ _%hd5357853627%_ _%tl5357953630%_))) - (_%__kont7995379954%_)))) - (_%__kont7995379954%_)) - (_%__kont7995379954%_)) + (_%__kont8094580946%_)))) + (_%__kont8094580946%_)) + (_%__kont8094580946%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7995379954%_))))))) - (if (gx#stx-pair? _%__stx7994679947%_) + (_%__kont8094580946%_))))))) + (if (gx#stx-pair? _%__stx8093880939%_) (let ((_%e5356653667%_ (gx#syntax-e - _%__stx7994679947%_))) + _%__stx8093880939%_))) (let ((_%tl5356853674%_ (let () (declare (not safe)) @@ -5355,12 +5353,12 @@ (let () (declare (not safe)) (##car _%e5356653667%_)))) - (_%__match7996179962%_ + (_%__match8095380954%_ _%e5356653667%_ _%hd5356753671%_ _%tl5356853674%_))) - (_%__kont7995379954%_)))))))) - (let ((_%__match8046780468%_ + (_%__kont8094580946%_)))))))) + (let ((_%__match8145981460%_ (lambda (_%e5344555012%_ _%hd5344655016%_ _%tl5344755019%_ @@ -5375,22 +5373,22 @@ (gx#free-identifier=? _%L55034%_ (gx#datum->syntax '#f ':-))) - (_%__kont8044180442%_ + (_%__kont8143381434%_ _%L55032%_ _%L55034%_) (if (gx#identifier? _%hd5344655016%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82959_| + |gerbil/core/contract~Interface[1]#_g84081_| _%hd5344655016%_) - (_%__kont8044380444%_ + (_%__kont8143581436%_ _%hd5344955026%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82960_| + |gerbil/core/contract~Interface[1]#_g84082_| _%hd5344655016%_) - (_%__kont8044580446%_ + (_%__kont8143781438%_ _%hd5344955026%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82961_| + |gerbil/core/contract~Interface[1]#_g84083_| _%hd5344655016%_) (if (gx#stx-pair? _%tl5345055029%_) @@ -5408,7 +5406,7 @@ (##car _%e5347354255%_)))) (if (gx#identifier? _%hd5347454259%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82962_| + |gerbil/core/contract~Interface[1]#_g84084_| _%hd5347454259%_) (if (gx#stx-pair? _%tl5347554262%_) (let ((_%e5347654265%_ @@ -5421,12 +5419,12 @@ (let () (declare (not safe)) (##car _%e5347654265%_)))) - (_%__kont8044780448%_ + (_%__kont8143981440%_ _%hd5347754269%_ _%hd5344955026%_))) - (_%__kont8045380454%_ _%hd5344955026%_)) + (_%__kont8144581446%_ _%hd5344955026%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82963_| + |gerbil/core/contract~Interface[1]#_g84085_| _%hd5347454259%_) (if (gx#stx-pair? _%tl5347554262%_) (let ((_%e5349054046%_ @@ -5439,12 +5437,12 @@ (let () (declare (not safe)) (##car _%e5349054046%_)))) - (_%__kont8044980450%_ + (_%__kont8144181442%_ _%hd5349154050%_ _%hd5344955026%_))) - (_%__kont8045380454%_ _%hd5344955026%_)) + (_%__kont8144581446%_ _%hd5344955026%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82964_| + |gerbil/core/contract~Interface[1]#_g84086_| _%hd5347454259%_) (if (gx#stx-pair? _%tl5347554262%_) (let ((_%e5350453737%_ @@ -5458,14 +5456,14 @@ (let () (declare (not safe)) (##car _%e5350453737%_)))) - (_%__kont8045180452%_ + (_%__kont8144381444%_ _%hd5350553741%_ _%hd5344955026%_))) - (_%__kont8045380454%_ + (_%__kont8144581446%_ _%hd5344955026%_)) - (_%__kont8045380454%_ _%hd5344955026%_)))) - (_%__kont8045380454%_ _%hd5344955026%_)))) - (_%__kont8045380454%_ _%hd5344955026%_)) + (_%__kont8144581446%_ _%hd5344955026%_)))) + (_%__kont8144581446%_ _%hd5344955026%_)))) + (_%__kont8144581446%_ _%hd5344955026%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) @@ -5473,9 +5471,9 @@ (let () (declare (not safe)) (_%g5344153519%_)))))))) - (if (gx#stx-pair? _%__stx8043880439%_) + (if (gx#stx-pair? _%__stx8143081431%_) (let ((_%e5344555012%_ - (gx#syntax-e _%__stx8043880439%_))) + (gx#syntax-e _%__stx8143081431%_))) (let ((_%tl5344755019%_ (let () (declare (not safe)) @@ -5495,7 +5493,7 @@ (let () (declare (not safe)) (##car _%e5344855022%_)))) - (_%__match8046780468%_ + (_%__match8145981460%_ _%e5344555012%_ _%hd5344655016%_ _%tl5344755019%_ @@ -5536,37 +5534,37 @@ (class-instance? gerbil/core/mop~MOP-2#class-type-info::t _%klass-b53347%_)) - (if (eq? (let ((__obj82763 _%klass-a53345%_)) + (if (eq? (let ((__obj83885 _%klass-a53345%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82763 + __obj83885 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82763 + __obj83885 '1 '#f '#f)) (unchecked-slot-ref - __obj82763 + __obj83885 'id))) - (let ((__obj82764 _%klass-b53347%_)) + (let ((__obj83886 _%klass-b53347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82764 + __obj83886 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82764 + __obj83886 '1 '#f '#f)) (unchecked-slot-ref - __obj82764 + __obj83886 'id)))) '#t (if (member _%type-b53332%_ @@ -5584,22 +5582,22 @@ _%klass-b53347%_)) (let ((_%$e53363%_ (gx#syntax-local-value - (let ((__obj82761 + (let ((__obj83883 _%klass-b53347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82761 + __obj83883 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82761 + __obj83883 '1 '#f '#f)) (unchecked-slot-ref - __obj82761 + __obj83883 'identifier))) false))) (if _%$e53363%_ @@ -5610,22 +5608,22 @@ _%$e53363%_) (if (gx#free-identifier=? _%type-a53330%_ - (let ((__obj82762 + (let ((__obj83884 _%klass-b53347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82762 + __obj83884 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82762 + __obj83884 '1 '#f '#f)) (unchecked-slot-ref - __obj82762 + __obj83884 'identifier)))) '#t '#f))) @@ -5654,22 +5652,22 @@ _%klass-b53347%_)) (let ((_%$e53386%_ (gx#syntax-local-value - (let ((__obj82759 + (let ((__obj83881 _%klass-b53347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82759 + __obj83881 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82759 + __obj83881 '1 '#f '#f)) (unchecked-slot-ref - __obj82759 + __obj83881 'identifier))) false))) (if _%$e53386%_ @@ -5680,24 +5678,24 @@ _%$e53386%_) (if (gx#free-identifier=? _%type-a53330%_ - (let ((__obj82760 + (let ((__obj83882 _%klass-b53347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82760 + __obj83882 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82760 + __obj83882 '1 '#f '#f)) (unchecked-slot-ref - __obj82760 + __obj83882 'identifier)))) '#t '#f))) @@ -5709,22 +5707,22 @@ _%klass-a53345%_)) (let ((_%$e53401%_ (gx#syntax-local-value - (let ((__obj82754 + (let ((__obj83876 _%klass-a53345%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82754 + __obj83876 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82754 + __obj83876 '1 '#f '#f)) (unchecked-slot-ref - __obj82754 + __obj83876 'identifier))) false))) (if _%$e53401%_ @@ -5740,19 +5738,19 @@ _%klass-b53347%_)) (let ((_%$e53410%_ (gx#syntax-local-value - (let ((__obj82756 + (let ((__obj83878 _%klass-b53347%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj82756 + __obj83878 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82756 '1 '#f '#f)) - (unchecked-slot-ref __obj82756 'identifier))) + (##unchecked-structure-ref __obj83878 '1 '#f '#f)) + (unchecked-slot-ref __obj83878 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if _%$e53410%_ @@ -5762,51 +5760,51 @@ _%klass-b53414%_)) _%$e53410%_) (if (gx#free-identifier=? - (let ((__obj82757 + (let ((__obj83879 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%klass-a53345%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82757 + __obj83879 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82757 '1 '#f '#f)) - (unchecked-slot-ref __obj82757 'identifier))) - (let ((__obj82758 _%klass-b53347%_)) + (##unchecked-structure-ref __obj83879 '1 '#f '#f)) + (unchecked-slot-ref __obj83879 'identifier))) + (let ((__obj83880 _%klass-b53347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82758 + __obj83880 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82758 '1 '#f '#f)) - (unchecked-slot-ref __obj82758 'identifier)))) + (##unchecked-structure-ref __obj83880 '1 '#f '#f)) + (unchecked-slot-ref __obj83880 'identifier)))) '#t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? _%type-b53332%_ - (let ((__obj82755 + (let ((__obj83877 _%klass-a53345%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82755 + __obj83877 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82755 + __obj83877 '1 '#f '#f)) (unchecked-slot-ref - __obj82755 + __obj83877 'identifier)))) '#t '#f)))) @@ -5816,14 +5814,14 @@ (let _%loop52938%_ ((_%rest52941%_ _%signature52935%_) (_%positionals52943%_ '()) (_%keywords52944%_ '())) - (let* ((_%__stx8061480615%_ (gx#datum->syntax '#f 'rest)) + (let* ((_%__stx8160681607%_ (gx#datum->syntax '#f 'rest)) (_%g5295253019%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8061480615%_)))) - (let ((_%__kont8061780618%_ + _%__stx8160681607%_)))) + (let ((_%__kont8160981610%_ (lambda (_%L53313%_ _%L53315%_) (_%loop52938%_ _%L53313%_ @@ -5831,7 +5829,7 @@ (cons (gx#datum->syntax '#f ':t) '())) _%positionals52943%_) _%keywords52944%_))) - (_%__kont8061980620%_ + (_%__kont8161181612%_ (lambda (_%L53277%_ _%L53279%_ _%L53280%_) (_%loop52938%_ _%L53277%_ @@ -5839,13 +5837,13 @@ (cons (gx#datum->syntax '#f ':t) '())) _%positionals52943%_) _%keywords52944%_))) - (_%__kont8062180622%_ + (_%__kont8161381614%_ (lambda (_%L53227%_ _%L53229%_) (_%loop52938%_ (gx#datum->syntax '#f 'rest) (cons _%L53227%_ _%positionals52943%_) _%keywords52944%_))) - (_%__kont8062380624%_ + (_%__kont8161581616%_ (lambda (_%L53193%_ _%L53195%_ _%L53196%_) (_%loop52938%_ _%L53193%_ @@ -5856,7 +5854,7 @@ (cons (gx#datum->syntax '#f ':t) '())))) _%keywords52944%_)))) - (_%__kont8062580626%_ + (_%__kont8161781618%_ (lambda (_%L53143%_ _%L53145%_ _%L53146%_ _%L53147%_) (_%loop52938%_ _%L53143%_ @@ -5867,7 +5865,7 @@ (cons (gx#datum->syntax '#f ':t) '())))) _%keywords52944%_)))) - (_%__kont8062780628%_ + (_%__kont8161981620%_ (lambda (_%L53071%_ _%L53073%_ _%L53074%_ _%L53075%_) (_%loop52938%_ _%L53071%_ @@ -5875,7 +5873,7 @@ (cons (cons (gx#stx-e _%L53075%_) (cons _%L53074%_ _%L53073%_)) _%keywords52944%_)))) - (_%__kont8062980630%_ + (_%__kont8162181622%_ (lambda () (values (reverse! _%positionals52943%_) (list-sort @@ -5884,7 +5882,7 @@ (gx#stx-car _%a53030%_) (gx#stx-car _%b53032%_))) _%keywords52944%_))))) - (let* ((_%__match8070180702%_ + (let* ((_%__match8169381694%_ (lambda (_%e5298953103%_ _%hd5299053107%_ _%tl5299153110%_ @@ -5903,17 +5901,17 @@ (_%L53147%_ _%hd5299053107%_)) (if (and (gx#stx-keyword? _%L53147%_) (gx#identifier? _%L53146%_)) - (_%__kont8062580626%_ + (_%__kont8161781618%_ _%L53143%_ _%L53145%_ _%L53146%_ _%L53147%_) - (_%__kont8062780628%_ + (_%__kont8161981620%_ _%tl5299453120%_ _%tl5299753130%_ _%hd5299653127%_ _%hd5299053107%_))))) - (_%__match8067580676%_ + (_%__match8166781668%_ (lambda (_%e5297953173%_ _%hd5298053177%_ _%tl5298153180%_ @@ -5925,7 +5923,7 @@ (_%L53196%_ _%hd5298053177%_)) (if (and (gx#stx-keyword? _%L53196%_) (gx#identifier? _%L53195%_)) - (_%__kont8062380624%_ + (_%__kont8161581616%_ _%L53193%_ _%L53195%_ _%L53196%_) @@ -5954,7 +5952,7 @@ (##car _%e5299853133%_)))) (if (gx#stx-null? _%tl5300053140%_) - (_%__match8070180702%_ + (_%__match8169381694%_ _%e5297953173%_ _%hd5298053177%_ _%tl5298153180%_ @@ -5967,25 +5965,25 @@ _%e5299853133%_ _%hd5299953137%_ _%tl5300053140%_) - (_%__kont8062780628%_ + (_%__kont8161981620%_ _%tl5298453190%_ _%tl5299753130%_ _%hd5299653127%_ _%hd5298053177%_)))) - (_%__kont8062780628%_ + (_%__kont8161981620%_ _%tl5298453190%_ _%tl5299753130%_ _%hd5299653127%_ _%hd5298053177%_)))) - (_%__kont8062980630%_)))))) - (_%__match8066380664%_ + (_%__kont8162181622%_)))))) + (_%__match8165581656%_ (lambda (_%e5297353217%_ _%hd5297453221%_ _%tl5297553224%_) (let ((_%L53227%_ _%tl5297553224%_) (_%L53229%_ _%hd5297453221%_)) (if (gx#identifier? _%L53229%_) - (_%__kont8062180622%_ _%L53227%_ _%L53229%_) + (_%__kont8161381614%_ _%L53227%_ _%L53229%_) (if (gx#stx-pair? _%tl5297553224%_) (let ((_%e5298253183%_ (gx#syntax-e _%tl5297553224%_))) @@ -5997,15 +5995,15 @@ (let () (declare (not safe)) (##car _%e5298253183%_)))) - (_%__match8067580676%_ + (_%__match8166781668%_ _%e5297353217%_ _%hd5297453221%_ _%tl5297553224%_ _%e5298253183%_ _%hd5298353187%_ _%tl5298453190%_))) - (_%__kont8062980630%_)))))) - (_%__match8065780658%_ + (_%__kont8162181622%_)))))) + (_%__match8164981650%_ (lambda (_%e5296253247%_ _%hd5296353251%_ _%tl5296453254%_ @@ -6019,22 +6017,22 @@ (_%L53279%_ _%hd5296953271%_) (_%L53280%_ _%hd5296653261%_)) (if (gx#identifier? _%L53280%_) - (_%__kont8061980620%_ + (_%__kont8161181612%_ _%L53277%_ _%L53279%_ _%L53280%_) - (_%__match8066380664%_ + (_%__match8165581656%_ _%e5296253247%_ _%hd5296353251%_ _%tl5296453254%_))))) - (_%__match8063780638%_ + (_%__match8162981630%_ (lambda (_%e5295653303%_ _%hd5295753307%_ _%tl5295853310%_) (let ((_%L53313%_ _%tl5295853310%_) (_%L53315%_ _%hd5295753307%_)) (if (gx#identifier? _%L53315%_) - (_%__kont8061780618%_ _%L53313%_ _%L53315%_) + (_%__kont8160981610%_ _%L53313%_ _%L53315%_) (if (gx#stx-pair? _%hd5295753307%_) (let ((_%e5296553257%_ (gx#syntax-e _%hd5295753307%_))) @@ -6060,7 +6058,7 @@ (##car _%e5296853267%_)))) (if (gx#stx-null? _%tl5297053274%_) - (_%__match8065780658%_ + (_%__match8164981650%_ _%e5295653303%_ _%hd5295753307%_ _%tl5295853310%_ @@ -6070,20 +6068,20 @@ _%e5296853267%_ _%hd5296953271%_ _%tl5297053274%_) - (_%__match8066380664%_ + (_%__match8165581656%_ _%e5295653303%_ _%hd5295753307%_ _%tl5295853310%_)))) - (_%__match8066380664%_ + (_%__match8165581656%_ _%e5295653303%_ _%hd5295753307%_ _%tl5295853310%_)))) - (_%__match8066380664%_ + (_%__match8165581656%_ _%e5295653303%_ _%hd5295753307%_ _%tl5295853310%_))))))) - (if (gx#stx-pair? _%__stx8061480615%_) - (let ((_%e5295653303%_ (gx#syntax-e _%__stx8061480615%_))) + (if (gx#stx-pair? _%__stx8160681607%_) + (let ((_%e5295653303%_ (gx#syntax-e _%__stx8160681607%_))) (let ((_%tl5295853310%_ (let () (declare (not safe)) @@ -6092,74 +6090,74 @@ (let () (declare (not safe)) (##car _%e5295653303%_)))) - (_%__match8063780638%_ + (_%__match8162981630%_ _%e5295653303%_ _%hd5295753307%_ _%tl5295853310%_))) - (_%__kont8062980630%_)))))))) + (_%__kont8162181622%_)))))))) (define |gerbil/core/contract~Interface[1]#signature-arity| (lambda (_%spec52570%_) (let _%lp52573%_ ((_%rest52576%_ (gx#stx-cdr _%spec52570%_)) (_%required52578%_ '0) (_%optional52579%_ '0)) - (let* ((_%__stx8072280723%_ _%rest52576%_) + (let* ((_%__stx8171481715%_ _%rest52576%_) (_%g5258752646%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8072280723%_)))) - (let ((_%__kont8072580726%_ + _%__stx8171481715%_)))) + (let ((_%__kont8171781718%_ (lambda (_%L52918%_ _%L52920%_) (_%lp52573%_ _%L52918%_ (1+ _%required52578%_) _%optional52579%_))) - (_%__kont8072780728%_ + (_%__kont8171981720%_ (lambda (_%L52882%_ _%L52884%_ _%L52885%_) (_%lp52573%_ _%L52882%_ _%required52578%_ (1+ _%optional52579%_)))) - (_%__kont8072980730%_ + (_%__kont8172181722%_ (lambda (_%L52824%_ _%L52826%_) (_%lp52573%_ _%L52824%_ _%required52578%_ (1+ _%optional52579%_)))) - (_%__kont8073380734%_ + (_%__kont8172581726%_ (lambda (_%L52746%_ _%L52748%_) (_%lp52573%_ _%L52746%_ (1+ _%required52578%_) _%optional52579%_))) - (_%__kont8073580736%_ + (_%__kont8172781728%_ (lambda (_%L52704%_ _%L52706%_) (_%lp52573%_ _%L52704%_ _%required52578%_ _%optional52579%_))) - (_%__kont8073780738%_ + (_%__kont8172981730%_ (lambda (_%L52664%_) (cons _%required52578%_ (cons _%optional52579%_ (cons '... '()))))) - (_%__kont8073980740%_ + (_%__kont8173181732%_ (lambda () (cons _%required52578%_ (cons _%optional52579%_ '()))))) (let* ((_%g5258652657%_ (lambda () - (if (gx#stx-null? _%__stx8072280723%_) - (_%__kont8073980740%_) + (if (gx#stx-null? _%__stx8171481715%_) + (_%__kont8173181732%_) (let () (declare (not safe)) (_%g5258752646%_))))) (_%g5258552677%_ (lambda () - (let ((_%L52664%_ _%__stx8072280723%_)) + (let ((_%L52664%_ _%__stx8171481715%_)) (if (gx#identifier? _%L52664%_) - (_%__kont8073780738%_ _%L52664%_) + (_%__kont8172981730%_ _%L52664%_) (let () (declare (not safe)) (_%g5258652657%_)))))) - (_%__match8082380824%_ + (_%__match8181581816%_ (lambda (_%e5263452684%_ _%hd5263552688%_ _%tl5263652691%_ @@ -6169,11 +6167,11 @@ (let ((_%L52704%_ _%tl5263952701%_) (_%L52706%_ _%hd5263552688%_)) (if (gx#stx-keyword? _%L52706%_) - (_%__kont8073580736%_ _%L52704%_ _%L52706%_) + (_%__kont8172781728%_ _%L52704%_ _%L52706%_) (let () (declare (not safe)) (_%g5258552677%_)))))) - (_%__match8081180812%_ + (_%__match8180381804%_ (lambda (_%e5262652726%_ _%hd5262752730%_ _%tl5262852733%_ @@ -6183,7 +6181,7 @@ (let ((_%L52746%_ _%tl5262852733%_) (_%L52748%_ _%hd5263052740%_)) (if (gx#identifier? _%L52748%_) - (_%__kont8073380734%_ _%L52746%_ _%L52748%_) + (_%__kont8172581726%_ _%L52746%_ _%L52748%_) (if (gx#stx-pair? _%tl5262852733%_) (let ((_%e5263752694%_ (gx#syntax-e _%tl5262852733%_))) @@ -6195,7 +6193,7 @@ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8082380824%_ + (_%__match8181581816%_ _%e5262652726%_ _%hd5262752730%_ _%tl5262852733%_ @@ -6205,11 +6203,11 @@ (let () (declare (not safe)) (_%g5258552677%_))))))) - (_%__match8079980800%_ + (_%__match8179181792%_ (lambda (_%e5260852768%_ _%hd5260952772%_ _%tl5261052775%_ - _%__splice8073180732%_ + _%__splice8172381724%_ _%target5261152778%_ _%tl5261352781%_ _%e5261852784%_ @@ -6233,11 +6231,11 @@ (##car _%e5261552812%_)))) (_%loop5261452804%_ _%lp-tl5261752819%_))) - (_%__kont8072980730%_ + (_%__kont8172181722%_ _%tl5261052775%_ _%hd5262252798%_))))) (_%loop5261452804%_ _%target5261152778%_)))) - (_%__match8076780768%_ + (_%__match8175981760%_ (lambda (_%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ @@ -6251,16 +6249,16 @@ (_%L52884%_ _%hd5260452876%_) (_%L52885%_ _%hd5260152866%_)) (if (gx#identifier? _%L52885%_) - (_%__kont8072780728%_ + (_%__kont8171981720%_ _%L52882%_ _%L52884%_ _%L52885%_) (if (gx#stx-pair/null? _%hd5259852856%_) - (if (let ((__tmp82965 + (if (let ((__tmp84087 (gx#stx-length _%hd5259852856%_))) (declare (not safe)) - (##fx>= __tmp82965 '2)) - (let ((_%__splice8073180732%_ + (##fx>= __tmp84087 '2)) + (let ((_%__splice8172381724%_ (gx#syntax-split-splice _%hd5259852856%_ '2))) @@ -6268,13 +6266,13 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8073180732%_ + _%__splice8172381724%_ '1))) (_%target5261152778%_ (let () (declare (not safe)) (##vector-ref - _%__splice8073180732%_ + _%__splice8172381724%_ '0)))) (if (gx#stx-pair? _%tl5261352781%_) (let ((_%e5261852784%_ @@ -6291,7 +6289,7 @@ (if (gx#identifier? _%hd5261952788%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82966_| + |gerbil/core/contract~Interface[1]#_g84088_| _%hd5261952788%_) (if (gx#stx-pair? _%tl5262052791%_) @@ -6307,11 +6305,11 @@ (declare (not safe)) (##car _%e5262152794%_)))) (if (gx#stx-null? _%tl5262352801%_) - (_%__match8079980800%_ + (_%__match8179181792%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ - _%__splice8073180732%_ + _%__splice8172381724%_ _%target5261152778%_ _%tl5261352781%_ _%e5261852784%_ @@ -6320,28 +6318,28 @@ _%e5262152794%_ _%hd5262252798%_ _%tl5262352801%_) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ @@ -6349,35 +6347,35 @@ _%hd5260152866%_ _%tl5260252869%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))))) - (_%__match8074780748%_ + (_%__match8173981740%_ (lambda (_%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_) (let ((_%L52918%_ _%tl5259352915%_) (_%L52920%_ _%hd5259252912%_)) (if (gx#identifier? _%L52920%_) - (_%__kont8072580726%_ _%L52918%_ _%L52920%_) + (_%__kont8171781718%_ _%L52918%_ _%L52920%_) (if (gx#stx-pair? _%hd5259252912%_) (let ((_%e5260052862%_ (gx#syntax-e _%hd5259252912%_))) @@ -6403,7 +6401,7 @@ (##car _%e5260352872%_)))) (if (gx#stx-null? _%tl5260552879%_) - (_%__match8076780768%_ + (_%__match8175981760%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6415,21 +6413,21 @@ _%tl5260552879%_) (if (gx#stx-pair/null? _%hd5259252912%_) - (if (let ((__tmp82967 + (if (let ((__tmp84089 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-length _%hd5259252912%_))) (declare (not safe)) - (##fx>= __tmp82967 '2)) - (let ((_%__splice8073180732%_ + (##fx>= __tmp84089 '2)) + (let ((_%__splice8172381724%_ (gx#syntax-split-splice _%hd5259252912%_ '2))) (let ((_%tl5261352781%_ (let () (declare (not safe)) - (##vector-ref _%__splice8073180732%_ '1))) + (##vector-ref _%__splice8172381724%_ '1))) (_%target5261152778%_ (let () (declare (not safe)) - (##vector-ref _%__splice8073180732%_ '0)))) + (##vector-ref _%__splice8172381724%_ '0)))) (if (gx#stx-pair? _%tl5261352781%_) (let ((_%e5261852784%_ (gx#syntax-e _%tl5261352781%_))) @@ -6443,7 +6441,7 @@ (##car _%e5261852784%_)))) (if (gx#identifier? _%hd5261952788%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82966_| + |gerbil/core/contract~Interface[1]#_g84088_| _%hd5261952788%_) (if (gx#stx-pair? _%tl5262052791%_) (let ((_%e5262152794%_ @@ -6459,11 +6457,11 @@ (##car _%e5262152794%_)))) (if (gx#stx-null? _%tl5262352801%_) - (_%__match8079980800%_ + (_%__match8179181792%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ - _%__splice8073180732%_ + _%__splice8172381724%_ _%target5261152778%_ _%tl5261352781%_ _%e5261852784%_ @@ -6472,49 +6470,49 @@ _%e5262152794%_ _%hd5262252798%_ _%tl5262352801%_) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6524,12 +6522,12 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%hd5259252912%_) - (if (let ((__tmp82968 + (if (let ((__tmp84090 (gx#stx-length _%hd5259252912%_))) (declare (not safe)) - (##fx>= __tmp82968 '2)) - (let ((_%__splice8073180732%_ + (##fx>= __tmp84090 '2)) + (let ((_%__splice8172381724%_ (gx#syntax-split-splice _%hd5259252912%_ '2))) @@ -6538,14 +6536,14 @@ (declare (not safe)) (##vector-ref - _%__splice8073180732%_ + _%__splice8172381724%_ '1))) (_%target5261152778%_ (let () (declare (not safe)) (##vector-ref - _%__splice8073180732%_ + _%__splice8172381724%_ '0)))) (if (gx#stx-pair? _%tl5261352781%_) @@ -6562,7 +6560,7 @@ (##car _%e5261852784%_)))) (if (gx#identifier? _%hd5261952788%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82966_| + |gerbil/core/contract~Interface[1]#_g84088_| _%hd5261952788%_) (if (gx#stx-pair? _%tl5262052791%_) (let ((_%e5262152794%_ @@ -6576,11 +6574,11 @@ (declare (not safe)) (##car _%e5262152794%_)))) (if (gx#stx-null? _%tl5262352801%_) - (_%__match8079980800%_ + (_%__match8179181792%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ - _%__splice8073180732%_ + _%__splice8172381724%_ _%target5261152778%_ _%tl5261352781%_ _%e5261852784%_ @@ -6589,35 +6587,35 @@ _%e5262152794%_ _%hd5262252798%_ _%tl5262352801%_) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6625,14 +6623,14 @@ _%hd5260152866%_ _%tl5260252869%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8081180812%_ + (_%__match8180381804%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6640,12 +6638,12 @@ _%hd5260152866%_ _%tl5260252869%_))))) (if (gx#stx-pair/null? _%hd5259252912%_) - (if (let ((__tmp82969 + (if (let ((__tmp84091 (gx#stx-length _%hd5259252912%_))) (declare (not safe)) - (##fx>= __tmp82969 '2)) - (let ((_%__splice8073180732%_ + (##fx>= __tmp84091 '2)) + (let ((_%__splice8172381724%_ (gx#syntax-split-splice _%hd5259252912%_ '2))) @@ -6653,13 +6651,13 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8073180732%_ + _%__splice8172381724%_ '1))) (_%target5261152778%_ (let () (declare (not safe)) (##vector-ref - _%__splice8073180732%_ + _%__splice8172381724%_ '0)))) (if (gx#stx-pair? _%tl5261352781%_) @@ -6679,7 +6677,7 @@ (if (gx#identifier? _%hd5261952788%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82966_| + |gerbil/core/contract~Interface[1]#_g84088_| _%hd5261952788%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -6695,11 +6693,11 @@ (declare (not safe)) (##car _%e5262152794%_)))) (if (gx#stx-null? _%tl5262352801%_) - (_%__match8079980800%_ + (_%__match8179181792%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ - _%__splice8073180732%_ + _%__splice8172381724%_ _%target5261152778%_ _%tl5261352781%_ _%e5261852784%_ @@ -6719,7 +6717,7 @@ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8082380824%_ + (_%__match8181581816%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6740,7 +6738,7 @@ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8082380824%_ + (_%__match8181581816%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6759,7 +6757,7 @@ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8082380824%_ + (_%__match8181581816%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6777,7 +6775,7 @@ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8082380824%_ + (_%__match8181581816%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6798,7 +6796,7 @@ (##cdr _%e5263752694%_))) (_%hd5263852698%_ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8082380824%_ + (_%__match8181581816%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6819,7 +6817,7 @@ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8082380824%_ + (_%__match8181581816%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6841,7 +6839,7 @@ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8082380824%_ + (_%__match8181581816%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6851,8 +6849,8 @@ (let () (declare (not safe)) (_%g5258552677%_)))))))))) - (if (gx#stx-pair? _%__stx8072280723%_) - (let ((_%e5259152908%_ (gx#syntax-e _%__stx8072280723%_))) + (if (gx#stx-pair? _%__stx8171481715%_) + (let ((_%e5259152908%_ (gx#syntax-e _%__stx8171481715%_))) (let ((_%tl5259352915%_ (let () (declare (not safe)) @@ -6861,7 +6859,7 @@ (let () (declare (not safe)) (##car _%e5259152908%_)))) - (_%__match8074780748%_ + (_%__match8173981740%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_))) @@ -6870,30 +6868,30 @@ (lambda (_%spec52395%_) (let _%lp52398%_ ((_%rest52401%_ _%spec52395%_) (_%keywords52403%_ '())) - (let* ((_%__stx8082880829%_ _%rest52401%_) + (let* ((_%__stx8182081821%_ _%rest52401%_) (_%g5240852436%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8082880829%_)))) - (let ((_%__kont8083180832%_ + _%__stx8182081821%_)))) + (let ((_%__kont8182381824%_ (lambda (_%L52553%_ _%L52555%_) (_%lp52398%_ _%L52553%_ _%keywords52403%_))) - (_%__kont8083380834%_ + (_%__kont8182581826%_ (lambda (_%L52521%_ _%L52523%_) (_%lp52398%_ _%L52521%_ _%keywords52403%_))) - (_%__kont8083580836%_ + (_%__kont8182781828%_ (lambda (_%L52474%_ _%L52476%_) (_%lp52398%_ _%L52474%_ (cons (gx#stx-e _%L52476%_) _%keywords52403%_)))) - (_%__kont8083780838%_ + (_%__kont8182981830%_ (lambda () (list-sort |gerbil/core/contract~Interface[1]#keywordstring (gx#stx-e _%x52391%_))) - (__tmp82970 (symbol->string (gx#stx-e _%y52393%_)))) + (let ((__tmp84093 (symbol->string (gx#stx-e _%x52391%_))) + (__tmp84092 (symbol->string (gx#stx-e _%y52393%_)))) (declare (not safe)) - (##stringstring (gx#stx-e _%x52387%_))) - (__tmp82972 (keyword->string (gx#stx-e _%y52389%_)))) + (let ((__tmp84095 (keyword->string (gx#stx-e _%x52387%_))) + (__tmp84094 (keyword->string (gx#stx-e _%y52389%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8092380924%_ + (_%__match8191581916%_ _%e6167061779%_ _%hd6167161783%_ _%tl6167261786%_ _%e6167361789%_ _%hd6167461793%_ _%tl6167561796%_)))) - (_%__kont8088180882%_ - _%__stx8087280873%_)))) + (_%__kont8187381874%_ + _%__stx8186481865%_)))) (let () (declare (not safe)) (_%g6166261727%_))))))))) @@ -7412,38 +7408,38 @@ (##cdr _%e6147761551%_)))) (if (gx#stx-pair/null? _%hd6147861555%_) - (let ((_g82975_ + (let ((_g84097_ (gx#syntax-split-splice _%hd6147861555%_ '0))) (begin - (let ((_g82976_ + (let ((_g84098_ (let () (declare (not safe)) (if (##values? - _g82975_) + _g84097_) (##vector-length - _g82975_) + _g84097_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82976_ + (##fx= _g84098_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g82976_))) + (error "Context expects 2 values" _g84098_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target6148061561%_ (let () (declare (not safe)) (##vector-ref - _g82975_ + _g84097_ 0))) (_%tl6148261564%_ (let () (declare (not safe)) (##vector-ref - _g82975_ + _g84097_ 1)))) (if (gx#stx-null? _%tl6148261564%_) @@ -7682,34 +7678,34 @@ (declare (not safe)) (##cdr _%e6016160195%_)))) (if (gx#stx-pair/null? _%tl6016360202%_) - (let ((_g82977_ + (let ((_g84099_ (gx#syntax-split-splice _%tl6016360202%_ '0))) (begin - (let ((_g82978_ + (let ((_g84100_ (let () (declare (not safe)) - (if (##values? _g82977_) + (if (##values? _g84099_) (##vector-length - _g82977_) + _g84099_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82978_ 2))) + (##fx= _g84100_ 2))) (error "Context expects 2 values" - _g82978_))) + _g84100_))) (let ((_%target6016460205%_ (let () (declare (not safe)) (##vector-ref - _g82977_ + _g84099_ 0))) (_%tl6016660208%_ (let () (declare (not safe)) (##vector-ref - _g82977_ + _g84099_ 1)))) (if (gx#stx-null? _%tl6016660208%_) @@ -7830,37 +7826,37 @@ (lambda (_%g6051260532%_) (if (gx#stx-pair/null? _%g6051260532%_) - (let ((_g82979_ + (let ((_g84101_ (gx#syntax-split-splice _%g6051260532%_ '0))) (begin - (let ((_g82980_ + (let ((_g84102_ (let () (declare (not safe)) (if (##values? - _g82979_) + _g84101_) (##vector-length - _g82979_) + _g84101_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g82980_ 2))) - (error "Context expects 2 values" _g82980_))) + (##fx= _g84102_ 2))) + (error "Context expects 2 values" _g84102_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target6051460535%_ (let () (declare (not safe)) (##vector-ref - _g82979_ + _g84101_ 0))) (_%tl6051660538%_ (let () (declare (not safe)) (##vector-ref - _g82979_ + _g84101_ 1)))) (if (gx#stx-null? _%tl6051660538%_) @@ -7895,25 +7891,25 @@ (lambda (_%g6058360603%_) (if (gx#stx-pair/null? _%g6058360603%_) - (let ((_g82981_ + (let ((_g84103_ (gx#syntax-split-splice _%g6058360603%_ '0))) (begin - (let ((_g82982_ + (let ((_g84104_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g82981_) - (##vector-length _g82981_) + (if (##values? _g84103_) + (##vector-length _g84103_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82982_ 2))) - (error "Context expects 2 values" _g82982_))) + (if (not (let () (declare (not safe)) (##fx= _g84104_ 2))) + (error "Context expects 2 values" _g84104_))) (let ((_%target6058560606%_ - (let () (declare (not safe)) (##vector-ref _g82981_ 0))) + (let () (declare (not safe)) (##vector-ref _g84103_ 0))) (_%tl6058760609%_ - (let () (declare (not safe)) (##vector-ref _g82981_ 1)))) + (let () (declare (not safe)) (##vector-ref _g84103_ 1)))) (if (gx#stx-null? _%tl6058760609%_) (letrec ((_%loop6058860612%_ (lambda (_%hd6058660616%_ _%method6059260619%_) @@ -7945,30 +7941,30 @@ (lambda (_%g6065460674%_) (if (gx#stx-pair/null? _%g6065460674%_) - (let ((_g82983_ + (let ((_g84105_ (gx#syntax-split-splice _%g6065460674%_ '0))) (begin - (let ((_g82984_ + (let ((_g84106_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g82983_) - (##vector-length _g82983_) + (if (##values? _g84105_) + (##vector-length _g84105_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82984_ 2))) - (error "Context expects 2 values" _g82984_))) + (##fx= _g84106_ 2))) + (error "Context expects 2 values" _g84106_))) (let ((_%target6065660677%_ (let () (declare (not safe)) - (##vector-ref _g82983_ 0))) + (##vector-ref _g84105_ 0))) (_%tl6065860680%_ (let () (declare (not safe)) - (##vector-ref _g82983_ 1)))) + (##vector-ref _g84105_ 1)))) (if (gx#stx-null? _%tl6065860680%_) (letrec ((_%loop6065960683%_ (lambda (_%hd6065760687%_ @@ -8002,28 +7998,28 @@ (lambda (_%g6072560745%_) (if (gx#stx-pair/null? _%g6072560745%_) - (let ((_g82985_ + (let ((_g84107_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%g6072560745%_ '0))) (begin - (let ((_g82986_ + (let ((_g84108_ (let () (declare (not safe)) - (if (##values? _g82985_) - (##vector-length _g82985_) + (if (##values? _g84107_) + (##vector-length _g84107_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82986_ 2))) - (error "Context expects 2 values" _g82986_))) + (##fx= _g84108_ 2))) + (error "Context expects 2 values" _g84108_))) (let ((_%target6072760748%_ (let () (declare (not safe)) - (##vector-ref _g82985_ 0))) + (##vector-ref _g84107_ 0))) (_%tl6072960751%_ (let () (declare (not safe)) - (##vector-ref _g82985_ 1)))) + (##vector-ref _g84107_ 1)))) (if (gx#stx-null? _%tl6072960751%_) (letrec ((_%loop6073060754%_ (lambda (_%hd6072860758%_ @@ -8058,28 +8054,28 @@ (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%g6079660816%_) - (let ((_g82987_ + (let ((_g84109_ (gx#syntax-split-splice _%g6079660816%_ '0))) (begin - (let ((_g82988_ + (let ((_g84110_ (let () (declare (not safe)) - (if (##values? _g82987_) - (##vector-length _g82987_) + (if (##values? _g84109_) + (##vector-length _g84109_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82988_ 2))) + (##fx= _g84110_ 2))) (error "Context expects 2 values" - _g82988_))) + _g84110_))) (let ((_%target6079860819%_ (let () (declare (not safe)) - (##vector-ref _g82987_ 0))) + (##vector-ref _g84109_ 0))) (_%tl6080060822%_ (let () (declare (not safe)) - (##vector-ref _g82987_ 1)))) + (##vector-ref _g84109_ 1)))) (if (gx#stx-null? _%tl6080060822%_) (letrec ((_%loop6080160825%_ (lambda (_%hd6079960829%_ @@ -8114,30 +8110,30 @@ (_%g6086561326%_ (lambda (_%g6086760887%_) (if (gx#stx-pair/null? _%g6086760887%_) - (let ((_g82989_ + (let ((_g84111_ (gx#syntax-split-splice _%g6086760887%_ '0))) (begin - (let ((_g82990_ + (let ((_g84112_ (let () (declare (not safe)) - (if (##values? _g82989_) - (##vector-length _g82989_) + (if (##values? _g84111_) + (##vector-length _g84111_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82990_ 2))) + (##fx= _g84112_ 2))) (error "Context expects 2 values" - _g82990_))) + _g84112_))) (let ((_%target6086960890%_ (let () (declare (not safe)) - (##vector-ref _g82989_ 0))) + (##vector-ref _g84111_ 0))) (_%tl6087160893%_ (let () (declare (not safe)) - (##vector-ref _g82989_ 1)))) + (##vector-ref _g84111_ 1)))) (if (gx#stx-null? _%tl6087160893%_) (letrec ((_%loop6087260896%_ (lambda (_%hd6087060900%_ @@ -8172,30 +8168,30 @@ (_%g6093661306%_ (lambda (_%g6093860958%_) (if (gx#stx-pair/null? _%g6093860958%_) - (let ((_g82991_ + (let ((_g84113_ (gx#syntax-split-splice _%g6093860958%_ '0))) (begin - (let ((_g82992_ + (let ((_g84114_ (let () (declare (not safe)) - (if (##values? _g82991_) - (##vector-length _g82991_) + (if (##values? _g84113_) + (##vector-length _g84113_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82992_ 2))) + (##fx= _g84114_ 2))) (error "Context expects 2 values" - _g82992_))) + _g84114_))) (let ((_%target6094060961%_ (let () (declare (not safe)) - (##vector-ref _g82991_ 0))) + (##vector-ref _g84113_ 0))) (_%tl6094260964%_ (let () (declare (not safe)) - (##vector-ref _g82991_ 1)))) + (##vector-ref _g84113_ 1)))) (if (gx#stx-null? _%tl6094260964%_) (letrec ((_%loop6094360967%_ (lambda (_%hd6094160971%_ @@ -8645,7 +8641,7 @@ (cons _%g6130961312%_ _%g6131061315%_)) '() _%L60636%_) - (let ((__tmp82993 + (let ((__tmp84115 (length (foldr (lambda (_%g6131761320%_ _%g6131861323%_) (cons _%g6131761320%_ @@ -8653,7 +8649,7 @@ '() _%L60707%_)))) (declare (not safe)) - (##iota __tmp82993 '2)))))) + (##iota __tmp84115 '2)))))) _%unchecked-method-impl-name6087760916%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%loop6087260896%_ @@ -8820,25 +8816,25 @@ (class-instance? gerbil/core/mop~MOP-2#class-type-info::t _%return-type62939%_)) - (let ((__tmp82994 - (let ((__obj82766 _%return-type62939%_)) + (let ((__tmp84116 + (let ((__obj83888 _%return-type62939%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82766 + __obj83888 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82766 + __obj83888 '1 '#f '#f)) (unchecked-slot-ref - __obj82766 + __obj83888 'id))))) (declare (not safe)) - (##memq __tmp82994 '(t void)))) + (##memq __tmp84116 '(t void)))) '#f '#t)))) (_%make-checked-method-def61955%_ @@ -8930,34 +8926,34 @@ (declare (not safe)) (##cdr _%e6273062810%_)))) (if (gx#stx-pair/null? _%hd6273162814%_) - (let ((_g82995_ + (let ((_g84117_ (gx#syntax-split-splice _%hd6273162814%_ '0))) (begin - (let ((_g82996_ + (let ((_g84118_ (let () (declare (not safe)) - (if (##values? _g82995_) + (if (##values? _g84117_) (##vector-length - _g82995_) + _g84117_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82996_ 2))) + (##fx= _g84118_ 2))) (error "Context expects 2 values" - _g82996_))) + _g84118_))) (let ((_%target6273362820%_ (let () (declare (not safe)) (##vector-ref - _g82995_ + _g84117_ 0))) (_%tl6273562823%_ (let () (declare (not safe)) (##vector-ref - _g82995_ + _g84117_ 1)))) (if (gx#stx-null? _%tl6273562823%_) @@ -9195,37 +9191,37 @@ (##cdr _%e6249162571%_)))) (if (gx#stx-pair/null? _%hd6249262575%_) - (let ((_g82997_ + (let ((_g84119_ (gx#syntax-split-splice _%hd6249262575%_ '0))) (begin - (let ((_g82998_ + (let ((_g84120_ (let () (declare (not safe)) (if (##values? - _g82997_) + _g84119_) (##vector-length - _g82997_) + _g84119_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g82998_ 2))) - (error "Context expects 2 values" _g82998_))) + (##fx= _g84120_ 2))) + (error "Context expects 2 values" _g84120_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target6249462581%_ (let () (declare (not safe)) (##vector-ref - _g82997_ + _g84119_ 0))) (_%tl6249662584%_ (let () (declare (not safe)) (##vector-ref - _g82997_ + _g84119_ 1)))) (if (gx#stx-null? _%tl6249662584%_) @@ -9480,25 +9476,25 @@ (##cdr _%e6228162365%_)))) (if (gx#stx-pair/null? _%hd6228262369%_) - (let ((_g82999_ + (let ((_g84121_ (gx#syntax-split-splice _%hd6228262369%_ '0))) (begin - (let ((_g83000_ + (let ((_g84122_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g82999_) - (##vector-length _g82999_) + (if (##values? _g84121_) + (##vector-length _g84121_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g83000_ 2))) - (error "Context expects 2 values" _g83000_))) + (if (not (let () (declare (not safe)) (##fx= _g84122_ 2))) + (error "Context expects 2 values" _g84122_))) (let ((_%target6228462375%_ - (let () (declare (not safe)) (##vector-ref _g82999_ 0))) + (let () (declare (not safe)) (##vector-ref _g84121_ 0))) (_%tl6228662378%_ - (let () (declare (not safe)) (##vector-ref _g82999_ 1)))) + (let () (declare (not safe)) (##vector-ref _g84121_ 1)))) (if (gx#stx-null? _%tl6228662378%_) (letrec ((_%loop6228762381%_ (lambda (_%hd6228562385%_ _%body6229162388%_) @@ -9668,30 +9664,30 @@ (##cdr _%e6198162055%_)))) (if (gx#stx-null? _%tl6198362062%_) (if (gx#stx-pair/null? _%tl6197462032%_) - (let ((_g83001_ + (let ((_g84123_ (gx#syntax-split-splice _%tl6197462032%_ '0))) (begin - (let ((_g83002_ + (let ((_g84124_ (let () (declare (not safe)) - (if (##values? _g83001_) - (##vector-length _g83001_) + (if (##values? _g84123_) + (##vector-length _g84123_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83002_ 2))) + (##fx= _g84124_ 2))) (error "Context expects 2 values" - _g83002_))) + _g84124_))) (let ((_%target6198462065%_ (let () (declare (not safe)) - (##vector-ref _g83001_ 0))) + (##vector-ref _g84123_ 0))) (_%tl6198662068%_ (let () (declare (not safe)) - (##vector-ref _g83001_ 1)))) + (##vector-ref _g84123_ 1)))) (if (gx#stx-null? _%tl6198662068%_) (letrec ((_%loop6198762071%_ (lambda (_%hd6198562075%_ @@ -9724,22 +9720,22 @@ (let* ((_%info62130%_ (gx#syntax-local-value _%L62100%_)) (_%interface-name62133%_ - (let ((__obj82767 _%info62130%_)) + (let ((__obj83889 _%info62130%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82767 + __obj83889 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82767 + __obj83889 '1 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82767 + __obj83889 'name)))) (_%method-name62136%_ (gx#stx-identifier @@ -9958,34 +9954,34 @@ (##cdr _%e6297563059%_)))) (if (gx#stx-null? _%tl6297763066%_) (if (gx#stx-pair/null? _%tl6296563026%_) - (let ((_g83003_ + (let ((_g84125_ (gx#syntax-split-splice _%tl6296563026%_ '0))) (begin - (let ((_g83004_ + (let ((_g84126_ (let () (declare (not safe)) - (if (##values? _g83003_) + (if (##values? _g84125_) (##vector-length - _g83003_) + _g84125_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83004_ 2))) + (##fx= _g84126_ 2))) (error "Context expects 2 values" - _g83004_))) + _g84126_))) (let ((_%target6297863069%_ (let () (declare (not safe)) (##vector-ref - _g83003_ + _g84125_ 0))) (_%tl6298063072%_ (let () (declare (not safe)) (##vector-ref - _g83003_ + _g84125_ 1)))) (if (gx#stx-null? _%tl6298063072%_) @@ -10199,34 +10195,34 @@ (##cdr _%e6324863332%_)))) (if (gx#stx-null? _%tl6325063339%_) (if (gx#stx-pair/null? _%tl6323863299%_) - (let ((_g83005_ + (let ((_g84127_ (gx#syntax-split-splice _%tl6323863299%_ '0))) (begin - (let ((_g83006_ + (let ((_g84128_ (let () (declare (not safe)) - (if (##values? _g83005_) + (if (##values? _g84127_) (##vector-length - _g83005_) + _g84127_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83006_ 2))) + (##fx= _g84128_ 2))) (error "Context expects 2 values" - _g83006_))) + _g84128_))) (let ((_%target6325163342%_ (let () (declare (not safe)) (##vector-ref - _g83005_ + _g84127_ 0))) (_%tl6325363345%_ (let () (declare (not safe)) (##vector-ref - _g83005_ + _g84127_ 1)))) (if (gx#stx-null? _%tl6325363345%_) @@ -10374,30 +10370,30 @@ (##cdr _%e6344963523%_)))) (if (gx#stx-null? _%tl6345163530%_) (if (gx#stx-pair/null? _%tl6344263500%_) - (let ((_g83007_ + (let ((_g84129_ (gx#syntax-split-splice _%tl6344263500%_ '0))) (begin - (let ((_g83008_ + (let ((_g84130_ (let () (declare (not safe)) - (if (##values? _g83007_) - (##vector-length _g83007_) + (if (##values? _g84129_) + (##vector-length _g84129_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83008_ 2))) + (##fx= _g84130_ 2))) (error "Context expects 2 values" - _g83008_))) + _g84130_))) (let ((_%target6345263533%_ (let () (declare (not safe)) - (##vector-ref _g83007_ 0))) + (##vector-ref _g84129_ 0))) (_%tl6345463536%_ (let () (declare (not safe)) - (##vector-ref _g83007_ 1)))) + (##vector-ref _g84129_ 1)))) (if (gx#stx-null? _%tl6345463536%_) (letrec ((_%loop6345563539%_ (lambda (_%hd6345363543%_ @@ -10472,30 +10468,30 @@ (_%g6383864087%_ (lambda (_%g6384063860%_) (if (gx#stx-pair/null? _%g6384063860%_) - (let ((_g83009_ + (let ((_g84131_ (gx#syntax-split-splice _%g6384063860%_ '0))) (begin - (let ((_g83010_ + (let ((_g84132_ (let () (declare (not safe)) - (if (##values? _g83009_) - (##vector-length _g83009_) + (if (##values? _g84131_) + (##vector-length _g84131_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83010_ 2))) + (##fx= _g84132_ 2))) (error "Context expects 2 values" - _g83010_))) + _g84132_))) (let ((_%target6384263863%_ (let () (declare (not safe)) - (##vector-ref _g83009_ 0))) + (##vector-ref _g84131_ 0))) (_%tl6384463866%_ (let () (declare (not safe)) - (##vector-ref _g83009_ 1)))) + (##vector-ref _g84131_ 1)))) (if (gx#stx-null? _%tl6384463866%_) (letrec ((_%loop6384563869%_ (lambda (_%hd6384363873%_ @@ -10532,14 +10528,14 @@ _%L63893%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%ids63920%_ '())) - (let* ((_%__stx8092880929%_ _%rest63918%_) + (let* ((_%__stx8192081921%_ _%rest63918%_) (_%g6392363935%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8092880929%_)))) - (let ((_%__kont8093180932%_ + _%__stx8192081921%_)))) + (let ((_%__kont8192381924%_ (lambda (_%L63963%_ _%L63965%_) (let ((_%info63980%_ (gx#syntax-local-value @@ -10698,13 +10694,13 @@ _%descriptor64030%_ _%type64023%_)) (_%E6398464001%_)))))) - (_%__kont8093380934%_ + (_%__kont8192581926%_ (lambda () (cons 'begin: _%ids63920%_)))) - (if (gx#stx-pair? _%__stx8092880929%_) + (if (gx#stx-pair? _%__stx8192081921%_) (let ((_%e6392763953%_ (gx#syntax-e - _%__stx8092880929%_))) + _%__stx8192081921%_))) (let ((_%tl6392963960%_ (let () (declare (not safe)) @@ -10713,10 +10709,10 @@ (let () (declare (not safe)) (##car _%e6392763953%_)))) - (_%__kont8093180932%_ + (_%__kont8192381924%_ _%tl6392963960%_ _%hd6392863957%_))) - (_%__kont8093380934%_))))) + (_%__kont8192581926%_))))) (_%g6383963856%_ _%g6384063860%_))) _%id6385063889%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -10727,14 +10723,14 @@ _%g6384063860%_))))) (_%g6383963856%_ _%g6384063860%_))))) (_%g6383864087%_ _%body63835%_))))) - (let* ((_%__stx8094480945%_ _%stx63610%_) + (let* ((_%__stx8193681937%_ _%stx63610%_) (_%g6361763658%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8094480945%_)))) - (let ((_%__kont8094780948%_ + _%__stx8193681937%_)))) + (let ((_%__kont8193981940%_ (lambda (_%L63801%_ _%L63803%_) (_%expand63613%_ (foldr (lambda (_%g6382263825%_ _%g6382363828%_) @@ -10742,7 +10738,7 @@ '() _%L63801%_) (gx#stx-e _%L63803%_)))) - (_%__kont8095180952%_ + (_%__kont8194381944%_ (lambda (_%L63705%_) (_%expand63613%_ (foldr (lambda (_%g6372163724%_ _%g6372263727%_) @@ -10750,11 +10746,11 @@ '() _%L63705%_) '#t)))) - (let* ((_%__match8100181002%_ + (let* ((_%__match8199381994%_ (lambda (_%e6364163665%_ _%hd6364263669%_ _%tl6364363672%_ - _%__splice8095380954%_ + _%__splice8194581946%_ _%target6364463675%_ _%tl6364663678%_) (letrec ((_%loop6364763681%_ @@ -10778,10 +10774,10 @@ _%body6365163688%_)))) (let ((_%body6365263701%_ (reverse _%body6365163688%_))) - (_%__kont8095180952%_ + (_%__kont8194381944%_ _%body6365263701%_)))))) (_%loop6364763681%_ _%target6364463675%_ '())))) - (_%__match8098780988%_ + (_%__match8197981980%_ (lambda (_%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ @@ -10792,7 +10788,7 @@ _%e6362863761%_ _%hd6362963765%_ _%tl6363063768%_ - _%__splice8094980950%_ + _%__splice8194181942%_ _%target6363163771%_ _%tl6363363774%_) (letrec ((_%loop6363463777%_ @@ -10816,12 +10812,12 @@ _%body6363863784%_)))) (let ((_%body6363963797%_ (reverse _%body6363863784%_))) - (_%__kont8094780948%_ + (_%__kont8193981940%_ _%body6363963797%_ _%hd6362963765%_)))))) (_%loop6363463777%_ _%target6363163771%_ '()))))) - (if (gx#stx-pair? _%__stx8094480945%_) - (let ((_%e6362163737%_ (gx#syntax-e _%__stx8094480945%_))) + (if (gx#stx-pair? _%__stx8193681937%_) + (let ((_%e6362163737%_ (gx#syntax-e _%__stx8193681937%_))) (let ((_%tl6362363744%_ (let () (declare (not safe)) @@ -10859,7 +10855,7 @@ (##car _%e6362863761%_)))) (if (gx#stx-pair/null? _%tl6363063768%_) - (let ((_%__splice8094980950%_ + (let ((_%__splice8194181942%_ (gx#syntax-split-splice _%tl6363063768%_ '0))) @@ -10867,13 +10863,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8094980950%_ '1))) + (##vector-ref _%__splice8194181942%_ '1))) (_%target6363163771%_ (let () (declare (not safe)) - (##vector-ref _%__splice8094980950%_ '0)))) + (##vector-ref _%__splice8194181942%_ '0)))) (if (gx#stx-null? _%tl6363363774%_) - (_%__match8098780988%_ + (_%__match8197981980%_ _%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ @@ -10884,11 +10880,11 @@ _%e6362863761%_ _%hd6362963765%_ _%tl6363063768%_ - _%__splice8094980950%_ + _%__splice8194181942%_ _%target6363163771%_ _%tl6363363774%_) (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8095380954%_ + (let ((_%__splice8194581946%_ (gx#syntax-split-splice _%tl6362363744%_ '0))) @@ -10896,20 +10892,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8095380954%_ + _%__splice8194581946%_ '1))) (_%target6364463675%_ (let () (declare (not safe)) (##vector-ref - _%__splice8095380954%_ + _%__splice8194581946%_ '0)))) (if (gx#stx-null? _%tl6364663678%_) - (_%__match8100181002%_ + (_%__match8199381994%_ _%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ - _%__splice8095380954%_ + _%__splice8194581946%_ _%target6364463675%_ _%tl6364663678%_) (let () @@ -10917,22 +10913,22 @@ (_%g6361763658%_))))) (let () (declare (not safe)) (_%g6361763658%_)))))) (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8095380954%_ + (let ((_%__splice8194581946%_ (gx#syntax-split-splice _%tl6362363744%_ '0))) (let ((_%tl6364663678%_ (let () (declare (not safe)) - (##vector-ref _%__splice8095380954%_ '1))) + (##vector-ref _%__splice8194581946%_ '1))) (_%target6364463675%_ (let () (declare (not safe)) - (##vector-ref _%__splice8095380954%_ '0)))) + (##vector-ref _%__splice8194581946%_ '0)))) (if (gx#stx-null? _%tl6364663678%_) - (_%__match8100181002%_ + (_%__match8199381994%_ _%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ - _%__splice8095380954%_ + _%__splice8194581946%_ _%target6364463675%_ _%tl6364663678%_) (let () (declare (not safe)) (_%g6361763658%_))))) @@ -10940,7 +10936,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8095380954%_ + (let ((_%__splice8194581946%_ (gx#syntax-split-splice _%tl6362363744%_ '0))) @@ -10949,22 +10945,22 @@ (declare (not safe)) (##vector-ref - _%__splice8095380954%_ + _%__splice8194581946%_ '1))) (_%target6364463675%_ (let () (declare (not safe)) (##vector-ref - _%__splice8095380954%_ + _%__splice8194581946%_ '0)))) (if (gx#stx-null? _%tl6364663678%_) - (_%__match8100181002%_ + (_%__match8199381994%_ _%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ - _%__splice8095380954%_ + _%__splice8194581946%_ _%target6364463675%_ _%tl6364663678%_) (let () @@ -10976,7 +10972,7 @@ (_%g6361763658%_)))) (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8095380954%_ + (let ((_%__splice8194581946%_ (gx#syntax-split-splice _%tl6362363744%_ '0))) @@ -10984,21 +10980,21 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8095380954%_ + _%__splice8194581946%_ '1))) (_%target6364463675%_ (let () (declare (not safe)) (##vector-ref - _%__splice8095380954%_ + _%__splice8194581946%_ '0)))) (if (gx#stx-null? _%tl6364663678%_) - (_%__match8100181002%_ + (_%__match8199381994%_ _%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ - _%__splice8095380954%_ + _%__splice8194581946%_ _%target6364463675%_ _%tl6364663678%_) (let () @@ -11008,7 +11004,7 @@ (declare (not safe)) (_%g6361763658%_))))) (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8095380954%_ + (let ((_%__splice8194581946%_ (gx#syntax-split-splice _%tl6362363744%_ '0))) @@ -11016,21 +11012,21 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8095380954%_ + _%__splice8194581946%_ '1))) (_%target6364463675%_ (let () (declare (not safe)) (##vector-ref - _%__splice8095380954%_ + _%__splice8194581946%_ '0)))) (if (gx#stx-null? _%tl6364663678%_) - (_%__match8100181002%_ + (_%__match8199381994%_ _%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ - _%__splice8095380954%_ + _%__splice8194581946%_ _%target6364463675%_ _%tl6364663678%_) (let () @@ -11040,7 +11036,7 @@ (declare (not safe)) (_%g6361763658%_)))))) (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8095380954%_ + (let ((_%__splice8194581946%_ (gx#syntax-split-splice _%tl6362363744%_ '0))) @@ -11048,20 +11044,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8095380954%_ + _%__splice8194581946%_ '1))) (_%target6364463675%_ (let () (declare (not safe)) (##vector-ref - _%__splice8095380954%_ + _%__splice8194581946%_ '0)))) (if (gx#stx-null? _%tl6364663678%_) - (_%__match8100181002%_ + (_%__match8199381994%_ _%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ - _%__splice8095380954%_ + _%__splice8194581946%_ _%target6364463675%_ _%tl6364663678%_) (let () diff --git a/src/bootstrap/gerbil/core/contract~9.scm b/src/bootstrap/gerbil/core/contract~9.scm index c73b4dfc2..113f3b355 100644 --- a/src/bootstrap/gerbil/core/contract~9.scm +++ b/src/bootstrap/gerbil/core/contract~9.scm @@ -1,104 +1,104 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypedDefinitions[1]#_g83017_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84139_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83024_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84146_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83027_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84149_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83028_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84150_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83036_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84158_| (##structure gx#syntax-quote::t 'lambda/c #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83037_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84159_| (##structure gx#syntax-quote::t 'case-lambda/c #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83038_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84160_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83040_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84162_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83041_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84163_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83042_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84164_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83044_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84166_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83045_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84167_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83046_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84168_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83048_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84170_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83049_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84171_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83050_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84172_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83051_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84173_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83052_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84174_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83053_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84175_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83054_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84176_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83055_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84177_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83056_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84178_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83057_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84179_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83058_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84180_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83059_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84181_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83060_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84182_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83061_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84183_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83062_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84184_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83063_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84185_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83064_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84186_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g83065_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84187_| (##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* ((_%__stx8100481005%_ _%rest64101%_) + (let* ((_%__stx8199681997%_ _%rest64101%_) (_%g6411064179%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8100481005%_)))) - (let ((_%__kont8100781008%_ + _%__stx8199681997%_)))) + (let ((_%__kont8199982000%_ (lambda (_%L64480%_ _%L64482%_) (_%lp64098%_ _%L64480%_))) - (_%__kont8100981010%_ + (_%__kont8200182002%_ (lambda (_%L64446%_ _%L64448%_) (_%lp64098%_ _%L64446%_))) - (_%__kont8101181012%_ + (_%__kont8200382004%_ (lambda (_%L64392%_ _%L64394%_ _%L64395%_) '#t)) - (_%__kont8101381014%_ + (_%__kont8200582006%_ (lambda (_%L64348%_ _%L64350%_ _%L64351%_) (_%lp64098%_ _%L64348%_))) - (_%__kont8101581016%_ + (_%__kont8200782008%_ (lambda (_%L64300%_ _%L64302%_ _%L64303%_) (_%lp64098%_ _%L64300%_))) - (_%__kont8101781018%_ + (_%__kont8200982010%_ (lambda (_%L64227%_ _%L64229%_ _%L64230%_ _%L64231%_) '#t)) - (_%__kont8101981020%_ (lambda () '#f))) - (let* ((_%__match8111581116%_ + (_%__kont8201182012%_ (lambda () '#f))) + (let* ((_%__match8210782108%_ (lambda (_%e6416564197%_ _%hd6416664201%_ _%tl6416764204%_ @@ -118,13 +118,13 @@ (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L64229%_))) - (_%__kont8101781018%_ + (_%__kont8200982010%_ _%L64227%_ _%L64229%_ _%L64230%_ _%L64231%_) - (_%__kont8101981020%_))))) - (_%__match8109781098%_ + (_%__kont8201182012%_))))) + (_%__match8208982090%_ (lambda (_%e6414964260%_ _%hd6415064264%_ _%tl6415164267%_ @@ -142,11 +142,11 @@ (_%L64303%_ _%hd6415064264%_)) (if (and (gx#stx-keyword? _%L64303%_) (gx#identifier? _%L64302%_)) - (_%__kont8101581016%_ + (_%__kont8200782008%_ _%L64300%_ _%L64302%_ _%L64303%_) - (_%__match8111581116%_ + (_%__match8210782108%_ _%e6414964260%_ _%hd6415064264%_ _%tl6415164267%_ @@ -156,7 +156,7 @@ _%e6415564280%_ _%hd6415664284%_ _%tl6415764287%_))))) - (_%__match8107181072%_ + (_%__match8206382064%_ (lambda (_%e6414064328%_ _%hd6414164332%_ _%tl6414264335%_ @@ -168,7 +168,7 @@ (_%L64351%_ _%hd6414164332%_)) (if (and (gx#stx-keyword? _%L64351%_) (gx#identifier? _%L64350%_)) - (_%__kont8101381014%_ + (_%__kont8200582006%_ _%L64348%_ _%L64350%_ _%L64351%_) @@ -197,7 +197,7 @@ (##car _%e6415864290%_)))) (if (gx#stx-null? _%tl6416064297%_) - (_%__match8109781098%_ + (_%__match8208982090%_ _%e6414064328%_ _%hd6414164332%_ _%tl6414264335%_ @@ -210,7 +210,7 @@ _%e6415864290%_ _%hd6415964294%_ _%tl6416064297%_) - (_%__match8111581116%_ + (_%__match8210782108%_ _%e6414064328%_ _%hd6414164332%_ _%tl6414264335%_ @@ -220,7 +220,7 @@ _%e6415564280%_ _%hd6415664284%_ _%tl6415764287%_)))) - (_%__match8111581116%_ + (_%__match8210782108%_ _%e6414064328%_ _%hd6414164332%_ _%tl6414264335%_ @@ -230,8 +230,8 @@ _%e6415564280%_ _%hd6415664284%_ _%tl6415764287%_)))) - (_%__kont8101981020%_)))))) - (_%__match8105981060%_ + (_%__kont8201182012%_)))))) + (_%__match8205182052%_ (lambda (_%e6413164372%_ _%hd6413264376%_ _%tl6413364379%_ @@ -246,7 +246,7 @@ (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L64394%_))) - (_%__kont8101181012%_ + (_%__kont8200382004%_ _%L64392%_ _%L64394%_ _%L64395%_) @@ -261,22 +261,22 @@ (let () (declare (not safe)) (##car _%e6414364338%_)))) - (_%__match8107181072%_ + (_%__match8206382064%_ _%e6413164372%_ _%hd6413264376%_ _%tl6413364379%_ _%e6414364338%_ _%hd6414464342%_ _%tl6414564345%_))) - (_%__kont8101981020%_)))))) - (_%__match8102781028%_ + (_%__kont8201182012%_)))))) + (_%__match8201982020%_ (lambda (_%e6411464470%_ _%hd6411564474%_ _%tl6411664477%_) (let ((_%L64480%_ _%tl6411664477%_) (_%L64482%_ _%hd6411564474%_)) (if (gx#identifier? _%L64482%_) - (_%__kont8100781008%_ _%L64480%_ _%L64482%_) + (_%__kont8199982000%_ _%L64480%_ _%L64482%_) (if (gx#stx-pair? _%hd6411564474%_) (let ((_%e6412264426%_ (gx#syntax-e _%hd6411564474%_))) @@ -302,17 +302,17 @@ (##car _%e6412564436%_)))) (if (gx#stx-null? _%tl6412764443%_) - (_%__kont8100981010%_ + (_%__kont8200182002%_ _%tl6411664477%_ _%hd6412364430%_) - (_%__match8105981060%_ + (_%__match8205182052%_ _%e6411464470%_ _%hd6411564474%_ _%tl6411664477%_ _%e6412264426%_ _%hd6412364430%_ _%tl6412464433%_)))) - (_%__match8105981060%_ + (_%__match8205182052%_ _%e6411464470%_ _%hd6411564474%_ _%tl6411664477%_ @@ -330,16 +330,16 @@ (let () (declare (not safe)) (##car _%e6414364338%_)))) - (_%__match8107181072%_ + (_%__match8206382064%_ _%e6411464470%_ _%hd6411564474%_ _%tl6411664477%_ _%e6414364338%_ _%hd6414464342%_ _%tl6414564345%_))) - (_%__kont8101981020%_)))))))) - (if (gx#stx-pair? _%__stx8100481005%_) - (let ((_%e6411464470%_ (gx#syntax-e _%__stx8100481005%_))) + (_%__kont8201182012%_)))))))) + (if (gx#stx-pair? _%__stx8199681997%_) + (let ((_%e6411464470%_ (gx#syntax-e _%__stx8199681997%_))) (let ((_%tl6411664477%_ (let () (declare (not safe)) @@ -348,11 +348,11 @@ (let () (declare (not safe)) (##car _%e6411464470%_)))) - (_%__match8102781028%_ + (_%__match8201982020%_ _%e6411464470%_ _%hd6411564474%_ _%tl6411664477%_))) - (_%__kont8101981020%_)))))))) + (_%__kont8201182012%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#def/c| (lambda (_%stx64497%_) (letrec ((_%make-definition64500%_ @@ -529,34 +529,34 @@ (declare (not safe)) (##cdr _%e6543465508%_)))) (if (gx#stx-pair/null? _%hd6543565512%_) - (let ((_g83011_ + (let ((_g84133_ (gx#syntax-split-splice _%hd6543565512%_ '0))) (begin - (let ((_g83012_ + (let ((_g84134_ (let () (declare (not safe)) - (if (##values? _g83011_) + (if (##values? _g84133_) (##vector-length - _g83011_) + _g84133_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83012_ 2))) + (##fx= _g84134_ 2))) (error "Context expects 2 values" - _g83012_))) + _g84134_))) (let ((_%target6543765518%_ (let () (declare (not safe)) (##vector-ref - _g83011_ + _g84133_ 0))) (_%tl6543965521%_ (let () (declare (not safe)) (##vector-ref - _g83011_ + _g84133_ 1)))) (if (gx#stx-null? _%tl6543965521%_) @@ -719,28 +719,28 @@ (declare (not safe)) (##cdr _%e6521065273%_)))) (if (gx#stx-pair/null? _%hd6521165277%_) - (let ((_g83013_ + (let ((_g84135_ (gx#syntax-split-splice _%hd6521165277%_ '0))) (begin - (let ((_g83014_ + (let ((_g84136_ (let () (declare (not safe)) - (if (##values? _g83013_) - (##vector-length _g83013_) + (if (##values? _g84135_) + (##vector-length _g84135_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83014_ 2))) + (##fx= _g84136_ 2))) (error "Context expects 2 values" - _g83014_))) + _g84136_))) (let ((_%target6521365283%_ (let () (declare (not safe)) - (##vector-ref _g83013_ 0))) + (##vector-ref _g84135_ 0))) (_%tl6521565286%_ (let () (declare (not safe)) - (##vector-ref _g83013_ 1)))) + (##vector-ref _g84135_ 1)))) (if (gx#stx-null? _%tl6521565286%_) (letrec ((_%loop6521665289%_ (lambda (_%hd6521465293%_ @@ -1002,30 +1002,30 @@ (declare (not safe)) (##cdr _%e6503665100%_)))) (if (gx#stx-pair/null? _%hd6503765104%_) - (let ((_g83015_ + (let ((_g84137_ (gx#syntax-split-splice _%hd6503765104%_ '0))) (begin - (let ((_g83016_ + (let ((_g84138_ (let () (declare (not safe)) - (if (##values? _g83015_) - (##vector-length _g83015_) + (if (##values? _g84137_) + (##vector-length _g84137_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83016_ 2))) + (##fx= _g84138_ 2))) (error "Context expects 2 values" - _g83016_))) + _g84138_))) (let ((_%target6503965110%_ (let () (declare (not safe)) - (##vector-ref _g83015_ 0))) + (##vector-ref _g84137_ 0))) (_%tl6504165113%_ (let () (declare (not safe)) - (##vector-ref _g83015_ 1)))) + (##vector-ref _g84137_ 1)))) (if (gx#stx-null? _%tl6504165113%_) (letrec ((_%loop6504265116%_ (lambda (_%hd6504065120%_ @@ -1105,14 +1105,14 @@ _%signature65013%_ _%return65014%_ _%body65015%_)))))) - (let* ((_%__stx8111881119%_ _%stx64497%_) + (let* ((_%__stx8211082111%_ _%stx64497%_) (_%g6450964601%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8111881119%_)))) - (let ((_%__kont8112181122%_ + _%__stx8211082111%_)))) + (let ((_%__kont8211382114%_ (lambda (_%L64962%_ _%L64964%_ _%L64965%_ _%L64966%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| _%L64965%_) @@ -1139,7 +1139,7 @@ _%L64962%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont8112581126%_ + (_%__kont8211782118%_ (lambda (_%L64836%_ _%L64838%_ _%L64839%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| _%L64838%_) @@ -1162,7 +1162,7 @@ _%g6486764872%_)) '() _%L64836%_)))))) - (_%__kont8112981130%_ + (_%__kont8212182122%_ (lambda (_%L64734%_ _%L64736%_ _%L64737%_ _%L64738%_) (cons (gx#datum->syntax '#f 'def/c) (cons (cons _%L64738%_ _%L64737%_) @@ -1176,11 +1176,11 @@ _%L64734%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8113381134%_ + (_%__kont8212582126%_ (lambda (_%L64638%_ _%L64640%_) (cons (gx#datum->syntax '#f 'def) (cons _%L64640%_ (cons _%L64638%_ '())))))) - (let* ((_%__match8125581256%_ + (let* ((_%__match8224782248%_ (lambda (_%e6458764608%_ _%hd6458864612%_ _%tl6458964615%_ @@ -1193,11 +1193,11 @@ (let ((_%L64638%_ _%hd6459464632%_) (_%L64640%_ _%hd6459164622%_)) (if (gx#identifier? _%L64640%_) - (_%__kont8113381134%_ _%L64638%_ _%L64640%_) + (_%__kont8212582126%_ _%L64638%_ _%L64640%_) (let () (declare (not safe)) (_%g6450964601%_)))))) - (_%__match8123581236%_ + (_%__match8222782228%_ (lambda (_%e6456464664%_ _%hd6456564668%_ _%tl6456664671%_ @@ -1210,7 +1210,7 @@ _%e6457364694%_ _%hd6457464698%_ _%tl6457564701%_ - _%__splice8113181132%_ + _%__splice8212382124%_ _%target6457664704%_ _%tl6457864707%_) (letrec ((_%loop6457964710%_ @@ -1232,13 +1232,13 @@ _%body6458364717%_)))) (let ((_%body6458464730%_ (reverse _%body6458364717%_))) - (_%__kont8112981130%_ + (_%__kont8212182122%_ _%body6458464730%_ _%tl6457264691%_ _%tl6457564701%_ _%hd6457464698%_)))))) (_%loop6457964710%_ _%target6457664704%_ '())))) - (_%__match8122181222%_ + (_%__match8221382214%_ (lambda (_%e6456464664%_ _%hd6456564668%_ _%tl6456664671%_ @@ -1260,7 +1260,7 @@ (declare (not safe)) (##car _%e6457364694%_)))) (if (gx#stx-pair/null? _%tl6456964681%_) - (let ((_%__splice8113181132%_ + (let ((_%__splice8212382124%_ (gx#syntax-split-splice _%tl6456964681%_ '0))) @@ -1268,16 +1268,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8113181132%_ + _%__splice8212382124%_ '1))) (_%target6457664704%_ (let () (declare (not safe)) (##vector-ref - _%__splice8113181132%_ + _%__splice8212382124%_ '0)))) (if (gx#stx-null? _%tl6457864707%_) - (_%__match8123581236%_ + (_%__match8222782228%_ _%e6456464664%_ _%hd6456564668%_ _%tl6456664671%_ @@ -1290,7 +1290,7 @@ _%e6457364694%_ _%hd6457464698%_ _%tl6457564701%_ - _%__splice8113181132%_ + _%__splice8212382124%_ _%target6457664704%_ _%tl6457864707%_) (if (gx#stx-pair? _%tl6456964681%_) @@ -1307,7 +1307,7 @@ (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6456464664%_ _%hd6456564668%_ _%tl6456664671%_ @@ -1335,7 +1335,7 @@ (declare (not safe)) (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6456464664%_ _%hd6456564668%_ _%tl6456664671%_ @@ -1363,7 +1363,7 @@ (declare (not safe)) (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6456464664%_ _%hd6456564668%_ _%tl6456664671%_ @@ -1379,7 +1379,7 @@ (let () (declare (not safe)) (_%g6450964601%_)))))) - (_%__match8120381204%_ + (_%__match8219582196%_ (lambda (_%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1389,7 +1389,7 @@ _%e6454864796%_ _%hd6454964800%_ _%tl6455064803%_ - _%__splice8112781128%_ + _%__splice8211982120%_ _%target6455164806%_ _%tl6455364809%_) (letrec ((_%loop6455464812%_ @@ -1415,11 +1415,11 @@ (_%L64838%_ _%tl6455064803%_) (_%L64839%_ _%hd6454964800%_)) (if (gx#identifier? _%L64839%_) - (_%__kont8112581126%_ + (_%__kont8211782118%_ _%L64836%_ _%L64838%_ _%L64839%_) - (_%__match8122181222%_ + (_%__match8221382214%_ _%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1430,7 +1430,7 @@ _%hd6454964800%_ _%tl6455064803%_)))))))) (_%loop6455464812%_ _%target6455164806%_ '())))) - (_%__match8119581196%_ + (_%__match8218782188%_ (lambda (_%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1441,7 +1441,7 @@ _%hd6454964800%_ _%tl6455064803%_) (if (gx#stx-pair/null? _%tl6454764793%_) - (let ((_%__splice8112781128%_ + (let ((_%__splice8211982120%_ (gx#syntax-split-splice _%tl6454764793%_ '0))) @@ -1449,16 +1449,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8112781128%_ + _%__splice8211982120%_ '1))) (_%target6455164806%_ (let () (declare (not safe)) (##vector-ref - _%__splice8112781128%_ + _%__splice8211982120%_ '0)))) (if (gx#stx-null? _%tl6455364809%_) - (_%__match8120381204%_ + (_%__match8219582196%_ _%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1468,7 +1468,7 @@ _%e6454864796%_ _%hd6454964800%_ _%tl6455064803%_ - _%__splice8112781128%_ + _%__splice8211982120%_ _%target6455164806%_ _%tl6455364809%_) (if (gx#stx-pair? _%hd6454964800%_) @@ -1496,7 +1496,7 @@ (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1526,7 +1526,7 @@ (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1565,7 +1565,7 @@ (declare (not safe)) (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1593,7 +1593,7 @@ (declare (not safe)) (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1609,7 +1609,7 @@ (let () (declare (not safe)) (_%g6450964601%_))))))) - (_%__match8117781178%_ + (_%__match8216982170%_ (lambda (_%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1625,7 +1625,7 @@ _%e6452764922%_ _%hd6452864926%_ _%tl6452964929%_ - _%__splice8112381124%_ + _%__splice8211582116%_ _%target6453064932%_ _%tl6453264935%_) (letrec ((_%loop6453364938%_ @@ -1652,12 +1652,12 @@ (_%L64965%_ _%tl6452364909%_) (_%L64966%_ _%hd6452264906%_)) (if (gx#identifier? _%L64966%_) - (_%__kont8112181122%_ + (_%__kont8211382114%_ _%L64962%_ _%L64964%_ _%L64965%_ _%L64966%_) - (_%__match8119581196%_ + (_%__match8218782188%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1668,8 +1668,8 @@ _%hd6452264906%_ _%tl6452364909%_)))))))) (_%loop6453364938%_ _%target6453064932%_ '()))))) - (if (gx#stx-pair? _%__stx8111881119%_) - (let ((_%e6451564882%_ (gx#syntax-e _%__stx8111881119%_))) + (if (gx#stx-pair? _%__stx8211082111%_) + (let ((_%e6451564882%_ (gx#syntax-e _%__stx8211082111%_))) (let ((_%tl6451764889%_ (let () (declare (not safe)) @@ -1715,7 +1715,7 @@ (if (gx#identifier? _%hd6452564916%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83017_| + |gerbil/core/contract~TypedDefinitions[1]#_g84139_| _%hd6452564916%_) (if (gx#stx-pair? _%tl6452664919%_) @@ -1731,7 +1731,7 @@ (declare (not safe)) (##car _%e6452764922%_)))) (if (gx#stx-pair/null? _%tl6452964929%_) - (let ((_%__splice8112381124%_ + (let ((_%__splice8211582116%_ (gx#syntax-split-splice _%tl6452964929%_ '0))) @@ -1739,16 +1739,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8112381124%_ + _%__splice8211582116%_ '1))) (_%target6453064932%_ (let () (declare (not safe)) (##vector-ref - _%__splice8112381124%_ + _%__splice8211582116%_ '0)))) (if (gx#stx-null? _%tl6453264935%_) - (_%__match8117781178%_ + (_%__match8216982170%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1764,11 +1764,11 @@ _%e6452764922%_ _%hd6452864926%_ _%tl6452964929%_ - _%__splice8112381124%_ + _%__splice8211582116%_ _%target6453064932%_ _%tl6453264935%_) (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8112781128%_ + (let ((_%__splice8211982120%_ (gx#syntax-split-splice _%tl6452064899%_ '0))) @@ -1776,16 +1776,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8112781128%_ + _%__splice8211982120%_ '1))) (_%target6455164806%_ (let () (declare (not safe)) (##vector-ref - _%__splice8112781128%_ + _%__splice8211982120%_ '0)))) (if (gx#stx-null? _%tl6455364809%_) - (_%__match8120381204%_ + (_%__match8219582196%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1795,7 +1795,7 @@ _%e6452164902%_ _%hd6452264906%_ _%tl6452364909%_ - _%__splice8112781128%_ + _%__splice8211982120%_ _%target6455164806%_ _%tl6455364809%_) (if (gx#stx-pair? @@ -1835,7 +1835,7 @@ (declare (not safe)) (_%g6450964601%_))))))) (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8112781128%_ + (let ((_%__splice8211982120%_ (gx#syntax-split-splice _%tl6452064899%_ '0))) @@ -1843,16 +1843,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8112781128%_ + _%__splice8211982120%_ '1))) (_%target6455164806%_ (let () (declare (not safe)) (##vector-ref - _%__splice8112781128%_ + _%__splice8211982120%_ '0)))) (if (gx#stx-null? _%tl6455364809%_) - (_%__match8120381204%_ + (_%__match8219582196%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1862,7 +1862,7 @@ _%e6452164902%_ _%hd6452264906%_ _%tl6452364909%_ - _%__splice8112781128%_ + _%__splice8211982120%_ _%target6455164806%_ _%tl6455364809%_) (if (gx#stx-pair? _%hd6452264906%_) @@ -1901,18 +1901,18 @@ (declare (not safe)) (_%g6450964601%_))))))) (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8112781128%_ + (let ((_%__splice8211982120%_ (gx#syntax-split-splice _%tl6452064899%_ '0))) (let ((_%tl6455364809%_ (let () (declare (not safe)) - (##vector-ref _%__splice8112781128%_ '1))) + (##vector-ref _%__splice8211982120%_ '1))) (_%target6455164806%_ (let () (declare (not safe)) - (##vector-ref _%__splice8112781128%_ '0)))) + (##vector-ref _%__splice8211982120%_ '0)))) (if (gx#stx-null? _%tl6455364809%_) - (_%__match8120381204%_ + (_%__match8219582196%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1922,7 +1922,7 @@ _%e6452164902%_ _%hd6452264906%_ _%tl6452364909%_ - _%__splice8112781128%_ + _%__splice8211982120%_ _%target6455164806%_ _%tl6455364809%_) (if (gx#stx-pair? _%hd6452264906%_) @@ -1937,7 +1937,7 @@ (declare (not safe)) (##car _%e6457364694%_)))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1951,7 +1951,7 @@ (declare (not safe)) (_%g6450964601%_))))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1976,7 +1976,7 @@ (declare (not safe)) (##car _%e6457364694%_)))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1990,7 +1990,7 @@ (declare (not safe)) (_%g6450964601%_))))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2004,18 +2004,18 @@ (declare (not safe)) (_%g6450964601%_)))))) (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8112781128%_ + (let ((_%__splice8211982120%_ (gx#syntax-split-splice _%tl6452064899%_ '0))) (let ((_%tl6455364809%_ (let () (declare (not safe)) - (##vector-ref _%__splice8112781128%_ '1))) + (##vector-ref _%__splice8211982120%_ '1))) (_%target6455164806%_ (let () (declare (not safe)) - (##vector-ref _%__splice8112781128%_ '0)))) + (##vector-ref _%__splice8211982120%_ '0)))) (if (gx#stx-null? _%tl6455364809%_) - (_%__match8120381204%_ + (_%__match8219582196%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2025,7 +2025,7 @@ _%e6452164902%_ _%hd6452264906%_ _%tl6452364909%_ - _%__splice8112781128%_ + _%__splice8211982120%_ _%target6455164806%_ _%tl6455364809%_) (if (gx#stx-pair? _%hd6452264906%_) @@ -2040,7 +2040,7 @@ (declare (not safe)) (##car _%e6457364694%_)))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2054,7 +2054,7 @@ (declare (not safe)) (_%g6450964601%_))))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2078,7 +2078,7 @@ (declare (not safe)) (##car _%e6457364694%_)))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2092,7 +2092,7 @@ (declare (not safe)) (_%g6450964601%_))))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2106,7 +2106,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8112781128%_ + (let ((_%__splice8211982120%_ (gx#syntax-split-splice _%tl6452064899%_ '0))) @@ -2114,13 +2114,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8112781128%_ '1))) + (##vector-ref _%__splice8211982120%_ '1))) (_%target6455164806%_ (let () (declare (not safe)) - (##vector-ref _%__splice8112781128%_ '0)))) + (##vector-ref _%__splice8211982120%_ '0)))) (if (gx#stx-null? _%tl6455364809%_) - (_%__match8120381204%_ + (_%__match8219582196%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2130,7 +2130,7 @@ _%e6452164902%_ _%hd6452264906%_ _%tl6452364909%_ - _%__splice8112781128%_ + _%__splice8211982120%_ _%target6455164806%_ _%tl6455364809%_) (if (gx#stx-pair? _%hd6452264906%_) @@ -2145,7 +2145,7 @@ (declare (not safe)) (##car _%e6457364694%_)))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2159,7 +2159,7 @@ (declare (not safe)) (_%g6450964601%_))))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2183,7 +2183,7 @@ (declare (not safe)) (##car _%e6457364694%_)))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2195,7 +2195,7 @@ _%tl6452664919%_) (let () (declare (not safe)) (_%g6450964601%_))))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2209,7 +2209,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8112781128%_ + (let ((_%__splice8211982120%_ (gx#syntax-split-splice _%tl6452064899%_ '0))) @@ -2217,17 +2217,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8112781128%_ + _%__splice8211982120%_ '1))) (_%target6455164806%_ (let () (declare (not safe)) (##vector-ref - _%__splice8112781128%_ + _%__splice8211982120%_ '0)))) (if (gx#stx-null? _%tl6455364809%_) - (_%__match8120381204%_ + (_%__match8219582196%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2237,7 +2237,7 @@ _%e6452164902%_ _%hd6452264906%_ _%tl6452364909%_ - _%__splice8112781128%_ + _%__splice8211982120%_ _%target6455164806%_ _%tl6455364809%_) (if (gx#stx-pair? @@ -2286,7 +2286,7 @@ (declare (not safe)) (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8125581256%_ + (_%__match8224782248%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2306,14 +2306,14 @@ (let () (declare (not safe)) (_%g6450964601%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-signature| (lambda (_%stx65678%_) - (let* ((_%__stx8125881259%_ _%stx65678%_) + (let* ((_%__stx8225082251%_ _%stx65678%_) (_%g6568265745%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8125881259%_)))) - (let ((_%__kont8126181262%_ + _%__stx8225082251%_)))) + (let ((_%__kont8225382254%_ (lambda (_%L65996%_ _%L65998%_) (let* ((_%g6602366031%_ (lambda (_%g6602466027%_) @@ -2349,7 +2349,7 @@ (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| _%stx65678%_ _%L65998%_)))))) - (_%__kont8126581266%_ + (_%__kont8225782258%_ (lambda (_%L65832%_ _%L65834%_ _%L65835%_ _%L65836%_) (let* ((_%g6586265870%_ (lambda (_%g6586365866%_) @@ -2386,7 +2386,7 @@ _%L65836%_ _%L65835%_ _%L65834%_))))))) - (let* ((_%__match8136181362%_ + (let* ((_%__match8235382354%_ (lambda (_%e6571665752%_ _%hd6571765756%_ _%tl6571865759%_ @@ -2402,7 +2402,7 @@ _%e6572865792%_ _%hd6572965796%_ _%tl6573065799%_ - _%__splice8126781268%_ + _%__splice8225982260%_ _%target6573165802%_ _%tl6573365805%_) (letrec ((_%loop6573465808%_ @@ -2424,13 +2424,13 @@ _%body6573865815%_)))) (let ((_%body6573965828%_ (reverse _%body6573865815%_))) - (_%__kont8126581266%_ + (_%__kont8225782258%_ _%body6573965828%_ _%hd6572965796%_ _%hd6572665786%_ _%hd6572365776%_)))))) (_%loop6573465808%_ _%target6573165802%_ '())))) - (_%__match8132181322%_ + (_%__match8231382314%_ (lambda (_%e6568665908%_ _%hd6568765912%_ _%tl6568865915%_ @@ -2448,7 +2448,7 @@ _%hd6570065956%_ _%tl6570165959%_ _%e6570265962%_ - _%__splice8126381264%_ + _%__splice8225582256%_ _%target6570365966%_ _%tl6570565969%_) (letrec ((_%loop6570665972%_ @@ -2470,12 +2470,12 @@ _%body6571065979%_)))) (let ((_%body6571165992%_ (reverse _%body6571065979%_))) - (_%__kont8126181262%_ + (_%__kont8225382254%_ _%body6571165992%_ _%hd6569765946%_)))))) (_%loop6570665972%_ _%target6570365966%_ '()))))) - (if (gx#stx-pair? _%__stx8125881259%_) - (let ((_%e6568665908%_ (gx#syntax-e _%__stx8125881259%_))) + (if (gx#stx-pair? _%__stx8225082251%_) + (let ((_%e6568665908%_ (gx#syntax-e _%__stx8225082251%_))) (let ((_%tl6568865915%_ (let () (declare (not safe)) @@ -2539,7 +2539,7 @@ (if (equal? _%e6570265962%_ '#f) (if (gx#stx-null? _%tl6570165959%_) (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8126381264%_ + (let ((_%__splice8225582256%_ (gx#syntax-split-splice _%tl6569165925%_ '0))) @@ -2547,17 +2547,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8126381264%_ + _%__splice8225582256%_ '1))) (_%target6570365966%_ (let () (declare (not safe)) (##vector-ref - _%__splice8126381264%_ + _%__splice8225582256%_ '0)))) (if (gx#stx-null? _%tl6570565969%_) - (_%__match8132181322%_ + (_%__match8231382314%_ _%e6568665908%_ _%hd6568765912%_ _%tl6568865915%_ @@ -2575,7 +2575,7 @@ _%hd6570065956%_ _%tl6570165959%_ _%e6570265962%_ - _%__splice8126381264%_ + _%__splice8225582256%_ _%target6570365966%_ _%tl6570565969%_) (let () @@ -2589,7 +2589,7 @@ (_%g6568265745%_))) (if (gx#stx-null? _%tl6570165959%_) (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8126781268%_ + (let ((_%__splice8225982260%_ (gx#syntax-split-splice _%tl6569165925%_ '0))) @@ -2597,17 +2597,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8126781268%_ + _%__splice8225982260%_ '1))) (_%target6573165802%_ (let () (declare (not safe)) (##vector-ref - _%__splice8126781268%_ + _%__splice8225982260%_ '0)))) (if (gx#stx-null? _%tl6573365805%_) - (_%__match8136181362%_ + (_%__match8235382354%_ _%e6568665908%_ _%hd6568765912%_ _%tl6568865915%_ @@ -2623,7 +2623,7 @@ _%e6569965952%_ _%hd6570065956%_ _%tl6570165959%_ - _%__splice8126781268%_ + _%__splice8225982260%_ _%target6573165802%_ _%tl6573365805%_) (let () @@ -2637,7 +2637,7 @@ (_%g6568265745%_))))) (if (gx#stx-null? _%tl6570165959%_) (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8126781268%_ + (let ((_%__splice8225982260%_ (gx#syntax-split-splice _%tl6569165925%_ '0))) @@ -2645,16 +2645,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8126781268%_ + _%__splice8225982260%_ '1))) (_%target6573165802%_ (let () (declare (not safe)) (##vector-ref - _%__splice8126781268%_ + _%__splice8225982260%_ '0)))) (if (gx#stx-null? _%tl6573365805%_) - (_%__match8136181362%_ + (_%__match8235382354%_ _%e6568665908%_ _%hd6568765912%_ _%tl6568865915%_ @@ -2670,7 +2670,7 @@ _%e6569965952%_ _%hd6570065956%_ _%tl6570165959%_ - _%__splice8126781268%_ + _%__splice8225982260%_ _%target6573165802%_ _%tl6573365805%_) (let () @@ -2712,7 +2712,7 @@ (##car _%e6572865792%_)))) (if (gx#stx-null? _%tl6573065799%_) (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8126781268%_ + (let ((_%__splice8225982260%_ (gx#syntax-split-splice _%tl6569165925%_ '0))) @@ -2720,16 +2720,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8126781268%_ + _%__splice8225982260%_ '1))) (_%target6573165802%_ (let () (declare (not safe)) (##vector-ref - _%__splice8126781268%_ + _%__splice8225982260%_ '0)))) (if (gx#stx-null? _%tl6573365805%_) - (_%__match8136181362%_ + (_%__match8235382354%_ _%e6568665908%_ _%hd6568765912%_ _%tl6568865915%_ @@ -2745,7 +2745,7 @@ _%e6572865792%_ _%hd6572965796%_ _%tl6573065799%_ - _%__splice8126781268%_ + _%__splice8225982260%_ _%target6573165802%_ _%tl6573365805%_) (let () @@ -2786,20 +2786,20 @@ (let () (declare (not safe)) (##car _%e6572865792%_)))) (if (gx#stx-null? _%tl6573065799%_) (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8126781268%_ + (let ((_%__splice8225982260%_ (gx#syntax-split-splice _%tl6569165925%_ '0))) (let ((_%tl6573365805%_ (let () (declare (not safe)) - (##vector-ref _%__splice8126781268%_ '1))) + (##vector-ref _%__splice8225982260%_ '1))) (_%target6573165802%_ (let () (declare (not safe)) (##vector-ref - _%__splice8126781268%_ + _%__splice8225982260%_ '0)))) (if (gx#stx-null? _%tl6573365805%_) - (_%__match8136181362%_ + (_%__match8235382354%_ _%e6568665908%_ _%hd6568765912%_ _%tl6568865915%_ @@ -2815,7 +2815,7 @@ _%e6572865792%_ _%hd6572965796%_ _%tl6573065799%_ - _%__splice8126781268%_ + _%__splice8225982260%_ _%target6573165802%_ _%tl6573365805%_) (let () @@ -2865,31 +2865,31 @@ (declare (not safe)) (##cdr _%e6607866112%_)))) (if (gx#stx-pair/null? _%tl6608066119%_) - (let ((_g83018_ + (let ((_g84140_ (gx#syntax-split-splice _%tl6608066119%_ '0))) (begin - (let ((_g83019_ + (let ((_g84141_ (let () (declare (not safe)) - (if (##values? _g83018_) + (if (##values? _g84140_) (##vector-length - _g83018_) + _g84140_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83019_ 2))) + (##fx= _g84141_ 2))) (error "Context expects 2 values" - _g83019_))) + _g84141_))) (let ((_%target6608166122%_ (let () (declare (not safe)) - (##vector-ref _g83018_ 0))) + (##vector-ref _g84140_ 0))) (_%tl6608366125%_ (let () (declare (not safe)) - (##vector-ref _g83018_ 1)))) + (##vector-ref _g84140_ 1)))) (if (gx#stx-null? _%tl6608366125%_) (letrec ((_%loop6608466128%_ (lambda (_%hd6608266132%_ @@ -2981,31 +2981,31 @@ (declare (not safe)) (##cdr _%e6622666260%_)))) (if (gx#stx-pair/null? _%tl6622866267%_) - (let ((_g83020_ + (let ((_g84142_ (gx#syntax-split-splice _%tl6622866267%_ '0))) (begin - (let ((_g83021_ + (let ((_g84143_ (let () (declare (not safe)) - (if (##values? _g83020_) + (if (##values? _g84142_) (##vector-length - _g83020_) + _g84142_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83021_ 2))) + (##fx= _g84143_ 2))) (error "Context expects 2 values" - _g83021_))) + _g84143_))) (let ((_%target6622966270%_ (let () (declare (not safe)) - (##vector-ref _g83020_ 0))) + (##vector-ref _g84142_ 0))) (_%tl6623166273%_ (let () (declare (not safe)) - (##vector-ref _g83020_ 1)))) + (##vector-ref _g84142_ 1)))) (if (gx#stx-null? _%tl6623166273%_) (letrec ((_%loop6623266276%_ (lambda (_%hd6623066280%_ @@ -3129,28 +3129,28 @@ (declare (not safe)) (##cdr _%e6665566709%_)))) (if (gx#stx-pair/null? _%hd6665666713%_) - (let ((_g83022_ + (let ((_g84144_ (gx#syntax-split-splice _%hd6665666713%_ '0))) (begin - (let ((_g83023_ + (let ((_g84145_ (let () (declare (not safe)) - (if (##values? _g83022_) - (##vector-length _g83022_) + (if (##values? _g84144_) + (##vector-length _g84144_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83023_ 2))) + (##fx= _g84145_ 2))) (error "Context expects 2 values" - _g83023_))) + _g84145_))) (let ((_%target6665866719%_ (let () (declare (not safe)) - (##vector-ref _g83022_ 0))) + (##vector-ref _g84144_ 0))) (_%tl6666066722%_ (let () (declare (not safe)) - (##vector-ref _g83022_ 1)))) + (##vector-ref _g84144_ 1)))) (if (gx#stx-null? _%tl6666066722%_) (letrec ((_%loop6666166725%_ (lambda (_%hd6665966729%_ @@ -3231,14 +3231,14 @@ _%signature66635%_ _%return66637%_ _%body66638%_)))))) - (let* ((_%__stx8136481365%_ _%stx66364%_) + (let* ((_%__stx8235682357%_ _%stx66364%_) (_%g6637166419%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8136481365%_)))) - (let ((_%__kont8136781368%_ + _%__stx8235682357%_)))) + (let ((_%__kont8235982360%_ (lambda (_%L66590%_ _%L66592%_ _%L66593%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| _%L66593%_) @@ -3264,7 +3264,7 @@ _%L66590%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont8137181372%_ + (_%__kont8236382364%_ (lambda (_%L66476%_ _%L66478%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| _%L66478%_) @@ -3287,14 +3287,14 @@ _%g6650566510%_)) '() _%L66476%_))))))) - (let* ((_%__match8143181432%_ + (let* ((_%__match8242382424%_ (lambda (_%e6639966426%_ _%hd6640066430%_ _%tl6640166433%_ _%e6640266436%_ _%hd6640366440%_ _%tl6640466443%_ - _%__splice8137381374%_ + _%__splice8236582366%_ _%target6640566446%_ _%tl6640766449%_) (letrec ((_%loop6640866452%_ @@ -3316,11 +3316,11 @@ _%body6641266459%_)))) (let ((_%body6641366472%_ (reverse _%body6641266459%_))) - (_%__kont8137181372%_ + (_%__kont8236382364%_ _%body6641366472%_ _%hd6640366440%_)))))) (_%loop6640866452%_ _%target6640566446%_ '())))) - (_%__match8141181412%_ + (_%__match8240382404%_ (lambda (_%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ @@ -3333,7 +3333,7 @@ _%e6638566550%_ _%hd6638666554%_ _%tl6638766557%_ - _%__splice8136981370%_ + _%__splice8236182362%_ _%target6638866560%_ _%tl6639066563%_) (letrec ((_%loop6639166566%_ @@ -3355,13 +3355,13 @@ _%body6639566573%_)))) (let ((_%body6639666586%_ (reverse _%body6639566573%_))) - (_%__kont8136781368%_ + (_%__kont8235982360%_ _%body6639666586%_ _%hd6638666554%_ _%hd6638066534%_)))))) (_%loop6639166566%_ _%target6638866560%_ '()))))) - (if (gx#stx-pair? _%__stx8136481365%_) - (let ((_%e6637666520%_ (gx#syntax-e _%__stx8136481365%_))) + (if (gx#stx-pair? _%__stx8235682357%_) + (let ((_%e6637666520%_ (gx#syntax-e _%__stx8235682357%_))) (let ((_%tl6637866527%_ (let () (declare (not safe)) @@ -3394,7 +3394,7 @@ (##car _%e6638266540%_)))) (if (gx#identifier? _%hd6638366544%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83024_| + |gerbil/core/contract~TypedDefinitions[1]#_g84146_| _%hd6638366544%_) (if (gx#stx-pair? _%tl6638466547%_) @@ -3410,18 +3410,18 @@ (_%hd6638666554%_ (let () (declare (not safe)) (##car _%e6638566550%_)))) (if (gx#stx-pair/null? _%tl6638766557%_) - (let ((_%__splice8136981370%_ + (let ((_%__splice8236182362%_ (gx#syntax-split-splice _%tl6638766557%_ '0))) (let ((_%tl6639066563%_ (let () (declare (not safe)) - (##vector-ref _%__splice8136981370%_ '1))) + (##vector-ref _%__splice8236182362%_ '1))) (_%target6638866560%_ (let () (declare (not safe)) - (##vector-ref _%__splice8136981370%_ '0)))) + (##vector-ref _%__splice8236182362%_ '0)))) (if (gx#stx-null? _%tl6639066563%_) - (_%__match8141181412%_ + (_%__match8240382404%_ _%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ @@ -3434,11 +3434,11 @@ _%e6638566550%_ _%hd6638666554%_ _%tl6638766557%_ - _%__splice8136981370%_ + _%__splice8236182362%_ _%target6638866560%_ _%tl6639066563%_) (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8137381374%_ + (let ((_%__splice8236582366%_ (gx#syntax-split-splice _%tl6638166537%_ '0))) @@ -3446,23 +3446,23 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8137381374%_ + _%__splice8236582366%_ '1))) (_%target6640566446%_ (let () (declare (not safe)) (##vector-ref - _%__splice8137381374%_ + _%__splice8236582366%_ '0)))) (if (gx#stx-null? _%tl6640766449%_) - (_%__match8143181432%_ + (_%__match8242382424%_ _%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ _%e6637966530%_ _%hd6638066534%_ _%tl6638166537%_ - _%__splice8137381374%_ + _%__splice8236582366%_ _%target6640566446%_ _%tl6640766449%_) (let () @@ -3472,25 +3472,25 @@ (declare (not safe)) (_%g6637166419%_)))))) (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8137381374%_ + (let ((_%__splice8236582366%_ (gx#syntax-split-splice _%tl6638166537%_ '0))) (let ((_%tl6640766449%_ (let () (declare (not safe)) - (##vector-ref _%__splice8137381374%_ '1))) + (##vector-ref _%__splice8236582366%_ '1))) (_%target6640566446%_ (let () (declare (not safe)) - (##vector-ref _%__splice8137381374%_ '0)))) + (##vector-ref _%__splice8236582366%_ '0)))) (if (gx#stx-null? _%tl6640766449%_) - (_%__match8143181432%_ + (_%__match8242382424%_ _%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ _%e6637966530%_ _%hd6638066534%_ _%tl6638166537%_ - _%__splice8137381374%_ + _%__splice8236582366%_ _%target6640566446%_ _%tl6640766449%_) (let () @@ -3500,7 +3500,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8137381374%_ + (let ((_%__splice8236582366%_ (gx#syntax-split-splice _%tl6638166537%_ '0))) @@ -3508,20 +3508,20 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8137381374%_ '1))) + (##vector-ref _%__splice8236582366%_ '1))) (_%target6640566446%_ (let () (declare (not safe)) - (##vector-ref _%__splice8137381374%_ '0)))) + (##vector-ref _%__splice8236582366%_ '0)))) (if (gx#stx-null? _%tl6640766449%_) - (_%__match8143181432%_ + (_%__match8242382424%_ _%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ _%e6637966530%_ _%hd6638066534%_ _%tl6638166537%_ - _%__splice8137381374%_ + _%__splice8236582366%_ _%target6640566446%_ _%tl6640766449%_) (let () (declare (not safe)) (_%g6637166419%_))))) @@ -3529,7 +3529,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8137381374%_ + (let ((_%__splice8236582366%_ (gx#syntax-split-splice _%tl6638166537%_ '0))) @@ -3538,20 +3538,20 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice8137381374%_ '1))) + (##vector-ref _%__splice8236582366%_ '1))) (_%target6640566446%_ (let () (declare (not safe)) - (##vector-ref _%__splice8137381374%_ '0)))) + (##vector-ref _%__splice8236582366%_ '0)))) (if (gx#stx-null? _%tl6640766449%_) - (_%__match8143181432%_ + (_%__match8242382424%_ _%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ _%e6637966530%_ _%hd6638066534%_ _%tl6638166537%_ - _%__splice8137381374%_ + _%__splice8236582366%_ _%target6640566446%_ _%tl6640766449%_) (let () (declare (not safe)) (_%g6637166419%_))))) @@ -3561,7 +3561,7 @@ (_%g6637166419%_)))) (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8137381374%_ + (let ((_%__splice8236582366%_ (gx#syntax-split-splice _%tl6638166537%_ '0))) @@ -3569,24 +3569,24 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8137381374%_ + _%__splice8236582366%_ '1))) (_%target6640566446%_ (let () (declare (not safe)) (##vector-ref - _%__splice8137381374%_ + _%__splice8236582366%_ '0)))) (if (gx#stx-null? _%tl6640766449%_) - (_%__match8143181432%_ + (_%__match8242382424%_ _%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ _%e6637966530%_ _%hd6638066534%_ _%tl6638166537%_ - _%__splice8137381374%_ + _%__splice8236582366%_ _%target6640566446%_ _%tl6640766449%_) (let () @@ -3596,7 +3596,7 @@ (declare (not safe)) (_%g6637166419%_)))))) (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8137381374%_ + (let ((_%__splice8236582366%_ (gx#syntax-split-splice _%tl6638166537%_ '0))) @@ -3604,23 +3604,23 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8137381374%_ + _%__splice8236582366%_ '1))) (_%target6640566446%_ (let () (declare (not safe)) (##vector-ref - _%__splice8137381374%_ + _%__splice8236582366%_ '0)))) (if (gx#stx-null? _%tl6640766449%_) - (_%__match8143181432%_ + (_%__match8242382424%_ _%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ _%e6637966530%_ _%hd6638066534%_ _%tl6638166537%_ - _%__splice8137381374%_ + _%__splice8236582366%_ _%target6640566446%_ _%tl6640766449%_) (let () @@ -3663,31 +3663,31 @@ (declare (not safe)) (##cdr _%e6680566839%_)))) (if (gx#stx-pair/null? _%tl6680766846%_) - (let ((_g83025_ + (let ((_g84147_ (gx#syntax-split-splice _%tl6680766846%_ '0))) (begin - (let ((_g83026_ + (let ((_g84148_ (let () (declare (not safe)) - (if (##values? _g83025_) + (if (##values? _g84147_) (##vector-length - _g83025_) + _g84147_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83026_ 2))) + (##fx= _g84148_ 2))) (error "Context expects 2 values" - _g83026_))) + _g84148_))) (let ((_%target6680866849%_ (let () (declare (not safe)) - (##vector-ref _g83025_ 0))) + (##vector-ref _g84147_ 0))) (_%tl6681066852%_ (let () (declare (not safe)) - (##vector-ref _g83025_ 1)))) + (##vector-ref _g84147_ 1)))) (if (gx#stx-null? _%tl6681066852%_) (letrec ((_%loop6681166855%_ (lambda (_%hd6680966859%_ @@ -3738,24 +3738,24 @@ (lambda (_%stx66912%_) (letrec ((_%is-clause-signature?66915%_ (lambda (_%clause67449%_) - (let* ((_%__stx8143481435%_ _%clause67449%_) + (let* ((_%__stx8242682427%_ _%clause67449%_) (_%g6745367495%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8143481435%_)))) - (let ((_%__kont8143781438%_ + _%__stx8242682427%_)))) + (let ((_%__kont8242982430%_ (lambda (_%L67627%_ _%L67629%_ _%L67630%_) '#t)) - (_%__kont8144181442%_ + (_%__kont8243382434%_ (lambda (_%L67542%_ _%L67544%_) (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| _%L67544%_)))) - (let* ((_%__match8148981490%_ + (let* ((_%__match8248182482%_ (lambda (_%e6747867502%_ _%hd6747967506%_ _%tl6748067509%_ - _%__splice8144381444%_ + _%__splice8243582436%_ _%target6748167512%_ _%tl6748367515%_) (letrec ((_%loop6748467518%_ @@ -3782,13 +3782,13 @@ _%body6748867525%_)))) (let ((_%body6748967538%_ (reverse _%body6748867525%_))) - (_%__kont8144181442%_ + (_%__kont8243382434%_ _%body6748967538%_ _%hd6747967506%_)))))) (_%loop6748467518%_ _%target6748167512%_ '())))) - (_%__match8147581476%_ + (_%__match8246782468%_ (lambda (_%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ @@ -3798,7 +3798,7 @@ _%e6746467587%_ _%hd6746567591%_ _%tl6746667594%_ - _%__splice8143981440%_ + _%__splice8243182432%_ _%target6746767597%_ _%tl6746967600%_) (letrec ((_%loop6747067603%_ @@ -3825,16 +3825,16 @@ _%body6747467610%_)))) (let ((_%body6747567623%_ (reverse _%body6747467610%_))) - (_%__kont8143781438%_ + (_%__kont8242982430%_ _%body6747567623%_ _%hd6746567591%_ _%hd6745967571%_)))))) (_%loop6747067603%_ _%target6746767597%_ '()))))) - (if (gx#stx-pair? _%__stx8143481435%_) + (if (gx#stx-pair? _%__stx8242682427%_) (let ((_%e6745867567%_ - (gx#syntax-e _%__stx8143481435%_))) + (gx#syntax-e _%__stx8242682427%_))) (let ((_%tl6746067574%_ (let () (declare (not safe)) @@ -3856,7 +3856,7 @@ (##car _%e6746167577%_)))) (if (gx#identifier? _%hd6746267581%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83027_| + |gerbil/core/contract~TypedDefinitions[1]#_g84149_| _%hd6746267581%_) (if (gx#stx-pair? _%tl6746367584%_) @@ -3871,18 +3871,18 @@ (_%hd6746567591%_ (let () (declare (not safe)) (##car _%e6746467587%_)))) (if (gx#stx-pair/null? _%tl6746667594%_) - (let ((_%__splice8143981440%_ + (let ((_%__splice8243182432%_ (gx#syntax-split-splice _%tl6746667594%_ '0))) (let ((_%tl6746967600%_ (let () (declare (not safe)) - (##vector-ref _%__splice8143981440%_ '1))) + (##vector-ref _%__splice8243182432%_ '1))) (_%target6746767597%_ (let () (declare (not safe)) - (##vector-ref _%__splice8143981440%_ '0)))) + (##vector-ref _%__splice8243182432%_ '0)))) (if (gx#stx-null? _%tl6746967600%_) - (_%__match8147581476%_ + (_%__match8246782468%_ _%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ @@ -3892,11 +3892,11 @@ _%e6746467587%_ _%hd6746567591%_ _%tl6746667594%_ - _%__splice8143981440%_ + _%__splice8243182432%_ _%target6746767597%_ _%tl6746967600%_) (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8144381444%_ + (let ((_%__splice8243582436%_ (gx#syntax-split-splice _%tl6746067574%_ '0))) @@ -3904,20 +3904,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8144381444%_ + _%__splice8243582436%_ '1))) (_%target6748167512%_ (let () (declare (not safe)) (##vector-ref - _%__splice8144381444%_ + _%__splice8243582436%_ '0)))) (if (gx#stx-null? _%tl6748367515%_) - (_%__match8148981490%_ + (_%__match8248182482%_ _%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ - _%__splice8144381444%_ + _%__splice8243582436%_ _%target6748167512%_ _%tl6748367515%_) (let () @@ -3927,24 +3927,24 @@ (declare (not safe)) (_%g6745367495%_)))))) (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8144381444%_ + (let ((_%__splice8243582436%_ (gx#syntax-split-splice _%tl6746067574%_ '0))) (let ((_%tl6748367515%_ (let () (declare (not safe)) - (##vector-ref _%__splice8144381444%_ '1))) + (##vector-ref _%__splice8243582436%_ '1))) (_%target6748167512%_ (let () (declare (not safe)) (##vector-ref - _%__splice8144381444%_ + _%__splice8243582436%_ '0)))) (if (gx#stx-null? _%tl6748367515%_) - (_%__match8148981490%_ + (_%__match8248182482%_ _%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ - _%__splice8144381444%_ + _%__splice8243582436%_ _%target6748167512%_ _%tl6748367515%_) (let () @@ -3952,22 +3952,22 @@ (_%g6745367495%_))))) (let () (declare (not safe)) (_%g6745367495%_)))))) (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8144381444%_ + (let ((_%__splice8243582436%_ (gx#syntax-split-splice _%tl6746067574%_ '0))) (let ((_%tl6748367515%_ (let () (declare (not safe)) - (##vector-ref _%__splice8144381444%_ '1))) + (##vector-ref _%__splice8243582436%_ '1))) (_%target6748167512%_ (let () (declare (not safe)) - (##vector-ref _%__splice8144381444%_ '0)))) + (##vector-ref _%__splice8243582436%_ '0)))) (if (gx#stx-null? _%tl6748367515%_) - (_%__match8148981490%_ + (_%__match8248182482%_ _%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ - _%__splice8144381444%_ + _%__splice8243582436%_ _%target6748167512%_ _%tl6748367515%_) (let () (declare (not safe)) (_%g6745367495%_))))) @@ -3975,7 +3975,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8144381444%_ + (let ((_%__splice8243582436%_ (gx#syntax-split-splice _%tl6746067574%_ '0))) @@ -3983,17 +3983,17 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8144381444%_ '1))) + (##vector-ref _%__splice8243582436%_ '1))) (_%target6748167512%_ (let () (declare (not safe)) - (##vector-ref _%__splice8144381444%_ '0)))) + (##vector-ref _%__splice8243582436%_ '0)))) (if (gx#stx-null? _%tl6748367515%_) - (_%__match8148981490%_ + (_%__match8248182482%_ _%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ - _%__splice8144381444%_ + _%__splice8243582436%_ _%target6748167512%_ _%tl6748367515%_) (let () (declare (not safe)) (_%g6745367495%_))))) @@ -4001,7 +4001,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8144381444%_ + (let ((_%__splice8243582436%_ (gx#syntax-split-splice _%tl6746067574%_ '0))) @@ -4010,22 +4010,22 @@ (declare (not safe)) (##vector-ref - _%__splice8144381444%_ + _%__splice8243582436%_ '1))) (_%target6748167512%_ (let () (declare (not safe)) (##vector-ref - _%__splice8144381444%_ + _%__splice8243582436%_ '0)))) (if (gx#stx-null? _%tl6748367515%_) - (_%__match8148981490%_ + (_%__match8248182482%_ _%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ - _%__splice8144381444%_ + _%__splice8243582436%_ _%target6748167512%_ _%tl6748367515%_) (let () @@ -4036,7 +4036,7 @@ (declare (not safe)) (_%g6745367495%_)))))) (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8144381444%_ + (let ((_%__splice8243582436%_ (gx#syntax-split-splice _%tl6746067574%_ '0))) @@ -4044,21 +4044,21 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8144381444%_ + _%__splice8243582436%_ '1))) (_%target6748167512%_ (let () (declare (not safe)) (##vector-ref - _%__splice8144381444%_ + _%__splice8243582436%_ '0)))) (if (gx#stx-null? _%tl6748367515%_) - (_%__match8148981490%_ + (_%__match8248182482%_ _%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ - _%__splice8144381444%_ + _%__splice8243582436%_ _%target6748167512%_ _%tl6748367515%_) (let () @@ -4072,14 +4072,14 @@ (_%g6745367495%_)))))))) (_%clause-e66917%_ (lambda (_%clause67189%_) - (let* ((_%__stx8149281493%_ _%clause67189%_) + (let* ((_%__stx8248482485%_ _%clause67189%_) (_%g6719367235%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8149281493%_)))) - (let ((_%__kont8149581496%_ + _%__stx8248482485%_)))) + (let ((_%__kont8248782488%_ (lambda (_%L67375%_ _%L67377%_ _%L67378%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| _%L67378%_) @@ -4142,7 +4142,7 @@ _%L67375%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8149981500%_ + (_%__kont8249182492%_ (lambda (_%L67282%_ _%L67284%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| _%L67284%_) @@ -4160,11 +4160,11 @@ _%L67282%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%clause67189%_)))) - (let* ((_%__match8154781548%_ + (let* ((_%__match8253982540%_ (lambda (_%e6721867242%_ _%hd6721967246%_ _%tl6722067249%_ - _%__splice8150181502%_ + _%__splice8249382494%_ _%target6722167252%_ _%tl6722367255%_) (letrec ((_%loop6722467258%_ @@ -4191,13 +4191,13 @@ _%body6722867265%_)))) (let ((_%body6722967278%_ (reverse _%body6722867265%_))) - (_%__kont8149981500%_ + (_%__kont8249182492%_ _%body6722967278%_ _%hd6721967246%_)))))) (_%loop6722467258%_ _%target6722167252%_ '())))) - (_%__match8153381534%_ + (_%__match8252582526%_ (lambda (_%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ @@ -4207,7 +4207,7 @@ _%e6720467335%_ _%hd6720567339%_ _%tl6720667342%_ - _%__splice8149781498%_ + _%__splice8248982490%_ _%target6720767345%_ _%tl6720967348%_) (letrec ((_%loop6721067351%_ @@ -4234,16 +4234,16 @@ _%body6721467358%_)))) (let ((_%body6721567371%_ (reverse _%body6721467358%_))) - (_%__kont8149581496%_ + (_%__kont8248782488%_ _%body6721567371%_ _%hd6720567339%_ _%hd6719967319%_)))))) (_%loop6721067351%_ _%target6720767345%_ '()))))) - (if (gx#stx-pair? _%__stx8149281493%_) + (if (gx#stx-pair? _%__stx8248482485%_) (let ((_%e6719867315%_ - (gx#syntax-e _%__stx8149281493%_))) + (gx#syntax-e _%__stx8248482485%_))) (let ((_%tl6720067322%_ (let () (declare (not safe)) @@ -4265,7 +4265,7 @@ (##car _%e6720167325%_)))) (if (gx#identifier? _%hd6720267329%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83028_| + |gerbil/core/contract~TypedDefinitions[1]#_g84150_| _%hd6720267329%_) (if (gx#stx-pair? _%tl6720367332%_) @@ -4280,18 +4280,18 @@ (_%hd6720567339%_ (let () (declare (not safe)) (##car _%e6720467335%_)))) (if (gx#stx-pair/null? _%tl6720667342%_) - (let ((_%__splice8149781498%_ + (let ((_%__splice8248982490%_ (gx#syntax-split-splice _%tl6720667342%_ '0))) (let ((_%tl6720967348%_ (let () (declare (not safe)) - (##vector-ref _%__splice8149781498%_ '1))) + (##vector-ref _%__splice8248982490%_ '1))) (_%target6720767345%_ (let () (declare (not safe)) - (##vector-ref _%__splice8149781498%_ '0)))) + (##vector-ref _%__splice8248982490%_ '0)))) (if (gx#stx-null? _%tl6720967348%_) - (_%__match8153381534%_ + (_%__match8252582526%_ _%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ @@ -4301,11 +4301,11 @@ _%e6720467335%_ _%hd6720567339%_ _%tl6720667342%_ - _%__splice8149781498%_ + _%__splice8248982490%_ _%target6720767345%_ _%tl6720967348%_) (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8150181502%_ + (let ((_%__splice8249382494%_ (gx#syntax-split-splice _%tl6720067322%_ '0))) @@ -4313,20 +4313,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8150181502%_ + _%__splice8249382494%_ '1))) (_%target6722167252%_ (let () (declare (not safe)) (##vector-ref - _%__splice8150181502%_ + _%__splice8249382494%_ '0)))) (if (gx#stx-null? _%tl6722367255%_) - (_%__match8154781548%_ + (_%__match8253982540%_ _%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ - _%__splice8150181502%_ + _%__splice8249382494%_ _%target6722167252%_ _%tl6722367255%_) (let () @@ -4336,24 +4336,24 @@ (declare (not safe)) (_%g6719367235%_)))))) (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8150181502%_ + (let ((_%__splice8249382494%_ (gx#syntax-split-splice _%tl6720067322%_ '0))) (let ((_%tl6722367255%_ (let () (declare (not safe)) - (##vector-ref _%__splice8150181502%_ '1))) + (##vector-ref _%__splice8249382494%_ '1))) (_%target6722167252%_ (let () (declare (not safe)) (##vector-ref - _%__splice8150181502%_ + _%__splice8249382494%_ '0)))) (if (gx#stx-null? _%tl6722367255%_) - (_%__match8154781548%_ + (_%__match8253982540%_ _%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ - _%__splice8150181502%_ + _%__splice8249382494%_ _%target6722167252%_ _%tl6722367255%_) (let () @@ -4361,22 +4361,22 @@ (_%g6719367235%_))))) (let () (declare (not safe)) (_%g6719367235%_)))))) (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8150181502%_ + (let ((_%__splice8249382494%_ (gx#syntax-split-splice _%tl6720067322%_ '0))) (let ((_%tl6722367255%_ (let () (declare (not safe)) - (##vector-ref _%__splice8150181502%_ '1))) + (##vector-ref _%__splice8249382494%_ '1))) (_%target6722167252%_ (let () (declare (not safe)) - (##vector-ref _%__splice8150181502%_ '0)))) + (##vector-ref _%__splice8249382494%_ '0)))) (if (gx#stx-null? _%tl6722367255%_) - (_%__match8154781548%_ + (_%__match8253982540%_ _%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ - _%__splice8150181502%_ + _%__splice8249382494%_ _%target6722167252%_ _%tl6722367255%_) (let () (declare (not safe)) (_%g6719367235%_))))) @@ -4384,7 +4384,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8150181502%_ + (let ((_%__splice8249382494%_ (gx#syntax-split-splice _%tl6720067322%_ '0))) @@ -4392,17 +4392,17 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8150181502%_ '1))) + (##vector-ref _%__splice8249382494%_ '1))) (_%target6722167252%_ (let () (declare (not safe)) - (##vector-ref _%__splice8150181502%_ '0)))) + (##vector-ref _%__splice8249382494%_ '0)))) (if (gx#stx-null? _%tl6722367255%_) - (_%__match8154781548%_ + (_%__match8253982540%_ _%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ - _%__splice8150181502%_ + _%__splice8249382494%_ _%target6722167252%_ _%tl6722367255%_) (let () (declare (not safe)) (_%g6719367235%_))))) @@ -4410,7 +4410,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8150181502%_ + (let ((_%__splice8249382494%_ (gx#syntax-split-splice _%tl6720067322%_ '0))) @@ -4419,22 +4419,22 @@ (declare (not safe)) (##vector-ref - _%__splice8150181502%_ + _%__splice8249382494%_ '1))) (_%target6722167252%_ (let () (declare (not safe)) (##vector-ref - _%__splice8150181502%_ + _%__splice8249382494%_ '0)))) (if (gx#stx-null? _%tl6722367255%_) - (_%__match8154781548%_ + (_%__match8253982540%_ _%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ - _%__splice8150181502%_ + _%__splice8249382494%_ _%target6722167252%_ _%tl6722367255%_) (let () @@ -4445,7 +4445,7 @@ (declare (not safe)) (_%g6719367235%_)))))) (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8150181502%_ + (let ((_%__splice8249382494%_ (gx#syntax-split-splice _%tl6720067322%_ '0))) @@ -4453,21 +4453,21 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8150181502%_ + _%__splice8249382494%_ '1))) (_%target6722167252%_ (let () (declare (not safe)) (##vector-ref - _%__splice8150181502%_ + _%__splice8249382494%_ '0)))) (if (gx#stx-null? _%tl6722367255%_) - (_%__match8154781548%_ + (_%__match8253982540%_ _%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ - _%__splice8150181502%_ + _%__splice8249382494%_ _%target6722167252%_ _%tl6722367255%_) (let () @@ -4479,14 +4479,14 @@ (let () (declare (not safe)) (_%g6719367235%_))))))))) - (let* ((_%__stx8155081551%_ _%stx66912%_) + (let* ((_%__stx8254282543%_ _%stx66912%_) (_%g6692066953%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8155081551%_)))) - (let ((_%__kont8155381554%_ + _%__stx8254282543%_)))) + (let ((_%__kont8254582546%_ (lambda (_%L67072%_) (let* ((_%g6709567112%_ (lambda (_%g6709667108%_) @@ -4497,30 +4497,30 @@ (_%g6709467173%_ (lambda (_%g6709667116%_) (if (gx#stx-pair/null? _%g6709667116%_) - (let ((_g83029_ + (let ((_g84151_ (gx#syntax-split-splice _%g6709667116%_ '0))) (begin - (let ((_g83030_ + (let ((_g84152_ (let () (declare (not safe)) - (if (##values? _g83029_) - (##vector-length _g83029_) + (if (##values? _g84151_) + (##vector-length _g84151_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83030_ 2))) + (##fx= _g84152_ 2))) (error "Context expects 2 values" - _g83030_))) + _g84152_))) (let ((_%target6709867119%_ (let () (declare (not safe)) - (##vector-ref _g83029_ 0))) + (##vector-ref _g84151_ 0))) (_%tl6710067122%_ (let () (declare (not safe)) - (##vector-ref _g83029_ 1)))) + (##vector-ref _g84151_ 1)))) (if (gx#stx-null? _%tl6710067122%_) (letrec ((_%loop6710167125%_ (lambda (_%hd6709967129%_ @@ -4565,18 +4565,18 @@ (cons _%g6717667179%_ _%g6717767182%_)) '() _%L67072%_)))))) - (_%__kont8155781558%_ + (_%__kont8254982550%_ (lambda (_%L67000%_) (cons (gx#datum->syntax '#f 'case-lambda) (foldr (lambda (_%g6701667019%_ _%g6701767022%_) (cons _%g6701667019%_ _%g6701767022%_)) '() _%L67000%_))))) - (let* ((_%__match8158981590%_ + (let* ((_%__match8258182582%_ (lambda (_%e6693666960%_ _%hd6693766964%_ _%tl6693866967%_ - _%__splice8155981560%_ + _%__splice8255182552%_ _%target6693966970%_ _%tl6694166973%_) (letrec ((_%loop6694266976%_ @@ -4599,14 +4599,14 @@ _%clause6694666983%_)))) (let ((_%clause6694766996%_ (reverse _%clause6694666983%_))) - (_%__kont8155781558%_ + (_%__kont8254982550%_ _%clause6694766996%_)))))) (_%loop6694266976%_ _%target6693966970%_ '())))) - (_%__match8157581576%_ + (_%__match8256782568%_ (lambda (_%e6692367032%_ _%hd6692467036%_ _%tl6692567039%_ - _%__splice8155581556%_ + _%__splice8254782548%_ _%target6692667042%_ _%tl6692867045%_) (letrec ((_%loop6692967048%_ @@ -4639,17 +4639,17 @@ '() _%L67072%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8155381554%_ _%L67072%_) - (_%__match8158981590%_ + (_%__kont8254582546%_ _%L67072%_) + (_%__match8258182582%_ _%e6692367032%_ _%hd6692467036%_ _%tl6692567039%_ - _%__splice8155581556%_ + _%__splice8254782548%_ _%target6692667042%_ _%tl6692867045%_))))))) (_%loop6692967048%_ _%target6692667042%_ '()))))) - (if (gx#stx-pair? _%__stx8155081551%_) - (let ((_%e6692367032%_ (gx#syntax-e _%__stx8155081551%_))) + (if (gx#stx-pair? _%__stx8254282543%_) + (let ((_%e6692367032%_ (gx#syntax-e _%__stx8254282543%_))) (let ((_%tl6692567039%_ (let () (declare (not safe)) @@ -4659,7 +4659,7 @@ (declare (not safe)) (##car _%e6692367032%_)))) (if (gx#stx-pair/null? _%tl6692567039%_) - (let ((_%__splice8155581556%_ + (let ((_%__splice8254782548%_ (gx#syntax-split-splice _%tl6692567039%_ '0))) @@ -4667,20 +4667,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8155581556%_ + _%__splice8254782548%_ '1))) (_%target6692667042%_ (let () (declare (not safe)) (##vector-ref - _%__splice8155581556%_ + _%__splice8254782548%_ '0)))) (if (gx#stx-null? _%tl6692867045%_) - (_%__match8157581576%_ + (_%__match8256782568%_ _%e6692367032%_ _%hd6692467036%_ _%tl6692567039%_ - _%__splice8155581556%_ + _%__splice8254782548%_ _%target6692667042%_ _%tl6692867045%_) (let () @@ -4690,14 +4690,14 @@ (let () (declare (not safe)) (_%g6692066953%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#@method| (lambda (_%stx67661%_) - (let* ((_%__stx8159281593%_ _%stx67661%_) + (let* ((_%__stx8258482585%_ _%stx67661%_) (_%g6766567710%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8159281593%_)))) - (let ((_%__kont8159581596%_ + _%__stx8258482585%_)))) + (let ((_%__kont8258782588%_ (lambda (_%L67866%_ _%L67868%_) (let* ((_%str67885%_ (symbol->string (gx#stx-e _%L67868%_))) (_%ix67888%_ (string-rindex _%str67885%_ '#\.)) @@ -4761,14 +4761,14 @@ (list (gx#stx-identifier _%L67868%_ (substring _%str67885%_ '0 _%ix67888%_)) - (let ((__tmp83031 + (let ((__tmp84153 (substring _%str67885%_ (fx1+ _%ix67888%_) (string-length _%str67885%_)))) (declare (not safe)) - (##string->symbol __tmp83031))))))) - (_%__kont8159981600%_ + (##string->symbol __tmp84153))))))) + (_%__kont8259182592%_ (lambda (_%L67777%_ _%L67779%_ _%L67780%_) (cons (gx#datum->syntax '#f 'call-method) (cons _%L67779%_ @@ -4780,7 +4780,7 @@ _%g6780167806%_)) '() _%L67777%_))))))) - (let* ((_%__match8164981650%_ + (let* ((_%__match8264182642%_ (lambda (_%e6768767717%_ _%hd6768867721%_ _%tl6768967724%_ @@ -4790,7 +4790,7 @@ _%e6769367737%_ _%hd6769467741%_ _%tl6769567744%_ - _%__splice8160181602%_ + _%__splice8259382594%_ _%target6769667747%_ _%tl6769867750%_) (letrec ((_%loop6769967753%_ @@ -4812,12 +4812,12 @@ _%arg6770367760%_)))) (let ((_%arg6770467773%_ (reverse _%arg6770367760%_))) - (_%__kont8159981600%_ + (_%__kont8259182592%_ _%arg6770467773%_ _%hd6769467741%_ _%hd6769167731%_)))))) (_%loop6769967753%_ _%target6769667747%_ '())))) - (_%__match8163581636%_ + (_%__match8262782628%_ (lambda (_%e6768767717%_ _%hd6768867721%_ _%tl6768967724%_ @@ -4836,7 +4836,7 @@ (declare (not safe)) (##car _%e6769367737%_)))) (if (gx#stx-pair/null? _%tl6769567744%_) - (let ((_%__splice8160181602%_ + (let ((_%__splice8259382594%_ (gx#syntax-split-splice _%tl6769567744%_ '0))) @@ -4844,16 +4844,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8160181602%_ + _%__splice8259382594%_ '1))) (_%target6769667747%_ (let () (declare (not safe)) (##vector-ref - _%__splice8160181602%_ + _%__splice8259382594%_ '0)))) (if (gx#stx-null? _%tl6769867750%_) - (_%__match8164981650%_ + (_%__match8264182642%_ _%e6768767717%_ _%hd6768867721%_ _%tl6768967724%_ @@ -4863,7 +4863,7 @@ _%e6769367737%_ _%hd6769467741%_ _%tl6769567744%_ - _%__splice8160181602%_ + _%__splice8259382594%_ _%target6769667747%_ _%tl6769867750%_) (let () @@ -4873,14 +4873,14 @@ (declare (not safe)) (_%g6766567710%_))))) (let () (declare (not safe)) (_%g6766567710%_))))) - (_%__match8162381624%_ + (_%__match8261582616%_ (lambda (_%e6766967816%_ _%hd6767067820%_ _%tl6767167823%_ _%e6767267826%_ _%hd6767367830%_ _%tl6767467833%_ - _%__splice8159781598%_ + _%__splice8258982590%_ _%target6767567836%_ _%tl6767767839%_) (letrec ((_%loop6767867842%_ @@ -4908,10 +4908,10 @@ (declare (not safe)) (|gerbil/core/contract~Using[1]#dotted-identifier?| _%L67868%_)) - (_%__kont8159581596%_ + (_%__kont8258782588%_ _%L67866%_ _%L67868%_) - (_%__match8163581636%_ + (_%__match8262782628%_ _%e6766967816%_ _%hd6767067820%_ _%tl6767167823%_ @@ -4919,8 +4919,8 @@ _%hd6767367830%_ _%tl6767467833%_)))))))) (_%loop6767867842%_ _%target6767567836%_ '()))))) - (if (gx#stx-pair? _%__stx8159281593%_) - (let ((_%e6766967816%_ (gx#syntax-e _%__stx8159281593%_))) + (if (gx#stx-pair? _%__stx8258482585%_) + (let ((_%e6766967816%_ (gx#syntax-e _%__stx8258482585%_))) (let ((_%tl6767167823%_ (let () (declare (not safe)) @@ -4941,7 +4941,7 @@ (declare (not safe)) (##car _%e6767267826%_)))) (if (gx#stx-pair/null? _%tl6767467833%_) - (let ((_%__splice8159781598%_ + (let ((_%__splice8258982590%_ (gx#syntax-split-splice _%tl6767467833%_ '0))) @@ -4949,23 +4949,23 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8159781598%_ + _%__splice8258982590%_ '1))) (_%target6767567836%_ (let () (declare (not safe)) (##vector-ref - _%__splice8159781598%_ + _%__splice8258982590%_ '0)))) (if (gx#stx-null? _%tl6767767839%_) - (_%__match8162381624%_ + (_%__match8261582616%_ _%e6766967816%_ _%hd6767067820%_ _%tl6767167823%_ _%e6767267826%_ _%hd6767367830%_ _%tl6767467833%_ - _%__splice8159781598%_ + _%__splice8258982590%_ _%target6767567836%_ _%tl6767767839%_) (if (gx#stx-pair? _%tl6767467833%_) @@ -4982,7 +4982,7 @@ (##car _%e6769367737%_)))) (if (gx#stx-pair/null? _%tl6769567744%_) - (let ((_%__splice8160181602%_ + (let ((_%__splice8259382594%_ (gx#syntax-split-splice _%tl6769567744%_ '0))) @@ -4990,13 +4990,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8160181602%_ '1))) + (##vector-ref _%__splice8259382594%_ '1))) (_%target6769667747%_ (let () (declare (not safe)) - (##vector-ref _%__splice8160181602%_ '0)))) + (##vector-ref _%__splice8259382594%_ '0)))) (if (gx#stx-null? _%tl6769867750%_) - (_%__match8164981650%_ + (_%__match8264182642%_ _%e6766967816%_ _%hd6767067820%_ _%tl6767167823%_ @@ -5006,7 +5006,7 @@ _%e6769367737%_ _%hd6769467741%_ _%tl6769567744%_ - _%__splice8160181602%_ + _%__splice8259382594%_ _%target6769667747%_ _%tl6769867750%_) (let () (declare (not safe)) (_%g6766567710%_))))) @@ -5028,7 +5028,7 @@ (##car _%e6769367737%_)))) (if (gx#stx-pair/null? _%tl6769567744%_) - (let ((_%__splice8160181602%_ + (let ((_%__splice8259382594%_ (gx#syntax-split-splice _%tl6769567744%_ '0))) @@ -5036,17 +5036,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8160181602%_ + _%__splice8259382594%_ '1))) (_%target6769667747%_ (let () (declare (not safe)) (##vector-ref - _%__splice8160181602%_ + _%__splice8259382594%_ '0)))) (if (gx#stx-null? _%tl6769867750%_) - (_%__match8164981650%_ + (_%__match8264182642%_ _%e6766967816%_ _%hd6767067820%_ _%tl6767167823%_ @@ -5056,7 +5056,7 @@ _%e6769367737%_ _%hd6769467741%_ _%tl6769567744%_ - _%__splice8160181602%_ + _%__splice8259382594%_ _%target6769667747%_ _%tl6769867750%_) (let () @@ -5072,14 +5072,14 @@ (let () (declare (not safe)) (_%g6766567710%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmethod/c| (lambda (_%stx67974%_) - (let* ((_%__stx8165281653%_ _%stx67974%_) + (let* ((_%__stx8264482645%_ _%stx67974%_) (_%g6797968104%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8165281653%_)))) - (let ((_%__kont8165581656%_ + _%__stx8264482645%_)))) + (let ((_%__kont8264782648%_ (lambda (_%L68673%_ _%L68675%_ _%L68676%_ @@ -5149,7 +5149,7 @@ (gx#stx-source _%stx67974%_))))) _%g6871768728%_)))) (_%g6871568785%_ (gx#genident _%L68677%_))))) - (_%__kont8165981660%_ + (_%__kont8265182652%_ (lambda (_%L68352%_ _%L68354%_ _%L68355%_ @@ -5166,30 +5166,30 @@ (_%g6839868534%_ (lambda (_%g6840068420%_) (if (gx#stx-pair/null? _%g6840068420%_) - (let ((_g83032_ + (let ((_g84154_ (gx#syntax-split-splice _%g6840068420%_ '0))) (begin - (let ((_g83033_ + (let ((_g84155_ (let () (declare (not safe)) - (if (##values? _g83032_) - (##vector-length _g83032_) + (if (##values? _g84154_) + (##vector-length _g84154_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83033_ 2))) + (##fx= _g84155_ 2))) (error "Context expects 2 values" - _g83033_))) + _g84155_))) (let ((_%target6840268423%_ (let () (declare (not safe)) - (##vector-ref _g83032_ 0))) + (##vector-ref _g84154_ 0))) (_%tl6840468426%_ (let () (declare (not safe)) - (##vector-ref _g83032_ 1)))) + (##vector-ref _g84154_ 1)))) (if (gx#stx-null? _%tl6840468426%_) (letrec ((_%loop6840568429%_ (lambda (_%hd6840368433%_ @@ -5305,7 +5305,7 @@ (cons _%g6853768540%_ _%g6853868543%_)) '() _%L68356%_)))))) - (_%__kont8166381664%_ + (_%__kont8265582656%_ (lambda (_%L68161%_ _%L68163%_ _%L68164%_ _%L68165%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method~) @@ -5314,7 +5314,7 @@ (let* ((_%g6797868187%_ (lambda () (let ((_%e6808468111%_ - (gx#syntax-e _%__stx8165281653%_))) + (gx#syntax-e _%__stx8264482645%_))) (let ((_%tl6808668118%_ (let () (declare (not safe)) @@ -5370,7 +5370,7 @@ (_%hd6809768155%_ (let () (declare (not safe)) (##car _%e6809668151%_)))) (if (gx#stx-null? _%tl6809868158%_) - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6808968128%_ _%hd6809768155%_ _%hd6809468145%_ @@ -5387,7 +5387,7 @@ (let () (declare (not safe)) (_%g6797968104%_))))))) - (_%__match8178981790%_ + (_%__match8278182782%_ (lambda (_%e6803168194%_ _%hd6803268198%_ _%tl6803368201%_ @@ -5409,7 +5409,7 @@ _%e6804968254%_ _%hd6805068258%_ _%tl6805168261%_ - _%__splice8166181662%_ + _%__splice8265382654%_ _%target6805268264%_ _%tl6805468267%_) (letrec ((_%loop6805568270%_ @@ -5454,27 +5454,27 @@ (_%hd6806968308%_ (let () (declare (not safe)) (##car _%e6806868304%_)))) (if (gx#stx-pair/null? _%tl6806768301%_) - (let ((_g83034_ + (let ((_g84156_ (gx#syntax-split-splice _%tl6806768301%_ '0))) (begin - (let ((_g83035_ + (let ((_g84157_ (let () (declare (not safe)) - (if (##values? _g83034_) - (##vector-length _g83034_) + (if (##values? _g84156_) + (##vector-length _g84156_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83035_ 2))) - (error "Context expects 2 values" _g83035_))) + (##fx= _g84157_ 2))) + (error "Context expects 2 values" _g84157_))) (let ((_%target6807168314%_ (let () (declare (not safe)) - (##vector-ref _g83034_ 0))) + (##vector-ref _g84156_ 0))) (_%tl6807368317%_ (let () (declare (not safe)) - (##vector-ref _g83034_ 1)))) + (##vector-ref _g84156_ 1)))) (if (gx#stx-null? _%tl6807368317%_) (letrec ((_%loop6807468320%_ (lambda (_%hd6807268324%_ @@ -5511,18 +5511,18 @@ (let () (declare (not safe)) (_%g6797868187%_)))))) - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6803668211%_ _%hd6804468238%_ _%hd6804168228%_ _%hd6803868218%_)))) - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6803668211%_ _%hd6804468238%_ _%hd6804168228%_ _%hd6803868218%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6803668211%_ _%hd6804468238%_ _%hd6804168228%_ @@ -5549,7 +5549,7 @@ _%L68356%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#identifier? _%L68358%_)) - (_%__kont8165981660%_ + (_%__kont8265182652%_ _%L68352%_ _%L68354%_ _%L68355%_ @@ -5557,7 +5557,7 @@ _%L68357%_ _%L68358%_ _%L68359%_) - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6803668211%_ _%hd6804468238%_ _%hd6804168228%_ @@ -5567,7 +5567,7 @@ '() '() '())))) - (_%__match8173381734%_ + (_%__match8272582726%_ (lambda (_%e6798868553%_ _%hd6798968557%_ _%tl6799068560%_ @@ -5595,7 +5595,7 @@ _%e6801268633%_ _%hd6801368637%_ _%tl6801468640%_ - _%__splice8165781658%_ + _%__splice8264982650%_ _%target6801568643%_ _%tl6801768646%_) (letrec ((_%loop6801868649%_ @@ -5626,7 +5626,7 @@ (_%L68680%_ _%hd6799568577%_)) (if (and (gx#identifier? _%L68677%_) (gx#identifier? _%L68679%_)) - (_%__kont8165581656%_ + (_%__kont8264782648%_ _%L68673%_ _%L68675%_ _%L68676%_ @@ -5634,14 +5634,14 @@ _%L68678%_ _%L68679%_ _%L68680%_) - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)))))))) (_%loop6801868649%_ _%target6801568643%_ '()))))) - (if (gx#stx-pair? _%__stx8165281653%_) - (let ((_%e6798868553%_ (gx#syntax-e _%__stx8165281653%_))) + (if (gx#stx-pair? _%__stx8264482645%_) + (let ((_%e6798868553%_ (gx#syntax-e _%__stx8264482645%_))) (let ((_%tl6799068560%_ (let () (declare (not safe)) @@ -5727,7 +5727,7 @@ (##car _%e6800668613%_)))) (if (gx#identifier? _%hd6800768617%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83036_| + |gerbil/core/contract~TypedDefinitions[1]#_g84158_| _%hd6800768617%_) (if (gx#stx-pair? _%tl6800868620%_) (let ((_%e6800968623%_ @@ -5754,18 +5754,18 @@ (_%hd6801368637%_ (let () (declare (not safe)) (##car _%e6801268633%_)))) (if (gx#stx-pair/null? _%tl6801168630%_) - (let ((_%__splice8165781658%_ + (let ((_%__splice8264982650%_ (gx#syntax-split-splice _%tl6801168630%_ '0))) (let ((_%tl6801768646%_ (let () (declare (not safe)) - (##vector-ref _%__splice8165781658%_ '1))) + (##vector-ref _%__splice8264982650%_ '1))) (_%target6801568643%_ (let () (declare (not safe)) - (##vector-ref _%__splice8165781658%_ '0)))) + (##vector-ref _%__splice8264982650%_ '0)))) (if (gx#stx-null? _%tl6801768646%_) - (_%__match8173381734%_ + (_%__match8272582726%_ _%e6798868553%_ _%hd6798968557%_ _%tl6799068560%_ @@ -5793,36 +5793,36 @@ _%e6801268633%_ _%hd6801368637%_ _%tl6801468640%_ - _%__splice8165781658%_ + _%__splice8264982650%_ _%target6801568643%_ _%tl6801768646%_) - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)))) - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)))) - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83037_| + |gerbil/core/contract~TypedDefinitions[1]#_g84159_| _%hd6800768617%_) (if (gx#stx-pair/null? _%tl6800868620%_) - (let ((_%__splice8166181662%_ + (let ((_%__splice8265382654%_ (gx#syntax-split-splice _%tl6800868620%_ '0))) @@ -5831,18 +5831,18 @@ (declare (not safe)) (##vector-ref - _%__splice8166181662%_ + _%__splice8265382654%_ '1))) (_%target6805268264%_ (let () (declare (not safe)) (##vector-ref - _%__splice8166181662%_ + _%__splice8265382654%_ '0)))) (if (gx#stx-null? _%tl6805468267%_) - (_%__match8178981790%_ + (_%__match8278182782%_ _%e6798868553%_ _%hd6798968557%_ _%tl6799068560%_ @@ -5864,35 +5864,35 @@ _%e6800668613%_ _%hd6800768617%_ _%tl6800868620%_ - _%__splice8166181662%_ + _%__splice8265382654%_ _%target6805268264%_ _%tl6805468267%_) - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)))) - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)) - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_))) - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)))) - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)))) - (_%__kont8166381664%_ + (_%__kont8265582656%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ @@ -5985,14 +5985,14 @@ (_%g6879968904%_ _%stx68797%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#let/c| (lambda (_%stx68908%_) - (let* ((_%__stx8183281833%_ _%stx68908%_) + (let* ((_%__stx8282482825%_ _%stx68908%_) (_%g6891369009%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8183281833%_)))) - (let ((_%__kont8183581836%_ + _%__stx8282482825%_)))) + (let ((_%__kont8282782828%_ (lambda (_%L69356%_ _%L69358%_ _%L69359%_ @@ -6040,7 +6040,7 @@ '() _%L69356%_))))) (gx#stx-source _%stx68908%_)))))) - (_%__kont8184181842%_ + (_%__kont8283382834%_ (lambda (_%L69159%_ _%L69161%_ _%L69162%_ _%L69163%_) (cons (gx#datum->syntax '#f 'let/c) (cons _%L69163%_ @@ -6069,10 +6069,10 @@ '() _%L69159%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8184781848%_ + (_%__kont8283982840%_ (lambda (_%L69026%_) (cons (gx#datum->syntax '#f 'let) _%L69026%_)))) - (let* ((_%__match8190181902%_ + (let* ((_%__match8289382894%_ (lambda (_%e6896569045%_ _%hd6896669049%_ _%tl6896769052%_ @@ -6082,7 +6082,7 @@ _%e6897169065%_ _%hd6897269069%_ _%tl6897369072%_ - _%__splice8184381844%_ + _%__splice8283582836%_ _%target6897469075%_ _%tl6897669078%_) (letrec ((_%loop6897769081%_ @@ -6130,10 +6130,10 @@ _%lp-tl6898069100%_ (cons _%hd6899869117%_ _%init6898169088%_) (cons _%hd6899569107%_ _%var6898269090%_)) - (_%__kont8184781848%_ _%tl6896769052%_)))) - (_%__kont8184781848%_ _%tl6896769052%_)))) + (_%__kont8283982840%_ _%tl6896769052%_)))) + (_%__kont8283982840%_ _%tl6896769052%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8184781848%_ + (_%__kont8283982840%_ _%tl6896769052%_)))) (let ((_%var6898469126%_ (reverse _%var6898269090%_)) @@ -6141,7 +6141,7 @@ (reverse _%init6898169088%_))) (if (gx#stx-pair/null? _%tl6897369072%_) - (let ((_%__splice8184581846%_ + (let ((_%__splice8283782838%_ (gx#syntax-split-splice _%tl6897369072%_ '0))) @@ -6149,13 +6149,13 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8184581846%_ + _%__splice8283782838%_ '1))) (_%target6898569129%_ (let () (declare (not safe)) (##vector-ref - _%__splice8184581846%_ + _%__splice8283782838%_ '0)))) (if (gx#stx-null? _%tl6898769132%_) @@ -6192,21 +6192,21 @@ _%g6918869193%_)) '() _%L69162%_))) - (_%__kont8184181842%_ + (_%__kont8283382834%_ _%L69159%_ _%L69161%_ _%L69162%_ _%L69163%_) - (_%__kont8184781848%_ + (_%__kont8283982840%_ _%tl6896769052%_)))))))) (_%loop6898869135%_ _%target6898569129%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8184781848%_ + (_%__kont8283982840%_ _%tl6896769052%_)))) - (_%__kont8184781848%_ + (_%__kont8283982840%_ _%tl6896769052%_))))))) (_%loop6897769081%_ _%target6897469075%_ '() '())))) - (_%__match8187581876%_ + (_%__match8286782868%_ (lambda (_%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6216,7 +6216,7 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8183781838%_ + _%__splice8282982830%_ _%target6892969252%_ _%tl6893169255%_) (letrec ((_%loop6893269258%_ @@ -6264,7 +6264,7 @@ _%lp-tl6893569277%_ (cons _%hd6895969294%_ _%init6893669265%_) (cons _%hd6895669284%_ _%var6893769267%_)) - (_%__match8190181902%_ + (_%__match8289382894%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6274,10 +6274,10 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8183781838%_ + _%__splice8282982830%_ _%target6892969252%_ _%tl6893169255%_)))) - (_%__match8190181902%_ + (_%__match8289382894%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6287,11 +6287,11 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8183781838%_ + _%__splice8282982830%_ _%target6892969252%_ _%tl6893169255%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8190181902%_ + (_%__match8289382894%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6301,7 +6301,7 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8183781838%_ + _%__splice8282982830%_ _%target6892969252%_ _%tl6893169255%_)))) (let ((_%var6893969303%_ @@ -6323,7 +6323,7 @@ (if (gx#identifier? _%hd6894169310%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83038_| + |gerbil/core/contract~TypedDefinitions[1]#_g84160_| _%hd6894169310%_) (if (gx#stx-pair? _%tl6894269313%_) @@ -6339,7 +6339,7 @@ (declare (not safe)) (##car _%e6894369316%_)))) (if (gx#stx-pair/null? _%tl6894569323%_) - (let ((_%__splice8183981840%_ + (let ((_%__splice8283182832%_ (gx#syntax-split-splice _%tl6894569323%_ '0))) @@ -6347,13 +6347,13 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8183981840%_ + _%__splice8283182832%_ '1))) (_%target6894669326%_ (let () (declare (not safe)) (##vector-ref - _%__splice8183981840%_ + _%__splice8283182832%_ '0)))) (if (gx#stx-null? _%tl6894869329%_) (letrec ((_%loop6894969332%_ @@ -6390,13 +6390,13 @@ _%hd6892469236%_)) (if (gx#identifier? _%L69361%_) - (_%__kont8183581836%_ + (_%__kont8282782828%_ _%L69356%_ _%L69358%_ _%L69359%_ _%L69360%_ _%L69361%_) - (_%__match8190181902%_ + (_%__match8289382894%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6406,13 +6406,13 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8183781838%_ + _%__splice8282982830%_ _%target6892969252%_ _%tl6893169255%_)))))))) (_%loop6894969332%_ _%target6894669326%_ '())) - (_%__match8190181902%_ + (_%__match8289382894%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6422,10 +6422,10 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8183781838%_ + _%__splice8282982830%_ _%target6892969252%_ _%tl6893169255%_)))) - (_%__match8190181902%_ + (_%__match8289382894%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6435,10 +6435,10 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8183781838%_ + _%__splice8282982830%_ _%target6892969252%_ _%tl6893169255%_)))) - (_%__match8190181902%_ + (_%__match8289382894%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6448,10 +6448,10 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8183781838%_ + _%__splice8282982830%_ _%target6892969252%_ _%tl6893169255%_)) - (_%__match8190181902%_ + (_%__match8289382894%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6461,11 +6461,11 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8183781838%_ + _%__splice8282982830%_ _%target6892969252%_ _%tl6893169255%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8190181902%_ + (_%__match8289382894%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6475,10 +6475,10 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8183781838%_ + _%__splice8282982830%_ _%target6892969252%_ _%tl6893169255%_)))) - (_%__match8190181902%_ + (_%__match8289382894%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6488,12 +6488,12 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8183781838%_ + _%__splice8282982830%_ _%target6892969252%_ _%tl6893169255%_))))))) (_%loop6893269258%_ _%target6892969252%_ '() '()))))) - (if (gx#stx-pair? _%__stx8183281833%_) - (let ((_%e6892069222%_ (gx#syntax-e _%__stx8183281833%_))) + (if (gx#stx-pair? _%__stx8282482825%_) + (let ((_%e6892069222%_ (gx#syntax-e _%__stx8282482825%_))) (let ((_%tl6892269229%_ (let () (declare (not safe)) @@ -6525,7 +6525,7 @@ (declare (not safe)) (##car _%e6892669242%_)))) (if (gx#stx-pair/null? _%hd6892769246%_) - (let ((_%__splice8183781838%_ + (let ((_%__splice8282982830%_ (gx#syntax-split-splice _%hd6892769246%_ '0))) @@ -6533,17 +6533,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8183781838%_ + _%__splice8282982830%_ '1))) (_%target6892969252%_ (let () (declare (not safe)) (##vector-ref - _%__splice8183781838%_ + _%__splice8282982830%_ '0)))) (if (gx#stx-null? _%tl6893169255%_) - (_%__match8187581876%_ + (_%__match8286782868%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6553,28 +6553,28 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8183781838%_ + _%__splice8282982830%_ _%target6892969252%_ _%tl6893169255%_) - (_%__kont8184781848%_ + (_%__kont8283982840%_ _%tl6892269229%_)))) - (_%__kont8184781848%_ + (_%__kont8283982840%_ _%tl6892269229%_)))) - (_%__kont8184781848%_ _%tl6892269229%_)))) - (_%__kont8184781848%_ _%tl6892269229%_)))) + (_%__kont8283982840%_ _%tl6892269229%_)))) + (_%__kont8283982840%_ _%tl6892269229%_)))) (let () (declare (not safe)) (_%g6891369009%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defclass/c| (lambda (_%stx69454%_) (letrec ((_%generate69457%_ (lambda (_%hd76628%_ _%slots76630%_ _%body76631%_) - (let* ((_%__stx8191081911%_ _%hd76628%_) + (let* ((_%__stx8290282903%_ _%hd76628%_) (_%g7663576657%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8191081911%_)))) - (let ((_%__kont8191381914%_ + _%__stx8290282903%_)))) + (let ((_%__kont8290582906%_ (lambda (_%L76733%_ _%L76735%_) (_%generate-defclass69478%_ _%L76735%_ @@ -6586,14 +6586,14 @@ _%L76733%_) _%slots76630%_ _%body76631%_))) - (_%__kont8191781918%_ + (_%__kont8290982910%_ (lambda (_%L76675%_) (_%generate-defclass69478%_ _%L76675%_ '() _%slots76630%_ _%body76631%_))) - (_%__kont8191981920%_ + (_%__kont8291182912%_ (lambda () (gx#raise-syntax-error '#f @@ -6602,15 +6602,15 @@ _%hd76628%_)))) (let* ((_%g7663376686%_ (lambda () - (let ((_%L76675%_ _%__stx8191081911%_)) + (let ((_%L76675%_ _%__stx8290282903%_)) (if (gx#identifier? _%L76675%_) - (_%__kont8191781918%_ _%L76675%_) - (_%__kont8191981920%_))))) - (_%__match8193581936%_ + (_%__kont8290982910%_ _%L76675%_) + (_%__kont8291182912%_))))) + (_%__match8292782928%_ (lambda (_%e7663976693%_ _%hd7664076697%_ _%tl7664176700%_ - _%__splice8191581916%_ + _%__splice8290782908%_ _%target7664276703%_ _%tl7664476706%_) (letrec ((_%loop7664576709%_ @@ -6649,15 +6649,15 @@ (cons _%g7674976752%_ _%g7675076755%_)) '() _%L76733%_))) - (_%__kont8191381914%_ _%L76733%_ _%L76735%_) + (_%__kont8290582906%_ _%L76733%_ _%L76735%_) (let () (declare (not safe)) (_%g7663376686%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%loop7664576709%_ _%target7664276703%_ '()))))) - (if (gx#stx-pair? _%__stx8191081911%_) + (if (gx#stx-pair? _%__stx8290282903%_) (let ((_%e7663976693%_ - (gx#syntax-e _%__stx8191081911%_))) + (gx#syntax-e _%__stx8290282903%_))) (let ((_%tl7664176700%_ (let () (declare (not safe)) @@ -6667,7 +6667,7 @@ (declare (not safe)) (##car _%e7663976693%_)))) (if (gx#stx-pair/null? _%tl7664176700%_) - (let ((_%__splice8191581916%_ + (let ((_%__splice8290782908%_ (gx#syntax-split-splice _%tl7664176700%_ '0))) @@ -6675,20 +6675,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8191581916%_ + _%__splice8290782908%_ '1))) (_%target7664276703%_ (let () (declare (not safe)) (##vector-ref - _%__splice8191581916%_ + _%__splice8290782908%_ '0)))) (if (gx#stx-null? _%tl7664476706%_) - (_%__match8193581936%_ + (_%__match8292782928%_ _%e7663976693%_ _%hd7664076697%_ _%tl7664176700%_ - _%__splice8191581916%_ + _%__splice8290782908%_ _%target7664276703%_ _%tl7664476706%_) (let () @@ -6704,9 +6704,9 @@ (lambda (_%body76619%_) (letrec ((_%body-opt?76622%_ (lambda (_%key76625%_) - (let ((__tmp83039 (gx#stx-e _%key76625%_))) + (let ((__tmp84161 (gx#stx-e _%key76625%_))) (declare (not safe)) - (##memq __tmp83039 + (##memq __tmp84161 '(id: struct: name: @@ -6731,24 +6731,24 @@ (gx#stx-car _%slot-spec76616%_))))) (_%slot-contract69461%_ (lambda (_%slot-spec76497%_) - (let* ((_%__stx8193881939%_ _%slot-spec76497%_) + (let* ((_%__stx8293082931%_ _%slot-spec76497%_) (_%g7650276523%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8193881939%_)))) - (let ((_%__kont8194181942%_ (lambda (_%L76603%_) '#f)) - (_%__kont8194381944%_ + _%__stx8293082931%_)))) + (let ((_%__kont8293382934%_ (lambda (_%L76603%_) '#f)) + (_%__kont8293582936%_ (lambda (_%L76581%_ _%L76583%_) '#f)) - (_%__kont8194581946%_ + (_%__kont8293782938%_ (lambda (_%L76540%_ _%L76542%_) _%L76540%_))) (let* ((_%g7650076596%_ (lambda () - (if (gx#stx-pair? _%__stx8193881939%_) + (if (gx#stx-pair? _%__stx8293082931%_) (let ((_%e7650776561%_ (gx#syntax-e - _%__stx8193881939%_))) + _%__stx8293082931%_))) (let ((_%tl7650976568%_ (let () (declare (not safe)) @@ -6771,21 +6771,21 @@ (##car _%e7651076571%_)))) (if (gx#stx-null? _%tl7651276578%_) - (_%__kont8194381944%_ + (_%__kont8293582936%_ _%hd7651176575%_ _%hd7650876565%_) - (_%__kont8194581946%_ + (_%__kont8293782938%_ _%tl7650976568%_ _%hd7650876565%_)))) - (_%__kont8194581946%_ + (_%__kont8293782938%_ _%tl7650976568%_ _%hd7650876565%_)))) (let () (declare (not safe)) (_%g7650276523%_))))) - (_%L76603%_ _%__stx8193881939%_)) + (_%L76603%_ _%__stx8293082931%_)) (if (gx#identifier? _%L76603%_) - (_%__kont8194181942%_ _%L76603%_) + (_%__kont8293382934%_ _%L76603%_) (let () (declare (not safe)) (_%g7650076596%_)))))))) @@ -6799,14 +6799,14 @@ '#f)))) (_%contract-normalize69463%_ (lambda (_%contract76231%_) - (let* ((_%__stx8197081971%_ _%contract76231%_) + (let* ((_%__stx8296282963%_ _%contract76231%_) (_%g7623776281%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8197081971%_)))) - (let ((_%__kont8197381974%_ + _%__stx8296282963%_)))) + (let ((_%__kont8296582966%_ (lambda (_%L76457%_) (_%contract-normalize69463%_ (foldr (lambda (_%g7647376476%_ @@ -6815,7 +6815,7 @@ _%g7647476479%_)) '() _%L76457%_)))) - (_%__kont8197781978%_ + (_%__kont8296982970%_ (lambda (_%L76381%_ _%L76383%_) (cons (gx#datum->syntax '#f ':~) (cons (cons (gx#datum->syntax '#f '?) @@ -6831,15 +6831,15 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f ':?) (cons _%L76381%_ '())))))) - (_%__kont8197981980%_ (lambda (_%L76319%_) '#f)) - (_%__kont8198181982%_ + (_%__kont8297182972%_ (lambda (_%L76319%_) '#f)) + (_%__kont8297382974%_ (lambda () _%contract76231%_))) (let* ((_%g7623476400%_ (lambda () - (if (gx#stx-pair? _%__stx8197081971%_) + (if (gx#stx-pair? _%__stx8296282963%_) (let ((_%e7625776341%_ (gx#syntax-e - _%__stx8197081971%_))) + _%__stx8296282963%_))) (let ((_%tl7625976348%_ (let () (declare (not safe)) @@ -6850,7 +6850,7 @@ (##car _%e7625776341%_)))) (if (gx#identifier? _%hd7625876345%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83040_| + |gerbil/core/contract~TypedDefinitions[1]#_g84162_| _%hd7625876345%_) (if (gx#stx-pair? _%tl7625976348%_) @@ -6876,7 +6876,7 @@ (##car _%e7626376361%_)))) (if (gx#identifier? _%hd7626476365%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83041_| + |gerbil/core/contract~TypedDefinitions[1]#_g84163_| _%hd7626476365%_) (if (gx#stx-pair? _%tl7626576368%_) (let ((_%e7626676371%_ @@ -6890,18 +6890,18 @@ (declare (not safe)) (##car _%e7626676371%_)))) (if (gx#stx-null? _%tl7626876378%_) - (_%__kont8197781978%_ + (_%__kont8296982970%_ _%hd7626776375%_ _%hd7626176355%_) - (_%__kont8198181982%_)))) - (_%__kont8198181982%_)) - (_%__kont8198181982%_)) - (_%__kont8198181982%_)))) - (_%__kont8198181982%_)))) - (_%__kont8198181982%_)) + (_%__kont8297382974%_)))) + (_%__kont8297382974%_)) + (_%__kont8297382974%_)) + (_%__kont8297382974%_)))) + (_%__kont8297382974%_)))) + (_%__kont8297382974%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83042_| + |gerbil/core/contract~TypedDefinitions[1]#_g84164_| _%hd7625876345%_) (if (gx#stx-pair? _%tl7625976348%_) @@ -6917,15 +6917,15 @@ (declare (not safe)) (##car _%e7627376309%_)))) (if (gx#stx-null? _%tl7627576316%_) - (_%__kont8197981980%_ _%hd7627476313%_) - (_%__kont8198181982%_)))) - (_%__kont8198181982%_)) - (_%__kont8198181982%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8198181982%_)))) - (_%__kont8198181982%_)))) - (_%__match8200982010%_ - (lambda (_%__splice8197581976%_ + (_%__kont8297182972%_ _%hd7627476313%_) + (_%__kont8297382974%_)))) + (_%__kont8297382974%_)) + (_%__kont8297382974%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8297382974%_)))) + (_%__kont8297382974%_)))) + (_%__match8300183002%_ + (lambda (_%__splice8296782968%_ _%target7624076407%_ _%tl7624276410%_ _%e7624976413%_ @@ -6958,31 +6958,31 @@ _%pre7624776440%_)))) (let ((_%pre7624876453%_ (reverse _%pre7624776440%_))) - (_%__kont8197381974%_ + (_%__kont8296582966%_ _%pre7624876453%_)))))) (_%loop7624376433%_ _%target7624076407%_ '()))))) - (if (gx#stx-pair/null? _%__stx8197081971%_) - (if (let ((__tmp83043 - (gx#stx-length _%__stx8197081971%_))) + (if (gx#stx-pair/null? _%__stx8296282963%_) + (if (let ((__tmp84165 + (gx#stx-length _%__stx8296282963%_))) (declare (not safe)) - (##fx>= __tmp83043 '2)) - (let ((_%__splice8197581976%_ + (##fx>= __tmp84165 '2)) + (let ((_%__splice8296782968%_ (gx#syntax-split-splice - _%__stx8197081971%_ + _%__stx8296282963%_ '2))) (let ((_%tl7624276410%_ (let () (declare (not safe)) (##vector-ref - _%__splice8197581976%_ + _%__splice8296782968%_ '1))) (_%target7624076407%_ (let () (declare (not safe)) (##vector-ref - _%__splice8197581976%_ + _%__splice8296782968%_ '0)))) (if (gx#stx-pair? _%tl7624276410%_) (let ((_%e7624976413%_ @@ -6999,7 +6999,7 @@ (if (gx#identifier? _%hd7625076417%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83044_| + |gerbil/core/contract~TypedDefinitions[1]#_g84166_| _%hd7625076417%_) (if (gx#stx-pair? _%tl7625176420%_) @@ -7015,8 +7015,8 @@ (declare (not safe)) (##car _%e7625276423%_)))) (if (gx#stx-null? _%tl7625476430%_) - (_%__match8200982010%_ - _%__splice8197581976%_ + (_%__match8300183002%_ + _%__splice8296782968%_ _%target7624076407%_ _%tl7624276410%_ _%e7624976413%_ @@ -7051,24 +7051,24 @@ '#f)))) (_%contract-type69465%_ (lambda (_%contract76028%_) - (let* ((_%__stx8206482065%_ _%contract76028%_) + (let* ((_%__stx8305683057%_ _%contract76028%_) (_%g7603376065%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8206482065%_)))) - (let ((_%__kont8206782068%_ + _%__stx8305683057%_)))) + (let ((_%__kont8305983060%_ (lambda (_%L76187%_ _%L76189%_ _%L76190%_) _%L76189%_)) - (_%__kont8206982070%_ + (_%__kont8306183062%_ (lambda (_%L76123%_ _%L76125%_ _%L76126%_ _%L76127%_) _%L76125%_)) - (_%__kont8207182072%_ (lambda () '#f))) - (let* ((_%__match8211382114%_ + (_%__kont8306383064%_ (lambda () '#f))) + (let* ((_%__match8310583106%_ (lambda (_%e7604876083%_ _%hd7604976087%_ _%tl7605076090%_ @@ -7100,13 +7100,13 @@ (gx#datum->syntax '#f '::-)))) - (_%__kont8206982070%_ + (_%__kont8306183062%_ _%L76123%_ _%L76125%_ _%L76126%_ _%L76127%_) - (_%__kont8207182072%_))))) - (_%__match8208582086%_ + (_%__kont8306383064%_))))) + (_%__match8307783078%_ (lambda (_%e7603876167%_ _%hd7603976171%_ _%tl7604076174%_ @@ -7131,13 +7131,13 @@ (gx#datum->syntax '#f '::-)))) - (_%__kont8206782068%_ + (_%__kont8305983060%_ _%L76187%_ _%L76189%_ _%L76190%_) (if (gx#identifier? _%hd7603976171%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83045_| + |gerbil/core/contract~TypedDefinitions[1]#_g84167_| _%hd7603976171%_) (if (gx#stx-pair? _%tl7604376184%_) @@ -7162,7 +7162,7 @@ (let () (declare (not safe)) (##car _%e7605776113%_)))) - (_%__match8211382114%_ + (_%__match8310583106%_ _%e7603876167%_ _%hd7603976171%_ _%tl7604076174%_ @@ -7175,14 +7175,14 @@ _%e7605776113%_ _%hd7605876117%_ _%tl7605976120%_))) - (_%__kont8207182072%_)))) + (_%__kont8306383064%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8207182072%_)) - (_%__kont8207182072%_)) - (_%__kont8207182072%_))))))) - (if (gx#stx-pair? _%__stx8206482065%_) + (_%__kont8306383064%_)) + (_%__kont8306383064%_)) + (_%__kont8306383064%_))))))) + (if (gx#stx-pair? _%__stx8305683057%_) (let ((_%e7603876167%_ - (gx#syntax-e _%__stx8206482065%_))) + (gx#syntax-e _%__stx8305683057%_))) (let ((_%tl7604076174%_ (let () (declare (not safe)) @@ -7202,15 +7202,15 @@ (let () (declare (not safe)) (##car _%e7604176177%_)))) - (_%__match8208582086%_ + (_%__match8307783078%_ _%e7603876167%_ _%hd7603976171%_ _%tl7604076174%_ _%e7604176177%_ _%hd7604276181%_ _%tl7604376184%_))) - (_%__kont8207182072%_)))) - (_%__kont8207182072%_))))))) + (_%__kont8306383064%_)))) + (_%__kont8306383064%_))))))) (_%slot-contract-predicate69466%_ (lambda (_%slot-spec76017%_) (let ((_%contract7601976021%_ @@ -7221,19 +7221,19 @@ '#f)))) (_%contract-predicate69467%_ (lambda (_%contract75939%_) - (let* ((_%__stx8211682117%_ _%contract75939%_) + (let* ((_%__stx8310883109%_ _%contract75939%_) (_%g7594375958%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8211682117%_)))) - (let ((_%__kont8211982120%_ + _%__stx8310883109%_)))) + (let ((_%__kont8311183112%_ (lambda (_%L75996%_ _%L75998%_) _%L75998%_)) - (_%__kont8212182122%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8211682117%_) + (_%__kont8311383114%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8310883109%_) (let ((_%e7594775976%_ - (gx#syntax-e _%__stx8211682117%_))) + (gx#syntax-e _%__stx8310883109%_))) (let ((_%tl7594975983%_ (let () (declare (not safe)) @@ -7244,7 +7244,7 @@ (##car _%e7594775976%_)))) (if (gx#identifier? _%hd7594875980%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83046_| + |gerbil/core/contract~TypedDefinitions[1]#_g84168_| _%hd7594875980%_) (if (gx#stx-pair? _%tl7594975983%_) (let ((_%e7595075986%_ @@ -7258,29 +7258,29 @@ (let () (declare (not safe)) (##car _%e7595075986%_)))) - (_%__kont8211982120%_ + (_%__kont8311183112%_ _%tl7595275993%_ _%hd7595175990%_))) - (_%__kont8212182122%_)) - (_%__kont8212182122%_)) - (_%__kont8212182122%_)))) - (_%__kont8212182122%_)))))) + (_%__kont8311383114%_)) + (_%__kont8311383114%_)) + (_%__kont8311383114%_)))) + (_%__kont8311383114%_)))))) (_%slot-default69468%_ (lambda (_%slot-spec75767%_) - (let* ((_%__stx8214282143%_ _%slot-spec75767%_) + (let* ((_%__stx8313483135%_ _%slot-spec75767%_) (_%g7577275804%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8214282143%_)))) - (let ((_%__kont8214582146%_ + _%__stx8313483135%_)))) + (let ((_%__kont8313783138%_ (lambda (_%L75920%_ _%L75922%_) _%L75920%_)) - (_%__kont8214782148%_ + (_%__kont8313983140%_ (lambda (_%L75872%_ _%L75874%_) _%L75872%_)) - (_%__kont8215182152%_ (lambda () '#f))) - (let* ((_%__match8219382194%_ - (lambda (_%__splice8214982150%_ + (_%__kont8314383144%_ (lambda () '#f))) + (let* ((_%__match8318583186%_ + (lambda (_%__splice8314183142%_ _%target7578475822%_ _%tl7578675825%_ _%e7579375828%_ @@ -7313,7 +7313,7 @@ _%id7579175855%_)))) (let ((_%id7579275868%_ (reverse _%id7579175855%_))) - (_%__kont8214782148%_ + (_%__kont8313983140%_ _%hd7579775842%_ _%id7579275868%_)))))) (_%loop7578775848%_ @@ -7321,27 +7321,27 @@ '())))) (_%g7577075893%_ (lambda () - (if (gx#stx-pair/null? _%__stx8214282143%_) - (if (let ((__tmp83047 + (if (gx#stx-pair/null? _%__stx8313483135%_) + (if (let ((__tmp84169 (gx#stx-length - _%__stx8214282143%_))) + _%__stx8313483135%_))) (declare (not safe)) - (##fx>= __tmp83047 '2)) - (let ((_%__splice8214982150%_ + (##fx>= __tmp84169 '2)) + (let ((_%__splice8314183142%_ (gx#syntax-split-splice - _%__stx8214282143%_ + _%__stx8313483135%_ '2))) (let ((_%tl7578675825%_ (let () (declare (not safe)) (##vector-ref - _%__splice8214982150%_ + _%__splice8314183142%_ '1))) (_%target7578475822%_ (let () (declare (not safe)) (##vector-ref - _%__splice8214982150%_ + _%__splice8314183142%_ '0)))) (if (gx#stx-pair? _%tl7578675825%_) @@ -7361,7 +7361,7 @@ (if (gx#identifier? _%hd7579475832%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83048_| + |gerbil/core/contract~TypedDefinitions[1]#_g84170_| _%hd7579475832%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -7377,8 +7377,8 @@ (declare (not safe)) (##car _%e7579675838%_)))) (if (gx#stx-null? _%tl7579875845%_) - (_%__match8219382194%_ - _%__splice8214982150%_ + (_%__match8318583186%_ + _%__splice8314183142%_ _%target7578475822%_ _%tl7578675825%_ _%e7579375828%_ @@ -7387,17 +7387,17 @@ _%e7579675838%_ _%hd7579775842%_ _%tl7579875845%_) - (_%__kont8215182152%_)))) - (_%__kont8215182152%_)) - (_%__kont8215182152%_)) - (_%__kont8215182152%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8215182152%_)))) - (_%__kont8215182152%_)) - (_%__kont8215182152%_))))) - (if (gx#stx-pair? _%__stx8214282143%_) + (_%__kont8314383144%_)))) + (_%__kont8314383144%_)) + (_%__kont8314383144%_)) + (_%__kont8314383144%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8314383144%_)))) + (_%__kont8314383144%_)) + (_%__kont8314383144%_))))) + (if (gx#stx-pair? _%__stx8313483135%_) (let ((_%e7577675900%_ - (gx#syntax-e _%__stx8214282143%_))) + (gx#syntax-e _%__stx8313483135%_))) (let ((_%tl7577875907%_ (let () (declare (not safe)) @@ -7418,7 +7418,7 @@ (declare (not safe)) (##car _%e7577975910%_)))) (if (gx#stx-null? _%tl7578175917%_) - (_%__kont8214582146%_ + (_%__kont8313783138%_ _%hd7578075914%_ _%hd7577775904%_) (let () @@ -7458,29 +7458,29 @@ (class-instance? gerbil/core/mop~MOP-2#class-type-info::t _%klass-b75683%_)) - (if (eq? (let ((__obj82777 + (if (eq? (let ((__obj83899 _%klass-a75681%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj82777 + __obj83899 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82777 '1 '#f '#f)) - (unchecked-slot-ref __obj82777 'id))) - (let ((__obj82778 _%klass-b75683%_)) + (##unchecked-structure-ref __obj83899 '1 '#f '#f)) + (unchecked-slot-ref __obj83899 'id))) + (let ((__obj83900 _%klass-b75683%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82778 + __obj83900 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82778 '1 '#f '#f)) - (unchecked-slot-ref __obj82778 'id)))) + (##unchecked-structure-ref __obj83900 '1 '#f '#f)) + (unchecked-slot-ref __obj83900 'id)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%type-a75667%_ (if (member _%type-a75667%_ @@ -7514,18 +7514,18 @@ _%klass-b75683%_)) (let ((_%$e75701%_ (gx#syntax-local-value - (let ((__obj82775 + (let ((__obj83897 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%klass-b75683%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82775 + __obj83897 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82775 '1 '#f '#f)) - (unchecked-slot-ref __obj82775 'identifier))) + (##unchecked-structure-ref __obj83897 '1 '#f '#f)) + (unchecked-slot-ref __obj83897 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if _%$e75701%_ @@ -7536,18 +7536,18 @@ _%$e75701%_) (if (gx#free-identifier=? _%type-a75667%_ - (let ((__obj82776 + (let ((__obj83898 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%klass-b75683%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82776 + __obj83898 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82776 '1 '#f '#f)) - (unchecked-slot-ref __obj82776 'identifier)))) + (##unchecked-structure-ref __obj83898 '1 '#f '#f)) + (unchecked-slot-ref __obj83898 'identifier)))) _%type-a75667%_ (gx#raise-syntax-error '#f @@ -7603,22 +7603,22 @@ _%klass-b75683%_)) (let ((_%$e75726%_ (gx#syntax-local-value - (let ((__obj82773 + (let ((__obj83895 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%klass-b75683%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82773 + __obj83895 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82773 + __obj83895 '1 '#f '#f)) - (unchecked-slot-ref __obj82773 'identifier))) + (unchecked-slot-ref __obj83895 'identifier))) false))) (if _%$e75726%_ ((lambda (_%klass-b75730%_) @@ -7626,20 +7626,20 @@ _%$e75726%_) (if (gx#free-identifier=? _%type-a75667%_ - (let ((__obj82774 _%klass-b75683%_)) + (let ((__obj83896 _%klass-b75683%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82774 + __obj83896 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82774 + __obj83896 '1 '#f '#f)) - (unchecked-slot-ref __obj82774 'identifier)))) + (unchecked-slot-ref __obj83896 'identifier)))) _%type-a75667%_ (gx#raise-syntax-error '#f @@ -7663,18 +7663,18 @@ _%klass-a75681%_)) (let ((_%$e75741%_ (gx#syntax-local-value - (let ((__obj82768 + (let ((__obj83890 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%klass-a75681%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82768 + __obj83890 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82768 '1 '#f '#f)) - (unchecked-slot-ref __obj82768 'identifier))) + (##unchecked-structure-ref __obj83890 '1 '#f '#f)) + (unchecked-slot-ref __obj83890 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if _%$e75741%_ @@ -7692,20 +7692,20 @@ (let ((_%$e75750%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-local-value - (let ((__obj82770 _%klass-b75683%_)) + (let ((__obj83892 _%klass-b75683%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82770 + __obj83892 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82770 + __obj83892 '1 '#f '#f)) - (unchecked-slot-ref __obj82770 'identifier))) + (unchecked-slot-ref __obj83892 'identifier))) false))) (if _%$e75750%_ ((lambda (_%klass-b75754%_) @@ -7714,37 +7714,37 @@ _%klass-b75754%_)) _%$e75750%_) (if (gx#free-identifier=? - (let ((__obj82771 _%klass-a75681%_)) + (let ((__obj83893 _%klass-a75681%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82771 + __obj83893 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82771 + __obj83893 '1 '#f '#f)) (unchecked-slot-ref - __obj82771 + __obj83893 'identifier))) - (let ((__obj82772 _%klass-b75683%_)) + (let ((__obj83894 _%klass-b75683%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82772 + __obj83894 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82772 + __obj83894 '1 '#f '#f)) (unchecked-slot-ref - __obj82772 + __obj83894 'identifier)))) _%type-a75667%_ (gx#raise-syntax-error @@ -7756,20 +7756,20 @@ _%type-b75668%_)))) (if (gx#free-identifier=? _%type-b75668%_ - (let ((__obj82769 _%klass-a75681%_)) + (let ((__obj83891 _%klass-a75681%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82769 + __obj83891 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82769 + __obj83891 '1 '#f '#f)) - (unchecked-slot-ref __obj82769 'identifier)))) + (unchecked-slot-ref __obj83891 'identifier)))) _%type-b75668%_ (gx#raise-syntax-error '#f @@ -7805,22 +7805,22 @@ _%stx69454%_ _%type-id75574%_))) (_%slots75579%_ - (let ((__obj82779 _%klass75576%_)) + (let ((__obj83901 _%klass75576%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82779 + __obj83901 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82779 + __obj83901 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82779 + __obj83901 'slots))))) (let _%loop-inner75584%_ ((_%rest-slots75587%_ _%slots75579%_) @@ -7833,21 +7833,21 @@ (_%loop75542%_ (foldr cons _%rest75572%_ - (let ((__obj82780 + (let ((__obj83902 _%klass75576%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj82780 + __obj83902 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82780 '3 '#f '#f)) + (##unchecked-structure-ref __obj83902 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82780 + __obj83902 'super)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%result75589%_))) @@ -7903,9 +7903,7 @@ _%rest-slots75614%_ _%result75589%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%rest-slots7559075598%_)) + (if (pair? _%rest-slots7559075598%_) (let ((_%hd7559575637%_ (let () (declare (not safe)) @@ -7922,9 +7920,7 @@ _%rest-slots75646%_ _%slot75643%_))) (_%else7559275610%_)))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest7554875556%_)) + (if (pair? _%rest7554875556%_) (let ((_%hd7555375653%_ (let () (declare (not safe)) @@ -8026,23 +8022,23 @@ _%slot-contract-normalize69462%_ |gerbil/core/contract~Using[1]#!class-slot-contract| (lambda (_%slot73921%_ _%a73923%_ _%b73924%_) - (let* ((_%__stx8246482465%_ _%a73923%_) + (let* ((_%__stx8345683457%_ _%a73923%_) (_%g7398674039%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8246482465%_)))) - (let ((_%__kont8246782468%_ + _%__stx8345683457%_)))) + (let ((_%__kont8345983460%_ (lambda () - (let* ((_%__stx8243282433%_ _%b73924%_) + (let* ((_%__stx8342483425%_ _%b73924%_) (_%g7530975327%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8243282433%_)))) - (let ((_%__kont8243582436%_ + _%__stx8342483425%_)))) + (let ((_%__kont8342783428%_ (lambda (_%L75421%_) (let* ((_%g7544075448%_ (lambda (_%g7544175444%_) @@ -8064,7 +8060,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8243782438%_ + (_%__kont8342983430%_ (lambda (_%L75354%_) (let* ((_%g7537375381%_ (lambda (_%g7537475377%_) @@ -8088,7 +8084,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_)))))) - (let ((_%__match8244582446%_ + (let ((_%__match8343783438%_ (lambda (_%e7531275411%_ _%hd7531375415%_ _%tl7531475418%_) @@ -8109,12 +8105,12 @@ (gx#datum->syntax '#f ':-))) - (_%__kont8243582436%_ + (_%__kont8342783428%_ _%L75421%_) (if (gx#identifier? _%hd7531375415%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83049_| + |gerbil/core/contract~TypedDefinitions[1]#_g84171_| _%hd7531375415%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -8129,15 +8125,15 @@ (let () (declare (not safe)) (##car _%e7531975344%_)))) - (_%__kont8243782438%_ _%hd7532075348%_))) + (_%__kont8342983430%_ _%hd7532075348%_))) (let () (declare (not safe)) (_%g7530975327%_))) (let () (declare (not safe)) (_%g7530975327%_))) (let () (declare (not safe)) (_%g7530975327%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8243282433%_) + (if (gx#stx-pair? _%__stx8342483425%_) (let ((_%e7531275411%_ (gx#syntax-e - _%__stx8243282433%_))) + _%__stx8342483425%_))) (let ((_%tl7531475418%_ (let () (declare (not safe)) @@ -8146,23 +8142,23 @@ (let () (declare (not safe)) (##car _%e7531275411%_)))) - (_%__match8244582446%_ + (_%__match8343783438%_ _%e7531275411%_ _%hd7531375415%_ _%tl7531475418%_))) (let () (declare (not safe)) (_%g7530975327%_)))))))) - (_%__kont8246982470%_ + (_%__kont8346183462%_ (lambda () - (let* ((_%__stx8238482385%_ _%b73924%_) + (let* ((_%__stx8337683377%_ _%b73924%_) (_%g7510575125%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8238482385%_)))) - (let ((_%__kont8238782388%_ + _%__stx8337683377%_)))) + (let ((_%__kont8337983380%_ (lambda () (let* ((_%g7524775255%_ (lambda (_%g7524875251%_) @@ -8184,7 +8180,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8238982390%_ + (_%__kont8338183382%_ (lambda (_%L75173%_) (let* ((_%g7519575203%_ (lambda (_%g7519675199%_) @@ -8208,7 +8204,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8239182392%_ + (_%__kont8338383384%_ (lambda () (gx#raise-syntax-error '#f @@ -8217,10 +8213,10 @@ _%slot73921%_ _%a73923%_ _%b73924%_)))) - (if (gx#stx-pair? _%__stx8238482385%_) + (if (gx#stx-pair? _%__stx8337683377%_) (let ((_%e7510775233%_ (gx#syntax-e - _%__stx8238482385%_))) + _%__stx8337683377%_))) (let ((_%tl7510975240%_ (let () (declare (not safe)) @@ -8232,11 +8228,11 @@ (if (gx#identifier? _%hd7510875237%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83050_| + |gerbil/core/contract~TypedDefinitions[1]#_g84172_| _%hd7510875237%_) - (_%__kont8238782388%_) + (_%__kont8337983380%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83051_| + |gerbil/core/contract~TypedDefinitions[1]#_g84173_| _%hd7510875237%_) (if (gx#stx-pair? _%tl7510975240%_) @@ -8264,28 +8260,28 @@ (##car _%e7511775163%_)))) (if (gx#identifier? _%hd7511875167%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83052_| + |gerbil/core/contract~TypedDefinitions[1]#_g84174_| _%hd7511875167%_) - (_%__kont8238982390%_ + (_%__kont8338183382%_ _%hd7511575157%_) - (_%__kont8239182392%_)) - (_%__kont8239182392%_)))) - (_%__kont8239182392%_)))) - (_%__kont8239182392%_)) - (_%__kont8239182392%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8239182392%_)))) - (_%__kont8239182392%_)))))) - (_%__kont8247182472%_ + (_%__kont8338383384%_)) + (_%__kont8338383384%_)))) + (_%__kont8338383384%_)))) + (_%__kont8338383384%_)) + (_%__kont8338383384%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8338383384%_)))) + (_%__kont8338383384%_)))))) + (_%__kont8346383464%_ (lambda () - (let* ((_%__stx8235282353%_ _%b73924%_) + (let* ((_%__stx8334483345%_ _%b73924%_) (_%g7491374932%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8235282353%_)))) - (let ((_%__kont8235582356%_ + _%__stx8334483345%_)))) + (let ((_%__kont8334783348%_ (lambda (_%L75028%_) (let* ((_%g7504775055%_ (lambda (_%g7504875051%_) @@ -8307,7 +8303,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8235782358%_ + (_%__kont8334983350%_ (lambda (_%L74959%_ _%L74961%_) (let* ((_%g7498074988%_ (lambda (_%g7498174984%_) @@ -8331,7 +8327,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_)))))) - (let ((_%__match8236582366%_ + (let ((_%__match8335783358%_ (lambda (_%e7491675018%_ _%hd7491775022%_ _%tl7491875025%_) @@ -8352,12 +8348,12 @@ (gx#datum->syntax '#f ':-))) - (_%__kont8235582356%_ + (_%__kont8334783348%_ _%L75028%_) (if (gx#identifier? _%hd7491775022%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83053_| + |gerbil/core/contract~TypedDefinitions[1]#_g84175_| _%hd7491775022%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -8372,17 +8368,17 @@ (let () (declare (not safe)) (##car _%e7492474949%_)))) - (_%__kont8235782358%_ + (_%__kont8334983350%_ _%tl7492674956%_ _%hd7492574953%_))) (let () (declare (not safe)) (_%g7491374932%_))) (let () (declare (not safe)) (_%g7491374932%_))) (let () (declare (not safe)) (_%g7491374932%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8235282353%_) + (if (gx#stx-pair? _%__stx8334483345%_) (let ((_%e7491675018%_ (gx#syntax-e - _%__stx8235282353%_))) + _%__stx8334483345%_))) (let ((_%tl7491875025%_ (let () (declare (not safe)) @@ -8391,23 +8387,23 @@ (let () (declare (not safe)) (##car _%e7491675018%_)))) - (_%__match8236582366%_ + (_%__match8335783358%_ _%e7491675018%_ _%hd7491775022%_ _%tl7491875025%_))) (let () (declare (not safe)) (_%g7491374932%_)))))))) - (_%__kont8247382474%_ + (_%__kont8346583466%_ (lambda (_%L74740%_) - (let* ((_%__stx8232682327%_ _%b73924%_) + (let* ((_%__stx8331883319%_ _%b73924%_) (_%g7475674770%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8232682327%_)))) - (let ((_%__kont8232982330%_ + _%__stx8331883319%_)))) + (let ((_%__kont8332183322%_ (lambda (_%L74843%_) (let* ((_%g7485674864%_ (lambda (_%g7485774860%_) @@ -8435,7 +8431,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8233182332%_ + (_%__kont8332383324%_ (lambda () (let* ((_%g7478174789%_ (lambda (_%g7478274785%_) @@ -8459,10 +8455,10 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_)))))) - (if (gx#stx-pair? _%__stx8232682327%_) + (if (gx#stx-pair? _%__stx8331883319%_) (let ((_%e7475974823%_ (gx#syntax-e - _%__stx8232682327%_))) + _%__stx8331883319%_))) (let ((_%tl7476174830%_ (let () (declare (not safe)) @@ -8474,7 +8470,7 @@ (if (gx#identifier? _%hd7476074827%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83054_| + |gerbil/core/contract~TypedDefinitions[1]#_g84176_| _%hd7476074827%_) (if (gx#stx-pair? _%tl7476174830%_) @@ -8489,22 +8485,22 @@ (let () (declare (not safe)) (##car _%e7476274833%_)))) - (_%__kont8232982330%_ _%hd7476374837%_))) - (_%__kont8233182332%_)) - (_%__kont8233182332%_)) + (_%__kont8332183322%_ _%hd7476374837%_))) + (_%__kont8332383324%_)) + (_%__kont8332383324%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8233182332%_)))) - (_%__kont8233182332%_)))))) - (_%__kont8247582476%_ + (_%__kont8332383324%_)))) + (_%__kont8332383324%_)))))) + (_%__kont8346783468%_ (lambda (_%L74461%_) - (let* ((_%__stx8226082261%_ _%b73924%_) + (let* ((_%__stx8325283253%_ _%b73924%_) (_%g7447974506%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8226082261%_)))) - (let ((_%__kont8226382264%_ + _%__stx8325283253%_)))) + (let ((_%__kont8325583256%_ (lambda () (let* ((_%g7466374671%_ (lambda (_%g7466474667%_) @@ -8528,7 +8524,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8226582266%_ + (_%__kont8325783258%_ (lambda (_%L74596%_) (let* ((_%g7461174619%_ (lambda (_%g7461274615%_) @@ -8556,7 +8552,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8226782268%_ + (_%__kont8325983260%_ (lambda (_%L74544%_) (gx#raise-syntax-error '#f @@ -8565,7 +8561,7 @@ _%slot73921%_ _%a73923%_ _%b73924%_))) - (_%__kont8226982270%_ + (_%__kont8326183262%_ (lambda () (gx#raise-syntax-error '#f @@ -8574,10 +8570,10 @@ _%slot73921%_ _%a73923%_ _%b73924%_)))) - (if (gx#stx-pair? _%__stx8226082261%_) + (if (gx#stx-pair? _%__stx8325283253%_) (let ((_%e7448174649%_ (gx#syntax-e - _%__stx8226082261%_))) + _%__stx8325283253%_))) (let ((_%tl7448374656%_ (let () (declare (not safe)) @@ -8589,11 +8585,11 @@ (if (gx#identifier? _%hd7448274653%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83055_| + |gerbil/core/contract~TypedDefinitions[1]#_g84177_| _%hd7448274653%_) - (_%__kont8226382264%_) + (_%__kont8325583256%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83056_| + |gerbil/core/contract~TypedDefinitions[1]#_g84178_| _%hd7448274653%_) (if (gx#stx-pair? _%tl7448374656%_) @@ -8621,30 +8617,30 @@ (##car _%e7449174586%_)))) (if (gx#identifier? _%hd7449274590%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83057_| + |gerbil/core/contract~TypedDefinitions[1]#_g84179_| _%hd7449274590%_) - (_%__kont8226582266%_ + (_%__kont8325783258%_ _%hd7448974580%_) - (_%__kont8226782268%_ + (_%__kont8325983260%_ _%hd7448974580%_)) - (_%__kont8226782268%_ + (_%__kont8325983260%_ _%hd7448974580%_)))) - (_%__kont8226782268%_ _%hd7448974580%_)))) - (_%__kont8226982270%_)) - (_%__kont8226982270%_))) + (_%__kont8325983260%_ _%hd7448974580%_)))) + (_%__kont8326183262%_)) + (_%__kont8326183262%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8226982270%_)))) - (_%__kont8226982270%_)))))) - (_%__kont8247782478%_ + (_%__kont8326183262%_)))) + (_%__kont8326183262%_)))))) + (_%__kont8346983470%_ (lambda (_%L74278%_) - (let* ((_%__stx8222882229%_ _%b73924%_) + (let* ((_%__stx8322083221%_ _%b73924%_) (_%g7429474312%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8222882229%_)))) - (let ((_%__kont8223182232%_ + _%__stx8322083221%_)))) + (let ((_%__kont8322383224%_ (lambda (_%L74401%_) (let ((_%$e74412%_ (gx#free-identifier=? @@ -8667,7 +8663,7 @@ (gx#datum->syntax '#f ':-)))))))) - (_%__kont8223382234%_ + (_%__kont8322583226%_ (lambda (_%L74339%_) (let* ((_%g7435374361%_ (lambda (_%g7435474357%_) @@ -8695,10 +8691,10 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_)))))) - (if (gx#stx-pair? _%__stx8222882229%_) + (if (gx#stx-pair? _%__stx8322083221%_) (let ((_%e7429774391%_ (gx#syntax-e - _%__stx8222882229%_))) + _%__stx8322083221%_))) (let ((_%tl7429974398%_ (let () (declare (not safe)) @@ -8707,21 +8703,21 @@ (let () (declare (not safe)) (##car _%e7429774391%_)))) - (_%__kont8223182232%_ + (_%__kont8322383224%_ _%hd7429874395%_))) (let () (declare (not safe)) (_%g7429474312%_))))))) - (_%__kont8247982480%_ + (_%__kont8347183472%_ (lambda (_%L74066%_) - (let* ((_%__stx8219682197%_ _%b73924%_) + (let* ((_%__stx8318883189%_ _%b73924%_) (_%g7408074098%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8219682197%_)))) - (let ((_%__kont8219982200%_ + _%__stx8318883189%_)))) + (let ((_%__kont8319183192%_ (lambda (_%L74181%_ _%L74183%_) (let* ((_%g7420674214%_ (lambda (_%g7420774210%_) @@ -8749,7 +8745,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8220182202%_ + (_%__kont8319383194%_ (lambda () (let* ((_%g7410974117%_ (lambda (_%g7411074113%_) @@ -8773,7 +8769,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_)))))) - (let ((_%__match8222582226%_ + (let ((_%__match8321783218%_ (lambda (_%e7408474151%_ _%hd7408574155%_ _%tl7408674158%_ @@ -8802,14 +8798,14 @@ (gx#datum->syntax '#f ':-))) - (_%__kont8219982200%_ + (_%__kont8319183192%_ _%L74181%_ _%L74183%_) - (_%__kont8220182202%_)))))) - (if (gx#stx-pair? _%__stx8219682197%_) + (_%__kont8319383194%_)))))) + (if (gx#stx-pair? _%__stx8318883189%_) (let ((_%e7408474151%_ (gx#syntax-e - _%__stx8219682197%_))) + _%__stx8318883189%_))) (let ((_%tl7408674158%_ (let () (declare (not safe)) @@ -8821,7 +8817,7 @@ (if (gx#identifier? _%hd7408574155%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83058_| + |gerbil/core/contract~TypedDefinitions[1]#_g84180_| _%hd7408574155%_) (if (gx#stx-pair? _%tl7408674158%_) @@ -8847,7 +8843,7 @@ (let () (declare (not safe)) (##car _%e7409074171%_)))) - (_%__match8222582226%_ + (_%__match8321783218%_ _%e7408474151%_ _%hd7408574155%_ _%tl7408674158%_ @@ -8857,15 +8853,15 @@ _%e7409074171%_ _%hd7409174175%_ _%tl7409274178%_))) - (_%__kont8220182202%_)))) - (_%__kont8220182202%_)) - (_%__kont8220182202%_)) + (_%__kont8319383194%_)))) + (_%__kont8319383194%_)) + (_%__kont8319383194%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8220182202%_)))) - (_%__kont8220182202%_)))))))) - (if (gx#stx-pair? _%__stx8246482465%_) + (_%__kont8319383194%_)))) + (_%__kont8319383194%_)))))))) + (if (gx#stx-pair? _%__stx8345683457%_) (let ((_%e7398875294%_ - (gx#syntax-e _%__stx8246482465%_))) + (gx#syntax-e _%__stx8345683457%_))) (let ((_%tl7399075301%_ (let () (declare (not safe)) @@ -8876,19 +8872,19 @@ (##car _%e7398875294%_)))) (if (gx#identifier? _%hd7398975298%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83059_| + |gerbil/core/contract~TypedDefinitions[1]#_g84181_| _%hd7398975298%_) - (_%__kont8246782468%_) + (_%__kont8345983460%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83060_| + |gerbil/core/contract~TypedDefinitions[1]#_g84182_| _%hd7398975298%_) - (_%__kont8246982470%_) + (_%__kont8346183462%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83061_| + |gerbil/core/contract~TypedDefinitions[1]#_g84183_| _%hd7398975298%_) - (_%__kont8247182472%_) + (_%__kont8346383464%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83062_| + |gerbil/core/contract~TypedDefinitions[1]#_g84184_| _%hd7398975298%_) (if (gx#stx-pair? _%tl7399075301%_) @@ -8916,23 +8912,23 @@ (##car _%e7400474730%_)))) (if (gx#identifier? _%hd7400574734%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83063_| + |gerbil/core/contract~TypedDefinitions[1]#_g84185_| _%hd7400574734%_) - (_%__kont8247382474%_ _%hd7400274724%_) + (_%__kont8346583466%_ _%hd7400274724%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83064_| + |gerbil/core/contract~TypedDefinitions[1]#_g84186_| _%hd7400574734%_) - (_%__kont8247582476%_ + (_%__kont8346783468%_ _%hd7400274724%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g83065_| + |gerbil/core/contract~TypedDefinitions[1]#_g84187_| _%hd7400574734%_) - (_%__kont8247782478%_ + (_%__kont8346983470%_ _%hd7400274724%_) - (_%__kont8247982480%_ + (_%__kont8347183472%_ _%hd7400274724%_)))) - (_%__kont8247982480%_ _%hd7400274724%_)))) - (_%__kont8247982480%_ _%hd7400274724%_)))) + (_%__kont8347183472%_ _%hd7400274724%_)))) + (_%__kont8347183472%_ _%hd7400274724%_)))) (let () (declare (not safe)) (_%g7398674039%_))) (let () (declare (not safe)) (_%g7398674039%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -8998,149 +8994,149 @@ _%id73872%_))))) (_%order-slots69476%_ (lambda (_%slots73800%_ _%super73802%_) - (let ((_g83066_ + (let ((_g84188_ (c4-linearize '() _%super73802%_ 'get-precedence-list: (lambda (_%klass-id73804%_) (cons _%klass-id73804%_ - (let ((__tmp83068 + (let ((__tmp84190 (_%syntax-local-value/context69475%_ _%klass-id73804%_))) (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - __tmp83068)))) + __tmp84190)))) 'struct: (lambda (_%klass-id73807%_) - (let ((__obj82781 + (let ((__obj83903 (_%syntax-local-value/context69475%_ _%klass-id73807%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82781 + __obj83903 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82781 + __obj83903 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82781 + __obj83903 'struct?)))) 'eq: gx#free-identifier=? 'get-name: gx#stx-e))) (begin - (let ((_g83067_ + (let ((_g84189_ (let () (declare (not safe)) - (if (##values? _g83066_) - (##vector-length _g83066_) + (if (##values? _g84188_) + (##vector-length _g84188_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83067_ 2))) - (error "Context expects 2 values" _g83067_))) + (##fx= _g84189_ 2))) + (error "Context expects 2 values" _g84189_))) (let ((_%precedence-list73810%_ (let () (declare (not safe)) - (##vector-ref _g83066_ 0))) + (##vector-ref _g84188_ 0))) (_%base-struct73812%_ (let () (declare (not safe)) - (##vector-ref _g83066_ 1)))) + (##vector-ref _g84188_ 1)))) (let* ((_%base-fields73826%_ (if _%base-struct73812%_ (let* ((_%klass73814%_ (gx#syntax-local-value _%base-struct73812%_)) (_%$e73817%_ - (let ((__obj82782 + (let ((__obj83904 _%klass73814%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82782 + __obj83904 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82782 + __obj83904 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82782 + __obj83904 'ordered-slots))))) (if _%$e73817%_ _%$e73817%_ (let ((_%ordered73823%_ (_%order-slots69476%_ - (let ((__obj82783 + (let ((__obj83905 _%klass73814%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82783 + __obj83905 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82783 + __obj83905 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82783 + __obj83905 'slots))) - (let ((__obj82784 + (let ((__obj83906 _%klass73814%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82784 + __obj83906 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82784 + __obj83906 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82784 + __obj83906 'super)))))) - (let ((__obj82785 + (let ((__obj83907 _%klass73814%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82785 + __obj83907 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82785 + __obj83907 _%ordered73823%_ '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj82785 + __obj83907 'ordered-slots _%ordered73823%_))) _%ordered73823%_))) @@ -9175,41 +9171,41 @@ (lambda (_%mixin73851%_) (let ((_%klass73854%_ (gx#syntax-local-value _%mixin73851%_))) - (if (let ((__obj82786 _%klass73854%_)) + (if (let ((__obj83908 _%klass73854%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82786 + __obj83908 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82786 + __obj83908 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82786 + __obj83908 'struct?))) '#!void (let ((_%$e73857%_ - (let ((__obj82787 _%klass73854%_)) + (let ((__obj83909 _%klass73854%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82787 + __obj83909 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82787 + __obj83909 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82787 + __obj83909 'ordered-slots))))) (if _%$e73857%_ ((lambda (_%ordered73861%_) @@ -9219,59 +9215,59 @@ _%$e73857%_) (let ((_%ordered73866%_ (_%order-slots69476%_ - (let ((__obj82788 + (let ((__obj83910 _%klass73854%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82788 + __obj83910 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82788 + __obj83910 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82788 + __obj83910 'slots))) - (let ((__obj82789 + (let ((__obj83911 _%klass73854%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82789 + __obj83911 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82789 + __obj83911 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82789 + __obj83911 'super)))))) - (let ((__obj82790 _%klass73854%_)) + (let ((__obj83912 _%klass73854%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82790 + __obj83912 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82790 + __obj83912 _%ordered73866%_ '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj82790 + __obj83912 'ordered-slots _%ordered73866%_))) (for-each @@ -9307,27 +9303,27 @@ _%stx69454%_ _%slots69615%_)) (_%check-typedef-body!69459%_ _%body69616%_) - (let ((_g83069_ + (let ((_g84191_ (_%get-mixin-slots69470%_ _%super-ref69614%_))) (begin - (let ((_g83070_ + (let ((_g84192_ (let () (declare (not safe)) - (if (##values? _g83069_) - (##vector-length _g83069_) + (if (##values? _g84191_) + (##vector-length _g84191_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83070_ 2))) - (error "Context expects 2 values" _g83070_))) + (##fx= _g84192_ 2))) + (error "Context expects 2 values" _g84192_))) (let ((_%mixin-slots69621%_ (let () (declare (not safe)) - (##vector-ref _g83069_ 0))) + (##vector-ref _g84191_ 0))) (_%slot-type-table69623%_ (let () (declare (not safe)) - (##vector-ref _g83069_ 1)))) + (##vector-ref _g84191_ 1)))) (let* ((_%slot-contract-table69625%_ (_%get-slot-contracts69472%_ _%slots69615%_ @@ -9416,30 +9412,30 @@ (_%g6980373770%_ (lambda (_%g6980569825%_) (if (gx#stx-pair/null? _%g6980569825%_) - (let ((_g83071_ + (let ((_g84193_ (gx#syntax-split-splice _%g6980569825%_ '0))) (begin - (let ((_g83072_ + (let ((_g84194_ (let () (declare (not safe)) - (if (##values? _g83071_) - (##vector-length _g83071_) + (if (##values? _g84193_) + (##vector-length _g84193_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83072_ 2))) + (##fx= _g84194_ 2))) (error "Context expects 2 values" - _g83072_))) + _g84194_))) (let ((_%target6980769828%_ (let () (declare (not safe)) - (##vector-ref _g83071_ 0))) + (##vector-ref _g84193_ 0))) (_%tl6980969831%_ (let () (declare (not safe)) - (##vector-ref _g83071_ 1)))) + (##vector-ref _g84193_ 1)))) (if (gx#stx-null? _%tl6980969831%_) (letrec ((_%loop6981069834%_ (lambda (_%hd6980869838%_ @@ -9470,30 +9466,30 @@ (_%g6987473766%_ (lambda (_%g6987669896%_) (if (gx#stx-pair/null? _%g6987669896%_) - (let ((_g83073_ + (let ((_g84195_ (gx#syntax-split-splice _%g6987669896%_ '0))) (begin - (let ((_g83074_ + (let ((_g84196_ (let () (declare (not safe)) - (if (##values? _g83073_) - (##vector-length _g83073_) + (if (##values? _g84195_) + (##vector-length _g84195_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83074_ 2))) + (##fx= _g84196_ 2))) (error "Context expects 2 values" - _g83074_))) + _g84196_))) (let ((_%target6987869899%_ (let () (declare (not safe)) - (##vector-ref _g83073_ 0))) + (##vector-ref _g84195_ 0))) (_%tl6988069902%_ (let () (declare (not safe)) - (##vector-ref _g83073_ 1)))) + (##vector-ref _g84195_ 1)))) (if (gx#stx-null? _%tl6988069902%_) (letrec ((_%loop6988169905%_ (lambda (_%hd6987969909%_ @@ -9527,32 +9523,32 @@ (_%g6994573757%_ (lambda (_%g6994769967%_) (if (gx#stx-pair/null? _%g6994769967%_) - (let ((_g83075_ + (let ((_g84197_ (gx#syntax-split-splice _%g6994769967%_ '0))) (begin - (let ((_g83076_ + (let ((_g84198_ (let () (declare (not safe)) - (if (##values? _g83075_) + (if (##values? _g84197_) (##vector-length - _g83075_) + _g84197_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83076_ 2))) + (##fx= _g84198_ 2))) (error "Context expects 2 values" - _g83076_))) + _g84198_))) (let ((_%target6994969970%_ (let () (declare (not safe)) - (##vector-ref _g83075_ 0))) + (##vector-ref _g84197_ 0))) (_%tl6995169973%_ (let () (declare (not safe)) (##vector-ref - _g83075_ + _g84197_ 1)))) (if (gx#stx-null? _%tl6995169973%_) @@ -9586,38 +9582,38 @@ (_%g7001673748%_ (lambda (_%g7001870038%_) (if (gx#stx-pair/null? _%g7001870038%_) - (let ((_g83077_ + (let ((_g84199_ (gx#syntax-split-splice _%g7001870038%_ '0))) (begin - (let ((_g83078_ + (let ((_g84200_ (let () (declare (not safe)) (if (##values? - _g83077_) + _g84199_) (##vector-length - _g83077_) + _g84199_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83078_ + (##fx= _g84200_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g83078_))) + (error "Context expects 2 values" _g84200_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target7002070041%_ (let () (declare (not safe)) (##vector-ref - _g83077_ + _g84199_ 0))) (_%tl7002270044%_ (let () (declare (not safe)) (##vector-ref - _g83077_ + _g84199_ 1)))) (if (gx#stx-null? _%tl7002270044%_) @@ -9653,36 +9649,36 @@ (lambda (_%g7008970109%_) (if (gx#stx-pair/null? _%g7008970109%_) - (let ((_g83079_ + (let ((_g84201_ (gx#syntax-split-splice _%g7008970109%_ '0))) (begin - (let ((_g83080_ + (let ((_g84202_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g83079_) - (##vector-length _g83079_) + _g84201_) + (##vector-length _g84201_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g83080_ 2))) - (error "Context expects 2 values" _g83080_))) + (if (not (let () (declare (not safe)) (##fx= _g84202_ 2))) + (error "Context expects 2 values" _g84202_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target7009170112%_ (let () (declare (not safe)) (##vector-ref - _g83079_ + _g84201_ 0))) (_%tl7009370115%_ (let () (declare (not safe)) (##vector-ref - _g83079_ + _g84201_ 1)))) (if (gx#stx-null? _%tl7009370115%_) @@ -9717,28 +9713,28 @@ (lambda (_%g7016070180%_) (if (gx#stx-pair/null? _%g7016070180%_) - (let ((_g83081_ + (let ((_g84203_ (gx#syntax-split-splice _%g7016070180%_ '0))) (begin - (let ((_g83082_ + (let ((_g84204_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g83081_) - (##vector-length _g83081_) + (if (##values? _g84203_) + (##vector-length _g84203_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g83082_ 2))) - (error "Context expects 2 values" _g83082_))) + (if (not (let () (declare (not safe)) (##fx= _g84204_ 2))) + (error "Context expects 2 values" _g84204_))) (let ((_%target7016270183%_ (let () (declare (not safe)) - (##vector-ref _g83081_ 0))) + (##vector-ref _g84203_ 0))) (_%tl7016470186%_ (let () (declare (not safe)) - (##vector-ref _g83081_ 1)))) + (##vector-ref _g84203_ 1)))) (if (gx#stx-null? _%tl7016470186%_) (letrec ((_%loop7016570189%_ (lambda (_%hd7016370193%_ @@ -9771,28 +9767,28 @@ (lambda (_%g7023170251%_) (if (gx#stx-pair/null? _%g7023170251%_) - (let ((_g83083_ + (let ((_g84205_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%g7023170251%_ '0))) (begin - (let ((_g83084_ + (let ((_g84206_ (let () (declare (not safe)) - (if (##values? _g83083_) - (##vector-length _g83083_) + (if (##values? _g84205_) + (##vector-length _g84205_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83084_ 2))) - (error "Context expects 2 values" _g83084_))) + (##fx= _g84206_ 2))) + (error "Context expects 2 values" _g84206_))) (let ((_%target7023370254%_ (let () (declare (not safe)) - (##vector-ref _g83083_ 0))) + (##vector-ref _g84205_ 0))) (_%tl7023570257%_ (let () (declare (not safe)) - (##vector-ref _g83083_ 1)))) + (##vector-ref _g84205_ 1)))) (if (gx#stx-null? _%tl7023570257%_) (letrec ((_%loop7023670260%_ (lambda (_%hd7023470264%_ @@ -9827,27 +9823,27 @@ (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%g7030270322%_) - (let ((_g83085_ + (let ((_g84207_ (gx#syntax-split-splice _%g7030270322%_ '0))) (begin - (let ((_g83086_ + (let ((_g84208_ (let () (declare (not safe)) - (if (##values? _g83085_) - (##vector-length _g83085_) + (if (##values? _g84207_) + (##vector-length _g84207_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83086_ 2))) - (error "Context expects 2 values" _g83086_))) + (##fx= _g84208_ 2))) + (error "Context expects 2 values" _g84208_))) (let ((_%target7030470325%_ (let () (declare (not safe)) - (##vector-ref _g83085_ 0))) + (##vector-ref _g84207_ 0))) (_%tl7030670328%_ (let () (declare (not safe)) - (##vector-ref _g83085_ 1)))) + (##vector-ref _g84207_ 1)))) (if (gx#stx-null? _%tl7030670328%_) (letrec ((_%loop7030770331%_ (lambda (_%hd7030570335%_ @@ -9884,30 +9880,30 @@ (_%g7037173708%_ (lambda (_%g7037370393%_) (if (gx#stx-pair/null? _%g7037370393%_) - (let ((_g83087_ + (let ((_g84209_ (gx#syntax-split-splice _%g7037370393%_ '0))) (begin - (let ((_g83088_ + (let ((_g84210_ (let () (declare (not safe)) - (if (##values? _g83087_) - (##vector-length _g83087_) + (if (##values? _g84209_) + (##vector-length _g84209_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83088_ 2))) + (##fx= _g84210_ 2))) (error "Context expects 2 values" - _g83088_))) + _g84210_))) (let ((_%target7037570396%_ (let () (declare (not safe)) - (##vector-ref _g83087_ 0))) + (##vector-ref _g84209_ 0))) (_%tl7037770399%_ (let () (declare (not safe)) - (##vector-ref _g83087_ 1)))) + (##vector-ref _g84209_ 1)))) (if (gx#stx-null? _%tl7037770399%_) (letrec ((_%loop7037870402%_ (lambda (_%hd7037670406%_ @@ -9939,30 +9935,30 @@ (_%g7044273691%_ (lambda (_%g7044470464%_) (if (gx#stx-pair/null? _%g7044470464%_) - (let ((_g83089_ + (let ((_g84211_ (gx#syntax-split-splice _%g7044470464%_ '0))) (begin - (let ((_g83090_ + (let ((_g84212_ (let () (declare (not safe)) - (if (##values? _g83089_) - (##vector-length _g83089_) + (if (##values? _g84211_) + (##vector-length _g84211_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83090_ 2))) + (##fx= _g84212_ 2))) (error "Context expects 2 values" - _g83090_))) + _g84212_))) (let ((_%target7044670467%_ (let () (declare (not safe)) - (##vector-ref _g83089_ 0))) + (##vector-ref _g84211_ 0))) (_%tl7044870470%_ (let () (declare (not safe)) - (##vector-ref _g83089_ 1)))) + (##vector-ref _g84211_ 1)))) (if (gx#stx-null? _%tl7044870470%_) (letrec ((_%loop7044970473%_ (lambda (_%hd7044770477%_ @@ -9994,32 +9990,32 @@ (_%g7051373674%_ (lambda (_%g7051570535%_) (if (gx#stx-pair/null? _%g7051570535%_) - (let ((_g83091_ + (let ((_g84213_ (gx#syntax-split-splice _%g7051570535%_ '0))) (begin - (let ((_g83092_ + (let ((_g84214_ (let () (declare (not safe)) - (if (##values? _g83091_) + (if (##values? _g84213_) (##vector-length - _g83091_) + _g84213_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83092_ 2))) + (##fx= _g84214_ 2))) (error "Context expects 2 values" - _g83092_))) + _g84214_))) (let ((_%target7051770538%_ (let () (declare (not safe)) - (##vector-ref _g83091_ 0))) + (##vector-ref _g84213_ 0))) (_%tl7051970541%_ (let () (declare (not safe)) (##vector-ref - _g83091_ + _g84213_ 1)))) (if (gx#stx-null? _%tl7051970541%_) @@ -10053,38 +10049,38 @@ (_%g7058473657%_ (lambda (_%g7058670606%_) (if (gx#stx-pair/null? _%g7058670606%_) - (let ((_g83093_ + (let ((_g84215_ (gx#syntax-split-splice _%g7058670606%_ '0))) (begin - (let ((_g83094_ + (let ((_g84216_ (let () (declare (not safe)) (if (##values? - _g83093_) + _g84215_) (##vector-length - _g83093_) + _g84215_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83094_ + (##fx= _g84216_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g83094_))) + (error "Context expects 2 values" _g84216_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target7058870609%_ (let () (declare (not safe)) (##vector-ref - _g83093_ + _g84215_ 0))) (_%tl7059070612%_ (let () (declare (not safe)) (##vector-ref - _g83093_ + _g84215_ 1)))) (if (gx#stx-null? _%tl7059070612%_) @@ -10120,36 +10116,36 @@ (lambda (_%g7065770677%_) (if (gx#stx-pair/null? _%g7065770677%_) - (let ((_g83095_ + (let ((_g84217_ (gx#syntax-split-splice _%g7065770677%_ '0))) (begin - (let ((_g83096_ + (let ((_g84218_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g83095_) - (##vector-length _g83095_) + _g84217_) + (##vector-length _g84217_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g83096_ 2))) - (error "Context expects 2 values" _g83096_))) + (if (not (let () (declare (not safe)) (##fx= _g84218_ 2))) + (error "Context expects 2 values" _g84218_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target7065970680%_ (let () (declare (not safe)) (##vector-ref - _g83095_ + _g84217_ 0))) (_%tl7066170683%_ (let () (declare (not safe)) (##vector-ref - _g83095_ + _g84217_ 1)))) (if (gx#stx-null? _%tl7066170683%_) @@ -10551,28 +10547,28 @@ (lambda (_%g7116871188%_) (if (gx#stx-pair/null? _%g7116871188%_) - (let ((_g83097_ + (let ((_g84219_ (gx#syntax-split-splice _%g7116871188%_ '0))) (begin - (let ((_g83098_ + (let ((_g84220_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g83097_) - (##vector-length _g83097_) + (if (##values? _g84219_) + (##vector-length _g84219_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g83098_ 2))) - (error "Context expects 2 values" _g83098_))) + (if (not (let () (declare (not safe)) (##fx= _g84220_ 2))) + (error "Context expects 2 values" _g84220_))) (let ((_%target7117071191%_ (let () (declare (not safe)) - (##vector-ref _g83097_ 0))) + (##vector-ref _g84219_ 0))) (_%tl7117271194%_ (let () (declare (not safe)) - (##vector-ref _g83097_ 1)))) + (##vector-ref _g84219_ 1)))) (if (gx#stx-null? _%tl7117271194%_) (letrec ((_%loop7117371197%_ (lambda (_%hd7117171201%_ @@ -10840,31 +10836,31 @@ (_%g7189471976%_ (lambda (_%g7189671916%_) (if (gx#stx-pair/null? _%g7189671916%_) - (let ((_g83099_ + (let ((_g84221_ (gx#syntax-split-splice _%g7189671916%_ '0))) (begin - (let ((_g83100_ + (let ((_g84222_ (let () (declare (not safe)) - (if (##values? _g83099_) + (if (##values? _g84221_) (##vector-length - _g83099_) + _g84221_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83100_ 2))) + (##fx= _g84222_ 2))) (error "Context expects 2 values" - _g83100_))) + _g84222_))) (let ((_%target7189871919%_ (let () (declare (not safe)) - (##vector-ref _g83099_ 0))) + (##vector-ref _g84221_ 0))) (_%tl7190071922%_ (let () (declare (not safe)) - (##vector-ref _g83099_ 1)))) + (##vector-ref _g84221_ 1)))) (if (gx#stx-null? _%tl7190071922%_) (letrec ((_%loop7190171925%_ (lambda (_%hd7189971929%_ @@ -10907,7 +10903,7 @@ _%g7189671916%_))))) (_%g7189571912%_ _%g7189671916%_))))) (_%g7189471976%_ - (let ((__tmp83101 + (let ((__tmp84223 (map (lambda (_%slot71980%_ _%setf71982%_ _%rawsetf71983%_) @@ -11042,7 +11038,7 @@ '() _%L70142%_)))) (declare (not safe)) - (##filter identity __tmp83101))))) + (##filter identity __tmp84223))))) _%g7186871879%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%g7186672120%_ @@ -11167,32 +11163,32 @@ (declare (not safe)) (##cdr _%e7222772261%_)))) (if (gx#stx-pair/null? _%hd7222872265%_) - (let ((_g83102_ + (let ((_g84224_ (gx#syntax-split-splice _%hd7222872265%_ '0))) (begin - (let ((_g83103_ + (let ((_g84225_ (let () (declare (not safe)) - (if (##values? _g83102_) + (if (##values? _g84224_) (##vector-length - _g83102_) + _g84224_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83103_ 2))) + (##fx= _g84225_ 2))) (error "Context expects 2 values" - _g83103_))) + _g84225_))) (let ((_%target7223072271%_ (let () (declare (not safe)) - (##vector-ref _g83102_ 0))) + (##vector-ref _g84224_ 0))) (_%tl7223272274%_ (let () (declare (not safe)) (##vector-ref - _g83102_ + _g84224_ 1)))) (if (gx#stx-null? _%tl7223272274%_) @@ -11370,32 +11366,32 @@ (declare (not safe)) (##cdr _%e7244472490%_)))) (if (gx#stx-pair/null? _%hd7244572494%_) - (let ((_g83104_ + (let ((_g84226_ (gx#syntax-split-splice _%hd7244572494%_ '0))) (begin - (let ((_g83105_ + (let ((_g84227_ (let () (declare (not safe)) - (if (##values? _g83104_) + (if (##values? _g84226_) (##vector-length - _g83104_) + _g84226_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83105_ 2))) + (##fx= _g84227_ 2))) (error "Context expects 2 values" - _g83105_))) + _g84227_))) (let ((_%target7244772500%_ (let () (declare (not safe)) - (##vector-ref _g83104_ 0))) + (##vector-ref _g84226_ 0))) (_%tl7244972503%_ (let () (declare (not safe)) (##vector-ref - _g83104_ + _g84226_ 1)))) (if (gx#stx-null? _%tl7244972503%_) @@ -11432,32 +11428,32 @@ (declare (not safe)) (##cdr _%e7245672530%_)))) (if (gx#stx-pair/null? _%hd7245772534%_) - (let ((_g83106_ + (let ((_g84228_ (gx#syntax-split-splice _%hd7245772534%_ '0))) (begin - (let ((_g83107_ + (let ((_g84229_ (let () (declare (not safe)) - (if (##values? _g83106_) + (if (##values? _g84228_) (##vector-length - _g83106_) + _g84228_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83107_ 2))) + (##fx= _g84229_ 2))) (error "Context expects 2 values" - _g83107_))) + _g84229_))) (let ((_%target7245972540%_ (let () (declare (not safe)) - (##vector-ref _g83106_ 0))) + (##vector-ref _g84228_ 0))) (_%tl7246172543%_ (let () (declare (not safe)) (##vector-ref - _g83106_ + _g84228_ 1)))) (if (gx#stx-null? _%tl7246172543%_) @@ -11632,25 +11628,25 @@ (##cdr _%e7264672682%_)))) (if (gx#stx-pair/null? _%hd7264772686%_) - (let ((_g83108_ + (let ((_g84230_ (gx#syntax-split-splice _%hd7264772686%_ '0))) (begin - (let ((_g83109_ + (let ((_g84231_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g83108_) - (##vector-length _g83108_) + (if (##values? _g84230_) + (##vector-length _g84230_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g83109_ 2))) - (error "Context expects 2 values" _g83109_))) + (if (not (let () (declare (not safe)) (##fx= _g84231_ 2))) + (error "Context expects 2 values" _g84231_))) (let ((_%target7264972692%_ - (let () (declare (not safe)) (##vector-ref _g83108_ 0))) + (let () (declare (not safe)) (##vector-ref _g84230_ 0))) (_%tl7265172695%_ - (let () (declare (not safe)) (##vector-ref _g83108_ 1)))) + (let () (declare (not safe)) (##vector-ref _g84230_ 1)))) (if (gx#stx-null? _%tl7265172695%_) (letrec ((_%loop7265272698%_ (lambda (_%hd7265072702%_ @@ -11686,25 +11682,25 @@ (##cdr _%e7265872722%_)))) (if (gx#stx-pair/null? _%hd7265972726%_) - (let ((_g83110_ + (let ((_g84232_ (gx#syntax-split-splice _%hd7265972726%_ '0))) (begin - (let ((_g83111_ + (let ((_g84233_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g83110_) - (##vector-length _g83110_) + (if (##values? _g84232_) + (##vector-length _g84232_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g83111_ 2))) - (error "Context expects 2 values" _g83111_))) + (if (not (let () (declare (not safe)) (##fx= _g84233_ 2))) + (error "Context expects 2 values" _g84233_))) (let ((_%target7266172732%_ - (let () (declare (not safe)) (##vector-ref _g83110_ 0))) + (let () (declare (not safe)) (##vector-ref _g84232_ 0))) (_%tl7266372735%_ - (let () (declare (not safe)) (##vector-ref _g83110_ 1)))) + (let () (declare (not safe)) (##vector-ref _g84232_ 1)))) (if (gx#stx-null? _%tl7266372735%_) (letrec ((_%loop7266472738%_ (lambda (_%hd7266272742%_ @@ -12054,28 +12050,28 @@ (lambda (_%g7306573091%_) (if (gx#stx-pair/null? _%g7306573091%_) - (let ((_g83112_ + (let ((_g84234_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%g7306573091%_ '0))) (begin - (let ((_g83113_ + (let ((_g84235_ (let () (declare (not safe)) - (if (##values? _g83112_) - (##vector-length _g83112_) + (if (##values? _g84234_) + (##vector-length _g84234_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83113_ 2))) - (error "Context expects 2 values" _g83113_))) + (##fx= _g84235_ 2))) + (error "Context expects 2 values" _g84235_))) (let ((_%target7306873094%_ (let () (declare (not safe)) - (##vector-ref _g83112_ 0))) + (##vector-ref _g84234_ 0))) (_%tl7307073097%_ (let () (declare (not safe)) - (##vector-ref _g83112_ 1)))) + (##vector-ref _g84234_ 1)))) (if (gx#stx-null? _%tl7307073097%_) (letrec ((_%loop7307173100%_ (lambda (_%hd7306973104%_ @@ -12172,37 +12168,37 @@ (lambda (_%g7317673202%_) (if (gx#stx-pair/null? _%g7317673202%_) - (let ((_g83114_ + (let ((_g84236_ (gx#syntax-split-splice _%g7317673202%_ '0))) (begin - (let ((_g83115_ + (let ((_g84237_ (let () (declare (not safe)) (if (##values? - _g83114_) + _g84236_) (##vector-length - _g83114_) + _g84236_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g83115_ 2))) - (error "Context expects 2 values" _g83115_))) + (##fx= _g84237_ 2))) + (error "Context expects 2 values" _g84237_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target7317973205%_ (let () (declare (not safe)) (##vector-ref - _g83114_ + _g84236_ 0))) (_%tl7318173208%_ (let () (declare (not safe)) (##vector-ref - _g83114_ + _g84236_ 1)))) (if (gx#stx-null? _%tl7318173208%_) @@ -12290,30 +12286,30 @@ (_%g7328573389%_ (lambda (_%g7328773313%_) (if (gx#stx-pair/null? _%g7328773313%_) - (let ((_g83116_ + (let ((_g84238_ (gx#syntax-split-splice _%g7328773313%_ '0))) (begin - (let ((_g83117_ + (let ((_g84239_ (let () (declare (not safe)) - (if (##values? _g83116_) - (##vector-length _g83116_) + (if (##values? _g84238_) + (##vector-length _g84238_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83117_ 2))) + (##fx= _g84239_ 2))) (error "Context expects 2 values" - _g83117_))) + _g84239_))) (let ((_%target7329073316%_ (let () (declare (not safe)) - (##vector-ref _g83116_ 0))) + (##vector-ref _g84238_ 0))) (_%tl7329273319%_ (let () (declare (not safe)) - (##vector-ref _g83116_ 1)))) + (##vector-ref _g84238_ 1)))) (if (gx#stx-null? _%tl7329273319%_) (letrec ((_%loop7329373322%_ (lambda (_%hd7329173326%_ @@ -12424,30 +12420,30 @@ (_%g7342373502%_ (lambda (_%g7342573445%_) (if (gx#stx-pair/null? _%g7342573445%_) - (let ((_g83118_ + (let ((_g84240_ (gx#syntax-split-splice _%g7342573445%_ '0))) (begin - (let ((_g83119_ + (let ((_g84241_ (let () (declare (not safe)) - (if (##values? _g83118_) - (##vector-length _g83118_) + (if (##values? _g84240_) + (##vector-length _g84240_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83119_ 2))) + (##fx= _g84241_ 2))) (error "Context expects 2 values" - _g83119_))) + _g84241_))) (let ((_%target7342773448%_ (let () (declare (not safe)) - (##vector-ref _g83118_ 0))) + (##vector-ref _g84240_ 0))) (_%tl7342973451%_ (let () (declare (not safe)) - (##vector-ref _g83118_ 1)))) + (##vector-ref _g84240_ 1)))) (if (gx#stx-null? _%tl7342973451%_) (letrec ((_%loop7343073454%_ (lambda (_%hd7342873458%_ @@ -12860,36 +12856,36 @@ (##cdr _%e6949169535%_)))) (if (gx#stx-pair/null? _%hd6949269539%_) - (let ((_g83120_ + (let ((_g84242_ (gx#syntax-split-splice _%hd6949269539%_ '0))) (begin - (let ((_g83121_ + (let ((_g84243_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g83120_) - (##vector-length _g83120_) + _g84242_) + (##vector-length _g84242_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g83121_ 2))) - (error "Context expects 2 values" _g83121_))) + (if (not (let () (declare (not safe)) (##fx= _g84243_ 2))) + (error "Context expects 2 values" _g84243_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target6949469545%_ (let () (declare (not safe)) (##vector-ref - _g83120_ + _g84242_ 0))) (_%tl6949669548%_ (let () (declare (not safe)) (##vector-ref - _g83120_ + _g84242_ 1)))) (if (gx#stx-null? _%tl6949669548%_) @@ -12996,52 +12992,869 @@ (_%g7680476823%_ _%g7680576827%_)))) (_%g7680476823%_ _%g7680576827%_))))) (_%g7680376880%_ _%$stx76800%_)))) - (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable*| + (define |gerbil/core/contract~TypedDefinitions[:0:]#do/c| (lambda (_%stx76884%_) - (let* ((_%__stx8260882609%_ _%stx76884%_) - (_%g7688876922%_ + (let* ((_%g7688776958%_ + (lambda (_%g7688876954%_) + (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%_ + (let () + (declare (not safe)) + (##car _%e7689576965%_))) + (_%tl7689776972%_ + (let () + (declare (not safe)) + (##cdr _%e7689576965%_)))) + (if (gx#stx-pair? _%tl7689776972%_) + (let ((_%e7689876975%_ + (gx#syntax-e _%tl7689776972%_))) + (let ((_%hd7689976979%_ + (let () + (declare (not safe)) + (##car _%e7689876975%_))) + (_%tl7690076982%_ + (let () + (declare (not safe)) + (##cdr _%e7689876975%_)))) + (if (gx#stx-pair/null? _%hd7689976979%_) + (let ((_g84244_ + (gx#syntax-split-splice + _%hd7689976979%_ + '0))) + (begin + (let ((_g84245_ + (let () + (declare (not safe)) + (if (##values? _g84244_) + (##vector-length + _g84244_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g84245_ 2))) + (error "Context expects 2 values" + _g84245_))) + (let ((_%target7690176985%_ + (let () + (declare (not safe)) + (##vector-ref _g84244_ 0))) + (_%tl7690376988%_ + (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%_ + (let () + (declare (not safe)) + (##car _%e7690577005%_))) + (_%lp-tl7690777012%_ + (let () + (declare (not safe)) + (##cdr _%e7690577005%_)))) + (if (gx#stx-pair? _%lp-hd7690677009%_) + (let ((_%e7693877015%_ + (gx#syntax-e _%lp-hd7690677009%_))) + (let ((_%hd7693977019%_ + (let () + (declare (not safe)) + (##car _%e7693877015%_))) + (_%tl7694077022%_ + (let () + (declare (not safe)) + (##cdr _%e7693877015%_)))) + (if (gx#stx-pair? _%tl7694077022%_) + (let ((_%e7694177025%_ + (gx#syntax-e _%tl7694077022%_))) + (let ((_%hd7694277029%_ + (let () + (declare (not safe)) + (##car _%e7694177025%_))) + (_%tl7694377032%_ + (let () + (declare (not safe)) + (##cdr _%e7694177025%_)))) + (if (gx#stx-pair/null? + _%tl7694377032%_) + (let ((_g84246_ + (gx#syntax-split-splice + _%tl7694377032%_ + '0))) + (begin + (let ((_g84247_ + (let () + (declare + (not safe)) + (if (##values? +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g84246_) + (##vector-length _g84246_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g84247_ 2))) + (error "Context expects 2 values" _g84247_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%target7694477035%_ + (let () + (declare + (not safe)) + (##vector-ref + _g84246_ + 0))) + (_%tl7694677038%_ + (let () + (declare + (not safe)) + (##vector-ref + _g84246_ + 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%_ + (let () + (declare (not safe)) + (##car _%e7694877051%_))) + (_%lp-tl7695077058%_ + (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%_ + (let () + (declare (not safe)) + (##car _%e7691477073%_))) + (_%tl7691677080%_ + (let () + (declare (not safe)) + (##cdr _%e7691477073%_)))) + (if (gx#stx-pair? _%hd7691577077%_) + (let ((_%e7691777083%_ + (gx#syntax-e _%hd7691577077%_))) + (let ((_%hd7691877087%_ + (let () + (declare (not safe)) + (##car _%e7691777083%_))) + (_%tl7691977090%_ + (let () + (declare (not safe)) + (##cdr _%e7691777083%_)))) + (if (gx#stx-pair/null? + _%tl7691977090%_) + (let ((_g84248_ + (gx#syntax-split-splice + _%tl7691977090%_ + '0))) + (begin + (let ((_g84249_ + (let () + (declare (not safe)) + (if (##values? + _g84248_) + (##vector-length + _g84248_) + 1)))) + (if (not (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##fx= _g84249_ 2))) + (error "Context expects 2 values" _g84249_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%target7692077093%_ + (let () + (declare (not safe)) + (##vector-ref + _g84248_ + 0))) + (_%tl7692277096%_ + (let () + (declare (not safe)) + (##vector-ref + _g84248_ + 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%_ + (let () + (declare (not safe)) + (##car _%e7692477109%_))) + (_%lp-tl7692677116%_ + (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_ + (gx#syntax-split-splice + _%tl7691677080%_ + '0))) + (begin + (let ((_g84251_ + (let () + (declare (not safe)) + (if (##values? _g84250_) + (##vector-length + _g84250_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g84251_ 2))) + (error "Context expects 2 values" + _g84251_))) + (let ((_%target7692977123%_ + (let () + (declare (not safe)) + (##vector-ref _g84250_ 0))) + (_%tl7693177126%_ + (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%_ + (let () + (declare (not safe)) + (##car _%e7693377139%_))) + (_%lp-tl7693577146%_ + (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%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7719477206%_))) + (_%g7719277309%_ + (lambda (_%g7719477214%_) + (if (gx#stx-pair/null? _%g7719477214%_) + (let ((_g84252_ + (gx#syntax-split-splice + _%g7719477214%_ + '0))) + (begin + (let ((_g84253_ + (let () + (declare (not safe)) + (if (##values? + _g84252_) + (##vector-length + _g84252_) + 1)))) + (if (not (let () + (declare + (not safe)) + (##fx= _g84253_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + 2))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (error "Context expects 2 values" + _g84253_))) + (let ((_%target7719677217%_ + (let () + (declare (not safe)) + (##vector-ref + _g84252_ + 0))) + (_%tl7719877220%_ + (let () + (declare (not safe)) + (##vector-ref + _g84252_ + 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%_ + (let () + (declare (not safe)) + (##car _%e7720077233%_))) + (_%lp-tl7720277240%_ + (let () + (declare (not safe)) + (##cdr _%e7720077233%_)))) + (_%loop7719977223%_ + _%lp-tl7720277240%_ + (cons _%lp-hd7720177237%_ + _%var7720377230%_)))) + (let ((_%var7720477243%_ + (reverse _%var7720377230%_))) + ((lambda (_%L77247%_) + (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%_)) + '() + _%L77158%_ + _%L77159%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'if) + (cons _%L77156%_ + (cons (cons (gx#datum->syntax + '#f + 'do-loop-result) + (foldr (lambda (_%g7726977283%_ + _%g7727077286%_) + (cons _%g7726977283%_ + _%g7727077286%_)) + '() + _%L77155%_)) + (cons (cons (gx#datum->syntax '#f 'let) + (cons '() + (foldr (lambda (_%g7726277289%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7726377292%_) + (cons _%g7726277289%_ _%g7726377292%_)) + (cons (cons (gx#datum->syntax '#f '$loop) + (begin + (gx#syntax-check-splice-targets + _%L77157%_ + _%L77247%_) + (foldr (lambda (_%g7726477295%_ + _%g7726577298%_ + _%g7726677300%_) + (cons (cons (gx#datum->syntax + '#f + 'do-loop-step) + (cons _%g7726577298%_ + (foldr (lambda (_%g7726777303%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7726877306%_) + (cons _%g7726777303%_ _%g7726877306%_)) + '() + _%g7726477295%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7726677300%_)) + '() + _%L77157%_ + _%L77247%_))) + '()) + _%L77153%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%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%_)) + '() + _%L77159%_))))) + _%body7693777149%_ + _%fini7692877119%_ + _%hd7691877087%_ + _%step7691177065%_ + _%init7691277068%_ + _%var/c7691377070%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7693277129%_ + _%target7692977123%_ + '())) + (_%g7688776958%_ + _%g7688876962%_))))) + (_%g7688776958%_ _%g7688876962%_))))))) + (_%loop7692377099%_ _%target7692077093%_ '())) + (_%g7688776958%_ _%g7688876962%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7688776958%_ + _%g7688876962%_)))) + (_%g7688776958%_ _%g7688876962%_)))) + (_%g7688776958%_ _%g7688876962%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7690476991%_ + _%target7690176985%_ + '() + '() + '())) + (_%g7688776958%_ + _%g7688876962%_))))) + (_%g7688776958%_ _%g7688876962%_)))) + (_%g7688776958%_ _%g7688876962%_)))) + (_%g7688776958%_ _%g7688876962%_))))) + (_%g7688677324%_ _%stx76884%_)))) + (define |gerbil/core/contract~TypedDefinitions[:0:]#do-loop-result| + (lambda (_%$stx77333%_) + (let* ((_%__stx8360083601%_ _%$stx77333%_) + (_%g7733977373%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx8360083601%_)))) + (let ((_%__kont8360383604%_ (lambda () '#!void)) + (_%__kont8360583606%_ (lambda (_%L77485%_) _%L77485%_)) + (_%__kont8360783608%_ + (lambda (_%L77430%_ _%L77432%_) + (cons (gx#datum->syntax '#f 'begin) + (cons _%L77432%_ + (foldr (lambda (_%g7744977452%_ _%g7745077455%_) + (cons _%g7744977452%_ _%g7745077455%_)) + '() + _%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%_ + (let () + (declare (not safe)) + (##cdr _%e7736377416%_))) + (_%lp-hd7736477420%_ + (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%_ + (let () + (declare (not safe)) + (##cdr _%e7734177505%_))) + (_%hd7734277509%_ + (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%_ + (let () + (declare (not safe)) + (##cdr _%e7734877475%_))) + (_%hd7734977479%_ + (let () + (declare (not safe)) + (##car _%e7734877475%_)))) + (if (gx#stx-null? _%tl7735077482%_) + (_%__kont8360583606%_ _%hd7734977479%_) + (if (gx#stx-pair/null? _%tl7735077482%_) + (let ((_%__splice8360983610%_ + (gx#syntax-split-splice + _%tl7735077482%_ + '0))) + (let ((_%tl7736177403%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8360983610%_ + '1))) + (_%target7735977400%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8360983610%_ + '0)))) + (if (gx#stx-null? + _%tl7736177403%_) + (_%__match8365383654%_ + _%e7734177505%_ + _%hd7734277509%_ + _%tl7734377512%_ + _%e7734877475%_ + _%hd7734977479%_ + _%tl7735077482%_ + _%__splice8360983610%_ + _%target7735977400%_ + _%tl7736177403%_) + (let () + (declare (not safe)) + (_%g7733977373%_))))) + (let () + (declare (not safe)) + (_%g7733977373%_)))))) + (let () + (declare (not safe)) + (_%g7733977373%_)))))) + (let () (declare (not safe)) (_%g7733977373%_)))))))) + (define |gerbil/core/contract~TypedDefinitions[:0:]#do-loop-step| + (lambda (_%$stx77524%_) + (let* ((_%__stx8365683657%_ _%$stx77524%_) + (_%g7753077576%_ + (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%_) + (cons (gx#datum->syntax '#f 'begin) + (cons _%L77645%_ + (foldr (lambda (_%g7766677669%_ _%g7766777672%_) + (cons _%g7766677669%_ _%g7766777672%_)) + '() + _%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%_ + (let () + (declare (not safe)) + (##cdr _%e7756677629%_))) + (_%lp-hd7756777633%_ + (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%_ + (let () + (declare (not safe)) + (##cdr _%e7753377736%_))) + (_%hd7753477740%_ + (let () + (declare (not safe)) + (##car _%e7753377736%_)))) + (if (gx#stx-pair? _%tl7753577743%_) + (let ((_%e7753677746%_ + (gx#syntax-e _%tl7753577743%_))) + (let ((_%tl7753877753%_ + (let () + (declare (not safe)) + (##cdr _%e7753677746%_))) + (_%hd7753777750%_ + (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%_ + (let () + (declare (not safe)) + (##cdr _%e7754777702%_))) + (_%hd7754877706%_ + (let () + (declare (not safe)) + (##car _%e7754777702%_)))) + (if (gx#stx-null? _%tl7754977709%_) + (_%__kont8366183662%_ + _%hd7754877706%_ + _%hd7753777750%_) + (if (gx#stx-pair/null? + _%tl7754977709%_) + (let ((_%__splice8366583666%_ + (gx#syntax-split-splice + _%tl7754977709%_ + '0))) + (let ((_%tl7756477616%_ + (let () + (declare + (not safe)) + (##vector-ref + _%__splice8366583666%_ + '1))) + (_%target7756277613%_ + (let () + (declare + (not safe)) + (##vector-ref + _%__splice8366583666%_ + '0)))) + (if (gx#stx-null? + _%tl7756477616%_) + (_%__match8372783728%_ + _%e7753377736%_ + _%hd7753477740%_ + _%tl7753577743%_ + _%e7753677746%_ + _%hd7753777750%_ + _%tl7753877753%_ + _%e7754777702%_ + _%hd7754877706%_ + _%tl7754977709%_ + _%__splice8366583666%_ + _%target7756277613%_ + _%tl7756477616%_) + (let () + (declare + (not safe)) + (_%g7753077576%_))))) + (let () + (declare (not safe)) + (_%g7753077576%_)))))) + (let () + (declare (not safe)) + (_%g7753077576%_)))))) + (let () (declare (not safe)) (_%g7753077576%_))))) + (let () (declare (not safe)) (_%g7753077576%_)))))))) + (define |gerbil/core/contract~TypedDefinitions[:0:]#do-while/c| + (lambda (_%$stx77774%_) + (let* ((_%g7777877801%_ + (lambda (_%g7777977797%_) + (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%_ + (let () + (declare (not safe)) + (##car _%e7778477808%_))) + (_%tl7778677815%_ + (let () + (declare (not safe)) + (##cdr _%e7778477808%_)))) + (if (gx#stx-pair? _%tl7778677815%_) + (let ((_%e7778777818%_ + (gx#syntax-e _%tl7778677815%_))) + (let ((_%hd7778877822%_ + (let () + (declare (not safe)) + (##car _%e7778777818%_))) + (_%tl7778977825%_ + (let () + (declare (not safe)) + (##cdr _%e7778777818%_)))) + (if (gx#stx-pair? _%tl7778977825%_) + (let ((_%e7779077828%_ + (gx#syntax-e _%tl7778977825%_))) + (let ((_%hd7779177832%_ + (let () + (declare (not safe)) + (##car _%e7779077828%_))) + (_%tl7779277835%_ + (let () + (declare (not safe)) + (##cdr _%e7779077828%_)))) + (if (gx#stx-pair? _%hd7779177832%_) + (let ((_%e7779377838%_ + (gx#syntax-e + _%hd7779177832%_))) + (let ((_%hd7779477842%_ + (let () + (declare (not safe)) + (##car _%e7779377838%_))) + (_%tl7779577845%_ + (let () + (declare (not safe)) + (##cdr _%e7779377838%_)))) + ((lambda (_%L77848%_ + _%L77850%_ + _%L77851%_ + _%L77852%_) + (cons (gx#datum->syntax + '#f + 'do/c) + (cons _%L77852%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (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%_)))) + (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable*| + (lambda (_%stx77876%_) + (let* ((_%__stx8373083731%_ _%stx77876%_) + (_%g7788077914%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8260882609%_)))) - (let ((_%__kont8261182612%_ - (lambda (_%L77024%_ _%L77026%_ _%L77027%_ _%L77028%_) - (let* ((_%g7705577070%_ - (lambda (_%g7705677066%_) + _%__stx8373083731%_)))) + (let ((_%__kont8373383734%_ + (lambda (_%L78016%_ _%L78018%_ _%L78019%_ _%L78020%_) + (let* ((_%g7804778062%_ + (lambda (_%g7804878058%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7705677066%_))) - (_%g7705477115%_ - (lambda (_%g7705677074%_) - (if (gx#stx-pair? _%g7705677074%_) - (let ((_%e7705977077%_ - (gx#syntax-e _%g7705677074%_))) - (let ((_%hd7706077081%_ + _%g7804878058%_))) + (_%g7804678107%_ + (lambda (_%g7804878066%_) + (if (gx#stx-pair? _%g7804878066%_) + (let ((_%e7805178069%_ + (gx#syntax-e _%g7804878066%_))) + (let ((_%hd7805278073%_ (let () (declare (not safe)) - (##car _%e7705977077%_))) - (_%tl7706177084%_ + (##car _%e7805178069%_))) + (_%tl7805378076%_ (let () (declare (not safe)) - (##cdr _%e7705977077%_)))) - (if (gx#stx-pair? _%tl7706177084%_) - (let ((_%e7706277087%_ + (##cdr _%e7805178069%_)))) + (if (gx#stx-pair? _%tl7805378076%_) + (let ((_%e7805478079%_ (gx#syntax-e - _%tl7706177084%_))) - (let ((_%hd7706377091%_ + _%tl7805378076%_))) + (let ((_%hd7805578083%_ (let () (declare (not safe)) - (##car _%e7706277087%_))) - (_%tl7706477094%_ + (##car _%e7805478079%_))) + (_%tl7805678086%_ (let () (declare (not safe)) - (##cdr _%e7706277087%_)))) + (##cdr _%e7805478079%_)))) (if (gx#stx-null? - _%tl7706477094%_) - ((lambda (_%L77097%_ - _%L77099%_) + _%tl7805678086%_) + ((lambda (_%L78089%_ + _%L78091%_) (cons (gx#datum->syntax '#f 'begin) @@ -13049,198 +13862,198 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L77099%_ (cons _%L77027%_ '()))) + (cons _%L78091%_ (cons _%L78019%_ '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L77028%_ '()) - (cons _%L77099%_ '()))) + (cons (cons _%L78020%_ '()) + (cons _%L78091%_ '()))) (cons (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L77097%_ + (cons (cons _%L78089%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'new-value) - (cons _%L77026%_ _%L77024%_)) + (cons _%L78018%_ _%L78016%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%L77099%_ + (cons _%L78091%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'new-value) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7706377091%_ - _%hd7706077081%_) - (_%g7705577070%_ - _%g7705677074%_)))) - (_%g7705577070%_ _%g7705677074%_)))) - (_%g7705577070%_ _%g7705677074%_))))) - (_%g7705477115%_ - (list (gx#stx-identifier _%L77028%_ '"__" _%L77028%_) + _%hd7805578083%_ + _%hd7805278073%_) + (_%g7804778062%_ + _%g7804878066%_)))) + (_%g7804778062%_ _%g7804878066%_)))) + (_%g7804778062%_ _%g7804878066%_))))) + (_%g7804678107%_ + (list (gx#stx-identifier _%L78020%_ '"__" _%L78020%_) (gx#stx-identifier - _%L77028%_ - _%L77028%_ + _%L78020%_ + _%L78020%_ '"-set!")))))) - (_%__kont8261382614%_ - (lambda (_%L76959%_ _%L76961%_) + (_%__kont8373583736%_ + (lambda (_%L77951%_ _%L77953%_) (cons (gx#datum->syntax '#f 'defmutable*) - (cons _%L76961%_ - (cons _%L76959%_ + (cons _%L77953%_ + (cons _%L77951%_ (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f ':t) '())))))))) - (let ((_%__match8263982640%_ - (lambda (_%e7689476984%_ - _%hd7689576988%_ - _%tl7689676991%_ - _%e7689776994%_ - _%hd7689876998%_ - _%tl7689977001%_ - _%e7690077004%_ - _%hd7690177008%_ - _%tl7690277011%_ - _%e7690377014%_ - _%hd7690477018%_ - _%tl7690577021%_) - (let ((_%L77024%_ _%tl7690577021%_) - (_%L77026%_ _%hd7690477018%_) - (_%L77027%_ _%hd7690177008%_) - (_%L77028%_ _%hd7689876998%_)) - (if (and (gx#identifier? _%L77028%_) - (gx#identifier? _%L77026%_) + (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%_) (or (gx#free-identifier=? - _%L77026%_ + _%L78018%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L77026%_ + _%L78018%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L77026%_ + _%L78018%_ (gx#datum->syntax '#f ':~)))) - (_%__kont8261182612%_ - _%L77024%_ - _%L77026%_ - _%L77027%_ - _%L77028%_) - (let () (declare (not safe)) (_%g7688876922%_))))))) - (if (gx#stx-pair? _%__stx8260882609%_) - (let ((_%e7689476984%_ (gx#syntax-e _%__stx8260882609%_))) - (let ((_%tl7689676991%_ + (_%__kont8373383734%_ + _%L78016%_ + _%L78018%_ + _%L78019%_ + _%L78020%_) + (let () (declare (not safe)) (_%g7788077914%_))))))) + (if (gx#stx-pair? _%__stx8373083731%_) + (let ((_%e7788677976%_ (gx#syntax-e _%__stx8373083731%_))) + (let ((_%tl7788877983%_ (let () (declare (not safe)) - (##cdr _%e7689476984%_))) - (_%hd7689576988%_ + (##cdr _%e7788677976%_))) + (_%hd7788777980%_ (let () (declare (not safe)) - (##car _%e7689476984%_)))) - (if (gx#stx-pair? _%tl7689676991%_) - (let ((_%e7689776994%_ - (gx#syntax-e _%tl7689676991%_))) - (let ((_%tl7689977001%_ + (##car _%e7788677976%_)))) + (if (gx#stx-pair? _%tl7788877983%_) + (let ((_%e7788977986%_ + (gx#syntax-e _%tl7788877983%_))) + (let ((_%tl7789177993%_ (let () (declare (not safe)) - (##cdr _%e7689776994%_))) - (_%hd7689876998%_ + (##cdr _%e7788977986%_))) + (_%hd7789077990%_ (let () (declare (not safe)) - (##car _%e7689776994%_)))) - (if (gx#stx-pair? _%tl7689977001%_) - (let ((_%e7690077004%_ - (gx#syntax-e _%tl7689977001%_))) - (let ((_%tl7690277011%_ + (##car _%e7788977986%_)))) + (if (gx#stx-pair? _%tl7789177993%_) + (let ((_%e7789277996%_ + (gx#syntax-e _%tl7789177993%_))) + (let ((_%tl7789478003%_ (let () (declare (not safe)) - (##cdr _%e7690077004%_))) - (_%hd7690177008%_ + (##cdr _%e7789277996%_))) + (_%hd7789378000%_ (let () (declare (not safe)) - (##car _%e7690077004%_)))) - (if (gx#stx-pair? _%tl7690277011%_) - (let ((_%e7690377014%_ + (##car _%e7789277996%_)))) + (if (gx#stx-pair? _%tl7789478003%_) + (let ((_%e7789578006%_ (gx#syntax-e - _%tl7690277011%_))) - (let ((_%tl7690577021%_ + _%tl7789478003%_))) + (let ((_%tl7789778013%_ (let () (declare (not safe)) - (##cdr _%e7690377014%_))) - (_%hd7690477018%_ + (##cdr _%e7789578006%_))) + (_%hd7789678010%_ (let () (declare (not safe)) - (##car _%e7690377014%_)))) - (_%__match8263982640%_ - _%e7689476984%_ - _%hd7689576988%_ - _%tl7689676991%_ - _%e7689776994%_ - _%hd7689876998%_ - _%tl7689977001%_ - _%e7690077004%_ - _%hd7690177008%_ - _%tl7690277011%_ - _%e7690377014%_ - _%hd7690477018%_ - _%tl7690577021%_))) - (if (gx#stx-null? _%tl7690277011%_) - (_%__kont8261382614%_ - _%hd7690177008%_ - _%hd7689876998%_) + (##car _%e7789578006%_)))) + (_%__match8376183762%_ + _%e7788677976%_ + _%hd7788777980%_ + _%tl7788877983%_ + _%e7788977986%_ + _%hd7789077990%_ + _%tl7789177993%_ + _%e7789277996%_ + _%hd7789378000%_ + _%tl7789478003%_ + _%e7789578006%_ + _%hd7789678010%_ + _%tl7789778013%_))) + (if (gx#stx-null? _%tl7789478003%_) + (_%__kont8373583736%_ + _%hd7789378000%_ + _%hd7789077990%_) (let () (declare (not safe)) - (_%g7688876922%_)))))) + (_%g7788077914%_)))))) (let () (declare (not safe)) - (_%g7688876922%_))))) - (let () (declare (not safe)) (_%g7688876922%_))))) - (let () (declare (not safe)) (_%g7688876922%_)))))))) + (_%g7788077914%_))))) + (let () (declare (not safe)) (_%g7788077914%_))))) + (let () (declare (not safe)) (_%g7788077914%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable| - (lambda (_%stx77123%_) - (let* ((_%__stx8266282663%_ _%stx77123%_) - (_%g7712777161%_ + (lambda (_%stx78115%_) + (let* ((_%__stx8378483785%_ _%stx78115%_) + (_%g7811978153%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8266282663%_)))) - (let ((_%__kont8266582666%_ - (lambda (_%L77263%_ _%L77265%_ _%L77266%_ _%L77267%_) - (let* ((_%g7729477309%_ - (lambda (_%g7729577305%_) + _%__stx8378483785%_)))) + (let ((_%__kont8378783788%_ + (lambda (_%L78255%_ _%L78257%_ _%L78258%_ _%L78259%_) + (let* ((_%g7828678301%_ + (lambda (_%g7828778297%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7729577305%_))) - (_%g7729377354%_ - (lambda (_%g7729577313%_) - (if (gx#stx-pair? _%g7729577313%_) - (let ((_%e7729877316%_ - (gx#syntax-e _%g7729577313%_))) - (let ((_%hd7729977320%_ + _%g7828778297%_))) + (_%g7828578346%_ + (lambda (_%g7828778305%_) + (if (gx#stx-pair? _%g7828778305%_) + (let ((_%e7829078308%_ + (gx#syntax-e _%g7828778305%_))) + (let ((_%hd7829178312%_ (let () (declare (not safe)) - (##car _%e7729877316%_))) - (_%tl7730077323%_ + (##car _%e7829078308%_))) + (_%tl7829278315%_ (let () (declare (not safe)) - (##cdr _%e7729877316%_)))) - (if (gx#stx-pair? _%tl7730077323%_) - (let ((_%e7730177326%_ + (##cdr _%e7829078308%_)))) + (if (gx#stx-pair? _%tl7829278315%_) + (let ((_%e7829378318%_ (gx#syntax-e - _%tl7730077323%_))) - (let ((_%hd7730277330%_ + _%tl7829278315%_))) + (let ((_%hd7829478322%_ (let () (declare (not safe)) - (##car _%e7730177326%_))) - (_%tl7730377333%_ + (##car _%e7829378318%_))) + (_%tl7829578325%_ (let () (declare (not safe)) - (##cdr _%e7730177326%_)))) + (##cdr _%e7829378318%_)))) (if (gx#stx-null? - _%tl7730377333%_) - ((lambda (_%L77336%_ - _%L77338%_) + _%tl7829578325%_) + ((lambda (_%L78328%_ + _%L78330%_) (cons (gx#datum->syntax '#f 'begin) @@ -13248,21 +14061,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L77338%_ (cons _%L77266%_ '()))) + (cons _%L78330%_ (cons _%L78258%_ '()))) (cons (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L77336%_ + (cons (cons _%L78328%_ (cons (cons (gx#datum->syntax '#f 'new-value) - (cons _%L77265%_ + (cons _%L78257%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L77263%_)) + _%L78255%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%L77338%_ + (cons _%L78330%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -13271,7 +14084,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L77267%_ + (cons _%L78259%_ (cons (cons (gx#datum->syntax '#f 'identifier-rules) @@ -13289,7 +14102,7 @@ '#f 'new-value) '()))) - (cons (cons _%L77336%_ + (cons (cons _%L78328%_ (cons (gx#datum->syntax '#f 'new-value) @@ -13305,7 +14118,7 @@ '#f 'new-value) '()))) - (cons (cons _%L77336%_ + (cons (cons _%L78328%_ (cons (gx#datum->syntax '#f 'new-value) @@ -13323,7 +14136,7 @@ 'syntax) (cons (gx#datum->syntax '#f 'the-var) '())) '())) - (cons _%L77338%_ '()))) + (cons _%L78330%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (cons (gx#datum->syntax '#f @@ -13333,7 +14146,7 @@ '#f 'arg) (cons (gx#datum->syntax '#f '...) '()))) - (cons (cons _%L77338%_ + (cons (cons _%L78330%_ (cons (gx#datum->syntax '#f 'arg) (cons (gx#datum->syntax '#f '...) '()))) '())) @@ -13343,126 +14156,126 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7730277330%_ - _%hd7729977320%_) - (_%g7729477309%_ - _%g7729577313%_)))) - (_%g7729477309%_ _%g7729577313%_)))) - (_%g7729477309%_ _%g7729577313%_))))) - (_%g7729377354%_ - (list (gx#stx-identifier _%L77267%_ '"__" _%L77267%_) + _%hd7829478322%_ + _%hd7829178312%_) + (_%g7828678301%_ + _%g7828778305%_)))) + (_%g7828678301%_ _%g7828778305%_)))) + (_%g7828678301%_ _%g7828778305%_))))) + (_%g7828578346%_ + (list (gx#stx-identifier _%L78259%_ '"__" _%L78259%_) (gx#stx-identifier - _%L77267%_ - _%L77267%_ + _%L78259%_ + _%L78259%_ '"-set!")))))) - (_%__kont8266782668%_ - (lambda (_%L77198%_ _%L77200%_) + (_%__kont8378983790%_ + (lambda (_%L78190%_ _%L78192%_) (cons (gx#datum->syntax '#f 'defmutable) - (cons _%L77200%_ - (cons _%L77198%_ + (cons _%L78192%_ + (cons _%L78190%_ (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f ':t) '())))))))) - (let ((_%__match8269382694%_ - (lambda (_%e7713377223%_ - _%hd7713477227%_ - _%tl7713577230%_ - _%e7713677233%_ - _%hd7713777237%_ - _%tl7713877240%_ - _%e7713977243%_ - _%hd7714077247%_ - _%tl7714177250%_ - _%e7714277253%_ - _%hd7714377257%_ - _%tl7714477260%_) - (let ((_%L77263%_ _%tl7714477260%_) - (_%L77265%_ _%hd7714377257%_) - (_%L77266%_ _%hd7714077247%_) - (_%L77267%_ _%hd7713777237%_)) - (if (and (gx#identifier? _%L77267%_) - (gx#identifier? _%L77265%_) + (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%_) (or (gx#free-identifier=? - _%L77265%_ + _%L78257%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L77265%_ + _%L78257%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L77265%_ + _%L78257%_ (gx#datum->syntax '#f ':~)))) - (_%__kont8266582666%_ - _%L77263%_ - _%L77265%_ - _%L77266%_ - _%L77267%_) - (let () (declare (not safe)) (_%g7712777161%_))))))) - (if (gx#stx-pair? _%__stx8266282663%_) - (let ((_%e7713377223%_ (gx#syntax-e _%__stx8266282663%_))) - (let ((_%tl7713577230%_ + (_%__kont8378783788%_ + _%L78255%_ + _%L78257%_ + _%L78258%_ + _%L78259%_) + (let () (declare (not safe)) (_%g7811978153%_))))))) + (if (gx#stx-pair? _%__stx8378483785%_) + (let ((_%e7812578215%_ (gx#syntax-e _%__stx8378483785%_))) + (let ((_%tl7812778222%_ (let () (declare (not safe)) - (##cdr _%e7713377223%_))) - (_%hd7713477227%_ + (##cdr _%e7812578215%_))) + (_%hd7812678219%_ (let () (declare (not safe)) - (##car _%e7713377223%_)))) - (if (gx#stx-pair? _%tl7713577230%_) - (let ((_%e7713677233%_ - (gx#syntax-e _%tl7713577230%_))) - (let ((_%tl7713877240%_ + (##car _%e7812578215%_)))) + (if (gx#stx-pair? _%tl7812778222%_) + (let ((_%e7812878225%_ + (gx#syntax-e _%tl7812778222%_))) + (let ((_%tl7813078232%_ (let () (declare (not safe)) - (##cdr _%e7713677233%_))) - (_%hd7713777237%_ + (##cdr _%e7812878225%_))) + (_%hd7812978229%_ (let () (declare (not safe)) - (##car _%e7713677233%_)))) - (if (gx#stx-pair? _%tl7713877240%_) - (let ((_%e7713977243%_ - (gx#syntax-e _%tl7713877240%_))) - (let ((_%tl7714177250%_ + (##car _%e7812878225%_)))) + (if (gx#stx-pair? _%tl7813078232%_) + (let ((_%e7813178235%_ + (gx#syntax-e _%tl7813078232%_))) + (let ((_%tl7813378242%_ (let () (declare (not safe)) - (##cdr _%e7713977243%_))) - (_%hd7714077247%_ + (##cdr _%e7813178235%_))) + (_%hd7813278239%_ (let () (declare (not safe)) - (##car _%e7713977243%_)))) - (if (gx#stx-pair? _%tl7714177250%_) - (let ((_%e7714277253%_ + (##car _%e7813178235%_)))) + (if (gx#stx-pair? _%tl7813378242%_) + (let ((_%e7813478245%_ (gx#syntax-e - _%tl7714177250%_))) - (let ((_%tl7714477260%_ + _%tl7813378242%_))) + (let ((_%tl7813678252%_ (let () (declare (not safe)) - (##cdr _%e7714277253%_))) - (_%hd7714377257%_ + (##cdr _%e7813478245%_))) + (_%hd7813578249%_ (let () (declare (not safe)) - (##car _%e7714277253%_)))) - (_%__match8269382694%_ - _%e7713377223%_ - _%hd7713477227%_ - _%tl7713577230%_ - _%e7713677233%_ - _%hd7713777237%_ - _%tl7713877240%_ - _%e7713977243%_ - _%hd7714077247%_ - _%tl7714177250%_ - _%e7714277253%_ - _%hd7714377257%_ - _%tl7714477260%_))) - (if (gx#stx-null? _%tl7714177250%_) - (_%__kont8266782668%_ - _%hd7714077247%_ - _%hd7713777237%_) + (##car _%e7813478245%_)))) + (_%__match8381583816%_ + _%e7812578215%_ + _%hd7812678219%_ + _%tl7812778222%_ + _%e7812878225%_ + _%hd7812978229%_ + _%tl7813078232%_ + _%e7813178235%_ + _%hd7813278239%_ + _%tl7813378242%_ + _%e7813478245%_ + _%hd7813578249%_ + _%tl7813678252%_))) + (if (gx#stx-null? _%tl7813378242%_) + (_%__kont8378983790%_ + _%hd7813278239%_ + _%hd7812978229%_) (let () (declare (not safe)) - (_%g7712777161%_)))))) + (_%g7811978153%_)))))) (let () (declare (not safe)) - (_%g7712777161%_))))) - (let () (declare (not safe)) (_%g7712777161%_))))) - (let () (declare (not safe)) (_%g7712777161%_)))))))))) + (_%g7811978153%_))))) + (let () (declare (not safe)) (_%g7811978153%_))))) + (let () (declare (not safe)) (_%g7811978153%_)))))))))) diff --git a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm index e42151144..8ea07059e 100644 --- a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm +++ b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm @@ -1,39 +1,39 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/contract~ClassMeta::timestamp 1713454406) + (define gerbil/core/contract~ClassMeta::timestamp 1713631261) (define gerbil/core/contract~ClassMeta#!class-precedence-list (lambda (_%klass52327%_) (let ((_%$e52329%_ - (let ((__obj82748 _%klass52327%_)) + (let ((__obj83870 _%klass52327%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82748 + __obj83870 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82748 '5 '#f '#f)) + (##unchecked-structure-ref __obj83870 '5 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82748 + __obj83870 'precedence-list))))) (if _%$e52329%_ _%$e52329%_ - (let ((_g82795_ + (let ((_g83917_ (c4-linearize '() - (let ((__obj82749 _%klass52327%_)) + (let ((__obj83871 _%klass52327%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82749 + __obj83871 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82749 '3 '#f '#f)) + (##unchecked-structure-ref __obj83871 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82749 + __obj83871 'super))) 'get-precedence-list: (lambda (_%klass-id52333%_) @@ -42,98 +42,98 @@ (gx#syntax-local-value _%klass-id52333%_)))) 'struct: (lambda (_%klass-id52335%_) - (let ((__obj82750 + (let ((__obj83872 (gx#syntax-local-value _%klass-id52335%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82750 + __obj83872 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82750 + __obj83872 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82750 + __obj83872 'struct?)))) 'eq: gx#free-identifier=? 'get-name: gx#stx-e))) (begin - (let ((_g82796_ + (let ((_g83918_ (let () (declare (not safe)) - (if (##values? _g82795_) - (##vector-length _g82795_) + (if (##values? _g83917_) + (##vector-length _g83917_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82796_ 2))) - (error "Context expects 2 values" _g82796_))) + (if (not (let () (declare (not safe)) (##fx= _g83918_ 2))) + (error "Context expects 2 values" _g83918_))) (let ((_%precedence-list52337%_ - (let () (declare (not safe)) (##vector-ref _g82795_ 0))) + (let () (declare (not safe)) (##vector-ref _g83917_ 0))) (_%base-struct52338%_ (let () (declare (not safe)) - (##vector-ref _g82795_ 1)))) + (##vector-ref _g83917_ 1)))) (let ((_%precedence-list52382%_ - (if (let ((__tmp82797 - (let ((__obj82751 _%klass52327%_)) + (if (let ((__tmp83919 + (let ((__obj83873 _%klass52327%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82751 + __obj83873 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82751 + __obj83873 '1 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82751 + __obj83873 'id))))) (declare (not safe)) - (##memq __tmp82797 '(t object class))) + (##memq __tmp83919 '(t object class))) _%precedence-list52337%_ (if (member ':object _%precedence-list52337%_ gx#free-identifier=?) _%precedence-list52337%_ - (if (let ((__obj82752 _%klass52327%_)) + (if (let ((__obj83874 _%klass52327%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82752 + __obj83874 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82752 + __obj83874 '9 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82752 + __obj83874 'system?))) (if (member ':t _%precedence-list52337%_ gx#free-identifier=?) _%precedence-list52337%_ - (let ((__tmp82798 + (let ((__tmp83920 (cons (gx#core-quote-syntax ':t) '()))) (declare (not safe)) (##append _%precedence-list52337%_ - __tmp82798))) + __tmp83920))) (let _%loop52344%_ ((_%tail52346%_ _%precedence-list52337%_) (_%head52347%_ '())) @@ -167,9 +167,7 @@ _%rest52367%_ (cons _%hd52368%_ _%head52347%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%tail5234852356%_)) + (if (pair? _%tail5234852356%_) (let ((_%hd5235352373%_ (let () (declare (not safe)) @@ -186,23 +184,23 @@ _%rest52380%_ _%hd52378%_))) (_%else5235052364%_))))))))) - (let ((__obj82753 _%klass52327%_)) + (let ((__obj83875 _%klass52327%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82753 + __obj83875 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82753 + __obj83875 _%precedence-list52382%_ '5 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj82753 + __obj83875 'precedence-list _%precedence-list52382%_))) _%precedence-list52382%_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm b/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm index e6ea1a986..873f4fd06 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 1713454406) + (define gerbil/core/contract~InterfaceInfo::timestamp 1713631261) (begin - (define gerbil/core/contract~InterfaceInfo#_g82791_ + (define gerbil/core/contract~InterfaceInfo#_g83913_ (##structure gx#syntax-quote::t 'cast #f (gx#current-expander-context) '())) - (define gerbil/core/contract~InterfaceInfo#_g82792_ + (define gerbil/core/contract~InterfaceInfo#_g83914_ (##structure gx#syntax-quote::t 'immediate-instance-of? @@ -251,15 +251,15 @@ (if (gx#stx-null? _%tl4478744810%_) ((lambda (_%L44813%_ _%L44814%_) (lambda (_%self44828%_ _%stx44829%_) - (let* ((_%__stx7736277363%_ + (let* ((_%__stx7835478355%_ _%stx44829%_) (_%g4483244845%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7736277363%_)))) - (let ((_%__kont7736477365%_ + _%__stx7835478355%_)))) + (let ((_%__kont7835678357%_ (lambda (_%L44903%_) (let* ((_%g4491444932%_ (lambda (_%g4491544929%_) @@ -351,59 +351,59 @@ (_%g4491444932%_ _%g4491544935%_)))) (_%g4491444932%_ _%g4491544935%_))))) (_%g4491344980%_ - (list (let ((__obj82716 _%self44828%_)) + (list (let ((__obj83838 _%self44828%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82716 + __obj83838 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82716 + __obj83838 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82716 + __obj83838 'instance-type))) - (let ((__obj82717 _%self44828%_)) + (let ((__obj83839 _%self44828%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82717 + __obj83839 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82717 + __obj83839 '5 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82717 + __obj83839 'interface-descriptor))) - (let ((__obj82718 _%self44828%_)) + (let ((__obj83840 _%self44828%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82718 + __obj83840 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82718 + __obj83840 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82718 + __obj83840 'instance-type)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7736677367%_ + (_%__kont7835878359%_ (lambda () (let* ((_%g4485244859%_ (lambda (_%g4485344856%_) @@ -416,34 +416,34 @@ (lambda (_%g4485344862%_) ((lambda (_%L44864%_) _%L44864%_) _%g4485344862%_)))) (_%g4485144879%_ - (let ((__obj82719 _%self44828%_)) + (let ((__obj83841 _%self44828%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82719 + __obj83841 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82719 '5 '#f '#f)) + (##unchecked-structure-ref __obj83841 '5 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82719 + __obj83841 'interface-descriptor)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%g4483144882%_ (lambda () (if (gx#identifier? _%stx44829%_) - (_%__kont7736677367%_) + (_%__kont7835878359%_) (let () (declare (not safe)) (_%g4483244845%_)))))) (if (gx#stx-pair? - _%__stx7736277363%_) + _%__stx7835478355%_) (let ((_%e4483544887%_ (gx#syntax-e - _%__stx7736277363%_))) + _%__stx7835478355%_))) (let ((_%tl4483744892%_ (let () (declare @@ -463,7 +463,7 @@ (declare (not safe)) (##car _%e4483844895%_)))) (if (gx#stx-null? _%tl4484044900%_) - (_%__kont7736477365%_ _%hd4483944898%_) + (_%__kont7835678357%_ _%hd4483944898%_) (let () (declare (not safe)) (_%g4483144882%_))))) (let () (declare (not safe)) (_%g4483144882%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -476,8 +476,8 @@ (_%g4477844792%_ _%g4477944795%_)))) (_%g4477844792%_ _%g4477944795%_))))) (_%g4477744986%_ - (list gerbil/core/contract~InterfaceInfo#_g82791_ - gerbil/core/contract~InterfaceInfo#_g82792_)))) + (list gerbil/core/contract~InterfaceInfo#_g83913_ + gerbil/core/contract~InterfaceInfo#_g83914_)))) (bind-method! gerbil/core/contract~InterfaceInfo#interface-info::t 'apply-macro-expander @@ -486,22 +486,22 @@ (define gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin (lambda (_%info44611%_) (let _%loop44613%_ ((_%rest44615%_ - (let ((__obj82721 _%info44611%_)) + (let ((__obj83843 _%info44611%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82721 + __obj83843 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82721 + __obj83843 '2 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82721 + __obj83843 'interface-mixin)))) (_%result44616%_ '())) (let* ((_%rest4461744625%_ _%rest44615%_) @@ -509,23 +509,23 @@ (_%K4462144643%_ (lambda (_%rest44636%_ _%id44637%_) (let* ((_%mixin44639%_ - (let ((__obj82720 + (let ((__obj83842 (gx#syntax-local-value _%id44637%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82720 + __obj83842 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82720 + __obj83842 '2 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82720 + __obj83842 'interface-mixin)))) (_%result44641%_ (if (member _%id44637%_ @@ -536,7 +536,7 @@ (_%loop44613%_ (foldl cons _%rest44636%_ _%mixin44639%_) _%result44641%_))))) - (if (let () (declare (not safe)) (##pair? _%rest4461744625%_)) + (if (pair? _%rest4461744625%_) (let ((_%hd4462244646%_ (let () (declare (not safe)) @@ -572,15 +572,15 @@ _%stx44604%_ _%is?44606%_)))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - (lambda _g82794_ - (let ((_g82793_ (let () (declare (not safe)) (##length _g82794_)))) - (cond ((let () (declare (not safe)) (##fx= _g82793_ 1)) + (lambda _g83916_ + (let ((_g83915_ (let () (declare (not safe)) (##length _g83916_)))) + (cond ((let () (declare (not safe)) (##fx= _g83915_ 1)) (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _g82794_)) - ((let () (declare (not safe)) (##fx= _g82793_ 2)) + _g83916_)) + ((let () (declare (not safe)) (##fx= _g83915_ 2)) (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - _g82794_)) + _g83916_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - _g82794_))))))))) + _g83916_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm b/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm index 3653f614f..219e127a2 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 1713454406) + (define gerbil/core/contract~TypeEnv::timestamp 1713631261) (begin (define gerbil/core/contract~TypeEnv#type-env::t (make-class-type diff --git a/src/bootstrap/gerbil/core/macro-object~0.scm b/src/bootstrap/gerbil/core/macro-object~0.scm index 8f894aed3..6ffec1682 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 1713454405) + (define gerbil/core/macro-object::timestamp 1713631261) (begin (define gerbil/core/macro-object#macro-object::t (make-class-type diff --git a/src/bootstrap/gerbil/core/match~1.scm b/src/bootstrap/gerbil/core/match~1.scm index 50972d5c8..3aa51156a 100644 --- a/src/bootstrap/gerbil/core/match~1.scm +++ b/src/bootstrap/gerbil/core/match~1.scm @@ -2410,7 +2410,7 @@ (cons 'if (cons (cons (gx#datum->syntax '#f - '##pair?) + 'pair?) (cons _%L30374%_ '())) (cons (let ((_%hd-pat31587%_ (gx#stx-e @@ -2502,7 +2502,7 @@ (cons 'if (cons (cons (gx#datum->syntax '#f - '##null?) + 'null?) (cons _%L30374%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) @@ -2531,7 +2531,7 @@ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - '##box?) + 'box?) (cons _%L30374%_ '())) (cons (cons 'let (cons (cons (cons _%L31367%_ @@ -2687,7 +2687,7 @@ (lambda (_%g3107831089%_) ((lambda (_%L31092%_) (cons 'if - (cons (cons (gx#datum->syntax '#f '##vector?) + (cons (cons (gx#datum->syntax '#f 'vector?) (cons _%L30374%_ '())) (cons (cons 'if (cons (cons (gx#datum->syntax @@ -2715,7 +2715,7 @@ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - '##vector?) + 'vector?) (cons _%L30374%_ '())) (cons (_%generate-list-vector29110%_ _%tgt30353%_ diff --git a/src/bootstrap/gerbil/core/module-sugar~1.scm b/src/bootstrap/gerbil/core/module-sugar~1.scm index aeda164c9..c0050ffde 100644 --- a/src/bootstrap/gerbil/core/module-sugar~1.scm +++ b/src/bootstrap/gerbil/core/module-sugar~1.scm @@ -1386,7 +1386,7 @@ (_%K4285442878%_ (lambda (_%mark42874%_ _%id42876%_) (cons (make-symbol _%pre42849%_ _%id42876%_) _%mark42874%_)))) - (if (let () (declare (not safe)) (##pair? _%name4285042858%_)) + (if (pair? _%name4285042858%_) (let ((_%hd4285542882%_ (let () (declare (not safe)) (##car _%name4285042858%_))) (_%tl4285642885%_ diff --git a/src/bootstrap/gerbil/core/mop~MOP-2~0.scm b/src/bootstrap/gerbil/core/mop~MOP-2~0.scm index 11e3cad0c..cf6f34e14 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 1713454400) + (define gerbil/core/mop~MOP-2::timestamp 1713631255) (begin (define gerbil/core/mop~MOP-2#class-type-info::t (make-class-type diff --git a/src/bootstrap/gerbil/expander/common~0.scm b/src/bootstrap/gerbil/expander/common~0.scm index dbe71d8ab..bb896dc5a 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 1713454410) + (define gerbil/expander/common::timestamp 1713631266) (begin (define gx#AST::t - (let ((__tmp115622 (list)) - (__tmp115621 (cons (cons 'struct: '#t) '((print: e))))) + (let ((__tmp116754 (list)) + (__tmp116753 (cons (cons 'struct: '#t) '((print: e))))) (declare (not safe)) (__make-class-type 'gerbil#AST::t 'syntax - __tmp115622 + __tmp116754 '(e source) - __tmp115621 + __tmp116753 '#f))) (define gx#AST? (let () (declare (not safe)) (__make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _%$args115520%_ (apply make-instance gx#AST::t _%$args115520%_))) + (lambda _%$args116652%_ (apply make-instance gx#AST::t _%$args116652%_))) (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 4c3f073af..3a1281c24 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]#_g115624_| + (define |gx[1]#_g116756_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g115626_| + (define |gx[1]#_g116758_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g115628_| + (define |gx[1]#_g116760_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g115630_| + (define |gx[1]#_g116762_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g115631_| + (define |gx[1]#_g116763_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g115633_| + (define |gx[1]#_g116765_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115634_| + (define |gx[1]#_g116766_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115636_| + (define |gx[1]#_g116768_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g115637_| + (define |gx[1]#_g116769_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g115639_| + (define |gx[1]#_g116771_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115640_| + (define |gx[1]#_g116772_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115642_| + (define |gx[1]#_g116774_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj115620 + (let ((__obj116752 (let () (declare (not safe)) (##structure @@ -114,109 +114,109 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115620 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj116752 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115620 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj116752 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115620 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj116752 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115620 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj116752 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115620 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj116752 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115620 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116752 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115620 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj116752 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115620 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116752 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115620 '#f '11 '#f '#f)) - (let ((__tmp115623 |gx[1]#_g115624_|)) + (##unchecked-structure-set! __obj116752 '#f '11 '#f '#f)) + (let ((__tmp116755 |gx[1]#_g116756_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115620 __tmp115623 '12 '#f '#f)) - (let ((__tmp115625 |gx[1]#_g115626_|)) + (##unchecked-structure-set! __obj116752 __tmp116755 '12 '#f '#f)) + (let ((__tmp116757 |gx[1]#_g116758_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115620 __tmp115625 '13 '#f '#f)) - (let ((__tmp115627 |gx[1]#_g115628_|)) + (##unchecked-structure-set! __obj116752 __tmp116757 '13 '#f '#f)) + (let ((__tmp116759 |gx[1]#_g116760_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115620 __tmp115627 '14 '#f '#f)) - (let ((__tmp115629 - (cons (cons 'e |gx[1]#_g115630_|) - (cons (cons 'source |gx[1]#_g115631_|) '())))) + (##unchecked-structure-set! __obj116752 __tmp116759 '14 '#f '#f)) + (let ((__tmp116761 + (cons (cons 'e |gx[1]#_g116762_|) + (cons (cons 'source |gx[1]#_g116763_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115620 __tmp115629 '15 '#f '#f)) - (let ((__tmp115632 - (cons (cons 'e |gx[1]#_g115633_|) - (cons (cons 'source |gx[1]#_g115634_|) '())))) + (##unchecked-structure-set! __obj116752 __tmp116761 '15 '#f '#f)) + (let ((__tmp116764 + (cons (cons 'e |gx[1]#_g116765_|) + (cons (cons 'source |gx[1]#_g116766_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115620 __tmp115632 '16 '#f '#f)) - (let ((__tmp115635 - (cons (cons 'e |gx[1]#_g115636_|) - (cons (cons 'source |gx[1]#_g115637_|) '())))) + (##unchecked-structure-set! __obj116752 __tmp116764 '16 '#f '#f)) + (let ((__tmp116767 + (cons (cons 'e |gx[1]#_g116768_|) + (cons (cons 'source |gx[1]#_g116769_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115620 __tmp115635 '17 '#f '#f)) - (let ((__tmp115638 - (cons (cons 'e |gx[1]#_g115639_|) - (cons (cons 'source |gx[1]#_g115640_|) '())))) + (##unchecked-structure-set! __obj116752 __tmp116767 '17 '#f '#f)) + (let ((__tmp116770 + (cons (cons 'e |gx[1]#_g116771_|) + (cons (cons 'source |gx[1]#_g116772_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115620 __tmp115638 '18 '#f '#f)) + (##unchecked-structure-set! __obj116752 __tmp116770 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115620 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116752 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115620 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116752 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115620 '() '20 '#f '#f)) - __obj115620)) + (##unchecked-structure-set! __obj116752 '() '20 '#f '#f)) + __obj116752)) (define |gx[:0:]#check-procedure| - (lambda (_%$stx114215%_) - (let* ((_%g114219114233%_ - (lambda (_%g114220114229%_) + (lambda (_%$stx115347%_) + (let* ((_%g115351115365%_ + (lambda (_%g115352115361%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114220114229%_))) - (_%g114218114275%_ - (lambda (_%g114220114237%_) - (if (gx#stx-pair? _%g114220114237%_) - (let ((_%e114222114240%_ - (gx#syntax-e _%g114220114237%_))) - (let ((_%hd114223114244%_ + _%g115352115361%_))) + (_%g115350115407%_ + (lambda (_%g115352115369%_) + (if (gx#stx-pair? _%g115352115369%_) + (let ((_%e115354115372%_ + (gx#syntax-e _%g115352115369%_))) + (let ((_%hd115355115376%_ (let () (declare (not safe)) - (##car _%e114222114240%_))) - (_%tl114224114247%_ + (##car _%e115354115372%_))) + (_%tl115356115379%_ (let () (declare (not safe)) - (##cdr _%e114222114240%_)))) - (if (gx#stx-pair? _%tl114224114247%_) - (let ((_%e114225114250%_ - (gx#syntax-e _%tl114224114247%_))) - (let ((_%hd114226114254%_ + (##cdr _%e115354115372%_)))) + (if (gx#stx-pair? _%tl115356115379%_) + (let ((_%e115357115382%_ + (gx#syntax-e _%tl115356115379%_))) + (let ((_%hd115358115386%_ (let () (declare (not safe)) - (##car _%e114225114250%_))) - (_%tl114227114257%_ + (##car _%e115357115382%_))) + (_%tl115359115389%_ (let () (declare (not safe)) - (##cdr _%e114225114250%_)))) - (if (gx#stx-null? _%tl114227114257%_) - ((lambda (_%L114260%_) + (##cdr _%e115357115382%_)))) + (if (gx#stx-null? _%tl115359115389%_) + ((lambda (_%L115392%_) (cons (gx#datum->syntax '#f 'unless) (cons (cons (gx#datum->syntax '#f 'procedure?) - (cons _%L114260%_ + (cons _%L115392%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -224,182 +224,182 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'error) - (cons '"expected procedure" (cons _%L114260%_ '()))) + (cons '"expected procedure" (cons _%L115392%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd114226114254%_) - (_%g114219114233%_ _%g114220114237%_)))) - (_%g114219114233%_ _%g114220114237%_)))) - (_%g114219114233%_ _%g114220114237%_))))) - (_%g114218114275%_ _%$stx114215%_)))) + _%hd115358115386%_) + (_%g115351115365%_ _%g115352115369%_)))) + (_%g115351115365%_ _%g115352115369%_)))) + (_%g115351115365%_ _%g115352115369%_))))) + (_%g115350115407%_ _%$stx115347%_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_%stx114279%_) - (letrec ((_%generate114282%_ - (lambda (_%tgt114431%_ _%kws114433%_ _%clauses114434%_) - (letrec ((_%generate-clause114436%_ - (lambda (_%hd115371%_ _%E115373%_) - (let* ((_%__stx115523115524%_ _%hd115371%_) - (_%g115377115404%_ + (lambda (_%stx115411%_) + (letrec ((_%generate115414%_ + (lambda (_%tgt115563%_ _%kws115565%_ _%clauses115566%_) + (letrec ((_%generate-clause115568%_ + (lambda (_%hd116503%_ _%E116505%_) + (let* ((_%__stx116655116656%_ _%hd116503%_) + (_%g116509116536%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx115523115524%_)))) - (let ((_%__kont115526115527%_ - (lambda (_%L115500%_ _%L115502%_) - (_%generate1114438%_ - _%hd115371%_ - _%L115502%_ + _%__stx116655116656%_)))) + (let ((_%__kont116658116659%_ + (lambda (_%L116632%_ _%L116634%_) + (_%generate1115570%_ + _%hd116503%_ + _%L116634%_ '#t - _%L115500%_ - _%E115373%_))) - (_%__kont115528115529%_ - (lambda (_%L115452%_ - _%L115454%_ - _%L115455%_) - (_%generate1114438%_ - _%hd115371%_ - _%L115455%_ - _%L115454%_ - _%L115452%_ - _%E115373%_))) - (_%__kont115530115531%_ + _%L116632%_ + _%E116505%_))) + (_%__kont116660116661%_ + (lambda (_%L116584%_ + _%L116586%_ + _%L116587%_) + (_%generate1115570%_ + _%hd116503%_ + _%L116587%_ + _%L116586%_ + _%L116584%_ + _%E116505%_))) + (_%__kont116662116663%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _%stx114279%_ - _%hd115371%_)))) - (if (gx#stx-pair? _%__stx115523115524%_) - (let ((_%e115381115480%_ + _%stx115411%_ + _%hd116503%_)))) + (if (gx#stx-pair? _%__stx116655116656%_) + (let ((_%e116513116612%_ (gx#syntax-e - _%__stx115523115524%_))) - (let ((_%tl115383115487%_ + _%__stx116655116656%_))) + (let ((_%tl116515116619%_ (let () (declare (not safe)) - (##cdr _%e115381115480%_))) - (_%hd115382115484%_ + (##cdr _%e116513116612%_))) + (_%hd116514116616%_ (let () (declare (not safe)) - (##car _%e115381115480%_)))) + (##car _%e116513116612%_)))) (if (gx#stx-pair? - _%tl115383115487%_) - (let ((_%e115384115490%_ + _%tl116515116619%_) + (let ((_%e116516116622%_ (gx#syntax-e - _%tl115383115487%_))) - (let ((_%tl115386115497%_ + _%tl116515116619%_))) + (let ((_%tl116518116629%_ (let () (declare (not safe)) - (##cdr _%e115384115490%_))) - (_%hd115385115494%_ + (##cdr _%e116516116622%_))) + (_%hd116517116626%_ (let () (declare (not safe)) - (##car _%e115384115490%_)))) + (##car _%e116516116622%_)))) (if (gx#stx-null? - _%tl115386115497%_) - (_%__kont115526115527%_ - _%hd115385115494%_ - _%hd115382115484%_) + _%tl116518116629%_) + (_%__kont116658116659%_ + _%hd116517116626%_ + _%hd116514116616%_) (if (gx#stx-pair? - _%tl115386115497%_) - (let ((_%e115396115442%_ + _%tl116518116629%_) + (let ((_%e116528116574%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl115386115497%_))) - (let ((_%tl115398115449%_ + (gx#syntax-e _%tl116518116629%_))) + (let ((_%tl116530116581%_ (let () (declare (not safe)) - (##cdr _%e115396115442%_))) - (_%hd115397115446%_ + (##cdr _%e116528116574%_))) + (_%hd116529116578%_ (let () (declare (not safe)) - (##car _%e115396115442%_)))) - (if (gx#stx-null? _%tl115398115449%_) - (_%__kont115528115529%_ - _%hd115397115446%_ - _%hd115385115494%_ - _%hd115382115484%_) - (_%__kont115530115531%_)))) - (_%__kont115530115531%_))))) + (##car _%e116528116574%_)))) + (if (gx#stx-null? _%tl116530116581%_) + (_%__kont116660116661%_ + _%hd116529116578%_ + _%hd116517116626%_ + _%hd116514116616%_) + (_%__kont116662116663%_)))) + (_%__kont116662116663%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont115530115531%_)))) - (_%__kont115530115531%_)))))) - (_%generate1114438%_ - (lambda (_%where114824%_ - _%hd114826%_ - _%fender114827%_ - _%body114828%_ - _%E114829%_) - (letrec ((_%recur114831%_ - (lambda (_%hd114834%_ - _%tgt114836%_ - _%K114837%_) - (let* ((_%__stx115569115570%_ - _%hd114834%_) - (_%g114840114852%_ + (_%__kont116662116663%_)))) + (_%__kont116662116663%_)))))) + (_%generate1115570%_ + (lambda (_%where115956%_ + _%hd115958%_ + _%fender115959%_ + _%body115960%_ + _%E115961%_) + (letrec ((_%recur115963%_ + (lambda (_%hd115966%_ + _%tgt115968%_ + _%K115969%_) + (let* ((_%__stx116701116702%_ + _%hd115966%_) + (_%g115972115984%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx115569115570%_)))) - (let ((_%__kont115572115573%_ - (lambda (_%L115161%_ - _%L115163%_) - (let* ((_%g115174115182%_ - (lambda (_%g115175115178%_) + _%__stx116701116702%_)))) + (let ((_%__kont116704116705%_ + (lambda (_%L116293%_ + _%L116295%_) + (let* ((_%g116306116314%_ + (lambda (_%g116307116310%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115175115178%_))) - (_%g115173115363%_ - (lambda (_%g115175115186%_) - ((lambda (_%L115189%_) - (let* ((_%g115201115209%_ - (lambda (_%g115202115205%_) + _%g116307116310%_))) + (_%g116305116495%_ + (lambda (_%g116307116318%_) + ((lambda (_%L116321%_) + (let* ((_%g116333116341%_ + (lambda (_%g116334116337%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115202115205%_))) - (_%g115200115359%_ - (lambda (_%g115202115213%_) - ((lambda (_%L115216%_) - (let* ((_%g115229115237%_ - (lambda (_%g115230115233%_) + _%g116334116337%_))) + (_%g116332116491%_ + (lambda (_%g116334116345%_) + ((lambda (_%L116348%_) + (let* ((_%g116361116369%_ + (lambda (_%g116362116365%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115230115233%_))) - (_%g115228115355%_ - (lambda (_%g115230115241%_) - ((lambda (_%L115244%_) - (let* ((_%g115257115265%_ - (lambda (_%g115258115261%_) + _%g116362116365%_))) + (_%g116360116487%_ + (lambda (_%g116362116373%_) + ((lambda (_%L116376%_) + (let* ((_%g116389116397%_ + (lambda (_%g116390116393%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g115258115261%_))) - (_%g115256115351%_ - (lambda (_%g115258115269%_) - ((lambda (_%L115272%_) - (let* ((_%g115285115293%_ - (lambda (_%g115286115289%_) + _%g116390116393%_))) + (_%g116388116483%_ + (lambda (_%g116390116401%_) + ((lambda (_%L116404%_) + (let* ((_%g116417116425%_ + (lambda (_%g116418116421%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115286115289%_))) - (_%g115284115347%_ - (lambda (_%g115286115297%_) - ((lambda (_%L115300%_) - (let* ((_%g115313115321%_ - (lambda (_%g115314115317%_) + _%g116418116421%_))) + (_%g116416116479%_ + (lambda (_%g116418116429%_) + ((lambda (_%L116432%_) + (let* ((_%g116445116453%_ + (lambda (_%g116446116449%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115314115317%_))) - (_%g115312115343%_ - (lambda (_%g115314115325%_) - ((lambda (_%L115328%_) + _%g116446116449%_))) + (_%g116444116475%_ + (lambda (_%g116446116457%_) + ((lambda (_%L116460%_) (cons (gx#datum->syntax '#f 'if) @@ -407,306 +407,306 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'stx-pair?) - (cons _%L115189%_ '())) + (cons _%L116321%_ '())) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L115216%_ + (cons (cons (cons _%L116348%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'syntax-e) - (cons _%L115189%_ '())) + (cons _%L116321%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L115244%_ + (cons (cons (cons _%L116376%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L115216%_ '())) + (cons _%L116348%_ '())) '())) - (cons (cons _%L115272%_ + (cons (cons _%L116404%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L115216%_ '())) + (cons _%L116348%_ '())) '())) '())) - (cons _%L115300%_ '()))) + (cons _%L116432%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%L115328%_ '()))))) + (cons _%L116460%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g115314115325%_)))) - (_%g115312115343%_ _%E114829%_))) - _%g115286115297%_)))) - (_%g115284115347%_ - (_%recur114831%_ - _%L115163%_ - _%L115244%_ - (_%recur114831%_ - _%L115161%_ - _%L115272%_ - _%K114837%_))))) - _%g115258115269%_)))) - (_%g115256115351%_ (gx#genident 'tl)))) + _%g116446116457%_)))) + (_%g116444116475%_ _%E115961%_))) + _%g116418116429%_)))) + (_%g116416116479%_ + (_%recur115963%_ + _%L116295%_ + _%L116376%_ + (_%recur115963%_ + _%L116293%_ + _%L116404%_ + _%K115969%_))))) + _%g116390116401%_)))) + (_%g116388116483%_ (gx#genident 'tl)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g115230115241%_)))) - (_%g115228115355%_ + _%g116362116373%_)))) + (_%g116360116487%_ (gx#genident 'hd)))) - _%g115202115213%_)))) - (_%g115200115359%_ (gx#genident 'e)))) - _%g115175115186%_)))) - (_%g115173115363%_ _%tgt114836%_)))) + _%g116334116345%_)))) + (_%g116332116491%_ (gx#genident 'e)))) + _%g116307116318%_)))) + (_%g116305116495%_ _%tgt115968%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont115574115575%_ + (_%__kont116706116707%_ (lambda () (if (gx#identifier? - _%hd114834%_) + _%hd115966%_) (if (gx#underscore? - _%hd114834%_) - _%K114837%_ - (if (let ((__tmp115641 + _%hd115966%_) + _%K115969%_ + (if (let ((__tmp116773 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g114866114868%_) + (lambda (_%g115998116000%_) (gx#bound-identifier=? - _%g114866114868%_ - _%hd114834%_)))) + _%g115998116000%_ + _%hd115966%_)))) (declare (not safe)) - (__find __tmp115641 _%kws114433%_)) - (let* ((_%g114874114889%_ - (lambda (_%g114875114885%_) + (__find __tmp116773 _%kws115565%_)) + (let* ((_%g116006116021%_ + (lambda (_%g116007116017%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114875114885%_))) - (_%g114873114942%_ - (lambda (_%g114875114893%_) - (if (gx#stx-pair? _%g114875114893%_) - (let ((_%e114878114896%_ + _%g116007116017%_))) + (_%g116005116074%_ + (lambda (_%g116007116025%_) + (if (gx#stx-pair? _%g116007116025%_) + (let ((_%e116010116028%_ (gx#syntax-e - _%g114875114893%_))) - (let ((_%hd114879114900%_ + _%g116007116025%_))) + (let ((_%hd116011116032%_ (let () (declare (not safe)) - (##car _%e114878114896%_))) - (_%tl114880114903%_ + (##car _%e116010116028%_))) + (_%tl116012116035%_ (let () (declare (not safe)) - (##cdr _%e114878114896%_)))) + (##cdr _%e116010116028%_)))) (if (gx#stx-pair? - _%tl114880114903%_) - (let ((_%e114881114906%_ + _%tl116012116035%_) + (let ((_%e116013116038%_ (gx#syntax-e - _%tl114880114903%_))) - (let ((_%hd114882114910%_ + _%tl116012116035%_))) + (let ((_%hd116014116042%_ (let () (declare (not safe)) - (##car _%e114881114906%_))) - (_%tl114883114913%_ + (##car _%e116013116038%_))) + (_%tl116015116045%_ (let () (declare (not safe)) - (##cdr _%e114881114906%_)))) + (##cdr _%e116013116038%_)))) (if (gx#stx-null? - _%tl114883114913%_) - ((lambda (_%L114916%_ + _%tl116015116045%_) + ((lambda (_%L116048%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L114918%_) + _%L116050%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax '#f 'identifier?) - (cons _%L114918%_ '())) + (cons _%L116050%_ '())) (cons (cons (gx#datum->syntax '#f 'core-identifier=?) - (cons _%L114918%_ + (cons _%L116050%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L114916%_ '())) + (cons _%L116048%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%K114837%_ (cons _%E114829%_ '()))))) - _%hd114882114910%_ - _%hd114879114900%_) - (_%g114874114889%_ _%g114875114893%_)))) + (cons _%K115969%_ (cons _%E115961%_ '()))))) + _%hd116014116042%_ + _%hd116011116032%_) + (_%g116006116021%_ _%g116007116025%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g114874114889%_ - _%g114875114893%_)))) - (_%g114874114889%_ - _%g114875114893%_))))) - (_%g114873114942%_ - (list _%tgt114836%_ _%hd114834%_))) - (let* ((_%g114948114963%_ - (lambda (_%g114949114959%_) + (_%g116006116021%_ + _%g116007116025%_)))) + (_%g116006116021%_ + _%g116007116025%_))))) + (_%g116005116074%_ + (list _%tgt115968%_ _%hd115966%_))) + (let* ((_%g116080116095%_ + (lambda (_%g116081116091%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114949114959%_))) - (_%g114947115008%_ - (lambda (_%g114949114967%_) - (if (gx#stx-pair? _%g114949114967%_) - (let ((_%e114952114970%_ + _%g116081116091%_))) + (_%g116079116140%_ + (lambda (_%g116081116099%_) + (if (gx#stx-pair? _%g116081116099%_) + (let ((_%e116084116102%_ (gx#syntax-e - _%g114949114967%_))) - (let ((_%hd114953114974%_ + _%g116081116099%_))) + (let ((_%hd116085116106%_ (let () (declare (not safe)) - (##car _%e114952114970%_))) - (_%tl114954114977%_ + (##car _%e116084116102%_))) + (_%tl116086116109%_ (let () (declare (not safe)) - (##cdr _%e114952114970%_)))) + (##cdr _%e116084116102%_)))) (if (gx#stx-pair? - _%tl114954114977%_) - (let ((_%e114955114980%_ + _%tl116086116109%_) + (let ((_%e116087116112%_ (gx#syntax-e - _%tl114954114977%_))) - (let ((_%hd114956114984%_ + _%tl116086116109%_))) + (let ((_%hd116088116116%_ (let () (declare (not safe)) - (##car _%e114955114980%_))) - (_%tl114957114987%_ + (##car _%e116087116112%_))) + (_%tl116089116119%_ (let () (declare (not safe)) - (##cdr _%e114955114980%_)))) + (##cdr _%e116087116112%_)))) (if (gx#stx-null? - _%tl114957114987%_) - ((lambda (_%L114990%_ + _%tl116089116119%_) + ((lambda (_%L116122%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L114992%_) + _%L116124%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L114990%_ (cons _%L114992%_ '())) + (cons (cons (cons _%L116122%_ (cons _%L116124%_ '())) '()) - (cons _%K114837%_ '())))) - _%hd114956114984%_ - _%hd114953114974%_) - (_%g114948114963%_ _%g114949114967%_)))) + (cons _%K115969%_ '())))) + _%hd116088116116%_ + _%hd116085116106%_) + (_%g116080116095%_ _%g116081116099%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g114948114963%_ - _%g114949114967%_)))) - (_%g114948114963%_ - _%g114949114967%_))))) - (_%g114947115008%_ - (list _%tgt114836%_ _%hd114834%_))))) - (if (gx#stx-null? _%hd114834%_) - (let* ((_%g115014115022%_ - (lambda (_%g115015115018%_) + (_%g116080116095%_ + _%g116081116099%_)))) + (_%g116080116095%_ + _%g116081116099%_))))) + (_%g116079116140%_ + (list _%tgt115968%_ _%hd115966%_))))) + (if (gx#stx-null? _%hd115966%_) + (let* ((_%g116146116154%_ + (lambda (_%g116147116150%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115015115018%_))) - (_%g115013115041%_ - (lambda (_%g115015115026%_) - ((lambda (_%L115029%_) + _%g116147116150%_))) + (_%g116145116173%_ + (lambda (_%g116147116158%_) + ((lambda (_%L116161%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'stx-null?) - (cons _%L115029%_ '())) - (cons _%K114837%_ - (cons _%E114829%_ + (cons _%L116161%_ '())) + (cons _%K115969%_ + (cons _%E115961%_ '()))))) - _%g115015115026%_)))) - (_%g115013115041%_ _%tgt114836%_)) - (if (gx#stx-datum? _%hd114834%_) - (let* ((_%g115047115066%_ - (lambda (_%g115048115062%_) + _%g116147116158%_)))) + (_%g116145116173%_ _%tgt115968%_)) + (if (gx#stx-datum? _%hd115966%_) + (let* ((_%g116179116198%_ + (lambda (_%g116180116194%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115048115062%_))) - (_%g115046115125%_ - (lambda (_%g115048115070%_) - (if (gx#stx-pair? _%g115048115070%_) - (let ((_%e115052115073%_ + _%g116180116194%_))) + (_%g116178116257%_ + (lambda (_%g116180116202%_) + (if (gx#stx-pair? _%g116180116202%_) + (let ((_%e116184116205%_ (gx#syntax-e - _%g115048115070%_))) - (let ((_%hd115053115077%_ + _%g116180116202%_))) + (let ((_%hd116185116209%_ (let () (declare (not safe)) - (##car _%e115052115073%_))) - (_%tl115054115080%_ + (##car _%e116184116205%_))) + (_%tl116186116212%_ (let () (declare (not safe)) - (##cdr _%e115052115073%_)))) + (##cdr _%e116184116205%_)))) (if (gx#stx-pair? - _%tl115054115080%_) - (let ((_%e115055115083%_ + _%tl116186116212%_) + (let ((_%e116187116215%_ (gx#syntax-e - _%tl115054115080%_))) - (let ((_%hd115056115087%_ + _%tl116186116212%_))) + (let ((_%hd116188116219%_ (let () (declare (not safe)) - (##car _%e115055115083%_))) - (_%tl115057115090%_ + (##car _%e116187116215%_))) + (_%tl116189116222%_ (let () (declare (not safe)) - (##cdr _%e115055115083%_)))) + (##cdr _%e116187116215%_)))) (if (gx#stx-pair? - _%tl115057115090%_) - (let ((_%e115058115093%_ + _%tl116189116222%_) + (let ((_%e116190116225%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl115057115090%_))) - (let ((_%hd115059115097%_ + _%tl116189116222%_))) + (let ((_%hd116191116229%_ (let () (declare (not safe)) - (##car _%e115058115093%_))) - (_%tl115060115100%_ + (##car _%e116190116225%_))) + (_%tl116192116232%_ (let () (declare (not safe)) - (##cdr _%e115058115093%_)))) - (if (gx#stx-null? _%tl115060115100%_) - ((lambda (_%L115103%_ _%L115105%_ _%L115106%_) + (##cdr _%e116190116225%_)))) + (if (gx#stx-null? _%tl116192116232%_) + ((lambda (_%L116235%_ _%L116237%_ _%L116238%_) (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L115103%_ + (cons (cons _%L116235%_ (cons (cons (gx#datum->syntax '#f 'stx-e) - (cons _%L115106%_ + (cons _%L116238%_ '())) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L115105%_ '())) + (cons _%L116237%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%K114837%_ - (cons _%E114829%_ '()))))) - _%hd115059115097%_ - _%hd115056115087%_ - _%hd115053115077%_) - (_%g115047115066%_ _%g115048115070%_)))) - (_%g115047115066%_ _%g115048115070%_)))) + (cons _%K115969%_ + (cons _%E115961%_ '()))))) + _%hd116191116229%_ + _%hd116188116219%_ + _%hd116185116209%_) + (_%g116179116198%_ _%g116180116202%_)))) + (_%g116179116198%_ _%g116180116202%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g115047115066%_ - _%g115048115070%_)))) - (_%g115047115066%_ - _%g115048115070%_))))) - (_%g115046115125%_ - (list _%tgt114836%_ - _%hd114834%_ - (let ((_%e115129%_ - (gx#stx-e _%hd114834%_))) - (if (or (keyword? _%e115129%_) + (_%g116179116198%_ + _%g116180116202%_)))) + (_%g116179116198%_ + _%g116180116202%_))))) + (_%g116178116257%_ + (list _%tgt115968%_ + _%hd115966%_ + (let ((_%e116261%_ + (gx#stx-e _%hd115966%_))) + (if (or (keyword? _%e116261%_) (let () (declare (not safe)) - (immediate? _%e115129%_))) + (immediate? _%e116261%_))) (gx#datum->syntax '#f 'eq?) - (if (number? _%e115129%_) + (if (number? _%e116261%_) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -714,69 +714,69 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _%stx114279%_ - _%where114824%_ - _%hd114834%_))))))) + _%stx115411%_ + _%where115956%_ + _%hd115966%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx115569115570%_) - (let ((_%e114844115151%_ + _%__stx116701116702%_) + (let ((_%e115976116283%_ (gx#syntax-e - _%__stx115569115570%_))) - (let ((_%tl114846115158%_ + _%__stx116701116702%_))) + (let ((_%tl115978116290%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e114844115151%_))) - (_%hd114845115155%_ - (let () (declare (not safe)) (##car _%e114844115151%_)))) - (_%__kont115572115573%_ - _%tl114846115158%_ - _%hd114845115155%_))) + (##cdr _%e115976116283%_))) + (_%hd115977116287%_ + (let () (declare (not safe)) (##car _%e115976116283%_)))) + (_%__kont116704116705%_ + _%tl115978116290%_ + _%hd115977116287%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont115574115575%_))))))) - (_%recur114831%_ - _%hd114826%_ - _%tgt114431%_ + (_%__kont116706116707%_))))))) + (_%recur115963%_ + _%hd115958%_ + _%tgt115563%_ (cons (gx#datum->syntax '#f 'if) - (cons _%fender114827%_ - (cons _%body114828%_ - (cons _%E114829%_ + (cons _%fender115959%_ + (cons _%body115960%_ + (cons _%E115961%_ '())))))))) - (_%generate-clauses114439%_ - (lambda (_%clauses114562%_) - (let _%lp114565%_ ((_%rest114568%_ - _%clauses114562%_) - (_%E114570%_ + (_%generate-clauses115571%_ + (lambda (_%clauses115694%_) + (let _%lp115697%_ ((_%rest115700%_ + _%clauses115694%_) + (_%E115702%_ (gx#genident 'E)) - (_%r114571%_ '())) - (let* ((_%__stx115605115606%_ _%rest114568%_) - (_%g114574114586%_ + (_%r115703%_ '())) + (let* ((_%__stx116737116738%_ _%rest115700%_) + (_%g115706115718%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx115605115606%_)))) - (let ((_%__kont115608115609%_ - (lambda (_%L114651%_ _%L114653%_) - (let* ((_%__stx115585115586%_ - _%L114653%_) - (_%g114665114676%_ + _%__stx116737116738%_)))) + (let ((_%__kont116740116741%_ + (lambda (_%L115783%_ _%L115785%_) + (let* ((_%__stx116717116718%_ + _%L115785%_) + (_%g115797115808%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx115585115586%_)))) - (let ((_%__kont115588115589%_ - (lambda (_%L114805%_) + _%__stx116717116718%_)))) + (let ((_%__kont116720116721%_ + (lambda (_%L115937%_) (if (gx#stx-null? - _%L114651%_) + _%L115783%_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L114805%_) - (not (gx#stx-null? _%L114805%_))) - (cons (cons _%E114570%_ + _%L115937%_) + (not (gx#stx-null? _%L115937%_))) + (cons (cons _%E115702%_ (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() @@ -784,113 +784,113 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - _%L114805%_) + _%L115937%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%L114653%_)) + (gx#stx-source _%L115785%_)) '())) - _%r114571%_) + _%r115703%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _%stx114279%_ - _%L114653%_)) + _%stx115411%_ + _%L115785%_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _%stx114279%_ - _%L114653%_)))) + _%stx115411%_ + _%L115785%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont115590115591%_ + (_%__kont116722116723%_ (lambda () - (let* ((_%g114687114695%_ - (lambda (_%g114688114691%_) + (let* ((_%g115819115827%_ + (lambda (_%g115820115823%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114688114691%_))) - (_%g114686114784%_ - (lambda (_%g114688114699%_) - ((lambda (_%L114702%_) - (let* ((_%g114718114726%_ - (lambda (_%g114719114722%_) + _%g115820115823%_))) + (_%g115818115916%_ + (lambda (_%g115820115831%_) + ((lambda (_%L115834%_) + (let* ((_%g115850115858%_ + (lambda (_%g115851115854%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114719114722%_))) - (_%g114717114780%_ - (lambda (_%g114719114730%_) - ((lambda (_%L114733%_) - (let* ((_%g114746114754%_ - (lambda (_%g114747114750%_) + _%g115851115854%_))) + (_%g115849115912%_ + (lambda (_%g115851115862%_) + ((lambda (_%L115865%_) + (let* ((_%g115878115886%_ + (lambda (_%g115879115882%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114747114750%_))) - (_%g114745114776%_ - (lambda (_%g114747114758%_) - ((lambda (_%L114761%_) - (_%lp114565%_ - _%L114651%_ - _%L114702%_ - (cons (cons _%E114570%_ + _%g115879115882%_))) + (_%g115877115908%_ + (lambda (_%g115879115890%_) + ((lambda (_%L115893%_) + (_%lp115697%_ + _%L115783%_ + _%L115834%_ + (cons (cons _%E115702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L114761%_ '())) - _%r114571%_))) + (cons _%L115893%_ '())) + _%r115703%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g114747114758%_)))) - (_%g114745114776%_ + _%g115879115890%_)))) + (_%g115877115908%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L114733%_ + (cons _%L115865%_ '()))) - (gx#stx-source _%L114653%_))))) - _%g114719114730%_)))) - (_%g114717114780%_ - (_%generate-clause114436%_ - _%L114653%_ - (cons _%L114702%_ '()))))) - _%g114688114699%_)))) - (_%g114686114784%_ (gx#genident 'E)))))) + (gx#stx-source _%L115785%_))))) + _%g115851115862%_)))) + (_%g115849115912%_ + (_%generate-clause115568%_ + _%L115785%_ + (cons _%L115834%_ '()))))) + _%g115820115831%_)))) + (_%g115818115916%_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx115585115586%_) - (let ((_%e114668114795%_ + _%__stx116717116718%_) + (let ((_%e115800115927%_ (gx#syntax-e - _%__stx115585115586%_))) - (let ((_%tl114670114802%_ + _%__stx116717116718%_))) + (let ((_%tl115802115934%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e114668114795%_))) - (_%hd114669114799%_ - (let () (declare (not safe)) (##car _%e114668114795%_)))) - (if (gx#identifier? _%hd114669114799%_) + (##cdr _%e115800115927%_))) + (_%hd115801115931%_ + (let () (declare (not safe)) (##car _%e115800115927%_)))) + (if (gx#identifier? _%hd115801115931%_) (if (gx#free-identifier=? - |gx[1]#_g115642_| - _%hd114669114799%_) - (_%__kont115588115589%_ _%tl114670114802%_) - (_%__kont115590115591%_)) - (_%__kont115590115591%_)))) + |gx[1]#_g116774_| + _%hd115801115931%_) + (_%__kont116720116721%_ _%tl115802115934%_) + (_%__kont116722116723%_)) + (_%__kont116722116723%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont115590115591%_)))))) - (_%__kont115610115611%_ + (_%__kont116722116723%_)))))) + (_%__kont116742116743%_ (lambda () - (let* ((_%g114597114605%_ - (lambda (_%g114598114601%_) + (let* ((_%g115729115737%_ + (lambda (_%g115730115733%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114598114601%_))) - (_%g114596114630%_ - (lambda (_%g114598114609%_) - ((lambda (_%L114612%_) - (cons (cons _%E114570%_ + _%g115730115733%_))) + (_%g115728115762%_ + (lambda (_%g115730115741%_) + ((lambda (_%L115744%_) + (cons (cons _%E115702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L114612%_ '())))) + (cons _%L115744%_ '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx114279%_)) + (gx#stx-source _%stx115411%_)) '())) - _%r114571%_)) - _%g114598114609%_)))) + _%r115703%_)) + _%g115730115741%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g114596114630%_ - _%tgt114431%_))))) - (if (gx#stx-pair? _%__stx115605115606%_) - (let ((_%e114578114641%_ + (_%g115728115762%_ + _%tgt115563%_))))) + (if (gx#stx-pair? _%__stx116737116738%_) + (let ((_%e115710115773%_ (gx#syntax-e - _%__stx115605115606%_))) - (let ((_%tl114580114648%_ + _%__stx116737116738%_))) + (let ((_%tl115712115780%_ (let () (declare (not safe)) - (##cdr _%e114578114641%_))) - (_%hd114579114645%_ + (##cdr _%e115710115773%_))) + (_%hd115711115777%_ (let () (declare (not safe)) - (##car _%e114578114641%_)))) - (_%__kont115608115609%_ - _%tl114580114648%_ - _%hd114579114645%_))) - (_%__kont115610115611%_)))))))) - (let* ((_%bind114441%_ - (_%generate-clauses114439%_ _%clauses114434%_)) - (_%g114444114461%_ - (lambda (_%g114445114457%_) + (##car _%e115710115773%_)))) + (_%__kont116740116741%_ + _%tl115712115780%_ + _%hd115711115777%_))) + (_%__kont116742116743%_)))))))) + (let* ((_%bind115573%_ + (_%generate-clauses115571%_ _%clauses115566%_)) + (_%g115576115593%_ + (lambda (_%g115577115589%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114445114457%_))) - (_%g114443114558%_ - (lambda (_%g114445114465%_) - (if (gx#stx-pair/null? _%g114445114465%_) - (let ((_g115643_ + _%g115577115589%_))) + (_%g115575115690%_ + (lambda (_%g115577115597%_) + (if (gx#stx-pair/null? _%g115577115597%_) + (let ((_g116775_ (gx#syntax-split-splice - _%g114445114465%_ + _%g115577115597%_ '0))) (begin - (let ((_g115644_ + (let ((_g116776_ (let () (declare (not safe)) - (if (##values? _g115643_) + (if (##values? _g116775_) (##vector-length - _g115643_) + _g116775_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g115644_ 2))) + (##fx= _g116776_ 2))) (error "Context expects 2 values" - _g115644_))) - (let ((_%target114447114468%_ + _g116776_))) + (let ((_%target115579115600%_ (let () (declare (not safe)) - (##vector-ref _g115643_ 0))) - (_%tl114449114471%_ + (##vector-ref _g116775_ 0))) + (_%tl115581115603%_ (let () (declare (not safe)) - (##vector-ref _g115643_ 1)))) - (if (gx#stx-null? _%tl114449114471%_) - (letrec ((_%loop114450114474%_ - (lambda (_%hd114448114478%_ + (##vector-ref _g116775_ 1)))) + (if (gx#stx-null? _%tl115581115603%_) + (letrec ((_%loop115582115606%_ + (lambda (_%hd115580115610%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind-try114454114481%_) - (if (gx#stx-pair? _%hd114448114478%_) - (let ((_%e114451114484%_ - (gx#syntax-e _%hd114448114478%_))) - (let ((_%lp-hd114452114488%_ + _%bind-try115586115613%_) + (if (gx#stx-pair? _%hd115580115610%_) + (let ((_%e115583115616%_ + (gx#syntax-e _%hd115580115610%_))) + (let ((_%lp-hd115584115620%_ (let () (declare (not safe)) - (##car _%e114451114484%_))) - (_%lp-tl114453114491%_ + (##car _%e115583115616%_))) + (_%lp-tl115585115623%_ (let () (declare (not safe)) - (##cdr _%e114451114484%_)))) - (_%loop114450114474%_ - _%lp-tl114453114491%_ - (cons _%lp-hd114452114488%_ - _%bind-try114454114481%_)))) - (let ((_%bind-try114455114494%_ - (reverse _%bind-try114454114481%_))) - ((lambda (_%L114498%_) - (let* ((_%g114516114524%_ - (lambda (_%g114517114520%_) + (##cdr _%e115583115616%_)))) + (_%loop115582115606%_ + _%lp-tl115585115623%_ + (cons _%lp-hd115584115620%_ + _%bind-try115586115613%_)))) + (let ((_%bind-try115587115626%_ + (reverse _%bind-try115586115613%_))) + ((lambda (_%L115630%_) + (let* ((_%g115648115656%_ + (lambda (_%g115649115652%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114517114520%_))) - (_%g114515114554%_ - (lambda (_%g114517114528%_) - ((lambda (_%L114531%_) + _%g115649115652%_))) + (_%g115647115686%_ + (lambda (_%g115649115660%_) + ((lambda (_%L115663%_) (cons (gx#datum->syntax '#f 'let*) - (cons (let ((__tmp115645 - (lambda (_%g114545114548%_ + (cons (let ((__tmp116777 + (lambda (_%g115677115680%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g114546114551%_) - (cons _%g114545114548%_ _%g114546114551%_)))) + _%g115678115683%_) + (cons _%g115677115680%_ _%g115678115683%_)))) (declare (not safe)) - (__foldr1 __tmp115645 '() _%L114498%_)) + (__foldr1 __tmp116777 '() _%L115630%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L114531%_ + (cons (cons _%L115663%_ '()) '())))) - _%g114517114528%_)))) - (_%g114515114554%_ (car (last _%bind114441%_))))) - _%bind-try114455114494%_)))))) + _%g115649115660%_)))) + (_%g115647115686%_ (car (last _%bind115573%_))))) + _%bind-try115587115626%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop114450114474%_ - _%target114447114468%_ + (_%loop115582115606%_ + _%target115579115600%_ '())) - (_%g114444114461%_ - _%g114445114465%_))))) - (_%g114444114461%_ _%g114445114465%_))))) - (_%g114443114558%_ _%bind114441%_)))))) - (let* ((_%g114285114304%_ - (lambda (_%g114286114300%_) + (_%g115576115593%_ + _%g115577115597%_))))) + (_%g115576115593%_ _%g115577115597%_))))) + (_%g115575115690%_ _%bind115573%_)))))) + (let* ((_%g115417115436%_ + (lambda (_%g115418115432%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114286114300%_))) - (_%g114284114427%_ - (lambda (_%g114286114308%_) - (if (gx#stx-pair? _%g114286114308%_) - (let ((_%e114290114311%_ - (gx#syntax-e _%g114286114308%_))) - (let ((_%hd114291114315%_ + _%g115418115432%_))) + (_%g115416115559%_ + (lambda (_%g115418115440%_) + (if (gx#stx-pair? _%g115418115440%_) + (let ((_%e115422115443%_ + (gx#syntax-e _%g115418115440%_))) + (let ((_%hd115423115447%_ (let () (declare (not safe)) - (##car _%e114290114311%_))) - (_%tl114292114318%_ + (##car _%e115422115443%_))) + (_%tl115424115450%_ (let () (declare (not safe)) - (##cdr _%e114290114311%_)))) - (if (gx#stx-pair? _%tl114292114318%_) - (let ((_%e114293114321%_ - (gx#syntax-e _%tl114292114318%_))) - (let ((_%hd114294114325%_ + (##cdr _%e115422115443%_)))) + (if (gx#stx-pair? _%tl115424115450%_) + (let ((_%e115425115453%_ + (gx#syntax-e _%tl115424115450%_))) + (let ((_%hd115426115457%_ (let () (declare (not safe)) - (##car _%e114293114321%_))) - (_%tl114295114328%_ + (##car _%e115425115453%_))) + (_%tl115427115460%_ (let () (declare (not safe)) - (##cdr _%e114293114321%_)))) - (if (gx#stx-pair? _%tl114295114328%_) - (let ((_%e114296114331%_ + (##cdr _%e115425115453%_)))) + (if (gx#stx-pair? _%tl115427115460%_) + (let ((_%e115428115463%_ (gx#syntax-e - _%tl114295114328%_))) - (let ((_%hd114297114335%_ + _%tl115427115460%_))) + (let ((_%hd115429115467%_ (let () (declare (not safe)) - (##car _%e114296114331%_))) - (_%tl114298114338%_ + (##car _%e115428115463%_))) + (_%tl115430115470%_ (let () (declare (not safe)) - (##cdr _%e114296114331%_)))) - ((lambda (_%L114341%_ - _%L114343%_ - _%L114344%_) + (##cdr _%e115428115463%_)))) + ((lambda (_%L115473%_ + _%L115475%_ + _%L115476%_) (if (and (gx#identifier-list? - _%L114343%_) + _%L115475%_) (gx#stx-list? - _%L114341%_)) - (let* ((_%g114362114370%_ - (lambda (_%g114363114366%_) + _%L115473%_)) + (let* ((_%g115494115502%_ + (lambda (_%g115495115498%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114363114366%_))) - (_%g114361114423%_ - (lambda (_%g114363114374%_) - ((lambda (_%L114377%_) - (let* ((_%g114389114397%_ + _%g115495115498%_))) + (_%g115493115555%_ + (lambda (_%g115495115506%_) + ((lambda (_%L115509%_) + (let* ((_%g115521115529%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g114390114393%_) + (lambda (_%g115522115525%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114390114393%_))) - (_%g114388114419%_ - (lambda (_%g114390114401%_) - ((lambda (_%L114404%_) + _%g115522115525%_))) + (_%g115520115551%_ + (lambda (_%g115522115533%_) + ((lambda (_%L115536%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L114377%_ - (cons _%L114344%_ + (cons (cons (cons _%L115509%_ + (cons _%L115476%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L114404%_ '())))) - _%g114390114401%_)))) - (_%g114388114419%_ - (_%generate114282%_ - _%L114377%_ - (gx#syntax->list _%L114343%_) - _%L114341%_)))) - _%g114363114374%_)))) + (cons _%L115536%_ '())))) + _%g115522115533%_)))) + (_%g115520115551%_ + (_%generate115414%_ + _%L115509%_ + (gx#syntax->list _%L115475%_) + _%L115473%_)))) + _%g115495115506%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g114361114423%_ + (_%g115493115555%_ (gx#genident 'e))) - (_%g114285114304%_ - _%g114286114308%_))) - _%tl114298114338%_ - _%hd114297114335%_ - _%hd114294114325%_))) - (_%g114285114304%_ - _%g114286114308%_)))) - (_%g114285114304%_ _%g114286114308%_)))) - (_%g114285114304%_ _%g114286114308%_))))) - (_%g114284114427%_ _%stx114279%_))))))) + (_%g115417115436%_ + _%g115418115440%_))) + _%tl115430115470%_ + _%hd115429115467%_ + _%hd115426115457%_))) + (_%g115417115436%_ + _%g115418115440%_)))) + (_%g115417115436%_ _%g115418115440%_)))) + (_%g115417115436%_ _%g115418115440%_))))) + (_%g115416115559%_ _%stx115411%_))))))) diff --git a/src/bootstrap/gerbil/expander/compile~0.scm b/src/bootstrap/gerbil/expander/compile~0.scm index 82b4a6658..a8ea9991f 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 1713454411) + (define gerbil/expander/compile::timestamp 1713631266) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_%stx129043%_) - (let* ((_%e129044129051%_ _%stx129043%_) - (_%E129046129055%_ + (lambda (_%stx130175%_) + (let* ((_%e130176130183%_ _%stx130175%_) + (_%E130178130187%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129044129051%_))) - (_%E129045129069%_ - (lambda () - (if (gx#stx-pair? _%e129044129051%_) - (let ((_%e129047129059%_ - (gx#syntax-e _%e129044129051%_))) - (let ((_%hd129048129062%_ (##car _%e129047129059%_)) - (_%tl129049129064%_ (##cdr _%e129047129059%_))) - (let* ((_%form129067%_ _%hd129048129062%_) - (__self129072 - (gx#syntax-local-e__0 _%form129067%_)) - (__method129073 + _%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 (__method-ref - __self129072 + __self130204 'compile-top-syntax))) - (if __method129073 - (__method129073 __self129072 _%stx129043%_) + (if __method130205 + (__method130205 __self130204 _%stx130175%_) (begin (error '"Missing method" - __self129072 + __self130204 'compile-top-syntax) '#!void))))) - (_%E129046129055%_))))) - (_%E129045129069%_)))) + (_%E130178130187%_))))) + (_%E130177130201%_)))) (define gx#core-expander::compile-top-syntax - (lambda (_%self127886128989%_ _%stx128991%_) - (let* ((_%self128993%_ _%self127886128989%_) - (_%self128995%_ _%self128993%_) - (_%self129004129012%_ _%self128995%_) - (_%E129006129016%_ + (lambda (_%self129018130121%_ _%stx130123%_) + (let* ((_%self130125%_ _%self129018130121%_) + (_%self130127%_ _%self130125%_) + (_%self130136130144%_ _%self130127%_) + (_%E130138130148%_ (lambda () (error '"No clause matching" - _%self129004129012%_ + _%self130136130144%_ '((core-expander _ _ K))) '#!void)) - (_%K129007129029%_ - (lambda (_%K129019%_) - (let ((_%$e129021%_ (gx#stx-source _%stx128991%_))) - (if _%$e129021%_ - ((lambda (_%g129023129025%_) + (_%K130139130161%_ + (lambda (_%K130151%_) + (let ((_%$e130153%_ (gx#stx-source _%stx130123%_))) + (if _%$e130153%_ + ((lambda (_%g130155130157%_) (gx#stx-wrap-source - (_%K129019%_ _%stx128991%_) - _%g129023129025%_)) - _%$e129021%_) - (_%K129019%_ _%stx128991%_))))) - (_%e129008129032%_ - (##unchecked-structure-ref _%self129004129012%_ '1 '#f '#f)) - (_%e129009129035%_ - (##unchecked-structure-ref _%self129004129012%_ '2 '#f '#f)) - (_%e129010129038%_ - (##unchecked-structure-ref _%self129004129012%_ '3 '#f '#f)) - (_%K129041%_ _%e129010129038%_)) - (_%K129007129029%_ _%K129041%_)))) + (_%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%_)))) (__bind-method!__% gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_%stx128863%_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx128863%_))) + (lambda (_%stx129995%_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx129995%_))) (define gx#core-compile-top-begin% - (lambda (_%stx128833%_) - (let* ((_%e128834128841%_ _%stx128833%_) - (_%E128836128845%_ + (lambda (_%stx129965%_) + (let* ((_%e129966129973%_ _%stx129965%_) + (_%E129968129977%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128834128841%_))) - (_%E128835128859%_ - (lambda () - (if (gx#stx-pair? _%e128834128841%_) - (let ((_%e128837128849%_ - (gx#syntax-e _%e128834128841%_))) - (let ((_%hd128838128852%_ (##car _%e128837128849%_)) - (_%tl128839128854%_ (##cdr _%e128837128849%_))) - (let ((_%body128857%_ _%tl128839128854%_)) + _%e129966129973%_))) + (_%E129967129991%_ + (lambda () + (if (gx#stx-pair? _%e129966129973%_) + (let ((_%e129969129981%_ + (gx#syntax-e _%e129966129973%_))) + (let ((_%hd129970129984%_ (##car _%e129969129981%_)) + (_%tl129971129986%_ (##cdr _%e129969129981%_))) + (let ((_%body129989%_ _%tl129971129986%_)) (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _%body128857%_))))) - (_%E128836128845%_))))) - (_%E128835128859%_)))) + _%body129989%_))))) + (_%E129968129977%_))))) + (_%E129967129991%_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_%stx128802%_) - (let* ((_%e128803128810%_ _%stx128802%_) - (_%E128805128814%_ + (lambda (_%stx129934%_) + (let* ((_%e129935129942%_ _%stx129934%_) + (_%E129937129946%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128803128810%_))) - (_%E128804128829%_ - (lambda () - (if (gx#stx-pair? _%e128803128810%_) - (let ((_%e128806128818%_ - (gx#syntax-e _%e128803128810%_))) - (let ((_%hd128807128821%_ (##car _%e128806128818%_)) - (_%tl128808128823%_ (##cdr _%e128806128818%_))) - (let ((_%body128826%_ _%tl128808128823%_)) + _%e129935129942%_))) + (_%E129936129961%_ + (lambda () + (if (gx#stx-pair? _%e129935129942%_) + (let ((_%e129938129950%_ + (gx#syntax-e _%e129935129942%_))) + (let ((_%hd129939129953%_ (##car _%e129938129950%_)) + (_%tl129940129955%_ (##cdr _%e129938129950%_))) + (let ((_%body129958%_ _%tl129940129955%_)) (cons '%#begin-syntax (__call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _%body128826%_)) + _%body129958%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))))) - (_%E128805128814%_))))) - (_%E128804128829%_)))) + (_%E129937129946%_))))) + (_%E129936129961%_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_%stx128772%_) - (let* ((_%e128773128780%_ _%stx128772%_) - (_%E128775128784%_ + (lambda (_%stx129904%_) + (let* ((_%e129905129912%_ _%stx129904%_) + (_%E129907129916%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128773128780%_))) - (_%E128774128798%_ - (lambda () - (if (gx#stx-pair? _%e128773128780%_) - (let ((_%e128776128788%_ - (gx#syntax-e _%e128773128780%_))) - (let ((_%hd128777128791%_ (##car _%e128776128788%_)) - (_%tl128778128793%_ (##cdr _%e128776128788%_))) - (let ((_%body128796%_ _%tl128778128793%_)) - (cons '%#begin-foreign _%body128796%_)))) - (_%E128775128784%_))))) - (_%E128774128798%_)))) + _%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%_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_%stx128718%_) - (let* ((_%e128719128732%_ _%stx128718%_) - (_%E128721128736%_ + (lambda (_%stx129850%_) + (let* ((_%e129851129864%_ _%stx129850%_) + (_%E129853129868%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128719128732%_))) - (_%E128720128768%_ - (lambda () - (if (gx#stx-pair? _%e128719128732%_) - (let ((_%e128722128740%_ - (gx#syntax-e _%e128719128732%_))) - (let ((_%hd128723128743%_ (##car _%e128722128740%_)) - (_%tl128724128745%_ (##cdr _%e128722128740%_))) - (if (gx#stx-pair? _%tl128724128745%_) - (let ((_%e128725128748%_ - (gx#syntax-e _%tl128724128745%_))) - (let ((_%hd128726128751%_ - (##car _%e128725128748%_)) - (_%tl128727128753%_ - (##cdr _%e128725128748%_))) - (let ((_%ann128756%_ _%hd128726128751%_)) - (if (gx#stx-pair? _%tl128727128753%_) - (let ((_%e128728128758%_ + _%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%_ (gx#syntax-e - _%tl128727128753%_))) - (let ((_%hd128729128761%_ - (##car _%e128728128758%_)) - (_%tl128730128763%_ - (##cdr _%e128728128758%_))) - (let ((_%expr128766%_ - _%hd128729128761%_)) + _%tl129859129885%_))) + (let ((_%hd129861129893%_ + (##car _%e129860129890%_)) + (_%tl129862129895%_ + (##cdr _%e129860129890%_))) + (let ((_%expr129898%_ + _%hd129861129893%_)) (if (gx#stx-null? - _%tl128730128763%_) + _%tl129862129895%_) (gx#core-compile-top-syntax - _%expr128766%_) - (_%E128721128736%_))))) - (_%E128721128736%_))))) - (_%E128721128736%_)))) - (_%E128721128736%_))))) - (_%E128720128768%_)))) + _%expr129898%_) + (_%E129853129868%_))))) + (_%E129853129868%_))))) + (_%E129853129868%_)))) + (_%E129853129868%_))))) + (_%E129852129900%_)))) (define gx#core-compile-top-import% - (lambda (_%stx128688%_) - (let* ((_%e128689128696%_ _%stx128688%_) - (_%E128691128700%_ + (lambda (_%stx129820%_) + (let* ((_%e129821129828%_ _%stx129820%_) + (_%E129823129832%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128689128696%_))) - (_%E128690128714%_ - (lambda () - (if (gx#stx-pair? _%e128689128696%_) - (let ((_%e128692128704%_ - (gx#syntax-e _%e128689128696%_))) - (let ((_%hd128693128707%_ (##car _%e128692128704%_)) - (_%tl128694128709%_ (##cdr _%e128692128704%_))) - (let ((_%body128712%_ _%tl128694128709%_)) - (cons '%#import _%body128712%_)))) - (_%E128691128700%_))))) - (_%E128690128714%_)))) + _%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%_)))) (define gx#core-compile-top-module% - (lambda (_%stx128645%_) - (let* ((_%e128646128656%_ _%stx128645%_) - (_%E128648128660%_ + (lambda (_%stx129777%_) + (let* ((_%e129778129788%_ _%stx129777%_) + (_%E129780129792%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128646128656%_))) - (_%E128647128684%_ - (lambda () - (if (gx#stx-pair? _%e128646128656%_) - (let ((_%e128649128664%_ - (gx#syntax-e _%e128646128656%_))) - (let ((_%hd128650128667%_ (##car _%e128649128664%_)) - (_%tl128651128669%_ (##cdr _%e128649128664%_))) - (if (gx#stx-pair? _%tl128651128669%_) - (let ((_%e128652128672%_ - (gx#syntax-e _%tl128651128669%_))) - (let ((_%hd128653128675%_ - (##car _%e128652128672%_)) - (_%tl128654128677%_ - (##cdr _%e128652128672%_))) - (let* ((_%hd128680%_ _%hd128653128675%_) - (_%body128682%_ _%tl128654128677%_)) + _%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%_)) (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _%hd128680%_) + _%hd129812%_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _%body128682%_)))))) - (_%E128648128660%_)))) - (_%E128648128660%_))))) - (_%E128647128684%_)))) + _%body129814%_)))))) + (_%E129780129792%_)))) + (_%E129780129792%_))))) + (_%E129779129816%_)))) (define gx#core-compile-top-export% - (lambda (_%stx128615%_) - (let* ((_%e128616128623%_ _%stx128615%_) - (_%E128618128627%_ + (lambda (_%stx129747%_) + (let* ((_%e129748129755%_ _%stx129747%_) + (_%E129750129759%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128616128623%_))) - (_%E128617128641%_ - (lambda () - (if (gx#stx-pair? _%e128616128623%_) - (let ((_%e128619128631%_ - (gx#syntax-e _%e128616128623%_))) - (let ((_%hd128620128634%_ (##car _%e128619128631%_)) - (_%tl128621128636%_ (##cdr _%e128619128631%_))) - (let ((_%body128639%_ _%tl128621128636%_)) - (cons '%#export _%body128639%_)))) - (_%E128618128627%_))))) - (_%E128617128641%_)))) + _%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%_)))) (define gx#core-compile-top-provide% - (lambda (_%stx128585%_) - (let* ((_%e128586128593%_ _%stx128585%_) - (_%E128588128597%_ + (lambda (_%stx129717%_) + (let* ((_%e129718129725%_ _%stx129717%_) + (_%E129720129729%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128586128593%_))) - (_%E128587128611%_ - (lambda () - (if (gx#stx-pair? _%e128586128593%_) - (let ((_%e128589128601%_ - (gx#syntax-e _%e128586128593%_))) - (let ((_%hd128590128604%_ (##car _%e128589128601%_)) - (_%tl128591128606%_ (##cdr _%e128589128601%_))) - (let ((_%body128609%_ _%tl128591128606%_)) - (cons '%#provide _%body128609%_)))) - (_%E128588128597%_))))) - (_%E128587128611%_)))) + _%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%_)))) (define gx#core-compile-top-extern% - (lambda (_%stx128555%_) - (let* ((_%e128556128563%_ _%stx128555%_) - (_%E128558128567%_ + (lambda (_%stx129687%_) + (let* ((_%e129688129695%_ _%stx129687%_) + (_%E129690129699%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128556128563%_))) - (_%E128557128581%_ - (lambda () - (if (gx#stx-pair? _%e128556128563%_) - (let ((_%e128559128571%_ - (gx#syntax-e _%e128556128563%_))) - (let ((_%hd128560128574%_ (##car _%e128559128571%_)) - (_%tl128561128576%_ (##cdr _%e128559128571%_))) - (let ((_%body128579%_ _%tl128561128576%_)) - (cons '%#extern _%body128579%_)))) - (_%E128558128567%_))))) - (_%E128557128581%_)))) + _%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%_)))) (define gx#core-compile-top-define-values% - (lambda (_%stx128501%_) - (let* ((_%e128502128515%_ _%stx128501%_) - (_%E128504128519%_ + (lambda (_%stx129633%_) + (let* ((_%e129634129647%_ _%stx129633%_) + (_%E129636129651%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128502128515%_))) - (_%E128503128551%_ - (lambda () - (if (gx#stx-pair? _%e128502128515%_) - (let ((_%e128505128523%_ - (gx#syntax-e _%e128502128515%_))) - (let ((_%hd128506128526%_ (##car _%e128505128523%_)) - (_%tl128507128528%_ (##cdr _%e128505128523%_))) - (if (gx#stx-pair? _%tl128507128528%_) - (let ((_%e128508128531%_ - (gx#syntax-e _%tl128507128528%_))) - (let ((_%hd128509128534%_ - (##car _%e128508128531%_)) - (_%tl128510128536%_ - (##cdr _%e128508128531%_))) - (let ((_%hd128539%_ _%hd128509128534%_)) - (if (gx#stx-pair? _%tl128510128536%_) - (let ((_%e128511128541%_ + _%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%_ (gx#syntax-e - _%tl128510128536%_))) - (let ((_%hd128512128544%_ - (##car _%e128511128541%_)) - (_%tl128513128546%_ - (##cdr _%e128511128541%_))) - (let ((_%expr128549%_ - _%hd128512128544%_)) + _%tl129642129668%_))) + (let ((_%hd129644129676%_ + (##car _%e129643129673%_)) + (_%tl129645129678%_ + (##cdr _%e129643129673%_))) + (let ((_%expr129681%_ + _%hd129644129676%_)) (if (gx#stx-null? - _%tl128513128546%_) + _%tl129645129678%_) (cons '%#define-values (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd128539%_) + _%hd129671%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr128549%_) + _%expr129681%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E128504128519%_))))) - (_%E128504128519%_))))) - (_%E128504128519%_)))) - (_%E128504128519%_))))) - (_%E128503128551%_)))) + (_%E129636129651%_))))) + (_%E129636129651%_))))) + (_%E129636129651%_)))) + (_%E129636129651%_))))) + (_%E129635129683%_)))) (define gx#core-compile-top-define-syntax% - (lambda (_%stx128446%_) - (let* ((_%e128447128460%_ _%stx128446%_) - (_%E128449128464%_ + (lambda (_%stx129578%_) + (let* ((_%e129579129592%_ _%stx129578%_) + (_%E129581129596%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128447128460%_))) - (_%E128448128497%_ - (lambda () - (if (gx#stx-pair? _%e128447128460%_) - (let ((_%e128450128468%_ - (gx#syntax-e _%e128447128460%_))) - (let ((_%hd128451128471%_ (##car _%e128450128468%_)) - (_%tl128452128473%_ (##cdr _%e128450128468%_))) - (if (gx#stx-pair? _%tl128452128473%_) - (let ((_%e128453128476%_ - (gx#syntax-e _%tl128452128473%_))) - (let ((_%hd128454128479%_ - (##car _%e128453128476%_)) - (_%tl128455128481%_ - (##cdr _%e128453128476%_))) - (let ((_%hd128484%_ _%hd128454128479%_)) - (if (gx#stx-pair? _%tl128455128481%_) - (let ((_%e128456128486%_ + _%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%_ (gx#syntax-e - _%tl128455128481%_))) - (let ((_%hd128457128489%_ - (##car _%e128456128486%_)) - (_%tl128458128491%_ - (##cdr _%e128456128486%_))) - (let ((_%expr128494%_ - _%hd128457128489%_)) + _%tl129587129613%_))) + (let ((_%hd129589129621%_ + (##car _%e129588129618%_)) + (_%tl129590129623%_ + (##cdr _%e129588129618%_))) + (let ((_%expr129626%_ + _%hd129589129621%_)) (if (gx#stx-null? - _%tl128458128491%_) + _%tl129590129623%_) (cons '%#define-syntax - (cons _%hd128484%_ + (cons _%hd129616%_ (cons (__call-with-parameters ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda () - (gx#core-compile-top-syntax _%expr128494%_)) + (gx#core-compile-top-syntax _%expr129626%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E128449128464%_))))) - (_%E128449128464%_))))) - (_%E128449128464%_)))) - (_%E128449128464%_))))) - (_%E128448128497%_)))) + (_%E129581129596%_))))) + (_%E129581129596%_))))) + (_%E129581129596%_)))) + (_%E129581129596%_))))) + (_%E129580129629%_)))) (define gx#core-compile-top-define-alias% - (lambda (_%stx128416%_) - (let* ((_%e128417128424%_ _%stx128416%_) - (_%E128419128428%_ + (lambda (_%stx129548%_) + (let* ((_%e129549129556%_ _%stx129548%_) + (_%E129551129560%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128417128424%_))) - (_%E128418128442%_ - (lambda () - (if (gx#stx-pair? _%e128417128424%_) - (let ((_%e128420128432%_ - (gx#syntax-e _%e128417128424%_))) - (let ((_%hd128421128435%_ (##car _%e128420128432%_)) - (_%tl128422128437%_ (##cdr _%e128420128432%_))) - (let ((_%body128440%_ _%tl128422128437%_)) - (cons '%#define-alias _%body128440%_)))) - (_%E128419128428%_))))) - (_%E128418128442%_)))) + _%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%_)))) (define gx#core-compile-top-define-runtime% - (lambda (_%stx128386%_) - (let* ((_%e128387128394%_ _%stx128386%_) - (_%E128389128398%_ + (lambda (_%stx129518%_) + (let* ((_%e129519129526%_ _%stx129518%_) + (_%E129521129530%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128387128394%_))) - (_%E128388128412%_ - (lambda () - (if (gx#stx-pair? _%e128387128394%_) - (let ((_%e128390128402%_ - (gx#syntax-e _%e128387128394%_))) - (let ((_%hd128391128405%_ (##car _%e128390128402%_)) - (_%tl128392128407%_ (##cdr _%e128390128402%_))) - (let ((_%body128410%_ _%tl128392128407%_)) - (cons '%#define-runtime _%body128410%_)))) - (_%E128389128398%_))))) - (_%E128388128412%_)))) + _%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%_)))) (define gx#core-compile-top-declare% - (lambda (_%stx128356%_) - (let* ((_%e128357128364%_ _%stx128356%_) - (_%E128359128368%_ + (lambda (_%stx129488%_) + (let* ((_%e129489129496%_ _%stx129488%_) + (_%E129491129500%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128357128364%_))) - (_%E128358128382%_ - (lambda () - (if (gx#stx-pair? _%e128357128364%_) - (let ((_%e128360128372%_ - (gx#syntax-e _%e128357128364%_))) - (let ((_%hd128361128375%_ (##car _%e128360128372%_)) - (_%tl128362128377%_ (##cdr _%e128360128372%_))) - (let ((_%decls128380%_ _%tl128362128377%_)) - (cons '%#declare _%decls128380%_)))) - (_%E128359128368%_))))) - (_%E128358128382%_)))) + _%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%_)))) (define gx#core-compile-top-lambda% - (lambda (_%stx128326%_) - (let* ((_%e128327128334%_ _%stx128326%_) - (_%E128329128338%_ + (lambda (_%stx129458%_) + (let* ((_%e129459129466%_ _%stx129458%_) + (_%E129461129470%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128327128334%_))) - (_%E128328128352%_ - (lambda () - (if (gx#stx-pair? _%e128327128334%_) - (let ((_%e128330128342%_ - (gx#syntax-e _%e128327128334%_))) - (let ((_%hd128331128345%_ (##car _%e128330128342%_)) - (_%tl128332128347%_ (##cdr _%e128330128342%_))) - (let ((_%clause128350%_ _%tl128332128347%_)) + _%e129459129466%_))) + (_%E129460129484%_ + (lambda () + (if (gx#stx-pair? _%e129459129466%_) + (let ((_%e129462129474%_ + (gx#syntax-e _%e129459129466%_))) + (let ((_%hd129463129477%_ (##car _%e129462129474%_)) + (_%tl129464129479%_ (##cdr _%e129462129474%_))) + (let ((_%clause129482%_ _%tl129464129479%_)) (cons '%#lambda (gx#core-compile-top-lambda-clause - _%clause128350%_))))) - (_%E128329128338%_))))) - (_%E128328128352%_)))) + _%clause129482%_))))) + (_%E129461129470%_))))) + (_%E129460129484%_)))) (define gx#core-compile-top-lambda-clause - (lambda (_%stx128283%_) - (let* ((_%e128284128294%_ _%stx128283%_) - (_%E128286128298%_ + (lambda (_%stx129415%_) + (let* ((_%e129416129426%_ _%stx129415%_) + (_%E129418129430%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128284128294%_))) - (_%E128285128322%_ - (lambda () - (if (gx#stx-pair? _%e128284128294%_) - (let ((_%e128287128302%_ - (gx#syntax-e _%e128284128294%_))) - (let ((_%hd128288128305%_ (##car _%e128287128302%_)) - (_%tl128289128307%_ (##cdr _%e128287128302%_))) - (let ((_%hd128310%_ _%hd128288128305%_)) - (if (gx#stx-pair? _%tl128289128307%_) - (let ((_%e128290128312%_ - (gx#syntax-e _%tl128289128307%_))) - (let ((_%hd128291128315%_ - (##car _%e128290128312%_)) - (_%tl128292128317%_ - (##cdr _%e128290128312%_))) - (let ((_%body128320%_ _%hd128291128315%_)) - (if (gx#stx-null? _%tl128292128317%_) + _%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%_) (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd128310%_) + _%hd129442%_) (cons (gx#core-compile-top-syntax - _%body128320%_) + _%body129452%_) '())) - (_%E128286128298%_))))) - (_%E128286128298%_))))) - (_%E128286128298%_))))) - (_%E128285128322%_)))) + (_%E129418129430%_))))) + (_%E129418129430%_))))) + (_%E129418129430%_))))) + (_%E129417129454%_)))) (define gx#core-compile-top-case-lambda% - (lambda (_%stx128253%_) - (let* ((_%e128254128261%_ _%stx128253%_) - (_%E128256128265%_ + (lambda (_%stx129385%_) + (let* ((_%e129386129393%_ _%stx129385%_) + (_%E129388129397%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128254128261%_))) - (_%E128255128279%_ - (lambda () - (if (gx#stx-pair? _%e128254128261%_) - (let ((_%e128257128269%_ - (gx#syntax-e _%e128254128261%_))) - (let ((_%hd128258128272%_ (##car _%e128257128269%_)) - (_%tl128259128274%_ (##cdr _%e128257128269%_))) - (let ((_%clauses128277%_ _%tl128259128274%_)) + _%e129386129393%_))) + (_%E129387129411%_ + (lambda () + (if (gx#stx-pair? _%e129386129393%_) + (let ((_%e129389129401%_ + (gx#syntax-e _%e129386129393%_))) + (let ((_%hd129390129404%_ (##car _%e129389129401%_)) + (_%tl129391129406%_ (##cdr _%e129389129401%_))) + (let ((_%clauses129409%_ _%tl129391129406%_)) (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _%clauses128277%_))))) - (_%E128256128265%_))))) - (_%E128255128279%_)))) + _%clauses129409%_))))) + (_%E129388129397%_))))) + (_%E129387129411%_)))) (define gx#core-compile-top-let-values%__% - (lambda (_%stx128188%_ _%form128189%_) - (let* ((_%e128190128203%_ _%stx128188%_) - (_%E128192128207%_ + (lambda (_%stx129320%_ _%form129321%_) + (let* ((_%e129322129335%_ _%stx129320%_) + (_%E129324129339%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128190128203%_))) - (_%E128191128239%_ - (lambda () - (if (gx#stx-pair? _%e128190128203%_) - (let ((_%e128193128211%_ - (gx#syntax-e _%e128190128203%_))) - (let ((_%hd128194128214%_ (##car _%e128193128211%_)) - (_%tl128195128216%_ (##cdr _%e128193128211%_))) - (if (gx#stx-pair? _%tl128195128216%_) - (let ((_%e128196128219%_ - (gx#syntax-e _%tl128195128216%_))) - (let ((_%hd128197128222%_ - (##car _%e128196128219%_)) - (_%tl128198128224%_ - (##cdr _%e128196128219%_))) - (let ((_%hd128227%_ _%hd128197128222%_)) - (if (gx#stx-pair? _%tl128198128224%_) - (let ((_%e128199128229%_ + _%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%_ (gx#syntax-e - _%tl128198128224%_))) - (let ((_%hd128200128232%_ - (##car _%e128199128229%_)) - (_%tl128201128234%_ - (##cdr _%e128199128229%_))) - (let ((_%body128237%_ - _%hd128200128232%_)) + _%tl129330129356%_))) + (let ((_%hd129332129364%_ + (##car _%e129331129361%_)) + (_%tl129333129366%_ + (##cdr _%e129331129361%_))) + (let ((_%body129369%_ + _%hd129332129364%_)) (if (gx#stx-null? - _%tl128201128234%_) - (cons _%form128189%_ + _%tl129333129366%_) + (cons _%form129321%_ (cons (gx#stx-map1 gx#core-compile-top-lambda-clause - _%hd128227%_) + _%hd129359%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body128237%_) + _%body129369%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E128192128207%_))))) - (_%E128192128207%_))))) - (_%E128192128207%_)))) - (_%E128192128207%_))))) - (_%E128191128239%_)))) + (_%E129324129339%_))))) + (_%E129324129339%_))))) + (_%E129324129339%_)))) + (_%E129324129339%_))))) + (_%E129323129371%_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_%stx128246%_) - (let ((_%form128248%_ '%#let-values)) - (gx#core-compile-top-let-values%__% _%stx128246%_ _%form128248%_)))) + (lambda (_%stx129378%_) + (let ((_%form129380%_ '%#let-values)) + (gx#core-compile-top-let-values%__% _%stx129378%_ _%form129380%_)))) (define gx#core-compile-top-let-values% - (lambda _g129075_ - (let ((_g129074_ (##length _g129075_))) - (cond ((##fx= _g129074_ 1) - (apply gx#core-compile-top-let-values%__0 _g129075_)) - ((##fx= _g129074_ 2) - (apply gx#core-compile-top-let-values%__% _g129075_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g129075_)))))) + _g130207_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_%stx128185%_) - (gx#core-compile-top-let-values%__% _%stx128185%_ '%#letrec-values))) + (lambda (_%stx129317%_) + (gx#core-compile-top-let-values%__% _%stx129317%_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_%stx128183%_) - (gx#core-compile-top-let-values%__% _%stx128183%_ '%#letrec*-values))) + (lambda (_%stx129315%_) + (gx#core-compile-top-let-values%__% _%stx129315%_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_%stx128142%_) - (let* ((_%e128143128153%_ _%stx128142%_) - (_%E128145128157%_ + (lambda (_%stx129274%_) + (let* ((_%e129275129285%_ _%stx129274%_) + (_%E129277129289%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128143128153%_))) - (_%E128144128179%_ - (lambda () - (if (gx#stx-pair? _%e128143128153%_) - (let ((_%e128146128161%_ - (gx#syntax-e _%e128143128153%_))) - (let ((_%hd128147128164%_ (##car _%e128146128161%_)) - (_%tl128148128166%_ (##cdr _%e128146128161%_))) - (if (gx#stx-pair? _%tl128148128166%_) - (let ((_%e128149128169%_ - (gx#syntax-e _%tl128148128166%_))) - (let ((_%hd128150128172%_ - (##car _%e128149128169%_)) - (_%tl128151128174%_ - (##cdr _%e128149128169%_))) - (let ((_%e128177%_ _%hd128150128172%_)) - (if (gx#stx-null? _%tl128151128174%_) + _%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%_) (cons '%#quote (cons (gx#syntax->datum - _%e128177%_) + _%e129309%_) '())) - (_%E128145128157%_))))) - (_%E128145128157%_)))) - (_%E128145128157%_))))) - (_%E128144128179%_)))) + (_%E129277129289%_))))) + (_%E129277129289%_)))) + (_%E129277129289%_))))) + (_%E129276129311%_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_%stx128101%_) - (let* ((_%e128102128112%_ _%stx128101%_) - (_%E128104128116%_ + (lambda (_%stx129233%_) + (let* ((_%e129234129244%_ _%stx129233%_) + (_%E129236129248%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128102128112%_))) - (_%E128103128138%_ - (lambda () - (if (gx#stx-pair? _%e128102128112%_) - (let ((_%e128105128120%_ - (gx#syntax-e _%e128102128112%_))) - (let ((_%hd128106128123%_ (##car _%e128105128120%_)) - (_%tl128107128125%_ (##cdr _%e128105128120%_))) - (if (gx#stx-pair? _%tl128107128125%_) - (let ((_%e128108128128%_ - (gx#syntax-e _%tl128107128125%_))) - (let ((_%hd128109128131%_ - (##car _%e128108128128%_)) - (_%tl128110128133%_ - (##cdr _%e128108128128%_))) - (let ((_%e128136%_ _%hd128109128131%_)) - (if (gx#stx-null? _%tl128110128133%_) + _%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%_) (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _%e128136%_) + _%e129268%_) '())) - (_%E128104128116%_))))) - (_%E128104128116%_)))) - (_%E128104128116%_))))) - (_%E128103128138%_)))) + (_%E129236129248%_))))) + (_%E129236129248%_)))) + (_%E129236129248%_))))) + (_%E129235129270%_)))) (define gx#core-compile-top-call% - (lambda (_%stx128058%_) - (let* ((_%e128059128069%_ _%stx128058%_) - (_%E128061128073%_ + (lambda (_%stx129190%_) + (let* ((_%e129191129201%_ _%stx129190%_) + (_%E129193129205%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128059128069%_))) - (_%E128060128097%_ - (lambda () - (if (gx#stx-pair? _%e128059128069%_) - (let ((_%e128062128077%_ - (gx#syntax-e _%e128059128069%_))) - (let ((_%hd128063128080%_ (##car _%e128062128077%_)) - (_%tl128064128082%_ (##cdr _%e128062128077%_))) - (if (gx#stx-pair? _%tl128064128082%_) - (let ((_%e128065128085%_ - (gx#syntax-e _%tl128064128082%_))) - (let ((_%hd128066128088%_ - (##car _%e128065128085%_)) - (_%tl128067128090%_ - (##cdr _%e128065128085%_))) - (let* ((_%rator128093%_ _%hd128066128088%_) - (_%args128095%_ _%tl128067128090%_)) + _%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%_)) (cons '%#call (cons (gx#core-compile-top-syntax - _%rator128093%_) + _%rator129225%_) (gx#stx-map1 gx#core-compile-top-syntax - _%args128095%_)))))) - (_%E128061128073%_)))) - (_%E128061128073%_))))) - (_%E128060128097%_)))) + _%args129227%_)))))) + (_%E129193129205%_)))) + (_%E129193129205%_))))) + (_%E129192129229%_)))) (define gx#core-compile-top-if% - (lambda (_%stx127991%_) - (let* ((_%e127992128008%_ _%stx127991%_) - (_%E127994128012%_ + (lambda (_%stx129123%_) + (let* ((_%e129124129140%_ _%stx129123%_) + (_%E129126129144%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e127992128008%_))) - (_%E127993128054%_ - (lambda () - (if (gx#stx-pair? _%e127992128008%_) - (let ((_%e127995128016%_ - (gx#syntax-e _%e127992128008%_))) - (let ((_%hd127996128019%_ (##car _%e127995128016%_)) - (_%tl127997128021%_ (##cdr _%e127995128016%_))) - (if (gx#stx-pair? _%tl127997128021%_) - (let ((_%e127998128024%_ - (gx#syntax-e _%tl127997128021%_))) - (let ((_%hd127999128027%_ - (##car _%e127998128024%_)) - (_%tl128000128029%_ - (##cdr _%e127998128024%_))) - (let ((_%test128032%_ _%hd127999128027%_)) - (if (gx#stx-pair? _%tl128000128029%_) - (let ((_%e128001128034%_ + _%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%_ (gx#syntax-e - _%tl128000128029%_))) - (let ((_%hd128002128037%_ - (##car _%e128001128034%_)) - (_%tl128003128039%_ - (##cdr _%e128001128034%_))) - (let ((_%K128042%_ - _%hd128002128037%_)) + _%tl129132129161%_))) + (let ((_%hd129134129169%_ + (##car _%e129133129166%_)) + (_%tl129135129171%_ + (##cdr _%e129133129166%_))) + (let ((_%K129174%_ + _%hd129134129169%_)) (if (gx#stx-pair? - _%tl128003128039%_) - (let ((_%e128004128044%_ + _%tl129135129171%_) + (let ((_%e129136129176%_ (gx#syntax-e - _%tl128003128039%_))) - (let ((_%hd128005128047%_ - (##car _%e128004128044%_)) - (_%tl128006128049%_ - (##cdr _%e128004128044%_))) - (let ((_%E128052%_ - _%hd128005128047%_)) + _%tl129135129171%_))) + (let ((_%hd129137129179%_ + (##car _%e129136129176%_)) + (_%tl129138129181%_ + (##cdr _%e129136129176%_))) + (let ((_%E129184%_ + _%hd129137129179%_)) (if (gx#stx-null? - _%tl128006128049%_) + _%tl129138129181%_) (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _%test128032%_) - (cons (gx#core-compile-top-syntax _%K128042%_) + (cons (gx#core-compile-top-syntax _%test129164%_) + (cons (gx#core-compile-top-syntax _%K129174%_) (cons (gx#core-compile-top-syntax - _%E128052%_) + _%E129184%_) '())))) - (_%E127994128012%_))))) + (_%E129126129144%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E127994128012%_))))) - (_%E127994128012%_))))) - (_%E127994128012%_)))) - (_%E127994128012%_))))) - (_%E127993128054%_)))) + (_%E129126129144%_))))) + (_%E129126129144%_))))) + (_%E129126129144%_)))) + (_%E129126129144%_))))) + (_%E129125129186%_)))) (define gx#core-compile-top-ref% - (lambda (_%stx127950%_) - (let* ((_%e127951127961%_ _%stx127950%_) - (_%E127953127965%_ + (lambda (_%stx129082%_) + (let* ((_%e129083129093%_ _%stx129082%_) + (_%E129085129097%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e127951127961%_))) - (_%E127952127987%_ - (lambda () - (if (gx#stx-pair? _%e127951127961%_) - (let ((_%e127954127969%_ - (gx#syntax-e _%e127951127961%_))) - (let ((_%hd127955127972%_ (##car _%e127954127969%_)) - (_%tl127956127974%_ (##cdr _%e127954127969%_))) - (if (gx#stx-pair? _%tl127956127974%_) - (let ((_%e127957127977%_ - (gx#syntax-e _%tl127956127974%_))) - (let ((_%hd127958127980%_ - (##car _%e127957127977%_)) - (_%tl127959127982%_ - (##cdr _%e127957127977%_))) - (let ((_%id127985%_ _%hd127958127980%_)) - (if (gx#stx-null? _%tl127959127982%_) - (if (gx#identifier? _%id127985%_) + _%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%_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _%id127985%_) + _%id129117%_) '())) - (_%E127953127965%_)) - (_%E127953127965%_))))) - (_%E127953127965%_)))) - (_%E127953127965%_))))) - (_%E127952127987%_)))) + (_%E129085129097%_)) + (_%E129085129097%_))))) + (_%E129085129097%_)))) + (_%E129085129097%_))))) + (_%E129084129119%_)))) (define gx#core-compile-top-setq% - (lambda (_%stx127896%_) - (let* ((_%e127897127910%_ _%stx127896%_) - (_%E127899127914%_ + (lambda (_%stx129028%_) + (let* ((_%e129029129042%_ _%stx129028%_) + (_%E129031129046%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e127897127910%_))) - (_%E127898127946%_ - (lambda () - (if (gx#stx-pair? _%e127897127910%_) - (let ((_%e127900127918%_ - (gx#syntax-e _%e127897127910%_))) - (let ((_%hd127901127921%_ (##car _%e127900127918%_)) - (_%tl127902127923%_ (##cdr _%e127900127918%_))) - (if (gx#stx-pair? _%tl127902127923%_) - (let ((_%e127903127926%_ - (gx#syntax-e _%tl127902127923%_))) - (let ((_%hd127904127929%_ - (##car _%e127903127926%_)) - (_%tl127905127931%_ - (##cdr _%e127903127926%_))) - (let ((_%id127934%_ _%hd127904127929%_)) - (if (gx#stx-pair? _%tl127905127931%_) - (let ((_%e127906127936%_ + _%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%_ (gx#syntax-e - _%tl127905127931%_))) - (let ((_%hd127907127939%_ - (##car _%e127906127936%_)) - (_%tl127908127941%_ - (##cdr _%e127906127936%_))) - (let ((_%expr127944%_ - _%hd127907127939%_)) + _%tl129037129063%_))) + (let ((_%hd129039129071%_ + (##car _%e129038129068%_)) + (_%tl129040129073%_ + (##cdr _%e129038129068%_))) + (let ((_%expr129076%_ + _%hd129039129071%_)) (if (gx#stx-null? - _%tl127908127941%_) + _%tl129040129073%_) (if (gx#identifier? - _%id127934%_) + _%id129066%_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id127934%_) - (cons (gx#core-compile-top-syntax _%expr127944%_) + _%id129066%_) + (cons (gx#core-compile-top-syntax _%expr129076%_) '()))) - (_%E127899127914%_)) + (_%E129031129046%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E127899127914%_))))) - (_%E127899127914%_))))) - (_%E127899127914%_)))) - (_%E127899127914%_))))) - (_%E127898127946%_)))) + (_%E129031129046%_))))) + (_%E129031129046%_))))) + (_%E129031129046%_)))) + (_%E129031129046%_))))) + (_%E129030129078%_)))) (define gx#core-compile-top-runtime-ref - (lambda (_%id127890%_) - (let ((_%$e127892%_ (gx#resolve-identifier__0 _%id127890%_))) - (if _%$e127892%_ - (##unchecked-structure-ref _%$e127892%_ '1 '#f '#f) - _%id127890%_)))) + (lambda (_%id129022%_) + (let ((_%$e129024%_ (gx#resolve-identifier__0 _%id129022%_))) + (if _%$e129024%_ + (##unchecked-structure-ref _%$e129024%_ '1 '#f '#f) + _%id129022%_)))) (define gx#core-compile-top-runtime-bind - (lambda (_%hd127888%_) - (if (gx#identifier? _%hd127888%_) - (gx#core-compile-top-runtime-ref _%hd127888%_) + (lambda (_%hd129020%_) + (if (gx#identifier? _%hd129020%_) + (gx#core-compile-top-runtime-ref _%hd129020%_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core~0.scm b/src/bootstrap/gerbil/expander/core~0.scm index 1c862f018..ccfc2637c 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 1713454410) + (define gerbil/expander/core::timestamp 1713631266) (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 _%$args120158%_ - (apply make-instance gx#expander-context::t _%$args120158%_))) + (lambda _%$args121290%_ + (apply make-instance gx#expander-context::t _%$args121290%_))) (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 _%$args120155%_ - (apply make-instance gx#root-context::t _%$args120155%_))) + (lambda _%$args121287%_ + (apply make-instance gx#root-context::t _%$args121287%_))) (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 _%$args120152%_ - (apply make-instance gx#phi-context::t _%$args120152%_))) + (lambda _%$args121284%_ + (apply make-instance gx#phi-context::t _%$args121284%_))) (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 _%$args120149%_ - (apply make-instance gx#top-context::t _%$args120149%_))) + (lambda _%$args121281%_ + (apply make-instance gx#top-context::t _%$args121281%_))) (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 _%$args120146%_ - (apply make-instance gx#module-context::t _%$args120146%_))) + (lambda _%$args121278%_ + (apply make-instance gx#module-context::t _%$args121278%_))) (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 _%$args120143%_ - (apply make-instance gx#prelude-context::t _%$args120143%_))) + (lambda _%$args121275%_ + (apply make-instance gx#prelude-context::t _%$args121275%_))) (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 _%$args120140%_ - (apply make-instance gx#local-context::t _%$args120140%_))) + (lambda _%$args121272%_ + (apply make-instance gx#local-context::t _%$args121272%_))) (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 (_%self117046120111%_ _%id120113%_ _%super120114%_) - (let* ((_%self120116%_ _%self117046120111%_) - (_%self120118%_ _%self120116%_)) - (if (##fx< '3 (##structure-length _%self120118%_)) + (lambda (_%self118178121243%_ _%id121245%_ _%super121246%_) + (let* ((_%self121248%_ _%self118178121243%_) + (_%self121250%_ _%self121248%_)) + (if (##fx< '3 (##structure-length _%self121250%_)) (begin (##unchecked-structure-set! - _%self120118%_ - _%id120113%_ + _%self121250%_ + _%id121245%_ '1 '#f '#f) (##unchecked-structure-set! - _%self120118%_ + _%self121250%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self120118%_ - _%super120114%_ + _%self121250%_ + _%super121246%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self120118%_ + _%self121250%_ '3 - (##vector-length _%self120118%_)))))) + (##vector-length _%self121250%_)))))) (define gx#phi-context:::init!__0 - (lambda (_%self117046120131%_ _%id120132%_) - (let ((_%super120134%_ (gx#current-expander-context))) + (lambda (_%self118178121263%_ _%id121264%_) + (let ((_%super121266%_ (gx#current-expander-context))) (gx#phi-context:::init!__% - _%self117046120131%_ - _%id120132%_ - _%super120134%_)))) + _%self118178121263%_ + _%id121264%_ + _%super121266%_)))) (define gx#phi-context:::init! - (lambda _g120201_ - (let ((_g120200_ (##length _g120201_))) - (cond ((##fx= _g120200_ 2) - (apply gx#phi-context:::init!__0 _g120201_)) - ((##fx= _g120200_ 3) - (apply gx#phi-context:::init!__% _g120201_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g120201_)))))) + _g121333_)))))) (__bind-method!__% gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_%self117047119962%_ _%super119964%_) - (let* ((_%self119966%_ _%self117047119962%_) - (_%self119968%_ _%self119966%_)) - (if (##fx< '3 (##structure-length _%self119968%_)) + (lambda (_%self118179121094%_ _%super121096%_) + (let* ((_%self121098%_ _%self118179121094%_) + (_%self121100%_ _%self121098%_)) + (if (##fx< '3 (##structure-length _%self121100%_)) (begin (##unchecked-structure-set! - _%self119968%_ + _%self121100%_ (##gensym 'L) '1 '#f '#f) (##unchecked-structure-set! - _%self119968%_ + _%self121100%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self119968%_ - _%super119964%_ + _%self121100%_ + _%super121096%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self119968%_ + _%self121100%_ '3 - (##vector-length _%self119968%_)))))) + (##vector-length _%self121100%_)))))) (define gx#local-context:::init!__0 - (lambda (_%self117047119981%_) - (let ((_%super119983%_ (gx#current-expander-context))) - (gx#local-context:::init!__% _%self117047119981%_ _%super119983%_)))) + (lambda (_%self118179121113%_) + (let ((_%super121115%_ (gx#current-expander-context))) + (gx#local-context:::init!__% _%self118179121113%_ _%super121115%_)))) (define gx#local-context:::init! - (lambda _g120203_ - (let ((_g120202_ (##length _g120203_))) - (cond ((##fx= _g120202_ 1) - (apply gx#local-context:::init!__0 _g120203_)) - ((##fx= _g120202_ 2) - (apply gx#local-context:::init!__% _g120203_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g120203_)))))) + _g121335_)))))) (__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 _%$args119836%_ - (apply make-instance gx#binding::t _%$args119836%_))) + (lambda _%$args120968%_ + (apply make-instance gx#binding::t _%$args120968%_))) (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 _%$args119833%_ - (apply make-instance gx#runtime-binding::t _%$args119833%_))) + (lambda _%$args120965%_ + (apply make-instance gx#runtime-binding::t _%$args120965%_))) (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 _%$args119830%_ - (apply make-instance gx#local-binding::t _%$args119830%_))) + (lambda _%$args120962%_ + (apply make-instance gx#local-binding::t _%$args120962%_))) (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 _%$args119827%_ - (apply make-instance gx#top-binding::t _%$args119827%_))) + (lambda _%$args120959%_ + (apply make-instance gx#top-binding::t _%$args120959%_))) (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 _%$args119824%_ - (apply make-instance gx#module-binding::t _%$args119824%_))) + (lambda _%$args120956%_ + (apply make-instance gx#module-binding::t _%$args120956%_))) (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 _%$args119821%_ - (apply make-instance gx#extern-binding::t _%$args119821%_))) + (lambda _%$args120953%_ + (apply make-instance gx#extern-binding::t _%$args120953%_))) (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 _%$args119818%_ - (apply make-instance gx#syntax-binding::t _%$args119818%_))) + (lambda _%$args120950%_ + (apply make-instance gx#syntax-binding::t _%$args120950%_))) (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 _%$args119815%_ - (apply make-instance gx#import-binding::t _%$args119815%_))) + (lambda _%$args120947%_ + (apply make-instance gx#import-binding::t _%$args120947%_))) (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 _%$args119812%_ - (apply make-instance gx#alias-binding::t _%$args119812%_))) + (lambda _%$args120944%_ + (apply make-instance gx#alias-binding::t _%$args120944%_))) (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 _%$args119809%_ - (apply make-instance gx#expander::t _%$args119809%_))) + (lambda _%$args120941%_ + (apply make-instance gx#expander::t _%$args120941%_))) (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 _%$args119806%_ - (apply make-instance gx#core-expander::t _%$args119806%_))) + (lambda _%$args120938%_ + (apply make-instance gx#core-expander::t _%$args120938%_))) (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 _%$args119803%_ - (apply make-instance gx#expression-form::t _%$args119803%_))) + (lambda _%$args120935%_ + (apply make-instance gx#expression-form::t _%$args120935%_))) (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 _%$args119800%_ - (apply make-instance gx#special-form::t _%$args119800%_))) + (lambda _%$args120932%_ + (apply make-instance gx#special-form::t _%$args120932%_))) (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 _%$args119797%_ - (apply make-instance gx#definition-form::t _%$args119797%_))) + (lambda _%$args120929%_ + (apply make-instance gx#definition-form::t _%$args120929%_))) (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 _%$args119794%_ - (apply make-instance gx#top-special-form::t _%$args119794%_))) + (lambda _%$args120926%_ + (apply make-instance gx#top-special-form::t _%$args120926%_))) (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 _%$args119791%_ - (apply make-instance gx#module-special-form::t _%$args119791%_))) + (lambda _%$args120923%_ + (apply make-instance gx#module-special-form::t _%$args120923%_))) (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 _%$args119788%_ - (apply make-instance gx#feature-expander::t _%$args119788%_))) + (lambda _%$args120920%_ + (apply make-instance gx#feature-expander::t _%$args120920%_))) (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 _%$args119785%_ - (apply make-instance gx#private-feature-expander::t _%$args119785%_))) + (lambda _%$args120917%_ + (apply make-instance gx#private-feature-expander::t _%$args120917%_))) (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 _%$args119782%_ - (apply make-instance gx#reserved-expander::t _%$args119782%_))) + (lambda _%$args120914%_ + (apply make-instance gx#reserved-expander::t _%$args120914%_))) (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 _%$args119779%_ - (apply make-instance gx#macro-expander::t _%$args119779%_))) + (lambda _%$args120911%_ + (apply make-instance gx#macro-expander::t _%$args120911%_))) (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 _%$args119776%_ - (apply make-instance gx#rename-macro-expander::t _%$args119776%_))) + (lambda _%$args120908%_ + (apply make-instance gx#rename-macro-expander::t _%$args120908%_))) (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 _%$args119773%_ - (apply make-instance gx#user-expander::t _%$args119773%_))) + (lambda _%$args120905%_ + (apply make-instance gx#user-expander::t _%$args120905%_))) (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 _%$args119770%_ - (apply make-instance gx#expander-mark::t _%$args119770%_))) + (lambda _%$args120902%_ + (apply make-instance gx#expander-mark::t _%$args120902%_))) (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 (_%ctx119754%_ - _%message119755%_ - _%stx119756%_ + (lambda (_%ctx120886%_ + _%message120887%_ + _%stx120888%_ . - _%details119757%_) - (let ((_%ctx119768%_ - (let ((_%$e119759%_ _%ctx119754%_)) - (if _%$e119759%_ - _%$e119759%_ - (let ((_%$e119762%_ (gx#core-context-top__0))) - (if _%$e119762%_ - ((lambda (_%ctx119765%_) + _%details120889%_) + (let ((_%ctx120900%_ + (let ((_%$e120891%_ _%ctx120886%_)) + (if _%$e120891%_ + _%$e120891%_ + (let ((_%$e120894%_ (gx#core-context-top__0))) + (if _%$e120894%_ + ((lambda (_%ctx120897%_) (cons 'expand (cons (##structure-ref - _%ctx119765%_ + _%ctx120897%_ '1 gx#expander-context::t '#f) '()))) - _%$e119762%_) + _%$e120894%_) '#f)))))) (raise (make-syntax-error - _%message119755%_ - (cons _%stx119756%_ _%details119757%_) - _%ctx119768%_ + _%message120887%_ + (cons _%stx120888%_ _%details120889%_) + _%ctx120900%_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_%stx119741%_ _%expression?119742%_) + (lambda (_%stx120873%_ _%expression?120874%_) (gx#eval-syntax* - (gx#core-expand__% _%stx119741%_ _%expression?119742%_)))) + (gx#core-expand__% _%stx120873%_ _%expression?120874%_)))) (define gx#eval-syntax__0 - (lambda (_%stx119747%_) - (let ((_%expression?119749%_ '#f)) - (gx#eval-syntax__% _%stx119747%_ _%expression?119749%_)))) + (lambda (_%stx120879%_) + (let ((_%expression?120881%_ '#f)) + (gx#eval-syntax__% _%stx120879%_ _%expression?120881%_)))) (define gx#eval-syntax - (lambda _g120205_ - (let ((_g120204_ (##length _g120205_))) - (cond ((##fx= _g120204_ 1) (apply gx#eval-syntax__0 _g120205_)) - ((##fx= _g120204_ 2) (apply gx#eval-syntax__% _g120205_)) + (lambda _g121337_ + (let ((_g121336_ (##length _g121337_))) + (cond ((##fx= _g121336_ 1) (apply gx#eval-syntax__0 _g121337_)) + ((##fx= _g121336_ 2) (apply gx#eval-syntax__% _g121337_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g120205_)))))) + _g121337_)))))) (define gx#eval-syntax* - (lambda (_%stx119738%_) + (lambda (_%stx120870%_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _%stx119738%_)))) + ((gx#current-expander-compile) _%stx120870%_)))) (define gx#core-expand__% - (lambda (_%stx119725%_ _%expression?119726%_) - (if _%expression?119726%_ - (gx#core-expand-expression _%stx119725%_) - (gx#core-expand-top _%stx119725%_)))) + (lambda (_%stx120857%_ _%expression?120858%_) + (if _%expression?120858%_ + (gx#core-expand-expression _%stx120857%_) + (gx#core-expand-top _%stx120857%_)))) (define gx#core-expand__0 - (lambda (_%stx119731%_) - (let ((_%expression?119733%_ '#f)) - (gx#core-expand__% _%stx119731%_ _%expression?119733%_)))) + (lambda (_%stx120863%_) + (let ((_%expression?120865%_ '#f)) + (gx#core-expand__% _%stx120863%_ _%expression?120865%_)))) (define gx#core-expand - (lambda _g120207_ - (let ((_g120206_ (##length _g120207_))) - (cond ((##fx= _g120206_ 1) (apply gx#core-expand__0 _g120207_)) - ((##fx= _g120206_ 2) (apply gx#core-expand__% _g120207_)) + (lambda _g121339_ + (let ((_g121338_ (##length _g121339_))) + (cond ((##fx= _g121338_ 1) (apply gx#core-expand__0 _g121339_)) + ((##fx= _g121338_ 2) (apply gx#core-expand__% _g121339_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g120207_)))))) + _g121339_)))))) (define gx#core-expand-top - (lambda (_%stx119692%_) - (let* ((_%stx119694%_ (gx#core-expand*__0 _%stx119692%_)) - (_%e119695119702%_ _%stx119694%_) - (_%E119697119706%_ - (lambda () (gx#core-expand-expression _%stx119694%_))) - (_%E119696119720%_ + (lambda (_%stx120824%_) + (let* ((_%stx120826%_ (gx#core-expand*__0 _%stx120824%_)) + (_%e120827120834%_ _%stx120826%_) + (_%E120829120838%_ + (lambda () (gx#core-expand-expression _%stx120826%_))) + (_%E120828120852%_ (lambda () - (if (gx#stx-pair? _%e119695119702%_) - (let ((_%e119698119710%_ - (gx#syntax-e _%e119695119702%_))) - (let ((_%hd119699119713%_ (##car _%e119698119710%_)) - (_%tl119700119715%_ (##cdr _%e119698119710%_))) - (let ((_%form119718%_ _%hd119699119713%_)) - (if (gx#core-bound-identifier?__0 _%form119718%_) - _%stx119694%_ - (_%E119697119706%_))))) - (_%E119697119706%_))))) - (_%E119696119720%_)))) + (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%_)))) (define gx#core-expand-expression - (lambda (_%stx119624%_) - (letrec ((_%sealed-expression?119626%_ - (lambda (_%hd119662%_) - (if (gx#sealed-syntax? _%hd119662%_) - (let* ((_%e119663119670%_ _%hd119662%_) - (_%E119665119674%_ (lambda () '#f)) - (_%E119664119688%_ + (lambda (_%stx120756%_) + (letrec ((_%sealed-expression?120758%_ + (lambda (_%hd120794%_) + (if (gx#sealed-syntax? _%hd120794%_) + (let* ((_%e120795120802%_ _%hd120794%_) + (_%E120797120806%_ (lambda () '#f)) + (_%E120796120820%_ (lambda () - (if (gx#stx-pair? _%e119663119670%_) - (let ((_%e119666119678%_ - (gx#syntax-e _%e119663119670%_))) - (let ((_%hd119667119681%_ - (##car _%e119666119678%_)) - (_%tl119668119683%_ - (##cdr _%e119666119678%_))) - (let ((_%form119686%_ - _%hd119667119681%_)) + (if (gx#stx-pair? _%e120795120802%_) + (let ((_%e120798120810%_ + (gx#syntax-e _%e120795120802%_))) + (let ((_%hd120799120813%_ + (##car _%e120798120810%_)) + (_%tl120800120815%_ + (##cdr _%e120798120810%_))) + (let ((_%form120818%_ + _%hd120799120813%_)) (gx#core-bound-identifier?__% - _%form119686%_ + _%form120818%_ gx#expression-form-binding?)))) - (_%E119665119674%_))))) - (_%E119664119688%_)) + (_%E120797120806%_))))) + (_%E120796120820%_)) '#f))) - (_%illegal-expression119627%_ - (lambda (_%hd119659%_ . _%_119660%_) + (_%illegal-expression120759%_ + (lambda (_%hd120791%_ . _%_120792%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _%stx119624%_ - _%hd119659%_))) - (_%expand-e119628%_ - (lambda (_%form119651%_ _%hd119652%_) - (let ((_%bind119654%_ + _%stx120756%_ + _%hd120791%_))) + (_%expand-e120760%_ + (lambda (_%form120783%_ _%hd120784%_) + (let ((_%bind120786%_ (if (##structure-instance-of? - _%form119651%_ + _%form120783%_ 'gx#binding::t) - _%form119651%_ - (gx#resolve-identifier__0 _%form119651%_)))) - (if (gx#core-expander-binding? _%bind119654%_) + _%form120783%_ + (gx#resolve-identifier__0 _%form120783%_)))) + (if (gx#core-expander-binding? _%bind120786%_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind119654%_ + _%bind120786%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd119652%_ - (gx#stx-source _%stx119624%_))) + _%hd120784%_ + (gx#stx-source _%stx120756%_))) (if (##structure-direct-instance-of? - _%bind119654%_ + _%bind120786%_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind119654%_ + _%bind120786%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd119652%_ - (gx#stx-source _%stx119624%_)))) + _%hd120784%_ + (gx#stx-source _%stx120756%_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _%stx119624%_ - _%form119651%_))))))) - (let ((_%hd119630%_ (gx#core-expand-head _%stx119624%_))) - (if (_%sealed-expression?119626%_ _%hd119630%_) - _%hd119630%_ - (if (gx#stx-pair? _%hd119630%_) - (let* ((_%form119634%_ (gx#stx-car _%hd119630%_)) - (_%bind119636%_ - (if (gx#identifier? _%form119634%_) - (gx#resolve-identifier__0 _%form119634%_) + _%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%_) '#f))) - (if (or (not _%bind119636%_) - (not (gx#core-expander-binding? _%bind119636%_))) - (_%expand-e119628%_ + (if (or (not _%bind120768%_) + (not (gx#core-expander-binding? _%bind120768%_))) + (_%expand-e120760%_ '%%app - (cons '%%app _%hd119630%_)) + (cons '%%app _%hd120762%_)) (if (eq? (##unchecked-structure-ref - _%bind119636%_ + _%bind120768%_ '1 '#f '#f) '%#begin) (gx#core-expand-block* - _%hd119630%_ - _%illegal-expression119627%_) - (if (gx#expression-form-binding? _%bind119636%_) - (_%expand-e119628%_ - _%bind119636%_ - _%hd119630%_) + _%hd120762%_ + _%illegal-expression120759%_) + (if (gx#expression-form-binding? _%bind120768%_) + (_%expand-e120760%_ + _%bind120768%_ + _%hd120762%_) (if (gx#direct-special-form-binding? - _%bind119636%_) + _%bind120768%_) (gx#core-expand-expression - (_%expand-e119628%_ - _%bind119636%_ - _%hd119630%_)) - (_%illegal-expression119627%_ - _%hd119630%_)))))) - (if (gx#core-bound-identifier?__0 _%hd119630%_) - (_%illegal-expression119627%_ _%hd119630%_) - (if (gx#identifier? _%hd119630%_) - (_%expand-e119628%_ + (_%expand-e120760%_ + _%bind120768%_ + _%hd120762%_)) + (_%illegal-expression120759%_ + _%hd120762%_)))))) + (if (gx#core-bound-identifier?__0 _%hd120762%_) + (_%illegal-expression120759%_ _%hd120762%_) + (if (gx#identifier? _%hd120762%_) + (_%expand-e120760%_ '%%ref - (cons '%%ref (cons _%hd119630%_ '()))) - (if (gx#stx-datum? _%hd119630%_) - (_%expand-e119628%_ + (cons '%%ref (cons _%hd120762%_ '()))) + (if (gx#stx-datum? _%hd120762%_) + (_%expand-e120760%_ '%#quote - (cons '%#quote (cons _%hd119630%_ '()))) - (_%illegal-expression119627%_ - _%hd119630%_)))))))))) + (cons '%#quote (cons _%hd120762%_ '()))) + (_%illegal-expression120759%_ + _%hd120762%_)))))))))) (define gx#core-expand-expression+1 - (lambda (_%stx119619%_) + (lambda (_%stx120751%_) (__call-with-parameters (lambda () - (let ((_%stx119622%_ (gx#core-expand-expression _%stx119619%_))) - (values _%stx119622%_ (gx#eval-syntax* _%stx119622%_)))) + (let ((_%stx120754%_ (gx#core-expand-expression _%stx120751%_))) + (values _%stx120754%_ (gx#eval-syntax* _%stx120754%_)))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_%stx119600%_ _%stop?119601%_) - (let _%lp119603%_ ((_%stx119605%_ _%stx119600%_)) - (if (_%stop?119601%_ _%stx119605%_) - _%stx119605%_ - (let ((_%rstx119607%_ (gx#core-expand1 _%stx119605%_))) - (if (eq? _%stx119605%_ _%rstx119607%_) - _%stx119605%_ - (_%lp119603%_ _%rstx119607%_))))))) + (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%_))))))) (define gx#core-expand*__0 - (lambda (_%stx119612%_) - (let ((_%stop?119614%_ false)) - (gx#core-expand*__% _%stx119612%_ _%stop?119614%_)))) + (lambda (_%stx120744%_) + (let ((_%stop?120746%_ false)) + (gx#core-expand*__% _%stx120744%_ _%stop?120746%_)))) (define gx#core-expand* - (lambda _g120209_ - (let ((_g120208_ (##length _g120209_))) - (cond ((##fx= _g120208_ 1) (apply gx#core-expand*__0 _g120209_)) - ((##fx= _g120208_ 2) (apply gx#core-expand*__% _g120209_)) + (lambda _g121341_ + (let ((_g121340_ (##length _g121341_))) + (cond ((##fx= _g121340_ 1) (apply gx#core-expand*__0 _g121341_)) + ((##fx= _g121340_ 2) (apply gx#core-expand*__% _g121341_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g120209_)))))) + _g121341_)))))) (define gx#core-expand1 - (lambda (_%stx119552%_) - (letrec ((_%step119554%_ - (lambda (_%hd119591%_) - (let ((_%bind119593%_ - (gx#resolve-identifier__0 _%hd119591%_))) + (lambda (_%stx120684%_) + (letrec ((_%step120686%_ + (lambda (_%hd120723%_) + (let ((_%bind120725%_ + (gx#resolve-identifier__0 _%hd120723%_))) (if (##structure-instance-of? - _%bind119593%_ + _%bind120725%_ 'gx#runtime-binding::t) - _%stx119552%_ + _%stx120684%_ (if (##structure-direct-instance-of? - _%bind119593%_ + _%bind120725%_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind119593%_ + _%bind120725%_ '4 '#f '#f) - _%stx119552%_) - (if (not _%bind119593%_) - _%stx119552%_ + _%stx120684%_) + (if (not _%bind120725%_) + _%stx120684%_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _%stx119552%_)))))))) - (let* ((_%e119555119563%_ _%stx119552%_) - (_%E119561119567%_ (lambda () _%stx119552%_)) - (_%E119557119573%_ + _%stx120684%_)))))))) + (let* ((_%e120687120695%_ _%stx120684%_) + (_%E120693120699%_ (lambda () _%stx120684%_)) + (_%E120689120705%_ (lambda () - (let ((_%hd119571%_ _%e119555119563%_)) - (if (gx#identifier? _%hd119571%_) - (_%step119554%_ _%hd119571%_) - (_%E119561119567%_))))) - (_%E119556119587%_ + (let ((_%hd120703%_ _%e120687120695%_)) + (if (gx#identifier? _%hd120703%_) + (_%step120686%_ _%hd120703%_) + (_%E120693120699%_))))) + (_%E120688120719%_ (lambda () - (if (gx#stx-pair? _%e119555119563%_) - (let ((_%e119558119577%_ - (gx#syntax-e _%e119555119563%_))) - (let ((_%hd119559119580%_ (##car _%e119558119577%_)) - (_%tl119560119582%_ (##cdr _%e119558119577%_))) - (let ((_%hd119585%_ _%hd119559119580%_)) - (if (gx#identifier? _%hd119585%_) - (_%step119554%_ _%hd119585%_) - (_%E119557119573%_))))) - (_%E119557119573%_))))) - (_%E119556119587%_))))) + (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%_))))) (define gx#core-expand-head - (lambda (_%stx119518%_) - (letrec ((_%stop?119520%_ - (lambda (_%stx119522%_) - (let* ((_%e119523119530%_ _%stx119522%_) - (_%E119525119534%_ (lambda () '#f)) - (_%E119524119548%_ + (lambda (_%stx120650%_) + (letrec ((_%stop?120652%_ + (lambda (_%stx120654%_) + (let* ((_%e120655120662%_ _%stx120654%_) + (_%E120657120666%_ (lambda () '#f)) + (_%E120656120680%_ (lambda () - (if (gx#stx-pair? _%e119523119530%_) - (let ((_%e119526119538%_ - (gx#syntax-e _%e119523119530%_))) - (let ((_%hd119527119541%_ - (##car _%e119526119538%_)) - (_%tl119528119543%_ - (##cdr _%e119526119538%_))) - (let ((_%hd119546%_ _%hd119527119541%_)) + (if (gx#stx-pair? _%e120655120662%_) + (let ((_%e120658120670%_ + (gx#syntax-e _%e120655120662%_))) + (let ((_%hd120659120673%_ + (##car _%e120658120670%_)) + (_%tl120660120675%_ + (##cdr _%e120658120670%_))) + (let ((_%hd120678%_ _%hd120659120673%_)) (gx#core-bound-identifier?__0 - _%hd119546%_)))) - (_%E119525119534%_))))) - (_%E119524119548%_))))) - (gx#core-expand*__% _%stx119518%_ _%stop?119520%_)))) + _%hd120678%_)))) + (_%E120657120666%_))))) + (_%E120656120680%_))))) + (gx#core-expand*__% _%stx120650%_ _%stop?120652%_)))) (define gx#core-expand-block__% - (lambda (_%stx119324%_ - _%expand-special119325%_ - _%begin-form119326%_ - _%expand-e119327%_) - (letrec ((_%expand-splice119329%_ - (lambda (_%hd119492%_ - _%body119493%_ - _%rest119494%_ - _%r119495%_) - (if (gx#stx-list? _%body119493%_) - (_%K119333%_ - (gx#stx-foldr cons _%rest119494%_ _%body119493%_) - _%r119495%_) + (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%_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _%stx119324%_ - _%hd119492%_)))) - (_%expand-cond-expand119330%_ - (lambda (_%hd119488%_ _%rest119489%_ _%r119490%_) - (_%K119333%_ - (cons (gx#core-expand-cond-expand% _%hd119488%_) - _%rest119489%_) - _%r119490%_))) - (_%expand-include119331%_ - (lambda (_%hd119437%_ _%rest119438%_ _%r119439%_) - (let* ((_%e119440119450%_ _%hd119437%_) - (_%E119442119454%_ + _%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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119440119450%_))) - (_%E119441119484%_ + _%e120572120582%_))) + (_%E120573120616%_ (lambda () - (if (gx#stx-pair? _%e119440119450%_) - (let ((_%e119443119458%_ - (gx#syntax-e _%e119440119450%_))) - (let ((_%hd119444119461%_ - (##car _%e119443119458%_)) - (_%tl119445119463%_ - (##cdr _%e119443119458%_))) - (if (gx#stx-pair? _%tl119445119463%_) - (let ((_%e119446119466%_ + (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%_ (gx#syntax-e - _%tl119445119463%_))) - (let ((_%hd119447119469%_ - (##car _%e119446119466%_)) - (_%tl119448119471%_ - (##cdr _%e119446119466%_))) - (let ((_%path119474%_ - _%hd119447119469%_)) + _%tl120577120595%_))) + (let ((_%hd120579120601%_ + (##car _%e120578120598%_)) + (_%tl120580120603%_ + (##cdr _%e120578120598%_))) + (let ((_%path120606%_ + _%hd120579120601%_)) (if (gx#stx-null? - _%tl119448119471%_) + _%tl120580120603%_) (if (gx#stx-string? - _%path119474%_) - (let* ((_%rpath119476%_ + _%path120606%_) + (let* ((_%rpath120608%_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%path119474%_ - (gx#stx-source _%hd119437%_))) - (_%block119478%_ + _%path120606%_ + (gx#stx-source _%hd120569%_))) + (_%block120610%_ (gx#core-expand-include%__% - _%hd119437%_ - _%rpath119476%_)) - (_%rbody119481%_ + _%hd120569%_ + _%rpath120608%_)) + (_%rbody120613%_ (__call-with-parameters (lambda () (gx#core-expand-block__% - _%block119478%_ - _%expand-special119325%_ + _%block120610%_ + _%expand-special120457%_ '#f - _%expand-e119327%_)) + _%expand-e120459%_)) gx#current-expander-path - (cons _%rpath119476%_ (gx#current-expander-path))))) - (_%K119333%_ - _%rest119438%_ - (__foldr1 cons _%r119439%_ _%rbody119481%_))) - (_%E119442119454%_)) + (cons _%rpath120608%_ (gx#current-expander-path))))) + (_%K120465%_ + _%rest120570%_ + (__foldr1 cons _%r120571%_ _%rbody120613%_))) + (_%E120574120586%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E119442119454%_))))) - (_%E119442119454%_)))) - (_%E119442119454%_))))) - (_%E119441119484%_)))) - (_%expand-expression119332%_ - (lambda (_%hd119433%_ _%rest119434%_ _%r119435%_) - (_%K119333%_ - _%rest119434%_ - (cons (_%expand-e119327%_ _%hd119433%_) _%r119435%_)))) - (_%K119333%_ - (lambda (_%rest119363%_ _%r119364%_) - (let* ((_%e119365119372%_ _%rest119363%_) - (_%E119367119376%_ + (_%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%_ (lambda () - (if _%begin-form119326%_ + (if _%begin-form120458%_ (gx#core-quote-syntax__1 (gx#core-cons - _%begin-form119326%_ - (reverse _%r119364%_)) - (gx#stx-source _%stx119324%_)) - _%r119364%_))) - (_%E119366119429%_ + _%begin-form120458%_ + (reverse _%r120496%_)) + (gx#stx-source _%stx120456%_)) + _%r120496%_))) + (_%E120498120561%_ (lambda () - (if (gx#stx-pair? _%e119365119372%_) - (let ((_%e119368119380%_ - (gx#syntax-e _%e119365119372%_))) - (let ((_%hd119369119383%_ - (##car _%e119368119380%_)) - (_%tl119370119385%_ - (##cdr _%e119368119380%_))) - (let* ((_%hd119388%_ _%hd119369119383%_) - (_%rest119390%_ - _%tl119370119385%_) - (_%hd119392%_ + (if (gx#stx-pair? _%e120497120504%_) + (let ((_%e120500120512%_ + (gx#syntax-e _%e120497120504%_))) + (let ((_%hd120501120515%_ + (##car _%e120500120512%_)) + (_%tl120502120517%_ + (##cdr _%e120500120512%_))) + (let* ((_%hd120520%_ _%hd120501120515%_) + (_%rest120522%_ + _%tl120502120517%_) + (_%hd120524%_ (gx#core-expand-head - _%hd119388%_)) - (_%e119393119400%_ _%hd119392%_) - (_%E119395119404%_ + _%hd120520%_)) + (_%e120525120532%_ _%hd120524%_) + (_%E120527120536%_ (lambda () - (_%expand-expression119332%_ - _%hd119392%_ - _%rest119390%_ - _%r119364%_))) - (_%E119394119425%_ + (_%expand-expression120464%_ + _%hd120524%_ + _%rest120522%_ + _%r120496%_))) + (_%E120526120557%_ (lambda () (if (gx#stx-pair? - _%e119393119400%_) - (let ((_%e119396119408%_ + _%e120525120532%_) + (let ((_%e120528120540%_ (gx#syntax-e - _%e119393119400%_))) - (let ((_%hd119397119411%_ - (##car _%e119396119408%_)) - (_%tl119398119413%_ - (##cdr _%e119396119408%_))) - (let* ((_%form119416%_ - _%hd119397119411%_) - (_%body119418%_ - _%tl119398119413%_) - (_%bind119420%_ + _%e120525120532%_))) + (let ((_%hd120529120543%_ + (##car _%e120528120540%_)) + (_%tl120530120545%_ + (##cdr _%e120528120540%_))) + (let* ((_%form120548%_ + _%hd120529120543%_) + (_%body120550%_ + _%tl120530120545%_) + (_%bind120552%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%form119416%_) - (gx#resolve-identifier__0 _%form119416%_) + _%form120548%_) + (gx#resolve-identifier__0 _%form120548%_) '#f))) - (if (gx#special-form-binding? _%bind119420%_) - (let ((_%$e119422%_ + (if (gx#special-form-binding? _%bind120552%_) + (let ((_%$e120554%_ (##unchecked-structure-ref - _%bind119420%_ + _%bind120552%_ '1 '#f '#f))) - (if (eq? '%#begin _%$e119422%_) - (_%expand-splice119329%_ - _%hd119392%_ - _%body119418%_ - _%rest119390%_ - _%r119364%_) - (if (eq? '%#cond-expand _%$e119422%_) - (_%expand-cond-expand119330%_ - _%hd119392%_ - _%rest119390%_ - _%r119364%_) - (if (eq? '%#include _%$e119422%_) - (_%expand-include119331%_ - _%hd119392%_ - _%rest119390%_ - _%r119364%_) - (_%expand-special119325%_ - _%hd119392%_ - _%K119333%_ - _%rest119390%_ - _%r119364%_))))) - (_%expand-expression119332%_ - _%hd119392%_ - _%rest119390%_ - _%r119364%_))))) + (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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E119395119404%_))))) - (_%E119394119425%_)))) - (_%E119367119376%_))))) - (_%E119366119429%_))))) - (let* ((_%e119334119341%_ _%stx119324%_) - (_%E119336119345%_ + (_%E120527120536%_))))) + (_%E120526120557%_)))) + (_%E120499120508%_))))) + (_%E120498120561%_))))) + (let* ((_%e120466120473%_ _%stx120456%_) + (_%E120468120477%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119334119341%_))) - (_%E119335119359%_ + _%e120466120473%_))) + (_%E120467120491%_ (lambda () - (if (gx#stx-pair? _%e119334119341%_) - (let ((_%e119337119349%_ - (gx#syntax-e _%e119334119341%_))) - (let ((_%hd119338119352%_ (##car _%e119337119349%_)) - (_%tl119339119354%_ (##cdr _%e119337119349%_))) - (let ((_%body119357%_ _%tl119339119354%_)) - (if (gx#stx-list? _%body119357%_) - (_%K119333%_ _%body119357%_ '()) - (_%E119336119345%_))))) - (_%E119336119345%_))))) - (_%E119335119359%_))))) + (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%_))))) (define gx#core-expand-block__0 - (lambda (_%stx119500%_ _%expand-special119501%_) - (let* ((_%begin-form119503%_ '%#begin) - (_%expand-e119505%_ gx#core-expand-expression)) + (lambda (_%stx120632%_ _%expand-special120633%_) + (let* ((_%begin-form120635%_ '%#begin) + (_%expand-e120637%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx119500%_ - _%expand-special119501%_ - _%begin-form119503%_ - _%expand-e119505%_)))) + _%stx120632%_ + _%expand-special120633%_ + _%begin-form120635%_ + _%expand-e120637%_)))) (define gx#core-expand-block__1 - (lambda (_%stx119507%_ _%expand-special119508%_ _%begin-form119509%_) - (let ((_%expand-e119511%_ gx#core-expand-expression)) + (lambda (_%stx120639%_ _%expand-special120640%_ _%begin-form120641%_) + (let ((_%expand-e120643%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx119507%_ - _%expand-special119508%_ - _%begin-form119509%_ - _%expand-e119511%_)))) + _%stx120639%_ + _%expand-special120640%_ + _%begin-form120641%_ + _%expand-e120643%_)))) (define gx#core-expand-block - (lambda _g120211_ - (let ((_g120210_ (##length _g120211_))) - (cond ((##fx= _g120210_ 2) (apply gx#core-expand-block__0 _g120211_)) - ((##fx= _g120210_ 3) (apply gx#core-expand-block__1 _g120211_)) - ((##fx= _g120210_ 4) (apply gx#core-expand-block__% _g120211_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g120211_)))))) + _g121343_)))))) (define gx#core-expand-block* - (lambda (_%stx119272%_ _%expand-special119273%_) - (let* ((_%g119274119285%_ + (lambda (_%stx120404%_ _%expand-special120405%_) + (let* ((_%g120406120417%_ (gx#core-expand-block__1 - _%stx119272%_ - _%expand-special119273%_ + _%stx120404%_ + _%expand-special120405%_ '#f)) - (_%E119278119289%_ + (_%E120410120421%_ (lambda () (error '"No clause matching" - _%g119274119285%_ + _%g120406120417%_ '([]) '([expr]) '(body)) '#!void))) - (let ((_%K119283119320%_ + (let ((_%K120415120452%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _%stx119272%_))) - (_%K119280119306%_ (lambda (_%expr119304%_) _%expr119304%_)) - (_%K119279119295%_ - (lambda (_%body119293%_) + _%stx120404%_))) + (_%K120412120438%_ (lambda (_%expr120436%_) _%expr120436%_)) + (_%K120411120427%_ + (lambda (_%body120425%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _%body119293%_)) - (gx#stx-source _%stx119272%_))))) - (let ((_%try-match119276119316%_ + (gx#core-cons '%#begin (reverse _%body120425%_)) + (gx#stx-source _%stx120404%_))))) + (let ((_%try-match120408120448%_ (lambda () - (if (##pair? _%g119274119285%_) - (let ((_%tl119282119311%_ (##cdr _%g119274119285%_)) - (_%hd119281119309%_ (##car _%g119274119285%_))) - (if (##null? _%tl119282119311%_) - (let ((_%expr119314%_ _%hd119281119309%_)) - (_%K119280119306%_ _%expr119314%_)) - (let ((_%body119298%_ _%g119274119285%_)) - (_%K119279119295%_ _%body119298%_)))) - (let ((_%body119298%_ _%g119274119285%_)) - (_%K119279119295%_ _%body119298%_)))))) - (if (##null? _%g119274119285%_) - (_%K119283119320%_) - (_%try-match119276119316%_))))))) + (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%_))))))) (define gx#core-expand-cond-expand% - (lambda (_%stx119097%_) - (letrec ((_%satisfied?119099%_ - (lambda (_%condition119200%_) - (let* ((_%e119201119216%_ _%condition119200%_) - (_%E119211119220%_ + (lambda (_%stx120229%_) + (letrec ((_%satisfied?120231%_ + (lambda (_%condition120332%_) + (let* ((_%e120333120348%_ _%condition120332%_) + (_%E120343120352%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119201119216%_))) - (_%E119204119239%_ + _%e120333120348%_))) + (_%E120336120371%_ (lambda () - (if (gx#stx-pair? _%e119201119216%_) - (let ((_%e119212119224%_ - (gx#syntax-e _%e119201119216%_))) - (let ((_%hd119213119227%_ - (##car _%e119212119224%_)) - (_%tl119214119229%_ - (##cdr _%e119212119224%_))) - (let* ((_%combinator119232%_ - _%hd119213119227%_) - (_%body119234%_ - _%tl119214119229%_)) - (if (gx#stx-list? _%body119234%_) - (let ((_%$e119236%_ + (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%_ (gx#stx-e - _%combinator119232%_))) - (if (eq? 'not _%$e119236%_) + _%combinator120364%_))) + (if (eq? 'not _%$e120368%_) (not (gx#stx-ormap - _%satisfied?119099%_ - _%body119234%_)) - (if (eq? 'and _%$e119236%_) + _%satisfied?120231%_ + _%body120366%_)) + (if (eq? 'and _%$e120368%_) (gx#stx-andmap - _%satisfied?119099%_ - _%body119234%_) + _%satisfied?120231%_ + _%body120366%_) (if (eq? 'or - _%$e119236%_) + _%$e120368%_) (gx#stx-ormap - _%satisfied?119099%_ - _%body119234%_) + _%satisfied?120231%_ + _%body120366%_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e119236%_) - (gx#stx-andmap gx#core-resolve-identifier _%body119234%_) + _%$e120368%_) + (gx#stx-andmap gx#core-resolve-identifier _%body120366%_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _%stx119097%_ - _%combinator119232%_)))))) + _%stx120229%_ + _%combinator120364%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E119211119220%_))))) - (_%E119211119220%_)))) - (_%E119203119262%_ + (_%E120343120352%_))))) + (_%E120343120352%_)))) + (_%E120335120394%_ (lambda () - (if (gx#stx-pair? _%e119201119216%_) - (let ((_%e119205119243%_ - (gx#syntax-e _%e119201119216%_))) - (let ((_%hd119206119246%_ - (##car _%e119205119243%_)) - (_%tl119207119248%_ - (##cdr _%e119205119243%_))) + (if (gx#stx-pair? _%e120333120348%_) + (let ((_%e120337120375%_ + (gx#syntax-e _%e120333120348%_))) + (let ((_%hd120338120378%_ + (##car _%e120337120375%_)) + (_%tl120339120380%_ + (##cdr _%e120337120375%_))) (if (and (gx#identifier? - _%hd119206119246%_) + _%hd120338120378%_) (gx#core-identifier=? - _%hd119206119246%_ + _%hd120338120378%_ 'unquote)) - (if (gx#stx-pair? _%tl119207119248%_) - (let ((_%e119208119251%_ + (if (gx#stx-pair? _%tl120339120380%_) + (let ((_%e120340120383%_ (gx#syntax-e - _%tl119207119248%_))) - (let ((_%hd119209119254%_ - (##car _%e119208119251%_)) - (_%tl119210119256%_ - (##cdr _%e119208119251%_))) - (let ((_%expr119259%_ - _%hd119209119254%_)) + _%tl120339120380%_))) + (let ((_%hd120341120386%_ + (##car _%e120340120383%_)) + (_%tl120342120388%_ + (##cdr _%e120340120383%_))) + (let ((_%expr120391%_ + _%hd120341120386%_)) (if (gx#stx-null? - _%tl119210119256%_) + _%tl120342120388%_) (__call-with-parameters (lambda () (gx#eval-syntax__0 - _%expr119259%_)) + _%expr120391%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) - (_%E119204119239%_))))) - (_%E119204119239%_)) - (_%E119204119239%_)))) - (_%E119204119239%_)))) - (_%E119202119268%_ + (_%E120336120371%_))))) + (_%E120336120371%_)) + (_%E120336120371%_)))) + (_%E120336120371%_)))) + (_%E120334120400%_ (lambda () - (let ((_%id119266%_ _%e119201119216%_)) - (if (gx#identifier? _%id119266%_) + (let ((_%id120398%_ _%e120333120348%_)) + (if (gx#identifier? _%id120398%_) (gx#core-bound-identifier?__% - _%id119266%_ + _%id120398%_ gx#feature-binding?) - (_%E119203119262%_)))))) - (_%E119202119268%_)))) - (_%loop119100%_ - (lambda (_%rest119130%_) - (let* ((_%e119131119139%_ _%rest119130%_) - (_%E119137119143%_ + (_%E120335120394%_)))))) + (_%E120334120400%_)))) + (_%loop120232%_ + (lambda (_%rest120262%_) + (let* ((_%e120263120271%_ _%rest120262%_) + (_%E120269120275%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119131119139%_))) - (_%E119133119147%_ + _%e120263120271%_))) + (_%E120265120279%_ (lambda () - (if (gx#stx-null? _%e119131119139%_) + (if (gx#stx-null? _%e120263120271%_) '() - (_%E119137119143%_)))) - (_%E119132119196%_ + (_%E120269120275%_)))) + (_%E120264120328%_ (lambda () - (if (gx#stx-pair? _%e119131119139%_) - (let ((_%e119134119151%_ - (gx#syntax-e _%e119131119139%_))) - (let ((_%hd119135119154%_ - (##car _%e119134119151%_)) - (_%tl119136119156%_ - (##cdr _%e119134119151%_))) - (let* ((_%hd119159%_ _%hd119135119154%_) - (_%rest119161%_ - _%tl119136119156%_) - (_%e119162119169%_ _%hd119159%_) - (_%E119164119173%_ + (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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119162119169%_))) - (_%E119163119192%_ + _%e120294120301%_))) + (_%E120295120324%_ (lambda () (if (gx#stx-pair? - _%e119162119169%_) - (let ((_%e119165119177%_ + _%e120294120301%_) + (let ((_%e120297120309%_ (gx#syntax-e - _%e119162119169%_))) - (let ((_%hd119166119180%_ - (##car _%e119165119177%_)) - (_%tl119167119182%_ - (##cdr _%e119165119177%_))) - (let* ((_%condition119185%_ - _%hd119166119180%_) - (_%body119187%_ - _%tl119167119182%_)) + _%e120294120301%_))) + (let ((_%hd120298120312%_ + (##car _%e120297120309%_)) + (_%tl120299120314%_ + (##cdr _%e120297120309%_))) + (let* ((_%condition120317%_ + _%hd120298120312%_) + (_%body120319%_ + _%tl120299120314%_)) (if (gx#stx-eq? - _%condition119185%_ + _%condition120317%_ 'else) (if (gx#stx-null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rest119161%_) - _%body119187%_ + _%rest120293%_) + _%body120319%_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _%stx119097%_ - _%hd119159%_)) - (if (_%satisfied?119099%_ _%condition119185%_) - _%body119187%_ - (_%loop119100%_ _%rest119161%_)))))) + _%stx120229%_ + _%hd120291%_)) + (if (_%satisfied?120231%_ _%condition120317%_) + _%body120319%_ + (_%loop120232%_ _%rest120293%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E119164119173%_))))) - (_%E119163119192%_)))) - (_%E119133119147%_))))) - (_%E119132119196%_))))) - (let* ((_%e119101119108%_ _%stx119097%_) - (_%E119103119112%_ + (_%E120296120305%_))))) + (_%E120295120324%_)))) + (_%E120265120279%_))))) + (_%E120264120328%_))))) + (let* ((_%e120233120240%_ _%stx120229%_) + (_%E120235120244%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119101119108%_))) - (_%E119102119126%_ + _%e120233120240%_))) + (_%E120234120258%_ (lambda () - (if (gx#stx-pair? _%e119101119108%_) - (let ((_%e119104119116%_ - (gx#syntax-e _%e119101119108%_))) - (let ((_%hd119105119119%_ (##car _%e119104119116%_)) - (_%tl119106119121%_ (##cdr _%e119104119116%_))) - (let ((_%clauses119124%_ _%tl119106119121%_)) - (if (gx#stx-list? _%clauses119124%_) + (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%_) (gx#core-cons 'begin - (_%loop119100%_ _%clauses119124%_)) - (_%E119103119112%_))))) - (_%E119103119112%_))))) - (_%E119102119126%_))))) + (_%loop120232%_ _%clauses120256%_)) + (_%E120235120244%_))))) + (_%E120235120244%_))))) + (_%E120234120258%_))))) (define gx#core-expand-include%__% - (lambda (_%stx119040%_ _%rpath119041%_) - (let* ((_%e119042119052%_ _%stx119040%_) - (_%E119044119056%_ + (lambda (_%stx120172%_ _%rpath120173%_) + (let* ((_%e120174120184%_ _%stx120172%_) + (_%E120176120188%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119042119052%_))) - (_%E119043119083%_ + _%e120174120184%_))) + (_%E120175120215%_ (lambda () - (if (gx#stx-pair? _%e119042119052%_) - (let ((_%e119045119060%_ - (gx#syntax-e _%e119042119052%_))) - (let ((_%hd119046119063%_ (##car _%e119045119060%_)) - (_%tl119047119065%_ (##cdr _%e119045119060%_))) - (if (gx#stx-pair? _%tl119047119065%_) - (let ((_%e119048119068%_ - (gx#syntax-e _%tl119047119065%_))) - (let ((_%hd119049119071%_ - (##car _%e119048119068%_)) - (_%tl119050119073%_ - (##cdr _%e119048119068%_))) - (let ((_%path119076%_ _%hd119049119071%_)) - (if (gx#stx-null? _%tl119050119073%_) - (if (gx#stx-string? _%path119076%_) - (let ((_%rpath119081%_ - (let ((_%$e119078%_ - _%rpath119041%_)) - (if _%$e119078%_ - _%$e119078%_ + (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%_ (gx#core-resolve-path__% - _%path119076%_ + _%path120208%_ (gx#stx-source - _%stx119040%_)))))) - (if (member _%rpath119081%_ + _%stx120172%_)))))) + (if (member _%rpath120213%_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _%stx119040%_) + _%stx120172%_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _%rpath119081%_)) + _%rpath120213%_)) (gx#stx-source - _%stx119040%_))))) - (_%E119044119056%_)) - (_%E119044119056%_))))) - (_%E119044119056%_)))) - (_%E119044119056%_))))) - (_%E119043119083%_)))) + _%stx120172%_))))) + (_%E120176120188%_)) + (_%E120176120188%_))))) + (_%E120176120188%_)))) + (_%E120176120188%_))))) + (_%E120175120215%_)))) (define gx#core-expand-include%__0 - (lambda (_%stx119090%_) - (let ((_%rpath119092%_ '#f)) - (gx#core-expand-include%__% _%stx119090%_ _%rpath119092%_)))) + (lambda (_%stx120222%_) + (let ((_%rpath120224%_ '#f)) + (gx#core-expand-include%__% _%stx120222%_ _%rpath120224%_)))) (define gx#core-expand-include% - (lambda _g120213_ - (let ((_g120212_ (##length _g120213_))) - (cond ((##fx= _g120212_ 1) - (apply gx#core-expand-include%__0 _g120213_)) - ((##fx= _g120212_ 2) - (apply gx#core-expand-include%__% _g120213_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g120213_)))))) + _g121345_)))))) (define gx#core-apply-expander__% - (lambda (_%K119006%_ _%stx119007%_ _%method119008%_) - (if (procedure? _%K119006%_) - (let ((_%$e119011%_ (gx#stx-source _%stx119007%_))) - (if _%$e119011%_ - ((lambda (_%g119013119015%_) + (lambda (_%K120138%_ _%stx120139%_ _%method120140%_) + (if (procedure? _%K120138%_) + (let ((_%$e120143%_ (gx#stx-source _%stx120139%_))) + (if _%$e120143%_ + ((lambda (_%g120145120147%_) (gx#stx-wrap-source - (_%K119006%_ _%stx119007%_) - _%g119013119015%_)) - _%$e119011%_) - (_%K119006%_ _%stx119007%_))) - (let ((_%$e119019%_ - (bound-method-ref _%K119006%_ _%method119008%_))) - (if _%$e119019%_ - ((lambda (_%g119021119023%_) + (_%K120138%_ _%stx120139%_) + _%g120145120147%_)) + _%$e120143%_) + (_%K120138%_ _%stx120139%_))) + (let ((_%$e120151%_ + (bound-method-ref _%K120138%_ _%method120140%_))) + (if _%$e120151%_ + ((lambda (_%g120153120155%_) (gx#core-apply-expander__% - _%g119021119023%_ - _%stx119007%_ - _%method119008%_)) - _%$e119019%_) + _%g120153120155%_ + _%stx120139%_ + _%method120140%_)) + _%$e120151%_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _%stx119007%_ - _%method119008%_)))))) + _%stx120139%_ + _%method120140%_)))))) (define gx#core-apply-expander__0 - (lambda (_%K119030%_ _%stx119031%_) - (let ((_%method119033%_ 'apply-macro-expander)) + (lambda (_%K120162%_ _%stx120163%_) + (let ((_%method120165%_ 'apply-macro-expander)) (gx#core-apply-expander__% - _%K119030%_ - _%stx119031%_ - _%method119033%_)))) + _%K120162%_ + _%stx120163%_ + _%method120165%_)))) (define gx#core-apply-expander - (lambda _g120215_ - (let ((_g120214_ (##length _g120215_))) - (cond ((##fx= _g120214_ 2) - (apply gx#core-apply-expander__0 _g120215_)) - ((##fx= _g120214_ 3) - (apply gx#core-apply-expander__% _g120215_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g120215_)))))) + _g121347_)))))) (define gx#expander::apply-macro-expander - (lambda (_%self117048118989%_ _%stx118991%_) - (let* ((_%self118993%_ _%self117048118989%_) - (_%self118995%_ _%self118993%_)) + (lambda (_%self118180120121%_ _%stx120123%_) + (let* ((_%self120125%_ _%self118180120121%_) + (_%self120127%_ _%self120125%_)) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _%stx118991%_)))) + _%stx120123%_)))) (__bind-method!__% gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_%self117049118829%_ _%stx118831%_) - (let* ((_%self118833%_ _%self117049118829%_) - (_%self118835%_ _%self118833%_) - (_%self118844118850%_ _%self118835%_) - (_%E118846118854%_ + (lambda (_%self118181119961%_ _%stx119963%_) + (let* ((_%self119965%_ _%self118181119961%_) + (_%self119967%_ _%self119965%_) + (_%self119976119982%_ _%self119967%_) + (_%E119978119986%_ (lambda () (error '"No clause matching" - _%self118844118850%_ + _%self119976119982%_ '((macro-expander K))) '#!void)) - (_%K118847118859%_ - (lambda (_%K118857%_) - (gx#core-apply-expander__0 _%K118857%_ _%stx118831%_))) - (_%e118848118862%_ - (##unchecked-structure-ref _%self118844118850%_ '1 '#f '#f)) - (_%K118865%_ _%e118848118862%_)) - (_%K118847118859%_ _%K118865%_)))) + (_%K119979119991%_ + (lambda (_%K119989%_) + (gx#core-apply-expander__0 _%K119989%_ _%stx119963%_))) + (_%e119980119994%_ + (##unchecked-structure-ref _%self119976119982%_ '1 '#f '#f)) + (_%K119997%_ _%e119980119994%_)) + (_%K119979119991%_ _%K119997%_)))) (__bind-method!__% gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_%self117050118669%_ _%stx118671%_) - (let* ((_%self118673%_ _%self117050118669%_) - (_%self118675%_ _%self118673%_)) - (if (gx#sealed-syntax? _%stx118671%_) - _%stx118671%_ - (let* ((_%self118684118690%_ _%self118675%_) - (_%E118686118694%_ + (lambda (_%self118182119801%_ _%stx119803%_) + (let* ((_%self119805%_ _%self118182119801%_) + (_%self119807%_ _%self119805%_)) + (if (gx#sealed-syntax? _%stx119803%_) + _%stx119803%_ + (let* ((_%self119816119822%_ _%self119807%_) + (_%E119818119826%_ (lambda () (error '"No clause matching" - _%self118684118690%_ + _%self119816119822%_ '((core-expander K))) '#!void)) - (_%K118687118699%_ - (lambda (_%K118697%_) - (gx#core-apply-expander__0 _%K118697%_ _%stx118671%_))) - (_%e118688118702%_ + (_%K119819119831%_ + (lambda (_%K119829%_) + (gx#core-apply-expander__0 _%K119829%_ _%stx119803%_))) + (_%e119820119834%_ (##unchecked-structure-ref - _%self118684118690%_ + _%self119816119822%_ '1 '#f '#f)) - (_%K118705%_ _%e118688118702%_)) - (_%K118687118699%_ _%K118705%_)))))) + (_%K119837%_ _%e119820119834%_)) + (_%K119819119831%_ _%K119837%_)))))) (__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 (_%self117051118518%_ _%stx118520%_ _%top?118521%_) - (let* ((_%self118523%_ _%self117051118518%_) - (_%self118525%_ _%self118523%_)) - (if (_%top?118521%_ (gx#current-expander-context)) + (lambda (_%self118183119650%_ _%stx119652%_ _%top?119653%_) + (let* ((_%self119655%_ _%self118183119650%_) + (_%self119657%_ _%self119655%_)) + (if (_%top?119653%_ (gx#current-expander-context)) (gx#core-expander::apply-macro-expander - _%self118525%_ - _%stx118520%_) + _%self119657%_ + _%stx119652%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _%stx118520%_))))) + _%stx119652%_))))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_%self117051118538%_ _%stx118539%_) - (let ((_%top?118541%_ gx#top-context?)) + (lambda (_%self118183119670%_ _%stx119671%_) + (let ((_%top?119673%_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _%self117051118538%_ - _%stx118539%_ - _%top?118541%_)))) + _%self118183119670%_ + _%stx119671%_ + _%top?119673%_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g120217_ - (let ((_g120216_ (##length _g120217_))) - (cond ((##fx= _g120216_ 2) + (lambda _g121349_ + (let ((_g121348_ (##length _g121349_))) + (cond ((##fx= _g121348_ 2) (apply gx#top-special-form::apply-macro-expander__0 - _g120217_)) - ((##fx= _g120216_ 3) + _g121349_)) + ((##fx= _g121348_ 3) (apply gx#top-special-form::apply-macro-expander__% - _g120217_)) + _g121349_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g120217_)))))) + _g121349_)))))) (__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 (_%self117052118379%_ _%stx118381%_) - (let* ((_%self118383%_ _%self117052118379%_) - (_%self118385%_ _%self118383%_)) + (lambda (_%self118184119511%_ _%stx119513%_) + (let* ((_%self119515%_ _%self118184119511%_) + (_%self119517%_ _%self119515%_)) (gx#top-special-form::apply-macro-expander__% - _%self118385%_ - _%stx118381%_ + _%self119517%_ + _%stx119513%_ 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 (_%self117053118191%_ _%stx118193%_) - (let* ((_%self118195%_ _%self117053118191%_) - (_%self118197%_ _%self118195%_) - (_%self118206118212%_ _%self118197%_) - (_%E118208118216%_ + (lambda (_%self118185119323%_ _%stx119325%_) + (let* ((_%self119327%_ _%self118185119323%_) + (_%self119329%_ _%self119327%_) + (_%self119338119344%_ _%self119329%_) + (_%E119340119348%_ (lambda () (error '"No clause matching" - _%self118206118212%_ + _%self119338119344%_ '((rename-macro-expander id))) '#!void)) - (_%K118209118249%_ - (lambda (_%id118219%_) - (let* ((_%e118220118227%_ _%stx118193%_) - (_%E118222118231%_ + (_%K119341119381%_ + (lambda (_%id119351%_) + (let* ((_%e119352119359%_ _%stx119325%_) + (_%E119354119363%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e118220118227%_))) - (_%E118221118245%_ + _%e119352119359%_))) + (_%E119353119377%_ (lambda () - (if (gx#stx-pair? _%e118220118227%_) - (let ((_%e118223118235%_ - (gx#syntax-e _%e118220118227%_))) - (let ((_%hd118224118238%_ - (##car _%e118223118235%_)) - (_%tl118225118240%_ - (##cdr _%e118223118235%_))) - (let ((_%body118243%_ _%tl118225118240%_)) + (if (gx#stx-pair? _%e119352119359%_) + (let ((_%e119355119367%_ + (gx#syntax-e _%e119352119359%_))) + (let ((_%hd119356119370%_ + (##car _%e119355119367%_)) + (_%tl119357119372%_ + (##cdr _%e119355119367%_))) + (let ((_%body119375%_ _%tl119357119372%_)) (gx#core-cons - _%id118219%_ - _%body118243%_)))) - (_%E118222118231%_))))) - (_%E118221118245%_)))) - (_%e118210118252%_ - (##unchecked-structure-ref _%self118206118212%_ '1 '#f '#f)) - (_%id118255%_ _%e118210118252%_)) - (_%K118209118249%_ _%id118255%_)))) + _%id119351%_ + _%body119375%_)))) + (_%E119354119363%_))))) + (_%E119353119377%_)))) + (_%e119342119384%_ + (##unchecked-structure-ref _%self119338119344%_ '1 '#f '#f)) + (_%id119387%_ _%e119342119384%_)) + (_%K119341119381%_ _%id119387%_)))) (__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 (_%self118017%_ _%stx118018%_ _%method118019%_) - (let* ((_%self118020118028%_ _%self118017%_) - (_%E118022118032%_ + (lambda (_%self119149%_ _%stx119150%_ _%method119151%_) + (let* ((_%self119152119160%_ _%self119149%_) + (_%E119154119164%_ (lambda () (error '"No clause matching" - _%self118020118028%_ + _%self119152119160%_ '((user-expander K ctx phi))) '#!void)) - (_%K118023118039%_ - (lambda (_%phi118035%_ _%ctx118036%_ _%K118037%_) + (_%K119155119171%_ + (lambda (_%phi119167%_ _%ctx119168%_ _%K119169%_) (gx#core-apply-user-macro - _%K118037%_ - _%stx118018%_ - _%ctx118036%_ - _%phi118035%_ - _%method118019%_)))) + _%K119169%_ + _%stx119150%_ + _%ctx119168%_ + _%phi119167%_ + _%method119151%_)))) (if (##structure-instance-of? - _%self118020118028%_ + _%self119152119160%_ 'gx#user-expander::t) - (let* ((_%e118024118042%_ + (let* ((_%e119156119174%_ (##unchecked-structure-ref - _%self118020118028%_ + _%self119152119160%_ '1 '#f '#f)) - (_%K118045%_ _%e118024118042%_) - (_%e118025118047%_ + (_%K119177%_ _%e119156119174%_) + (_%e119157119179%_ (##unchecked-structure-ref - _%self118020118028%_ + _%self119152119160%_ '2 '#f '#f)) - (_%ctx118050%_ _%e118025118047%_) - (_%e118026118052%_ + (_%ctx119182%_ _%e119157119179%_) + (_%e119158119184%_ (##unchecked-structure-ref - _%self118020118028%_ + _%self119152119160%_ '3 '#f '#f)) - (_%phi118055%_ _%e118026118052%_)) - (_%K118023118039%_ _%phi118055%_ _%ctx118050%_ _%K118045%_)) - (_%E118022118032%_))))) + (_%phi119187%_ _%e119158119184%_)) + (_%K119155119171%_ _%phi119187%_ _%ctx119182%_ _%K119177%_)) + (_%E119154119164%_))))) (define gx#core-apply-user-expander__0 - (lambda (_%self118060%_ _%stx118061%_) - (let ((_%method118063%_ 'apply-macro-expander)) + (lambda (_%self119192%_ _%stx119193%_) + (let ((_%method119195%_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _%self118060%_ - _%stx118061%_ - _%method118063%_)))) + _%self119192%_ + _%stx119193%_ + _%method119195%_)))) (define gx#core-apply-user-expander - (lambda _g120219_ - (let ((_g120218_ (##length _g120219_))) - (cond ((##fx= _g120218_ 2) - (apply gx#core-apply-user-expander__0 _g120219_)) - ((##fx= _g120218_ 3) - (apply gx#core-apply-user-expander__% _g120219_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g120219_)))))) + _g121351_)))))) (define gx#core-apply-user-macro - (lambda (_%K118007%_ - _%stx118008%_ - _%ctx118009%_ - _%phi118010%_ - _%method118011%_) - (let ((_%mark118013%_ + (lambda (_%K119139%_ + _%stx119140%_ + _%ctx119141%_ + _%phi119142%_ + _%method119143%_) + (let ((_%mark119145%_ (##structure gx#expander-mark::t '#f - _%ctx118009%_ - _%phi118010%_ - _%stx118008%_))) + _%ctx119141%_ + _%phi119142%_ + _%stx119140%_))) (__call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _%K118007%_ - (gx#stx-apply-mark _%stx118008%_ _%mark118013%_) - _%method118011%_) - _%mark118013%_)) + _%K119139%_ + (gx#stx-apply-mark _%stx119140%_ _%mark119145%_) + _%method119143%_) + _%mark119145%_)) gx#current-expander-marks - (cons _%mark118013%_ (gx#current-expander-marks)))))) + (cons _%mark119145%_ (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 (_%stx117855%_ _%phi117856%_ _%ctx117857%_) - (let _%lp117859%_ ((_%bind117861%_ + (lambda (_%stx118987%_ _%phi118988%_ _%ctx118989%_) + (let _%lp118991%_ ((_%bind118993%_ (gx#core-resolve-identifier__% - _%stx117855%_ - _%phi117856%_ - _%ctx117857%_))) + _%stx118987%_ + _%phi118988%_ + _%ctx118989%_))) (if (##structure-direct-instance-of? - _%bind117861%_ + _%bind118993%_ 'gx#import-binding::t) - (_%lp117859%_ - (##unchecked-structure-ref _%bind117861%_ '4 '#f '#f)) + (_%lp118991%_ + (##unchecked-structure-ref _%bind118993%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%bind117861%_ + _%bind118993%_ 'gx#alias-binding::t) - (_%lp117859%_ + (_%lp118991%_ (gx#core-resolve-identifier__% - (##unchecked-structure-ref _%bind117861%_ '4 '#f '#f) - _%phi117856%_ - _%ctx117857%_)) - _%bind117861%_))))) + (##unchecked-structure-ref _%bind118993%_ '4 '#f '#f) + _%phi118988%_ + _%ctx118989%_)) + _%bind118993%_))))) (define gx#resolve-identifier__0 - (lambda (_%stx117869%_) - (let* ((_%phi117871%_ (gx#current-expander-phi)) - (_%ctx117873%_ (gx#current-expander-context))) + (lambda (_%stx119001%_) + (let* ((_%phi119003%_ (gx#current-expander-phi)) + (_%ctx119005%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx117869%_ - _%phi117871%_ - _%ctx117873%_)))) + _%stx119001%_ + _%phi119003%_ + _%ctx119005%_)))) (define gx#resolve-identifier__1 - (lambda (_%stx117875%_ _%phi117876%_) - (let ((_%ctx117878%_ (gx#current-expander-context))) + (lambda (_%stx119007%_ _%phi119008%_) + (let ((_%ctx119010%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx117875%_ - _%phi117876%_ - _%ctx117878%_)))) + _%stx119007%_ + _%phi119008%_ + _%ctx119010%_)))) (define gx#resolve-identifier - (lambda _g120221_ - (let ((_g120220_ (##length _g120221_))) - (cond ((##fx= _g120220_ 1) - (apply gx#resolve-identifier__0 _g120221_)) - ((##fx= _g120220_ 2) - (apply gx#resolve-identifier__1 _g120221_)) - ((##fx= _g120220_ 3) - (apply gx#resolve-identifier__% _g120221_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g120221_)))))) + _g121353_)))))) (define gx#bind-identifier!__% - (lambda (_%stx117810%_ - _%val117811%_ - _%rebind?117812%_ - _%phi117813%_ - _%ctx117814%_) - (let ((_%rebind?117819%_ - (if (not _%rebind?117812%_) + (lambda (_%stx118942%_ + _%val118943%_ + _%rebind?118944%_ + _%phi118945%_ + _%ctx118946%_) + (let ((_%rebind?118951%_ + (if (not _%rebind?118944%_) gx#core-context-rebind? - (if (procedure? _%rebind?117812%_) - _%rebind?117812%_ + (if (procedure? _%rebind?118944%_) + _%rebind?118944%_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _%stx117810%_) - _%val117811%_ - _%rebind?117819%_ - _%phi117813%_ - _%ctx117814%_)))) + (gx#core-identifier-key _%stx118942%_) + _%val118943%_ + _%rebind?118951%_ + _%phi118945%_ + _%ctx118946%_)))) (define gx#bind-identifier!__0 - (lambda (_%stx117824%_ _%val117825%_) - (let* ((_%rebind?117827%_ '#f) - (_%phi117829%_ (gx#current-expander-phi)) - (_%ctx117831%_ (gx#current-expander-context))) + (lambda (_%stx118956%_ _%val118957%_) + (let* ((_%rebind?118959%_ '#f) + (_%phi118961%_ (gx#current-expander-phi)) + (_%ctx118963%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx117824%_ - _%val117825%_ - _%rebind?117827%_ - _%phi117829%_ - _%ctx117831%_)))) + _%stx118956%_ + _%val118957%_ + _%rebind?118959%_ + _%phi118961%_ + _%ctx118963%_)))) (define gx#bind-identifier!__1 - (lambda (_%stx117833%_ _%val117834%_ _%rebind?117835%_) - (let* ((_%phi117837%_ (gx#current-expander-phi)) - (_%ctx117839%_ (gx#current-expander-context))) + (lambda (_%stx118965%_ _%val118966%_ _%rebind?118967%_) + (let* ((_%phi118969%_ (gx#current-expander-phi)) + (_%ctx118971%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx117833%_ - _%val117834%_ - _%rebind?117835%_ - _%phi117837%_ - _%ctx117839%_)))) + _%stx118965%_ + _%val118966%_ + _%rebind?118967%_ + _%phi118969%_ + _%ctx118971%_)))) (define gx#bind-identifier!__2 - (lambda (_%stx117841%_ _%val117842%_ _%rebind?117843%_ _%phi117844%_) - (let ((_%ctx117846%_ (gx#current-expander-context))) + (lambda (_%stx118973%_ _%val118974%_ _%rebind?118975%_ _%phi118976%_) + (let ((_%ctx118978%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx117841%_ - _%val117842%_ - _%rebind?117843%_ - _%phi117844%_ - _%ctx117846%_)))) + _%stx118973%_ + _%val118974%_ + _%rebind?118975%_ + _%phi118976%_ + _%ctx118978%_)))) (define gx#bind-identifier! - (lambda _g120223_ - (let ((_g120222_ (##length _g120223_))) - (cond ((##fx= _g120222_ 2) (apply gx#bind-identifier!__0 _g120223_)) - ((##fx= _g120222_ 3) (apply gx#bind-identifier!__1 _g120223_)) - ((##fx= _g120222_ 4) (apply gx#bind-identifier!__2 _g120223_)) - ((##fx= _g120222_ 5) (apply gx#bind-identifier!__% _g120223_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g120223_)))))) + _g121355_)))))) (define gx#core-resolve-identifier__% - (lambda (_%stx117776%_ _%phi117777%_ _%ctx117778%_) - (let _%lp117780%_ ((_%e117782%_ _%stx117776%_) - (_%marks117783%_ (gx#current-expander-marks))) - (if (symbol? _%e117782%_) + (lambda (_%stx118908%_ _%phi118909%_ _%ctx118910%_) + (let _%lp118912%_ ((_%e118914%_ _%stx118908%_) + (_%marks118915%_ (gx#current-expander-marks))) + (if (symbol? _%e118914%_) (gx#core-resolve-binding - _%e117782%_ - _%phi117777%_ - _%phi117777%_ - _%ctx117778%_ - (reverse _%marks117783%_)) - (if (gx#identifier-quote? _%e117782%_) + _%e118914%_ + _%phi118909%_ + _%phi118909%_ + _%ctx118910%_ + (reverse _%marks118915%_)) + (if (gx#identifier-quote? _%e118914%_) (gx#core-resolve-binding - (##unchecked-structure-ref _%e117782%_ '1 '#f '#f) - _%phi117777%_ + (##unchecked-structure-ref _%e118914%_ '1 '#f '#f) + _%phi118909%_ '0 - (##unchecked-structure-ref _%e117782%_ '3 '#f '#f) - (##unchecked-structure-ref _%e117782%_ '4 '#f '#f)) + (##unchecked-structure-ref _%e118914%_ '3 '#f '#f) + (##unchecked-structure-ref _%e118914%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%e117782%_ + _%e118914%_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _%e117782%_ '1 '#f '#f) - _%phi117777%_ - _%phi117777%_ - _%ctx117778%_ + (##unchecked-structure-ref _%e118914%_ '1 '#f '#f) + _%phi118909%_ + _%phi118909%_ + _%ctx118910%_ (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e117782%_ '3 '#f '#f) - _%marks117783%_)) + (##unchecked-structure-ref _%e118914%_ '3 '#f '#f) + _%marks118915%_)) (if (##structure-direct-instance-of? - _%e117782%_ + _%e118914%_ 'gx#syntax-wrap::t) - (_%lp117780%_ - (##unchecked-structure-ref _%e117782%_ '1 '#f '#f) + (_%lp118912%_ + (##unchecked-structure-ref _%e118914%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e117782%_ '3 '#f '#f) - _%marks117783%_)) + (##unchecked-structure-ref _%e118914%_ '3 '#f '#f) + _%marks118915%_)) (if (##structure-instance-of? - _%e117782%_ + _%e118914%_ 'gerbil#AST::t) - (_%lp117780%_ + (_%lp118912%_ (##unchecked-structure-ref - _%e117782%_ + _%e118914%_ '1 '#f '#f) - _%marks117783%_) + _%marks118915%_) (gx#raise-syntax-error '#f '"Bad identifier" - _%stx117776%_))))))))) + _%stx118908%_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_%stx117794%_) - (let* ((_%phi117796%_ (gx#current-expander-phi)) - (_%ctx117798%_ (gx#current-expander-context))) + (lambda (_%stx118926%_) + (let* ((_%phi118928%_ (gx#current-expander-phi)) + (_%ctx118930%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx117794%_ - _%phi117796%_ - _%ctx117798%_)))) + _%stx118926%_ + _%phi118928%_ + _%ctx118930%_)))) (define gx#core-resolve-identifier__1 - (lambda (_%stx117800%_ _%phi117801%_) - (let ((_%ctx117803%_ (gx#current-expander-context))) + (lambda (_%stx118932%_ _%phi118933%_) + (let ((_%ctx118935%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx117800%_ - _%phi117801%_ - _%ctx117803%_)))) + _%stx118932%_ + _%phi118933%_ + _%ctx118935%_)))) (define gx#core-resolve-identifier - (lambda _g120225_ - (let ((_g120224_ (##length _g120225_))) - (cond ((##fx= _g120224_ 1) - (apply gx#core-resolve-identifier__0 _g120225_)) - ((##fx= _g120224_ 2) - (apply gx#core-resolve-identifier__1 _g120225_)) - ((##fx= _g120224_ 3) - (apply gx#core-resolve-identifier__% _g120225_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g120225_)))))) + _g121357_)))))) (define gx#core-resolve-binding - (lambda (_%id117686%_ - _%phi117687%_ - _%src-phi117688%_ - _%ctx117689%_ - _%marks117690%_) - (letrec ((_%resolve117692%_ - (lambda (_%ctx117760%_ _%src-phi117761%_ _%key117762%_) - (let _%lp117764%_ ((_%ctx117766%_ + (lambda (_%id118818%_ + _%phi118819%_ + _%src-phi118820%_ + _%ctx118821%_ + _%marks118822%_) + (letrec ((_%resolve118824%_ + (lambda (_%ctx118892%_ _%src-phi118893%_ _%key118894%_) + (let _%lp118896%_ ((_%ctx118898%_ (gx#core-context-shift - _%ctx117760%_ - _%phi117687%_)) - (_%dphi117767%_ - (fx- _%phi117687%_ _%src-phi117761%_))) - (let ((_%$e117769%_ + _%ctx118892%_ + _%phi118819%_)) + (_%dphi118899%_ + (fx- _%phi118819%_ _%src-phi118893%_))) + (let ((_%$e118901%_ (gx#core-context-resolve - _%ctx117766%_ - _%key117762%_))) - (if _%$e117769%_ - _%$e117769%_ - (if (fxzero? _%dphi117767%_) + _%ctx118898%_ + _%key118894%_))) + (if _%$e118901%_ + _%$e118901%_ + (if (fxzero? _%dphi118899%_) '#f - (if (fxpositive? _%dphi117767%_) - (_%lp117764%_ - (gx#core-context-shift _%ctx117766%_ '-1) - (##fx- _%dphi117767%_ '1)) - (_%lp117764%_ - (gx#core-context-shift _%ctx117766%_ '1) - (##fx+ _%dphi117767%_ '1)))))))))) - (let _%lp117694%_ ((_%ctx117696%_ _%ctx117689%_) - (_%src-phi117697%_ _%src-phi117688%_) - (_%rest117698%_ _%marks117690%_)) - (let* ((_%rest117699117707%_ _%rest117698%_) - (_%else117701117715%_ + (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%_ (lambda () - (_%resolve117692%_ - _%ctx117696%_ - _%src-phi117697%_ - _%id117686%_))) - (_%K117703117748%_ - (lambda (_%rest117718%_ _%hd117719%_) - (let* ((_%hd117720117726%_ _%hd117719%_) - (_%E117722117730%_ + (_%resolve118824%_ + _%ctx118828%_ + _%src-phi118829%_ + _%id118818%_))) + (_%K118835118880%_ + (lambda (_%rest118850%_ _%hd118851%_) + (let* ((_%hd118852118858%_ _%hd118851%_) + (_%E118854118862%_ (lambda () (error '"No clause matching" - _%hd117720117726%_ + _%hd118852118858%_ '((expander-mark subst))) '#!void)) - (_%K117723117740%_ - (lambda (_%subst117733%_) - (let ((_%$e117737%_ - (let ((_%key117735%_ - (if _%subst117733%_ + (_%K118855118872%_ + (lambda (_%subst118865%_) + (let ((_%$e118869%_ + (let ((_%key118867%_ + (if _%subst118865%_ (hash-get - _%subst117733%_ - _%id117686%_) + _%subst118865%_ + _%id118818%_) '#f))) - (if _%key117735%_ - (_%resolve117692%_ - _%ctx117696%_ - _%src-phi117697%_ - _%key117735%_) + (if _%key118867%_ + (_%resolve118824%_ + _%ctx118828%_ + _%src-phi118829%_ + _%key118867%_) '#f)))) - (if _%$e117737%_ - _%$e117737%_ - (_%lp117694%_ + (if _%$e118869%_ + _%$e118869%_ + (_%lp118826%_ (##unchecked-structure-ref - _%hd117719%_ + _%hd118851%_ '2 '#f '#f) (##unchecked-structure-ref - _%hd117719%_ + _%hd118851%_ '3 '#f '#f) - _%rest117718%_)))))) + _%rest118850%_)))))) (if (##structure-instance-of? - _%hd117720117726%_ + _%hd118852118858%_ 'gx#expander-mark::t) - (let* ((_%e117724117743%_ + (let* ((_%e118856118875%_ (##unchecked-structure-ref - _%hd117720117726%_ + _%hd118852118858%_ '1 '#f '#f)) - (_%subst117746%_ _%e117724117743%_)) - (_%K117723117740%_ _%subst117746%_)) - (_%E117722117730%_)))))) - (if (##pair? _%rest117699117707%_) - (let ((_%hd117704117751%_ (##car _%rest117699117707%_)) - (_%tl117705117753%_ (##cdr _%rest117699117707%_))) - (let* ((_%hd117756%_ _%hd117704117751%_) - (_%rest117758%_ _%tl117705117753%_)) - (_%K117703117748%_ _%rest117758%_ _%hd117756%_))) - (_%else117701117715%_))))))) + (_%subst118878%_ _%e118856118875%_)) + (_%K118855118872%_ _%subst118878%_)) + (_%E118854118862%_)))))) + (if (pair? _%rest118831118839%_) + (let ((_%hd118836118883%_ (##car _%rest118831118839%_)) + (_%tl118837118885%_ (##cdr _%rest118831118839%_))) + (let* ((_%hd118888%_ _%hd118836118883%_) + (_%rest118890%_ _%tl118837118885%_)) + (_%K118835118880%_ _%rest118890%_ _%hd118888%_))) + (_%else118833118847%_))))))) (define gx#core-bind!__% - (lambda (_%key117556%_ - _%val117557%_ - _%rebind?117558%_ - _%phi117559%_ - _%ctx117560%_) - (letrec ((_%update-binding117562%_ - (lambda (_%xval117635%_) - (if (or (_%rebind?117558%_ - _%ctx117560%_ - _%xval117635%_ - _%val117557%_) + (lambda (_%key118688%_ + _%val118689%_ + _%rebind?118690%_ + _%phi118691%_ + _%ctx118692%_) + (letrec ((_%update-binding118694%_ + (lambda (_%xval118767%_) + (if (or (_%rebind?118690%_ + _%ctx118692%_ + _%xval118767%_ + _%val118689%_) (and (##structure-direct-instance-of? - _%xval117635%_ + _%xval118767%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%xval117635%_ + _%xval118767%_ '6 '#f '#f) (and (##structure-instance-of? - _%val117557%_ + _%val118689%_ 'gx#binding::t) (not (##structure-direct-instance-of? - _%val117557%_ + _%val118689%_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _%xval117635%_ + _%xval118767%_ 'gx#extern-binding::t) (##structure-instance-of? - _%val117557%_ + _%val118689%_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _%val117557%_ + _%val118689%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval117635%_ + _%xval118767%_ '1 '#f '#f)))) - _%val117557%_ + _%val118689%_ (if (and (##structure-direct-instance-of? - _%val117557%_ + _%val118689%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%val117557%_ + _%val118689%_ '6 '#f '#f) (and (##structure-instance-of? - _%xval117635%_ + _%xval118767%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%val117557%_ + _%val118689%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval117635%_ + _%xval118767%_ '1 '#f '#f))))) - _%xval117635%_ + _%xval118767%_ (if (and (##structure-direct-instance-of? - _%val117557%_ + _%val118689%_ 'gx#import-binding::t) (##structure-instance-of? - _%xval117635%_ + _%xval118767%_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _%key117556%_ + _%key118688%_ (cons (##unchecked-structure-ref - _%val117557%_ + _%val118689%_ '1 '#f '#f) (cons (##structure-ref (##unchecked-structure-ref - _%val117557%_ + _%val118689%_ '5 '#f '#f) @@ -2796,175 +2796,175 @@ '#f) '())) (cons (##unchecked-structure-ref - _%xval117635%_ + _%xval118767%_ '1 '#f '#f) (cons (if (##structure-direct-instance-of? - _%xval117635%_ + _%xval118767%_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _%xval117635%_ + _%xval118767%_ '5 '#f '#f) '1 gx#expander-context::t '#f) - _%xval117635%_) + _%xval118767%_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _%key117556%_ - _%val117557%_ - _%xval117635%_)))))) - (_%gensubst117563%_ - (lambda (_%subst117630%_ _%id117631%_) - (let ((_%eid117633%_ - (gensym (if (uninterned-symbol? _%id117631%_) + _%key118688%_ + _%val118689%_ + _%xval118767%_)))))) + (_%gensubst118695%_ + (lambda (_%subst118762%_ _%id118763%_) + (let ((_%eid118765%_ + (gensym (if (uninterned-symbol? _%id118763%_) '% - _%id117631%_)))) - (hash-put! _%subst117630%_ _%id117631%_ _%eid117633%_) - _%eid117633%_))) - (_%subst!117564%_ - (lambda (_%key117566%_) - (let* ((_%key117567117575%_ _%key117566%_) - (_%else117569117583%_ (lambda () _%key117566%_)) - (_%K117571117618%_ - (lambda (_%mark117586%_ _%id117587%_) - (let* ((_%mark117588117594%_ _%mark117586%_) - (_%E117590117598%_ + _%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%_ (lambda () (error '"No clause matching" - _%mark117588117594%_ + _%mark118720118726%_ '((expander-mark subst))) '#!void)) - (_%K117591117610%_ - (lambda (_%subst117601%_) - (if (not _%subst117601%_) - (let ((_%subst117604%_ + (_%K118723118742%_ + (lambda (_%subst118733%_) + (if (not _%subst118733%_) + (let ((_%subst118736%_ (make-hash-table-eq))) (##unchecked-structure-set! - _%mark117586%_ - _%subst117604%_ + _%mark118718%_ + _%subst118736%_ '1 '#f '#f) - (_%gensubst117563%_ - _%subst117604%_ - _%id117587%_)) - (let ((_%$e117606%_ + (_%gensubst118695%_ + _%subst118736%_ + _%id118719%_)) + (let ((_%$e118738%_ (hash-get - _%subst117601%_ - _%id117587%_))) - (if _%$e117606%_ - _%$e117606%_ - (_%gensubst117563%_ - _%subst117601%_ - _%id117587%_))))))) + _%subst118733%_ + _%id118719%_))) + (if _%$e118738%_ + _%$e118738%_ + (_%gensubst118695%_ + _%subst118733%_ + _%id118719%_))))))) (if (##structure-instance-of? - _%mark117588117594%_ + _%mark118720118726%_ 'gx#expander-mark::t) - (let* ((_%e117592117613%_ + (let* ((_%e118724118745%_ (##unchecked-structure-ref - _%mark117588117594%_ + _%mark118720118726%_ '1 '#f '#f)) - (_%subst117616%_ _%e117592117613%_)) - (_%K117591117610%_ _%subst117616%_)) - (_%E117590117598%_)))))) - (if (##pair? _%key117567117575%_) - (let ((_%hd117572117621%_ - (##car _%key117567117575%_)) - (_%tl117573117623%_ - (##cdr _%key117567117575%_))) - (let* ((_%id117626%_ _%hd117572117621%_) - (_%mark117628%_ _%tl117573117623%_)) - (_%K117571117618%_ _%mark117628%_ _%id117626%_))) - (_%else117569117583%_)))))) + (_%subst118748%_ _%e118724118745%_)) + (_%K118723118742%_ _%subst118748%_)) + (_%E118722118730%_)))))) + (if (pair? _%key118699118707%_) + (let ((_%hd118704118753%_ + (##car _%key118699118707%_)) + (_%tl118705118755%_ + (##cdr _%key118699118707%_))) + (let* ((_%id118758%_ _%hd118704118753%_) + (_%mark118760%_ _%tl118705118755%_)) + (_%K118703118750%_ _%mark118760%_ _%id118758%_))) + (_%else118701118715%_)))))) (gx#core-context-bind! - (gx#core-context-shift _%ctx117560%_ _%phi117559%_) - (_%subst!117564%_ _%key117556%_) - _%val117557%_ - _%update-binding117562%_)))) + (gx#core-context-shift _%ctx118692%_ _%phi118691%_) + (_%subst!118696%_ _%key118688%_) + _%val118689%_ + _%update-binding118694%_)))) (define gx#core-bind!__0 - (lambda (_%key117656%_ _%val117657%_) - (let* ((_%rebind?117659%_ false) - (_%phi117661%_ (gx#current-expander-phi)) - (_%ctx117663%_ (gx#current-expander-context))) + (lambda (_%key118788%_ _%val118789%_) + (let* ((_%rebind?118791%_ false) + (_%phi118793%_ (gx#current-expander-phi)) + (_%ctx118795%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key117656%_ - _%val117657%_ - _%rebind?117659%_ - _%phi117661%_ - _%ctx117663%_)))) + _%key118788%_ + _%val118789%_ + _%rebind?118791%_ + _%phi118793%_ + _%ctx118795%_)))) (define gx#core-bind!__1 - (lambda (_%key117665%_ _%val117666%_ _%rebind?117667%_) - (let* ((_%phi117669%_ (gx#current-expander-phi)) - (_%ctx117671%_ (gx#current-expander-context))) + (lambda (_%key118797%_ _%val118798%_ _%rebind?118799%_) + (let* ((_%phi118801%_ (gx#current-expander-phi)) + (_%ctx118803%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key117665%_ - _%val117666%_ - _%rebind?117667%_ - _%phi117669%_ - _%ctx117671%_)))) + _%key118797%_ + _%val118798%_ + _%rebind?118799%_ + _%phi118801%_ + _%ctx118803%_)))) (define gx#core-bind!__2 - (lambda (_%key117673%_ _%val117674%_ _%rebind?117675%_ _%phi117676%_) - (let ((_%ctx117678%_ (gx#current-expander-context))) + (lambda (_%key118805%_ _%val118806%_ _%rebind?118807%_ _%phi118808%_) + (let ((_%ctx118810%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key117673%_ - _%val117674%_ - _%rebind?117675%_ - _%phi117676%_ - _%ctx117678%_)))) + _%key118805%_ + _%val118806%_ + _%rebind?118807%_ + _%phi118808%_ + _%ctx118810%_)))) (define gx#core-bind! - (lambda _g120227_ - (let ((_g120226_ (##length _g120227_))) - (cond ((##fx= _g120226_ 2) (apply gx#core-bind!__0 _g120227_)) - ((##fx= _g120226_ 3) (apply gx#core-bind!__1 _g120227_)) - ((##fx= _g120226_ 4) (apply gx#core-bind!__2 _g120227_)) - ((##fx= _g120226_ 5) (apply gx#core-bind!__% _g120227_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g120227_)))))) + _g121359_)))))) (define gx#core-identifier-key - (lambda (_%stx117487%_) - (if (symbol? _%stx117487%_) - (let* ((_%g117489117497%_ (gx#current-expander-marks)) - (_%else117491117505%_ (lambda () _%stx117487%_)) - (_%K117493117510%_ - (lambda (_%hd117508%_) (cons _%stx117487%_ _%hd117508%_)))) - (if (##pair? _%g117489117497%_) - (let* ((_%hd117494117513%_ (##car _%g117489117497%_)) - (_%hd117516%_ _%hd117494117513%_)) - (_%K117493117510%_ _%hd117516%_)) - (_%else117491117505%_))) - (if (gx#identifier? _%stx117487%_) - (let* ((_%id117519%_ (gx#syntax-local-unwrap _%stx117487%_)) - (_%eid117521%_ (gx#stx-e _%id117519%_)) - (_%marks117523%_ - (gx#stx-identifier-marks* _%id117519%_)) - (_%marks117525117533%_ _%marks117523%_) - (_%else117527117541%_ (lambda () _%eid117521%_)) - (_%K117529117546%_ - (lambda (_%hd117544%_) - (cons _%eid117521%_ _%hd117544%_)))) - (if (##pair? _%marks117525117533%_) - (let* ((_%hd117530117549%_ (##car _%marks117525117533%_)) - (_%hd117552%_ _%hd117530117549%_)) - (_%K117529117546%_ _%hd117552%_)) - (_%else117527117541%_))) - (gx#raise-syntax-error '#f '"Bad identifier" _%stx117487%_))))) + (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%_))))) (define gx#&phi-context? gx#phi-context?) (define gx#core-context-shift - (lambda (_%ctx117426%_ _%phi117427%_) - (letrec ((_%make-phi117429%_ - (lambda (_%super117485%_) - (let ((__obj120199 + (lambda (_%ctx118558%_ _%phi118559%_) + (letrec ((_%make-phi118561%_ + (lambda (_%super118617%_) + (let ((__obj121331 (##structure gx#phi-context::t '#f @@ -2973,579 +2973,579 @@ '#f '#f))) (gx#phi-context:::init!__% - __obj120199 + __obj121331 (##gensym 'phi) - _%super117485%_) - __obj120199))) - (_%make-phi/up117430%_ - (lambda (_%ctx117480%_ _%super117481%_) - (let ((_%ctx+1117483%_ - (_%make-phi117429%_ _%super117481%_))) + _%super118617%_) + __obj121331))) + (_%make-phi/up118562%_ + (lambda (_%ctx118612%_ _%super118613%_) + (let ((_%ctx+1118615%_ + (_%make-phi118561%_ _%super118613%_))) (##unchecked-structure-set! - _%ctx117480%_ - _%ctx+1117483%_ + _%ctx118612%_ + _%ctx+1118615%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx+1117483%_ - _%ctx117480%_ + _%ctx+1118615%_ + _%ctx118612%_ '5 '#f '#f) - _%ctx+1117483%_))) - (_%make-phi/down117431%_ - (lambda (_%ctx117475%_ _%super117476%_) - (let ((_%ctx-1117478%_ - (_%make-phi117429%_ _%super117476%_))) + _%ctx+1118615%_))) + (_%make-phi/down118563%_ + (lambda (_%ctx118607%_ _%super118608%_) + (let ((_%ctx-1118610%_ + (_%make-phi118561%_ _%super118608%_))) (##unchecked-structure-set! - _%ctx-1117478%_ - _%ctx117475%_ + _%ctx-1118610%_ + _%ctx118607%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx117475%_ - _%ctx-1117478%_ + _%ctx118607%_ + _%ctx-1118610%_ '5 '#f '#f) - _%ctx-1117478%_))) - (_%shift117432%_ - (lambda (_%ctx117458%_ - _%delta117459%_ - _%make-delta-context117460%_ - _%phi117461%_ - _%K117462%_) - (let ((_%$e117464%_ + _%ctx-1118610%_))) + (_%shift118564%_ + (lambda (_%ctx118590%_ + _%delta118591%_ + _%make-delta-context118592%_ + _%phi118593%_ + _%K118594%_) + (let ((_%$e118596%_ (##unchecked-structure-ref - _%ctx117458%_ + _%ctx118590%_ '3 '#f '#f))) - (if _%$e117464%_ - ((lambda (_%super117467%_) - (let* ((_%super117469%_ - (_%K117462%_ - _%super117467%_ - _%delta117459%_)) - (_%ctx+d117471%_ - (_%make-delta-context117460%_ - _%ctx117458%_ - _%super117469%_))) - (_%K117462%_ - _%ctx+d117471%_ - (fx- _%phi117461%_ _%delta117459%_)))) - _%$e117464%_) - (error '"Bad context" _%ctx117458%_)))))) - (let _%K117434%_ ((_%ctx117436%_ _%ctx117426%_) - (_%phi117437%_ _%phi117427%_)) - (if (fxzero? _%phi117437%_) - _%ctx117436%_ - (if (##structure-instance-of? _%ctx117436%_ 'gx#phi-context::t) - (if (fxpositive? _%phi117437%_) - (let ((_%$e117441%_ + (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%_ (##unchecked-structure-ref - _%ctx117436%_ + _%ctx118568%_ '4 '#f '#f))) - (if _%$e117441%_ - ((lambda (_%g117443117445%_) - (_%K117434%_ - _%g117443117445%_ - (##fx- _%phi117437%_ '1))) - _%$e117441%_) - (_%shift117432%_ - _%ctx117436%_ + (if _%$e118573%_ + ((lambda (_%g118575118577%_) + (_%K118566%_ + _%g118575118577%_ + (##fx- _%phi118569%_ '1))) + _%$e118573%_) + (_%shift118564%_ + _%ctx118568%_ '1 - _%make-phi/up117430%_ - _%phi117437%_ - _%K117434%_))) - (let ((_%$e117449%_ + _%make-phi/up118562%_ + _%phi118569%_ + _%K118566%_))) + (let ((_%$e118581%_ (##unchecked-structure-ref - _%ctx117436%_ + _%ctx118568%_ '5 '#f '#f))) - (if _%$e117449%_ - ((lambda (_%g117451117453%_) - (_%K117434%_ - _%g117451117453%_ - (##fx+ _%phi117437%_ '1))) - _%$e117449%_) - (_%shift117432%_ - _%ctx117436%_ + (if _%$e118581%_ + ((lambda (_%g118583118585%_) + (_%K118566%_ + _%g118583118585%_ + (##fx+ _%phi118569%_ '1))) + _%$e118581%_) + (_%shift118564%_ + _%ctx118568%_ '-1 - _%make-phi/down117431%_ - _%phi117437%_ - _%K117434%_)))) - _%ctx117436%_)))))) + _%make-phi/down118563%_ + _%phi118569%_ + _%K118566%_)))) + _%ctx118568%_)))))) (define gx#core-context-get - (lambda (_%ctx117423%_ _%key117424%_) + (lambda (_%ctx118555%_ _%key118556%_) (hash-get - (##unchecked-structure-ref _%ctx117423%_ '2 '#f '#f) - _%key117424%_))) + (##unchecked-structure-ref _%ctx118555%_ '2 '#f '#f) + _%key118556%_))) (define gx#core-context-put! - (lambda (_%ctx117419%_ _%key117420%_ _%val117421%_) + (lambda (_%ctx118551%_ _%key118552%_ _%val118553%_) (hash-put! - (##unchecked-structure-ref _%ctx117419%_ '2 '#f '#f) - _%key117420%_ - _%val117421%_))) + (##unchecked-structure-ref _%ctx118551%_ '2 '#f '#f) + _%key118552%_ + _%val118553%_))) (define gx#core-context-resolve - (lambda (_%ctx117405%_ _%key117406%_) - (let _%lp117408%_ ((_%ctx117410%_ _%ctx117405%_)) - (let ((_%$e117412%_ - (gx#core-context-get _%ctx117410%_ _%key117406%_))) - (if _%$e117412%_ - _%$e117412%_ - (let ((_%$e117415%_ + (lambda (_%ctx118537%_ _%key118538%_) + (let _%lp118540%_ ((_%ctx118542%_ _%ctx118537%_)) + (let ((_%$e118544%_ + (gx#core-context-get _%ctx118542%_ _%key118538%_))) + (if _%$e118544%_ + _%$e118544%_ + (let ((_%$e118547%_ (if (##structure-instance-of? - _%ctx117410%_ + _%ctx118542%_ 'gx#phi-context::t) - (##unchecked-structure-ref _%ctx117410%_ '3 '#f '#f) + (##unchecked-structure-ref _%ctx118542%_ '3 '#f '#f) '#f))) - (if _%$e117415%_ (_%lp117408%_ _%$e117415%_) '#f))))))) + (if _%$e118547%_ (_%lp118540%_ _%$e118547%_) '#f))))))) (define gx#core-context-bind! - (lambda (_%ctx117394%_ _%key117395%_ _%val117396%_ _%rebind117397%_) - (let ((_%$e117399%_ (gx#core-context-get _%ctx117394%_ _%key117395%_))) - (if _%$e117399%_ - ((lambda (_%xval117402%_) + (lambda (_%ctx118526%_ _%key118527%_ _%val118528%_ _%rebind118529%_) + (let ((_%$e118531%_ (gx#core-context-get _%ctx118526%_ _%key118527%_))) + (if _%$e118531%_ + ((lambda (_%xval118534%_) (gx#core-context-put! - _%ctx117394%_ - _%key117395%_ - (_%rebind117397%_ _%xval117402%_))) - _%$e117399%_) + _%ctx118526%_ + _%key118527%_ + (_%rebind118529%_ _%xval118534%_))) + _%$e118531%_) (gx#core-context-put! - _%ctx117394%_ - _%key117395%_ - _%val117396%_))))) + _%ctx118526%_ + _%key118527%_ + _%val118528%_))))) (define gx#core-context-top__% - (lambda (_%ctx117369%_ _%stop?117370%_) - (let _%lp117372%_ ((_%ctx117374%_ _%ctx117369%_)) - (if (_%stop?117370%_ _%ctx117374%_) - _%ctx117374%_ - (if (##structure-instance-of? _%ctx117374%_ 'gx#phi-context::t) - (_%lp117372%_ - (##unchecked-structure-ref _%ctx117374%_ '3 '#f '#f)) + (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)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_%ctx117383%_ (gx#current-expander-context)) - (_%stop?117385%_ gx#top-context?)) - (gx#core-context-top__% _%ctx117383%_ _%stop?117385%_)))) + (let* ((_%ctx118515%_ (gx#current-expander-context)) + (_%stop?118517%_ gx#top-context?)) + (gx#core-context-top__% _%ctx118515%_ _%stop?118517%_)))) (define gx#core-context-top__1 - (lambda (_%ctx117387%_) - (let ((_%stop?117389%_ gx#top-context?)) - (gx#core-context-top__% _%ctx117387%_ _%stop?117389%_)))) + (lambda (_%ctx118519%_) + (let ((_%stop?118521%_ gx#top-context?)) + (gx#core-context-top__% _%ctx118519%_ _%stop?118521%_)))) (define gx#core-context-top - (lambda _g120229_ - (let ((_g120228_ (##length _g120229_))) - (cond ((##fx= _g120228_ 0) (apply gx#core-context-top__0 _g120229_)) - ((##fx= _g120228_ 1) (apply gx#core-context-top__1 _g120229_)) - ((##fx= _g120228_ 2) (apply gx#core-context-top__% _g120229_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g120229_)))))) + _g121361_)))))) (define gx#core-context-root__% - (lambda (_%ctx117354%_) - (let _%lp117356%_ ((_%ctx117358%_ _%ctx117354%_)) - (if (##structure-instance-of? _%ctx117358%_ 'gx#phi-context::t) - (_%lp117356%_ - (##unchecked-structure-ref _%ctx117358%_ '3 '#f '#f)) - _%ctx117358%_)))) + (lambda (_%ctx118486%_) + (let _%lp118488%_ ((_%ctx118490%_ _%ctx118486%_)) + (if (##structure-instance-of? _%ctx118490%_ 'gx#phi-context::t) + (_%lp118488%_ + (##unchecked-structure-ref _%ctx118490%_ '3 '#f '#f)) + _%ctx118490%_)))) (define gx#core-context-root__0 (lambda () - (let ((_%ctx117364%_ (gx#current-expander-context))) - (gx#core-context-root__% _%ctx117364%_)))) + (let ((_%ctx118496%_ (gx#current-expander-context))) + (gx#core-context-root__% _%ctx118496%_)))) (define gx#core-context-root - (lambda _g120231_ - (let ((_g120230_ (##length _g120231_))) - (cond ((##fx= _g120230_ 0) (apply gx#core-context-root__0 _g120231_)) - ((##fx= _g120230_ 1) (apply gx#core-context-root__% _g120231_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g120231_)))))) + _g121363_)))))) (define gx#core-context-rebind?__% - (lambda (_%ctx117336%_ . _%ignore117337%_) - (let ((_%$e117339%_ (gx#current-expander-allow-rebind?))) - (if _%$e117339%_ - _%$e117339%_ - (if (##structure-instance-of? _%ctx117336%_ 'gx#top-context::t) + (lambda (_%ctx118468%_ . _%ignore118469%_) + (let ((_%$e118471%_ (gx#current-expander-allow-rebind?))) + (if _%$e118471%_ + _%$e118471%_ + (if (##structure-instance-of? _%ctx118468%_ 'gx#top-context::t) (if (##structure-instance-of? - _%ctx117336%_ + _%ctx118468%_ 'gx#module-context::t) '#f (not (##structure-instance-of? - _%ctx117336%_ + _%ctx118468%_ 'gx#prelude-context::t))) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_%ctx117346%_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _%ctx117346%_)))) + (let ((_%ctx118478%_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _%ctx118478%_)))) (define gx#core-context-rebind? - (lambda _g120233_ - (let ((_g120232_ (##length _g120233_))) - (cond ((##fx= _g120232_ 0) - (apply gx#core-context-rebind?__0 _g120233_)) - ((##fx= _g120232_ 1) - (apply gx#core-context-rebind?__% _g120233_)) - ((##fx>= _g120232_ 1) - (apply gx#core-context-rebind?__% _g120233_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g120233_)))))) + _g121365_)))))) (define gx#core-context-namespace__% - (lambda (_%ctx117319%_) - (let ((_%$e117321%_ (gx#core-context-top__1 _%ctx117319%_))) - (if _%$e117321%_ - ((lambda (_%ctx117324%_) + (lambda (_%ctx118451%_) + (let ((_%$e118453%_ (gx#core-context-top__1 _%ctx118451%_))) + (if _%$e118453%_ + ((lambda (_%ctx118456%_) (if (##structure-instance-of? - _%ctx117324%_ + _%ctx118456%_ 'gx#module-context::t) - (##unchecked-structure-ref _%ctx117324%_ '6 '#f '#f) + (##unchecked-structure-ref _%ctx118456%_ '6 '#f '#f) '#f)) - _%$e117321%_) + _%$e118453%_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_%ctx117331%_ (gx#current-expander-context))) - (gx#core-context-namespace__% _%ctx117331%_)))) + (let ((_%ctx118463%_ (gx#current-expander-context))) + (gx#core-context-namespace__% _%ctx118463%_)))) (define gx#core-context-namespace - (lambda _g120235_ - (let ((_g120234_ (##length _g120235_))) - (cond ((##fx= _g120234_ 0) - (apply gx#core-context-namespace__0 _g120235_)) - ((##fx= _g120234_ 1) - (apply gx#core-context-namespace__% _g120235_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g120235_)))))) + _g121367_)))))) (define gx#expander-binding?__% - (lambda (_%bind117305%_ _%is?117306%_) + (lambda (_%bind118437%_ _%is?118438%_) (if (##structure-direct-instance-of? - _%bind117305%_ + _%bind118437%_ 'gx#syntax-binding::t) - (_%is?117306%_ - (##unchecked-structure-ref _%bind117305%_ '4 '#f '#f)) + (_%is?118438%_ + (##unchecked-structure-ref _%bind118437%_ '4 '#f '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_%bind117311%_) - (let ((_%is?117313%_ gx#expander?)) - (gx#expander-binding?__% _%bind117311%_ _%is?117313%_)))) + (lambda (_%bind118443%_) + (let ((_%is?118445%_ gx#expander?)) + (gx#expander-binding?__% _%bind118443%_ _%is?118445%_)))) (define gx#expander-binding? - (lambda _g120237_ - (let ((_g120236_ (##length _g120237_))) - (cond ((##fx= _g120236_ 1) (apply gx#expander-binding?__0 _g120237_)) - ((##fx= _g120236_ 2) (apply gx#expander-binding?__% _g120237_)) + (lambda _g121369_ + (let ((_g121368_ (##length _g121369_))) + (cond ((##fx= _g121368_ 1) (apply gx#expander-binding?__0 _g121369_)) + ((##fx= _g121368_ 2) (apply gx#expander-binding?__% _g121369_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g120237_)))))) + _g121369_)))))) (define gx#core-expander-binding? - (lambda (_%bind117302%_) - (gx#expander-binding?__% _%bind117302%_ gx#core-expander?))) + (lambda (_%bind118434%_) + (gx#expander-binding?__% _%bind118434%_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_%bind117300%_) - (gx#expander-binding?__% _%bind117300%_ gx#expression-form?))) + (lambda (_%bind118432%_) + (gx#expander-binding?__% _%bind118432%_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_%bind117294%_) - (letrec ((_%direct-special-form?117296%_ - (lambda (_%obj117298%_) + (lambda (_%bind118426%_) + (letrec ((_%direct-special-form?118428%_ + (lambda (_%obj118430%_) (##structure-direct-instance-of? - _%obj117298%_ + _%obj118430%_ (##type-id gx#special-form::t))))) (gx#expander-binding?__% - _%bind117294%_ - _%direct-special-form?117296%_)))) + _%bind118426%_ + _%direct-special-form?118428%_)))) (define gx#special-form-binding? - (lambda (_%bind117292%_) - (gx#expander-binding?__% _%bind117292%_ gx#special-form?))) + (lambda (_%bind118424%_) + (gx#expander-binding?__% _%bind118424%_ gx#special-form?))) (define gx#feature-binding? - (lambda (_%bind117283%_) - (letrec ((_%feature?117285%_ - (lambda (_%e117287%_) - (let ((_%$e117289%_ + (lambda (_%bind118415%_) + (letrec ((_%feature?118417%_ + (lambda (_%e118419%_) + (let ((_%$e118421%_ (##structure-instance-of? - _%e117287%_ + _%e118419%_ 'gx#feature-expander::t))) - (if _%$e117289%_ - _%$e117289%_ + (if _%$e118421%_ + _%$e118421%_ (##structure-instance-of? - _%e117287%_ + _%e118419%_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _%bind117283%_ _%feature?117285%_)))) + (gx#expander-binding?__% _%bind118415%_ _%feature?118417%_)))) (define gx#private-feature-binding? - (lambda (_%bind117281%_) - (gx#expander-binding?__% _%bind117281%_ gx#private-feature-expander?))) + (lambda (_%bind118413%_) + (gx#expander-binding?__% _%bind118413%_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_%id117268%_ _%bound?117269%_) - (if (gx#identifier? _%id117268%_) - (_%bound?117269%_ (gx#resolve-identifier__0 _%id117268%_)) + (lambda (_%id118400%_ _%bound?118401%_) + (if (gx#identifier? _%id118400%_) + (_%bound?118401%_ (gx#resolve-identifier__0 _%id118400%_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_%id117274%_) - (let ((_%bound?117276%_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _%id117274%_ _%bound?117276%_)))) + (lambda (_%id118406%_) + (let ((_%bound?118408%_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _%id118406%_ _%bound?118408%_)))) (define gx#core-bound-identifier? - (lambda _g120239_ - (let ((_g120238_ (##length _g120239_))) - (cond ((##fx= _g120238_ 1) - (apply gx#core-bound-identifier?__0 _g120239_)) - ((##fx= _g120238_ 2) - (apply gx#core-bound-identifier?__% _g120239_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g120239_)))))) + _g121371_)))))) (define gx#core-identifier=? - (lambda (_%x117258%_ _%y117259%_) - (letrec ((_%y=?117261%_ - (lambda (_%xid117265%_) - ((if (list? _%y117259%_) memq eq?) - _%xid117265%_ - _%y117259%_)))) - (let ((_%bind117263%_ (gx#resolve-identifier__0 _%x117258%_))) - (if (##structure-instance-of? _%bind117263%_ 'gx#binding::t) - (_%y=?117261%_ - (##unchecked-structure-ref _%bind117263%_ '1 '#f '#f)) - (_%y=?117261%_ (gx#stx-e _%x117258%_))))))) + (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%_))))))) (define gx#core-extern-symbol? - (lambda (_%e117256%_) - (if (interned-symbol? _%e117256%_) - (string-index__0 (symbol->string _%e117256%_) '#\#) + (lambda (_%e118388%_) + (if (interned-symbol? _%e118388%_) + (string-index__0 (symbol->string _%e118388%_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_%stx117209%_ _%src117210%_ _%ctx117211%_ _%marks117212%_) - (if (##structure? _%stx117209%_) - (let ((_%$e117214%_ (gx#sealed-syntax-unwrap _%stx117209%_))) - (if _%$e117214%_ - _%$e117214%_ - (if (gx#identifier? _%stx117209%_) - (let ((_%id117218%_ - (gx#stx-unwrap__% _%stx117209%_ _%marks117212%_))) + (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%_))) (##structure gx#syntax-quote::t - (##unchecked-structure-ref _%id117218%_ '1 '#f '#f) - (let ((_%$e117220%_ + (##unchecked-structure-ref _%id118350%_ '1 '#f '#f) + (let ((_%$e118352%_ (##unchecked-structure-ref - _%id117218%_ + _%id118350%_ '2 '#f '#f))) - (if _%$e117220%_ _%$e117220%_ _%src117210%_)) - _%ctx117211%_ - (##unchecked-structure-ref _%id117218%_ '3 '#f '#f))) + (if _%$e118352%_ _%$e118352%_ _%src118342%_)) + _%ctx118343%_ + (##unchecked-structure-ref _%id118350%_ '3 '#f '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _%stx117209%_) - (let ((_%$e117224%_ (gx#stx-source _%stx117209%_))) - (if _%$e117224%_ _%$e117224%_ _%src117210%_)) - _%ctx117211%_ - (reverse _%marks117212%_))))) + (gx#stx-e _%stx118341%_) + (let ((_%$e118356%_ (gx#stx-source _%stx118341%_))) + (if _%$e118356%_ _%$e118356%_ _%src118342%_)) + _%ctx118343%_ + (reverse _%marks118344%_))))) (##structure gx#syntax-quote::t - _%stx117209%_ - _%src117210%_ - _%ctx117211%_ - (reverse _%marks117212%_))))) + _%stx118341%_ + _%src118342%_ + _%ctx118343%_ + (reverse _%marks118344%_))))) (define gx#core-quote-syntax__0 - (lambda (_%stx117230%_) - (let* ((_%src117232%_ '#f) - (_%ctx117234%_ (gx#current-expander-context)) - (_%marks117236%_ (gx#current-expander-marks))) + (lambda (_%stx118362%_) + (let* ((_%src118364%_ '#f) + (_%ctx118366%_ (gx#current-expander-context)) + (_%marks118368%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx117230%_ - _%src117232%_ - _%ctx117234%_ - _%marks117236%_)))) + _%stx118362%_ + _%src118364%_ + _%ctx118366%_ + _%marks118368%_)))) (define gx#core-quote-syntax__1 - (lambda (_%stx117238%_ _%src117239%_) - (let* ((_%ctx117241%_ (gx#current-expander-context)) - (_%marks117243%_ (gx#current-expander-marks))) + (lambda (_%stx118370%_ _%src118371%_) + (let* ((_%ctx118373%_ (gx#current-expander-context)) + (_%marks118375%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx117238%_ - _%src117239%_ - _%ctx117241%_ - _%marks117243%_)))) + _%stx118370%_ + _%src118371%_ + _%ctx118373%_ + _%marks118375%_)))) (define gx#core-quote-syntax__2 - (lambda (_%stx117245%_ _%src117246%_ _%ctx117247%_) - (let ((_%marks117249%_ (gx#current-expander-marks))) + (lambda (_%stx118377%_ _%src118378%_ _%ctx118379%_) + (let ((_%marks118381%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx117245%_ - _%src117246%_ - _%ctx117247%_ - _%marks117249%_)))) + _%stx118377%_ + _%src118378%_ + _%ctx118379%_ + _%marks118381%_)))) (define gx#core-quote-syntax - (lambda _g120241_ - (let ((_g120240_ (##length _g120241_))) - (cond ((##fx= _g120240_ 1) (apply gx#core-quote-syntax__0 _g120241_)) - ((##fx= _g120240_ 2) (apply gx#core-quote-syntax__1 _g120241_)) - ((##fx= _g120240_ 3) (apply gx#core-quote-syntax__2 _g120241_)) - ((##fx= _g120240_ 4) (apply gx#core-quote-syntax__% _g120241_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g120241_)))))) + _g121373_)))))) (define gx#core-cons - (lambda (_%hd117205%_ _%tl117206%_) - (cons (gx#core-quote-syntax__0 _%hd117205%_) _%tl117206%_))) + (lambda (_%hd118337%_ _%tl118338%_) + (cons (gx#core-quote-syntax__0 _%hd118337%_) _%tl118338%_))) (define gx#core-list - (lambda (_%hd117202%_ . _%rest117203%_) - (cons (gx#core-quote-syntax__0 _%hd117202%_) _%rest117203%_))) + (lambda (_%hd118334%_ . _%rest118335%_) + (cons (gx#core-quote-syntax__0 _%hd118334%_) _%rest118335%_))) (define gx#core-cons* - (lambda (_%hd117199%_ . _%rest117200%_) - (apply cons* (gx#core-quote-syntax__0 _%hd117199%_) _%rest117200%_))) + (lambda (_%hd118331%_ . _%rest118332%_) + (apply cons* (gx#core-quote-syntax__0 _%hd118331%_) _%rest118332%_))) (define gx#core-resolve-path__% - (lambda (_%stx-path117168%_ _%rel117169%_) - (let ((_%path117186%_ (gx#stx-e _%stx-path117168%_)) - (_%reldir117187%_ - (let _%lp117171%_ ((_%relsrc117173%_ - (let ((_%$e117183%_ - (gx#stx-source _%stx-path117168%_))) - (if _%$e117183%_ - _%$e117183%_ - _%rel117169%_)))) - (if (##structure-instance-of? _%relsrc117173%_ 'gerbil#AST::t) - (_%lp117171%_ - (let ((_%$e117176%_ (gx#stx-source _%relsrc117173%_))) - (if _%$e117176%_ - _%$e117176%_ - (gx#stx-e _%relsrc117173%_)))) - (if (source-location-path? _%relsrc117173%_) + (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%_) (path-directory - (source-location-path _%relsrc117173%_)) - (if (string? _%relsrc117173%_) - (path-directory _%relsrc117173%_) + (source-location-path _%relsrc118305%_)) + (if (string? _%relsrc118305%_) + (path-directory _%relsrc118305%_) (if (null? (gx#current-expander-path)) (current-directory) (path-directory (car (gx#current-expander-path)))))))))) - (path-expand _%path117186%_ (path-normalize _%reldir117187%_))))) + (path-expand _%path118318%_ (path-normalize _%reldir118319%_))))) (define gx#core-resolve-path__0 - (lambda (_%stx-path117192%_) - (let ((_%rel117194%_ '#f)) - (gx#core-resolve-path__% _%stx-path117192%_ _%rel117194%_)))) + (lambda (_%stx-path118324%_) + (let ((_%rel118326%_ '#f)) + (gx#core-resolve-path__% _%stx-path118324%_ _%rel118326%_)))) (define gx#core-resolve-path - (lambda _g120243_ - (let ((_g120242_ (##length _g120243_))) - (cond ((##fx= _g120242_ 1) (apply gx#core-resolve-path__0 _g120243_)) - ((##fx= _g120242_ 2) (apply gx#core-resolve-path__% _g120243_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g120243_)))))) + _g121375_)))))) (define gx#core-deserialize-mark__% - (lambda (_%repr117124%_ _%ctx117125%_) - (let* ((_%repr117126117133%_ _%repr117124%_) - (_%E117128117137%_ + (lambda (_%repr118256%_ _%ctx118257%_) + (let* ((_%repr118258118265%_ _%repr118256%_) + (_%E118260118269%_ (lambda () (error '"No clause matching" - _%repr117126117133%_ + _%repr118258118265%_ '([phi . subs])) '#!void)) - (_%K117129117145%_ - (lambda (_%subs117140%_ _%phi117141%_) - (let ((_%subst117143%_ - (if (null? _%subs117140%_) + (_%K118261118277%_ + (lambda (_%subs118272%_ _%phi118273%_) + (let ((_%subst118275%_ + (if (null? _%subs118272%_) '#f - (list->hash-table-eq _%subs117140%_)))) + (list->hash-table-eq _%subs118272%_)))) (##structure gx#expander-mark::t - _%subst117143%_ - _%ctx117125%_ - _%phi117141%_ + _%subst118275%_ + _%ctx118257%_ + _%phi118273%_ '#f))))) - (if (##pair? _%repr117126117133%_) - (let ((_%hd117130117148%_ (##car _%repr117126117133%_)) - (_%tl117131117150%_ (##cdr _%repr117126117133%_))) - (let* ((_%phi117153%_ _%hd117130117148%_) - (_%subs117155%_ _%tl117131117150%_)) - (_%K117129117145%_ _%subs117155%_ _%phi117153%_))) - (_%E117128117137%_))))) + (if (pair? _%repr118258118265%_) + (let ((_%hd118262118280%_ (##car _%repr118258118265%_)) + (_%tl118263118282%_ (##cdr _%repr118258118265%_))) + (let* ((_%phi118285%_ _%hd118262118280%_) + (_%subs118287%_ _%tl118263118282%_)) + (_%K118261118277%_ _%subs118287%_ _%phi118285%_))) + (_%E118260118269%_))))) (define gx#core-deserialize-mark__0 - (lambda (_%repr117160%_) - (let ((_%ctx117162%_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _%repr117160%_ _%ctx117162%_)))) + (lambda (_%repr118292%_) + (let ((_%ctx118294%_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _%repr118292%_ _%ctx118294%_)))) (define gx#core-deserialize-mark - (lambda _g120245_ - (let ((_g120244_ (##length _g120245_))) - (cond ((##fx= _g120244_ 1) - (apply gx#core-deserialize-mark__0 _g120245_)) - ((##fx= _g120244_ 2) - (apply gx#core-deserialize-mark__% _g120245_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g120245_)))))) + _g121377_)))))) (define gx#syntax-local-rewrap - (lambda (_%stx117121%_) - (gx#stx-rewrap _%stx117121%_ (gx#current-expander-marks)))) + (lambda (_%stx118253%_) + (gx#stx-rewrap _%stx118253%_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_%stx117119%_) - (gx#stx-unwrap__% _%stx117119%_ (gx#current-expander-marks)))) + (lambda (_%stx118251%_) + (gx#stx-unwrap__% _%stx118251%_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_%stx117089%_) - (let* ((_%g117090117098%_ (gx#current-expander-marks)) - (_%else117092117106%_ (lambda () _%stx117089%_)) - (_%K117094117111%_ - (lambda (_%hd117109%_) - (gx#stx-apply-mark _%stx117089%_ _%hd117109%_)))) - (if (##pair? _%g117090117098%_) - (let* ((_%hd117095117114%_ (##car _%g117090117098%_)) - (_%hd117117%_ _%hd117095117114%_)) - (_%K117094117111%_ _%hd117117%_)) - (_%else117092117106%_))))) + (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%_))))) (define gx#syntax-local-e__% - (lambda (_%stx117074%_ _%E117075%_) - (let ((_%bind117077%_ (gx#resolve-identifier__0 _%stx117074%_))) + (lambda (_%stx118206%_ _%E118207%_) + (let ((_%bind118209%_ (gx#resolve-identifier__0 _%stx118206%_))) (if (##structure-direct-instance-of? - _%bind117077%_ + _%bind118209%_ 'gx#syntax-binding::t) - (##unchecked-structure-ref _%bind117077%_ '4 '#f '#f) - (_%E117075%_ _%stx117074%_))))) + (##unchecked-structure-ref _%bind118209%_ '4 '#f '#f) + (_%E118207%_ _%stx118206%_))))) (define gx#syntax-local-e__0 - (lambda (_%stx117082%_) - (let ((_%E117084%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _%stx117082%_ _%E117084%_)))) + (lambda (_%stx118214%_) + (let ((_%E118216%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _%stx118214%_ _%E118216%_)))) (define gx#syntax-local-e - (lambda _g120247_ - (let ((_g120246_ (##length _g120247_))) - (cond ((##fx= _g120246_ 1) (apply gx#syntax-local-e__0 _g120247_)) - ((##fx= _g120246_ 2) (apply gx#syntax-local-e__% _g120247_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g120247_)))))) + _g121379_)))))) (define gx#syntax-local-value__% - (lambda (_%stx117058%_ _%E117059%_) - (let ((_%e117061%_ (gx#syntax-local-e__% _%stx117058%_ _%E117059%_))) - (if (##structure-instance-of? _%e117061%_ 'gx#expander::t) - (##unchecked-structure-ref _%e117061%_ '1 '#f '#f) - _%e117061%_)))) + (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%_)))) (define gx#syntax-local-value__0 - (lambda (_%stx117066%_) - (let ((_%E117068%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _%stx117066%_ _%E117068%_)))) + (lambda (_%stx118198%_) + (let ((_%E118200%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _%stx118198%_ _%E118200%_)))) (define gx#syntax-local-value - (lambda _g120249_ - (let ((_g120248_ (##length _g120249_))) - (cond ((##fx= _g120248_ 1) - (apply gx#syntax-local-value__0 _g120249_)) - ((##fx= _g120248_ 2) - (apply gx#syntax-local-value__% _g120249_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g120249_)))))) + _g121381_)))))) (define gx#raise-syntax-ref-error - (lambda (_%stx117055%_) + (lambda (_%stx118187%_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _%stx117055%_))))) + _%stx118187%_))))) diff --git a/src/bootstrap/gerbil/expander/core~1.scm b/src/bootstrap/gerbil/expander/core~1.scm index 0594969ee..dea84d96f 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]#_g120251_| + (define |gx[1]#_g121383_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120253_| + (define |gx[1]#_g121385_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120255_| + (define |gx[1]#_g121387_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120257_| + (define |gx[1]#_g121389_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120258_| + (define |gx[1]#_g121390_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120260_| + (define |gx[1]#_g121392_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120261_| + (define |gx[1]#_g121393_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120263_| + (define |gx[1]#_g121395_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120264_| + (define |gx[1]#_g121396_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120266_| + (define |gx[1]#_g121398_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120267_| + (define |gx[1]#_g121399_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120269_| + (define |gx[1]#_g121401_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120271_| + (define |gx[1]#_g121403_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120273_| + (define |gx[1]#_g121405_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120275_| + (define |gx[1]#_g121407_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120277_| + (define |gx[1]#_g121409_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120278_| + (define |gx[1]#_g121410_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120280_| + (define |gx[1]#_g121412_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120281_| + (define |gx[1]#_g121413_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120283_| + (define |gx[1]#_g121415_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120284_| + (define |gx[1]#_g121416_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120286_| + (define |gx[1]#_g121418_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120287_| + (define |gx[1]#_g121419_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120290_| + (define |gx[1]#_g121422_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120292_| + (define |gx[1]#_g121424_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120294_| + (define |gx[1]#_g121426_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120296_| + (define |gx[1]#_g121428_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120297_| + (define |gx[1]#_g121429_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120298_| + (define |gx[1]#_g121430_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120299_| + (define |gx[1]#_g121431_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120300_| + (define |gx[1]#_g121432_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120302_| + (define |gx[1]#_g121434_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120303_| + (define |gx[1]#_g121435_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120304_| + (define |gx[1]#_g121436_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120305_| + (define |gx[1]#_g121437_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120306_| + (define |gx[1]#_g121438_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120308_| + (define |gx[1]#_g121440_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120309_| + (define |gx[1]#_g121441_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120310_| + (define |gx[1]#_g121442_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120311_| + (define |gx[1]#_g121443_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120312_| + (define |gx[1]#_g121444_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120314_| + (define |gx[1]#_g121446_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120315_| + (define |gx[1]#_g121447_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120316_| + (define |gx[1]#_g121448_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120317_| + (define |gx[1]#_g121449_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120318_| + (define |gx[1]#_g121450_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120320_| + (define |gx[1]#_g121452_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120322_| + (define |gx[1]#_g121454_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120324_| + (define |gx[1]#_g121456_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120326_| + (define |gx[1]#_g121458_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120328_| + (define |gx[1]#_g121460_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120329_| + (define |gx[1]#_g121461_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120330_| + (define |gx[1]#_g121462_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120331_| + (define |gx[1]#_g121463_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120332_| + (define |gx[1]#_g121464_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120334_| + (define |gx[1]#_g121466_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120335_| + (define |gx[1]#_g121467_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120336_| + (define |gx[1]#_g121468_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120337_| + (define |gx[1]#_g121469_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120338_| + (define |gx[1]#_g121470_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120340_| + (define |gx[1]#_g121472_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120341_| + (define |gx[1]#_g121473_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120342_| + (define |gx[1]#_g121474_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120343_| + (define |gx[1]#_g121475_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120344_| + (define |gx[1]#_g121476_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120346_| + (define |gx[1]#_g121478_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120347_| + (define |gx[1]#_g121479_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120348_| + (define |gx[1]#_g121480_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120349_| + (define |gx[1]#_g121481_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120350_| + (define |gx[1]#_g121482_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120352_| + (define |gx[1]#_g121484_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120354_| + (define |gx[1]#_g121486_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120356_| + (define |gx[1]#_g121488_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120358_| + (define |gx[1]#_g121490_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120360_| + (define |gx[1]#_g121492_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g120361_| + (define |gx[1]#_g121493_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g120362_| + (define |gx[1]#_g121494_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g120363_| + (define |gx[1]#_g121495_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g120364_| + (define |gx[1]#_g121496_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120365_| + (define |gx[1]#_g121497_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g120366_| + (define |gx[1]#_g121498_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120367_| + (define |gx[1]#_g121499_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120368_| + (define |gx[1]#_g121500_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120369_| + (define |gx[1]#_g121501_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120370_| + (define |gx[1]#_g121502_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120372_| + (define |gx[1]#_g121504_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120373_| + (define |gx[1]#_g121505_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120374_| + (define |gx[1]#_g121506_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120375_| + (define |gx[1]#_g121507_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120376_| + (define |gx[1]#_g121508_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120377_| + (define |gx[1]#_g121509_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120378_| + (define |gx[1]#_g121510_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120379_| + (define |gx[1]#_g121511_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120380_| + (define |gx[1]#_g121512_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120381_| + (define |gx[1]#_g121513_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120382_| + (define |gx[1]#_g121514_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120384_| + (define |gx[1]#_g121516_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g120385_| + (define |gx[1]#_g121517_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g120386_| + (define |gx[1]#_g121518_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g120387_| + (define |gx[1]#_g121519_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g120388_| + (define |gx[1]#_g121520_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120389_| + (define |gx[1]#_g121521_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g120390_| + (define |gx[1]#_g121522_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120391_| + (define |gx[1]#_g121523_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120392_| + (define |gx[1]#_g121524_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120393_| + (define |gx[1]#_g121525_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120394_| + (define |gx[1]#_g121526_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120396_| + (define |gx[1]#_g121528_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120397_| + (define |gx[1]#_g121529_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120398_| + (define |gx[1]#_g121530_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120399_| + (define |gx[1]#_g121531_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120400_| + (define |gx[1]#_g121532_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120401_| + (define |gx[1]#_g121533_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120402_| + (define |gx[1]#_g121534_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120403_| + (define |gx[1]#_g121535_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120404_| + (define |gx[1]#_g121536_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120405_| + (define |gx[1]#_g121537_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120406_| + (define |gx[1]#_g121538_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120409_| + (define |gx[1]#_g121541_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120411_| + (define |gx[1]#_g121543_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120413_| + (define |gx[1]#_g121545_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120415_| + (define |gx[1]#_g121547_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g120416_| + (define |gx[1]#_g121548_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g120417_| + (define |gx[1]#_g121549_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120418_| + (define |gx[1]#_g121550_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120419_| + (define |gx[1]#_g121551_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120420_| + (define |gx[1]#_g121552_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120421_| + (define |gx[1]#_g121553_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120422_| + (define |gx[1]#_g121554_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120424_| + (define |gx[1]#_g121556_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120425_| + (define |gx[1]#_g121557_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120426_| + (define |gx[1]#_g121558_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120427_| + (define |gx[1]#_g121559_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120428_| + (define |gx[1]#_g121560_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120429_| + (define |gx[1]#_g121561_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120430_| + (define |gx[1]#_g121562_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120431_| + (define |gx[1]#_g121563_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120433_| + (define |gx[1]#_g121565_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g120434_| + (define |gx[1]#_g121566_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g120435_| + (define |gx[1]#_g121567_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120436_| + (define |gx[1]#_g121568_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120437_| + (define |gx[1]#_g121569_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120438_| + (define |gx[1]#_g121570_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120439_| + (define |gx[1]#_g121571_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120440_| + (define |gx[1]#_g121572_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120442_| + (define |gx[1]#_g121574_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120443_| + (define |gx[1]#_g121575_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120444_| + (define |gx[1]#_g121576_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120445_| + (define |gx[1]#_g121577_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120446_| + (define |gx[1]#_g121578_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120447_| + (define |gx[1]#_g121579_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120448_| + (define |gx[1]#_g121580_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120449_| + (define |gx[1]#_g121581_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120452_| + (define |gx[1]#_g121584_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120454_| + (define |gx[1]#_g121586_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120456_| + (define |gx[1]#_g121588_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120458_| + (define |gx[1]#_g121590_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120459_| + (define |gx[1]#_g121591_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120460_| + (define |gx[1]#_g121592_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120461_| + (define |gx[1]#_g121593_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120462_| + (define |gx[1]#_g121594_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120464_| + (define |gx[1]#_g121596_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120465_| + (define |gx[1]#_g121597_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120466_| + (define |gx[1]#_g121598_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120467_| + (define |gx[1]#_g121599_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120468_| + (define |gx[1]#_g121600_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120470_| + (define |gx[1]#_g121602_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120471_| + (define |gx[1]#_g121603_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120472_| + (define |gx[1]#_g121604_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120473_| + (define |gx[1]#_g121605_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120474_| + (define |gx[1]#_g121606_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120476_| + (define |gx[1]#_g121608_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120477_| + (define |gx[1]#_g121609_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120478_| + (define |gx[1]#_g121610_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120479_| + (define |gx[1]#_g121611_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120480_| + (define |gx[1]#_g121612_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120482_| + (define |gx[1]#_g121614_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120484_| + (define |gx[1]#_g121616_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120486_| + (define |gx[1]#_g121618_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120488_| + (define |gx[1]#_g121620_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120489_| + (define |gx[1]#_g121621_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120490_| + (define |gx[1]#_g121622_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120492_| + (define |gx[1]#_g121624_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120493_| + (define |gx[1]#_g121625_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120494_| + (define |gx[1]#_g121626_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120496_| + (define |gx[1]#_g121628_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120497_| + (define |gx[1]#_g121629_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120498_| + (define |gx[1]#_g121630_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120500_| + (define |gx[1]#_g121632_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120501_| + (define |gx[1]#_g121633_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120502_| + (define |gx[1]#_g121634_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120504_| + (define |gx[1]#_g121636_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120506_| + (define |gx[1]#_g121638_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120508_| + (define |gx[1]#_g121640_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120510_| + (define |gx[1]#_g121642_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120512_| + (define |gx[1]#_g121644_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120513_| + (define |gx[1]#_g121645_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120514_| + (define |gx[1]#_g121646_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120516_| + (define |gx[1]#_g121648_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120517_| + (define |gx[1]#_g121649_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120518_| + (define |gx[1]#_g121650_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120520_| + (define |gx[1]#_g121652_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120521_| + (define |gx[1]#_g121653_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120522_| + (define |gx[1]#_g121654_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120524_| + (define |gx[1]#_g121656_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120525_| + (define |gx[1]#_g121657_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120526_| + (define |gx[1]#_g121658_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120528_| + (define |gx[1]#_g121660_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120530_| + (define |gx[1]#_g121662_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120532_| + (define |gx[1]#_g121664_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120534_| + (define |gx[1]#_g121666_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120536_| + (define |gx[1]#_g121668_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120537_| + (define |gx[1]#_g121669_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120538_| + (define |gx[1]#_g121670_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120540_| + (define |gx[1]#_g121672_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120541_| + (define |gx[1]#_g121673_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120542_| + (define |gx[1]#_g121674_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120544_| + (define |gx[1]#_g121676_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120545_| + (define |gx[1]#_g121677_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120546_| + (define |gx[1]#_g121678_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120548_| + (define |gx[1]#_g121680_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120549_| + (define |gx[1]#_g121681_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120550_| + (define |gx[1]#_g121682_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120553_| + (define |gx[1]#_g121685_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120555_| + (define |gx[1]#_g121687_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120557_| + (define |gx[1]#_g121689_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120559_| + (define |gx[1]#_g121691_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120560_| + (define |gx[1]#_g121692_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120561_| + (define |gx[1]#_g121693_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120563_| + (define |gx[1]#_g121695_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120564_| + (define |gx[1]#_g121696_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120565_| + (define |gx[1]#_g121697_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120567_| + (define |gx[1]#_g121699_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120568_| + (define |gx[1]#_g121700_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120569_| + (define |gx[1]#_g121701_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120571_| + (define |gx[1]#_g121703_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120572_| + (define |gx[1]#_g121704_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120573_| + (define |gx[1]#_g121705_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120575_| + (define |gx[1]#_g121707_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120577_| + (define |gx[1]#_g121709_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120579_| + (define |gx[1]#_g121711_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120581_| + (define |gx[1]#_g121713_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120583_| + (define |gx[1]#_g121715_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120584_| + (define |gx[1]#_g121716_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120585_| + (define |gx[1]#_g121717_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120586_| + (define |gx[1]#_g121718_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120588_| + (define |gx[1]#_g121720_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120589_| + (define |gx[1]#_g121721_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120590_| + (define |gx[1]#_g121722_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120591_| + (define |gx[1]#_g121723_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120593_| + (define |gx[1]#_g121725_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120594_| + (define |gx[1]#_g121726_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120595_| + (define |gx[1]#_g121727_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120596_| + (define |gx[1]#_g121728_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120598_| + (define |gx[1]#_g121730_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120599_| + (define |gx[1]#_g121731_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120600_| + (define |gx[1]#_g121732_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120601_| + (define |gx[1]#_g121733_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120604_| + (define |gx[1]#_g121736_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120606_| + (define |gx[1]#_g121738_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120608_| + (define |gx[1]#_g121740_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120610_| + (define |gx[1]#_g121742_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120611_| + (define |gx[1]#_g121743_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120612_| + (define |gx[1]#_g121744_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120614_| + (define |gx[1]#_g121746_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120615_| + (define |gx[1]#_g121747_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120616_| + (define |gx[1]#_g121748_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120618_| + (define |gx[1]#_g121750_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120619_| + (define |gx[1]#_g121751_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120620_| + (define |gx[1]#_g121752_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120622_| + (define |gx[1]#_g121754_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120623_| + (define |gx[1]#_g121755_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120624_| + (define |gx[1]#_g121756_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120627_| + (define |gx[1]#_g121759_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120629_| + (define |gx[1]#_g121761_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120631_| + (define |gx[1]#_g121763_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120633_| + (define |gx[1]#_g121765_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120634_| + (define |gx[1]#_g121766_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120635_| + (define |gx[1]#_g121767_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120636_| + (define |gx[1]#_g121768_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120638_| + (define |gx[1]#_g121770_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120639_| + (define |gx[1]#_g121771_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120640_| + (define |gx[1]#_g121772_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120641_| + (define |gx[1]#_g121773_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120643_| + (define |gx[1]#_g121775_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120644_| + (define |gx[1]#_g121776_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120645_| + (define |gx[1]#_g121777_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120646_| + (define |gx[1]#_g121778_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120648_| + (define |gx[1]#_g121780_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120649_| + (define |gx[1]#_g121781_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120650_| + (define |gx[1]#_g121782_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120651_| + (define |gx[1]#_g121783_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120654_| + (define |gx[1]#_g121786_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120656_| + (define |gx[1]#_g121788_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120658_| + (define |gx[1]#_g121790_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120660_| + (define |gx[1]#_g121792_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120661_| + (define |gx[1]#_g121793_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120662_| + (define |gx[1]#_g121794_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120663_| + (define |gx[1]#_g121795_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120664_| + (define |gx[1]#_g121796_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120665_| + (define |gx[1]#_g121797_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120667_| + (define |gx[1]#_g121799_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120668_| + (define |gx[1]#_g121800_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120669_| + (define |gx[1]#_g121801_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120670_| + (define |gx[1]#_g121802_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120671_| + (define |gx[1]#_g121803_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120672_| + (define |gx[1]#_g121804_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120674_| + (define |gx[1]#_g121806_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120675_| + (define |gx[1]#_g121807_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120676_| + (define |gx[1]#_g121808_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120677_| + (define |gx[1]#_g121809_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120678_| + (define |gx[1]#_g121810_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120679_| + (define |gx[1]#_g121811_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120681_| + (define |gx[1]#_g121813_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120682_| + (define |gx[1]#_g121814_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120683_| + (define |gx[1]#_g121815_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120684_| + (define |gx[1]#_g121816_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120685_| + (define |gx[1]#_g121817_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120686_| + (define |gx[1]#_g121818_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120689_| + (define |gx[1]#_g121821_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120691_| + (define |gx[1]#_g121823_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120693_| + (define |gx[1]#_g121825_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120695_| + (define |gx[1]#_g121827_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120696_| + (define |gx[1]#_g121828_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120697_| + (define |gx[1]#_g121829_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120698_| + (define |gx[1]#_g121830_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120700_| + (define |gx[1]#_g121832_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120701_| + (define |gx[1]#_g121833_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120702_| + (define |gx[1]#_g121834_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120703_| + (define |gx[1]#_g121835_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120705_| + (define |gx[1]#_g121837_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120706_| + (define |gx[1]#_g121838_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120707_| + (define |gx[1]#_g121839_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120708_| + (define |gx[1]#_g121840_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120710_| + (define |gx[1]#_g121842_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120711_| + (define |gx[1]#_g121843_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120712_| + (define |gx[1]#_g121844_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120713_| + (define |gx[1]#_g121845_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120715_| + (define |gx[1]#_g121847_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120717_| + (define |gx[1]#_g121849_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120719_| + (define |gx[1]#_g121851_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120721_| + (define |gx[1]#_g121853_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120723_| + (define |gx[1]#_g121855_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120725_| + (define |gx[1]#_g121857_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120727_| + (define |gx[1]#_g121859_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120729_| + (define |gx[1]#_g121861_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120731_| + (define |gx[1]#_g121863_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120733_| + (define |gx[1]#_g121865_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120735_| + (define |gx[1]#_g121867_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120737_| + (define |gx[1]#_g121869_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120738_| + (define |gx[1]#_g121870_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120739_| + (define |gx[1]#_g121871_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120741_| + (define |gx[1]#_g121873_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120742_| + (define |gx[1]#_g121874_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120743_| + (define |gx[1]#_g121875_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120745_| + (define |gx[1]#_g121877_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120746_| + (define |gx[1]#_g121878_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120747_| + (define |gx[1]#_g121879_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120749_| + (define |gx[1]#_g121881_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120750_| + (define |gx[1]#_g121882_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120751_| + (define |gx[1]#_g121883_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120753_| + (define |gx[1]#_g121885_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120755_| + (define |gx[1]#_g121887_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120757_| + (define |gx[1]#_g121889_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g120759_| + (define |gx[1]#_g121891_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120761_| + (define |gx[1]#_g121893_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120762_| + (define |gx[1]#_g121894_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120763_| + (define |gx[1]#_g121895_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120765_| + (define |gx[1]#_g121897_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120766_| + (define |gx[1]#_g121898_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120767_| + (define |gx[1]#_g121899_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120769_| + (define |gx[1]#_g121901_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120770_| + (define |gx[1]#_g121902_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120771_| + (define |gx[1]#_g121903_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120773_| + (define |gx[1]#_g121905_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120774_| + (define |gx[1]#_g121906_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120775_| + (define |gx[1]#_g121907_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120778_| + (define |gx[1]#_g121910_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120780_| + (define |gx[1]#_g121912_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g120782_| + (define |gx[1]#_g121914_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120784_| + (define |gx[1]#_g121916_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120785_| + (define |gx[1]#_g121917_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120786_| + (define |gx[1]#_g121918_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120788_| + (define |gx[1]#_g121920_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120789_| + (define |gx[1]#_g121921_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120790_| + (define |gx[1]#_g121922_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120792_| + (define |gx[1]#_g121924_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120793_| + (define |gx[1]#_g121925_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120794_| + (define |gx[1]#_g121926_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120796_| + (define |gx[1]#_g121928_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120797_| + (define |gx[1]#_g121929_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120798_| + (define |gx[1]#_g121930_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120800_| + (define |gx[1]#_g121932_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g120802_| + (define |gx[1]#_g121934_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120804_| + (define |gx[1]#_g121936_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g120806_| + (define |gx[1]#_g121938_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120808_| + (define |gx[1]#_g121940_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120809_| + (define |gx[1]#_g121941_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120810_| + (define |gx[1]#_g121942_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120812_| + (define |gx[1]#_g121944_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120813_| + (define |gx[1]#_g121945_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120814_| + (define |gx[1]#_g121946_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120816_| + (define |gx[1]#_g121948_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120817_| + (define |gx[1]#_g121949_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120818_| + (define |gx[1]#_g121950_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120820_| + (define |gx[1]#_g121952_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120821_| + (define |gx[1]#_g121953_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120822_| + (define |gx[1]#_g121954_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120825_| + (define |gx[1]#_g121957_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120827_| + (define |gx[1]#_g121959_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g120829_| + (define |gx[1]#_g121961_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120831_| + (define |gx[1]#_g121963_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120832_| + (define |gx[1]#_g121964_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120833_| + (define |gx[1]#_g121965_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120835_| + (define |gx[1]#_g121967_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120836_| + (define |gx[1]#_g121968_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120837_| + (define |gx[1]#_g121969_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120839_| + (define |gx[1]#_g121971_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120840_| + (define |gx[1]#_g121972_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120841_| + (define |gx[1]#_g121973_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120843_| + (define |gx[1]#_g121975_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120844_| + (define |gx[1]#_g121976_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120845_| + (define |gx[1]#_g121977_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120847_| + (define |gx[1]#_g121979_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g120849_| + (define |gx[1]#_g121981_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120851_| + (define |gx[1]#_g121983_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g120853_| + (define |gx[1]#_g121985_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120855_| + (define |gx[1]#_g121987_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120856_| + (define |gx[1]#_g121988_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120857_| + (define |gx[1]#_g121989_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120859_| + (define |gx[1]#_g121991_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120860_| + (define |gx[1]#_g121992_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120861_| + (define |gx[1]#_g121993_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120863_| + (define |gx[1]#_g121995_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120864_| + (define |gx[1]#_g121996_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120865_| + (define |gx[1]#_g121997_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120867_| + (define |gx[1]#_g121999_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120868_| + (define |gx[1]#_g122000_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120869_| + (define |gx[1]#_g122001_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120872_| + (define |gx[1]#_g122004_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120874_| + (define |gx[1]#_g122006_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120876_| + (define |gx[1]#_g122008_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120878_| + (define |gx[1]#_g122010_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120880_| + (define |gx[1]#_g122012_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120882_| + (define |gx[1]#_g122014_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120884_| + (define |gx[1]#_g122016_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120886_| + (define |gx[1]#_g122018_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120888_| + (define |gx[1]#_g122020_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120890_| + (define |gx[1]#_g122022_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120892_| + (define |gx[1]#_g122024_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120894_| + (define |gx[1]#_g122026_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120896_| + (define |gx[1]#_g122028_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120898_| + (define |gx[1]#_g122030_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120900_| + (define |gx[1]#_g122032_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120903_| + (define |gx[1]#_g122035_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120905_| + (define |gx[1]#_g122037_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120907_| + (define |gx[1]#_g122039_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120909_| + (define |gx[1]#_g122041_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120911_| + (define |gx[1]#_g122043_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120913_| + (define |gx[1]#_g122045_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120915_| + (define |gx[1]#_g122047_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120918_| + (define |gx[1]#_g122050_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120920_| + (define |gx[1]#_g122052_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120922_| + (define |gx[1]#_g122054_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120924_| + (define |gx[1]#_g122056_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120926_| + (define |gx[1]#_g122058_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120928_| + (define |gx[1]#_g122060_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120930_| + (define |gx[1]#_g122062_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120932_| + (define |gx[1]#_g122064_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120934_| + (define |gx[1]#_g122066_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120936_| + (define |gx[1]#_g122068_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120938_| + (define |gx[1]#_g122070_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120940_| + (define |gx[1]#_g122072_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120942_| + (define |gx[1]#_g122074_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120944_| + (define |gx[1]#_g122076_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120946_| + (define |gx[1]#_g122078_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120949_| + (define |gx[1]#_g122081_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120951_| + (define |gx[1]#_g122083_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120953_| + (define |gx[1]#_g122085_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120955_| + (define |gx[1]#_g122087_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120956_| + (define |gx[1]#_g122088_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120957_| + (define |gx[1]#_g122089_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120959_| + (define |gx[1]#_g122091_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120960_| + (define |gx[1]#_g122092_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120961_| + (define |gx[1]#_g122093_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120963_| + (define |gx[1]#_g122095_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120964_| + (define |gx[1]#_g122096_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120965_| + (define |gx[1]#_g122097_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120967_| + (define |gx[1]#_g122099_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120968_| + (define |gx[1]#_g122100_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120969_| + (define |gx[1]#_g122101_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120971_| + (define |gx[1]#_g122103_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120973_| + (define |gx[1]#_g122105_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g120975_| + (define |gx[1]#_g122107_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120977_| + (define |gx[1]#_g122109_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g120978_| + (define |gx[1]#_g122110_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120979_| + (define |gx[1]#_g122111_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120980_| + (define |gx[1]#_g122112_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g120982_| + (define |gx[1]#_g122114_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120983_| + (define |gx[1]#_g122115_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120984_| + (define |gx[1]#_g122116_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120985_| + (define |gx[1]#_g122117_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120987_| + (define |gx[1]#_g122119_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g120988_| + (define |gx[1]#_g122120_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120989_| + (define |gx[1]#_g122121_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120990_| + (define |gx[1]#_g122122_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g120992_| + (define |gx[1]#_g122124_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120993_| + (define |gx[1]#_g122125_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120994_| + (define |gx[1]#_g122126_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120995_| + (define |gx[1]#_g122127_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj120169 + (let ((__obj121301 (let () (declare (not safe)) (##structure @@ -3601,7 +3601,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120169 + __obj121301 'gx#expander-context::t '1 '#f @@ -3609,73 +3609,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120169 + __obj121301 'expander-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120169 '(id table) '4 '#f '#f)) + (##unchecked-structure-set! __obj121301 '(id table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120169 '(id table) '6 '#f '#f)) + (##unchecked-structure-set! __obj121301 '(id table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120169 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121301 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120169 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121301 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120169 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121301 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120169 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121301 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120169 ':init! '11 '#f '#f)) - (let ((__tmp120250 |gx[1]#_g120251_|)) + (##unchecked-structure-set! __obj121301 ':init! '11 '#f '#f)) + (let ((__tmp121382 |gx[1]#_g121383_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120169 __tmp120250 '12 '#f '#f)) - (let ((__tmp120252 |gx[1]#_g120253_|)) + (##unchecked-structure-set! __obj121301 __tmp121382 '12 '#f '#f)) + (let ((__tmp121384 |gx[1]#_g121385_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120169 __tmp120252 '13 '#f '#f)) - (let ((__tmp120254 |gx[1]#_g120255_|)) + (##unchecked-structure-set! __obj121301 __tmp121384 '13 '#f '#f)) + (let ((__tmp121386 |gx[1]#_g121387_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120169 __tmp120254 '14 '#f '#f)) - (let ((__tmp120256 - (cons (cons 'id |gx[1]#_g120257_|) - (cons (cons 'table |gx[1]#_g120258_|) '())))) + (##unchecked-structure-set! __obj121301 __tmp121386 '14 '#f '#f)) + (let ((__tmp121388 + (cons (cons 'id |gx[1]#_g121389_|) + (cons (cons 'table |gx[1]#_g121390_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj120169 __tmp120256 '15 '#f '#f)) - (let ((__tmp120259 - (cons (cons 'id |gx[1]#_g120260_|) - (cons (cons 'table |gx[1]#_g120261_|) '())))) + (##unchecked-structure-set! __obj121301 __tmp121388 '15 '#f '#f)) + (let ((__tmp121391 + (cons (cons 'id |gx[1]#_g121392_|) + (cons (cons 'table |gx[1]#_g121393_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj120169 __tmp120259 '16 '#f '#f)) - (let ((__tmp120262 - (cons (cons 'id |gx[1]#_g120263_|) - (cons (cons 'table |gx[1]#_g120264_|) '())))) + (##unchecked-structure-set! __obj121301 __tmp121391 '16 '#f '#f)) + (let ((__tmp121394 + (cons (cons 'id |gx[1]#_g121395_|) + (cons (cons 'table |gx[1]#_g121396_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj120169 __tmp120262 '17 '#f '#f)) - (let ((__tmp120265 - (cons (cons 'id |gx[1]#_g120266_|) - (cons (cons 'table |gx[1]#_g120267_|) '())))) + (##unchecked-structure-set! __obj121301 __tmp121394 '17 '#f '#f)) + (let ((__tmp121397 + (cons (cons 'id |gx[1]#_g121398_|) + (cons (cons 'table |gx[1]#_g121399_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj120169 __tmp120265 '18 '#f '#f)) + (##unchecked-structure-set! __obj121301 __tmp121397 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120169 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121301 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120169 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121301 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120169 '() '20 '#f '#f)) - __obj120169)) + (##unchecked-structure-set! __obj121301 '() '20 '#f '#f)) + __obj121301)) (define |gx[:0:]#root-context| - (let ((__obj120170 + (let ((__obj121302 (let () (declare (not safe)) (##structure @@ -3704,76 +3704,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120170 + __obj121302 'gx#root-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120170 'root-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121302 'root-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120170 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121302 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120170 '(id table) '6 '#f '#f)) - (let ((__tmp120268 (cons |gx[1]#_g120269_| '()))) + (##unchecked-structure-set! __obj121302 '(id table) '6 '#f '#f)) + (let ((__tmp121400 (cons |gx[1]#_g121401_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120170 __tmp120268 '3 '#f '#f)) + (##unchecked-structure-set! __obj121302 __tmp121400 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120170 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121302 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120170 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121302 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120170 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121302 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120170 '#f '11 '#f '#f)) - (let ((__tmp120270 |gx[1]#_g120271_|)) + (##unchecked-structure-set! __obj121302 '#f '11 '#f '#f)) + (let ((__tmp121402 |gx[1]#_g121403_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120170 __tmp120270 '12 '#f '#f)) - (let ((__tmp120272 |gx[1]#_g120273_|)) + (##unchecked-structure-set! __obj121302 __tmp121402 '12 '#f '#f)) + (let ((__tmp121404 |gx[1]#_g121405_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120170 __tmp120272 '13 '#f '#f)) - (let ((__tmp120274 |gx[1]#_g120275_|)) + (##unchecked-structure-set! __obj121302 __tmp121404 '13 '#f '#f)) + (let ((__tmp121406 |gx[1]#_g121407_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120170 __tmp120274 '14 '#f '#f)) - (let ((__tmp120276 - (cons (cons 'id |gx[1]#_g120277_|) - (cons (cons 'table |gx[1]#_g120278_|) '())))) + (##unchecked-structure-set! __obj121302 __tmp121406 '14 '#f '#f)) + (let ((__tmp121408 + (cons (cons 'id |gx[1]#_g121409_|) + (cons (cons 'table |gx[1]#_g121410_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj120170 __tmp120276 '15 '#f '#f)) - (let ((__tmp120279 - (cons (cons 'id |gx[1]#_g120280_|) - (cons (cons 'table |gx[1]#_g120281_|) '())))) + (##unchecked-structure-set! __obj121302 __tmp121408 '15 '#f '#f)) + (let ((__tmp121411 + (cons (cons 'id |gx[1]#_g121412_|) + (cons (cons 'table |gx[1]#_g121413_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj120170 __tmp120279 '16 '#f '#f)) - (let ((__tmp120282 - (cons (cons 'id |gx[1]#_g120283_|) - (cons (cons 'table |gx[1]#_g120284_|) '())))) + (##unchecked-structure-set! __obj121302 __tmp121411 '16 '#f '#f)) + (let ((__tmp121414 + (cons (cons 'id |gx[1]#_g121415_|) + (cons (cons 'table |gx[1]#_g121416_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj120170 __tmp120282 '17 '#f '#f)) - (let ((__tmp120285 - (cons (cons 'id |gx[1]#_g120286_|) - (cons (cons 'table |gx[1]#_g120287_|) '())))) + (##unchecked-structure-set! __obj121302 __tmp121414 '17 '#f '#f)) + (let ((__tmp121417 + (cons (cons 'id |gx[1]#_g121418_|) + (cons (cons 'table |gx[1]#_g121419_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj120170 __tmp120285 '18 '#f '#f)) + (##unchecked-structure-set! __obj121302 __tmp121417 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120170 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121302 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120170 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121302 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120170 '() '20 '#f '#f)) - __obj120170)) + (##unchecked-structure-set! __obj121302 '() '20 '#f '#f)) + __obj121302)) (define |gx[:0:]#phi-context| - (let ((__obj120171 + (let ((__obj121303 (let () (declare (not safe)) (##structure @@ -3802,97 +3802,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120171 + __obj121303 'gx#phi-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120171 'phi-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121303 'phi-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120171 '(super up down) '4 '#f '#f)) + (##unchecked-structure-set! __obj121303 '(super up down) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120171 + __obj121303 '(id table super up down) '6 '#f '#f)) - (let ((__tmp120288 (cons |gx[1]#_g120269_| '()))) + (let ((__tmp121420 (cons |gx[1]#_g121401_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120171 __tmp120288 '3 '#f '#f)) + (##unchecked-structure-set! __obj121303 __tmp121420 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120171 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121303 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120171 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121303 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120171 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121303 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120171 '#f '11 '#f '#f)) - (let ((__tmp120289 |gx[1]#_g120290_|)) + (##unchecked-structure-set! __obj121303 '#f '11 '#f '#f)) + (let ((__tmp121421 |gx[1]#_g121422_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120171 __tmp120289 '12 '#f '#f)) - (let ((__tmp120291 |gx[1]#_g120292_|)) + (##unchecked-structure-set! __obj121303 __tmp121421 '12 '#f '#f)) + (let ((__tmp121423 |gx[1]#_g121424_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120171 __tmp120291 '13 '#f '#f)) - (let ((__tmp120293 |gx[1]#_g120294_|)) + (##unchecked-structure-set! __obj121303 __tmp121423 '13 '#f '#f)) + (let ((__tmp121425 |gx[1]#_g121426_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120171 __tmp120293 '14 '#f '#f)) - (let ((__tmp120295 - (cons (cons 'super |gx[1]#_g120296_|) - (cons (cons 'up |gx[1]#_g120297_|) - (cons (cons 'down |gx[1]#_g120298_|) - (cons (cons 'id |gx[1]#_g120299_|) - (cons (cons 'table |gx[1]#_g120300_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120171 __tmp120295 '15 '#f '#f)) - (let ((__tmp120301 - (cons (cons 'super |gx[1]#_g120302_|) - (cons (cons 'up |gx[1]#_g120303_|) - (cons (cons 'down |gx[1]#_g120304_|) - (cons (cons 'id |gx[1]#_g120305_|) - (cons (cons 'table |gx[1]#_g120306_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120171 __tmp120301 '16 '#f '#f)) - (let ((__tmp120307 - (cons (cons 'super |gx[1]#_g120308_|) - (cons (cons 'up |gx[1]#_g120309_|) - (cons (cons 'down |gx[1]#_g120310_|) - (cons (cons 'id |gx[1]#_g120311_|) - (cons (cons 'table |gx[1]#_g120312_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120171 __tmp120307 '17 '#f '#f)) - (let ((__tmp120313 - (cons (cons 'super |gx[1]#_g120314_|) - (cons (cons 'up |gx[1]#_g120315_|) - (cons (cons 'down |gx[1]#_g120316_|) - (cons (cons 'id |gx[1]#_g120317_|) - (cons (cons 'table |gx[1]#_g120318_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120171 __tmp120313 '18 '#f '#f)) + (##unchecked-structure-set! __obj121303 __tmp121445 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120171 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121303 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120171 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121303 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120171 '() '20 '#f '#f)) - __obj120171)) + (##unchecked-structure-set! __obj121303 '() '20 '#f '#f)) + __obj121303)) (define |gx[:0:]#top-context| - (let ((__obj120172 + (let ((__obj121304 (let () (declare (not safe)) (##structure @@ -3921,97 +3921,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120172 + __obj121304 'gx#top-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120172 'top-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121304 'top-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120172 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121304 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120172 + __obj121304 '(id table super up down) '6 '#f '#f)) - (let ((__tmp120319 (cons |gx[1]#_g120320_| '()))) + (let ((__tmp121451 (cons |gx[1]#_g121452_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120172 __tmp120319 '3 '#f '#f)) + (##unchecked-structure-set! __obj121304 __tmp121451 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120172 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121304 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120172 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121304 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120172 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121304 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120172 '#f '11 '#f '#f)) - (let ((__tmp120321 |gx[1]#_g120322_|)) + (##unchecked-structure-set! __obj121304 '#f '11 '#f '#f)) + (let ((__tmp121453 |gx[1]#_g121454_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120172 __tmp120321 '12 '#f '#f)) - (let ((__tmp120323 |gx[1]#_g120324_|)) + (##unchecked-structure-set! __obj121304 __tmp121453 '12 '#f '#f)) + (let ((__tmp121455 |gx[1]#_g121456_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120172 __tmp120323 '13 '#f '#f)) - (let ((__tmp120325 |gx[1]#_g120326_|)) + (##unchecked-structure-set! __obj121304 __tmp121455 '13 '#f '#f)) + (let ((__tmp121457 |gx[1]#_g121458_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120172 __tmp120325 '14 '#f '#f)) - (let ((__tmp120327 - (cons (cons 'super |gx[1]#_g120328_|) - (cons (cons 'up |gx[1]#_g120329_|) - (cons (cons 'down |gx[1]#_g120330_|) - (cons (cons 'id |gx[1]#_g120331_|) - (cons (cons 'table |gx[1]#_g120332_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120172 __tmp120327 '15 '#f '#f)) - (let ((__tmp120333 - (cons (cons 'super |gx[1]#_g120334_|) - (cons (cons 'up |gx[1]#_g120335_|) - (cons (cons 'down |gx[1]#_g120336_|) - (cons (cons 'id |gx[1]#_g120337_|) - (cons (cons 'table |gx[1]#_g120338_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120172 __tmp120333 '16 '#f '#f)) - (let ((__tmp120339 - (cons (cons 'super |gx[1]#_g120340_|) - (cons (cons 'up |gx[1]#_g120341_|) - (cons (cons 'down |gx[1]#_g120342_|) - (cons (cons 'id |gx[1]#_g120343_|) - (cons (cons 'table |gx[1]#_g120344_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120172 __tmp120339 '17 '#f '#f)) - (let ((__tmp120345 - (cons (cons 'super |gx[1]#_g120346_|) - (cons (cons 'up |gx[1]#_g120347_|) - (cons (cons 'down |gx[1]#_g120348_|) - (cons (cons 'id |gx[1]#_g120349_|) - (cons (cons 'table |gx[1]#_g120350_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120172 __tmp120345 '18 '#f '#f)) + (##unchecked-structure-set! __obj121304 __tmp121477 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120172 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121304 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120172 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121304 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120172 '() '20 '#f '#f)) - __obj120172)) + (##unchecked-structure-set! __obj121304 '() '20 '#f '#f)) + __obj121304)) (define |gx[:0:]#module-context| - (let ((__obj120173 + (let ((__obj121305 (let () (declare (not safe)) (##structure @@ -4040,18 +4040,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120173 + __obj121305 'gx#module-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120173 'module-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121305 'module-context '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120173 + __obj121305 '(ns path import export e code) '4 '#f @@ -4059,127 +4059,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120173 + __obj121305 '(id table super up down ns path import export e code) '6 '#f '#f)) - (let ((__tmp120351 (cons |gx[1]#_g120352_| '()))) + (let ((__tmp121483 (cons |gx[1]#_g121484_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120173 __tmp120351 '3 '#f '#f)) + (##unchecked-structure-set! __obj121305 __tmp121483 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120173 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121305 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120173 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121305 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120173 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121305 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120173 '#f '11 '#f '#f)) - (let ((__tmp120353 |gx[1]#_g120354_|)) + (##unchecked-structure-set! __obj121305 '#f '11 '#f '#f)) + (let ((__tmp121485 |gx[1]#_g121486_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120173 __tmp120353 '12 '#f '#f)) - (let ((__tmp120355 |gx[1]#_g120356_|)) + (##unchecked-structure-set! __obj121305 __tmp121485 '12 '#f '#f)) + (let ((__tmp121487 |gx[1]#_g121488_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120173 __tmp120355 '13 '#f '#f)) - (let ((__tmp120357 |gx[1]#_g120358_|)) + (##unchecked-structure-set! __obj121305 __tmp121487 '13 '#f '#f)) + (let ((__tmp121489 |gx[1]#_g121490_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120173 __tmp120357 '14 '#f '#f)) - (let ((__tmp120359 - (cons (cons 'ns |gx[1]#_g120360_|) - (cons (cons 'path |gx[1]#_g120361_|) - (cons (cons 'import |gx[1]#_g120362_|) - (cons (cons 'export |gx[1]#_g120363_|) - (cons (cons 'e |gx[1]#_g120364_|) + (##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_|) (cons (cons 'code - |gx[1]#_g120365_|) + |gx[1]#_g121497_|) (cons (cons 'super - |gx[1]#_g120366_|) + |gx[1]#_g121498_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120367_|) - (cons (cons 'down |gx[1]#_g120368_|) - (cons (cons 'id |gx[1]#_g120369_|) - (cons (cons 'table |gx[1]#_g120370_|) + |gx[1]#_g121499_|) + (cons (cons 'down |gx[1]#_g121500_|) + (cons (cons 'id |gx[1]#_g121501_|) + (cons (cons 'table |gx[1]#_g121502_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj120173 __tmp120359 '15 '#f '#f)) - (let ((__tmp120371 - (cons (cons 'ns |gx[1]#_g120372_|) - (cons (cons 'path |gx[1]#_g120373_|) - (cons (cons 'import |gx[1]#_g120374_|) - (cons (cons 'export |gx[1]#_g120375_|) - (cons (cons 'e |gx[1]#_g120376_|) + (##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_|) (cons (cons 'code - |gx[1]#_g120377_|) + |gx[1]#_g121509_|) (cons (cons 'super - |gx[1]#_g120378_|) + |gx[1]#_g121510_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120379_|) - (cons (cons 'down |gx[1]#_g120380_|) - (cons (cons 'id |gx[1]#_g120381_|) - (cons (cons 'table |gx[1]#_g120382_|) + |gx[1]#_g121511_|) + (cons (cons 'down |gx[1]#_g121512_|) + (cons (cons 'id |gx[1]#_g121513_|) + (cons (cons 'table |gx[1]#_g121514_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj120173 __tmp120371 '16 '#f '#f)) - (let ((__tmp120383 - (cons (cons 'ns |gx[1]#_g120384_|) - (cons (cons 'path |gx[1]#_g120385_|) - (cons (cons 'import |gx[1]#_g120386_|) - (cons (cons 'export |gx[1]#_g120387_|) - (cons (cons 'e |gx[1]#_g120388_|) + (##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_|) (cons (cons 'code - |gx[1]#_g120389_|) + |gx[1]#_g121521_|) (cons (cons 'super - |gx[1]#_g120390_|) + |gx[1]#_g121522_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120391_|) - (cons (cons 'down |gx[1]#_g120392_|) - (cons (cons 'id |gx[1]#_g120393_|) - (cons (cons 'table |gx[1]#_g120394_|) + |gx[1]#_g121523_|) + (cons (cons 'down |gx[1]#_g121524_|) + (cons (cons 'id |gx[1]#_g121525_|) + (cons (cons 'table |gx[1]#_g121526_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj120173 __tmp120383 '17 '#f '#f)) - (let ((__tmp120395 - (cons (cons 'ns |gx[1]#_g120396_|) - (cons (cons 'path |gx[1]#_g120397_|) - (cons (cons 'import |gx[1]#_g120398_|) - (cons (cons 'export |gx[1]#_g120399_|) - (cons (cons 'e |gx[1]#_g120400_|) + (##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_|) (cons (cons 'code - |gx[1]#_g120401_|) + |gx[1]#_g121533_|) (cons (cons 'super - |gx[1]#_g120402_|) + |gx[1]#_g121534_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120403_|) - (cons (cons 'down |gx[1]#_g120404_|) - (cons (cons 'id |gx[1]#_g120405_|) - (cons (cons 'table |gx[1]#_g120406_|) + |gx[1]#_g121535_|) + (cons (cons 'down |gx[1]#_g121536_|) + (cons (cons 'id |gx[1]#_g121537_|) + (cons (cons 'table |gx[1]#_g121538_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj120173 __tmp120395 '18 '#f '#f)) + (##unchecked-structure-set! __obj121305 __tmp121527 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120173 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121305 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120173 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121305 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120173 '() '20 '#f '#f)) - __obj120173)) + (##unchecked-structure-set! __obj121305 '() '20 '#f '#f)) + __obj121305)) (define |gx[:0:]#prelude-context| - (let ((__obj120174 + (let ((__obj121306 (let () (declare (not safe)) (##structure @@ -4208,129 +4208,129 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120174 + __obj121306 'gx#prelude-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120174 'prelude-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121306 'prelude-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120174 '(path import e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121306 '(path import e) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120174 + __obj121306 '(id table super up down path import e) '6 '#f '#f)) - (let ((__tmp120407 (cons |gx[1]#_g120352_| '()))) + (let ((__tmp121539 (cons |gx[1]#_g121484_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120174 __tmp120407 '3 '#f '#f)) + (##unchecked-structure-set! __obj121306 __tmp121539 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120174 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121306 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120174 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121306 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120174 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121306 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120174 '#f '11 '#f '#f)) - (let ((__tmp120408 |gx[1]#_g120409_|)) + (##unchecked-structure-set! __obj121306 '#f '11 '#f '#f)) + (let ((__tmp121540 |gx[1]#_g121541_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120174 __tmp120408 '12 '#f '#f)) - (let ((__tmp120410 |gx[1]#_g120411_|)) + (##unchecked-structure-set! __obj121306 __tmp121540 '12 '#f '#f)) + (let ((__tmp121542 |gx[1]#_g121543_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120174 __tmp120410 '13 '#f '#f)) - (let ((__tmp120412 |gx[1]#_g120413_|)) + (##unchecked-structure-set! __obj121306 __tmp121542 '13 '#f '#f)) + (let ((__tmp121544 |gx[1]#_g121545_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120174 __tmp120412 '14 '#f '#f)) - (let ((__tmp120414 - (cons (cons 'path |gx[1]#_g120415_|) - (cons (cons 'import |gx[1]#_g120416_|) - (cons (cons 'e |gx[1]#_g120417_|) - (cons (cons 'super |gx[1]#_g120418_|) - (cons (cons 'up |gx[1]#_g120419_|) + (##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_|) (cons (cons 'down - |gx[1]#_g120420_|) + |gx[1]#_g121552_|) (cons (cons 'id - |gx[1]#_g120421_|) + |gx[1]#_g121553_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120422_|) + |gx[1]#_g121554_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj120174 __tmp120414 '15 '#f '#f)) - (let ((__tmp120423 - (cons (cons 'path |gx[1]#_g120424_|) - (cons (cons 'import |gx[1]#_g120425_|) - (cons (cons 'e |gx[1]#_g120426_|) - (cons (cons 'super |gx[1]#_g120427_|) - (cons (cons 'up |gx[1]#_g120428_|) + (##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_|) (cons (cons 'down - |gx[1]#_g120429_|) + |gx[1]#_g121561_|) (cons (cons 'id - |gx[1]#_g120430_|) + |gx[1]#_g121562_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120431_|) + |gx[1]#_g121563_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj120174 __tmp120423 '16 '#f '#f)) - (let ((__tmp120432 - (cons (cons 'path |gx[1]#_g120433_|) - (cons (cons 'import |gx[1]#_g120434_|) - (cons (cons 'e |gx[1]#_g120435_|) - (cons (cons 'super |gx[1]#_g120436_|) - (cons (cons 'up |gx[1]#_g120437_|) + (##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_|) (cons (cons 'down - |gx[1]#_g120438_|) + |gx[1]#_g121570_|) (cons (cons 'id - |gx[1]#_g120439_|) + |gx[1]#_g121571_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120440_|) + |gx[1]#_g121572_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj120174 __tmp120432 '17 '#f '#f)) - (let ((__tmp120441 - (cons (cons 'path |gx[1]#_g120442_|) - (cons (cons 'import |gx[1]#_g120443_|) - (cons (cons 'e |gx[1]#_g120444_|) - (cons (cons 'super |gx[1]#_g120445_|) - (cons (cons 'up |gx[1]#_g120446_|) + (##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_|) (cons (cons 'down - |gx[1]#_g120447_|) + |gx[1]#_g121579_|) (cons (cons 'id - |gx[1]#_g120448_|) + |gx[1]#_g121580_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120449_|) + |gx[1]#_g121581_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj120174 __tmp120441 '18 '#f '#f)) + (##unchecked-structure-set! __obj121306 __tmp121573 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120174 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121306 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120174 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121306 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120174 '() '20 '#f '#f)) - __obj120174)) + (##unchecked-structure-set! __obj121306 '() '20 '#f '#f)) + __obj121306)) (define |gx[:0:]#local-context| - (let ((__obj120175 + (let ((__obj121307 (let () (declare (not safe)) (##structure @@ -4359,97 +4359,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120175 + __obj121307 'gx#local-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120175 'local-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121307 'local-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120175 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121307 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120175 + __obj121307 '(id table super up down) '6 '#f '#f)) - (let ((__tmp120450 (cons |gx[1]#_g120320_| '()))) + (let ((__tmp121582 (cons |gx[1]#_g121452_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120175 __tmp120450 '3 '#f '#f)) + (##unchecked-structure-set! __obj121307 __tmp121582 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120175 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121307 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120175 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121307 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120175 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121307 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120175 '#f '11 '#f '#f)) - (let ((__tmp120451 |gx[1]#_g120452_|)) + (##unchecked-structure-set! __obj121307 '#f '11 '#f '#f)) + (let ((__tmp121583 |gx[1]#_g121584_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120175 __tmp120451 '12 '#f '#f)) - (let ((__tmp120453 |gx[1]#_g120454_|)) + (##unchecked-structure-set! __obj121307 __tmp121583 '12 '#f '#f)) + (let ((__tmp121585 |gx[1]#_g121586_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120175 __tmp120453 '13 '#f '#f)) - (let ((__tmp120455 |gx[1]#_g120456_|)) + (##unchecked-structure-set! __obj121307 __tmp121585 '13 '#f '#f)) + (let ((__tmp121587 |gx[1]#_g121588_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120175 __tmp120455 '14 '#f '#f)) - (let ((__tmp120457 - (cons (cons 'super |gx[1]#_g120458_|) - (cons (cons 'up |gx[1]#_g120459_|) - (cons (cons 'down |gx[1]#_g120460_|) - (cons (cons 'id |gx[1]#_g120461_|) - (cons (cons 'table |gx[1]#_g120462_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120175 __tmp120457 '15 '#f '#f)) - (let ((__tmp120463 - (cons (cons 'super |gx[1]#_g120464_|) - (cons (cons 'up |gx[1]#_g120465_|) - (cons (cons 'down |gx[1]#_g120466_|) - (cons (cons 'id |gx[1]#_g120467_|) - (cons (cons 'table |gx[1]#_g120468_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120175 __tmp120463 '16 '#f '#f)) - (let ((__tmp120469 - (cons (cons 'super |gx[1]#_g120470_|) - (cons (cons 'up |gx[1]#_g120471_|) - (cons (cons 'down |gx[1]#_g120472_|) - (cons (cons 'id |gx[1]#_g120473_|) - (cons (cons 'table |gx[1]#_g120474_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120175 __tmp120469 '17 '#f '#f)) - (let ((__tmp120475 - (cons (cons 'super |gx[1]#_g120476_|) - (cons (cons 'up |gx[1]#_g120477_|) - (cons (cons 'down |gx[1]#_g120478_|) - (cons (cons 'id |gx[1]#_g120479_|) - (cons (cons 'table |gx[1]#_g120480_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120175 __tmp120475 '18 '#f '#f)) + (##unchecked-structure-set! __obj121307 __tmp121607 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120175 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121307 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120175 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121307 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120175 '() '20 '#f '#f)) - __obj120175)) + (##unchecked-structure-set! __obj121307 '() '20 '#f '#f)) + __obj121307)) (define |gx[:0:]#binding| - (let ((__obj120176 + (let ((__obj121308 (let () (declare (not safe)) (##structure @@ -4477,76 +4477,76 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120176 'gx#binding::t '1 '#f '#f)) + (##unchecked-structure-set! __obj121308 'gx#binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120176 'binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121308 'binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120176 '(id key phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj121308 '(id key phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120176 '(id key phi) '6 '#f '#f)) + (##unchecked-structure-set! __obj121308 '(id key phi) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120176 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121308 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120176 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121308 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120176 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121308 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120176 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121308 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120176 '#f '11 '#f '#f)) - (let ((__tmp120481 |gx[1]#_g120482_|)) + (##unchecked-structure-set! __obj121308 '#f '11 '#f '#f)) + (let ((__tmp121613 |gx[1]#_g121614_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120176 __tmp120481 '12 '#f '#f)) - (let ((__tmp120483 |gx[1]#_g120484_|)) + (##unchecked-structure-set! __obj121308 __tmp121613 '12 '#f '#f)) + (let ((__tmp121615 |gx[1]#_g121616_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120176 __tmp120483 '13 '#f '#f)) - (let ((__tmp120485 |gx[1]#_g120486_|)) + (##unchecked-structure-set! __obj121308 __tmp121615 '13 '#f '#f)) + (let ((__tmp121617 |gx[1]#_g121618_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120176 __tmp120485 '14 '#f '#f)) - (let ((__tmp120487 - (cons (cons 'id |gx[1]#_g120488_|) - (cons (cons 'key |gx[1]#_g120489_|) - (cons (cons 'phi |gx[1]#_g120490_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120176 __tmp120487 '15 '#f '#f)) - (let ((__tmp120491 - (cons (cons 'id |gx[1]#_g120492_|) - (cons (cons 'key |gx[1]#_g120493_|) - (cons (cons 'phi |gx[1]#_g120494_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120176 __tmp120491 '16 '#f '#f)) - (let ((__tmp120495 - (cons (cons 'id |gx[1]#_g120496_|) - (cons (cons 'key |gx[1]#_g120497_|) - (cons (cons 'phi |gx[1]#_g120498_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120176 __tmp120495 '17 '#f '#f)) - (let ((__tmp120499 - (cons (cons 'id |gx[1]#_g120500_|) - (cons (cons 'key |gx[1]#_g120501_|) - (cons (cons 'phi |gx[1]#_g120502_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120176 __tmp120499 '18 '#f '#f)) + (##unchecked-structure-set! __obj121308 __tmp121631 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120176 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121308 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120176 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121308 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120176 '() '20 '#f '#f)) - __obj120176)) + (##unchecked-structure-set! __obj121308 '() '20 '#f '#f)) + __obj121308)) (define |gx[:0:]#runtime-binding| - (let ((__obj120177 + (let ((__obj121309 (let () (declare (not safe)) (##structure @@ -4575,80 +4575,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120177 + __obj121309 'gx#runtime-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120177 'runtime-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121309 'runtime-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120177 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121309 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120177 '(id key phi) '6 '#f '#f)) - (let ((__tmp120503 (cons |gx[1]#_g120504_| '()))) + (##unchecked-structure-set! __obj121309 '(id key phi) '6 '#f '#f)) + (let ((__tmp121635 (cons |gx[1]#_g121636_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120177 __tmp120503 '3 '#f '#f)) + (##unchecked-structure-set! __obj121309 __tmp121635 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120177 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121309 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120177 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121309 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120177 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121309 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120177 '#f '11 '#f '#f)) - (let ((__tmp120505 |gx[1]#_g120506_|)) + (##unchecked-structure-set! __obj121309 '#f '11 '#f '#f)) + (let ((__tmp121637 |gx[1]#_g121638_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120177 __tmp120505 '12 '#f '#f)) - (let ((__tmp120507 |gx[1]#_g120508_|)) + (##unchecked-structure-set! __obj121309 __tmp121637 '12 '#f '#f)) + (let ((__tmp121639 |gx[1]#_g121640_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120177 __tmp120507 '13 '#f '#f)) - (let ((__tmp120509 |gx[1]#_g120510_|)) + (##unchecked-structure-set! __obj121309 __tmp121639 '13 '#f '#f)) + (let ((__tmp121641 |gx[1]#_g121642_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120177 __tmp120509 '14 '#f '#f)) - (let ((__tmp120511 - (cons (cons 'id |gx[1]#_g120512_|) - (cons (cons 'key |gx[1]#_g120513_|) - (cons (cons 'phi |gx[1]#_g120514_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120177 __tmp120511 '15 '#f '#f)) - (let ((__tmp120515 - (cons (cons 'id |gx[1]#_g120516_|) - (cons (cons 'key |gx[1]#_g120517_|) - (cons (cons 'phi |gx[1]#_g120518_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120177 __tmp120515 '16 '#f '#f)) - (let ((__tmp120519 - (cons (cons 'id |gx[1]#_g120520_|) - (cons (cons 'key |gx[1]#_g120521_|) - (cons (cons 'phi |gx[1]#_g120522_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120177 __tmp120519 '17 '#f '#f)) - (let ((__tmp120523 - (cons (cons 'id |gx[1]#_g120524_|) - (cons (cons 'key |gx[1]#_g120525_|) - (cons (cons 'phi |gx[1]#_g120526_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120177 __tmp120523 '18 '#f '#f)) + (##unchecked-structure-set! __obj121309 __tmp121655 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120177 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121309 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120177 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121309 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120177 '() '20 '#f '#f)) - __obj120177)) + (##unchecked-structure-set! __obj121309 '() '20 '#f '#f)) + __obj121309)) (define |gx[:0:]#local-binding| - (let ((__obj120178 + (let ((__obj121310 (let () (declare (not safe)) (##structure @@ -4677,80 +4677,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120178 + __obj121310 'gx#local-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120178 'local-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121310 'local-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120178 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121310 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120178 '(id key phi) '6 '#f '#f)) - (let ((__tmp120527 (cons |gx[1]#_g120528_| '()))) + (##unchecked-structure-set! __obj121310 '(id key phi) '6 '#f '#f)) + (let ((__tmp121659 (cons |gx[1]#_g121660_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120178 __tmp120527 '3 '#f '#f)) + (##unchecked-structure-set! __obj121310 __tmp121659 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120178 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121310 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120178 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121310 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120178 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121310 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120178 '#f '11 '#f '#f)) - (let ((__tmp120529 |gx[1]#_g120530_|)) + (##unchecked-structure-set! __obj121310 '#f '11 '#f '#f)) + (let ((__tmp121661 |gx[1]#_g121662_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120178 __tmp120529 '12 '#f '#f)) - (let ((__tmp120531 |gx[1]#_g120532_|)) + (##unchecked-structure-set! __obj121310 __tmp121661 '12 '#f '#f)) + (let ((__tmp121663 |gx[1]#_g121664_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120178 __tmp120531 '13 '#f '#f)) - (let ((__tmp120533 |gx[1]#_g120534_|)) + (##unchecked-structure-set! __obj121310 __tmp121663 '13 '#f '#f)) + (let ((__tmp121665 |gx[1]#_g121666_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120178 __tmp120533 '14 '#f '#f)) - (let ((__tmp120535 - (cons (cons 'id |gx[1]#_g120536_|) - (cons (cons 'key |gx[1]#_g120537_|) - (cons (cons 'phi |gx[1]#_g120538_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120178 __tmp120535 '15 '#f '#f)) - (let ((__tmp120539 - (cons (cons 'id |gx[1]#_g120540_|) - (cons (cons 'key |gx[1]#_g120541_|) - (cons (cons 'phi |gx[1]#_g120542_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120178 __tmp120539 '16 '#f '#f)) - (let ((__tmp120543 - (cons (cons 'id |gx[1]#_g120544_|) - (cons (cons 'key |gx[1]#_g120545_|) - (cons (cons 'phi |gx[1]#_g120546_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120178 __tmp120543 '17 '#f '#f)) - (let ((__tmp120547 - (cons (cons 'id |gx[1]#_g120548_|) - (cons (cons 'key |gx[1]#_g120549_|) - (cons (cons 'phi |gx[1]#_g120550_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120178 __tmp120547 '18 '#f '#f)) + (##unchecked-structure-set! __obj121310 __tmp121679 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120178 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121310 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120178 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121310 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120178 '() '20 '#f '#f)) - __obj120178)) + (##unchecked-structure-set! __obj121310 '() '20 '#f '#f)) + __obj121310)) (define |gx[:0:]#top-binding| - (let ((__obj120179 + (let ((__obj121311 (let () (declare (not safe)) (##structure @@ -4779,80 +4779,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120179 + __obj121311 'gx#top-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120179 'top-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121311 'top-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120179 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121311 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120179 '(id key phi) '6 '#f '#f)) - (let ((__tmp120551 (cons |gx[1]#_g120528_| '()))) + (##unchecked-structure-set! __obj121311 '(id key phi) '6 '#f '#f)) + (let ((__tmp121683 (cons |gx[1]#_g121660_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120179 __tmp120551 '3 '#f '#f)) + (##unchecked-structure-set! __obj121311 __tmp121683 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120179 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121311 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120179 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121311 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120179 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121311 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120179 '#f '11 '#f '#f)) - (let ((__tmp120552 |gx[1]#_g120553_|)) + (##unchecked-structure-set! __obj121311 '#f '11 '#f '#f)) + (let ((__tmp121684 |gx[1]#_g121685_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120179 __tmp120552 '12 '#f '#f)) - (let ((__tmp120554 |gx[1]#_g120555_|)) + (##unchecked-structure-set! __obj121311 __tmp121684 '12 '#f '#f)) + (let ((__tmp121686 |gx[1]#_g121687_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120179 __tmp120554 '13 '#f '#f)) - (let ((__tmp120556 |gx[1]#_g120557_|)) + (##unchecked-structure-set! __obj121311 __tmp121686 '13 '#f '#f)) + (let ((__tmp121688 |gx[1]#_g121689_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120179 __tmp120556 '14 '#f '#f)) - (let ((__tmp120558 - (cons (cons 'id |gx[1]#_g120559_|) - (cons (cons 'key |gx[1]#_g120560_|) - (cons (cons 'phi |gx[1]#_g120561_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120179 __tmp120558 '15 '#f '#f)) - (let ((__tmp120562 - (cons (cons 'id |gx[1]#_g120563_|) - (cons (cons 'key |gx[1]#_g120564_|) - (cons (cons 'phi |gx[1]#_g120565_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120179 __tmp120562 '16 '#f '#f)) - (let ((__tmp120566 - (cons (cons 'id |gx[1]#_g120567_|) - (cons (cons 'key |gx[1]#_g120568_|) - (cons (cons 'phi |gx[1]#_g120569_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120179 __tmp120566 '17 '#f '#f)) - (let ((__tmp120570 - (cons (cons 'id |gx[1]#_g120571_|) - (cons (cons 'key |gx[1]#_g120572_|) - (cons (cons 'phi |gx[1]#_g120573_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120179 __tmp120570 '18 '#f '#f)) + (##unchecked-structure-set! __obj121311 __tmp121702 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120179 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121311 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120179 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121311 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120179 '() '20 '#f '#f)) - __obj120179)) + (##unchecked-structure-set! __obj121311 '() '20 '#f '#f)) + __obj121311)) (define |gx[:0:]#module-binding| - (let ((__obj120180 + (let ((__obj121312 (let () (declare (not safe)) (##structure @@ -4881,89 +4881,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120180 + __obj121312 'gx#module-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120180 'module-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121312 'module-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120180 '(context) '4 '#f '#f)) + (##unchecked-structure-set! __obj121312 '(context) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120180 + __obj121312 '(id key phi context) '6 '#f '#f)) - (let ((__tmp120574 (cons |gx[1]#_g120575_| '()))) + (let ((__tmp121706 (cons |gx[1]#_g121707_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120180 __tmp120574 '3 '#f '#f)) + (##unchecked-structure-set! __obj121312 __tmp121706 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120180 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121312 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120180 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121312 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120180 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121312 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120180 '#f '11 '#f '#f)) - (let ((__tmp120576 |gx[1]#_g120577_|)) + (##unchecked-structure-set! __obj121312 '#f '11 '#f '#f)) + (let ((__tmp121708 |gx[1]#_g121709_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120180 __tmp120576 '12 '#f '#f)) - (let ((__tmp120578 |gx[1]#_g120579_|)) + (##unchecked-structure-set! __obj121312 __tmp121708 '12 '#f '#f)) + (let ((__tmp121710 |gx[1]#_g121711_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120180 __tmp120578 '13 '#f '#f)) - (let ((__tmp120580 |gx[1]#_g120581_|)) + (##unchecked-structure-set! __obj121312 __tmp121710 '13 '#f '#f)) + (let ((__tmp121712 |gx[1]#_g121713_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120180 __tmp120580 '14 '#f '#f)) - (let ((__tmp120582 - (cons (cons 'context |gx[1]#_g120583_|) - (cons (cons 'id |gx[1]#_g120584_|) - (cons (cons 'key |gx[1]#_g120585_|) - (cons (cons 'phi |gx[1]#_g120586_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120180 __tmp120582 '15 '#f '#f)) - (let ((__tmp120587 - (cons (cons 'context |gx[1]#_g120588_|) - (cons (cons 'id |gx[1]#_g120589_|) - (cons (cons 'key |gx[1]#_g120590_|) - (cons (cons 'phi |gx[1]#_g120591_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120180 __tmp120587 '16 '#f '#f)) - (let ((__tmp120592 - (cons (cons 'context |gx[1]#_g120593_|) - (cons (cons 'id |gx[1]#_g120594_|) - (cons (cons 'key |gx[1]#_g120595_|) - (cons (cons 'phi |gx[1]#_g120596_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120180 __tmp120592 '17 '#f '#f)) - (let ((__tmp120597 - (cons (cons 'context |gx[1]#_g120598_|) - (cons (cons 'id |gx[1]#_g120599_|) - (cons (cons 'key |gx[1]#_g120600_|) - (cons (cons 'phi |gx[1]#_g120601_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120180 __tmp120597 '18 '#f '#f)) + (##unchecked-structure-set! __obj121312 __tmp121729 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120180 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121312 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120180 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121312 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120180 '() '20 '#f '#f)) - __obj120180)) + (##unchecked-structure-set! __obj121312 '() '20 '#f '#f)) + __obj121312)) (define |gx[:0:]#extern-binding| - (let ((__obj120181 + (let ((__obj121313 (let () (declare (not safe)) (##structure @@ -4992,80 +4992,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120181 + __obj121313 'gx#extern-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120181 'extern-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121313 'extern-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120181 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121313 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120181 '(id key phi) '6 '#f '#f)) - (let ((__tmp120602 (cons |gx[1]#_g120575_| '()))) + (##unchecked-structure-set! __obj121313 '(id key phi) '6 '#f '#f)) + (let ((__tmp121734 (cons |gx[1]#_g121707_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120181 __tmp120602 '3 '#f '#f)) + (##unchecked-structure-set! __obj121313 __tmp121734 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120181 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121313 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120181 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121313 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120181 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121313 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120181 '#f '11 '#f '#f)) - (let ((__tmp120603 |gx[1]#_g120604_|)) + (##unchecked-structure-set! __obj121313 '#f '11 '#f '#f)) + (let ((__tmp121735 |gx[1]#_g121736_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120181 __tmp120603 '12 '#f '#f)) - (let ((__tmp120605 |gx[1]#_g120606_|)) + (##unchecked-structure-set! __obj121313 __tmp121735 '12 '#f '#f)) + (let ((__tmp121737 |gx[1]#_g121738_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120181 __tmp120605 '13 '#f '#f)) - (let ((__tmp120607 |gx[1]#_g120608_|)) + (##unchecked-structure-set! __obj121313 __tmp121737 '13 '#f '#f)) + (let ((__tmp121739 |gx[1]#_g121740_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120181 __tmp120607 '14 '#f '#f)) - (let ((__tmp120609 - (cons (cons 'id |gx[1]#_g120610_|) - (cons (cons 'key |gx[1]#_g120611_|) - (cons (cons 'phi |gx[1]#_g120612_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120181 __tmp120609 '15 '#f '#f)) - (let ((__tmp120613 - (cons (cons 'id |gx[1]#_g120614_|) - (cons (cons 'key |gx[1]#_g120615_|) - (cons (cons 'phi |gx[1]#_g120616_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120181 __tmp120613 '16 '#f '#f)) - (let ((__tmp120617 - (cons (cons 'id |gx[1]#_g120618_|) - (cons (cons 'key |gx[1]#_g120619_|) - (cons (cons 'phi |gx[1]#_g120620_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120181 __tmp120617 '17 '#f '#f)) - (let ((__tmp120621 - (cons (cons 'id |gx[1]#_g120622_|) - (cons (cons 'key |gx[1]#_g120623_|) - (cons (cons 'phi |gx[1]#_g120624_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120181 __tmp120621 '18 '#f '#f)) + (##unchecked-structure-set! __obj121313 __tmp121753 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120181 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121313 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120181 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121313 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120181 '() '20 '#f '#f)) - __obj120181)) + (##unchecked-structure-set! __obj121313 '() '20 '#f '#f)) + __obj121313)) (define |gx[:0:]#syntax-binding| - (let ((__obj120182 + (let ((__obj121314 (let () (declare (not safe)) (##structure @@ -5094,84 +5094,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120182 + __obj121314 'gx#syntax-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120182 'syntax-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121314 'syntax-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120182 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121314 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120182 '(id key phi e) '6 '#f '#f)) - (let ((__tmp120625 (cons |gx[1]#_g120504_| '()))) + (##unchecked-structure-set! __obj121314 '(id key phi e) '6 '#f '#f)) + (let ((__tmp121757 (cons |gx[1]#_g121636_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120182 __tmp120625 '3 '#f '#f)) + (##unchecked-structure-set! __obj121314 __tmp121757 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120182 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121314 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120182 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj121314 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120182 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121314 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120182 '#f '11 '#f '#f)) - (let ((__tmp120626 |gx[1]#_g120627_|)) + (##unchecked-structure-set! __obj121314 '#f '11 '#f '#f)) + (let ((__tmp121758 |gx[1]#_g121759_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120182 __tmp120626 '12 '#f '#f)) - (let ((__tmp120628 |gx[1]#_g120629_|)) + (##unchecked-structure-set! __obj121314 __tmp121758 '12 '#f '#f)) + (let ((__tmp121760 |gx[1]#_g121761_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120182 __tmp120628 '13 '#f '#f)) - (let ((__tmp120630 |gx[1]#_g120631_|)) + (##unchecked-structure-set! __obj121314 __tmp121760 '13 '#f '#f)) + (let ((__tmp121762 |gx[1]#_g121763_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120182 __tmp120630 '14 '#f '#f)) - (let ((__tmp120632 - (cons (cons 'e |gx[1]#_g120633_|) - (cons (cons 'id |gx[1]#_g120634_|) - (cons (cons 'key |gx[1]#_g120635_|) - (cons (cons 'phi |gx[1]#_g120636_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120182 __tmp120632 '15 '#f '#f)) - (let ((__tmp120637 - (cons (cons 'e |gx[1]#_g120638_|) - (cons (cons 'id |gx[1]#_g120639_|) - (cons (cons 'key |gx[1]#_g120640_|) - (cons (cons 'phi |gx[1]#_g120641_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120182 __tmp120637 '16 '#f '#f)) - (let ((__tmp120642 - (cons (cons 'e |gx[1]#_g120643_|) - (cons (cons 'id |gx[1]#_g120644_|) - (cons (cons 'key |gx[1]#_g120645_|) - (cons (cons 'phi |gx[1]#_g120646_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120182 __tmp120642 '17 '#f '#f)) - (let ((__tmp120647 - (cons (cons 'e |gx[1]#_g120648_|) - (cons (cons 'id |gx[1]#_g120649_|) - (cons (cons 'key |gx[1]#_g120650_|) - (cons (cons 'phi |gx[1]#_g120651_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120182 __tmp120647 '18 '#f '#f)) + (##unchecked-structure-set! __obj121314 __tmp121779 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120182 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121314 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120182 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121314 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120182 '() '20 '#f '#f)) - __obj120182)) + (##unchecked-structure-set! __obj121314 '() '20 '#f '#f)) + __obj121314)) (define |gx[:0:]#import-binding| - (let ((__obj120183 + (let ((__obj121315 (let () (declare (not safe)) (##structure @@ -5200,18 +5200,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120183 + __obj121315 'gx#import-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120183 'import-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121315 'import-binding '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120183 + __obj121315 '(e context weak?) '4 '#f @@ -5219,91 +5219,91 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120183 + __obj121315 '(id key phi e context weak?) '6 '#f '#f)) - (let ((__tmp120652 (cons |gx[1]#_g120504_| '()))) + (let ((__tmp121784 (cons |gx[1]#_g121636_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120183 __tmp120652 '3 '#f '#f)) + (##unchecked-structure-set! __obj121315 __tmp121784 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120183 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121315 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120183 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj121315 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120183 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121315 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120183 '#f '11 '#f '#f)) - (let ((__tmp120653 |gx[1]#_g120654_|)) + (##unchecked-structure-set! __obj121315 '#f '11 '#f '#f)) + (let ((__tmp121785 |gx[1]#_g121786_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120183 __tmp120653 '12 '#f '#f)) - (let ((__tmp120655 |gx[1]#_g120656_|)) + (##unchecked-structure-set! __obj121315 __tmp121785 '12 '#f '#f)) + (let ((__tmp121787 |gx[1]#_g121788_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120183 __tmp120655 '13 '#f '#f)) - (let ((__tmp120657 |gx[1]#_g120658_|)) + (##unchecked-structure-set! __obj121315 __tmp121787 '13 '#f '#f)) + (let ((__tmp121789 |gx[1]#_g121790_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120183 __tmp120657 '14 '#f '#f)) - (let ((__tmp120659 - (cons (cons 'e |gx[1]#_g120660_|) - (cons (cons 'context |gx[1]#_g120661_|) - (cons (cons 'weak? |gx[1]#_g120662_|) - (cons (cons 'id |gx[1]#_g120663_|) - (cons (cons 'key |gx[1]#_g120664_|) + (##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_|) (cons (cons 'phi - |gx[1]#_g120665_|) + |gx[1]#_g121797_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120183 __tmp120659 '15 '#f '#f)) - (let ((__tmp120666 - (cons (cons 'e |gx[1]#_g120667_|) - (cons (cons 'context |gx[1]#_g120668_|) - (cons (cons 'weak? |gx[1]#_g120669_|) - (cons (cons 'id |gx[1]#_g120670_|) - (cons (cons 'key |gx[1]#_g120671_|) + (##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_|) (cons (cons 'phi - |gx[1]#_g120672_|) + |gx[1]#_g121804_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120183 __tmp120666 '16 '#f '#f)) - (let ((__tmp120673 - (cons (cons 'e |gx[1]#_g120674_|) - (cons (cons 'context |gx[1]#_g120675_|) - (cons (cons 'weak? |gx[1]#_g120676_|) - (cons (cons 'id |gx[1]#_g120677_|) - (cons (cons 'key |gx[1]#_g120678_|) + (##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_|) (cons (cons 'phi - |gx[1]#_g120679_|) + |gx[1]#_g121811_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120183 __tmp120673 '17 '#f '#f)) - (let ((__tmp120680 - (cons (cons 'e |gx[1]#_g120681_|) - (cons (cons 'context |gx[1]#_g120682_|) - (cons (cons 'weak? |gx[1]#_g120683_|) - (cons (cons 'id |gx[1]#_g120684_|) - (cons (cons 'key |gx[1]#_g120685_|) + (##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_|) (cons (cons 'phi - |gx[1]#_g120686_|) + |gx[1]#_g121818_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120183 __tmp120680 '18 '#f '#f)) + (##unchecked-structure-set! __obj121315 __tmp121812 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120183 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121315 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120183 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121315 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120183 '() '20 '#f '#f)) - __obj120183)) + (##unchecked-structure-set! __obj121315 '() '20 '#f '#f)) + __obj121315)) (define |gx[:0:]#alias-binding| - (let ((__obj120184 + (let ((__obj121316 (let () (declare (not safe)) (##structure @@ -5332,84 +5332,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120184 + __obj121316 'gx#alias-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120184 'alias-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121316 'alias-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120184 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121316 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120184 '(id key phi e) '6 '#f '#f)) - (let ((__tmp120687 (cons |gx[1]#_g120504_| '()))) + (##unchecked-structure-set! __obj121316 '(id key phi e) '6 '#f '#f)) + (let ((__tmp121819 (cons |gx[1]#_g121636_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120184 __tmp120687 '3 '#f '#f)) + (##unchecked-structure-set! __obj121316 __tmp121819 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120184 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121316 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120184 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj121316 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120184 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121316 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120184 '#f '11 '#f '#f)) - (let ((__tmp120688 |gx[1]#_g120689_|)) + (##unchecked-structure-set! __obj121316 '#f '11 '#f '#f)) + (let ((__tmp121820 |gx[1]#_g121821_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120184 __tmp120688 '12 '#f '#f)) - (let ((__tmp120690 |gx[1]#_g120691_|)) + (##unchecked-structure-set! __obj121316 __tmp121820 '12 '#f '#f)) + (let ((__tmp121822 |gx[1]#_g121823_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120184 __tmp120690 '13 '#f '#f)) - (let ((__tmp120692 |gx[1]#_g120693_|)) + (##unchecked-structure-set! __obj121316 __tmp121822 '13 '#f '#f)) + (let ((__tmp121824 |gx[1]#_g121825_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120184 __tmp120692 '14 '#f '#f)) - (let ((__tmp120694 - (cons (cons 'e |gx[1]#_g120695_|) - (cons (cons 'id |gx[1]#_g120696_|) - (cons (cons 'key |gx[1]#_g120697_|) - (cons (cons 'phi |gx[1]#_g120698_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120184 __tmp120694 '15 '#f '#f)) - (let ((__tmp120699 - (cons (cons 'e |gx[1]#_g120700_|) - (cons (cons 'id |gx[1]#_g120701_|) - (cons (cons 'key |gx[1]#_g120702_|) - (cons (cons 'phi |gx[1]#_g120703_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120184 __tmp120699 '16 '#f '#f)) - (let ((__tmp120704 - (cons (cons 'e |gx[1]#_g120705_|) - (cons (cons 'id |gx[1]#_g120706_|) - (cons (cons 'key |gx[1]#_g120707_|) - (cons (cons 'phi |gx[1]#_g120708_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120184 __tmp120704 '17 '#f '#f)) - (let ((__tmp120709 - (cons (cons 'e |gx[1]#_g120710_|) - (cons (cons 'id |gx[1]#_g120711_|) - (cons (cons 'key |gx[1]#_g120712_|) - (cons (cons 'phi |gx[1]#_g120713_|) '())))))) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120184 __tmp120709 '18 '#f '#f)) + (##unchecked-structure-set! __obj121316 __tmp121841 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120184 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121316 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120184 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121316 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120184 '() '20 '#f '#f)) - __obj120184)) + (##unchecked-structure-set! __obj121316 '() '20 '#f '#f)) + __obj121316)) (define |gx[:0:]#expander| - (let ((__obj120185 + (let ((__obj121317 (let () (declare (not safe)) (##structure @@ -5437,64 +5437,64 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120185 'gx#expander::t '1 '#f '#f)) + (##unchecked-structure-set! __obj121317 'gx#expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120185 'expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121317 'expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120185 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121317 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120185 '(e) '6 '#f '#f)) + (##unchecked-structure-set! __obj121317 '(e) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120185 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121317 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120185 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121317 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120185 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121317 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120185 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121317 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120185 '#f '11 '#f '#f)) - (let ((__tmp120714 |gx[1]#_g120715_|)) + (##unchecked-structure-set! __obj121317 '#f '11 '#f '#f)) + (let ((__tmp121846 |gx[1]#_g121847_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120185 __tmp120714 '12 '#f '#f)) - (let ((__tmp120716 |gx[1]#_g120717_|)) + (##unchecked-structure-set! __obj121317 __tmp121846 '12 '#f '#f)) + (let ((__tmp121848 |gx[1]#_g121849_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120185 __tmp120716 '13 '#f '#f)) - (let ((__tmp120718 |gx[1]#_g120719_|)) + (##unchecked-structure-set! __obj121317 __tmp121848 '13 '#f '#f)) + (let ((__tmp121850 |gx[1]#_g121851_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120185 __tmp120718 '14 '#f '#f)) - (let ((__tmp120720 (cons (cons 'e |gx[1]#_g120721_|) '()))) + (##unchecked-structure-set! __obj121317 __tmp121850 '14 '#f '#f)) + (let ((__tmp121852 (cons (cons 'e |gx[1]#_g121853_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120185 __tmp120720 '15 '#f '#f)) - (let ((__tmp120722 (cons (cons 'e |gx[1]#_g120723_|) '()))) + (##unchecked-structure-set! __obj121317 __tmp121852 '15 '#f '#f)) + (let ((__tmp121854 (cons (cons 'e |gx[1]#_g121855_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120185 __tmp120722 '16 '#f '#f)) - (let ((__tmp120724 (cons (cons 'e |gx[1]#_g120725_|) '()))) + (##unchecked-structure-set! __obj121317 __tmp121854 '16 '#f '#f)) + (let ((__tmp121856 (cons (cons 'e |gx[1]#_g121857_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120185 __tmp120724 '17 '#f '#f)) - (let ((__tmp120726 (cons (cons 'e |gx[1]#_g120727_|) '()))) + (##unchecked-structure-set! __obj121317 __tmp121856 '17 '#f '#f)) + (let ((__tmp121858 (cons (cons 'e |gx[1]#_g121859_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120185 __tmp120726 '18 '#f '#f)) + (##unchecked-structure-set! __obj121317 __tmp121858 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120185 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121317 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120185 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121317 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120185 '() '20 '#f '#f)) - __obj120185)) + (##unchecked-structure-set! __obj121317 '() '20 '#f '#f)) + __obj121317)) (define |gx[:0:]#core-expander| - (let ((__obj120186 + (let ((__obj121318 (let () (declare (not safe)) (##structure @@ -5523,18 +5523,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120186 + __obj121318 'gx#core-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120186 'core-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121318 'core-expander '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120186 + __obj121318 '(id compile-top) '4 '#f @@ -5542,71 +5542,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120186 + __obj121318 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp120728 (cons |gx[1]#_g120729_| '()))) + (let ((__tmp121860 (cons |gx[1]#_g121861_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120186 __tmp120728 '3 '#f '#f)) + (##unchecked-structure-set! __obj121318 __tmp121860 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120186 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121318 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120186 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121318 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120186 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121318 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120186 '#f '11 '#f '#f)) - (let ((__tmp120730 |gx[1]#_g120731_|)) + (##unchecked-structure-set! __obj121318 '#f '11 '#f '#f)) + (let ((__tmp121862 |gx[1]#_g121863_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120186 __tmp120730 '12 '#f '#f)) - (let ((__tmp120732 |gx[1]#_g120733_|)) + (##unchecked-structure-set! __obj121318 __tmp121862 '12 '#f '#f)) + (let ((__tmp121864 |gx[1]#_g121865_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120186 __tmp120732 '13 '#f '#f)) - (let ((__tmp120734 |gx[1]#_g120735_|)) + (##unchecked-structure-set! __obj121318 __tmp121864 '13 '#f '#f)) + (let ((__tmp121866 |gx[1]#_g121867_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120186 __tmp120734 '14 '#f '#f)) - (let ((__tmp120736 - (cons (cons 'id |gx[1]#_g120737_|) - (cons (cons 'compile-top |gx[1]#_g120738_|) - (cons (cons 'e |gx[1]#_g120739_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120186 __tmp120736 '15 '#f '#f)) - (let ((__tmp120740 - (cons (cons 'id |gx[1]#_g120741_|) - (cons (cons 'compile-top |gx[1]#_g120742_|) - (cons (cons 'e |gx[1]#_g120743_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120186 __tmp120740 '16 '#f '#f)) - (let ((__tmp120744 - (cons (cons 'id |gx[1]#_g120745_|) - (cons (cons 'compile-top |gx[1]#_g120746_|) - (cons (cons 'e |gx[1]#_g120747_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120186 __tmp120744 '17 '#f '#f)) - (let ((__tmp120748 - (cons (cons 'id |gx[1]#_g120749_|) - (cons (cons 'compile-top |gx[1]#_g120750_|) - (cons (cons 'e |gx[1]#_g120751_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120186 __tmp120748 '18 '#f '#f)) + (##unchecked-structure-set! __obj121318 __tmp121880 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120186 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121318 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120186 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121318 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120186 '() '20 '#f '#f)) - __obj120186)) + (##unchecked-structure-set! __obj121318 '() '20 '#f '#f)) + __obj121318)) (define |gx[:0:]#expression-form| - (let ((__obj120187 + (let ((__obj121319 (let () (declare (not safe)) (##structure @@ -5635,85 +5635,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120187 + __obj121319 'gx#expression-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120187 'expression-form '2 '#f '#f)) + (##unchecked-structure-set! __obj121319 'expression-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120187 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121319 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120187 + __obj121319 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp120752 (cons |gx[1]#_g120753_| '()))) + (let ((__tmp121884 (cons |gx[1]#_g121885_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120187 __tmp120752 '3 '#f '#f)) + (##unchecked-structure-set! __obj121319 __tmp121884 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120187 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121319 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120187 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121319 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120187 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121319 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120187 '#f '11 '#f '#f)) - (let ((__tmp120754 |gx[1]#_g120755_|)) + (##unchecked-structure-set! __obj121319 '#f '11 '#f '#f)) + (let ((__tmp121886 |gx[1]#_g121887_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120187 __tmp120754 '12 '#f '#f)) - (let ((__tmp120756 |gx[1]#_g120757_|)) + (##unchecked-structure-set! __obj121319 __tmp121886 '12 '#f '#f)) + (let ((__tmp121888 |gx[1]#_g121889_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120187 __tmp120756 '13 '#f '#f)) - (let ((__tmp120758 |gx[1]#_g120759_|)) + (##unchecked-structure-set! __obj121319 __tmp121888 '13 '#f '#f)) + (let ((__tmp121890 |gx[1]#_g121891_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120187 __tmp120758 '14 '#f '#f)) - (let ((__tmp120760 - (cons (cons 'id |gx[1]#_g120761_|) - (cons (cons 'compile-top |gx[1]#_g120762_|) - (cons (cons 'e |gx[1]#_g120763_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120187 __tmp120760 '15 '#f '#f)) - (let ((__tmp120764 - (cons (cons 'id |gx[1]#_g120765_|) - (cons (cons 'compile-top |gx[1]#_g120766_|) - (cons (cons 'e |gx[1]#_g120767_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120187 __tmp120764 '16 '#f '#f)) - (let ((__tmp120768 - (cons (cons 'id |gx[1]#_g120769_|) - (cons (cons 'compile-top |gx[1]#_g120770_|) - (cons (cons 'e |gx[1]#_g120771_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120187 __tmp120768 '17 '#f '#f)) - (let ((__tmp120772 - (cons (cons 'id |gx[1]#_g120773_|) - (cons (cons 'compile-top |gx[1]#_g120774_|) - (cons (cons 'e |gx[1]#_g120775_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120187 __tmp120772 '18 '#f '#f)) + (##unchecked-structure-set! __obj121319 __tmp121904 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120187 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121319 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120187 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121319 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120187 '() '20 '#f '#f)) - __obj120187)) + (##unchecked-structure-set! __obj121319 '() '20 '#f '#f)) + __obj121319)) (define |gx[:0:]#special-form| - (let ((__obj120188 + (let ((__obj121320 (let () (declare (not safe)) (##structure @@ -5742,85 +5742,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120188 + __obj121320 'gx#special-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120188 'special-form '2 '#f '#f)) + (##unchecked-structure-set! __obj121320 'special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120188 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121320 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120188 + __obj121320 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp120776 (cons |gx[1]#_g120753_| '()))) + (let ((__tmp121908 (cons |gx[1]#_g121885_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120188 __tmp120776 '3 '#f '#f)) + (##unchecked-structure-set! __obj121320 __tmp121908 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120188 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121320 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120188 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121320 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120188 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121320 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120188 '#f '11 '#f '#f)) - (let ((__tmp120777 |gx[1]#_g120778_|)) + (##unchecked-structure-set! __obj121320 '#f '11 '#f '#f)) + (let ((__tmp121909 |gx[1]#_g121910_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120188 __tmp120777 '12 '#f '#f)) - (let ((__tmp120779 |gx[1]#_g120780_|)) + (##unchecked-structure-set! __obj121320 __tmp121909 '12 '#f '#f)) + (let ((__tmp121911 |gx[1]#_g121912_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120188 __tmp120779 '13 '#f '#f)) - (let ((__tmp120781 |gx[1]#_g120782_|)) + (##unchecked-structure-set! __obj121320 __tmp121911 '13 '#f '#f)) + (let ((__tmp121913 |gx[1]#_g121914_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120188 __tmp120781 '14 '#f '#f)) - (let ((__tmp120783 - (cons (cons 'id |gx[1]#_g120784_|) - (cons (cons 'compile-top |gx[1]#_g120785_|) - (cons (cons 'e |gx[1]#_g120786_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120188 __tmp120783 '15 '#f '#f)) - (let ((__tmp120787 - (cons (cons 'id |gx[1]#_g120788_|) - (cons (cons 'compile-top |gx[1]#_g120789_|) - (cons (cons 'e |gx[1]#_g120790_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120188 __tmp120787 '16 '#f '#f)) - (let ((__tmp120791 - (cons (cons 'id |gx[1]#_g120792_|) - (cons (cons 'compile-top |gx[1]#_g120793_|) - (cons (cons 'e |gx[1]#_g120794_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120188 __tmp120791 '17 '#f '#f)) - (let ((__tmp120795 - (cons (cons 'id |gx[1]#_g120796_|) - (cons (cons 'compile-top |gx[1]#_g120797_|) - (cons (cons 'e |gx[1]#_g120798_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120188 __tmp120795 '18 '#f '#f)) + (##unchecked-structure-set! __obj121320 __tmp121927 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120188 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121320 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120188 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121320 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120188 '() '20 '#f '#f)) - __obj120188)) + (##unchecked-structure-set! __obj121320 '() '20 '#f '#f)) + __obj121320)) (define |gx[:0:]#definition-form| - (let ((__obj120189 + (let ((__obj121321 (let () (declare (not safe)) (##structure @@ -5849,85 +5849,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120189 + __obj121321 'gx#definition-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120189 'definition-form '2 '#f '#f)) + (##unchecked-structure-set! __obj121321 'definition-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120189 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121321 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120189 + __obj121321 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp120799 (cons |gx[1]#_g120800_| '()))) + (let ((__tmp121931 (cons |gx[1]#_g121932_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120189 __tmp120799 '3 '#f '#f)) + (##unchecked-structure-set! __obj121321 __tmp121931 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120189 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121321 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120189 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121321 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120189 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121321 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120189 '#f '11 '#f '#f)) - (let ((__tmp120801 |gx[1]#_g120802_|)) + (##unchecked-structure-set! __obj121321 '#f '11 '#f '#f)) + (let ((__tmp121933 |gx[1]#_g121934_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120189 __tmp120801 '12 '#f '#f)) - (let ((__tmp120803 |gx[1]#_g120804_|)) + (##unchecked-structure-set! __obj121321 __tmp121933 '12 '#f '#f)) + (let ((__tmp121935 |gx[1]#_g121936_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120189 __tmp120803 '13 '#f '#f)) - (let ((__tmp120805 |gx[1]#_g120806_|)) + (##unchecked-structure-set! __obj121321 __tmp121935 '13 '#f '#f)) + (let ((__tmp121937 |gx[1]#_g121938_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120189 __tmp120805 '14 '#f '#f)) - (let ((__tmp120807 - (cons (cons 'id |gx[1]#_g120808_|) - (cons (cons 'compile-top |gx[1]#_g120809_|) - (cons (cons 'e |gx[1]#_g120810_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120189 __tmp120807 '15 '#f '#f)) - (let ((__tmp120811 - (cons (cons 'id |gx[1]#_g120812_|) - (cons (cons 'compile-top |gx[1]#_g120813_|) - (cons (cons 'e |gx[1]#_g120814_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120189 __tmp120811 '16 '#f '#f)) - (let ((__tmp120815 - (cons (cons 'id |gx[1]#_g120816_|) - (cons (cons 'compile-top |gx[1]#_g120817_|) - (cons (cons 'e |gx[1]#_g120818_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120189 __tmp120815 '17 '#f '#f)) - (let ((__tmp120819 - (cons (cons 'id |gx[1]#_g120820_|) - (cons (cons 'compile-top |gx[1]#_g120821_|) - (cons (cons 'e |gx[1]#_g120822_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120189 __tmp120819 '18 '#f '#f)) + (##unchecked-structure-set! __obj121321 __tmp121951 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120189 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121321 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120189 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121321 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120189 '() '20 '#f '#f)) - __obj120189)) + (##unchecked-structure-set! __obj121321 '() '20 '#f '#f)) + __obj121321)) (define |gx[:0:]#top-special-form| - (let ((__obj120190 + (let ((__obj121322 (let () (declare (not safe)) (##structure @@ -5956,7 +5956,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120190 + __obj121322 'gx#top-special-form::t '1 '#f @@ -5964,82 +5964,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120190 + __obj121322 'top-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120190 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121322 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120190 + __obj121322 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp120823 (cons |gx[1]#_g120800_| '()))) + (let ((__tmp121955 (cons |gx[1]#_g121932_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120190 __tmp120823 '3 '#f '#f)) + (##unchecked-structure-set! __obj121322 __tmp121955 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120190 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121322 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120190 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121322 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120190 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121322 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120190 '#f '11 '#f '#f)) - (let ((__tmp120824 |gx[1]#_g120825_|)) + (##unchecked-structure-set! __obj121322 '#f '11 '#f '#f)) + (let ((__tmp121956 |gx[1]#_g121957_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120190 __tmp120824 '12 '#f '#f)) - (let ((__tmp120826 |gx[1]#_g120827_|)) + (##unchecked-structure-set! __obj121322 __tmp121956 '12 '#f '#f)) + (let ((__tmp121958 |gx[1]#_g121959_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120190 __tmp120826 '13 '#f '#f)) - (let ((__tmp120828 |gx[1]#_g120829_|)) + (##unchecked-structure-set! __obj121322 __tmp121958 '13 '#f '#f)) + (let ((__tmp121960 |gx[1]#_g121961_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120190 __tmp120828 '14 '#f '#f)) - (let ((__tmp120830 - (cons (cons 'id |gx[1]#_g120831_|) - (cons (cons 'compile-top |gx[1]#_g120832_|) - (cons (cons 'e |gx[1]#_g120833_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120190 __tmp120830 '15 '#f '#f)) - (let ((__tmp120834 - (cons (cons 'id |gx[1]#_g120835_|) - (cons (cons 'compile-top |gx[1]#_g120836_|) - (cons (cons 'e |gx[1]#_g120837_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120190 __tmp120834 '16 '#f '#f)) - (let ((__tmp120838 - (cons (cons 'id |gx[1]#_g120839_|) - (cons (cons 'compile-top |gx[1]#_g120840_|) - (cons (cons 'e |gx[1]#_g120841_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120190 __tmp120838 '17 '#f '#f)) - (let ((__tmp120842 - (cons (cons 'id |gx[1]#_g120843_|) - (cons (cons 'compile-top |gx[1]#_g120844_|) - (cons (cons 'e |gx[1]#_g120845_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120190 __tmp120842 '18 '#f '#f)) + (##unchecked-structure-set! __obj121322 __tmp121974 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120190 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121322 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120190 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121322 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120190 '() '20 '#f '#f)) - __obj120190)) + (##unchecked-structure-set! __obj121322 '() '20 '#f '#f)) + __obj121322)) (define |gx[:0:]#module-special-form| - (let ((__obj120191 + (let ((__obj121323 (let () (declare (not safe)) (##structure @@ -6068,7 +6068,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120191 + __obj121323 'gx#module-special-form::t '1 '#f @@ -6076,82 +6076,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120191 + __obj121323 'module-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120191 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121323 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120191 + __obj121323 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp120846 (cons |gx[1]#_g120847_| '()))) + (let ((__tmp121978 (cons |gx[1]#_g121979_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120191 __tmp120846 '3 '#f '#f)) + (##unchecked-structure-set! __obj121323 __tmp121978 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120191 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121323 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120191 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121323 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120191 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121323 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120191 '#f '11 '#f '#f)) - (let ((__tmp120848 |gx[1]#_g120849_|)) + (##unchecked-structure-set! __obj121323 '#f '11 '#f '#f)) + (let ((__tmp121980 |gx[1]#_g121981_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120191 __tmp120848 '12 '#f '#f)) - (let ((__tmp120850 |gx[1]#_g120851_|)) + (##unchecked-structure-set! __obj121323 __tmp121980 '12 '#f '#f)) + (let ((__tmp121982 |gx[1]#_g121983_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120191 __tmp120850 '13 '#f '#f)) - (let ((__tmp120852 |gx[1]#_g120853_|)) + (##unchecked-structure-set! __obj121323 __tmp121982 '13 '#f '#f)) + (let ((__tmp121984 |gx[1]#_g121985_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120191 __tmp120852 '14 '#f '#f)) - (let ((__tmp120854 - (cons (cons 'id |gx[1]#_g120855_|) - (cons (cons 'compile-top |gx[1]#_g120856_|) - (cons (cons 'e |gx[1]#_g120857_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120191 __tmp120854 '15 '#f '#f)) - (let ((__tmp120858 - (cons (cons 'id |gx[1]#_g120859_|) - (cons (cons 'compile-top |gx[1]#_g120860_|) - (cons (cons 'e |gx[1]#_g120861_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120191 __tmp120858 '16 '#f '#f)) - (let ((__tmp120862 - (cons (cons 'id |gx[1]#_g120863_|) - (cons (cons 'compile-top |gx[1]#_g120864_|) - (cons (cons 'e |gx[1]#_g120865_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120191 __tmp120862 '17 '#f '#f)) - (let ((__tmp120866 - (cons (cons 'id |gx[1]#_g120867_|) - (cons (cons 'compile-top |gx[1]#_g120868_|) - (cons (cons 'e |gx[1]#_g120869_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120191 __tmp120866 '18 '#f '#f)) + (##unchecked-structure-set! __obj121323 __tmp121998 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120191 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121323 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120191 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121323 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120191 '() '20 '#f '#f)) - __obj120191)) + (##unchecked-structure-set! __obj121323 '() '20 '#f '#f)) + __obj121323)) (define |gx[:0:]#feature-expander| - (let ((__obj120192 + (let ((__obj121324 (let () (declare (not safe)) (##structure @@ -6180,7 +6180,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120192 + __obj121324 'gx#feature-expander::t '1 '#f @@ -6188,65 +6188,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120192 + __obj121324 'feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120192 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121324 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120192 '(e) '6 '#f '#f)) - (let ((__tmp120870 (cons |gx[1]#_g120729_| '()))) + (##unchecked-structure-set! __obj121324 '(e) '6 '#f '#f)) + (let ((__tmp122002 (cons |gx[1]#_g121861_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120192 __tmp120870 '3 '#f '#f)) + (##unchecked-structure-set! __obj121324 __tmp122002 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120192 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121324 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120192 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121324 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120192 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121324 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120192 '#f '11 '#f '#f)) - (let ((__tmp120871 |gx[1]#_g120872_|)) + (##unchecked-structure-set! __obj121324 '#f '11 '#f '#f)) + (let ((__tmp122003 |gx[1]#_g122004_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120192 __tmp120871 '12 '#f '#f)) - (let ((__tmp120873 |gx[1]#_g120874_|)) + (##unchecked-structure-set! __obj121324 __tmp122003 '12 '#f '#f)) + (let ((__tmp122005 |gx[1]#_g122006_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120192 __tmp120873 '13 '#f '#f)) - (let ((__tmp120875 |gx[1]#_g120876_|)) + (##unchecked-structure-set! __obj121324 __tmp122005 '13 '#f '#f)) + (let ((__tmp122007 |gx[1]#_g122008_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120192 __tmp120875 '14 '#f '#f)) - (let ((__tmp120877 (cons (cons 'e |gx[1]#_g120878_|) '()))) + (##unchecked-structure-set! __obj121324 __tmp122007 '14 '#f '#f)) + (let ((__tmp122009 (cons (cons 'e |gx[1]#_g122010_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120192 __tmp120877 '15 '#f '#f)) - (let ((__tmp120879 (cons (cons 'e |gx[1]#_g120880_|) '()))) + (##unchecked-structure-set! __obj121324 __tmp122009 '15 '#f '#f)) + (let ((__tmp122011 (cons (cons 'e |gx[1]#_g122012_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120192 __tmp120879 '16 '#f '#f)) - (let ((__tmp120881 (cons (cons 'e |gx[1]#_g120882_|) '()))) + (##unchecked-structure-set! __obj121324 __tmp122011 '16 '#f '#f)) + (let ((__tmp122013 (cons (cons 'e |gx[1]#_g122014_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120192 __tmp120881 '17 '#f '#f)) - (let ((__tmp120883 (cons (cons 'e |gx[1]#_g120884_|) '()))) + (##unchecked-structure-set! __obj121324 __tmp122013 '17 '#f '#f)) + (let ((__tmp122015 (cons (cons 'e |gx[1]#_g122016_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120192 __tmp120883 '18 '#f '#f)) + (##unchecked-structure-set! __obj121324 __tmp122015 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120192 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121324 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120192 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121324 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120192 '() '20 '#f '#f)) - __obj120192)) + (##unchecked-structure-set! __obj121324 '() '20 '#f '#f)) + __obj121324)) (define |gx[:0:]#private-feature-expander| - (let ((__obj120193 + (let ((__obj121325 (let () (declare (not safe)) (##structure @@ -6275,7 +6275,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120193 + __obj121325 'gx#private-feature-expander::t '1 '#f @@ -6283,65 +6283,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120193 + __obj121325 'private-feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120193 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121325 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120193 '(e) '6 '#f '#f)) - (let ((__tmp120885 (cons |gx[1]#_g120886_| '()))) + (##unchecked-structure-set! __obj121325 '(e) '6 '#f '#f)) + (let ((__tmp122017 (cons |gx[1]#_g122018_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120193 __tmp120885 '3 '#f '#f)) + (##unchecked-structure-set! __obj121325 __tmp122017 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120193 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121325 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120193 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121325 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120193 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121325 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120193 '#f '11 '#f '#f)) - (let ((__tmp120887 |gx[1]#_g120888_|)) + (##unchecked-structure-set! __obj121325 '#f '11 '#f '#f)) + (let ((__tmp122019 |gx[1]#_g122020_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120193 __tmp120887 '12 '#f '#f)) - (let ((__tmp120889 |gx[1]#_g120890_|)) + (##unchecked-structure-set! __obj121325 __tmp122019 '12 '#f '#f)) + (let ((__tmp122021 |gx[1]#_g122022_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120193 __tmp120889 '13 '#f '#f)) - (let ((__tmp120891 |gx[1]#_g120892_|)) + (##unchecked-structure-set! __obj121325 __tmp122021 '13 '#f '#f)) + (let ((__tmp122023 |gx[1]#_g122024_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120193 __tmp120891 '14 '#f '#f)) - (let ((__tmp120893 (cons (cons 'e |gx[1]#_g120894_|) '()))) + (##unchecked-structure-set! __obj121325 __tmp122023 '14 '#f '#f)) + (let ((__tmp122025 (cons (cons 'e |gx[1]#_g122026_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120193 __tmp120893 '15 '#f '#f)) - (let ((__tmp120895 (cons (cons 'e |gx[1]#_g120896_|) '()))) + (##unchecked-structure-set! __obj121325 __tmp122025 '15 '#f '#f)) + (let ((__tmp122027 (cons (cons 'e |gx[1]#_g122028_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120193 __tmp120895 '16 '#f '#f)) - (let ((__tmp120897 (cons (cons 'e |gx[1]#_g120898_|) '()))) + (##unchecked-structure-set! __obj121325 __tmp122027 '16 '#f '#f)) + (let ((__tmp122029 (cons (cons 'e |gx[1]#_g122030_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120193 __tmp120897 '17 '#f '#f)) - (let ((__tmp120899 (cons (cons 'e |gx[1]#_g120900_|) '()))) + (##unchecked-structure-set! __obj121325 __tmp122029 '17 '#f '#f)) + (let ((__tmp122031 (cons (cons 'e |gx[1]#_g122032_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120193 __tmp120899 '18 '#f '#f)) + (##unchecked-structure-set! __obj121325 __tmp122031 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120193 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121325 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120193 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121325 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120193 '() '20 '#f '#f)) - __obj120193)) + (##unchecked-structure-set! __obj121325 '() '20 '#f '#f)) + __obj121325)) (define |gx[:0:]#reserved-expander| - (let ((__obj120194 + (let ((__obj121326 (let () (declare (not safe)) (##structure @@ -6370,7 +6370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120194 + __obj121326 'gx#reserved-expander::t '1 '#f @@ -6378,65 +6378,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120194 + __obj121326 'reserved-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120194 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121326 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120194 '(e) '6 '#f '#f)) - (let ((__tmp120901 (cons |gx[1]#_g120729_| '()))) + (##unchecked-structure-set! __obj121326 '(e) '6 '#f '#f)) + (let ((__tmp122033 (cons |gx[1]#_g121861_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120194 __tmp120901 '3 '#f '#f)) + (##unchecked-structure-set! __obj121326 __tmp122033 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120194 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121326 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120194 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121326 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120194 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121326 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120194 '#f '11 '#f '#f)) - (let ((__tmp120902 |gx[1]#_g120903_|)) + (##unchecked-structure-set! __obj121326 '#f '11 '#f '#f)) + (let ((__tmp122034 |gx[1]#_g122035_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120194 __tmp120902 '12 '#f '#f)) - (let ((__tmp120904 |gx[1]#_g120905_|)) + (##unchecked-structure-set! __obj121326 __tmp122034 '12 '#f '#f)) + (let ((__tmp122036 |gx[1]#_g122037_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120194 __tmp120904 '13 '#f '#f)) - (let ((__tmp120906 |gx[1]#_g120907_|)) + (##unchecked-structure-set! __obj121326 __tmp122036 '13 '#f '#f)) + (let ((__tmp122038 |gx[1]#_g122039_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120194 __tmp120906 '14 '#f '#f)) - (let ((__tmp120908 (cons (cons 'e |gx[1]#_g120909_|) '()))) + (##unchecked-structure-set! __obj121326 __tmp122038 '14 '#f '#f)) + (let ((__tmp122040 (cons (cons 'e |gx[1]#_g122041_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120194 __tmp120908 '15 '#f '#f)) - (let ((__tmp120910 (cons (cons 'e |gx[1]#_g120911_|) '()))) + (##unchecked-structure-set! __obj121326 __tmp122040 '15 '#f '#f)) + (let ((__tmp122042 (cons (cons 'e |gx[1]#_g122043_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120194 __tmp120910 '16 '#f '#f)) - (let ((__tmp120912 (cons (cons 'e |gx[1]#_g120913_|) '()))) + (##unchecked-structure-set! __obj121326 __tmp122042 '16 '#f '#f)) + (let ((__tmp122044 (cons (cons 'e |gx[1]#_g122045_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120194 __tmp120912 '17 '#f '#f)) - (let ((__tmp120914 (cons (cons 'e |gx[1]#_g120915_|) '()))) + (##unchecked-structure-set! __obj121326 __tmp122044 '17 '#f '#f)) + (let ((__tmp122046 (cons (cons 'e |gx[1]#_g122047_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120194 __tmp120914 '18 '#f '#f)) + (##unchecked-structure-set! __obj121326 __tmp122046 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120194 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121326 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120194 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121326 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120194 '() '20 '#f '#f)) - __obj120194)) + (##unchecked-structure-set! __obj121326 '() '20 '#f '#f)) + __obj121326)) (define |gx[:0:]#macro-expander| - (let ((__obj120195 + (let ((__obj121327 (let () (declare (not safe)) (##structure @@ -6465,68 +6465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120195 + __obj121327 'gx#macro-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120195 'macro-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121327 'macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120195 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121327 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120195 '(e) '6 '#f '#f)) - (let ((__tmp120916 (cons |gx[1]#_g120729_| '()))) + (##unchecked-structure-set! __obj121327 '(e) '6 '#f '#f)) + (let ((__tmp122048 (cons |gx[1]#_g121861_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120195 __tmp120916 '3 '#f '#f)) + (##unchecked-structure-set! __obj121327 __tmp122048 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120195 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121327 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120195 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121327 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120195 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121327 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120195 '#f '11 '#f '#f)) - (let ((__tmp120917 |gx[1]#_g120918_|)) + (##unchecked-structure-set! __obj121327 '#f '11 '#f '#f)) + (let ((__tmp122049 |gx[1]#_g122050_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120195 __tmp120917 '12 '#f '#f)) - (let ((__tmp120919 |gx[1]#_g120920_|)) + (##unchecked-structure-set! __obj121327 __tmp122049 '12 '#f '#f)) + (let ((__tmp122051 |gx[1]#_g122052_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120195 __tmp120919 '13 '#f '#f)) - (let ((__tmp120921 |gx[1]#_g120922_|)) + (##unchecked-structure-set! __obj121327 __tmp122051 '13 '#f '#f)) + (let ((__tmp122053 |gx[1]#_g122054_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120195 __tmp120921 '14 '#f '#f)) - (let ((__tmp120923 (cons (cons 'e |gx[1]#_g120924_|) '()))) + (##unchecked-structure-set! __obj121327 __tmp122053 '14 '#f '#f)) + (let ((__tmp122055 (cons (cons 'e |gx[1]#_g122056_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120195 __tmp120923 '15 '#f '#f)) - (let ((__tmp120925 (cons (cons 'e |gx[1]#_g120926_|) '()))) + (##unchecked-structure-set! __obj121327 __tmp122055 '15 '#f '#f)) + (let ((__tmp122057 (cons (cons 'e |gx[1]#_g122058_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120195 __tmp120925 '16 '#f '#f)) - (let ((__tmp120927 (cons (cons 'e |gx[1]#_g120928_|) '()))) + (##unchecked-structure-set! __obj121327 __tmp122057 '16 '#f '#f)) + (let ((__tmp122059 (cons (cons 'e |gx[1]#_g122060_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120195 __tmp120927 '17 '#f '#f)) - (let ((__tmp120929 (cons (cons 'e |gx[1]#_g120930_|) '()))) + (##unchecked-structure-set! __obj121327 __tmp122059 '17 '#f '#f)) + (let ((__tmp122061 (cons (cons 'e |gx[1]#_g122062_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120195 __tmp120929 '18 '#f '#f)) + (##unchecked-structure-set! __obj121327 __tmp122061 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120195 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121327 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120195 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121327 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120195 '() '20 '#f '#f)) - __obj120195)) + (##unchecked-structure-set! __obj121327 '() '20 '#f '#f)) + __obj121327)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj120196 + (let ((__obj121328 (let () (declare (not safe)) (##structure @@ -6555,7 +6555,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120196 + __obj121328 'gx#rename-macro-expander::t '1 '#f @@ -6563,65 +6563,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120196 + __obj121328 'rename-macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120196 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121328 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120196 '(e) '6 '#f '#f)) - (let ((__tmp120931 (cons |gx[1]#_g120932_| '()))) + (##unchecked-structure-set! __obj121328 '(e) '6 '#f '#f)) + (let ((__tmp122063 (cons |gx[1]#_g122064_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120196 __tmp120931 '3 '#f '#f)) + (##unchecked-structure-set! __obj121328 __tmp122063 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120196 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121328 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120196 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121328 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120196 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121328 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120196 '#f '11 '#f '#f)) - (let ((__tmp120933 |gx[1]#_g120934_|)) + (##unchecked-structure-set! __obj121328 '#f '11 '#f '#f)) + (let ((__tmp122065 |gx[1]#_g122066_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120196 __tmp120933 '12 '#f '#f)) - (let ((__tmp120935 |gx[1]#_g120936_|)) + (##unchecked-structure-set! __obj121328 __tmp122065 '12 '#f '#f)) + (let ((__tmp122067 |gx[1]#_g122068_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120196 __tmp120935 '13 '#f '#f)) - (let ((__tmp120937 |gx[1]#_g120938_|)) + (##unchecked-structure-set! __obj121328 __tmp122067 '13 '#f '#f)) + (let ((__tmp122069 |gx[1]#_g122070_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120196 __tmp120937 '14 '#f '#f)) - (let ((__tmp120939 (cons (cons 'e |gx[1]#_g120940_|) '()))) + (##unchecked-structure-set! __obj121328 __tmp122069 '14 '#f '#f)) + (let ((__tmp122071 (cons (cons 'e |gx[1]#_g122072_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120196 __tmp120939 '15 '#f '#f)) - (let ((__tmp120941 (cons (cons 'e |gx[1]#_g120942_|) '()))) + (##unchecked-structure-set! __obj121328 __tmp122071 '15 '#f '#f)) + (let ((__tmp122073 (cons (cons 'e |gx[1]#_g122074_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120196 __tmp120941 '16 '#f '#f)) - (let ((__tmp120943 (cons (cons 'e |gx[1]#_g120944_|) '()))) + (##unchecked-structure-set! __obj121328 __tmp122073 '16 '#f '#f)) + (let ((__tmp122075 (cons (cons 'e |gx[1]#_g122076_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120196 __tmp120943 '17 '#f '#f)) - (let ((__tmp120945 (cons (cons 'e |gx[1]#_g120946_|) '()))) + (##unchecked-structure-set! __obj121328 __tmp122075 '17 '#f '#f)) + (let ((__tmp122077 (cons (cons 'e |gx[1]#_g122078_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120196 __tmp120945 '18 '#f '#f)) + (##unchecked-structure-set! __obj121328 __tmp122077 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120196 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121328 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120196 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121328 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120196 '() '20 '#f '#f)) - __obj120196)) + (##unchecked-structure-set! __obj121328 '() '20 '#f '#f)) + __obj121328)) (define |gx[:0:]#user-expander| - (let ((__obj120197 + (let ((__obj121329 (let () (declare (not safe)) (##structure @@ -6650,80 +6650,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120197 + __obj121329 'gx#user-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120197 'user-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121329 'user-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120197 '(context phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj121329 '(context phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120197 '(e context phi) '6 '#f '#f)) - (let ((__tmp120947 (cons |gx[1]#_g120932_| '()))) + (##unchecked-structure-set! __obj121329 '(e context phi) '6 '#f '#f)) + (let ((__tmp122079 (cons |gx[1]#_g122064_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj120197 __tmp120947 '3 '#f '#f)) + (##unchecked-structure-set! __obj121329 __tmp122079 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120197 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121329 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120197 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121329 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120197 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121329 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120197 '#f '11 '#f '#f)) - (let ((__tmp120948 |gx[1]#_g120949_|)) + (##unchecked-structure-set! __obj121329 '#f '11 '#f '#f)) + (let ((__tmp122080 |gx[1]#_g122081_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120197 __tmp120948 '12 '#f '#f)) - (let ((__tmp120950 |gx[1]#_g120951_|)) + (##unchecked-structure-set! __obj121329 __tmp122080 '12 '#f '#f)) + (let ((__tmp122082 |gx[1]#_g122083_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120197 __tmp120950 '13 '#f '#f)) - (let ((__tmp120952 |gx[1]#_g120953_|)) + (##unchecked-structure-set! __obj121329 __tmp122082 '13 '#f '#f)) + (let ((__tmp122084 |gx[1]#_g122085_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120197 __tmp120952 '14 '#f '#f)) - (let ((__tmp120954 - (cons (cons 'context |gx[1]#_g120955_|) - (cons (cons 'phi |gx[1]#_g120956_|) - (cons (cons 'e |gx[1]#_g120957_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120197 __tmp120954 '15 '#f '#f)) - (let ((__tmp120958 - (cons (cons 'context |gx[1]#_g120959_|) - (cons (cons 'phi |gx[1]#_g120960_|) - (cons (cons 'e |gx[1]#_g120961_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120197 __tmp120958 '16 '#f '#f)) - (let ((__tmp120962 - (cons (cons 'context |gx[1]#_g120963_|) - (cons (cons 'phi |gx[1]#_g120964_|) - (cons (cons 'e |gx[1]#_g120965_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120197 __tmp120962 '17 '#f '#f)) - (let ((__tmp120966 - (cons (cons 'context |gx[1]#_g120967_|) - (cons (cons 'phi |gx[1]#_g120968_|) - (cons (cons 'e |gx[1]#_g120969_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj120197 __tmp120966 '18 '#f '#f)) + (##unchecked-structure-set! __obj121329 __tmp122098 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120197 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121329 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120197 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121329 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120197 '() '20 '#f '#f)) - __obj120197)) + (##unchecked-structure-set! __obj121329 '() '20 '#f '#f)) + __obj121329)) (define |gx[:0:]#expander-mark| - (let ((__obj120198 + (let ((__obj121330 (let () (declare (not safe)) (##structure @@ -6752,18 +6752,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120198 + __obj121330 'gx#expander-mark::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120198 'expander-mark '2 '#f '#f)) + (##unchecked-structure-set! __obj121330 'expander-mark '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120198 + __obj121330 '(subst context phi trace) '4 '#f @@ -6771,74 +6771,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120198 + __obj121330 '(subst context phi trace) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120198 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121330 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120198 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121330 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120198 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121330 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120198 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121330 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120198 '#f '11 '#f '#f)) - (let ((__tmp120970 |gx[1]#_g120971_|)) + (##unchecked-structure-set! __obj121330 '#f '11 '#f '#f)) + (let ((__tmp122102 |gx[1]#_g122103_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120198 __tmp120970 '12 '#f '#f)) - (let ((__tmp120972 |gx[1]#_g120973_|)) + (##unchecked-structure-set! __obj121330 __tmp122102 '12 '#f '#f)) + (let ((__tmp122104 |gx[1]#_g122105_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120198 __tmp120972 '13 '#f '#f)) - (let ((__tmp120974 |gx[1]#_g120975_|)) + (##unchecked-structure-set! __obj121330 __tmp122104 '13 '#f '#f)) + (let ((__tmp122106 |gx[1]#_g122107_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120198 __tmp120974 '14 '#f '#f)) - (let ((__tmp120976 - (cons (cons 'subst |gx[1]#_g120977_|) - (cons (cons 'context |gx[1]#_g120978_|) - (cons (cons 'phi |gx[1]#_g120979_|) - (cons (cons 'trace |gx[1]#_g120980_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120198 __tmp120976 '15 '#f '#f)) - (let ((__tmp120981 - (cons (cons 'subst |gx[1]#_g120982_|) - (cons (cons 'context |gx[1]#_g120983_|) - (cons (cons 'phi |gx[1]#_g120984_|) - (cons (cons 'trace |gx[1]#_g120985_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120198 __tmp120981 '16 '#f '#f)) - (let ((__tmp120986 - (cons (cons 'subst |gx[1]#_g120987_|) - (cons (cons 'context |gx[1]#_g120988_|) - (cons (cons 'phi |gx[1]#_g120989_|) - (cons (cons 'trace |gx[1]#_g120990_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120198 __tmp120986 '17 '#f '#f)) - (let ((__tmp120991 - (cons (cons 'subst |gx[1]#_g120992_|) - (cons (cons 'context |gx[1]#_g120993_|) - (cons (cons 'phi |gx[1]#_g120994_|) - (cons (cons 'trace |gx[1]#_g120995_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj120198 __tmp120991 '18 '#f '#f)) + (##unchecked-structure-set! __obj121330 __tmp122123 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120198 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121330 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120198 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121330 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120198 '() '20 '#f '#f)) - __obj120198)))) + (##unchecked-structure-set! __obj121330 '() '20 '#f '#f)) + __obj121330)))) diff --git a/src/bootstrap/gerbil/expander/init~0.scm b/src/bootstrap/gerbil/expander/init~0.scm index ca443d2bb..0172b0b2e 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 1713454411) + (define gerbil/expander/init::timestamp 1713631267) (begin - (let ((__tmp131783 - (let ((__obj131781 + (let ((__tmp132915 + (let ((__obj132913 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gx#top-context:::init!__0 __obj131781)) - __obj131781))) + (gx#top-context:::init!__0 __obj132913)) + __obj132913))) (declare (not safe)) - (gx#current-expander-context __tmp131783)) + (gx#current-expander-context __tmp132915)) (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 ((__tmp131784 - (let ((__obj131782 + (let ((__tmp132916 + (let ((__obj132914 (let () (declare (not safe)) (##structure @@ -37,7 +37,7 @@ '#f)))) (let () (declare (not safe)) - (gx#prelude-context:::init!__0 __obj131782 '#f)) - __obj131782))) + (gx#prelude-context:::init!__0 __obj132914 '#f)) + __obj132914))) (declare (not safe)) - (gx#core-bind-root-syntax!__% ': __tmp131784 '#t)))) + (gx#core-bind-root-syntax!__% ': __tmp132916 '#t)))) diff --git a/src/bootstrap/gerbil/expander/module~0.scm b/src/bootstrap/gerbil/expander/module~0.scm index 503a70e7a..ba3a03824 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 1713454411) + (define gerbil/expander/module::timestamp 1713631266) (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 _%$args127632%_ - (apply make-instance gx#module-import::t _%$args127632%_))) + (lambda _%$args128764%_ + (apply make-instance gx#module-import::t _%$args128764%_))) (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 _%$args127629%_ - (apply make-instance gx#module-export::t _%$args127629%_))) + (lambda _%$args128761%_ + (apply make-instance gx#module-export::t _%$args128761%_))) (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 _%$args127626%_ - (apply make-instance gx#import-set::t _%$args127626%_))) + (lambda _%$args128758%_ + (apply make-instance gx#import-set::t _%$args128758%_))) (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 _%$args127623%_ - (apply make-instance gx#export-set::t _%$args127623%_))) + (lambda _%$args128755%_ + (apply make-instance gx#export-set::t _%$args128755%_))) (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 _%$args127620%_ - (apply make-instance gx#import-expander::t _%$args127620%_))) + (lambda _%$args128752%_ + (apply make-instance gx#import-expander::t _%$args128752%_))) (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 _%$args127617%_ - (apply make-instance gx#export-expander::t _%$args127617%_))) + (lambda _%$args128749%_ + (apply make-instance gx#export-expander::t _%$args128749%_))) (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 _%$args127614%_ - (apply make-instance gx#import-export-expander::t _%$args127614%_))) + (lambda _%$args128746%_ + (apply make-instance gx#import-export-expander::t _%$args128746%_))) (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 (_%path127611%_ _%fun127612%_) + (lambda (_%path128743%_ _%fun128744%_) (call-with-input-file - (cons 'path: (cons _%path127611%_ gx#source-file-settings)) - _%fun127612%_))) + (cons 'path: (cons _%path128743%_ gx#source-file-settings)) + _%fun128744%_))) (define gx#module-context:::init! - (lambda (_%self124063127592%_ - _%id127594%_ - _%super127595%_ - _%ns127596%_ - _%path127597%_) - (let* ((_%self127599%_ _%self124063127592%_) - (_%self127601%_ _%self127599%_)) - (if (##fx< '11 (##structure-length _%self127601%_)) + (lambda (_%self125195128724%_ + _%id128726%_ + _%super128727%_ + _%ns128728%_ + _%path128729%_) + (let* ((_%self128731%_ _%self125195128724%_) + (_%self128733%_ _%self128731%_)) + (if (##fx< '11 (##structure-length _%self128733%_)) (begin (##unchecked-structure-set! - _%self127601%_ - _%id127594%_ + _%self128733%_ + _%id128726%_ '1 '#f '#f) (##unchecked-structure-set! - _%self127601%_ + _%self128733%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self127601%_ - _%super127595%_ + _%self128733%_ + _%super128727%_ '3 '#f '#f) - (##unchecked-structure-set! _%self127601%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self127601%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self128733%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self128733%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self127601%_ - _%ns127596%_ + _%self128733%_ + _%ns128728%_ '6 '#f '#f) (##unchecked-structure-set! - _%self127601%_ - _%path127597%_ + _%self128733%_ + _%path128729%_ '7 '#f '#f) - (##unchecked-structure-set! _%self127601%_ '() '8 '#f '#f) - (##unchecked-structure-set! _%self127601%_ '() '9 '#f '#f) - (##unchecked-structure-set! _%self127601%_ '#f '10 '#f '#f) - (##unchecked-structure-set! _%self127601%_ '#f '11 '#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) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self127601%_ + _%self128733%_ '11 - (##vector-length _%self127601%_)))))) + (##vector-length _%self128733%_)))))) (__bind-method!__% gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_%self124064127423%_ _%ctx127425%_ _%root127426%_) - (let* ((_%self127428%_ _%self124064127423%_) - (_%self127430%_ _%self127428%_) - (_%super127446%_ - (let ((_%$e127440%_ _%root127426%_)) - (if _%$e127440%_ - _%$e127440%_ - (let ((_%$e127443%_ (gx#core-context-root__0))) - (if _%$e127443%_ - _%$e127443%_ - (let ((__obj127676 + (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 (##structure gx#root-context::t '#f '#f))) - (let ((__constructor127677 + (let ((__constructor128809 (direct-method-ref gx#root-context::t - __obj127676 + __obj128808 ':init!))) - (if __constructor127677 - (__constructor127677 __obj127676) + (if __constructor128809 + (__constructor128809 __obj128808) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj127676))))))) - (if _%ctx127425%_ - (let ((_%id127449%_ + __obj128808))))))) + (if _%ctx128557%_ + (let ((_%id128581%_ (##structure-ref - _%ctx127425%_ + _%ctx128557%_ '1 gx#expander-context::t '#f)) - (_%path127450%_ + (_%path128582%_ (##structure-ref - _%ctx127425%_ + _%ctx128557%_ '7 gx#module-context::t '#f)) - (_%in127451%_ + (_%in128583%_ (map gx#core-module-export->import (##structure-ref - _%ctx127425%_ + _%ctx128557%_ '9 gx#module-context::t '#f))) - (_%e127452%_ + (_%e128584%_ (__make-promise - (lambda () (gx#eval-module _%ctx127425%_))))) - (if (##fx< '8 (##structure-length _%self127430%_)) + (lambda () (gx#eval-module _%ctx128557%_))))) + (if (##fx< '8 (##structure-length _%self128562%_)) (begin (##unchecked-structure-set! - _%self127430%_ - _%id127449%_ + _%self128562%_ + _%id128581%_ '1 '#f '#f) (##unchecked-structure-set! - _%self127430%_ - (make-hash-table-eq 'size: (##length _%in127451%_)) + _%self128562%_ + (make-hash-table-eq 'size: (##length _%in128583%_)) '2 '#f '#f) (##unchecked-structure-set! - _%self127430%_ - _%super127446%_ + _%self128562%_ + _%super128578%_ '3 '#f '#f) (##unchecked-structure-set! - _%self127430%_ + _%self128562%_ '#f '4 '#f '#f) (##unchecked-structure-set! - _%self127430%_ + _%self128562%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self127430%_ - _%path127450%_ + _%self128562%_ + _%path128582%_ '6 '#f '#f) (##unchecked-structure-set! - _%self127430%_ - _%in127451%_ + _%self128562%_ + _%in128583%_ '7 '#f '#f) (##unchecked-structure-set! - _%self127430%_ - _%e127452%_ + _%self128562%_ + _%e128584%_ '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self127430%_ + _%self128562%_ '8 - (##vector-length _%self127430%_))) + (##vector-length _%self128562%_))) (##for-each - (lambda (_%g127453127455%_) + (lambda (_%g128585128587%_) (gx#core-bind-weak-import!__% - _%g127453127455%_ - _%self127430%_)) - _%in127451%_)) - (if (##fx< '8 (##structure-length _%self127430%_)) + _%g128585128587%_ + _%self128562%_)) + _%in128583%_)) + (if (##fx< '8 (##structure-length _%self128562%_)) (begin - (##unchecked-structure-set! _%self127430%_ '#f '1 '#f '#f) + (##unchecked-structure-set! _%self128562%_ '#f '1 '#f '#f) (##unchecked-structure-set! - _%self127430%_ + _%self128562%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self127430%_ - _%super127446%_ + _%self128562%_ + _%super128578%_ '3 '#f '#f) - (##unchecked-structure-set! _%self127430%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self127430%_ '#f '5 '#f '#f) - (##unchecked-structure-set! _%self127430%_ '#f '6 '#f '#f) - (##unchecked-structure-set! _%self127430%_ '() '7 '#f '#f) - (##unchecked-structure-set! _%self127430%_ '#f '8 '#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) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self127430%_ + _%self128562%_ '8 - (##vector-length _%self127430%_))))))) + (##vector-length _%self128562%_))))))) (define gx#prelude-context:::init!__0 - (lambda (_%self124064127461%_ _%ctx127462%_) - (let ((_%root127464%_ '#f)) + (lambda (_%self125196128593%_ _%ctx128594%_) + (let ((_%root128596%_ '#f)) (gx#prelude-context:::init!__% - _%self124064127461%_ - _%ctx127462%_ - _%root127464%_)))) + _%self125196128593%_ + _%ctx128594%_ + _%root128596%_)))) (define gx#prelude-context:::init! - (lambda _g127683_ - (let ((_g127682_ (##length _g127683_))) - (cond ((##fx= _g127682_ 2) - (apply gx#prelude-context:::init!__0 _g127683_)) - ((##fx= _g127682_ 3) - (apply gx#prelude-context:::init!__% _g127683_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g127683_)))))) + _g128815_)))))) (__bind-method!__% gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_%self127297%_ _%e127298%_) - (if (##fx< '3 (##structure-length _%self127297%_)) + (lambda (_%self128429%_ _%e128430%_) + (if (##fx< '3 (##structure-length _%self128429%_)) (begin (##unchecked-structure-set! - _%self127297%_ - _%e127298%_ + _%self128429%_ + _%e128430%_ '1 '#f '#f) (##unchecked-structure-set! - _%self127297%_ + _%self128429%_ (gx#current-expander-context) '2 '#f '#f) (##unchecked-structure-set! - _%self127297%_ + _%self128429%_ (##fx- (gx#current-expander-phi) '1) '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self127297%_ + _%self128429%_ '3 - (##vector-length _%self127297%_))))) + (##vector-length _%self128429%_))))) (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 (_%g126923126926%_ _%g126924126928%_) + (lambda (_%g128055128058%_ _%g128056128060%_) (gx#core-apply-user-expander__% - _%g126923126926%_ - _%g126924126928%_ + _%g128055128058%_ + _%g128056128060%_ '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 (_%g126794126797%_ _%g126795126799%_) + (lambda (_%g127926127929%_ _%g127927127931%_) (gx#core-apply-user-expander__% - _%g126794126797%_ - _%g126795126799%_ + _%g127926127929%_ + _%g127927127931%_ '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 (_%ctx126665%_) - (let* ((_%path126667%_ - (##structure-ref _%ctx126665%_ '7 gx#module-context::t '#f)) - (_%path126669%_ - (if (pair? _%path126667%_) - (##last _%path126667%_) - _%path126667%_))) - (if (string? _%path126669%_) _%path126669%_ '#f)))) + (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)))) (define gx#import-module__% - (lambda (_%path126641%_ _%reload?126642%_ _%eval?126643%_) - (let ((_%ctx126645%_ + (lambda (_%path127773%_ _%reload?127774%_ _%eval?127775%_) + (let ((_%ctx127777%_ ((gx#current-expander-module-import) - _%path126641%_ - _%reload?126642%_))) - (if (and _%ctx126645%_ _%eval?126643%_) - (gx#eval-module _%ctx126645%_) + _%path127773%_ + _%reload?127774%_))) + (if (and _%ctx127777%_ _%eval?127775%_) + (gx#eval-module _%ctx127777%_) '#!void) - _%ctx126645%_))) + _%ctx127777%_))) (define gx#import-module__0 - (lambda (_%path126650%_) - (let* ((_%reload?126652%_ '#f) (_%eval?126654%_ '#f)) + (lambda (_%path127782%_) + (let* ((_%reload?127784%_ '#f) (_%eval?127786%_ '#f)) (gx#import-module__% - _%path126650%_ - _%reload?126652%_ - _%eval?126654%_)))) + _%path127782%_ + _%reload?127784%_ + _%eval?127786%_)))) (define gx#import-module__1 - (lambda (_%path126656%_ _%reload?126657%_) - (let ((_%eval?126659%_ '#f)) + (lambda (_%path127788%_ _%reload?127789%_) + (let ((_%eval?127791%_ '#f)) (gx#import-module__% - _%path126656%_ - _%reload?126657%_ - _%eval?126659%_)))) + _%path127788%_ + _%reload?127789%_ + _%eval?127791%_)))) (define gx#import-module - (lambda _g127685_ - (let ((_g127684_ (##length _g127685_))) - (cond ((##fx= _g127684_ 1) (apply gx#import-module__0 _g127685_)) - ((##fx= _g127684_ 2) (apply gx#import-module__1 _g127685_)) - ((##fx= _g127684_ 3) (apply gx#import-module__% _g127685_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g127685_)))))) + _g128817_)))))) (define gx#eval-module - (lambda (_%mod126638%_) - ((gx#current-expander-module-eval) _%mod126638%_))) + (lambda (_%mod127770%_) + ((gx#current-expander-module-eval) _%mod127770%_))) (define gx#core-eval-module - (lambda (_%obj126618%_) - (letrec ((_%force-e126620%_ - (lambda (_%getf126634%_ _%e126635%_) + (lambda (_%obj127750%_) + (letrec ((_%force-e127752%_ + (lambda (_%getf127766%_ _%e127767%_) (__call-with-parameters - (lambda () (force (_%getf126634%_ _%e126635%_))) + (lambda () (force (_%getf127766%_ _%e127767%_))) gx#current-expander-context - _%e126635%_ + _%e127767%_ gx#current-expander-phi '0)))) - (let _%recur126622%_ ((_%e126624%_ _%obj126618%_)) - (if (##structure-instance-of? _%e126624%_ 'gx#module-context::t) + (let _%recur127754%_ ((_%e127756%_ _%obj127750%_)) + (if (##structure-instance-of? _%e127756%_ 'gx#module-context::t) (let () - (let ((_%$e126627%_ - (gx#core-context-prelude__% _%e126624%_))) - (if _%$e126627%_ (_%recur126622%_ _%$e126627%_) '#!void)) - (_%force-e126620%_ gx#module-context-e _%e126624%_)) + (let ((_%$e127759%_ + (gx#core-context-prelude__% _%e127756%_))) + (if _%$e127759%_ (_%recur127754%_ _%$e127759%_) '#!void)) + (_%force-e127752%_ gx#module-context-e _%e127756%_)) (if (##structure-instance-of? - _%e126624%_ + _%e127756%_ 'gx#prelude-context::t) - (_%force-e126620%_ gx#prelude-context-e _%e126624%_) - (if (gx#stx-string? _%e126624%_) - (_%recur126622%_ + (_%force-e127752%_ gx#prelude-context-e _%e127756%_) + (if (gx#stx-string? _%e127756%_) + (_%recur127754%_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _%e126624%_))) - (if (gx#core-library-module-path? _%e126624%_) - (_%recur126622%_ + (gx#core-resolve-module-path__0 _%e127756%_))) + (if (gx#core-library-module-path? _%e127756%_) + (_%recur127754%_ (gx#import-module__0 (gx#core-resolve-library-module-path - _%e126624%_))) - (error '"cannot eval module" _%obj126618%_))))))))) + _%e127756%_))) + (error '"cannot eval module" _%obj127750%_))))))))) (define gx#core-context-prelude__% - (lambda (_%ctx126598%_) - (let _%lp126600%_ ((_%e126602%_ _%ctx126598%_)) - (if (or (##structure-instance-of? _%e126602%_ 'gx#module-context::t) - (##structure-instance-of? _%e126602%_ 'gx#local-context::t)) - (_%lp126600%_ (##unchecked-structure-ref _%e126602%_ '3 '#f '#f)) - (if (##structure-instance-of? _%e126602%_ 'gx#prelude-context::t) - _%e126602%_ + (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%_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_%ctx126614%_ (gx#current-expander-context))) - (gx#core-context-prelude__% _%ctx126614%_)))) + (let ((_%ctx127746%_ (gx#current-expander-context))) + (gx#core-context-prelude__% _%ctx127746%_)))) (define gx#core-context-prelude - (lambda _g127687_ - (let ((_g127686_ (##length _g127687_))) - (cond ((##fx= _g127686_ 0) - (apply gx#core-context-prelude__0 _g127687_)) - ((##fx= _g127686_ 1) - (apply gx#core-context-prelude__% _g127687_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g127687_)))))) + _g128819_)))))) (define gx#core-module->prelude-context - (lambda (_%ctx126589%_) - (let ((_%$e126591%_ (__hash-get gx#__module-registry _%ctx126589%_))) - (if _%$e126591%_ - _%$e126591%_ - (let ((_%pre126595%_ - (let ((__obj127678 + (lambda (_%ctx127721%_) + (let ((_%$e127723%_ (__hash-get gx#__module-registry _%ctx127721%_))) + (if _%$e127723%_ + _%$e127723%_ + (let ((_%pre127727%_ + (let ((__obj128810 (##structure gx#prelude-context::t '#f @@ -720,52 +720,52 @@ '#f '#f))) (gx#prelude-context:::init!__0 - __obj127678 - _%ctx126589%_) - __obj127678))) - (__hash-put! gx#__module-registry _%ctx126589%_ _%pre126595%_) - _%pre126595%_))))) + __obj128810 + _%ctx127721%_) + __obj128810))) + (__hash-put! gx#__module-registry _%ctx127721%_ _%pre127727%_) + _%pre127727%_))))) (define gx#core-import-module__% - (lambda (_%rpath126461%_ _%reload?126462%_) - (letrec ((_%import-source126464%_ - (lambda (_%path126553%_) - (if (member _%path126553%_ (gx#current-expander-path)) - (error '"Cyclic expansion" _%path126553%_) + (lambda (_%rpath127593%_ _%reload?127594%_) + (letrec ((_%import-source127596%_ + (lambda (_%path127685%_) + (if (member _%path127685%_ (gx#current-expander-path)) + (error '"Cyclic expansion" _%path127685%_) '#!void) (__call-with-parameters (lambda () - (let ((_g127688_ (gx#core-read-module _%path126553%_))) + (let ((_g128820_ (gx#core-read-module _%path127685%_))) (begin - (let ((_g127689_ - (if (##values? _g127688_) - (##vector-length _g127688_) + (let ((_g128821_ + (if (##values? _g128820_) + (##vector-length _g128820_) 1))) - (if (not (##fx= _g127689_ 4)) - (error "Context expects 4 values" _g127689_))) - (let ((_%pre126556%_ (##vector-ref _g127688_ 0)) - (_%id126557%_ (##vector-ref _g127688_ 1)) - (_%ns126558%_ (##vector-ref _g127688_ 2)) - (_%body126559%_ (##vector-ref _g127688_ 3))) - (let* ((_%prelude126569%_ + (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 (##structure-instance-of? - _%pre126556%_ + _%pre127688%_ 'gx#prelude-context::t) - _%pre126556%_ + _%pre127688%_ (if (##structure-instance-of? - _%pre126556%_ + _%pre127688%_ 'gx#module-context::t) (gx#core-module->prelude-context - _%pre126556%_) - (if (string? _%pre126556%_) + _%pre127688%_) + (if (string? _%pre127688%_) (gx#core-module->prelude-context (gx#core-import-module__0 - _%pre126556%_)) - (if (not _%pre126556%_) - (let ((_%$e126565%_ + _%pre127688%_)) + (if (not _%pre127688%_) + (let ((_%$e127697%_ (gx#current-expander-module-prelude))) - (if _%$e126565%_ - _%$e126565%_ - (let ((__obj127679 + (if _%$e127697%_ + _%$e127697%_ + (let ((__obj128811 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -777,14 +777,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init!__0 __obj127679 '#f) - __obj127679))) + (gx#prelude-context:::init!__0 __obj128811 '#f) + __obj128811))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"cannot import module; unknown prelude" - _%rpath126461%_ - _%pre126556%_)))))) - (_%ctx126571%_ - (let ((__obj127680 + _%rpath127593%_ + _%pre127688%_)))))) + (_%ctx127703%_ + (let ((__obj128812 (##structure gx#module-context::t '#f @@ -799,44 +799,44 @@ '#f '#f))) (gx#module-context:::init! - __obj127680 - _%id126557%_ - _%prelude126569%_ - _%ns126558%_ - _%path126553%_) - __obj127680)) - (_%body126573%_ + __obj128812 + _%id127689%_ + _%prelude127701%_ + _%ns127690%_ + _%path127685%_) + __obj128812)) + (_%body127705%_ (gx#core-expand-module-begin - _%body126559%_ - _%ctx126571%_)) - (_%body126575%_ + _%body127691%_ + _%ctx127703%_)) + (_%body127707%_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _%body126573%_) - _%path126553%_ - _%ctx126571%_ + (gx#core-cons '%#begin _%body127705%_) + _%path127685%_ + _%ctx127703%_ '()))) (##unchecked-structure-set! - _%ctx126571%_ + _%ctx127703%_ (__make-promise - (lambda () (gx#eval-syntax* _%body126575%_))) + (lambda () (gx#eval-syntax* _%body127707%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx126571%_ - _%body126575%_ + _%ctx127703%_ + _%body127707%_ '11 '#f '#f) (__hash-put! gx#__module-registry - _%path126553%_ - _%ctx126571%_) + _%path127685%_ + _%ctx127703%_) (__hash-put! gx#__module-registry - _%id126557%_ - _%ctx126571%_) - _%ctx126571%_))))) + _%id127689%_ + _%ctx127703%_) + _%ctx127703%_))))) 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 _%path126553%_ (gx#current-expander-path)) + (cons _%path127685%_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_%import-submodule126465%_ - (lambda (_%rpath126481%_) - (let* ((_%rpath126482126489%_ _%rpath126481%_) - (_%E126484126493%_ + (_%import-submodule127597%_ + (lambda (_%rpath127613%_) + (let* ((_%rpath127614127621%_ _%rpath127613%_) + (_%E127616127625%_ (lambda () (error '"No clause matching" - _%rpath126482126489%_ + _%rpath127614127621%_ '([origin . refs])) '#!void)) - (_%K126485126541%_ - (lambda (_%refs126496%_ _%origin126497%_) - (let ((_%ctx126499%_ - (if _%origin126497%_ + (_%K127617127673%_ + (lambda (_%refs127628%_ _%origin127629%_) + (let ((_%ctx127631%_ + (if _%origin127629%_ (gx#core-import-module__% - _%origin126497%_ - _%reload?126462%_) + _%origin127629%_ + _%reload?127594%_) (gx#current-expander-context)))) - (let _%lp126501%_ ((_%rest126503%_ - _%refs126496%_) - (_%ctx126504%_ - _%ctx126499%_)) - (let* ((_%rest126505126513%_ _%rest126503%_) - (_%else126507126521%_ - (lambda () _%ctx126504%_)) - (_%K126509126529%_ - (lambda (_%rest126524%_ _%id126525%_) - (let ((_%bind126527%_ + (let _%lp127633%_ ((_%rest127635%_ + _%refs127628%_) + (_%ctx127636%_ + _%ctx127631%_)) + (let* ((_%rest127637127645%_ _%rest127635%_) + (_%else127639127653%_ + (lambda () _%ctx127636%_)) + (_%K127641127661%_ + (lambda (_%rest127656%_ _%id127657%_) + (let ((_%bind127659%_ (gx#resolve-identifier__% - _%id126525%_ + _%id127657%_ '0 - _%ctx126504%_))) + _%ctx127636%_))) (if (and (##structure-direct-instance-of? - _%bind126527%_ + _%bind127659%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind126527%_ + _%bind127659%_ '4 '#f '#f) 'gx#module-context::t)) - (_%lp126501%_ - _%rest126524%_ + (_%lp127633%_ + _%rest127656%_ (##unchecked-structure-ref - _%bind126527%_ + _%bind127659%_ '4 '#f '#f)) (error '"cannot import submodule; not bound as a module" - _%rpath126481%_ - _%id126525%_ - _%bind126527%_)))))) - (if (##pair? _%rest126505126513%_) - (let ((_%hd126510126532%_ - (##car _%rest126505126513%_)) - (_%tl126511126534%_ - (##cdr _%rest126505126513%_))) - (let* ((_%id126537%_ - _%hd126510126532%_) - (_%rest126539%_ - _%tl126511126534%_)) - (_%K126509126529%_ - _%rest126539%_ - _%id126537%_))) - (_%else126507126521%_)))))))) - (if (##pair? _%rpath126482126489%_) - (let ((_%hd126486126544%_ - (##car _%rpath126482126489%_)) - (_%tl126487126546%_ - (##cdr _%rpath126482126489%_))) - (let* ((_%origin126549%_ _%hd126486126544%_) - (_%refs126551%_ _%tl126487126546%_)) - (_%K126485126541%_ - _%refs126551%_ - _%origin126549%_))) - (_%E126484126493%_)))))) - (let ((_%$e126467%_ - (if (not _%reload?126462%_) - (__hash-get gx#__module-registry _%rpath126461%_) + _%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%_) '#f))) - (if _%$e126467%_ - _%$e126467%_ - (if (list? _%rpath126461%_) - (_%import-submodule126465%_ _%rpath126461%_) - (if (gx#core-library-module-path? _%rpath126461%_) - (let ((_%ctx126472%_ + (if _%$e127599%_ + _%$e127599%_ + (if (list? _%rpath127593%_) + (_%import-submodule127597%_ _%rpath127593%_) + (if (gx#core-library-module-path? _%rpath127593%_) + (let ((_%ctx127604%_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _%rpath126461%_) - _%reload?126462%_))) + _%rpath127593%_) + _%reload?127594%_))) (__hash-put! gx#__module-registry - _%rpath126461%_ - _%ctx126472%_) - _%ctx126472%_) - (let* ((_%npath126475%_ - (path-normalize _%rpath126461%_)) - (_%$e126477%_ - (if (not _%reload?126462%_) + _%rpath127593%_ + _%ctx127604%_) + _%ctx127604%_) + (let* ((_%npath127607%_ + (path-normalize _%rpath127593%_)) + (_%$e127609%_ + (if (not _%reload?127594%_) (__hash-get gx#__module-registry - _%npath126475%_) + _%npath127607%_) '#f))) - (if _%$e126477%_ - _%$e126477%_ - (_%import-source126464%_ - _%npath126475%_)))))))))) + (if _%$e127609%_ + _%$e127609%_ + (_%import-source127596%_ + _%npath127607%_)))))))))) (define gx#core-import-module__0 - (lambda (_%rpath126582%_) - (let ((_%reload?126584%_ '#f)) - (gx#core-import-module__% _%rpath126582%_ _%reload?126584%_)))) + (lambda (_%rpath127714%_) + (let ((_%reload?127716%_ '#f)) + (gx#core-import-module__% _%rpath127714%_ _%reload?127716%_)))) (define gx#core-import-module - (lambda _g127691_ - (let ((_g127690_ (##length _g127691_))) - (cond ((##fx= _g127690_ 1) - (apply gx#core-import-module__0 _g127691_)) - ((##fx= _g127690_ 2) - (apply gx#core-import-module__% _g127691_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g127691_)))))) + _g128823_)))))) (define gx#core-read-module - (lambda (_%path126450%_) + (lambda (_%path127582%_) (__with-catch - (lambda (_%exn126452%_) - (if (and (datum-parsing-exception? _%exn126452%_) - (eq? (datum-parsing-exception-filepos _%exn126452%_) '0)) - (gx#core-read-module/lang _%path126450%_) + (lambda (_%exn127584%_) + (if (and (datum-parsing-exception? _%exn127584%_) + (eq? (datum-parsing-exception-filepos _%exn127584%_) '0)) + (gx#core-read-module/lang _%path127582%_) (gx#raise-syntax-error 'read-module '"error reading module" - _%path126450%_ + _%path127582%_ (__call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_%g126454126456%_) - (display-exception__% _%exn126452%_ _%g126454126456%_)))) + (lambda (_%g127586127588%_) + (display-exception__% _%exn127584%_ _%g127586127588%_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _%path126450%_))))) + (lambda () (gx#core-read-module/sexp _%path127582%_))))) (define gx#core-read-module/sexp - (lambda (_%path126302%_) - (let _%lp126304%_ ((_%body126306%_ - (read-syntax-from-file _%path126302%_)) - (_%pre126307%_ '#f) - (_%ns126308%_ '#f) - (_%pkg126309%_ '#f)) - (let* ((_%e126310126334%_ _%body126306%_) - (_%E126326126360%_ + (lambda (_%path127434%_) + (let _%lp127436%_ ((_%body127438%_ + (read-syntax-from-file _%path127434%_)) + (_%pre127439%_ '#f) + (_%ns127440%_ '#f) + (_%pkg127441%_ '#f)) + (let* ((_%e127442127466%_ _%body127438%_) + (_%E127458127492%_ (lambda () - (let ((_g127692_ - (if _%pkg126309%_ - (values _%pre126307%_ - _%ns126308%_ - _%pkg126309%_) + (let ((_g128824_ + (if _%pkg127441%_ + (values _%pre127439%_ + _%ns127440%_ + _%pkg127441%_) (gx#core-read-module-package - _%path126302%_ - _%pre126307%_ - _%ns126308%_)))) + _%path127434%_ + _%pre127439%_ + _%ns127440%_)))) (begin - (let ((_g127693_ - (if (##values? _g127692_) - (##vector-length _g127692_) + (let ((_g128825_ + (if (##values? _g128824_) + (##vector-length _g128824_) 1))) - (if (not (##fx= _g127693_ 3)) - (error "Context expects 3 values" _g127693_))) - (let ((_%pre126338%_ (##vector-ref _g127692_ 0)) - (_%ns126339%_ (##vector-ref _g127692_ 1)) - (_%pkg126340%_ (##vector-ref _g127692_ 2))) - (let* ((_%prelude126346%_ + (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 (gx#core-bound-module-prelude? - _%pre126338%_) - (gx#syntax-local-e__0 _%pre126338%_) + _%pre127470%_) + (gx#syntax-local-e__0 _%pre127470%_) (if (gx#core-library-module-path? - _%pre126338%_) + _%pre127470%_) (gx#core-resolve-library-module-path - _%pre126338%_) - (if (gx#stx-string? _%pre126338%_) + _%pre127470%_) + (if (gx#stx-string? _%pre127470%_) (gx#core-resolve-module-path__% - _%pre126338%_ - _%path126302%_) - (gx#stx-e _%pre126338%_))))) - (_%path-id126348%_ + _%pre127470%_ + _%path127434%_) + (gx#stx-e _%pre127470%_))))) + (_%path-id127480%_ (gx#core-module-path->namespace - _%path126302%_)) - (_%pkg-id126350%_ - (if _%pkg126340%_ + _%path127434%_)) + (_%pkg-id127482%_ + (if _%pkg127472%_ (##string-append - _%pkg126340%_ + _%pkg127472%_ '"/" - _%path-id126348%_) - _%path-id126348%_)) - (_%module-id126352%_ - (##string->symbol _%pkg-id126350%_)) - (_%module-ns126357%_ - (if (eq? _%ns126339%_ '#!void) + _%path-id127480%_) + _%path-id127480%_)) + (_%module-id127484%_ + (##string->symbol _%pkg-id127482%_)) + (_%module-ns127489%_ + (if (eq? _%ns127471%_ '#!void) '#f - (let ((_%$e126354%_ _%ns126339%_)) - (if _%$e126354%_ - _%$e126354%_ - _%pkg-id126350%_))))) - (values _%prelude126346%_ - _%module-id126352%_ - _%module-ns126357%_ - _%body126306%_))))))) - (_%E126319126392%_ + (let ((_%$e127486%_ _%ns127471%_)) + (if _%$e127486%_ + _%$e127486%_ + _%pkg-id127482%_))))) + (values _%prelude127478%_ + _%module-id127484%_ + _%module-ns127489%_ + _%body127438%_))))))) + (_%E127451127524%_ (lambda () - (if (gx#stx-pair? _%e126310126334%_) - (let ((_%e126327126364%_ - (gx#syntax-e _%e126310126334%_))) - (let ((_%hd126328126367%_ (##car _%e126327126364%_)) - (_%tl126329126369%_ (##cdr _%e126327126364%_))) - (if (eq? (gx#stx-e _%hd126328126367%_) 'package:) - (if (gx#stx-pair? _%tl126329126369%_) - (let ((_%e126330126372%_ - (gx#syntax-e _%tl126329126369%_))) - (let ((_%hd126331126375%_ - (##car _%e126330126372%_)) - (_%tl126332126377%_ - (##cdr _%e126330126372%_))) - (let* ((_%pkg126380%_ - _%hd126331126375%_) - (_%rest126382%_ - _%tl126332126377%_) - (_%pkg126390%_ + (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#identifier? - _%pkg126380%_) + _%pkg127512%_) (symbol->string - (gx#stx-e _%pkg126380%_)) + (gx#stx-e _%pkg127512%_)) (if (or (gx#stx-string? - _%pkg126380%_) + _%pkg127512%_) (gx#stx-false? - _%pkg126380%_)) + _%pkg127512%_)) (gx#stx-e - _%pkg126380%_) + _%pkg127512%_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _%pkg126380%_))))) - (_%lp126304%_ - _%rest126382%_ - _%pre126307%_ - _%ns126308%_ - _%pkg126390%_)))) - (_%E126326126360%_)) - (_%E126326126360%_)))) - (_%E126326126360%_)))) - (_%E126312126422%_ + _%pkg127512%_))))) + (_%lp127436%_ + _%rest127514%_ + _%pre127439%_ + _%ns127440%_ + _%pkg127522%_)))) + (_%E127458127492%_)) + (_%E127458127492%_)))) + (_%E127458127492%_)))) + (_%E127444127554%_ (lambda () - (if (gx#stx-pair? _%e126310126334%_) - (let ((_%e126320126396%_ - (gx#syntax-e _%e126310126334%_))) - (let ((_%hd126321126399%_ (##car _%e126320126396%_)) - (_%tl126322126401%_ (##cdr _%e126320126396%_))) - (if (eq? (gx#stx-e _%hd126321126399%_) 'namespace:) - (if (gx#stx-pair? _%tl126322126401%_) - (let ((_%e126323126404%_ - (gx#syntax-e _%tl126322126401%_))) - (let ((_%hd126324126407%_ - (##car _%e126323126404%_)) - (_%tl126325126409%_ - (##cdr _%e126323126404%_))) - (let* ((_%ns126412%_ - _%hd126324126407%_) - (_%rest126414%_ - _%tl126325126409%_) - (_%ns126420%_ + (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#identifier? - _%ns126412%_) + _%ns127544%_) (symbol->string - (gx#stx-e _%ns126412%_)) + (gx#stx-e _%ns127544%_)) (if (gx#stx-string? - _%ns126412%_) - (gx#stx-e _%ns126412%_) + _%ns127544%_) + (gx#stx-e _%ns127544%_) (if (gx#stx-false? - _%ns126412%_) + _%ns127544%_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _%ns126412%_)))))) - (_%lp126304%_ - _%rest126414%_ - _%pre126307%_ - _%ns126420%_ - _%pkg126309%_)))) - (_%E126319126392%_)) - (_%E126319126392%_)))) - (_%E126319126392%_)))) - (_%E126311126446%_ + _%ns127544%_)))))) + (_%lp127436%_ + _%rest127546%_ + _%pre127439%_ + _%ns127552%_ + _%pkg127441%_)))) + (_%E127451127524%_)) + (_%E127451127524%_)))) + (_%E127451127524%_)))) + (_%E127443127578%_ (lambda () - (if (gx#stx-pair? _%e126310126334%_) - (let ((_%e126313126426%_ - (gx#syntax-e _%e126310126334%_))) - (let ((_%hd126314126429%_ (##car _%e126313126426%_)) - (_%tl126315126431%_ (##cdr _%e126313126426%_))) - (if (eq? (gx#stx-e _%hd126314126429%_) 'prelude:) - (if (gx#stx-pair? _%tl126315126431%_) - (let ((_%e126316126434%_ - (gx#syntax-e _%tl126315126431%_))) - (let ((_%hd126317126437%_ - (##car _%e126316126434%_)) - (_%tl126318126439%_ - (##cdr _%e126316126434%_))) - (let* ((_%prelude126442%_ - _%hd126317126437%_) - (_%rest126444%_ - _%tl126318126439%_)) - (_%lp126304%_ - _%rest126444%_ - _%prelude126442%_ - _%ns126308%_ - _%pkg126309%_)))) - (_%E126312126422%_)) - (_%E126312126422%_)))) - (_%E126312126422%_))))) - (_%E126311126446%_))))) + (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%_))))) (define gx#core-read-module/lang - (lambda (_%path126124%_) - (letrec ((_%default-read-module-body126126%_ - (lambda (_%inp126294%_) - (let _%lp126296%_ ((_%body126298%_ '())) - (let ((_%next126300%_ (read-syntax__% _%inp126294%_))) - (if (eof-object? _%next126300%_) - (reverse _%body126298%_) - (_%lp126296%_ - (cons _%next126300%_ _%body126298%_))))))) - (_%read-body126127%_ - (lambda (_%inp126212%_ - _%pre126213%_ - _%ns126214%_ - _%pkg126215%_ - _%args126216%_) - (let ((_g127694_ - (if _%pkg126215%_ - (values _%pre126213%_ - _%ns126214%_ - _%pkg126215%_) + (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%_) (gx#core-read-module-package - _%path126124%_ - _%pre126213%_ - _%ns126214%_)))) + _%path127256%_ + _%pre127345%_ + _%ns127346%_)))) (begin - (let ((_g127695_ - (if (##values? _g127694_) - (##vector-length _g127694_) + (let ((_g128827_ + (if (##values? _g128826_) + (##vector-length _g128826_) 1))) - (if (not (##fx= _g127695_ 3)) - (error "Context expects 3 values" _g127695_))) - (let ((_%pre126218%_ (##vector-ref _g127694_ 0)) - (_%ns126219%_ (##vector-ref _g127694_ 1)) - (_%pkg126220%_ (##vector-ref _g127694_ 2))) - (let* ((_%prelude126222%_ - (gx#import-module__0 _%pre126218%_)) - (_%read-module-body126277%_ - (let ((_%$e126268%_ - (__find (lambda (_%e126223126225%_) - (let* ((_%g126227126237%_ - _%e126223126225%_) - (_%else126229126245%_ + (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%_ (lambda () '#f)) - (_%K126231126249%_ + (_%K127363127381%_ (lambda () '#t))) (if (##structure-direct-instance-of? - _%g126227126237%_ + _%g127359127369%_ 'gx#module-export::t) - (let* ((_%e126232126252%_ + (let* ((_%e127364127384%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##unchecked-structure-ref - _%g126227126237%_ + _%g127359127369%_ '1 '#f '#f)) - (_%e126233126255%_ + (_%e127365127387%_ (##unchecked-structure-ref - _%g126227126237%_ + _%g127359127369%_ '2 '#f '#f)) - (_%e126234126258%_ + (_%e127366127390%_ (##unchecked-structure-ref - _%g126227126237%_ + _%g127359127369%_ '3 '#f '#f))) - (if (##eq? _%e126234126258%_ '1) - (let ((_%e126235126261%_ + (if (##eq? _%e127366127390%_ '1) + (let ((_%e127367127393%_ (##unchecked-structure-ref - _%g126227126237%_ + _%g127359127369%_ '4 '#f '#f))) - (if ((lambda (_%g126263126265%_) - (eq? _%g126263126265%_ 'read-module-body)) - _%e126235126261%_) - (_%K126231126249%_) - (_%else126229126245%_))) - (_%else126229126245%_))) - (_%else126229126245%_)))) + (if ((lambda (_%g127395127397%_) + (eq? _%g127395127397%_ 'read-module-body)) + _%e127367127393%_) + (_%K127363127381%_) + (_%else127361127377%_))) + (_%else127361127377%_))) + (_%else127361127377%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _%prelude126222%_ + _%prelude127354%_ '9 '#f '#f)))) - (if _%$e126268%_ - ((lambda (_%xport126271%_) - (let ((_%proc126274%_ + (if _%$e127400%_ + ((lambda (_%xport127403%_) + (let ((_%proc127406%_ (__with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _%xport126271%_) + _%xport127403%_) '1 gx#binding::t '#f)))))) - (if (procedure? _%proc126274%_) - _%proc126274%_ + (if (procedure? _%proc127406%_) + _%proc127406%_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _%path126124%_ - _%pre126218%_ - _%proc126274%_)))) - _%$e126268%_) - _%default-read-module-body126126%_))) - (_%path-id126279%_ + _%path127256%_ + _%pre127350%_ + _%proc127406%_)))) + _%$e127400%_) + _%default-read-module-body127258%_))) + (_%path-id127411%_ (gx#core-module-path->namespace - _%path126124%_)) - (_%pkg-id126281%_ - (if _%pkg126220%_ + _%path127256%_)) + (_%pkg-id127413%_ + (if _%pkg127352%_ (##string-append - _%pkg126220%_ + _%pkg127352%_ '"/" - _%path-id126279%_) - _%path-id126279%_)) - (_%module-id126283%_ - (##string->symbol _%pkg-id126281%_)) - (_%module-ns126288%_ - (let ((_%$e126285%_ _%ns126219%_)) - (if _%$e126285%_ - _%$e126285%_ - _%pkg-id126281%_))) - (_%body126291%_ + _%path-id127411%_) + _%path-id127411%_)) + (_%module-id127415%_ + (##string->symbol _%pkg-id127413%_)) + (_%module-ns127420%_ + (let ((_%$e127417%_ _%ns127351%_)) + (if _%$e127417%_ + _%$e127417%_ + _%pkg-id127413%_))) + (_%body127423%_ (__call-with-parameters (lambda () - (_%read-module-body126277%_ - _%inp126212%_)) + (_%read-module-body127409%_ + _%inp127344%_)) gx#current-module-reader-path - _%path126124%_ + _%path127256%_ gx#current-module-reader-args - _%args126216%_))) - (values _%prelude126222%_ - _%module-id126283%_ - _%module-ns126288%_ - _%body126291%_))))))) - (_%string-e126128%_ - (lambda (_%obj126206%_ _%what126207%_) - (if (string? _%obj126206%_) - _%obj126206%_ - (if (symbol? _%obj126206%_) - (##symbol->string _%obj126206%_) + _%args127348%_))) + (values _%prelude127354%_ + _%module-id127415%_ + _%module-ns127420%_ + _%body127423%_))))))) + (_%string-e127260%_ + (lambda (_%obj127338%_ _%what127339%_) + (if (string? _%obj127338%_) + _%obj127338%_ + (if (symbol? _%obj127338%_) + (##symbol->string _%obj127338%_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _%what126207%_) - _%path126124%_ - _%obj126206%_))))) - (_%read-lang-args126129%_ - (lambda (_%inp126161%_ _%args126162%_) - (let* ((_%args126163126171%_ _%args126162%_) - (_%else126165126179%_ + (string-append '"Illegal module " _%what127339%_) + _%path127256%_ + _%obj127338%_))))) + (_%read-lang-args127261%_ + (lambda (_%inp127293%_ _%args127294%_) + (let* ((_%args127295127303%_ _%args127294%_) + (_%else127297127311%_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _%path126124%_))) - (_%K126167126194%_ - (lambda (_%args126182%_ _%prelude126183%_) - (let* ((_%pkg126185%_ - (pgetq__0 'package: _%args126182%_)) - (_%pkg126187%_ - (if _%pkg126185%_ - (_%string-e126128%_ - _%pkg126185%_ + _%path127256%_))) + (_%K127299127326%_ + (lambda (_%args127314%_ _%prelude127315%_) + (let* ((_%pkg127317%_ + (pgetq__0 'package: _%args127314%_)) + (_%pkg127319%_ + (if _%pkg127317%_ + (_%string-e127260%_ + _%pkg127317%_ '"package") '#f)) - (_%ns126189%_ - (pgetq__0 'namespace: _%args126182%_)) - (_%ns126191%_ - (if _%ns126189%_ - (_%string-e126128%_ - _%ns126189%_ + (_%ns127321%_ + (pgetq__0 'namespace: _%args127314%_)) + (_%ns127323%_ + (if _%ns127321%_ + (_%string-e127260%_ + _%ns127321%_ '"namespace") '#f))) - (_%read-body126127%_ - _%inp126161%_ - _%prelude126183%_ - _%ns126191%_ - _%pkg126187%_ - _%args126182%_))))) - (if (##pair? _%args126163126171%_) - (let ((_%hd126168126197%_ - (##car _%args126163126171%_)) - (_%tl126169126199%_ - (##cdr _%args126163126171%_))) - (let* ((_%prelude126202%_ _%hd126168126197%_) - (_%args126204%_ _%tl126169126199%_)) - (_%K126167126194%_ - _%args126204%_ - _%prelude126202%_))) - (_%else126165126179%_))))) - (_%read-lang126130%_ - (lambda (_%inp126135%_) - (let* ((_%head126137%_ (read-line _%inp126135%_)) - (_%$e126139%_ - (string-index__0 _%head126137%_ '#\space))) - (if _%$e126139%_ - ((lambda (_%ix126142%_) - (let ((_%lang126144%_ + (_%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%_ (substring - _%head126137%_ + _%head127269%_ '0 - _%ix126142%_))) - (if (equal? _%lang126144%_ '"#lang") - (let* ((_%rest126146%_ + _%ix127274%_))) + (if (equal? _%lang127276%_ '"#lang") + (let* ((_%rest127278%_ (substring - _%head126137%_ - (##fx+ _%ix126142%_ '1) - (string-length _%head126137%_))) - (_%args126157%_ + _%head127269%_ + (##fx+ _%ix127274%_ '1) + (string-length _%head127269%_))) + (_%args127289%_ (__with-catch - (lambda (_%g126147126149%_) + (lambda (_%g127279127281%_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _%path126124%_ - _%g126147126149%_)) + _%path127256%_ + _%g127279127281%_)) (lambda () (call-with-input-string - _%rest126146%_ - (lambda (_%g126152126154%_) + _%rest127278%_ + (lambda (_%g127284127286%_) (read-all - _%g126152126154%_ + _%g127284127286%_ read))))))) - (_%read-lang-args126129%_ - _%inp126135%_ - _%args126157%_)) + (_%read-lang-args127261%_ + _%inp127267%_ + _%args127289%_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path126124%_)))) - _%$e126139%_) + _%path127256%_)))) + _%$e127271%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path126124%_))))) - (_%read-e126131%_ - (lambda (_%inp126133%_) - (if (eq? (peek-char _%inp126133%_) '#\#) - (_%read-lang126130%_ _%inp126133%_) + _%path127256%_))))) + (_%read-e127263%_ + (lambda (_%inp127265%_) + (if (eq? (peek-char _%inp127265%_) '#\#) + (_%read-lang127262%_ _%inp127265%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path126124%_))))) - (gx#call-with-input-source-file _%path126124%_ _%read-e126131%_)))) + _%path127256%_))))) + (gx#call-with-input-source-file _%path127256%_ _%read-e127263%_)))) (define gx#core-read-module-package - (lambda (_%path126072%_ _%pre126073%_ _%ns126074%_) - (letrec ((_%string-e126076%_ - (lambda (_%e126119%_) - (if (symbol? _%e126119%_) - (##symbol->string _%e126119%_) - (if (string? _%e126119%_) - _%e126119%_ + (lambda (_%path127204%_ _%pre127205%_ _%ns127206%_) + (letrec ((_%string-e127208%_ + (lambda (_%e127251%_) + (if (symbol? _%e127251%_) + (##symbol->string _%e127251%_) + (if (string? _%e127251%_) + _%e127251%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%e126119%_)))))) - (let _%lp126078%_ ((_%dir126080%_ (path-directory _%path126072%_)) - (_%pkg-path126081%_ '())) - (let ((_%gerbil.pkg126083%_ - (path-expand '"gerbil.pkg" _%dir126080%_))) - (if (##file-exists? _%gerbil.pkg126083%_) - (let ((_%plist126085%_ - (gx#core-library-package-plist__% _%dir126080%_ '#t))) - (if (null? _%plist126085%_) - (let ((_%pkg126088%_ - (if (null? _%pkg-path126081%_) + _%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%_) '#f - (string-join _%pkg-path126081%_ '"/")))) - (values _%pre126073%_ _%ns126074%_ _%pkg126088%_)) - (if (list? _%plist126085%_) - (let* ((_%root126091%_ - (pgetq__0 'package: _%plist126085%_)) - (_%pkg126095%_ - (let ((_%pkg-path126093%_ - (if _%root126091%_ - (cons (_%string-e126076%_ - _%root126091%_) - _%pkg-path126081%_) - _%pkg-path126081%_))) - (if (null? _%pkg-path126093%_) + (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%_) '#f (string-join - _%pkg-path126093%_ + _%pkg-path127225%_ '"/")))) - (_%ns126102%_ - (let ((_%ns126100%_ - (let ((_%$e126097%_ _%ns126074%_)) - (if _%$e126097%_ - _%$e126097%_ + (_%ns127234%_ + (let ((_%ns127232%_ + (let ((_%$e127229%_ _%ns127206%_)) + (if _%$e127229%_ + _%$e127229%_ (pgetq__0 'namespace: - _%plist126085%_))))) - (if _%ns126100%_ - (_%string-e126076%_ _%ns126100%_) + _%plist127217%_))))) + (if _%ns127232%_ + (_%string-e127208%_ _%ns127232%_) '#f))) - (_%pre126107%_ - (let ((_%$e126104%_ _%pre126073%_)) - (if _%$e126104%_ - _%$e126104%_ + (_%pre127239%_ + (let ((_%$e127236%_ _%pre127205%_)) + (if _%$e127236%_ + _%$e127236%_ (pgetq__0 'prelude: - _%plist126085%_))))) - (values _%pre126107%_ - _%ns126102%_ - _%pkg126095%_)) + _%plist127217%_))))) + (values _%pre127239%_ + _%ns127234%_ + _%pkg127227%_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%plist126085%_)))) - (let ((_%dir*126111%_ + _%plist127217%_)))) + (let ((_%dir*127243%_ (path-strip-trailing-directory-separator - _%dir126080%_))) - (if (or (__string-empty? _%dir*126111%_) - (equal? _%dir126080%_ _%dir*126111%_)) - (values _%pre126073%_ _%ns126074%_ '#f) - (let ((_%xpath126116%_ - (path-strip-directory _%dir*126111%_)) - (_%xdir126117%_ (path-directory _%dir*126111%_))) - (_%lp126078%_ - _%xdir126117%_ - (cons _%xpath126116%_ _%pkg-path126081%_))))))))))) + _%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%_))))))))))) (define gx#core-module-path->namespace - (lambda (_%path126070%_) - (path-strip-extension (path-strip-directory _%path126070%_)))) + (lambda (_%path127202%_) + (path-strip-extension (path-strip-directory _%path127202%_)))) (define gx#core-module-path->id - (lambda (_%path126068%_) - (##string->symbol (gx#core-module-path->namespace _%path126068%_)))) + (lambda (_%path127200%_) + (##string->symbol (gx#core-module-path->namespace _%path127200%_)))) (define gx#core-resolve-module-path__% - (lambda (_%stx-path126047%_ _%rel126048%_) - (let* ((_%path126050%_ (gx#stx-e _%stx-path126047%_)) - (_%path126052%_ - (if (__string-empty? (path-extension _%path126050%_)) - (##string-append _%path126050%_ '".ss") - _%path126050%_))) + (lambda (_%stx-path127179%_ _%rel127180%_) + (let* ((_%path127182%_ (gx#stx-e _%stx-path127179%_)) + (_%path127184%_ + (if (__string-empty? (path-extension _%path127182%_)) + (##string-append _%path127182%_ '".ss") + _%path127182%_))) (gx#core-resolve-path__% - _%path126052%_ - (let ((_%$e126055%_ (gx#stx-source _%stx-path126047%_))) - (if _%$e126055%_ _%$e126055%_ _%rel126048%_)))))) + _%path127184%_ + (let ((_%$e127187%_ (gx#stx-source _%stx-path127179%_))) + (if _%$e127187%_ _%$e127187%_ _%rel127180%_)))))) (define gx#core-resolve-module-path__0 - (lambda (_%stx-path126061%_) - (let ((_%rel126063%_ '#f)) - (gx#core-resolve-module-path__% _%stx-path126061%_ _%rel126063%_)))) + (lambda (_%stx-path127193%_) + (let ((_%rel127195%_ '#f)) + (gx#core-resolve-module-path__% _%stx-path127193%_ _%rel127195%_)))) (define gx#core-resolve-module-path - (lambda _g127697_ - (let ((_g127696_ (##length _g127697_))) - (cond ((##fx= _g127696_ 1) - (apply gx#core-resolve-module-path__0 _g127697_)) - ((##fx= _g127696_ 2) - (apply gx#core-resolve-module-path__% _g127697_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g127697_)))))) + _g128829_)))))) (define gx#core-resolve-library-module-path - (lambda (_%libpath125932%_) - (let* ((_%spath125934%_ (symbol->string (gx#stx-e _%libpath125932%_))) - (_%spath125936%_ + (lambda (_%libpath127064%_) + (let* ((_%spath127066%_ (symbol->string (gx#stx-e _%libpath127064%_))) + (_%spath127068%_ (substring - _%spath125934%_ + _%spath127066%_ '1 - (##string-length _%spath125934%_))) - (_%ext125938%_ (path-extension _%spath125936%_)) - (_%ssi125940%_ - (if (__string-empty? _%ext125938%_) - (##string-append _%spath125936%_ '".ssi") + (##string-length _%spath127066%_))) + (_%ext127070%_ (path-extension _%spath127068%_)) + (_%ssi127072%_ + (if (__string-empty? _%ext127070%_) + (##string-append _%spath127068%_ '".ssi") (##string-append - (path-strip-extension _%spath125936%_) + (path-strip-extension _%spath127068%_) '".ssi"))) - (_%srcs125944%_ - (if (__string-empty? _%ext125938%_) - (##map (lambda (_%ext125942%_) - (string-append _%spath125936%_ _%ext125942%_)) + (_%srcs127076%_ + (if (__string-empty? _%ext127070%_) + (##map (lambda (_%ext127074%_) + (string-append _%spath127068%_ _%ext127074%_)) '(".ss" ".sld" ".scm")) - (cons _%spath125936%_ '())))) - (let _%lp125947%_ ((_%rest125949%_ (load-path))) - (let* ((_%rest125950125959%_ _%rest125949%_) - (_%E125953125963%_ + (cons _%spath127068%_ '())))) + (let _%lp127079%_ ((_%rest127081%_ (load-path))) + (let* ((_%rest127082127091%_ _%rest127081%_) + (_%E127085127095%_ (lambda () (error '"No clause matching" - _%rest125950125959%_ + _%rest127082127091%_ '([dir . rest]) '([])) '#!void))) - (let ((_%K125955126034%_ - (lambda (_%rest125974%_ _%dir125975%_) - (letrec ((_%resolve125977%_ - (lambda (_%ssi125990%_ _%srcs125991%_) - (let ((_%compiled-path125993%_ + (let ((_%K127087127166%_ + (lambda (_%rest127106%_ _%dir127107%_) + (letrec ((_%resolve127109%_ + (lambda (_%ssi127122%_ _%srcs127123%_) + (let ((_%compiled-path127125%_ (path-expand - _%ssi125990%_ - _%dir125975%_))) + _%ssi127122%_ + _%dir127107%_))) (if (##file-exists? - _%compiled-path125993%_) + _%compiled-path127125%_) (path-normalize - _%compiled-path125993%_) - (let _%lpr125995%_ ((_%rest-src125997%_ - _%srcs125991%_)) - (let* ((_%rest-src125998126006%_ - _%rest-src125997%_) - (_%else126000126014%_ + _%compiled-path127125%_) + (let _%lpr127127%_ ((_%rest-src127129%_ + _%srcs127123%_)) + (let* ((_%rest-src127130127138%_ + _%rest-src127129%_) + (_%else127132127146%_ (lambda () - (_%lp125947%_ - _%rest125974%_))) - (_%K126002126022%_ - (lambda (_%rest-src126017%_ - _%src126018%_) - (let ((_%src-path126020%_ + (_%lp127079%_ + _%rest127106%_))) + (_%K127134127154%_ + (lambda (_%rest-src127149%_ + _%src127150%_) + (let ((_%src-path127152%_ (path-expand - _%src126018%_ - _%dir125975%_))) + _%src127150%_ + _%dir127107%_))) (if (##file-exists? - _%src-path126020%_) + _%src-path127152%_) (path-normalize - _%src-path126020%_) - (_%lpr125995%_ - _%rest-src126017%_)))))) - (if (##pair? _%rest-src125998126006%_) - (let ((_%hd126003126025%_ - (##car _%rest-src125998126006%_)) - (_%tl126004126027%_ - (##cdr _%rest-src125998126006%_))) - (let* ((_%src126030%_ - _%hd126003126025%_) - (_%rest-src126032%_ - _%tl126004126027%_)) - (_%K126002126022%_ - _%rest-src126032%_ - _%src126030%_))) - (_%else126000126014%_))))))))) - (let ((_%$e125979%_ + _%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%_ (gx#core-library-package-path-prefix - _%dir125975%_))) - (if _%$e125979%_ - ((lambda (_%prefix125982%_) + _%dir127107%_))) + (if _%$e127111%_ + ((lambda (_%prefix127114%_) (if (string-prefix? - _%prefix125982%_ - _%spath125936%_) - (let ((_%ssi125986%_ + _%prefix127114%_ + _%spath127068%_) + (let ((_%ssi127118%_ (substring - _%ssi125940%_ - (string-length _%prefix125982%_) - (##string-length _%ssi125940%_))) - (_%srcs125987%_ - (##map (lambda (_%src125984%_) + _%ssi127072%_ + (string-length _%prefix127114%_) + (##string-length _%ssi127072%_))) + (_%srcs127119%_ + (##map (lambda (_%src127116%_) (substring - _%src125984%_ + _%src127116%_ (string-length - _%prefix125982%_) + _%prefix127114%_) (string-length - _%src125984%_))) - _%srcs125944%_))) - (_%resolve125977%_ - _%ssi125986%_ - _%srcs125987%_)) - (_%lp125947%_ _%rest125974%_))) - _%$e125979%_) - (_%resolve125977%_ - _%ssi125940%_ - _%srcs125944%_)))))) - (_%K125954125968%_ + _%src127116%_))) + _%srcs127076%_))) + (_%resolve127109%_ + _%ssi127118%_ + _%srcs127119%_)) + (_%lp127079%_ _%rest127106%_))) + _%$e127111%_) + (_%resolve127109%_ + _%ssi127072%_ + _%srcs127076%_)))))) + (_%K127086127100%_ (lambda () (gx#raise-syntax-error '#f '"cannot find library module" - _%libpath125932%_)))) - (let ((_%try-match125952125971%_ + _%libpath127064%_)))) + (let ((_%try-match127084127103%_ (lambda () - (if (##null? _%rest125950125959%_) - (_%K125954125968%_) - (_%E125953125963%_))))) - (if (##pair? _%rest125950125959%_) - (let ((_%tl125957126039%_ (##cdr _%rest125950125959%_)) - (_%hd125956126037%_ (##car _%rest125950125959%_))) - (let ((_%dir126042%_ _%hd125956126037%_) - (_%rest126044%_ _%tl125957126039%_)) - (_%K125955126034%_ _%rest126044%_ _%dir126042%_))) - (_%try-match125952125971%_))))))))) + (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%_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_%modpath125900%_) - (letrec ((_%resolve125902%_ - (lambda (_%path125923%_ _%base125924%_) - (let ((_%$e125926%_ - (string-rindex__0 _%base125924%_ '#\/))) - (if _%$e125926%_ - ((lambda (_%idx125929%_) + (lambda (_%modpath127032%_) + (letrec ((_%resolve127034%_ + (lambda (_%path127055%_ _%base127056%_) + (let ((_%$e127058%_ + (string-rindex__0 _%base127056%_ '#\/))) + (if _%$e127058%_ + ((lambda (_%idx127061%_) (gx#core-resolve-library-module-path (##string->symbol (string-append '":" - (substring _%base125924%_ '0 _%idx125929%_) + (substring _%base127056%_ '0 _%idx127061%_) '"/" - _%path125923%_)))) - _%$e125926%_) + _%path127055%_)))) + _%$e127058%_) (gx#core-resolve-library-module-path (##string->symbol - (string-append '":" _%path125923%_)))))))) - (let ((_%spath125904%_ (symbol->string (gx#stx-e _%modpath125900%_))) - (_%mod125905%_ + (string-append '":" _%path127055%_)))))))) + (let ((_%spath127036%_ (symbol->string (gx#stx-e _%modpath127032%_))) + (_%mod127037%_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _%mod125905%_ + (if _%mod127037%_ '#!void (gx#raise-syntax-error '#f '"cannot resolve relative module path; not in module context" - _%modpath125900%_)) - (let ((_%mpath125907%_ + _%modpath127032%_)) + (let ((_%mpath127039%_ (symbol->string (##structure-ref - _%mod125905%_ + _%mod127037%_ '1 gx#expander-context::t '#f)))) - (let _%lp125909%_ ((_%spath125911%_ _%spath125904%_) - (_%mpath125912%_ _%mpath125907%_)) - (if (string-prefix? '"../" _%spath125911%_) - (let ((_%$e125915%_ - (string-rindex__0 _%mpath125912%_ '#\/))) - (if _%$e125915%_ - ((lambda (_%idx125918%_) - (_%lp125909%_ + (let _%lp127041%_ ((_%spath127043%_ _%spath127036%_) + (_%mpath127044%_ _%mpath127039%_)) + (if (string-prefix? '"../" _%spath127043%_) + (let ((_%$e127047%_ + (string-rindex__0 _%mpath127044%_ '#\/))) + (if _%$e127047%_ + ((lambda (_%idx127050%_) + (_%lp127041%_ (substring - _%spath125911%_ + _%spath127043%_ '3 - (string-length _%spath125911%_)) - (substring _%mpath125912%_ '0 _%idx125918%_))) - _%$e125915%_) + (string-length _%spath127043%_)) + (substring _%mpath127044%_ '0 _%idx127050%_))) + _%$e127047%_) (gx#raise-syntax-error '#f '"cannot resolve relative module path; illegal traversal" - _%modpath125900%_))) - (if (string-prefix? '"./" _%spath125911%_) - (_%lp125909%_ + _%modpath127032%_))) + (if (string-prefix? '"./" _%spath127043%_) + (_%lp127041%_ (substring - _%spath125911%_ + _%spath127043%_ '2 - (string-length _%spath125911%_)) - _%mpath125912%_) - (_%resolve125902%_ - _%spath125911%_ - _%mpath125912%_))))))))) + (string-length _%spath127043%_)) + _%mpath127044%_) + (_%resolve127034%_ + _%spath127043%_ + _%mpath127044%_))))))))) (define gx#core-library-package-path-prefix - (lambda (_%dir125892%_) - (let ((_%$e125894%_ + (lambda (_%dir127024%_) + (let ((_%$e127026%_ (pgetq__0 'package: - (gx#core-library-package-plist__0 _%dir125892%_)))) - (if _%$e125894%_ - ((lambda (_%pkg125897%_) - (##string-append (symbol->string _%pkg125897%_) '"/")) - _%$e125894%_) + (gx#core-library-package-plist__0 _%dir127024%_)))) + (if _%$e127026%_ + ((lambda (_%pkg127029%_) + (##string-append (symbol->string _%pkg127029%_) '"/")) + _%$e127026%_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_%dir125862%_ _%exists?125863%_) - (let ((_%$e125865%_ (__hash-get gx#__module-pkg-cache _%dir125862%_))) - (if _%$e125865%_ - _%$e125865%_ - (let* ((_%gerbil.pkg125869%_ - (path-expand '"gerbil.pkg" _%dir125862%_)) - (_%plist125879%_ - (if (or _%exists?125863%_ - (##file-exists? _%gerbil.pkg125869%_)) - (let ((_%e125874%_ + (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%_ (gx#call-with-input-source-file - _%gerbil.pkg125869%_ + _%gerbil.pkg127001%_ read))) - (if (eof-object? _%e125874%_) + (if (eof-object? _%e127006%_) '() - (if (list? _%e125874%_) - _%e125874%_ + (if (list? _%e127006%_) + _%e127006%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%gerbil.pkg125869%_ - _%e125874%_)))) + _%gerbil.pkg127001%_ + _%e127006%_)))) '()))) (__hash-put! gx#__module-pkg-cache - _%dir125862%_ - _%plist125879%_) - _%plist125879%_))))) + _%dir126994%_ + _%plist127011%_) + _%plist127011%_))))) (define gx#core-library-package-plist__0 - (lambda (_%dir125885%_) - (let ((_%exists?125887%_ '#f)) - (gx#core-library-package-plist__% _%dir125885%_ _%exists?125887%_)))) + (lambda (_%dir127017%_) + (let ((_%exists?127019%_ '#f)) + (gx#core-library-package-plist__% _%dir127017%_ _%exists?127019%_)))) (define gx#core-library-package-plist - (lambda _g127699_ - (let ((_g127698_ (##length _g127699_))) - (cond ((##fx= _g127698_ 1) - (apply gx#core-library-package-plist__0 _g127699_)) - ((##fx= _g127698_ 2) - (apply gx#core-library-package-plist__% _g127699_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g127699_)))))) + _g128831_)))))) (define gx#core-library-module-path? - (lambda (_%stx125859%_) - (gx#core-special-module-path? _%stx125859%_ '#\:))) + (lambda (_%stx126991%_) + (gx#core-special-module-path? _%stx126991%_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_%stx125857%_) - (gx#core-special-module-path? _%stx125857%_ '#\.))) + (lambda (_%stx126989%_) + (gx#core-special-module-path? _%stx126989%_ '#\.))) (define gx#core-special-module-path? - (lambda (_%stx125852%_ _%char125853%_) - (if (gx#identifier? _%stx125852%_) - (if (interned-symbol? (gx#stx-e _%stx125852%_)) - (let ((_%str125855%_ - (symbol->string (gx#stx-e _%stx125852%_)))) - (if (##fx> (##string-length _%str125855%_) '1) - (eq? (string-ref _%str125855%_ '0) _%char125853%_) + (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%_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_%stx125846%_) + (lambda (_%stx126978%_) (gx#core-bound-identifier?__% - _%stx125846%_ - (lambda (_%g125847125849%_) - (gx#expander-binding?__% _%g125847125849%_ gx#prelude-context?))))) + _%stx126978%_ + (lambda (_%g126979126981%_) + (gx#expander-binding?__% _%g126979126981%_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_%stx125840%_) + (lambda (_%stx126972%_) (gx#core-bound-identifier?__% - _%stx125840%_ - (lambda (_%g125841125843%_) - (gx#expander-binding?__% _%g125841125843%_ gx#module-context?))))) + _%stx126972%_ + (lambda (_%g126973126975%_) + (gx#expander-binding?__% _%g126973126975%_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_%stx125827%_) - (letrec ((_%module-prelude?125829%_ - (lambda (_%e125835%_) - (let ((_%$e125837%_ + (lambda (_%stx126959%_) + (letrec ((_%module-prelude?126961%_ + (lambda (_%e126967%_) + (let ((_%$e126969%_ (##structure-instance-of? - _%e125835%_ + _%e126967%_ 'gx#module-context::t))) - (if _%$e125837%_ - _%$e125837%_ + (if _%$e126969%_ + _%$e126969%_ (##structure-instance-of? - _%e125835%_ + _%e126967%_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _%stx125827%_ - (lambda (_%g125830125832%_) + _%stx126959%_ + (lambda (_%g126962126964%_) (gx#expander-binding?__% - _%g125830125832%_ - _%module-prelude?125829%_)))))) + _%g126962126964%_ + _%module-prelude?126961%_)))))) (define gx#core-bind-import!__% - (lambda (_%in125757%_ _%ctx125758%_ _%force-weak?125759%_) - (let* ((_%in125760125769%_ _%in125757%_) - (_%E125762125773%_ + (lambda (_%in126889%_ _%ctx126890%_ _%force-weak?126891%_) + (let* ((_%in126892126901%_ _%in126889%_) + (_%E126894126905%_ (lambda () (error '"No clause matching" - _%in125760125769%_ + _%in126892126901%_ '((module-import source key phi weak?))) '#!void)) - (_%K125763125786%_ - (lambda (_%weak?125776%_ - _%phi125777%_ - _%key125778%_ - _%source125779%_) + (_%K126895126918%_ + (lambda (_%weak?126908%_ + _%phi126909%_ + _%key126910%_ + _%source126911%_) (gx#core-bind!__% - _%key125778%_ - (let ((_%e125781%_ - (gx#core-resolve-module-export _%source125779%_))) + _%key126910%_ + (let ((_%e126913%_ + (gx#core-resolve-module-export _%source126911%_))) (##structure gx#import-binding::t - (##unchecked-structure-ref _%e125781%_ '1 '#f '#f) - _%key125778%_ - _%phi125777%_ - _%e125781%_ - (##unchecked-structure-ref _%source125779%_ '1 '#f '#f) - (let ((_%$e125783%_ _%force-weak?125759%_)) - (if _%$e125783%_ _%$e125783%_ _%weak?125776%_)))) + (##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%_)))) gx#core-context-rebind? - _%phi125777%_ - _%ctx125758%_)))) + _%phi126909%_ + _%ctx126890%_)))) (if (##structure-direct-instance-of? - _%in125760125769%_ + _%in126892126901%_ 'gx#module-import::t) - (let* ((_%e125764125789%_ + (let* ((_%e126896126921%_ (##unchecked-structure-ref - _%in125760125769%_ + _%in126892126901%_ '1 '#f '#f)) - (_%source125792%_ _%e125764125789%_) - (_%e125765125794%_ + (_%source126924%_ _%e126896126921%_) + (_%e126897126926%_ (##unchecked-structure-ref - _%in125760125769%_ + _%in126892126901%_ '2 '#f '#f)) - (_%key125797%_ _%e125765125794%_) - (_%e125766125799%_ + (_%key126929%_ _%e126897126926%_) + (_%e126898126931%_ (##unchecked-structure-ref - _%in125760125769%_ + _%in126892126901%_ '3 '#f '#f)) - (_%phi125802%_ _%e125766125799%_) - (_%e125767125804%_ + (_%phi126934%_ _%e126898126931%_) + (_%e126899126936%_ (##unchecked-structure-ref - _%in125760125769%_ + _%in126892126901%_ '4 '#f '#f)) - (_%weak?125807%_ _%e125767125804%_)) - (_%K125763125786%_ - _%weak?125807%_ - _%phi125802%_ - _%key125797%_ - _%source125792%_)) - (_%E125762125773%_))))) + (_%weak?126939%_ _%e126899126936%_)) + (_%K126895126918%_ + _%weak?126939%_ + _%phi126934%_ + _%key126929%_ + _%source126924%_)) + (_%E126894126905%_))))) (define gx#core-bind-import!__0 - (lambda (_%in125812%_) - (let* ((_%ctx125814%_ (gx#current-expander-context)) - (_%force-weak?125816%_ '#f)) + (lambda (_%in126944%_) + (let* ((_%ctx126946%_ (gx#current-expander-context)) + (_%force-weak?126948%_ '#f)) (gx#core-bind-import!__% - _%in125812%_ - _%ctx125814%_ - _%force-weak?125816%_)))) + _%in126944%_ + _%ctx126946%_ + _%force-weak?126948%_)))) (define gx#core-bind-import!__1 - (lambda (_%in125818%_ _%ctx125819%_) - (let ((_%force-weak?125821%_ '#f)) + (lambda (_%in126950%_ _%ctx126951%_) + (let ((_%force-weak?126953%_ '#f)) (gx#core-bind-import!__% - _%in125818%_ - _%ctx125819%_ - _%force-weak?125821%_)))) + _%in126950%_ + _%ctx126951%_ + _%force-weak?126953%_)))) (define gx#core-bind-import! - (lambda _g127701_ - (let ((_g127700_ (##length _g127701_))) - (cond ((##fx= _g127700_ 1) (apply gx#core-bind-import!__0 _g127701_)) - ((##fx= _g127700_ 2) (apply gx#core-bind-import!__1 _g127701_)) - ((##fx= _g127700_ 3) (apply gx#core-bind-import!__% _g127701_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g127701_)))))) + _g128833_)))))) (define gx#core-bind-weak-import!__% - (lambda (_%in125743%_ _%ctx125744%_) - (gx#core-bind-import!__% _%in125743%_ _%ctx125744%_ '#t))) + (lambda (_%in126875%_ _%ctx126876%_) + (gx#core-bind-import!__% _%in126875%_ _%ctx126876%_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_%in125749%_) - (let ((_%ctx125751%_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _%in125749%_ _%ctx125751%_)))) + (lambda (_%in126881%_) + (let ((_%ctx126883%_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _%in126881%_ _%ctx126883%_)))) (define gx#core-bind-weak-import! - (lambda _g127703_ - (let ((_g127702_ (##length _g127703_))) - (cond ((##fx= _g127702_ 1) - (apply gx#core-bind-weak-import!__0 _g127703_)) - ((##fx= _g127702_ 2) - (apply gx#core-bind-weak-import!__% _g127703_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g127703_)))))) + _g128835_)))))) (define gx#core-resolve-module-export - (lambda (_%out125634%_) - (letrec ((_%subst125636%_ - (lambda (_%key125682%_) - (let* ((_%key125683125691%_ _%key125682%_) - (_%else125685125699%_ (lambda () _%key125682%_)) - (_%K125687125730%_ - (lambda (_%mark125702%_ _%id125703%_) - (let* ((_%mark125704125710%_ _%mark125702%_) - (_%E125706125714%_ + (lambda (_%out126766%_) + (letrec ((_%subst126768%_ + (lambda (_%key126814%_) + (let* ((_%key126815126823%_ _%key126814%_) + (_%else126817126831%_ (lambda () _%key126814%_)) + (_%K126819126862%_ + (lambda (_%mark126834%_ _%id126835%_) + (let* ((_%mark126836126842%_ _%mark126834%_) + (_%E126838126846%_ (lambda () (error '"No clause matching" - _%mark125704125710%_ + _%mark126836126842%_ '((expander-mark subst))) '#!void)) - (_%K125707125722%_ - (lambda (_%subst125717%_) - (let ((_%$e125719%_ - (if _%subst125717%_ + (_%K126839126854%_ + (lambda (_%subst126849%_) + (let ((_%$e126851%_ + (if _%subst126849%_ (hash-get - _%subst125717%_ - _%id125703%_) + _%subst126849%_ + _%id126835%_) '#f))) - (if _%$e125719%_ - _%$e125719%_ + (if _%$e126851%_ + _%$e126851%_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _%key125682%_)))))) + _%key126814%_)))))) (if (##structure-instance-of? - _%mark125704125710%_ + _%mark126836126842%_ 'gx#expander-mark::t) - (let* ((_%e125708125725%_ + (let* ((_%e126840126857%_ (##unchecked-structure-ref - _%mark125704125710%_ + _%mark126836126842%_ '1 '#f '#f)) - (_%subst125728%_ _%e125708125725%_)) - (_%K125707125722%_ _%subst125728%_)) - (_%E125706125714%_)))))) - (if (##pair? _%key125683125691%_) - (let ((_%hd125688125733%_ - (##car _%key125683125691%_)) - (_%tl125689125735%_ - (##cdr _%key125683125691%_))) - (let* ((_%id125738%_ _%hd125688125733%_) - (_%mark125740%_ _%tl125689125735%_)) - (_%K125687125730%_ _%mark125740%_ _%id125738%_))) - (_%else125685125699%_)))))) - (let* ((_%out125637125647%_ _%out125634%_) - (_%E125639125651%_ + (_%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%_ (lambda () (error '"No clause matching" - _%out125637125647%_ + _%out126769126779%_ '((module-export ctx key phi _ _))) '#!void)) - (_%K125640125658%_ - (lambda (_%phi125654%_ _%key125655%_ _%ctx125656%_) + (_%K126772126790%_ + (lambda (_%phi126786%_ _%key126787%_ _%ctx126788%_) (gx#core-context-resolve - (gx#core-context-shift _%ctx125656%_ _%phi125654%_) - (_%subst125636%_ _%key125655%_))))) + (gx#core-context-shift _%ctx126788%_ _%phi126786%_) + (_%subst126768%_ _%key126787%_))))) (if (##structure-direct-instance-of? - _%out125637125647%_ + _%out126769126779%_ 'gx#module-export::t) - (let* ((_%e125641125661%_ + (let* ((_%e126773126793%_ (##unchecked-structure-ref - _%out125637125647%_ + _%out126769126779%_ '1 '#f '#f)) - (_%ctx125664%_ _%e125641125661%_) - (_%e125642125666%_ + (_%ctx126796%_ _%e126773126793%_) + (_%e126774126798%_ (##unchecked-structure-ref - _%out125637125647%_ + _%out126769126779%_ '2 '#f '#f)) - (_%key125669%_ _%e125642125666%_) - (_%e125643125671%_ + (_%key126801%_ _%e126774126798%_) + (_%e126775126803%_ (##unchecked-structure-ref - _%out125637125647%_ + _%out126769126779%_ '3 '#f '#f)) - (_%phi125674%_ _%e125643125671%_) - (_%e125644125676%_ + (_%phi126806%_ _%e126775126803%_) + (_%e126776126808%_ (##unchecked-structure-ref - _%out125637125647%_ + _%out126769126779%_ '4 '#f '#f)) - (_%e125645125679%_ + (_%e126777126811%_ (##unchecked-structure-ref - _%out125637125647%_ + _%out126769126779%_ '5 '#f '#f))) - (_%K125640125658%_ - _%phi125674%_ - _%key125669%_ - _%ctx125664%_)) - (_%E125639125651%_)))))) + (_%K126772126790%_ + _%phi126806%_ + _%key126801%_ + _%ctx126796%_)) + (_%E126771126783%_)))))) (define gx#core-module-export->import__% - (lambda (_%out125559%_ _%rename125560%_ _%dphi125561%_) - (let* ((_%out125562125572%_ _%out125559%_) - (_%E125564125576%_ + (lambda (_%out126691%_ _%rename126692%_ _%dphi126693%_) + (let* ((_%out126694126704%_ _%out126691%_) + (_%E126696126708%_ (lambda () (error '"No clause matching" - _%out125562125572%_ + _%out126694126704%_ '((module-export ctx key phi name weak?))) '#!void)) - (_%K125565125588%_ - (lambda (_%weak?125579%_ - _%name125580%_ - _%phi125581%_ - _%key125582%_ - _%ctx125583%_) + (_%K126697126720%_ + (lambda (_%weak?126711%_ + _%name126712%_ + _%phi126713%_ + _%key126714%_ + _%ctx126715%_) (##structure gx#module-import::t - _%out125559%_ - (let ((_%$e125585%_ _%rename125560%_)) - (if _%$e125585%_ _%$e125585%_ _%name125580%_)) - (fx+ _%phi125581%_ _%dphi125561%_) - _%weak?125579%_)))) + _%out126691%_ + (let ((_%$e126717%_ _%rename126692%_)) + (if _%$e126717%_ _%$e126717%_ _%name126712%_)) + (fx+ _%phi126713%_ _%dphi126693%_) + _%weak?126711%_)))) (if (##structure-direct-instance-of? - _%out125562125572%_ + _%out126694126704%_ 'gx#module-export::t) - (let* ((_%e125566125591%_ + (let* ((_%e126698126723%_ (##unchecked-structure-ref - _%out125562125572%_ + _%out126694126704%_ '1 '#f '#f)) - (_%ctx125594%_ _%e125566125591%_) - (_%e125567125596%_ + (_%ctx126726%_ _%e126698126723%_) + (_%e126699126728%_ (##unchecked-structure-ref - _%out125562125572%_ + _%out126694126704%_ '2 '#f '#f)) - (_%key125599%_ _%e125567125596%_) - (_%e125568125601%_ + (_%key126731%_ _%e126699126728%_) + (_%e126700126733%_ (##unchecked-structure-ref - _%out125562125572%_ + _%out126694126704%_ '3 '#f '#f)) - (_%phi125604%_ _%e125568125601%_) - (_%e125569125606%_ + (_%phi126736%_ _%e126700126733%_) + (_%e126701126738%_ (##unchecked-structure-ref - _%out125562125572%_ + _%out126694126704%_ '4 '#f '#f)) - (_%name125609%_ _%e125569125606%_) - (_%e125570125611%_ + (_%name126741%_ _%e126701126738%_) + (_%e126702126743%_ (##unchecked-structure-ref - _%out125562125572%_ + _%out126694126704%_ '5 '#f '#f)) - (_%weak?125614%_ _%e125570125611%_)) - (_%K125565125588%_ - _%weak?125614%_ - _%name125609%_ - _%phi125604%_ - _%key125599%_ - _%ctx125594%_)) - (_%E125564125576%_))))) + (_%weak?126746%_ _%e126702126743%_)) + (_%K126697126720%_ + _%weak?126746%_ + _%name126741%_ + _%phi126736%_ + _%key126731%_ + _%ctx126726%_)) + (_%E126696126708%_))))) (define gx#core-module-export->import__0 - (lambda (_%out125619%_) - (let* ((_%rename125621%_ '#f) (_%dphi125623%_ '0)) + (lambda (_%out126751%_) + (let* ((_%rename126753%_ '#f) (_%dphi126755%_ '0)) (gx#core-module-export->import__% - _%out125619%_ - _%rename125621%_ - _%dphi125623%_)))) + _%out126751%_ + _%rename126753%_ + _%dphi126755%_)))) (define gx#core-module-export->import__1 - (lambda (_%out125625%_ _%rename125626%_) - (let ((_%dphi125628%_ '0)) + (lambda (_%out126757%_ _%rename126758%_) + (let ((_%dphi126760%_ '0)) (gx#core-module-export->import__% - _%out125625%_ - _%rename125626%_ - _%dphi125628%_)))) + _%out126757%_ + _%rename126758%_ + _%dphi126760%_)))) (define gx#core-module-export->import - (lambda _g127705_ - (let ((_g127704_ (##length _g127705_))) - (cond ((##fx= _g127704_ 1) - (apply gx#core-module-export->import__0 _g127705_)) - ((##fx= _g127704_ 2) - (apply gx#core-module-export->import__1 _g127705_)) - ((##fx= _g127704_ 3) - (apply gx#core-module-export->import__% _g127705_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g127705_)))))) + _g128837_)))))) (define gx#core-expand-module% - (lambda (_%stx125458%_) - (letrec ((_%make-context125460%_ - (lambda (_%id125537%_) - (let* ((_%super125539%_ (gx#current-expander-context)) - (_%bind-id125541%_ (gx#stx-e _%id125537%_)) - (_%mod-id125543%_ + (lambda (_%stx126590%_) + (letrec ((_%make-context126592%_ + (lambda (_%id126669%_) + (let* ((_%super126671%_ (gx#current-expander-context)) + (_%bind-id126673%_ (gx#stx-e _%id126669%_)) + (_%mod-id126675%_ (if (##structure-instance-of? - _%super125539%_ + _%super126671%_ 'gx#module-context::t) (make-symbol__1 (##unchecked-structure-ref - _%super125539%_ + _%super126671%_ '1 '#f '#f) '"~" - _%bind-id125541%_) - _%bind-id125541%_)) - (_%ns125545%_ (symbol->string _%mod-id125543%_)) - (_%path125555%_ + _%bind-id126673%_) + _%bind-id126673%_)) + (_%ns126677%_ (symbol->string _%mod-id126675%_)) + (_%path126687%_ (if (##structure-instance-of? - _%super125539%_ + _%super126671%_ 'gx#module-context::t) - (let ((_%path125547%_ + (let ((_%path126679%_ (##unchecked-structure-ref - _%super125539%_ + _%super126671%_ '7 '#f '#f))) - (if (or (pair? _%path125547%_) - (null? _%path125547%_)) - (cons _%bind-id125541%_ _%path125547%_) - (if (not _%path125547%_) - _%bind-id125541%_ - (cons _%bind-id125541%_ - (cons _%path125547%_ '()))))) - _%bind-id125541%_)) - (__obj127681 + (if (or (pair? _%path126679%_) + (null? _%path126679%_)) + (cons _%bind-id126673%_ _%path126679%_) + (if (not _%path126679%_) + _%bind-id126673%_ + (cons _%bind-id126673%_ + (cons _%path126679%_ '()))))) + _%bind-id126673%_)) + (__obj128813 (##structure gx#module-context::t '#f @@ -2179,702 +2179,702 @@ '#f '#f))) (gx#module-context:::init! - __obj127681 - _%mod-id125543%_ - _%super125539%_ - _%ns125545%_ - _%path125555%_) - __obj127681))) - (_%valid-module-id?125461%_ - (lambda (_%id125512%_) - (let* ((_%str125514%_ (symbol->string _%id125512%_)) - (_%len125516%_ (##string-length _%str125514%_))) - (if (##fx>= _%len125516%_ '1) - (let _%loop125519%_ ((_%index125521%_ + __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%_ (##fx- (##string-length - _%str125514%_) + _%str126646%_) '1))) - (if (##fx>= _%index125521%_ '0) - (let ((_%c125523%_ + (if (##fx>= _%index126653%_ '0) + (let ((_%c126655%_ (string-ref - _%str125514%_ - _%index125521%_))) - (if (or (and (##char>=? _%c125523%_ '#\a) - (##char<=? _%c125523%_ '#\z)) - (and (##char>=? _%c125523%_ '#\A) - (##char<=? _%c125523%_ '#\Z)) - (and (##char>=? _%c125523%_ '#\0) - (##char<=? _%c125523%_ '#\9)) - (##char=? _%c125523%_ '#\_) - (##char=? _%c125523%_ '#\-)) - (_%loop125519%_ - (##fx- _%index125521%_ '1)) + _%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)) '#f)) '#t)) '#f))))) - (let* ((_%e125462125472%_ _%stx125458%_) - (_%E125464125476%_ + (let* ((_%e126594126604%_ _%stx126590%_) + (_%E126596126608%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125462125472%_))) - (_%E125463125508%_ + _%e126594126604%_))) + (_%E126595126640%_ (lambda () - (if (gx#stx-pair? _%e125462125472%_) - (let ((_%e125465125480%_ - (gx#syntax-e _%e125462125472%_))) - (let ((_%hd125466125483%_ (##car _%e125465125480%_)) - (_%tl125467125485%_ (##cdr _%e125465125480%_))) - (if (gx#stx-pair? _%tl125467125485%_) - (let ((_%e125468125488%_ - (gx#syntax-e _%tl125467125485%_))) - (let ((_%hd125469125491%_ - (##car _%e125468125488%_)) - (_%tl125470125493%_ - (##cdr _%e125468125488%_))) - (let* ((_%id125496%_ _%hd125469125491%_) - (_%body125498%_ _%tl125470125493%_)) - (if (and (gx#identifier? _%id125496%_) - (gx#stx-list? _%body125498%_)) - (if (_%valid-module-id?125461%_ + (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%_ (gx#stx-e (gx#datum->syntax__0 '#f 'id))) - (let* ((_%ctx125500%_ - (_%make-context125460%_ - _%id125496%_)) - (_%body125502%_ + (let* ((_%ctx126632%_ + (_%make-context126592%_ + _%id126628%_)) + (_%body126634%_ (gx#core-expand-module-begin - _%body125498%_ - _%ctx125500%_)) - (_%body125504%_ + _%body126630%_ + _%ctx126632%_)) + (_%body126636%_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body125502%_) + _%body126634%_) (gx#stx-source - _%stx125458%_)))) + _%stx126590%_)))) (##unchecked-structure-set! - _%ctx125500%_ + _%ctx126632%_ (__make-promise (lambda () (gx#eval-syntax* - _%body125504%_))) + _%body126636%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx125500%_ - _%body125504%_ + _%ctx126632%_ + _%body126636%_ '11 '#f '#f) (gx#core-bind-syntax!__0 - _%id125496%_ - _%ctx125500%_) + _%id126628%_ + _%ctx126632%_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _%id125496%_) - _%body125504%_) + _%id126628%_) + _%body126636%_) (gx#stx-source - _%stx125458%_))) + _%stx126590%_))) (gx#raise-syntax-error '#f '"invalid module id; allowed characters are A-Z,a-z,0-9,_,-" - _%stx125458%_ + _%stx126590%_ (gx#datum->syntax__0 '#f 'id))) - (_%E125464125476%_))))) - (_%E125464125476%_)))) - (_%E125464125476%_))))) - (_%E125463125508%_))))) + (_%E126596126608%_))))) + (_%E126596126608%_)))) + (_%E126596126608%_))))) + (_%E126595126640%_))))) (define gx#core-expand-module-begin - (lambda (_%body125424%_ _%ctx125425%_) + (lambda (_%body126556%_ _%ctx126557%_) (__call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_%stx125428%_ - (gx#core-expand-head (cons '%%begin-module _%body125424%_))) - (_%e125429125436%_ _%stx125428%_) - (_%E125431125440%_ + (let* ((_%stx126560%_ + (gx#core-expand-head (cons '%%begin-module _%body126556%_))) + (_%e126561126568%_ _%stx126560%_) + (_%E126563126572%_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _%stx125428%_))) - (_%E125430125454%_ + _%stx126560%_))) + (_%E126562126586%_ (lambda () - (if (gx#stx-pair? _%e125429125436%_) - (let ((_%e125432125444%_ - (gx#syntax-e _%e125429125436%_))) - (let ((_%hd125433125447%_ (##car _%e125432125444%_)) - (_%tl125434125449%_ - (##cdr _%e125432125444%_))) - (if (and (gx#identifier? _%hd125433125447%_) + (if (gx#stx-pair? _%e126561126568%_) + (let ((_%e126564126576%_ + (gx#syntax-e _%e126561126568%_))) + (let ((_%hd126565126579%_ (##car _%e126564126576%_)) + (_%tl126566126581%_ + (##cdr _%e126564126576%_))) + (if (and (gx#identifier? _%hd126565126579%_) (gx#core-identifier=? - _%hd125433125447%_ + _%hd126565126579%_ '%#begin-module)) - (let ((_%body125452%_ _%tl125434125449%_)) - (if (gx#sealed-syntax? _%stx125428%_) - _%body125452%_ + (let ((_%body126584%_ _%tl126566126581%_)) + (if (gx#sealed-syntax? _%stx126560%_) + _%body126584%_ (gx#core-expand-module-body - _%body125452%_))) - (_%E125431125440%_)))) - (_%E125431125440%_))))) - (_%E125430125454%_))) + _%body126584%_))) + (_%E126563126572%_)))) + (_%E126563126572%_))))) + (_%E126562126586%_))) gx#current-expander-context - _%ctx125425%_ + _%ctx126557%_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_%body125220%_) - (letrec ((_%expand-special125222%_ - (lambda (_%hd125351%_ _%K125352%_ _%rest125353%_ _%r125354%_) - (let* ((_%e125355125372%_ _%hd125351%_) - (_%E125367125376%_ + (lambda (_%body126352%_) + (letrec ((_%expand-special126354%_ + (lambda (_%hd126483%_ _%K126484%_ _%rest126485%_ _%r126486%_) + (let* ((_%e126487126504%_ _%hd126483%_) + (_%E126499126508%_ (lambda () - (_%K125352%_ - _%rest125353%_ - (cons (gx#core-expand-top _%hd125351%_) - _%r125354%_)))) - (_%E125357125388%_ + (_%K126484%_ + _%rest126485%_ + (cons (gx#core-expand-top _%hd126483%_) + _%r126486%_)))) + (_%E126489126520%_ (lambda () - (if (gx#stx-pair? _%e125355125372%_) - (let ((_%e125368125380%_ - (gx#syntax-e _%e125355125372%_))) - (let ((_%hd125369125383%_ - (##car _%e125368125380%_)) - (_%tl125370125385%_ - (##cdr _%e125368125380%_))) + (if (gx#stx-pair? _%e126487126504%_) + (let ((_%e126500126512%_ + (gx#syntax-e _%e126487126504%_))) + (let ((_%hd126501126515%_ + (##car _%e126500126512%_)) + (_%tl126502126517%_ + (##cdr _%e126500126512%_))) (if (and (gx#identifier? - _%hd125369125383%_) + _%hd126501126515%_) (gx#core-identifier=? - _%hd125369125383%_ + _%hd126501126515%_ '%#export)) - (_%K125352%_ - _%rest125353%_ - (cons _%hd125351%_ _%r125354%_)) - (_%E125367125376%_)))) - (_%E125367125376%_)))) - (_%E125356125420%_ + (_%K126484%_ + _%rest126485%_ + (cons _%hd126483%_ _%r126486%_)) + (_%E126499126508%_)))) + (_%E126499126508%_)))) + (_%E126488126552%_ (lambda () - (if (gx#stx-pair? _%e125355125372%_) - (let ((_%e125358125392%_ - (gx#syntax-e _%e125355125372%_))) - (let ((_%hd125359125395%_ - (##car _%e125358125392%_)) - (_%tl125360125397%_ - (##cdr _%e125358125392%_))) + (if (gx#stx-pair? _%e126487126504%_) + (let ((_%e126490126524%_ + (gx#syntax-e _%e126487126504%_))) + (let ((_%hd126491126527%_ + (##car _%e126490126524%_)) + (_%tl126492126529%_ + (##cdr _%e126490126524%_))) (if (and (gx#identifier? - _%hd125359125395%_) + _%hd126491126527%_) (gx#core-identifier=? - _%hd125359125395%_ + _%hd126491126527%_ '%#define-values)) - (if (gx#stx-pair? _%tl125360125397%_) - (let ((_%e125361125400%_ + (if (gx#stx-pair? _%tl126492126529%_) + (let ((_%e126493126532%_ (gx#syntax-e - _%tl125360125397%_))) - (let ((_%hd125362125403%_ - (##car _%e125361125400%_)) - (_%tl125363125405%_ - (##cdr _%e125361125400%_))) - (let ((_%hd-bind125408%_ - _%hd125362125403%_)) + _%tl126492126529%_))) + (let ((_%hd126494126535%_ + (##car _%e126493126532%_)) + (_%tl126495126537%_ + (##cdr _%e126493126532%_))) + (let ((_%hd-bind126540%_ + _%hd126494126535%_)) (if (gx#stx-pair? - _%tl125363125405%_) - (let ((_%e125364125410%_ + _%tl126495126537%_) + (let ((_%e126496126542%_ (gx#syntax-e - _%tl125363125405%_))) - (let ((_%hd125365125413%_ + _%tl126495126537%_))) + (let ((_%hd126497126545%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e125364125410%_)) - (_%tl125366125415%_ (##cdr _%e125364125410%_))) - (let ((_%expr125418%_ _%hd125365125413%_)) - (if (gx#stx-null? _%tl125366125415%_) - (if (gx#core-bind-values? _%hd-bind125408%_) + (##car _%e126496126542%_)) + (_%tl126498126547%_ (##cdr _%e126496126542%_))) + (let ((_%expr126550%_ _%hd126497126545%_)) + (if (gx#stx-null? _%tl126498126547%_) + (if (gx#core-bind-values? _%hd-bind126540%_) (begin - (gx#core-bind-values!__0 _%hd-bind125408%_) - (_%K125352%_ - _%rest125353%_ - (cons _%hd125351%_ _%r125354%_))) - (_%E125357125388%_)) - (_%E125357125388%_))))) - (_%E125357125388%_))))) + (gx#core-bind-values!__0 _%hd-bind126540%_) + (_%K126484%_ + _%rest126485%_ + (cons _%hd126483%_ _%r126486%_))) + (_%E126489126520%_)) + (_%E126489126520%_))))) + (_%E126489126520%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125357125388%_)) - (_%E125357125388%_)))) - (_%E125357125388%_))))) - (_%E125356125420%_)))) - (_%expand-body125223%_ - (lambda (_%rbody125225%_) - (let _%lp125227%_ ((_%rest125229%_ _%rbody125225%_) - (_%body125230%_ '())) - (let* ((_%rest125231125239%_ _%rest125229%_) - (_%else125233125247%_ (lambda () _%body125230%_)) - (_%K125235125339%_ - (lambda (_%rest125250%_ _%hd125251%_) - (let* ((_%e125252125273%_ _%hd125251%_) - (_%E125268125277%_ + (_%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%_ (lambda () - (_%lp125227%_ - _%rest125250%_ + (_%lp126359%_ + _%rest126382%_ (cons (gx#core-expand-expression - _%hd125251%_) - _%body125230%_)))) - (_%E125264125291%_ + _%hd126383%_) + _%body126362%_)))) + (_%E126396126423%_ (lambda () - (if (gx#stx-pair? _%e125252125273%_) - (let ((_%e125269125281%_ + (if (gx#stx-pair? _%e126384126405%_) + (let ((_%e126401126413%_ (gx#syntax-e - _%e125252125273%_))) - (let ((_%hd125270125284%_ - (##car _%e125269125281%_)) - (_%tl125271125286%_ - (##cdr _%e125269125281%_))) - (let ((_%form125289%_ - _%hd125270125284%_)) + _%e126384126405%_))) + (let ((_%hd126402126416%_ + (##car _%e126401126413%_)) + (_%tl126403126418%_ + (##cdr _%e126401126413%_))) + (let ((_%form126421%_ + _%hd126402126416%_)) (if (gx#core-bound-identifier?__% - _%form125289%_ + _%form126421%_ gx#special-form-binding?) - (_%lp125227%_ - _%rest125250%_ - (cons _%hd125251%_ - _%body125230%_)) - (_%E125268125277%_))))) - (_%E125268125277%_)))) - (_%E125254125303%_ + (_%lp126359%_ + _%rest126382%_ + (cons _%hd126383%_ + _%body126362%_)) + (_%E126400126409%_))))) + (_%E126400126409%_)))) + (_%E126386126435%_ (lambda () - (if (gx#stx-pair? _%e125252125273%_) - (let ((_%e125265125295%_ + (if (gx#stx-pair? _%e126384126405%_) + (let ((_%e126397126427%_ (gx#syntax-e - _%e125252125273%_))) - (let ((_%hd125266125298%_ - (##car _%e125265125295%_)) - (_%tl125267125300%_ - (##cdr _%e125265125295%_))) + _%e126384126405%_))) + (let ((_%hd126398126430%_ + (##car _%e126397126427%_)) + (_%tl126399126432%_ + (##cdr _%e126397126427%_))) (if (and (gx#identifier? - _%hd125266125298%_) + _%hd126398126430%_) (gx#core-identifier=? - _%hd125266125298%_ + _%hd126398126430%_ '%#export)) - (_%lp125227%_ - _%rest125250%_ + (_%lp126359%_ + _%rest126382%_ (cons (gx#core-expand-export%__0 - _%hd125251%_) - _%body125230%_)) - (_%E125264125291%_)))) - (_%E125264125291%_)))) - (_%E125253125335%_ + _%hd126383%_) + _%body126362%_)) + (_%E126396126423%_)))) + (_%E126396126423%_)))) + (_%E126385126467%_ (lambda () - (if (gx#stx-pair? _%e125252125273%_) - (let ((_%e125255125307%_ + (if (gx#stx-pair? _%e126384126405%_) + (let ((_%e126387126439%_ (gx#syntax-e - _%e125252125273%_))) - (let ((_%hd125256125310%_ - (##car _%e125255125307%_)) - (_%tl125257125312%_ - (##cdr _%e125255125307%_))) + _%e126384126405%_))) + (let ((_%hd126388126442%_ + (##car _%e126387126439%_)) + (_%tl126389126444%_ + (##cdr _%e126387126439%_))) (if (and (gx#identifier? - _%hd125256125310%_) + _%hd126388126442%_) (gx#core-identifier=? - _%hd125256125310%_ + _%hd126388126442%_ '%#define-values)) (if (gx#stx-pair? - _%tl125257125312%_) - (let ((_%e125258125315%_ + _%tl126389126444%_) + (let ((_%e126390126447%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl125257125312%_))) - (let ((_%hd125259125318%_ (##car _%e125258125315%_)) - (_%tl125260125320%_ (##cdr _%e125258125315%_))) - (let ((_%hd-bind125323%_ _%hd125259125318%_)) - (if (gx#stx-pair? _%tl125260125320%_) - (let ((_%e125261125325%_ - (gx#syntax-e _%tl125260125320%_))) - (let ((_%hd125262125328%_ - (##car _%e125261125325%_)) - (_%tl125263125330%_ - (##cdr _%e125261125325%_))) - (let ((_%expr125333%_ _%hd125262125328%_)) - (if (gx#stx-null? _%tl125263125330%_) - (_%lp125227%_ - _%rest125250%_ + (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%_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _%hd-bind125323%_) + _%hd-bind126455%_) (gx#core-expand-expression - _%expr125333%_)) - (gx#stx-source _%hd125251%_)) - _%body125230%_)) - (_%E125254125303%_))))) - (_%E125254125303%_))))) - (_%E125254125303%_)) - (_%E125254125303%_)))) + _%expr126465%_)) + (gx#stx-source _%hd126383%_)) + _%body126362%_)) + (_%E126386126435%_))))) + (_%E126386126435%_))))) + (_%E126386126435%_)) + (_%E126386126435%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125254125303%_))))) - (_%E125253125335%_))))) - (if (##pair? _%rest125231125239%_) - (let ((_%hd125236125342%_ - (##car _%rest125231125239%_)) - (_%tl125237125344%_ - (##cdr _%rest125231125239%_))) - (let* ((_%hd125347%_ _%hd125236125342%_) - (_%rest125349%_ _%tl125237125344%_)) - (_%K125235125339%_ - _%rest125349%_ - _%hd125347%_))) - (_%else125233125247%_))))))) - (_%expand-body125223%_ + (_%E126386126435%_))))) + (_%E126385126467%_))))) + (if (pair? _%rest126363126371%_) + (let ((_%hd126368126474%_ + (##car _%rest126363126371%_)) + (_%tl126369126476%_ + (##cdr _%rest126363126371%_))) + (let* ((_%hd126479%_ _%hd126368126474%_) + (_%rest126481%_ _%tl126369126476%_)) + (_%K126367126471%_ + _%rest126481%_ + _%hd126479%_))) + (_%else126365126379%_))))))) + (_%expand-body126355%_ (gx#core-expand-block__% - (cons '%#begin-module _%body125220%_) - _%expand-special125222%_ + (cons '%#begin-module _%body126352%_) + _%expand-special126354%_ '#f values))))) (define gx#core-expand-import/export - (lambda (_%stx125061%_ - _%expanded?125062%_ - _%method125063%_ - _%current-phi125064%_ - _%expand1125065%_) - (letrec ((_%K125067%_ - (lambda (_%rest125187%_ _%r125188%_) - (let* ((_%e125189125196%_ _%rest125187%_) - (_%E125191125200%_ (lambda () _%r125188%_)) - (_%E125190125216%_ + (lambda (_%stx126193%_ + _%expanded?126194%_ + _%method126195%_ + _%current-phi126196%_ + _%expand1126197%_) + (letrec ((_%K126199%_ + (lambda (_%rest126319%_ _%r126320%_) + (let* ((_%e126321126328%_ _%rest126319%_) + (_%E126323126332%_ (lambda () _%r126320%_)) + (_%E126322126348%_ (lambda () - (if (gx#stx-pair? _%e125189125196%_) - (let ((_%e125192125204%_ - (gx#syntax-e _%e125189125196%_))) - (let ((_%hd125193125207%_ - (##car _%e125192125204%_)) - (_%tl125194125209%_ - (##cdr _%e125192125204%_))) - (let* ((_%hd125212%_ _%hd125193125207%_) - (_%rest125214%_ - _%tl125194125209%_)) - (_%step125068%_ - _%hd125212%_ - _%rest125214%_ - _%r125188%_)))) - (_%E125191125200%_))))) - (_%E125190125216%_)))) - (_%step125068%_ - (lambda (_%hd125101%_ _%rest125102%_ _%r125103%_) - (let* ((_%e125104125122%_ _%hd125101%_) - (_%E125117125126%_ + (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%_ (lambda () - (if (_%expanded?125062%_ (gx#stx-e _%hd125101%_)) - (_%K125067%_ - _%rest125102%_ - (cons (gx#stx-e _%hd125101%_) _%r125103%_)) - (_%expand1125065%_ - _%hd125101%_ - _%K125067%_ - _%rest125102%_ - _%r125103%_)))) - (_%E125113125142%_ + (if (_%expanded?126194%_ (gx#stx-e _%hd126233%_)) + (_%K126199%_ + _%rest126234%_ + (cons (gx#stx-e _%hd126233%_) _%r126235%_)) + (_%expand1126197%_ + _%hd126233%_ + _%K126199%_ + _%rest126234%_ + _%r126235%_)))) + (_%E126245126274%_ (lambda () - (if (gx#stx-pair? _%e125104125122%_) - (let ((_%e125118125130%_ - (gx#syntax-e _%e125104125122%_))) - (let ((_%hd125119125133%_ - (##car _%e125118125130%_)) - (_%tl125120125135%_ - (##cdr _%e125118125130%_))) - (let* ((_%macro125138%_ - _%hd125119125133%_) - (_%body125140%_ - _%tl125120125135%_)) + (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#core-bound-identifier?__% - _%macro125138%_ + _%macro126270%_ gx#syntax-binding?) - (_%K125067%_ + (_%K126199%_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _%macro125138%_) - _%hd125101%_ - _%method125063%_) - _%rest125102%_) - _%r125103%_) - (_%E125117125126%_))))) - (_%E125117125126%_)))) - (_%E125106125156%_ + _%macro126270%_) + _%hd126233%_ + _%method126195%_) + _%rest126234%_) + _%r126235%_) + (_%E126249126258%_))))) + (_%E126249126258%_)))) + (_%E126238126288%_ (lambda () - (if (gx#stx-pair? _%e125104125122%_) - (let ((_%e125114125146%_ - (gx#syntax-e _%e125104125122%_))) - (let ((_%hd125115125149%_ - (##car _%e125114125146%_)) - (_%tl125116125151%_ - (##cdr _%e125114125146%_))) - (if (eq? (gx#stx-e _%hd125115125149%_) + (if (gx#stx-pair? _%e126236126254%_) + (let ((_%e126246126278%_ + (gx#syntax-e _%e126236126254%_))) + (let ((_%hd126247126281%_ + (##car _%e126246126278%_)) + (_%tl126248126283%_ + (##cdr _%e126246126278%_))) + (if (eq? (gx#stx-e _%hd126247126281%_) 'begin:) - (let ((_%body125154%_ - _%tl125116125151%_)) - (_%K125067%_ + (let ((_%body126286%_ + _%tl126248126283%_)) + (_%K126199%_ (gx#stx-foldr cons - _%rest125102%_ - _%body125154%_) - _%r125103%_)) - (_%E125113125142%_)))) - (_%E125113125142%_)))) - (_%E125105125183%_ + _%rest126234%_ + _%body126286%_) + _%r126235%_)) + (_%E126245126274%_)))) + (_%E126245126274%_)))) + (_%E126237126315%_ (lambda () - (if (gx#stx-pair? _%e125104125122%_) - (let ((_%e125107125160%_ - (gx#syntax-e _%e125104125122%_))) - (let ((_%hd125108125163%_ - (##car _%e125107125160%_)) - (_%tl125109125165%_ - (##cdr _%e125107125160%_))) - (if (eq? (gx#stx-e _%hd125108125163%_) + (if (gx#stx-pair? _%e126236126254%_) + (let ((_%e126239126292%_ + (gx#syntax-e _%e126236126254%_))) + (let ((_%hd126240126295%_ + (##car _%e126239126292%_)) + (_%tl126241126297%_ + (##cdr _%e126239126292%_))) + (if (eq? (gx#stx-e _%hd126240126295%_) 'phi:) - (if (gx#stx-pair? _%tl125109125165%_) - (let ((_%e125110125168%_ + (if (gx#stx-pair? _%tl126241126297%_) + (let ((_%e126242126300%_ (gx#syntax-e - _%tl125109125165%_))) - (let ((_%hd125111125171%_ - (##car _%e125110125168%_)) - (_%tl125112125173%_ - (##cdr _%e125110125168%_))) - (let* ((_%dphi125176%_ - _%hd125111125171%_) - (_%body125178%_ - _%tl125112125173%_)) + _%tl126241126297%_))) + (let ((_%hd126243126303%_ + (##car _%e126242126300%_)) + (_%tl126244126305%_ + (##cdr _%e126242126300%_))) + (let* ((_%dphi126308%_ + _%hd126243126303%_) + (_%body126310%_ + _%tl126244126305%_)) (if (gx#stx-fixnum? - _%dphi125176%_) - (let ((_%rbody125181%_ + _%dphi126308%_) + (let ((_%rbody126313%_ (__call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%K125067%_ _%body125178%_ '())) - _%current-phi125064%_ - (fx+ (gx#stx-e _%dphi125176%_) - (_%current-phi125064%_))))) - (_%K125067%_ - _%rest125102%_ - (__foldr1 cons _%r125103%_ _%rbody125181%_))) - (_%E125106125156%_))))) + (_%K126199%_ _%body126310%_ '())) + _%current-phi126196%_ + (fx+ (gx#stx-e _%dphi126308%_) + (_%current-phi126196%_))))) + (_%K126199%_ + _%rest126234%_ + (__foldr1 cons _%r126235%_ _%rbody126313%_))) + (_%E126238126288%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125106125156%_)) - (_%E125106125156%_)))) - (_%E125106125156%_))))) - (_%E125105125183%_))))) - (let* ((_%e125069125076%_ _%stx125061%_) - (_%E125071125080%_ + (_%E126238126288%_)) + (_%E126238126288%_)))) + (_%E126238126288%_))))) + (_%E126237126315%_))))) + (let* ((_%e126201126208%_ _%stx126193%_) + (_%E126203126212%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125069125076%_))) - (_%E125070125097%_ + _%e126201126208%_))) + (_%E126202126229%_ (lambda () - (if (gx#stx-pair? _%e125069125076%_) - (let ((_%e125072125084%_ - (gx#syntax-e _%e125069125076%_))) - (let ((_%hd125073125087%_ (##car _%e125072125084%_)) - (_%tl125074125089%_ (##cdr _%e125072125084%_))) - (let ((_%body125092%_ _%tl125074125089%_)) - (if (_%current-phi125064%_) - (_%K125067%_ _%body125092%_ '()) + (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%_ '()) (__call-with-parameters - (lambda () (_%K125067%_ _%body125092%_ '())) - _%current-phi125064%_ + (lambda () (_%K126199%_ _%body126224%_ '())) + _%current-phi126196%_ (gx#current-expander-phi)))))) - (_%E125071125080%_))))) - (_%E125070125097%_))))) + (_%E126203126212%_))))) + (_%E126202126229%_))))) (define gx#core-expand-import%__% - (lambda (_%stx124715%_ _%internal-expand?124716%_) - (letrec ((_%expand1124718%_ - (lambda (_%hd125033%_ _%K125034%_ _%rest125035%_ _%r125036%_) - (if (gx#core-bound-module? _%hd125033%_) - (_%import1124719%_ - (gx#syntax-local-e__0 _%hd125033%_) - _%K125034%_ - _%rest125035%_ - _%r125036%_) - (if (gx#core-library-module-path? _%hd125033%_) - (_%import1124719%_ + (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%_ (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd125033%_)) - _%K125034%_ - _%rest125035%_ - _%r125036%_) + _%hd126165%_)) + _%K126166%_ + _%rest126167%_ + _%r126168%_) (if (gx#core-library-relative-module-path? - _%hd125033%_) - (_%import1124719%_ + _%hd126165%_) + (_%import1125851%_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd125033%_)) - _%K125034%_ - _%rest125035%_ - _%r125036%_) - (let ((_%e125042%_ (gx#stx-e _%hd125033%_))) - (if (pair? _%e125042%_) - (let ((_%$e125045%_ - (gx#stx-e (##car _%e125042%_)))) - (if (eq? 'spec: _%$e125045%_) - (_%import-spec124722%_ - _%hd125033%_ - _%K125034%_ - _%rest125035%_ - _%r125036%_) - (if (eq? 'in: _%$e125045%_) - (_%import-submodule124720%_ - _%hd125033%_ - _%K125034%_ - _%rest125035%_ - _%r125036%_) + _%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%_) (if (eq? 'runtime: - _%$e125045%_) - (_%import-runtime124721%_ - _%hd125033%_ - _%K125034%_ - _%rest125035%_ - _%r125036%_) + _%$e126177%_) + (_%import-runtime125853%_ + _%hd126165%_ + _%K126166%_ + _%rest126167%_ + _%r126168%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx124715%_ - _%hd125033%_))))) - (if (string? _%e125042%_) - (_%import1124719%_ + _%stx125847%_ + _%hd126165%_))))) + (if (string? _%e126174%_) + (_%import1125851%_ (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd125033%_ - (gx#stx-source _%stx124715%_))) - _%K125034%_ - _%rest125035%_ - _%r125036%_) + _%hd126165%_ + (gx#stx-source _%stx125847%_))) + _%K126166%_ + _%rest126167%_ + _%r126168%_) (if (##structure-instance-of? - _%e125042%_ + _%e126174%_ 'gx#module-context::t) - (_%K125034%_ - _%rest125035%_ - (cons _%e125042%_ _%r125036%_)) + (_%K126166%_ + _%rest126167%_ + (cons _%e126174%_ _%r126168%_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx124715%_ - _%hd125033%_)))))))))) - (_%import1124719%_ - (lambda (_%ctx125022%_ - _%K125023%_ - _%rest125024%_ - _%r125025%_) - (let ((_%dphi125027%_ + _%stx125847%_ + _%hd126165%_)))))))))) + (_%import1125851%_ + (lambda (_%ctx126154%_ + _%K126155%_ + _%rest126156%_ + _%r126157%_) + (let ((_%dphi126159%_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_%K125023%_ - _%rest125024%_ + (_%K126155%_ + _%rest126156%_ (cons (##structure gx#import-set::t - _%ctx125022%_ - _%dphi125027%_ - (map (lambda (_%g125028125030%_) + _%ctx126154%_ + _%dphi126159%_ + (map (lambda (_%g126160126162%_) (gx#core-module-export->import__% - _%g125028125030%_ + _%g126160126162%_ '#f - _%dphi125027%_)) + _%dphi126159%_)) (##unchecked-structure-ref - _%ctx125022%_ + _%ctx126154%_ '9 '#f '#f))) - _%r125025%_))))) - (_%import-submodule124720%_ - (lambda (_%hd124989%_ _%K124990%_ _%rest124991%_ _%r124992%_) - (let* ((_%e124993125000%_ _%hd124989%_) - (_%E124995125004%_ + _%r126157%_))))) + (_%import-submodule125852%_ + (lambda (_%hd126121%_ _%K126122%_ _%rest126123%_ _%r126124%_) + (let* ((_%e126125126132%_ _%hd126121%_) + (_%E126127126136%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124993125000%_))) - (_%E124994125018%_ + _%e126125126132%_))) + (_%E126126126150%_ (lambda () - (if (gx#stx-pair? _%e124993125000%_) - (let ((_%e124996125008%_ - (gx#syntax-e _%e124993125000%_))) - (let ((_%hd124997125011%_ - (##car _%e124996125008%_)) - (_%tl124998125013%_ - (##cdr _%e124996125008%_))) - (let ((_%spath125016%_ - _%tl124998125013%_)) - (_%import1124719%_ - (_%import-spec-source124723%_ - _%spath125016%_) - _%K124990%_ - _%rest124991%_ - _%r124992%_)))) - (_%E124995125004%_))))) - (_%E124994125018%_)))) - (_%import-runtime124721%_ - (lambda (_%hd124956%_ _%K124957%_ _%rest124958%_ _%r124959%_) - (let* ((_%e124960124967%_ _%hd124956%_) - (_%E124962124971%_ + (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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124960124967%_))) - (_%E124961124985%_ + _%e126092126099%_))) + (_%E126093126117%_ (lambda () - (if (gx#stx-pair? _%e124960124967%_) - (let ((_%e124963124975%_ - (gx#syntax-e _%e124960124967%_))) - (let ((_%hd124964124978%_ - (##car _%e124963124975%_)) - (_%tl124965124980%_ - (##cdr _%e124963124975%_))) - (let ((_%spath124983%_ - _%tl124965124980%_)) - (_%K124957%_ - _%rest124958%_ - (cons (_%import-spec-source124723%_ - _%spath124983%_) - _%r124959%_))))) - (_%E124962124971%_))))) - (_%E124961124985%_)))) - (_%import-spec124722%_ - (lambda (_%hd124794%_ _%K124795%_ _%rest124796%_ _%r124797%_) - (let* ((_%e124798124815%_ _%hd124794%_) - (_%E124807124819%_ + (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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124798124815%_))) - (_%E124800124930%_ + _%e125930125947%_))) + (_%E125932126062%_ (lambda () - (if (gx#stx-pair? _%e124798124815%_) - (let ((_%e124808124823%_ - (gx#syntax-e _%e124798124815%_))) - (let ((_%hd124809124826%_ - (##car _%e124808124823%_)) - (_%tl124810124828%_ - (##cdr _%e124808124823%_))) - (if (gx#stx-pair? _%tl124810124828%_) - (let ((_%e124811124831%_ + (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%_ (gx#syntax-e - _%tl124810124828%_))) - (let ((_%hd124812124834%_ - (##car _%e124811124831%_)) - (_%tl124813124836%_ - (##cdr _%e124811124831%_))) - (let* ((_%path124839%_ - _%hd124812124834%_) - (_%specs124841%_ - _%tl124813124836%_)) - (let ((_%src-ctx124843%_ - (_%import-spec-source124723%_ - _%path124839%_)) - (_%exports124844%_ + _%tl125942125960%_))) + (let ((_%hd125944125966%_ + (##car _%e125943125963%_)) + (_%tl125945125968%_ + (##cdr _%e125943125963%_))) + (let* ((_%path125971%_ + _%hd125944125966%_) + (_%specs125973%_ + _%tl125945125968%_)) + (let ((_%src-ctx125975%_ + (_%import-spec-source125855%_ + _%path125971%_)) + (_%exports125976%_ (make-hash-table__% '#f absent-value @@ -2885,215 +2885,215 @@ absent-value absent-value absent-value)) - (_%specs124845%_ + (_%specs125977%_ (gx#syntax->list - _%specs124841%_))) + _%specs125973%_))) (for-each - (lambda (_%out124847%_) + (lambda (_%out125979%_) (__hash-put! - _%exports124844%_ + _%exports125976%_ (cons (##unchecked-structure-ref - _%out124847%_ + _%out125979%_ '3 '#f '#f) (##unchecked-structure-ref - _%out124847%_ + _%out125979%_ '4 '#f '#f)) - _%out124847%_)) + _%out125979%_)) (##unchecked-structure-ref - _%src-ctx124843%_ + _%src-ctx125975%_ '9 '#f '#f)) - (_%K124795%_ - _%rest124796%_ + (_%K125927%_ + _%rest125928%_ (__foldl1 - (lambda (_%spec124849%_ - _%r124850%_) - (let* ((_%e124851124867%_ - _%spec124849%_) - (_%E124853124871%_ + (lambda (_%spec125981%_ + _%r125982%_) + (let* ((_%e125983125999%_ + _%spec125981%_) + (_%E125985126003%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid syntax-case clause" - _%e124851124867%_))) - (_%E124852124926%_ + _%e125983125999%_))) + (_%E125984126058%_ (lambda () - (if (gx#stx-pair? _%e124851124867%_) - (let ((_%e124854124875%_ - (gx#syntax-e _%e124851124867%_))) - (let ((_%hd124855124878%_ - (##car _%e124854124875%_)) - (_%tl124856124880%_ - (##cdr _%e124854124875%_))) - (let ((_%phi124883%_ _%hd124855124878%_)) - (if (gx#stx-pair? _%tl124856124880%_) - (let ((_%e124857124885%_ - (gx#syntax-e _%tl124856124880%_))) - (let ((_%hd124858124888%_ - (##car _%e124857124885%_)) - (_%tl124859124890%_ - (##cdr _%e124857124885%_))) - (let ((_%name124893%_ - _%hd124858124888%_)) + (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? - _%tl124859124890%_) - (let ((_%e124860124895%_ + _%tl125991126022%_) + (let ((_%e125992126027%_ (gx#syntax-e - _%tl124859124890%_))) - (let ((_%hd124861124898%_ - (##car _%e124860124895%_)) - (_%tl124862124900%_ - (##cdr _%e124860124895%_))) - (let ((_%src-phi124903%_ - _%hd124861124898%_)) + _%tl125991126022%_))) + (let ((_%hd125993126030%_ + (##car _%e125992126027%_)) + (_%tl125994126032%_ + (##cdr _%e125992126027%_))) + (let ((_%src-phi126035%_ + _%hd125993126030%_)) (if (gx#stx-pair? - _%tl124862124900%_) - (let ((_%e124863124905%_ + _%tl125994126032%_) + (let ((_%e125995126037%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl124862124900%_))) - (let ((_%hd124864124908%_ (##car _%e124863124905%_)) - (_%tl124865124910%_ (##cdr _%e124863124905%_))) - (let ((_%src-name124913%_ _%hd124864124908%_)) - (if (gx#stx-null? _%tl124865124910%_) - (if (and (gx#stx-fixnum? _%src-phi124903%_) - (gx#identifier? _%src-name124913%_) - (gx#stx-fixnum? _%phi124883%_) - (gx#identifier? _%name124893%_)) - (let ((_%src-phi124915%_ - (gx#stx-e _%src-phi124903%_)) - (_%src-name124916%_ + (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#core-identifier-key - _%src-name124913%_)) - (_%phi124917%_ (gx#stx-e _%phi124883%_)) - (_%name124918%_ + _%src-name126045%_)) + (_%phi126049%_ (gx#stx-e _%phi126015%_)) + (_%name126050%_ (gx#core-identifier-key - _%name124893%_))) - (let ((_%$e124920%_ + _%name126025%_))) + (let ((_%$e126052%_ (__hash-get - _%exports124844%_ - (cons _%src-phi124915%_ - _%src-name124916%_)))) - (if _%$e124920%_ - ((lambda (_%out124923%_) + _%exports125976%_ + (cons _%src-phi126047%_ + _%src-name126048%_)))) + (if _%$e126052%_ + ((lambda (_%out126055%_) (cons (gx#core-module-export->import__% - _%out124923%_ - _%name124918%_ - (fx- _%phi124917%_ - _%src-phi124915%_)) - _%r124850%_)) - _%$e124920%_) + _%out126055%_ + _%name126050%_ + (fx- _%phi126049%_ + _%src-phi126047%_)) + _%r125982%_)) + _%$e126052%_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _%stx124715%_ - _%hd124794%_)))) - (_%E124853124871%_)) - (_%E124853124871%_))))) - (_%E124853124871%_))))) + _%stx125847%_ + _%hd125926%_)))) + (_%E125985126003%_)) + (_%E125985126003%_))))) + (_%E125985126003%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124853124871%_))))) - (_%E124853124871%_))))) - (_%E124853124871%_))))) - (_%E124852124926%_))) + (_%E125985126003%_))))) + (_%E125985126003%_))))) + (_%E125985126003%_))))) + (_%E125984126058%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r124797%_ - _%specs124845%_)))))) - (_%E124807124819%_)))) - (_%E124807124819%_)))) - (_%E124799124952%_ + _%r125929%_ + _%specs125977%_)))))) + (_%E125939125951%_)))) + (_%E125939125951%_)))) + (_%E125931126084%_ (lambda () - (if (gx#stx-pair? _%e124798124815%_) - (let ((_%e124801124934%_ - (gx#syntax-e _%e124798124815%_))) - (let ((_%hd124802124937%_ - (##car _%e124801124934%_)) - (_%tl124803124939%_ - (##cdr _%e124801124934%_))) - (if (gx#stx-pair? _%tl124803124939%_) - (let ((_%e124804124942%_ + (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%_ (gx#syntax-e - _%tl124803124939%_))) - (let ((_%hd124805124945%_ - (##car _%e124804124942%_)) - (_%tl124806124947%_ - (##cdr _%e124804124942%_))) - (let ((_%path124950%_ - _%hd124805124945%_)) + _%tl125935126071%_))) + (let ((_%hd125937126077%_ + (##car _%e125936126074%_)) + (_%tl125938126079%_ + (##cdr _%e125936126074%_))) + (let ((_%path126082%_ + _%hd125937126077%_)) (if (gx#stx-null? - _%tl124806124947%_) - (_%K124795%_ - _%rest124796%_ - (cons (_%import-spec-source124723%_ - _%path124950%_) - _%r124797%_)) - (_%E124800124930%_))))) - (_%E124800124930%_)))) - (_%E124800124930%_))))) - (_%E124799124952%_)))) - (_%import-spec-source124723%_ - (lambda (_%spath124792%_) + _%tl125938126079%_) + (_%K125927%_ + _%rest125928%_ + (cons (_%import-spec-source125855%_ + _%path126082%_) + _%r125929%_)) + (_%E125932126062%_))))) + (_%E125932126062%_)))) + (_%E125932126062%_))))) + (_%E125931126084%_)))) + (_%import-spec-source125855%_ + (lambda (_%spath125924%_) (gx#core-import-nested-module - _%spath124792%_ - _%stx124715%_))) - (_%import!124724%_ - (lambda (_%rbody124737%_) - (letrec* ((_%current-ctx124739%_ + _%spath125924%_ + _%stx125847%_))) + (_%import!125856%_ + (lambda (_%rbody125869%_) + (letrec* ((_%current-ctx125871%_ (gx#current-expander-context)) - (_%deps124740%_ (make-hash-table-eq)) - (_%bind!124741%_ - (lambda (_%hd124790%_) + (_%deps125872%_ (make-hash-table-eq)) + (_%bind!125873%_ + (lambda (_%hd125922%_) (gx#core-bind-import!__1 - _%hd124790%_ - _%current-ctx124739%_)))) - (let _%lp124743%_ ((_%rest124745%_ _%rbody124737%_) - (_%body124746%_ '())) - (let* ((_%rest124747124755%_ _%rest124745%_) - (_%else124749124766%_ + _%hd125922%_ + _%current-ctx125871%_)))) + (let _%lp125875%_ ((_%rest125877%_ _%rbody125869%_) + (_%body125878%_ '())) + (let* ((_%rest125879125887%_ _%rest125877%_) + (_%else125881125898%_ (lambda () (if (##structure-instance-of? - _%current-ctx124739%_ + _%current-ctx125871%_ 'gx#module-context::t) (##unchecked-structure-set! - _%current-ctx124739%_ + _%current-ctx125871%_ (__foldl1 cons (##unchecked-structure-ref - _%current-ctx124739%_ + _%current-ctx125871%_ '8 '#f '#f) - _%body124746%_) + _%body125878%_) '8 '#f '#f) '#!void) (__hash-for-each - (lambda (_%ctx124763%_ _%_124764%_) - (gx#eval-module _%ctx124763%_)) - _%deps124740%_) - _%body124746%_)) - (_%K124751124778%_ - (lambda (_%rest124769%_ _%hd124770%_) + (lambda (_%ctx125895%_ _%_125896%_) + (gx#eval-module _%ctx125895%_)) + _%deps125872%_) + _%body125878%_)) + (_%K125883125910%_ + (lambda (_%rest125901%_ _%hd125902%_) (if (##structure-direct-instance-of? - _%hd124770%_ + _%hd125902%_ 'gx#module-import::t) (let () - (_%bind!124741%_ _%hd124770%_) + (_%bind!125873%_ _%hd125902%_) (if (and (fxpositive? (##unchecked-structure-ref - _%hd124770%_ + _%hd125902%_ '3 '#f '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _%hd124770%_ + _%hd125902%_ '1 '#f '#f) @@ -3101,10 +3101,10 @@ '#f '#f))) (__hash-put! - _%deps124740%_ + _%deps125872%_ (##unchecked-structure-ref (##unchecked-structure-ref - _%hd124770%_ + _%hd125902%_ '1 '#f '#f) @@ -3114,155 +3114,155 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _%hd124770%_ + _%hd125902%_ 'gx#import-set::t) (let () (for-each - _%bind!124741%_ + _%bind!125873%_ (##unchecked-structure-ref - _%hd124770%_ + _%hd125902%_ '3 '#f '#f)) (if (fxpositive? (##unchecked-structure-ref - _%hd124770%_ + _%hd125902%_ '2 '#f '#f)) (__hash-put! - _%deps124740%_ + _%deps125872%_ (##unchecked-structure-ref - _%hd124770%_ + _%hd125902%_ '1 '#f '#f) '#t) '#!void)) - (let ((_%$e124774%_ + (let ((_%$e125906%_ (##structure-instance-of? - _%hd124770%_ + _%hd125902%_ 'gx#module-context::t))) - (if _%$e124774%_ - _%$e124774%_ + (if _%$e125906%_ + _%$e125906%_ (gx#raise-syntax-error '#f '"Unexpected import" - _%stx124715%_ - _%hd124770%_))))) - (_%lp124743%_ - _%rest124769%_ - (cons _%hd124770%_ _%body124746%_))))) - (if (##pair? _%rest124747124755%_) - (let ((_%hd124752124781%_ - (##car _%rest124747124755%_)) - (_%tl124753124783%_ - (##cdr _%rest124747124755%_))) - (let* ((_%hd124786%_ _%hd124752124781%_) - (_%rest124788%_ _%tl124753124783%_)) - (_%K124751124778%_ - _%rest124788%_ - _%hd124786%_))) - (_%else124749124766%_))))))) - (_%expanded-import?124725%_ - (lambda (_%e124729%_) - (let ((_%$e124731%_ + _%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%_ (##structure-direct-instance-of? - _%e124729%_ + _%e125861%_ 'gx#import-set::t))) - (if _%$e124731%_ - _%$e124731%_ - (let ((_%$e124734%_ + (if _%$e125863%_ + _%$e125863%_ + (let ((_%$e125866%_ (##structure-direct-instance-of? - _%e124729%_ + _%e125861%_ 'gx#module-import::t))) - (if _%$e124734%_ - _%$e124734%_ + (if _%$e125866%_ + _%$e125866%_ (##structure-instance-of? - _%e124729%_ + _%e125861%_ 'gx#module-context::t)))))))) - (let ((_%rbody124727%_ + (let ((_%rbody125859%_ (gx#core-expand-import/export - _%stx124715%_ - _%expanded-import?124725%_ + _%stx125847%_ + _%expanded-import?125857%_ 'apply-import-expander gx#current-import-expander-phi - _%expand1124718%_))) - (if _%internal-expand?124716%_ - (reverse _%rbody124727%_) + _%expand1125850%_))) + (if _%internal-expand?125848%_ + (reverse _%rbody125859%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_%import!124724%_ _%rbody124727%_)) - (gx#stx-source _%stx124715%_))))))) + (gx#core-cons '%#import (_%import!125856%_ _%rbody125859%_)) + (gx#stx-source _%stx125847%_))))))) (define gx#core-expand-import%__0 - (lambda (_%stx125054%_) - (let ((_%internal-expand?125056%_ '#f)) + (lambda (_%stx126186%_) + (let ((_%internal-expand?126188%_ '#f)) (gx#core-expand-import%__% - _%stx125054%_ - _%internal-expand?125056%_)))) + _%stx126186%_ + _%internal-expand?126188%_)))) (define gx#core-expand-import% - (lambda _g127707_ - (let ((_g127706_ (##length _g127707_))) - (cond ((##fx= _g127706_ 1) - (apply gx#core-expand-import%__0 _g127707_)) - ((##fx= _g127706_ 2) - (apply gx#core-expand-import%__% _g127707_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g127707_)))))) + _g128839_)))))) (define gx#core-import-nested-module - (lambda (_%spath124642%_ _%where124643%_) - (let* ((_%e124644124651%_ _%spath124642%_) - (_%E124646124655%_ + (lambda (_%spath125774%_ _%where125775%_) + (let* ((_%e125776125783%_ _%spath125774%_) + (_%E125778125787%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124644124651%_))) - (_%E124645124710%_ + _%e125776125783%_))) + (_%E125777125842%_ (lambda () - (if (gx#stx-pair? _%e124644124651%_) - (let ((_%e124647124659%_ - (gx#syntax-e _%e124644124651%_))) - (let ((_%hd124648124662%_ (##car _%e124647124659%_)) - (_%tl124649124664%_ (##cdr _%e124647124659%_))) - (let* ((_%origin124667%_ _%hd124648124662%_) - (_%sub124669%_ _%tl124649124664%_) - (_%origin-ctx124671%_ - (if (gx#stx-false? _%origin124667%_) + (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%_) (gx#current-expander-context) - (gx#import-module__0 _%origin124667%_)))) - (let _%lp124673%_ ((_%rest124675%_ _%sub124669%_) - (_%ctx124676%_ - _%origin-ctx124671%_)) - (let* ((_%e124677124684%_ _%rest124675%_) - (_%E124679124688%_ - (lambda () _%ctx124676%_)) - (_%E124678124706%_ + (gx#import-module__0 _%origin125799%_)))) + (let _%lp125805%_ ((_%rest125807%_ _%sub125801%_) + (_%ctx125808%_ + _%origin-ctx125803%_)) + (let* ((_%e125809125816%_ _%rest125807%_) + (_%E125811125820%_ + (lambda () _%ctx125808%_)) + (_%E125810125838%_ (lambda () - (if (gx#stx-pair? _%e124677124684%_) - (let ((_%e124680124692%_ + (if (gx#stx-pair? _%e125809125816%_) + (let ((_%e125812125824%_ (gx#syntax-e - _%e124677124684%_))) - (let ((_%hd124681124695%_ - (##car _%e124680124692%_)) - (_%tl124682124697%_ - (##cdr _%e124680124692%_))) - (let* ((_%id124700%_ - _%hd124681124695%_) - (_%rest124702%_ - _%tl124682124697%_) - (_%bind124704%_ + _%e125809125816%_))) + (let ((_%hd125813125827%_ + (##car _%e125812125824%_)) + (_%tl125814125829%_ + (##cdr _%e125812125824%_))) + (let* ((_%id125832%_ + _%hd125813125827%_) + (_%rest125834%_ + _%tl125814125829%_) + (_%bind125836%_ (gx#resolve-identifier__% - _%id124700%_ + _%id125832%_ '0 - _%ctx124676%_))) + _%ctx125808%_))) (if (and (##structure-direct-instance-of? - _%bind124704%_ + _%bind125836%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind124704%_ + _%bind125836%_ '4 '#f '#f) @@ -3271,804 +3271,804 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _%where124643%_ - _%spath124642%_ - _%id124700%_)) - (_%lp124673%_ - _%rest124702%_ + _%where125775%_ + _%spath125774%_ + _%id125832%_)) + (_%lp125805%_ + _%rest125834%_ (##unchecked-structure-ref - _%bind124704%_ + _%bind125836%_ '4 '#f '#f))))) - (_%E124679124688%_))))) - (_%E124678124706%_)))))) - (_%E124646124655%_))))) - (_%E124645124710%_)))) + (_%E125811125820%_))))) + (_%E125810125838%_)))))) + (_%E125778125787%_))))) + (_%E125777125842%_)))) (define gx#core-expand-import-source - (lambda (_%hd124640%_) + (lambda (_%hd125772%_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _%hd124640%_ '())) + (cons 'import-internal% (cons _%hd125772%_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_%stx124134%_ _%internal-expand?124135%_) - (letrec* ((_%make-export__127635127636%_ - (lambda (_%bind124588%_ - _%phi124589%_ - _%ctx124590%_ - _%name124591%_) - (let* ((_%key124593%_ + (lambda (_%stx125266%_ _%internal-expand?125267%_) + (letrec* ((_%make-export__128767128768%_ + (lambda (_%bind125720%_ + _%phi125721%_ + _%ctx125722%_ + _%name125723%_) + (let* ((_%key125725%_ (##unchecked-structure-ref - _%bind124588%_ + _%bind125720%_ '2 '#f '#f)) - (_%export-key124595%_ - (if _%name124591%_ - (gx#core-identifier-key _%name124591%_) - _%key124593%_))) + (_%export-key125727%_ + (if _%name125723%_ + (gx#core-identifier-key _%name125723%_) + _%key125725%_))) (##structure gx#module-export::t - _%ctx124590%_ - _%key124593%_ - _%phi124589%_ - _%export-key124595%_ - (let ((_%$e124598%_ + _%ctx125722%_ + _%key125725%_ + _%phi125721%_ + _%export-key125727%_ + (let ((_%$e125730%_ (##structure-instance-of? - _%bind124588%_ + _%bind125720%_ 'gx#extern-binding::t))) - (if _%$e124598%_ - _%$e124598%_ + (if _%$e125730%_ + _%$e125730%_ (##structure-direct-instance-of? - _%bind124588%_ + _%bind125720%_ 'gx#import-binding::t))))))) - (_%make-export__0__127637127640%_ - (lambda (_%bind124604%_) - (let* ((_%phi124606%_ (gx#current-export-expander-phi)) - (_%ctx124608%_ (gx#current-expander-context)) - (_%name124610%_ '#f)) - (_%make-export__127635127636%_ - _%bind124604%_ - _%phi124606%_ - _%ctx124608%_ - _%name124610%_)))) - (_%make-export__1__127638127641%_ - (lambda (_%bind124612%_ _%phi124613%_) - (let* ((_%ctx124615%_ (gx#current-expander-context)) - (_%name124617%_ '#f)) - (_%make-export__127635127636%_ - _%bind124612%_ - _%phi124613%_ - _%ctx124615%_ - _%name124617%_)))) - (_%make-export__2__127639127642%_ - (lambda (_%bind124619%_ _%phi124620%_ _%ctx124621%_) - (let ((_%name124623%_ '#f)) - (_%make-export__127635127636%_ - _%bind124619%_ - _%phi124620%_ - _%ctx124621%_ - _%name124623%_)))) - (_%make-export124137%_ - (lambda _g127709_ - (let ((_g127708_ (##length _g127709_))) - (cond ((##fx= _g127708_ 1) - (apply _%make-export__0__127637127640%_ - _g127709_)) - ((##fx= _g127708_ 2) - (apply _%make-export__1__127638127641%_ - _g127709_)) - ((##fx= _g127708_ 3) - (apply _%make-export__2__127639127642%_ - _g127709_)) - ((##fx= _g127708_ 4) - (apply _%make-export__127635127636%_ _g127709_)) + (_%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_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g127709_)))))) - (_%expand1124138%_ - (lambda (_%hd124293%_ - _%K124294%_ - _%rest124295%_ - _%r124296%_) - (let* ((_%e124297124329%_ _%hd124293%_) - (_%E124324124333%_ + _g128841_)))))) + (_%expand1125270%_ + (lambda (_%hd125425%_ + _%K125426%_ + _%rest125427%_ + _%r125428%_) + (let* ((_%e125429125461%_ _%hd125425%_) + (_%E125456125465%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _%stx124134%_ - _%hd124293%_))) - (_%E124314124417%_ + _%stx125266%_ + _%hd125425%_))) + (_%E125446125549%_ (lambda () - (if (gx#stx-pair? _%e124297124329%_) - (let ((_%e124325124337%_ - (gx#syntax-e _%e124297124329%_))) - (let ((_%hd124326124340%_ - (##car _%e124325124337%_)) - (_%tl124327124342%_ - (##cdr _%e124325124337%_))) - (if (eq? (gx#stx-e _%hd124326124340%_) + (if (gx#stx-pair? _%e125429125461%_) + (let ((_%e125457125469%_ + (gx#syntax-e _%e125429125461%_))) + (let ((_%hd125458125472%_ + (##car _%e125457125469%_)) + (_%tl125459125474%_ + (##cdr _%e125457125469%_))) + (if (eq? (gx#stx-e _%hd125458125472%_) 'import:) - (let ((_%in124345%_ - _%tl124327124342%_)) - (if (gx#stx-list? _%in124345%_) - (let _%lp124347%_ ((_%in-rest124349%_ + (let ((_%in125477%_ + _%tl125459125474%_)) + (if (gx#stx-list? _%in125477%_) + (let _%lp125479%_ ((_%in-rest125481%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in124345%_) - (_%r124350%_ _%r124296%_)) + _%in125477%_) + (_%r125482%_ _%r125428%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%e124351124358%_ - _%in-rest124349%_) - (_%E124353124362%_ + (let* ((_%e125483125490%_ + _%in-rest125481%_) + (_%E125485125494%_ (lambda () - (_%K124294%_ - _%rest124295%_ - _%r124350%_))) - (_%E124352124413%_ + (_%K125426%_ + _%rest125427%_ + _%r125482%_))) + (_%E125484125545%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e124351124358%_) - (let ((_%e124354124366%_ - (gx#syntax-e _%e124351124358%_))) - (let ((_%hd124355124369%_ (##car _%e124354124366%_)) - (_%tl124356124371%_ - (##cdr _%e124354124366%_))) - (let* ((_%hd124374%_ _%hd124355124369%_) - (_%in-rest124376%_ _%tl124356124371%_) - (_%src124411%_ - (if (gx#core-bound-module? _%hd124374%_) - (gx#syntax-local-e__0 _%hd124374%_) + _%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%_) (if (gx#core-library-module-path? - _%hd124374%_) + _%hd125506%_) (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd124374%_)) + _%hd125506%_)) (if (gx#core-library-relative-module-path? - _%hd124374%_) + _%hd125506%_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd124374%_)) + _%hd125506%_)) (if (gx#stx-string? - _%hd124374%_) + _%hd125506%_) (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd124374%_ + _%hd125506%_ (gx#stx-source - _%stx124134%_))) - (let* ((_%e124382124389%_ - _%hd124374%_) - (_%E124384124393%_ + _%stx125266%_))) + (let* ((_%e125514125521%_ + _%hd125506%_) + (_%E125516125525%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _%stx124134%_ - _%hd124374%_))) - (_%E124383124407%_ + _%stx125266%_ + _%hd125506%_))) + (_%E125515125539%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e124382124389%_) - (let ((_%e124385124397%_ - (gx#syntax-e _%e124382124389%_))) - (let ((_%hd124386124400%_ - (##car _%e124385124397%_)) - (_%tl124387124402%_ - (##cdr _%e124385124397%_))) - (if (eq? (gx#stx-e _%hd124386124400%_) 'in:) - (let ((_%spath124405%_ _%tl124387124402%_)) + _%e125514125521%_) + (let ((_%e125517125529%_ + (gx#syntax-e _%e125514125521%_))) + (let ((_%hd125518125532%_ + (##car _%e125517125529%_)) + (_%tl125519125534%_ + (##cdr _%e125517125529%_))) + (if (eq? (gx#stx-e _%hd125518125532%_) 'in:) + (let ((_%spath125537%_ _%tl125519125534%_)) (gx#core-import-nested-module - _%spath124405%_ - _%stx124134%_)) - (_%E124384124393%_)))) - (_%E124384124393%_))))) - (_%E124383124407%_)))))))) + _%spath125537%_ + _%stx125266%_)) + (_%E125516125525%_)))) + (_%E125516125525%_))))) + (_%E125515125539%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp124347%_ - _%in-rest124376%_ - (_%export-imports124139%_ - _%src124411%_ - _%r124350%_))))) - (_%E124353124362%_))))) + (_%lp125479%_ + _%in-rest125508%_ + (_%export-imports125271%_ + _%src125543%_ + _%r125482%_))))) + (_%E125485125494%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124352124413%_))) - (_%E124324124333%_))) - (_%E124324124333%_)))) - (_%E124324124333%_)))) - (_%E124301124457%_ + (_%E125484125545%_))) + (_%E125456125465%_))) + (_%E125456125465%_)))) + (_%E125456125465%_)))) + (_%E125433125589%_ (lambda () - (if (gx#stx-pair? _%e124297124329%_) - (let ((_%e124315124421%_ - (gx#syntax-e _%e124297124329%_))) - (let ((_%hd124316124424%_ - (##car _%e124315124421%_)) - (_%tl124317124426%_ - (##cdr _%e124315124421%_))) - (if (eq? (gx#stx-e _%hd124316124424%_) + (if (gx#stx-pair? _%e125429125461%_) + (let ((_%e125447125553%_ + (gx#syntax-e _%e125429125461%_))) + (let ((_%hd125448125556%_ + (##car _%e125447125553%_)) + (_%tl125449125558%_ + (##cdr _%e125447125553%_))) + (if (eq? (gx#stx-e _%hd125448125556%_) 'rename:) (if (gx#stx-pair? - _%tl124317124426%_) - (let ((_%e124318124429%_ + _%tl125449125558%_) + (let ((_%e125450125561%_ (gx#syntax-e - _%tl124317124426%_))) - (let ((_%hd124319124432%_ - (##car _%e124318124429%_)) - (_%tl124320124434%_ - (##cdr _%e124318124429%_))) - (let ((_%id124437%_ - _%hd124319124432%_)) + _%tl125449125558%_))) + (let ((_%hd125451125564%_ + (##car _%e125450125561%_)) + (_%tl125452125566%_ + (##cdr _%e125450125561%_))) + (let ((_%id125569%_ + _%hd125451125564%_)) (if (gx#stx-pair? - _%tl124320124434%_) - (let ((_%e124321124439%_ + _%tl125452125566%_) + (let ((_%e125453125571%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl124320124434%_))) - (let ((_%hd124322124442%_ (##car _%e124321124439%_)) - (_%tl124323124444%_ (##cdr _%e124321124439%_))) - (let ((_%name124447%_ _%hd124322124442%_)) - (if (gx#stx-null? _%tl124323124444%_) - (let* ((_%phi124449%_ + _%tl125452125566%_))) + (let ((_%hd125454125574%_ (##car _%e125453125571%_)) + (_%tl125455125576%_ (##cdr _%e125453125571%_))) + (let ((_%name125579%_ _%hd125454125574%_)) + (if (gx#stx-null? _%tl125455125576%_) + (let* ((_%phi125581%_ (gx#current-export-expander-phi)) - (_%$e124451%_ + (_%$e125583%_ (gx#core-resolve-identifier__1 - _%id124437%_ - _%phi124449%_))) - (if _%$e124451%_ - ((lambda (_%bind124454%_) - (_%K124294%_ - _%rest124295%_ - (cons (_%make-export__127635127636%_ - _%bind124454%_ - _%phi124449%_ + _%id125569%_ + _%phi125581%_))) + (if _%$e125583%_ + ((lambda (_%bind125586%_) + (_%K125426%_ + _%rest125427%_ + (cons (_%make-export__128767128768%_ + _%bind125586%_ + _%phi125581%_ (gx#current-expander-context) - _%name124447%_) - _%r124296%_))) - _%$e124451%_) + _%name125579%_) + _%r125428%_))) + _%$e125583%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx124134%_ - _%hd124293%_ - _%id124437%_))) - (_%E124314124417%_))))) - (_%E124314124417%_))))) + _%stx125266%_ + _%hd125425%_ + _%id125569%_))) + (_%E125446125549%_))))) + (_%E125446125549%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124314124417%_)) - (_%E124314124417%_)))) - (_%E124314124417%_)))) - (_%E124300124507%_ + (_%E125446125549%_)) + (_%E125446125549%_)))) + (_%E125446125549%_)))) + (_%E125432125639%_ (lambda () - (if (gx#stx-pair? _%e124297124329%_) - (let ((_%e124302124461%_ - (gx#syntax-e _%e124297124329%_))) - (let ((_%hd124303124464%_ - (##car _%e124302124461%_)) - (_%tl124304124466%_ - (##cdr _%e124302124461%_))) - (if (eq? (gx#stx-e _%hd124303124464%_) + (if (gx#stx-pair? _%e125429125461%_) + (let ((_%e125434125593%_ + (gx#syntax-e _%e125429125461%_))) + (let ((_%hd125435125596%_ + (##car _%e125434125593%_)) + (_%tl125436125598%_ + (##cdr _%e125434125593%_))) + (if (eq? (gx#stx-e _%hd125435125596%_) 'spec:) (if (gx#stx-pair? - _%tl124304124466%_) - (let ((_%e124305124469%_ + _%tl125436125598%_) + (let ((_%e125437125601%_ (gx#syntax-e - _%tl124304124466%_))) - (let ((_%hd124306124472%_ - (##car _%e124305124469%_)) - (_%tl124307124474%_ - (##cdr _%e124305124469%_))) - (let ((_%phi124477%_ - _%hd124306124472%_)) + _%tl125436125598%_))) + (let ((_%hd125438125604%_ + (##car _%e125437125601%_)) + (_%tl125439125606%_ + (##cdr _%e125437125601%_))) + (let ((_%phi125609%_ + _%hd125438125604%_)) (if (gx#stx-pair? - _%tl124307124474%_) - (let ((_%e124308124479%_ + _%tl125439125606%_) + (let ((_%e125440125611%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl124307124474%_))) - (let ((_%hd124309124482%_ (##car _%e124308124479%_)) - (_%tl124310124484%_ (##cdr _%e124308124479%_))) - (let ((_%id124487%_ _%hd124309124482%_)) - (if (gx#stx-pair? _%tl124310124484%_) - (let ((_%e124311124489%_ - (gx#syntax-e _%tl124310124484%_))) - (let ((_%hd124312124492%_ - (##car _%e124311124489%_)) - (_%tl124313124494%_ - (##cdr _%e124311124489%_))) - (let ((_%name124497%_ _%hd124312124492%_)) - (if (gx#stx-null? _%tl124313124494%_) - (if (and (gx#stx-fixnum? _%phi124477%_) - (gx#identifier? _%id124487%_) - (gx#identifier? _%name124497%_)) - (let* ((_%phi124499%_ - (gx#stx-e _%phi124477%_)) - (_%$e124501%_ + _%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%_ (gx#core-resolve-identifier__1 - _%id124487%_ - _%phi124499%_))) - (if _%$e124501%_ - ((lambda (_%bind124504%_) - (_%K124294%_ - _%rest124295%_ - (cons (_%make-export__127635127636%_ - _%bind124504%_ - _%phi124499%_ + _%id125619%_ + _%phi125631%_))) + (if _%$e125633%_ + ((lambda (_%bind125636%_) + (_%K125426%_ + _%rest125427%_ + (cons (_%make-export__128767128768%_ + _%bind125636%_ + _%phi125631%_ (gx#current-expander-context) - _%name124497%_) - _%r124296%_))) - _%$e124501%_) + _%name125629%_) + _%r125428%_))) + _%$e125633%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx124134%_ - _%hd124293%_ - _%id124487%_))) - (_%E124301124457%_)) - (_%E124301124457%_))))) - (_%E124301124457%_))))) - (_%E124301124457%_))))) + _%stx125266%_ + _%hd125425%_ + _%id125619%_))) + (_%E125433125589%_)) + (_%E125433125589%_))))) + (_%E125433125589%_))))) + (_%E125433125589%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124301124457%_)) - (_%E124301124457%_)))) - (_%E124301124457%_)))) - (_%E124299124519%_ + (_%E125433125589%_)) + (_%E125433125589%_)))) + (_%E125433125589%_)))) + (_%E125431125651%_ (lambda () - (let ((_%id124511%_ _%e124297124329%_)) - (if (gx#identifier? _%id124511%_) - (let ((_%$e124513%_ + (let ((_%id125643%_ _%e125429125461%_)) + (if (gx#identifier? _%id125643%_) + (let ((_%$e125645%_ (gx#core-resolve-identifier__1 - _%id124511%_ + _%id125643%_ (gx#current-export-expander-phi)))) - (if _%$e124513%_ - ((lambda (_%bind124516%_) - (_%K124294%_ - _%rest124295%_ - (cons (_%make-export__0__127637127640%_ - _%bind124516%_) - _%r124296%_))) - _%$e124513%_) + (if _%$e125645%_ + ((lambda (_%bind125648%_) + (_%K125426%_ + _%rest125427%_ + (cons (_%make-export__0__128769128772%_ + _%bind125648%_) + _%r125428%_))) + _%$e125645%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx124134%_ - _%hd124293%_))) - (_%E124300124507%_))))) - (_%E124298124583%_ + _%stx125266%_ + _%hd125425%_))) + (_%E125432125639%_))))) + (_%E125430125715%_ (lambda () - (if (eq? (gx#stx-e _%e124297124329%_) '#t) - (let* ((_%current-ctx124523%_ + (if (eq? (gx#stx-e _%e125429125461%_) '#t) + (let* ((_%current-ctx125655%_ (gx#current-expander-context)) - (_%current-phi124525%_ + (_%current-phi125657%_ (gx#current-export-expander-phi)) - (_%phi-ctx124527%_ + (_%phi-ctx125659%_ (gx#core-context-shift - _%current-ctx124523%_ - _%current-phi124525%_)) - (_%phi-bind124529%_ + _%current-ctx125655%_ + _%current-phi125657%_)) + (_%phi-bind125661%_ (hash->list (##unchecked-structure-ref - _%phi-ctx124527%_ + _%phi-ctx125659%_ '2 '#f '#f)))) - (let _%lp124532%_ ((_%bind-rest124534%_ - _%phi-bind124529%_) - (_%set124535%_ '())) - (let* ((_%bind-rest124536124546%_ - _%bind-rest124534%_) - (_%else124538124554%_ + (let _%lp125664%_ ((_%bind-rest125666%_ + _%phi-bind125661%_) + (_%set125667%_ '())) + (let* ((_%bind-rest125668125678%_ + _%bind-rest125666%_) + (_%else125670125686%_ (lambda () - (_%K124294%_ - _%rest124295%_ + (_%K125426%_ + _%rest125427%_ (cons (##structure gx#export-set::t '#f - _%current-phi124525%_ - _%set124535%_) - _%r124296%_)))) - (_%K124540124564%_ - (lambda (_%bind-rest124557%_ - _%bind124558%_ - _%key124559%_) + _%current-phi125657%_ + _%set125667%_) + _%r125428%_)))) + (_%K125672125696%_ + (lambda (_%bind-rest125689%_ + _%bind125690%_ + _%key125691%_) (if (or (##structure-direct-instance-of? - _%bind124558%_ + _%bind125690%_ 'gx#import-binding::t) (gx#private-feature-binding? - _%bind124558%_)) - (_%lp124532%_ - _%bind-rest124557%_ - _%set124535%_) - (_%lp124532%_ - _%bind-rest124557%_ - (cons (_%make-export__2__127639127642%_ - _%bind124558%_ - _%current-phi124525%_ - _%current-ctx124523%_) - _%set124535%_)))))) - (if (##pair? _%bind-rest124536124546%_) - (let ((_%hd124541124567%_ - (##car _%bind-rest124536124546%_)) - (_%tl124542124569%_ - (##cdr _%bind-rest124536124546%_))) - (if (##pair? _%hd124541124567%_) - (let ((_%hd124543124572%_ - (##car _%hd124541124567%_)) - (_%tl124544124574%_ - (##cdr _%hd124541124567%_))) - (let* ((_%key124577%_ - _%hd124543124572%_) - (_%bind124579%_ - _%tl124544124574%_) - (_%bind-rest124581%_ - _%tl124542124569%_)) - (_%K124540124564%_ - _%bind-rest124581%_ - _%bind124579%_ - _%key124577%_))) - (_%else124538124554%_))) - (_%else124538124554%_))))) - (_%E124299124519%_))))) - (_%E124298124583%_)))) - (_%export-imports124139%_ - (lambda (_%src124169%_ _%r124170%_) - (letrec* ((_%current-ctx124172%_ + _%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%_ (gx#current-expander-context)) - (_%current-phi124173%_ + (_%current-phi125305%_ (gx#current-export-expander-phi)) - (_%import->export124174%_ - (lambda (_%in124255%_) - (let* ((_%in124256124264%_ _%in124255%_) - (_%E124258124268%_ + (_%import->export125306%_ + (lambda (_%in125387%_) + (let* ((_%in125388125396%_ _%in125387%_) + (_%E125390125400%_ (lambda () (error '"No clause matching" - _%in124256124264%_ + _%in125388125396%_ '((module-import out key phi))) '#!void)) - (_%K124259124275%_ - (lambda (_%phi124271%_ - _%key124272%_ - _%out124273%_) + (_%K125391125407%_ + (lambda (_%phi125403%_ + _%key125404%_ + _%out125405%_) (##structure gx#module-export::t - _%current-ctx124172%_ - _%key124272%_ - _%phi124271%_ - _%key124272%_ + _%current-ctx125304%_ + _%key125404%_ + _%phi125403%_ + _%key125404%_ '#t)))) (if (##structure-direct-instance-of? - _%in124256124264%_ + _%in125388125396%_ 'gx#module-import::t) - (let* ((_%e124260124278%_ + (let* ((_%e125392125410%_ (##unchecked-structure-ref - _%in124256124264%_ + _%in125388125396%_ '1 '#f '#f)) - (_%out124281%_ - _%e124260124278%_) - (_%e124261124283%_ + (_%out125413%_ + _%e125392125410%_) + (_%e125393125415%_ (##unchecked-structure-ref - _%in124256124264%_ + _%in125388125396%_ '2 '#f '#f)) - (_%key124286%_ - _%e124261124283%_) - (_%e124262124288%_ + (_%key125418%_ + _%e125393125415%_) + (_%e125394125420%_ (##unchecked-structure-ref - _%in124256124264%_ + _%in125388125396%_ '3 '#f '#f)) - (_%phi124291%_ - _%e124262124288%_)) - (_%K124259124275%_ - _%phi124291%_ - _%key124286%_ - _%out124281%_)) - (_%E124258124268%_))))) - (_%fold-e124175%_ - (lambda (_%in124177%_ _%r124178%_) - (let* ((_%in124179124193%_ _%in124177%_) - (_%else124182124201%_ - (lambda () _%r124178%_))) - (let ((_%K124188124237%_ - (lambda (_%phi124233%_ - _%key124234%_ - _%out124235%_) - (if (and (fx= _%phi124233%_ - _%current-phi124173%_) - (eq? _%src124169%_ + (_%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%_ (##unchecked-structure-ref - _%out124235%_ + _%out125367%_ '1 '#f '#f))) - (cons (_%import->export124174%_ - _%in124177%_) - _%r124178%_) - _%r124178%_))) - (_%K124184124212%_ - (lambda (_%imports124205%_ - _%phi124206%_ - _%ctx124207%_) - (if (and (fx= _%phi124206%_ - _%current-phi124173%_) - (eq? _%src124169%_ - _%ctx124207%_)) + (cons (_%import->export125306%_ + _%in125309%_) + _%r125310%_) + _%r125310%_))) + (_%K125316125344%_ + (lambda (_%imports125337%_ + _%phi125338%_ + _%ctx125339%_) + (if (and (fx= _%phi125338%_ + _%current-phi125305%_) + (eq? _%src125301%_ + _%ctx125339%_)) (__foldl1 - (lambda (_%in124209%_ - _%r124210%_) - (cons (_%import->export124174%_ - _%in124209%_) - _%r124210%_)) - _%r124178%_ - _%imports124205%_) - _%r124178%_)))) - (let ((_%try-match124181124230%_ + (lambda (_%in125341%_ + _%r125342%_) + (cons (_%import->export125306%_ + _%in125341%_) + _%r125342%_)) + _%r125310%_ + _%imports125337%_) + _%r125310%_)))) + (let ((_%try-match125313125362%_ (lambda () (if (##structure-direct-instance-of? - _%in124179124193%_ + _%in125311125325%_ 'gx#import-set::t) - (let* ((_%e124185124215%_ + (let* ((_%e125317125347%_ (##unchecked-structure-ref - _%in124179124193%_ + _%in125311125325%_ '1 '#f '#f)) - (_%e124186124220%_ + (_%e125318125352%_ (##unchecked-structure-ref - _%in124179124193%_ + _%in125311125325%_ '2 '#f '#f)) - (_%e124187124225%_ + (_%e125319125357%_ (##unchecked-structure-ref - _%in124179124193%_ + _%in125311125325%_ '3 '#f '#f))) - (let ((_%ctx124218%_ - _%e124185124215%_) - (_%phi124223%_ - _%e124186124220%_) - (_%imports124228%_ - _%e124187124225%_)) - (_%K124184124212%_ - _%imports124228%_ - _%phi124223%_ - _%ctx124218%_))) - (_%else124182124201%_))))) + (let ((_%ctx125350%_ + _%e125317125347%_) + (_%phi125355%_ + _%e125318125352%_) + (_%imports125360%_ + _%e125319125357%_)) + (_%K125316125344%_ + _%imports125360%_ + _%phi125355%_ + _%ctx125350%_))) + (_%else125314125333%_))))) (if (##structure-direct-instance-of? - _%in124179124193%_ + _%in125311125325%_ 'gx#module-import::t) - (let* ((_%e124189124240%_ + (let* ((_%e125321125372%_ (##unchecked-structure-ref - _%in124179124193%_ + _%in125311125325%_ '1 '#f '#f)) - (_%e124190124245%_ + (_%e125322125377%_ (##unchecked-structure-ref - _%in124179124193%_ + _%in125311125325%_ '2 '#f '#f)) - (_%e124191124250%_ + (_%e125323125382%_ (##unchecked-structure-ref - _%in124179124193%_ + _%in125311125325%_ '3 '#f '#f))) - (let ((_%out124243%_ - _%e124189124240%_) - (_%key124248%_ - _%e124190124245%_) - (_%phi124253%_ - _%e124191124250%_)) - (_%K124188124237%_ - _%phi124253%_ - _%key124248%_ - _%out124243%_))) - (_%try-match124181124230%_)))))))) + (let ((_%out125375%_ + _%e125321125372%_) + (_%key125380%_ + _%e125322125377%_) + (_%phi125385%_ + _%e125323125382%_)) + (_%K125320125369%_ + _%phi125385%_ + _%key125380%_ + _%out125375%_))) + (_%try-match125313125362%_)))))))) (cons (##structure gx#export-set::t - _%src124169%_ - _%current-phi124173%_ + _%src125301%_ + _%current-phi125305%_ (__foldl1 - _%fold-e124175%_ + _%fold-e125307%_ '() (##unchecked-structure-ref - _%current-ctx124172%_ + _%current-ctx125304%_ '8 '#f '#f))) - _%r124170%_)))) - (_%export!124140%_ - (lambda (_%rbody124156%_) - (letrec* ((_%current-ctx124158%_ + _%r125302%_)))) + (_%export!125272%_ + (lambda (_%rbody125288%_) + (letrec* ((_%current-ctx125290%_ (gx#current-expander-context)) - (_%fold-e124159%_ - (lambda (_%out124163%_ _%r124164%_) + (_%fold-e125291%_ + (lambda (_%out125295%_ _%r125296%_) (if (##structure-direct-instance-of? - _%out124163%_ + _%out125295%_ 'gx#module-export::t) - (cons _%out124163%_ _%r124164%_) + (cons _%out125295%_ _%r125296%_) (if (##structure-direct-instance-of? - _%out124163%_ + _%out125295%_ 'gx#export-set::t) (__foldl1 cons - _%r124164%_ + _%r125296%_ (##unchecked-structure-ref - _%out124163%_ + _%out125295%_ '3 '#f '#f)) - _%r124164%_))))) - (let ((_%body124161%_ (reverse _%rbody124156%_))) + _%r125296%_))))) + (let ((_%body125293%_ (reverse _%rbody125288%_))) (##unchecked-structure-set! - _%current-ctx124158%_ + _%current-ctx125290%_ (__foldl1 - _%fold-e124159%_ + _%fold-e125291%_ (##unchecked-structure-ref - _%current-ctx124158%_ + _%current-ctx125290%_ '9 '#f '#f) - _%body124161%_) + _%body125293%_) '9 '#f '#f) - _%body124161%_)))) - (_%expanded-export?124141%_ - (lambda (_%e124151%_) - (let ((_%$e124153%_ + _%body125293%_)))) + (_%expanded-export?125273%_ + (lambda (_%e125283%_) + (let ((_%$e125285%_ (##structure-direct-instance-of? - _%e124151%_ + _%e125283%_ 'gx#module-export::t))) - (if _%$e124153%_ - _%$e124153%_ + (if _%$e125285%_ + _%$e125285%_ (##structure-direct-instance-of? - _%e124151%_ + _%e125283%_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _%internal-expand?124135%_) - (let ((_%rbody124147%_ + _%internal-expand?125267%_) + (let ((_%rbody125279%_ (gx#core-expand-import/export - _%stx124134%_ - _%expanded-export?124141%_ + _%stx125266%_ + _%expanded-export?125273%_ 'apply-export-expander gx#current-export-expander-phi - _%expand1124138%_))) - (if _%internal-expand?124135%_ - (reverse _%rbody124147%_) + _%expand1125270%_))) + (if _%internal-expand?125267%_ + (reverse _%rbody125279%_) (gx#core-quote-syntax__1 (gx#core-cons '%#export - (_%export!124140%_ _%rbody124147%_)) - (gx#stx-source _%stx124134%_)))) + (_%export!125272%_ _%rbody125279%_)) + (gx#stx-source _%stx125266%_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _%stx124134%_)) + (gx#stx-source _%stx125266%_)) (gx#raise-syntax-error '#f '"Illegal context" - _%stx124134%_)))))) + _%stx125266%_)))))) (define gx#core-expand-export%__0 - (lambda (_%stx124633%_) - (let ((_%internal-expand?124635%_ '#f)) + (lambda (_%stx125765%_) + (let ((_%internal-expand?125767%_ '#f)) (gx#core-expand-export%__% - _%stx124633%_ - _%internal-expand?124635%_)))) + _%stx125765%_ + _%internal-expand?125767%_)))) (define gx#core-expand-export% - (lambda _g127711_ - (let ((_g127710_ (##length _g127711_))) - (cond ((##fx= _g127710_ 1) - (apply gx#core-expand-export%__0 _g127711_)) - ((##fx= _g127710_ 2) - (apply gx#core-expand-export%__% _g127711_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g127711_)))))) + _g128843_)))))) (define gx#core-expand-export-source - (lambda (_%hd124131%_) + (lambda (_%hd125263%_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _%hd124131%_ '())) + (cons 'export-macro% (cons _%hd125263%_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_%stx124101%_) - (let* ((_%e124102124109%_ _%stx124101%_) - (_%E124104124113%_ + (lambda (_%stx125233%_) + (let* ((_%e125234125241%_ _%stx125233%_) + (_%E125236125245%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124102124109%_))) - (_%E124103124127%_ + _%e125234125241%_))) + (_%E125235125259%_ (lambda () - (if (gx#stx-pair? _%e124102124109%_) - (let ((_%e124105124117%_ - (gx#syntax-e _%e124102124109%_))) - (let ((_%hd124106124120%_ (##car _%e124105124117%_)) - (_%tl124107124122%_ (##cdr _%e124105124117%_))) - (let ((_%body124125%_ _%tl124107124122%_)) - (if (gx#identifier-list? _%body124125%_) + (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%_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _%body124125%_) + _%body125257%_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _%body124125%_)) - (gx#stx-source _%stx124101%_))) - (_%E124104124113%_))))) - (_%E124104124113%_))))) - (_%E124103124127%_)))) + _%body125257%_)) + (gx#stx-source _%stx125233%_))) + (_%E125236125245%_))))) + (_%E125236125245%_))))) + (_%E125235125259%_)))) (define gx#core-bind-feature!__% - (lambda (_%id124067%_ _%private?124068%_ _%phi124069%_ _%ctx124070%_) + (lambda (_%id125199%_ _%private?125200%_ _%phi125201%_ _%ctx125202%_) (gx#core-bind-syntax!__% - _%id124067%_ - ((if _%private?124068%_ + _%id125199%_ + ((if _%private?125200%_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _%id124067%_)) - _%private?124068%_ - _%phi124069%_ - _%ctx124070%_))) + (gx#stx-e _%id125199%_)) + _%private?125200%_ + _%phi125201%_ + _%ctx125202%_))) (define gx#core-bind-feature!__0 - (lambda (_%id124075%_) - (let* ((_%private?124077%_ '#f) - (_%phi124079%_ (gx#current-expander-phi)) - (_%ctx124081%_ (gx#current-expander-context))) + (lambda (_%id125207%_) + (let* ((_%private?125209%_ '#f) + (_%phi125211%_ (gx#current-expander-phi)) + (_%ctx125213%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id124075%_ - _%private?124077%_ - _%phi124079%_ - _%ctx124081%_)))) + _%id125207%_ + _%private?125209%_ + _%phi125211%_ + _%ctx125213%_)))) (define gx#core-bind-feature!__1 - (lambda (_%id124083%_ _%private?124084%_) - (let* ((_%phi124086%_ (gx#current-expander-phi)) - (_%ctx124088%_ (gx#current-expander-context))) + (lambda (_%id125215%_ _%private?125216%_) + (let* ((_%phi125218%_ (gx#current-expander-phi)) + (_%ctx125220%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id124083%_ - _%private?124084%_ - _%phi124086%_ - _%ctx124088%_)))) + _%id125215%_ + _%private?125216%_ + _%phi125218%_ + _%ctx125220%_)))) (define gx#core-bind-feature!__2 - (lambda (_%id124090%_ _%private?124091%_ _%phi124092%_) - (let ((_%ctx124094%_ (gx#current-expander-context))) + (lambda (_%id125222%_ _%private?125223%_ _%phi125224%_) + (let ((_%ctx125226%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id124090%_ - _%private?124091%_ - _%phi124092%_ - _%ctx124094%_)))) + _%id125222%_ + _%private?125223%_ + _%phi125224%_ + _%ctx125226%_)))) (define gx#core-bind-feature! - (lambda _g127713_ - (let ((_g127712_ (##length _g127713_))) - (cond ((##fx= _g127712_ 1) - (apply gx#core-bind-feature!__0 _g127713_)) - ((##fx= _g127712_ 2) - (apply gx#core-bind-feature!__1 _g127713_)) - ((##fx= _g127712_ 3) - (apply gx#core-bind-feature!__2 _g127713_)) - ((##fx= _g127712_ 4) - (apply gx#core-bind-feature!__% _g127713_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g127713_)))))))) + _g128845_)))))))) diff --git a/src/bootstrap/gerbil/expander/module~1.scm b/src/bootstrap/gerbil/expander/module~1.scm index 165d5fe67..9cb20ac36 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]#_g127715_| + (define |gx[1]#_g128847_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g127717_| + (define |gx[1]#_g128849_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g127719_| + (define |gx[1]#_g128851_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127721_| + (define |gx[1]#_g128853_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g127722_| + (define |gx[1]#_g128854_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g127723_| + (define |gx[1]#_g128855_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127724_| + (define |gx[1]#_g128856_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127726_| + (define |gx[1]#_g128858_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127727_| + (define |gx[1]#_g128859_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127728_| + (define |gx[1]#_g128860_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127729_| + (define |gx[1]#_g128861_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127731_| + (define |gx[1]#_g128863_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g127732_| + (define |gx[1]#_g128864_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g127733_| + (define |gx[1]#_g128865_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127734_| + (define |gx[1]#_g128866_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127736_| + (define |gx[1]#_g128868_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127737_| + (define |gx[1]#_g128869_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127738_| + (define |gx[1]#_g128870_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127739_| + (define |gx[1]#_g128871_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127741_| + (define |gx[1]#_g128873_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g127743_| + (define |gx[1]#_g128875_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g127745_| + (define |gx[1]#_g128877_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127747_| + (define |gx[1]#_g128879_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127748_| + (define |gx[1]#_g128880_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g127749_| + (define |gx[1]#_g128881_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127750_| + (define |gx[1]#_g128882_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g127751_| + (define |gx[1]#_g128883_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127753_| + (define |gx[1]#_g128885_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127754_| + (define |gx[1]#_g128886_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127755_| + (define |gx[1]#_g128887_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127756_| + (define |gx[1]#_g128888_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127757_| + (define |gx[1]#_g128889_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127759_| + (define |gx[1]#_g128891_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127760_| + (define |gx[1]#_g128892_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g127761_| + (define |gx[1]#_g128893_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127762_| + (define |gx[1]#_g128894_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g127763_| + (define |gx[1]#_g128895_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127765_| + (define |gx[1]#_g128897_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127766_| + (define |gx[1]#_g128898_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127767_| + (define |gx[1]#_g128899_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127768_| + (define |gx[1]#_g128900_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127769_| + (define |gx[1]#_g128901_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127771_| + (define |gx[1]#_g128903_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g127773_| + (define |gx[1]#_g128905_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g127775_| + (define |gx[1]#_g128907_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127777_| + (define |gx[1]#_g128909_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g127778_| + (define |gx[1]#_g128910_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127779_| + (define |gx[1]#_g128911_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g127781_| + (define |gx[1]#_g128913_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127782_| + (define |gx[1]#_g128914_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127783_| + (define |gx[1]#_g128915_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127785_| + (define |gx[1]#_g128917_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g127786_| + (define |gx[1]#_g128918_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127787_| + (define |gx[1]#_g128919_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g127789_| + (define |gx[1]#_g128921_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127790_| + (define |gx[1]#_g128922_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127791_| + (define |gx[1]#_g128923_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127793_| + (define |gx[1]#_g128925_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g127795_| + (define |gx[1]#_g128927_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g127797_| + (define |gx[1]#_g128929_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127799_| + (define |gx[1]#_g128931_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g127800_| + (define |gx[1]#_g128932_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127801_| + (define |gx[1]#_g128933_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g127803_| + (define |gx[1]#_g128935_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127804_| + (define |gx[1]#_g128936_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127805_| + (define |gx[1]#_g128937_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127807_| + (define |gx[1]#_g128939_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g127808_| + (define |gx[1]#_g128940_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127809_| + (define |gx[1]#_g128941_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g127811_| + (define |gx[1]#_g128943_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127812_| + (define |gx[1]#_g128944_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127813_| + (define |gx[1]#_g128945_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127815_| + (define |gx[1]#_g128947_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g127817_| + (define |gx[1]#_g128949_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g127819_| + (define |gx[1]#_g128951_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g127821_| + (define |gx[1]#_g128953_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127823_| + (define |gx[1]#_g128955_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127824_| + (define |gx[1]#_g128956_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127825_| + (define |gx[1]#_g128957_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g127827_| + (define |gx[1]#_g128959_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127828_| + (define |gx[1]#_g128960_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127829_| + (define |gx[1]#_g128961_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127831_| + (define |gx[1]#_g128963_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127832_| + (define |gx[1]#_g128964_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127833_| + (define |gx[1]#_g128965_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g127835_| + (define |gx[1]#_g128967_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127836_| + (define |gx[1]#_g128968_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127837_| + (define |gx[1]#_g128969_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127840_| + (define |gx[1]#_g128972_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g127842_| + (define |gx[1]#_g128974_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g127844_| + (define |gx[1]#_g128976_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127846_| + (define |gx[1]#_g128978_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127847_| + (define |gx[1]#_g128979_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127848_| + (define |gx[1]#_g128980_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g127850_| + (define |gx[1]#_g128982_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127851_| + (define |gx[1]#_g128983_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127852_| + (define |gx[1]#_g128984_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127854_| + (define |gx[1]#_g128986_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127855_| + (define |gx[1]#_g128987_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127856_| + (define |gx[1]#_g128988_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g127858_| + (define |gx[1]#_g128990_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127859_| + (define |gx[1]#_g128991_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127860_| + (define |gx[1]#_g128992_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127862_| + (define |gx[1]#_g128994_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g127863_| + (define |gx[1]#_g128995_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g127865_| + (define |gx[1]#_g128997_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g127867_| + (define |gx[1]#_g128999_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g127869_| + (define |gx[1]#_g129001_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127871_| + (define |gx[1]#_g129003_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127872_| + (define |gx[1]#_g129004_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127873_| + (define |gx[1]#_g129005_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g127875_| + (define |gx[1]#_g129007_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127876_| + (define |gx[1]#_g129008_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127877_| + (define |gx[1]#_g129009_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127879_| + (define |gx[1]#_g129011_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127880_| + (define |gx[1]#_g129012_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127881_| + (define |gx[1]#_g129013_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g127883_| + (define |gx[1]#_g129015_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127884_| + (define |gx[1]#_g129016_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127885_| + (define |gx[1]#_g129017_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj127669 + (let ((__obj128801 (let () (declare (not safe)) (##structure @@ -871,18 +871,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127669 + __obj128801 'gx#module-import::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127669 'module-import '2 '#f '#f)) + (##unchecked-structure-set! __obj128801 'module-import '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj127669 + __obj128801 '(source name phi weak?) '4 '#f @@ -890,79 +890,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127669 + __obj128801 '(source name phi weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127669 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj128801 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127669 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj128801 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127669 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj128801 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127669 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128801 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127669 '#f '11 '#f '#f)) - (let ((__tmp127714 |gx[1]#_g127715_|)) + (##unchecked-structure-set! __obj128801 '#f '11 '#f '#f)) + (let ((__tmp128846 |gx[1]#_g128847_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127669 __tmp127714 '12 '#f '#f)) - (let ((__tmp127716 |gx[1]#_g127717_|)) + (##unchecked-structure-set! __obj128801 __tmp128846 '12 '#f '#f)) + (let ((__tmp128848 |gx[1]#_g128849_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127669 __tmp127716 '13 '#f '#f)) - (let ((__tmp127718 |gx[1]#_g127719_|)) + (##unchecked-structure-set! __obj128801 __tmp128848 '13 '#f '#f)) + (let ((__tmp128850 |gx[1]#_g128851_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127669 __tmp127718 '14 '#f '#f)) - (let ((__tmp127720 - (cons (cons 'source |gx[1]#_g127721_|) - (cons (cons 'name |gx[1]#_g127722_|) - (cons (cons 'phi |gx[1]#_g127723_|) - (cons (cons 'weak? |gx[1]#_g127724_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj127669 __tmp127720 '15 '#f '#f)) - (let ((__tmp127725 - (cons (cons 'source |gx[1]#_g127726_|) - (cons (cons 'name |gx[1]#_g127727_|) - (cons (cons 'phi |gx[1]#_g127728_|) - (cons (cons 'weak? |gx[1]#_g127729_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj127669 __tmp127725 '16 '#f '#f)) - (let ((__tmp127730 - (cons (cons 'source |gx[1]#_g127731_|) - (cons (cons 'name |gx[1]#_g127732_|) - (cons (cons 'phi |gx[1]#_g127733_|) - (cons (cons 'weak? |gx[1]#_g127734_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj127669 __tmp127730 '17 '#f '#f)) - (let ((__tmp127735 - (cons (cons 'source |gx[1]#_g127736_|) - (cons (cons 'name |gx[1]#_g127737_|) - (cons (cons 'phi |gx[1]#_g127738_|) - (cons (cons 'weak? |gx[1]#_g127739_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj127669 __tmp127735 '18 '#f '#f)) + (##unchecked-structure-set! __obj128801 __tmp128867 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127669 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128801 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127669 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128801 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127669 '() '20 '#f '#f)) - __obj127669)) + (##unchecked-structure-set! __obj128801 '() '20 '#f '#f)) + __obj128801)) (define |gx[:0:]#module-export| - (let ((__obj127670 + (let ((__obj128802 (let () (declare (not safe)) (##structure @@ -991,18 +991,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127670 + __obj128802 'gx#module-export::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127670 'module-export '2 '#f '#f)) + (##unchecked-structure-set! __obj128802 'module-export '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj127670 + __obj128802 '(context key phi name weak?) '4 '#f @@ -1010,83 +1010,83 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127670 + __obj128802 '(context key phi name weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127670 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj128802 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127670 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj128802 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127670 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj128802 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127670 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128802 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127670 '#f '11 '#f '#f)) - (let ((__tmp127740 |gx[1]#_g127741_|)) + (##unchecked-structure-set! __obj128802 '#f '11 '#f '#f)) + (let ((__tmp128872 |gx[1]#_g128873_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127670 __tmp127740 '12 '#f '#f)) - (let ((__tmp127742 |gx[1]#_g127743_|)) + (##unchecked-structure-set! __obj128802 __tmp128872 '12 '#f '#f)) + (let ((__tmp128874 |gx[1]#_g128875_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127670 __tmp127742 '13 '#f '#f)) - (let ((__tmp127744 |gx[1]#_g127745_|)) + (##unchecked-structure-set! __obj128802 __tmp128874 '13 '#f '#f)) + (let ((__tmp128876 |gx[1]#_g128877_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127670 __tmp127744 '14 '#f '#f)) - (let ((__tmp127746 - (cons (cons 'context |gx[1]#_g127747_|) - (cons (cons 'key |gx[1]#_g127748_|) - (cons (cons 'phi |gx[1]#_g127749_|) - (cons (cons 'name |gx[1]#_g127750_|) - (cons (cons 'weak? |gx[1]#_g127751_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj127670 __tmp127746 '15 '#f '#f)) - (let ((__tmp127752 - (cons (cons 'context |gx[1]#_g127753_|) - (cons (cons 'key |gx[1]#_g127754_|) - (cons (cons 'phi |gx[1]#_g127755_|) - (cons (cons 'name |gx[1]#_g127756_|) - (cons (cons 'weak? |gx[1]#_g127757_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj127670 __tmp127752 '16 '#f '#f)) - (let ((__tmp127758 - (cons (cons 'context |gx[1]#_g127759_|) - (cons (cons 'key |gx[1]#_g127760_|) - (cons (cons 'phi |gx[1]#_g127761_|) - (cons (cons 'name |gx[1]#_g127762_|) - (cons (cons 'weak? |gx[1]#_g127763_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj127670 __tmp127758 '17 '#f '#f)) - (let ((__tmp127764 - (cons (cons 'context |gx[1]#_g127765_|) - (cons (cons 'key |gx[1]#_g127766_|) - (cons (cons 'phi |gx[1]#_g127767_|) - (cons (cons 'name |gx[1]#_g127768_|) - (cons (cons 'weak? |gx[1]#_g127769_|) + (##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_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj127670 __tmp127764 '18 '#f '#f)) + (##unchecked-structure-set! __obj128802 __tmp128896 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127670 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128802 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127670 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128802 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127670 '() '20 '#f '#f)) - __obj127670)) + (##unchecked-structure-set! __obj128802 '() '20 '#f '#f)) + __obj128802)) (define |gx[:0:]#import-set| - (let ((__obj127671 + (let ((__obj128803 (let () (declare (not safe)) (##structure @@ -1115,18 +1115,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127671 + __obj128803 'gx#import-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127671 'import-set '2 '#f '#f)) + (##unchecked-structure-set! __obj128803 'import-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj127671 + __obj128803 '(source phi imports) '4 '#f @@ -1134,71 +1134,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127671 + __obj128803 '(source phi imports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127671 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj128803 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127671 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj128803 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127671 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj128803 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127671 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128803 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127671 '#f '11 '#f '#f)) - (let ((__tmp127770 |gx[1]#_g127771_|)) + (##unchecked-structure-set! __obj128803 '#f '11 '#f '#f)) + (let ((__tmp128902 |gx[1]#_g128903_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127671 __tmp127770 '12 '#f '#f)) - (let ((__tmp127772 |gx[1]#_g127773_|)) + (##unchecked-structure-set! __obj128803 __tmp128902 '12 '#f '#f)) + (let ((__tmp128904 |gx[1]#_g128905_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127671 __tmp127772 '13 '#f '#f)) - (let ((__tmp127774 |gx[1]#_g127775_|)) + (##unchecked-structure-set! __obj128803 __tmp128904 '13 '#f '#f)) + (let ((__tmp128906 |gx[1]#_g128907_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127671 __tmp127774 '14 '#f '#f)) - (let ((__tmp127776 - (cons (cons 'source |gx[1]#_g127777_|) - (cons (cons 'phi |gx[1]#_g127778_|) - (cons (cons 'imports |gx[1]#_g127779_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127671 __tmp127776 '15 '#f '#f)) - (let ((__tmp127780 - (cons (cons 'source |gx[1]#_g127781_|) - (cons (cons 'phi |gx[1]#_g127782_|) - (cons (cons 'imports |gx[1]#_g127783_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127671 __tmp127780 '16 '#f '#f)) - (let ((__tmp127784 - (cons (cons 'source |gx[1]#_g127785_|) - (cons (cons 'phi |gx[1]#_g127786_|) - (cons (cons 'imports |gx[1]#_g127787_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127671 __tmp127784 '17 '#f '#f)) - (let ((__tmp127788 - (cons (cons 'source |gx[1]#_g127789_|) - (cons (cons 'phi |gx[1]#_g127790_|) - (cons (cons 'imports |gx[1]#_g127791_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127671 __tmp127788 '18 '#f '#f)) + (##unchecked-structure-set! __obj128803 __tmp128920 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127671 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128803 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127671 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128803 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127671 '() '20 '#f '#f)) - __obj127671)) + (##unchecked-structure-set! __obj128803 '() '20 '#f '#f)) + __obj128803)) (define |gx[:0:]#export-set| - (let ((__obj127672 + (let ((__obj128804 (let () (declare (not safe)) (##structure @@ -1227,18 +1227,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127672 + __obj128804 'gx#export-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127672 'export-set '2 '#f '#f)) + (##unchecked-structure-set! __obj128804 'export-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj127672 + __obj128804 '(source phi exports) '4 '#f @@ -1246,71 +1246,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127672 + __obj128804 '(source phi exports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127672 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj128804 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127672 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj128804 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127672 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj128804 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127672 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128804 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127672 '#f '11 '#f '#f)) - (let ((__tmp127792 |gx[1]#_g127793_|)) + (##unchecked-structure-set! __obj128804 '#f '11 '#f '#f)) + (let ((__tmp128924 |gx[1]#_g128925_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127672 __tmp127792 '12 '#f '#f)) - (let ((__tmp127794 |gx[1]#_g127795_|)) + (##unchecked-structure-set! __obj128804 __tmp128924 '12 '#f '#f)) + (let ((__tmp128926 |gx[1]#_g128927_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127672 __tmp127794 '13 '#f '#f)) - (let ((__tmp127796 |gx[1]#_g127797_|)) + (##unchecked-structure-set! __obj128804 __tmp128926 '13 '#f '#f)) + (let ((__tmp128928 |gx[1]#_g128929_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127672 __tmp127796 '14 '#f '#f)) - (let ((__tmp127798 - (cons (cons 'source |gx[1]#_g127799_|) - (cons (cons 'phi |gx[1]#_g127800_|) - (cons (cons 'exports |gx[1]#_g127801_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127672 __tmp127798 '15 '#f '#f)) - (let ((__tmp127802 - (cons (cons 'source |gx[1]#_g127803_|) - (cons (cons 'phi |gx[1]#_g127804_|) - (cons (cons 'exports |gx[1]#_g127805_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127672 __tmp127802 '16 '#f '#f)) - (let ((__tmp127806 - (cons (cons 'source |gx[1]#_g127807_|) - (cons (cons 'phi |gx[1]#_g127808_|) - (cons (cons 'exports |gx[1]#_g127809_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127672 __tmp127806 '17 '#f '#f)) - (let ((__tmp127810 - (cons (cons 'source |gx[1]#_g127811_|) - (cons (cons 'phi |gx[1]#_g127812_|) - (cons (cons 'exports |gx[1]#_g127813_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127672 __tmp127810 '18 '#f '#f)) + (##unchecked-structure-set! __obj128804 __tmp128942 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127672 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128804 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127672 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128804 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127672 '() '20 '#f '#f)) - __obj127672)) + (##unchecked-structure-set! __obj128804 '() '20 '#f '#f)) + __obj128804)) (define |gx[:0:]#import-expander| - (let ((__obj127673 + (let ((__obj128805 (let () (declare (not safe)) (##structure @@ -1339,80 +1339,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127673 + __obj128805 'gx#import-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127673 'import-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj128805 'import-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127673 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj128805 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127673 '(e context phi) '6 '#f '#f)) - (let ((__tmp127814 (cons |gx[1]#_g127815_| '()))) + (##unchecked-structure-set! __obj128805 '(e context phi) '6 '#f '#f)) + (let ((__tmp128946 (cons |gx[1]#_g128947_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj127673 __tmp127814 '3 '#f '#f)) + (##unchecked-structure-set! __obj128805 __tmp128946 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127673 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj128805 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127673 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj128805 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127673 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128805 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127673 ':init! '11 '#f '#f)) - (let ((__tmp127816 |gx[1]#_g127817_|)) + (##unchecked-structure-set! __obj128805 ':init! '11 '#f '#f)) + (let ((__tmp128948 |gx[1]#_g128949_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127673 __tmp127816 '12 '#f '#f)) - (let ((__tmp127818 |gx[1]#_g127819_|)) + (##unchecked-structure-set! __obj128805 __tmp128948 '12 '#f '#f)) + (let ((__tmp128950 |gx[1]#_g128951_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127673 __tmp127818 '13 '#f '#f)) - (let ((__tmp127820 |gx[1]#_g127821_|)) + (##unchecked-structure-set! __obj128805 __tmp128950 '13 '#f '#f)) + (let ((__tmp128952 |gx[1]#_g128953_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127673 __tmp127820 '14 '#f '#f)) - (let ((__tmp127822 - (cons (cons 'context |gx[1]#_g127823_|) - (cons (cons 'phi |gx[1]#_g127824_|) - (cons (cons 'e |gx[1]#_g127825_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127673 __tmp127822 '15 '#f '#f)) - (let ((__tmp127826 - (cons (cons 'context |gx[1]#_g127827_|) - (cons (cons 'phi |gx[1]#_g127828_|) - (cons (cons 'e |gx[1]#_g127829_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127673 __tmp127826 '16 '#f '#f)) - (let ((__tmp127830 - (cons (cons 'context |gx[1]#_g127831_|) - (cons (cons 'phi |gx[1]#_g127832_|) - (cons (cons 'e |gx[1]#_g127833_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127673 __tmp127830 '17 '#f '#f)) - (let ((__tmp127834 - (cons (cons 'context |gx[1]#_g127835_|) - (cons (cons 'phi |gx[1]#_g127836_|) - (cons (cons 'e |gx[1]#_g127837_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127673 __tmp127834 '18 '#f '#f)) + (##unchecked-structure-set! __obj128805 __tmp128966 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127673 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128805 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127673 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128805 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127673 '() '20 '#f '#f)) - __obj127673)) + (##unchecked-structure-set! __obj128805 '() '20 '#f '#f)) + __obj128805)) (define |gx[:0:]#export-expander| - (let ((__obj127674 + (let ((__obj128806 (let () (declare (not safe)) (##structure @@ -1441,80 +1441,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127674 + __obj128806 'gx#export-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127674 'export-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj128806 'export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127674 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj128806 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127674 '(e context phi) '6 '#f '#f)) - (let ((__tmp127838 (cons |gx[1]#_g127815_| '()))) + (##unchecked-structure-set! __obj128806 '(e context phi) '6 '#f '#f)) + (let ((__tmp128970 (cons |gx[1]#_g128947_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj127674 __tmp127838 '3 '#f '#f)) + (##unchecked-structure-set! __obj128806 __tmp128970 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127674 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj128806 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127674 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj128806 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127674 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128806 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127674 ':init! '11 '#f '#f)) - (let ((__tmp127839 |gx[1]#_g127840_|)) + (##unchecked-structure-set! __obj128806 ':init! '11 '#f '#f)) + (let ((__tmp128971 |gx[1]#_g128972_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127674 __tmp127839 '12 '#f '#f)) - (let ((__tmp127841 |gx[1]#_g127842_|)) + (##unchecked-structure-set! __obj128806 __tmp128971 '12 '#f '#f)) + (let ((__tmp128973 |gx[1]#_g128974_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127674 __tmp127841 '13 '#f '#f)) - (let ((__tmp127843 |gx[1]#_g127844_|)) + (##unchecked-structure-set! __obj128806 __tmp128973 '13 '#f '#f)) + (let ((__tmp128975 |gx[1]#_g128976_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127674 __tmp127843 '14 '#f '#f)) - (let ((__tmp127845 - (cons (cons 'context |gx[1]#_g127846_|) - (cons (cons 'phi |gx[1]#_g127847_|) - (cons (cons 'e |gx[1]#_g127848_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127674 __tmp127845 '15 '#f '#f)) - (let ((__tmp127849 - (cons (cons 'context |gx[1]#_g127850_|) - (cons (cons 'phi |gx[1]#_g127851_|) - (cons (cons 'e |gx[1]#_g127852_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127674 __tmp127849 '16 '#f '#f)) - (let ((__tmp127853 - (cons (cons 'context |gx[1]#_g127854_|) - (cons (cons 'phi |gx[1]#_g127855_|) - (cons (cons 'e |gx[1]#_g127856_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127674 __tmp127853 '17 '#f '#f)) - (let ((__tmp127857 - (cons (cons 'context |gx[1]#_g127858_|) - (cons (cons 'phi |gx[1]#_g127859_|) - (cons (cons 'e |gx[1]#_g127860_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127674 __tmp127857 '18 '#f '#f)) + (##unchecked-structure-set! __obj128806 __tmp128989 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127674 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128806 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127674 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128806 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127674 '() '20 '#f '#f)) - __obj127674)) + (##unchecked-structure-set! __obj128806 '() '20 '#f '#f)) + __obj128806)) (define |gx[:0:]#import-export-expander| - (let ((__obj127675 + (let ((__obj128807 (let () (declare (not safe)) (##structure @@ -1543,7 +1543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127675 + __obj128807 'gx#import-export-expander::t '1 '#f @@ -1551,73 +1551,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127675 + __obj128807 'import-export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127675 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj128807 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127675 '(e context phi) '6 '#f '#f)) - (let ((__tmp127861 - (cons |gx[1]#_g127862_| (cons |gx[1]#_g127863_| '())))) + (##unchecked-structure-set! __obj128807 '(e context phi) '6 '#f '#f)) + (let ((__tmp128993 + (cons |gx[1]#_g128994_| (cons |gx[1]#_g128995_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj127675 __tmp127861 '3 '#f '#f)) + (##unchecked-structure-set! __obj128807 __tmp128993 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127675 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj128807 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127675 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj128807 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127675 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128807 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127675 ':init! '11 '#f '#f)) - (let ((__tmp127864 |gx[1]#_g127865_|)) + (##unchecked-structure-set! __obj128807 ':init! '11 '#f '#f)) + (let ((__tmp128996 |gx[1]#_g128997_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127675 __tmp127864 '12 '#f '#f)) - (let ((__tmp127866 |gx[1]#_g127867_|)) + (##unchecked-structure-set! __obj128807 __tmp128996 '12 '#f '#f)) + (let ((__tmp128998 |gx[1]#_g128999_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127675 __tmp127866 '13 '#f '#f)) - (let ((__tmp127868 |gx[1]#_g127869_|)) + (##unchecked-structure-set! __obj128807 __tmp128998 '13 '#f '#f)) + (let ((__tmp129000 |gx[1]#_g129001_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127675 __tmp127868 '14 '#f '#f)) - (let ((__tmp127870 - (cons (cons 'context |gx[1]#_g127871_|) - (cons (cons 'phi |gx[1]#_g127872_|) - (cons (cons 'e |gx[1]#_g127873_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127675 __tmp127870 '15 '#f '#f)) - (let ((__tmp127874 - (cons (cons 'context |gx[1]#_g127875_|) - (cons (cons 'phi |gx[1]#_g127876_|) - (cons (cons 'e |gx[1]#_g127877_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127675 __tmp127874 '16 '#f '#f)) - (let ((__tmp127878 - (cons (cons 'context |gx[1]#_g127879_|) - (cons (cons 'phi |gx[1]#_g127880_|) - (cons (cons 'e |gx[1]#_g127881_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127675 __tmp127878 '17 '#f '#f)) - (let ((__tmp127882 - (cons (cons 'context |gx[1]#_g127883_|) - (cons (cons 'phi |gx[1]#_g127884_|) - (cons (cons 'e |gx[1]#_g127885_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127675 __tmp127882 '18 '#f '#f)) + (##unchecked-structure-set! __obj128807 __tmp129014 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127675 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128807 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127675 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128807 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127675 '() '20 '#f '#f)) - __obj127675)))) + (##unchecked-structure-set! __obj128807 '() '20 '#f '#f)) + __obj128807)))) diff --git a/src/bootstrap/gerbil/expander/root~0.scm b/src/bootstrap/gerbil/expander/root~0.scm index 6c7324248..fd6ec1593 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 1713454411) + (define gerbil/expander/root::timestamp 1713631266) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,603 +262,603 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_%self129076130156%_ _%bind?130158%_) - (let* ((_%self130160%_ _%self129076130156%_) - (_%self130162%_ _%self130160%_)) - (if (##fx< '2 (##structure-length _%self130162%_)) + (lambda (_%self130208131288%_ _%bind?131290%_) + (let* ((_%self131292%_ _%self130208131288%_) + (_%self131294%_ _%self131292%_)) + (if (##fx< '2 (##structure-length _%self131294%_)) (begin - (##unchecked-structure-set! _%self130162%_ 'root '1 '#f '#f) + (##unchecked-structure-set! _%self131294%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self130162%_ + _%self131294%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self130162%_ + _%self131294%_ '2 - (##vector-length _%self130162%_))) - (if _%bind?130158%_ + (##vector-length _%self131294%_))) + (if _%bind?131290%_ (begin - (let ((__method130225 + (let ((__method131357 (__method-ref - _%self130162%_ + _%self131294%_ 'bind-core-syntax-expanders!))) - (if __method130225 - (__method130225 _%self130162%_) + (if __method131357 + (__method131357 _%self131294%_) (begin (error '"Missing method" - _%self130162%_ + _%self131294%_ 'bind-core-syntax-expanders!) '#!void))) - (let ((__method130226 + (let ((__method131358 (__method-ref - _%self130162%_ + _%self131294%_ 'bind-core-macro-expanders!))) - (if __method130226 - (__method130226 _%self130162%_) + (if __method131358 + (__method131358 _%self131294%_) (begin (error '"Missing method" - _%self130162%_ + _%self131294%_ 'bind-core-macro-expanders!) '#!void))) - (let ((__method130227 - (__method-ref _%self130162%_ 'bind-core-features!))) - (if __method130227 - (__method130227 _%self130162%_) + (let ((__method131359 + (__method-ref _%self131294%_ 'bind-core-features!))) + (if __method131359 + (__method131359 _%self131294%_) (begin (error '"Missing method" - _%self130162%_ + _%self131294%_ 'bind-core-features!) '#!void)))) '#!void)))) (define gx#root-context:::init!__0 - (lambda (_%self129076130175%_) - (let ((_%bind?130177%_ '#t)) - (gx#root-context:::init!__% _%self129076130175%_ _%bind?130177%_)))) + (lambda (_%self130208131307%_) + (let ((_%bind?131309%_ '#t)) + (gx#root-context:::init!__% _%self130208131307%_ _%bind?131309%_)))) (define gx#root-context:::init! - (lambda _g130230_ - (let ((_g130229_ (##length _g130230_))) - (cond ((##fx= _g130229_ 1) - (apply gx#root-context:::init!__0 _g130230_)) - ((##fx= _g130229_ 2) - (apply gx#root-context:::init!__% _g130230_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g130230_)))))) + _g131362_)))))) (define gx#root-context:::init!::specialize - (lambda (__klass130181 __method-table130182) - (let ((__bind-core-syntax-expanders!130183 + (lambda (__klass131313 __method-table131314) + (let ((__bind-core-features!131315 (__make-promise (lambda () - (let ((__method130186 + (let ((__method131318 (symbolic-table-ref - __method-table130182 - 'bind-core-syntax-expanders! + __method-table131314 + 'bind-core-features! '#f))) - (if __method130186 - __method130186 - (error '"Missing method" - 'bind-core-syntax-expanders!)))))) - (__bind-core-macro-expanders!130184 + (if __method131318 + __method131318 + (error '"Missing method" 'bind-core-features!)))))) + (__bind-core-macro-expanders!131316 (__make-promise (lambda () - (let ((__method130187 + (let ((__method131319 (symbolic-table-ref - __method-table130182 + __method-table131314 'bind-core-macro-expanders! '#f))) - (if __method130187 - __method130187 + (if __method131319 + __method131319 (error '"Missing method" 'bind-core-macro-expanders!)))))) - (__bind-core-features!130185 + (__bind-core-syntax-expanders!131317 (__make-promise (lambda () - (let ((__method130188 + (let ((__method131320 (symbolic-table-ref - __method-table130182 - 'bind-core-features! + __method-table131314 + 'bind-core-syntax-expanders! '#f))) - (if __method130188 - __method130188 - (error '"Missing method" 'bind-core-features!))))))) - (let ((_%opt-lambda130154130172%_ - (lambda (_%self129076130156%_ _%bind?130158%_) - (let* ((_%self130160%_ _%self129076130156%_) - (_%self130162%_ _%self130160%_)) - (if (##fx< '2 (##structure-length _%self130162%_)) + (if __method131320 + __method131320 + (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%_)) (begin (##unchecked-structure-set! - _%self130162%_ + _%self131294%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self130162%_ + _%self131294%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self130162%_ + _%self131294%_ '2 - (##vector-length _%self130162%_))) - (if _%bind?130158%_ + (##vector-length _%self131294%_))) + (if _%bind?131290%_ (begin - ((force __bind-core-syntax-expanders!130183) - _%self130162%_) - ((force __bind-core-macro-expanders!130184) - _%self130162%_) - ((force __bind-core-features!130185) - _%self130162%_)) + ((force __bind-core-syntax-expanders!131317) + _%self131294%_) + ((force __bind-core-macro-expanders!131316) + _%self131294%_) + ((force __bind-core-features!131315) + _%self131294%_)) '#!void))))) - (lambda _g130232_ - (let ((_g130231_ (##length _g130232_))) - (cond ((##fx= _g130231_ 1) - (apply (lambda (_%self129076130175%_) - (let ((_%bind?130177%_ '#t)) - (_%opt-lambda130154130172%_ - _%self129076130175%_ - _%bind?130177%_))) - _g130232_)) - ((##fx= _g130231_ 2) - (apply _%opt-lambda130154130172%_ _g130232_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g130232_))))))))) + _g131364_))))))))) (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 (_%self129077129999%_ _%super130001%_) - (let* ((_%self130003%_ _%self129077129999%_) - (_%self130005%_ _%self130003%_) - (_%super130021%_ - (let ((_%$e130015%_ _%super130001%_)) - (if _%$e130015%_ - _%$e130015%_ - (let ((_%$e130018%_ (gx#core-context-root__0))) - (if _%$e130018%_ - _%$e130018%_ - (let ((__obj130228 + (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 (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init!__0 __obj130228) - __obj130228))))))) - (if (##fx< '5 (##structure-length _%self130005%_)) + (gx#root-context:::init!__0 __obj131360) + __obj131360))))))) + (if (##fx< '5 (##structure-length _%self131137%_)) (begin - (##unchecked-structure-set! _%self130005%_ 'top '1 '#f '#f) + (##unchecked-structure-set! _%self131137%_ 'top '1 '#f '#f) (##unchecked-structure-set! - _%self130005%_ + _%self131137%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self130005%_ - _%super130021%_ + _%self131137%_ + _%super131153%_ '3 '#f '#f) - (##unchecked-structure-set! _%self130005%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self130005%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self131137%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self131137%_ '#f '5 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self130005%_ + _%self131137%_ '5 - (##vector-length _%self130005%_)))))) + (##vector-length _%self131137%_)))))) (define gx#top-context:::init!__0 - (lambda (_%self129077130026%_) - (let ((_%super130028%_ '#f)) - (gx#top-context:::init!__% _%self129077130026%_ _%super130028%_)))) + (lambda (_%self130209131158%_) + (let ((_%super131160%_ '#f)) + (gx#top-context:::init!__% _%self130209131158%_ _%super131160%_)))) (define gx#top-context:::init! - (lambda _g130234_ - (let ((_g130233_ (##length _g130234_))) - (cond ((##fx= _g130233_ 1) - (apply gx#top-context:::init!__0 _g130234_)) - ((##fx= _g130233_ 2) - (apply gx#top-context:::init!__% _g130234_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g130234_)))))) + _g131366_)))))) (__bind-method!__% gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_%self129078129717%_ _%bindings129719%_) - (let* ((_%self129721%_ _%self129078129717%_) - (_%self129723%_ _%self129721%_)) + (lambda (_%self130210130849%_ _%bindings130851%_) + (let* ((_%self130853%_ _%self130210130849%_) + (_%self130855%_ _%self130853%_)) (for-each - (lambda (_%bind129733%_) - (let* ((_%bind129734129741%_ _%bind129733%_) - (_%E129736129745%_ + (lambda (_%bind130865%_) + (let* ((_%bind130866130873%_ _%bind130865%_) + (_%E130868130877%_ (lambda () (error '"No clause matching" - _%bind129734129741%_ + _%bind130866130873%_ '([id . rest])) '#!void)) - (_%K129737129854%_ - (lambda (_%rest129748%_ _%id129749%_) + (_%K130869130986%_ + (lambda (_%rest130880%_ _%id130881%_) (gx#core-context-put! - _%self129723%_ - _%id129749%_ + _%self130855%_ + _%id130881%_ (##structure gx#syntax-binding::t - _%id129749%_ - _%id129749%_ + _%id130881%_ + _%id130881%_ '#f - (let* ((_%rest129750129761%_ _%rest129748%_) - (_%E129752129765%_ + (let* ((_%rest130882130893%_ _%rest130880%_) + (_%E130884130897%_ (lambda () (error '"No clause matching" - _%rest129750129761%_ + _%rest130882130893%_ '([key expander compiler])) '#!void)) - (_%K129753129830%_ - (lambda (_%compiler129768%_ - _%expander129769%_ - _%key129770%_) - ((let* ((_%key129771129784%_ _%key129770%_) - (_%E129777129788%_ + (_%K130885130962%_ + (lambda (_%compiler130900%_ + _%expander130901%_ + _%key130902%_) + ((let* ((_%key130903130916%_ _%key130902%_) + (_%E130909130920%_ (lambda () (error '"No clause matching" - _%key129771129784%_ + _%key130903130916%_ '(top:) '(module:) '(define:) '(special:) '(expr:)) '#!void))) - (let ((_%K129782129824%_ + (let ((_%K130914130956%_ (lambda () gx#make-top-special-form)) - (_%K129781129817%_ + (_%K130913130949%_ (lambda () gx#make-module-special-form)) - (_%K129780129809%_ + (_%K130912130941%_ (lambda () gx#make-definition-form)) - (_%K129779129801%_ + (_%K130911130933%_ (lambda () gx#make-special-form)) - (_%K129778129793%_ + (_%K130910130925%_ (lambda () gx#make-expression-form))) - (let* ((_%try-match129776129796%_ + (let* ((_%try-match130908130928%_ (lambda () - (if (##eq? _%key129771129784%_ + (if (##eq? _%key130903130916%_ 'expr:) - (_%K129778129793%_) - (_%E129777129788%_)))) - (_%try-match129775129804%_ + (_%K130910130925%_) + (_%E130909130920%_)))) + (_%try-match130907130936%_ (lambda () - (if (##eq? _%key129771129784%_ + (if (##eq? _%key130903130916%_ 'special:) - (_%K129779129801%_) - (_%try-match129776129796%_)))) - (_%try-match129774129812%_ + (_%K130911130933%_) + (_%try-match130908130928%_)))) + (_%try-match130906130944%_ (lambda () - (if (##eq? _%key129771129784%_ + (if (##eq? _%key130903130916%_ 'define:) - (_%K129780129809%_) - (_%try-match129775129804%_)))) - (_%try-match129773129820%_ + (_%K130912130941%_) + (_%try-match130907130936%_)))) + (_%try-match130905130952%_ (lambda () - (if (##eq? _%key129771129784%_ + (if (##eq? _%key130903130916%_ 'module:) - (_%K129781129817%_) - (_%try-match129774129812%_))))) - (if (##eq? _%key129771129784%_ 'top:) - (_%K129782129824%_) - (_%try-match129773129820%_))))) - _%expander129769%_ - _%id129749%_ - (let ((_%$e129827%_ _%compiler129768%_)) - (if _%$e129827%_ - _%$e129827%_ + (_%K130913130949%_) + (_%try-match130906130944%_))))) + (if (##eq? _%key130903130916%_ 'top:) + (_%K130914130956%_) + (_%try-match130905130952%_))))) + _%expander130901%_ + _%id130881%_ + (let ((_%$e130959%_ _%compiler130900%_)) + (if _%$e130959%_ + _%$e130959%_ gx#core-compile-top-error)))))) - (if (##pair? _%rest129750129761%_) - (let ((_%hd129754129833%_ - (##car _%rest129750129761%_)) - (_%tl129755129835%_ - (##cdr _%rest129750129761%_))) - (let ((_%key129838%_ _%hd129754129833%_)) - (if (##pair? _%tl129755129835%_) - (let ((_%hd129756129840%_ - (##car _%tl129755129835%_)) - (_%tl129757129842%_ - (##cdr _%tl129755129835%_))) - (let ((_%expander129845%_ - _%hd129756129840%_)) - (if (##pair? _%tl129757129842%_) - (let ((_%hd129758129847%_ - (##car _%tl129757129842%_)) - (_%tl129759129849%_ - (##cdr _%tl129757129842%_))) - (let ((_%compiler129852%_ - _%hd129758129847%_)) - (if (##null? _%tl129759129849%_) - (_%K129753129830%_ - _%compiler129852%_ - _%expander129845%_ - _%key129838%_) - (_%E129752129765%_)))) - (_%E129752129765%_)))) - (_%E129752129765%_)))) - (_%E129752129765%_)))))))) - (if (##pair? _%bind129734129741%_) - (let ((_%hd129738129857%_ (##car _%bind129734129741%_)) - (_%tl129739129859%_ (##cdr _%bind129734129741%_))) - (let* ((_%id129862%_ _%hd129738129857%_) - (_%rest129864%_ _%tl129739129859%_)) - (_%K129737129854%_ _%rest129864%_ _%id129862%_))) - (_%E129736129745%_)))) - _%bindings129719%_)))) + (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%_)))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_%self129078129869%_) - (let ((_%bindings129871%_ gx#*core-syntax-expanders*)) + (lambda (_%self130210131001%_) + (let ((_%bindings131003%_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _%self129078129869%_ - _%bindings129871%_)))) + _%self130210131001%_ + _%bindings131003%_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g130236_ - (let ((_g130235_ (##length _g130236_))) - (cond ((##fx= _g130235_ 1) + (lambda _g131368_ + (let ((_g131367_ (##length _g131368_))) + (cond ((##fx= _g131367_ 1) (apply gx#expander-context::bind-core-syntax-expanders!__0 - _g130236_)) - ((##fx= _g130235_ 2) + _g131368_)) + ((##fx= _g131367_ 2) (apply gx#expander-context::bind-core-syntax-expanders!__% - _g130236_)) + _g131368_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g130236_)))))) + _g131368_)))))) (__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 (_%self129079129476%_ _%bindings129478%_) - (let* ((_%self129480%_ _%self129079129476%_) - (_%self129482%_ _%self129480%_)) + (lambda (_%self130211130608%_ _%bindings130610%_) + (let* ((_%self130612%_ _%self130211130608%_) + (_%self130614%_ _%self130612%_)) (for-each - (lambda (_%bind129492%_) - (let* ((_%bind129493129500%_ _%bind129492%_) - (_%E129495129504%_ + (lambda (_%bind130624%_) + (let* ((_%bind130625130632%_ _%bind130624%_) + (_%E130627130636%_ (lambda () (error '"No clause matching" - _%bind129493129500%_ + _%bind130625130632%_ '([id . rest])) '#!void)) - (_%K129496129572%_ - (lambda (_%rest129507%_ _%id129508%_) + (_%K130628130704%_ + (lambda (_%rest130639%_ _%id130640%_) (gx#core-context-put! - _%self129482%_ - _%id129508%_ + _%self130614%_ + _%id130640%_ (##structure gx#syntax-binding::t - _%id129508%_ - _%id129508%_ + _%id130640%_ + _%id130640%_ '#f - (let* ((_%rest129509129524%_ _%rest129507%_) - (_%E129513129528%_ + (let* ((_%rest130641130656%_ _%rest130639%_) + (_%E130645130660%_ (lambda () (error '"No clause matching" - _%rest129509129524%_ + _%rest130641130656%_ '(['=> core-id]) '([proc]) '([])) '#!void))) - (let ((_%K129518129557%_ - (lambda (_%core-id129555%_) + (let ((_%K130650130689%_ + (lambda (_%core-id130687%_) (##structure gx#rename-macro-expander::t - _%core-id129555%_))) - (_%K129515129542%_ - (lambda (_%proc129540%_) + _%core-id130687%_))) + (_%K130647130674%_ + (lambda (_%proc130672%_) (##structure gx#macro-expander::t - _%proc129540%_))) - (_%K129514129533%_ + _%proc130672%_))) + (_%K130646130665%_ (lambda () (##structure gx#reserved-expander::t - _%id129508%_)))) - (let ((_%try-match129512129536%_ + _%id130640%_)))) + (let ((_%try-match130644130668%_ (lambda () - (if (##null? _%rest129509129524%_) - (_%K129514129533%_) - (_%E129513129528%_))))) - (if (##pair? _%rest129509129524%_) - (let ((_%tl129520129562%_ - (##cdr _%rest129509129524%_)) - (_%hd129519129560%_ - (##car _%rest129509129524%_))) - (if (##eq? _%hd129519129560%_ '=>) - (if (##pair? _%tl129520129562%_) - (let ((_%tl129522129567%_ - (##cdr _%tl129520129562%_)) - (_%hd129521129565%_ - (##car _%tl129520129562%_))) - (if (##null? _%tl129522129567%_) - (let ((_%core-id129570%_ - _%hd129521129565%_)) + (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%_)) (##structure gx#rename-macro-expander::t - _%core-id129570%_)) - (_%E129513129528%_))) - (if (##null? _%tl129520129562%_) - (let ((_%proc129550%_ - _%hd129519129560%_)) + _%core-id130702%_)) + (_%E130645130660%_))) + (if (null? _%tl130652130694%_) + (let ((_%proc130682%_ + _%hd130651130692%_)) (##structure gx#macro-expander::t - _%proc129550%_)) - (_%E129513129528%_))) - (if (##null? _%tl129520129562%_) - (let ((_%proc129550%_ - _%hd129519129560%_)) + _%proc130682%_)) + (_%E130645130660%_))) + (if (null? _%tl130652130694%_) + (let ((_%proc130682%_ + _%hd130651130692%_)) (##structure gx#macro-expander::t - _%proc129550%_)) - (_%E129513129528%_)))) - (_%try-match129512129536%_)))))))))) - (if (##pair? _%bind129493129500%_) - (let ((_%hd129497129575%_ (##car _%bind129493129500%_)) - (_%tl129498129577%_ (##cdr _%bind129493129500%_))) - (let* ((_%id129580%_ _%hd129497129575%_) - (_%rest129582%_ _%tl129498129577%_)) - (_%K129496129572%_ _%rest129582%_ _%id129580%_))) - (_%E129495129504%_)))) - _%bindings129478%_)))) + _%proc130682%_)) + (_%E130645130660%_)))) + (_%try-match130644130668%_)))))))))) + (if (pair? _%bind130625130632%_) + (let ((_%hd130629130707%_ (##car _%bind130625130632%_)) + (_%tl130630130709%_ (##cdr _%bind130625130632%_))) + (let* ((_%id130712%_ _%hd130629130707%_) + (_%rest130714%_ _%tl130630130709%_)) + (_%K130628130704%_ _%rest130714%_ _%id130712%_))) + (_%E130627130636%_)))) + _%bindings130610%_)))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_%self129079129587%_) - (let ((_%bindings129589%_ gx#*core-macro-expanders*)) + (lambda (_%self130211130719%_) + (let ((_%bindings130721%_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _%self129079129587%_ - _%bindings129589%_)))) + _%self130211130719%_ + _%bindings130721%_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g130238_ - (let ((_g130237_ (##length _g130238_))) - (cond ((##fx= _g130237_ 1) + (lambda _g131370_ + (let ((_g131369_ (##length _g131370_))) + (cond ((##fx= _g131369_ 1) (apply gx#expander-context::bind-core-macro-expanders!__0 - _g130238_)) - ((##fx= _g130237_ 2) + _g131370_)) + ((##fx= _g131369_ 2) (apply gx#expander-context::bind-core-macro-expanders!__% - _g130238_)) + _g131370_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g130238_)))))) + _g131370_)))))) (__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 (_%self129080129206%_) - (let* ((_%self129209%_ _%self129080129206%_) - (_%self129211%_ _%self129209%_)) - (letrec ((_%linux-variant?129221%_ - (lambda (_%sys-type129321%_) - (let* ((_%g129322129330%_ + (lambda (_%self130212130338%_) + (let* ((_%self130341%_ _%self130212130338%_) + (_%self130343%_ _%self130341%_)) + (letrec ((_%linux-variant?130353%_ + (lambda (_%sys-type130453%_) + (let* ((_%g130454130462%_ (__string-split - (symbol->string _%sys-type129321%_) + (symbol->string _%sys-type130453%_) '#\-)) - (_%else129324129338%_ (lambda () '#f)) - (_%K129326129343%_ - (lambda (_%rest129341%_) - (not (null? _%rest129341%_))))) - (if (##pair? _%g129322129330%_) - (let ((_%hd129327129346%_ - (##car _%g129322129330%_)) - (_%tl129328129348%_ - (##cdr _%g129322129330%_))) - (if (equal? _%hd129327129346%_ '"linux") - (let ((_%rest129351%_ _%tl129328129348%_)) - (_%K129326129343%_ _%rest129351%_)) - (_%else129324129338%_))) - (_%else129324129338%_))))) - (_%bsd-variant129222%_ - (lambda (_%sys-type129280%_) - (let ((_%sys-type-str129282%_ - (symbol->string _%sys-type129280%_))) - (let _%lp129284%_ ((_%rest129286%_ + (_%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%_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_%rest129287129295%_ _%rest129286%_) - (_%else129289129303%_ (lambda () '#f)) - (_%K129291129309%_ - (lambda (_%rest129306%_ _%sys129307%_) + (let* ((_%rest130419130427%_ _%rest130418%_) + (_%else130421130435%_ (lambda () '#f)) + (_%K130423130441%_ + (lambda (_%rest130438%_ _%sys130439%_) (if (string-prefix? - _%sys129307%_ - _%sys-type-str129282%_) - _%sys129307%_ - (_%lp129284%_ _%rest129306%_))))) - (if (##pair? _%rest129287129295%_) - (let ((_%hd129292129312%_ - (##car _%rest129287129295%_)) - (_%tl129293129314%_ - (##cdr _%rest129287129295%_))) - (let* ((_%sys129317%_ _%hd129292129312%_) - (_%rest129319%_ _%tl129293129314%_)) - (_%K129291129309%_ - _%rest129319%_ - _%sys129317%_))) - (_%else129289129303%_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _%self129211%_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self129211%_) - (let* ((_%g129223129235%_ (system-type)) - (_%else129225129243%_ (lambda () '#!void)) - (_%K129227129256%_ - (lambda (_%sys-type129246%_ - _%sys-vendor129247%_ - _%sys-cpu129248%_) + _%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%_) (gx#core-bind-feature!__% - _%sys-cpu129248%_ + _%sys-cpu130380%_ '#f '0 - _%self129211%_) + _%self130343%_) (gx#core-bind-feature!__% - _%sys-type129246%_ + _%sys-type130378%_ '#f '0 - _%self129211%_) - (if (_%linux-variant?129221%_ _%sys-type129246%_) + _%self130343%_) + (if (_%linux-variant?130353%_ _%sys-type130378%_) (gx#core-bind-feature!__% (##string->symbol '"linux") '#f '0 - _%self129211%_) - (let ((_%$e129251%_ - (_%bsd-variant129222%_ _%sys-type129246%_))) - (if _%$e129251%_ - ((lambda (_%sys-prefix129254%_) + _%self130343%_) + (let ((_%$e130383%_ + (_%bsd-variant130354%_ _%sys-type130378%_))) + (if _%$e130383%_ + ((lambda (_%sys-prefix130386%_) (gx#core-bind-feature!__% (##string->symbol '"bsd") '#f '0 - _%self129211%_) + _%self130343%_) (gx#core-bind-feature!__% - (string->symbol _%sys-prefix129254%_) + (string->symbol _%sys-prefix130386%_) '#f '0 - _%self129211%_)) - _%$e129251%_) + _%self130343%_)) + _%$e130383%_) '#!void)))))) - (if (##pair? _%g129223129235%_) - (let ((_%hd129228129259%_ (##car _%g129223129235%_)) - (_%tl129229129261%_ (##cdr _%g129223129235%_))) - (let ((_%sys-cpu129264%_ _%hd129228129259%_)) - (if (##pair? _%tl129229129261%_) - (let ((_%hd129230129266%_ (##car _%tl129229129261%_)) - (_%tl129231129268%_ - (##cdr _%tl129229129261%_))) - (let ((_%sys-vendor129271%_ _%hd129230129266%_)) - (if (##pair? _%tl129231129268%_) - (let ((_%hd129232129273%_ - (##car _%tl129231129268%_)) - (_%tl129233129275%_ - (##cdr _%tl129231129268%_))) - (let ((_%sys-type129278%_ - _%hd129232129273%_)) - (if (##null? _%tl129233129275%_) - (_%K129227129256%_ - _%sys-type129278%_ - _%sys-vendor129271%_ - _%sys-cpu129264%_) + (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%_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self129211%_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self130343%_) '#!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 0792910a4..757ac8d88 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 1713454411) + (define gerbil/expander/stxcase::timestamp 1713631267) (begin (define gx#syntax-pattern::t - (let ((__tmp131637 (list gx#expander::t)) - (__tmp131636 (cons (cons 'struct: '#t) '()))) + (let ((__tmp132769 (list gx#expander::t)) + (__tmp132768 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gx#syntax-pattern::t 'syntax-pattern - __tmp131637 + __tmp132769 '(id depth) - __tmp131636 + __tmp132768 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (__make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _%$args131633%_ - (apply make-instance gx#syntax-pattern::t _%$args131633%_))) + (lambda _%$args132765%_ + (apply make-instance gx#syntax-pattern::t _%$args132765%_))) (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 (_%self130240131617%_ _%stx131619%_) - (let* ((_%self131621%_ _%self130240131617%_) - (_%self131623%_ _%self131621%_)) + (lambda (_%self131372132749%_ _%stx132751%_) + (let* ((_%self132753%_ _%self131372132749%_) + (_%self132755%_ _%self132753%_)) (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _%stx131619%_)))) + _%stx132751%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -85,616 +85,602 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_%stx131083%_) - (letrec ((_%generate131085%_ - (lambda (_%e131325%_) - (letrec ((_%BUG131327%_ - (lambda (_%q131492%_) + (lambda (_%stx132215%_) + (letrec ((_%generate132217%_ + (lambda (_%e132457%_) + (letrec ((_%BUG132459%_ + (lambda (_%q132624%_) (let () (declare (not safe)) (error '"BUG: syntax; generate" - _%stx131083%_ - _%e131325%_ - _%q131492%_)))) - (_%local-pattern-e131328%_ - (lambda (_%pat131490%_) - (let ((__tmp131638 + _%stx132215%_ + _%e132457%_ + _%q132624%_)))) + (_%local-pattern-e132460%_ + (lambda (_%pat132622%_) + (let ((__tmp132770 (##structure-ref - _%pat131490%_ + _%pat132622%_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp131638)))) - (_%getvar131329%_ - (lambda (_%q131487%_ _%vars131488%_) + (gx#syntax-local-rewrap __tmp132770)))) + (_%getvar132461%_ + (lambda (_%q132619%_ _%vars132620%_) (let () (declare (not safe)) (agetq__% - _%q131487%_ - _%vars131488%_ - _%BUG131327%_)))) - (_%getarg131330%_ - (lambda (_%arg131453%_ _%vars131454%_) - (let* ((_%arg131455131462%_ _%arg131453%_) - (_%E131457131466%_ + _%q132619%_ + _%vars132620%_ + _%BUG132459%_)))) + (_%getarg132462%_ + (lambda (_%arg132585%_ _%vars132586%_) + (let* ((_%arg132587132594%_ _%arg132585%_) + (_%E132589132598%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arg131455131462%_ + _%arg132587132594%_ '([tag . e]))) '#!void)) - (_%K131458131475%_ - (lambda (_%e131469%_ _%tag131470%_) - (let ((_%$e131472%_ _%tag131470%_)) - (if (eq? 'ref _%$e131472%_) - (_%getvar131329%_ - _%e131469%_ - _%vars131454%_) - (if (eq? 'pattern _%$e131472%_) - (_%local-pattern-e131328%_ - _%e131469%_) - (_%BUG131327%_ - _%arg131453%_))))))) - (if (let () - (declare (not safe)) - (##pair? _%arg131455131462%_)) - (let ((_%hd131459131478%_ + (_%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%_ (let () (declare (not safe)) - (##car _%arg131455131462%_))) - (_%tl131460131480%_ + (##car _%arg132587132594%_))) + (_%tl132592132612%_ (let () (declare (not safe)) - (##cdr _%arg131455131462%_)))) - (let* ((_%tag131483%_ - _%hd131459131478%_) - (_%e131485%_ - _%tl131460131480%_)) - (_%K131458131475%_ - _%e131485%_ - _%tag131483%_))) - (_%E131457131466%_)))))) - (let _%recur131332%_ ((_%e131334%_ _%e131325%_) - (_%vars131335%_ '())) - (let* ((_%e131336131343%_ _%e131334%_) - (_%E131338131347%_ + (##cdr _%arg132587132594%_)))) + (let* ((_%tag132615%_ + _%hd132591132610%_) + (_%e132617%_ + _%tl132592132612%_)) + (_%K132590132607%_ + _%e132617%_ + _%tag132615%_))) + (_%E132589132598%_)))))) + (let _%recur132464%_ ((_%e132466%_ _%e132457%_) + (_%vars132467%_ '())) + (let* ((_%e132468132475%_ _%e132466%_) + (_%E132470132479%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e131336131343%_ + _%e132468132475%_ '([tag . body]))) '#!void)) - (_%K131339131441%_ - (lambda (_%body131350%_ _%tag131351%_) - (let ((_%$e131353%_ _%tag131351%_)) - (if (eq? 'datum _%$e131353%_) + (_%K132471132573%_ + (lambda (_%body132482%_ _%tag132483%_) + (let ((_%$e132485%_ _%tag132483%_)) + (if (eq? 'datum _%$e132485%_) (let () (declare (not safe)) - (gx#core-list 'quote _%body131350%_)) - (if (eq? 'term _%$e131353%_) - (let ((_%id131356%_ + (gx#core-list 'quote _%body132482%_)) + (if (eq? 'term _%$e132485%_) + (let ((_%id132488%_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _%body131350%_)))) + _%body132482%_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id131356%_ + _%id132488%_ 'gx#identifier-wrap::t)) - (let ((_%marks131359%_ + (let ((_%marks132491%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%id131356%_ + _%id132488%_ '3 '#f '#f)))) - (if (null? _%marks131359%_) - (let ((__tmp131639 + (if (null? _%marks132491%_) + (let ((__tmp132771 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _%body131350%_)))) + (gx#core-list 'quote _%body132482%_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp131639)) - (let ((__tmp131641 + (gx#core-list 'datum->syntax '#f __tmp132771)) + (let ((__tmp132773 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _%body131350%_))) - (__tmp131640 + (gx#core-list 'quote-syntax _%body132482%_))) + (__tmp132772 (let () (declare (not safe)) - (gx#core-list 'quote _%body131350%_)))) + (gx#core-list 'quote _%body132482%_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp131641 - __tmp131640 + __tmp132773 + __tmp132772 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id131356%_ + _%id132488%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _%body131350%_)) - (_%BUG131327%_ - _%e131334%_)))) - (if (eq? 'pattern _%$e131353%_) - (_%local-pattern-e131328%_ - _%body131350%_) - (if (eq? 'ref _%$e131353%_) - (_%getvar131329%_ - _%body131350%_ - _%vars131335%_) + _%body132482%_)) + (_%BUG132459%_ + _%e132466%_)))) + (if (eq? 'pattern _%$e132485%_) + (_%local-pattern-e132460%_ + _%body132482%_) + (if (eq? 'ref _%$e132485%_) + (_%getvar132461%_ + _%body132482%_ + _%vars132467%_) (if (eq? 'cons - _%$e131353%_) - (let ((__tmp131643 - (_%recur131332%_ - (car _%body131350%_) - _%vars131335%_)) - (__tmp131642 - (_%recur131332%_ - (cdr _%body131350%_) - _%vars131335%_))) + _%$e132485%_) + (let ((__tmp132775 + (_%recur132464%_ + (car _%body132482%_) + _%vars132467%_)) + (__tmp132774 + (_%recur132464%_ + (cdr _%body132482%_) + _%vars132467%_))) (declare (not safe)) (gx#core-list 'cons - __tmp131643 - __tmp131642)) + __tmp132775 + __tmp132774)) (if (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e131353%_) - (let ((__tmp131644 - (_%recur131332%_ _%body131350%_ _%vars131335%_))) + _%$e132485%_) + (let ((__tmp132776 + (_%recur132464%_ _%body132482%_ _%vars132467%_))) (declare (not safe)) - (gx#core-list 'list->vector __tmp131644)) - (if (eq? 'box _%$e131353%_) - (let ((__tmp131645 - (_%recur131332%_ - _%body131350%_ - _%vars131335%_))) + (gx#core-list 'list->vector __tmp132776)) + (if (eq? 'box _%$e132485%_) + (let ((__tmp132777 + (_%recur132464%_ + _%body132482%_ + _%vars132467%_))) (declare (not safe)) - (gx#core-list 'box __tmp131645)) - (if (eq? 'splice _%$e131353%_) - (let* ((_%body131362131373%_ _%body131350%_) - (_%E131364131377%_ + (gx#core-list 'box __tmp132777)) + (if (eq? 'splice _%$e132485%_) + (let* ((_%body132494132505%_ _%body132482%_) + (_%E132496132509%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body131362131373%_ + _%body132494132505%_ '([depth hd iv . args]))) '#!void)) - (_%K131365131415%_ - (lambda (_%args131380%_ - _%iv131381%_ - _%hd131382%_ - _%depth131383%_) - (let* ((_%targets131389%_ - (map (lambda (_%g131384131386%_) - (_%getarg131330%_ - _%g131384131386%_ - _%vars131335%_)) - _%args131380%_)) - (_%fold-in131391%_ + (_%K132497132547%_ + (lambda (_%args132512%_ + _%iv132513%_ + _%hd132514%_ + _%depth132515%_) + (let* ((_%targets132521%_ + (map (lambda (_%g132516132518%_) + (_%getarg132462%_ + _%g132516132518%_ + _%vars132467%_)) + _%args132512%_)) + (_%fold-in132523%_ (let () (declare (not safe)) - (gx#gentemps _%args131380%_))) - (_%fold-out131393%_ + (gx#gentemps _%args132512%_))) + (_%fold-out132525%_ (let () (declare (not safe)) (gx#genident__0))) - (_%lambda-args131395%_ - (let ((__tmp131646 - (cons _%fold-out131393%_ + (_%lambda-args132527%_ + (let ((__tmp132778 + (cons _%fold-out132525%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp131646 - _%fold-in131391%_))) - (_%lambda-body131412%_ + __tmp132778 + _%fold-in132523%_))) + (_%lambda-body132544%_ (if (let () (declare (not safe)) - (##fx> _%depth131383%_ '1)) - (let ((_%r-args131403%_ - (map (lambda (_%arg131397%_) + (##fx> _%depth132515%_ '1)) + (let ((_%r-args132535%_ + (map (lambda (_%arg132529%_) (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _%arg131397%_))) - _%args131380%_)) - (_%r-vars131404%_ - (let ((__tmp131647 - (lambda (_%arg131399%_ _%var131400%_ _%r131401%_) - (cons (cons (cdr _%arg131399%_) _%var131400%_) - _%r131401%_)))) + (cdr _%arg132529%_))) + _%args132512%_)) + (_%r-vars132536%_ + (let ((__tmp132779 + (lambda (_%arg132531%_ _%var132532%_ _%r132533%_) + (cons (cons (cdr _%arg132531%_) _%var132532%_) + _%r132533%_)))) (declare (not safe)) (__foldr2 - __tmp131647 - _%vars131335%_ - _%args131380%_ - _%fold-in131391%_)))) + __tmp132779 + _%vars132467%_ + _%args132512%_ + _%fold-in132523%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%recur131332%_ + (_%recur132464%_ (cons 'splice (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##fx- _%depth131383%_ '1)) - (cons _%hd131382%_ - (cons (cons 'var _%fold-out131393%_) - _%r-args131403%_)))) + (##fx- _%depth132515%_ '1)) + (cons _%hd132514%_ + (cons (cons 'var _%fold-out132525%_) + _%r-args132535%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r-vars131404%_)) - (let* ((_%hd-vars131410%_ - (let ((__tmp131648 + _%r-vars132536%_)) + (let* ((_%hd-vars132542%_ + (let ((__tmp132780 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%arg131406%_ _%var131407%_ _%r131408%_) - (cons (cons (cdr _%arg131406%_) _%var131407%_) - _%r131408%_)))) + (lambda (_%arg132538%_ _%var132539%_ _%r132540%_) + (cons (cons (cdr _%arg132538%_) _%var132539%_) + _%r132540%_)))) (declare (not safe)) (__foldr2 - __tmp131648 - _%vars131335%_ - _%args131380%_ - _%fold-in131391%_))) - (__tmp131649 - (_%recur131332%_ _%hd131382%_ _%hd-vars131410%_))) + __tmp132780 + _%vars132467%_ + _%args132512%_ + _%fold-in132523%_))) + (__tmp132781 + (_%recur132464%_ _%hd132514%_ _%hd-vars132542%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp131649 - _%fold-out131393%_))))) - (let ((__tmp131653 - (if (let ((__tmp131654 + __tmp132781 + _%fold-out132525%_))))) + (let ((__tmp132785 + (if (let ((__tmp132786 (let () (declare (not safe)) (##length - _%targets131389%_)))) + _%targets132521%_)))) (declare (not safe)) - (##fx> __tmp131654 '1)) + (##fx> __tmp132786 '1)) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _%targets131389%_)) + _%targets132521%_)) '#!void)) - (__tmp131650 - (let ((__tmp131652 + (__tmp132782 + (let ((__tmp132784 (let () (declare (not safe)) (gx#core-list 'lambda% - _%lambda-args131395%_ - _%lambda-body131412%_))) - (__tmp131651 - (_%recur131332%_ - _%iv131381%_ - _%vars131335%_))) + _%lambda-args132527%_ + _%lambda-body132544%_))) + (__tmp132783 + (_%recur132464%_ + _%iv132513%_ + _%vars132467%_))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp131652 - __tmp131651 - _%targets131389%_)))) + __tmp132784 + __tmp132783 + _%targets132521%_)))) (declare (not safe)) (gx#core-list 'begin - __tmp131653 - __tmp131650)))))) - (if (let () - (declare (not safe)) - (##pair? _%body131362131373%_)) - (let ((_%hd131366131418%_ + __tmp132785 + __tmp132782)))))) + (if (pair? _%body132494132505%_) + (let ((_%hd132498132550%_ (let () (declare (not safe)) - (##car _%body131362131373%_))) - (_%tl131367131420%_ + (##car _%body132494132505%_))) + (_%tl132499132552%_ (let () (declare (not safe)) - (##cdr _%body131362131373%_)))) - (let ((_%depth131423%_ _%hd131366131418%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl131367131420%_)) - (let ((_%hd131368131425%_ + (##cdr _%body132494132505%_)))) + (let ((_%depth132555%_ _%hd132498132550%_)) + (if (pair? _%tl132499132552%_) + (let ((_%hd132500132557%_ (let () (declare (not safe)) - (##car _%tl131367131420%_))) - (_%tl131369131427%_ + (##car _%tl132499132552%_))) + (_%tl132501132559%_ (let () (declare (not safe)) - (##cdr _%tl131367131420%_)))) - (let ((_%hd131430%_ - _%hd131368131425%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl131369131427%_)) - (let ((_%hd131370131432%_ + (##cdr _%tl132499132552%_)))) + (let ((_%hd132562%_ + _%hd132500132557%_)) + (if (pair? _%tl132501132559%_) + (let ((_%hd132502132564%_ (let () (declare (not safe)) - (##car _%tl131369131427%_))) - (_%tl131371131434%_ + (##car _%tl132501132559%_))) + (_%tl132503132566%_ (let () (declare (not safe)) - (##cdr _%tl131369131427%_)))) - (let* ((_%iv131437%_ - _%hd131370131432%_) - (_%args131439%_ - _%tl131371131434%_)) - (_%K131365131415%_ - _%args131439%_ - _%iv131437%_ - _%hd131430%_ - _%depth131423%_))) - (_%E131364131377%_)))) - (_%E131364131377%_)))) - (_%E131364131377%_))) - (if (eq? 'var _%$e131353%_) - _%body131350%_ - (_%BUG131327%_ _%e131334%_)))))))))))))) + (##cdr _%tl132501132559%_)))) + (let* ((_%iv132569%_ + _%hd132502132564%_) + (_%args132571%_ + _%tl132503132566%_)) + (_%K132497132547%_ + _%args132571%_ + _%iv132569%_ + _%hd132562%_ + _%depth132555%_))) + (_%E132496132509%_)))) + (_%E132496132509%_)))) + (_%E132496132509%_))) + (if (eq? 'var _%$e132485%_) + _%body132482%_ + (_%BUG132459%_ _%e132466%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%e131336131343%_)) - (let ((_%hd131340131444%_ + (if (pair? _%e132468132475%_) + (let ((_%hd132472132576%_ (let () (declare (not safe)) - (##car _%e131336131343%_))) - (_%tl131341131446%_ + (##car _%e132468132475%_))) + (_%tl132473132578%_ (let () (declare (not safe)) - (##cdr _%e131336131343%_)))) - (let* ((_%tag131449%_ _%hd131340131444%_) - (_%body131451%_ _%tl131341131446%_)) - (_%K131339131441%_ - _%body131451%_ - _%tag131449%_))) - (_%E131338131347%_))))))) - (_%parse131086%_ - (lambda (_%e131127%_) - (letrec ((_%make-cons131129%_ - (lambda (_%hd131317%_ _%tl131318%_) - (let ((_g131655_ _%hd131317%_) - (_g131657_ _%tl131318%_)) + (##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%_)) (begin - (let ((_g131656_ + (let ((_g132788_ (let () (declare (not safe)) - (if (##values? _g131655_) - (##vector-length _g131655_) + (if (##values? _g132787_) + (##vector-length _g132787_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131656_ 2))) + (##fx= _g132788_ 2))) (error "Context expects 2 values" - _g131656_))) - (let ((_g131658_ + _g132788_))) + (let ((_g132790_ (let () (declare (not safe)) - (if (##values? _g131657_) - (##vector-length _g131657_) + (if (##values? _g132789_) + (##vector-length _g132789_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131658_ 2))) + (##fx= _g132790_ 2))) (error "Context expects 2 values" - _g131658_))) - (let ((_%hd-e131320%_ + _g132790_))) + (let ((_%hd-e132452%_ (let () (declare (not safe)) - (##vector-ref _g131655_ 0))) - (_%hd-vars131321%_ + (##vector-ref _g132787_ 0))) + (_%hd-vars132453%_ (let () (declare (not safe)) - (##vector-ref _g131655_ 1)))) - (let ((_%tl-e131322%_ + (##vector-ref _g132787_ 1)))) + (let ((_%tl-e132454%_ (let () (declare (not safe)) - (##vector-ref _g131657_ 0))) - (_%tl-vars131323%_ + (##vector-ref _g132789_ 0))) + (_%tl-vars132455%_ (let () (declare (not safe)) - (##vector-ref _g131657_ 1)))) + (##vector-ref _g132789_ 1)))) (values (cons 'cons - (cons _%hd-e131320%_ - _%tl-e131322%_)) - (append _%hd-vars131321%_ - _%tl-vars131323%_)))))))) - (_%make-splice131130%_ - (lambda (_%where131253%_ - _%depth131254%_ - _%hd131255%_ - _%tl131256%_) - (let ((_g131659_ _%hd131255%_) - (_g131661_ _%tl131256%_)) + (cons _%hd-e132452%_ + _%tl-e132454%_)) + (append _%hd-vars132453%_ + _%tl-vars132455%_)))))))) + (_%make-splice132262%_ + (lambda (_%where132385%_ + _%depth132386%_ + _%hd132387%_ + _%tl132388%_) + (let ((_g132791_ _%hd132387%_) + (_g132793_ _%tl132388%_)) (begin - (let ((_g131660_ + (let ((_g132792_ (let () (declare (not safe)) - (if (##values? _g131659_) - (##vector-length _g131659_) + (if (##values? _g132791_) + (##vector-length _g132791_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131660_ 2))) + (##fx= _g132792_ 2))) (error "Context expects 2 values" - _g131660_))) - (let ((_g131662_ + _g132792_))) + (let ((_g132794_ (let () (declare (not safe)) - (if (##values? _g131661_) - (##vector-length _g131661_) + (if (##values? _g132793_) + (##vector-length _g132793_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131662_ 2))) + (##fx= _g132794_ 2))) (error "Context expects 2 values" - _g131662_))) - (let ((_%hd-e131258%_ + _g132794_))) + (let ((_%hd-e132390%_ (let () (declare (not safe)) - (##vector-ref _g131659_ 0))) - (_%hd-vars131259%_ + (##vector-ref _g132791_ 0))) + (_%hd-vars132391%_ (let () (declare (not safe)) - (##vector-ref _g131659_ 1)))) - (let ((_%tl-e131260%_ + (##vector-ref _g132791_ 1)))) + (let ((_%tl-e132392%_ (let () (declare (not safe)) - (##vector-ref _g131661_ 0))) - (_%tl-vars131261%_ + (##vector-ref _g132793_ 0))) + (_%tl-vars132393%_ (let () (declare (not safe)) - (##vector-ref _g131661_ 1)))) - (let _%lp131263%_ ((_%rest131265%_ - _%hd-vars131259%_) - (_%targets131266%_ + (##vector-ref _g132793_ 1)))) + (let _%lp132395%_ ((_%rest132397%_ + _%hd-vars132391%_) + (_%targets132398%_ '()) - (_%vars131267%_ - _%tl-vars131261%_)) - (let* ((_%rest131268131278%_ - _%rest131265%_) - (_%else131270131286%_ + (_%vars132399%_ + _%tl-vars132393%_)) + (let* ((_%rest132400132410%_ + _%rest132397%_) + (_%else132402132418%_ (lambda () - (if (null? _%targets131266%_) + (if (null? _%targets132398%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx131083%_ - _%where131253%_)) + _%stx132215%_ + _%where132385%_)) (values (cons 'splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%depth131254%_ - (cons _%hd-e131258%_ - (cons _%tl-e131260%_ - _%targets131266%_)))) - _%vars131267%_)))) + (cons _%depth132386%_ + (cons _%hd-e132390%_ + (cons _%tl-e132392%_ + _%targets132398%_)))) + _%vars132399%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K131272131298%_ - (lambda (_%rest131289%_ - _%hd-pat131290%_ - _%hd-depth*131291%_) - (let ((_%hd-depth131293%_ - (fx- _%hd-depth*131291%_ - _%depth131254%_))) + (_%K132404132430%_ + (lambda (_%rest132421%_ + _%hd-pat132422%_ + _%hd-depth*132423%_) + (let ((_%hd-depth132425%_ + (fx- _%hd-depth*132423%_ + _%depth132386%_))) (if (let () (declare (not safe)) (##fxpositive? - _%hd-depth131293%_)) - (_%lp131263%_ - _%rest131289%_ + _%hd-depth132425%_)) + (_%lp132395%_ + _%rest132421%_ (cons (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd-pat131290%_) - _%targets131266%_) - (cons (cons _%hd-depth131293%_ _%hd-pat131290%_) - _%vars131267%_)) + _%hd-pat132422%_) + _%targets132398%_) + (cons (cons _%hd-depth132425%_ _%hd-pat132422%_) + _%vars132399%_)) (if (let () (declare (not safe)) - (##fxzero? _%hd-depth131293%_)) - (_%lp131263%_ - _%rest131289%_ - (cons (cons 'pattern _%hd-pat131290%_) - _%targets131266%_) - _%vars131267%_) + (##fxzero? _%hd-depth132425%_)) + (_%lp132395%_ + _%rest132421%_ + (cons (cons 'pattern _%hd-pat132422%_) + _%targets132398%_) + _%vars132399%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _%stx131083%_ - _%where131253%_)))))))) + _%stx132215%_ + _%where132385%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%rest131268131278%_)) - (let ((_%hd131273131301%_ + (if (pair? _%rest132400132410%_) + (let ((_%hd132405132433%_ (let () (declare (not safe)) - (##car _%rest131268131278%_))) - (_%tl131274131303%_ + (##car _%rest132400132410%_))) + (_%tl132406132435%_ (let () (declare (not safe)) - (##cdr _%rest131268131278%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd131273131301%_)) - (let ((_%hd131275131306%_ + (##cdr _%rest132400132410%_)))) + (if (pair? _%hd132405132433%_) + (let ((_%hd132407132438%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%hd131273131301%_))) - (_%tl131276131308%_ - (let () (declare (not safe)) (##cdr _%hd131273131301%_)))) - (let* ((_%hd-depth*131311%_ _%hd131275131306%_) - (_%hd-pat131313%_ _%tl131276131308%_) - (_%rest131315%_ _%tl131274131303%_)) - (_%K131272131298%_ - _%rest131315%_ - _%hd-pat131313%_ - _%hd-depth*131311%_))) - (_%else131270131286%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else131270131286%_)))))))))) - (_%recur131131%_ - (lambda (_%e131136%_ _%is-e?131137%_) - (if (_%is-e?131137%_ _%e131136%_) + (_%else132402132418%_)))))))))) + (_%recur132263%_ + (lambda (_%e132268%_ _%is-e?132269%_) + (if (_%is-e?132269%_ _%e132268%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _%stx131083%_)) - (if (gx#syntax-local-pattern? _%e131136%_) - (let* ((_%pat131141%_ + _%stx132215%_)) + (if (gx#syntax-local-pattern? _%e132268%_) + (let* ((_%pat132273%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%e131136%_))) - (_%depth131143%_ + _%e132268%_))) + (_%depth132275%_ (##structure-ref - _%pat131141%_ + _%pat132273%_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _%depth131143%_) - (values (cons 'ref _%pat131141%_) - (cons (cons _%depth131143%_ + (if (fxpositive? _%depth132275%_) + (values (cons 'ref _%pat132273%_) + (cons (cons _%depth132275%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pat131141%_) + _%pat132273%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (cons 'pattern - _%pat131141%_) + _%pat132273%_) '()))) (if (let () (declare (not safe)) - (gx#identifier? _%e131136%_)) - (values (cons 'term _%e131136%_) + (gx#identifier? _%e132268%_)) + (values (cons 'term _%e132268%_) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _%e131136%_)) - (let* ((_%e131147131154%_ - _%e131136%_) - (_%E131149131158%_ + (gx#stx-pair? _%e132268%_)) + (let* ((_%e132279132286%_ + _%e132268%_) + (_%E132281132290%_ (lambda () (let () (declare @@ -702,2009 +688,1989 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131147131154%_)))) - (_%E131148131240%_ + _%e132279132286%_)))) + (_%E132280132372%_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%e131147131154%_)) - (let ((_%e131150131162%_ + (gx#stx-pair? _%e132279132286%_)) + (let ((_%e132282132294%_ (let () (declare (not safe)) - (gx#syntax-e _%e131147131154%_)))) - (let ((_%hd131151131165%_ + (gx#syntax-e _%e132279132286%_)))) + (let ((_%hd132283132297%_ (let () (declare (not safe)) - (##car _%e131150131162%_))) - (_%tl131152131167%_ + (##car _%e132282132294%_))) + (_%tl132284132299%_ (let () (declare (not safe)) - (##cdr _%e131150131162%_)))) - (let* ((_%hd131170%_ _%hd131151131165%_) - (_%rest131172%_ _%tl131152131167%_)) - (if (_%is-e?131137%_ _%hd131170%_) - (let* ((_%e131173131180%_ _%rest131172%_) - (_%E131175131184%_ + (##cdr _%e132282132294%_)))) + (let* ((_%hd132302%_ _%hd132283132297%_) + (_%rest132304%_ _%tl132284132299%_)) + (if (_%is-e?132269%_ _%hd132302%_) + (let* ((_%e132305132312%_ _%rest132304%_) + (_%E132307132316%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _%stx131083%_ - _%e131136%_)))) - (_%E131174131198%_ + _%stx132215%_ + _%e132268%_)))) + (_%E132306132330%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e131173131180%_)) - (let ((_%e131176131188%_ + _%e132305132312%_)) + (let ((_%e132308132320%_ (let () (declare (not safe)) (gx#syntax-e - _%e131173131180%_)))) - (let ((_%hd131177131191%_ + _%e132305132312%_)))) + (let ((_%hd132309132323%_ (let () (declare (not safe)) - (##car _%e131176131188%_))) - (_%tl131178131193%_ + (##car _%e132308132320%_))) + (_%tl132310132325%_ (let () (declare (not safe)) - (##cdr _%e131176131188%_)))) - (let ((_%rest131196%_ - _%hd131177131191%_)) + (##cdr _%e132308132320%_)))) + (let ((_%rest132328%_ + _%hd132309132323%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl131178131193%_)) - (_%recur131131%_ - _%rest131196%_ + _%tl132310132325%_)) + (_%recur132263%_ + _%rest132328%_ false) - (_%E131175131184%_))))) - (_%E131175131184%_))))) - (_%E131174131198%_)) - (let _%lp131202%_ ((_%rest131204%_ - _%rest131172%_) - (_%depth131205%_ '0)) - (let* ((_%e131206131213%_ _%rest131204%_) - (_%E131208131217%_ + (_%E132307132316%_))))) + (_%E132307132316%_))))) + (_%E132306132330%_)) + (let _%lp132334%_ ((_%rest132336%_ + _%rest132304%_) + (_%depth132337%_ '0)) + (let* ((_%e132338132345%_ _%rest132336%_) + (_%E132340132349%_ (lambda () - (if (fxpositive? _%depth131205%_) - (_%make-splice131130%_ - _%e131136%_ - _%depth131205%_ - (_%recur131131%_ - _%hd131170%_ - _%is-e?131137%_) - (_%recur131131%_ - _%rest131204%_ - _%is-e?131137%_)) - (_%make-cons131129%_ - (_%recur131131%_ - _%hd131170%_ - _%is-e?131137%_) - (_%recur131131%_ - _%rest131204%_ - _%is-e?131137%_))))) - (_%E131207131236%_ + (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%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e131206131213%_)) - (let ((_%e131209131221%_ + _%e132338132345%_)) + (let ((_%e132341132353%_ (let () (declare (not safe)) (gx#syntax-e - _%e131206131213%_)))) - (let ((_%hd131210131224%_ + _%e132338132345%_)))) + (let ((_%hd132342132356%_ (let () (declare (not safe)) - (##car _%e131209131221%_))) - (_%tl131211131226%_ + (##car _%e132341132353%_))) + (_%tl132343132358%_ (let () (declare (not safe)) - (##cdr _%e131209131221%_)))) - (let* ((_%rest-hd131229%_ - _%hd131210131224%_) - (_%rest-tl131231%_ - _%tl131211131226%_)) - (if (_%is-e?131137%_ - _%rest-hd131229%_) - (_%lp131202%_ - _%rest-tl131231%_ + (##cdr _%e132341132353%_)))) + (let* ((_%rest-hd132361%_ + _%hd132342132356%_) + (_%rest-tl132363%_ + _%tl132343132358%_)) + (if (_%is-e?132269%_ + _%rest-hd132361%_) + (_%lp132334%_ + _%rest-tl132363%_ (let () (declare (not safe)) - (##fx+ _%depth131205%_ + (##fx+ _%depth132337%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1))) - (if (fxpositive? _%depth131205%_) - (_%make-splice131130%_ - _%e131136%_ - _%depth131205%_ - (_%recur131131%_ _%hd131170%_ _%is-e?131137%_) - (_%recur131131%_ _%rest131204%_ _%is-e?131137%_)) - (_%make-cons131129%_ - (_%recur131131%_ _%hd131170%_ _%is-e?131137%_) - (_%recur131131%_ _%rest131204%_ _%is-e?131137%_))))))) + (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%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131208131217%_))))) - (_%E131207131236%_))))))) - (_%E131149131158%_))))) + (_%E132340132349%_))))) + (_%E132339132368%_))))))) + (_%E132281132290%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131148131240%_)) + (_%E132280132372%_)) (if (let () (declare (not safe)) (gx#stx-vector? - _%e131136%_)) - (let ((_g131663_ - (_%recur131131%_ + _%e132268%_)) + (let ((_g132795_ + (_%recur132263%_ (vector->list (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-unwrap__0 _%e131136%_))) - _%is-e?131137%_))) + (gx#stx-unwrap__0 _%e132268%_))) + _%is-e?132269%_))) (begin - (let ((_g131664_ + (let ((_g132796_ (let () (declare (not safe)) - (if (##values? _g131663_) - (##vector-length _g131663_) + (if (##values? _g132795_) + (##vector-length _g132795_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g131664_ 2))) - (error "Context expects 2 values" _g131664_))) - (let ((_%e131245%_ + (if (not (let () (declare (not safe)) (##fx= _g132796_ 2))) + (error "Context expects 2 values" _g132796_))) + (let ((_%e132377%_ (let () (declare (not safe)) - (##vector-ref _g131663_ 0))) - (_%vars131246%_ + (##vector-ref _g132795_ 0))) + (_%vars132378%_ (let () (declare (not safe)) - (##vector-ref _g131663_ 1)))) - (values (cons 'vector _%e131245%_) _%vars131246%_)))) + (##vector-ref _g132795_ 1)))) + (values (cons 'vector _%e132377%_) _%vars132378%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _%e131136%_)) - (let ((_g131665_ - (_%recur131131%_ + _%e132268%_)) + (let ((_g132797_ + (_%recur132263%_ (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-unwrap__0 _%e131136%_))) - _%is-e?131137%_))) + (gx#stx-unwrap__0 _%e132268%_))) + _%is-e?132269%_))) (begin - (let ((_g131666_ + (let ((_g132798_ (let () (declare (not safe)) - (if (##values? _g131665_) - (##vector-length _g131665_) + (if (##values? _g132797_) + (##vector-length _g132797_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131666_ 2))) - (error "Context expects 2 values" _g131666_))) - (let ((_%e131249%_ + (##fx= _g132798_ 2))) + (error "Context expects 2 values" _g132798_))) + (let ((_%e132381%_ (let () (declare (not safe)) - (##vector-ref _g131665_ 0))) - (_%vars131250%_ + (##vector-ref _g132797_ 0))) + (_%vars132382%_ (let () (declare (not safe)) - (##vector-ref _g131665_ 1)))) - (values (cons 'box _%e131249%_) _%vars131250%_)))) - (values (cons 'datum _%e131136%_) '())))))))))) + (##vector-ref _g132797_ 1)))) + (values (cons 'box _%e132381%_) _%vars132382%_)))) + (values (cons 'datum _%e132268%_) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g131667_ - (_%recur131131%_ _%e131127%_ gx#ellipsis?))) + (let ((_g132799_ + (_%recur132263%_ _%e132259%_ gx#ellipsis?))) (begin - (let ((_g131668_ + (let ((_g132800_ (let () (declare (not safe)) - (if (##values? _g131667_) - (##vector-length _g131667_) + (if (##values? _g132799_) + (##vector-length _g132799_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131668_ 2))) - (error "Context expects 2 values" _g131668_))) - (let ((_%tree131133%_ + (##fx= _g132800_ 2))) + (error "Context expects 2 values" _g132800_))) + (let ((_%tree132265%_ (let () (declare (not safe)) - (##vector-ref _g131667_ 0))) - (_%vars131134%_ + (##vector-ref _g132799_ 0))) + (_%vars132266%_ (let () (declare (not safe)) - (##vector-ref _g131667_ 1)))) - (if (null? _%vars131134%_) - _%tree131133%_ + (##vector-ref _g132799_ 1)))) + (if (null? _%vars132266%_) + _%tree132265%_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _%stx131083%_ - _%vars131134%_)))))))))) - (let* ((_%e131087131097%_ _%stx131083%_) - (_%E131089131101%_ + _%stx132215%_ + _%vars132266%_)))))))))) + (let* ((_%e132219132229%_ _%stx132215%_) + (_%E132221132233%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _%stx131083%_)))) - (_%E131088131123%_ + _%stx132215%_)))) + (_%E132220132255%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131087131097%_)) - (let ((_%e131090131105%_ + (gx#stx-pair? _%e132219132229%_)) + (let ((_%e132222132237%_ (let () (declare (not safe)) - (gx#syntax-e _%e131087131097%_)))) - (let ((_%hd131091131108%_ + (gx#syntax-e _%e132219132229%_)))) + (let ((_%hd132223132240%_ (let () (declare (not safe)) - (##car _%e131090131105%_))) - (_%tl131092131110%_ + (##car _%e132222132237%_))) + (_%tl132224132242%_ (let () (declare (not safe)) - (##cdr _%e131090131105%_)))) + (##cdr _%e132222132237%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131092131110%_)) - (let ((_%e131093131113%_ + (gx#stx-pair? _%tl132224132242%_)) + (let ((_%e132225132245%_ (let () (declare (not safe)) - (gx#syntax-e _%tl131092131110%_)))) - (let ((_%hd131094131116%_ + (gx#syntax-e _%tl132224132242%_)))) + (let ((_%hd132226132248%_ (let () (declare (not safe)) - (##car _%e131093131113%_))) - (_%tl131095131118%_ + (##car _%e132225132245%_))) + (_%tl132227132250%_ (let () (declare (not safe)) - (##cdr _%e131093131113%_)))) - (let ((_%form131121%_ _%hd131094131116%_)) + (##cdr _%e132225132245%_)))) + (let ((_%form132253%_ _%hd132226132248%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl131095131118%_)) - (let ((__tmp131670 - (_%generate131085%_ - (_%parse131086%_ - _%form131121%_))) - (__tmp131669 + (gx#stx-null? _%tl132227132250%_)) + (let ((__tmp132802 + (_%generate132217%_ + (_%parse132218%_ + _%form132253%_))) + (__tmp132801 (let () (declare (not safe)) (gx#stx-source - _%stx131083%_)))) + _%stx132215%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp131670 - __tmp131669)) - (_%E131089131101%_))))) - (_%E131089131101%_)))) - (_%E131089131101%_))))) - (_%E131088131123%_))))) + __tmp132802 + __tmp132801)) + (_%E132221132233%_))))) + (_%E132221132233%_)))) + (_%E132221132233%_))))) + (_%E132220132255%_))))) (define gx#macro-expand-syntax-case__% - (lambda (_%stx130332%_ - _%identifier=?130333%_ - _%unwrap-e130334%_ - _%wrap-e130335%_) - (letrec ((_%generate-bindings130337%_ - (lambda (_%target130947%_ - _%ids130948%_ - _%clauses130949%_ - _%clause-ids130950%_ - _%E130951%_) - (letrec ((_%generate1130953%_ - (lambda (_%clause131050%_ - _%clause-id131051%_ - _%E131052%_) - (cons (cons _%clause-id131051%_ '()) - (cons (let ((__tmp131672 - (cons _%target130947%_ '())) - (__tmp131671 - (_%generate-clause130339%_ - _%target130947%_ - _%ids130948%_ - _%clause131050%_ - _%E131052%_))) + (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%_))) (declare (not safe)) (gx#core-list 'lambda% - __tmp131672 - __tmp131671)) + __tmp132804 + __tmp132803)) '()))))) - (let _%lp130955%_ ((_%rest130957%_ _%clauses130949%_) - (_%rest-ids130958%_ - _%clause-ids130950%_) - (_%bindings130959%_ '())) - (let* ((_%rest130960130968%_ _%rest130957%_) - (_%else130962130976%_ - (lambda () _%bindings130959%_)) - (_%K130964131038%_ - (lambda (_%rest130979%_ _%clause130980%_) - (let* ((_%rest-ids130981130988%_ - _%rest-ids130958%_) - (_%E130983130992%_ + (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%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-ids130981130988%_ + _%rest-ids132113132120%_ '([clause-id . rest-ids]))) '#!void)) - (_%K130984131026%_ - (lambda (_%rest-ids130995%_ - _%clause-id130996%_) - (let* ((_%rest-ids130997131005%_ - _%rest-ids130995%_) - (_%else130999131013%_ + (_%K132116132158%_ + (lambda (_%rest-ids132127%_ + _%clause-id132128%_) + (let* ((_%rest-ids132129132137%_ + _%rest-ids132127%_) + (_%else132131132145%_ (lambda () - (cons (_%generate1130953%_ - _%clause130980%_ - _%clause-id130996%_ - _%E130951%_) - _%bindings130959%_))) - (_%K131001131018%_ - (lambda (_%next-clause-id131016%_) - (_%lp130955%_ - _%rest130979%_ - _%rest-ids130995%_ - (cons (_%generate1130953%_ - _%clause130980%_ - _%clause-id130996%_ - _%next-clause-id131016%_) - _%bindings130959%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest-ids130997131005%_)) - (let* ((_%hd131002131021%_ + (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%_ (let () (declare (not safe)) - (##car _%rest-ids130997131005%_))) - (_%next-clause-id131024%_ - _%hd131002131021%_)) - (_%K131001131018%_ - _%next-clause-id131024%_)) - (_%else130999131013%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest-ids130981130988%_)) - (let ((_%hd130985131029%_ + (##car _%rest-ids132129132137%_))) + (_%next-clause-id132156%_ + _%hd132134132153%_)) + (_%K132133132150%_ + _%next-clause-id132156%_)) + (_%else132131132145%_)))))) + (if (pair? _%rest-ids132113132120%_) + (let ((_%hd132117132161%_ (let () (declare (not safe)) - (##car _%rest-ids130981130988%_))) - (_%tl130986131031%_ + (##car _%rest-ids132113132120%_))) + (_%tl132118132163%_ (let () (declare (not safe)) - (##cdr _%rest-ids130981130988%_)))) - (let* ((_%clause-id131034%_ - _%hd130985131029%_) - (_%rest-ids131036%_ - _%tl130986131031%_)) - (_%K130984131026%_ - _%rest-ids131036%_ - _%clause-id131034%_))) - (_%E130983130992%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest130960130968%_)) - (let ((_%hd130965131041%_ + (##cdr _%rest-ids132113132120%_)))) + (let* ((_%clause-id132166%_ + _%hd132117132161%_) + (_%rest-ids132168%_ + _%tl132118132163%_)) + (_%K132116132158%_ + _%rest-ids132168%_ + _%clause-id132166%_))) + (_%E132115132124%_)))))) + (if (pair? _%rest132092132100%_) + (let ((_%hd132097132173%_ (let () (declare (not safe)) - (##car _%rest130960130968%_))) - (_%tl130966131043%_ + (##car _%rest132092132100%_))) + (_%tl132098132175%_ (let () (declare (not safe)) - (##cdr _%rest130960130968%_)))) - (let* ((_%clause131046%_ _%hd130965131041%_) - (_%rest131048%_ _%tl130966131043%_)) - (_%K130964131038%_ - _%rest131048%_ - _%clause131046%_))) - (_%else130962130976%_))))))) - (_%generate-body130338%_ - (lambda (_%bindings130907%_ _%body130908%_) - (let _%recur130910%_ ((_%rest130912%_ _%bindings130907%_)) - (let* ((_%rest130913130921%_ _%rest130912%_) - (_%else130915130929%_ (lambda () _%body130908%_)) - (_%K130917130935%_ - (lambda (_%rest130932%_ _%hd130933%_) - (let ((__tmp131674 (cons _%hd130933%_ '())) - (__tmp131673 - (_%recur130910%_ _%rest130932%_))) + (##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%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp131674 - __tmp131673))))) - (if (let () - (declare (not safe)) - (##pair? _%rest130913130921%_)) - (let ((_%hd130918130938%_ + __tmp132806 + __tmp132805))))) + (if (pair? _%rest132045132053%_) + (let ((_%hd132050132070%_ (let () (declare (not safe)) - (##car _%rest130913130921%_))) - (_%tl130919130940%_ + (##car _%rest132045132053%_))) + (_%tl132051132072%_ (let () (declare (not safe)) - (##cdr _%rest130913130921%_)))) - (let* ((_%hd130943%_ _%hd130918130938%_) - (_%rest130945%_ _%tl130919130940%_)) - (_%K130917130935%_ - _%rest130945%_ - _%hd130943%_))) - (_%else130915130929%_)))))) - (_%generate-clause130339%_ - (lambda (_%target130770%_ - _%ids130771%_ - _%clause130772%_ - _%E130773%_) - (letrec ((_%generate1130775%_ - (lambda (_%hd130862%_ - _%fender130863%_ - _%body130864%_) - (let ((_g131675_ - (_%parse-clause130341%_ - _%hd130862%_ - _%ids130771%_))) + (##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%_))) (begin - (let ((_g131676_ + (let ((_g132808_ (let () (declare (not safe)) - (if (##values? _g131675_) - (##vector-length _g131675_) + (if (##values? _g132807_) + (##vector-length _g132807_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131676_ 2))) + (##fx= _g132808_ 2))) (error "Context expects 2 values" - _g131676_))) - (let ((_%e130866%_ + _g132808_))) + (let ((_%e131998%_ (let () (declare (not safe)) - (##vector-ref _g131675_ 0))) - (_%mvars130867%_ + (##vector-ref _g132807_ 0))) + (_%mvars131999%_ (let () (declare (not safe)) - (##vector-ref _g131675_ 1)))) - (let* ((_%pvars130869%_ + (##vector-ref _g132807_ 1)))) + (let* ((_%pvars132001%_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _%mvars130867%_)))) - (_%E130871%_ - (cons _%E130773%_ - (cons _%target130770%_ + _%mvars131999%_)))) + (_%E132003%_ + (cons _%E131905%_ + (cons _%target131902%_ '()))) - (_%K130904%_ - (let ((__tmp131677 - (let ((__tmp131679 - (map (lambda (_%mvar130873%_ + (_%K132036%_ + (let ((__tmp132809 + (let ((__tmp132811 + (map (lambda (_%mvar132005%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pvar130874%_) - (let* ((_%mvar130875130882%_ _%mvar130873%_) - (_%E130877130886%_ + _%pvar132006%_) + (let* ((_%mvar132007132014%_ _%mvar132005%_) + (_%E132009132018%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mvar130875130882%_ + _%mvar132007132014%_ '([id . depth]))) '#!void)) - (_%K130878130892%_ - (lambda (_%depth130889%_ _%id130890%_) - (cons _%id130890%_ - (cons (let ((__tmp131681 + (_%K132010132024%_ + (lambda (_%depth132021%_ _%id132022%_) + (cons _%id132022%_ + (cons (let ((__tmp132813 (let () (declare (not safe)) (gx#core-list 'quote - _%id130890%_))) - (__tmp131680 + _%id132022%_))) + (__tmp132812 (let () (declare (not safe)) (gx#core-list 'quote - _%pvar130874%_)))) + _%pvar132006%_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp131681 - __tmp131680 - _%depth130889%_)) + __tmp132813 + __tmp132812 + _%depth132021%_)) '()))))) - (if (let () - (declare (not safe)) - (##pair? _%mvar130875130882%_)) - (let ((_%hd130879130895%_ + (if (pair? _%mvar132007132014%_) + (let ((_%hd132011132027%_ (let () (declare (not safe)) - (##car _%mvar130875130882%_))) - (_%tl130880130897%_ + (##car _%mvar132007132014%_))) + (_%tl132012132029%_ (let () (declare (not safe)) - (##cdr _%mvar130875130882%_)))) - (let* ((_%id130900%_ _%hd130879130895%_) - (_%depth130902%_ _%tl130880130897%_)) - (_%K130878130892%_ - _%depth130902%_ - _%id130900%_))) - (_%E130877130886%_)))) - _%mvars130867%_ - _%pvars130869%_)) - (__tmp131678 - (if (eq? _%fender130863%_ '#t) - _%body130864%_ + (##cdr _%mvar132007132014%_)))) + (let* ((_%id132032%_ _%hd132011132027%_) + (_%depth132034%_ _%tl132012132029%_)) + (_%K132010132024%_ + _%depth132034%_ + _%id132032%_))) + (_%E132009132018%_)))) + _%mvars131999%_ + _%pvars132001%_)) + (__tmp132810 + (if (eq? _%fender131995%_ '#t) + _%body131996%_ (let () (declare (not safe)) (gx#core-list 'if - _%fender130863%_ - _%body130864%_ - _%E130871%_))))) + _%fender131995%_ + _%body131996%_ + _%E132003%_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp131679 __tmp131678)))) + (gx#core-list 'let-syntax __tmp132811 __tmp132810)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _%pvars130869%_ - __tmp131677)))) - (_%generate-match130340%_ - _%hd130862%_ - _%target130770%_ - _%e130866%_ - _%mvars130867%_ - _%K130904%_ - _%E130871%_)))))))) - (let* ((_%e130776130796%_ _%clause130772%_) - (_%E130785130800%_ + _%pvars132001%_ + __tmp132809)))) + (_%generate-match131472%_ + _%hd131994%_ + _%target131902%_ + _%e131998%_ + _%mvars131999%_ + _%K132036%_ + _%E132003%_)))))))) + (let* ((_%e131908131928%_ _%clause131904%_) + (_%E131917131932%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130776130796%_)))) - (_%E130778130834%_ + _%e131908131928%_)))) + (_%E131910131966%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e130776130796%_)) - (let ((_%e130786130804%_ + (gx#stx-pair? _%e131908131928%_)) + (let ((_%e131918131936%_ (let () (declare (not safe)) - (gx#syntax-e _%e130776130796%_)))) - (let ((_%hd130787130807%_ + (gx#syntax-e _%e131908131928%_)))) + (let ((_%hd131919131939%_ (let () (declare (not safe)) - (##car _%e130786130804%_))) - (_%tl130788130809%_ + (##car _%e131918131936%_))) + (_%tl131920131941%_ (let () (declare (not safe)) - (##cdr _%e130786130804%_)))) - (let ((_%hd130812%_ - _%hd130787130807%_)) + (##cdr _%e131918131936%_)))) + (let ((_%hd131944%_ + _%hd131919131939%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl130788130809%_)) - (let ((_%e130789130814%_ + _%tl131920131941%_)) + (let ((_%e131921131946%_ (let () (declare (not safe)) (gx#syntax-e - _%tl130788130809%_)))) - (let ((_%hd130790130817%_ + _%tl131920131941%_)))) + (let ((_%hd131922131949%_ (let () (declare (not safe)) - (##car _%e130789130814%_))) - (_%tl130791130819%_ + (##car _%e131921131946%_))) + (_%tl131923131951%_ (let () (declare (not safe)) - (##cdr _%e130789130814%_)))) - (let ((_%fender130822%_ - _%hd130790130817%_)) + (##cdr _%e131921131946%_)))) + (let ((_%fender131954%_ + _%hd131922131949%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl130791130819%_)) - (let ((_%e130792130824%_ + _%tl131923131951%_)) + (let ((_%e131924131956%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl130791130819%_)))) - (let ((_%hd130793130827%_ + (gx#syntax-e _%tl131923131951%_)))) + (let ((_%hd131925131959%_ (let () (declare (not safe)) - (##car _%e130792130824%_))) - (_%tl130794130829%_ + (##car _%e131924131956%_))) + (_%tl131926131961%_ (let () (declare (not safe)) - (##cdr _%e130792130824%_)))) - (let ((_%body130832%_ _%hd130793130827%_)) + (##cdr _%e131924131956%_)))) + (let ((_%body131964%_ _%hd131925131959%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl130794130829%_)) - (_%generate1130775%_ - _%hd130812%_ - _%fender130822%_ - _%body130832%_) - (_%E130785130800%_))))) - (_%E130785130800%_))))) + (gx#stx-null? _%tl131926131961%_)) + (_%generate1131907%_ + _%hd131944%_ + _%fender131954%_ + _%body131964%_) + (_%E131917131932%_))))) + (_%E131917131932%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E130785130800%_))))) - (_%E130785130800%_)))) - (_%E130777130858%_ + (_%E131917131932%_))))) + (_%E131917131932%_)))) + (_%E131909131990%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e130776130796%_)) - (let ((_%e130779130838%_ + (gx#stx-pair? _%e131908131928%_)) + (let ((_%e131911131970%_ (let () (declare (not safe)) - (gx#syntax-e _%e130776130796%_)))) - (let ((_%hd130780130841%_ + (gx#syntax-e _%e131908131928%_)))) + (let ((_%hd131912131973%_ (let () (declare (not safe)) - (##car _%e130779130838%_))) - (_%tl130781130843%_ + (##car _%e131911131970%_))) + (_%tl131913131975%_ (let () (declare (not safe)) - (##cdr _%e130779130838%_)))) - (let ((_%hd130846%_ - _%hd130780130841%_)) + (##cdr _%e131911131970%_)))) + (let ((_%hd131978%_ + _%hd131912131973%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl130781130843%_)) - (let ((_%e130782130848%_ + _%tl131913131975%_)) + (let ((_%e131914131980%_ (let () (declare (not safe)) (gx#syntax-e - _%tl130781130843%_)))) - (let ((_%hd130783130851%_ + _%tl131913131975%_)))) + (let ((_%hd131915131983%_ (let () (declare (not safe)) - (##car _%e130782130848%_))) - (_%tl130784130853%_ + (##car _%e131914131980%_))) + (_%tl131916131985%_ (let () (declare (not safe)) - (##cdr _%e130782130848%_)))) - (let ((_%body130856%_ - _%hd130783130851%_)) + (##cdr _%e131914131980%_)))) + (let ((_%body131988%_ + _%hd131915131983%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl130784130853%_)) - (_%generate1130775%_ - _%hd130846%_ + _%tl131916131985%_)) + (_%generate1131907%_ + _%hd131978%_ '#t - _%body130856%_) - (_%E130778130834%_))))) - (_%E130778130834%_))))) - (_%E130778130834%_))))) - (_%E130777130858%_))))) - (_%generate-match130340%_ - (lambda (_%where130519%_ - _%target130520%_ - _%hd130521%_ - _%mvars130522%_ - _%K130523%_ - _%E130524%_) - (letrec ((_%BUG130526%_ - (lambda (_%q130768%_) + _%body131988%_) + (_%E131910131966%_))))) + (_%E131910131966%_))))) + (_%E131910131966%_))))) + (_%E131909131990%_))))) + (_%generate-match131472%_ + (lambda (_%where131651%_ + _%target131652%_ + _%hd131653%_ + _%mvars131654%_ + _%K131655%_ + _%E131656%_) + (letrec ((_%BUG131658%_ + (lambda (_%q131900%_) (let () (declare (not safe)) (error '"BUG: syntax-case; generate" - _%stx130332%_ - _%hd130521%_ - _%q130768%_)))) - (_%recur130527%_ - (lambda (_%e130618%_ - _%vars130619%_ - _%target130620%_ - _%E130621%_ - _%k130622%_) - (let* ((_%e130623130630%_ _%e130618%_) - (_%E130625130634%_ + _%stx131464%_ + _%hd131653%_ + _%q131900%_)))) + (_%recur131659%_ + (lambda (_%e131750%_ + _%vars131751%_ + _%target131752%_ + _%E131753%_ + _%k131754%_) + (let* ((_%e131755131762%_ _%e131750%_) + (_%E131757131766%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e130623130630%_ + _%e131755131762%_ '([tag . body]))) '#!void)) - (_%K130626130756%_ - (lambda (_%body130637%_ _%tag130638%_) - (let ((_%$e130640%_ _%tag130638%_)) - (if (eq? 'any _%$e130640%_) - (_%k130622%_ _%vars130619%_) - (if (eq? 'id _%$e130640%_) - (let ((__tmp131686 + (_%K131758131888%_ + (lambda (_%body131769%_ _%tag131770%_) + (let ((_%$e131772%_ _%tag131770%_)) + (if (eq? 'any _%$e131772%_) + (_%k131754%_ _%vars131751%_) + (if (eq? 'id _%$e131772%_) + (let ((__tmp132818 (let () (declare (not safe)) (gx#core-list 'identifier? - _%target130620%_))) - (__tmp131682 - (let ((__tmp131684 + _%target131752%_))) + (__tmp132814 + (let ((__tmp132816 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp131685 + (let ((__tmp132817 (let () (declare (not safe)) (gx#core-list - _%wrap-e130335%_ - _%body130637%_)))) + _%wrap-e131467%_ + _%body131769%_)))) (declare (not safe)) (gx#core-list - _%identifier=?130333%_ - __tmp131685 - _%target130620%_))) - (__tmp131683 (_%k130622%_ _%vars130619%_))) + _%identifier=?131465%_ + __tmp132817 + _%target131752%_))) + (__tmp132815 (_%k131754%_ _%vars131751%_))) (declare (not safe)) - (gx#core-list 'if __tmp131684 __tmp131683 _%E130621%_)))) + (gx#core-list 'if __tmp132816 __tmp132815 _%E131753%_)))) (declare (not safe)) - (gx#core-list 'if __tmp131686 __tmp131682 _%E130621%_)) + (gx#core-list 'if __tmp132818 __tmp132814 _%E131753%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (eq? 'var _%$e130640%_) - (_%k130622%_ - (cons (cons _%body130637%_ + (if (eq? 'var _%$e131772%_) + (_%k131754%_ + (cons (cons _%body131769%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%target130620%_) - _%vars130619%_)) - (if (eq? 'cons _%$e130640%_) - (let ((_%$e130643%_ + _%target131752%_) + _%vars131751%_)) + (if (eq? 'cons _%$e131772%_) + (let ((_%$e131775%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$hd130644%_ + (_%$hd131776%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl130645%_ + (_%$tl131777%_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp131692 + (let ((__tmp132824 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _%target130620%_))) - (__tmp131687 - (let ((__tmp131691 - (cons (cons (cons _%$e130643%_ '()) + (gx#core-list 'stx-pair? _%target131752%_))) + (__tmp132819 + (let ((__tmp132823 + (cons (cons (cons _%$e131775%_ '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e130334%_ - _%target130620%_)) + _%unwrap-e131466%_ + _%target131752%_)) '())) '())) - (__tmp131688 - (let ((__tmp131690 - (cons (cons (cons _%$hd130644%_ '()) + (__tmp132820 + (let ((__tmp132822 + (cons (cons (cons _%$hd131776%_ '()) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#core-list '##car _%$e130643%_)) + (gx#core-list '##car _%$e131775%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%$tl130645%_ + (cons (cons (cons _%$tl131777%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##cdr _%$e130643%_)) + (gx#core-list '##cdr _%$e131775%_)) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp131689 - (let* ((_%body130646130653%_ - _%body130637%_) - (_%E130648130657%_ + (__tmp132821 + (let* ((_%body131778131785%_ + _%body131769%_) + (_%E131780131789%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body130646130653%_ + _%body131778131785%_ '([hd . tl]))) '#!void)) - (_%K130649130665%_ - (lambda (_%tl130660%_ - _%hd130661%_) - (_%recur130527%_ - _%hd130661%_ - _%vars130619%_ - _%$hd130644%_ - _%E130621%_ - (lambda (_%vars130663%_) - (_%recur130527%_ - _%tl130660%_ - _%vars130663%_ - _%$tl130645%_ - _%E130621%_ - _%k130622%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%body130646130653%_)) - (let ((_%hd130650130668%_ + (_%K131781131797%_ + (lambda (_%tl131792%_ + _%hd131793%_) + (_%recur131659%_ + _%hd131793%_ + _%vars131751%_ + _%$hd131776%_ + _%E131753%_ + (lambda (_%vars131795%_) + (_%recur131659%_ + _%tl131792%_ + _%vars131795%_ + _%$tl131777%_ + _%E131753%_ + _%k131754%_)))))) + (if (pair? _%body131778131785%_) + (let ((_%hd131782131800%_ (let () (declare (not safe)) - (##car _%body130646130653%_))) - (_%tl130651130670%_ + (##car _%body131778131785%_))) + (_%tl131783131802%_ (let () (declare (not safe)) - (##cdr _%body130646130653%_)))) - (let* ((_%hd130673%_ - _%hd130650130668%_) - (_%tl130675%_ - _%tl130651130670%_)) - (_%K130649130665%_ - _%tl130675%_ - _%hd130673%_))) - (_%E130648130657%_))))) + (##cdr _%body131778131785%_)))) + (let* ((_%hd131805%_ + _%hd131782131800%_) + (_%tl131807%_ + _%tl131783131802%_)) + (_%K131781131797%_ + _%tl131807%_ + _%hd131805%_))) + (_%E131780131789%_))))) (declare (not safe)) (gx#core-list 'let-values - __tmp131690 - __tmp131689)))) + __tmp132822 + __tmp132821)))) (declare (not safe)) (gx#core-list 'let-values - __tmp131691 - __tmp131688)))) + __tmp132823 + __tmp132820)))) (declare (not safe)) (gx#core-list 'if - __tmp131692 - __tmp131687 - _%E130621%_))) - (if (eq? 'splice _%$e130640%_) - (let* ((_%body130676130683%_ _%body130637%_) - (_%E130678130687%_ + __tmp132824 + __tmp132819 + _%E131753%_))) + (if (eq? 'splice _%$e131772%_) + (let* ((_%body131808131815%_ _%body131769%_) + (_%E131810131819%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body130676130683%_ + _%body131808131815%_ '([hd . tl]))) '#!void)) - (_%K130679130738%_ - (lambda (_%tl130690%_ _%hd130691%_) - (let* ((_%rlen130693%_ - (_%splice-rlen130528%_ _%tl130690%_)) - (_%$target130695%_ + (_%K131811131870%_ + (lambda (_%tl131822%_ _%hd131823%_) + (let* ((_%rlen131825%_ + (_%splice-rlen131660%_ _%tl131822%_)) + (_%$target131827%_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_%$hd130697%_ + (_%$hd131829%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl130699%_ + (_%$tl131831%_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_%$lp130701%_ + (_%$lp131833%_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_%$lp-e130703%_ + (_%$lp-e131835%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$lp-hd130705%_ + (_%$lp-hd131837%_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_%$lp-tl130707%_ + (_%$lp-tl131839%_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_%svars130709%_ - (_%splice-vars130529%_ _%hd130691%_)) - (_%lvars130711%_ + (_%svars131841%_ + (_%splice-vars131661%_ _%hd131823%_)) + (_%lvars131843%_ (let () (declare (not safe)) - (gx#gentemps _%svars130709%_))) - (_%tlvars130713%_ + (gx#gentemps _%svars131841%_))) + (_%tlvars131845%_ (let () (declare (not safe)) - (gx#gentemps _%svars130709%_))) - (_%linit130717%_ - (map (lambda (_%var130715%_) + (gx#gentemps _%svars131841%_))) + (_%linit131849%_ + (map (lambda (_%var131847%_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _%lvars130711%_))) - (letrec ((_%make-loop130720%_ - (lambda (_%vars130724%_) - (let ((__tmp131694 - (cons (cons (cons _%$lp130701%_ + _%lvars131843%_))) + (letrec ((_%make-loop131852%_ + (lambda (_%vars131856%_) + (let ((__tmp132826 + (cons (cons (cons _%$lp131833%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp131707 - (cons _%$hd130697%_ _%lvars130711%_)) - (__tmp131695 - (let ((__tmp131706 + (cons (let ((__tmp132839 + (cons _%$hd131829%_ _%lvars131843%_)) + (__tmp132827 + (let ((__tmp132838 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _%$hd130697%_))) - (__tmp131700 - (let ((__tmp131705 - (cons (cons (cons _%$lp-e130703%_ + _%$hd131829%_))) + (__tmp132832 + (let ((__tmp132837 + (cons (cons (cons _%$lp-e131835%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e130334%_ - _%$hd130697%_)) + _%unwrap-e131466%_ + _%$hd131829%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp131701 - (let ((__tmp131704 - (cons (cons (cons _%$lp-hd130705%_ + (__tmp132833 + (let ((__tmp132836 + (cons (cons (cons _%$lp-hd131837%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##car _%$lp-e130703%_)) + (gx#core-list '##car _%$lp-e131835%_)) '())) - (cons (cons (cons _%$lp-tl130707%_ '()) + (cons (cons (cons _%$lp-tl131839%_ '()) (cons (let () (declare (not safe)) (gx#core-list '##cdr - _%$lp-e130703%_)) + _%$lp-e131835%_)) '())) '()))) - (__tmp131702 - (_%recur130527%_ - _%hd130691%_ + (__tmp132834 + (_%recur131659%_ + _%hd131823%_ '() - _%$lp-hd130705%_ - _%E130621%_ - (lambda (_%hdvars130726%_) - (cons _%$lp130701%_ - (cons _%$lp-tl130707%_ - (map (lambda (_%svar130728%_ - _%lvar130729%_) - (let ((__tmp131703 + _%$lp-hd131837%_ + _%E131753%_ + (lambda (_%hdvars131858%_) + (cons _%$lp131833%_ + (cons _%$lp-tl131839%_ + (map (lambda (_%svar131860%_ + _%lvar131861%_) + (let ((__tmp132835 (let () (declare (not safe)) (agetq__% - _%svar130728%_ - _%hdvars130726%_ - _%BUG130526%_)))) + _%svar131860%_ + _%hdvars131858%_ + _%BUG131658%_)))) (declare (not safe)) (gx#core-list 'cons - __tmp131703 - _%lvar130729%_))) - _%svars130709%_ - _%lvars130711%_))))))) + __tmp132835 + _%lvar131861%_))) + _%svars131841%_ + _%lvars131843%_))))))) (declare (not safe)) - (gx#core-list 'let-values __tmp131704 __tmp131702)))) + (gx#core-list 'let-values __tmp132836 __tmp132834)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp131705 - __tmp131701))) - (__tmp131696 - (let ((__tmp131699 - (map (lambda (_%lvar130731%_ + __tmp132837 + __tmp132833))) + (__tmp132828 + (let ((__tmp132831 + (map (lambda (_%lvar131863%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar130732%_) - (cons (cons _%tlvar130732%_ '()) + _%tlvar131864%_) + (cons (cons _%tlvar131864%_ '()) (cons (let () (declare (not safe)) - (gx#core-list 'reverse _%lvar130731%_)) + (gx#core-list 'reverse _%lvar131863%_)) '()))) - _%lvars130711%_ - _%tlvars130713%_)) + _%lvars131843%_ + _%tlvars131845%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp131697 - (_%k130622%_ - (let ((__tmp131698 - (lambda (_%svar130734%_ + (__tmp132829 + (_%k131754%_ + (let ((__tmp132830 + (lambda (_%svar131866%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar130735%_ - _%r130736%_) - (cons (cons _%svar130734%_ _%tlvar130735%_) - _%r130736%_)))) + _%tlvar131867%_ + _%r131868%_) + (cons (cons _%svar131866%_ _%tlvar131867%_) + _%r131868%_)))) (declare (not safe)) (__foldl2 - __tmp131698 - _%vars130724%_ - _%svars130709%_ - _%tlvars130713%_))))) + __tmp132830 + _%vars131856%_ + _%svars131841%_ + _%tlvars131845%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp131699 - __tmp131697)))) + __tmp132831 + __tmp132829)))) (declare (not safe)) (gx#core-list 'if - __tmp131706 - __tmp131700 - __tmp131696)))) + __tmp132838 + __tmp132832 + __tmp132828)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp131707 - __tmp131695)) + __tmp132839 + __tmp132827)) '())) '())) - (__tmp131693 - (cons _%$lp130701%_ (cons _%$target130695%_ _%linit130717%_)))) + (__tmp132825 + (cons _%$lp131833%_ (cons _%$target131827%_ _%linit131849%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp131694 - __tmp131693))))) - (let ((_%body130722%_ - (let ((__tmp131709 - (cons (cons (cons _%$target130695%_ + __tmp132826 + __tmp132825))))) + (let ((_%body131854%_ + (let ((__tmp132841 + (cons (cons (cons _%$target131827%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tl130699%_ '())) + (cons _%$tl131831%_ '())) (cons (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _%target130620%_ - _%rlen130693%_)) + _%target131752%_ + _%rlen131825%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp131708 - (_%recur130527%_ - _%tl130690%_ - _%vars130619%_ - _%$tl130699%_ - _%E130621%_ - _%make-loop130720%_))) + (__tmp132840 + (_%recur131659%_ + _%tl131822%_ + _%vars131751%_ + _%$tl131831%_ + _%E131753%_ + _%make-loop131852%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp131709 - __tmp131708)))) - (let ((__tmp131713 + __tmp132841 + __tmp132840)))) + (let ((__tmp132845 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _%target130620%_))) - (__tmp131710 - (if (zero? _%rlen130693%_) - _%body130722%_ - (let ((__tmp131711 - (let ((__tmp131712 + _%target131752%_))) + (__tmp132842 + (if (zero? _%rlen131825%_) + _%body131854%_ + (let ((__tmp132843 + (let ((__tmp132844 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _%target130620%_)))) + (gx#core-list 'stx-length _%target131752%_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp131712 _%rlen130693%_)))) + (gx#core-list 'fx>= __tmp132844 _%rlen131825%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp131711 - _%body130722%_ - _%E130621%_))))) + __tmp132843 + _%body131854%_ + _%E131753%_))))) (declare (not safe)) (gx#core-list 'if - __tmp131713 - __tmp131710 - _%E130621%_)))))))) - (if (let () - (declare (not safe)) - (##pair? _%body130676130683%_)) - (let ((_%hd130680130741%_ + __tmp132845 + __tmp132842 + _%E131753%_)))))))) + (if (pair? _%body131808131815%_) + (let ((_%hd131812131873%_ (let () (declare (not safe)) - (##car _%body130676130683%_))) - (_%tl130681130743%_ + (##car _%body131808131815%_))) + (_%tl131813131875%_ (let () (declare (not safe)) - (##cdr _%body130676130683%_)))) - (let* ((_%hd130746%_ _%hd130680130741%_) - (_%tl130748%_ _%tl130681130743%_)) - (_%K130679130738%_ - _%tl130748%_ - _%hd130746%_))) - (_%E130678130687%_))) - (if (eq? 'null _%$e130640%_) - (let ((__tmp131715 + (##cdr _%body131808131815%_)))) + (let* ((_%hd131878%_ _%hd131812131873%_) + (_%tl131880%_ _%tl131813131875%_)) + (_%K131811131870%_ + _%tl131880%_ + _%hd131878%_))) + (_%E131810131819%_))) + (if (eq? 'null _%$e131772%_) + (let ((__tmp132847 (let () (declare (not safe)) (gx#core-list 'stx-null? - _%target130620%_))) - (__tmp131714 (_%k130622%_ _%vars130619%_))) + _%target131752%_))) + (__tmp132846 (_%k131754%_ _%vars131751%_))) (declare (not safe)) (gx#core-list 'if - __tmp131715 - __tmp131714 - _%E130621%_)) - (if (eq? 'vector _%$e130640%_) - (let ((_%$e130750%_ + __tmp132847 + __tmp132846 + _%E131753%_)) + (if (eq? 'vector _%$e131772%_) + (let ((_%$e131882%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp131720 + (let ((__tmp132852 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _%target130620%_))) - (__tmp131716 - (let ((__tmp131718 - (cons (cons (cons _%$e130750%_ + _%target131752%_))) + (__tmp132848 + (let ((__tmp132850 + (cons (cons (cons _%$e131882%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp131719 + (cons (let ((__tmp132851 (let () (declare (not safe)) (gx#core-list - _%unwrap-e130334%_ - _%target130620%_)))) + _%unwrap-e131466%_ + _%target131752%_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp131719)) + (gx#core-list 'vector->list __tmp132851)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp131717 - (_%recur130527%_ - _%body130637%_ - _%vars130619%_ - _%$e130750%_ - _%E130621%_ - _%k130622%_))) + (__tmp132849 + (_%recur131659%_ + _%body131769%_ + _%vars131751%_ + _%$e131882%_ + _%E131753%_ + _%k131754%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp131718 - __tmp131717)))) + __tmp132850 + __tmp132849)))) (declare (not safe)) (gx#core-list 'if - __tmp131720 - __tmp131716 - _%E130621%_))) - (if (eq? 'box _%$e130640%_) - (let ((_%$e130752%_ + __tmp132852 + __tmp132848 + _%E131753%_))) + (if (eq? 'box _%$e131772%_) + (let ((_%$e131884%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp131725 + (let ((__tmp132857 (let () (declare (not safe)) (gx#core-list 'stx-box? - _%target130620%_))) - (__tmp131721 - (let ((__tmp131723 - (cons (cons (cons _%$e130752%_ + _%target131752%_))) + (__tmp132853 + (let ((__tmp132855 + (cons (cons (cons _%$e131884%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp131724 + (cons (let ((__tmp132856 (let () (declare (not safe)) (gx#core-list - _%unwrap-e130334%_ - _%target130620%_)))) + _%unwrap-e131466%_ + _%target131752%_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp131724)) + (gx#core-list 'unbox __tmp132856)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp131722 - (_%recur130527%_ - _%body130637%_ - _%vars130619%_ - _%$e130752%_ - _%E130621%_ - _%k130622%_))) + (__tmp132854 + (_%recur131659%_ + _%body131769%_ + _%vars131751%_ + _%$e131884%_ + _%E131753%_ + _%k131754%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp131723 - __tmp131722)))) + __tmp132855 + __tmp132854)))) (declare (not safe)) (gx#core-list 'if - __tmp131725 - __tmp131721 - _%E130621%_))) - (if (eq? 'datum _%$e130640%_) - (let ((_%$e130754%_ + __tmp132857 + __tmp132853 + _%E131753%_))) + (if (eq? 'datum _%$e131772%_) + (let ((_%$e131886%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp131731 + (let ((__tmp132863 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _%target130620%_))) - (__tmp131726 - (let ((__tmp131730 - (cons (cons (cons _%$e130754%_ + _%target131752%_))) + (__tmp132858 + (let ((__tmp132862 + (cons (cons (cons _%$e131886%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list 'stx-e _%target130620%_)) + (gx#core-list 'stx-e _%target131752%_)) '())) '())) - (__tmp131727 - (let ((__tmp131729 + (__tmp132859 + (let ((__tmp132861 (let () (declare (not safe)) - (gx#core-list 'equal? _%$e130754%_ _%body130637%_))) - (__tmp131728 (_%k130622%_ _%vars130619%_))) + (gx#core-list 'equal? _%$e131886%_ _%body131769%_))) + (__tmp132860 (_%k131754%_ _%vars131751%_))) (declare (not safe)) - (gx#core-list 'if __tmp131729 __tmp131728 _%E130621%_)))) + (gx#core-list 'if __tmp132861 __tmp132860 _%E131753%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp131730 - __tmp131727)))) + __tmp132862 + __tmp132859)))) (declare (not safe)) (gx#core-list 'if - __tmp131731 - __tmp131726 - _%E130621%_))) - (_%BUG130526%_ - _%e130618%_)))))))))))))) + __tmp132863 + __tmp132858 + _%E131753%_))) + (_%BUG131658%_ + _%e131750%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%e130623130630%_)) - (let ((_%hd130627130759%_ + (if (pair? _%e131755131762%_) + (let ((_%hd131759131891%_ (let () (declare (not safe)) - (##car _%e130623130630%_))) - (_%tl130628130761%_ + (##car _%e131755131762%_))) + (_%tl131760131893%_ (let () (declare (not safe)) - (##cdr _%e130623130630%_)))) - (let* ((_%tag130764%_ - _%hd130627130759%_) - (_%body130766%_ - _%tl130628130761%_)) - (_%K130626130756%_ - _%body130766%_ - _%tag130764%_))) - (_%E130625130634%_))))) - (_%splice-rlen130528%_ - (lambda (_%e130580%_) - (let _%lp130582%_ ((_%e130584%_ _%e130580%_) - (_%n130585%_ '0)) - (let* ((_%e130586130593%_ _%e130584%_) - (_%E130588130597%_ + (##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%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e130586130593%_ + _%e131718131725%_ '([tag . body]))) '#!void)) - (_%K130589130606%_ - (lambda (_%body130600%_ - _%tag130601%_) - (let ((_%$e130603%_ _%tag130601%_)) - (if (eq? 'splice _%$e130603%_) + (_%K131721131738%_ + (lambda (_%body131732%_ + _%tag131733%_) + (let ((_%$e131735%_ _%tag131733%_)) + (if (eq? 'splice _%$e131735%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _%stx130332%_ - _%where130519%_)) - (if (eq? 'cons _%$e130603%_) - (_%lp130582%_ - (cdr _%body130600%_) + _%stx131464%_ + _%where131651%_)) + (if (eq? 'cons _%$e131735%_) + (_%lp131714%_ + (cdr _%body131732%_) (let () (declare (not safe)) - (##fx+ _%n130585%_ + (##fx+ _%n131717%_ '1))) - _%n130585%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%e130586130593%_)) - (let ((_%hd130590130609%_ + _%n131717%_)))))) + (if (pair? _%e131718131725%_) + (let ((_%hd131722131741%_ (let () (declare (not safe)) - (##car _%e130586130593%_))) - (_%tl130591130611%_ + (##car _%e131718131725%_))) + (_%tl131723131743%_ (let () (declare (not safe)) - (##cdr _%e130586130593%_)))) - (let* ((_%tag130614%_ - _%hd130590130609%_) - (_%body130616%_ - _%tl130591130611%_)) - (_%K130589130606%_ - _%body130616%_ - _%tag130614%_))) - (_%E130588130597%_)))))) - (_%splice-vars130529%_ - (lambda (_%e130536%_) - (let _%recur130538%_ ((_%e130540%_ _%e130536%_) - (_%vars130541%_ '())) - (let* ((_%e130542130549%_ _%e130540%_) - (_%E130544130553%_ + (##cdr _%e131718131725%_)))) + (let* ((_%tag131746%_ + _%hd131722131741%_) + (_%body131748%_ + _%tl131723131743%_)) + (_%K131721131738%_ + _%body131748%_ + _%tag131746%_))) + (_%E131720131729%_)))))) + (_%splice-vars131661%_ + (lambda (_%e131668%_) + (let _%recur131670%_ ((_%e131672%_ _%e131668%_) + (_%vars131673%_ '())) + (let* ((_%e131674131681%_ _%e131672%_) + (_%E131676131685%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e130542130549%_ + _%e131674131681%_ '([tag . body]))) '#!void)) - (_%K130545130568%_ - (lambda (_%body130556%_ - _%tag130557%_) - (let ((_%$e130559%_ _%tag130557%_)) - (if (eq? 'var _%$e130559%_) - (cons _%body130556%_ - _%vars130541%_) + (_%K131677131700%_ + (lambda (_%body131688%_ + _%tag131689%_) + (let ((_%$e131691%_ _%tag131689%_)) + (if (eq? 'var _%$e131691%_) + (cons _%body131688%_ + _%vars131673%_) (if (or (eq? 'cons - _%$e130559%_) + _%$e131691%_) (eq? 'splice - _%$e130559%_)) - (_%recur130538%_ - (cdr _%body130556%_) - (_%recur130538%_ - (car _%body130556%_) - _%vars130541%_)) + _%$e131691%_)) + (_%recur131670%_ + (cdr _%body131688%_) + (_%recur131670%_ + (car _%body131688%_) + _%vars131673%_)) (if (or (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e130559%_) - (eq? 'box _%$e130559%_)) - (_%recur130538%_ _%body130556%_ _%vars130541%_) - _%vars130541%_))))))) + _%$e131691%_) + (eq? 'box _%$e131691%_)) + (_%recur131670%_ _%body131688%_ _%vars131673%_) + _%vars131673%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%e130542130549%_)) - (let ((_%hd130546130571%_ + (if (pair? _%e131674131681%_) + (let ((_%hd131678131703%_ (let () (declare (not safe)) - (##car _%e130542130549%_))) - (_%tl130547130573%_ + (##car _%e131674131681%_))) + (_%tl131679131705%_ (let () (declare (not safe)) - (##cdr _%e130542130549%_)))) - (let* ((_%tag130576%_ - _%hd130546130571%_) - (_%body130578%_ - _%tl130547130573%_)) - (_%K130545130568%_ - _%body130578%_ - _%tag130576%_))) - (_%E130544130553%_)))))) - (_%make-body130530%_ - (lambda (_%vars130532%_) - (cons _%K130523%_ - (map (lambda (_%mvar130534%_) - (let ((__tmp131732 - (car _%mvar130534%_))) + (##cdr _%e131674131681%_)))) + (let* ((_%tag131708%_ + _%hd131678131703%_) + (_%body131710%_ + _%tl131679131705%_)) + (_%K131677131700%_ + _%body131710%_ + _%tag131708%_))) + (_%E131676131685%_)))))) + (_%make-body131662%_ + (lambda (_%vars131664%_) + (cons _%K131655%_ + (map (lambda (_%mvar131666%_) + (let ((__tmp132864 + (car _%mvar131666%_))) (declare (not safe)) (agetq__% - __tmp131732 - _%vars130532%_ - _%BUG130526%_))) - _%mvars130522%_))))) - (_%recur130527%_ - _%hd130521%_ + __tmp132864 + _%vars131664%_ + _%BUG131658%_))) + _%mvars131654%_))))) + (_%recur131659%_ + _%hd131653%_ '() - _%target130520%_ - _%E130524%_ - _%make-body130530%_)))) - (_%parse-clause130341%_ - (lambda (_%hd130413%_ _%ids130414%_) - (let _%recur130416%_ ((_%e130418%_ _%hd130413%_) - (_%vars130419%_ '()) - (_%depth130420%_ '0)) + _%target131652%_ + _%E131656%_ + _%make-body131662%_)))) + (_%parse-clause131473%_ + (lambda (_%hd131545%_ _%ids131546%_) + (let _%recur131548%_ ((_%e131550%_ _%hd131545%_) + (_%vars131551%_ '()) + (_%depth131552%_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _%e130418%_)) + (gx#identifier? _%e131550%_)) (if (let () (declare (not safe)) - (gx#underscore? _%e130418%_)) - (values '(any) _%vars130419%_) + (gx#underscore? _%e131550%_)) + (values '(any) _%vars131551%_) (if (let () (declare (not safe)) - (gx#ellipsis? _%e130418%_)) + (gx#ellipsis? _%e131550%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx130332%_ - _%hd130413%_)) - (if (let ((__tmp131733 - (lambda (_%id130425%_) + _%stx131464%_ + _%hd131545%_)) + (if (let ((__tmp132865 + (lambda (_%id131557%_) (let () (declare (not safe)) (gx#bound-identifier=? - _%e130418%_ - _%id130425%_))))) + _%e131550%_ + _%id131557%_))))) (declare (not safe)) - (__find __tmp131733 _%ids130414%_)) - (values (cons 'id _%e130418%_) - _%vars130419%_) - (if (let ((__tmp131734 - (lambda (_%var130428%_) - (let ((__tmp131735 - (car _%var130428%_))) + (__find __tmp132865 _%ids131546%_)) + (values (cons 'id _%e131550%_) + _%vars131551%_) + (if (let ((__tmp132866 + (lambda (_%var131560%_) + (let ((__tmp132867 + (car _%var131560%_))) (declare (not safe)) (gx#bound-identifier=? - _%e130418%_ - __tmp131735))))) + _%e131550%_ + __tmp132867))))) (declare (not safe)) - (__find __tmp131734 - _%vars130419%_)) + (__find __tmp132866 + _%vars131551%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _%stx130332%_ - _%e130418%_)) - (values (cons 'var _%e130418%_) - (cons (cons _%e130418%_ - _%depth130420%_) - _%vars130419%_)))))) + _%stx131464%_ + _%e131550%_)) + (values (cons 'var _%e131550%_) + (cons (cons _%e131550%_ + _%depth131552%_) + _%vars131551%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%e130418%_)) - (let* ((_%e130432130439%_ _%e130418%_) - (_%E130434130443%_ + (gx#stx-pair? _%e131550%_)) + (let* ((_%e131564131571%_ _%e131550%_) + (_%E131566131575%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130432130439%_)))) - (_%E130433130504%_ + _%e131564131571%_)))) + (_%E131565131636%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e130432130439%_)) - (let ((_%e130435130447%_ + (gx#stx-pair? _%e131564131571%_)) + (let ((_%e131567131579%_ (let () (declare (not safe)) (gx#syntax-e - _%e130432130439%_)))) - (let ((_%hd130436130450%_ + _%e131564131571%_)))) + (let ((_%hd131568131582%_ (let () (declare (not safe)) - (##car _%e130435130447%_))) - (_%tl130437130452%_ + (##car _%e131567131579%_))) + (_%tl131569131584%_ (let () (declare (not safe)) - (##cdr _%e130435130447%_)))) - (let* ((_%hd130455%_ - _%hd130436130450%_) - (_%rest130457%_ - _%tl130437130452%_) - (_%make-pair130472%_ - (lambda (_%tag130459%_ + (##cdr _%e131567131579%_)))) + (let* ((_%hd131587%_ + _%hd131568131582%_) + (_%rest131589%_ + _%tl131569131584%_) + (_%make-pair131604%_ + (lambda (_%tag131591%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd130460%_ - _%tl130461%_) - (let* ((_%hd-depth130463%_ - (if (eq? _%tag130459%_ 'splice) + _%hd131592%_ + _%tl131593%_) + (let* ((_%hd-depth131595%_ + (if (eq? _%tag131591%_ 'splice) (let () (declare (not safe)) - (##fx+ _%depth130420%_ '1)) - _%depth130420%_)) - (_g131736_ - (_%recur130416%_ - _%hd130460%_ - _%vars130419%_ - _%hd-depth130463%_))) + (##fx+ _%depth131552%_ '1)) + _%depth131552%_)) + (_g132868_ + (_%recur131548%_ + _%hd131592%_ + _%vars131551%_ + _%hd-depth131595%_))) (begin - (let ((_g131737_ + (let ((_g132869_ (let () (declare (not safe)) - (if (##values? _g131736_) - (##vector-length _g131736_) + (if (##values? _g132868_) + (##vector-length _g132868_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131737_ 2))) - (error "Context expects 2 values" _g131737_))) - (let ((_%hd130465%_ + (##fx= _g132869_ 2))) + (error "Context expects 2 values" _g132869_))) + (let ((_%hd131597%_ (let () (declare (not safe)) - (##vector-ref _g131736_ 0))) - (_%vars130466%_ + (##vector-ref _g132868_ 0))) + (_%vars131598%_ (let () (declare (not safe)) - (##vector-ref _g131736_ 1)))) - (let ((_g131738_ - (_%recur130416%_ - _%tl130461%_ - _%vars130466%_ - _%depth130420%_))) + (##vector-ref _g132868_ 1)))) + (let ((_g132870_ + (_%recur131548%_ + _%tl131593%_ + _%vars131598%_ + _%depth131552%_))) (begin - (let ((_g131739_ + (let ((_g132871_ (let () (declare (not safe)) - (if (##values? _g131738_) - (##vector-length _g131738_) + (if (##values? _g132870_) + (##vector-length _g132870_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131739_ 2))) + (##fx= _g132871_ 2))) (error "Context expects 2 values" - _g131739_))) - (let ((_%tl130468%_ + _g132871_))) + (let ((_%tl131600%_ (let () (declare (not safe)) - (##vector-ref _g131738_ 0))) - (_%vars130469%_ + (##vector-ref _g132870_ 0))) + (_%vars131601%_ (let () (declare (not safe)) - (##vector-ref _g131738_ 1)))) - (values (cons _%tag130459%_ - (cons _%hd130465%_ _%tl130468%_)) - _%vars130469%_))))))))) - (_%e130473130480%_ _%rest130457%_) - (_%E130475130484%_ + (##vector-ref _g132870_ 1)))) + (values (cons _%tag131591%_ + (cons _%hd131597%_ _%tl131600%_)) + _%vars131601%_))))))))) + (_%e131605131612%_ _%rest131589%_) + (_%E131607131616%_ (lambda () - (_%make-pair130472%_ 'cons _%hd130455%_ _%rest130457%_))) - (_%E130474130500%_ + (_%make-pair131604%_ 'cons _%hd131587%_ _%rest131589%_))) + (_%E131606131632%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e130473130480%_)) - (let ((_%e130476130488%_ + (gx#stx-pair? _%e131605131612%_)) + (let ((_%e131608131620%_ (let () (declare (not safe)) - (gx#syntax-e _%e130473130480%_)))) - (let ((_%hd130477130491%_ + (gx#syntax-e _%e131605131612%_)))) + (let ((_%hd131609131623%_ (let () (declare (not safe)) - (##car _%e130476130488%_))) - (_%tl130478130493%_ + (##car _%e131608131620%_))) + (_%tl131610131625%_ (let () (declare (not safe)) - (##cdr _%e130476130488%_)))) - (let* ((_%rest-hd130496%_ _%hd130477130491%_) - (_%rest-tl130498%_ _%tl130478130493%_)) + (##cdr _%e131608131620%_)))) + (let* ((_%rest-hd131628%_ _%hd131609131623%_) + (_%rest-tl131630%_ _%tl131610131625%_)) (if (let () (declare (not safe)) - (gx#ellipsis? _%rest-hd130496%_)) - (_%make-pair130472%_ + (gx#ellipsis? _%rest-hd131628%_)) + (_%make-pair131604%_ 'splice - _%hd130455%_ - _%rest-tl130498%_) - (_%make-pair130472%_ + _%hd131587%_ + _%rest-tl131630%_) + (_%make-pair131604%_ 'cons - _%hd130455%_ - _%rest130457%_))))) - (_%E130475130484%_))))) + _%hd131587%_ + _%rest131589%_))))) + (_%E131607131616%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E130474130500%_)))) - (_%E130434130443%_))))) - (_%E130433130504%_)) + (_%E131606131632%_)))) + (_%E131566131575%_))))) + (_%E131565131636%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%e130418%_)) - (values '(null) _%vars130419%_) + (gx#stx-null? _%e131550%_)) + (values '(null) _%vars131551%_) (if (let () (declare (not safe)) - (gx#stx-vector? _%e130418%_)) - (let ((_g131740_ - (_%recur130416%_ + (gx#stx-vector? _%e131550%_)) + (let ((_g132872_ + (_%recur131548%_ (vector->list (let () (declare (not safe)) - (gx#syntax-e _%e130418%_))) - _%vars130419%_ - _%depth130420%_))) + (gx#syntax-e _%e131550%_))) + _%vars131551%_ + _%depth131552%_))) (begin - (let ((_g131741_ + (let ((_g132873_ (let () (declare (not safe)) - (if (##values? _g131740_) + (if (##values? _g132872_) (##vector-length - _g131740_) + _g132872_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131741_ 2))) + (##fx= _g132873_ 2))) (error "Context expects 2 values" - _g131741_))) - (let ((_%e130510%_ + _g132873_))) + (let ((_%e131642%_ (let () (declare (not safe)) - (##vector-ref _g131740_ 0))) - (_%vars130511%_ + (##vector-ref _g132872_ 0))) + (_%vars131643%_ (let () (declare (not safe)) (##vector-ref - _g131740_ + _g132872_ 1)))) - (values (cons 'vector _%e130510%_) - _%vars130511%_)))) + (values (cons 'vector _%e131642%_) + _%vars131643%_)))) (if (let () (declare (not safe)) - (gx#stx-box? _%e130418%_)) - (let ((_g131742_ - (_%recur130416%_ + (gx#stx-box? _%e131550%_)) + (let ((_g132874_ + (_%recur131548%_ (unbox (let () (declare (not safe)) (gx#syntax-e - _%e130418%_))) - _%vars130419%_ - _%depth130420%_))) + _%e131550%_))) + _%vars131551%_ + _%depth131552%_))) (begin - (let ((_g131743_ + (let ((_g132875_ (let () (declare (not safe)) (if (##values? - _g131742_) + _g132874_) (##vector-length - _g131742_) + _g132874_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131743_ + (##fx= _g132875_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g131743_))) - (let ((_%e130514%_ + _g132875_))) + (let ((_%e131646%_ (let () (declare (not safe)) (##vector-ref - _g131742_ + _g132874_ 0))) - (_%vars130515%_ + (_%vars131647%_ (let () (declare (not safe)) (##vector-ref - _g131742_ + _g132874_ 1)))) - (values (cons 'box _%e130514%_) - _%vars130515%_)))) + (values (cons 'box _%e131646%_) + _%vars131647%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%e130418%_)) + (gx#stx-datum? _%e131550%_)) (values (cons 'datum (let () (declare (not safe)) (gx#stx-e - _%e130418%_))) - _%vars130419%_) + _%e131550%_))) + _%vars131551%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _%stx130332%_ - _%e130418%_)))))))))))) - (let* ((_%e130342130355%_ _%stx130332%_) - (_%E130344130359%_ + _%stx131464%_ + _%e131550%_)))))))))))) + (let* ((_%e131474131487%_ _%stx131464%_) + (_%E131476131491%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130342130355%_)))) - (_%E130343130409%_ + _%e131474131487%_)))) + (_%E131475131541%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e130342130355%_)) - (let ((_%e130345130363%_ + (gx#stx-pair? _%e131474131487%_)) + (let ((_%e131477131495%_ (let () (declare (not safe)) - (gx#syntax-e _%e130342130355%_)))) - (let ((_%hd130346130366%_ + (gx#syntax-e _%e131474131487%_)))) + (let ((_%hd131478131498%_ (let () (declare (not safe)) - (##car _%e130345130363%_))) - (_%tl130347130368%_ + (##car _%e131477131495%_))) + (_%tl131479131500%_ (let () (declare (not safe)) - (##cdr _%e130345130363%_)))) + (##cdr _%e131477131495%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl130347130368%_)) - (let ((_%e130348130371%_ + (gx#stx-pair? _%tl131479131500%_)) + (let ((_%e131480131503%_ (let () (declare (not safe)) - (gx#syntax-e _%tl130347130368%_)))) - (let ((_%hd130349130374%_ + (gx#syntax-e _%tl131479131500%_)))) + (let ((_%hd131481131506%_ (let () (declare (not safe)) - (##car _%e130348130371%_))) - (_%tl130350130376%_ + (##car _%e131480131503%_))) + (_%tl131482131508%_ (let () (declare (not safe)) - (##cdr _%e130348130371%_)))) - (let ((_%expr130379%_ _%hd130349130374%_)) + (##cdr _%e131480131503%_)))) + (let ((_%expr131511%_ _%hd131481131506%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl130350130376%_)) - (let ((_%e130351130381%_ + (gx#stx-pair? _%tl131482131508%_)) + (let ((_%e131483131513%_ (let () (declare (not safe)) (gx#syntax-e - _%tl130350130376%_)))) - (let ((_%hd130352130384%_ + _%tl131482131508%_)))) + (let ((_%hd131484131516%_ (let () (declare (not safe)) - (##car _%e130351130381%_))) - (_%tl130353130386%_ + (##car _%e131483131513%_))) + (_%tl131485131518%_ (let () (declare (not safe)) - (##cdr _%e130351130381%_)))) - (let* ((_%ids130389%_ - _%hd130352130384%_) - (_%clauses130391%_ - _%tl130353130386%_)) + (##cdr _%e131483131513%_)))) + (let* ((_%ids131521%_ + _%hd131484131516%_) + (_%clauses131523%_ + _%tl131485131518%_)) (if (let () (declare (not safe)) (gx#identifier-list? - _%ids130389%_)) + _%ids131521%_)) (if (let () (declare (not safe)) (gx#stx-list? - _%clauses130391%_)) - (let* ((_%ids130396%_ + _%clauses131523%_)) + (let* ((_%ids131528%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax->list _%ids130389%_))) - (_%clauses130398%_ + (gx#syntax->list _%ids131521%_))) + (_%clauses131530%_ (let () (declare (not safe)) - (gx#syntax->list _%clauses130391%_))) - (_%clause-ids130400%_ + (gx#syntax->list _%clauses131523%_))) + (_%clause-ids131532%_ (let () (declare (not safe)) - (gx#gentemps _%clauses130398%_))) - (_%E130402%_ + (gx#gentemps _%clauses131530%_))) + (_%E131534%_ (let () (declare (not safe)) (gx#genident__0))) - (_%target130404%_ + (_%target131536%_ (let () (declare (not safe)) (gx#genident__0))) - (_%first130406%_ - (if (null? _%clauses130398%_) - _%E130402%_ - (car _%clause-ids130400%_)))) - (let ((__tmp131745 - (let ((__tmp131746 - (let ((__tmp131748 - (let ((__tmp131750 - (cons (cons (cons _%E130402%_ + (_%first131538%_ + (if (null? _%clauses131530%_) + _%E131534%_ + (car _%clause-ids131532%_)))) + (let ((__tmp132877 + (let ((__tmp132878 + (let ((__tmp132880 + (let ((__tmp132882 + (cons (cons (cons _%E131534%_ '()) - (cons (let ((__tmp131752 + (cons (let ((__tmp132884 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%target130404%_ '())) - (__tmp131751 + (cons _%target131536%_ '())) + (__tmp132883 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _%target130404%_)))) + _%target131536%_)))) (declare (not safe)) - (gx#core-list 'lambda% __tmp131752 __tmp131751)) + (gx#core-list 'lambda% __tmp132884 __tmp132883)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (__tmp131749 - (_%generate-body130338%_ - (_%generate-bindings130337%_ - _%target130404%_ - _%ids130396%_ - _%clauses130398%_ - _%clause-ids130400%_ - _%E130402%_) - (cons _%first130406%_ - (cons _%expr130379%_ + (__tmp132881 + (_%generate-body131470%_ + (_%generate-bindings131469%_ + _%target131536%_ + _%ids131528%_ + _%clauses131530%_ + _%clause-ids131532%_ + _%E131534%_) + (cons _%first131538%_ + (cons _%expr131511%_ '()))))) (declare (not safe)) (gx#core-list 'let-values - __tmp131750 - __tmp131749))) - (__tmp131747 + __tmp132882 + __tmp132881))) + (__tmp132879 (let () (declare (not safe)) - (gx#stx-source _%stx130332%_)))) + (gx#stx-source _%stx131464%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp131748 - __tmp131747)))) + __tmp132880 + __tmp132879)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp131746))) - (__tmp131744 + __tmp132878))) + (__tmp132876 (let () (declare (not safe)) - (gx#stx-source _%stx130332%_)))) + (gx#stx-source _%stx131464%_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp131745 __tmp131744))) + (gx#stx-wrap-source __tmp132877 __tmp132876))) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _%stx130332%_))) + _%stx131464%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _%stx130332%_ - _%ids130389%_)))))) - (_%E130344130359%_))))) - (_%E130344130359%_)))) - (_%E130344130359%_))))) - (_%E130343130409%_))))) + _%stx131464%_ + _%ids131521%_)))))) + (_%E131476131491%_))))) + (_%E131476131491%_)))) + (_%E131476131491%_))))) + (_%E131475131541%_))))) (define gx#macro-expand-syntax-case__0 - (lambda (_%stx131057%_) - (let* ((_%identifier=?131059%_ 'free-identifier=?) - (_%unwrap-e131061%_ 'syntax-e) - (_%wrap-e131063%_ 'quote-syntax)) + (lambda (_%stx132189%_) + (let* ((_%identifier=?132191%_ 'free-identifier=?) + (_%unwrap-e132193%_ 'syntax-e) + (_%wrap-e132195%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx131057%_ - _%identifier=?131059%_ - _%unwrap-e131061%_ - _%wrap-e131063%_)))) + _%stx132189%_ + _%identifier=?132191%_ + _%unwrap-e132193%_ + _%wrap-e132195%_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_%stx131065%_ _%identifier=?131066%_) - (let* ((_%unwrap-e131068%_ 'syntax-e) (_%wrap-e131070%_ 'quote-syntax)) + (lambda (_%stx132197%_ _%identifier=?132198%_) + (let* ((_%unwrap-e132200%_ 'syntax-e) (_%wrap-e132202%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx131065%_ - _%identifier=?131066%_ - _%unwrap-e131068%_ - _%wrap-e131070%_)))) + _%stx132197%_ + _%identifier=?132198%_ + _%unwrap-e132200%_ + _%wrap-e132202%_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_%stx131072%_ _%identifier=?131073%_ _%unwrap-e131074%_) - (let ((_%wrap-e131076%_ 'quote-syntax)) + (lambda (_%stx132204%_ _%identifier=?132205%_ _%unwrap-e132206%_) + (let ((_%wrap-e132208%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx131072%_ - _%identifier=?131073%_ - _%unwrap-e131074%_ - _%wrap-e131076%_)))) + _%stx132204%_ + _%identifier=?132205%_ + _%unwrap-e132206%_ + _%wrap-e132208%_)))) (define gx#macro-expand-syntax-case - (lambda _g131754_ - (let ((_g131753_ (let () (declare (not safe)) (##length _g131754_)))) - (cond ((let () (declare (not safe)) (##fx= _g131753_ 1)) - (apply gx#macro-expand-syntax-case__0 _g131754_)) - ((let () (declare (not safe)) (##fx= _g131753_ 2)) - (apply gx#macro-expand-syntax-case__1 _g131754_)) - ((let () (declare (not safe)) (##fx= _g131753_ 3)) - (apply gx#macro-expand-syntax-case__2 _g131754_)) - ((let () (declare (not safe)) (##fx= _g131753_ 4)) - (apply gx#macro-expand-syntax-case__% _g131754_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g131754_)))))) + _g132886_)))))) (define gx#syntax-local-pattern? - (lambda (_%stx130329%_) - (if (let () (declare (not safe)) (gx#identifier? _%stx130329%_)) - (let ((__tmp131755 + (lambda (_%stx131461%_) + (if (let () (declare (not safe)) (gx#identifier? _%stx131461%_)) + (let ((__tmp132887 (let () (declare (not safe)) - (gx#syntax-local-e__% _%stx130329%_ false)))) + (gx#syntax-local-e__% _%stx131461%_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp131755 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp132887 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_%hd130287%_ . _%rest130288%_) - (let ((_%len130290%_ (length _%hd130287%_))) - (let _%lp130292%_ ((_%rest130294%_ _%rest130288%_)) - (let* ((_%rest130295130303%_ _%rest130294%_) - (_%else130297130311%_ (lambda () '#!void)) - (_%K130299130317%_ - (lambda (_%rest130314%_ _%hd130315%_) - (if (let ((__tmp131756 (length _%hd130315%_))) + (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%_))) (declare (not safe)) - (##fx= _%len130290%_ __tmp131756)) - (_%lp130292%_ _%rest130314%_) + (##fx= _%len131422%_ __tmp132888)) + (_%lp131424%_ _%rest131446%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _%hd130315%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest130295130303%_)) - (let ((_%hd130300130320%_ + _%hd131447%_)))))) + (if (pair? _%rest131427131435%_) + (let ((_%hd131432131452%_ (let () (declare (not safe)) - (##car _%rest130295130303%_))) - (_%tl130301130322%_ + (##car _%rest131427131435%_))) + (_%tl131433131454%_ (let () (declare (not safe)) - (##cdr _%rest130295130303%_)))) - (let* ((_%hd130325%_ _%hd130300130320%_) - (_%rest130327%_ _%tl130301130322%_)) - (_%K130299130317%_ _%rest130327%_ _%hd130325%_))) + (##cdr _%rest131427131435%_)))) + (let* ((_%hd131457%_ _%hd131432131452%_) + (_%rest131459%_ _%tl131433131454%_)) + (_%K131431131449%_ _%rest131459%_ _%hd131457%_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_%stx130242%_ _%n130243%_) - (let _%lp130245%_ ((_%rest130247%_ _%stx130242%_) (_%r130248%_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _%rest130247%_)) - (let* ((_%g130249130256%_ + (lambda (_%stx131374%_ _%n131375%_) + (let _%lp131377%_ ((_%rest131379%_ _%stx131374%_) (_%r131380%_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _%rest131379%_)) + (let* ((_%g131381131388%_ (let () (declare (not safe)) - (gx#syntax-e _%rest130247%_))) - (_%E130251130260%_ + (gx#syntax-e _%rest131379%_))) + (_%E131383131392%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g130249130256%_ + _%g131381131388%_ '([hd . rest]))) '#!void)) - (_%K130252130266%_ - (lambda (_%rest130263%_ _%hd130264%_) - (_%lp130245%_ - _%rest130263%_ - (cons _%hd130264%_ _%r130248%_))))) - (if (let () (declare (not safe)) (##pair? _%g130249130256%_)) - (let ((_%hd130253130269%_ + (_%K131384131398%_ + (lambda (_%rest131395%_ _%hd131396%_) + (_%lp131377%_ + _%rest131395%_ + (cons _%hd131396%_ _%r131380%_))))) + (if (pair? _%g131381131388%_) + (let ((_%hd131385131401%_ (let () (declare (not safe)) - (##car _%g130249130256%_))) - (_%tl130254130271%_ + (##car _%g131381131388%_))) + (_%tl131386131403%_ (let () (declare (not safe)) - (##cdr _%g130249130256%_)))) - (let* ((_%hd130274%_ _%hd130253130269%_) - (_%rest130276%_ _%tl130254130271%_)) - (_%K130252130266%_ _%rest130276%_ _%hd130274%_))) - (_%E130251130260%_))) - (let _%lp130278%_ ((_%n130280%_ _%n130243%_) - (_%l130281%_ _%r130248%_) - (_%r130282%_ _%rest130247%_)) - (if (null? _%l130281%_) - (values _%l130281%_ _%r130282%_) - (if (fxpositive? _%n130280%_) - (_%lp130278%_ - (let () (declare (not safe)) (##fx- _%n130280%_ '1)) - (cdr _%l130281%_) - (cons (car _%l130281%_) _%r130282%_)) - (values (reverse _%l130281%_) _%r130282%_)))))))))) + (##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%_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase~1.scm b/src/bootstrap/gerbil/expander/stxcase~1.scm index 15d57c236..6264ddfbb 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]#_g131758_| + (define |gx[1]#_g132890_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g131760_| + (define |gx[1]#_g132892_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g131762_| + (define |gx[1]#_g132894_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g131764_| + (define |gx[1]#_g132896_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g131766_| + (define |gx[1]#_g132898_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g131767_| + (define |gx[1]#_g132899_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g131768_| + (define |gx[1]#_g132900_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g131770_| + (define |gx[1]#_g132902_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g131771_| + (define |gx[1]#_g132903_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g131772_| + (define |gx[1]#_g132904_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g131774_| + (define |gx[1]#_g132906_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g131775_| + (define |gx[1]#_g132907_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g131776_| + (define |gx[1]#_g132908_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g131778_| + (define |gx[1]#_g132910_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g131779_| + (define |gx[1]#_g132911_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g131780_| + (define |gx[1]#_g132912_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! @@ -113,7 +113,7 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj131635 + (let ((__obj132767 (let () (declare (not safe)) (##structure @@ -142,75 +142,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj131635 + __obj132767 'gx#syntax-pattern::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131635 'syntax-pattern '2 '#f '#f)) + (##unchecked-structure-set! __obj132767 'syntax-pattern '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131635 '(id depth) '4 '#f '#f)) + (##unchecked-structure-set! __obj132767 '(id depth) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131635 '(e id depth) '6 '#f '#f)) - (let ((__tmp131757 (cons |gx[1]#_g131758_| '()))) + (##unchecked-structure-set! __obj132767 '(e id depth) '6 '#f '#f)) + (let ((__tmp132889 (cons |gx[1]#_g132890_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj131635 __tmp131757 '3 '#f '#f)) + (##unchecked-structure-set! __obj132767 __tmp132889 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131635 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj132767 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131635 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj132767 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131635 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj132767 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131635 '#f '11 '#f '#f)) - (let ((__tmp131759 |gx[1]#_g131760_|)) + (##unchecked-structure-set! __obj132767 '#f '11 '#f '#f)) + (let ((__tmp132891 |gx[1]#_g132892_|)) (declare (not safe)) - (##unchecked-structure-set! __obj131635 __tmp131759 '12 '#f '#f)) - (let ((__tmp131761 |gx[1]#_g131762_|)) + (##unchecked-structure-set! __obj132767 __tmp132891 '12 '#f '#f)) + (let ((__tmp132893 |gx[1]#_g132894_|)) (declare (not safe)) - (##unchecked-structure-set! __obj131635 __tmp131761 '13 '#f '#f)) - (let ((__tmp131763 |gx[1]#_g131764_|)) + (##unchecked-structure-set! __obj132767 __tmp132893 '13 '#f '#f)) + (let ((__tmp132895 |gx[1]#_g132896_|)) (declare (not safe)) - (##unchecked-structure-set! __obj131635 __tmp131763 '14 '#f '#f)) - (let ((__tmp131765 - (cons (cons 'id |gx[1]#_g131766_|) - (cons (cons 'depth |gx[1]#_g131767_|) - (cons (cons 'e |gx[1]#_g131768_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj131635 __tmp131765 '15 '#f '#f)) - (let ((__tmp131769 - (cons (cons 'id |gx[1]#_g131770_|) - (cons (cons 'depth |gx[1]#_g131771_|) - (cons (cons 'e |gx[1]#_g131772_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj131635 __tmp131769 '16 '#f '#f)) - (let ((__tmp131773 - (cons (cons 'id |gx[1]#_g131774_|) - (cons (cons 'depth |gx[1]#_g131775_|) - (cons (cons 'e |gx[1]#_g131776_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj131635 __tmp131773 '17 '#f '#f)) - (let ((__tmp131777 - (cons (cons 'id |gx[1]#_g131778_|) - (cons (cons 'depth |gx[1]#_g131779_|) - (cons (cons 'e |gx[1]#_g131780_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj131635 __tmp131777 '18 '#f '#f)) + (##unchecked-structure-set! __obj132767 __tmp132909 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131635 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj132767 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131635 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj132767 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131635 '() '20 '#f '#f)) - __obj131635))) + (##unchecked-structure-set! __obj132767 '() '20 '#f '#f)) + __obj132767))) diff --git a/src/bootstrap/gerbil/expander/stx~0.scm b/src/bootstrap/gerbil/expander/stx~0.scm index 2def2d341..377c26090 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 1713454410) + (define gerbil/expander/stx::timestamp 1713631266) (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 _%$args116877%_ - (apply make-instance gx#identifier-wrap::t _%$args116877%_))) + (lambda _%$args118009%_ + (apply make-instance gx#identifier-wrap::t _%$args118009%_))) (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 _%$args116874%_ - (apply make-instance gx#syntax-wrap::t _%$args116874%_))) + (lambda _%$args118006%_ + (apply make-instance gx#syntax-wrap::t _%$args118006%_))) (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 _%$args116871%_ - (apply make-instance gx#syntax-quote::t _%$args116871%_))) + (lambda _%$args118003%_ + (apply make-instance gx#syntax-quote::t _%$args118003%_))) (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 (_%stx116869%_) (symbol? (gx#stx-e _%stx116869%_)))) + (lambda (_%stx118001%_) (symbol? (gx#stx-e _%stx118001%_)))) (define gx#identifier-quote? - (lambda (_%stx116867%_) - (if (##structure-direct-instance-of? _%stx116867%_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _%stx116867%_ '1 '#f '#f)) + (lambda (_%stx117999%_) + (if (##structure-direct-instance-of? _%stx117999%_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _%stx117999%_ '1 '#f '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_%stx116862%_) - (if (##structure-direct-instance-of? _%stx116862%_ 'gx#syntax-quote::t) + (lambda (_%stx117994%_) + (if (##structure-direct-instance-of? _%stx117994%_ 'gx#syntax-quote::t) '#t (if (##structure-direct-instance-of? - _%stx116862%_ + _%stx117994%_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _%stx116862%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx117994%_ '1 '#f '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_%stx116857%_) - (if (##structure-direct-instance-of? _%stx116857%_ 'gx#syntax-quote::t) - _%stx116857%_ + (lambda (_%stx117989%_) + (if (##structure-direct-instance-of? _%stx117989%_ 'gx#syntax-quote::t) + _%stx117989%_ (if (##structure-direct-instance-of? - _%stx116857%_ + _%stx117989%_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _%stx116857%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx117989%_ '1 '#f '#f)) '#f)))) (define gx#syntax-e - (lambda (_%stx116831%_) - (if (##structure-direct-instance-of? _%stx116831%_ 'gx#syntax-wrap::t) - (let _%lp116834%_ ((_%e116836%_ + (lambda (_%stx117963%_) + (if (##structure-direct-instance-of? _%stx117963%_ 'gx#syntax-wrap::t) + (let _%lp117966%_ ((_%e117968%_ (##unchecked-structure-ref - _%stx116831%_ + _%stx117963%_ '1 '#f '#f)) - (_%marks116837%_ + (_%marks117969%_ (cons (##unchecked-structure-ref - _%stx116831%_ + _%stx117963%_ '3 '#f '#f) '()))) - (if (##structure? _%e116836%_) - (let ((_%$e116840%_ - (##type-id (##structure-type _%e116836%_)))) - (if (eq? 'gx#syntax-wrap::t _%$e116840%_) - (_%lp116834%_ - (##unchecked-structure-ref _%e116836%_ '1 '#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) (gx#apply-mark - (##unchecked-structure-ref _%e116836%_ '3 '#f '#f) - _%marks116837%_)) - (if (or (eq? 'gx#syntax-quote::t _%$e116840%_) - (eq? 'gx#identifier-wrap::t _%$e116840%_)) - (##unchecked-structure-ref _%e116836%_ '1 '#f '#f) - (if (eq? 'gerbil#AST::t _%$e116840%_) - (_%lp116834%_ + (##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 - _%e116836%_ + _%e117968%_ '1 '#f '#f) - _%marks116837%_) - _%e116836%_)))) - (if (null? _%marks116837%_) - _%e116836%_ - (if (pair? _%e116836%_) + _%marks117969%_) + _%e117968%_)))) + (if (null? _%marks117969%_) + _%e117968%_ + (if (pair? _%e117968%_) (cons (gx#stx-wrap - (##car _%e116836%_) - _%marks116837%_) + (##car _%e117968%_) + _%marks117969%_) (gx#stx-wrap - (##cdr _%e116836%_) - _%marks116837%_)) - (if (vector? _%e116836%_) + (##cdr _%e117968%_) + _%marks117969%_)) + (if (vector? _%e117968%_) (vector-map - (lambda (_%g116848116850%_) + (lambda (_%g117980117982%_) (gx#stx-wrap - _%g116848116850%_ - _%marks116837%_)) - _%e116836%_) - (if (box? _%e116836%_) + _%g117980117982%_ + _%marks117969%_)) + _%e117968%_) + (if (box? _%e117968%_) (box (gx#stx-wrap - (unbox _%e116836%_) - _%marks116837%_)) - _%e116836%_)))))) - (if (##structure-instance-of? _%stx116831%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx116831%_ '1 '#f '#f) - _%stx116831%_)))) + (unbox _%e117968%_) + _%marks117969%_)) + _%e117968%_)))))) + (if (##structure-instance-of? _%stx117963%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx117963%_ '1 '#f '#f) + _%stx117963%_)))) (define gx#syntax->datum - (lambda (_%stx116824%_) - (if (##structure-instance-of? _%stx116824%_ 'gerbil#AST::t) + (lambda (_%stx117956%_) + (if (##structure-instance-of? _%stx117956%_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _%stx116824%_ '1 '#f '#f)) - (if (pair? _%stx116824%_) - (cons (gx#syntax->datum (##car _%stx116824%_)) - (gx#syntax->datum (##cdr _%stx116824%_))) - (if (vector? _%stx116824%_) - (vector-map gx#syntax->datum _%stx116824%_) - (if (box? _%stx116824%_) - (box (gx#syntax->datum (unbox _%stx116824%_))) - _%stx116824%_)))))) + (##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%_)))))) (define gx#datum->syntax__% - (lambda (_%stx116758%_ _%datum116759%_ _%src116760%_ _%quote?116761%_) - (letrec ((_%wrap-datum116763%_ - (lambda (_%e116796%_ _%marks116797%_) - (_%wrap-inner116765%_ - _%e116796%_ - (lambda (_%g116798116800%_) + (lambda (_%stx117890%_ _%datum117891%_ _%src117892%_ _%quote?117893%_) + (letrec ((_%wrap-datum117895%_ + (lambda (_%e117928%_ _%marks117929%_) + (_%wrap-inner117897%_ + _%e117928%_ + (lambda (_%g117930117932%_) (##structure gx#identifier-wrap::t - _%g116798116800%_ - _%src116760%_ - _%marks116797%_))))) - (_%wrap-quote116764%_ - (lambda (_%e116788%_ _%ctx116789%_ _%marks116790%_) - (_%wrap-inner116765%_ - _%e116788%_ - (lambda (_%g116791116793%_) + _%g117930117932%_ + _%src117892%_ + _%marks117929%_))))) + (_%wrap-quote117896%_ + (lambda (_%e117920%_ _%ctx117921%_ _%marks117922%_) + (_%wrap-inner117897%_ + _%e117920%_ + (lambda (_%g117923117925%_) (##structure gx#syntax-quote::t - _%g116791116793%_ - _%src116760%_ - _%ctx116789%_ - _%marks116790%_))))) - (_%wrap-inner116765%_ - (lambda (_%e116776%_ _%wrap-e116777%_) - (let _%recur116779%_ ((_%e116781%_ _%e116776%_)) - (if (symbol? _%e116781%_) - (_%wrap-e116777%_ _%e116781%_) - (if (pair? _%e116781%_) - (cons (_%recur116779%_ (##car _%e116781%_)) - (_%recur116779%_ (##cdr _%e116781%_))) - (if (vector? _%e116781%_) - (vector-map _%recur116779%_ _%e116781%_) - (if (box? _%e116781%_) - (box (_%recur116779%_ - (unbox _%e116781%_))) - _%e116781%_))))))) - (_%wrap-outer116766%_ - (lambda (_%e116774%_) - (if (##structure-instance-of? _%e116774%_ 'gerbil#AST::t) - _%e116774%_ - (##structure gx#AST::t _%e116774%_ _%src116760%_))))) - (if (##structure-instance-of? _%datum116759%_ 'gerbil#AST::t) - _%datum116759%_ - (if (not _%stx116758%_) - (##structure gx#AST::t _%datum116759%_ _%src116760%_) - (if (gx#identifier? _%stx116758%_) - (let ((_%stx116771%_ (gx#stx-unwrap__0 _%stx116758%_))) - (_%wrap-outer116766%_ + _%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%_ (if (##structure-direct-instance-of? - _%stx116771%_ + _%stx117903%_ 'gx#syntax-quote::t) - (if _%quote?116761%_ - (_%wrap-quote116764%_ - _%datum116759%_ + (if _%quote?117893%_ + (_%wrap-quote117896%_ + _%datum117891%_ (##unchecked-structure-ref - _%stx116771%_ + _%stx117903%_ '3 '#f '#f) (##unchecked-structure-ref - _%stx116771%_ + _%stx117903%_ '4 '#f '#f)) - (_%wrap-datum116763%_ - _%datum116759%_ + (_%wrap-datum117895%_ + _%datum117891%_ (##unchecked-structure-ref - _%stx116771%_ + _%stx117903%_ '4 '#f '#f))) - (_%wrap-datum116763%_ - _%datum116759%_ + (_%wrap-datum117895%_ + _%datum117891%_ (##unchecked-structure-ref - _%stx116771%_ + _%stx117903%_ '3 '#f '#f))))) (error '"Bad template syntax; expected identifier" - _%stx116758%_))))))) + _%stx117890%_))))))) (define gx#datum->syntax__0 - (lambda (_%stx116806%_ _%datum116807%_) - (let* ((_%src116809%_ '#f) (_%quote?116811%_ '#t)) + (lambda (_%stx117938%_ _%datum117939%_) + (let* ((_%src117941%_ '#f) (_%quote?117943%_ '#t)) (gx#datum->syntax__% - _%stx116806%_ - _%datum116807%_ - _%src116809%_ - _%quote?116811%_)))) + _%stx117938%_ + _%datum117939%_ + _%src117941%_ + _%quote?117943%_)))) (define gx#datum->syntax__1 - (lambda (_%stx116813%_ _%datum116814%_ _%src116815%_) - (let ((_%quote?116817%_ '#t)) + (lambda (_%stx117945%_ _%datum117946%_ _%src117947%_) + (let ((_%quote?117949%_ '#t)) (gx#datum->syntax__% - _%stx116813%_ - _%datum116814%_ - _%src116815%_ - _%quote?116817%_)))) + _%stx117945%_ + _%datum117946%_ + _%src117947%_ + _%quote?117949%_)))) (define gx#datum->syntax - (lambda _g116958_ - (let ((_g116957_ (##length _g116958_))) - (cond ((##fx= _g116957_ 2) (apply gx#datum->syntax__0 _g116958_)) - ((##fx= _g116957_ 3) (apply gx#datum->syntax__1 _g116958_)) - ((##fx= _g116957_ 4) (apply gx#datum->syntax__% _g116958_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g116958_)))))) + _g118090_)))))) (define gx#stx-unwrap__% - (lambda (_%stx116724%_ _%marks116725%_) - (let _%lp116727%_ ((_%e116729%_ _%stx116724%_) - (_%marks116730%_ _%marks116725%_) - (_%src116731%_ (gx#stx-source _%stx116724%_))) - (if (##structure-direct-instance-of? _%e116729%_ 'gx#syntax-wrap::t) - (_%lp116727%_ - (##unchecked-structure-ref _%e116729%_ '1 '#f '#f) + (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) (gx#apply-mark - (##unchecked-structure-ref _%e116729%_ '3 '#f '#f) - _%marks116730%_) - (##unchecked-structure-ref _%e116729%_ '2 '#f '#f)) + (##unchecked-structure-ref _%e117861%_ '3 '#f '#f) + _%marks117862%_) + (##unchecked-structure-ref _%e117861%_ '2 '#f '#f)) (if (##structure-direct-instance-of? - _%e116729%_ + _%e117861%_ 'gx#identifier-wrap::t) - (if (null? _%marks116730%_) - _%e116729%_ + (if (null? _%marks117862%_) + _%e117861%_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _%e116729%_ '1 '#f '#f) - (##unchecked-structure-ref _%e116729%_ '2 '#f '#f) + (##unchecked-structure-ref _%e117861%_ '1 '#f '#f) + (##unchecked-structure-ref _%e117861%_ '2 '#f '#f) (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e116729%_ '3 '#f '#f) - _%marks116730%_))) + (##unchecked-structure-ref _%e117861%_ '3 '#f '#f) + _%marks117862%_))) (if (##structure-direct-instance-of? - _%e116729%_ + _%e117861%_ 'gx#syntax-quote::t) - _%e116729%_ - (if (##structure-instance-of? _%e116729%_ 'gerbil#AST::t) - (_%lp116727%_ - (##unchecked-structure-ref _%e116729%_ '1 '#f '#f) - _%marks116730%_ - (##unchecked-structure-ref _%e116729%_ '2 '#f '#f)) - (if (symbol? _%e116729%_) + _%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%_) (##structure gx#identifier-wrap::t - _%e116729%_ - _%src116731%_ - (reverse _%marks116730%_)) - (if (null? _%marks116730%_) - _%e116729%_ - (if (pair? _%e116729%_) + _%e117861%_ + _%src117863%_ + (reverse _%marks117862%_)) + (if (null? _%marks117862%_) + _%e117861%_ + (if (pair? _%e117861%_) (cons (gx#stx-wrap - (##car _%e116729%_) - _%marks116730%_) + (##car _%e117861%_) + _%marks117862%_) (gx#stx-wrap - (##cdr _%e116729%_) - _%marks116730%_)) - (if (vector? _%e116729%_) + (##cdr _%e117861%_) + _%marks117862%_)) + (if (vector? _%e117861%_) (vector-map - (lambda (_%g116740116742%_) + (lambda (_%g117872117874%_) (gx#stx-wrap - _%g116740116742%_ - _%marks116730%_)) - _%e116729%_) - (if (box? _%e116729%_) + _%g117872117874%_ + _%marks117862%_)) + _%e117861%_) + (if (box? _%e117861%_) (box (gx#stx-wrap - (unbox _%e116729%_) - _%marks116730%_)) - _%e116729%_)))))))))))) + (unbox _%e117861%_) + _%marks117862%_)) + _%e117861%_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_%stx116750%_) - (let ((_%marks116752%_ '())) - (gx#stx-unwrap__% _%stx116750%_ _%marks116752%_)))) + (lambda (_%stx117882%_) + (let ((_%marks117884%_ '())) + (gx#stx-unwrap__% _%stx117882%_ _%marks117884%_)))) (define gx#stx-unwrap - (lambda _g116960_ - (let ((_g116959_ (##length _g116960_))) - (cond ((##fx= _g116959_ 1) (apply gx#stx-unwrap__0 _g116960_)) - ((##fx= _g116959_ 2) (apply gx#stx-unwrap__% _g116960_)) + (lambda _g118092_ + (let ((_g118091_ (##length _g118092_))) + (cond ((##fx= _g118091_ 1) (apply gx#stx-unwrap__0 _g118092_)) + ((##fx= _g118091_ 2) (apply gx#stx-unwrap__% _g118092_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g116960_)))))) + _g118092_)))))) (define gx#stx-wrap - (lambda (_%stx116717%_ _%marks116718%_) + (lambda (_%stx117849%_ _%marks117850%_) (__foldl1 - (lambda (_%mark116720%_ _%stx116721%_) - (gx#stx-apply-mark _%stx116721%_ _%mark116720%_)) - _%stx116717%_ - _%marks116718%_))) + (lambda (_%mark117852%_ _%stx117853%_) + (gx#stx-apply-mark _%stx117853%_ _%mark117852%_)) + _%stx117849%_ + _%marks117850%_))) (define gx#stx-rewrap - (lambda (_%stx116711%_ _%marks116712%_) + (lambda (_%stx117843%_ _%marks117844%_) (__foldr1 - (lambda (_%mark116714%_ _%stx116715%_) - (gx#stx-apply-mark _%stx116715%_ _%mark116714%_)) - _%stx116711%_ - _%marks116712%_))) + (lambda (_%mark117846%_ _%stx117847%_) + (gx#stx-apply-mark _%stx117847%_ _%mark117846%_)) + _%stx117843%_ + _%marks117844%_))) (define gx#stx-apply-mark - (lambda (_%stx116705%_ _%mark116706%_) - (if (##structure-direct-instance-of? _%stx116705%_ 'gx#syntax-quote::t) - _%stx116705%_ + (lambda (_%stx117837%_ _%mark117838%_) + (if (##structure-direct-instance-of? _%stx117837%_ 'gx#syntax-quote::t) + _%stx117837%_ (if (and (##structure-direct-instance-of? - _%stx116705%_ + _%stx117837%_ 'gx#syntax-wrap::t) - (eq? _%mark116706%_ + (eq? _%mark117838%_ (##unchecked-structure-ref - _%stx116705%_ + _%stx117837%_ '3 '#f '#f))) - (##unchecked-structure-ref _%stx116705%_ '1 '#f '#f) + (##unchecked-structure-ref _%stx117837%_ '1 '#f '#f) (##structure gx#syntax-wrap::t - _%stx116705%_ - (gx#stx-source _%stx116705%_) - _%mark116706%_))))) + _%stx117837%_ + (gx#stx-source _%stx117837%_) + _%mark117838%_))))) (define gx#apply-mark - (lambda (_%mark116669%_ _%marks116670%_) - (let* ((_%marks116671116679%_ _%marks116670%_) - (_%else116673116687%_ - (lambda () (cons _%mark116669%_ _%marks116670%_))) - (_%K116675116693%_ - (lambda (_%rest116690%_ _%hd116691%_) - (if (eq? _%mark116669%_ _%hd116691%_) - _%rest116690%_ - (cons _%mark116669%_ _%marks116670%_))))) - (if (##pair? _%marks116671116679%_) - (let ((_%hd116676116696%_ (##car _%marks116671116679%_)) - (_%tl116677116698%_ (##cdr _%marks116671116679%_))) - (let* ((_%hd116701%_ _%hd116676116696%_) - (_%rest116703%_ _%tl116677116698%_)) - (_%K116675116693%_ _%rest116703%_ _%hd116701%_))) - (_%else116673116687%_))))) + (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%_))))) (define gx#stx-e - (lambda (_%stx116664%_) - (if (##structure-direct-instance-of? _%stx116664%_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _%stx116664%_ '1 '#f '#f)) - (if (##structure-instance-of? _%stx116664%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx116664%_ '1 '#f '#f) - _%stx116664%_)))) + (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%_)))) (define gx#stx-source - (lambda (_%stx116662%_) - (if (##structure-instance-of? _%stx116662%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx116662%_ '2 '#f '#f) + (lambda (_%stx117794%_) + (if (##structure-instance-of? _%stx117794%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx117794%_ '2 '#f '#f) '#f))) (define gx#stx-wrap-source - (lambda (_%stx116656%_ _%src116657%_) - (if (or (##structure-instance-of? _%stx116656%_ 'gerbil#AST::t) - (not _%src116657%_)) - _%stx116656%_ - (##structure gx#AST::t _%stx116656%_ _%src116657%_)))) + (lambda (_%stx117788%_ _%src117789%_) + (if (or (##structure-instance-of? _%stx117788%_ 'gerbil#AST::t) + (not _%src117789%_)) + _%stx117788%_ + (##structure gx#AST::t _%stx117788%_ _%src117789%_)))) (define gx#stx-datum? - (lambda (_%stx116654%_) (gx#self-quoting? (gx#stx-e _%stx116654%_)))) + (lambda (_%stx117786%_) (gx#self-quoting? (gx#stx-e _%stx117786%_)))) (define gx#self-quoting? - (lambda (_%x116637%_) - (let ((_%$e116639%_ (immediate? _%x116637%_))) - (if _%$e116639%_ - _%$e116639%_ - (let ((_%$e116642%_ (number? _%x116637%_))) - (if _%$e116642%_ - _%$e116642%_ - (let ((_%$e116645%_ (keyword? _%x116637%_))) - (if _%$e116645%_ - _%$e116645%_ - (let ((_%$e116648%_ (string? _%x116637%_))) - (if _%$e116648%_ - _%$e116648%_ - (let ((_%$e116651%_ (vector? _%x116637%_))) - (if _%$e116651%_ - _%$e116651%_ - (u8vector? _%x116637%_))))))))))))) + (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%_))))))))))))) (define gx#stx-boolean? - (lambda (_%e116635%_) (boolean? (gx#stx-e _%e116635%_)))) + (lambda (_%e117767%_) (boolean? (gx#stx-e _%e117767%_)))) (define gx#stx-keyword? - (lambda (_%e116633%_) (keyword? (gx#stx-e _%e116633%_)))) - (define gx#stx-char? (lambda (_%e116631%_) (char? (gx#stx-e _%e116631%_)))) + (lambda (_%e117765%_) (keyword? (gx#stx-e _%e117765%_)))) + (define gx#stx-char? (lambda (_%e117763%_) (char? (gx#stx-e _%e117763%_)))) (define gx#stx-number? - (lambda (_%e116629%_) (number? (gx#stx-e _%e116629%_)))) + (lambda (_%e117761%_) (number? (gx#stx-e _%e117761%_)))) (define gx#stx-fixnum? - (lambda (_%e116627%_) (fixnum? (gx#stx-e _%e116627%_)))) + (lambda (_%e117759%_) (fixnum? (gx#stx-e _%e117759%_)))) (define gx#stx-string? - (lambda (_%e116625%_) (string? (gx#stx-e _%e116625%_)))) - (define gx#stx-null? (lambda (_%e116623%_) (null? (gx#stx-e _%e116623%_)))) - (define gx#stx-pair? (lambda (_%e116621%_) (pair? (gx#stx-e _%e116621%_)))) + (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%_)))) (define gx#stx-list? - (lambda (_%e116583%_) - (let* ((_%g116584116593%_ (gx#stx-e _%e116583%_)) - (_%E116587116597%_ + (lambda (_%e117715%_) + (let* ((_%g117716117725%_ (gx#stx-e _%e117715%_)) + (_%E117719117729%_ (lambda () (error '"No clause matching" - _%g116584116593%_ + _%g117716117725%_ '([_ . rest]) '(tail)) '#!void))) - (let ((_%K116589116613%_ - (lambda (_%rest116611%_) (gx#stx-list? _%rest116611%_))) - (_%K116588116603%_ - (lambda (_%tail116601%_) (null? _%tail116601%_)))) - (if (##pair? _%g116584116593%_) - (let* ((_%tl116591116616%_ (##cdr _%g116584116593%_)) - (_%rest116619%_ _%tl116591116616%_)) - (gx#stx-list? _%rest116619%_)) - (let ((_%tail116606%_ _%g116584116593%_)) - (null? _%tail116606%_))))))) + (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%_))))))) (define gx#stx-pair/null? - (lambda (_%e116576%_) - (let* ((_%e116578%_ (gx#stx-e _%e116576%_)) - (_%$e116580%_ (pair? _%e116578%_))) - (if _%$e116580%_ _%$e116580%_ (null? _%e116578%_))))) + (lambda (_%e117708%_) + (let* ((_%e117710%_ (gx#stx-e _%e117708%_)) + (_%$e117712%_ (pair? _%e117710%_))) + (if _%$e117712%_ _%$e117712%_ (null? _%e117710%_))))) (define gx#stx-vector? - (lambda (_%e116574%_) (vector? (gx#stx-e _%e116574%_)))) - (define gx#stx-box? (lambda (_%e116572%_) (box? (gx#stx-e _%e116572%_)))) + (lambda (_%e117706%_) (vector? (gx#stx-e _%e117706%_)))) + (define gx#stx-box? (lambda (_%e117704%_) (box? (gx#stx-e _%e117704%_)))) (define gx#stx-eq? - (lambda (_%x116569%_ _%y116570%_) - (eq? (gx#stx-e _%x116569%_) (gx#stx-e _%y116570%_)))) + (lambda (_%x117701%_ _%y117702%_) + (eq? (gx#stx-e _%x117701%_) (gx#stx-e _%y117702%_)))) (define gx#stx-eqv? - (lambda (_%x116566%_ _%y116567%_) - (eqv? (gx#stx-e _%x116566%_) (gx#stx-e _%y116567%_)))) + (lambda (_%x117698%_ _%y117699%_) + (eqv? (gx#stx-e _%x117698%_) (gx#stx-e _%y117699%_)))) (define gx#stx-equal? - (lambda (_%x116563%_ _%y116564%_) - (equal? (gx#stx-e _%x116563%_) (gx#stx-e _%y116564%_)))) - (define gx#stx-false? (lambda (_%x116561%_) (not (gx#stx-e _%x116561%_)))) + (lambda (_%x117695%_ _%y117696%_) + (equal? (gx#stx-e _%x117695%_) (gx#stx-e _%y117696%_)))) + (define gx#stx-false? (lambda (_%x117693%_) (not (gx#stx-e _%x117693%_)))) (define gx#stx-identifier - (lambda (_%template116558%_ . _%args116559%_) + (lambda (_%template117690%_ . _%args117691%_) (gx#datum->syntax__1 - _%template116558%_ - (apply make-symbol (gx#syntax->datum _%args116559%_)) - (gx#stx-source _%template116558%_)))) + _%template117690%_ + (apply make-symbol (gx#syntax->datum _%args117691%_)) + (gx#stx-source _%template117690%_)))) (define gx#stx-identifier-marks - (lambda (_%stx116556%_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx116556%_)))) + (lambda (_%stx117688%_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx117688%_)))) (define gx#stx-identifier-marks* - (lambda (_%stx116551%_) + (lambda (_%stx117683%_) (if (##structure-direct-instance-of? - _%stx116551%_ + _%stx117683%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%stx116551%_ '3 '#f '#f) + (##unchecked-structure-ref _%stx117683%_ '3 '#f '#f) (if (##structure-direct-instance-of? - _%stx116551%_ + _%stx117683%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%stx116551%_ '4 '#f '#f) + (##unchecked-structure-ref _%stx117683%_ '4 '#f '#f) (error '"Bad wrap; expected unwrapped identifier" - _%stx116551%_))))) + _%stx117683%_))))) (define gx#stx-identifier-context - (lambda (_%stx116547%_) - (let ((_%stx116549%_ (gx#stx-unwrap__0 _%stx116547%_))) - (if (gx#identifier-quote? _%stx116549%_) - (##unchecked-structure-ref _%stx116549%_ '3 '#f '#f) + (lambda (_%stx117679%_) + (let ((_%stx117681%_ (gx#stx-unwrap__0 _%stx117679%_))) + (if (gx#identifier-quote? _%stx117681%_) + (##unchecked-structure-ref _%stx117681%_ '3 '#f '#f) '#f)))) (define gx#identifier-list? - (lambda (_%stx116502%_) - (let* ((_%g116503116513%_ (gx#stx-e _%stx116502%_)) - (_%else116506116521%_ (lambda () '#f))) - (let ((_%K116509116535%_ - (lambda (_%rest116532%_ _%hd116533%_) - (if (gx#identifier? _%hd116533%_) - (gx#identifier-list? _%rest116532%_) + (lambda (_%stx117634%_) + (let* ((_%g117635117645%_ (gx#stx-e _%stx117634%_)) + (_%else117638117653%_ (lambda () '#f))) + (let ((_%K117641117667%_ + (lambda (_%rest117664%_ _%hd117665%_) + (if (gx#identifier? _%hd117665%_) + (gx#identifier-list? _%rest117664%_) '#f))) - (_%K116508116526%_ (lambda () '#t))) - (let ((_%try-match116505116529%_ + (_%K117640117658%_ (lambda () '#t))) + (let ((_%try-match117637117661%_ (lambda () - (if (##null? _%g116503116513%_) - (_%K116508116526%_) - (_%else116506116521%_))))) - (if (##pair? _%g116503116513%_) - (let ((_%tl116511116540%_ (##cdr _%g116503116513%_)) - (_%hd116510116538%_ (##car _%g116503116513%_))) - (let ((_%hd116543%_ _%hd116510116538%_) - (_%rest116545%_ _%tl116511116540%_)) - (_%K116509116535%_ _%rest116545%_ _%hd116543%_))) - (_%try-match116505116529%_))))))) + (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%_))))))) (define gx#genident__% - (lambda (_%e116479%_ _%src116480%_) + (lambda (_%e117611%_ _%src117612%_) (gx#stx-wrap-source - (gensym (let ((_%e116482%_ (gx#stx-e _%e116479%_))) - (if (interned-symbol? _%e116482%_) _%e116482%_ 'g))) - (let ((_%$e116484%_ (gx#stx-source _%e116479%_))) - (if _%$e116484%_ _%$e116484%_ _%src116480%_))))) + (gensym (let ((_%e117614%_ (gx#stx-e _%e117611%_))) + (if (interned-symbol? _%e117614%_) _%e117614%_ 'g))) + (let ((_%$e117616%_ (gx#stx-source _%e117611%_))) + (if _%$e117616%_ _%$e117616%_ _%src117612%_))))) (define gx#genident__0 (lambda () - (let* ((_%e116491%_ 'g) (_%src116493%_ '#f)) - (gx#genident__% _%e116491%_ _%src116493%_)))) + (let* ((_%e117623%_ 'g) (_%src117625%_ '#f)) + (gx#genident__% _%e117623%_ _%src117625%_)))) (define gx#genident__1 - (lambda (_%e116495%_) - (let ((_%src116497%_ '#f)) - (gx#genident__% _%e116495%_ _%src116497%_)))) + (lambda (_%e117627%_) + (let ((_%src117629%_ '#f)) + (gx#genident__% _%e117627%_ _%src117629%_)))) (define gx#genident - (lambda _g116962_ - (let ((_g116961_ (##length _g116962_))) - (cond ((##fx= _g116961_ 0) (apply gx#genident__0 _g116962_)) - ((##fx= _g116961_ 1) (apply gx#genident__1 _g116962_)) - ((##fx= _g116961_ 2) (apply gx#genident__% _g116962_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g116962_)))))) + _g118094_)))))) (define gx#gentemps - (lambda (_%stx-lst116476%_) (gx#stx-map1 gx#genident _%stx-lst116476%_))) + (lambda (_%stx-lst117608%_) (gx#stx-map1 gx#genident _%stx-lst117608%_))) (define gx#syntax->list - (lambda (_%stx116474%_) (gx#stx-map1 values _%stx116474%_))) + (lambda (_%stx117606%_) (gx#stx-map1 values _%stx117606%_))) (define gx#stx-car - (lambda (_%stx116471%_) + (lambda (_%stx117603%_) (declare (safe)) - (car (gx#syntax-e _%stx116471%_)))) + (car (gx#syntax-e _%stx117603%_)))) (define gx#stx-cdr - (lambda (_%stx116468%_) + (lambda (_%stx117600%_) (declare (safe)) - (cdr (gx#syntax-e _%stx116468%_)))) + (cdr (gx#syntax-e _%stx117600%_)))) (define gx#stx-length - (lambda (_%stx116433%_) - (let _%lp116435%_ ((_%rest116437%_ _%stx116433%_) (_%n116438%_ '0)) - (let* ((_%g116439116447%_ (gx#stx-e _%rest116437%_)) - (_%else116441116455%_ (lambda () _%n116438%_)) - (_%K116443116460%_ - (lambda (_%rest116458%_) - (_%lp116435%_ _%rest116458%_ (##fx+ _%n116438%_ '1))))) - (if (##pair? _%g116439116447%_) - (let* ((_%tl116445116463%_ (##cdr _%g116439116447%_)) - (_%rest116466%_ _%tl116445116463%_)) - (_%K116443116460%_ _%rest116466%_)) - (_%else116441116455%_)))))) + (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%_)))))) (define gx#stx-for-each - (lambda _g116964_ - (let ((_g116963_ (##length _g116964_))) - (cond ((##fx= _g116963_ 2) (apply gx#stx-for-each1 _g116964_)) - ((##fx= _g116963_ 3) (apply gx#stx-for-each2 _g116964_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g116964_)))))) + _g118096_)))))) (define gx#stx-for-each1 - (lambda (_%f116376%_ _%stx116377%_) - (if (procedure? _%f116376%_) + (lambda (_%f117508%_ _%stx117509%_) + (if (procedure? _%f117508%_) '#!void - (error '"expected procedure" _%f116376%_)) - (let _%lp116379%_ ((_%rest116381%_ _%stx116377%_)) - (let* ((_%g116382116392%_ (gx#syntax-e _%rest116381%_)) - (_%else116385116400%_ - (lambda () (_%f116376%_ _%rest116381%_)))) - (let ((_%K116388116414%_ - (lambda (_%rest116411%_ _%hd116412%_) - (_%f116376%_ _%hd116412%_) - (_%lp116379%_ _%rest116411%_))) - (_%K116387116405%_ (lambda () '#!void))) - (let ((_%try-match116384116408%_ + (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%_ (lambda () - (if (##null? _%g116382116392%_) - (_%K116387116405%_) - (_%else116385116400%_))))) - (if (##pair? _%g116382116392%_) - (let ((_%tl116390116419%_ (##cdr _%g116382116392%_)) - (_%hd116389116417%_ (##car _%g116382116392%_))) - (let ((_%hd116422%_ _%hd116389116417%_) - (_%rest116424%_ _%tl116390116419%_)) - (_%K116388116414%_ _%rest116424%_ _%hd116422%_))) - (_%try-match116384116408%_)))))))) + (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%_)))))))) (define gx#stx-for-each2 - (lambda (_%f116281%_ _%xstx116282%_ _%ystx116283%_) - (if (procedure? _%f116281%_) + (lambda (_%f117413%_ _%xstx117414%_ _%ystx117415%_) + (if (procedure? _%f117413%_) '#!void - (error '"expected procedure" _%f116281%_)) - (let _%lp116285%_ ((_%xrest116287%_ _%xstx116282%_) - (_%yrest116288%_ _%ystx116283%_)) - (let* ((_%g116289116299%_ (gx#syntax-e _%xrest116287%_)) - (_%else116292116307%_ (lambda () '#!void))) - (let ((_%K116295116364%_ - (lambda (_%xrest116333%_ _%xhd116334%_) - (let* ((_%g116335116342%_ (gx#syntax-e _%yrest116288%_)) - (_%E116337116346%_ + (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%_ (lambda () (error '"No clause matching" - _%g116335116342%_ + _%g117467117474%_ '([yhd . yrest])) '#!void)) - (_%K116338116352%_ - (lambda (_%yrest116349%_ _%yhd116350%_) - (_%f116281%_ _%xhd116334%_ _%yhd116350%_) - (_%lp116285%_ - _%xrest116333%_ - _%yrest116349%_)))) - (if (##pair? _%g116335116342%_) - (let ((_%hd116339116355%_ (##car _%g116335116342%_)) - (_%tl116340116357%_ - (##cdr _%g116335116342%_))) - (let* ((_%yhd116360%_ _%hd116339116355%_) - (_%yrest116362%_ _%tl116340116357%_)) - (_%K116338116352%_ - _%yrest116362%_ - _%yhd116360%_))) - (_%E116337116346%_))))) - (_%K116294116327%_ + (_%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%_ (lambda () - (let* ((_%yrest116311116316%_ _%yrest116288%_) - (_%E116313116320%_ + (let* ((_%yrest117443117448%_ _%yrest117420%_) + (_%E117445117452%_ (lambda () (error '"No clause matching" - _%yrest116311116316%_ + _%yrest117443117448%_ '((? (not stx-null?)))) '#!void)) - (_%K116314116324%_ + (_%K117446117456%_ (lambda () - (_%f116281%_ _%xrest116287%_ _%yrest116288%_)))) - (if (gx#stx-null? _%yrest116311116316%_) - (_%E116313116320%_) - (_%K116314116324%_)))))) - (let ((_%try-match116291116330%_ + (_%f117413%_ _%xrest117419%_ _%yrest117420%_)))) + (if (gx#stx-null? _%yrest117443117448%_) + (_%E117445117452%_) + (_%K117446117456%_)))))) + (let ((_%try-match117423117462%_ (lambda () - (if (null? _%g116289116299%_) - (_%else116292116307%_) - (_%K116294116327%_))))) - (if (##pair? _%g116289116299%_) - (let ((_%tl116297116369%_ (##cdr _%g116289116299%_)) - (_%hd116296116367%_ (##car _%g116289116299%_))) - (let ((_%xhd116372%_ _%hd116296116367%_) - (_%xrest116374%_ _%tl116297116369%_)) - (_%K116295116364%_ _%xrest116374%_ _%xhd116372%_))) - (_%try-match116291116330%_)))))))) + (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%_)))))))) (define gx#stx-map - (lambda _g116966_ - (let ((_g116965_ (##length _g116966_))) - (cond ((##fx= _g116965_ 2) (apply gx#stx-map1 _g116966_)) - ((##fx= _g116965_ 3) (apply gx#stx-map2 _g116966_)) + (lambda _g118098_ + (let ((_g118097_ (##length _g118098_))) + (cond ((##fx= _g118097_ 2) (apply gx#stx-map1 _g118098_)) + ((##fx= _g118097_ 3) (apply gx#stx-map2 _g118098_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g116966_)))))) + _g118098_)))))) (define gx#stx-map1 - (lambda (_%f116224%_ _%stx116225%_) - (if (procedure? _%f116224%_) + (lambda (_%f117356%_ _%stx117357%_) + (if (procedure? _%f117356%_) '#!void - (error '"expected procedure" _%f116224%_)) - (let _%recur116227%_ ((_%rest116229%_ _%stx116225%_)) - (let* ((_%g116230116240%_ (gx#syntax-e _%rest116229%_)) - (_%else116233116248%_ - (lambda () (_%f116224%_ _%rest116229%_)))) - (let ((_%K116236116262%_ - (lambda (_%rest116259%_ _%hd116260%_) - (cons (_%f116224%_ _%hd116260%_) - (_%recur116227%_ _%rest116259%_)))) - (_%K116235116253%_ (lambda () '()))) - (let ((_%try-match116232116256%_ + (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%_ (lambda () - (if (##null? _%g116230116240%_) - (_%K116235116253%_) - (_%else116233116248%_))))) - (if (##pair? _%g116230116240%_) - (let ((_%tl116238116267%_ (##cdr _%g116230116240%_)) - (_%hd116237116265%_ (##car _%g116230116240%_))) - (let ((_%hd116270%_ _%hd116237116265%_) - (_%rest116272%_ _%tl116238116267%_)) - (_%K116236116262%_ _%rest116272%_ _%hd116270%_))) - (_%try-match116232116256%_)))))))) + (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%_)))))))) (define gx#stx-map2 - (lambda (_%f116129%_ _%xstx116130%_ _%ystx116131%_) - (if (procedure? _%f116129%_) + (lambda (_%f117261%_ _%xstx117262%_ _%ystx117263%_) + (if (procedure? _%f117261%_) '#!void - (error '"expected procedure" _%f116129%_)) - (let _%recur116133%_ ((_%xrest116135%_ _%xstx116130%_) - (_%yrest116136%_ _%ystx116131%_)) - (let* ((_%g116137116147%_ (gx#syntax-e _%xrest116135%_)) - (_%else116140116155%_ (lambda () '()))) - (let ((_%K116143116212%_ - (lambda (_%xrest116181%_ _%xhd116182%_) - (let* ((_%g116183116190%_ (gx#syntax-e _%yrest116136%_)) - (_%E116185116194%_ + (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%_ (lambda () (error '"No clause matching" - _%g116183116190%_ + _%g117315117322%_ '([yhd . yrest])) '#!void)) - (_%K116186116200%_ - (lambda (_%yrest116197%_ _%yhd116198%_) - (cons (_%f116129%_ _%xhd116182%_ _%yhd116198%_) - (_%recur116133%_ - _%xrest116181%_ - _%yrest116197%_))))) - (if (##pair? _%g116183116190%_) - (let ((_%hd116187116203%_ (##car _%g116183116190%_)) - (_%tl116188116205%_ - (##cdr _%g116183116190%_))) - (let* ((_%yhd116208%_ _%hd116187116203%_) - (_%yrest116210%_ _%tl116188116205%_)) - (_%K116186116200%_ - _%yrest116210%_ - _%yhd116208%_))) - (_%E116185116194%_))))) - (_%K116142116175%_ + (_%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%_ (lambda () - (let* ((_%yrest116159116164%_ _%yrest116136%_) - (_%E116161116168%_ + (let* ((_%yrest117291117296%_ _%yrest117268%_) + (_%E117293117300%_ (lambda () (error '"No clause matching" - _%yrest116159116164%_ + _%yrest117291117296%_ '((? (not stx-null?)))) '#!void)) - (_%K116162116172%_ + (_%K117294117304%_ (lambda () - (_%f116129%_ _%xrest116135%_ _%yrest116136%_)))) - (if (gx#stx-null? _%yrest116159116164%_) - (_%E116161116168%_) - (_%K116162116172%_)))))) - (let ((_%try-match116139116178%_ + (_%f117261%_ _%xrest117267%_ _%yrest117268%_)))) + (if (gx#stx-null? _%yrest117291117296%_) + (_%E117293117300%_) + (_%K117294117304%_)))))) + (let ((_%try-match117271117310%_ (lambda () - (if (null? _%g116137116147%_) - (_%else116140116155%_) - (_%K116142116175%_))))) - (if (##pair? _%g116137116147%_) - (let ((_%tl116145116217%_ (##cdr _%g116137116147%_)) - (_%hd116144116215%_ (##car _%g116137116147%_))) - (let ((_%xhd116220%_ _%hd116144116215%_) - (_%xrest116222%_ _%tl116145116217%_)) - (_%K116143116212%_ _%xrest116222%_ _%xhd116220%_))) - (_%try-match116139116178%_)))))))) + (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%_)))))))) (define gx#stx-andmap - (lambda (_%f116079%_ _%stx116080%_) - (if (procedure? _%f116079%_) + (lambda (_%f117211%_ _%stx117212%_) + (if (procedure? _%f117211%_) '#!void - (error '"expected procedure" _%f116079%_)) - (let _%lp116082%_ ((_%rest116084%_ _%stx116080%_)) - (let* ((_%g116085116095%_ (gx#syntax-e _%rest116084%_)) - (_%else116088116103%_ - (lambda () (_%f116079%_ _%rest116084%_)))) - (let ((_%K116091116117%_ - (lambda (_%rest116114%_ _%hd116115%_) - (if (_%f116079%_ _%hd116115%_) - (_%lp116082%_ _%rest116114%_) + (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%_) '#f))) - (_%K116090116108%_ (lambda () '#t))) - (let ((_%try-match116087116111%_ + (_%K117222117240%_ (lambda () '#t))) + (let ((_%try-match117219117243%_ (lambda () - (if (##null? _%g116085116095%_) - (_%K116090116108%_) - (_%else116088116103%_))))) - (if (##pair? _%g116085116095%_) - (let ((_%tl116093116122%_ (##cdr _%g116085116095%_)) - (_%hd116092116120%_ (##car _%g116085116095%_))) - (let ((_%hd116125%_ _%hd116092116120%_) - (_%rest116127%_ _%tl116093116122%_)) - (_%K116091116117%_ _%rest116127%_ _%hd116125%_))) - (_%try-match116087116111%_)))))))) + (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%_)))))))) (define gx#stx-ormap - (lambda (_%f116026%_ _%stx116027%_) - (if (procedure? _%f116026%_) + (lambda (_%f117158%_ _%stx117159%_) + (if (procedure? _%f117158%_) '#!void - (error '"expected procedure" _%f116026%_)) - (let _%lp116029%_ ((_%rest116031%_ _%stx116027%_)) - (let* ((_%g116032116042%_ (gx#syntax-e _%rest116031%_)) - (_%else116035116050%_ - (lambda () (_%f116026%_ _%rest116031%_)))) - (let ((_%K116038116067%_ - (lambda (_%rest116061%_ _%hd116062%_) - (let ((_%$e116064%_ (_%f116026%_ _%hd116062%_))) - (if _%$e116064%_ - _%$e116064%_ - (_%lp116029%_ _%rest116061%_))))) - (_%K116037116055%_ (lambda () '#f))) - (let ((_%try-match116034116058%_ + (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%_ (lambda () - (if (##null? _%g116032116042%_) - (_%K116037116055%_) - (_%else116035116050%_))))) - (if (##pair? _%g116032116042%_) - (let ((_%tl116040116072%_ (##cdr _%g116032116042%_)) - (_%hd116039116070%_ (##car _%g116032116042%_))) - (let ((_%hd116075%_ _%hd116039116070%_) - (_%rest116077%_ _%tl116040116072%_)) - (_%K116038116067%_ _%rest116077%_ _%hd116075%_))) - (_%try-match116034116058%_)))))))) + (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%_)))))))) (define gx#stx-foldl - (lambda (_%f115974%_ _%iv115975%_ _%stx115976%_) - (if (procedure? _%f115974%_) + (lambda (_%f117106%_ _%iv117107%_ _%stx117108%_) + (if (procedure? _%f117106%_) '#!void - (error '"expected procedure" _%f115974%_)) - (let _%lp115978%_ ((_%r115980%_ _%iv115975%_) - (_%rest115981%_ _%stx115976%_)) - (let* ((_%g115982115992%_ (gx#syntax-e _%rest115981%_)) - (_%else115985116000%_ - (lambda () (_%f115974%_ _%rest115981%_ _%r115980%_)))) - (let ((_%K115988116014%_ - (lambda (_%rest116011%_ _%hd116012%_) - (_%lp115978%_ - (_%f115974%_ _%hd116012%_ _%r115980%_) - _%rest116011%_))) - (_%K115987116005%_ (lambda () _%r115980%_))) - (let ((_%try-match115984116008%_ + (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%_ (lambda () - (if (##null? _%g115982115992%_) - (_%K115987116005%_) - (_%else115985116000%_))))) - (if (##pair? _%g115982115992%_) - (let ((_%tl115990116019%_ (##cdr _%g115982115992%_)) - (_%hd115989116017%_ (##car _%g115982115992%_))) - (let ((_%hd116022%_ _%hd115989116017%_) - (_%rest116024%_ _%tl115990116019%_)) - (_%K115988116014%_ _%rest116024%_ _%hd116022%_))) - (_%try-match115984116008%_)))))))) + (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%_)))))))) (define gx#stx-foldr - (lambda (_%f115923%_ _%iv115924%_ _%stx115925%_) - (if (procedure? _%f115923%_) + (lambda (_%f117055%_ _%iv117056%_ _%stx117057%_) + (if (procedure? _%f117055%_) '#!void - (error '"expected procedure" _%f115923%_)) - (let _%recur115927%_ ((_%rest115929%_ _%stx115925%_)) - (let* ((_%g115930115940%_ (gx#syntax-e _%rest115929%_)) - (_%else115933115948%_ - (lambda () (_%f115923%_ _%rest115929%_ _%iv115924%_)))) - (let ((_%K115936115962%_ - (lambda (_%rest115959%_ _%hd115960%_) - (_%f115923%_ - _%hd115960%_ - (_%recur115927%_ _%rest115959%_)))) - (_%K115935115953%_ (lambda () _%iv115924%_))) - (let ((_%try-match115932115956%_ + (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%_ (lambda () - (if (##null? _%g115930115940%_) - (_%K115935115953%_) - (_%else115933115948%_))))) - (if (##pair? _%g115930115940%_) - (let ((_%tl115938115967%_ (##cdr _%g115930115940%_)) - (_%hd115937115965%_ (##car _%g115930115940%_))) - (let ((_%hd115970%_ _%hd115937115965%_) - (_%rest115972%_ _%tl115938115967%_)) - (_%K115936115962%_ _%rest115972%_ _%hd115970%_))) - (_%try-match115932115956%_)))))))) + (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%_)))))))) (define gx#stx-reverse - (lambda (_%stx115921%_) (gx#stx-foldl cons '() _%stx115921%_))) + (lambda (_%stx117053%_) (gx#stx-foldl cons '() _%stx117053%_))) (define gx#stx-last - (lambda (_%stx115882%_) - (let _%lp115884%_ ((_%rest115886%_ _%stx115882%_)) - (let* ((_%g115887115895%_ (gx#syntax-e _%rest115886%_)) - (_%else115889115903%_ (lambda () _%rest115886%_)) - (_%K115891115909%_ - (lambda (_%rest115906%_ _%hd115907%_) - (if (gx#stx-null? _%rest115906%_) - _%hd115907%_ - (_%lp115884%_ _%rest115906%_))))) - (if (##pair? _%g115887115895%_) - (let ((_%hd115892115912%_ (##car _%g115887115895%_)) - (_%tl115893115914%_ (##cdr _%g115887115895%_))) - (let* ((_%hd115917%_ _%hd115892115912%_) - (_%rest115919%_ _%tl115893115914%_)) - (_%K115891115909%_ _%rest115919%_ _%hd115917%_))) - (_%else115889115903%_)))))) + (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%_)))))) (define gx#stx-last-pair - (lambda (_%stx115853%_) - (let _%lp115855%_ ((_%hd115857%_ _%stx115853%_)) - (let* ((_%g115858115865%_ (gx#syntax-e _%hd115857%_)) - (_%E115860115869%_ + (lambda (_%stx116985%_) + (let _%lp116987%_ ((_%hd116989%_ _%stx116985%_)) + (let* ((_%g116990116997%_ (gx#syntax-e _%hd116989%_)) + (_%E116992117001%_ (lambda () (error '"No clause matching" - _%g115858115865%_ + _%g116990116997%_ '([_ . rest])) '#!void)) - (_%K115861115874%_ - (lambda (_%rest115872%_) - (if (gx#stx-pair? _%rest115872%_) - (_%lp115855%_ _%rest115872%_) - _%hd115857%_)))) - (if (##pair? _%g115858115865%_) - (let* ((_%tl115863115877%_ (##cdr _%g115858115865%_)) - (_%rest115880%_ _%tl115863115877%_)) - (_%K115861115874%_ _%rest115880%_)) - (_%E115860115869%_)))))) + (_%K116993117006%_ + (lambda (_%rest117004%_) + (if (gx#stx-pair? _%rest117004%_) + (_%lp116987%_ _%rest117004%_) + _%hd116989%_)))) + (if (pair? _%g116990116997%_) + (let* ((_%tl116995117009%_ (##cdr _%g116990116997%_)) + (_%rest117012%_ _%tl116995117009%_)) + (_%K116993117006%_ _%rest117012%_)) + (_%E116992117001%_)))))) (define gx#stx-list-tail - (lambda (_%stx115822%_ _%k115823%_) - (let _%lp115825%_ ((_%rest115827%_ _%stx115822%_) - (_%k115828%_ _%k115823%_)) - (if (fxpositive? _%k115828%_) - (let* ((_%g115829115836%_ (gx#syntax-e _%rest115827%_)) - (_%E115831115840%_ + (lambda (_%stx116954%_ _%k116955%_) + (let _%lp116957%_ ((_%rest116959%_ _%stx116954%_) + (_%k116960%_ _%k116955%_)) + (if (fxpositive? _%k116960%_) + (let* ((_%g116961116968%_ (gx#syntax-e _%rest116959%_)) + (_%E116963116972%_ (lambda () (error '"No clause matching" - _%g115829115836%_ + _%g116961116968%_ '([_ . rest])) '#!void)) - (_%K115832115845%_ - (lambda (_%rest115843%_) - (_%lp115825%_ _%rest115843%_ (##fx- _%k115828%_ '1))))) - (if (##pair? _%g115829115836%_) - (let* ((_%tl115834115848%_ (##cdr _%g115829115836%_)) - (_%rest115851%_ _%tl115834115848%_)) - (_%K115832115845%_ _%rest115851%_)) - (_%E115831115840%_))) - _%rest115827%_)))) + (_%K116964116977%_ + (lambda (_%rest116975%_) + (_%lp116957%_ _%rest116975%_ (##fx- _%k116960%_ '1))))) + (if (pair? _%g116961116968%_) + (let* ((_%tl116966116980%_ (##cdr _%g116961116968%_)) + (_%rest116983%_ _%tl116966116980%_)) + (_%K116964116977%_ _%rest116983%_)) + (_%E116963116972%_))) + _%rest116959%_)))) (define gx#stx-list-ref - (lambda (_%stx115819%_ _%k115820%_) - (gx#stx-car (gx#stx-list-tail _%stx115819%_ _%k115820%_)))) + (lambda (_%stx116951%_ _%k116952%_) + (gx#stx-car (gx#stx-list-tail _%stx116951%_ _%k116952%_)))) (define gx#stx-plist?__% - (lambda (_%stx115731%_ _%key?115732%_) - (if (procedure? _%key?115732%_) + (lambda (_%stx116863%_ _%key?116864%_) + (if (procedure? _%key?116864%_) '#!void - (error '"expected procedure" _%key?115732%_)) - (let _%lp115734%_ ((_%rest115736%_ _%stx115731%_)) - (let* ((_%g115737115747%_ (gx#stx-e _%rest115736%_)) - (_%else115740115755%_ (lambda () '#f))) - (let ((_%K115743115797%_ - (lambda (_%rest115766%_ _%hd115767%_) - (if (_%key?115732%_ _%hd115767%_) - (let* ((_%g115768115776%_ (gx#stx-e _%rest115766%_)) - (_%else115770115784%_ (lambda () '#f)) - (_%K115772115789%_ - (lambda (_%rest115787%_) - (_%lp115734%_ _%rest115787%_)))) - (if (##pair? _%g115768115776%_) - (let* ((_%tl115774115792%_ - (##cdr _%g115768115776%_)) - (_%rest115795%_ _%tl115774115792%_)) - (_%lp115734%_ _%rest115795%_)) - (_%else115770115784%_))) + (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%_))) '#f))) - (_%K115742115760%_ (lambda () '#t))) - (let ((_%try-match115739115763%_ + (_%K116874116892%_ (lambda () '#t))) + (let ((_%try-match116871116895%_ (lambda () - (if (##null? _%g115737115747%_) - (_%K115742115760%_) - (_%else115740115755%_))))) - (if (##pair? _%g115737115747%_) - (let ((_%tl115745115802%_ (##cdr _%g115737115747%_)) - (_%hd115744115800%_ (##car _%g115737115747%_))) - (let ((_%hd115805%_ _%hd115744115800%_) - (_%rest115807%_ _%tl115745115802%_)) - (_%K115743115797%_ _%rest115807%_ _%hd115805%_))) - (_%try-match115739115763%_)))))))) + (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%_)))))))) (define gx#stx-plist?__0 - (lambda (_%stx115812%_) - (let ((_%key?115814%_ gx#stx-keyword?)) - (gx#stx-plist?__% _%stx115812%_ _%key?115814%_)))) + (lambda (_%stx116944%_) + (let ((_%key?116946%_ gx#stx-keyword?)) + (gx#stx-plist?__% _%stx116944%_ _%key?116946%_)))) (define gx#stx-plist? - (lambda _g116968_ - (let ((_g116967_ (##length _g116968_))) - (cond ((##fx= _g116967_ 1) (apply gx#stx-plist?__0 _g116968_)) - ((##fx= _g116967_ 2) (apply gx#stx-plist?__% _g116968_)) + (lambda _g118100_ + (let ((_g118099_ (##length _g118100_))) + (cond ((##fx= _g118099_ 1) (apply gx#stx-plist?__0 _g118100_)) + ((##fx= _g118099_ 2) (apply gx#stx-plist?__% _g118100_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g116968_)))))) + _g118100_)))))) (define gx#stx-getq__% - (lambda (_%key115649%_ _%stx115650%_ _%key=?115651%_) - (if (procedure? _%key=?115651%_) + (lambda (_%key116781%_ _%stx116782%_ _%key=?116783%_) + (if (procedure? _%key=?116783%_) '#!void - (error '"expected procedure" _%key=?115651%_)) - (let _%lp115653%_ ((_%rest115655%_ _%stx115650%_)) - (let* ((_%g115656115664%_ (gx#syntax-e _%rest115655%_)) - (_%else115658115672%_ (lambda () '#f)) - (_%K115660115706%_ - (lambda (_%rest115675%_ _%hd115676%_) - (let* ((_%g115677115684%_ (gx#syntax-e _%rest115675%_)) - (_%E115679115688%_ + (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%_ (lambda () (error '"No clause matching" - _%g115677115684%_ + _%g116809116816%_ '([val . rest])) '#!void)) - (_%K115680115694%_ - (lambda (_%rest115691%_ _%val115692%_) - (if (_%key=?115651%_ _%hd115676%_ _%key115649%_) - _%val115692%_ - (_%lp115653%_ _%rest115691%_))))) - (if (##pair? _%g115677115684%_) - (let ((_%hd115681115697%_ (##car _%g115677115684%_)) - (_%tl115682115699%_ (##cdr _%g115677115684%_))) - (let* ((_%val115702%_ _%hd115681115697%_) - (_%rest115704%_ _%tl115682115699%_)) - (_%K115680115694%_ - _%rest115704%_ - _%val115702%_))) - (_%E115679115688%_)))))) - (if (##pair? _%g115656115664%_) - (let ((_%hd115661115709%_ (##car _%g115656115664%_)) - (_%tl115662115711%_ (##cdr _%g115656115664%_))) - (let* ((_%hd115714%_ _%hd115661115709%_) - (_%rest115716%_ _%tl115662115711%_)) - (_%K115660115706%_ _%rest115716%_ _%hd115714%_))) - (_%else115658115672%_)))))) + (_%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%_)))))) (define gx#stx-getq__0 - (lambda (_%key115721%_ _%stx115722%_) - (let ((_%key=?115724%_ gx#stx-eq?)) - (gx#stx-getq__% _%key115721%_ _%stx115722%_ _%key=?115724%_)))) + (lambda (_%key116853%_ _%stx116854%_) + (let ((_%key=?116856%_ gx#stx-eq?)) + (gx#stx-getq__% _%key116853%_ _%stx116854%_ _%key=?116856%_)))) (define gx#stx-getq - (lambda _g116970_ - (let ((_g116969_ (##length _g116970_))) - (cond ((##fx= _g116969_ 2) (apply gx#stx-getq__0 _g116970_)) - ((##fx= _g116969_ 3) (apply gx#stx-getq__% _g116970_)) + (lambda _g118102_ + (let ((_g118101_ (##length _g118102_))) + (cond ((##fx= _g118101_ 2) (apply gx#stx-getq__0 _g118102_)) + ((##fx= _g118101_ 3) (apply gx#stx-getq__% _g118102_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g116970_)))))))) + _g118102_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx~1.scm b/src/bootstrap/gerbil/expander/stx~1.scm index c82efe87e..3ec2d7b51 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]#_g116972_| + (define |gx[1]#_g118104_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g116974_| + (define |gx[1]#_g118106_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g116976_| + (define |gx[1]#_g118108_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g116978_| + (define |gx[1]#_g118110_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g116980_| + (define |gx[1]#_g118112_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g116981_| + (define |gx[1]#_g118113_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116982_| + (define |gx[1]#_g118114_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116984_| + (define |gx[1]#_g118116_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116985_| + (define |gx[1]#_g118117_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116986_| + (define |gx[1]#_g118118_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116988_| + (define |gx[1]#_g118120_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g116989_| + (define |gx[1]#_g118121_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116990_| + (define |gx[1]#_g118122_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116992_| + (define |gx[1]#_g118124_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116993_| + (define |gx[1]#_g118125_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116994_| + (define |gx[1]#_g118126_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116997_| + (define |gx[1]#_g118129_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g116999_| + (define |gx[1]#_g118131_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g117001_| + (define |gx[1]#_g118133_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g117003_| + (define |gx[1]#_g118135_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g117004_| + (define |gx[1]#_g118136_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g117005_| + (define |gx[1]#_g118137_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g117007_| + (define |gx[1]#_g118139_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117008_| + (define |gx[1]#_g118140_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117009_| + (define |gx[1]#_g118141_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117011_| + (define |gx[1]#_g118143_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g117012_| + (define |gx[1]#_g118144_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g117013_| + (define |gx[1]#_g118145_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g117015_| + (define |gx[1]#_g118147_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117016_| + (define |gx[1]#_g118148_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117017_| + (define |gx[1]#_g118149_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117020_| + (define |gx[1]#_g118152_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g117022_| + (define |gx[1]#_g118154_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g117024_| + (define |gx[1]#_g118156_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g117026_| + (define |gx[1]#_g118158_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g117027_| + (define |gx[1]#_g118159_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g117028_| + (define |gx[1]#_g118160_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g117029_| + (define |gx[1]#_g118161_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g117031_| + (define |gx[1]#_g118163_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117032_| + (define |gx[1]#_g118164_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117033_| + (define |gx[1]#_g118165_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117034_| + (define |gx[1]#_g118166_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117036_| + (define |gx[1]#_g118168_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g117037_| + (define |gx[1]#_g118169_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g117038_| + (define |gx[1]#_g118170_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g117039_| + (define |gx[1]#_g118171_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g117041_| + (define |gx[1]#_g118173_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117042_| + (define |gx[1]#_g118174_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117043_| + (define |gx[1]#_g118175_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117044_| + (define |gx[1]#_g118176_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj116954 + (let ((__obj118086 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116954 + __obj118086 'gx#identifier-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116954 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj118086 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116954 '(marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj118086 '(marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116954 + __obj118086 '(e source marks) '6 '#f '#f)) - (let ((__tmp116971 (cons |gx[1]#_g116972_| '()))) + (let ((__tmp118103 (cons |gx[1]#_g118104_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj116954 __tmp116971 '3 '#f '#f)) + (##unchecked-structure-set! __obj118086 __tmp118103 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116954 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj118086 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116954 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj118086 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116954 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj118086 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116954 '#f '11 '#f '#f)) - (let ((__tmp116973 |gx[1]#_g116974_|)) + (##unchecked-structure-set! __obj118086 '#f '11 '#f '#f)) + (let ((__tmp118105 |gx[1]#_g118106_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116954 __tmp116973 '12 '#f '#f)) - (let ((__tmp116975 |gx[1]#_g116976_|)) + (##unchecked-structure-set! __obj118086 __tmp118105 '12 '#f '#f)) + (let ((__tmp118107 |gx[1]#_g118108_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116954 __tmp116975 '13 '#f '#f)) - (let ((__tmp116977 |gx[1]#_g116978_|)) + (##unchecked-structure-set! __obj118086 __tmp118107 '13 '#f '#f)) + (let ((__tmp118109 |gx[1]#_g118110_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116954 __tmp116977 '14 '#f '#f)) - (let ((__tmp116979 - (cons (cons 'marks |gx[1]#_g116980_|) - (cons (cons 'e |gx[1]#_g116981_|) - (cons (cons 'source |gx[1]#_g116982_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116954 __tmp116979 '15 '#f '#f)) - (let ((__tmp116983 - (cons (cons 'marks |gx[1]#_g116984_|) - (cons (cons 'e |gx[1]#_g116985_|) - (cons (cons 'source |gx[1]#_g116986_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116954 __tmp116983 '16 '#f '#f)) - (let ((__tmp116987 - (cons (cons 'marks |gx[1]#_g116988_|) - (cons (cons 'e |gx[1]#_g116989_|) - (cons (cons 'source |gx[1]#_g116990_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116954 __tmp116987 '17 '#f '#f)) - (let ((__tmp116991 - (cons (cons 'marks |gx[1]#_g116992_|) - (cons (cons 'e |gx[1]#_g116993_|) - (cons (cons 'source |gx[1]#_g116994_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116954 __tmp116991 '18 '#f '#f)) + (##unchecked-structure-set! __obj118086 __tmp118123 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116954 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj118086 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116954 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj118086 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116954 '() '20 '#f '#f)) - __obj116954)) + (##unchecked-structure-set! __obj118086 '() '20 '#f '#f)) + __obj118086)) (define |gx[:0:]#syntax-wrap| - (let ((__obj116955 + (let ((__obj118087 (let () (declare (not safe)) (##structure @@ -483,80 +483,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116955 + __obj118087 'gx#syntax-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116955 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj118087 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116955 '(mark) '4 '#f '#f)) + (##unchecked-structure-set! __obj118087 '(mark) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116955 '(e source mark) '6 '#f '#f)) - (let ((__tmp116995 (cons |gx[1]#_g116972_| '()))) + (##unchecked-structure-set! __obj118087 '(e source mark) '6 '#f '#f)) + (let ((__tmp118127 (cons |gx[1]#_g118104_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj116955 __tmp116995 '3 '#f '#f)) + (##unchecked-structure-set! __obj118087 __tmp118127 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116955 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj118087 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116955 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj118087 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116955 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj118087 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116955 '#f '11 '#f '#f)) - (let ((__tmp116996 |gx[1]#_g116997_|)) + (##unchecked-structure-set! __obj118087 '#f '11 '#f '#f)) + (let ((__tmp118128 |gx[1]#_g118129_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116955 __tmp116996 '12 '#f '#f)) - (let ((__tmp116998 |gx[1]#_g116999_|)) + (##unchecked-structure-set! __obj118087 __tmp118128 '12 '#f '#f)) + (let ((__tmp118130 |gx[1]#_g118131_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116955 __tmp116998 '13 '#f '#f)) - (let ((__tmp117000 |gx[1]#_g117001_|)) + (##unchecked-structure-set! __obj118087 __tmp118130 '13 '#f '#f)) + (let ((__tmp118132 |gx[1]#_g118133_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116955 __tmp117000 '14 '#f '#f)) - (let ((__tmp117002 - (cons (cons 'mark |gx[1]#_g117003_|) - (cons (cons 'e |gx[1]#_g117004_|) - (cons (cons 'source |gx[1]#_g117005_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116955 __tmp117002 '15 '#f '#f)) - (let ((__tmp117006 - (cons (cons 'mark |gx[1]#_g117007_|) - (cons (cons 'e |gx[1]#_g117008_|) - (cons (cons 'source |gx[1]#_g117009_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116955 __tmp117006 '16 '#f '#f)) - (let ((__tmp117010 - (cons (cons 'mark |gx[1]#_g117011_|) - (cons (cons 'e |gx[1]#_g117012_|) - (cons (cons 'source |gx[1]#_g117013_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116955 __tmp117010 '17 '#f '#f)) - (let ((__tmp117014 - (cons (cons 'mark |gx[1]#_g117015_|) - (cons (cons 'e |gx[1]#_g117016_|) - (cons (cons 'source |gx[1]#_g117017_|) '()))))) + (##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_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116955 __tmp117014 '18 '#f '#f)) + (##unchecked-structure-set! __obj118087 __tmp118146 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116955 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj118087 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116955 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj118087 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116955 '() '20 '#f '#f)) - __obj116955)) + (##unchecked-structure-set! __obj118087 '() '20 '#f '#f)) + __obj118087)) (define |gx[:0:]#syntax-quote| - (let ((__obj116956 + (let ((__obj118088 (let () (declare (not safe)) (##structure @@ -585,88 +585,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116956 + __obj118088 'gx#syntax-quote::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116956 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj118088 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116956 '(context marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj118088 '(context marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116956 + __obj118088 '(e source context marks) '6 '#f '#f)) - (let ((__tmp117018 (cons |gx[1]#_g116972_| '()))) + (let ((__tmp118150 (cons |gx[1]#_g118104_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj116956 __tmp117018 '3 '#f '#f)) + (##unchecked-structure-set! __obj118088 __tmp118150 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116956 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj118088 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116956 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj118088 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116956 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj118088 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116956 '#f '11 '#f '#f)) - (let ((__tmp117019 |gx[1]#_g117020_|)) + (##unchecked-structure-set! __obj118088 '#f '11 '#f '#f)) + (let ((__tmp118151 |gx[1]#_g118152_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116956 __tmp117019 '12 '#f '#f)) - (let ((__tmp117021 |gx[1]#_g117022_|)) + (##unchecked-structure-set! __obj118088 __tmp118151 '12 '#f '#f)) + (let ((__tmp118153 |gx[1]#_g118154_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116956 __tmp117021 '13 '#f '#f)) - (let ((__tmp117023 |gx[1]#_g117024_|)) + (##unchecked-structure-set! __obj118088 __tmp118153 '13 '#f '#f)) + (let ((__tmp118155 |gx[1]#_g118156_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116956 __tmp117023 '14 '#f '#f)) - (let ((__tmp117025 - (cons (cons 'context |gx[1]#_g117026_|) - (cons (cons 'marks |gx[1]#_g117027_|) - (cons (cons 'e |gx[1]#_g117028_|) - (cons (cons 'source |gx[1]#_g117029_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj116956 __tmp117025 '15 '#f '#f)) - (let ((__tmp117030 - (cons (cons 'context |gx[1]#_g117031_|) - (cons (cons 'marks |gx[1]#_g117032_|) - (cons (cons 'e |gx[1]#_g117033_|) - (cons (cons 'source |gx[1]#_g117034_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj116956 __tmp117030 '16 '#f '#f)) - (let ((__tmp117035 - (cons (cons 'context |gx[1]#_g117036_|) - (cons (cons 'marks |gx[1]#_g117037_|) - (cons (cons 'e |gx[1]#_g117038_|) - (cons (cons 'source |gx[1]#_g117039_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj116956 __tmp117035 '17 '#f '#f)) - (let ((__tmp117040 - (cons (cons 'context |gx[1]#_g117041_|) - (cons (cons 'marks |gx[1]#_g117042_|) - (cons (cons 'e |gx[1]#_g117043_|) - (cons (cons 'source |gx[1]#_g117044_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj116956 __tmp117040 '18 '#f '#f)) + (##unchecked-structure-set! __obj118088 __tmp118172 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116956 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj118088 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116956 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj118088 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116956 '() '20 '#f '#f)) - __obj116956)))) + (##unchecked-structure-set! __obj118088 '() '20 '#f '#f)) + __obj118088)))) diff --git a/src/bootstrap/gerbil/expander/top~0.scm b/src/bootstrap/gerbil/expander/top~0.scm index 6e18aa953..4cde01989 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 1713454411) + (define gerbil/expander/top::timestamp 1713631266) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_%stx124007%_) - (letrec ((_%expand-special124009%_ - (lambda (_%hd124011%_ _%K124012%_ _%rest124013%_ _%r124014%_) - (_%K124012%_ - _%rest124013%_ - (cons (gx#core-expand-top _%hd124011%_) _%r124014%_))))) - (gx#core-expand-block__0 _%stx124007%_ _%expand-special124009%_)))) + (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%_)))) (define gx#core-expand-begin-syntax% - (lambda (_%stx123760%_) - (letrec ((_%expand-special123762%_ - (lambda (_%hd123882%_ _%K123883%_ _%rest123884%_ _%r123885%_) - (let* ((_%K123889%_ - (lambda (_%e123887%_) - (_%K123883%_ - _%rest123884%_ - (cons _%e123887%_ _%r123885%_)))) - (_%e123890123919%_ _%hd123882%_) - (_%E123914123923%_ + (lambda (_%stx124892%_) + (letrec ((_%expand-special124894%_ + (lambda (_%hd125014%_ _%K125015%_ _%rest125016%_ _%r125017%_) + (let* ((_%K125021%_ + (lambda (_%e125019%_) + (_%K125015%_ + _%rest125016%_ + (cons _%e125019%_ _%r125017%_)))) + (_%e125022125051%_ _%hd125014%_) + (_%E125046125055%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123890123919%_))) - (_%E123910123935%_ + _%e125022125051%_))) + (_%E125042125067%_ (lambda () - (if (gx#stx-pair? _%e123890123919%_) - (let ((_%e123915123927%_ - (gx#syntax-e _%e123890123919%_))) - (let ((_%hd123916123930%_ - (##car _%e123915123927%_)) - (_%tl123917123932%_ - (##cdr _%e123915123927%_))) + (if (gx#stx-pair? _%e125022125051%_) + (let ((_%e125047125059%_ + (gx#syntax-e _%e125022125051%_))) + (let ((_%hd125048125062%_ + (##car _%e125047125059%_)) + (_%tl125049125064%_ + (##cdr _%e125047125059%_))) (if (and (gx#identifier? - _%hd123916123930%_) + _%hd125048125062%_) (gx#core-identifier=? - _%hd123916123930%_ + _%hd125048125062%_ '%#define-runtime)) - (_%K123889%_ + (_%K125021%_ (gx#core-expand-define-runtime% - _%hd123882%_)) - (_%E123914123923%_)))) - (_%E123914123923%_)))) - (_%E123906123947%_ + _%hd125014%_)) + (_%E125046125055%_)))) + (_%E125046125055%_)))) + (_%E125038125079%_ (lambda () - (if (gx#stx-pair? _%e123890123919%_) - (let ((_%e123911123939%_ - (gx#syntax-e _%e123890123919%_))) - (let ((_%hd123912123942%_ - (##car _%e123911123939%_)) - (_%tl123913123944%_ - (##cdr _%e123911123939%_))) + (if (gx#stx-pair? _%e125022125051%_) + (let ((_%e125043125071%_ + (gx#syntax-e _%e125022125051%_))) + (let ((_%hd125044125074%_ + (##car _%e125043125071%_)) + (_%tl125045125076%_ + (##cdr _%e125043125071%_))) (if (and (gx#identifier? - _%hd123912123942%_) + _%hd125044125074%_) (gx#core-identifier=? - _%hd123912123942%_ + _%hd125044125074%_ '%#define-alias)) - (_%K123889%_ + (_%K125021%_ (gx#core-expand-define-alias% - _%hd123882%_)) - (_%E123910123935%_)))) - (_%E123910123935%_)))) - (_%E123896123959%_ + _%hd125014%_)) + (_%E125042125067%_)))) + (_%E125042125067%_)))) + (_%E125028125091%_ (lambda () - (if (gx#stx-pair? _%e123890123919%_) - (let ((_%e123907123951%_ - (gx#syntax-e _%e123890123919%_))) - (let ((_%hd123908123954%_ - (##car _%e123907123951%_)) - (_%tl123909123956%_ - (##cdr _%e123907123951%_))) + (if (gx#stx-pair? _%e125022125051%_) + (let ((_%e125039125083%_ + (gx#syntax-e _%e125022125051%_))) + (let ((_%hd125040125086%_ + (##car _%e125039125083%_)) + (_%tl125041125088%_ + (##cdr _%e125039125083%_))) (if (and (gx#identifier? - _%hd123908123954%_) + _%hd125040125086%_) (gx#core-identifier=? - _%hd123908123954%_ + _%hd125040125086%_ '%#define-syntax)) - (_%K123889%_ + (_%K125021%_ (gx#core-expand-define-syntax% - _%hd123882%_)) - (_%E123906123947%_)))) - (_%E123906123947%_)))) - (_%E123892123991%_ + _%hd125014%_)) + (_%E125038125079%_)))) + (_%E125038125079%_)))) + (_%E125024125123%_ (lambda () - (if (gx#stx-pair? _%e123890123919%_) - (let ((_%e123897123963%_ - (gx#syntax-e _%e123890123919%_))) - (let ((_%hd123898123966%_ - (##car _%e123897123963%_)) - (_%tl123899123968%_ - (##cdr _%e123897123963%_))) + (if (gx#stx-pair? _%e125022125051%_) + (let ((_%e125029125095%_ + (gx#syntax-e _%e125022125051%_))) + (let ((_%hd125030125098%_ + (##car _%e125029125095%_)) + (_%tl125031125100%_ + (##cdr _%e125029125095%_))) (if (and (gx#identifier? - _%hd123898123966%_) + _%hd125030125098%_) (gx#core-identifier=? - _%hd123898123966%_ + _%hd125030125098%_ '%#define-values)) - (if (gx#stx-pair? _%tl123899123968%_) - (let ((_%e123900123971%_ + (if (gx#stx-pair? _%tl125031125100%_) + (let ((_%e125032125103%_ (gx#syntax-e - _%tl123899123968%_))) - (let ((_%hd123901123974%_ - (##car _%e123900123971%_)) - (_%tl123902123976%_ - (##cdr _%e123900123971%_))) - (let ((_%hd-bind123979%_ - _%hd123901123974%_)) + _%tl125031125100%_))) + (let ((_%hd125033125106%_ + (##car _%e125032125103%_)) + (_%tl125034125108%_ + (##cdr _%e125032125103%_))) + (let ((_%hd-bind125111%_ + _%hd125033125106%_)) (if (gx#stx-pair? - _%tl123902123976%_) - (let ((_%e123903123981%_ + _%tl125034125108%_) + (let ((_%e125035125113%_ (gx#syntax-e - _%tl123902123976%_))) - (let ((_%hd123904123984%_ + _%tl125034125108%_))) + (let ((_%hd125036125116%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e123903123981%_)) - (_%tl123905123986%_ (##cdr _%e123903123981%_))) - (let ((_%expr123989%_ _%hd123904123984%_)) - (if (gx#stx-null? _%tl123905123986%_) - (if (gx#core-bind-values? _%hd-bind123979%_) + (##car _%e125035125113%_)) + (_%tl125037125118%_ (##cdr _%e125035125113%_))) + (let ((_%expr125121%_ _%hd125036125116%_)) + (if (gx#stx-null? _%tl125037125118%_) + (if (gx#core-bind-values? _%hd-bind125111%_) (begin - (gx#core-bind-values!__0 _%hd-bind123979%_) - (_%K123889%_ _%hd123882%_)) - (_%E123896123959%_)) - (_%E123896123959%_))))) - (_%E123896123959%_))))) + (gx#core-bind-values!__0 _%hd-bind125111%_) + (_%K125021%_ _%hd125014%_)) + (_%E125028125091%_)) + (_%E125028125091%_))))) + (_%E125028125091%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123896123959%_)) - (_%E123896123959%_)))) - (_%E123896123959%_)))) - (_%E123891124003%_ + (_%E125028125091%_)) + (_%E125028125091%_)))) + (_%E125028125091%_)))) + (_%E125023125135%_ (lambda () - (if (gx#stx-pair? _%e123890123919%_) - (let ((_%e123893123995%_ - (gx#syntax-e _%e123890123919%_))) - (let ((_%hd123894123998%_ - (##car _%e123893123995%_)) - (_%tl123895124000%_ - (##cdr _%e123893123995%_))) + (if (gx#stx-pair? _%e125022125051%_) + (let ((_%e125025125127%_ + (gx#syntax-e _%e125022125051%_))) + (let ((_%hd125026125130%_ + (##car _%e125025125127%_)) + (_%tl125027125132%_ + (##cdr _%e125025125127%_))) (if (and (gx#identifier? - _%hd123894123998%_) + _%hd125026125130%_) (gx#core-identifier=? - _%hd123894123998%_ + _%hd125026125130%_ '%#begin-syntax)) - (_%K123889%_ + (_%K125021%_ (gx#core-expand-begin-syntax% - _%hd123882%_)) - (_%E123892123991%_)))) - (_%E123892123991%_))))) - (_%E123891124003%_)))) - (_%eval-body123763%_ - (lambda (_%rbody123771%_) - (let _%lp123773%_ ((_%rest123775%_ _%rbody123771%_) - (_%body123776%_ '()) - (_%ebody123777%_ '())) - (let* ((_%rest123778123786%_ _%rest123775%_) - (_%else123780123794%_ + _%hd125014%_)) + (_%E125024125123%_)))) + (_%E125024125123%_))))) + (_%E125023125135%_)))) + (_%eval-body124895%_ + (lambda (_%rbody124903%_) + (let _%lp124905%_ ((_%rest124907%_ _%rbody124903%_) + (_%body124908%_ '()) + (_%ebody124909%_ '())) + (let* ((_%rest124910124918%_ _%rest124907%_) + (_%else124912124926%_ (lambda () - (values _%body123776%_ + (values _%body124908%_ (gx#eval-syntax* (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%ebody123777%_) - (gx#stx-source _%stx123760%_)))))) - (_%K123782123870%_ - (lambda (_%rest123797%_ _%hd123798%_) - (let* ((_%e123799123816%_ _%hd123798%_) - (_%E123811123820%_ + _%ebody124909%_) + (gx#stx-source _%stx124892%_)))))) + (_%K124914125002%_ + (lambda (_%rest124929%_ _%hd124930%_) + (let* ((_%e124931124948%_ _%hd124930%_) + (_%E124943124952%_ (lambda () - (_%lp123773%_ - _%rest123797%_ - (cons _%hd123798%_ _%body123776%_) - (cons _%hd123798%_ - _%ebody123777%_)))) - (_%E123801123832%_ + (_%lp124905%_ + _%rest124929%_ + (cons _%hd124930%_ _%body124908%_) + (cons _%hd124930%_ + _%ebody124909%_)))) + (_%E124933124964%_ (lambda () - (if (gx#stx-pair? _%e123799123816%_) - (let ((_%e123812123824%_ + (if (gx#stx-pair? _%e124931124948%_) + (let ((_%e124944124956%_ (gx#syntax-e - _%e123799123816%_))) - (let ((_%hd123813123827%_ - (##car _%e123812123824%_)) - (_%tl123814123829%_ - (##cdr _%e123812123824%_))) + _%e124931124948%_))) + (let ((_%hd124945124959%_ + (##car _%e124944124956%_)) + (_%tl124946124961%_ + (##cdr _%e124944124956%_))) (if (and (gx#identifier? - _%hd123813123827%_) + _%hd124945124959%_) (gx#core-identifier=? - _%hd123813123827%_ + _%hd124945124959%_ '%#begin-syntax)) - (_%lp123773%_ - _%rest123797%_ - (cons _%hd123798%_ - _%body123776%_) - _%ebody123777%_) - (_%E123811123820%_)))) - (_%E123811123820%_)))) - (_%E123800123866%_ + (_%lp124905%_ + _%rest124929%_ + (cons _%hd124930%_ + _%body124908%_) + _%ebody124909%_) + (_%E124943124952%_)))) + (_%E124943124952%_)))) + (_%E124932124998%_ (lambda () - (if (gx#stx-pair? _%e123799123816%_) - (let ((_%e123802123836%_ + (if (gx#stx-pair? _%e124931124948%_) + (let ((_%e124934124968%_ (gx#syntax-e - _%e123799123816%_))) - (let ((_%hd123803123839%_ - (##car _%e123802123836%_)) - (_%tl123804123841%_ - (##cdr _%e123802123836%_))) + _%e124931124948%_))) + (let ((_%hd124935124971%_ + (##car _%e124934124968%_)) + (_%tl124936124973%_ + (##cdr _%e124934124968%_))) (if (and (gx#identifier? - _%hd123803123839%_) + _%hd124935124971%_) (gx#core-identifier=? - _%hd123803123839%_ + _%hd124935124971%_ '%#define-values)) (if (gx#stx-pair? - _%tl123804123841%_) - (let ((_%e123805123844%_ + _%tl124936124973%_) + (let ((_%e124937124976%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl123804123841%_))) - (let ((_%hd123806123847%_ (##car _%e123805123844%_)) - (_%tl123807123849%_ (##cdr _%e123805123844%_))) - (let ((_%hd-bind123852%_ _%hd123806123847%_)) - (if (gx#stx-pair? _%tl123807123849%_) - (let ((_%e123808123854%_ - (gx#syntax-e _%tl123807123849%_))) - (let ((_%hd123809123857%_ - (##car _%e123808123854%_)) - (_%tl123810123859%_ - (##cdr _%e123808123854%_))) - (let ((_%expr123862%_ _%hd123809123857%_)) - (if (gx#stx-null? _%tl123810123859%_) - (let ((_%ehd123864%_ + (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#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _%hd-bind123852%_) + _%hd-bind124984%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr123862%_) + _%expr124994%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%hd123798%_)))) - (_%lp123773%_ - _%rest123797%_ - (cons _%ehd123864%_ _%body123776%_) - (cons _%ehd123864%_ _%ebody123777%_))) - (_%E123801123832%_))))) - (_%E123801123832%_))))) - (_%E123801123832%_)) - (_%E123801123832%_)))) + (gx#stx-source _%hd124930%_)))) + (_%lp124905%_ + _%rest124929%_ + (cons _%ehd124996%_ _%body124908%_) + (cons _%ehd124996%_ _%ebody124909%_))) + (_%E124933124964%_))))) + (_%E124933124964%_))))) + (_%E124933124964%_)) + (_%E124933124964%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123801123832%_))))) - (_%E123800123866%_))))) - (if (##pair? _%rest123778123786%_) - (let ((_%hd123783123873%_ - (##car _%rest123778123786%_)) - (_%tl123784123875%_ - (##cdr _%rest123778123786%_))) - (let* ((_%hd123878%_ _%hd123783123873%_) - (_%rest123880%_ _%tl123784123875%_)) - (_%K123782123870%_ - _%rest123880%_ - _%hd123878%_))) - (_%else123780123794%_))))))) + (_%E124933124964%_))))) + (_%E124932124998%_))))) + (if (pair? _%rest124910124918%_) + (let ((_%hd124915125005%_ + (##car _%rest124910124918%_)) + (_%tl124916125007%_ + (##cdr _%rest124910124918%_))) + (let* ((_%hd125010%_ _%hd124915125005%_) + (_%rest125012%_ _%tl124916125007%_)) + (_%K124914125002%_ + _%rest125012%_ + _%hd125010%_))) + (_%else124912124926%_))))))) (__call-with-parameters (lambda () - (let* ((_%rbody123766%_ + (let* ((_%rbody124898%_ (gx#core-expand-block__1 - _%stx123760%_ - _%expand-special123762%_ + _%stx124892%_ + _%expand-special124894%_ '#f)) - (_g124030_ (_%eval-body123763%_ _%rbody123766%_))) + (_g125162_ (_%eval-body124895%_ _%rbody124898%_))) (begin - (let ((_g124031_ - (if (##values? _g124030_) - (##vector-length _g124030_) + (let ((_g125163_ + (if (##values? _g125162_) + (##vector-length _g125162_) 1))) - (if (not (##fx= _g124031_ 2)) - (error "Context expects 2 values" _g124031_))) - (let ((_%expanded-body123768%_ (##vector-ref _g124030_ 0)) - (_%value123769%_ (##vector-ref _g124030_ 1))) + (if (not (##fx= _g125163_ 2)) + (error "Context expects 2 values" _g125163_))) + (let ((_%expanded-body124900%_ (##vector-ref _g125162_ 0)) + (_%value124901%_ (##vector-ref _g125162_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _%expanded-body123768%_) + (gx#core-cons '%#begin-syntax _%expanded-body124900%_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _%value123769%_ '()))) - (gx#stx-source _%stx123760%_)))))) + (cons _%value124901%_ '()))) + (gx#stx-source _%stx124892%_)))))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_%stx123730%_) - (let* ((_%e123731123738%_ _%stx123730%_) - (_%E123733123742%_ + (lambda (_%stx124862%_) + (let* ((_%e124863124870%_ _%stx124862%_) + (_%E124865124874%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123731123738%_))) - (_%E123732123756%_ + _%e124863124870%_))) + (_%E124864124888%_ (lambda () - (if (gx#stx-pair? _%e123731123738%_) - (let ((_%e123734123746%_ - (gx#syntax-e _%e123731123738%_))) - (let ((_%hd123735123749%_ (##car _%e123734123746%_)) - (_%tl123736123751%_ (##cdr _%e123734123746%_))) - (let ((_%body123754%_ _%tl123736123751%_)) - (if (gx#stx-list? _%body123754%_) + (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%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _%body123754%_) - (gx#stx-source _%stx123730%_)) - (_%E123733123742%_))))) - (_%E123733123742%_))))) - (_%E123732123756%_)))) + (gx#core-cons '%#begin-foreign _%body124886%_) + (gx#stx-source _%stx124862%_)) + (_%E124865124874%_))))) + (_%E124865124874%_))))) + (_%E124864124888%_)))) (define gx#core-expand-begin-module% - (lambda (_%stx123728%_) - (gx#raise-syntax-error '#f '"Illegal expansion" _%stx123728%_))) + (lambda (_%stx124860%_) + (gx#raise-syntax-error '#f '"Illegal expansion" _%stx124860%_))) (define gx#core-expand-begin-annotation% - (lambda (_%stx123674%_) - (let* ((_%e123675123688%_ _%stx123674%_) - (_%E123677123692%_ + (lambda (_%stx124806%_) + (let* ((_%e124807124820%_ _%stx124806%_) + (_%E124809124824%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123675123688%_))) - (_%E123676123724%_ + _%e124807124820%_))) + (_%E124808124856%_ (lambda () - (if (gx#stx-pair? _%e123675123688%_) - (let ((_%e123678123696%_ - (gx#syntax-e _%e123675123688%_))) - (let ((_%hd123679123699%_ (##car _%e123678123696%_)) - (_%tl123680123701%_ (##cdr _%e123678123696%_))) - (if (gx#stx-pair? _%tl123680123701%_) - (let ((_%e123681123704%_ - (gx#syntax-e _%tl123680123701%_))) - (let ((_%hd123682123707%_ - (##car _%e123681123704%_)) - (_%tl123683123709%_ - (##cdr _%e123681123704%_))) - (let ((_%ann123712%_ _%hd123682123707%_)) - (if (gx#stx-pair? _%tl123683123709%_) - (let ((_%e123684123714%_ + (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%_ (gx#syntax-e - _%tl123683123709%_))) - (let ((_%hd123685123717%_ - (##car _%e123684123714%_)) - (_%tl123686123719%_ - (##cdr _%e123684123714%_))) - (let ((_%expr123722%_ - _%hd123685123717%_)) + _%tl124815124841%_))) + (let ((_%hd124817124849%_ + (##car _%e124816124846%_)) + (_%tl124818124851%_ + (##cdr _%e124816124846%_))) + (let ((_%expr124854%_ + _%hd124817124849%_)) (if (gx#stx-null? - _%tl123686123719%_) + _%tl124818124851%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%ann123712%_ + (cons _%ann124844%_ (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr123722%_) + _%expr124854%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx123674%_)) - (_%E123677123692%_))))) - (_%E123677123692%_))))) - (_%E123677123692%_)))) - (_%E123677123692%_))))) - (_%E123676123724%_)))) + _%stx124806%_)) + (_%E124809124824%_))))) + (_%E124809124824%_))))) + (_%E124809124824%_)))) + (_%E124809124824%_))))) + (_%E124808124856%_)))) (define gx#core-expand-local-block - (lambda (_%stx123398%_ _%body123399%_) - (letrec ((_%expand-special123401%_ - (lambda (_%hd123669%_ _%K123670%_ _%rest123671%_ _%r123672%_) - (_%K123670%_ + (lambda (_%stx124530%_ _%body124531%_) + (letrec ((_%expand-special124533%_ + (lambda (_%hd124801%_ _%K124802%_ _%rest124803%_ _%r124804%_) + (_%K124802%_ '() - (cons (_%expand-internal123402%_ - _%hd123669%_ - _%rest123671%_) - _%r123672%_)))) - (_%expand-internal123402%_ - (lambda (_%hd123665%_ _%rest123666%_) + (cons (_%expand-internal124534%_ + _%hd124801%_ + _%rest124803%_) + _%r124804%_)))) + (_%expand-internal124534%_ + (lambda (_%hd124797%_ _%rest124798%_) (__call-with-parameters (lambda () - (_%wrap-internal123404%_ + (_%wrap-internal124536%_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _%hd123665%_ _%rest123666%_)) - (gx#stx-source _%stx123398%_)) - _%expand-internal-special123403%_ + (cons '%#begin (cons _%hd124797%_ _%rest124798%_)) + (gx#stx-source _%stx124530%_)) + _%expand-internal-special124535%_ '#f))) gx#current-expander-context - (let ((__obj124024 + (let ((__obj125156 (##structure gx#local-context::t '#f @@ -399,750 +399,750 @@ '#f '#f '#f))) - (gx#local-context:::init!__0 __obj124024) - __obj124024)))) - (_%expand-internal-special123403%_ - (lambda (_%hd123560%_ _%K123561%_ _%rest123562%_ _%r123563%_) - (let* ((_%e123564123589%_ _%hd123560%_) - (_%E123584123593%_ + (gx#local-context:::init!__0 __obj125156) + __obj125156)))) + (_%expand-internal-special124535%_ + (lambda (_%hd124692%_ _%K124693%_ _%rest124694%_ _%r124695%_) + (let* ((_%e124696124721%_ _%hd124692%_) + (_%E124716124725%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123564123589%_))) - (_%E123580123605%_ + _%e124696124721%_))) + (_%E124712124737%_ (lambda () - (if (gx#stx-pair? _%e123564123589%_) - (let ((_%e123585123597%_ - (gx#syntax-e _%e123564123589%_))) - (let ((_%hd123586123600%_ - (##car _%e123585123597%_)) - (_%tl123587123602%_ - (##cdr _%e123585123597%_))) + (if (gx#stx-pair? _%e124696124721%_) + (let ((_%e124717124729%_ + (gx#syntax-e _%e124696124721%_))) + (let ((_%hd124718124732%_ + (##car _%e124717124729%_)) + (_%tl124719124734%_ + (##cdr _%e124717124729%_))) (if (and (gx#identifier? - _%hd123586123600%_) + _%hd124718124732%_) (gx#core-identifier=? - _%hd123586123600%_ + _%hd124718124732%_ '%#declare)) - (_%K123561%_ - _%rest123562%_ + (_%K124693%_ + _%rest124694%_ (cons (gx#core-expand-declare% - _%hd123560%_) - _%r123563%_)) - (_%E123584123593%_)))) - (_%E123584123593%_)))) - (_%E123576123617%_ + _%hd124692%_) + _%r124695%_)) + (_%E124716124725%_)))) + (_%E124716124725%_)))) + (_%E124708124749%_ (lambda () - (if (gx#stx-pair? _%e123564123589%_) - (let ((_%e123581123609%_ - (gx#syntax-e _%e123564123589%_))) - (let ((_%hd123582123612%_ - (##car _%e123581123609%_)) - (_%tl123583123614%_ - (##cdr _%e123581123609%_))) + (if (gx#stx-pair? _%e124696124721%_) + (let ((_%e124713124741%_ + (gx#syntax-e _%e124696124721%_))) + (let ((_%hd124714124744%_ + (##car _%e124713124741%_)) + (_%tl124715124746%_ + (##cdr _%e124713124741%_))) (if (and (gx#identifier? - _%hd123582123612%_) + _%hd124714124744%_) (gx#core-identifier=? - _%hd123582123612%_ + _%hd124714124744%_ '%#define-alias)) (begin (gx#core-expand-define-alias% - _%hd123560%_) - (_%K123561%_ - _%rest123562%_ - _%r123563%_)) - (_%E123580123605%_)))) - (_%E123580123605%_)))) - (_%E123566123629%_ + _%hd124692%_) + (_%K124693%_ + _%rest124694%_ + _%r124695%_)) + (_%E124712124737%_)))) + (_%E124712124737%_)))) + (_%E124698124761%_ (lambda () - (if (gx#stx-pair? _%e123564123589%_) - (let ((_%e123577123621%_ - (gx#syntax-e _%e123564123589%_))) - (let ((_%hd123578123624%_ - (##car _%e123577123621%_)) - (_%tl123579123626%_ - (##cdr _%e123577123621%_))) + (if (gx#stx-pair? _%e124696124721%_) + (let ((_%e124709124753%_ + (gx#syntax-e _%e124696124721%_))) + (let ((_%hd124710124756%_ + (##car _%e124709124753%_)) + (_%tl124711124758%_ + (##cdr _%e124709124753%_))) (if (and (gx#identifier? - _%hd123578123624%_) + _%hd124710124756%_) (gx#core-identifier=? - _%hd123578123624%_ + _%hd124710124756%_ '%#define-syntax)) (begin (gx#core-expand-define-syntax% - _%hd123560%_) - (_%K123561%_ - _%rest123562%_ - _%r123563%_)) - (_%E123576123617%_)))) - (_%E123576123617%_)))) - (_%E123565123661%_ + _%hd124692%_) + (_%K124693%_ + _%rest124694%_ + _%r124695%_)) + (_%E124708124749%_)))) + (_%E124708124749%_)))) + (_%E124697124793%_ (lambda () - (if (gx#stx-pair? _%e123564123589%_) - (let ((_%e123567123633%_ - (gx#syntax-e _%e123564123589%_))) - (let ((_%hd123568123636%_ - (##car _%e123567123633%_)) - (_%tl123569123638%_ - (##cdr _%e123567123633%_))) + (if (gx#stx-pair? _%e124696124721%_) + (let ((_%e124699124765%_ + (gx#syntax-e _%e124696124721%_))) + (let ((_%hd124700124768%_ + (##car _%e124699124765%_)) + (_%tl124701124770%_ + (##cdr _%e124699124765%_))) (if (and (gx#identifier? - _%hd123568123636%_) + _%hd124700124768%_) (gx#core-identifier=? - _%hd123568123636%_ + _%hd124700124768%_ '%#define-values)) - (if (gx#stx-pair? _%tl123569123638%_) - (let ((_%e123570123641%_ + (if (gx#stx-pair? _%tl124701124770%_) + (let ((_%e124702124773%_ (gx#syntax-e - _%tl123569123638%_))) - (let ((_%hd123571123644%_ - (##car _%e123570123641%_)) - (_%tl123572123646%_ - (##cdr _%e123570123641%_))) - (let ((_%hd-bind123649%_ - _%hd123571123644%_)) + _%tl124701124770%_))) + (let ((_%hd124703124776%_ + (##car _%e124702124773%_)) + (_%tl124704124778%_ + (##cdr _%e124702124773%_))) + (let ((_%hd-bind124781%_ + _%hd124703124776%_)) (if (gx#stx-pair? - _%tl123572123646%_) - (let ((_%e123573123651%_ + _%tl124704124778%_) + (let ((_%e124705124783%_ (gx#syntax-e - _%tl123572123646%_))) - (let ((_%hd123574123654%_ + _%tl124704124778%_))) + (let ((_%hd124706124786%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e123573123651%_)) - (_%tl123575123656%_ (##cdr _%e123573123651%_))) - (let ((_%expr123659%_ _%hd123574123654%_)) - (if (gx#stx-null? _%tl123575123656%_) - (if (gx#core-bind-values? _%hd-bind123649%_) + (##car _%e124705124783%_)) + (_%tl124707124788%_ (##cdr _%e124705124783%_))) + (let ((_%expr124791%_ _%hd124706124786%_)) + (if (gx#stx-null? _%tl124707124788%_) + (if (gx#core-bind-values? _%hd-bind124781%_) (begin - (gx#core-bind-values!__0 _%hd-bind123649%_) - (_%K123561%_ - _%rest123562%_ - (cons _%hd123560%_ _%r123563%_))) - (_%E123566123629%_)) - (_%E123566123629%_))))) - (_%E123566123629%_))))) + (gx#core-bind-values!__0 _%hd-bind124781%_) + (_%K124693%_ + _%rest124694%_ + (cons _%hd124692%_ _%r124695%_))) + (_%E124698124761%_)) + (_%E124698124761%_))))) + (_%E124698124761%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123566123629%_)) - (_%E123566123629%_)))) - (_%E123566123629%_))))) - (_%E123565123661%_)))) - (_%wrap-internal123404%_ - (lambda (_%rbody123406%_) - (let _%lp123408%_ ((_%rest123410%_ _%rbody123406%_) - (_%decls123411%_ '()) - (_%bind123412%_ '()) - (_%body123413%_ '())) - (let* ((_%e123414123421%_ _%rest123410%_) - (_%E123416123470%_ + (_%E124698124761%_)) + (_%E124698124761%_)))) + (_%E124698124761%_))))) + (_%E124697124793%_)))) + (_%wrap-internal124536%_ + (lambda (_%rbody124538%_) + (let _%lp124540%_ ((_%rest124542%_ _%rbody124538%_) + (_%decls124543%_ '()) + (_%bind124544%_ '()) + (_%body124545%_ '())) + (let* ((_%e124546124553%_ _%rest124542%_) + (_%E124548124602%_ (lambda () - (let* ((_%body123465%_ - (let* ((_%body123424123434%_ - _%body123413%_) - (_%else123427123442%_ + (let* ((_%body124597%_ + (let* ((_%body124556124566%_ + _%body124545%_) + (_%else124559124574%_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body123413%_) + _%body124545%_) (gx#stx-source - _%stx123398%_))))) - (let ((_%K123432123462%_ + _%stx124530%_))))) + (let ((_%K124564124594%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _%stx123398%_))) - (_%K123429123448%_ - (lambda (_%expr123446%_) - _%expr123446%_))) - (let ((_%try-match123426123458%_ + _%stx124530%_))) + (_%K124561124580%_ + (lambda (_%expr124578%_) + _%expr124578%_))) + (let ((_%try-match124558124590%_ (lambda () - (if (##pair? _%body123424123434%_) - (let ((_%tl123431123453%_ - (##cdr _%body123424123434%_)) - (_%hd123430123451%_ - (##car _%body123424123434%_))) - (if (##null? _%tl123431123453%_) - (let ((_%expr123456%_ + (if (pair? _%body124556124566%_) + (let ((_%tl124563124585%_ + (##cdr _%body124556124566%_)) + (_%hd124562124583%_ + (##car _%body124556124566%_))) + (if (null? _%tl124563124585%_) + (let ((_%expr124588%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd123430123451%_)) - (_%K123429123448%_ _%expr123456%_)) - (_%else123427123442%_))) - (_%else123427123442%_))))) + _%hd124562124583%_)) + (_%K124561124580%_ _%expr124588%_)) + (_%else124559124574%_))) + (_%else124559124574%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##null? _%body123424123434%_) - (_%K123432123462%_) - (_%try-match123426123458%_)))))) - (_%body123467%_ - (if (null? _%bind123412%_) - _%body123465%_ + (if (null? _%body124556124566%_) + (_%K124564124594%_) + (_%try-match124558124590%_)))))) + (_%body124599%_ + (if (null? _%bind124544%_) + _%body124597%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _%bind123412%_ - (cons _%body123465%_ + (cons _%bind124544%_ + (cons _%body124597%_ '()))) - (gx#stx-source _%stx123398%_))))) - (if (null? _%decls123411%_) - _%body123467%_ + (gx#stx-source _%stx124530%_))))) + (if (null? _%decls124543%_) + _%body124599%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%decls123411%_ - (cons _%body123467%_ '()))) - (gx#stx-source _%stx123398%_)))))) - (_%E123415123556%_ + (cons _%decls124543%_ + (cons _%body124599%_ '()))) + (gx#stx-source _%stx124530%_)))))) + (_%E124547124688%_ (lambda () - (if (gx#stx-pair? _%e123414123421%_) - (let ((_%e123417123474%_ - (gx#syntax-e _%e123414123421%_))) - (let ((_%hd123418123477%_ - (##car _%e123417123474%_)) - (_%tl123419123479%_ - (##cdr _%e123417123474%_))) - (let* ((_%hd123482%_ - _%hd123418123477%_) - (_%rest123484%_ - _%tl123419123479%_) - (_%e123485123502%_ _%hd123482%_) - (_%E123497123506%_ + (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%_ (lambda () - (if (null? _%bind123412%_) - (_%lp123408%_ - _%rest123484%_ - _%decls123411%_ - _%bind123412%_ - (cons _%hd123482%_ - _%body123413%_)) - (_%lp123408%_ - _%rest123484%_ - _%decls123411%_ + (if (null? _%bind124544%_) + (_%lp124540%_ + _%rest124616%_ + _%decls124543%_ + _%bind124544%_ + (cons _%hd124614%_ + _%body124545%_)) + (_%lp124540%_ + _%rest124616%_ + _%decls124543%_ (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%hd123482%_ '())) - _%bind123412%_) - _%body123413%_)))) + (cons _%hd124614%_ '())) + _%bind124544%_) + _%body124545%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123487123520%_ + (_%E124619124652%_ (lambda () (if (gx#stx-pair? - _%e123485123502%_) - (let ((_%e123498123510%_ + _%e124617124634%_) + (let ((_%e124630124642%_ (gx#syntax-e - _%e123485123502%_))) - (let ((_%hd123499123513%_ - (##car _%e123498123510%_)) - (_%tl123500123515%_ - (##cdr _%e123498123510%_))) + _%e124617124634%_))) + (let ((_%hd124631124645%_ + (##car _%e124630124642%_)) + (_%tl124632124647%_ + (##cdr _%e124630124642%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd123499123513%_) + _%hd124631124645%_) (gx#core-identifier=? - _%hd123499123513%_ + _%hd124631124645%_ '%#declare)) - (let ((_%xdecls123518%_ _%tl123500123515%_)) - (_%lp123408%_ - _%rest123484%_ - (gx#stx-foldr cons _%decls123411%_ _%xdecls123518%_) - _%bind123412%_ - _%body123413%_)) - (_%E123497123506%_)))) - (_%E123497123506%_)))) + (let ((_%xdecls124650%_ _%tl124632124647%_)) + (_%lp124540%_ + _%rest124616%_ + (gx#stx-foldr cons _%decls124543%_ _%xdecls124650%_) + _%bind124544%_ + _%body124545%_)) + (_%E124629124638%_)))) + (_%E124629124638%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123486123552%_ + (_%E124618124684%_ (lambda () (if (gx#stx-pair? - _%e123485123502%_) - (let ((_%e123488123524%_ + _%e124617124634%_) + (let ((_%e124620124656%_ (gx#syntax-e - _%e123485123502%_))) - (let ((_%hd123489123527%_ - (##car _%e123488123524%_)) - (_%tl123490123529%_ - (##cdr _%e123488123524%_))) + _%e124617124634%_))) + (let ((_%hd124621124659%_ + (##car _%e124620124656%_)) + (_%tl124622124661%_ + (##cdr _%e124620124656%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd123489123527%_) + _%hd124621124659%_) (gx#core-identifier=? - _%hd123489123527%_ + _%hd124621124659%_ '%#define-values)) - (if (gx#stx-pair? _%tl123490123529%_) - (let ((_%e123491123532%_ - (gx#syntax-e _%tl123490123529%_))) - (let ((_%hd123492123535%_ - (##car _%e123491123532%_)) - (_%tl123493123537%_ - (##cdr _%e123491123532%_))) - (let ((_%hd-bind123540%_ _%hd123492123535%_)) - (if (gx#stx-pair? _%tl123493123537%_) - (let ((_%e123494123542%_ - (gx#syntax-e _%tl123493123537%_))) - (let ((_%hd123495123545%_ - (##car _%e123494123542%_)) - (_%tl123496123547%_ - (##cdr _%e123494123542%_))) - (let ((_%expr123550%_ - _%hd123495123545%_)) - (if (gx#stx-null? _%tl123496123547%_) - (_%lp123408%_ - _%rest123484%_ - _%decls123411%_ + (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%_ (cons (cons (gx#core-quote-bind-values - _%hd-bind123540%_) + _%hd-bind124672%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr123550%_) + _%expr124682%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind123412%_) - _%body123413%_) - (_%E123487123520%_))))) - (_%E123487123520%_))))) - (_%E123487123520%_)) - (_%E123487123520%_)))) - (_%E123487123520%_))))) + _%bind124544%_) + _%body124545%_) + (_%E124619124652%_))))) + (_%E124619124652%_))))) + (_%E124619124652%_)) + (_%E124619124652%_)))) + (_%E124619124652%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123486123552%_)))) - (_%E123416123470%_))))) - (_%E123415123556%_)))))) + (_%E124618124684%_)))) + (_%E124548124602%_))))) + (_%E124547124688%_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _%body123399%_) - (gx#stx-source _%stx123398%_)) - _%expand-special123401%_)))) + (cons '%#begin _%body124531%_) + (gx#stx-source _%stx124530%_)) + _%expand-special124533%_)))) (define gx#core-expand-declare% - (lambda (_%stx123336%_) - (let* ((_%e123337123344%_ _%stx123336%_) - (_%E123339123348%_ + (lambda (_%stx124468%_) + (let* ((_%e124469124476%_ _%stx124468%_) + (_%E124471124480%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123337123344%_))) - (_%E123338123394%_ + _%e124469124476%_))) + (_%E124470124526%_ (lambda () - (if (gx#stx-pair? _%e123337123344%_) - (let ((_%e123340123352%_ - (gx#syntax-e _%e123337123344%_))) - (let ((_%hd123341123355%_ (##car _%e123340123352%_)) - (_%tl123342123357%_ (##cdr _%e123340123352%_))) - (let ((_%body123360%_ _%tl123342123357%_)) - (if (gx#stx-list? _%body123360%_) + (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%_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_%decl123362%_) - (let* ((_%e123363123370%_ _%decl123362%_) - (_%E123365123374%_ + (lambda (_%decl124494%_) + (let* ((_%e124495124502%_ _%decl124494%_) + (_%E124497124506%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123363123370%_))) - (_%E123364123390%_ + _%e124495124502%_))) + (_%E124496124522%_ (lambda () (if (gx#stx-pair? - _%e123363123370%_) - (let ((_%e123366123378%_ + _%e124495124502%_) + (let ((_%e124498124510%_ (gx#syntax-e - _%e123363123370%_))) - (let ((_%hd123367123381%_ - (##car _%e123366123378%_)) - (_%tl123368123383%_ - (##cdr _%e123366123378%_))) - (let* ((_%head123386%_ - _%hd123367123381%_) - (_%args123388%_ - _%tl123368123383%_)) + _%e124495124502%_))) + (let ((_%hd124499124513%_ + (##car _%e124498124510%_)) + (_%tl124500124515%_ + (##cdr _%e124498124510%_))) + (let* ((_%head124518%_ + _%hd124499124513%_) + (_%args124520%_ + _%tl124500124515%_)) (if (gx#stx-list? - _%args123388%_) + _%args124520%_) (gx#stx-map1 gx#core-quote-syntax - _%decl123362%_) - (_%E123365123374%_))))) - (_%E123365123374%_))))) - (_%E123364123390%_))) - _%body123360%_)) - (gx#stx-source _%stx123336%_)) - (_%E123339123348%_))))) - (_%E123339123348%_))))) - (_%E123338123394%_)))) + _%decl124494%_) + (_%E124497124506%_))))) + (_%E124497124506%_))))) + (_%E124496124522%_))) + _%body124492%_)) + (gx#stx-source _%stx124468%_)) + (_%E124471124480%_))))) + (_%E124471124480%_))))) + (_%E124470124526%_)))) (define gx#core-expand-extern% - (lambda (_%stx123240%_) - (let* ((_%e123241123248%_ _%stx123240%_) - (_%E123243123252%_ + (lambda (_%stx124372%_) + (let* ((_%e124373124380%_ _%stx124372%_) + (_%E124375124384%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123241123248%_))) - (_%E123242123332%_ + _%e124373124380%_))) + (_%E124374124464%_ (lambda () - (if (gx#stx-pair? _%e123241123248%_) - (let ((_%e123244123256%_ - (gx#syntax-e _%e123241123248%_))) - (let ((_%hd123245123259%_ (##car _%e123244123256%_)) - (_%tl123246123261%_ (##cdr _%e123244123256%_))) - (let ((_%body123264%_ _%tl123246123261%_)) - (let _%lp123266%_ ((_%rest123268%_ _%body123264%_) - (_%r123269%_ '())) - (let* ((_%e123270123284%_ _%rest123268%_) - (_%E123282123288%_ + (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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _%stx123240%_))) - (_%E123272123292%_ + _%stx124372%_))) + (_%E124404124424%_ (lambda () - (if (gx#stx-null? _%e123270123284%_) + (if (gx#stx-null? _%e124402124416%_) (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _%r123269%_)) - (gx#stx-source _%stx123240%_)) - (_%E123282123288%_)))) - (_%E123271123328%_ + (reverse _%r124401%_)) + (gx#stx-source _%stx124372%_)) + (_%E124414124420%_)))) + (_%E124403124460%_ (lambda () - (if (gx#stx-pair? _%e123270123284%_) - (let ((_%e123273123296%_ + (if (gx#stx-pair? _%e124402124416%_) + (let ((_%e124405124428%_ (gx#syntax-e - _%e123270123284%_))) - (let ((_%hd123274123299%_ - (##car _%e123273123296%_)) - (_%tl123275123301%_ - (##cdr _%e123273123296%_))) + _%e124402124416%_))) + (let ((_%hd124406124431%_ + (##car _%e124405124428%_)) + (_%tl124407124433%_ + (##cdr _%e124405124428%_))) (if (gx#stx-pair? - _%hd123274123299%_) - (let ((_%e123276123304%_ + _%hd124406124431%_) + (let ((_%e124408124436%_ (gx#syntax-e - _%hd123274123299%_))) - (let ((_%hd123277123307%_ - (##car _%e123276123304%_)) - (_%tl123278123309%_ - (##cdr _%e123276123304%_))) - (let ((_%id123312%_ - _%hd123277123307%_)) + _%hd124406124431%_))) + (let ((_%hd124409124439%_ + (##car _%e124408124436%_)) + (_%tl124410124441%_ + (##cdr _%e124408124436%_))) + (let ((_%id124444%_ + _%hd124409124439%_)) (if (gx#stx-pair? - _%tl123278123309%_) - (let ((_%e123279123314%_ + _%tl124410124441%_) + (let ((_%e124411124446%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl123278123309%_))) - (let ((_%hd123280123317%_ (##car _%e123279123314%_)) - (_%tl123281123319%_ (##cdr _%e123279123314%_))) - (let ((_%eid123322%_ _%hd123280123317%_)) - (if (gx#stx-null? _%tl123281123319%_) - (let ((_%rest123324%_ _%tl123275123301%_)) - (if (and (gx#identifier? _%id123312%_) - (gx#identifier? _%eid123322%_)) - (let ((_%eid123326%_ - (gx#stx-e _%eid123322%_))) + (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#core-bind-extern!__0 - _%id123312%_ - _%eid123326%_) - (_%lp123266%_ - _%rest123324%_ + _%id124444%_ + _%eid124458%_) + (_%lp124398%_ + _%rest124456%_ (cons (cons (gx#core-quote-syntax__0 - _%id123312%_) - (cons _%eid123326%_ '())) - _%r123269%_))) - (_%E123272123292%_))) - (_%E123272123292%_))))) - (_%E123272123292%_))))) + _%id124444%_) + (cons _%eid124458%_ '())) + _%r124401%_))) + (_%E124404124424%_))) + (_%E124404124424%_))))) + (_%E124404124424%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123272123292%_)))) - (_%E123272123292%_))))) - (_%E123271123328%_)))))) - (_%E123243123252%_))))) - (_%E123242123332%_)))) + (_%E124404124424%_)))) + (_%E124404124424%_))))) + (_%E124403124460%_)))))) + (_%E124375124384%_))))) + (_%E124374124464%_)))) (define gx#core-expand-define-values% - (lambda (_%stx123186%_) - (let* ((_%e123187123200%_ _%stx123186%_) - (_%E123189123204%_ + (lambda (_%stx124318%_) + (let* ((_%e124319124332%_ _%stx124318%_) + (_%E124321124336%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123187123200%_))) - (_%E123188123236%_ + _%e124319124332%_))) + (_%E124320124368%_ (lambda () - (if (gx#stx-pair? _%e123187123200%_) - (let ((_%e123190123208%_ - (gx#syntax-e _%e123187123200%_))) - (let ((_%hd123191123211%_ (##car _%e123190123208%_)) - (_%tl123192123213%_ (##cdr _%e123190123208%_))) - (if (gx#stx-pair? _%tl123192123213%_) - (let ((_%e123193123216%_ - (gx#syntax-e _%tl123192123213%_))) - (let ((_%hd123194123219%_ - (##car _%e123193123216%_)) - (_%tl123195123221%_ - (##cdr _%e123193123216%_))) - (let ((_%hd123224%_ _%hd123194123219%_)) - (if (gx#stx-pair? _%tl123195123221%_) - (let ((_%e123196123226%_ + (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%_ (gx#syntax-e - _%tl123195123221%_))) - (let ((_%hd123197123229%_ - (##car _%e123196123226%_)) - (_%tl123198123231%_ - (##cdr _%e123196123226%_))) - (let ((_%expr123234%_ - _%hd123197123229%_)) + _%tl124327124353%_))) + (let ((_%hd124329124361%_ + (##car _%e124328124358%_)) + (_%tl124330124363%_ + (##cdr _%e124328124358%_))) + (let ((_%expr124366%_ + _%hd124329124361%_)) (if (gx#stx-null? - _%tl123198123231%_) + _%tl124330124363%_) (if (gx#core-bind-values? - _%hd123224%_) + _%hd124356%_) (begin (gx#core-bind-values!__0 - _%hd123224%_) + _%hd124356%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd123224%_) - (cons (gx#core-expand-expression _%expr123234%_) + _%hd124356%_) + (cons (gx#core-expand-expression _%expr124366%_) '()))) - (gx#stx-source _%stx123186%_))) - (_%E123189123204%_)) + (gx#stx-source _%stx124318%_))) + (_%E124321124336%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123189123204%_))))) - (_%E123189123204%_))))) - (_%E123189123204%_)))) - (_%E123189123204%_))))) - (_%E123188123236%_)))) + (_%E124321124336%_))))) + (_%E124321124336%_))))) + (_%E124321124336%_)))) + (_%E124321124336%_))))) + (_%E124320124368%_)))) (define gx#core-expand-define-runtime% - (lambda (_%stx123130%_) - (let* ((_%e123131123144%_ _%stx123130%_) - (_%E123133123148%_ + (lambda (_%stx124262%_) + (let* ((_%e124263124276%_ _%stx124262%_) + (_%E124265124280%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123131123144%_))) - (_%E123132123182%_ + _%e124263124276%_))) + (_%E124264124314%_ (lambda () - (if (gx#stx-pair? _%e123131123144%_) - (let ((_%e123134123152%_ - (gx#syntax-e _%e123131123144%_))) - (let ((_%hd123135123155%_ (##car _%e123134123152%_)) - (_%tl123136123157%_ (##cdr _%e123134123152%_))) - (if (gx#stx-pair? _%tl123136123157%_) - (let ((_%e123137123160%_ - (gx#syntax-e _%tl123136123157%_))) - (let ((_%hd123138123163%_ - (##car _%e123137123160%_)) - (_%tl123139123165%_ - (##cdr _%e123137123160%_))) - (let ((_%id123168%_ _%hd123138123163%_)) - (if (gx#stx-pair? _%tl123139123165%_) - (let ((_%e123140123170%_ + (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%_ (gx#syntax-e - _%tl123139123165%_))) - (let ((_%hd123141123173%_ - (##car _%e123140123170%_)) - (_%tl123142123175%_ - (##cdr _%e123140123170%_))) - (let ((_%binding-id123178%_ - _%hd123141123173%_)) + _%tl124271124297%_))) + (let ((_%hd124273124305%_ + (##car _%e124272124302%_)) + (_%tl124274124307%_ + (##cdr _%e124272124302%_))) + (let ((_%binding-id124310%_ + _%hd124273124305%_)) (if (gx#stx-null? - _%tl123142123175%_) + _%tl124274124307%_) (if (and (gx#identifier? - _%id123168%_) + _%id124300%_) (gx#identifier? - _%binding-id123178%_)) - (let ((_%eid123180%_ + _%binding-id124310%_)) + (let ((_%eid124312%_ (gx#stx-e - _%binding-id123178%_))) + _%binding-id124310%_))) (gx#core-bind-runtime-reference!__0 - _%id123168%_ - _%eid123180%_) + _%id124300%_ + _%eid124312%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id123168%_) - (cons _%eid123180%_ '()))))) - (_%E123133123148%_)) + _%id124300%_) + (cons _%eid124312%_ '()))))) + (_%E124265124280%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123133123148%_))))) - (_%E123133123148%_))))) - (_%E123133123148%_)))) - (_%E123133123148%_))))) - (_%E123132123182%_)))) + (_%E124265124280%_))))) + (_%E124265124280%_))))) + (_%E124265124280%_)))) + (_%E124265124280%_))))) + (_%E124264124314%_)))) (define gx#core-expand-define-syntax% - (lambda (_%stx123073%_) - (let* ((_%e123074123087%_ _%stx123073%_) - (_%E123076123091%_ + (lambda (_%stx124205%_) + (let* ((_%e124206124219%_ _%stx124205%_) + (_%E124208124223%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123074123087%_))) - (_%E123075123126%_ + _%e124206124219%_))) + (_%E124207124258%_ (lambda () - (if (gx#stx-pair? _%e123074123087%_) - (let ((_%e123077123095%_ - (gx#syntax-e _%e123074123087%_))) - (let ((_%hd123078123098%_ (##car _%e123077123095%_)) - (_%tl123079123100%_ (##cdr _%e123077123095%_))) - (if (gx#stx-pair? _%tl123079123100%_) - (let ((_%e123080123103%_ - (gx#syntax-e _%tl123079123100%_))) - (let ((_%hd123081123106%_ - (##car _%e123080123103%_)) - (_%tl123082123108%_ - (##cdr _%e123080123103%_))) - (let ((_%id123111%_ _%hd123081123106%_)) - (if (gx#stx-pair? _%tl123082123108%_) - (let ((_%e123083123113%_ + (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%_ (gx#syntax-e - _%tl123082123108%_))) - (let ((_%hd123084123116%_ - (##car _%e123083123113%_)) - (_%tl123085123118%_ - (##cdr _%e123083123113%_))) - (let ((_%expr123121%_ - _%hd123084123116%_)) + _%tl124214124240%_))) + (let ((_%hd124216124248%_ + (##car _%e124215124245%_)) + (_%tl124217124250%_ + (##cdr _%e124215124245%_))) + (let ((_%expr124253%_ + _%hd124216124248%_)) (if (gx#stx-null? - _%tl123085123118%_) + _%tl124217124250%_) (if (gx#identifier? - _%id123111%_) - (let ((_g124032_ + _%id124243%_) + (let ((_g125164_ (gx#core-expand-expression+1 - _%expr123121%_))) + _%expr124253%_))) (begin - (let ((_g124033_ + (let ((_g125165_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g124032_) - (##vector-length _g124032_) + (if (##values? _g125164_) + (##vector-length _g125164_) 1))) - (if (not (##fx= _g124033_ 2)) - (error "Context expects 2 values" _g124033_))) - (let ((_%e-stx123123%_ (##vector-ref _g124032_ 0)) - (_%e123124%_ (##vector-ref _g124032_ 1))) + (if (not (##fx= _g125165_ 2)) + (error "Context expects 2 values" _g125165_))) + (let ((_%e-stx124255%_ (##vector-ref _g125164_ 0)) + (_%e124256%_ (##vector-ref _g125164_ 1))) (begin - (gx#core-bind-syntax!__0 _%id123111%_ _%e123124%_) + (gx#core-bind-syntax!__0 _%id124243%_ _%e124256%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _%id123111%_) - (cons _%e-stx123123%_ '()))) - (gx#stx-source _%stx123073%_)))))) - (_%E123076123091%_)) + (cons (gx#core-quote-syntax__0 _%id124243%_) + (cons _%e-stx124255%_ '()))) + (gx#stx-source _%stx124205%_)))))) + (_%E124208124223%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123076123091%_))))) - (_%E123076123091%_))))) - (_%E123076123091%_)))) - (_%E123076123091%_))))) - (_%E123075123126%_)))) + (_%E124208124223%_))))) + (_%E124208124223%_))))) + (_%E124208124223%_)))) + (_%E124208124223%_))))) + (_%E124207124258%_)))) (define gx#core-expand-define-alias% - (lambda (_%stx123017%_) - (let* ((_%e123018123031%_ _%stx123017%_) - (_%E123020123035%_ + (lambda (_%stx124149%_) + (let* ((_%e124150124163%_ _%stx124149%_) + (_%E124152124167%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123018123031%_))) - (_%E123019123069%_ + _%e124150124163%_))) + (_%E124151124201%_ (lambda () - (if (gx#stx-pair? _%e123018123031%_) - (let ((_%e123021123039%_ - (gx#syntax-e _%e123018123031%_))) - (let ((_%hd123022123042%_ (##car _%e123021123039%_)) - (_%tl123023123044%_ (##cdr _%e123021123039%_))) - (if (gx#stx-pair? _%tl123023123044%_) - (let ((_%e123024123047%_ - (gx#syntax-e _%tl123023123044%_))) - (let ((_%hd123025123050%_ - (##car _%e123024123047%_)) - (_%tl123026123052%_ - (##cdr _%e123024123047%_))) - (let ((_%id123055%_ _%hd123025123050%_)) - (if (gx#stx-pair? _%tl123026123052%_) - (let ((_%e123027123057%_ + (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%_ (gx#syntax-e - _%tl123026123052%_))) - (let ((_%hd123028123060%_ - (##car _%e123027123057%_)) - (_%tl123029123062%_ - (##cdr _%e123027123057%_))) - (let ((_%alias-id123065%_ - _%hd123028123060%_)) + _%tl124158124184%_))) + (let ((_%hd124160124192%_ + (##car _%e124159124189%_)) + (_%tl124161124194%_ + (##cdr _%e124159124189%_))) + (let ((_%alias-id124197%_ + _%hd124160124192%_)) (if (gx#stx-null? - _%tl123029123062%_) + _%tl124161124194%_) (if (and (gx#identifier? - _%id123055%_) + _%id124187%_) (gx#identifier? - _%alias-id123065%_)) - (let ((_%alias-id123067%_ + _%alias-id124197%_)) + (let ((_%alias-id124199%_ (gx#core-quote-syntax__0 - _%alias-id123065%_))) + _%alias-id124197%_))) (gx#core-bind-alias!__0 - _%id123055%_ - _%alias-id123067%_) + _%id124187%_ + _%alias-id124199%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id123055%_) - (cons _%alias-id123067%_ '()))))) - (_%E123020123035%_)) + _%id124187%_) + (cons _%alias-id124199%_ '()))))) + (_%E124152124167%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123020123035%_))))) - (_%E123020123035%_))))) - (_%E123020123035%_)))) - (_%E123020123035%_))))) - (_%E123019123069%_)))) + (_%E124152124167%_))))) + (_%E124152124167%_))))) + (_%E124152124167%_)))) + (_%E124152124167%_))))) + (_%E124151124201%_)))) (define gx#core-expand-lambda%__% - (lambda (_%stx122960%_ _%wrap?122961%_) - (let* ((_%e122962122972%_ _%stx122960%_) - (_%E122964122976%_ + (lambda (_%stx124092%_ _%wrap?124093%_) + (let* ((_%e124094124104%_ _%stx124092%_) + (_%E124096124108%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122962122972%_))) - (_%E122963123003%_ + _%e124094124104%_))) + (_%E124095124135%_ (lambda () - (if (gx#stx-pair? _%e122962122972%_) - (let ((_%e122965122980%_ - (gx#syntax-e _%e122962122972%_))) - (let ((_%hd122966122983%_ (##car _%e122965122980%_)) - (_%tl122967122985%_ (##cdr _%e122965122980%_))) - (if (gx#stx-pair? _%tl122967122985%_) - (let ((_%e122968122988%_ - (gx#syntax-e _%tl122967122985%_))) - (let ((_%hd122969122991%_ - (##car _%e122968122988%_)) - (_%tl122970122993%_ - (##cdr _%e122968122988%_))) - (let* ((_%hd122996%_ _%hd122969122991%_) - (_%body122998%_ _%tl122970122993%_)) - (if (gx#core-bind-values? _%hd122996%_) + (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%_) (__call-with-parameters (lambda () (gx#core-bind-values!__0 - _%hd122996%_) - (let ((_%body123001%_ + _%hd124128%_) + (let ((_%body124133%_ (cons (gx#core-quote-bind-values - _%hd122996%_) + _%hd124128%_) (cons (gx#core-expand-local-block - _%stx122960%_ - _%body122998%_) + _%stx124092%_ + _%body124130%_) '())))) - (if _%wrap?122961%_ + (if _%wrap?124093%_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _%body123001%_) + _%body124133%_) (gx#stx-source - _%stx122960%_)) - _%body123001%_))) + _%stx124092%_)) + _%body124133%_))) gx#current-expander-context - (let ((__obj124025 + (let ((__obj125157 (##structure gx#local-context::t '#f @@ -1151,117 +1151,117 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj124025) - __obj124025)) - (_%E122964122976%_))))) - (_%E122964122976%_)))) - (_%E122964122976%_))))) - (_%E122963123003%_)))) + __obj125157) + __obj125157)) + (_%E124096124108%_))))) + (_%E124096124108%_)))) + (_%E124096124108%_))))) + (_%E124095124135%_)))) (define gx#core-expand-lambda%__0 - (lambda (_%stx123010%_) - (let ((_%wrap?123012%_ '#t)) - (gx#core-expand-lambda%__% _%stx123010%_ _%wrap?123012%_)))) + (lambda (_%stx124142%_) + (let ((_%wrap?124144%_ '#t)) + (gx#core-expand-lambda%__% _%stx124142%_ _%wrap?124144%_)))) (define gx#core-expand-lambda% - (lambda _g124035_ - (let ((_g124034_ (##length _g124035_))) - (cond ((##fx= _g124034_ 1) - (apply gx#core-expand-lambda%__0 _g124035_)) - ((##fx= _g124034_ 2) - (apply gx#core-expand-lambda%__% _g124035_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g124035_)))))) + _g125167_)))))) (define gx#core-expand-case-lambda% - (lambda (_%stx122924%_) - (let* ((_%e122925122932%_ _%stx122924%_) - (_%E122927122936%_ + (lambda (_%stx124056%_) + (let* ((_%e124057124064%_ _%stx124056%_) + (_%E124059124068%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122925122932%_))) - (_%E122926122955%_ + _%e124057124064%_))) + (_%E124058124087%_ (lambda () - (if (gx#stx-pair? _%e122925122932%_) - (let ((_%e122928122940%_ - (gx#syntax-e _%e122925122932%_))) - (let ((_%hd122929122943%_ (##car _%e122928122940%_)) - (_%tl122930122945%_ (##cdr _%e122928122940%_))) - (let ((_%clauses122948%_ _%tl122930122945%_)) - (if (gx#stx-list? _%clauses122948%_) + (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%_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_%clause122950%_) + (lambda (_%clause124082%_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _%clause122950%_) - (let ((_%$e122952%_ + _%clause124082%_) + (let ((_%$e124084%_ (gx#stx-source - _%clause122950%_))) - (if _%$e122952%_ - _%$e122952%_ - (gx#stx-source _%stx122924%_)))) + _%clause124082%_))) + (if _%$e124084%_ + _%$e124084%_ + (gx#stx-source _%stx124056%_)))) '#f)) - _%clauses122948%_)) - (gx#stx-source _%stx122924%_)) - (_%E122927122936%_))))) - (_%E122927122936%_))))) - (_%E122926122955%_)))) + _%clauses124080%_)) + (gx#stx-source _%stx124056%_)) + (_%E124059124068%_))))) + (_%E124059124068%_))))) + (_%E124058124087%_)))) (define gx#core-expand-let-values% - (lambda (_%stx122878%_) - (let* ((_%e122879122889%_ _%stx122878%_) - (_%E122881122893%_ + (lambda (_%stx124010%_) + (let* ((_%e124011124021%_ _%stx124010%_) + (_%E124013124025%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122879122889%_))) - (_%E122880122920%_ + _%e124011124021%_))) + (_%E124012124052%_ (lambda () - (if (gx#stx-pair? _%e122879122889%_) - (let ((_%e122882122897%_ - (gx#syntax-e _%e122879122889%_))) - (let ((_%hd122883122900%_ (##car _%e122882122897%_)) - (_%tl122884122902%_ (##cdr _%e122882122897%_))) - (if (gx#stx-pair? _%tl122884122902%_) - (let ((_%e122885122905%_ - (gx#syntax-e _%tl122884122902%_))) - (let ((_%hd122886122908%_ - (##car _%e122885122905%_)) - (_%tl122887122910%_ - (##cdr _%e122885122905%_))) - (let* ((_%hd122913%_ _%hd122886122908%_) - (_%body122915%_ _%tl122887122910%_)) - (if (gx#core-expand-let-bind? _%hd122913%_) - (let ((_%expressions122917%_ + (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%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd122913%_))) + _%hd124045%_))) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd122913%_) + _%hd124045%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd122913%_ - _%expressions122917%_) + _%hd124045%_ + _%expressions124049%_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx122878%_ - _%body122915%_) + _%stx124010%_ + _%body124047%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx122878%_))) + (gx#stx-source _%stx124010%_))) gx#current-expander-context - (let ((__obj124026 + (let ((__obj125158 (##structure gx#local-context::t '#f @@ -1270,59 +1270,59 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj124026) - __obj124026))) - (_%E122881122893%_))))) - (_%E122881122893%_)))) - (_%E122881122893%_))))) - (_%E122880122920%_)))) + __obj125158) + __obj125158))) + (_%E124013124025%_))))) + (_%E124013124025%_)))) + (_%E124013124025%_))))) + (_%E124012124052%_)))) (define gx#core-expand-letrec-values%__% - (lambda (_%stx122823%_ _%form122824%_) - (let* ((_%e122825122835%_ _%stx122823%_) - (_%E122827122839%_ + (lambda (_%stx123955%_ _%form123956%_) + (let* ((_%e123957123967%_ _%stx123955%_) + (_%E123959123971%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122825122835%_))) - (_%E122826122864%_ + _%e123957123967%_))) + (_%E123958123996%_ (lambda () - (if (gx#stx-pair? _%e122825122835%_) - (let ((_%e122828122843%_ - (gx#syntax-e _%e122825122835%_))) - (let ((_%hd122829122846%_ (##car _%e122828122843%_)) - (_%tl122830122848%_ (##cdr _%e122828122843%_))) - (if (gx#stx-pair? _%tl122830122848%_) - (let ((_%e122831122851%_ - (gx#syntax-e _%tl122830122848%_))) - (let ((_%hd122832122854%_ - (##car _%e122831122851%_)) - (_%tl122833122856%_ - (##cdr _%e122831122851%_))) - (let* ((_%hd122859%_ _%hd122832122854%_) - (_%body122861%_ _%tl122833122856%_)) - (if (gx#core-expand-let-bind? _%hd122859%_) + (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%_) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd122859%_) + _%hd123991%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _%form122824%_) + _%form123956%_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd122859%_ + _%hd123991%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd122859%_)) + _%hd123991%_)) (cons (gx#core-expand-local-block - _%stx122823%_ - _%body122861%_) + _%stx123955%_ + _%body123993%_) '()))) - (gx#stx-source _%stx122823%_))) + (gx#stx-source _%stx123955%_))) gx#current-expander-context - (let ((__obj124027 + (let ((__obj125159 (##structure gx#local-context::t '#f @@ -1331,200 +1331,200 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj124027) - __obj124027)) - (_%E122827122839%_))))) - (_%E122827122839%_)))) - (_%E122827122839%_))))) - (_%E122826122864%_)))) + __obj125159) + __obj125159)) + (_%E123959123971%_))))) + (_%E123959123971%_)))) + (_%E123959123971%_))))) + (_%E123958123996%_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_%stx122871%_) - (let ((_%form122873%_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _%stx122871%_ _%form122873%_)))) + (lambda (_%stx124003%_) + (let ((_%form124005%_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _%stx124003%_ _%form124005%_)))) (define gx#core-expand-letrec-values% - (lambda _g124037_ - (let ((_g124036_ (##length _g124037_))) - (cond ((##fx= _g124036_ 1) - (apply gx#core-expand-letrec-values%__0 _g124037_)) - ((##fx= _g124036_ 2) - (apply gx#core-expand-letrec-values%__% _g124037_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g124037_)))))) + _g125169_)))))) (define gx#core-expand-letrec*-values% - (lambda (_%stx122820%_) - (gx#core-expand-letrec-values%__% _%stx122820%_ '%#letrec*-values))) + (lambda (_%stx123952%_) + (gx#core-expand-letrec-values%__% _%stx123952%_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_%stx122777%_) - (if (gx#stx-list? _%stx122777%_) + (lambda (_%stx123909%_) + (if (gx#stx-list? _%stx123909%_) (gx#stx-andmap - (lambda (_%bind122779%_) - (let* ((_%e122780122790%_ _%bind122779%_) - (_%E122782122794%_ (lambda () '#f)) - (_%E122781122816%_ + (lambda (_%bind123911%_) + (let* ((_%e123912123922%_ _%bind123911%_) + (_%E123914123926%_ (lambda () '#f)) + (_%E123913123948%_ (lambda () - (if (gx#stx-pair? _%e122780122790%_) - (let ((_%e122783122798%_ - (gx#syntax-e _%e122780122790%_))) - (let ((_%hd122784122801%_ - (##car _%e122783122798%_)) - (_%tl122785122803%_ - (##cdr _%e122783122798%_))) - (let ((_%hd122806%_ _%hd122784122801%_)) - (if (gx#stx-pair? _%tl122785122803%_) - (let ((_%e122786122808%_ + (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%_ (gx#syntax-e - _%tl122785122803%_))) - (let ((_%hd122787122811%_ - (##car _%e122786122808%_)) - (_%tl122788122813%_ - (##cdr _%e122786122808%_))) + _%tl123917123935%_))) + (let ((_%hd123919123943%_ + (##car _%e123918123940%_)) + (_%tl123920123945%_ + (##cdr _%e123918123940%_))) (if (gx#stx-null? - _%tl122788122813%_) + _%tl123920123945%_) (gx#core-bind-values? - _%hd122806%_) - (_%E122782122794%_)))) - (_%E122782122794%_))))) - (_%E122782122794%_))))) - (_%E122781122816%_))) - _%stx122777%_) + _%hd123938%_) + (_%E123914123926%_)))) + (_%E123914123926%_))))) + (_%E123914123926%_))))) + (_%E123913123948%_))) + _%stx123909%_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_%bind122736%_) - (let* ((_%e122737122747%_ _%bind122736%_) - (_%E122739122751%_ + (lambda (_%bind123868%_) + (let* ((_%e123869123879%_ _%bind123868%_) + (_%E123871123883%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122737122747%_))) - (_%E122738122773%_ + _%e123869123879%_))) + (_%E123870123905%_ (lambda () - (if (gx#stx-pair? _%e122737122747%_) - (let ((_%e122740122755%_ - (gx#syntax-e _%e122737122747%_))) - (let ((_%hd122741122758%_ (##car _%e122740122755%_)) - (_%tl122742122760%_ (##cdr _%e122740122755%_))) - (if (gx#stx-pair? _%tl122742122760%_) - (let ((_%e122743122763%_ - (gx#syntax-e _%tl122742122760%_))) - (let ((_%hd122744122766%_ - (##car _%e122743122763%_)) - (_%tl122745122768%_ - (##cdr _%e122743122763%_))) - (let ((_%expr122771%_ _%hd122744122766%_)) - (if (gx#stx-null? _%tl122745122768%_) + (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%_) (gx#core-expand-expression - _%expr122771%_) - (_%E122739122751%_))))) - (_%E122739122751%_)))) - (_%E122739122751%_))))) - (_%E122738122773%_)))) + _%expr123903%_) + (_%E123871123883%_))))) + (_%E123871123883%_)))) + (_%E123871123883%_))))) + (_%E123870123905%_)))) (define gx#core-expand-let-bind-values! - (lambda (_%bind122695%_) - (let* ((_%e122696122706%_ _%bind122695%_) - (_%E122698122710%_ + (lambda (_%bind123827%_) + (let* ((_%e123828123838%_ _%bind123827%_) + (_%E123830123842%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122696122706%_))) - (_%E122697122732%_ + _%e123828123838%_))) + (_%E123829123864%_ (lambda () - (if (gx#stx-pair? _%e122696122706%_) - (let ((_%e122699122714%_ - (gx#syntax-e _%e122696122706%_))) - (let ((_%hd122700122717%_ (##car _%e122699122714%_)) - (_%tl122701122719%_ (##cdr _%e122699122714%_))) - (let ((_%hd122722%_ _%hd122700122717%_)) - (if (gx#stx-pair? _%tl122701122719%_) - (let ((_%e122702122724%_ - (gx#syntax-e _%tl122701122719%_))) - (let ((_%hd122703122727%_ - (##car _%e122702122724%_)) - (_%tl122704122729%_ - (##cdr _%e122702122724%_))) - (if (gx#stx-null? _%tl122704122729%_) - (gx#core-bind-values!__0 _%hd122722%_) - (_%E122698122710%_)))) - (_%E122698122710%_))))) - (_%E122698122710%_))))) - (_%E122697122732%_)))) + (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%_)))) (define gx#core-expand-let-bind-quote - (lambda (_%bind122653%_ _%expr122654%_) - (let* ((_%e122655122665%_ _%bind122653%_) - (_%E122657122669%_ + (lambda (_%bind123785%_ _%expr123786%_) + (let* ((_%e123787123797%_ _%bind123785%_) + (_%E123789123801%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122655122665%_))) - (_%E122656122691%_ + _%e123787123797%_))) + (_%E123788123823%_ (lambda () - (if (gx#stx-pair? _%e122655122665%_) - (let ((_%e122658122673%_ - (gx#syntax-e _%e122655122665%_))) - (let ((_%hd122659122676%_ (##car _%e122658122673%_)) - (_%tl122660122678%_ (##cdr _%e122658122673%_))) - (let ((_%hd122681%_ _%hd122659122676%_)) - (if (gx#stx-pair? _%tl122660122678%_) - (let ((_%e122661122683%_ - (gx#syntax-e _%tl122660122678%_))) - (let ((_%hd122662122686%_ - (##car _%e122661122683%_)) - (_%tl122663122688%_ - (##cdr _%e122661122683%_))) - (if (gx#stx-null? _%tl122663122688%_) + (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%_) (cons (gx#core-quote-bind-values - _%hd122681%_) - (cons _%expr122654%_ '())) - (_%E122657122669%_)))) - (_%E122657122669%_))))) - (_%E122657122669%_))))) - (_%E122656122691%_)))) + _%hd123813%_) + (cons _%expr123786%_ '())) + (_%E123789123801%_)))) + (_%E123789123801%_))))) + (_%E123789123801%_))))) + (_%E123788123823%_)))) (define gx#core-expand-let-syntax% - (lambda (_%stx122607%_) - (let* ((_%e122608122618%_ _%stx122607%_) - (_%E122610122622%_ + (lambda (_%stx123739%_) + (let* ((_%e123740123750%_ _%stx123739%_) + (_%E123742123754%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122608122618%_))) - (_%E122609122649%_ + _%e123740123750%_))) + (_%E123741123781%_ (lambda () - (if (gx#stx-pair? _%e122608122618%_) - (let ((_%e122611122626%_ - (gx#syntax-e _%e122608122618%_))) - (let ((_%hd122612122629%_ (##car _%e122611122626%_)) - (_%tl122613122631%_ (##cdr _%e122611122626%_))) - (if (gx#stx-pair? _%tl122613122631%_) - (let ((_%e122614122634%_ - (gx#syntax-e _%tl122613122631%_))) - (let ((_%hd122615122637%_ - (##car _%e122614122634%_)) - (_%tl122616122639%_ - (##cdr _%e122614122634%_))) - (let* ((_%hd122642%_ _%hd122615122637%_) - (_%body122644%_ _%tl122616122639%_)) + (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#core-expand-let-bind-syntax? - _%hd122642%_) - (let ((_%expanders122646%_ + _%hd123774%_) + (let ((_%expanders123778%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd122642%_))) + _%hd123774%_))) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd122642%_ - _%expanders122646%_) + _%hd123774%_ + _%expanders123778%_) (gx#core-expand-local-block - _%stx122607%_ - _%body122644%_)) + _%stx123739%_ + _%body123776%_)) gx#current-expander-context - (let ((__obj124028 + (let ((__obj125160 (##structure gx#local-context::t '#f @@ -1533,63 +1533,63 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj124028) - __obj124028))) - (_%E122610122622%_))))) - (_%E122610122622%_)))) - (_%E122610122622%_))))) - (_%E122609122649%_)))) + __obj125160) + __obj125160))) + (_%E123742123754%_))))) + (_%E123742123754%_)))) + (_%E123742123754%_))))) + (_%E123741123781%_)))) (define gx#core-expand-letrec-syntax% - (lambda (_%stx122556%_) - (let* ((_%e122557122567%_ _%stx122556%_) - (_%E122559122571%_ + (lambda (_%stx123688%_) + (let* ((_%e123689123699%_ _%stx123688%_) + (_%E123691123703%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122557122567%_))) - (_%E122558122603%_ + _%e123689123699%_))) + (_%E123690123735%_ (lambda () - (if (gx#stx-pair? _%e122557122567%_) - (let ((_%e122560122575%_ - (gx#syntax-e _%e122557122567%_))) - (let ((_%hd122561122578%_ (##car _%e122560122575%_)) - (_%tl122562122580%_ (##cdr _%e122560122575%_))) - (if (gx#stx-pair? _%tl122562122580%_) - (let ((_%e122563122583%_ - (gx#syntax-e _%tl122562122580%_))) - (let ((_%hd122564122586%_ - (##car _%e122563122583%_)) - (_%tl122565122588%_ - (##cdr _%e122563122583%_))) - (let* ((_%hd122591%_ _%hd122564122586%_) - (_%body122593%_ _%tl122565122588%_)) + (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#core-expand-let-bind-syntax? - _%hd122591%_) + _%hd123723%_) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd122591%_ + _%hd123723%_ (make-list - (gx#stx-length _%hd122591%_) + (gx#stx-length _%hd123723%_) '#!void)) (gx#stx-for-each2 - (lambda (_%g122595122598%_ - _%g122596122600%_) + (lambda (_%g123727123730%_ + _%g123728123732%_) (gx#core-expand-let-bind-syntax!__% - _%g122595122598%_ - _%g122596122600%_ + _%g123727123730%_ + _%g123728123732%_ '#t)) - _%hd122591%_ + _%hd123723%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd122591%_)) + _%hd123723%_)) (gx#core-expand-local-block - _%stx122556%_ - _%body122593%_)) + _%stx123688%_ + _%body123725%_)) gx#current-expander-context - (let ((__obj124029 + (let ((__obj125161 (##structure gx#local-context::t '#f @@ -1598,1725 +1598,1725 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj124029) - __obj124029)) - (_%E122559122571%_))))) - (_%E122559122571%_)))) - (_%E122559122571%_))))) - (_%E122558122603%_)))) + __obj125161) + __obj125161)) + (_%E123691123703%_))))) + (_%E123691123703%_)))) + (_%E123691123703%_))))) + (_%E123690123735%_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_%stx122513%_) - (if (gx#stx-list? _%stx122513%_) + (lambda (_%stx123645%_) + (if (gx#stx-list? _%stx123645%_) (gx#stx-andmap - (lambda (_%bind122515%_) - (let* ((_%e122516122526%_ _%bind122515%_) - (_%E122518122530%_ (lambda () '#f)) - (_%E122517122552%_ + (lambda (_%bind123647%_) + (let* ((_%e123648123658%_ _%bind123647%_) + (_%E123650123662%_ (lambda () '#f)) + (_%E123649123684%_ (lambda () - (if (gx#stx-pair? _%e122516122526%_) - (let ((_%e122519122534%_ - (gx#syntax-e _%e122516122526%_))) - (let ((_%hd122520122537%_ - (##car _%e122519122534%_)) - (_%tl122521122539%_ - (##cdr _%e122519122534%_))) - (let ((_%hd122542%_ _%hd122520122537%_)) - (if (gx#stx-pair? _%tl122521122539%_) - (let ((_%e122522122544%_ + (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%_ (gx#syntax-e - _%tl122521122539%_))) - (let ((_%hd122523122547%_ - (##car _%e122522122544%_)) - (_%tl122524122549%_ - (##cdr _%e122522122544%_))) + _%tl123653123671%_))) + (let ((_%hd123655123679%_ + (##car _%e123654123676%_)) + (_%tl123656123681%_ + (##cdr _%e123654123676%_))) (if (gx#stx-null? - _%tl122524122549%_) - (gx#identifier? _%hd122542%_) - (_%E122518122530%_)))) - (_%E122518122530%_))))) - (_%E122518122530%_))))) - (_%E122517122552%_))) - _%stx122513%_) + _%tl123656123681%_) + (gx#identifier? _%hd123674%_) + (_%E123650123662%_)))) + (_%E123650123662%_))))) + (_%E123650123662%_))))) + (_%E123649123684%_))) + _%stx123645%_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_%bind122469%_) - (let* ((_%e122470122480%_ _%bind122469%_) - (_%E122472122484%_ + (lambda (_%bind123601%_) + (let* ((_%e123602123612%_ _%bind123601%_) + (_%E123604123616%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122470122480%_))) - (_%E122471122509%_ + _%e123602123612%_))) + (_%E123603123641%_ (lambda () - (if (gx#stx-pair? _%e122470122480%_) - (let ((_%e122473122488%_ - (gx#syntax-e _%e122470122480%_))) - (let ((_%hd122474122491%_ (##car _%e122473122488%_)) - (_%tl122475122493%_ (##cdr _%e122473122488%_))) - (if (gx#stx-pair? _%tl122475122493%_) - (let ((_%e122476122496%_ - (gx#syntax-e _%tl122475122493%_))) - (let ((_%hd122477122499%_ - (##car _%e122476122496%_)) - (_%tl122478122501%_ - (##cdr _%e122476122496%_))) - (let ((_%expr122504%_ _%hd122477122499%_)) - (if (gx#stx-null? _%tl122478122501%_) - (let ((_g124038_ + (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_ (gx#core-expand-expression+1 - _%expr122504%_))) + _%expr123636%_))) (begin - (let ((_g124039_ - (if (##values? _g124038_) + (let ((_g125171_ + (if (##values? _g125170_) (##vector-length - _g124038_) + _g125170_) 1))) - (if (not (##fx= _g124039_ 2)) + (if (not (##fx= _g125171_ 2)) (error "Context expects 2 values" - _g124039_))) - (let ((_%_122506%_ - (##vector-ref _g124038_ 0)) - (_%e122507%_ - (##vector-ref _g124038_ 1))) - _%e122507%_))) - (_%E122472122484%_))))) - (_%E122472122484%_)))) - (_%E122472122484%_))))) - (_%E122471122509%_)))) + _g125171_))) + (let ((_%_123638%_ + (##vector-ref _g125170_ 0)) + (_%e123639%_ + (##vector-ref _g125170_ 1))) + _%e123639%_))) + (_%E123604123616%_))))) + (_%E123604123616%_)))) + (_%E123604123616%_))))) + (_%E123603123641%_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_%bind122414%_ _%e122415%_ _%rebind?122416%_) - (let* ((_%e122417122427%_ _%bind122414%_) - (_%E122419122431%_ + (lambda (_%bind123546%_ _%e123547%_ _%rebind?123548%_) + (let* ((_%e123549123559%_ _%bind123546%_) + (_%E123551123563%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122417122427%_))) - (_%E122418122453%_ + _%e123549123559%_))) + (_%E123550123585%_ (lambda () - (if (gx#stx-pair? _%e122417122427%_) - (let ((_%e122420122435%_ - (gx#syntax-e _%e122417122427%_))) - (let ((_%hd122421122438%_ (##car _%e122420122435%_)) - (_%tl122422122440%_ (##cdr _%e122420122435%_))) - (let ((_%id122443%_ _%hd122421122438%_)) - (if (gx#stx-pair? _%tl122422122440%_) - (let ((_%e122423122445%_ - (gx#syntax-e _%tl122422122440%_))) - (let ((_%hd122424122448%_ - (##car _%e122423122445%_)) - (_%tl122425122450%_ - (##cdr _%e122423122445%_))) - (if (gx#stx-null? _%tl122425122450%_) + (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%_) (gx#core-bind-syntax!__1 - _%id122443%_ - _%e122415%_ - _%rebind?122416%_) - (_%E122419122431%_)))) - (_%E122419122431%_))))) - (_%E122419122431%_))))) - (_%E122418122453%_)))) + _%id123575%_ + _%e123547%_ + _%rebind?123548%_) + (_%E123551123563%_)))) + (_%E123551123563%_))))) + (_%E123551123563%_))))) + (_%E123550123585%_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_%bind122460%_ _%e122461%_) - (let ((_%rebind?122463%_ '#f)) + (lambda (_%bind123592%_ _%e123593%_) + (let ((_%rebind?123595%_ '#f)) (gx#core-expand-let-bind-syntax!__% - _%bind122460%_ - _%e122461%_ - _%rebind?122463%_)))) + _%bind123592%_ + _%e123593%_ + _%rebind?123595%_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g124041_ - (let ((_g124040_ (##length _g124041_))) - (cond ((##fx= _g124040_ 2) - (apply gx#core-expand-let-bind-syntax!__0 _g124041_)) - ((##fx= _g124040_ 3) - (apply gx#core-expand-let-bind-syntax!__% _g124041_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g124041_)))))) + _g125173_)))))) (define gx#core-expand-expression% - (lambda (_%stx122372%_) - (let* ((_%e122373122383%_ _%stx122372%_) - (_%E122375122387%_ + (lambda (_%stx123504%_) + (let* ((_%e123505123515%_ _%stx123504%_) + (_%E123507123519%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122373122383%_))) - (_%E122374122409%_ + _%e123505123515%_))) + (_%E123506123541%_ (lambda () - (if (gx#stx-pair? _%e122373122383%_) - (let ((_%e122376122391%_ - (gx#syntax-e _%e122373122383%_))) - (let ((_%hd122377122394%_ (##car _%e122376122391%_)) - (_%tl122378122396%_ (##cdr _%e122376122391%_))) - (if (gx#stx-pair? _%tl122378122396%_) - (let ((_%e122379122399%_ - (gx#syntax-e _%tl122378122396%_))) - (let ((_%hd122380122402%_ - (##car _%e122379122399%_)) - (_%tl122381122404%_ - (##cdr _%e122379122399%_))) - (let ((_%expr122407%_ _%hd122380122402%_)) - (if (gx#stx-null? _%tl122381122404%_) + (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%_) (gx#core-expand-expression - _%expr122407%_) - (_%E122375122387%_))))) - (_%E122375122387%_)))) - (_%E122375122387%_))))) - (_%E122374122409%_)))) + _%expr123539%_) + (_%E123507123519%_))))) + (_%E123507123519%_)))) + (_%E123507123519%_))))) + (_%E123506123541%_)))) (define gx#core-expand-quote% - (lambda (_%stx122331%_) - (let* ((_%e122332122342%_ _%stx122331%_) - (_%E122334122346%_ + (lambda (_%stx123463%_) + (let* ((_%e123464123474%_ _%stx123463%_) + (_%E123466123478%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122332122342%_))) - (_%E122333122368%_ + _%e123464123474%_))) + (_%E123465123500%_ (lambda () - (if (gx#stx-pair? _%e122332122342%_) - (let ((_%e122335122350%_ - (gx#syntax-e _%e122332122342%_))) - (let ((_%hd122336122353%_ (##car _%e122335122350%_)) - (_%tl122337122355%_ (##cdr _%e122335122350%_))) - (if (gx#stx-pair? _%tl122337122355%_) - (let ((_%e122338122358%_ - (gx#syntax-e _%tl122337122355%_))) - (let ((_%hd122339122361%_ - (##car _%e122338122358%_)) - (_%tl122340122363%_ - (##cdr _%e122338122358%_))) - (let ((_%e122366%_ _%hd122339122361%_)) - (if (gx#stx-null? _%tl122340122363%_) + (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%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _%e122366%_) + _%e123498%_) '())) - (gx#stx-source _%stx122331%_)) - (_%E122334122346%_))))) - (_%E122334122346%_)))) - (_%E122334122346%_))))) - (_%E122333122368%_)))) + (gx#stx-source _%stx123463%_)) + (_%E123466123478%_))))) + (_%E123466123478%_)))) + (_%E123466123478%_))))) + (_%E123465123500%_)))) (define gx#core-expand-quote-syntax% - (lambda (_%stx122290%_) - (let* ((_%e122291122301%_ _%stx122290%_) - (_%E122293122305%_ + (lambda (_%stx123422%_) + (let* ((_%e123423123433%_ _%stx123422%_) + (_%E123425123437%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122291122301%_))) - (_%E122292122327%_ + _%e123423123433%_))) + (_%E123424123459%_ (lambda () - (if (gx#stx-pair? _%e122291122301%_) - (let ((_%e122294122309%_ - (gx#syntax-e _%e122291122301%_))) - (let ((_%hd122295122312%_ (##car _%e122294122309%_)) - (_%tl122296122314%_ (##cdr _%e122294122309%_))) - (if (gx#stx-pair? _%tl122296122314%_) - (let ((_%e122297122317%_ - (gx#syntax-e _%tl122296122314%_))) - (let ((_%hd122298122320%_ - (##car _%e122297122317%_)) - (_%tl122299122322%_ - (##cdr _%e122297122317%_))) - (let ((_%e122325%_ _%hd122298122320%_)) - (if (gx#stx-null? _%tl122299122322%_) + (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%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _%e122325%_) + _%e123457%_) '())) - (gx#stx-source _%stx122290%_)) - (_%E122293122305%_))))) - (_%E122293122305%_)))) - (_%E122293122305%_))))) - (_%E122292122327%_)))) + (gx#stx-source _%stx123422%_)) + (_%E123425123437%_))))) + (_%E123425123437%_)))) + (_%E123425123437%_))))) + (_%E123424123459%_)))) (define gx#core-expand-call% - (lambda (_%stx122247%_) - (let* ((_%e122248122258%_ _%stx122247%_) - (_%E122250122262%_ + (lambda (_%stx123379%_) + (let* ((_%e123380123390%_ _%stx123379%_) + (_%E123382123394%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122248122258%_))) - (_%E122249122286%_ + _%e123380123390%_))) + (_%E123381123418%_ (lambda () - (if (gx#stx-pair? _%e122248122258%_) - (let ((_%e122251122266%_ - (gx#syntax-e _%e122248122258%_))) - (let ((_%hd122252122269%_ (##car _%e122251122266%_)) - (_%tl122253122271%_ (##cdr _%e122251122266%_))) - (if (gx#stx-pair? _%tl122253122271%_) - (let ((_%e122254122274%_ - (gx#syntax-e _%tl122253122271%_))) - (let ((_%hd122255122277%_ - (##car _%e122254122274%_)) - (_%tl122256122279%_ - (##cdr _%e122254122274%_))) - (let* ((_%rator122282%_ _%hd122255122277%_) - (_%args122284%_ _%tl122256122279%_)) - (if (gx#stx-list? _%args122284%_) + (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%_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _%rator122282%_) + _%rator123414%_) (gx#stx-map1 gx#core-expand-expression - _%args122284%_)) - (gx#stx-source _%stx122247%_)) - (_%E122250122262%_))))) - (_%E122250122262%_)))) - (_%E122250122262%_))))) - (_%E122249122286%_)))) + _%args123416%_)) + (gx#stx-source _%stx123379%_)) + (_%E123382123394%_))))) + (_%E123382123394%_)))) + (_%E123382123394%_))))) + (_%E123381123418%_)))) (define gx#core-expand-if% - (lambda (_%stx122180%_) - (let* ((_%e122181122197%_ _%stx122180%_) - (_%E122183122201%_ + (lambda (_%stx123312%_) + (let* ((_%e123313123329%_ _%stx123312%_) + (_%E123315123333%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122181122197%_))) - (_%E122182122243%_ + _%e123313123329%_))) + (_%E123314123375%_ (lambda () - (if (gx#stx-pair? _%e122181122197%_) - (let ((_%e122184122205%_ - (gx#syntax-e _%e122181122197%_))) - (let ((_%hd122185122208%_ (##car _%e122184122205%_)) - (_%tl122186122210%_ (##cdr _%e122184122205%_))) - (if (gx#stx-pair? _%tl122186122210%_) - (let ((_%e122187122213%_ - (gx#syntax-e _%tl122186122210%_))) - (let ((_%hd122188122216%_ - (##car _%e122187122213%_)) - (_%tl122189122218%_ - (##cdr _%e122187122213%_))) - (let ((_%test122221%_ _%hd122188122216%_)) - (if (gx#stx-pair? _%tl122189122218%_) - (let ((_%e122190122223%_ + (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%_ (gx#syntax-e - _%tl122189122218%_))) - (let ((_%hd122191122226%_ - (##car _%e122190122223%_)) - (_%tl122192122228%_ - (##cdr _%e122190122223%_))) - (let ((_%K122231%_ - _%hd122191122226%_)) + _%tl123321123350%_))) + (let ((_%hd123323123358%_ + (##car _%e123322123355%_)) + (_%tl123324123360%_ + (##cdr _%e123322123355%_))) + (let ((_%K123363%_ + _%hd123323123358%_)) (if (gx#stx-pair? - _%tl122192122228%_) - (let ((_%e122193122233%_ + _%tl123324123360%_) + (let ((_%e123325123365%_ (gx#syntax-e - _%tl122192122228%_))) - (let ((_%hd122194122236%_ - (##car _%e122193122233%_)) - (_%tl122195122238%_ - (##cdr _%e122193122233%_))) - (let ((_%E122241%_ - _%hd122194122236%_)) + _%tl123324123360%_))) + (let ((_%hd123326123368%_ + (##car _%e123325123365%_)) + (_%tl123327123370%_ + (##cdr _%e123325123365%_))) + (let ((_%E123373%_ + _%hd123326123368%_)) (if (gx#stx-null? - _%tl122195122238%_) + _%tl123327123370%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if) - (cons (gx#core-expand-expression _%test122221%_) - (cons (gx#core-expand-expression _%K122231%_) + (cons (gx#core-expand-expression _%test123353%_) + (cons (gx#core-expand-expression _%K123363%_) (cons (gx#core-expand-expression - _%E122241%_) + _%E123373%_) '())))) - (gx#stx-source _%stx122180%_)) - (_%E122183122201%_))))) + (gx#stx-source _%stx123312%_)) + (_%E123315123333%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122183122201%_))))) - (_%E122183122201%_))))) - (_%E122183122201%_)))) - (_%E122183122201%_))))) - (_%E122182122243%_)))) + (_%E123315123333%_))))) + (_%E123315123333%_))))) + (_%E123315123333%_)))) + (_%E123315123333%_))))) + (_%E123314123375%_)))) (define gx#core-expand-ref% - (lambda (_%stx122139%_) - (let* ((_%e122140122150%_ _%stx122139%_) - (_%E122142122154%_ + (lambda (_%stx123271%_) + (let* ((_%e123272123282%_ _%stx123271%_) + (_%E123274123286%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122140122150%_))) - (_%E122141122176%_ + _%e123272123282%_))) + (_%E123273123308%_ (lambda () - (if (gx#stx-pair? _%e122140122150%_) - (let ((_%e122143122158%_ - (gx#syntax-e _%e122140122150%_))) - (let ((_%hd122144122161%_ (##car _%e122143122158%_)) - (_%tl122145122163%_ (##cdr _%e122143122158%_))) - (if (gx#stx-pair? _%tl122145122163%_) - (let ((_%e122146122166%_ - (gx#syntax-e _%tl122145122163%_))) - (let ((_%hd122147122169%_ - (##car _%e122146122166%_)) - (_%tl122148122171%_ - (##cdr _%e122146122166%_))) - (let ((_%id122174%_ _%hd122147122169%_)) - (if (gx#stx-null? _%tl122148122171%_) - (if (gx#identifier? _%id122174%_) + (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%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _%id122174%_ - _%stx122139%_) + _%id123306%_ + _%stx123271%_) '())) - (gx#stx-source _%stx122139%_)) - (_%E122142122154%_)) - (_%E122142122154%_))))) - (_%E122142122154%_)))) - (_%E122142122154%_))))) - (_%E122141122176%_)))) + (gx#stx-source _%stx123271%_)) + (_%E123274123286%_)) + (_%E123274123286%_))))) + (_%E123274123286%_)))) + (_%E123274123286%_))))) + (_%E123273123308%_)))) (define gx#core-expand-setq% - (lambda (_%stx122085%_) - (let* ((_%e122086122099%_ _%stx122085%_) - (_%E122088122103%_ + (lambda (_%stx123217%_) + (let* ((_%e123218123231%_ _%stx123217%_) + (_%E123220123235%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122086122099%_))) - (_%E122087122135%_ + _%e123218123231%_))) + (_%E123219123267%_ (lambda () - (if (gx#stx-pair? _%e122086122099%_) - (let ((_%e122089122107%_ - (gx#syntax-e _%e122086122099%_))) - (let ((_%hd122090122110%_ (##car _%e122089122107%_)) - (_%tl122091122112%_ (##cdr _%e122089122107%_))) - (if (gx#stx-pair? _%tl122091122112%_) - (let ((_%e122092122115%_ - (gx#syntax-e _%tl122091122112%_))) - (let ((_%hd122093122118%_ - (##car _%e122092122115%_)) - (_%tl122094122120%_ - (##cdr _%e122092122115%_))) - (let ((_%id122123%_ _%hd122093122118%_)) - (if (gx#stx-pair? _%tl122094122120%_) - (let ((_%e122095122125%_ + (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%_ (gx#syntax-e - _%tl122094122120%_))) - (let ((_%hd122096122128%_ - (##car _%e122095122125%_)) - (_%tl122097122130%_ - (##cdr _%e122095122125%_))) - (let ((_%expr122133%_ - _%hd122096122128%_)) + _%tl123226123252%_))) + (let ((_%hd123228123260%_ + (##car _%e123227123257%_)) + (_%tl123229123262%_ + (##cdr _%e123227123257%_))) + (let ((_%expr123265%_ + _%hd123228123260%_)) (if (gx#stx-null? - _%tl122097122130%_) + _%tl123229123262%_) (if (gx#identifier? - _%id122123%_) + _%id123255%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id122123%_ - _%stx122085%_) - (cons (gx#core-expand-expression _%expr122133%_) + _%id123255%_ + _%stx123217%_) + (cons (gx#core-expand-expression _%expr123265%_) '()))) - (gx#stx-source _%stx122085%_)) - (_%E122088122103%_)) + (gx#stx-source _%stx123217%_)) + (_%E123220123235%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122088122103%_))))) - (_%E122088122103%_))))) - (_%E122088122103%_)))) - (_%E122088122103%_))))) - (_%E122087122135%_)))) + (_%E123220123235%_))))) + (_%E123220123235%_))))) + (_%E123220123235%_)))) + (_%E123220123235%_))))) + (_%E123219123267%_)))) (define gx#macro-expand-extern - (lambda (_%stx121930%_) - (letrec ((_%generate121932%_ - (lambda (_%body121962%_) - (let _%lp121964%_ ((_%rest121966%_ _%body121962%_) - (_%ns121967%_ + (lambda (_%stx123062%_) + (letrec ((_%generate123064%_ + (lambda (_%body123094%_) + (let _%lp123096%_ ((_%rest123098%_ _%body123094%_) + (_%ns123099%_ (gx#core-context-namespace__0)) - (_%r121968%_ '())) - (let* ((_%e121969121984%_ _%rest121966%_) - (_%E121982121988%_ + (_%r123100%_ '())) + (let* ((_%e123101123116%_ _%rest123098%_) + (_%E123114123120%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121969121984%_))) - (_%E121978121992%_ + _%e123101123116%_))) + (_%E123110123124%_ (lambda () - (if (gx#stx-null? _%e121969121984%_) - (reverse _%r121968%_) - (_%E121982121988%_)))) - (_%E121971122049%_ + (if (gx#stx-null? _%e123101123116%_) + (reverse _%r123100%_) + (_%E123114123120%_)))) + (_%E123103123181%_ (lambda () - (if (gx#stx-pair? _%e121969121984%_) - (let ((_%e121979121996%_ - (gx#syntax-e _%e121969121984%_))) - (let ((_%hd121980121999%_ - (##car _%e121979121996%_)) - (_%tl121981122001%_ - (##cdr _%e121979121996%_))) - (let* ((_%hd122004%_ - _%hd121980121999%_) - (_%rest122006%_ - _%tl121981122001%_)) - (if (gx#identifier? _%hd122004%_) - (_%lp121964%_ - _%rest122006%_ - _%ns121967%_ - (cons (cons _%hd122004%_ - (cons (if _%ns121967%_ + (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%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _%hd122004%_ - _%ns121967%_ + _%hd123136%_ + _%ns123099%_ '"#" - _%hd122004%_) - _%hd122004%_) + _%hd123136%_) + _%hd123136%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r121968%_)) - (let* ((_%e122007122017%_ - _%hd122004%_) - (_%E122009122021%_ + _%r123100%_)) + (let* ((_%e123139123149%_ + _%hd123136%_) + (_%E123141123153%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122007122017%_))) - (_%E122008122045%_ + _%e123139123149%_))) + (_%E123140123177%_ (lambda () (if (gx#stx-pair? - _%e122007122017%_) - (let ((_%e122010122025%_ + _%e123139123149%_) + (let ((_%e123142123157%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%e122007122017%_))) - (let ((_%hd122011122028%_ (##car _%e122010122025%_)) - (_%tl122012122030%_ (##cdr _%e122010122025%_))) - (let ((_%id122033%_ _%hd122011122028%_)) - (if (gx#stx-pair? _%tl122012122030%_) - (let ((_%e122013122035%_ - (gx#syntax-e _%tl122012122030%_))) - (let ((_%hd122014122038%_ - (##car _%e122013122035%_)) - (_%tl122015122040%_ - (##cdr _%e122013122035%_))) - (let ((_%eid122043%_ _%hd122014122038%_)) - (if (gx#stx-null? _%tl122015122040%_) - (if (and (gx#identifier? _%id122033%_) + (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#identifier? - _%eid122043%_)) - (_%lp121964%_ - _%rest122006%_ - _%ns121967%_ - (cons (cons _%id122033%_ - (cons _%eid122043%_ + _%eid123175%_)) + (_%lp123096%_ + _%rest123138%_ + _%ns123099%_ + (cons (cons _%id123165%_ + (cons _%eid123175%_ '())) - _%r121968%_)) - (_%E122009122021%_)) - (_%E122009122021%_))))) - (_%E122009122021%_))))) - (_%E122009122021%_))))) + _%r123100%_)) + (_%E123141123153%_)) + (_%E123141123153%_))))) + (_%E123141123153%_))))) + (_%E123141123153%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122008122045%_)))))) - (_%E121978121992%_)))) - (_%E121970122081%_ + (_%E123140123177%_)))))) + (_%E123110123124%_)))) + (_%E123102123213%_ (lambda () - (if (gx#stx-pair? _%e121969121984%_) - (let ((_%e121972122053%_ - (gx#syntax-e _%e121969121984%_))) - (let ((_%hd121973122056%_ - (##car _%e121972122053%_)) - (_%tl121974122058%_ - (##cdr _%e121972122053%_))) - (if (eq? (gx#stx-e _%hd121973122056%_) + (if (gx#stx-pair? _%e123101123116%_) + (let ((_%e123104123185%_ + (gx#syntax-e _%e123101123116%_))) + (let ((_%hd123105123188%_ + (##car _%e123104123185%_)) + (_%tl123106123190%_ + (##cdr _%e123104123185%_))) + (if (eq? (gx#stx-e _%hd123105123188%_) 'namespace:) (if (gx#stx-pair? - _%tl121974122058%_) - (let ((_%e121975122061%_ + _%tl123106123190%_) + (let ((_%e123107123193%_ (gx#syntax-e - _%tl121974122058%_))) - (let ((_%hd121976122064%_ - (##car _%e121975122061%_)) - (_%tl121977122066%_ - (##cdr _%e121975122061%_))) - (let* ((_%ns122069%_ - _%hd121976122064%_) - (_%rest122071%_ - _%tl121977122066%_) - (_%ns122079%_ + _%tl123106123190%_))) + (let ((_%hd123108123196%_ + (##car _%e123107123193%_)) + (_%tl123109123198%_ + (##cdr _%e123107123193%_))) + (let* ((_%ns123201%_ + _%hd123108123196%_) + (_%rest123203%_ + _%tl123109123198%_) + (_%ns123211%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%ns122069%_) - (symbol->string (gx#stx-e _%ns122069%_)) - (if (or (gx#stx-string? _%ns122069%_) - (gx#stx-false? _%ns122069%_)) - (gx#stx-e _%ns122069%_) + _%ns123201%_) + (symbol->string (gx#stx-e _%ns123201%_)) + (if (or (gx#stx-string? _%ns123201%_) + (gx#stx-false? _%ns123201%_)) + (gx#stx-e _%ns123201%_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _%stx121930%_ - _%ns122069%_))))) - (_%lp121964%_ _%rest122071%_ _%ns122079%_ _%r121968%_)))) + _%stx123062%_ + _%ns123201%_))))) + (_%lp123096%_ _%rest123203%_ _%ns123211%_ _%r123100%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121971122049%_)) - (_%E121971122049%_)))) - (_%E121971122049%_))))) - (_%E121970122081%_)))))) - (let* ((_%e121933121940%_ _%stx121930%_) - (_%E121935121944%_ + (_%E123103123181%_)) + (_%E123103123181%_)))) + (_%E123103123181%_))))) + (_%E123102123213%_)))))) + (let* ((_%e123065123072%_ _%stx123062%_) + (_%E123067123076%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121933121940%_))) - (_%E121934121958%_ + _%e123065123072%_))) + (_%E123066123090%_ (lambda () - (if (gx#stx-pair? _%e121933121940%_) - (let ((_%e121936121948%_ - (gx#syntax-e _%e121933121940%_))) - (let ((_%hd121937121951%_ (##car _%e121936121948%_)) - (_%tl121938121953%_ (##cdr _%e121936121948%_))) - (let ((_%body121956%_ _%tl121938121953%_)) - (if (gx#stx-list? _%body121956%_) + (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%_) (gx#core-cons '%#extern - (_%generate121932%_ _%body121956%_)) - (_%E121935121944%_))))) - (_%E121935121944%_))))) - (_%E121934121958%_))))) + (_%generate123064%_ _%body123088%_)) + (_%E123067123076%_))))) + (_%E123067123076%_))))) + (_%E123066123090%_))))) (define gx#macro-expand-define-values - (lambda (_%stx121876%_) - (let* ((_%e121877121890%_ _%stx121876%_) - (_%E121879121894%_ + (lambda (_%stx123008%_) + (let* ((_%e123009123022%_ _%stx123008%_) + (_%E123011123026%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121877121890%_))) - (_%E121878121926%_ + _%e123009123022%_))) + (_%E123010123058%_ (lambda () - (if (gx#stx-pair? _%e121877121890%_) - (let ((_%e121880121898%_ - (gx#syntax-e _%e121877121890%_))) - (let ((_%hd121881121901%_ (##car _%e121880121898%_)) - (_%tl121882121903%_ (##cdr _%e121880121898%_))) - (if (gx#stx-pair? _%tl121882121903%_) - (let ((_%e121883121906%_ - (gx#syntax-e _%tl121882121903%_))) - (let ((_%hd121884121909%_ - (##car _%e121883121906%_)) - (_%tl121885121911%_ - (##cdr _%e121883121906%_))) - (let ((_%hd121914%_ _%hd121884121909%_)) - (if (gx#stx-pair? _%tl121885121911%_) - (let ((_%e121886121916%_ + (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%_ (gx#syntax-e - _%tl121885121911%_))) - (let ((_%hd121887121919%_ - (##car _%e121886121916%_)) - (_%tl121888121921%_ - (##cdr _%e121886121916%_))) - (let ((_%expr121924%_ - _%hd121887121919%_)) + _%tl123017123043%_))) + (let ((_%hd123019123051%_ + (##car _%e123018123048%_)) + (_%tl123020123053%_ + (##cdr _%e123018123048%_))) + (let ((_%expr123056%_ + _%hd123019123051%_)) (if (gx#stx-null? - _%tl121888121921%_) + _%tl123020123053%_) (if (gx#stx-andmap gx#identifier? - _%hd121914%_) + _%hd123046%_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%hd121914%_) - (cons _%expr121924%_ '()))) - (_%E121879121894%_)) + _%hd123046%_) + (cons _%expr123056%_ '()))) + (_%E123011123026%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121879121894%_))))) - (_%E121879121894%_))))) - (_%E121879121894%_)))) - (_%E121879121894%_))))) - (_%E121878121926%_)))) + (_%E123011123026%_))))) + (_%E123011123026%_))))) + (_%E123011123026%_)))) + (_%E123011123026%_))))) + (_%E123010123058%_)))) (define gx#macro-expand-define-syntax - (lambda (_%stx121822%_) - (let* ((_%e121823121836%_ _%stx121822%_) - (_%E121825121840%_ + (lambda (_%stx122954%_) + (let* ((_%e122955122968%_ _%stx122954%_) + (_%E122957122972%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121823121836%_))) - (_%E121824121872%_ + _%e122955122968%_))) + (_%E122956123004%_ (lambda () - (if (gx#stx-pair? _%e121823121836%_) - (let ((_%e121826121844%_ - (gx#syntax-e _%e121823121836%_))) - (let ((_%hd121827121847%_ (##car _%e121826121844%_)) - (_%tl121828121849%_ (##cdr _%e121826121844%_))) - (if (gx#stx-pair? _%tl121828121849%_) - (let ((_%e121829121852%_ - (gx#syntax-e _%tl121828121849%_))) - (let ((_%hd121830121855%_ - (##car _%e121829121852%_)) - (_%tl121831121857%_ - (##cdr _%e121829121852%_))) - (let ((_%hd121860%_ _%hd121830121855%_)) - (if (gx#stx-pair? _%tl121831121857%_) - (let ((_%e121832121862%_ + (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%_ (gx#syntax-e - _%tl121831121857%_))) - (let ((_%hd121833121865%_ - (##car _%e121832121862%_)) - (_%tl121834121867%_ - (##cdr _%e121832121862%_))) - (let ((_%expr121870%_ - _%hd121833121865%_)) + _%tl122963122989%_))) + (let ((_%hd122965122997%_ + (##car _%e122964122994%_)) + (_%tl122966122999%_ + (##cdr _%e122964122994%_))) + (let ((_%expr123002%_ + _%hd122965122997%_)) (if (gx#stx-null? - _%tl121834121867%_) + _%tl122966122999%_) (if (gx#identifier? - _%hd121860%_) + _%hd122992%_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _%hd121860%_ + (cons _%hd122992%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr121870%_ '()))) - (_%E121825121840%_)) + (cons _%expr123002%_ '()))) + (_%E122957122972%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121825121840%_))))) - (_%E121825121840%_))))) - (_%E121825121840%_)))) - (_%E121825121840%_))))) - (_%E121824121872%_)))) + (_%E122957122972%_))))) + (_%E122957122972%_))))) + (_%E122957122972%_)))) + (_%E122957122972%_))))) + (_%E122956123004%_)))) (define gx#macro-expand-define-alias - (lambda (_%stx121768%_) - (let* ((_%e121769121782%_ _%stx121768%_) - (_%E121771121786%_ + (lambda (_%stx122900%_) + (let* ((_%e122901122914%_ _%stx122900%_) + (_%E122903122918%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121769121782%_))) - (_%E121770121818%_ + _%e122901122914%_))) + (_%E122902122950%_ (lambda () - (if (gx#stx-pair? _%e121769121782%_) - (let ((_%e121772121790%_ - (gx#syntax-e _%e121769121782%_))) - (let ((_%hd121773121793%_ (##car _%e121772121790%_)) - (_%tl121774121795%_ (##cdr _%e121772121790%_))) - (if (gx#stx-pair? _%tl121774121795%_) - (let ((_%e121775121798%_ - (gx#syntax-e _%tl121774121795%_))) - (let ((_%hd121776121801%_ - (##car _%e121775121798%_)) - (_%tl121777121803%_ - (##cdr _%e121775121798%_))) - (let ((_%id121806%_ _%hd121776121801%_)) - (if (gx#stx-pair? _%tl121777121803%_) - (let ((_%e121778121808%_ + (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%_ (gx#syntax-e - _%tl121777121803%_))) - (let ((_%hd121779121811%_ - (##car _%e121778121808%_)) - (_%tl121780121813%_ - (##cdr _%e121778121808%_))) - (let ((_%alias-id121816%_ - _%hd121779121811%_)) + _%tl122909122935%_))) + (let ((_%hd122911122943%_ + (##car _%e122910122940%_)) + (_%tl122912122945%_ + (##cdr _%e122910122940%_))) + (let ((_%alias-id122948%_ + _%hd122911122943%_)) (if (gx#stx-null? - _%tl121780121813%_) + _%tl122912122945%_) (if (and (gx#identifier? - _%id121806%_) + _%id122938%_) (gx#identifier? - _%alias-id121816%_)) + _%alias-id122948%_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _%id121806%_ + (cons _%id122938%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%alias-id121816%_ '()))) - (_%E121771121786%_)) + (cons _%alias-id122948%_ '()))) + (_%E122903122918%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121771121786%_))))) - (_%E121771121786%_))))) - (_%E121771121786%_)))) - (_%E121771121786%_))))) - (_%E121770121818%_)))) + (_%E122903122918%_))))) + (_%E122903122918%_))))) + (_%E122903122918%_)))) + (_%E122903122918%_))))) + (_%E122902122950%_)))) (define gx#macro-expand-lambda% - (lambda (_%stx121725%_) - (let* ((_%e121726121736%_ _%stx121725%_) - (_%E121728121740%_ + (lambda (_%stx122857%_) + (let* ((_%e122858122868%_ _%stx122857%_) + (_%E122860122872%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121726121736%_))) - (_%E121727121764%_ + _%e122858122868%_))) + (_%E122859122896%_ (lambda () - (if (gx#stx-pair? _%e121726121736%_) - (let ((_%e121729121744%_ - (gx#syntax-e _%e121726121736%_))) - (let ((_%hd121730121747%_ (##car _%e121729121744%_)) - (_%tl121731121749%_ (##cdr _%e121729121744%_))) - (if (gx#stx-pair? _%tl121731121749%_) - (let ((_%e121732121752%_ - (gx#syntax-e _%tl121731121749%_))) - (let ((_%hd121733121755%_ - (##car _%e121732121752%_)) - (_%tl121734121757%_ - (##cdr _%e121732121752%_))) - (let* ((_%hd121760%_ _%hd121733121755%_) - (_%body121762%_ _%tl121734121757%_)) + (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 (and (gx#stx-andmap gx#identifier? - _%hd121760%_) - (gx#stx-list? _%body121762%_) + _%hd122892%_) + (gx#stx-list? _%body122894%_) (not (gx#stx-null? - _%body121762%_))) + _%body122894%_))) (gx#core-cons* '%#lambda - (gx#stx-map1 identity _%hd121760%_) - _%body121762%_) - (_%E121728121740%_))))) - (_%E121728121740%_)))) - (_%E121728121740%_))))) - (_%E121727121764%_)))) + (gx#stx-map1 identity _%hd122892%_) + _%body122894%_) + (_%E122860122872%_))))) + (_%E122860122872%_)))) + (_%E122860122872%_))))) + (_%E122859122896%_)))) (define gx#macro-expand-case-lambda - (lambda (_%stx121661%_) - (letrec ((_%generate121663%_ - (lambda (_%clause121693%_) - (let* ((_%e121694121701%_ _%clause121693%_) - (_%E121696121705%_ + (lambda (_%stx122793%_) + (letrec ((_%generate122795%_ + (lambda (_%clause122825%_) + (let* ((_%e122826122833%_ _%clause122825%_) + (_%E122828122837%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _%stx121661%_ - _%clause121693%_))) - (_%E121695121721%_ + _%stx122793%_ + _%clause122825%_))) + (_%E122827122853%_ (lambda () - (if (gx#stx-pair? _%e121694121701%_) - (let ((_%e121697121709%_ - (gx#syntax-e _%e121694121701%_))) - (let ((_%hd121698121712%_ - (##car _%e121697121709%_)) - (_%tl121699121714%_ - (##cdr _%e121697121709%_))) - (let* ((_%hd121717%_ _%hd121698121712%_) - (_%body121719%_ - _%tl121699121714%_)) + (if (gx#stx-pair? _%e122826122833%_) + (let ((_%e122829122841%_ + (gx#syntax-e _%e122826122833%_))) + (let ((_%hd122830122844%_ + (##car _%e122829122841%_)) + (_%tl122831122846%_ + (##cdr _%e122829122841%_))) + (let* ((_%hd122849%_ _%hd122830122844%_) + (_%body122851%_ + _%tl122831122846%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd121717%_) - (gx#stx-list? _%body121719%_) + _%hd122849%_) + (gx#stx-list? _%body122851%_) (not (gx#stx-null? - _%body121719%_))) + _%body122851%_))) (gx#stx-wrap-source (cons (gx#stx-map1 identity - _%hd121717%_) - _%body121719%_) - (gx#stx-source _%clause121693%_)) - (_%E121696121705%_))))) - (_%E121696121705%_))))) - (_%E121695121721%_))))) - (let* ((_%e121664121671%_ _%stx121661%_) - (_%E121666121675%_ + _%hd122849%_) + _%body122851%_) + (gx#stx-source _%clause122825%_)) + (_%E122828122837%_))))) + (_%E122828122837%_))))) + (_%E122827122853%_))))) + (let* ((_%e122796122803%_ _%stx122793%_) + (_%E122798122807%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121664121671%_))) - (_%E121665121689%_ + _%e122796122803%_))) + (_%E122797122821%_ (lambda () - (if (gx#stx-pair? _%e121664121671%_) - (let ((_%e121667121679%_ - (gx#syntax-e _%e121664121671%_))) - (let ((_%hd121668121682%_ (##car _%e121667121679%_)) - (_%tl121669121684%_ (##cdr _%e121667121679%_))) - (let ((_%clauses121687%_ _%tl121669121684%_)) - (if (gx#stx-list? _%clauses121687%_) + (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%_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _%generate121663%_ - _%clauses121687%_)) - (_%E121666121675%_))))) - (_%E121666121675%_))))) - (_%E121665121689%_))))) + _%generate122795%_ + _%clauses122819%_)) + (_%E122798122807%_))))) + (_%E122798122807%_))))) + (_%E122797122821%_))))) (define gx#macro-expand-let-values__% - (lambda (_%stx121562%_ _%form121563%_) - (letrec ((_%generate121565%_ - (lambda (_%bind121608%_) - (let* ((_%e121609121619%_ _%bind121608%_) - (_%E121611121623%_ + (lambda (_%stx122694%_ _%form122695%_) + (letrec ((_%generate122697%_ + (lambda (_%bind122740%_) + (let* ((_%e122741122751%_ _%bind122740%_) + (_%E122743122755%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _%stx121562%_ - _%bind121608%_))) - (_%E121610121647%_ + _%stx122694%_ + _%bind122740%_))) + (_%E122742122779%_ (lambda () - (if (gx#stx-pair? _%e121609121619%_) - (let ((_%e121612121627%_ - (gx#syntax-e _%e121609121619%_))) - (let ((_%hd121613121630%_ - (##car _%e121612121627%_)) - (_%tl121614121632%_ - (##cdr _%e121612121627%_))) - (let ((_%ids121635%_ _%hd121613121630%_)) - (if (gx#stx-pair? _%tl121614121632%_) - (let ((_%e121615121637%_ + (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%_ (gx#syntax-e - _%tl121614121632%_))) - (let ((_%hd121616121640%_ - (##car _%e121615121637%_)) - (_%tl121617121642%_ - (##cdr _%e121615121637%_))) - (let ((_%expr121645%_ - _%hd121616121640%_)) + _%tl122746122764%_))) + (let ((_%hd122748122772%_ + (##car _%e122747122769%_)) + (_%tl122749122774%_ + (##cdr _%e122747122769%_))) + (let ((_%expr122777%_ + _%hd122748122772%_)) (if (gx#stx-null? - _%tl121617121642%_) + _%tl122749122774%_) (if (gx#stx-andmap gx#identifier? - _%ids121635%_) + _%ids122767%_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%ids121635%_) - (cons _%expr121645%_ '())) - (_%E121611121623%_)) - (_%E121611121623%_))))) + _%ids122767%_) + (cons _%expr122777%_ '())) + (_%E122743122755%_)) + (_%E122743122755%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121611121623%_))))) - (_%E121611121623%_))))) - (_%E121610121647%_))))) - (let* ((_%e121566121576%_ _%stx121562%_) - (_%E121568121580%_ + (_%E122743122755%_))))) + (_%E122743122755%_))))) + (_%E122742122779%_))))) + (let* ((_%e122698122708%_ _%stx122694%_) + (_%E122700122712%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121566121576%_))) - (_%E121567121604%_ + _%e122698122708%_))) + (_%E122699122736%_ (lambda () - (if (gx#stx-pair? _%e121566121576%_) - (let ((_%e121569121584%_ - (gx#syntax-e _%e121566121576%_))) - (let ((_%hd121570121587%_ (##car _%e121569121584%_)) - (_%tl121571121589%_ (##cdr _%e121569121584%_))) - (if (gx#stx-pair? _%tl121571121589%_) - (let ((_%e121572121592%_ - (gx#syntax-e _%tl121571121589%_))) - (let ((_%hd121573121595%_ - (##car _%e121572121592%_)) - (_%tl121574121597%_ - (##cdr _%e121572121592%_))) - (let* ((_%hd121600%_ _%hd121573121595%_) - (_%body121602%_ _%tl121574121597%_)) - (if (and (gx#stx-list? _%hd121600%_) - (gx#stx-list? _%body121602%_) + (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%_) (not (gx#stx-null? - _%body121602%_))) + _%body122734%_))) (gx#core-cons* - _%form121563%_ + _%form122695%_ (gx#stx-map1 - _%generate121565%_ - _%hd121600%_) - _%body121602%_) - (_%E121568121580%_))))) - (_%E121568121580%_)))) - (_%E121568121580%_))))) - (_%E121567121604%_))))) + _%generate122697%_ + _%hd122732%_) + _%body122734%_) + (_%E122700122712%_))))) + (_%E122700122712%_)))) + (_%E122700122712%_))))) + (_%E122699122736%_))))) (define gx#macro-expand-let-values__0 - (lambda (_%stx121654%_) - (let ((_%form121656%_ '%#let-values)) - (gx#macro-expand-let-values__% _%stx121654%_ _%form121656%_)))) + (lambda (_%stx122786%_) + (let ((_%form122788%_ '%#let-values)) + (gx#macro-expand-let-values__% _%stx122786%_ _%form122788%_)))) (define gx#macro-expand-let-values - (lambda _g124043_ - (let ((_g124042_ (##length _g124043_))) - (cond ((##fx= _g124042_ 1) - (apply gx#macro-expand-let-values__0 _g124043_)) - ((##fx= _g124042_ 2) - (apply gx#macro-expand-let-values__% _g124043_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g124043_)))))) + _g125175_)))))) (define gx#macro-expand-letrec-values - (lambda (_%stx121559%_) - (gx#macro-expand-let-values__% _%stx121559%_ '%#letrec-values))) + (lambda (_%stx122691%_) + (gx#macro-expand-let-values__% _%stx122691%_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_%stx121557%_) - (gx#macro-expand-let-values__% _%stx121557%_ '%#letrec*-values))) + (lambda (_%stx122689%_) + (gx#macro-expand-let-values__% _%stx122689%_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_%stx121448%_) - (let* ((_%e121449121475%_ _%stx121448%_) - (_%E121461121479%_ + (lambda (_%stx122580%_) + (let* ((_%e122581122607%_ _%stx122580%_) + (_%E122593122611%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121449121475%_))) - (_%E121451121521%_ + _%e122581122607%_))) + (_%E122583122653%_ (lambda () - (if (gx#stx-pair? _%e121449121475%_) - (let ((_%e121462121483%_ - (gx#syntax-e _%e121449121475%_))) - (let ((_%hd121463121486%_ (##car _%e121462121483%_)) - (_%tl121464121488%_ (##cdr _%e121462121483%_))) - (if (gx#stx-pair? _%tl121464121488%_) - (let ((_%e121465121491%_ - (gx#syntax-e _%tl121464121488%_))) - (let ((_%hd121466121494%_ - (##car _%e121465121491%_)) - (_%tl121467121496%_ - (##cdr _%e121465121491%_))) - (let ((_%test121499%_ _%hd121466121494%_)) - (if (gx#stx-pair? _%tl121467121496%_) - (let ((_%e121468121501%_ + (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%_ (gx#syntax-e - _%tl121467121496%_))) - (let ((_%hd121469121504%_ - (##car _%e121468121501%_)) - (_%tl121470121506%_ - (##cdr _%e121468121501%_))) - (let ((_%K121509%_ - _%hd121469121504%_)) + _%tl122599122628%_))) + (let ((_%hd122601122636%_ + (##car _%e122600122633%_)) + (_%tl122602122638%_ + (##cdr _%e122600122633%_))) + (let ((_%K122641%_ + _%hd122601122636%_)) (if (gx#stx-pair? - _%tl121470121506%_) - (let ((_%e121471121511%_ + _%tl122602122638%_) + (let ((_%e122603122643%_ (gx#syntax-e - _%tl121470121506%_))) - (let ((_%hd121472121514%_ - (##car _%e121471121511%_)) - (_%tl121473121516%_ - (##cdr _%e121471121511%_))) - (let ((_%E121519%_ - _%hd121472121514%_)) + _%tl122602122638%_))) + (let ((_%hd122604122646%_ + (##car _%e122603122643%_)) + (_%tl122605122648%_ + (##cdr _%e122603122643%_))) + (let ((_%E122651%_ + _%hd122604122646%_)) (if (gx#stx-null? - _%tl121473121516%_) + _%tl122605122648%_) (gx#core-list '%#if - _%test121499%_ - _%K121509%_ - _%E121519%_) - (_%E121461121479%_))))) - (_%E121461121479%_))))) - (_%E121461121479%_))))) - (_%E121461121479%_)))) - (_%E121461121479%_)))) - (_%E121450121553%_ + _%test122631%_ + _%K122641%_ + _%E122651%_) + (_%E122593122611%_))))) + (_%E122593122611%_))))) + (_%E122593122611%_))))) + (_%E122593122611%_)))) + (_%E122593122611%_)))) + (_%E122582122685%_ (lambda () - (if (gx#stx-pair? _%e121449121475%_) - (let ((_%e121452121525%_ - (gx#syntax-e _%e121449121475%_))) - (let ((_%hd121453121528%_ (##car _%e121452121525%_)) - (_%tl121454121530%_ (##cdr _%e121452121525%_))) - (if (gx#stx-pair? _%tl121454121530%_) - (let ((_%e121455121533%_ - (gx#syntax-e _%tl121454121530%_))) - (let ((_%hd121456121536%_ - (##car _%e121455121533%_)) - (_%tl121457121538%_ - (##cdr _%e121455121533%_))) - (let ((_%test121541%_ _%hd121456121536%_)) - (if (gx#stx-pair? _%tl121457121538%_) - (let ((_%e121458121543%_ + (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%_ (gx#syntax-e - _%tl121457121538%_))) - (let ((_%hd121459121546%_ - (##car _%e121458121543%_)) - (_%tl121460121548%_ - (##cdr _%e121458121543%_))) - (let ((_%K121551%_ - _%hd121459121546%_)) + _%tl122589122670%_))) + (let ((_%hd122591122678%_ + (##car _%e122590122675%_)) + (_%tl122592122680%_ + (##cdr _%e122590122675%_))) + (let ((_%K122683%_ + _%hd122591122678%_)) (if (gx#stx-null? - _%tl121460121548%_) + _%tl122592122680%_) (gx#core-list '%#if - _%test121541%_ - _%K121551%_ + _%test122673%_ + _%K122683%_ '#!void) - (_%E121451121521%_))))) - (_%E121451121521%_))))) - (_%E121451121521%_)))) - (_%E121451121521%_))))) - (_%E121450121553%_)))) + (_%E122583122653%_))))) + (_%E122583122653%_))))) + (_%E122583122653%_)))) + (_%E122583122653%_))))) + (_%E122582122685%_)))) (define gx#free-identifier=? - (lambda (_%xid121433%_ _%yid121434%_) - (let ((_%xe121436%_ (gx#resolve-identifier__0 _%xid121433%_)) - (_%ye121437%_ (gx#resolve-identifier__0 _%yid121434%_))) - (if (and _%xe121436%_ _%ye121437%_) - (let ((_%$e121440%_ (eq? _%xe121436%_ _%ye121437%_))) - (if _%$e121440%_ - _%$e121440%_ - (if (##structure-instance-of? _%xe121436%_ 'gx#binding::t) + (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) (if (##structure-instance-of? - _%ye121437%_ + _%ye122569%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%xe121436%_ + _%xe122568%_ '1 '#f '#f) (##unchecked-structure-ref - _%ye121437%_ + _%ye122569%_ '1 '#f '#f)) '#f) '#f))) - (if (or _%xe121436%_ _%ye121437%_) + (if (or _%xe122568%_ _%ye122569%_) '#f - (gx#stx-eq? _%xid121433%_ _%yid121434%_)))))) + (gx#stx-eq? _%xid122565%_ _%yid122566%_)))))) (define gx#bound-identifier=? - (lambda (_%xid121414%_ _%yid121415%_) - (letrec ((_%context121417%_ - (lambda (_%e121431%_) + (lambda (_%xid122546%_ _%yid122547%_) + (letrec ((_%context122549%_ + (lambda (_%e122563%_) (if (##structure-direct-instance-of? - _%e121431%_ + _%e122563%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%e121431%_ '3 '#f '#f) + (##unchecked-structure-ref _%e122563%_ '3 '#f '#f) (gx#current-expander-context)))) - (_%marks121418%_ - (lambda (_%e121426%_) - (if (symbol? _%e121426%_) + (_%marks122550%_ + (lambda (_%e122558%_) + (if (symbol? _%e122558%_) '() (if (##structure-direct-instance-of? - _%e121426%_ + _%e122558%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%e121426%_ '3 '#f '#f) + (##unchecked-structure-ref _%e122558%_ '3 '#f '#f) (##unchecked-structure-ref - _%e121426%_ + _%e122558%_ '4 '#f '#f))))) - (_%unwrap121419%_ - (lambda (_%e121424%_) - (if (symbol? _%e121424%_) - _%e121424%_ - (gx#syntax-local-unwrap _%e121424%_))))) - (let ((_%x121421%_ (_%unwrap121419%_ _%xid121414%_)) - (_%y121422%_ (_%unwrap121419%_ _%yid121415%_))) - (if (gx#stx-eq? _%x121421%_ _%y121422%_) - (if (eq? (_%context121417%_ _%x121421%_) - (_%context121417%_ _%y121422%_)) - (equal? (_%marks121418%_ _%x121421%_) - (_%marks121418%_ _%y121422%_)) + (_%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%_)) '#f) '#f))))) (define gx#underscore? - (lambda (_%stx121412%_) - (if (gx#identifier? _%stx121412%_) - (gx#core-identifier=? _%stx121412%_ '_) + (lambda (_%stx122544%_) + (if (gx#identifier? _%stx122544%_) + (gx#core-identifier=? _%stx122544%_ '_) '#f))) (define gx#ellipsis? - (lambda (_%stx121410%_) - (if (gx#identifier? _%stx121410%_) - (gx#core-identifier=? _%stx121410%_ '...) + (lambda (_%stx122542%_) + (if (gx#identifier? _%stx122542%_) + (gx#core-identifier=? _%stx122542%_ '...) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_%stx121353%_ _%where121354%_) - (let _%lp121356%_ ((_%rest121358%_ (gx#syntax->list _%stx121353%_))) - (let* ((_%rest121359121367%_ _%rest121358%_) - (_%else121361121375%_ (lambda () '#t)) - (_%K121363121388%_ - (lambda (_%rest121378%_ _%hd121379%_) - (if (gx#identifier? _%hd121379%_) - (if (__find (lambda (_%g121381121383%_) + (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%_) (gx#bound-identifier=? - _%g121381121383%_ - _%hd121379%_)) - _%rest121378%_) + _%g122513122515%_ + _%hd122511%_)) + _%rest122510%_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _%where121354%_ - _%hd121379%_) - (_%lp121356%_ _%rest121378%_)) + _%where122486%_ + _%hd122511%_) + (_%lp122488%_ _%rest122510%_)) (gx#raise-syntax-error '#f '"Bad identifier" - _%where121354%_ - _%hd121379%_))))) - (if (##pair? _%rest121359121367%_) - (let ((_%hd121364121391%_ (##car _%rest121359121367%_)) - (_%tl121365121393%_ (##cdr _%rest121359121367%_))) - (let* ((_%hd121396%_ _%hd121364121391%_) - (_%rest121398%_ _%tl121365121393%_)) - (_%K121363121388%_ _%rest121398%_ _%hd121396%_))) - (_%else121361121375%_)))))) + _%where122486%_ + _%hd122511%_))))) + (if (pair? _%rest122491122499%_) + (let ((_%hd122496122523%_ (##car _%rest122491122499%_)) + (_%tl122497122525%_ (##cdr _%rest122491122499%_))) + (let* ((_%hd122528%_ _%hd122496122523%_) + (_%rest122530%_ _%tl122497122525%_)) + (_%K122495122520%_ _%rest122530%_ _%hd122528%_))) + (_%else122493122507%_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_%stx121403%_) - (let ((_%where121405%_ _%stx121403%_)) - (gx#check-duplicate-identifiers__% _%stx121403%_ _%where121405%_)))) + (lambda (_%stx122535%_) + (let ((_%where122537%_ _%stx122535%_)) + (gx#check-duplicate-identifiers__% _%stx122535%_ _%where122537%_)))) (define gx#check-duplicate-identifiers - (lambda _g124045_ - (let ((_g124044_ (##length _g124045_))) - (cond ((##fx= _g124044_ 1) - (apply gx#check-duplicate-identifiers__0 _g124045_)) - ((##fx= _g124044_ 2) - (apply gx#check-duplicate-identifiers__% _g124045_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g124045_)))))) + _g125177_)))))) (define gx#core-bind-values? - (lambda (_%stx121345%_) + (lambda (_%stx122477%_) (gx#stx-andmap - (lambda (_%x121347%_) - (let ((_%$e121349%_ (gx#identifier? _%x121347%_))) - (if _%$e121349%_ _%$e121349%_ (gx#stx-false? _%x121347%_)))) - _%stx121345%_))) + (lambda (_%x122479%_) + (let ((_%$e122481%_ (gx#identifier? _%x122479%_))) + (if _%$e122481%_ _%$e122481%_ (gx#stx-false? _%x122479%_)))) + _%stx122477%_))) (define gx#core-bind-values!__% - (lambda (_%stx121309%_ _%rebind?121310%_ _%phi121311%_ _%ctx121312%_) + (lambda (_%stx122441%_ _%rebind?122442%_ _%phi122443%_ _%ctx122444%_) (gx#stx-for-each1 - (lambda (_%id121314%_) - (if (gx#identifier? _%id121314%_) + (lambda (_%id122446%_) + (if (gx#identifier? _%id122446%_) (gx#core-bind-runtime!__% - _%id121314%_ - _%rebind?121310%_ - _%phi121311%_ - _%ctx121312%_) + _%id122446%_ + _%rebind?122442%_ + _%phi122443%_ + _%ctx122444%_) '#!void)) - _%stx121309%_))) + _%stx122441%_))) (define gx#core-bind-values!__0 - (lambda (_%stx121319%_) - (let* ((_%rebind?121321%_ '#f) - (_%phi121323%_ (gx#current-expander-phi)) - (_%ctx121325%_ (gx#current-expander-context))) + (lambda (_%stx122451%_) + (let* ((_%rebind?122453%_ '#f) + (_%phi122455%_ (gx#current-expander-phi)) + (_%ctx122457%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx121319%_ - _%rebind?121321%_ - _%phi121323%_ - _%ctx121325%_)))) + _%stx122451%_ + _%rebind?122453%_ + _%phi122455%_ + _%ctx122457%_)))) (define gx#core-bind-values!__1 - (lambda (_%stx121327%_ _%rebind?121328%_) - (let* ((_%phi121330%_ (gx#current-expander-phi)) - (_%ctx121332%_ (gx#current-expander-context))) + (lambda (_%stx122459%_ _%rebind?122460%_) + (let* ((_%phi122462%_ (gx#current-expander-phi)) + (_%ctx122464%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx121327%_ - _%rebind?121328%_ - _%phi121330%_ - _%ctx121332%_)))) + _%stx122459%_ + _%rebind?122460%_ + _%phi122462%_ + _%ctx122464%_)))) (define gx#core-bind-values!__2 - (lambda (_%stx121334%_ _%rebind?121335%_ _%phi121336%_) - (let ((_%ctx121338%_ (gx#current-expander-context))) + (lambda (_%stx122466%_ _%rebind?122467%_ _%phi122468%_) + (let ((_%ctx122470%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx121334%_ - _%rebind?121335%_ - _%phi121336%_ - _%ctx121338%_)))) + _%stx122466%_ + _%rebind?122467%_ + _%phi122468%_ + _%ctx122470%_)))) (define gx#core-bind-values! - (lambda _g124047_ - (let ((_g124046_ (##length _g124047_))) - (cond ((##fx= _g124046_ 1) (apply gx#core-bind-values!__0 _g124047_)) - ((##fx= _g124046_ 2) (apply gx#core-bind-values!__1 _g124047_)) - ((##fx= _g124046_ 3) (apply gx#core-bind-values!__2 _g124047_)) - ((##fx= _g124046_ 4) (apply gx#core-bind-values!__% _g124047_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g124047_)))))) + _g125179_)))))) (define gx#core-quote-bind-values - (lambda (_%stx121304%_) + (lambda (_%stx122436%_) (gx#stx-map1 - (lambda (_%x121306%_) - (if (gx#identifier? _%x121306%_) - (gx#core-quote-syntax__0 _%x121306%_) + (lambda (_%x122438%_) + (if (gx#identifier? _%x122438%_) + (gx#core-quote-syntax__0 _%x122438%_) '#f)) - _%stx121304%_))) + _%stx122436%_))) (define gx#core-runtime-ref? - (lambda (_%stx121297%_) - (if (gx#identifier? _%stx121297%_) - (let* ((_%bind121299%_ (gx#resolve-identifier__0 _%stx121297%_)) - (_%$e121301%_ (not _%bind121299%_))) - (if _%$e121301%_ - _%$e121301%_ + (lambda (_%stx122429%_) + (if (gx#identifier? _%stx122429%_) + (let* ((_%bind122431%_ (gx#resolve-identifier__0 _%stx122429%_)) + (_%$e122433%_ (not _%bind122431%_))) + (if _%$e122433%_ + _%$e122433%_ (##structure-instance-of? - _%bind121299%_ + _%bind122431%_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_%id121286%_ _%form121287%_) - (let ((_%bind121289%_ (gx#resolve-identifier__0 _%id121286%_))) - (if (##structure-instance-of? _%bind121289%_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _%id121286%_) - (if (not _%bind121289%_) + (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%_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _%id121286%_))) - (gx#core-quote-syntax__0 _%id121286%_) + (gx#core-extern-symbol? (gx#stx-e _%id122418%_))) + (gx#core-quote-syntax__0 _%id122418%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%form121287%_ - _%id121286%_)) + _%form122419%_ + _%id122418%_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _%form121287%_ - _%id121286%_)))))) + _%form122419%_ + _%id122418%_)))))) (define gx#core-bind-runtime!__% - (lambda (_%id121241%_ _%rebind?121242%_ _%phi121243%_ _%ctx121244%_) - (let* ((_%key121246%_ (gx#core-identifier-key _%id121241%_)) - (_%eid121248%_ + (lambda (_%id122373%_ _%rebind?122374%_ _%phi122375%_ _%ctx122376%_) + (let* ((_%key122378%_ (gx#core-identifier-key _%id122373%_)) + (_%eid122380%_ (gx#make-binding-id__% - _%key121246%_ + _%key122378%_ '#f - _%phi121243%_ - _%ctx121244%_)) - (_%bind121254%_ + _%phi122375%_ + _%ctx122376%_)) + (_%bind122386%_ (if (##structure-instance-of? - _%ctx121244%_ + _%ctx122376%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid121248%_ - _%key121246%_ - _%phi121243%_ - _%ctx121244%_) + _%eid122380%_ + _%key122378%_ + _%phi122375%_ + _%ctx122376%_) (if (##structure-instance-of? - _%ctx121244%_ + _%ctx122376%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid121248%_ - _%key121246%_ - _%phi121243%_) + _%eid122380%_ + _%key122378%_ + _%phi122375%_) (if (##structure-instance-of? - _%ctx121244%_ + _%ctx122376%_ 'gx#local-context::t) (##structure gx#local-binding::t - _%eid121248%_ - _%key121246%_ - _%phi121243%_) + _%eid122380%_ + _%key122378%_ + _%phi122375%_) (##structure gx#runtime-binding::t - _%eid121248%_ - _%key121246%_ - _%phi121243%_)))))) + _%eid122380%_ + _%key122378%_ + _%phi122375%_)))))) (gx#bind-identifier!__% - _%id121241%_ - _%bind121254%_ - _%rebind?121242%_ - _%phi121243%_ - _%ctx121244%_)))) + _%id122373%_ + _%bind122386%_ + _%rebind?122374%_ + _%phi122375%_ + _%ctx122376%_)))) (define gx#core-bind-runtime!__0 - (lambda (_%id121260%_) - (let* ((_%rebind?121262%_ '#f) - (_%phi121264%_ (gx#current-expander-phi)) - (_%ctx121266%_ (gx#current-expander-context))) + (lambda (_%id122392%_) + (let* ((_%rebind?122394%_ '#f) + (_%phi122396%_ (gx#current-expander-phi)) + (_%ctx122398%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id121260%_ - _%rebind?121262%_ - _%phi121264%_ - _%ctx121266%_)))) + _%id122392%_ + _%rebind?122394%_ + _%phi122396%_ + _%ctx122398%_)))) (define gx#core-bind-runtime!__1 - (lambda (_%id121268%_ _%rebind?121269%_) - (let* ((_%phi121271%_ (gx#current-expander-phi)) - (_%ctx121273%_ (gx#current-expander-context))) + (lambda (_%id122400%_ _%rebind?122401%_) + (let* ((_%phi122403%_ (gx#current-expander-phi)) + (_%ctx122405%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id121268%_ - _%rebind?121269%_ - _%phi121271%_ - _%ctx121273%_)))) + _%id122400%_ + _%rebind?122401%_ + _%phi122403%_ + _%ctx122405%_)))) (define gx#core-bind-runtime!__2 - (lambda (_%id121275%_ _%rebind?121276%_ _%phi121277%_) - (let ((_%ctx121279%_ (gx#current-expander-context))) + (lambda (_%id122407%_ _%rebind?122408%_ _%phi122409%_) + (let ((_%ctx122411%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id121275%_ - _%rebind?121276%_ - _%phi121277%_ - _%ctx121279%_)))) + _%id122407%_ + _%rebind?122408%_ + _%phi122409%_ + _%ctx122411%_)))) (define gx#core-bind-runtime! - (lambda _g124049_ - (let ((_g124048_ (##length _g124049_))) - (cond ((##fx= _g124048_ 1) - (apply gx#core-bind-runtime!__0 _g124049_)) - ((##fx= _g124048_ 2) - (apply gx#core-bind-runtime!__1 _g124049_)) - ((##fx= _g124048_ 3) - (apply gx#core-bind-runtime!__2 _g124049_)) - ((##fx= _g124048_ 4) - (apply gx#core-bind-runtime!__% _g124049_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g124049_)))))) + _g125181_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_%id121193%_ - _%eid121194%_ - _%rebind?121195%_ - _%phi121196%_ - _%ctx121197%_) - (let* ((_%key121199%_ (gx#core-identifier-key _%id121193%_)) - (_%bind121204%_ + (lambda (_%id122325%_ + _%eid122326%_ + _%rebind?122327%_ + _%phi122328%_ + _%ctx122329%_) + (let* ((_%key122331%_ (gx#core-identifier-key _%id122325%_)) + (_%bind122336%_ (if (##structure-instance-of? - _%ctx121197%_ + _%ctx122329%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid121194%_ - _%key121199%_ - _%phi121196%_ - _%ctx121197%_) + _%eid122326%_ + _%key122331%_ + _%phi122328%_ + _%ctx122329%_) (if (##structure-instance-of? - _%ctx121197%_ + _%ctx122329%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid121194%_ - _%key121199%_ - _%phi121196%_) + _%eid122326%_ + _%key122331%_ + _%phi122328%_) (##structure gx#runtime-binding::t - _%eid121194%_ - _%key121199%_ - _%phi121196%_))))) + _%eid122326%_ + _%key122331%_ + _%phi122328%_))))) (gx#bind-identifier!__% - _%id121193%_ - _%bind121204%_ - _%rebind?121195%_ - _%phi121196%_ - _%ctx121197%_)))) + _%id122325%_ + _%bind122336%_ + _%rebind?122327%_ + _%phi122328%_ + _%ctx122329%_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_%id121210%_ _%eid121211%_) - (let* ((_%rebind?121213%_ '#f) - (_%phi121215%_ (gx#current-expander-phi)) - (_%ctx121217%_ (gx#current-expander-context))) + (lambda (_%id122342%_ _%eid122343%_) + (let* ((_%rebind?122345%_ '#f) + (_%phi122347%_ (gx#current-expander-phi)) + (_%ctx122349%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id121210%_ - _%eid121211%_ - _%rebind?121213%_ - _%phi121215%_ - _%ctx121217%_)))) + _%id122342%_ + _%eid122343%_ + _%rebind?122345%_ + _%phi122347%_ + _%ctx122349%_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_%id121219%_ _%eid121220%_ _%rebind?121221%_) - (let* ((_%phi121223%_ (gx#current-expander-phi)) - (_%ctx121225%_ (gx#current-expander-context))) + (lambda (_%id122351%_ _%eid122352%_ _%rebind?122353%_) + (let* ((_%phi122355%_ (gx#current-expander-phi)) + (_%ctx122357%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id121219%_ - _%eid121220%_ - _%rebind?121221%_ - _%phi121223%_ - _%ctx121225%_)))) + _%id122351%_ + _%eid122352%_ + _%rebind?122353%_ + _%phi122355%_ + _%ctx122357%_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_%id121227%_ _%eid121228%_ _%rebind?121229%_ _%phi121230%_) - (let ((_%ctx121232%_ (gx#current-expander-context))) + (lambda (_%id122359%_ _%eid122360%_ _%rebind?122361%_ _%phi122362%_) + (let ((_%ctx122364%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id121227%_ - _%eid121228%_ - _%rebind?121229%_ - _%phi121230%_ - _%ctx121232%_)))) + _%id122359%_ + _%eid122360%_ + _%rebind?122361%_ + _%phi122362%_ + _%ctx122364%_)))) (define gx#core-bind-runtime-reference! - (lambda _g124051_ - (let ((_g124050_ (##length _g124051_))) - (cond ((##fx= _g124050_ 2) - (apply gx#core-bind-runtime-reference!__0 _g124051_)) - ((##fx= _g124050_ 3) - (apply gx#core-bind-runtime-reference!__1 _g124051_)) - ((##fx= _g124050_ 4) - (apply gx#core-bind-runtime-reference!__2 _g124051_)) - ((##fx= _g124050_ 5) - (apply gx#core-bind-runtime-reference!__% _g124051_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g124051_)))))) + _g125183_)))))) (define gx#core-bind-extern!__% - (lambda (_%id121153%_ - _%eid121154%_ - _%rebind?121155%_ - _%phi121156%_ - _%ctx121157%_) + (lambda (_%id122285%_ + _%eid122286%_ + _%rebind?122287%_ + _%phi122288%_ + _%ctx122289%_) (gx#bind-identifier!__% - _%id121153%_ + _%id122285%_ (##structure gx#extern-binding::t - _%eid121154%_ - (gx#core-identifier-key _%id121153%_) - _%phi121156%_) - _%rebind?121155%_ - _%phi121156%_ - _%ctx121157%_))) + _%eid122286%_ + (gx#core-identifier-key _%id122285%_) + _%phi122288%_) + _%rebind?122287%_ + _%phi122288%_ + _%ctx122289%_))) (define gx#core-bind-extern!__0 - (lambda (_%id121162%_ _%eid121163%_) - (let* ((_%rebind?121165%_ '#f) - (_%phi121167%_ (gx#current-expander-phi)) - (_%ctx121169%_ (gx#current-expander-context))) + (lambda (_%id122294%_ _%eid122295%_) + (let* ((_%rebind?122297%_ '#f) + (_%phi122299%_ (gx#current-expander-phi)) + (_%ctx122301%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id121162%_ - _%eid121163%_ - _%rebind?121165%_ - _%phi121167%_ - _%ctx121169%_)))) + _%id122294%_ + _%eid122295%_ + _%rebind?122297%_ + _%phi122299%_ + _%ctx122301%_)))) (define gx#core-bind-extern!__1 - (lambda (_%id121171%_ _%eid121172%_ _%rebind?121173%_) - (let* ((_%phi121175%_ (gx#current-expander-phi)) - (_%ctx121177%_ (gx#current-expander-context))) + (lambda (_%id122303%_ _%eid122304%_ _%rebind?122305%_) + (let* ((_%phi122307%_ (gx#current-expander-phi)) + (_%ctx122309%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id121171%_ - _%eid121172%_ - _%rebind?121173%_ - _%phi121175%_ - _%ctx121177%_)))) + _%id122303%_ + _%eid122304%_ + _%rebind?122305%_ + _%phi122307%_ + _%ctx122309%_)))) (define gx#core-bind-extern!__2 - (lambda (_%id121179%_ _%eid121180%_ _%rebind?121181%_ _%phi121182%_) - (let ((_%ctx121184%_ (gx#current-expander-context))) + (lambda (_%id122311%_ _%eid122312%_ _%rebind?122313%_ _%phi122314%_) + (let ((_%ctx122316%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id121179%_ - _%eid121180%_ - _%rebind?121181%_ - _%phi121182%_ - _%ctx121184%_)))) + _%id122311%_ + _%eid122312%_ + _%rebind?122313%_ + _%phi122314%_ + _%ctx122316%_)))) (define gx#core-bind-extern! - (lambda _g124053_ - (let ((_g124052_ (##length _g124053_))) - (cond ((##fx= _g124052_ 2) (apply gx#core-bind-extern!__0 _g124053_)) - ((##fx= _g124052_ 3) (apply gx#core-bind-extern!__1 _g124053_)) - ((##fx= _g124052_ 4) (apply gx#core-bind-extern!__2 _g124053_)) - ((##fx= _g124052_ 5) (apply gx#core-bind-extern!__% _g124053_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g124053_)))))) + _g125185_)))))) (define gx#core-bind-syntax!__% - (lambda (_%id121107%_ - _%e121108%_ - _%rebind?121109%_ - _%phi121110%_ - _%ctx121111%_) + (lambda (_%id122239%_ + _%e122240%_ + _%rebind?122241%_ + _%phi122242%_ + _%ctx122243%_) (gx#bind-identifier!__% - _%id121107%_ - (let ((_%key121116%_ (gx#core-identifier-key _%id121107%_)) - (_%e121117%_ - (if (or (##structure-instance-of? _%e121108%_ 'gx#expander::t) + _%id122239%_ + (let ((_%key122248%_ (gx#core-identifier-key _%id122239%_)) + (_%e122249%_ + (if (or (##structure-instance-of? _%e122240%_ 'gx#expander::t) (##structure-instance-of? - _%e121108%_ + _%e122240%_ 'gx#expander-context::t)) - _%e121108%_ + _%e122240%_ (##structure gx#user-expander::t - _%e121108%_ - _%ctx121111%_ - _%phi121110%_)))) + _%e122240%_ + _%ctx122243%_ + _%phi122242%_)))) (##structure gx#syntax-binding::t (gx#make-binding-id__% - _%key121116%_ + _%key122248%_ '#t - _%phi121110%_ - _%ctx121111%_) - _%key121116%_ - _%phi121110%_ - _%e121117%_)) - _%rebind?121109%_ - _%phi121110%_ - _%ctx121111%_))) + _%phi122242%_ + _%ctx122243%_) + _%key122248%_ + _%phi122242%_ + _%e122249%_)) + _%rebind?122241%_ + _%phi122242%_ + _%ctx122243%_))) (define gx#core-bind-syntax!__0 - (lambda (_%id121122%_ _%e121123%_) - (let* ((_%rebind?121125%_ '#f) - (_%phi121127%_ (gx#current-expander-phi)) - (_%ctx121129%_ (gx#current-expander-context))) + (lambda (_%id122254%_ _%e122255%_) + (let* ((_%rebind?122257%_ '#f) + (_%phi122259%_ (gx#current-expander-phi)) + (_%ctx122261%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id121122%_ - _%e121123%_ - _%rebind?121125%_ - _%phi121127%_ - _%ctx121129%_)))) + _%id122254%_ + _%e122255%_ + _%rebind?122257%_ + _%phi122259%_ + _%ctx122261%_)))) (define gx#core-bind-syntax!__1 - (lambda (_%id121131%_ _%e121132%_ _%rebind?121133%_) - (let* ((_%phi121135%_ (gx#current-expander-phi)) - (_%ctx121137%_ (gx#current-expander-context))) + (lambda (_%id122263%_ _%e122264%_ _%rebind?122265%_) + (let* ((_%phi122267%_ (gx#current-expander-phi)) + (_%ctx122269%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id121131%_ - _%e121132%_ - _%rebind?121133%_ - _%phi121135%_ - _%ctx121137%_)))) + _%id122263%_ + _%e122264%_ + _%rebind?122265%_ + _%phi122267%_ + _%ctx122269%_)))) (define gx#core-bind-syntax!__2 - (lambda (_%id121139%_ _%e121140%_ _%rebind?121141%_ _%phi121142%_) - (let ((_%ctx121144%_ (gx#current-expander-context))) + (lambda (_%id122271%_ _%e122272%_ _%rebind?122273%_ _%phi122274%_) + (let ((_%ctx122276%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id121139%_ - _%e121140%_ - _%rebind?121141%_ - _%phi121142%_ - _%ctx121144%_)))) + _%id122271%_ + _%e122272%_ + _%rebind?122273%_ + _%phi122274%_ + _%ctx122276%_)))) (define gx#core-bind-syntax! - (lambda _g124055_ - (let ((_g124054_ (##length _g124055_))) - (cond ((##fx= _g124054_ 2) (apply gx#core-bind-syntax!__0 _g124055_)) - ((##fx= _g124054_ 3) (apply gx#core-bind-syntax!__1 _g124055_)) - ((##fx= _g124054_ 4) (apply gx#core-bind-syntax!__2 _g124055_)) - ((##fx= _g124054_ 5) (apply gx#core-bind-syntax!__% _g124055_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g124055_)))))) + _g125187_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_%id121090%_ _%e121091%_ _%rebind?121092%_) + (lambda (_%id122222%_ _%e122223%_ _%rebind?122224%_) (gx#core-bind-syntax!__% - _%id121090%_ - _%e121091%_ - _%rebind?121092%_ + _%id122222%_ + _%e122223%_ + _%rebind?122224%_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_%id121097%_ _%e121098%_) - (let ((_%rebind?121100%_ '#f)) + (lambda (_%id122229%_ _%e122230%_) + (let ((_%rebind?122232%_ '#f)) (gx#core-bind-root-syntax!__% - _%id121097%_ - _%e121098%_ - _%rebind?121100%_)))) + _%id122229%_ + _%e122230%_ + _%rebind?122232%_)))) (define gx#core-bind-root-syntax! - (lambda _g124057_ - (let ((_g124056_ (##length _g124057_))) - (cond ((##fx= _g124056_ 2) - (apply gx#core-bind-root-syntax!__0 _g124057_)) - ((##fx= _g124056_ 3) - (apply gx#core-bind-root-syntax!__% _g124057_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g124057_)))))) + _g125189_)))))) (define gx#core-bind-alias!__% - (lambda (_%id121048%_ - _%alias-id121049%_ - _%rebind?121050%_ - _%phi121051%_ - _%ctx121052%_) + (lambda (_%id122180%_ + _%alias-id122181%_ + _%rebind?122182%_ + _%phi122183%_ + _%ctx122184%_) (gx#bind-identifier!__% - _%id121048%_ - (let ((_%key121054%_ (gx#core-identifier-key _%id121048%_))) + _%id122180%_ + (let ((_%key122186%_ (gx#core-identifier-key _%id122180%_))) (##structure gx#alias-binding::t (gx#make-binding-id__% - _%key121054%_ + _%key122186%_ '#t - _%phi121051%_ - _%ctx121052%_) - _%key121054%_ - _%phi121051%_ - _%alias-id121049%_)) - _%rebind?121050%_ - _%phi121051%_ - _%ctx121052%_))) + _%phi122183%_ + _%ctx122184%_) + _%key122186%_ + _%phi122183%_ + _%alias-id122181%_)) + _%rebind?122182%_ + _%phi122183%_ + _%ctx122184%_))) (define gx#core-bind-alias!__0 - (lambda (_%id121059%_ _%alias-id121060%_) - (let* ((_%rebind?121062%_ '#f) - (_%phi121064%_ (gx#current-expander-phi)) - (_%ctx121066%_ (gx#current-expander-context))) + (lambda (_%id122191%_ _%alias-id122192%_) + (let* ((_%rebind?122194%_ '#f) + (_%phi122196%_ (gx#current-expander-phi)) + (_%ctx122198%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id121059%_ - _%alias-id121060%_ - _%rebind?121062%_ - _%phi121064%_ - _%ctx121066%_)))) + _%id122191%_ + _%alias-id122192%_ + _%rebind?122194%_ + _%phi122196%_ + _%ctx122198%_)))) (define gx#core-bind-alias!__1 - (lambda (_%id121068%_ _%alias-id121069%_ _%rebind?121070%_) - (let* ((_%phi121072%_ (gx#current-expander-phi)) - (_%ctx121074%_ (gx#current-expander-context))) + (lambda (_%id122200%_ _%alias-id122201%_ _%rebind?122202%_) + (let* ((_%phi122204%_ (gx#current-expander-phi)) + (_%ctx122206%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id121068%_ - _%alias-id121069%_ - _%rebind?121070%_ - _%phi121072%_ - _%ctx121074%_)))) + _%id122200%_ + _%alias-id122201%_ + _%rebind?122202%_ + _%phi122204%_ + _%ctx122206%_)))) (define gx#core-bind-alias!__2 - (lambda (_%id121076%_ _%alias-id121077%_ _%rebind?121078%_ _%phi121079%_) - (let ((_%ctx121081%_ (gx#current-expander-context))) + (lambda (_%id122208%_ _%alias-id122209%_ _%rebind?122210%_ _%phi122211%_) + (let ((_%ctx122213%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id121076%_ - _%alias-id121077%_ - _%rebind?121078%_ - _%phi121079%_ - _%ctx121081%_)))) + _%id122208%_ + _%alias-id122209%_ + _%rebind?122210%_ + _%phi122211%_ + _%ctx122213%_)))) (define gx#core-bind-alias! - (lambda _g124059_ - (let ((_g124058_ (##length _g124059_))) - (cond ((##fx= _g124058_ 2) (apply gx#core-bind-alias!__0 _g124059_)) - ((##fx= _g124058_ 3) (apply gx#core-bind-alias!__1 _g124059_)) - ((##fx= _g124058_ 4) (apply gx#core-bind-alias!__2 _g124059_)) - ((##fx= _g124058_ 5) (apply gx#core-bind-alias!__% _g124059_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g124059_)))))) + _g125191_)))))) (define gx#make-binding-id__% - (lambda (_%key120998%_ _%syntax?120999%_ _%phi121000%_ _%ctx121001%_) - (if (uninterned-symbol? _%key120998%_) + (lambda (_%key122130%_ _%syntax?122131%_ _%phi122132%_ _%ctx122133%_) + (if (uninterned-symbol? _%key122130%_) (##gensym 'L) - (if (pair? _%key120998%_) - (gensym (##car _%key120998%_)) - (if (##structure-instance-of? _%ctx121001%_ 'gx#top-context::t) - (let ((_%ns121006%_ - (gx#core-context-namespace__% _%ctx121001%_))) - (if (and (fxzero? _%phi121000%_) (not _%syntax?120999%_)) - (if _%ns121006%_ - (make-symbol__1 _%ns121006%_ '"#" _%key120998%_) - _%key120998%_) - (if _%syntax?120999%_ + (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%_ (make-symbol__1 - (let ((_%$e121010%_ _%ns121006%_)) - (if _%$e121010%_ _%$e121010%_ '"")) + (let ((_%$e122142%_ _%ns122138%_)) + (if _%$e122142%_ _%$e122142%_ '"")) '"[:" - (number->string _%phi121000%_) + (number->string _%phi122132%_) '":]#" - _%key120998%_) + _%key122130%_) (make-symbol__1 - (let ((_%$e121014%_ _%ns121006%_)) - (if _%$e121014%_ _%$e121014%_ '"")) + (let ((_%$e122146%_ _%ns122138%_)) + (if _%$e122146%_ _%$e122146%_ '"")) '"[" - (number->string _%phi121000%_) + (number->string _%phi122132%_) '"]#" - _%key120998%_)))) - (gensym _%key120998%_)))))) + _%key122130%_)))) + (gensym _%key122130%_)))))) (define gx#make-binding-id__0 - (lambda (_%key121021%_) - (let* ((_%syntax?121023%_ '#f) - (_%phi121025%_ (gx#current-expander-phi)) - (_%ctx121027%_ (gx#current-expander-context))) + (lambda (_%key122153%_) + (let* ((_%syntax?122155%_ '#f) + (_%phi122157%_ (gx#current-expander-phi)) + (_%ctx122159%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key121021%_ - _%syntax?121023%_ - _%phi121025%_ - _%ctx121027%_)))) + _%key122153%_ + _%syntax?122155%_ + _%phi122157%_ + _%ctx122159%_)))) (define gx#make-binding-id__1 - (lambda (_%key121029%_ _%syntax?121030%_) - (let* ((_%phi121032%_ (gx#current-expander-phi)) - (_%ctx121034%_ (gx#current-expander-context))) + (lambda (_%key122161%_ _%syntax?122162%_) + (let* ((_%phi122164%_ (gx#current-expander-phi)) + (_%ctx122166%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key121029%_ - _%syntax?121030%_ - _%phi121032%_ - _%ctx121034%_)))) + _%key122161%_ + _%syntax?122162%_ + _%phi122164%_ + _%ctx122166%_)))) (define gx#make-binding-id__2 - (lambda (_%key121036%_ _%syntax?121037%_ _%phi121038%_) - (let ((_%ctx121040%_ (gx#current-expander-context))) + (lambda (_%key122168%_ _%syntax?122169%_ _%phi122170%_) + (let ((_%ctx122172%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key121036%_ - _%syntax?121037%_ - _%phi121038%_ - _%ctx121040%_)))) + _%key122168%_ + _%syntax?122169%_ + _%phi122170%_ + _%ctx122172%_)))) (define gx#make-binding-id - (lambda _g124061_ - (let ((_g124060_ (##length _g124061_))) - (cond ((##fx= _g124060_ 1) (apply gx#make-binding-id__0 _g124061_)) - ((##fx= _g124060_ 2) (apply gx#make-binding-id__1 _g124061_)) - ((##fx= _g124060_ 3) (apply gx#make-binding-id__2 _g124061_)) - ((##fx= _g124060_ 4) (apply gx#make-binding-id__% _g124061_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g124061_)))))))) + _g125193_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3~0.scm b/src/bootstrap/gerbil/runtime/c3~0.scm index c36c0b121..90759ca68 100644 --- a/src/bootstrap/gerbil/runtime/c3~0.scm +++ b/src/bootstrap/gerbil/runtime/c3~0.scm @@ -1,450 +1,428 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1713454409) + (define gerbil/runtime/c3::timestamp 1713631264) (begin (define c4-linearize__% - (lambda (_%@@keywords93313%_ - _%get-precedence-list9330793314%_ - _%struct?9330893316%_ - _%eq9330993318%_ - _%get-name9331093320%_ - _%rhead93322%_ - _%supers93323%_) - (let* ((_%get-precedence-list93325%_ - (if (eq? _%get-precedence-list9330793314%_ absent-value) + (lambda (_%@@keywords94445%_ + _%get-precedence-list9443994446%_ + _%struct?9444094448%_ + _%eq9444194450%_ + _%get-name9444294452%_ + _%rhead94454%_ + _%supers94455%_) + (let* ((_%get-precedence-list94457%_ + (if (eq? _%get-precedence-list9443994446%_ absent-value) (error '"Missing required keyword argument" 'get-precedence-list:) - _%get-precedence-list9330793314%_)) - (_%struct?93327%_ - (if (eq? _%struct?9330893316%_ absent-value) + _%get-precedence-list9443994446%_)) + (_%struct?94459%_ + (if (eq? _%struct?9444094448%_ absent-value) (error '"Missing required keyword argument" 'struct:) - _%struct?9330893316%_)) - (_%eq93329%_ - (if (eq? _%eq9330993318%_ absent-value) eq? _%eq9330993318%_)) - (_%get-name93331%_ - (if (eq? _%get-name9331093320%_ absent-value) + _%struct?9444094448%_)) + (_%eq94461%_ + (if (eq? _%eq9444194450%_ absent-value) eq? _%eq9444194450%_)) + (_%get-name94463%_ + (if (eq? _%get-name9444294452%_ absent-value) identity - _%get-name9331093320%_))) - (letrec* ((_%pls93334%_ - (map _%get-precedence-list93325%_ _%supers93323%_)) - (_%sit93335%_ '()) - (_%get-names93336%_ - (lambda (_%lst93611%_) - (map _%get-name93331%_ _%lst93611%_))) - (_%err93337%_ - (lambda _%a93609%_ + _%get-name9444294452%_))) + (letrec* ((_%pls94466%_ + (map _%get-precedence-list94457%_ _%supers94455%_)) + (_%sit94467%_ '()) + (_%get-names94468%_ + (lambda (_%lst94743%_) + (map _%get-name94463%_ _%lst94743%_))) + (_%err94469%_ + (lambda _%a94741%_ (apply error '"Inconsistent precedence graph" 'head: - (_%get-names93336%_ (reverse _%rhead93322%_)) + (_%get-names94468%_ (reverse _%rhead94454%_)) 'precedence-lists: (let () (declare (not safe)) - (##map _%get-names93336%_ _%pls93334%_)) + (##map _%get-names94468%_ _%pls94466%_)) 'single-inheritance-tail: - (_%get-names93336%_ _%sit93335%_) - _%a93609%_))) - (_%same?93338%_ - (lambda (_%lst193606%_ _%lst293607%_) - (if (let ((__tmp93659 (length _%lst193606%_)) - (__tmp93658 (length _%lst293607%_))) + (_%get-names94468%_ _%sit94467%_) + _%a94741%_))) + (_%same?94470%_ + (lambda (_%lst194738%_ _%lst294739%_) + (if (let ((__tmp94791 (length _%lst194738%_)) + (__tmp94790 (length _%lst294739%_))) (declare (not safe)) - (##fx= __tmp93659 __tmp93658)) + (##fx= __tmp94791 __tmp94790)) (let () (declare (not safe)) - (andmap2 _%eq93329%_ _%lst193606%_ _%lst293607%_)) + (andmap2 _%eq94461%_ _%lst194738%_ _%lst294739%_)) '#f))) - (_%merge-sit!93339%_ - (lambda (_%sit293589%_) - (if (null? _%sit293589%_) + (_%merge-sit!94471%_ + (lambda (_%sit294721%_) + (if (null? _%sit294721%_) '#!void - (if (null? _%sit93335%_) - (set! _%sit93335%_ _%sit293589%_) - (let _%loop93594%_ ((_%t193596%_ _%sit93335%_) - (_%t293597%_ _%sit293589%_)) - (if (_%same?93338%_ _%t193596%_ _%sit293589%_) + (if (null? _%sit94467%_) + (set! _%sit94467%_ _%sit294721%_) + (let _%loop94726%_ ((_%t194728%_ _%sit94467%_) + (_%t294729%_ _%sit294721%_)) + (if (_%same?94470%_ _%t194728%_ _%sit294721%_) '#!void - (if (_%same?93338%_ - _%t293597%_ - _%sit93335%_) - (set! _%sit93335%_ _%sit293589%_) - (if (or (null? _%t193596%_) - (null? _%t293597%_)) - (_%err93337%_ + (if (_%same?94470%_ + _%t294729%_ + _%sit94467%_) + (set! _%sit94467%_ _%sit294721%_) + (if (or (null? _%t194728%_) + (null? _%t294729%_)) + (_%err94469%_ 'single-inheritance-incompatibility: - (cons (_%get-names93336%_ - _%sit93335%_) - (cons (_%get-names93336%_ - _%sit293589%_) + (cons (_%get-names94468%_ + _%sit94467%_) + (cons (_%get-names94468%_ + _%sit294721%_) '()))) - (_%loop93594%_ - (cdr _%t193596%_) - (cdr _%t293597%_)))))))))) - (_%rpls93340%_ - (let ((__tmp93660 - (lambda (_%pl93584%_) - (let ((_g93661_ + (_%loop94726%_ + (cdr _%t194728%_) + (cdr _%t294729%_)))))))))) + (_%rpls94472%_ + (let ((__tmp94792 + (lambda (_%pl94716%_) + (let ((_g94793_ (let () (declare (not safe)) (append-reverse-until - _%struct?93327%_ - _%pl93584%_ + _%struct?94459%_ + _%pl94716%_ '())))) (begin - (let ((_g93662_ + (let ((_g94794_ (let () (declare (not safe)) - (if (##values? _g93661_) - (##vector-length _g93661_) + (if (##values? _g94793_) + (##vector-length _g94793_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g93662_ 2))) + (##fx= _g94794_ 2))) (error "Context expects 2 values" - _g93662_))) - (let ((_%tl93586%_ + _g94794_))) + (let ((_%tl94718%_ (let () (declare (not safe)) - (##vector-ref _g93661_ 0))) - (_%rh93587%_ + (##vector-ref _g94793_ 0))) + (_%rh94719%_ (let () (declare (not safe)) - (##vector-ref _g93661_ 1)))) + (##vector-ref _g94793_ 1)))) (begin - (_%merge-sit!93339%_ _%tl93586%_) - _%rh93587%_))))))) + (_%merge-sit!94471%_ _%tl94718%_) + _%rh94719%_))))))) (declare (not safe)) - (##map __tmp93660 _%pls93334%_))) - (_%unsitr-rpl93341%_ - (lambda (_%rpl93530%_) - (let _%u93532%_ ((_%pl-rhead93534%_ _%rpl93530%_) - (_%pl-tail93535%_ '()) - (_%sit-rhead93536%_ - (reverse _%sit93335%_)) - (_%sit-tail93537%_ '())) - (let* ((_%pl-rhead9353893547%_ _%pl-rhead93534%_) - (_%E9354193551%_ + (##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%_ (lambda () (error '"No clause matching" - _%pl-rhead9353893547%_ + _%pl-rhead9467094679%_ '([]) '([c . plrh])) '#!void))) - (let ((_%K9354593581%_ (lambda () _%pl-tail93535%_)) - (_%K9354293565%_ - (lambda (_%plrh93555%_ _%c93556%_) - (if (member _%c93556%_ - _%sit-tail93537%_ - _%eq93329%_) - (_%err93337%_ + (let ((_%K9467794713%_ (lambda () _%pl-tail94667%_)) + (_%K9467494697%_ + (lambda (_%plrh94687%_ _%c94688%_) + (if (member _%c94688%_ + _%sit-tail94669%_ + _%eq94461%_) + (_%err94469%_ 'precedence-list-head: - (_%get-names93336%_ - (reverse _%pl-rhead93534%_)) + (_%get-names94468%_ + (reverse _%pl-rhead94666%_)) 'precedence-list-tail: - (_%get-names93336%_ _%pl-tail93535%_) + (_%get-names94468%_ _%pl-tail94667%_) 'single-inheritance-head: - (_%get-names93336%_ - (reverse _%sit-rhead93536%_)) + (_%get-names94468%_ + (reverse _%sit-rhead94668%_)) 'single-inheritance-tail: - (_%get-names93336%_ _%sit-tail93537%_) + (_%get-names94468%_ _%sit-tail94669%_) 'super-out-of-order-vs-single-inheritance-tail: - (_%get-name93331%_ _%c93556%_)) - (let ((_g93663_ - (let ((__tmp93665 - (lambda (_%g9355793559%_) - (_%eq93329%_ - _%c93556%_ - _%g9355793559%_)))) + (_%get-name94463%_ _%c94688%_)) + (let ((_g94795_ + (let ((__tmp94797 + (lambda (_%g9468994691%_) + (_%eq94461%_ + _%c94688%_ + _%g9468994691%_)))) (declare (not safe)) (__append-reverse-until - __tmp93665 - _%sit-rhead93536%_ - _%sit-tail93537%_)))) + __tmp94797 + _%sit-rhead94668%_ + _%sit-tail94669%_)))) (begin - (let ((_g93664_ + (let ((_g94796_ (let () (declare (not safe)) - (if (##values? _g93663_) + (if (##values? _g94795_) (##vector-length - _g93663_) + _g94795_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g93664_ 2))) + (##fx= _g94796_ 2))) (error "Context expects 2 values" - _g93664_))) - (let ((_%sit-rh293562%_ + _g94796_))) + (let ((_%sit-rh294694%_ (let () (declare (not safe)) (##vector-ref - _g93663_ + _g94795_ 0))) - (_%sit-tl293563%_ + (_%sit-tl294695%_ (let () (declare (not safe)) (##vector-ref - _g93663_ + _g94795_ 1)))) - (if (null? _%sit-rh293562%_) - (_%u93532%_ - _%plrh93555%_ - (cons _%c93556%_ - _%pl-tail93535%_) + (if (null? _%sit-rh294694%_) + (_%u94664%_ + _%plrh94687%_ + (cons _%c94688%_ + _%pl-tail94667%_) '() - _%sit-tl293563%_) - (_%u93532%_ - _%plrh93555%_ - _%pl-tail93535%_ - (cdr _%sit-rh293562%_) - _%sit-tl293563%_))))))))) - (let ((_%try-match9354093577%_ + _%sit-tl294695%_) + (_%u94664%_ + _%plrh94687%_ + _%pl-tail94667%_ + (cdr _%sit-rh294694%_) + _%sit-tl294695%_))))))))) + (let ((_%try-match9467294709%_ (lambda () - (if (let () - (declare (not safe)) - (##pair? _%pl-rhead9353893547%_)) - (let ((_%tl9354493570%_ + (if (pair? _%pl-rhead9467094679%_) + (let ((_%tl9467694702%_ (let () (declare (not safe)) - (##cdr _%pl-rhead9353893547%_))) - (_%hd9354393568%_ + (##cdr _%pl-rhead9467094679%_))) + (_%hd9467594700%_ (let () (declare (not safe)) - (##car _%pl-rhead9353893547%_)))) - (let ((_%c93573%_ _%hd9354393568%_) - (_%plrh93575%_ - _%tl9354493570%_)) - (_%K9354293565%_ - _%plrh93575%_ - _%c93573%_))) - (_%E9354193551%_))))) - (if (let () - (declare (not safe)) - (##null? _%pl-rhead9353893547%_)) - (_%K9354593581%_) - (_%try-match9354093577%_)))))))) - (_g93666_ - (let ((_g93667_ - (let ((__tmp93669 (reverse _%supers93323%_))) + (##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%_))) (declare (not safe)) - (append1! _%rpls93340%_ __tmp93669)))) + (append1! _%rpls94472%_ __tmp94801)))) #!void - _g93667_)) - (_g93670_ - (let ((_g93671_ - (set! _%pls93334%_ + _g94799_)) + (_g94802_ + (let ((_g94803_ + (set! _%pls94466%_ (let () (declare (not safe)) - (##map _%unsitr-rpl93341%_ - _%rpls93340%_))))) + (##map _%unsitr-rpl94473%_ + _%rpls94472%_))))) #!void - _g93671_)) - (_%c3-select-next93342%_ - (lambda (_%tails93480%_) - (let ((_%candidate?93486%_ - (lambda (_%c93482%_) - (let ((__tmp93673 - (lambda (_%tail93484%_) - (not (member _%c93482%_ - (cdr _%tail93484%_) - _%eq93329%_))))) + _g94803_)) + (_%c3-select-next94474%_ + (lambda (_%tails94612%_) + (let ((_%candidate?94618%_ + (lambda (_%c94614%_) + (let ((__tmp94805 + (lambda (_%tail94616%_) + (not (member _%c94614%_ + (cdr _%tail94616%_) + _%eq94461%_))))) (declare (not safe)) - (__andmap1 __tmp93673 _%tails93480%_))))) - (let _%loop93488%_ ((_%ts93490%_ _%tails93480%_)) - (let* ((_%ts9349193501%_ _%ts93490%_) - (_%else9349393509%_ - (lambda () (_%err93337%_))) - (_%K9349593515%_ - (lambda (_%rts93512%_ _%c93513%_) - (if (_%candidate?93486%_ _%c93513%_) - _%c93513%_ - (_%loop93488%_ _%rts93512%_))))) - (if (let () - (declare (not safe)) - (##pair? _%ts9349193501%_)) - (let ((_%hd9349693518%_ + (__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%_ (let () (declare (not safe)) - (##car _%ts9349193501%_))) - (_%tl9349793520%_ + (##car _%ts9462394633%_))) + (_%tl9462994652%_ (let () (declare (not safe)) - (##cdr _%ts9349193501%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd9349693518%_)) - (let* ((_%hd9349893523%_ + (##cdr _%ts9462394633%_)))) + (if (pair? _%hd9462894650%_) + (let* ((_%hd9463094655%_ (let () (declare (not safe)) - (##car _%hd9349693518%_))) - (_%c93526%_ _%hd9349893523%_) - (_%rts93528%_ _%tl9349793520%_)) - (_%K9349593515%_ - _%rts93528%_ - _%c93526%_)) - (_%err93337%_))) - (_%err93337%_))))))) - (_%remove-next!93343%_ - (lambda (_%next93425%_ _%tails93426%_) - (let _%loop93428%_ ((_%t93430%_ _%tails93426%_)) - (let* ((_%t9343193442%_ _%t93430%_) - (_%E9343493446%_ + (##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%_ (lambda () (error '"No clause matching" - _%t9343193442%_ + _%t9456394574%_ '([]) '([[head . tail] . more])) '#!void))) - (let ((_%K9344093477%_ (lambda () _%tails93426%_)) - (_%K9343593454%_ - (lambda (_%more93450%_ - _%tail93451%_ - _%head93452%_) - (if (_%eq93329%_ - _%head93452%_ - _%next93425%_) - (set-car! _%t93430%_ _%tail93451%_) + (let ((_%K9457294609%_ (lambda () _%tails94558%_)) + (_%K9456794586%_ + (lambda (_%more94582%_ + _%tail94583%_ + _%head94584%_) + (if (_%eq94461%_ + _%head94584%_ + _%next94557%_) + (set-car! _%t94562%_ _%tail94583%_) '#!void) - (_%loop93428%_ _%more93450%_)))) - (let ((_%try-match9343393473%_ + (_%loop94560%_ _%more94582%_)))) + (let ((_%try-match9456594605%_ (lambda () - (if (let () - (declare (not safe)) - (##pair? _%t9343193442%_)) - (let ((_%tl9343793459%_ + (if (pair? _%t9456394574%_) + (let ((_%tl9456994591%_ (let () (declare (not safe)) - (##cdr _%t9343193442%_))) - (_%hd9343693457%_ + (##cdr _%t9456394574%_))) + (_%hd9456894589%_ (let () (declare (not safe)) - (##car _%t9343193442%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd9343693457%_)) - (let ((_%tl9343993464%_ + (##car _%t9456394574%_)))) + (if (pair? _%hd9456894589%_) + (let ((_%tl9457194596%_ (let () (declare (not safe)) - (##cdr _%hd9343693457%_))) - (_%hd9343893462%_ + (##cdr _%hd9456894589%_))) + (_%hd9457094594%_ (let () (declare (not safe)) - (##car _%hd9343693457%_)))) - (let ((_%head93467%_ - _%hd9343893462%_) - (_%tail93469%_ - _%tl9343993464%_) - (_%more93471%_ - _%tl9343793459%_)) - (_%K9343593454%_ - _%more93471%_ - _%tail93469%_ - _%head93467%_))) - (_%E9343493446%_))) - (_%E9343493446%_))))) - (if (let () - (declare (not safe)) - (##null? _%t9343193442%_)) - (_%K9344093477%_) - (_%try-match9343393473%_)))))))) - (_%precedence-list93344%_ - (let _%c3loop93375%_ ((_%rhead93377%_ _%rhead93322%_) - (_%tails93378%_ _%pls93334%_)) - (let* ((_%tails93380%_ + (##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! _%tails93378%_))) - (_%tails9338193391%_ _%tails93380%_) - (_%else9338493402%_ + (remove-nulls! _%tails94510%_))) + (_%tails9451394523%_ _%tails94512%_) + (_%else9451694534%_ (lambda () - (let ((_%next93399%_ - (_%c3-select-next93342%_ - _%tails93380%_))) - (_%c3loop93375%_ - (cons _%next93399%_ _%rhead93377%_) - (_%remove-next!93343%_ - _%next93399%_ - _%tails93380%_)))))) - (let ((_%K9338993422%_ + (let ((_%next94531%_ + (_%c3-select-next94474%_ + _%tails94512%_))) + (_%c3loop94507%_ + (cons _%next94531%_ _%rhead94509%_) + (_%remove-next!94475%_ + _%next94531%_ + _%tails94512%_)))))) + (let ((_%K9452194554%_ (lambda () (append-reverse - _%rhead93377%_ - _%sit93335%_))) - (_%K9338693408%_ - (lambda (_%tail93406%_) + _%rhead94509%_ + _%sit94467%_))) + (_%K9451894540%_ + (lambda (_%tail94538%_) (append-reverse - _%rhead93377%_ - (append _%tail93406%_ _%sit93335%_))))) - (let ((_%try-match9338393418%_ + _%rhead94509%_ + (append _%tail94538%_ _%sit94467%_))))) + (let ((_%try-match9451594550%_ (lambda () - (if (let () - (declare (not safe)) - (##pair? _%tails9338193391%_)) - (let ((_%tl9338893413%_ + (if (pair? _%tails9451394523%_) + (let ((_%tl9452094545%_ (let () (declare (not safe)) - (##cdr _%tails9338193391%_))) - (_%hd9338793411%_ + (##cdr _%tails9451394523%_))) + (_%hd9451994543%_ (let () (declare (not safe)) - (##car _%tails9338193391%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl9338893413%_)) - (let ((_%tail93416%_ - _%hd9338793411%_)) - (_%K9338693408%_ - _%tail93416%_)) - (_%else9338493402%_))) - (_%else9338493402%_))))) - (if (let () - (declare (not safe)) - (##null? _%tails9338193391%_)) - (_%K9338993422%_) - (_%try-match9338393418%_))))))) - (_%super-struct93345%_ - (let* ((_%sit9334693354%_ _%sit93335%_) - (_%else9334893362%_ (lambda () '#f)) - (_%K9335093367%_ (lambda (_%s93365%_) _%s93365%_))) - (if (let () - (declare (not safe)) - (##pair? _%sit9334693354%_)) - (let* ((_%hd9335193370%_ + (##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%_ (let () (declare (not safe)) - (##car _%sit9334693354%_))) - (_%s93373%_ _%hd9335193370%_)) - (_%K9335093367%_ _%s93373%_)) - (_%else9334893362%_))))) - (values _%precedence-list93344%_ _%super-struct93345%_))))) + (##car _%sit9447894486%_))) + (_%s94505%_ _%hd9448394502%_)) + (_%K9448294499%_ _%s94505%_)) + (_%else9448094494%_))))) + (values _%precedence-list94476%_ _%super-struct94477%_))))) (define c4-linearize__@ - (lambda (_%@@keywords93616%_ . _%args93617%_) + (lambda (_%@@keywords94748%_ . _%args94749%_) (apply c4-linearize__% - _%@@keywords93616%_ + _%@@keywords94748%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords93616%_ + _%@@keywords94748%_ 'get-precedence-list: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords93616%_ + _%@@keywords94748%_ 'struct: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords93616%_ 'eq: absent-value)) + (symbolic-table-ref _%@@keywords94748%_ 'eq: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords93616%_ + _%@@keywords94748%_ 'get-name: absent-value)) - _%args93617%_))) + _%args94749%_))) (define c4-linearize - (lambda _%args9331193623%_ + (lambda _%args9444394755%_ (apply keyword-dispatch '#(#f get-name: struct: get-precedence-list: #f eq:) c4-linearize__@ - _%args9331193623%_))))) + _%args9444394755%_))))) diff --git a/src/bootstrap/gerbil/runtime/control~0.scm b/src/bootstrap/gerbil/runtime/control~0.scm index 625f629e1..0c931a568 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 1713454409) + (define gerbil/runtime/control::timestamp 1713631264) (begin (define make-promise - (lambda (_%thunk93020%_) - (if (procedure? _%thunk93020%_) - (let ((_%thunk93024%_ _%thunk93020%_)) - (__make-promise _%thunk93024%_)) + (lambda (_%thunk94152%_) + (if (procedure? _%thunk94152%_) + (let ((_%thunk94156%_ _%thunk94152%_)) + (__make-promise _%thunk94156%_)) (begin (raise-contract-violation-error '"contract violation" @@ -15,19 +15,19 @@ 'contract: 'procedure? 'value: - _%thunk93020%_) + _%thunk94152%_) '#!void)))) (define __make-promise - (lambda (_%thunk93008%_) - (let ((_%thunk93011%_ _%thunk93008%_)) + (lambda (_%thunk94140%_) + (let ((_%thunk94143%_ _%thunk94140%_)) (declare (not safe)) - (##make-delay-promise _%thunk93011%_)))) + (##make-delay-promise _%thunk94143%_)))) (define call-with-parameters - (lambda (_%thunk92993%_ . _%rest92994%_) - (if (procedure? _%thunk92993%_) - (let ((_%thunk92998%_ _%thunk92993%_)) + (lambda (_%thunk94125%_ . _%rest94126%_) + (if (procedure? _%thunk94125%_) + (let ((_%thunk94130%_ _%thunk94125%_)) (declare (not safe)) - (##apply __call-with-parameters _%thunk92998%_ _%rest92994%_)) + (##apply __call-with-parameters _%thunk94130%_ _%rest94126%_)) (begin (raise-contract-violation-error '"contract violation" @@ -36,78 +36,74 @@ 'contract: 'procedure? 'value: - _%thunk92993%_) + _%thunk94125%_) '#!void)))) (define __call-with-parameters - (lambda (_%thunk92931%_ . _%rest92932%_) - (let* ((_%thunk92935%_ _%thunk92931%_) - (_%rest9294392954%_ _%rest92932%_) - (_%E9294692958%_ + (lambda (_%thunk94063%_ . _%rest94064%_) + (let* ((_%thunk94067%_ _%thunk94063%_) + (_%rest9407594086%_ _%rest94064%_) + (_%E9407894090%_ (lambda () (error '"No clause matching" - _%rest9294392954%_ + _%rest9407594086%_ '([param val . rest]) '([])) '#!void))) - (let ((_%K9294892974%_ - (lambda (_%rest92969%_ _%val92970%_ _%param92971%_) - (let ((__tmp93046 - (if (null? _%rest92969%_) - _%thunk92935%_ + (let ((_%K9408094106%_ + (lambda (_%rest94101%_ _%val94102%_ _%param94103%_) + (let ((__tmp94178 + (if (null? _%rest94101%_) + _%thunk94067%_ (lambda () (apply call-with-parameters - _%thunk92935%_ - _%rest92969%_))))) + _%thunk94067%_ + _%rest94101%_))))) (declare (not safe)) (##parameterize1 - _%param92971%_ - _%val92970%_ - __tmp93046)))) - (_%K9294792963%_ - (lambda () (let () (declare (not safe)) (_%thunk92935%_))))) - (let ((_%try-match9294592966%_ + _%param94103%_ + _%val94102%_ + __tmp94178)))) + (_%K9407994095%_ + (lambda () (let () (declare (not safe)) (_%thunk94067%_))))) + (let ((_%try-match9407794098%_ (lambda () - (if (let () - (declare (not safe)) - (##null? _%rest9294392954%_)) - (let () (declare (not safe)) (_%thunk92935%_)) - (_%E9294692958%_))))) - (if (let () (declare (not safe)) (##pair? _%rest9294392954%_)) - (let ((_%tl9295092979%_ + (if (null? _%rest9407594086%_) + (let () (declare (not safe)) (_%thunk94067%_)) + (_%E9407894090%_))))) + (if (pair? _%rest9407594086%_) + (let ((_%tl9408294111%_ (let () (declare (not safe)) - (##cdr _%rest9294392954%_))) - (_%hd9294992977%_ + (##cdr _%rest9407594086%_))) + (_%hd9408194109%_ (let () (declare (not safe)) - (##car _%rest9294392954%_)))) - (if (let () - (declare (not safe)) - (##pair? _%tl9295092979%_)) - (let ((_%tl9295292986%_ + (##car _%rest9407594086%_)))) + (if (pair? _%tl9408294111%_) + (let ((_%tl9408494118%_ (let () (declare (not safe)) - (##cdr _%tl9295092979%_))) - (_%hd9295192984%_ + (##cdr _%tl9408294111%_))) + (_%hd9408394116%_ (let () (declare (not safe)) - (##car _%tl9295092979%_)))) - (let ((_%param92982%_ _%hd9294992977%_) - (_%val92989%_ _%hd9295192984%_) - (_%rest92991%_ _%tl9295292986%_)) - (_%K9294892974%_ - _%rest92991%_ - _%val92989%_ - _%param92982%_))) - (_%E9294692958%_))) - (_%try-match9294592966%_))))))) + (##car _%tl9408294111%_)))) + (let ((_%param94114%_ _%hd9408194109%_) + (_%val94121%_ _%hd9408394116%_) + (_%rest94123%_ _%tl9408494118%_)) + (_%K9408094106%_ + _%rest94123%_ + _%val94121%_ + _%param94114%_))) + (_%E9407894090%_))) + (_%try-match9407794098%_))))))) (define with-unwind-protect - (lambda (_%K92906%_ _%fini92907%_) - (if (procedure? _%K92906%_) - (let ((_%K92911%_ _%K92906%_)) - (if (procedure? _%fini92907%_) - (let ((_%fini92921%_ _%fini92907%_)) - (__with-unwind-protect _%K92911%_ _%fini92921%_)) + (lambda (_%K94038%_ _%fini94039%_) + (if (procedure? _%K94038%_) + (let ((_%K94043%_ _%K94038%_)) + (if (procedure? _%fini94039%_) + (let ((_%fini94053%_ _%fini94039%_)) + (__with-unwind-protect _%K94043%_ _%fini94053%_)) (begin (raise-contract-violation-error '"contract violation" @@ -116,7 +112,7 @@ 'contract: 'procedure? 'value: - _%fini92907%_) + _%fini94039%_) '#!void))) (begin (raise-contract-violation-error @@ -126,226 +122,222 @@ 'contract: 'procedure? 'value: - _%K92906%_) + _%K94038%_) '#!void)))) (define __with-unwind-protect - (lambda (_%K92880%_ _%fini92881%_) - (let* ((_%K92884%_ _%K92880%_) - (_%fini92893%_ _%fini92881%_) - (_%once92902%_ '#f) - (__tmp93047 + (lambda (_%K94012%_ _%fini94013%_) + (let* ((_%K94016%_ _%K94012%_) + (_%fini94025%_ _%fini94013%_) + (_%once94034%_ '#f) + (__tmp94179 (lambda () (declare (not interrupts-enabled)) - (if _%once92902%_ + (if _%once94034%_ (error '"Cannot re-enter unwind protected block") - (set! _%once92902%_ '#t))))) + (set! _%once94034%_ '#t))))) (declare (not safe)) - (##dynamic-wind __tmp93047 _%K92884%_ _%fini92893%_)))) + (##dynamic-wind __tmp94179 _%K94016%_ _%fini94025%_)))) (define keyword-dispatch - (lambda (_%kwt92773%_ _%K92774%_ . _%all-args92775%_) - (if _%kwt92773%_ - (if (vector? _%kwt92773%_) + (lambda (_%kwt93905%_ _%K93906%_ . _%all-args93907%_) + (if _%kwt93905%_ + (if (vector? _%kwt93905%_) '#!void - (error '"keyword-dispatch: expected vector" _%kwt92773%_)) + (error '"keyword-dispatch: expected vector" _%kwt93905%_)) '#!void) - (if (procedure? _%K92774%_) + (if (procedure? _%K93906%_) '#!void - (error '"keyword-dispatch: expected procedure" _%K92774%_)) - (let ((_%keys92777%_ + (error '"keyword-dispatch: expected procedure" _%K93906%_)) + (let ((_%keys93909%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%lp92779%_ ((_%rest92781%_ _%all-args92775%_) - (_%args92782%_ '#f) - (_%tail92783%_ '#f)) - (let* ((_%rest9278492792%_ _%rest92781%_) - (_%else9278692800%_ + (let _%lp93911%_ ((_%rest93913%_ _%all-args93907%_) + (_%args93914%_ '#f) + (_%tail93915%_ '#f)) + (let* ((_%rest9391693924%_ _%rest93913%_) + (_%else9391893932%_ (lambda () - (if _%args92782%_ + (if _%args93914%_ (begin (let () (declare (not safe)) - (##set-cdr! _%tail92783%_ '())) - (let ((__tmp93048 - (cons _%keys92777%_ _%args92782%_))) + (##set-cdr! _%tail93915%_ '())) + (let ((__tmp94180 + (cons _%keys93909%_ _%args93914%_))) (declare (not safe)) - (##apply _%K92774%_ __tmp93048))) - (_%K92774%_ _%keys92777%_)))) - (_%K9278892868%_ - (lambda (_%hd-rest92803%_ _%hd92804%_) - (if (keyword? _%hd92804%_) - (let* ((_%hd-rest9280692813%_ _%hd-rest92803%_) - (_%E9280892817%_ + (##apply _%K93906%_ __tmp94180))) + (_%K93906%_ _%keys93909%_)))) + (_%K9392094000%_ + (lambda (_%hd-rest93935%_ _%hd93936%_) + (if (keyword? _%hd93936%_) + (let* ((_%hd-rest9393893945%_ _%hd-rest93935%_) + (_%E9394093949%_ (lambda () (error '"No clause matching" - _%hd-rest9280692813%_ + _%hd-rest9393893945%_ '([val . rest])) '#!void)) - (_%K9280992825%_ - (lambda (_%rest92820%_ _%val92821%_) - (if _%kwt92773%_ - (let ((_%pos92823%_ - (let ((__tmp93050 + (_%K9394193957%_ + (lambda (_%rest93952%_ _%val93953%_) + (if _%kwt93905%_ + (let ((_%pos93955%_ + (let ((__tmp94182 (let () (declare (not safe)) (##keyword-hash - _%hd92804%_))) - (__tmp93049 + _%hd93936%_))) + (__tmp94181 (let () (declare (not safe)) (##vector-length - _%kwt92773%_)))) + _%kwt93905%_)))) (declare (not safe)) (##fxmodulo - __tmp93050 - __tmp93049)))) - (if (eq? _%hd92804%_ + __tmp94182 + __tmp94181)))) + (if (eq? _%hd93936%_ (let () (declare (not safe)) (##vector-ref - _%kwt92773%_ - _%pos92823%_))) + _%kwt93905%_ + _%pos93955%_))) '#!void (error '"Unexpected keyword argument" - _%K92774%_ - _%hd92804%_))) + _%K93906%_ + _%hd93936%_))) '#!void) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%keys92777%_ - _%hd92804%_ + _%keys93909%_ + _%hd93936%_ absent-value)) absent-value) '#!void (error '"Duplicate keyword argument" - _%K92774%_ - _%hd92804%_)) + _%K93906%_ + _%hd93936%_)) (let () (declare (not safe)) (symbolic-table-set! - _%keys92777%_ - _%hd92804%_ - _%val92821%_)) - (_%lp92779%_ - _%rest92820%_ - _%args92782%_ - _%tail92783%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd-rest9280692813%_)) - (let ((_%hd9281092828%_ + _%keys93909%_ + _%hd93936%_ + _%val93953%_)) + (_%lp93911%_ + _%rest93952%_ + _%args93914%_ + _%tail93915%_)))) + (if (pair? _%hd-rest9393893945%_) + (let ((_%hd9394293960%_ (let () (declare (not safe)) - (##car _%hd-rest9280692813%_))) - (_%tl9281192830%_ + (##car _%hd-rest9393893945%_))) + (_%tl9394393962%_ (let () (declare (not safe)) - (##cdr _%hd-rest9280692813%_)))) - (let* ((_%val92833%_ _%hd9281092828%_) - (_%rest92835%_ _%tl9281192830%_)) - (_%K9280992825%_ - _%rest92835%_ - _%val92833%_))) - (_%E9280892817%_))) - (if (eq? _%hd92804%_ '#!key) - (let* ((_%hd-rest9283792844%_ _%hd-rest92803%_) - (_%E9283992848%_ + (##cdr _%hd-rest9393893945%_)))) + (let* ((_%val93965%_ _%hd9394293960%_) + (_%rest93967%_ _%tl9394393962%_)) + (_%K9394193957%_ + _%rest93967%_ + _%val93965%_))) + (_%E9394093949%_))) + (if (eq? _%hd93936%_ '#!key) + (let* ((_%hd-rest9396993976%_ _%hd-rest93935%_) + (_%E9397193980%_ (lambda () (error '"No clause matching" - _%hd-rest9283792844%_ + _%hd-rest9396993976%_ '([val . rest])) '#!void)) - (_%K9284092854%_ - (lambda (_%rest92851%_ _%val92852%_) - (if _%args92782%_ + (_%K9397293986%_ + (lambda (_%rest93983%_ _%val93984%_) + (if _%args93914%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail92783%_ - _%hd-rest92803%_)) - (_%lp92779%_ - _%rest92851%_ - _%args92782%_ - _%hd-rest92803%_)) - (_%lp92779%_ - _%rest92851%_ - _%hd-rest92803%_ - _%hd-rest92803%_))))) - (if (let () - (declare (not safe)) - (##pair? _%hd-rest9283792844%_)) - (let ((_%hd9284192857%_ + _%tail93915%_ + _%hd-rest93935%_)) + (_%lp93911%_ + _%rest93983%_ + _%args93914%_ + _%hd-rest93935%_)) + (_%lp93911%_ + _%rest93983%_ + _%hd-rest93935%_ + _%hd-rest93935%_))))) + (if (pair? _%hd-rest9396993976%_) + (let ((_%hd9397393989%_ (let () (declare (not safe)) - (##car _%hd-rest9283792844%_))) - (_%tl9284292859%_ + (##car _%hd-rest9396993976%_))) + (_%tl9397493991%_ (let () (declare (not safe)) - (##cdr _%hd-rest9283792844%_)))) - (let* ((_%val92862%_ _%hd9284192857%_) - (_%rest92864%_ _%tl9284292859%_)) - (_%K9284092854%_ - _%rest92864%_ - _%val92862%_))) - (_%E9283992848%_))) - (if (eq? _%hd92804%_ '#!rest) - (if _%args92782%_ + (##cdr _%hd-rest9396993976%_)))) + (let* ((_%val93994%_ _%hd9397393989%_) + (_%rest93996%_ _%tl9397493991%_)) + (_%K9397293986%_ + _%rest93996%_ + _%val93994%_))) + (_%E9397193980%_))) + (if (eq? _%hd93936%_ '#!rest) + (if _%args93914%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail92783%_ - _%hd-rest92803%_)) - (let ((__tmp93051 - (cons _%keys92777%_ - _%args92782%_))) + _%tail93915%_ + _%hd-rest93935%_)) + (let ((__tmp94183 + (cons _%keys93909%_ + _%args93914%_))) (declare (not safe)) - (##apply _%K92774%_ __tmp93051))) - (let ((__tmp93052 - (cons _%keys92777%_ - _%hd-rest92803%_))) + (##apply _%K93906%_ __tmp94183))) + (let ((__tmp94184 + (cons _%keys93909%_ + _%hd-rest93935%_))) (declare (not safe)) - (##apply _%K92774%_ __tmp93052))) - (if _%args92782%_ + (##apply _%K93906%_ __tmp94184))) + (if _%args93914%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail92783%_ - _%rest92781%_)) - (_%lp92779%_ - _%hd-rest92803%_ - _%args92782%_ - _%rest92781%_)) - (_%lp92779%_ - _%hd-rest92803%_ - _%rest92781%_ - _%rest92781%_)))))))) - (if (let () (declare (not safe)) (##pair? _%rest9278492792%_)) - (let ((_%hd9278992871%_ + _%tail93915%_ + _%rest93913%_)) + (_%lp93911%_ + _%hd-rest93935%_ + _%args93914%_ + _%rest93913%_)) + (_%lp93911%_ + _%hd-rest93935%_ + _%rest93913%_ + _%rest93913%_)))))))) + (if (pair? _%rest9391693924%_) + (let ((_%hd9392194003%_ (let () (declare (not safe)) - (##car _%rest9278492792%_))) - (_%tl9279092873%_ + (##car _%rest9391693924%_))) + (_%tl9392294005%_ (let () (declare (not safe)) - (##cdr _%rest9278492792%_)))) - (let* ((_%hd92876%_ _%hd9278992871%_) - (_%hd-rest92878%_ _%tl9279092873%_)) - (_%K9278892868%_ _%hd-rest92878%_ _%hd92876%_))) - (_%else9278692800%_))))))) + (##cdr _%rest9391693924%_)))) + (let* ((_%hd94008%_ _%hd9392194003%_) + (_%hd-rest94010%_ _%tl9392294005%_)) + (_%K9392094000%_ _%hd-rest94010%_ _%hd94008%_))) + (_%else9391893932%_))))))) (define keyword-rest - (lambda (_%kwt92765%_ . _%drop92766%_) - (let ((_%rest92768%_ '())) - (let ((__tmp93053 - (lambda (_%k92770%_ _%v92771%_) + (lambda (_%kwt93897%_ . _%drop93898%_) + (let ((_%rest93900%_ '())) + (let ((__tmp94185 + (lambda (_%k93902%_ _%v93903%_) (if (let () (declare (not safe)) - (##memq _%k92770%_ _%drop92766%_)) + (##memq _%k93902%_ _%drop93898%_)) '#!void - (set! _%rest92768%_ - (cons _%k92770%_ - (cons _%v92771%_ _%rest92768%_))))))) + (set! _%rest93900%_ + (cons _%k93902%_ + (cons _%v93903%_ _%rest93900%_))))))) (declare (not safe)) - (raw-table-for-each _%kwt92765%_ __tmp93053)) - _%rest92768%_))))) + (raw-table-for-each _%kwt93897%_ __tmp94185)) + _%rest93900%_))))) diff --git a/src/bootstrap/gerbil/runtime/error~0.scm b/src/bootstrap/gerbil/runtime/error~0.scm index e4c62c977..d88a1c9ad 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 1713454409) + (define gerbil/runtime/error::timestamp 1713631265) (begin (define Exception::t - (let ((__tmp102733 (list))) + (let ((__tmp103865 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp102733 + __tmp103865 '() '() '#f))) (define Exception? (let () (declare (not safe)) (__make-class-predicate Exception::t))) (define make-Exception - (lambda _%$args102703%_ - (apply make-instance Exception::t _%$args102703%_))) + (lambda _%$args103835%_ + (apply make-instance Exception::t _%$args103835%_))) (define StackTrace::t - (let ((__tmp102734 (list))) + (let ((__tmp103866 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp102734 + __tmp103866 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (__make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _%$args102700%_ - (apply make-instance StackTrace::t _%$args102700%_))) + (lambda _%$args103832%_ + (apply make-instance StackTrace::t _%$args103832%_))) (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 ((__tmp102735 (list StackTrace::t Exception::t))) + (let ((__tmp103867 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp102735 + __tmp103867 '(message irritants where) '((transparent: . #t)) ':init!))) (define Error? (let () (declare (not safe)) (__make-class-predicate Error::t))) (define make-Error - (lambda _%$args102697%_ (apply make-instance Error::t _%$args102697%_))) + (lambda _%$args103829%_ (apply make-instance Error::t _%$args103829%_))) (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 ((__tmp102736 (list Error::t))) + (let ((__tmp103868 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#ContractViolation::t 'ContractViolation - __tmp102736 + __tmp103868 '() '() '#f))) @@ -141,8 +141,8 @@ (declare (not safe)) (__make-class-predicate ContractViolation::t))) (define make-ContractViolation - (lambda _%$args102694%_ - (apply make-instance ContractViolation::t _%$args102694%_))) + (lambda _%$args103826%_ + (apply make-instance ContractViolation::t _%$args103826%_))) (define ContractViolation-message (let () (declare (not safe)) @@ -214,12 +214,12 @@ ContractViolation::t 'continuation))) (define RuntimeException::t - (let ((__tmp102737 (list StackTrace::t Exception::t))) + (let ((__tmp103869 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp102737 + __tmp103869 '(exception) '((transparent: . #t)) '#f))) @@ -228,8 +228,8 @@ (declare (not safe)) (__make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _%$args102691%_ - (apply make-instance RuntimeException::t _%$args102691%_))) + (lambda _%$args103823%_ + (apply make-instance RuntimeException::t _%$args103823%_))) (define RuntimeException-exception (let () (declare (not safe)) @@ -267,118 +267,118 @@ RuntimeException::t 'continuation))) (define gerbil-exception-handler-hook - (lambda (_%exn102686%_ _%continue102687%_) - (let ((_%exn102689%_ (wrap-runtime-exception _%exn102686%_))) + (lambda (_%exn103818%_ _%continue103819%_) + (let ((_%exn103821%_ (wrap-runtime-exception _%exn103818%_))) (declare (not safe)) - (##repl-exception-handler-hook _%exn102689%_ _%continue102687%_)))) + (##repl-exception-handler-hook _%exn103821%_ _%continue103819%_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_%exn102682%_) + (lambda (_%exn103814%_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn102682%_)) + (class-instance? StackTrace::t _%exn103814%_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _%exn102682%_ 'continuation)) + (unchecked-slot-ref _%exn103814%_ 'continuation)) '#!void - (let ((__tmp102738 - (lambda (_%cont102684%_) + (let ((__tmp103870 + (lambda (_%cont103816%_) (let () (declare (not safe)) (unchecked-slot-set! - _%exn102682%_ + _%exn103814%_ 'continuation - _%cont102684%_))))) + _%cont103816%_))))) (declare (not safe)) - (##continuation-capture __tmp102738))) + (##continuation-capture __tmp103870))) '#!void) - (let () (declare (not safe)) (##raise _%exn102682%_)))) + (let () (declare (not safe)) (##raise _%exn103814%_)))) (define error - (lambda (_%message102679%_ . _%irritants102680%_) - (raise (let ((__obj102730 + (lambda (_%message103811%_ . _%irritants103812%_) + (raise (let ((__obj103862 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj102730 - _%message102679%_ + __obj103862 + _%message103811%_ 'irritants: - _%irritants102680%_) - __obj102730)))) + _%irritants103812%_) + __obj103862)))) (define __raise-contract-violation-error__% - (lambda (_%@@keywords102651%_ - _%ctx102646102652%_ - _%contract-expr102647102654%_ - _%value102648102656%_ - _%message102658%_) - (let* ((_%ctx102660%_ - (if (eq? _%ctx102646102652%_ absent-value) + (lambda (_%@@keywords103783%_ + _%ctx103778103784%_ + _%contract-expr103779103786%_ + _%value103780103788%_ + _%message103790%_) + (let* ((_%ctx103792%_ + (if (eq? _%ctx103778103784%_ absent-value) '#f - _%ctx102646102652%_)) - (_%contract-expr102662%_ - (if (eq? _%contract-expr102647102654%_ absent-value) + _%ctx103778103784%_)) + (_%contract-expr103794%_ + (if (eq? _%contract-expr103779103786%_ absent-value) '#f - _%contract-expr102647102654%_)) - (_%value102664%_ - (if (eq? _%value102648102656%_ absent-value) + _%contract-expr103779103786%_)) + (_%value103796%_ + (if (eq? _%value103780103788%_ absent-value) '#f - _%value102648102656%_))) - (raise (let ((__obj102731 + _%value103780103788%_))) + (raise (let ((__obj103863 (let () (declare (not safe)) (##structure ContractViolation::t '#f '#f '#f '#f)))) (ContractViolation:::init! - __obj102731 - _%message102658%_ + __obj103863 + _%message103790%_ 'where: - _%ctx102660%_ + _%ctx103792%_ 'irritants: (cons 'contract: - (cons _%contract-expr102662%_ - (cons 'value: (cons _%value102664%_ '()))))) - __obj102731))))) + (cons _%contract-expr103794%_ + (cons 'value: (cons _%value103796%_ '()))))) + __obj103863))))) (define __raise-contract-violation-error__@ - (lambda (_%@@keywords102669%_ . _%args102670%_) + (lambda (_%@@keywords103801%_ . _%args103802%_) (apply __raise-contract-violation-error__% - _%@@keywords102669%_ + _%@@keywords103801%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords102669%_ + _%@@keywords103801%_ 'context: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords102669%_ + _%@@keywords103801%_ 'contract: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords102669%_ + _%@@keywords103801%_ 'value: absent-value)) - _%args102670%_))) + _%args103802%_))) (define __raise-contract-violation-error - (lambda _%args102649102676%_ + (lambda _%args103781103808%_ (apply keyword-dispatch '#(context: #f value: contract:) __raise-contract-violation-error__@ - _%args102649102676%_))) + _%args103781103808%_))) (set! raise-contract-violation-error __raise-contract-violation-error) (define contract-violation-error? ContractViolation?) (define with-exception-handler - (lambda (_%handler102620%_ _%thunk102621%_) - (if (procedure? _%handler102620%_) - (let ((_%handler102625%_ _%handler102620%_)) - (if (procedure? _%thunk102621%_) - (let ((_%thunk102635%_ _%thunk102621%_)) + (lambda (_%handler103752%_ _%thunk103753%_) + (if (procedure? _%handler103752%_) + (let ((_%handler103757%_ _%handler103752%_)) + (if (procedure? _%thunk103753%_) + (let ((_%thunk103767%_ _%thunk103753%_)) (__with-exception-handler - _%handler102625%_ - _%thunk102635%_)) + _%handler103757%_ + _%thunk103767%_)) (begin (raise-contract-violation-error '"contract violation" @@ -387,7 +387,7 @@ 'contract: 'procedure? 'value: - _%thunk102621%_) + _%thunk103753%_) '#!void))) (begin (raise-contract-violation-error @@ -397,26 +397,26 @@ 'contract: 'procedure? 'value: - _%handler102620%_) + _%handler103752%_) '#!void)))) (define __with-exception-handler - (lambda (_%handler102595%_ _%thunk102596%_) - (let* ((_%handler102599%_ _%handler102595%_) - (_%thunk102607%_ _%thunk102596%_) - (__tmp102739 - (lambda (_%exn102616%_) - (let ((_%exn102618%_ (wrap-runtime-exception _%exn102616%_))) + (lambda (_%handler103727%_ _%thunk103728%_) + (let* ((_%handler103731%_ _%handler103727%_) + (_%thunk103739%_ _%thunk103728%_) + (__tmp103871 + (lambda (_%exn103748%_) + (let ((_%exn103750%_ (wrap-runtime-exception _%exn103748%_))) (declare (not safe)) - (_%handler102599%_ _%exn102618%_))))) + (_%handler103731%_ _%exn103750%_))))) (declare (not safe)) - (##with-exception-handler __tmp102739 _%thunk102607%_)))) + (##with-exception-handler __tmp103871 _%thunk103739%_)))) (define with-catch - (lambda (_%handler102570%_ _%thunk102571%_) - (if (procedure? _%handler102570%_) - (let ((_%handler102575%_ _%handler102570%_)) - (if (procedure? _%thunk102571%_) - (let ((_%thunk102585%_ _%thunk102571%_)) - (__with-catch _%handler102575%_ _%thunk102585%_)) + (lambda (_%handler103702%_ _%thunk103703%_) + (if (procedure? _%handler103702%_) + (let ((_%handler103707%_ _%handler103702%_)) + (if (procedure? _%thunk103703%_) + (let ((_%thunk103717%_ _%thunk103703%_)) + (__with-catch _%handler103707%_ _%thunk103717%_)) (begin (raise-contract-violation-error '"contract violation" @@ -425,7 +425,7 @@ 'contract: 'procedure? 'value: - _%thunk102571%_) + _%thunk103703%_) '#!void))) (begin (raise-contract-violation-error @@ -435,38 +435,38 @@ 'contract: 'procedure? 'value: - _%handler102570%_) + _%handler103702%_) '#!void)))) (define __with-catch - (lambda (_%handler102545%_ _%thunk102546%_) - (let* ((_%handler102549%_ _%handler102545%_) - (_%thunk102557%_ _%thunk102546%_) - (__tmp102740 - (lambda (_%cont102566%_) + (lambda (_%handler103677%_ _%thunk103678%_) + (let* ((_%handler103681%_ _%handler103677%_) + (_%thunk103689%_ _%thunk103678%_) + (__tmp103872 + (lambda (_%cont103698%_) (__with-exception-handler - (lambda (_%exn102568%_) + (lambda (_%exn103700%_) (let () (declare (not safe)) (##continuation-graft - _%cont102566%_ - _%handler102549%_ - _%exn102568%_))) - _%thunk102557%_)))) + _%cont103698%_ + _%handler103681%_ + _%exn103700%_))) + _%thunk103689%_)))) (declare (not safe)) - (##continuation-capture __tmp102740)))) + (##continuation-capture __tmp103872)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_%exn102532%_) - (if (or (heap-overflow-exception? _%exn102532%_) - (stack-overflow-exception? _%exn102532%_)) - _%exn102532%_ + (lambda (_%exn103664%_) + (if (or (heap-overflow-exception? _%exn103664%_) + (stack-overflow-exception? _%exn103664%_)) + _%exn103664%_ (if (let () (declare (not safe)) - (class-instance? Exception::t _%exn102532%_)) - _%exn102532%_ - (if (macro-exception? _%exn102532%_) - (let ((_%rte102540%_ - (let ((__obj102732 + (class-instance? Exception::t _%exn103664%_)) + _%exn103664%_ + (if (macro-exception? _%exn103664%_) + (let ((_%rte103672%_ + (let ((__obj103864 (let () (declare (not safe)) (##structure @@ -476,141 +476,141 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102732 - _%exn102532%_ + __obj103864 + _%exn103664%_ '2 '#f '#f)) - __obj102732))) - (let ((__tmp102741 - (lambda (_%cont102542%_) - (let ((__tmp102742 + __obj103864))) + (let ((__tmp103873 + (lambda (_%cont103674%_) + (let ((__tmp103874 (let () (declare (not safe)) - (##continuation-next _%cont102542%_)))) + (##continuation-next _%cont103674%_)))) (declare (not safe)) (unchecked-slot-set! - _%rte102540%_ + _%rte103672%_ 'continuation - __tmp102742))))) + __tmp103874))))) (declare (not safe)) - (##continuation-capture __tmp102741)) - _%rte102540%_) - _%exn102532%_))))) + (##continuation-capture __tmp103873)) + _%rte103672%_) + _%exn103664%_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_%obj102527%_) - (let ((_%$e102529%_ + (lambda (_%obj103659%_) + (let ((_%$e103661%_ (let () (declare (not safe)) - (class-instance? Error::t _%obj102527%_)))) - (if _%$e102529%_ _%$e102529%_ (error-exception? _%obj102527%_))))) + (class-instance? Error::t _%obj103659%_)))) + (if _%$e103661%_ _%$e103661%_ (error-exception? _%obj103659%_))))) (define error-message - (lambda (_%obj102520%_) - (let ((_%$e102522%_ + (lambda (_%obj103652%_) + (let ((_%$e103654%_ (let () (declare (not safe)) - (__slot-ref__% _%obj102520%_ 'message false)))) - (if _%$e102522%_ - _%$e102522%_ - (if (error-exception? _%obj102520%_) - (error-exception-message _%obj102520%_) + (__slot-ref__% _%obj103652%_ 'message false)))) + (if _%$e103654%_ + _%$e103654%_ + (if (error-exception? _%obj103652%_) + (error-exception-message _%obj103652%_) '#f))))) (define error-irritants - (lambda (_%obj102515%_) + (lambda (_%obj103647%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj102515%_)) + (class-instance? Error::t _%obj103647%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj102515%_ 'irritants)) - (if (error-exception? _%obj102515%_) - (error-exception-parameters _%obj102515%_) + (unchecked-slot-ref _%obj103647%_ 'irritants)) + (if (error-exception? _%obj103647%_) + (error-exception-parameters _%obj103647%_) '#f)))) (define error-trace - (lambda (_%obj102513%_) + (lambda (_%obj103645%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj102513%_)) + (class-instance? Error::t _%obj103645%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj102513%_ 'where)) + (unchecked-slot-ref _%obj103645%_ 'where)) '#f))) (define display-exception__% - (lambda (_%e102494%_ _%port102495%_) - (let ((_%$e102497%_ + (lambda (_%e103626%_ _%port103627%_) + (let ((_%$e103629%_ (let () (declare (not safe)) - (__method-ref _%e102494%_ 'display-exception)))) - (if _%$e102497%_ - ((lambda (_%f102500%_) (_%f102500%_ _%e102494%_ _%port102495%_)) - _%$e102497%_) + (__method-ref _%e103626%_ 'display-exception)))) + (if _%$e103629%_ + ((lambda (_%f103632%_) (_%f103632%_ _%e103626%_ _%port103627%_)) + _%$e103629%_) (let () (declare (not safe)) - (##default-display-exception _%e102494%_ _%port102495%_)))))) + (##default-display-exception _%e103626%_ _%port103627%_)))))) (define display-exception__0 - (lambda (_%e102506%_) - (let ((_%port102508%_ (current-error-port))) - (display-exception__% _%e102506%_ _%port102508%_)))) + (lambda (_%e103638%_) + (let ((_%port103640%_ (current-error-port))) + (display-exception__% _%e103638%_ _%port103640%_)))) (define display-exception - (lambda _g102744_ - (let ((_g102743_ (let () (declare (not safe)) (##length _g102744_)))) - (cond ((let () (declare (not safe)) (##fx= _g102743_ 1)) - (apply display-exception__0 _g102744_)) - ((let () (declare (not safe)) (##fx= _g102743_ 2)) - (apply display-exception__% _g102744_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g102744_)))))) + _g103876_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_%self100863102470%_ _%message102472%_ . _%rest102473%_) - (let* ((_%self102475%_ _%self100863102470%_) - (_%self102477%_ _%self102475%_) - (_%message102491%_ - (if (string? _%message102472%_) - _%message102472%_ + (lambda (_%self101995103602%_ _%message103604%_ . _%rest103605%_) + (let* ((_%self103607%_ _%self101995103602%_) + (_%self103609%_ _%self103607%_) + (_%message103623%_ + (if (string? _%message103604%_) + _%message103604%_ (call-with-output-string '"" - (lambda (_%g102486102488%_) - (display _%message102472%_ _%g102486102488%_)))))) + (lambda (_%g103618103620%_) + (display _%message103604%_ _%g103618103620%_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _%self102477%_ 'message _%message102491%_)) - (apply class-instance-init! _%self102477%_ _%rest102473%_)))) + (unchecked-slot-set! _%self103609%_ 'message _%message103623%_)) + (apply class-instance-init! _%self103609%_ _%rest103605%_)))) (define Error:::init!::specialize - (lambda (__klass102705 __method-table102706) - (let ((__message102707 - (let ((__slot102708 + (lambda (__klass103837 __method-table103838) + (let ((__message103839 + (let ((__slot103840 (let () (declare (not safe)) - (class-slot-offset __klass102705 'message)))) - (if __slot102708 - __slot102708 + (class-slot-offset __klass103837 'message)))) + (if __slot103840 + __slot103840 (error '"Unknown slot" 'message))))) - (lambda (_%self100863102470%_ _%message102472%_ . _%rest102473%_) - (let* ((_%self102475%_ _%self100863102470%_) - (_%self102477%_ _%self102475%_) - (_%message102491%_ - (if (string? _%message102472%_) - _%message102472%_ + (lambda (_%self101995103602%_ _%message103604%_ . _%rest103605%_) + (let* ((_%self103607%_ _%self101995103602%_) + (_%self103609%_ _%self103607%_) + (_%message103623%_ + (if (string? _%message103604%_) + _%message103604%_ (call-with-output-string '"" - (lambda (_%g102486102488%_) - (display _%message102472%_ _%g102486102488%_)))))) + (lambda (_%g103618103620%_) + (display _%message103604%_ _%g103618103620%_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self102477%_ - _%message102491%_ - __message102707 + _%self103609%_ + _%message103623%_ + __message103839 '#f '#f)) - (apply class-instance-init! _%self102477%_ _%rest102473%_)))))) + (apply class-instance-init! _%self103609%_ _%rest103605%_)))))) (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 (_%self100864102192%_ _%port102194%_) - (let* ((_%self102196%_ _%self100864102192%_) - (_%self102198%_ _%self102196%_)) - (let ((_%tmp-port102208%_ (open-output-string)) - (_%display-error-newline102209%_ - (> (output-port-column _%port102194%_) '0))) - (fix-port-width! _%tmp-port102208%_) - (let ((__tmp102745 + (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 () - (if _%display-error-newline102209%_ (newline) '#!void) + (if _%display-error-newline103341%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e102212%_ + (let ((_%$e103344%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self102198%_ 'where)))) - (if _%$e102212%_ (display _%$e102212%_) (display '"?"))) - (let ((__tmp102746 - (let ((__tmp102747 + (unchecked-slot-ref _%self103330%_ 'where)))) + (if _%$e103344%_ (display _%$e103344%_) (display '"?"))) + (let ((__tmp103878 + (let ((__tmp103879 (let () (declare (not safe)) - (object-type _%self102198%_)))) + (object-type _%self103330%_)))) (declare (not safe)) - (##type-name __tmp102747)))) + (##type-name __tmp103879)))) (declare (not safe)) - (display* '" [" __tmp102746 '"]: ")) - (let ((__tmp102748 + (display* '" [" __tmp103878 '"]: ")) + (let ((__tmp103880 (let () (declare (not safe)) - (unchecked-slot-ref _%self102198%_ 'message)))) + (unchecked-slot-ref _%self103330%_ 'message)))) (declare (not safe)) - (displayln __tmp102748)) - (let ((_%irritants102216%_ + (displayln __tmp103880)) + (let ((_%irritants103348%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self102198%_ 'irritants)))) - (if (null? _%irritants102216%_) + (unchecked-slot-ref _%self103330%_ 'irritants)))) + (if (null? _%irritants103348%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj102218%_) - (if (u8vector? _%obj102218%_) - (let ((__tmp102749 + (lambda (_%obj103350%_) + (if (u8vector? _%obj103350%_) + (let ((__tmp103881 (cons ' (cons (let () (declare (not safe)) (##u8vector-length - _%obj102218%_)) + _%obj103350%_)) '())))) (declare (not safe)) - (##write __tmp102749)) + (##write __tmp103881)) (let () (declare (not safe)) - (##write _%obj102218%_))) + (##write _%obj103350%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants102216%_) + _%irritants103348%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont102219102221%_ + (let ((_%cont103351103353%_ (let () (declare (not safe)) (unchecked-slot-ref - _%self102198%_ + _%self103330%_ 'continuation)))) - (if _%cont102219102221%_ - (let ((_%cont102224%_ _%cont102219102221%_)) + (if _%cont103351103353%_ + (let ((_%cont103356%_ _%cont103351103353%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont102224%_)) + _%cont103356%_)) '#f)) '#!void)))) (declare (not safe)) (__call-with-parameters - __tmp102745 + __tmp103877 current-output-port - _%tmp-port102208%_)) - (let ((__tmp102750 (get-output-string _%tmp-port102208%_))) + _%tmp-port103340%_)) + (let ((__tmp103882 (get-output-string _%tmp-port103340%_))) (declare (not safe)) - (##write-string __tmp102750 _%port102194%_)))))) + (##write-string __tmp103882 _%port103326%_)))))) (define Error::display-exception::specialize - (lambda (__klass102709 __method-table102710) - (let ((__continuation102711 - (let ((__slot102715 + (lambda (__klass103841 __method-table103842) + (let ((__where103843 + (let ((__slot103847 (let () (declare (not safe)) - (class-slot-offset __klass102709 'continuation)))) - (if __slot102715 - __slot102715 - (error '"Unknown slot" 'continuation)))) - (__message102712 - (let ((__slot102716 + (class-slot-offset __klass103841 'where)))) + (if __slot103847 + __slot103847 + (error '"Unknown slot" 'where)))) + (__irritants103844 + (let ((__slot103848 (let () (declare (not safe)) - (class-slot-offset __klass102709 'message)))) - (if __slot102716 - __slot102716 - (error '"Unknown slot" 'message)))) - (__irritants102713 - (let ((__slot102717 + (class-slot-offset __klass103841 'irritants)))) + (if __slot103848 + __slot103848 + (error '"Unknown slot" 'irritants)))) + (__continuation103845 + (let ((__slot103849 (let () (declare (not safe)) - (class-slot-offset __klass102709 'irritants)))) - (if __slot102717 - __slot102717 - (error '"Unknown slot" 'irritants)))) - (__where102714 - (let ((__slot102718 + (class-slot-offset __klass103841 'continuation)))) + (if __slot103849 + __slot103849 + (error '"Unknown slot" 'continuation)))) + (__message103846 + (let ((__slot103850 (let () (declare (not safe)) - (class-slot-offset __klass102709 'where)))) - (if __slot102718 - __slot102718 - (error '"Unknown slot" 'where))))) - (lambda (_%self100864102192%_ _%port102194%_) - (let* ((_%self102196%_ _%self100864102192%_) - (_%self102198%_ _%self102196%_)) - (let ((_%tmp-port102208%_ (open-output-string)) - (_%display-error-newline102209%_ - (> (output-port-column _%port102194%_) '0))) - (fix-port-width! _%tmp-port102208%_) - (let ((__tmp102751 + (class-slot-offset __klass103841 'message)))) + (if __slot103850 + __slot103850 + (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 () - (if _%display-error-newline102209%_ (newline) '#!void) + (if _%display-error-newline103341%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e102212%_ + (let ((_%$e103344%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self102198%_ - __where102714 + _%self103330%_ + __where103843 '#f '#f)))) - (if _%$e102212%_ - (display _%$e102212%_) + (if _%$e103344%_ + (display _%$e103344%_) (display '"?"))) - (let ((__tmp102752 - (let ((__tmp102753 + (let ((__tmp103884 + (let ((__tmp103885 (let () (declare (not safe)) - (object-type _%self102198%_)))) + (object-type _%self103330%_)))) (declare (not safe)) - (##type-name __tmp102753)))) + (##type-name __tmp103885)))) (declare (not safe)) - (display* '" [" __tmp102752 '"]: ")) - (let ((__tmp102754 + (display* '" [" __tmp103884 '"]: ")) + (let ((__tmp103886 (let () (declare (not safe)) (##unchecked-structure-ref - _%self102198%_ - __message102712 + _%self103330%_ + __message103846 '#f '#f)))) (declare (not safe)) - (displayln __tmp102754)) - (let ((_%irritants102216%_ + (displayln __tmp103886)) + (let ((_%irritants103348%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self102198%_ - __irritants102713 + _%self103330%_ + __irritants103844 '#f '#f)))) - (if (null? _%irritants102216%_) + (if (null? _%irritants103348%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj102218%_) - (if (u8vector? _%obj102218%_) - (let ((__tmp102755 + (lambda (_%obj103350%_) + (if (u8vector? _%obj103350%_) + (let ((__tmp103887 (cons ' (cons (let () (declare (not safe)) (##u8vector-length - _%obj102218%_)) + _%obj103350%_)) '())))) (declare (not safe)) - (##write __tmp102755)) + (##write __tmp103887)) (let () (declare (not safe)) - (##write _%obj102218%_))) + (##write _%obj103350%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants102216%_) + _%irritants103348%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont102219102221%_ + (let ((_%cont103351103353%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self102198%_ - __continuation102711 + _%self103330%_ + __continuation103845 '#f '#f)))) - (if _%cont102219102221%_ - (let ((_%cont102224%_ _%cont102219102221%_)) + (if _%cont103351103353%_ + (let ((_%cont103356%_ _%cont103351103353%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont102224%_)) + _%cont103356%_)) '#f)) '#!void)))) (declare (not safe)) (__call-with-parameters - __tmp102751 + __tmp103883 current-output-port - _%tmp-port102208%_)) - (let ((__tmp102756 (get-output-string _%tmp-port102208%_))) + _%tmp-port103340%_)) + (let ((__tmp103888 (get-output-string _%tmp-port103340%_))) (declare (not safe)) - (##write-string __tmp102756 _%port102194%_)))))))) + (##write-string __tmp103888 _%port103326%_)))))))) (let () (declare (not safe)) (bind-specializer! @@ -858,90 +858,90 @@ Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_%self100865102046%_ _%port102048%_) - (let* ((_%self102050%_ _%self100865102046%_) - (_%self102052%_ _%self102050%_) - (_%tmp-port102062%_ (open-output-string))) - (fix-port-width! _%tmp-port102062%_) - (let ((__tmp102757 + (lambda (_%self101997103178%_ _%port103180%_) + (let* ((_%self103182%_ _%self101997103178%_) + (_%self103184%_ _%self103182%_) + (_%tmp-port103194%_ (open-output-string))) + (fix-port-width! _%tmp-port103194%_) + (let ((__tmp103889 (let () (declare (not safe)) - (unchecked-slot-ref _%self102052%_ 'exception)))) + (unchecked-slot-ref _%self103184%_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp102757 _%tmp-port102062%_)) + (##default-display-exception __tmp103889 _%tmp-port103194%_)) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont102063102065%_ + (let ((_%cont103195103197%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self102052%_ 'continuation)))) - (if _%cont102063102065%_ - (let ((_%cont102068%_ _%cont102063102065%_)) + (unchecked-slot-ref _%self103184%_ 'continuation)))) + (if _%cont103195103197%_ + (let ((_%cont103200%_ _%cont103195103197%_)) (display '"--- continuation backtrace:" - _%tmp-port102062%_) - (newline _%tmp-port102062%_) + _%tmp-port103194%_) + (newline _%tmp-port103194%_) (display-continuation-backtrace - _%cont102068%_ - _%tmp-port102062%_)) + _%cont103200%_ + _%tmp-port103194%_)) '#f)) '#!void) - (let ((__tmp102758 (get-output-string _%tmp-port102062%_))) + (let ((__tmp103890 (get-output-string _%tmp-port103194%_))) (declare (not safe)) - (##write-string __tmp102758 _%port102048%_))))) + (##write-string __tmp103890 _%port103180%_))))) (define RuntimeException::display-exception::specialize - (lambda (__klass102719 __method-table102720) - (let ((__exception102721 - (let ((__slot102723 + (lambda (__klass103851 __method-table103852) + (let ((__continuation103853 + (let ((__slot103855 (let () (declare (not safe)) - (class-slot-offset __klass102719 'exception)))) - (if __slot102723 - __slot102723 - (error '"Unknown slot" 'exception)))) - (__continuation102722 - (let ((__slot102724 + (class-slot-offset __klass103851 'continuation)))) + (if __slot103855 + __slot103855 + (error '"Unknown slot" 'continuation)))) + (__exception103854 + (let ((__slot103856 (let () (declare (not safe)) - (class-slot-offset __klass102719 'continuation)))) - (if __slot102724 - __slot102724 - (error '"Unknown slot" 'continuation))))) - (lambda (_%self100865102046%_ _%port102048%_) - (let* ((_%self102050%_ _%self100865102046%_) - (_%self102052%_ _%self102050%_) - (_%tmp-port102062%_ (open-output-string))) - (fix-port-width! _%tmp-port102062%_) - (let ((__tmp102759 + (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 (let () (declare (not safe)) (##unchecked-structure-ref - _%self102052%_ - __exception102721 + _%self103184%_ + __exception103854 '#f '#f)))) (declare (not safe)) - (##default-display-exception __tmp102759 _%tmp-port102062%_)) + (##default-display-exception __tmp103891 _%tmp-port103194%_)) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont102063102065%_ + (let ((_%cont103195103197%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self102052%_ - __continuation102722 + _%self103184%_ + __continuation103853 '#f '#f)))) - (if _%cont102063102065%_ - (let ((_%cont102068%_ _%cont102063102065%_)) + (if _%cont103195103197%_ + (let ((_%cont103200%_ _%cont103195103197%_)) (display '"--- continuation backtrace:" - _%tmp-port102062%_) - (newline _%tmp-port102062%_) + _%tmp-port103194%_) + (newline _%tmp-port103194%_) (display-continuation-backtrace - _%cont102068%_ - _%tmp-port102062%_)) + _%cont103200%_ + _%tmp-port103194%_)) '#f)) '#!void) - (let ((__tmp102760 (get-output-string _%tmp-port102062%_))) + (let ((__tmp103892 (get-output-string _%tmp-port103194%_))) (declare (not safe)) - (##write-string __tmp102760 _%port102048%_))))))) + (##write-string __tmp103892 _%port103180%_))))))) (let () (declare (not safe)) (bind-specializer! @@ -955,2636 +955,2636 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_%port101918%_) - (if (macro-character-port? _%port101918%_) - (let ((_%old-width101920%_ - (macro-character-port-output-width _%port101918%_))) + (lambda (_%port103050%_) + (if (macro-character-port? _%port103050%_) + (let ((_%old-width103052%_ + (macro-character-port-output-width _%port103050%_))) (macro-character-port-output-width-set! - _%port101918%_ - (lambda (_%port101922%_) '256)) - _%old-width101920%_) + _%port103050%_ + (lambda (_%port103054%_) '256)) + _%old-width103052%_) '#!void))) (define reset-port-width! - (lambda (_%port101915%_ _%old-width101916%_) - (if (macro-character-port? _%port101915%_) + (lambda (_%port103047%_ _%old-width103048%_) + (if (macro-character-port? _%port103047%_) (macro-character-port-output-width-set! - _%port101915%_ - _%old-width101916%_) + _%port103047%_ + _%old-width103048%_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_%e101913%_) - (macro-readenv-filepos (datum-parsing-exception-readenv _%e101913%_)))) + (lambda (_%e103045%_) + (macro-readenv-filepos (datum-parsing-exception-readenv _%e103045%_)))) (define abandoned-mutex-exception? - (lambda (_%exn101907%_) + (lambda (_%exn103039%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101907%_)) - (let ((_%e101910%_ + (class-instance? RuntimeException::t _%exn103039%_)) + (let ((_%e103042%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101907%_ 'exception)))) - (macro-abandoned-mutex-exception? _%e101910%_)) - (macro-abandoned-mutex-exception? _%exn101907%_)))) + (unchecked-slot-ref _%exn103039%_ 'exception)))) + (macro-abandoned-mutex-exception? _%e103042%_)) + (macro-abandoned-mutex-exception? _%exn103039%_)))) (define cfun-conversion-exception? - (lambda (_%exn101903%_) + (lambda (_%exn103035%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101903%_)) - (let ((_%e101905%_ + (class-instance? RuntimeException::t _%exn103035%_)) + (let ((_%e103037%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101903%_ 'exception)))) - (macro-cfun-conversion-exception? _%e101905%_)) - (macro-cfun-conversion-exception? _%exn101903%_)))) + (unchecked-slot-ref _%exn103035%_ 'exception)))) + (macro-cfun-conversion-exception? _%e103037%_)) + (macro-cfun-conversion-exception? _%exn103035%_)))) (define cfun-conversion-exception-arguments - (lambda (_%exn101899%_) + (lambda (_%exn103031%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101899%_)) - (let ((_%e101901%_ + (class-instance? RuntimeException::t _%exn103031%_)) + (let ((_%e103033%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101899%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e101901%_) - (macro-cfun-conversion-exception-arguments _%e101901%_) + (unchecked-slot-ref _%exn103031%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e103033%_) + (macro-cfun-conversion-exception-arguments _%e103033%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-arguments - (cons _%e101901%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn101899%_) - (macro-cfun-conversion-exception-arguments _%exn101899%_) + (cons _%e103033%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn103031%_) + (macro-cfun-conversion-exception-arguments _%exn103031%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-arguments - (cons _%exn101899%_ '()))))))) + (cons _%exn103031%_ '()))))))) (define cfun-conversion-exception-code - (lambda (_%exn101895%_) + (lambda (_%exn103027%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101895%_)) - (let ((_%e101897%_ + (class-instance? RuntimeException::t _%exn103027%_)) + (let ((_%e103029%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101895%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e101897%_) - (macro-cfun-conversion-exception-code _%e101897%_) + (unchecked-slot-ref _%exn103027%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e103029%_) + (macro-cfun-conversion-exception-code _%e103029%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-code - (cons _%e101897%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn101895%_) - (macro-cfun-conversion-exception-code _%exn101895%_) + (cons _%e103029%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn103027%_) + (macro-cfun-conversion-exception-code _%exn103027%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-code - (cons _%exn101895%_ '()))))))) + (cons _%exn103027%_ '()))))))) (define cfun-conversion-exception-message - (lambda (_%exn101891%_) + (lambda (_%exn103023%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101891%_)) - (let ((_%e101893%_ + (class-instance? RuntimeException::t _%exn103023%_)) + (let ((_%e103025%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101891%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e101893%_) - (macro-cfun-conversion-exception-message _%e101893%_) + (unchecked-slot-ref _%exn103023%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e103025%_) + (macro-cfun-conversion-exception-message _%e103025%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-message - (cons _%e101893%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn101891%_) - (macro-cfun-conversion-exception-message _%exn101891%_) + (cons _%e103025%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn103023%_) + (macro-cfun-conversion-exception-message _%exn103023%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-message - (cons _%exn101891%_ '()))))))) + (cons _%exn103023%_ '()))))))) (define cfun-conversion-exception-procedure - (lambda (_%exn101885%_) + (lambda (_%exn103017%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101885%_)) - (let ((_%e101888%_ + (class-instance? RuntimeException::t _%exn103017%_)) + (let ((_%e103020%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101885%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e101888%_) - (macro-cfun-conversion-exception-procedure _%e101888%_) + (unchecked-slot-ref _%exn103017%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e103020%_) + (macro-cfun-conversion-exception-procedure _%e103020%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-procedure - (cons _%e101888%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn101885%_) - (macro-cfun-conversion-exception-procedure _%exn101885%_) + (cons _%e103020%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn103017%_) + (macro-cfun-conversion-exception-procedure _%exn103017%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-procedure - (cons _%exn101885%_ '()))))))) + (cons _%exn103017%_ '()))))))) (define datum-parsing-exception? - (lambda (_%exn101881%_) + (lambda (_%exn103013%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101881%_)) - (let ((_%e101883%_ + (class-instance? RuntimeException::t _%exn103013%_)) + (let ((_%e103015%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101881%_ 'exception)))) - (macro-datum-parsing-exception? _%e101883%_)) - (macro-datum-parsing-exception? _%exn101881%_)))) + (unchecked-slot-ref _%exn103013%_ 'exception)))) + (macro-datum-parsing-exception? _%e103015%_)) + (macro-datum-parsing-exception? _%exn103013%_)))) (define datum-parsing-exception-kind - (lambda (_%exn101877%_) + (lambda (_%exn103009%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101877%_)) - (let ((_%e101879%_ + (class-instance? RuntimeException::t _%exn103009%_)) + (let ((_%e103011%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101877%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e101879%_) - (macro-datum-parsing-exception-kind _%e101879%_) + (unchecked-slot-ref _%exn103009%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e103011%_) + (macro-datum-parsing-exception-kind _%e103011%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-kind - (cons _%e101879%_ '()))))) - (if (macro-datum-parsing-exception? _%exn101877%_) - (macro-datum-parsing-exception-kind _%exn101877%_) + (cons _%e103011%_ '()))))) + (if (macro-datum-parsing-exception? _%exn103009%_) + (macro-datum-parsing-exception-kind _%exn103009%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-kind - (cons _%exn101877%_ '()))))))) + (cons _%exn103009%_ '()))))))) (define datum-parsing-exception-parameters - (lambda (_%exn101873%_) + (lambda (_%exn103005%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101873%_)) - (let ((_%e101875%_ + (class-instance? RuntimeException::t _%exn103005%_)) + (let ((_%e103007%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101873%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e101875%_) - (macro-datum-parsing-exception-parameters _%e101875%_) + (unchecked-slot-ref _%exn103005%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e103007%_) + (macro-datum-parsing-exception-parameters _%e103007%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-parameters - (cons _%e101875%_ '()))))) - (if (macro-datum-parsing-exception? _%exn101873%_) - (macro-datum-parsing-exception-parameters _%exn101873%_) + (cons _%e103007%_ '()))))) + (if (macro-datum-parsing-exception? _%exn103005%_) + (macro-datum-parsing-exception-parameters _%exn103005%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-parameters - (cons _%exn101873%_ '()))))))) + (cons _%exn103005%_ '()))))))) (define datum-parsing-exception-readenv - (lambda (_%exn101867%_) + (lambda (_%exn102999%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101867%_)) - (let ((_%e101870%_ + (class-instance? RuntimeException::t _%exn102999%_)) + (let ((_%e103002%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101867%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e101870%_) - (macro-datum-parsing-exception-readenv _%e101870%_) + (unchecked-slot-ref _%exn102999%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e103002%_) + (macro-datum-parsing-exception-readenv _%e103002%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-readenv - (cons _%e101870%_ '()))))) - (if (macro-datum-parsing-exception? _%exn101867%_) - (macro-datum-parsing-exception-readenv _%exn101867%_) + (cons _%e103002%_ '()))))) + (if (macro-datum-parsing-exception? _%exn102999%_) + (macro-datum-parsing-exception-readenv _%exn102999%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-readenv - (cons _%exn101867%_ '()))))))) + (cons _%exn102999%_ '()))))))) (define deadlock-exception? - (lambda (_%exn101861%_) + (lambda (_%exn102993%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101861%_)) - (let ((_%e101864%_ + (class-instance? RuntimeException::t _%exn102993%_)) + (let ((_%e102996%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101861%_ 'exception)))) - (macro-deadlock-exception? _%e101864%_)) - (macro-deadlock-exception? _%exn101861%_)))) + (unchecked-slot-ref _%exn102993%_ 'exception)))) + (macro-deadlock-exception? _%e102996%_)) + (macro-deadlock-exception? _%exn102993%_)))) (define divide-by-zero-exception? - (lambda (_%exn101857%_) + (lambda (_%exn102989%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101857%_)) - (let ((_%e101859%_ + (class-instance? RuntimeException::t _%exn102989%_)) + (let ((_%e102991%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101857%_ 'exception)))) - (macro-divide-by-zero-exception? _%e101859%_)) - (macro-divide-by-zero-exception? _%exn101857%_)))) + (unchecked-slot-ref _%exn102989%_ 'exception)))) + (macro-divide-by-zero-exception? _%e102991%_)) + (macro-divide-by-zero-exception? _%exn102989%_)))) (define divide-by-zero-exception-arguments - (lambda (_%exn101853%_) + (lambda (_%exn102985%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101853%_)) - (let ((_%e101855%_ + (class-instance? RuntimeException::t _%exn102985%_)) + (let ((_%e102987%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101853%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e101855%_) - (macro-divide-by-zero-exception-arguments _%e101855%_) + (unchecked-slot-ref _%exn102985%_ 'exception)))) + (if (macro-divide-by-zero-exception? _%e102987%_) + (macro-divide-by-zero-exception-arguments _%e102987%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-arguments - (cons _%e101855%_ '()))))) - (if (macro-divide-by-zero-exception? _%exn101853%_) - (macro-divide-by-zero-exception-arguments _%exn101853%_) + (cons _%e102987%_ '()))))) + (if (macro-divide-by-zero-exception? _%exn102985%_) + (macro-divide-by-zero-exception-arguments _%exn102985%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-arguments - (cons _%exn101853%_ '()))))))) + (cons _%exn102985%_ '()))))))) (define divide-by-zero-exception-procedure - (lambda (_%exn101847%_) + (lambda (_%exn102979%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101847%_)) - (let ((_%e101850%_ + (class-instance? RuntimeException::t _%exn102979%_)) + (let ((_%e102982%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101847%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e101850%_) - (macro-divide-by-zero-exception-procedure _%e101850%_) + (unchecked-slot-ref _%exn102979%_ 'exception)))) + (if (macro-divide-by-zero-exception? _%e102982%_) + (macro-divide-by-zero-exception-procedure _%e102982%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-procedure - (cons _%e101850%_ '()))))) - (if (macro-divide-by-zero-exception? _%exn101847%_) - (macro-divide-by-zero-exception-procedure _%exn101847%_) + (cons _%e102982%_ '()))))) + (if (macro-divide-by-zero-exception? _%exn102979%_) + (macro-divide-by-zero-exception-procedure _%exn102979%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-procedure - (cons _%exn101847%_ '()))))))) + (cons _%exn102979%_ '()))))))) (define error-exception? - (lambda (_%exn101843%_) + (lambda (_%exn102975%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101843%_)) - (let ((_%e101845%_ + (class-instance? RuntimeException::t _%exn102975%_)) + (let ((_%e102977%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101843%_ 'exception)))) - (macro-error-exception? _%e101845%_)) - (macro-error-exception? _%exn101843%_)))) + (unchecked-slot-ref _%exn102975%_ 'exception)))) + (macro-error-exception? _%e102977%_)) + (macro-error-exception? _%exn102975%_)))) (define error-exception-message - (lambda (_%exn101839%_) + (lambda (_%exn102971%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101839%_)) - (let ((_%e101841%_ + (class-instance? RuntimeException::t _%exn102971%_)) + (let ((_%e102973%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101839%_ 'exception)))) - (if (macro-error-exception? _%e101841%_) - (macro-error-exception-message _%e101841%_) + (unchecked-slot-ref _%exn102971%_ 'exception)))) + (if (macro-error-exception? _%e102973%_) + (macro-error-exception-message _%e102973%_) (error '"not an instance" 'error-exception? (cons 'error-exception-message - (cons _%e101841%_ '()))))) - (if (macro-error-exception? _%exn101839%_) - (macro-error-exception-message _%exn101839%_) + (cons _%e102973%_ '()))))) + (if (macro-error-exception? _%exn102971%_) + (macro-error-exception-message _%exn102971%_) (error '"not an instance" 'error-exception? (cons 'error-exception-message - (cons _%exn101839%_ '()))))))) + (cons _%exn102971%_ '()))))))) (define error-exception-parameters - (lambda (_%exn101833%_) + (lambda (_%exn102965%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101833%_)) - (let ((_%e101836%_ + (class-instance? RuntimeException::t _%exn102965%_)) + (let ((_%e102968%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101833%_ 'exception)))) - (if (macro-error-exception? _%e101836%_) - (macro-error-exception-parameters _%e101836%_) + (unchecked-slot-ref _%exn102965%_ 'exception)))) + (if (macro-error-exception? _%e102968%_) + (macro-error-exception-parameters _%e102968%_) (error '"not an instance" 'error-exception? (cons 'error-exception-parameters - (cons _%e101836%_ '()))))) - (if (macro-error-exception? _%exn101833%_) - (macro-error-exception-parameters _%exn101833%_) + (cons _%e102968%_ '()))))) + (if (macro-error-exception? _%exn102965%_) + (macro-error-exception-parameters _%exn102965%_) (error '"not an instance" 'error-exception? (cons 'error-exception-parameters - (cons _%exn101833%_ '()))))))) + (cons _%exn102965%_ '()))))))) (define expression-parsing-exception? - (lambda (_%exn101829%_) + (lambda (_%exn102961%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101829%_)) - (let ((_%e101831%_ + (class-instance? RuntimeException::t _%exn102961%_)) + (let ((_%e102963%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101829%_ 'exception)))) - (macro-expression-parsing-exception? _%e101831%_)) - (macro-expression-parsing-exception? _%exn101829%_)))) + (unchecked-slot-ref _%exn102961%_ 'exception)))) + (macro-expression-parsing-exception? _%e102963%_)) + (macro-expression-parsing-exception? _%exn102961%_)))) (define expression-parsing-exception-kind - (lambda (_%exn101825%_) + (lambda (_%exn102957%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101825%_)) - (let ((_%e101827%_ + (class-instance? RuntimeException::t _%exn102957%_)) + (let ((_%e102959%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101825%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e101827%_) - (macro-expression-parsing-exception-kind _%e101827%_) + (unchecked-slot-ref _%exn102957%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e102959%_) + (macro-expression-parsing-exception-kind _%e102959%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-kind - (cons _%e101827%_ '()))))) - (if (macro-expression-parsing-exception? _%exn101825%_) - (macro-expression-parsing-exception-kind _%exn101825%_) + (cons _%e102959%_ '()))))) + (if (macro-expression-parsing-exception? _%exn102957%_) + (macro-expression-parsing-exception-kind _%exn102957%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-kind - (cons _%exn101825%_ '()))))))) + (cons _%exn102957%_ '()))))))) (define expression-parsing-exception-parameters - (lambda (_%exn101821%_) + (lambda (_%exn102953%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101821%_)) - (let ((_%e101823%_ + (class-instance? RuntimeException::t _%exn102953%_)) + (let ((_%e102955%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101821%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e101823%_) - (macro-expression-parsing-exception-parameters _%e101823%_) + (unchecked-slot-ref _%exn102953%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e102955%_) + (macro-expression-parsing-exception-parameters _%e102955%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-parameters - (cons _%e101823%_ '()))))) - (if (macro-expression-parsing-exception? _%exn101821%_) - (macro-expression-parsing-exception-parameters _%exn101821%_) + (cons _%e102955%_ '()))))) + (if (macro-expression-parsing-exception? _%exn102953%_) + (macro-expression-parsing-exception-parameters _%exn102953%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-parameters - (cons _%exn101821%_ '()))))))) + (cons _%exn102953%_ '()))))))) (define expression-parsing-exception-source - (lambda (_%exn101815%_) + (lambda (_%exn102947%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101815%_)) - (let ((_%e101818%_ + (class-instance? RuntimeException::t _%exn102947%_)) + (let ((_%e102950%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101815%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e101818%_) - (macro-expression-parsing-exception-source _%e101818%_) + (unchecked-slot-ref _%exn102947%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e102950%_) + (macro-expression-parsing-exception-source _%e102950%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-source - (cons _%e101818%_ '()))))) - (if (macro-expression-parsing-exception? _%exn101815%_) - (macro-expression-parsing-exception-source _%exn101815%_) + (cons _%e102950%_ '()))))) + (if (macro-expression-parsing-exception? _%exn102947%_) + (macro-expression-parsing-exception-source _%exn102947%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-source - (cons _%exn101815%_ '()))))))) + (cons _%exn102947%_ '()))))))) (define file-exists-exception? - (lambda (_%exn101811%_) + (lambda (_%exn102943%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101811%_)) - (let ((_%e101813%_ + (class-instance? RuntimeException::t _%exn102943%_)) + (let ((_%e102945%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101811%_ 'exception)))) - (macro-file-exists-exception? _%e101813%_)) - (macro-file-exists-exception? _%exn101811%_)))) + (unchecked-slot-ref _%exn102943%_ 'exception)))) + (macro-file-exists-exception? _%e102945%_)) + (macro-file-exists-exception? _%exn102943%_)))) (define file-exists-exception-arguments - (lambda (_%exn101807%_) + (lambda (_%exn102939%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101807%_)) - (let ((_%e101809%_ + (class-instance? RuntimeException::t _%exn102939%_)) + (let ((_%e102941%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101807%_ 'exception)))) - (if (macro-file-exists-exception? _%e101809%_) - (macro-file-exists-exception-arguments _%e101809%_) + (unchecked-slot-ref _%exn102939%_ 'exception)))) + (if (macro-file-exists-exception? _%e102941%_) + (macro-file-exists-exception-arguments _%e102941%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-arguments - (cons _%e101809%_ '()))))) - (if (macro-file-exists-exception? _%exn101807%_) - (macro-file-exists-exception-arguments _%exn101807%_) + (cons _%e102941%_ '()))))) + (if (macro-file-exists-exception? _%exn102939%_) + (macro-file-exists-exception-arguments _%exn102939%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-arguments - (cons _%exn101807%_ '()))))))) + (cons _%exn102939%_ '()))))))) (define file-exists-exception-procedure - (lambda (_%exn101801%_) + (lambda (_%exn102933%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101801%_)) - (let ((_%e101804%_ + (class-instance? RuntimeException::t _%exn102933%_)) + (let ((_%e102936%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101801%_ 'exception)))) - (if (macro-file-exists-exception? _%e101804%_) - (macro-file-exists-exception-procedure _%e101804%_) + (unchecked-slot-ref _%exn102933%_ 'exception)))) + (if (macro-file-exists-exception? _%e102936%_) + (macro-file-exists-exception-procedure _%e102936%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-procedure - (cons _%e101804%_ '()))))) - (if (macro-file-exists-exception? _%exn101801%_) - (macro-file-exists-exception-procedure _%exn101801%_) + (cons _%e102936%_ '()))))) + (if (macro-file-exists-exception? _%exn102933%_) + (macro-file-exists-exception-procedure _%exn102933%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-procedure - (cons _%exn101801%_ '()))))))) + (cons _%exn102933%_ '()))))))) (define fixnum-overflow-exception? - (lambda (_%exn101797%_) + (lambda (_%exn102929%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101797%_)) - (let ((_%e101799%_ + (class-instance? RuntimeException::t _%exn102929%_)) + (let ((_%e102931%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101797%_ 'exception)))) - (macro-fixnum-overflow-exception? _%e101799%_)) - (macro-fixnum-overflow-exception? _%exn101797%_)))) + (unchecked-slot-ref _%exn102929%_ 'exception)))) + (macro-fixnum-overflow-exception? _%e102931%_)) + (macro-fixnum-overflow-exception? _%exn102929%_)))) (define fixnum-overflow-exception-arguments - (lambda (_%exn101793%_) + (lambda (_%exn102925%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101793%_)) - (let ((_%e101795%_ + (class-instance? RuntimeException::t _%exn102925%_)) + (let ((_%e102927%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101793%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e101795%_) - (macro-fixnum-overflow-exception-arguments _%e101795%_) + (unchecked-slot-ref _%exn102925%_ 'exception)))) + (if (macro-fixnum-overflow-exception? _%e102927%_) + (macro-fixnum-overflow-exception-arguments _%e102927%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-arguments - (cons _%e101795%_ '()))))) - (if (macro-fixnum-overflow-exception? _%exn101793%_) - (macro-fixnum-overflow-exception-arguments _%exn101793%_) + (cons _%e102927%_ '()))))) + (if (macro-fixnum-overflow-exception? _%exn102925%_) + (macro-fixnum-overflow-exception-arguments _%exn102925%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-arguments - (cons _%exn101793%_ '()))))))) + (cons _%exn102925%_ '()))))))) (define fixnum-overflow-exception-procedure - (lambda (_%exn101787%_) + (lambda (_%exn102919%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101787%_)) - (let ((_%e101790%_ + (class-instance? RuntimeException::t _%exn102919%_)) + (let ((_%e102922%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101787%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e101790%_) - (macro-fixnum-overflow-exception-procedure _%e101790%_) + (unchecked-slot-ref _%exn102919%_ 'exception)))) + (if (macro-fixnum-overflow-exception? _%e102922%_) + (macro-fixnum-overflow-exception-procedure _%e102922%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-procedure - (cons _%e101790%_ '()))))) - (if (macro-fixnum-overflow-exception? _%exn101787%_) - (macro-fixnum-overflow-exception-procedure _%exn101787%_) + (cons _%e102922%_ '()))))) + (if (macro-fixnum-overflow-exception? _%exn102919%_) + (macro-fixnum-overflow-exception-procedure _%exn102919%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-procedure - (cons _%exn101787%_ '()))))))) + (cons _%exn102919%_ '()))))))) (define heap-overflow-exception? - (lambda (_%exn101781%_) + (lambda (_%exn102913%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101781%_)) - (let ((_%e101784%_ + (class-instance? RuntimeException::t _%exn102913%_)) + (let ((_%e102916%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101781%_ 'exception)))) - (macro-heap-overflow-exception? _%e101784%_)) - (macro-heap-overflow-exception? _%exn101781%_)))) + (unchecked-slot-ref _%exn102913%_ 'exception)))) + (macro-heap-overflow-exception? _%e102916%_)) + (macro-heap-overflow-exception? _%exn102913%_)))) (define inactive-thread-exception? - (lambda (_%exn101777%_) + (lambda (_%exn102909%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101777%_)) - (let ((_%e101779%_ + (class-instance? RuntimeException::t _%exn102909%_)) + (let ((_%e102911%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101777%_ 'exception)))) - (macro-inactive-thread-exception? _%e101779%_)) - (macro-inactive-thread-exception? _%exn101777%_)))) + (unchecked-slot-ref _%exn102909%_ 'exception)))) + (macro-inactive-thread-exception? _%e102911%_)) + (macro-inactive-thread-exception? _%exn102909%_)))) (define inactive-thread-exception-arguments - (lambda (_%exn101773%_) + (lambda (_%exn102905%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101773%_)) - (let ((_%e101775%_ + (class-instance? RuntimeException::t _%exn102905%_)) + (let ((_%e102907%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101773%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e101775%_) - (macro-inactive-thread-exception-arguments _%e101775%_) + (unchecked-slot-ref _%exn102905%_ 'exception)))) + (if (macro-inactive-thread-exception? _%e102907%_) + (macro-inactive-thread-exception-arguments _%e102907%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-arguments - (cons _%e101775%_ '()))))) - (if (macro-inactive-thread-exception? _%exn101773%_) - (macro-inactive-thread-exception-arguments _%exn101773%_) + (cons _%e102907%_ '()))))) + (if (macro-inactive-thread-exception? _%exn102905%_) + (macro-inactive-thread-exception-arguments _%exn102905%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-arguments - (cons _%exn101773%_ '()))))))) + (cons _%exn102905%_ '()))))))) (define inactive-thread-exception-procedure - (lambda (_%exn101767%_) + (lambda (_%exn102899%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101767%_)) - (let ((_%e101770%_ + (class-instance? RuntimeException::t _%exn102899%_)) + (let ((_%e102902%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101767%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e101770%_) - (macro-inactive-thread-exception-procedure _%e101770%_) + (unchecked-slot-ref _%exn102899%_ 'exception)))) + (if (macro-inactive-thread-exception? _%e102902%_) + (macro-inactive-thread-exception-procedure _%e102902%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-procedure - (cons _%e101770%_ '()))))) - (if (macro-inactive-thread-exception? _%exn101767%_) - (macro-inactive-thread-exception-procedure _%exn101767%_) + (cons _%e102902%_ '()))))) + (if (macro-inactive-thread-exception? _%exn102899%_) + (macro-inactive-thread-exception-procedure _%exn102899%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-procedure - (cons _%exn101767%_ '()))))))) + (cons _%exn102899%_ '()))))))) (define initialized-thread-exception? - (lambda (_%exn101763%_) + (lambda (_%exn102895%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101763%_)) - (let ((_%e101765%_ + (class-instance? RuntimeException::t _%exn102895%_)) + (let ((_%e102897%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101763%_ 'exception)))) - (macro-initialized-thread-exception? _%e101765%_)) - (macro-initialized-thread-exception? _%exn101763%_)))) + (unchecked-slot-ref _%exn102895%_ 'exception)))) + (macro-initialized-thread-exception? _%e102897%_)) + (macro-initialized-thread-exception? _%exn102895%_)))) (define initialized-thread-exception-arguments - (lambda (_%exn101759%_) + (lambda (_%exn102891%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101759%_)) - (let ((_%e101761%_ + (class-instance? RuntimeException::t _%exn102891%_)) + (let ((_%e102893%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101759%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e101761%_) - (macro-initialized-thread-exception-arguments _%e101761%_) + (unchecked-slot-ref _%exn102891%_ 'exception)))) + (if (macro-initialized-thread-exception? _%e102893%_) + (macro-initialized-thread-exception-arguments _%e102893%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-arguments - (cons _%e101761%_ '()))))) - (if (macro-initialized-thread-exception? _%exn101759%_) - (macro-initialized-thread-exception-arguments _%exn101759%_) + (cons _%e102893%_ '()))))) + (if (macro-initialized-thread-exception? _%exn102891%_) + (macro-initialized-thread-exception-arguments _%exn102891%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-arguments - (cons _%exn101759%_ '()))))))) + (cons _%exn102891%_ '()))))))) (define initialized-thread-exception-procedure - (lambda (_%exn101753%_) + (lambda (_%exn102885%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101753%_)) - (let ((_%e101756%_ + (class-instance? RuntimeException::t _%exn102885%_)) + (let ((_%e102888%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101753%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e101756%_) - (macro-initialized-thread-exception-procedure _%e101756%_) + (unchecked-slot-ref _%exn102885%_ 'exception)))) + (if (macro-initialized-thread-exception? _%e102888%_) + (macro-initialized-thread-exception-procedure _%e102888%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-procedure - (cons _%e101756%_ '()))))) - (if (macro-initialized-thread-exception? _%exn101753%_) - (macro-initialized-thread-exception-procedure _%exn101753%_) + (cons _%e102888%_ '()))))) + (if (macro-initialized-thread-exception? _%exn102885%_) + (macro-initialized-thread-exception-procedure _%exn102885%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-procedure - (cons _%exn101753%_ '()))))))) + (cons _%exn102885%_ '()))))))) (define invalid-hash-number-exception? - (lambda (_%exn101749%_) + (lambda (_%exn102881%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101749%_)) - (let ((_%e101751%_ + (class-instance? RuntimeException::t _%exn102881%_)) + (let ((_%e102883%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101749%_ 'exception)))) - (macro-invalid-hash-number-exception? _%e101751%_)) - (macro-invalid-hash-number-exception? _%exn101749%_)))) + (unchecked-slot-ref _%exn102881%_ 'exception)))) + (macro-invalid-hash-number-exception? _%e102883%_)) + (macro-invalid-hash-number-exception? _%exn102881%_)))) (define invalid-hash-number-exception-arguments - (lambda (_%exn101745%_) + (lambda (_%exn102877%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101745%_)) - (let ((_%e101747%_ + (class-instance? RuntimeException::t _%exn102877%_)) + (let ((_%e102879%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101745%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e101747%_) - (macro-invalid-hash-number-exception-arguments _%e101747%_) + (unchecked-slot-ref _%exn102877%_ 'exception)))) + (if (macro-invalid-hash-number-exception? _%e102879%_) + (macro-invalid-hash-number-exception-arguments _%e102879%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-arguments - (cons _%e101747%_ '()))))) - (if (macro-invalid-hash-number-exception? _%exn101745%_) - (macro-invalid-hash-number-exception-arguments _%exn101745%_) + (cons _%e102879%_ '()))))) + (if (macro-invalid-hash-number-exception? _%exn102877%_) + (macro-invalid-hash-number-exception-arguments _%exn102877%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-arguments - (cons _%exn101745%_ '()))))))) + (cons _%exn102877%_ '()))))))) (define invalid-hash-number-exception-procedure - (lambda (_%exn101739%_) + (lambda (_%exn102871%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101739%_)) - (let ((_%e101742%_ + (class-instance? RuntimeException::t _%exn102871%_)) + (let ((_%e102874%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101739%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e101742%_) - (macro-invalid-hash-number-exception-procedure _%e101742%_) + (unchecked-slot-ref _%exn102871%_ 'exception)))) + (if (macro-invalid-hash-number-exception? _%e102874%_) + (macro-invalid-hash-number-exception-procedure _%e102874%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-procedure - (cons _%e101742%_ '()))))) - (if (macro-invalid-hash-number-exception? _%exn101739%_) - (macro-invalid-hash-number-exception-procedure _%exn101739%_) + (cons _%e102874%_ '()))))) + (if (macro-invalid-hash-number-exception? _%exn102871%_) + (macro-invalid-hash-number-exception-procedure _%exn102871%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-procedure - (cons _%exn101739%_ '()))))))) + (cons _%exn102871%_ '()))))))) (define invalid-utf8-encoding-exception? - (lambda (_%exn101735%_) + (lambda (_%exn102867%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101735%_)) - (let ((_%e101737%_ + (class-instance? RuntimeException::t _%exn102867%_)) + (let ((_%e102869%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101735%_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _%e101737%_)) - (macro-invalid-utf8-encoding-exception? _%exn101735%_)))) + (unchecked-slot-ref _%exn102867%_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _%e102869%_)) + (macro-invalid-utf8-encoding-exception? _%exn102867%_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_%exn101731%_) + (lambda (_%exn102863%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101731%_)) - (let ((_%e101733%_ + (class-instance? RuntimeException::t _%exn102863%_)) + (let ((_%e102865%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101731%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e101733%_) - (macro-invalid-utf8-encoding-exception-arguments _%e101733%_) + (unchecked-slot-ref _%exn102863%_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _%e102865%_) + (macro-invalid-utf8-encoding-exception-arguments _%e102865%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-arguments - (cons _%e101733%_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _%exn101731%_) - (macro-invalid-utf8-encoding-exception-arguments _%exn101731%_) + (cons _%e102865%_ '()))))) + (if (macro-invalid-utf8-encoding-exception? _%exn102863%_) + (macro-invalid-utf8-encoding-exception-arguments _%exn102863%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-arguments - (cons _%exn101731%_ '()))))))) + (cons _%exn102863%_ '()))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_%exn101725%_) + (lambda (_%exn102857%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101725%_)) - (let ((_%e101728%_ + (class-instance? RuntimeException::t _%exn102857%_)) + (let ((_%e102860%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101725%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e101728%_) - (macro-invalid-utf8-encoding-exception-procedure _%e101728%_) + (unchecked-slot-ref _%exn102857%_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _%e102860%_) + (macro-invalid-utf8-encoding-exception-procedure _%e102860%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-procedure - (cons _%e101728%_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _%exn101725%_) - (macro-invalid-utf8-encoding-exception-procedure _%exn101725%_) + (cons _%e102860%_ '()))))) + (if (macro-invalid-utf8-encoding-exception? _%exn102857%_) + (macro-invalid-utf8-encoding-exception-procedure _%exn102857%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-procedure - (cons _%exn101725%_ '()))))))) + (cons _%exn102857%_ '()))))))) (define join-timeout-exception? - (lambda (_%exn101721%_) + (lambda (_%exn102853%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101721%_)) - (let ((_%e101723%_ + (class-instance? RuntimeException::t _%exn102853%_)) + (let ((_%e102855%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101721%_ 'exception)))) - (macro-join-timeout-exception? _%e101723%_)) - (macro-join-timeout-exception? _%exn101721%_)))) + (unchecked-slot-ref _%exn102853%_ 'exception)))) + (macro-join-timeout-exception? _%e102855%_)) + (macro-join-timeout-exception? _%exn102853%_)))) (define join-timeout-exception-arguments - (lambda (_%exn101717%_) + (lambda (_%exn102849%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101717%_)) - (let ((_%e101719%_ + (class-instance? RuntimeException::t _%exn102849%_)) + (let ((_%e102851%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101717%_ 'exception)))) - (if (macro-join-timeout-exception? _%e101719%_) - (macro-join-timeout-exception-arguments _%e101719%_) + (unchecked-slot-ref _%exn102849%_ 'exception)))) + (if (macro-join-timeout-exception? _%e102851%_) + (macro-join-timeout-exception-arguments _%e102851%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-arguments - (cons _%e101719%_ '()))))) - (if (macro-join-timeout-exception? _%exn101717%_) - (macro-join-timeout-exception-arguments _%exn101717%_) + (cons _%e102851%_ '()))))) + (if (macro-join-timeout-exception? _%exn102849%_) + (macro-join-timeout-exception-arguments _%exn102849%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-arguments - (cons _%exn101717%_ '()))))))) + (cons _%exn102849%_ '()))))))) (define join-timeout-exception-procedure - (lambda (_%exn101711%_) + (lambda (_%exn102843%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101711%_)) - (let ((_%e101714%_ + (class-instance? RuntimeException::t _%exn102843%_)) + (let ((_%e102846%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101711%_ 'exception)))) - (if (macro-join-timeout-exception? _%e101714%_) - (macro-join-timeout-exception-procedure _%e101714%_) + (unchecked-slot-ref _%exn102843%_ 'exception)))) + (if (macro-join-timeout-exception? _%e102846%_) + (macro-join-timeout-exception-procedure _%e102846%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-procedure - (cons _%e101714%_ '()))))) - (if (macro-join-timeout-exception? _%exn101711%_) - (macro-join-timeout-exception-procedure _%exn101711%_) + (cons _%e102846%_ '()))))) + (if (macro-join-timeout-exception? _%exn102843%_) + (macro-join-timeout-exception-procedure _%exn102843%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-procedure - (cons _%exn101711%_ '()))))))) + (cons _%exn102843%_ '()))))))) (define keyword-expected-exception? - (lambda (_%exn101707%_) + (lambda (_%exn102839%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101707%_)) - (let ((_%e101709%_ + (class-instance? RuntimeException::t _%exn102839%_)) + (let ((_%e102841%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101707%_ 'exception)))) - (macro-keyword-expected-exception? _%e101709%_)) - (macro-keyword-expected-exception? _%exn101707%_)))) + (unchecked-slot-ref _%exn102839%_ 'exception)))) + (macro-keyword-expected-exception? _%e102841%_)) + (macro-keyword-expected-exception? _%exn102839%_)))) (define keyword-expected-exception-arguments - (lambda (_%exn101703%_) + (lambda (_%exn102835%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101703%_)) - (let ((_%e101705%_ + (class-instance? RuntimeException::t _%exn102835%_)) + (let ((_%e102837%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101703%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e101705%_) - (macro-keyword-expected-exception-arguments _%e101705%_) + (unchecked-slot-ref _%exn102835%_ 'exception)))) + (if (macro-keyword-expected-exception? _%e102837%_) + (macro-keyword-expected-exception-arguments _%e102837%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-arguments - (cons _%e101705%_ '()))))) - (if (macro-keyword-expected-exception? _%exn101703%_) - (macro-keyword-expected-exception-arguments _%exn101703%_) + (cons _%e102837%_ '()))))) + (if (macro-keyword-expected-exception? _%exn102835%_) + (macro-keyword-expected-exception-arguments _%exn102835%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-arguments - (cons _%exn101703%_ '()))))))) + (cons _%exn102835%_ '()))))))) (define keyword-expected-exception-procedure - (lambda (_%exn101697%_) + (lambda (_%exn102829%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101697%_)) - (let ((_%e101700%_ + (class-instance? RuntimeException::t _%exn102829%_)) + (let ((_%e102832%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101697%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e101700%_) - (macro-keyword-expected-exception-procedure _%e101700%_) + (unchecked-slot-ref _%exn102829%_ 'exception)))) + (if (macro-keyword-expected-exception? _%e102832%_) + (macro-keyword-expected-exception-procedure _%e102832%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-procedure - (cons _%e101700%_ '()))))) - (if (macro-keyword-expected-exception? _%exn101697%_) - (macro-keyword-expected-exception-procedure _%exn101697%_) + (cons _%e102832%_ '()))))) + (if (macro-keyword-expected-exception? _%exn102829%_) + (macro-keyword-expected-exception-procedure _%exn102829%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-procedure - (cons _%exn101697%_ '()))))))) + (cons _%exn102829%_ '()))))))) (define length-mismatch-exception? - (lambda (_%exn101693%_) + (lambda (_%exn102825%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101693%_)) - (let ((_%e101695%_ + (class-instance? RuntimeException::t _%exn102825%_)) + (let ((_%e102827%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101693%_ 'exception)))) - (macro-length-mismatch-exception? _%e101695%_)) - (macro-length-mismatch-exception? _%exn101693%_)))) + (unchecked-slot-ref _%exn102825%_ 'exception)))) + (macro-length-mismatch-exception? _%e102827%_)) + (macro-length-mismatch-exception? _%exn102825%_)))) (define length-mismatch-exception-arg-id - (lambda (_%exn101689%_) + (lambda (_%exn102821%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101689%_)) - (let ((_%e101691%_ + (class-instance? RuntimeException::t _%exn102821%_)) + (let ((_%e102823%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101689%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e101691%_) - (macro-length-mismatch-exception-arg-id _%e101691%_) + (unchecked-slot-ref _%exn102821%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e102823%_) + (macro-length-mismatch-exception-arg-id _%e102823%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arg-id - (cons _%e101691%_ '()))))) - (if (macro-length-mismatch-exception? _%exn101689%_) - (macro-length-mismatch-exception-arg-id _%exn101689%_) + (cons _%e102823%_ '()))))) + (if (macro-length-mismatch-exception? _%exn102821%_) + (macro-length-mismatch-exception-arg-id _%exn102821%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arg-id - (cons _%exn101689%_ '()))))))) + (cons _%exn102821%_ '()))))))) (define length-mismatch-exception-arguments - (lambda (_%exn101685%_) + (lambda (_%exn102817%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101685%_)) - (let ((_%e101687%_ + (class-instance? RuntimeException::t _%exn102817%_)) + (let ((_%e102819%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101685%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e101687%_) - (macro-length-mismatch-exception-arguments _%e101687%_) + (unchecked-slot-ref _%exn102817%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e102819%_) + (macro-length-mismatch-exception-arguments _%e102819%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arguments - (cons _%e101687%_ '()))))) - (if (macro-length-mismatch-exception? _%exn101685%_) - (macro-length-mismatch-exception-arguments _%exn101685%_) + (cons _%e102819%_ '()))))) + (if (macro-length-mismatch-exception? _%exn102817%_) + (macro-length-mismatch-exception-arguments _%exn102817%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arguments - (cons _%exn101685%_ '()))))))) + (cons _%exn102817%_ '()))))))) (define length-mismatch-exception-procedure - (lambda (_%exn101679%_) + (lambda (_%exn102811%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101679%_)) - (let ((_%e101682%_ + (class-instance? RuntimeException::t _%exn102811%_)) + (let ((_%e102814%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101679%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e101682%_) - (macro-length-mismatch-exception-procedure _%e101682%_) + (unchecked-slot-ref _%exn102811%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e102814%_) + (macro-length-mismatch-exception-procedure _%e102814%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-procedure - (cons _%e101682%_ '()))))) - (if (macro-length-mismatch-exception? _%exn101679%_) - (macro-length-mismatch-exception-procedure _%exn101679%_) + (cons _%e102814%_ '()))))) + (if (macro-length-mismatch-exception? _%exn102811%_) + (macro-length-mismatch-exception-procedure _%exn102811%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-procedure - (cons _%exn101679%_ '()))))))) + (cons _%exn102811%_ '()))))))) (define mailbox-receive-timeout-exception? - (lambda (_%exn101675%_) + (lambda (_%exn102807%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101675%_)) - (let ((_%e101677%_ + (class-instance? RuntimeException::t _%exn102807%_)) + (let ((_%e102809%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101675%_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _%e101677%_)) - (macro-mailbox-receive-timeout-exception? _%exn101675%_)))) + (unchecked-slot-ref _%exn102807%_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _%e102809%_)) + (macro-mailbox-receive-timeout-exception? _%exn102807%_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_%exn101671%_) + (lambda (_%exn102803%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101671%_)) - (let ((_%e101673%_ + (class-instance? RuntimeException::t _%exn102803%_)) + (let ((_%e102805%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101671%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e101673%_) + (unchecked-slot-ref _%exn102803%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e102805%_) (macro-mailbox-receive-timeout-exception-arguments - _%e101673%_) + _%e102805%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%e101673%_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _%exn101671%_) + (cons _%e102805%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn102803%_) (macro-mailbox-receive-timeout-exception-arguments - _%exn101671%_) + _%exn102803%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%exn101671%_ '()))))))) + (cons _%exn102803%_ '()))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_%exn101665%_) + (lambda (_%exn102797%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101665%_)) - (let ((_%e101668%_ + (class-instance? RuntimeException::t _%exn102797%_)) + (let ((_%e102800%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101665%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e101668%_) + (unchecked-slot-ref _%exn102797%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e102800%_) (macro-mailbox-receive-timeout-exception-procedure - _%e101668%_) + _%e102800%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%e101668%_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _%exn101665%_) + (cons _%e102800%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn102797%_) (macro-mailbox-receive-timeout-exception-procedure - _%exn101665%_) + _%exn102797%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%exn101665%_ '()))))))) + (cons _%exn102797%_ '()))))))) (define module-not-found-exception? - (lambda (_%exn101661%_) + (lambda (_%exn102793%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101661%_)) - (let ((_%e101663%_ + (class-instance? RuntimeException::t _%exn102793%_)) + (let ((_%e102795%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101661%_ 'exception)))) - (macro-module-not-found-exception? _%e101663%_)) - (macro-module-not-found-exception? _%exn101661%_)))) + (unchecked-slot-ref _%exn102793%_ 'exception)))) + (macro-module-not-found-exception? _%e102795%_)) + (macro-module-not-found-exception? _%exn102793%_)))) (define module-not-found-exception-arguments - (lambda (_%exn101657%_) + (lambda (_%exn102789%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101657%_)) - (let ((_%e101659%_ + (class-instance? RuntimeException::t _%exn102789%_)) + (let ((_%e102791%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101657%_ 'exception)))) - (if (macro-module-not-found-exception? _%e101659%_) - (macro-module-not-found-exception-arguments _%e101659%_) + (unchecked-slot-ref _%exn102789%_ 'exception)))) + (if (macro-module-not-found-exception? _%e102791%_) + (macro-module-not-found-exception-arguments _%e102791%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-arguments - (cons _%e101659%_ '()))))) - (if (macro-module-not-found-exception? _%exn101657%_) - (macro-module-not-found-exception-arguments _%exn101657%_) + (cons _%e102791%_ '()))))) + (if (macro-module-not-found-exception? _%exn102789%_) + (macro-module-not-found-exception-arguments _%exn102789%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-arguments - (cons _%exn101657%_ '()))))))) + (cons _%exn102789%_ '()))))))) (define module-not-found-exception-procedure - (lambda (_%exn101651%_) + (lambda (_%exn102783%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101651%_)) - (let ((_%e101654%_ + (class-instance? RuntimeException::t _%exn102783%_)) + (let ((_%e102786%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101651%_ 'exception)))) - (if (macro-module-not-found-exception? _%e101654%_) - (macro-module-not-found-exception-procedure _%e101654%_) + (unchecked-slot-ref _%exn102783%_ 'exception)))) + (if (macro-module-not-found-exception? _%e102786%_) + (macro-module-not-found-exception-procedure _%e102786%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-procedure - (cons _%e101654%_ '()))))) - (if (macro-module-not-found-exception? _%exn101651%_) - (macro-module-not-found-exception-procedure _%exn101651%_) + (cons _%e102786%_ '()))))) + (if (macro-module-not-found-exception? _%exn102783%_) + (macro-module-not-found-exception-procedure _%exn102783%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-procedure - (cons _%exn101651%_ '()))))))) + (cons _%exn102783%_ '()))))))) (define multiple-c-return-exception? - (lambda (_%exn101645%_) + (lambda (_%exn102777%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101645%_)) - (let ((_%e101648%_ + (class-instance? RuntimeException::t _%exn102777%_)) + (let ((_%e102780%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101645%_ 'exception)))) - (macro-multiple-c-return-exception? _%e101648%_)) - (macro-multiple-c-return-exception? _%exn101645%_)))) + (unchecked-slot-ref _%exn102777%_ 'exception)))) + (macro-multiple-c-return-exception? _%e102780%_)) + (macro-multiple-c-return-exception? _%exn102777%_)))) (define no-such-file-or-directory-exception? - (lambda (_%exn101641%_) + (lambda (_%exn102773%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101641%_)) - (let ((_%e101643%_ + (class-instance? RuntimeException::t _%exn102773%_)) + (let ((_%e102775%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101641%_ 'exception)))) - (macro-no-such-file-or-directory-exception? _%e101643%_)) - (macro-no-such-file-or-directory-exception? _%exn101641%_)))) + (unchecked-slot-ref _%exn102773%_ 'exception)))) + (macro-no-such-file-or-directory-exception? _%e102775%_)) + (macro-no-such-file-or-directory-exception? _%exn102773%_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_%exn101637%_) + (lambda (_%exn102769%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101637%_)) - (let ((_%e101639%_ + (class-instance? RuntimeException::t _%exn102769%_)) + (let ((_%e102771%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101637%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e101639%_) + (unchecked-slot-ref _%exn102769%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e102771%_) (macro-no-such-file-or-directory-exception-arguments - _%e101639%_) + _%e102771%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%e101639%_ '()))))) - (if (macro-no-such-file-or-directory-exception? _%exn101637%_) + (cons _%e102771%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn102769%_) (macro-no-such-file-or-directory-exception-arguments - _%exn101637%_) + _%exn102769%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%exn101637%_ '()))))))) + (cons _%exn102769%_ '()))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_%exn101631%_) + (lambda (_%exn102763%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101631%_)) - (let ((_%e101634%_ + (class-instance? RuntimeException::t _%exn102763%_)) + (let ((_%e102766%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101631%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e101634%_) + (unchecked-slot-ref _%exn102763%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e102766%_) (macro-no-such-file-or-directory-exception-procedure - _%e101634%_) + _%e102766%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%e101634%_ '()))))) - (if (macro-no-such-file-or-directory-exception? _%exn101631%_) + (cons _%e102766%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn102763%_) (macro-no-such-file-or-directory-exception-procedure - _%exn101631%_) + _%exn102763%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%exn101631%_ '()))))))) + (cons _%exn102763%_ '()))))))) (define noncontinuable-exception? - (lambda (_%exn101627%_) + (lambda (_%exn102759%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101627%_)) - (let ((_%e101629%_ + (class-instance? RuntimeException::t _%exn102759%_)) + (let ((_%e102761%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101627%_ 'exception)))) - (macro-noncontinuable-exception? _%e101629%_)) - (macro-noncontinuable-exception? _%exn101627%_)))) + (unchecked-slot-ref _%exn102759%_ 'exception)))) + (macro-noncontinuable-exception? _%e102761%_)) + (macro-noncontinuable-exception? _%exn102759%_)))) (define noncontinuable-exception-reason - (lambda (_%exn101621%_) + (lambda (_%exn102753%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101621%_)) - (let ((_%e101624%_ + (class-instance? RuntimeException::t _%exn102753%_)) + (let ((_%e102756%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101621%_ 'exception)))) - (if (macro-noncontinuable-exception? _%e101624%_) - (macro-noncontinuable-exception-reason _%e101624%_) + (unchecked-slot-ref _%exn102753%_ 'exception)))) + (if (macro-noncontinuable-exception? _%e102756%_) + (macro-noncontinuable-exception-reason _%e102756%_) (error '"not an instance" 'noncontinuable-exception? (cons 'noncontinuable-exception-reason - (cons _%e101624%_ '()))))) - (if (macro-noncontinuable-exception? _%exn101621%_) - (macro-noncontinuable-exception-reason _%exn101621%_) + (cons _%e102756%_ '()))))) + (if (macro-noncontinuable-exception? _%exn102753%_) + (macro-noncontinuable-exception-reason _%exn102753%_) (error '"not an instance" 'noncontinuable-exception? (cons 'noncontinuable-exception-reason - (cons _%exn101621%_ '()))))))) + (cons _%exn102753%_ '()))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_%exn101617%_) + (lambda (_%exn102749%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101617%_)) - (let ((_%e101619%_ + (class-instance? RuntimeException::t _%exn102749%_)) + (let ((_%e102751%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101617%_ 'exception)))) + (unchecked-slot-ref _%exn102749%_ 'exception)))) (macro-nonempty-input-port-character-buffer-exception? - _%e101619%_)) + _%e102751%_)) (macro-nonempty-input-port-character-buffer-exception? - _%exn101617%_)))) + _%exn102749%_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_%exn101613%_) + (lambda (_%exn102745%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101613%_)) - (let ((_%e101615%_ + (class-instance? RuntimeException::t _%exn102745%_)) + (let ((_%e102747%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101613%_ 'exception)))) + (unchecked-slot-ref _%exn102745%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e101615%_) + _%e102747%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%e101615%_) + _%e102747%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%e101615%_ '()))))) + (cons _%e102747%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn101613%_) + _%exn102745%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%exn101613%_) + _%exn102745%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%exn101613%_ '()))))))) + (cons _%exn102745%_ '()))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_%exn101607%_) + (lambda (_%exn102739%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101607%_)) - (let ((_%e101610%_ + (class-instance? RuntimeException::t _%exn102739%_)) + (let ((_%e102742%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101607%_ 'exception)))) + (unchecked-slot-ref _%exn102739%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e101610%_) + _%e102742%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%e101610%_) + _%e102742%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%e101610%_ '()))))) + (cons _%e102742%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn101607%_) + _%exn102739%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%exn101607%_) + _%exn102739%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%exn101607%_ '()))))))) + (cons _%exn102739%_ '()))))))) (define nonprocedure-operator-exception? - (lambda (_%exn101603%_) + (lambda (_%exn102735%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101603%_)) - (let ((_%e101605%_ + (class-instance? RuntimeException::t _%exn102735%_)) + (let ((_%e102737%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101603%_ 'exception)))) - (macro-nonprocedure-operator-exception? _%e101605%_)) - (macro-nonprocedure-operator-exception? _%exn101603%_)))) + (unchecked-slot-ref _%exn102735%_ 'exception)))) + (macro-nonprocedure-operator-exception? _%e102737%_)) + (macro-nonprocedure-operator-exception? _%exn102735%_)))) (define nonprocedure-operator-exception-arguments - (lambda (_%exn101599%_) + (lambda (_%exn102731%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101599%_)) - (let ((_%e101601%_ + (class-instance? RuntimeException::t _%exn102731%_)) + (let ((_%e102733%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101599%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e101601%_) - (macro-nonprocedure-operator-exception-arguments _%e101601%_) + (unchecked-slot-ref _%exn102731%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e102733%_) + (macro-nonprocedure-operator-exception-arguments _%e102733%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-arguments - (cons _%e101601%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn101599%_) - (macro-nonprocedure-operator-exception-arguments _%exn101599%_) + (cons _%e102733%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn102731%_) + (macro-nonprocedure-operator-exception-arguments _%exn102731%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-arguments - (cons _%exn101599%_ '()))))))) + (cons _%exn102731%_ '()))))))) (define nonprocedure-operator-exception-code - (lambda (_%exn101595%_) + (lambda (_%exn102727%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101595%_)) - (let ((_%e101597%_ + (class-instance? RuntimeException::t _%exn102727%_)) + (let ((_%e102729%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101595%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e101597%_) - (macro-nonprocedure-operator-exception-code _%e101597%_) + (unchecked-slot-ref _%exn102727%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e102729%_) + (macro-nonprocedure-operator-exception-code _%e102729%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-code - (cons _%e101597%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn101595%_) - (macro-nonprocedure-operator-exception-code _%exn101595%_) + (cons _%e102729%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn102727%_) + (macro-nonprocedure-operator-exception-code _%exn102727%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-code - (cons _%exn101595%_ '()))))))) + (cons _%exn102727%_ '()))))))) (define nonprocedure-operator-exception-operator - (lambda (_%exn101591%_) + (lambda (_%exn102723%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101591%_)) - (let ((_%e101593%_ + (class-instance? RuntimeException::t _%exn102723%_)) + (let ((_%e102725%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101591%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e101593%_) - (macro-nonprocedure-operator-exception-operator _%e101593%_) + (unchecked-slot-ref _%exn102723%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e102725%_) + (macro-nonprocedure-operator-exception-operator _%e102725%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-operator - (cons _%e101593%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn101591%_) - (macro-nonprocedure-operator-exception-operator _%exn101591%_) + (cons _%e102725%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn102723%_) + (macro-nonprocedure-operator-exception-operator _%exn102723%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-operator - (cons _%exn101591%_ '()))))))) + (cons _%exn102723%_ '()))))))) (define nonprocedure-operator-exception-rte - (lambda (_%exn101585%_) + (lambda (_%exn102717%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101585%_)) - (let ((_%e101588%_ + (class-instance? RuntimeException::t _%exn102717%_)) + (let ((_%e102720%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101585%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e101588%_) - (macro-nonprocedure-operator-exception-rte _%e101588%_) + (unchecked-slot-ref _%exn102717%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e102720%_) + (macro-nonprocedure-operator-exception-rte _%e102720%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-rte - (cons _%e101588%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn101585%_) - (macro-nonprocedure-operator-exception-rte _%exn101585%_) + (cons _%e102720%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn102717%_) + (macro-nonprocedure-operator-exception-rte _%exn102717%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-rte - (cons _%exn101585%_ '()))))))) + (cons _%exn102717%_ '()))))))) (define not-in-compilation-context-exception? - (lambda (_%exn101581%_) + (lambda (_%exn102713%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101581%_)) - (let ((_%e101583%_ + (class-instance? RuntimeException::t _%exn102713%_)) + (let ((_%e102715%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101581%_ 'exception)))) - (macro-not-in-compilation-context-exception? _%e101583%_)) - (macro-not-in-compilation-context-exception? _%exn101581%_)))) + (unchecked-slot-ref _%exn102713%_ 'exception)))) + (macro-not-in-compilation-context-exception? _%e102715%_)) + (macro-not-in-compilation-context-exception? _%exn102713%_)))) (define not-in-compilation-context-exception-arguments - (lambda (_%exn101577%_) + (lambda (_%exn102709%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101577%_)) - (let ((_%e101579%_ + (class-instance? RuntimeException::t _%exn102709%_)) + (let ((_%e102711%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101577%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e101579%_) + (unchecked-slot-ref _%exn102709%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e102711%_) (macro-not-in-compilation-context-exception-arguments - _%e101579%_) + _%e102711%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%e101579%_ '()))))) - (if (macro-not-in-compilation-context-exception? _%exn101577%_) + (cons _%e102711%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn102709%_) (macro-not-in-compilation-context-exception-arguments - _%exn101577%_) + _%exn102709%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%exn101577%_ '()))))))) + (cons _%exn102709%_ '()))))))) (define not-in-compilation-context-exception-procedure - (lambda (_%exn101571%_) + (lambda (_%exn102703%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101571%_)) - (let ((_%e101574%_ + (class-instance? RuntimeException::t _%exn102703%_)) + (let ((_%e102706%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101571%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e101574%_) + (unchecked-slot-ref _%exn102703%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e102706%_) (macro-not-in-compilation-context-exception-procedure - _%e101574%_) + _%e102706%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%e101574%_ '()))))) - (if (macro-not-in-compilation-context-exception? _%exn101571%_) + (cons _%e102706%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn102703%_) (macro-not-in-compilation-context-exception-procedure - _%exn101571%_) + _%exn102703%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%exn101571%_ '()))))))) + (cons _%exn102703%_ '()))))))) (define number-of-arguments-limit-exception? - (lambda (_%exn101567%_) + (lambda (_%exn102699%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101567%_)) - (let ((_%e101569%_ + (class-instance? RuntimeException::t _%exn102699%_)) + (let ((_%e102701%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101567%_ 'exception)))) - (macro-number-of-arguments-limit-exception? _%e101569%_)) - (macro-number-of-arguments-limit-exception? _%exn101567%_)))) + (unchecked-slot-ref _%exn102699%_ 'exception)))) + (macro-number-of-arguments-limit-exception? _%e102701%_)) + (macro-number-of-arguments-limit-exception? _%exn102699%_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_%exn101563%_) + (lambda (_%exn102695%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101563%_)) - (let ((_%e101565%_ + (class-instance? RuntimeException::t _%exn102695%_)) + (let ((_%e102697%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101563%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e101565%_) + (unchecked-slot-ref _%exn102695%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e102697%_) (macro-number-of-arguments-limit-exception-arguments - _%e101565%_) + _%e102697%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%e101565%_ '()))))) - (if (macro-number-of-arguments-limit-exception? _%exn101563%_) + (cons _%e102697%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn102695%_) (macro-number-of-arguments-limit-exception-arguments - _%exn101563%_) + _%exn102695%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%exn101563%_ '()))))))) + (cons _%exn102695%_ '()))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_%exn101557%_) + (lambda (_%exn102689%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101557%_)) - (let ((_%e101560%_ + (class-instance? RuntimeException::t _%exn102689%_)) + (let ((_%e102692%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101557%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e101560%_) + (unchecked-slot-ref _%exn102689%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e102692%_) (macro-number-of-arguments-limit-exception-procedure - _%e101560%_) + _%e102692%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%e101560%_ '()))))) - (if (macro-number-of-arguments-limit-exception? _%exn101557%_) + (cons _%e102692%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn102689%_) (macro-number-of-arguments-limit-exception-procedure - _%exn101557%_) + _%exn102689%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%exn101557%_ '()))))))) + (cons _%exn102689%_ '()))))))) (define os-exception? - (lambda (_%exn101553%_) + (lambda (_%exn102685%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101553%_)) - (let ((_%e101555%_ + (class-instance? RuntimeException::t _%exn102685%_)) + (let ((_%e102687%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101553%_ 'exception)))) - (macro-os-exception? _%e101555%_)) - (macro-os-exception? _%exn101553%_)))) + (unchecked-slot-ref _%exn102685%_ 'exception)))) + (macro-os-exception? _%e102687%_)) + (macro-os-exception? _%exn102685%_)))) (define os-exception-arguments - (lambda (_%exn101549%_) + (lambda (_%exn102681%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101549%_)) - (let ((_%e101551%_ + (class-instance? RuntimeException::t _%exn102681%_)) + (let ((_%e102683%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101549%_ 'exception)))) - (if (macro-os-exception? _%e101551%_) - (macro-os-exception-arguments _%e101551%_) + (unchecked-slot-ref _%exn102681%_ 'exception)))) + (if (macro-os-exception? _%e102683%_) + (macro-os-exception-arguments _%e102683%_) (error '"not an instance" 'os-exception? (cons 'os-exception-arguments - (cons _%e101551%_ '()))))) - (if (macro-os-exception? _%exn101549%_) - (macro-os-exception-arguments _%exn101549%_) + (cons _%e102683%_ '()))))) + (if (macro-os-exception? _%exn102681%_) + (macro-os-exception-arguments _%exn102681%_) (error '"not an instance" 'os-exception? (cons 'os-exception-arguments - (cons _%exn101549%_ '()))))))) + (cons _%exn102681%_ '()))))))) (define os-exception-code - (lambda (_%exn101545%_) + (lambda (_%exn102677%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101545%_)) - (let ((_%e101547%_ + (class-instance? RuntimeException::t _%exn102677%_)) + (let ((_%e102679%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101545%_ 'exception)))) - (if (macro-os-exception? _%e101547%_) - (macro-os-exception-code _%e101547%_) + (unchecked-slot-ref _%exn102677%_ 'exception)))) + (if (macro-os-exception? _%e102679%_) + (macro-os-exception-code _%e102679%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-code (cons _%e101547%_ '()))))) - (if (macro-os-exception? _%exn101545%_) - (macro-os-exception-code _%exn101545%_) + (cons 'os-exception-code (cons _%e102679%_ '()))))) + (if (macro-os-exception? _%exn102677%_) + (macro-os-exception-code _%exn102677%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-code (cons _%exn101545%_ '()))))))) + (cons 'os-exception-code (cons _%exn102677%_ '()))))))) (define os-exception-message - (lambda (_%exn101541%_) + (lambda (_%exn102673%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101541%_)) - (let ((_%e101543%_ + (class-instance? RuntimeException::t _%exn102673%_)) + (let ((_%e102675%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101541%_ 'exception)))) - (if (macro-os-exception? _%e101543%_) - (macro-os-exception-message _%e101543%_) + (unchecked-slot-ref _%exn102673%_ 'exception)))) + (if (macro-os-exception? _%e102675%_) + (macro-os-exception-message _%e102675%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-message (cons _%e101543%_ '()))))) - (if (macro-os-exception? _%exn101541%_) - (macro-os-exception-message _%exn101541%_) + (cons 'os-exception-message (cons _%e102675%_ '()))))) + (if (macro-os-exception? _%exn102673%_) + (macro-os-exception-message _%exn102673%_) (error '"not an instance" 'os-exception? (cons 'os-exception-message - (cons _%exn101541%_ '()))))))) + (cons _%exn102673%_ '()))))))) (define os-exception-procedure - (lambda (_%exn101535%_) + (lambda (_%exn102667%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101535%_)) - (let ((_%e101538%_ + (class-instance? RuntimeException::t _%exn102667%_)) + (let ((_%e102670%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101535%_ 'exception)))) - (if (macro-os-exception? _%e101538%_) - (macro-os-exception-procedure _%e101538%_) + (unchecked-slot-ref _%exn102667%_ 'exception)))) + (if (macro-os-exception? _%e102670%_) + (macro-os-exception-procedure _%e102670%_) (error '"not an instance" 'os-exception? (cons 'os-exception-procedure - (cons _%e101538%_ '()))))) - (if (macro-os-exception? _%exn101535%_) - (macro-os-exception-procedure _%exn101535%_) + (cons _%e102670%_ '()))))) + (if (macro-os-exception? _%exn102667%_) + (macro-os-exception-procedure _%exn102667%_) (error '"not an instance" 'os-exception? (cons 'os-exception-procedure - (cons _%exn101535%_ '()))))))) + (cons _%exn102667%_ '()))))))) (define permission-denied-exception? - (lambda (_%exn101531%_) + (lambda (_%exn102663%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101531%_)) - (let ((_%e101533%_ + (class-instance? RuntimeException::t _%exn102663%_)) + (let ((_%e102665%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101531%_ 'exception)))) - (macro-permission-denied-exception? _%e101533%_)) - (macro-permission-denied-exception? _%exn101531%_)))) + (unchecked-slot-ref _%exn102663%_ 'exception)))) + (macro-permission-denied-exception? _%e102665%_)) + (macro-permission-denied-exception? _%exn102663%_)))) (define permission-denied-exception-arguments - (lambda (_%exn101527%_) + (lambda (_%exn102659%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101527%_)) - (let ((_%e101529%_ + (class-instance? RuntimeException::t _%exn102659%_)) + (let ((_%e102661%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101527%_ 'exception)))) - (if (macro-permission-denied-exception? _%e101529%_) - (macro-permission-denied-exception-arguments _%e101529%_) + (unchecked-slot-ref _%exn102659%_ 'exception)))) + (if (macro-permission-denied-exception? _%e102661%_) + (macro-permission-denied-exception-arguments _%e102661%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-arguments - (cons _%e101529%_ '()))))) - (if (macro-permission-denied-exception? _%exn101527%_) - (macro-permission-denied-exception-arguments _%exn101527%_) + (cons _%e102661%_ '()))))) + (if (macro-permission-denied-exception? _%exn102659%_) + (macro-permission-denied-exception-arguments _%exn102659%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-arguments - (cons _%exn101527%_ '()))))))) + (cons _%exn102659%_ '()))))))) (define permission-denied-exception-procedure - (lambda (_%exn101521%_) + (lambda (_%exn102653%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101521%_)) - (let ((_%e101524%_ + (class-instance? RuntimeException::t _%exn102653%_)) + (let ((_%e102656%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101521%_ 'exception)))) - (if (macro-permission-denied-exception? _%e101524%_) - (macro-permission-denied-exception-procedure _%e101524%_) + (unchecked-slot-ref _%exn102653%_ 'exception)))) + (if (macro-permission-denied-exception? _%e102656%_) + (macro-permission-denied-exception-procedure _%e102656%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-procedure - (cons _%e101524%_ '()))))) - (if (macro-permission-denied-exception? _%exn101521%_) - (macro-permission-denied-exception-procedure _%exn101521%_) + (cons _%e102656%_ '()))))) + (if (macro-permission-denied-exception? _%exn102653%_) + (macro-permission-denied-exception-procedure _%exn102653%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-procedure - (cons _%exn101521%_ '()))))))) + (cons _%exn102653%_ '()))))))) (define range-exception? - (lambda (_%exn101517%_) + (lambda (_%exn102649%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101517%_)) - (let ((_%e101519%_ + (class-instance? RuntimeException::t _%exn102649%_)) + (let ((_%e102651%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101517%_ 'exception)))) - (macro-range-exception? _%e101519%_)) - (macro-range-exception? _%exn101517%_)))) + (unchecked-slot-ref _%exn102649%_ 'exception)))) + (macro-range-exception? _%e102651%_)) + (macro-range-exception? _%exn102649%_)))) (define range-exception-arg-id - (lambda (_%exn101513%_) + (lambda (_%exn102645%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101513%_)) - (let ((_%e101515%_ + (class-instance? RuntimeException::t _%exn102645%_)) + (let ((_%e102647%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101513%_ 'exception)))) - (if (macro-range-exception? _%e101515%_) - (macro-range-exception-arg-id _%e101515%_) + (unchecked-slot-ref _%exn102645%_ 'exception)))) + (if (macro-range-exception? _%e102647%_) + (macro-range-exception-arg-id _%e102647%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arg-id - (cons _%e101515%_ '()))))) - (if (macro-range-exception? _%exn101513%_) - (macro-range-exception-arg-id _%exn101513%_) + (cons _%e102647%_ '()))))) + (if (macro-range-exception? _%exn102645%_) + (macro-range-exception-arg-id _%exn102645%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arg-id - (cons _%exn101513%_ '()))))))) + (cons _%exn102645%_ '()))))))) (define range-exception-arguments - (lambda (_%exn101509%_) + (lambda (_%exn102641%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101509%_)) - (let ((_%e101511%_ + (class-instance? RuntimeException::t _%exn102641%_)) + (let ((_%e102643%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101509%_ 'exception)))) - (if (macro-range-exception? _%e101511%_) - (macro-range-exception-arguments _%e101511%_) + (unchecked-slot-ref _%exn102641%_ 'exception)))) + (if (macro-range-exception? _%e102643%_) + (macro-range-exception-arguments _%e102643%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arguments - (cons _%e101511%_ '()))))) - (if (macro-range-exception? _%exn101509%_) - (macro-range-exception-arguments _%exn101509%_) + (cons _%e102643%_ '()))))) + (if (macro-range-exception? _%exn102641%_) + (macro-range-exception-arguments _%exn102641%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arguments - (cons _%exn101509%_ '()))))))) + (cons _%exn102641%_ '()))))))) (define range-exception-procedure - (lambda (_%exn101503%_) + (lambda (_%exn102635%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101503%_)) - (let ((_%e101506%_ + (class-instance? RuntimeException::t _%exn102635%_)) + (let ((_%e102638%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101503%_ 'exception)))) - (if (macro-range-exception? _%e101506%_) - (macro-range-exception-procedure _%e101506%_) + (unchecked-slot-ref _%exn102635%_ 'exception)))) + (if (macro-range-exception? _%e102638%_) + (macro-range-exception-procedure _%e102638%_) (error '"not an instance" 'range-exception? (cons 'range-exception-procedure - (cons _%e101506%_ '()))))) - (if (macro-range-exception? _%exn101503%_) - (macro-range-exception-procedure _%exn101503%_) + (cons _%e102638%_ '()))))) + (if (macro-range-exception? _%exn102635%_) + (macro-range-exception-procedure _%exn102635%_) (error '"not an instance" 'range-exception? (cons 'range-exception-procedure - (cons _%exn101503%_ '()))))))) + (cons _%exn102635%_ '()))))))) (define rpc-remote-error-exception? - (lambda (_%exn101499%_) + (lambda (_%exn102631%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101499%_)) - (let ((_%e101501%_ + (class-instance? RuntimeException::t _%exn102631%_)) + (let ((_%e102633%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101499%_ 'exception)))) - (macro-rpc-remote-error-exception? _%e101501%_)) - (macro-rpc-remote-error-exception? _%exn101499%_)))) + (unchecked-slot-ref _%exn102631%_ 'exception)))) + (macro-rpc-remote-error-exception? _%e102633%_)) + (macro-rpc-remote-error-exception? _%exn102631%_)))) (define rpc-remote-error-exception-arguments - (lambda (_%exn101495%_) + (lambda (_%exn102627%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101495%_)) - (let ((_%e101497%_ + (class-instance? RuntimeException::t _%exn102627%_)) + (let ((_%e102629%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101495%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e101497%_) - (macro-rpc-remote-error-exception-arguments _%e101497%_) + (unchecked-slot-ref _%exn102627%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e102629%_) + (macro-rpc-remote-error-exception-arguments _%e102629%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-arguments - (cons _%e101497%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn101495%_) - (macro-rpc-remote-error-exception-arguments _%exn101495%_) + (cons _%e102629%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn102627%_) + (macro-rpc-remote-error-exception-arguments _%exn102627%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-arguments - (cons _%exn101495%_ '()))))))) + (cons _%exn102627%_ '()))))))) (define rpc-remote-error-exception-message - (lambda (_%exn101491%_) + (lambda (_%exn102623%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101491%_)) - (let ((_%e101493%_ + (class-instance? RuntimeException::t _%exn102623%_)) + (let ((_%e102625%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101491%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e101493%_) - (macro-rpc-remote-error-exception-message _%e101493%_) + (unchecked-slot-ref _%exn102623%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e102625%_) + (macro-rpc-remote-error-exception-message _%e102625%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-message - (cons _%e101493%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn101491%_) - (macro-rpc-remote-error-exception-message _%exn101491%_) + (cons _%e102625%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn102623%_) + (macro-rpc-remote-error-exception-message _%exn102623%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-message - (cons _%exn101491%_ '()))))))) + (cons _%exn102623%_ '()))))))) (define rpc-remote-error-exception-procedure - (lambda (_%exn101485%_) + (lambda (_%exn102617%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101485%_)) - (let ((_%e101488%_ + (class-instance? RuntimeException::t _%exn102617%_)) + (let ((_%e102620%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101485%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e101488%_) - (macro-rpc-remote-error-exception-procedure _%e101488%_) + (unchecked-slot-ref _%exn102617%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e102620%_) + (macro-rpc-remote-error-exception-procedure _%e102620%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-procedure - (cons _%e101488%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn101485%_) - (macro-rpc-remote-error-exception-procedure _%exn101485%_) + (cons _%e102620%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn102617%_) + (macro-rpc-remote-error-exception-procedure _%exn102617%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-procedure - (cons _%exn101485%_ '()))))))) + (cons _%exn102617%_ '()))))))) (define scheduler-exception? - (lambda (_%exn101481%_) + (lambda (_%exn102613%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101481%_)) - (let ((_%e101483%_ + (class-instance? RuntimeException::t _%exn102613%_)) + (let ((_%e102615%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101481%_ 'exception)))) - (macro-scheduler-exception? _%e101483%_)) - (macro-scheduler-exception? _%exn101481%_)))) + (unchecked-slot-ref _%exn102613%_ 'exception)))) + (macro-scheduler-exception? _%e102615%_)) + (macro-scheduler-exception? _%exn102613%_)))) (define scheduler-exception-reason - (lambda (_%exn101475%_) + (lambda (_%exn102607%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101475%_)) - (let ((_%e101478%_ + (class-instance? RuntimeException::t _%exn102607%_)) + (let ((_%e102610%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101475%_ 'exception)))) - (if (macro-scheduler-exception? _%e101478%_) - (macro-scheduler-exception-reason _%e101478%_) + (unchecked-slot-ref _%exn102607%_ 'exception)))) + (if (macro-scheduler-exception? _%e102610%_) + (macro-scheduler-exception-reason _%e102610%_) (error '"not an instance" 'scheduler-exception? (cons 'scheduler-exception-reason - (cons _%e101478%_ '()))))) - (if (macro-scheduler-exception? _%exn101475%_) - (macro-scheduler-exception-reason _%exn101475%_) + (cons _%e102610%_ '()))))) + (if (macro-scheduler-exception? _%exn102607%_) + (macro-scheduler-exception-reason _%exn102607%_) (error '"not an instance" 'scheduler-exception? (cons 'scheduler-exception-reason - (cons _%exn101475%_ '()))))))) + (cons _%exn102607%_ '()))))))) (define sfun-conversion-exception? - (lambda (_%exn101471%_) + (lambda (_%exn102603%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101471%_)) - (let ((_%e101473%_ + (class-instance? RuntimeException::t _%exn102603%_)) + (let ((_%e102605%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101471%_ 'exception)))) - (macro-sfun-conversion-exception? _%e101473%_)) - (macro-sfun-conversion-exception? _%exn101471%_)))) + (unchecked-slot-ref _%exn102603%_ 'exception)))) + (macro-sfun-conversion-exception? _%e102605%_)) + (macro-sfun-conversion-exception? _%exn102603%_)))) (define sfun-conversion-exception-arguments - (lambda (_%exn101467%_) + (lambda (_%exn102599%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101467%_)) - (let ((_%e101469%_ + (class-instance? RuntimeException::t _%exn102599%_)) + (let ((_%e102601%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101467%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e101469%_) - (macro-sfun-conversion-exception-arguments _%e101469%_) + (unchecked-slot-ref _%exn102599%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e102601%_) + (macro-sfun-conversion-exception-arguments _%e102601%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-arguments - (cons _%e101469%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn101467%_) - (macro-sfun-conversion-exception-arguments _%exn101467%_) + (cons _%e102601%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn102599%_) + (macro-sfun-conversion-exception-arguments _%exn102599%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-arguments - (cons _%exn101467%_ '()))))))) + (cons _%exn102599%_ '()))))))) (define sfun-conversion-exception-code - (lambda (_%exn101463%_) + (lambda (_%exn102595%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101463%_)) - (let ((_%e101465%_ + (class-instance? RuntimeException::t _%exn102595%_)) + (let ((_%e102597%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101463%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e101465%_) - (macro-sfun-conversion-exception-code _%e101465%_) + (unchecked-slot-ref _%exn102595%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e102597%_) + (macro-sfun-conversion-exception-code _%e102597%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-code - (cons _%e101465%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn101463%_) - (macro-sfun-conversion-exception-code _%exn101463%_) + (cons _%e102597%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn102595%_) + (macro-sfun-conversion-exception-code _%exn102595%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-code - (cons _%exn101463%_ '()))))))) + (cons _%exn102595%_ '()))))))) (define sfun-conversion-exception-message - (lambda (_%exn101459%_) + (lambda (_%exn102591%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101459%_)) - (let ((_%e101461%_ + (class-instance? RuntimeException::t _%exn102591%_)) + (let ((_%e102593%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101459%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e101461%_) - (macro-sfun-conversion-exception-message _%e101461%_) + (unchecked-slot-ref _%exn102591%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e102593%_) + (macro-sfun-conversion-exception-message _%e102593%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-message - (cons _%e101461%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn101459%_) - (macro-sfun-conversion-exception-message _%exn101459%_) + (cons _%e102593%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn102591%_) + (macro-sfun-conversion-exception-message _%exn102591%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-message - (cons _%exn101459%_ '()))))))) + (cons _%exn102591%_ '()))))))) (define sfun-conversion-exception-procedure - (lambda (_%exn101453%_) + (lambda (_%exn102585%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101453%_)) - (let ((_%e101456%_ + (class-instance? RuntimeException::t _%exn102585%_)) + (let ((_%e102588%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101453%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e101456%_) - (macro-sfun-conversion-exception-procedure _%e101456%_) + (unchecked-slot-ref _%exn102585%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e102588%_) + (macro-sfun-conversion-exception-procedure _%e102588%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-procedure - (cons _%e101456%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn101453%_) - (macro-sfun-conversion-exception-procedure _%exn101453%_) + (cons _%e102588%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn102585%_) + (macro-sfun-conversion-exception-procedure _%exn102585%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-procedure - (cons _%exn101453%_ '()))))))) + (cons _%exn102585%_ '()))))))) (define stack-overflow-exception? - (lambda (_%exn101447%_) + (lambda (_%exn102579%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101447%_)) - (let ((_%e101450%_ + (class-instance? RuntimeException::t _%exn102579%_)) + (let ((_%e102582%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101447%_ 'exception)))) - (macro-stack-overflow-exception? _%e101450%_)) - (macro-stack-overflow-exception? _%exn101447%_)))) + (unchecked-slot-ref _%exn102579%_ 'exception)))) + (macro-stack-overflow-exception? _%e102582%_)) + (macro-stack-overflow-exception? _%exn102579%_)))) (define started-thread-exception? - (lambda (_%exn101443%_) + (lambda (_%exn102575%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101443%_)) - (let ((_%e101445%_ + (class-instance? RuntimeException::t _%exn102575%_)) + (let ((_%e102577%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101443%_ 'exception)))) - (macro-started-thread-exception? _%e101445%_)) - (macro-started-thread-exception? _%exn101443%_)))) + (unchecked-slot-ref _%exn102575%_ 'exception)))) + (macro-started-thread-exception? _%e102577%_)) + (macro-started-thread-exception? _%exn102575%_)))) (define started-thread-exception-arguments - (lambda (_%exn101439%_) + (lambda (_%exn102571%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101439%_)) - (let ((_%e101441%_ + (class-instance? RuntimeException::t _%exn102571%_)) + (let ((_%e102573%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101439%_ 'exception)))) - (if (macro-started-thread-exception? _%e101441%_) - (macro-started-thread-exception-arguments _%e101441%_) + (unchecked-slot-ref _%exn102571%_ 'exception)))) + (if (macro-started-thread-exception? _%e102573%_) + (macro-started-thread-exception-arguments _%e102573%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-arguments - (cons _%e101441%_ '()))))) - (if (macro-started-thread-exception? _%exn101439%_) - (macro-started-thread-exception-arguments _%exn101439%_) + (cons _%e102573%_ '()))))) + (if (macro-started-thread-exception? _%exn102571%_) + (macro-started-thread-exception-arguments _%exn102571%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-arguments - (cons _%exn101439%_ '()))))))) + (cons _%exn102571%_ '()))))))) (define started-thread-exception-procedure - (lambda (_%exn101433%_) + (lambda (_%exn102565%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101433%_)) - (let ((_%e101436%_ + (class-instance? RuntimeException::t _%exn102565%_)) + (let ((_%e102568%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101433%_ 'exception)))) - (if (macro-started-thread-exception? _%e101436%_) - (macro-started-thread-exception-procedure _%e101436%_) + (unchecked-slot-ref _%exn102565%_ 'exception)))) + (if (macro-started-thread-exception? _%e102568%_) + (macro-started-thread-exception-procedure _%e102568%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-procedure - (cons _%e101436%_ '()))))) - (if (macro-started-thread-exception? _%exn101433%_) - (macro-started-thread-exception-procedure _%exn101433%_) + (cons _%e102568%_ '()))))) + (if (macro-started-thread-exception? _%exn102565%_) + (macro-started-thread-exception-procedure _%exn102565%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-procedure - (cons _%exn101433%_ '()))))))) + (cons _%exn102565%_ '()))))))) (define terminated-thread-exception? - (lambda (_%exn101429%_) + (lambda (_%exn102561%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101429%_)) - (let ((_%e101431%_ + (class-instance? RuntimeException::t _%exn102561%_)) + (let ((_%e102563%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101429%_ 'exception)))) - (macro-terminated-thread-exception? _%e101431%_)) - (macro-terminated-thread-exception? _%exn101429%_)))) + (unchecked-slot-ref _%exn102561%_ 'exception)))) + (macro-terminated-thread-exception? _%e102563%_)) + (macro-terminated-thread-exception? _%exn102561%_)))) (define terminated-thread-exception-arguments - (lambda (_%exn101425%_) + (lambda (_%exn102557%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101425%_)) - (let ((_%e101427%_ + (class-instance? RuntimeException::t _%exn102557%_)) + (let ((_%e102559%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101425%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e101427%_) - (macro-terminated-thread-exception-arguments _%e101427%_) + (unchecked-slot-ref _%exn102557%_ 'exception)))) + (if (macro-terminated-thread-exception? _%e102559%_) + (macro-terminated-thread-exception-arguments _%e102559%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-arguments - (cons _%e101427%_ '()))))) - (if (macro-terminated-thread-exception? _%exn101425%_) - (macro-terminated-thread-exception-arguments _%exn101425%_) + (cons _%e102559%_ '()))))) + (if (macro-terminated-thread-exception? _%exn102557%_) + (macro-terminated-thread-exception-arguments _%exn102557%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-arguments - (cons _%exn101425%_ '()))))))) + (cons _%exn102557%_ '()))))))) (define terminated-thread-exception-procedure - (lambda (_%exn101419%_) + (lambda (_%exn102551%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101419%_)) - (let ((_%e101422%_ + (class-instance? RuntimeException::t _%exn102551%_)) + (let ((_%e102554%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101419%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e101422%_) - (macro-terminated-thread-exception-procedure _%e101422%_) + (unchecked-slot-ref _%exn102551%_ 'exception)))) + (if (macro-terminated-thread-exception? _%e102554%_) + (macro-terminated-thread-exception-procedure _%e102554%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-procedure - (cons _%e101422%_ '()))))) - (if (macro-terminated-thread-exception? _%exn101419%_) - (macro-terminated-thread-exception-procedure _%exn101419%_) + (cons _%e102554%_ '()))))) + (if (macro-terminated-thread-exception? _%exn102551%_) + (macro-terminated-thread-exception-procedure _%exn102551%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-procedure - (cons _%exn101419%_ '()))))))) + (cons _%exn102551%_ '()))))))) (define type-exception? - (lambda (_%exn101415%_) + (lambda (_%exn102547%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101415%_)) - (let ((_%e101417%_ + (class-instance? RuntimeException::t _%exn102547%_)) + (let ((_%e102549%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101415%_ 'exception)))) - (macro-type-exception? _%e101417%_)) - (macro-type-exception? _%exn101415%_)))) + (unchecked-slot-ref _%exn102547%_ 'exception)))) + (macro-type-exception? _%e102549%_)) + (macro-type-exception? _%exn102547%_)))) (define type-exception-arg-id - (lambda (_%exn101411%_) + (lambda (_%exn102543%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101411%_)) - (let ((_%e101413%_ + (class-instance? RuntimeException::t _%exn102543%_)) + (let ((_%e102545%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101411%_ 'exception)))) - (if (macro-type-exception? _%e101413%_) - (macro-type-exception-arg-id _%e101413%_) + (unchecked-slot-ref _%exn102543%_ 'exception)))) + (if (macro-type-exception? _%e102545%_) + (macro-type-exception-arg-id _%e102545%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arg-id - (cons _%e101413%_ '()))))) - (if (macro-type-exception? _%exn101411%_) - (macro-type-exception-arg-id _%exn101411%_) + (cons _%e102545%_ '()))))) + (if (macro-type-exception? _%exn102543%_) + (macro-type-exception-arg-id _%exn102543%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arg-id - (cons _%exn101411%_ '()))))))) + (cons _%exn102543%_ '()))))))) (define type-exception-arguments - (lambda (_%exn101407%_) + (lambda (_%exn102539%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101407%_)) - (let ((_%e101409%_ + (class-instance? RuntimeException::t _%exn102539%_)) + (let ((_%e102541%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101407%_ 'exception)))) - (if (macro-type-exception? _%e101409%_) - (macro-type-exception-arguments _%e101409%_) + (unchecked-slot-ref _%exn102539%_ 'exception)))) + (if (macro-type-exception? _%e102541%_) + (macro-type-exception-arguments _%e102541%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arguments - (cons _%e101409%_ '()))))) - (if (macro-type-exception? _%exn101407%_) - (macro-type-exception-arguments _%exn101407%_) + (cons _%e102541%_ '()))))) + (if (macro-type-exception? _%exn102539%_) + (macro-type-exception-arguments _%exn102539%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arguments - (cons _%exn101407%_ '()))))))) + (cons _%exn102539%_ '()))))))) (define type-exception-procedure - (lambda (_%exn101403%_) + (lambda (_%exn102535%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101403%_)) - (let ((_%e101405%_ + (class-instance? RuntimeException::t _%exn102535%_)) + (let ((_%e102537%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101403%_ 'exception)))) - (if (macro-type-exception? _%e101405%_) - (macro-type-exception-procedure _%e101405%_) + (unchecked-slot-ref _%exn102535%_ 'exception)))) + (if (macro-type-exception? _%e102537%_) + (macro-type-exception-procedure _%e102537%_) (error '"not an instance" 'type-exception? (cons 'type-exception-procedure - (cons _%e101405%_ '()))))) - (if (macro-type-exception? _%exn101403%_) - (macro-type-exception-procedure _%exn101403%_) + (cons _%e102537%_ '()))))) + (if (macro-type-exception? _%exn102535%_) + (macro-type-exception-procedure _%exn102535%_) (error '"not an instance" 'type-exception? (cons 'type-exception-procedure - (cons _%exn101403%_ '()))))))) + (cons _%exn102535%_ '()))))))) (define type-exception-type-id - (lambda (_%exn101397%_) + (lambda (_%exn102529%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101397%_)) - (let ((_%e101400%_ + (class-instance? RuntimeException::t _%exn102529%_)) + (let ((_%e102532%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101397%_ 'exception)))) - (if (macro-type-exception? _%e101400%_) - (macro-type-exception-type-id _%e101400%_) + (unchecked-slot-ref _%exn102529%_ 'exception)))) + (if (macro-type-exception? _%e102532%_) + (macro-type-exception-type-id _%e102532%_) (error '"not an instance" 'type-exception? (cons 'type-exception-type-id - (cons _%e101400%_ '()))))) - (if (macro-type-exception? _%exn101397%_) - (macro-type-exception-type-id _%exn101397%_) + (cons _%e102532%_ '()))))) + (if (macro-type-exception? _%exn102529%_) + (macro-type-exception-type-id _%exn102529%_) (error '"not an instance" 'type-exception? (cons 'type-exception-type-id - (cons _%exn101397%_ '()))))))) + (cons _%exn102529%_ '()))))))) (define unbound-global-exception? - (lambda (_%exn101393%_) + (lambda (_%exn102525%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101393%_)) - (let ((_%e101395%_ + (class-instance? RuntimeException::t _%exn102525%_)) + (let ((_%e102527%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101393%_ 'exception)))) - (macro-unbound-global-exception? _%e101395%_)) - (macro-unbound-global-exception? _%exn101393%_)))) + (unchecked-slot-ref _%exn102525%_ 'exception)))) + (macro-unbound-global-exception? _%e102527%_)) + (macro-unbound-global-exception? _%exn102525%_)))) (define unbound-global-exception-code - (lambda (_%exn101389%_) + (lambda (_%exn102521%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101389%_)) - (let ((_%e101391%_ + (class-instance? RuntimeException::t _%exn102521%_)) + (let ((_%e102523%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101389%_ 'exception)))) - (if (macro-unbound-global-exception? _%e101391%_) - (macro-unbound-global-exception-code _%e101391%_) + (unchecked-slot-ref _%exn102521%_ 'exception)))) + (if (macro-unbound-global-exception? _%e102523%_) + (macro-unbound-global-exception-code _%e102523%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-code - (cons _%e101391%_ '()))))) - (if (macro-unbound-global-exception? _%exn101389%_) - (macro-unbound-global-exception-code _%exn101389%_) + (cons _%e102523%_ '()))))) + (if (macro-unbound-global-exception? _%exn102521%_) + (macro-unbound-global-exception-code _%exn102521%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-code - (cons _%exn101389%_ '()))))))) + (cons _%exn102521%_ '()))))))) (define unbound-global-exception-rte - (lambda (_%exn101385%_) + (lambda (_%exn102517%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101385%_)) - (let ((_%e101387%_ + (class-instance? RuntimeException::t _%exn102517%_)) + (let ((_%e102519%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101385%_ 'exception)))) - (if (macro-unbound-global-exception? _%e101387%_) - (macro-unbound-global-exception-rte _%e101387%_) + (unchecked-slot-ref _%exn102517%_ 'exception)))) + (if (macro-unbound-global-exception? _%e102519%_) + (macro-unbound-global-exception-rte _%e102519%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-rte - (cons _%e101387%_ '()))))) - (if (macro-unbound-global-exception? _%exn101385%_) - (macro-unbound-global-exception-rte _%exn101385%_) + (cons _%e102519%_ '()))))) + (if (macro-unbound-global-exception? _%exn102517%_) + (macro-unbound-global-exception-rte _%exn102517%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-rte - (cons _%exn101385%_ '()))))))) + (cons _%exn102517%_ '()))))))) (define unbound-global-exception-variable - (lambda (_%exn101379%_) + (lambda (_%exn102511%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101379%_)) - (let ((_%e101382%_ + (class-instance? RuntimeException::t _%exn102511%_)) + (let ((_%e102514%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101379%_ 'exception)))) - (if (macro-unbound-global-exception? _%e101382%_) - (macro-unbound-global-exception-variable _%e101382%_) + (unchecked-slot-ref _%exn102511%_ 'exception)))) + (if (macro-unbound-global-exception? _%e102514%_) + (macro-unbound-global-exception-variable _%e102514%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-variable - (cons _%e101382%_ '()))))) - (if (macro-unbound-global-exception? _%exn101379%_) - (macro-unbound-global-exception-variable _%exn101379%_) + (cons _%e102514%_ '()))))) + (if (macro-unbound-global-exception? _%exn102511%_) + (macro-unbound-global-exception-variable _%exn102511%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-variable - (cons _%exn101379%_ '()))))))) + (cons _%exn102511%_ '()))))))) (define unbound-key-exception? - (lambda (_%exn101375%_) + (lambda (_%exn102507%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101375%_)) - (let ((_%e101377%_ + (class-instance? RuntimeException::t _%exn102507%_)) + (let ((_%e102509%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101375%_ 'exception)))) - (macro-unbound-key-exception? _%e101377%_)) - (macro-unbound-key-exception? _%exn101375%_)))) + (unchecked-slot-ref _%exn102507%_ 'exception)))) + (macro-unbound-key-exception? _%e102509%_)) + (macro-unbound-key-exception? _%exn102507%_)))) (define unbound-key-exception-arguments - (lambda (_%exn101371%_) + (lambda (_%exn102503%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101371%_)) - (let ((_%e101373%_ + (class-instance? RuntimeException::t _%exn102503%_)) + (let ((_%e102505%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101371%_ 'exception)))) - (if (macro-unbound-key-exception? _%e101373%_) - (macro-unbound-key-exception-arguments _%e101373%_) + (unchecked-slot-ref _%exn102503%_ 'exception)))) + (if (macro-unbound-key-exception? _%e102505%_) + (macro-unbound-key-exception-arguments _%e102505%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-arguments - (cons _%e101373%_ '()))))) - (if (macro-unbound-key-exception? _%exn101371%_) - (macro-unbound-key-exception-arguments _%exn101371%_) + (cons _%e102505%_ '()))))) + (if (macro-unbound-key-exception? _%exn102503%_) + (macro-unbound-key-exception-arguments _%exn102503%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-arguments - (cons _%exn101371%_ '()))))))) + (cons _%exn102503%_ '()))))))) (define unbound-key-exception-procedure - (lambda (_%exn101365%_) + (lambda (_%exn102497%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101365%_)) - (let ((_%e101368%_ + (class-instance? RuntimeException::t _%exn102497%_)) + (let ((_%e102500%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101365%_ 'exception)))) - (if (macro-unbound-key-exception? _%e101368%_) - (macro-unbound-key-exception-procedure _%e101368%_) + (unchecked-slot-ref _%exn102497%_ 'exception)))) + (if (macro-unbound-key-exception? _%e102500%_) + (macro-unbound-key-exception-procedure _%e102500%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-procedure - (cons _%e101368%_ '()))))) - (if (macro-unbound-key-exception? _%exn101365%_) - (macro-unbound-key-exception-procedure _%exn101365%_) + (cons _%e102500%_ '()))))) + (if (macro-unbound-key-exception? _%exn102497%_) + (macro-unbound-key-exception-procedure _%exn102497%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-procedure - (cons _%exn101365%_ '()))))))) + (cons _%exn102497%_ '()))))))) (define unbound-os-environment-variable-exception? - (lambda (_%exn101361%_) + (lambda (_%exn102493%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101361%_)) - (let ((_%e101363%_ + (class-instance? RuntimeException::t _%exn102493%_)) + (let ((_%e102495%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101361%_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _%e101363%_)) - (macro-unbound-os-environment-variable-exception? _%exn101361%_)))) + (unchecked-slot-ref _%exn102493%_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _%e102495%_)) + (macro-unbound-os-environment-variable-exception? _%exn102493%_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_%exn101357%_) + (lambda (_%exn102489%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101357%_)) - (let ((_%e101359%_ + (class-instance? RuntimeException::t _%exn102489%_)) + (let ((_%e102491%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101357%_ 'exception)))) + (unchecked-slot-ref _%exn102489%_ 'exception)))) (if (macro-unbound-os-environment-variable-exception? - _%e101359%_) + _%e102491%_) (macro-unbound-os-environment-variable-exception-arguments - _%e101359%_) + _%e102491%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%e101359%_ '()))))) + (cons _%e102491%_ '()))))) (if (macro-unbound-os-environment-variable-exception? - _%exn101357%_) + _%exn102489%_) (macro-unbound-os-environment-variable-exception-arguments - _%exn101357%_) + _%exn102489%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%exn101357%_ '()))))))) + (cons _%exn102489%_ '()))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_%exn101351%_) + (lambda (_%exn102483%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101351%_)) - (let ((_%e101354%_ + (class-instance? RuntimeException::t _%exn102483%_)) + (let ((_%e102486%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101351%_ 'exception)))) + (unchecked-slot-ref _%exn102483%_ 'exception)))) (if (macro-unbound-os-environment-variable-exception? - _%e101354%_) + _%e102486%_) (macro-unbound-os-environment-variable-exception-procedure - _%e101354%_) + _%e102486%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%e101354%_ '()))))) + (cons _%e102486%_ '()))))) (if (macro-unbound-os-environment-variable-exception? - _%exn101351%_) + _%exn102483%_) (macro-unbound-os-environment-variable-exception-procedure - _%exn101351%_) + _%exn102483%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%exn101351%_ '()))))))) + (cons _%exn102483%_ '()))))))) (define unbound-serial-number-exception? - (lambda (_%exn101347%_) + (lambda (_%exn102479%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101347%_)) - (let ((_%e101349%_ + (class-instance? RuntimeException::t _%exn102479%_)) + (let ((_%e102481%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101347%_ 'exception)))) - (macro-unbound-serial-number-exception? _%e101349%_)) - (macro-unbound-serial-number-exception? _%exn101347%_)))) + (unchecked-slot-ref _%exn102479%_ 'exception)))) + (macro-unbound-serial-number-exception? _%e102481%_)) + (macro-unbound-serial-number-exception? _%exn102479%_)))) (define unbound-serial-number-exception-arguments - (lambda (_%exn101343%_) + (lambda (_%exn102475%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101343%_)) - (let ((_%e101345%_ + (class-instance? RuntimeException::t _%exn102475%_)) + (let ((_%e102477%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101343%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e101345%_) - (macro-unbound-serial-number-exception-arguments _%e101345%_) + (unchecked-slot-ref _%exn102475%_ 'exception)))) + (if (macro-unbound-serial-number-exception? _%e102477%_) + (macro-unbound-serial-number-exception-arguments _%e102477%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-arguments - (cons _%e101345%_ '()))))) - (if (macro-unbound-serial-number-exception? _%exn101343%_) - (macro-unbound-serial-number-exception-arguments _%exn101343%_) + (cons _%e102477%_ '()))))) + (if (macro-unbound-serial-number-exception? _%exn102475%_) + (macro-unbound-serial-number-exception-arguments _%exn102475%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-arguments - (cons _%exn101343%_ '()))))))) + (cons _%exn102475%_ '()))))))) (define unbound-serial-number-exception-procedure - (lambda (_%exn101337%_) + (lambda (_%exn102469%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101337%_)) - (let ((_%e101340%_ + (class-instance? RuntimeException::t _%exn102469%_)) + (let ((_%e102472%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101337%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e101340%_) - (macro-unbound-serial-number-exception-procedure _%e101340%_) + (unchecked-slot-ref _%exn102469%_ 'exception)))) + (if (macro-unbound-serial-number-exception? _%e102472%_) + (macro-unbound-serial-number-exception-procedure _%e102472%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-procedure - (cons _%e101340%_ '()))))) - (if (macro-unbound-serial-number-exception? _%exn101337%_) - (macro-unbound-serial-number-exception-procedure _%exn101337%_) + (cons _%e102472%_ '()))))) + (if (macro-unbound-serial-number-exception? _%exn102469%_) + (macro-unbound-serial-number-exception-procedure _%exn102469%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-procedure - (cons _%exn101337%_ '()))))))) + (cons _%exn102469%_ '()))))))) (define uncaught-exception? - (lambda (_%exn101333%_) + (lambda (_%exn102465%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101333%_)) - (let ((_%e101335%_ + (class-instance? RuntimeException::t _%exn102465%_)) + (let ((_%e102467%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101333%_ 'exception)))) - (macro-uncaught-exception? _%e101335%_)) - (macro-uncaught-exception? _%exn101333%_)))) + (unchecked-slot-ref _%exn102465%_ 'exception)))) + (macro-uncaught-exception? _%e102467%_)) + (macro-uncaught-exception? _%exn102465%_)))) (define uncaught-exception-arguments - (lambda (_%exn101329%_) + (lambda (_%exn102461%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101329%_)) - (let ((_%e101331%_ + (class-instance? RuntimeException::t _%exn102461%_)) + (let ((_%e102463%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101329%_ 'exception)))) - (if (macro-uncaught-exception? _%e101331%_) - (macro-uncaught-exception-arguments _%e101331%_) + (unchecked-slot-ref _%exn102461%_ 'exception)))) + (if (macro-uncaught-exception? _%e102463%_) + (macro-uncaught-exception-arguments _%e102463%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-arguments - (cons _%e101331%_ '()))))) - (if (macro-uncaught-exception? _%exn101329%_) - (macro-uncaught-exception-arguments _%exn101329%_) + (cons _%e102463%_ '()))))) + (if (macro-uncaught-exception? _%exn102461%_) + (macro-uncaught-exception-arguments _%exn102461%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-arguments - (cons _%exn101329%_ '()))))))) + (cons _%exn102461%_ '()))))))) (define uncaught-exception-procedure - (lambda (_%exn101325%_) + (lambda (_%exn102457%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101325%_)) - (let ((_%e101327%_ + (class-instance? RuntimeException::t _%exn102457%_)) + (let ((_%e102459%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101325%_ 'exception)))) - (if (macro-uncaught-exception? _%e101327%_) - (macro-uncaught-exception-procedure _%e101327%_) + (unchecked-slot-ref _%exn102457%_ 'exception)))) + (if (macro-uncaught-exception? _%e102459%_) + (macro-uncaught-exception-procedure _%e102459%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-procedure - (cons _%e101327%_ '()))))) - (if (macro-uncaught-exception? _%exn101325%_) - (macro-uncaught-exception-procedure _%exn101325%_) + (cons _%e102459%_ '()))))) + (if (macro-uncaught-exception? _%exn102457%_) + (macro-uncaught-exception-procedure _%exn102457%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-procedure - (cons _%exn101325%_ '()))))))) + (cons _%exn102457%_ '()))))))) (define uncaught-exception-reason - (lambda (_%exn101319%_) + (lambda (_%exn102451%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101319%_)) - (let ((_%e101322%_ + (class-instance? RuntimeException::t _%exn102451%_)) + (let ((_%e102454%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101319%_ 'exception)))) - (if (macro-uncaught-exception? _%e101322%_) - (macro-uncaught-exception-reason _%e101322%_) + (unchecked-slot-ref _%exn102451%_ 'exception)))) + (if (macro-uncaught-exception? _%e102454%_) + (macro-uncaught-exception-reason _%e102454%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-reason - (cons _%e101322%_ '()))))) - (if (macro-uncaught-exception? _%exn101319%_) - (macro-uncaught-exception-reason _%exn101319%_) + (cons _%e102454%_ '()))))) + (if (macro-uncaught-exception? _%exn102451%_) + (macro-uncaught-exception-reason _%exn102451%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-reason - (cons _%exn101319%_ '()))))))) + (cons _%exn102451%_ '()))))))) (define uninitialized-thread-exception? - (lambda (_%exn101315%_) + (lambda (_%exn102447%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101315%_)) - (let ((_%e101317%_ + (class-instance? RuntimeException::t _%exn102447%_)) + (let ((_%e102449%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101315%_ 'exception)))) - (macro-uninitialized-thread-exception? _%e101317%_)) - (macro-uninitialized-thread-exception? _%exn101315%_)))) + (unchecked-slot-ref _%exn102447%_ 'exception)))) + (macro-uninitialized-thread-exception? _%e102449%_)) + (macro-uninitialized-thread-exception? _%exn102447%_)))) (define uninitialized-thread-exception-arguments - (lambda (_%exn101311%_) + (lambda (_%exn102443%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101311%_)) - (let ((_%e101313%_ + (class-instance? RuntimeException::t _%exn102443%_)) + (let ((_%e102445%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101311%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e101313%_) - (macro-uninitialized-thread-exception-arguments _%e101313%_) + (unchecked-slot-ref _%exn102443%_ 'exception)))) + (if (macro-uninitialized-thread-exception? _%e102445%_) + (macro-uninitialized-thread-exception-arguments _%e102445%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-arguments - (cons _%e101313%_ '()))))) - (if (macro-uninitialized-thread-exception? _%exn101311%_) - (macro-uninitialized-thread-exception-arguments _%exn101311%_) + (cons _%e102445%_ '()))))) + (if (macro-uninitialized-thread-exception? _%exn102443%_) + (macro-uninitialized-thread-exception-arguments _%exn102443%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-arguments - (cons _%exn101311%_ '()))))))) + (cons _%exn102443%_ '()))))))) (define uninitialized-thread-exception-procedure - (lambda (_%exn101305%_) + (lambda (_%exn102437%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101305%_)) - (let ((_%e101308%_ + (class-instance? RuntimeException::t _%exn102437%_)) + (let ((_%e102440%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101305%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e101308%_) - (macro-uninitialized-thread-exception-procedure _%e101308%_) + (unchecked-slot-ref _%exn102437%_ 'exception)))) + (if (macro-uninitialized-thread-exception? _%e102440%_) + (macro-uninitialized-thread-exception-procedure _%e102440%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-procedure - (cons _%e101308%_ '()))))) - (if (macro-uninitialized-thread-exception? _%exn101305%_) - (macro-uninitialized-thread-exception-procedure _%exn101305%_) + (cons _%e102440%_ '()))))) + (if (macro-uninitialized-thread-exception? _%exn102437%_) + (macro-uninitialized-thread-exception-procedure _%exn102437%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-procedure - (cons _%exn101305%_ '()))))))) + (cons _%exn102437%_ '()))))))) (define unknown-keyword-argument-exception? - (lambda (_%exn101301%_) + (lambda (_%exn102433%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101301%_)) - (let ((_%e101303%_ + (class-instance? RuntimeException::t _%exn102433%_)) + (let ((_%e102435%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101301%_ 'exception)))) - (macro-unknown-keyword-argument-exception? _%e101303%_)) - (macro-unknown-keyword-argument-exception? _%exn101301%_)))) + (unchecked-slot-ref _%exn102433%_ 'exception)))) + (macro-unknown-keyword-argument-exception? _%e102435%_)) + (macro-unknown-keyword-argument-exception? _%exn102433%_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_%exn101297%_) + (lambda (_%exn102429%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101297%_)) - (let ((_%e101299%_ + (class-instance? RuntimeException::t _%exn102429%_)) + (let ((_%e102431%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101297%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e101299%_) + (unchecked-slot-ref _%exn102429%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e102431%_) (macro-unknown-keyword-argument-exception-arguments - _%e101299%_) + _%e102431%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%e101299%_ '()))))) - (if (macro-unknown-keyword-argument-exception? _%exn101297%_) + (cons _%e102431%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn102429%_) (macro-unknown-keyword-argument-exception-arguments - _%exn101297%_) + _%exn102429%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%exn101297%_ '()))))))) + (cons _%exn102429%_ '()))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_%exn101291%_) + (lambda (_%exn102423%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101291%_)) - (let ((_%e101294%_ + (class-instance? RuntimeException::t _%exn102423%_)) + (let ((_%e102426%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101291%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e101294%_) + (unchecked-slot-ref _%exn102423%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e102426%_) (macro-unknown-keyword-argument-exception-procedure - _%e101294%_) + _%e102426%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%e101294%_ '()))))) - (if (macro-unknown-keyword-argument-exception? _%exn101291%_) + (cons _%e102426%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn102423%_) (macro-unknown-keyword-argument-exception-procedure - _%exn101291%_) + _%exn102423%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%exn101291%_ '()))))))) + (cons _%exn102423%_ '()))))))) (define unterminated-process-exception? - (lambda (_%exn101287%_) + (lambda (_%exn102419%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101287%_)) - (let ((_%e101289%_ + (class-instance? RuntimeException::t _%exn102419%_)) + (let ((_%e102421%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101287%_ 'exception)))) - (macro-unterminated-process-exception? _%e101289%_)) - (macro-unterminated-process-exception? _%exn101287%_)))) + (unchecked-slot-ref _%exn102419%_ 'exception)))) + (macro-unterminated-process-exception? _%e102421%_)) + (macro-unterminated-process-exception? _%exn102419%_)))) (define unterminated-process-exception-arguments - (lambda (_%exn101283%_) + (lambda (_%exn102415%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101283%_)) - (let ((_%e101285%_ + (class-instance? RuntimeException::t _%exn102415%_)) + (let ((_%e102417%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101283%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e101285%_) - (macro-unterminated-process-exception-arguments _%e101285%_) + (unchecked-slot-ref _%exn102415%_ 'exception)))) + (if (macro-unterminated-process-exception? _%e102417%_) + (macro-unterminated-process-exception-arguments _%e102417%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-arguments - (cons _%e101285%_ '()))))) - (if (macro-unterminated-process-exception? _%exn101283%_) - (macro-unterminated-process-exception-arguments _%exn101283%_) + (cons _%e102417%_ '()))))) + (if (macro-unterminated-process-exception? _%exn102415%_) + (macro-unterminated-process-exception-arguments _%exn102415%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-arguments - (cons _%exn101283%_ '()))))))) + (cons _%exn102415%_ '()))))))) (define unterminated-process-exception-procedure - (lambda (_%exn101277%_) + (lambda (_%exn102409%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101277%_)) - (let ((_%e101280%_ + (class-instance? RuntimeException::t _%exn102409%_)) + (let ((_%e102412%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101277%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e101280%_) - (macro-unterminated-process-exception-procedure _%e101280%_) + (unchecked-slot-ref _%exn102409%_ 'exception)))) + (if (macro-unterminated-process-exception? _%e102412%_) + (macro-unterminated-process-exception-procedure _%e102412%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-procedure - (cons _%e101280%_ '()))))) - (if (macro-unterminated-process-exception? _%exn101277%_) - (macro-unterminated-process-exception-procedure _%exn101277%_) + (cons _%e102412%_ '()))))) + (if (macro-unterminated-process-exception? _%exn102409%_) + (macro-unterminated-process-exception-procedure _%exn102409%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-procedure - (cons _%exn101277%_ '()))))))) + (cons _%exn102409%_ '()))))))) (define wrong-number-of-arguments-exception? - (lambda (_%exn101273%_) + (lambda (_%exn102405%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101273%_)) - (let ((_%e101275%_ + (class-instance? RuntimeException::t _%exn102405%_)) + (let ((_%e102407%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101273%_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _%e101275%_)) - (macro-wrong-number-of-arguments-exception? _%exn101273%_)))) + (unchecked-slot-ref _%exn102405%_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _%e102407%_)) + (macro-wrong-number-of-arguments-exception? _%exn102405%_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_%exn101269%_) + (lambda (_%exn102401%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101269%_)) - (let ((_%e101271%_ + (class-instance? RuntimeException::t _%exn102401%_)) + (let ((_%e102403%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101269%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e101271%_) + (unchecked-slot-ref _%exn102401%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e102403%_) (macro-wrong-number-of-arguments-exception-arguments - _%e101271%_) + _%e102403%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%e101271%_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _%exn101269%_) + (cons _%e102403%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn102401%_) (macro-wrong-number-of-arguments-exception-arguments - _%exn101269%_) + _%exn102401%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%exn101269%_ '()))))))) + (cons _%exn102401%_ '()))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_%exn101263%_) + (lambda (_%exn102395%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101263%_)) - (let ((_%e101266%_ + (class-instance? RuntimeException::t _%exn102395%_)) + (let ((_%e102398%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101263%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e101266%_) + (unchecked-slot-ref _%exn102395%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e102398%_) (macro-wrong-number-of-arguments-exception-procedure - _%e101266%_) + _%e102398%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%e101266%_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _%exn101263%_) + (cons _%e102398%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn102395%_) (macro-wrong-number-of-arguments-exception-procedure - _%exn101263%_) + _%exn102395%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%exn101263%_ '()))))))) + (cons _%exn102395%_ '()))))))) (define wrong-number-of-values-exception? - (lambda (_%exn101259%_) + (lambda (_%exn102391%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101259%_)) - (let ((_%e101261%_ + (class-instance? RuntimeException::t _%exn102391%_)) + (let ((_%e102393%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101259%_ 'exception)))) - (macro-wrong-number-of-values-exception? _%e101261%_)) - (macro-wrong-number-of-values-exception? _%exn101259%_)))) + (unchecked-slot-ref _%exn102391%_ 'exception)))) + (macro-wrong-number-of-values-exception? _%e102393%_)) + (macro-wrong-number-of-values-exception? _%exn102391%_)))) (define wrong-number-of-values-exception-code - (lambda (_%exn101255%_) + (lambda (_%exn102387%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101255%_)) - (let ((_%e101257%_ + (class-instance? RuntimeException::t _%exn102387%_)) + (let ((_%e102389%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101255%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e101257%_) - (macro-wrong-number-of-values-exception-code _%e101257%_) + (unchecked-slot-ref _%exn102387%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e102389%_) + (macro-wrong-number-of-values-exception-code _%e102389%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-code - (cons _%e101257%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn101255%_) - (macro-wrong-number-of-values-exception-code _%exn101255%_) + (cons _%e102389%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn102387%_) + (macro-wrong-number-of-values-exception-code _%exn102387%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-code - (cons _%exn101255%_ '()))))))) + (cons _%exn102387%_ '()))))))) (define wrong-number-of-values-exception-rte - (lambda (_%exn101251%_) + (lambda (_%exn102383%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101251%_)) - (let ((_%e101253%_ + (class-instance? RuntimeException::t _%exn102383%_)) + (let ((_%e102385%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101251%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e101253%_) - (macro-wrong-number-of-values-exception-rte _%e101253%_) + (unchecked-slot-ref _%exn102383%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e102385%_) + (macro-wrong-number-of-values-exception-rte _%e102385%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-rte - (cons _%e101253%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn101251%_) - (macro-wrong-number-of-values-exception-rte _%exn101251%_) + (cons _%e102385%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn102383%_) + (macro-wrong-number-of-values-exception-rte _%exn102383%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-rte - (cons _%exn101251%_ '()))))))) + (cons _%exn102383%_ '()))))))) (define wrong-number-of-values-exception-vals - (lambda (_%exn101245%_) + (lambda (_%exn102377%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101245%_)) - (let ((_%e101248%_ + (class-instance? RuntimeException::t _%exn102377%_)) + (let ((_%e102380%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101245%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e101248%_) - (macro-wrong-number-of-values-exception-vals _%e101248%_) + (unchecked-slot-ref _%exn102377%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e102380%_) + (macro-wrong-number-of-values-exception-vals _%e102380%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-vals - (cons _%e101248%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn101245%_) - (macro-wrong-number-of-values-exception-vals _%exn101245%_) + (cons _%e102380%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn102377%_) + (macro-wrong-number-of-values-exception-vals _%exn102377%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-vals - (cons _%exn101245%_ '()))))))) + (cons _%exn102377%_ '()))))))) (define wrong-processor-c-return-exception? - (lambda (_%exn101239%_) + (lambda (_%exn102371%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101239%_)) - (let ((_%e101242%_ + (class-instance? RuntimeException::t _%exn102371%_)) + (let ((_%e102374%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101239%_ 'exception)))) - (macro-wrong-processor-c-return-exception? _%e101242%_)) - (macro-wrong-processor-c-return-exception? _%exn101239%_)))))) + (unchecked-slot-ref _%exn102371%_ 'exception)))) + (macro-wrong-processor-c-return-exception? _%e102374%_)) + (macro-wrong-processor-c-return-exception? _%exn102371%_)))))) diff --git a/src/bootstrap/gerbil/runtime/error~1.scm b/src/bootstrap/gerbil/runtime/error~1.scm index 6dd840600..0f6c3dcc4 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]#_g102762_| + (define |[1]#_g103894_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g102764_| + (define |[1]#_g103896_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g102766_| + (define |[1]#_g103898_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g102768_| + (define |[1]#_g103900_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g102770_| + (define |[1]#_g103902_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g102772_| + (define |[1]#_g103904_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g102774_| + (define |[1]#_g103906_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102776_| + (define |[1]#_g103908_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102778_| + (define |[1]#_g103910_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102780_| + (define |[1]#_g103912_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102782_| + (define |[1]#_g103914_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g102783_| + (define |[1]#_g103915_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g102785_| + (define |[1]#_g103917_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g102787_| + (define |[1]#_g103919_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g102789_| + (define |[1]#_g103921_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g102791_| + (define |[1]#_g103923_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g102792_| + (define |[1]#_g103924_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g102793_| + (define |[1]#_g103925_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g102794_| + (define |[1]#_g103926_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102796_| + (define |[1]#_g103928_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102797_| + (define |[1]#_g103929_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102798_| + (define |[1]#_g103930_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102799_| + (define |[1]#_g103931_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102801_| + (define |[1]#_g103933_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g102802_| + (define |[1]#_g103934_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g102803_| + (define |[1]#_g103935_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g102804_| + (define |[1]#_g103936_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102806_| + (define |[1]#_g103938_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102807_| + (define |[1]#_g103939_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102808_| + (define |[1]#_g103940_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102809_| + (define |[1]#_g103941_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102811_| + (define |[1]#_g103943_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g102813_| + (define |[1]#_g103945_| (##structure gx#syntax-quote::t 'ContractViolation::t #f (gx#current-expander-context) '())) - (define |[1]#_g102815_| + (define |[1]#_g103947_| (##structure gx#syntax-quote::t 'make-ContractViolation #f (gx#current-expander-context) '())) - (define |[1]#_g102817_| + (define |[1]#_g103949_| (##structure gx#syntax-quote::t 'ContractViolation? #f (gx#current-expander-context) '())) - (define |[1]#_g102819_| + (define |[1]#_g103951_| (##structure gx#syntax-quote::t 'ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g102820_| + (define |[1]#_g103952_| (##structure gx#syntax-quote::t 'ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g102821_| + (define |[1]#_g103953_| (##structure gx#syntax-quote::t 'ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g102822_| + (define |[1]#_g103954_| (##structure gx#syntax-quote::t 'ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102824_| + (define |[1]#_g103956_| (##structure gx#syntax-quote::t 'ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102825_| + (define |[1]#_g103957_| (##structure gx#syntax-quote::t 'ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102826_| + (define |[1]#_g103958_| (##structure gx#syntax-quote::t 'ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102827_| + (define |[1]#_g103959_| (##structure gx#syntax-quote::t 'ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102829_| + (define |[1]#_g103961_| (##structure gx#syntax-quote::t '&ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g102830_| + (define |[1]#_g103962_| (##structure gx#syntax-quote::t '&ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g102831_| + (define |[1]#_g103963_| (##structure gx#syntax-quote::t '&ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g102832_| + (define |[1]#_g103964_| (##structure gx#syntax-quote::t '&ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102834_| + (define |[1]#_g103966_| (##structure gx#syntax-quote::t '&ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102835_| + (define |[1]#_g103967_| (##structure gx#syntax-quote::t '&ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102836_| + (define |[1]#_g103968_| (##structure gx#syntax-quote::t '&ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102837_| + (define |[1]#_g103969_| (##structure gx#syntax-quote::t '&ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102840_| + (define |[1]#_g103972_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g102842_| + (define |[1]#_g103974_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g102844_| + (define |[1]#_g103976_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g102846_| + (define |[1]#_g103978_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g102847_| + (define |[1]#_g103979_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102849_| + (define |[1]#_g103981_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102850_| + (define |[1]#_g103982_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102852_| + (define |[1]#_g103984_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g102853_| + (define |[1]#_g103985_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102855_| + (define |[1]#_g103987_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102856_| + (define |[1]#_g103988_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! @@ -436,7 +436,7 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj102725 + (let ((__obj103857 (let () (declare (not safe)) (##structure @@ -465,68 +465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102725 + __obj103857 'gerbil/runtime/error#Exception::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 'Exception '2 '#f '#f)) + (##unchecked-structure-set! __obj103857 'Exception '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj103857 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj103857 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj103857 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj103857 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj103857 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj103857 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 '#f '11 '#f '#f)) - (let ((__tmp102761 |[1]#_g102762_|)) + (##unchecked-structure-set! __obj103857 '#f '11 '#f '#f)) + (let ((__tmp103893 |[1]#_g103894_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102725 __tmp102761 '12 '#f '#f)) - (let ((__tmp102763 |[1]#_g102764_|)) + (##unchecked-structure-set! __obj103857 __tmp103893 '12 '#f '#f)) + (let ((__tmp103895 |[1]#_g103896_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102725 __tmp102763 '13 '#f '#f)) - (let ((__tmp102765 |[1]#_g102766_|)) + (##unchecked-structure-set! __obj103857 __tmp103895 '13 '#f '#f)) + (let ((__tmp103897 |[1]#_g103898_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102725 __tmp102765 '14 '#f '#f)) + (##unchecked-structure-set! __obj103857 __tmp103897 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj103857 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj103857 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj103857 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj103857 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj103857 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj103857 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102725 '() '20 '#f '#f)) - __obj102725)) + (##unchecked-structure-set! __obj103857 '() '20 '#f '#f)) + __obj103857)) (define |[:0:]#StackTrace| - (let ((__obj102726 + (let ((__obj103858 (let () (declare (not safe)) (##structure @@ -555,68 +555,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102726 + __obj103858 'gerbil/runtime/error#StackTrace::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102726 'StackTrace '2 '#f '#f)) + (##unchecked-structure-set! __obj103858 'StackTrace '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102726 '(continuation) '4 '#f '#f)) + (##unchecked-structure-set! __obj103858 '(continuation) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102726 '(continuation) '6 '#f '#f)) + (##unchecked-structure-set! __obj103858 '(continuation) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102726 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj103858 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102726 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj103858 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102726 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj103858 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102726 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj103858 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102726 '#f '11 '#f '#f)) - (let ((__tmp102767 |[1]#_g102768_|)) + (##unchecked-structure-set! __obj103858 '#f '11 '#f '#f)) + (let ((__tmp103899 |[1]#_g103900_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102726 __tmp102767 '12 '#f '#f)) - (let ((__tmp102769 |[1]#_g102770_|)) + (##unchecked-structure-set! __obj103858 __tmp103899 '12 '#f '#f)) + (let ((__tmp103901 |[1]#_g103902_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102726 __tmp102769 '13 '#f '#f)) - (let ((__tmp102771 |[1]#_g102772_|)) + (##unchecked-structure-set! __obj103858 __tmp103901 '13 '#f '#f)) + (let ((__tmp103903 |[1]#_g103904_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102726 __tmp102771 '14 '#f '#f)) - (let ((__tmp102773 (cons (cons 'continuation |[1]#_g102774_|) '()))) + (##unchecked-structure-set! __obj103858 __tmp103903 '14 '#f '#f)) + (let ((__tmp103905 (cons (cons 'continuation |[1]#_g103906_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj102726 __tmp102773 '15 '#f '#f)) - (let ((__tmp102775 (cons (cons 'continuation |[1]#_g102776_|) '()))) + (##unchecked-structure-set! __obj103858 __tmp103905 '15 '#f '#f)) + (let ((__tmp103907 (cons (cons 'continuation |[1]#_g103908_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj102726 __tmp102775 '16 '#f '#f)) - (let ((__tmp102777 (cons (cons 'continuation |[1]#_g102778_|) '()))) + (##unchecked-structure-set! __obj103858 __tmp103907 '16 '#f '#f)) + (let ((__tmp103909 (cons (cons 'continuation |[1]#_g103910_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj102726 __tmp102777 '17 '#f '#f)) - (let ((__tmp102779 (cons (cons 'continuation |[1]#_g102780_|) '()))) + (##unchecked-structure-set! __obj103858 __tmp103909 '17 '#f '#f)) + (let ((__tmp103911 (cons (cons 'continuation |[1]#_g103912_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj102726 __tmp102779 '18 '#f '#f)) + (##unchecked-structure-set! __obj103858 __tmp103911 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102726 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj103858 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102726 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj103858 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102726 '() '20 '#f '#f)) - __obj102726)) + (##unchecked-structure-set! __obj103858 '() '20 '#f '#f)) + __obj103858)) (define |[:0:]#Error| - (let ((__obj102727 + (let ((__obj103859 (let () (declare (not safe)) (##structure @@ -645,18 +645,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102727 + __obj103859 'gerbil/runtime/error#Error::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102727 'Error '2 '#f '#f)) + (##unchecked-structure-set! __obj103859 'Error '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj102727 + __obj103859 '(message irritants where) '4 '#f @@ -664,79 +664,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102727 + __obj103859 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp102781 (cons |[1]#_g102782_| (cons |[1]#_g102783_| '())))) + (let ((__tmp103913 (cons |[1]#_g103914_| (cons |[1]#_g103915_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj102727 __tmp102781 '3 '#f '#f)) + (##unchecked-structure-set! __obj103859 __tmp103913 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102727 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj103859 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102727 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj103859 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102727 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj103859 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102727 ':init! '11 '#f '#f)) - (let ((__tmp102784 |[1]#_g102785_|)) + (##unchecked-structure-set! __obj103859 ':init! '11 '#f '#f)) + (let ((__tmp103916 |[1]#_g103917_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102727 __tmp102784 '12 '#f '#f)) - (let ((__tmp102786 |[1]#_g102787_|)) + (##unchecked-structure-set! __obj103859 __tmp103916 '12 '#f '#f)) + (let ((__tmp103918 |[1]#_g103919_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102727 __tmp102786 '13 '#f '#f)) - (let ((__tmp102788 |[1]#_g102789_|)) + (##unchecked-structure-set! __obj103859 __tmp103918 '13 '#f '#f)) + (let ((__tmp103920 |[1]#_g103921_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102727 __tmp102788 '14 '#f '#f)) - (let ((__tmp102790 - (cons (cons 'message |[1]#_g102791_|) - (cons (cons 'irritants |[1]#_g102792_|) - (cons (cons 'where |[1]#_g102793_|) - (cons (cons 'continuation |[1]#_g102794_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102727 __tmp102790 '15 '#f '#f)) - (let ((__tmp102795 - (cons (cons 'message |[1]#_g102796_|) - (cons (cons 'irritants |[1]#_g102797_|) - (cons (cons 'where |[1]#_g102798_|) - (cons (cons 'continuation |[1]#_g102799_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102727 __tmp102795 '16 '#f '#f)) - (let ((__tmp102800 - (cons (cons 'message |[1]#_g102801_|) - (cons (cons 'irritants |[1]#_g102802_|) - (cons (cons 'where |[1]#_g102803_|) - (cons (cons 'continuation |[1]#_g102804_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102727 __tmp102800 '17 '#f '#f)) - (let ((__tmp102805 - (cons (cons 'message |[1]#_g102806_|) - (cons (cons 'irritants |[1]#_g102807_|) - (cons (cons 'where |[1]#_g102808_|) - (cons (cons 'continuation |[1]#_g102809_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102727 __tmp102805 '18 '#f '#f)) + (##unchecked-structure-set! __obj103859 __tmp103937 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102727 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj103859 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102727 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj103859 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102727 '() '20 '#f '#f)) - __obj102727)) + (##unchecked-structure-set! __obj103859 '() '20 '#f '#f)) + __obj103859)) (define |[:0:]#ContractViolation| - (let ((__obj102728 + (let ((__obj103860 (let () (declare (not safe)) (##structure @@ -765,7 +765,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102728 + __obj103860 'gerbil/runtime/error#ContractViolation::t '1 '#f @@ -773,90 +773,90 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102728 + __obj103860 'ContractViolation '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102728 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj103860 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj102728 + __obj103860 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp102810 (cons |[1]#_g102811_| '()))) + (let ((__tmp103942 (cons |[1]#_g103943_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj102728 __tmp102810 '3 '#f '#f)) + (##unchecked-structure-set! __obj103860 __tmp103942 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102728 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj103860 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102728 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj103860 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102728 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj103860 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102728 '#f '11 '#f '#f)) - (let ((__tmp102812 |[1]#_g102813_|)) + (##unchecked-structure-set! __obj103860 '#f '11 '#f '#f)) + (let ((__tmp103944 |[1]#_g103945_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102728 __tmp102812 '12 '#f '#f)) - (let ((__tmp102814 |[1]#_g102815_|)) + (##unchecked-structure-set! __obj103860 __tmp103944 '12 '#f '#f)) + (let ((__tmp103946 |[1]#_g103947_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102728 __tmp102814 '13 '#f '#f)) - (let ((__tmp102816 |[1]#_g102817_|)) + (##unchecked-structure-set! __obj103860 __tmp103946 '13 '#f '#f)) + (let ((__tmp103948 |[1]#_g103949_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102728 __tmp102816 '14 '#f '#f)) - (let ((__tmp102818 - (cons (cons 'message |[1]#_g102819_|) - (cons (cons 'irritants |[1]#_g102820_|) - (cons (cons 'where |[1]#_g102821_|) - (cons (cons 'continuation |[1]#_g102822_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102728 __tmp102818 '15 '#f '#f)) - (let ((__tmp102823 - (cons (cons 'message |[1]#_g102824_|) - (cons (cons 'irritants |[1]#_g102825_|) - (cons (cons 'where |[1]#_g102826_|) - (cons (cons 'continuation |[1]#_g102827_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102728 __tmp102823 '16 '#f '#f)) - (let ((__tmp102828 - (cons (cons 'message |[1]#_g102829_|) - (cons (cons 'irritants |[1]#_g102830_|) - (cons (cons 'where |[1]#_g102831_|) - (cons (cons 'continuation |[1]#_g102832_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102728 __tmp102828 '17 '#f '#f)) - (let ((__tmp102833 - (cons (cons 'message |[1]#_g102834_|) - (cons (cons 'irritants |[1]#_g102835_|) - (cons (cons 'where |[1]#_g102836_|) - (cons (cons 'continuation |[1]#_g102837_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102728 __tmp102833 '18 '#f '#f)) + (##unchecked-structure-set! __obj103860 __tmp103965 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102728 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj103860 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102728 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj103860 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102728 '() '20 '#f '#f)) - __obj102728)) + (##unchecked-structure-set! __obj103860 '() '20 '#f '#f)) + __obj103860)) (define |[:0:]#RuntimeException| - (let ((__obj102729 + (let ((__obj103861 (let () (declare (not safe)) (##structure @@ -885,7 +885,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102729 + __obj103861 'gerbil/runtime/error#RuntimeException::t '1 '#f @@ -893,277 +893,277 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102729 + __obj103861 'RuntimeException '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102729 '(exception) '4 '#f '#f)) + (##unchecked-structure-set! __obj103861 '(exception) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj102729 + __obj103861 '(continuation exception) '6 '#f '#f)) - (let ((__tmp102838 (cons |[1]#_g102782_| (cons |[1]#_g102783_| '())))) + (let ((__tmp103970 (cons |[1]#_g103914_| (cons |[1]#_g103915_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj102729 __tmp102838 '3 '#f '#f)) + (##unchecked-structure-set! __obj103861 __tmp103970 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102729 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj103861 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102729 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj103861 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102729 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj103861 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102729 '#f '11 '#f '#f)) - (let ((__tmp102839 |[1]#_g102840_|)) + (##unchecked-structure-set! __obj103861 '#f '11 '#f '#f)) + (let ((__tmp103971 |[1]#_g103972_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102729 __tmp102839 '12 '#f '#f)) - (let ((__tmp102841 |[1]#_g102842_|)) + (##unchecked-structure-set! __obj103861 __tmp103971 '12 '#f '#f)) + (let ((__tmp103973 |[1]#_g103974_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102729 __tmp102841 '13 '#f '#f)) - (let ((__tmp102843 |[1]#_g102844_|)) + (##unchecked-structure-set! __obj103861 __tmp103973 '13 '#f '#f)) + (let ((__tmp103975 |[1]#_g103976_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102729 __tmp102843 '14 '#f '#f)) - (let ((__tmp102845 - (cons (cons 'exception |[1]#_g102846_|) - (cons (cons 'continuation |[1]#_g102847_|) '())))) + (##unchecked-structure-set! __obj103861 __tmp103975 '14 '#f '#f)) + (let ((__tmp103977 + (cons (cons 'exception |[1]#_g103978_|) + (cons (cons 'continuation |[1]#_g103979_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj102729 __tmp102845 '15 '#f '#f)) - (let ((__tmp102848 - (cons (cons 'exception |[1]#_g102849_|) - (cons (cons 'continuation |[1]#_g102850_|) '())))) + (##unchecked-structure-set! __obj103861 __tmp103977 '15 '#f '#f)) + (let ((__tmp103980 + (cons (cons 'exception |[1]#_g103981_|) + (cons (cons 'continuation |[1]#_g103982_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj102729 __tmp102848 '16 '#f '#f)) - (let ((__tmp102851 - (cons (cons 'exception |[1]#_g102852_|) - (cons (cons 'continuation |[1]#_g102853_|) '())))) + (##unchecked-structure-set! __obj103861 __tmp103980 '16 '#f '#f)) + (let ((__tmp103983 + (cons (cons 'exception |[1]#_g103984_|) + (cons (cons 'continuation |[1]#_g103985_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj102729 __tmp102851 '17 '#f '#f)) - (let ((__tmp102854 - (cons (cons 'exception |[1]#_g102855_|) - (cons (cons 'continuation |[1]#_g102856_|) '())))) + (##unchecked-structure-set! __obj103861 __tmp103983 '17 '#f '#f)) + (let ((__tmp103986 + (cons (cons 'exception |[1]#_g103987_|) + (cons (cons 'continuation |[1]#_g103988_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj102729 __tmp102854 '18 '#f '#f)) + (##unchecked-structure-set! __obj103861 __tmp103986 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102729 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj103861 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102729 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj103861 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102729 '() '20 '#f '#f)) - __obj102729)) + (##unchecked-structure-set! __obj103861 '() '20 '#f '#f)) + __obj103861)) (define |[:0:]#defruntime-exception| - (lambda (_%stx100867%_) - (let* ((_%g100870100897%_ - (lambda (_%g100871100893%_) + (lambda (_%stx101999%_) + (let* ((_%g102002102029%_ + (lambda (_%g102003102025%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g100871100893%_))) - (_%g100869101133%_ - (lambda (_%g100871100901%_) - (if (gx#stx-pair? _%g100871100901%_) - (let ((_%e100874100904%_ - (gx#syntax-e _%g100871100901%_))) - (let ((_%hd100875100908%_ + _%g102003102025%_))) + (_%g102001102265%_ + (lambda (_%g102003102033%_) + (if (gx#stx-pair? _%g102003102033%_) + (let ((_%e102006102036%_ + (gx#syntax-e _%g102003102033%_))) + (let ((_%hd102007102040%_ (let () (declare (not safe)) - (##car _%e100874100904%_))) - (_%tl100876100911%_ + (##car _%e102006102036%_))) + (_%tl102008102043%_ (let () (declare (not safe)) - (##cdr _%e100874100904%_)))) - (if (gx#stx-pair? _%tl100876100911%_) - (let ((_%e100877100914%_ - (gx#syntax-e _%tl100876100911%_))) - (let ((_%hd100878100918%_ + (##cdr _%e102006102036%_)))) + (if (gx#stx-pair? _%tl102008102043%_) + (let ((_%e102009102046%_ + (gx#syntax-e _%tl102008102043%_))) + (let ((_%hd102010102050%_ (let () (declare (not safe)) - (##car _%e100877100914%_))) - (_%tl100879100921%_ + (##car _%e102009102046%_))) + (_%tl102011102053%_ (let () (declare (not safe)) - (##cdr _%e100877100914%_)))) - (if (gx#stx-pair? _%hd100878100918%_) - (let ((_%e100880100924%_ - (gx#syntax-e _%hd100878100918%_))) - (let ((_%hd100881100928%_ + (##cdr _%e102009102046%_)))) + (if (gx#stx-pair? _%hd102010102050%_) + (let ((_%e102012102056%_ + (gx#syntax-e _%hd102010102050%_))) + (let ((_%hd102013102060%_ (let () (declare (not safe)) - (##car _%e100880100924%_))) - (_%tl100882100931%_ + (##car _%e102012102056%_))) + (_%tl102014102063%_ (let () (declare (not safe)) - (##cdr _%e100880100924%_)))) + (##cdr _%e102012102056%_)))) (if (gx#stx-pair/null? - _%tl100882100931%_) - (let ((_g102857_ + _%tl102014102063%_) + (let ((_g103989_ (gx#syntax-split-splice - _%tl100882100931%_ + _%tl102014102063%_ '0))) (begin - (let ((_g102858_ + (let ((_g103990_ (let () (declare (not safe)) (if (##values? - _g102857_) + _g103989_) (##vector-length - _g102857_) + _g103989_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g102858_ 2))) - (error "Context expects 2 values" _g102858_))) + (##fx= _g103990_ 2))) + (error "Context expects 2 values" _g103990_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target100883100934%_ + (let ((_%target102015102066%_ (let () (declare (not safe)) (##vector-ref - _g102857_ + _g103989_ 0))) - (_%tl100885100937%_ + (_%tl102017102069%_ (let () (declare (not safe)) (##vector-ref - _g102857_ + _g103989_ 1)))) (if (gx#stx-null? - _%tl100885100937%_) - (letrec ((_%loop100886100940%_ + _%tl102017102069%_) + (letrec ((_%loop102018102072%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd100884100944%_ _%getf100890100947%_) - (if (gx#stx-pair? _%hd100884100944%_) - (let ((_%e100887100950%_ - (gx#syntax-e _%hd100884100944%_))) - (let ((_%lp-hd100888100954%_ + (lambda (_%hd102016102076%_ _%getf102022102079%_) + (if (gx#stx-pair? _%hd102016102076%_) + (let ((_%e102019102082%_ + (gx#syntax-e _%hd102016102076%_))) + (let ((_%lp-hd102020102086%_ (let () (declare (not safe)) - (##car _%e100887100950%_))) - (_%lp-tl100889100957%_ + (##car _%e102019102082%_))) + (_%lp-tl102021102089%_ (let () (declare (not safe)) - (##cdr _%e100887100950%_)))) - (_%loop100886100940%_ - _%lp-tl100889100957%_ - (cons _%lp-hd100888100954%_ - _%getf100890100947%_)))) - (let ((_%getf100891100960%_ - (reverse _%getf100890100947%_))) - (if (gx#stx-null? _%tl100879100921%_) - ((lambda (_%L100964%_ _%L100966%_) - (let* ((_%g100987101011%_ - (lambda (_%g100988101007%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g100988101007%_))) - (_%g100986101118%_ - (lambda (_%g100988101015%_) + _%g102120102139%_))) + (_%g102118102250%_ + (lambda (_%g102120102147%_) (if (gx#stx-pair? - _%g100988101015%_) - (let ((_%e100991101018%_ + _%g102120102147%_) + (let ((_%e102123102150%_ (gx#syntax-e - _%g100988101015%_))) - (let ((_%hd100992101022%_ + _%g102120102147%_))) + (let ((_%hd102124102154%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e100991101018%_))) - (_%tl100993101025%_ + (##car _%e102123102150%_))) + (_%tl102125102157%_ (let () (declare (not safe)) - (##cdr _%e100991101018%_)))) - (if (gx#stx-pair? _%tl100993101025%_) - (let ((_%e100994101028%_ - (gx#syntax-e _%tl100993101025%_))) - (let ((_%hd100995101032%_ + (##cdr _%e102123102150%_)))) + (if (gx#stx-pair? _%tl102125102157%_) + (let ((_%e102126102160%_ + (gx#syntax-e _%tl102125102157%_))) + (let ((_%hd102127102164%_ (let () (declare (not safe)) - (##car _%e100994101028%_))) - (_%tl100996101035%_ + (##car _%e102126102160%_))) + (_%tl102128102167%_ (let () (declare (not safe)) - (##cdr _%e100994101028%_)))) - (if (gx#stx-pair/null? _%hd100995101032%_) - (let ((_g102859_ + (##cdr _%e102126102160%_)))) + (if (gx#stx-pair/null? _%hd102127102164%_) + (let ((_g103991_ (gx#syntax-split-splice - _%hd100995101032%_ + _%hd102127102164%_ '0))) (begin - (let ((_g102860_ + (let ((_g103992_ (let () (declare (not safe)) - (if (##values? _g102859_) - (##vector-length _g102859_) + (if (##values? _g103991_) + (##vector-length _g103991_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g102860_ 2))) + (##fx= _g103992_ 2))) (error "Context expects 2 values" - _g102860_))) - (let ((_%target100997101038%_ + _g103992_))) + (let ((_%target102129102170%_ (let () (declare (not safe)) - (##vector-ref _g102859_ 0))) - (_%tl100999101041%_ + (##vector-ref _g103991_ 0))) + (_%tl102131102173%_ (let () (declare (not safe)) - (##vector-ref _g102859_ 1)))) - (if (gx#stx-null? _%tl100999101041%_) - (letrec ((_%loop101000101044%_ - (lambda (_%hd100998101048%_ - _%macro-getf101004101051%_) + (##vector-ref _g103991_ 1)))) + (if (gx#stx-null? _%tl102131102173%_) + (letrec ((_%loop102132102176%_ + (lambda (_%hd102130102180%_ + _%macro-getf102136102183%_) (if (gx#stx-pair? - _%hd100998101048%_) - (let ((_%e101001101054%_ + _%hd102130102180%_) + (let ((_%e102133102186%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd100998101048%_))) - (let ((_%lp-hd101002101058%_ + _%hd102130102180%_))) + (let ((_%lp-hd102134102190%_ (let () (declare (not safe)) - (##car _%e101001101054%_))) - (_%lp-tl101003101061%_ + (##car _%e102133102186%_))) + (_%lp-tl102135102193%_ (let () (declare (not safe)) - (##cdr _%e101001101054%_)))) - (_%loop101000101044%_ - _%lp-tl101003101061%_ - (cons _%lp-hd101002101058%_ - _%macro-getf101004101051%_)))) - (let ((_%macro-getf101005101064%_ - (reverse _%macro-getf101004101051%_))) - (if (gx#stx-null? _%tl100996101035%_) - ((lambda (_%L101068%_ _%L101070%_) + (##cdr _%e102133102186%_)))) + (_%loop102132102176%_ + _%lp-tl102135102193%_ + (cons _%lp-hd102134102190%_ + _%macro-getf102136102183%_)))) + (let ((_%macro-getf102137102196%_ + (reverse _%macro-getf102136102183%_))) + (if (gx#stx-null? _%tl102128102167%_) + ((lambda (_%L102200%_ _%L102202%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'extern) - (cons _%L101070%_ - (let ((__tmp102861 - (lambda (_%g101095101098%_ + (cons _%L102202%_ + (let ((__tmp103993 + (lambda (_%g102227102230%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g101096101101%_) - (cons _%g101095101098%_ _%g101096101101%_)))) + _%g102228102233%_) + (cons _%g102227102230%_ _%g102228102233%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp102861 + __tmp103993 '() - _%L101068%_)))) + _%L102200%_)))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L100966%_ + (cons (cons _%L102098%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1185,7 +1185,7 @@ (cons (gx#datum->syntax '#f 'exn) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L101070%_ + (cons (cons _%L102202%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1193,7 +1193,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L101070%_ + (cons (cons _%L102202%_ (cons (gx#datum->syntax '#f 'exn) @@ -1203,23 +1203,23 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L100964%_ - _%L101068%_ - _%L100964%_ - _%L101068%_ - _%L100964%_) - (let ((__tmp102862 - (lambda (_%g101089101104%_ - _%g101090101107%_ - _%g101091101109%_ - _%g101092101111%_ - _%g101093101113%_ - _%g101094101115%_) + _%L102096%_ + _%L102200%_ + _%L102096%_ + _%L102200%_ + _%L102096%_) + (let ((__tmp103994 + (lambda (_%g102221102236%_ + _%g102222102239%_ + _%g102223102241%_ + _%g102224102243%_ + _%g102225102245%_ + _%g102226102247%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%g101089101104%_ + (cons (cons _%g102221102236%_ (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 _%L101070%_ + (cons (cons _%L102202%_ (cons (gx#datum->syntax '#f 'e) '())) - (cons (cons _%g101090101107%_ + (cons (cons _%g102222102239%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1263,12 +1263,12 @@ 'error) (cons '"not an instance" (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L100966%_ '())) + (cons _%L102098%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g101089101104%_ + (cons _%g102221102236%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (gx#datum->syntax '#f 'e) '()))) @@ -1278,10 +1278,10 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L101070%_ + (cons (cons _%L102202%_ (cons (gx#datum->syntax '#f 'exn) '())) - (cons (cons _%g101090101107%_ + (cons (cons _%g102222102239%_ (cons (gx#datum->syntax '#f 'exn) @@ -1294,10 +1294,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L100966%_ '())) + (cons _%L102098%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g101089101104%_ '())) + (cons _%g102221102236%_ '())) (cons (gx#datum->syntax '#f 'exn) '()))) '())))) @@ -1306,148 +1306,148 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%g101094101115%_)))) + _%g102226102247%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr* - __tmp102862 + __tmp103994 '() - _%L100964%_ - _%L101068%_ - _%L100964%_ - _%L101068%_ - _%L100964%_))))))) - _%macro-getf101005101064%_ - _%hd100992101022%_) - (_%g100987101011%_ _%g100988101015%_))))))) + _%L102096%_ + _%L102200%_ + _%L102096%_ + _%L102200%_ + _%L102096%_))))))) + _%macro-getf102137102196%_ + _%hd102124102154%_) + (_%g102119102143%_ _%g102120102147%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop101000101044%_ - _%target100997101038%_ + (_%loop102132102176%_ + _%target102129102170%_ '())) - (_%g100987101011%_ - _%g100988101015%_))))) - (_%g100987101011%_ _%g100988101015%_)))) - (_%g100987101011%_ _%g100988101015%_)))) - (_%g100987101011%_ _%g100988101015%_))))) + (_%g102119102143%_ + _%g102120102147%_))))) + (_%g102119102143%_ _%g102120102147%_)))) + (_%g102119102143%_ _%g102120102147%_)))) + (_%g102119102143%_ _%g102120102147%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g100986101118%_ + (_%g102118102250%_ (list (gx#stx-identifier - _%L100966%_ + _%L102098%_ '"macro-" - _%L100966%_) - (map (lambda (_%f101122%_) + _%L102098%_) + (map (lambda (_%f102254%_) (gx#stx-identifier - _%f101122%_ + _%f102254%_ '"macro-" - _%f101122%_)) - (let ((__tmp102863 - (lambda (_%g101124101127%_ + _%f102254%_)) + (let ((__tmp103995 + (lambda (_%g102256102259%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g101125101130%_) - (cons _%g101124101127%_ _%g101125101130%_)))) + _%g102257102262%_) + (cons _%g102256102259%_ _%g102257102262%_)))) (declare (not safe)) - (__foldr1 __tmp102863 '() _%L100964%_))))))) + (__foldr1 __tmp103995 '() _%L102096%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%getf100891100960%_ - _%hd100881100928%_) - (_%g100870100897%_ - _%g100871100901%_))))))) - (_%loop100886100940%_ _%target100883100934%_ '())) - (_%g100870100897%_ _%g100871100901%_))))) + _%getf102023102092%_ + _%hd102013102060%_) + (_%g102002102029%_ + _%g102003102033%_))))))) + (_%loop102018102072%_ _%target102015102066%_ '())) + (_%g102002102029%_ _%g102003102033%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g100870100897%_ - _%g100871100901%_)))) - (_%g100870100897%_ _%g100871100901%_)))) - (_%g100870100897%_ _%g100871100901%_)))) - (_%g100870100897%_ _%g100871100901%_))))) - (_%g100869101133%_ _%stx100867%_)))) + (_%g102002102029%_ + _%g102003102033%_)))) + (_%g102002102029%_ _%g102003102033%_)))) + (_%g102002102029%_ _%g102003102033%_)))) + (_%g102002102029%_ _%g102003102033%_))))) + (_%g102001102265%_ _%stx101999%_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_%$stx101139%_) - (let* ((_%g101143101163%_ - (lambda (_%g101144101159%_) + (lambda (_%$stx102271%_) + (let* ((_%g102275102295%_ + (lambda (_%g102276102291%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g101144101159%_))) - (_%g101142101234%_ - (lambda (_%g101144101167%_) - (if (gx#stx-pair? _%g101144101167%_) - (let ((_%e101146101170%_ - (gx#syntax-e _%g101144101167%_))) - (let ((_%hd101147101174%_ + _%g102276102291%_))) + (_%g102274102366%_ + (lambda (_%g102276102299%_) + (if (gx#stx-pair? _%g102276102299%_) + (let ((_%e102278102302%_ + (gx#syntax-e _%g102276102299%_))) + (let ((_%hd102279102306%_ (let () (declare (not safe)) - (##car _%e101146101170%_))) - (_%tl101148101177%_ + (##car _%e102278102302%_))) + (_%tl102280102309%_ (let () (declare (not safe)) - (##cdr _%e101146101170%_)))) - (if (gx#stx-pair/null? _%tl101148101177%_) - (let ((_g102864_ + (##cdr _%e102278102302%_)))) + (if (gx#stx-pair/null? _%tl102280102309%_) + (let ((_g103996_ (gx#syntax-split-splice - _%tl101148101177%_ + _%tl102280102309%_ '0))) (begin - (let ((_g102865_ + (let ((_g103997_ (let () (declare (not safe)) - (if (##values? _g102864_) - (##vector-length _g102864_) + (if (##values? _g103996_) + (##vector-length _g103996_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g102865_ 2))) + (##fx= _g103997_ 2))) (error "Context expects 2 values" - _g102865_))) - (let ((_%target101149101180%_ + _g103997_))) + (let ((_%target102281102312%_ (let () (declare (not safe)) - (##vector-ref _g102864_ 0))) - (_%tl101151101183%_ + (##vector-ref _g103996_ 0))) + (_%tl102283102315%_ (let () (declare (not safe)) - (##vector-ref _g102864_ 1)))) - (if (gx#stx-null? _%tl101151101183%_) - (letrec ((_%loop101152101186%_ - (lambda (_%hd101150101190%_ - _%defexn101156101193%_) + (##vector-ref _g103996_ 1)))) + (if (gx#stx-null? _%tl102283102315%_) + (letrec ((_%loop102284102318%_ + (lambda (_%hd102282102322%_ + _%defexn102288102325%_) (if (gx#stx-pair? - _%hd101150101190%_) - (let ((_%e101153101196%_ + _%hd102282102322%_) + (let ((_%e102285102328%_ (gx#syntax-e - _%hd101150101190%_))) - (let ((_%lp-hd101154101200%_ + _%hd102282102322%_))) + (let ((_%lp-hd102286102332%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%e101153101196%_))) - (_%lp-tl101155101203%_ + (##car _%e102285102328%_))) + (_%lp-tl102287102335%_ (let () (declare (not safe)) - (##cdr _%e101153101196%_)))) - (_%loop101152101186%_ - _%lp-tl101155101203%_ - (cons _%lp-hd101154101200%_ _%defexn101156101193%_)))) - (let ((_%defexn101157101206%_ - (reverse _%defexn101156101193%_))) - ((lambda (_%L101210%_) + (##cdr _%e102285102328%_)))) + (_%loop102284102318%_ + _%lp-tl102287102335%_ + (cons _%lp-hd102286102332%_ _%defexn102288102325%_)))) + (let ((_%defexn102289102338%_ + (reverse _%defexn102288102325%_))) + ((lambda (_%L102342%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp102866 - (lambda (_%g101225101228%_ _%g101226101231%_) + (let ((__tmp103998 + (lambda (_%g102357102360%_ _%g102358102363%_) (cons (cons (gx#datum->syntax '#f 'defruntime-exception) - (cons _%g101225101228%_ '())) - _%g101226101231%_)))) + (cons _%g102357102360%_ '())) + _%g102358102363%_)))) (declare (not safe)) - (__foldr1 __tmp102866 '() _%L101210%_)))) - _%defexn101157101206%_)))))) + (__foldr1 __tmp103998 '() _%L102342%_)))) + _%defexn102289102338%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop101152101186%_ - _%target101149101180%_ + (_%loop102284102318%_ + _%target102281102312%_ '())) - (_%g101143101163%_ - _%g101144101167%_))))) - (_%g101143101163%_ _%g101144101167%_)))) - (_%g101143101163%_ _%g101144101167%_))))) - (_%g101142101234%_ _%$stx101139%_)))))) + (_%g102275102295%_ + _%g102276102299%_))))) + (_%g102275102295%_ _%g102276102299%_)))) + (_%g102275102295%_ _%g102276102299%_))))) + (_%g102274102366%_ _%$stx102271%_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval~0.scm b/src/bootstrap/gerbil/runtime/eval~0.scm index 67039c62d..cf7964f38 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 1713454410) + (define gerbil/runtime/eval::timestamp 1713631265) (begin (define __syntax::t - (let ((__tmp113712 (list)) (__tmp113711 (cons (cons 'struct: '#t) '()))) + (let ((__tmp114844 (list)) (__tmp114843 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - __tmp113712 + __tmp114844 '(e id) - __tmp113711 + __tmp114843 '#f))) (define __syntax? (let () (declare (not safe)) (__make-class-predicate __syntax::t))) (define make-__syntax - (lambda _%$args113516%_ - (apply make-instance __syntax::t _%$args113516%_))) + (lambda _%$args114648%_ + (apply make-instance __syntax::t _%$args114648%_))) (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 ((__tmp113714 (list __syntax::t)) - (__tmp113713 (cons (cons 'struct: '#t) '()))) + (let ((__tmp114846 (list __syntax::t)) + (__tmp114845 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-form::t '__core-form - __tmp113714 + __tmp114846 '() - __tmp113713 + __tmp114845 '#f))) (define __core-form? (let () (declare (not safe)) (__make-class-predicate __core-form::t))) (define make-__core-form - (lambda _%$args113513%_ - (apply make-instance __core-form::t _%$args113513%_))) + (lambda _%$args114645%_ + (apply make-instance __core-form::t _%$args114645%_))) (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 ((__tmp113716 (list __core-form::t)) - (__tmp113715 (cons (cons 'struct: '#t) '()))) + (let ((__tmp114848 (list __core-form::t)) + (__tmp114847 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-expression::t '__core-expression - __tmp113716 + __tmp114848 '() - __tmp113715 + __tmp114847 '#f))) (define __core-expression? (let () (declare (not safe)) (__make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _%$args113510%_ - (apply make-instance __core-expression::t _%$args113510%_))) + (lambda _%$args114642%_ + (apply make-instance __core-expression::t _%$args114642%_))) (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 ((__tmp113718 (list __core-form::t)) - (__tmp113717 (cons (cons 'struct: '#t) '()))) + (let ((__tmp114850 (list __core-form::t)) + (__tmp114849 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form - __tmp113718 + __tmp114850 '() - __tmp113717 + __tmp114849 '#f))) (define __core-special-form? (let () (declare (not safe)) (__make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _%$args113507%_ - (apply make-instance __core-special-form::t _%$args113507%_))) + (lambda _%$args114639%_ + (apply make-instance __core-special-form::t _%$args114639%_))) (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 (_%id113505%_) - (let ((__tmp113719 - (let () (declare (not safe)) (__AST-e _%id113505%_)))) + (lambda (_%id114637%_) + (let ((__tmp114851 + (let () (declare (not safe)) (__AST-e _%id114637%_)))) (declare (not safe)) - (__hash-get __core __tmp113719)))) + (__hash-get __core __tmp114851)))) (define __core-bound-id?__% - (lambda (_%id113488%_ _%is?113489%_) - (let ((_%$e113491%_ (__core-resolve _%id113488%_))) - (if _%$e113491%_ (_%is?113489%_ _%$e113491%_) '#f)))) + (lambda (_%id114620%_ _%is?114621%_) + (let ((_%$e114623%_ (__core-resolve _%id114620%_))) + (if _%$e114623%_ (_%is?114621%_ _%$e114623%_) '#f)))) (define __core-bound-id?__0 - (lambda (_%id113498%_) - (let ((_%is?113500%_ true)) - (__core-bound-id?__% _%id113498%_ _%is?113500%_)))) + (lambda (_%id114630%_) + (let ((_%is?114632%_ true)) + (__core-bound-id?__% _%id114630%_ _%is?114632%_)))) (define __core-bound-id? - (lambda _g113721_ - (let ((_g113720_ (let () (declare (not safe)) (##length _g113721_)))) - (cond ((let () (declare (not safe)) (##fx= _g113720_ 1)) - (apply __core-bound-id?__0 _g113721_)) - ((let () (declare (not safe)) (##fx= _g113720_ 2)) - (apply __core-bound-id?__% _g113721_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g113721_)))))) + _g114853_)))))) (define __core-bind-syntax!__% - (lambda (_%id113471%_ _%e113472%_ _%make113473%_) - (let ((__tmp113722 + (lambda (_%id114603%_ _%e114604%_ _%make114605%_) + (let ((__tmp114854 (if (let () (declare (not safe)) (##structure-instance-of? - _%e113472%_ + _%e114604%_ 'gerbil/runtime/eval#__syntax::t)) - _%e113472%_ - (_%make113473%_ _%e113472%_ _%id113471%_)))) + _%e114604%_ + (_%make114605%_ _%e114604%_ _%id114603%_)))) (declare (not safe)) - (__hash-put! __core _%id113471%_ __tmp113722)))) + (__hash-put! __core _%id114603%_ __tmp114854)))) (define __core-bind-syntax!__0 - (lambda (_%id113478%_ _%e113479%_) - (let ((_%make113481%_ make-__syntax)) - (__core-bind-syntax!__% _%id113478%_ _%e113479%_ _%make113481%_)))) + (lambda (_%id114610%_ _%e114611%_) + (let ((_%make114613%_ make-__syntax)) + (__core-bind-syntax!__% _%id114610%_ _%e114611%_ _%make114613%_)))) (define __core-bind-syntax! - (lambda _g113724_ - (let ((_g113723_ (let () (declare (not safe)) (##length _g113724_)))) - (cond ((let () (declare (not safe)) (##fx= _g113723_ 2)) - (apply __core-bind-syntax!__0 _g113724_)) - ((let () (declare (not safe)) (##fx= _g113723_ 3)) - (apply __core-bind-syntax!__% _g113724_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g113724_)))))) + _g114856_)))))) (define __SRC__% - (lambda (_%e113451%_ _%src-stx113452%_) - (if (or (pair? _%e113451%_) (symbol? _%e113451%_)) - (let ((__tmp113725 + (lambda (_%e114583%_ _%src-stx114584%_) + (if (or (pair? _%e114583%_) (symbol? _%e114583%_)) + (let ((__tmp114857 (if (let () (declare (not safe)) (##structure-instance-of? - _%src-stx113452%_ + _%src-stx114584%_ 'gerbil#AST::t)) (__locat (let () (declare (not safe)) - (__AST-source _%src-stx113452%_))) + (__AST-source _%src-stx114584%_))) '#f))) (declare (not safe)) - (##make-source _%e113451%_ __tmp113725)) + (##make-source _%e114583%_ __tmp114857)) (if (let () (declare (not safe)) - (##structure-instance-of? _%e113451%_ 'gerbil#AST::t)) - (let ((__tmp113727 + (##structure-instance-of? _%e114583%_ 'gerbil#AST::t)) + (let ((__tmp114859 (let () (declare (not safe)) - (##unchecked-structure-ref _%e113451%_ '1 '#f '#f))) - (__tmp113726 + (##unchecked-structure-ref _%e114583%_ '1 '#f '#f))) + (__tmp114858 (__locat (let () (declare (not safe)) - (__AST-source _%e113451%_))))) + (__AST-source _%e114583%_))))) (declare (not safe)) - (##make-source __tmp113727 __tmp113726)) + (##make-source __tmp114859 __tmp114858)) (let () (declare (not safe)) - (error '"BUG! Cannot sourcify object" _%e113451%_)))))) + (error '"BUG! Cannot sourcify object" _%e114583%_)))))) (define __SRC__0 - (lambda (_%e113463%_) - (let ((_%src-stx113465%_ '#f)) - (__SRC__% _%e113463%_ _%src-stx113465%_)))) + (lambda (_%e114595%_) + (let ((_%src-stx114597%_ '#f)) + (__SRC__% _%e114595%_ _%src-stx114597%_)))) (define __SRC - (lambda _g113729_ - (let ((_g113728_ (let () (declare (not safe)) (##length _g113729_)))) - (cond ((let () (declare (not safe)) (##fx= _g113728_ 1)) - (apply __SRC__0 _g113729_)) - ((let () (declare (not safe)) (##fx= _g113728_ 2)) - (apply __SRC__% _g113729_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g113729_)))))) + _g114861_)))))) (define __locat - (lambda (_%loc113448%_) - (if (let () (declare (not safe)) (##locat? _%loc113448%_)) - _%loc113448%_ + (lambda (_%loc114580%_) + (if (let () (declare (not safe)) (##locat? _%loc114580%_)) + _%loc114580%_ '#f))) (define __check-values - (lambda (_%obj113443%_ _%k113444%_) - (let ((_%count113446%_ - (if (let () (declare (not safe)) (##values? _%obj113443%_)) + (lambda (_%obj114575%_ _%k114576%_) + (let ((_%count114578%_ + (if (let () (declare (not safe)) (##values? _%obj114575%_)) (let () (declare (not safe)) - (##vector-length _%obj113443%_)) + (##vector-length _%obj114575%_)) '1))) - (if (fx= _%count113446%_ _%k113444%_) + (if (fx= _%count114578%_ _%k114576%_) '#!void - (let ((__tmp113731 - (if (fx< _%count113446%_ _%k113444%_) + (let ((__tmp114863 + (if (fx< _%count114578%_ _%k114576%_) '"Too few values for context" '"Too many values for context")) - (__tmp113730 + (__tmp114862 (if (let () (declare (not safe)) - (##values? _%obj113443%_)) + (##values? _%obj114575%_)) (let () (declare (not safe)) - (##vector->list _%obj113443%_)) - _%obj113443%_))) + (##vector->list _%obj114575%_)) + _%obj114575%_))) (declare (not safe)) - (error __tmp113731 __tmp113730 _%k113444%_)))))) + (error __tmp114863 __tmp114862 _%k114576%_)))))) (define __compile - (lambda (_%stx113412%_) - (let* ((_%$e113414%_ _%stx113412%_) - (_%$E113416113422%_ + (lambda (_%stx114544%_) + (let* ((_%$e114546%_ _%stx114544%_) + (_%$E114548114554%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113414%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113414%_)) - (let* ((_%$tgt113417113425%_ - (let () (declare (not safe)) (__AST-e _%$e113414%_))) - (_%$hd113418113428%_ + _%$e114546%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114546%_)) + (let* ((_%$tgt114549114557%_ + (let () (declare (not safe)) (__AST-e _%$e114546%_))) + (_%$hd114550114560%_ (let () (declare (not safe)) - (##car _%$tgt113417113425%_))) - (_%$tl113419113431%_ + (##car _%$tgt114549114557%_))) + (_%$tl114551114563%_ (let () (declare (not safe)) - (##cdr _%$tgt113417113425%_))) - (_%form113435%_ _%$hd113418113428%_) - (_%$e113437%_ (__core-resolve _%form113435%_))) - (if _%$e113437%_ - ((lambda (_%bind113440%_) - ((##structure-ref _%bind113440%_ '1 __syntax::t '#f) - _%stx113412%_)) - _%$e113437%_) + (##cdr _%$tgt114549114557%_))) + (_%form114567%_ _%$hd114550114560%_) + (_%$e114569%_ (__core-resolve _%form114567%_))) + (if _%$e114569%_ + ((lambda (_%bind114572%_) + ((##structure-ref _%bind114572%_ '1 __syntax::t '#f) + _%stx114544%_)) + _%$e114569%_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _%stx113412%_ - _%form113435%_)))) - (_%$E113416113422%_))))) + _%stx114544%_ + _%form114567%_)))) + (_%$E114548114554%_))))) (define __compile-error__% - (lambda (_%stx113399%_ _%detail113400%_) + (lambda (_%stx114531%_ _%detail114532%_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _%stx113399%_ - _%detail113400%_)))) + _%stx114531%_ + _%detail114532%_)))) (define __compile-error__0 - (lambda (_%stx113405%_) - (let ((_%detail113407%_ '#f)) - (__compile-error__% _%stx113405%_ _%detail113407%_)))) + (lambda (_%stx114537%_) + (let ((_%detail114539%_ '#f)) + (__compile-error__% _%stx114537%_ _%detail114539%_)))) (define __compile-error - (lambda _g113733_ - (let ((_g113732_ (let () (declare (not safe)) (##length _g113733_)))) - (cond ((let () (declare (not safe)) (##fx= _g113732_ 1)) - (apply __compile-error__0 _g113733_)) - ((let () (declare (not safe)) (##fx= _g113732_ 2)) - (apply __compile-error__% _g113733_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g113733_)))))) + _g114865_)))))) (define __compile-ignore% - (lambda (_%stx113396%_) (__SRC__% ''#!void _%stx113396%_))) + (lambda (_%stx114528%_) (__SRC__% ''#!void _%stx114528%_))) (define __compile-begin% - (lambda (_%stx113371%_) - (let* ((_%$e113373%_ _%stx113371%_) - (_%$E113375113381%_ + (lambda (_%stx114503%_) + (let* ((_%$e114505%_ _%stx114503%_) + (_%$E114507114513%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113373%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113373%_)) - (let* ((_%$tgt113376113384%_ - (let () (declare (not safe)) (__AST-e _%$e113373%_))) - (_%$hd113377113387%_ + _%$e114505%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114505%_)) + (let* ((_%$tgt114508114516%_ + (let () (declare (not safe)) (__AST-e _%$e114505%_))) + (_%$hd114509114519%_ (let () (declare (not safe)) - (##car _%$tgt113376113384%_))) - (_%$tl113378113390%_ + (##car _%$tgt114508114516%_))) + (_%$tl114510114522%_ (let () (declare (not safe)) - (##cdr _%$tgt113376113384%_))) - (_%body113394%_ _%$tl113378113390%_)) + (##cdr _%$tgt114508114516%_))) + (_%body114526%_ _%$tl114510114522%_)) (__SRC__% - (cons 'begin (map __compile _%body113394%_)) - _%stx113371%_)) - (_%$E113375113381%_))))) + (cons 'begin (map __compile _%body114526%_)) + _%stx114503%_)) + (_%$E114507114513%_))))) (define __compile-begin-foreign% - (lambda (_%stx113346%_) - (let* ((_%$e113348%_ _%stx113346%_) - (_%$E113350113356%_ + (lambda (_%stx114478%_) + (let* ((_%$e114480%_ _%stx114478%_) + (_%$E114482114488%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113348%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113348%_)) - (let* ((_%$tgt113351113359%_ - (let () (declare (not safe)) (__AST-e _%$e113348%_))) - (_%$hd113352113362%_ + _%$e114480%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114480%_)) + (let* ((_%$tgt114483114491%_ + (let () (declare (not safe)) (__AST-e _%$e114480%_))) + (_%$hd114484114494%_ (let () (declare (not safe)) - (##car _%$tgt113351113359%_))) - (_%$tl113353113365%_ + (##car _%$tgt114483114491%_))) + (_%$tl114485114497%_ (let () (declare (not safe)) - (##cdr _%$tgt113351113359%_))) - (_%body113369%_ _%$tl113353113365%_)) + (##cdr _%$tgt114483114491%_))) + (_%body114501%_ _%$tl114485114497%_)) (__SRC__% (cons 'begin (let () (declare (not safe)) - (__AST->datum _%body113369%_))) - _%stx113346%_)) - (_%$E113350113356%_))))) + (__AST->datum _%body114501%_))) + _%stx114478%_)) + (_%$E114482114488%_))))) (define __compile-import% - (lambda (_%stx113321%_) - (let* ((_%$e113323%_ _%stx113321%_) - (_%$E113325113331%_ + (lambda (_%stx114453%_) + (let* ((_%$e114455%_ _%stx114453%_) + (_%$E114457114463%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113323%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113323%_)) - (let* ((_%$tgt113326113334%_ - (let () (declare (not safe)) (__AST-e _%$e113323%_))) - (_%$hd113327113337%_ + _%$e114455%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114455%_)) + (let* ((_%$tgt114458114466%_ + (let () (declare (not safe)) (__AST-e _%$e114455%_))) + (_%$hd114459114469%_ (let () (declare (not safe)) - (##car _%$tgt113326113334%_))) - (_%$tl113328113340%_ + (##car _%$tgt114458114466%_))) + (_%$tl114460114472%_ (let () (declare (not safe)) - (##cdr _%$tgt113326113334%_))) - (_%body113344%_ _%$tl113328113340%_)) + (##cdr _%$tgt114458114466%_))) + (_%body114476%_ _%$tl114460114472%_)) (__SRC__% (cons '__eval-import - (cons (cons 'quote (cons _%body113344%_ '())) '())) - _%stx113321%_)) - (_%$E113325113331%_))))) + (cons (cons 'quote (cons _%body114476%_ '())) '())) + _%stx114453%_)) + (_%$E114457114463%_))))) (define __compile-begin-annotation% - (lambda (_%stx113268%_) - (let* ((_%$e113270%_ _%stx113268%_) - (_%$E113272113284%_ + (lambda (_%stx114400%_) + (let* ((_%$e114402%_ _%stx114400%_) + (_%$E114404114416%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113270%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113270%_)) - (let* ((_%$tgt113273113287%_ - (let () (declare (not safe)) (__AST-e _%$e113270%_))) - (_%$hd113274113290%_ + _%$e114402%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114402%_)) + (let* ((_%$tgt114405114419%_ + (let () (declare (not safe)) (__AST-e _%$e114402%_))) + (_%$hd114406114422%_ (let () (declare (not safe)) - (##car _%$tgt113273113287%_))) - (_%$tl113275113293%_ + (##car _%$tgt114405114419%_))) + (_%$tl114407114425%_ (let () (declare (not safe)) - (##cdr _%$tgt113273113287%_)))) + (##cdr _%$tgt114405114419%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113275113293%_)) - (let* ((_%$tgt113276113297%_ + (__AST-pair? _%$tl114407114425%_)) + (let* ((_%$tgt114408114429%_ (let () (declare (not safe)) - (__AST-e _%$tl113275113293%_))) - (_%$hd113277113300%_ + (__AST-e _%$tl114407114425%_))) + (_%$hd114409114432%_ (let () (declare (not safe)) - (##car _%$tgt113276113297%_))) - (_%$tl113278113303%_ + (##car _%$tgt114408114429%_))) + (_%$tl114410114435%_ (let () (declare (not safe)) - (##cdr _%$tgt113276113297%_))) - (_%ann113307%_ _%$hd113277113300%_)) + (##cdr _%$tgt114408114429%_))) + (_%ann114439%_ _%$hd114409114432%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113278113303%_)) - (let* ((_%$tgt113279113309%_ + (__AST-pair? _%$tl114410114435%_)) + (let* ((_%$tgt114411114441%_ (let () (declare (not safe)) - (__AST-e _%$tl113278113303%_))) - (_%$hd113280113312%_ + (__AST-e _%$tl114410114435%_))) + (_%$hd114412114444%_ (let () (declare (not safe)) - (##car _%$tgt113279113309%_))) - (_%$tl113281113315%_ + (##car _%$tgt114411114441%_))) + (_%$tl114413114447%_ (let () (declare (not safe)) - (##cdr _%$tgt113279113309%_))) - (_%expr113319%_ _%$hd113280113312%_)) + (##cdr _%$tgt114411114441%_))) + (_%expr114451%_ _%$hd114412114444%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113281113315%_)) + (__AST-e _%$tl114413114447%_)) '()) - (__compile _%expr113319%_) - (_%$E113272113284%_))) - (_%$E113272113284%_))) - (_%$E113272113284%_))) - (_%$E113272113284%_))))) + (__compile _%expr114451%_) + (_%$E114404114416%_))) + (_%$E114404114416%_))) + (_%$E114404114416%_))) + (_%$E114404114416%_))))) (define __compile-define-values% - (lambda (_%stx113159%_) - (let* ((_%$e113161%_ _%stx113159%_) - (_%$E113163113175%_ + (lambda (_%stx114291%_) + (let* ((_%$e114293%_ _%stx114291%_) + (_%$E114295114307%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113161%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113161%_)) - (let* ((_%$tgt113164113178%_ - (let () (declare (not safe)) (__AST-e _%$e113161%_))) - (_%$hd113165113181%_ + _%$e114293%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114293%_)) + (let* ((_%$tgt114296114310%_ + (let () (declare (not safe)) (__AST-e _%$e114293%_))) + (_%$hd114297114313%_ (let () (declare (not safe)) - (##car _%$tgt113164113178%_))) - (_%$tl113166113184%_ + (##car _%$tgt114296114310%_))) + (_%$tl114298114316%_ (let () (declare (not safe)) - (##cdr _%$tgt113164113178%_)))) + (##cdr _%$tgt114296114310%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113166113184%_)) - (let* ((_%$tgt113167113188%_ + (__AST-pair? _%$tl114298114316%_)) + (let* ((_%$tgt114299114320%_ (let () (declare (not safe)) - (__AST-e _%$tl113166113184%_))) - (_%$hd113168113191%_ + (__AST-e _%$tl114298114316%_))) + (_%$hd114300114323%_ (let () (declare (not safe)) - (##car _%$tgt113167113188%_))) - (_%$tl113169113194%_ + (##car _%$tgt114299114320%_))) + (_%$tl114301114326%_ (let () (declare (not safe)) - (##cdr _%$tgt113167113188%_))) - (_%hd113198%_ _%$hd113168113191%_)) + (##cdr _%$tgt114299114320%_))) + (_%hd114330%_ _%$hd114300114323%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113169113194%_)) - (let* ((_%$tgt113170113200%_ + (__AST-pair? _%$tl114301114326%_)) + (let* ((_%$tgt114302114332%_ (let () (declare (not safe)) - (__AST-e _%$tl113169113194%_))) - (_%$hd113171113203%_ + (__AST-e _%$tl114301114326%_))) + (_%$hd114303114335%_ (let () (declare (not safe)) - (##car _%$tgt113170113200%_))) - (_%$tl113172113206%_ + (##car _%$tgt114302114332%_))) + (_%$tl114304114338%_ (let () (declare (not safe)) - (##cdr _%$tgt113170113200%_))) - (_%expr113210%_ _%$hd113171113203%_)) + (##cdr _%$tgt114302114332%_))) + (_%expr114342%_ _%$hd114303114335%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113172113206%_)) + (__AST-e _%$tl114304114338%_)) '()) - (let* ((_%$e113212%_ _%hd113198%_) - (_%$E113214113255%_ + (let* ((_%$e114344%_ _%hd114330%_) + (_%$E114346114387%_ (lambda () - (let ((_%$E113215113240%_ + (let ((_%$E114347114372%_ (lambda () - (let* ((_%$E113216113227%_ + (let* ((_%$E114348114359%_ (lambda () (let () (declare @@ -609,10 +609,10 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113212%_)))) - (_%ids113230%_ _%hd113198%_) - (_%len113232%_ (length _%ids113230%_)) - (_%tmp113234%_ + _%$e114344%_)))) + (_%ids114362%_ _%hd114330%_) + (_%len114364%_ (length _%ids114362%_)) + (_%tmp114366%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (__SRC__% @@ -620,1617 +620,1579 @@ (cons (__SRC__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'define - (cons _%tmp113234%_ - (cons (__compile _%expr113210%_) '()))) - _%stx113159%_) + (cons _%tmp114366%_ + (cons (__compile _%expr114342%_) '()))) + _%stx114291%_) (cons (__SRC__% (cons '__check-values - (cons _%tmp113234%_ - (cons _%len113232%_ '()))) - _%stx113159%_) - (let ((__tmp113734 - (let ((__tmp113736 - (lambda (_%id113237%_ - _%k113238%_) + (cons _%tmp114366%_ + (cons _%len114364%_ '()))) + _%stx114291%_) + (let ((__tmp114866 + (let ((__tmp114868 + (lambda (_%id114369%_ + _%k114370%_) (if (let () (declare (not safe)) - (__AST-e _%id113237%_)) + (__AST-e _%id114369%_)) (__SRC__% (cons 'define (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id113237%_) + _%id114369%_) (cons (cons '##vector-ref - (cons _%tmp113234%_ - (cons _%k113238%_ '()))) + (cons _%tmp114366%_ + (cons _%k114370%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx113159%_) + _%stx114291%_) '#f))) - (__tmp113735 + (__tmp114867 (let () (declare (not safe)) - (##iota _%len113232%_)))) + (##iota _%len114364%_)))) (declare (not safe)) (__filter-map2 - __tmp113736 - _%ids113230%_ - __tmp113735)))) + __tmp114868 + _%ids114362%_ + __tmp114867)))) (declare (not safe)) - (__foldr1 cons '() __tmp113734))))) - _%stx113159%_))))) + (__foldr1 cons '() __tmp114866))))) + _%stx114291%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _%$e113212%_)) - (let* ((_%$tgt113217113243%_ + (__AST-pair? _%$e114344%_)) + (let* ((_%$tgt114349114375%_ (let () (declare (not safe)) - (__AST-e _%$e113212%_))) - (_%$hd113218113246%_ + (__AST-e _%$e114344%_))) + (_%$hd114350114378%_ (let () (declare (not safe)) - (##car _%$tgt113217113243%_))) - (_%$tl113219113249%_ + (##car _%$tgt114349114375%_))) + (_%$tl114351114381%_ (let () (declare (not safe)) - (##cdr _%$tgt113217113243%_))) - (_%id113253%_ - _%$hd113218113246%_)) + (##cdr _%$tgt114349114375%_))) + (_%id114385%_ + _%$hd114350114378%_)) (if (equal? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%$tl113219113249%_)) + (__AST-e _%$tl114351114381%_)) '()) (__SRC__% (cons 'define - (cons (__SRC__0 _%id113253%_) - (cons (__compile _%expr113210%_) '()))) - _%stx113159%_) - (_%$E113215113240%_))) + (cons (__SRC__0 _%id114385%_) + (cons (__compile _%expr114342%_) '()))) + _%stx114291%_) + (_%$E114347114372%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$E113215113240%_)))))) + (_%$E114347114372%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e113212%_)) - (let* ((_%$tgt113220113258%_ + (__AST-pair? _%$e114344%_)) + (let* ((_%$tgt114352114390%_ (let () (declare (not safe)) - (__AST-e _%$e113212%_))) - (_%$hd113221113261%_ + (__AST-e _%$e114344%_))) + (_%$hd114353114393%_ (let () (declare (not safe)) - (##car _%$tgt113220113258%_))) - (_%$tl113222113264%_ + (##car _%$tgt114352114390%_))) + (_%$tl114354114396%_ (let () (declare (not safe)) - (##cdr _%$tgt113220113258%_)))) + (##cdr _%$tgt114352114390%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd113221113261%_)) + (__AST-e _%$hd114353114393%_)) '#f) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113222113264%_)) + (__AST-e _%$tl114354114396%_)) '()) - (__compile _%expr113210%_) - (_%$E113214113255%_)) - (_%$E113214113255%_))) - (_%$E113214113255%_))) - (_%$E113163113175%_))) - (_%$E113163113175%_))) - (_%$E113163113175%_))) - (_%$E113163113175%_))))) + (__compile _%expr114342%_) + (_%$E114346114387%_)) + (_%$E114346114387%_))) + (_%$E114346114387%_))) + (_%$E114295114307%_))) + (_%$E114295114307%_))) + (_%$E114295114307%_))) + (_%$E114295114307%_))))) (define __compile-head-id - (lambda (_%e113157%_) + (lambda (_%e114289%_) (__SRC__0 - (if (let () (declare (not safe)) (__AST-e _%e113157%_)) - _%e113157%_ + (if (let () (declare (not safe)) (__AST-e _%e114289%_)) + _%e114289%_ (let () (declare (not safe)) (##gensym)))))) (define __compile-lambda-head - (lambda (_%hd113114%_) - (let _%recur113116%_ ((_%rest113118%_ _%hd113114%_)) - (let* ((_%$e113120%_ _%rest113118%_) - (_%$E113122113140%_ + (lambda (_%hd114246%_) + (let _%recur114248%_ ((_%rest114250%_ _%hd114246%_)) + (let* ((_%$e114252%_ _%rest114250%_) + (_%$E114254114272%_ (lambda () - (let ((_%$E113123113137%_ + (let ((_%$E114255114269%_ (lambda () - (let* ((_%$E113124113132%_ + (let* ((_%$E114256114264%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113120%_)))) - (_%tail113135%_ _%$e113120%_)) - (__compile-head-id _%tail113135%_))))) + _%$e114252%_)))) + (_%tail114267%_ _%$e114252%_)) + (__compile-head-id _%tail114267%_))))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e113120%_)) + (__AST-e _%$e114252%_)) '()) '() - (_%$E113123113137%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113120%_)) - (let* ((_%$tgt113125113143%_ - (let () (declare (not safe)) (__AST-e _%$e113120%_))) - (_%$hd113126113146%_ + (_%$E114255114269%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114252%_)) + (let* ((_%$tgt114257114275%_ + (let () (declare (not safe)) (__AST-e _%$e114252%_))) + (_%$hd114258114278%_ (let () (declare (not safe)) - (##car _%$tgt113125113143%_))) - (_%$tl113127113149%_ + (##car _%$tgt114257114275%_))) + (_%$tl114259114281%_ (let () (declare (not safe)) - (##cdr _%$tgt113125113143%_))) - (_%hd113153%_ _%$hd113126113146%_) - (_%rest113155%_ _%$tl113127113149%_)) - (cons (__compile-head-id _%hd113153%_) - (_%recur113116%_ _%rest113155%_))) - (_%$E113122113140%_)))))) + (##cdr _%$tgt114257114275%_))) + (_%hd114285%_ _%$hd114258114278%_) + (_%rest114287%_ _%$tl114259114281%_)) + (cons (__compile-head-id _%hd114285%_) + (_%recur114248%_ _%rest114287%_))) + (_%$E114254114272%_)))))) (define __compile-lambda% - (lambda (_%stx113061%_) - (let* ((_%$e113063%_ _%stx113061%_) - (_%$E113065113077%_ + (lambda (_%stx114193%_) + (let* ((_%$e114195%_ _%stx114193%_) + (_%$E114197114209%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113063%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113063%_)) - (let* ((_%$tgt113066113080%_ - (let () (declare (not safe)) (__AST-e _%$e113063%_))) - (_%$hd113067113083%_ + _%$e114195%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114195%_)) + (let* ((_%$tgt114198114212%_ + (let () (declare (not safe)) (__AST-e _%$e114195%_))) + (_%$hd114199114215%_ (let () (declare (not safe)) - (##car _%$tgt113066113080%_))) - (_%$tl113068113086%_ + (##car _%$tgt114198114212%_))) + (_%$tl114200114218%_ (let () (declare (not safe)) - (##cdr _%$tgt113066113080%_)))) + (##cdr _%$tgt114198114212%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113068113086%_)) - (let* ((_%$tgt113069113090%_ + (__AST-pair? _%$tl114200114218%_)) + (let* ((_%$tgt114201114222%_ (let () (declare (not safe)) - (__AST-e _%$tl113068113086%_))) - (_%$hd113070113093%_ + (__AST-e _%$tl114200114218%_))) + (_%$hd114202114225%_ (let () (declare (not safe)) - (##car _%$tgt113069113090%_))) - (_%$tl113071113096%_ + (##car _%$tgt114201114222%_))) + (_%$tl114203114228%_ (let () (declare (not safe)) - (##cdr _%$tgt113069113090%_))) - (_%hd113100%_ _%$hd113070113093%_)) + (##cdr _%$tgt114201114222%_))) + (_%hd114232%_ _%$hd114202114225%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113071113096%_)) - (let* ((_%$tgt113072113102%_ + (__AST-pair? _%$tl114203114228%_)) + (let* ((_%$tgt114204114234%_ (let () (declare (not safe)) - (__AST-e _%$tl113071113096%_))) - (_%$hd113073113105%_ + (__AST-e _%$tl114203114228%_))) + (_%$hd114205114237%_ (let () (declare (not safe)) - (##car _%$tgt113072113102%_))) - (_%$tl113074113108%_ + (##car _%$tgt114204114234%_))) + (_%$tl114206114240%_ (let () (declare (not safe)) - (##cdr _%$tgt113072113102%_))) - (_%body113112%_ _%$hd113073113105%_)) + (##cdr _%$tgt114204114234%_))) + (_%body114244%_ _%$hd114205114237%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113074113108%_)) + (__AST-e _%$tl114206114240%_)) '()) (__SRC__% (cons 'lambda (cons (__compile-lambda-head - _%hd113100%_) - (cons (__compile _%body113112%_) + _%hd114232%_) + (cons (__compile _%body114244%_) '()))) - _%stx113061%_) - (_%$E113065113077%_))) - (_%$E113065113077%_))) - (_%$E113065113077%_))) - (_%$E113065113077%_))))) + _%stx114193%_) + (_%$E114197114209%_))) + (_%$E114197114209%_))) + (_%$E114197114209%_))) + (_%$E114197114209%_))))) (define __compile-case-lambda% - (lambda (_%stx112853%_) - (letrec ((_%variadic?112855%_ - (lambda (_%hd113026%_) - (let* ((_%$e113028%_ _%hd113026%_) - (_%$E113030113046%_ + (lambda (_%stx113985%_) + (letrec ((_%variadic?113987%_ + (lambda (_%hd114158%_) + (let* ((_%$e114160%_ _%hd114158%_) + (_%$E114162114178%_ (lambda () - (let ((_%$E113031113043%_ + (let ((_%$E114163114175%_ (lambda () - (let ((_%$E113032113040%_ + (let ((_%$E114164114172%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113028%_))))) + _%$e114160%_))))) '#t)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e113028%_)) + (__AST-e _%$e114160%_)) '()) '#f - (_%$E113031113043%_)))))) + (_%$E114163114175%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e113028%_)) - (let* ((_%$tgt113033113049%_ + (__AST-pair? _%$e114160%_)) + (let* ((_%$tgt114165114181%_ (let () (declare (not safe)) - (__AST-e _%$e113028%_))) - (_%$hd113034113052%_ + (__AST-e _%$e114160%_))) + (_%$hd114166114184%_ (let () (declare (not safe)) - (##car _%$tgt113033113049%_))) - (_%$tl113035113055%_ + (##car _%$tgt114165114181%_))) + (_%$tl114167114187%_ (let () (declare (not safe)) - (##cdr _%$tgt113033113049%_))) - (_%rest113059%_ _%$tl113035113055%_)) - (_%variadic?112855%_ _%rest113059%_)) - (_%$E113030113046%_))))) - (_%arity112856%_ - (lambda (_%hd112991%_) - (let _%lp112993%_ ((_%rest112995%_ _%hd112991%_) - (_%k112996%_ '0)) - (let* ((_%$e112998%_ _%rest112995%_) - (_%$E113000113011%_ + (##cdr _%$tgt114165114181%_))) + (_%rest114191%_ _%$tl114167114187%_)) + (_%variadic?113987%_ _%rest114191%_)) + (_%$E114162114178%_))))) + (_%arity113988%_ + (lambda (_%hd114123%_) + (let _%lp114125%_ ((_%rest114127%_ _%hd114123%_) + (_%k114128%_ '0)) + (let* ((_%$e114130%_ _%rest114127%_) + (_%$E114132114143%_ (lambda () - (let ((_%$E113001113008%_ + (let ((_%$E114133114140%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112998%_))))) - _%k112996%_)))) + _%$e114130%_))))) + _%k114128%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112998%_)) - (let* ((_%$tgt113002113014%_ + (__AST-pair? _%$e114130%_)) + (let* ((_%$tgt114134114146%_ (let () (declare (not safe)) - (__AST-e _%$e112998%_))) - (_%$hd113003113017%_ + (__AST-e _%$e114130%_))) + (_%$hd114135114149%_ (let () (declare (not safe)) - (##car _%$tgt113002113014%_))) - (_%$tl113004113020%_ + (##car _%$tgt114134114146%_))) + (_%$tl114136114152%_ (let () (declare (not safe)) - (##cdr _%$tgt113002113014%_))) - (_%rest113024%_ _%$tl113004113020%_)) - (_%lp112993%_ - _%rest113024%_ + (##cdr _%$tgt114134114146%_))) + (_%rest114156%_ _%$tl114136114152%_)) + (_%lp114125%_ + _%rest114156%_ (let () (declare (not safe)) - (##fx+ _%k112996%_ '1)))) - (_%$E113000113011%_)))))) - (_%generate112857%_ - (lambda (_%rest112918%_ _%args112919%_ _%len112920%_) - (let* ((_%$e112922%_ _%rest112918%_) - (_%$E112924112935%_ + (##fx+ _%k114128%_ '1)))) + (_%$E114132114143%_)))))) + (_%generate113989%_ + (lambda (_%rest114050%_ _%args114051%_ _%len114052%_) + (let* ((_%$e114054%_ _%rest114050%_) + (_%$E114056114067%_ (lambda () - (let ((_%$E112925112932%_ + (let ((_%$E114057114064%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112922%_))))) + _%$e114054%_))))) (__SRC__% (cons 'error (cons '"No clause matching arguments" - (cons _%args112919%_ '()))) - _%stx112853%_))))) + (cons _%args114051%_ '()))) + _%stx113985%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112922%_)) - (let* ((_%$tgt112926112938%_ + (__AST-pair? _%$e114054%_)) + (let* ((_%$tgt114058114070%_ (let () (declare (not safe)) - (__AST-e _%$e112922%_))) - (_%$hd112927112941%_ + (__AST-e _%$e114054%_))) + (_%$hd114059114073%_ (let () (declare (not safe)) - (##car _%$tgt112926112938%_))) - (_%$tl112928112944%_ + (##car _%$tgt114058114070%_))) + (_%$tl114060114076%_ (let () (declare (not safe)) - (##cdr _%$tgt112926112938%_))) - (_%clause112948%_ _%$hd112927112941%_) - (_%rest112950%_ _%$tl112928112944%_) - (_%$e112952%_ _%clause112948%_) - (_%$E112954112963%_ + (##cdr _%$tgt114058114070%_))) + (_%clause114080%_ _%$hd114059114073%_) + (_%rest114082%_ _%$tl114060114076%_) + (_%$e114084%_ _%clause114080%_) + (_%$E114086114095%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112952%_))))) + _%$e114084%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112952%_)) - (let* ((_%$tgt112955112966%_ + (__AST-pair? _%$e114084%_)) + (let* ((_%$tgt114087114098%_ (let () (declare (not safe)) - (__AST-e _%$e112952%_))) - (_%$hd112956112969%_ + (__AST-e _%$e114084%_))) + (_%$hd114088114101%_ (let () (declare (not safe)) - (##car _%$tgt112955112966%_))) - (_%$tl112957112972%_ + (##car _%$tgt114087114098%_))) + (_%$tl114089114104%_ (let () (declare (not safe)) - (##cdr _%$tgt112955112966%_))) - (_%hd112976%_ _%$hd112956112969%_)) + (##cdr _%$tgt114087114098%_))) + (_%hd114108%_ _%$hd114088114101%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112957112972%_)) - (let* ((_%$tgt112958112978%_ + (__AST-pair? _%$tl114089114104%_)) + (let* ((_%$tgt114090114110%_ (let () (declare (not safe)) - (__AST-e _%$tl112957112972%_))) - (_%$hd112959112981%_ + (__AST-e _%$tl114089114104%_))) + (_%$hd114091114113%_ (let () (declare (not safe)) - (##car _%$tgt112958112978%_))) - (_%$tl112960112984%_ + (##car _%$tgt114090114110%_))) + (_%$tl114092114116%_ (let () (declare (not safe)) - (##cdr _%$tgt112958112978%_)))) + (##cdr _%$tgt114090114110%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112960112984%_)) + (__AST-e _%$tl114092114116%_)) '()) - (let ((_%clen112988%_ - (_%arity112856%_ - _%hd112976%_)) - (_%cmp112989%_ - (if (_%variadic?112855%_ - _%hd112976%_) + (let ((_%clen114120%_ + (_%arity113988%_ + _%hd114108%_)) + (_%cmp114121%_ + (if (_%variadic?113987%_ + _%hd114108%_) 'fx>= 'fx=))) (__SRC__% (cons 'if - (cons (cons _%cmp112989%_ + (cons (cons _%cmp114121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len112920%_ (cons _%clen112988%_ '()))) + (cons _%len114052%_ (cons _%clen114120%_ '()))) (cons (__SRC__% (cons '##apply (cons (__compile-lambda% - (cons '%#lambda _%clause112948%_)) - (cons _%args112919%_ '()))) - _%stx112853%_) - (cons (_%generate112857%_ - _%rest112950%_ - _%args112919%_ - _%len112920%_) + (cons '%#lambda _%clause114080%_)) + (cons _%args114051%_ '()))) + _%stx113985%_) + (cons (_%generate113989%_ + _%rest114082%_ + _%args114051%_ + _%len114052%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx112853%_)) - (_%$E112954112963%_))) - (_%$E112954112963%_))) - (_%$E112954112963%_))) - (_%$E112924112935%_)))))) - (let* ((_%$e112859%_ _%stx112853%_) - (_%$E112861112893%_ + _%stx113985%_)) + (_%$E114086114095%_))) + (_%$E114086114095%_))) + (_%$E114086114095%_))) + (_%$E114056114067%_)))))) + (let* ((_%$e113991%_ _%stx113985%_) + (_%$E113993114025%_ (lambda () - (let ((_%$E112862112875%_ + (let ((_%$E113994114007%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112859%_))))) + _%$e113991%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112859%_)) - (let* ((_%$tgt112863112878%_ + (__AST-pair? _%$e113991%_)) + (let* ((_%$tgt113995114010%_ (let () (declare (not safe)) - (__AST-e _%$e112859%_))) - (_%$hd112864112881%_ + (__AST-e _%$e113991%_))) + (_%$hd113996114013%_ (let () (declare (not safe)) - (##car _%$tgt112863112878%_))) - (_%$tl112865112884%_ + (##car _%$tgt113995114010%_))) + (_%$tl113997114016%_ (let () (declare (not safe)) - (##cdr _%$tgt112863112878%_))) - (_%clauses112888%_ _%$tl112865112884%_)) - (let ((_%args112890%_ + (##cdr _%$tgt113995114010%_))) + (_%clauses114020%_ _%$tl113997114016%_)) + (let ((_%args114022%_ (__SRC__% (let () (declare (not safe)) (##gensym)) - _%stx112853%_)) - (_%len112891%_ + _%stx113985%_)) + (_%len114023%_ (__SRC__% (let () (declare (not safe)) (##gensym)) - _%stx112853%_))) + _%stx113985%_))) (__SRC__% (cons 'lambda - (cons _%args112890%_ + (cons _%args114022%_ (cons (__SRC__% (cons 'let - (cons (cons (cons _%len112891%_ + (cons (cons (cons _%len114023%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (__SRC__% (cons '##length - (cons _%args112890%_ '())) - _%stx112853%_) + (cons _%args114022%_ '())) + _%stx113985%_) '())) '()) - (cons (_%generate112857%_ - _%clauses112888%_ - _%args112890%_ - _%len112891%_) + (cons (_%generate113989%_ + _%clauses114020%_ + _%args114022%_ + _%len114023%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx112853%_) + _%stx113985%_) '()))) - _%stx112853%_))) - (_%$E112862112875%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112859%_)) - (let* ((_%$tgt112866112896%_ - (let () (declare (not safe)) (__AST-e _%$e112859%_))) - (_%$hd112867112899%_ + _%stx113985%_))) + (_%$E113994114007%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113991%_)) + (let* ((_%$tgt113998114028%_ + (let () (declare (not safe)) (__AST-e _%$e113991%_))) + (_%$hd113999114031%_ (let () (declare (not safe)) - (##car _%$tgt112866112896%_))) - (_%$tl112868112902%_ + (##car _%$tgt113998114028%_))) + (_%$tl114000114034%_ (let () (declare (not safe)) - (##cdr _%$tgt112866112896%_)))) + (##cdr _%$tgt113998114028%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112868112902%_)) - (let* ((_%$tgt112869112906%_ + (__AST-pair? _%$tl114000114034%_)) + (let* ((_%$tgt114001114038%_ (let () (declare (not safe)) - (__AST-e _%$tl112868112902%_))) - (_%$hd112870112909%_ + (__AST-e _%$tl114000114034%_))) + (_%$hd114002114041%_ (let () (declare (not safe)) - (##car _%$tgt112869112906%_))) - (_%$tl112871112912%_ + (##car _%$tgt114001114038%_))) + (_%$tl114003114044%_ (let () (declare (not safe)) - (##cdr _%$tgt112869112906%_))) - (_%clause112916%_ _%$hd112870112909%_)) + (##cdr _%$tgt114001114038%_))) + (_%clause114048%_ _%$hd114002114041%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112871112912%_)) + (__AST-e _%$tl114003114044%_)) '()) (__compile-lambda% - (cons '%#lambda _%clause112916%_)) - (_%$E112861112893%_))) - (_%$E112861112893%_))) - (_%$E112861112893%_)))))) + (cons '%#lambda _%clause114048%_)) + (_%$E113993114025%_))) + (_%$E113993114025%_))) + (_%$E113993114025%_)))))) (define __compile-let-form - (lambda (_%stx112622%_ _%compile-simple112623%_ _%compile-values112624%_) - (letrec ((_%simple-bind?112626%_ - (lambda (_%hd112811%_) - (let* ((_%hd112812112822%_ _%hd112811%_) - (_%else112815112830%_ (lambda () '#f))) - (let ((_%K112818112843%_ (lambda (_%id112841%_) '#t)) - (_%K112817112835%_ (lambda () '#t))) - (let ((_%try-match112814112838%_ + (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 () (if (let () (declare (not safe)) - (##eq? _%hd112812112822%_ '#f)) - (_%K112817112835%_) - (_%else112815112830%_))))) - (if (let () - (declare (not safe)) - (##pair? _%hd112812112822%_)) - (let ((_%tl112820112848%_ + (##eq? _%hd113944113954%_ '#f)) + (_%K113949113967%_) + (_%else113947113962%_))))) + (if (pair? _%hd113944113954%_) + (let ((_%tl113952113980%_ (let () (declare (not safe)) - (##cdr _%hd112812112822%_))) - (_%hd112819112846%_ + (##cdr _%hd113944113954%_))) + (_%hd113951113978%_ (let () (declare (not safe)) - (##car _%hd112812112822%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl112820112848%_)) - (let ((_%id112851%_ _%hd112819112846%_)) - (_%K112818112843%_ _%id112851%_)) - (_%try-match112814112838%_))) - (_%try-match112814112838%_))))))) - (_%car-e112627%_ - (lambda (_%hd112809%_) - (if (pair? _%hd112809%_) - (let () (declare (not safe)) (##car _%hd112809%_)) - _%hd112809%_)))) - (let* ((_%$e112629%_ _%stx112622%_) - (_%$E112631112774%_ + (##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%_ (lambda () - (let ((_%$E112632112654%_ + (let ((_%$E113764113786%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112629%_))))) + _%$e113761%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112629%_)) - (let* ((_%$tgt112633112657%_ + (__AST-pair? _%$e113761%_)) + (let* ((_%$tgt113765113789%_ (let () (declare (not safe)) - (__AST-e _%$e112629%_))) - (_%$hd112634112660%_ + (__AST-e _%$e113761%_))) + (_%$hd113766113792%_ (let () (declare (not safe)) - (##car _%$tgt112633112657%_))) - (_%$tl112635112663%_ + (##car _%$tgt113765113789%_))) + (_%$tl113767113795%_ (let () (declare (not safe)) - (##cdr _%$tgt112633112657%_)))) + (##cdr _%$tgt113765113789%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112635112663%_)) - (let* ((_%$tgt112636112667%_ + (__AST-pair? _%$tl113767113795%_)) + (let* ((_%$tgt113768113799%_ (let () (declare (not safe)) - (__AST-e _%$tl112635112663%_))) - (_%$hd112637112670%_ + (__AST-e _%$tl113767113795%_))) + (_%$hd113769113802%_ (let () (declare (not safe)) - (##car _%$tgt112636112667%_))) - (_%$tl112638112673%_ + (##car _%$tgt113768113799%_))) + (_%$tl113770113805%_ (let () (declare (not safe)) - (##cdr _%$tgt112636112667%_))) - (_%hd112677%_ _%$hd112637112670%_)) + (##cdr _%$tgt113768113799%_))) + (_%hd113809%_ _%$hd113769113802%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112638112673%_)) - (let* ((_%$tgt112639112679%_ + (__AST-pair? _%$tl113770113805%_)) + (let* ((_%$tgt113771113811%_ (let () (declare (not safe)) - (__AST-e _%$tl112638112673%_))) - (_%$hd112640112682%_ + (__AST-e _%$tl113770113805%_))) + (_%$hd113772113814%_ (let () (declare (not safe)) - (##car _%$tgt112639112679%_))) - (_%$tl112641112685%_ + (##car _%$tgt113771113811%_))) + (_%$tl113773113817%_ (let () (declare (not safe)) - (##cdr _%$tgt112639112679%_))) - (_%body112689%_ - _%$hd112640112682%_)) + (##cdr _%$tgt113771113811%_))) + (_%body113821%_ + _%$hd113772113814%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112641112685%_)) + (__AST-e _%$tl113773113817%_)) '()) - (let* ((_%hd-ids112729%_ - (map (lambda (_%bind112691%_) - (let* ((_%$e112693%_ + (let* ((_%hd-ids113861%_ + (map (lambda (_%bind113823%_) + (let* ((_%$e113825%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind112691%_) - (_%$E112695112704%_ + _%bind113823%_) + (_%$E113827113836%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112693%_))))) + _%$e113825%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112693%_)) - (let* ((_%$tgt112696112707%_ + (__AST-pair? _%$e113825%_)) + (let* ((_%$tgt113828113839%_ (let () (declare (not safe)) - (__AST-e _%$e112693%_))) - (_%$hd112697112710%_ + (__AST-e _%$e113825%_))) + (_%$hd113829113842%_ (let () (declare (not safe)) - (##car _%$tgt112696112707%_))) - (_%$tl112698112713%_ + (##car _%$tgt113828113839%_))) + (_%$tl113830113845%_ (let () (declare (not safe)) - (##cdr _%$tgt112696112707%_))) - (_%ids112717%_ _%$hd112697112710%_)) + (##cdr _%$tgt113828113839%_))) + (_%ids113849%_ _%$hd113829113842%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112698112713%_)) - (let* ((_%$tgt112699112719%_ + (__AST-pair? _%$tl113830113845%_)) + (let* ((_%$tgt113831113851%_ (let () (declare (not safe)) - (__AST-e _%$tl112698112713%_))) - (_%$hd112700112722%_ + (__AST-e _%$tl113830113845%_))) + (_%$hd113832113854%_ (let () (declare (not safe)) - (##car _%$tgt112699112719%_))) - (_%$tl112701112725%_ + (##car _%$tgt113831113851%_))) + (_%$tl113833113857%_ (let () (declare (not safe)) - (##cdr _%$tgt112699112719%_)))) + (##cdr _%$tgt113831113851%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112701112725%_)) + (__AST-e _%$tl113833113857%_)) '()) - _%ids112717%_ - (_%$E112695112704%_))) - (_%$E112695112704%_))) - (_%$E112695112704%_)))) - _%hd112677%_)) + _%ids113849%_ + (_%$E113827113836%_))) + (_%$E113827113836%_))) + (_%$E113827113836%_)))) + _%hd113809%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%exprs112769%_ - (map (lambda (_%bind112731%_) - (let* ((_%$e112733%_ + (_%exprs113901%_ + (map (lambda (_%bind113863%_) + (let* ((_%$e113865%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind112731%_) - (_%$E112735112744%_ + _%bind113863%_) + (_%$E113867113876%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112733%_))))) + _%$e113865%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112733%_)) - (let* ((_%$tgt112736112747%_ + (__AST-pair? _%$e113865%_)) + (let* ((_%$tgt113868113879%_ (let () (declare (not safe)) - (__AST-e _%$e112733%_))) - (_%$hd112737112750%_ + (__AST-e _%$e113865%_))) + (_%$hd113869113882%_ (let () (declare (not safe)) - (##car _%$tgt112736112747%_))) - (_%$tl112738112753%_ + (##car _%$tgt113868113879%_))) + (_%$tl113870113885%_ (let () (declare (not safe)) - (##cdr _%$tgt112736112747%_)))) + (##cdr _%$tgt113868113879%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112738112753%_)) - (let* ((_%$tgt112739112757%_ + (__AST-pair? _%$tl113870113885%_)) + (let* ((_%$tgt113871113889%_ (let () (declare (not safe)) - (__AST-e _%$tl112738112753%_))) - (_%$hd112740112760%_ + (__AST-e _%$tl113870113885%_))) + (_%$hd113872113892%_ (let () (declare (not safe)) - (##car _%$tgt112739112757%_))) - (_%$tl112741112763%_ + (##car _%$tgt113871113889%_))) + (_%$tl113873113895%_ (let () (declare (not safe)) - (##cdr _%$tgt112739112757%_))) - (_%expr112767%_ _%$hd112740112760%_)) + (##cdr _%$tgt113871113889%_))) + (_%expr113899%_ _%$hd113872113892%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112741112763%_)) + (__AST-e _%$tl113873113895%_)) '()) - (__compile _%expr112767%_) - (_%$E112735112744%_))) - (_%$E112735112744%_))) - (_%$E112735112744%_)))) - _%hd112677%_)) + (__compile _%expr113899%_) + (_%$E113867113876%_))) + (_%$E113867113876%_))) + (_%$E113867113876%_)))) + _%hd113809%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body112771%_ + (_%body113903%_ (__compile - _%body112689%_))) + _%body113821%_))) (if (let () (declare (not safe)) (__andmap1 - _%simple-bind?112626%_ - _%hd-ids112729%_)) - (_%compile-simple112623%_ + _%simple-bind?113758%_ + _%hd-ids113861%_)) + (_%compile-simple113755%_ (let () (declare (not safe)) - (##map _%car-e112627%_ - _%hd-ids112729%_)) - _%exprs112769%_ - _%body112771%_) - (_%compile-values112624%_ - _%hd-ids112729%_ - _%exprs112769%_ - _%body112771%_))) - (_%$E112632112654%_))) - (_%$E112632112654%_))) - (_%$E112632112654%_))) - (_%$E112632112654%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112629%_)) - (let* ((_%$tgt112642112777%_ - (let () (declare (not safe)) (__AST-e _%$e112629%_))) - (_%$hd112643112780%_ + (##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%_ (let () (declare (not safe)) - (##car _%$tgt112642112777%_))) - (_%$tl112644112783%_ + (##car _%$tgt113774113909%_))) + (_%$tl113776113915%_ (let () (declare (not safe)) - (##cdr _%$tgt112642112777%_)))) + (##cdr _%$tgt113774113909%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112644112783%_)) - (let* ((_%$tgt112645112787%_ + (__AST-pair? _%$tl113776113915%_)) + (let* ((_%$tgt113777113919%_ (let () (declare (not safe)) - (__AST-e _%$tl112644112783%_))) - (_%$hd112646112790%_ + (__AST-e _%$tl113776113915%_))) + (_%$hd113778113922%_ (let () (declare (not safe)) - (##car _%$tgt112645112787%_))) - (_%$tl112647112793%_ + (##car _%$tgt113777113919%_))) + (_%$tl113779113925%_ (let () (declare (not safe)) - (##cdr _%$tgt112645112787%_)))) + (##cdr _%$tgt113777113919%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd112646112790%_)) + (__AST-e _%$hd113778113922%_)) '()) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112647112793%_)) - (let* ((_%$tgt112648112797%_ + (__AST-pair? _%$tl113779113925%_)) + (let* ((_%$tgt113780113929%_ (let () (declare (not safe)) - (__AST-e _%$tl112647112793%_))) - (_%$hd112649112800%_ + (__AST-e _%$tl113779113925%_))) + (_%$hd113781113932%_ (let () (declare (not safe)) - (##car _%$tgt112648112797%_))) - (_%$tl112650112803%_ + (##car _%$tgt113780113929%_))) + (_%$tl113782113935%_ (let () (declare (not safe)) - (##cdr _%$tgt112648112797%_))) - (_%body112807%_ _%$hd112649112800%_)) + (##cdr _%$tgt113780113929%_))) + (_%body113939%_ _%$hd113781113932%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112650112803%_)) + (__AST-e _%$tl113782113935%_)) '()) - (__compile _%body112807%_) - (_%$E112631112774%_))) - (_%$E112631112774%_)) - (_%$E112631112774%_))) - (_%$E112631112774%_))) - (_%$E112631112774%_)))))) + (__compile _%body113939%_) + (_%$E113763113906%_))) + (_%$E113763113906%_)) + (_%$E113763113906%_))) + (_%$E113763113906%_))) + (_%$E113763113906%_)))))) (define __compile-let-values% - (lambda (_%stx112434%_) - (letrec ((_%compile-simple112436%_ - (lambda (_%hd-ids112618%_ _%exprs112619%_ _%body112620%_) + (lambda (_%stx113566%_) + (letrec ((_%compile-simple113568%_ + (lambda (_%hd-ids113750%_ _%exprs113751%_ _%body113752%_) (__SRC__% (cons 'let - (cons (let ((__tmp113737 + (cons (let ((__tmp114869 (map __compile-head-id - _%hd-ids112618%_))) + _%hd-ids113750%_))) (declare (not safe)) - (##map list __tmp113737 _%exprs112619%_)) - (cons _%body112620%_ '()))) - _%stx112434%_))) - (_%compile-values112437%_ - (lambda (_%hd-ids112533%_ _%exprs112534%_ _%body112535%_) - (let _%lp112537%_ ((_%rest112539%_ _%hd-ids112533%_) - (_%exprs112540%_ _%exprs112534%_) - (_%bind112541%_ '()) - (_%post112542%_ '())) - (let* ((_%rest112543112557%_ _%rest112539%_) - (_%else112546112565%_ + (##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%_ (lambda () (__SRC__% (cons 'let - (cons (reverse _%bind112541%_) - (cons (_%compile-post112438%_ - _%post112542%_ - _%body112535%_) + (cons (reverse _%bind113673%_) + (cons (_%compile-post113570%_ + _%post113674%_ + _%body113667%_) '()))) - _%stx112434%_)))) - (let ((_%K112551112601%_ - (lambda (_%rest112598%_ _%id112599%_) - (_%lp112537%_ - _%rest112598%_ - (cdr _%exprs112540%_) - (cons (cons (__compile-head-id _%id112599%_) - (cons (car _%exprs112540%_) '())) - _%bind112541%_) - _%post112542%_))) - (_%K112548112583%_ - (lambda (_%rest112569%_ _%hd112570%_) + _%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%_) (if (let () (declare (not safe)) - (__AST-id? _%hd112570%_)) - (_%lp112537%_ - _%rest112569%_ - (cdr _%exprs112540%_) + (__AST-id? _%hd113702%_)) + (_%lp113669%_ + _%rest113701%_ + (cdr _%exprs113672%_) (cons (cons (__compile-head-id - _%hd112570%_) + _%hd113702%_) (cons (cons 'values->list - (cons (car _%exprs112540%_) + (cons (car _%exprs113672%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind112541%_) - _%post112542%_) - (if (list? _%hd112570%_) - (let* ((_%len112574%_ + _%bind113673%_) + _%post113674%_) + (if (list? _%hd113702%_) + (let* ((_%len113706%_ (let () (declare (not safe)) - (##length _%hd112570%_))) - (_%tmp112576%_ + (##length _%hd113702%_))) + (_%tmp113708%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp112537%_ - _%rest112569%_ - (cdr _%exprs112540%_) - (cons (cons _%tmp112576%_ - (cons (car _%exprs112540%_) + (_%lp113669%_ + _%rest113701%_ + (cdr _%exprs113672%_) + (cons (cons _%tmp113708%_ + (cons (car _%exprs113672%_) '())) - _%bind112541%_) - (cons (cons _%tmp112576%_ - (cons _%len112574%_ - (let ((__tmp113739 + _%bind113673%_) + (cons (cons _%tmp113708%_ + (cons _%len113706%_ + (let ((__tmp114871 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%id112579%_ _%k112580%_) + (lambda (_%id113711%_ _%k113712%_) (if (let () (declare (not safe)) - (__AST-e _%id112579%_)) - (cons (__SRC__0 _%id112579%_) _%k112580%_) + (__AST-e _%id113711%_)) + (cons (__SRC__0 _%id113711%_) _%k113712%_) '#f))) - (__tmp113738 + (__tmp114870 (let () (declare (not safe)) - (##iota _%len112574%_)))) + (##iota _%len113706%_)))) (declare (not safe)) - (__filter-map2 __tmp113739 _%hd112570%_ __tmp113738)))) + (__filter-map2 __tmp114871 _%hd113702%_ __tmp114870)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post112542%_))) + _%post113674%_))) (__compile-error__% - _%stx112434%_ - _%hd112570%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest112543112557%_)) - (let ((_%tl112553112606%_ + _%stx113566%_ + _%hd113702%_)))))) + (if (pair? _%rest113675113689%_) + (let ((_%tl113685113738%_ (let () (declare (not safe)) - (##cdr _%rest112543112557%_))) - (_%hd112552112604%_ + (##cdr _%rest113675113689%_))) + (_%hd113684113736%_ (let () (declare (not safe)) - (##car _%rest112543112557%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd112552112604%_)) - (let ((_%tl112555112611%_ + (##car _%rest113675113689%_)))) + (if (pair? _%hd113684113736%_) + (let ((_%tl113687113743%_ (let () (declare (not safe)) - (##cdr _%hd112552112604%_))) - (_%hd112554112609%_ + (##cdr _%hd113684113736%_))) + (_%hd113686113741%_ (let () (declare (not safe)) - (##car _%hd112552112604%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl112555112611%_)) - (let ((_%id112614%_ - _%hd112554112609%_) - (_%rest112616%_ - _%tl112553112606%_)) - (_%K112551112601%_ - _%rest112616%_ - _%id112614%_)) - (let ((_%hd112591%_ - _%hd112552112604%_) - (_%rest112593%_ - _%tl112553112606%_)) - (_%K112548112583%_ - _%rest112593%_ - _%hd112591%_)))) - (let ((_%hd112591%_ _%hd112552112604%_) - (_%rest112593%_ _%tl112553112606%_)) - (_%K112548112583%_ - _%rest112593%_ - _%hd112591%_)))) - (_%else112546112565%_))))))) - (_%compile-post112438%_ - (lambda (_%post112440%_ _%body112441%_) - (let _%lp112443%_ ((_%rest112445%_ _%post112440%_) - (_%check112446%_ '()) - (_%bind112447%_ '())) - (let* ((_%rest112448112460%_ _%rest112445%_) - (_%else112450112468%_ + (##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%_ (lambda () (__SRC__% (cons 'begin - (let ((__tmp113740 + (let ((__tmp114872 (cons (__SRC__% (cons 'let - (cons _%bind112447%_ + (cons _%bind113579%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body112441%_ '()))) + (cons _%body113573%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx112434%_) + _%stx113566%_) '()))) (declare (not safe)) (__foldr1 cons - __tmp113740 - _%check112446%_))) - _%stx112434%_))) - (_%K112452112507%_ - (lambda (_%rest112471%_ - _%init112472%_ - _%len112473%_ - _%tmp112474%_) - (_%lp112443%_ - _%rest112471%_ + __tmp114872 + _%check113578%_))) + _%stx113566%_))) + (_%K113584113639%_ + (lambda (_%rest113603%_ + _%init113604%_ + _%len113605%_ + _%tmp113606%_) + (_%lp113575%_ + _%rest113603%_ (cons (__SRC__% (cons '__check-values - (cons _%tmp112474%_ - (cons _%len112473%_ '()))) - _%stx112434%_) - _%check112446%_) - (let ((__tmp113741 - (lambda (_%hd112476%_ _%r112477%_) - (let* ((_%hd112478112485%_ - _%hd112476%_) - (_%E112480112489%_ + (cons _%tmp113606%_ + (cons _%len113605%_ '()))) + _%stx113566%_) + _%check113578%_) + (let ((__tmp114873 + (lambda (_%hd113608%_ _%r113609%_) + (let* ((_%hd113610113617%_ + _%hd113608%_) + (_%E113612113621%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd112478112485%_ + _%hd113610113617%_ '([id . k]))) '#!void)) - (_%K112481112495%_ - (lambda (_%k112492%_ - _%id112493%_) - (cons (cons _%id112493%_ + (_%K113613113627%_ + (lambda (_%k113624%_ + _%id113625%_) + (cons (cons _%id113625%_ (cons (cons '##vector-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%tmp112474%_ - (cons _%k112492%_ '()))) + (cons _%tmp113606%_ + (cons _%k113624%_ '()))) '())) - _%r112477%_)))) + _%r113609%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%hd112478112485%_)) - (let ((_%hd112482112498%_ + (if (pair? _%hd113610113617%_) + (let ((_%hd113614113630%_ (let () (declare (not safe)) - (##car _%hd112478112485%_))) - (_%tl112483112500%_ + (##car _%hd113610113617%_))) + (_%tl113615113632%_ (let () (declare (not safe)) - (##cdr _%hd112478112485%_)))) - (let* ((_%id112503%_ - _%hd112482112498%_) - (_%k112505%_ - _%tl112483112500%_)) - (_%K112481112495%_ - _%k112505%_ - _%id112503%_))) - (_%E112480112489%_)))))) + (##cdr _%hd113610113617%_)))) + (let* ((_%id113635%_ + _%hd113614113630%_) + (_%k113637%_ + _%tl113615113632%_)) + (_%K113613113627%_ + _%k113637%_ + _%id113635%_))) + (_%E113612113621%_)))))) (declare (not safe)) (__foldr1 - __tmp113741 - _%bind112447%_ - _%init112472%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest112448112460%_)) - (let ((_%hd112453112510%_ + __tmp114873 + _%bind113579%_ + _%init113604%_)))))) + (if (pair? _%rest113580113592%_) + (let ((_%hd113585113642%_ (let () (declare (not safe)) - (##car _%rest112448112460%_))) - (_%tl112454112512%_ + (##car _%rest113580113592%_))) + (_%tl113586113644%_ (let () (declare (not safe)) - (##cdr _%rest112448112460%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd112453112510%_)) - (let ((_%hd112455112515%_ + (##cdr _%rest113580113592%_)))) + (if (pair? _%hd113585113642%_) + (let ((_%hd113587113647%_ (let () (declare (not safe)) - (##car _%hd112453112510%_))) - (_%tl112456112517%_ + (##car _%hd113585113642%_))) + (_%tl113588113649%_ (let () (declare (not safe)) - (##cdr _%hd112453112510%_)))) - (let ((_%tmp112520%_ _%hd112455112515%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl112456112517%_)) - (let ((_%hd112457112522%_ + (##cdr _%hd113585113642%_)))) + (let ((_%tmp113652%_ _%hd113587113647%_)) + (if (pair? _%tl113588113649%_) + (let ((_%hd113589113654%_ (let () (declare (not safe)) - (##car _%tl112456112517%_))) - (_%tl112458112524%_ + (##car _%tl113588113649%_))) + (_%tl113590113656%_ (let () (declare (not safe)) - (##cdr _%tl112456112517%_)))) - (let* ((_%len112527%_ - _%hd112457112522%_) - (_%init112529%_ - _%tl112458112524%_) - (_%rest112531%_ - _%tl112454112512%_)) - (_%K112452112507%_ - _%rest112531%_ - _%init112529%_ - _%len112527%_ - _%tmp112520%_))) - (_%else112450112468%_)))) - (_%else112450112468%_))) - (_%else112450112468%_))))))) + (##cdr _%tl113588113649%_)))) + (let* ((_%len113659%_ + _%hd113589113654%_) + (_%init113661%_ + _%tl113590113656%_) + (_%rest113663%_ + _%tl113586113644%_)) + (_%K113584113639%_ + _%rest113663%_ + _%init113661%_ + _%len113659%_ + _%tmp113652%_))) + (_%else113582113600%_)))) + (_%else113582113600%_))) + (_%else113582113600%_))))))) (__compile-let-form - _%stx112434%_ - _%compile-simple112436%_ - _%compile-values112437%_)))) + _%stx113566%_ + _%compile-simple113568%_ + _%compile-values113569%_)))) (define __compile-letrec-values% - (lambda (_%stx112231%_) - (letrec ((_%compile-simple112233%_ - (lambda (_%hd-ids112430%_ _%exprs112431%_ _%body112432%_) + (lambda (_%stx113363%_) + (letrec ((_%compile-simple113365%_ + (lambda (_%hd-ids113562%_ _%exprs113563%_ _%body113564%_) (__SRC__% (cons 'letrec - (cons (let ((__tmp113742 + (cons (let ((__tmp114874 (map __compile-head-id - _%hd-ids112430%_))) + _%hd-ids113562%_))) (declare (not safe)) - (##map list __tmp113742 _%exprs112431%_)) - (cons _%body112432%_ '()))) - _%stx112231%_))) - (_%compile-values112234%_ - (lambda (_%hd-ids112341%_ _%exprs112342%_ _%body112343%_) - (let _%lp112345%_ ((_%rest112347%_ _%hd-ids112341%_) - (_%exprs112348%_ _%exprs112342%_) - (_%pre112349%_ '()) - (_%bind112350%_ '()) - (_%post112351%_ '())) - (let* ((_%rest112352112366%_ _%rest112347%_) - (_%else112355112374%_ + (##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%_ (lambda () - (_%compile-inner112235%_ - _%pre112349%_ - _%bind112350%_ - _%post112351%_ - _%body112343%_)))) - (let ((_%K112360112413%_ - (lambda (_%rest112410%_ _%id112411%_) - (_%lp112345%_ - _%rest112410%_ - (cdr _%exprs112348%_) - _%pre112349%_ - (cons (cons (__compile-head-id _%id112411%_) - (cons (car _%exprs112348%_) '())) - _%bind112350%_) - _%post112351%_))) - (_%K112357112395%_ - (lambda (_%rest112378%_ _%hd112379%_) + (_%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%_) (if (let () (declare (not safe)) - (__AST-id? _%hd112379%_)) - (_%lp112345%_ - _%rest112378%_ - (cdr _%exprs112348%_) - _%pre112349%_ + (__AST-id? _%hd113511%_)) + (_%lp113477%_ + _%rest113510%_ + (cdr _%exprs113480%_) + _%pre113481%_ (cons (cons (__compile-head-id - _%hd112379%_) + _%hd113511%_) (cons (cons 'values->list - (cons (car _%exprs112348%_) + (cons (car _%exprs113480%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind112350%_) - _%post112351%_) - (if (list? _%hd112379%_) - (let* ((_%len112383%_ + _%bind113482%_) + _%post113483%_) + (if (list? _%hd113511%_) + (let* ((_%len113515%_ (let () (declare (not safe)) - (##length _%hd112379%_))) - (_%tmp112385%_ + (##length _%hd113511%_))) + (_%tmp113517%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp112345%_ - _%rest112378%_ - (cdr _%exprs112348%_) - (let ((__tmp113743 - (lambda (_%id112388%_ - _%r112389%_) + (_%lp113477%_ + _%rest113510%_ + (cdr _%exprs113480%_) + (let ((__tmp114875 + (lambda (_%id113520%_ + _%r113521%_) (if (let () (declare (not safe)) - (__AST-e _%id112388%_)) + (__AST-e _%id113520%_)) (cons (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id112388%_) + _%id113520%_) (cons (cons 'quote (cons '#!void '())) '())) - _%r112389%_) - _%r112389%_)))) + _%r113521%_) + _%r113521%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 - __tmp113743 - _%pre112349%_ - _%hd112379%_)) - (cons (cons _%tmp112385%_ - (cons (car _%exprs112348%_) + __tmp114875 + _%pre113481%_ + _%hd113511%_)) + (cons (cons _%tmp113517%_ + (cons (car _%exprs113480%_) '())) - _%bind112350%_) - (cons (cons _%tmp112385%_ - (cons _%len112383%_ - (let ((__tmp113745 + _%bind113482%_) + (cons (cons _%tmp113517%_ + (cons _%len113515%_ + (let ((__tmp114877 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%id112391%_ _%k112392%_) + (lambda (_%id113523%_ _%k113524%_) (if (let () (declare (not safe)) - (__AST-e _%id112391%_)) - (cons (__SRC__0 _%id112391%_) _%k112392%_) + (__AST-e _%id113523%_)) + (cons (__SRC__0 _%id113523%_) _%k113524%_) '#f))) - (__tmp113744 + (__tmp114876 (let () (declare (not safe)) - (##iota _%len112383%_)))) + (##iota _%len113515%_)))) (declare (not safe)) - (__filter-map2 __tmp113745 _%hd112379%_ __tmp113744)))) + (__filter-map2 __tmp114877 _%hd113511%_ __tmp114876)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post112351%_))) + _%post113483%_))) (__compile-error__% - _%stx112231%_ - _%hd112379%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest112352112366%_)) - (let ((_%tl112362112418%_ + _%stx113363%_ + _%hd113511%_)))))) + (if (pair? _%rest113484113498%_) + (let ((_%tl113494113550%_ (let () (declare (not safe)) - (##cdr _%rest112352112366%_))) - (_%hd112361112416%_ + (##cdr _%rest113484113498%_))) + (_%hd113493113548%_ (let () (declare (not safe)) - (##car _%rest112352112366%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd112361112416%_)) - (let ((_%tl112364112423%_ + (##car _%rest113484113498%_)))) + (if (pair? _%hd113493113548%_) + (let ((_%tl113496113555%_ (let () (declare (not safe)) - (##cdr _%hd112361112416%_))) - (_%hd112363112421%_ + (##cdr _%hd113493113548%_))) + (_%hd113495113553%_ (let () (declare (not safe)) - (##car _%hd112361112416%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl112364112423%_)) - (let ((_%id112426%_ - _%hd112363112421%_) - (_%rest112428%_ - _%tl112362112418%_)) - (_%K112360112413%_ - _%rest112428%_ - _%id112426%_)) - (let ((_%hd112403%_ - _%hd112361112416%_) - (_%rest112405%_ - _%tl112362112418%_)) - (_%K112357112395%_ - _%rest112405%_ - _%hd112403%_)))) - (let ((_%hd112403%_ _%hd112361112416%_) - (_%rest112405%_ _%tl112362112418%_)) - (_%K112357112395%_ - _%rest112405%_ - _%hd112403%_)))) - (_%else112355112374%_))))))) - (_%compile-inner112235%_ - (lambda (_%pre112336%_ - _%bind112337%_ - _%post112338%_ - _%body112339%_) - (if (null? _%pre112336%_) - (_%compile-bind112236%_ - _%bind112337%_ - _%post112338%_ - _%body112339%_) + (##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%_) (__SRC__% (cons 'let - (cons (reverse _%pre112336%_) - (cons (_%compile-bind112236%_ - _%bind112337%_ - _%post112338%_ - _%body112339%_) + (cons (reverse _%pre113468%_) + (cons (_%compile-bind113368%_ + _%bind113469%_ + _%post113470%_ + _%body113471%_) '()))) - _%stx112231%_)))) - (_%compile-bind112236%_ - (lambda (_%bind112332%_ _%post112333%_ _%body112334%_) + _%stx113363%_)))) + (_%compile-bind113368%_ + (lambda (_%bind113464%_ _%post113465%_ _%body113466%_) (__SRC__% (cons 'letrec - (cons (reverse _%bind112332%_) - (cons (_%compile-post112237%_ - _%post112333%_ - _%body112334%_) + (cons (reverse _%bind113464%_) + (cons (_%compile-post113369%_ + _%post113465%_ + _%body113466%_) '()))) - _%stx112231%_))) - (_%compile-post112237%_ - (lambda (_%post112239%_ _%body112240%_) - (let _%lp112242%_ ((_%rest112244%_ _%post112239%_) - (_%check112245%_ '()) - (_%bind112246%_ '())) - (let* ((_%rest112247112259%_ _%rest112244%_) - (_%else112249112267%_ + _%stx113363%_))) + (_%compile-post113369%_ + (lambda (_%post113371%_ _%body113372%_) + (let _%lp113374%_ ((_%rest113376%_ _%post113371%_) + (_%check113377%_ '()) + (_%bind113378%_ '())) + (let* ((_%rest113379113391%_ _%rest113376%_) + (_%else113381113399%_ (lambda () (__SRC__% (cons 'begin - (let ((__tmp113746 - (let ((__tmp113747 - (cons _%body112240%_ + (let ((__tmp114878 + (let ((__tmp114879 + (cons _%body113372%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp113747 - _%bind112246%_)))) + __tmp114879 + _%bind113378%_)))) (declare (not safe)) (__foldr1 cons - __tmp113746 - _%check112245%_))) - _%stx112231%_))) - (_%K112251112306%_ - (lambda (_%rest112270%_ - _%init112271%_ - _%len112272%_ - _%tmp112273%_) - (_%lp112242%_ - _%rest112270%_ + __tmp114878 + _%check113377%_))) + _%stx113363%_))) + (_%K113383113438%_ + (lambda (_%rest113402%_ + _%init113403%_ + _%len113404%_ + _%tmp113405%_) + (_%lp113374%_ + _%rest113402%_ (cons (__SRC__% (cons '__check-values - (cons _%tmp112273%_ - (cons _%len112272%_ '()))) - _%stx112231%_) - _%check112245%_) - (let ((__tmp113748 - (lambda (_%hd112275%_ _%r112276%_) - (let* ((_%hd112277112284%_ - _%hd112275%_) - (_%E112279112288%_ + (cons _%tmp113405%_ + (cons _%len113404%_ '()))) + _%stx113363%_) + _%check113377%_) + (let ((__tmp114880 + (lambda (_%hd113407%_ _%r113408%_) + (let* ((_%hd113409113416%_ + _%hd113407%_) + (_%E113411113420%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd112277112284%_ + _%hd113409113416%_ '([id . k]))) '#!void)) - (_%K112280112294%_ - (lambda (_%k112291%_ - _%id112292%_) + (_%K113412113426%_ + (lambda (_%k113423%_ + _%id113424%_) (cons (cons 'set! - (cons _%id112292%_ + (cons _%id113424%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '##vector-ref - (cons _%tmp112273%_ - (cons _%k112291%_ '()))) + (cons _%tmp113405%_ + (cons _%k113423%_ '()))) '()))) - _%r112276%_)))) + _%r113408%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%hd112277112284%_)) - (let ((_%hd112281112297%_ + (if (pair? _%hd113409113416%_) + (let ((_%hd113413113429%_ (let () (declare (not safe)) - (##car _%hd112277112284%_))) - (_%tl112282112299%_ + (##car _%hd113409113416%_))) + (_%tl113414113431%_ (let () (declare (not safe)) - (##cdr _%hd112277112284%_)))) - (let* ((_%id112302%_ - _%hd112281112297%_) - (_%k112304%_ - _%tl112282112299%_)) - (_%K112280112294%_ - _%k112304%_ - _%id112302%_))) - (_%E112279112288%_)))))) + (##cdr _%hd113409113416%_)))) + (let* ((_%id113434%_ + _%hd113413113429%_) + (_%k113436%_ + _%tl113414113431%_)) + (_%K113412113426%_ + _%k113436%_ + _%id113434%_))) + (_%E113411113420%_)))))) (declare (not safe)) (__foldr1 - __tmp113748 - _%bind112246%_ - _%init112271%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest112247112259%_)) - (let ((_%hd112252112309%_ + __tmp114880 + _%bind113378%_ + _%init113403%_)))))) + (if (pair? _%rest113379113391%_) + (let ((_%hd113384113441%_ (let () (declare (not safe)) - (##car _%rest112247112259%_))) - (_%tl112253112311%_ + (##car _%rest113379113391%_))) + (_%tl113385113443%_ (let () (declare (not safe)) - (##cdr _%rest112247112259%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd112252112309%_)) - (let ((_%hd112254112314%_ + (##cdr _%rest113379113391%_)))) + (if (pair? _%hd113384113441%_) + (let ((_%hd113386113446%_ (let () (declare (not safe)) - (##car _%hd112252112309%_))) - (_%tl112255112316%_ + (##car _%hd113384113441%_))) + (_%tl113387113448%_ (let () (declare (not safe)) - (##cdr _%hd112252112309%_)))) - (let ((_%tmp112319%_ _%hd112254112314%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl112255112316%_)) - (let ((_%hd112256112321%_ + (##cdr _%hd113384113441%_)))) + (let ((_%tmp113451%_ _%hd113386113446%_)) + (if (pair? _%tl113387113448%_) + (let ((_%hd113388113453%_ (let () (declare (not safe)) - (##car _%tl112255112316%_))) - (_%tl112257112323%_ + (##car _%tl113387113448%_))) + (_%tl113389113455%_ (let () (declare (not safe)) - (##cdr _%tl112255112316%_)))) - (let* ((_%len112326%_ - _%hd112256112321%_) - (_%init112328%_ - _%tl112257112323%_) - (_%rest112330%_ - _%tl112253112311%_)) - (_%K112251112306%_ - _%rest112330%_ - _%init112328%_ - _%len112326%_ - _%tmp112319%_))) - (_%else112249112267%_)))) - (_%else112249112267%_))) - (_%else112249112267%_))))))) + (##cdr _%tl113387113448%_)))) + (let* ((_%len113458%_ + _%hd113388113453%_) + (_%init113460%_ + _%tl113389113455%_) + (_%rest113462%_ + _%tl113385113443%_)) + (_%K113383113438%_ + _%rest113462%_ + _%init113460%_ + _%len113458%_ + _%tmp113451%_))) + (_%else113381113399%_)))) + (_%else113381113399%_))) + (_%else113381113399%_))))))) (__compile-let-form - _%stx112231%_ - _%compile-simple112233%_ - _%compile-values112234%_)))) + _%stx113363%_ + _%compile-simple113365%_ + _%compile-values113366%_)))) (define __compile-letrec*-values% - (lambda (_%stx111982%_) - (letrec ((_%compile-simple111984%_ - (lambda (_%hd-ids112227%_ _%exprs112228%_ _%body112229%_) + (lambda (_%stx113114%_) + (letrec ((_%compile-simple113116%_ + (lambda (_%hd-ids113359%_ _%exprs113360%_ _%body113361%_) (__SRC__% (cons 'letrec* - (cons (let ((__tmp113749 + (cons (let ((__tmp114881 (map __compile-head-id - _%hd-ids112227%_))) + _%hd-ids113359%_))) (declare (not safe)) - (##map list __tmp113749 _%exprs112228%_)) - (cons _%body112229%_ '()))) - _%stx111982%_))) - (_%compile-values111985%_ - (lambda (_%hd-ids112134%_ _%exprs112135%_ _%body112136%_) - (let _%lp112138%_ ((_%rest112140%_ _%hd-ids112134%_) - (_%exprs112141%_ _%exprs112135%_) - (_%bind112142%_ '()) - (_%post112143%_ '())) - (let* ((_%rest112144112158%_ _%rest112140%_) - (_%else112147112166%_ + (##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%_ (lambda () - (_%compile-bind111986%_ - _%bind112142%_ - _%post112143%_ - _%body112136%_)))) - (let ((_%K112152112210%_ - (lambda (_%rest112205%_ _%hd112206%_) + (_%compile-bind113118%_ + _%bind113274%_ + _%post113275%_ + _%body113268%_)))) + (let ((_%K113284113342%_ + (lambda (_%rest113337%_ _%hd113338%_) (if (let () (declare (not safe)) - (__AST-id? _%hd112206%_)) - (let ((_%id112208%_ - (__SRC__0 _%hd112206%_))) - (_%lp112138%_ - _%rest112205%_ - (cdr _%exprs112141%_) - (cons (cons _%id112208%_ + (__AST-id? _%hd113338%_)) + (let ((_%id113340%_ + (__SRC__0 _%hd113338%_))) + (_%lp113270%_ + _%rest113337%_ + (cdr _%exprs113273%_) + (cons (cons _%id113340%_ (cons (cons 'quote (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind112142%_) - (cons (cons _%id112208%_ - (cons (car _%exprs112141%_) + _%bind113274%_) + (cons (cons _%id113340%_ + (cons (car _%exprs113273%_) '())) - _%post112143%_))) - (_%lp112138%_ - _%rest112205%_ - (cdr _%exprs112141%_) - _%bind112142%_ + _%post113275%_))) + (_%lp113270%_ + _%rest113337%_ + (cdr _%exprs113273%_) + _%bind113274%_ (cons (cons '#f - (cons (car _%exprs112141%_) + (cons (car _%exprs113273%_) '())) - _%post112143%_))))) - (_%K112149112190%_ - (lambda (_%rest112170%_ _%hd112171%_) + _%post113275%_))))) + (_%K113281113322%_ + (lambda (_%rest113302%_ _%hd113303%_) (if (let () (declare (not safe)) - (__AST-id? _%hd112171%_)) - (let ((_%id112174%_ - (__SRC__0 _%hd112171%_))) - (_%lp112138%_ - _%rest112170%_ - (cdr _%exprs112141%_) - (cons (cons _%id112174%_ + (__AST-id? _%hd113303%_)) + (let ((_%id113306%_ + (__SRC__0 _%hd113303%_))) + (_%lp113270%_ + _%rest113302%_ + (cdr _%exprs113273%_) + (cons (cons _%id113306%_ (cons (cons 'quote (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind112142%_) - (cons (cons _%id112174%_ + _%bind113274%_) + (cons (cons _%id113306%_ (cons (cons 'values->list - (cons (car _%exprs112141%_) + (cons (car _%exprs113273%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post112143%_))) + _%post113275%_))) (if (let () (declare (not safe)) - (__AST-e _%hd112171%_)) - (if (list? _%hd112171%_) - (let* ((_%len112178%_ + (__AST-e _%hd113303%_)) + (if (list? _%hd113303%_) + (let* ((_%len113310%_ (let () (declare (not safe)) (##length - _%hd112171%_))) - (_%tmp112180%_ + _%hd113303%_))) + (_%tmp113312%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp112138%_ - _%rest112170%_ - (cdr _%exprs112141%_) - (let ((__tmp113750 - (lambda (_%id112183%_ - _%r112184%_) + (_%lp113270%_ + _%rest113302%_ + (cdr _%exprs113273%_) + (let ((__tmp114882 + (lambda (_%id113315%_ + _%r113316%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%id112183%_)) - (cons (cons (__SRC__0 _%id112183%_) + (__AST-e _%id113315%_)) + (cons (cons (__SRC__0 _%id113315%_) (cons (cons 'quote (cons '#!void '())) '())) - _%r112184%_) - _%r112184%_)))) + _%r113316%_) + _%r113316%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 - __tmp113750 - _%bind112142%_ - _%hd112171%_)) - (cons (cons _%tmp112180%_ - (cons (car _%exprs112141%_) + __tmp114882 + _%bind113274%_ + _%hd113303%_)) + (cons (cons _%tmp113312%_ + (cons (car _%exprs113273%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len112178%_ - (let ((__tmp113752 - (lambda (_%id112186%_ _%k112187%_) + (cons _%len113310%_ + (let ((__tmp114884 + (lambda (_%id113318%_ _%k113319%_) (if (let () (declare (not safe)) - (__AST-e _%id112186%_)) - (cons (__SRC__0 _%id112186%_) - _%k112187%_) + (__AST-e _%id113318%_)) + (cons (__SRC__0 _%id113318%_) + _%k113319%_) '#f))) - (__tmp113751 + (__tmp114883 (let () (declare (not safe)) - (##iota _%len112178%_)))) + (##iota _%len113310%_)))) (declare (not safe)) (__filter-map2 - __tmp113752 - _%hd112171%_ - __tmp113751))))) - _%post112143%_))) + __tmp114884 + _%hd113303%_ + __tmp114883))))) + _%post113275%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (__compile-error__% - _%stx111982%_ - _%hd112171%_)) - (_%lp112138%_ - _%rest112170%_ - (cdr _%exprs112141%_) - _%bind112142%_ + _%stx113114%_ + _%hd113303%_)) + (_%lp113270%_ + _%rest113302%_ + (cdr _%exprs113273%_) + _%bind113274%_ (cons (cons '#f - (cons (car _%exprs112141%_) + (cons (car _%exprs113273%_) '())) - _%post112143%_))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest112144112158%_)) - (let ((_%tl112154112215%_ + _%post113275%_))))))) + (if (pair? _%rest113276113290%_) + (let ((_%tl113286113347%_ (let () (declare (not safe)) - (##cdr _%rest112144112158%_))) - (_%hd112153112213%_ + (##cdr _%rest113276113290%_))) + (_%hd113285113345%_ (let () (declare (not safe)) - (##car _%rest112144112158%_)))) - (if (let () - (declare (not safe)) - (##pair? _%hd112153112213%_)) - (let ((_%tl112156112220%_ + (##car _%rest113276113290%_)))) + (if (pair? _%hd113285113345%_) + (let ((_%tl113288113352%_ (let () (declare (not safe)) - (##cdr _%hd112153112213%_))) - (_%hd112155112218%_ + (##cdr _%hd113285113345%_))) + (_%hd113287113350%_ (let () (declare (not safe)) - (##car _%hd112153112213%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl112156112220%_)) - (let ((_%hd112223%_ - _%hd112155112218%_) - (_%rest112225%_ - _%tl112154112215%_)) - (_%K112152112210%_ - _%rest112225%_ - _%hd112223%_)) - (let ((_%hd112198%_ - _%hd112153112213%_) - (_%rest112200%_ - _%tl112154112215%_)) - (_%K112149112190%_ - _%rest112200%_ - _%hd112198%_)))) - (let ((_%hd112198%_ _%hd112153112213%_) - (_%rest112200%_ _%tl112154112215%_)) - (_%K112149112190%_ - _%rest112200%_ - _%hd112198%_)))) - (_%else112147112166%_))))))) - (_%compile-bind111986%_ - (lambda (_%bind112130%_ _%post112131%_ _%body112132%_) + (##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%_) (__SRC__% (cons 'let - (cons (reverse _%bind112130%_) - (cons (_%compile-post111987%_ - _%post112131%_ - _%body112132%_) + (cons (reverse _%bind113262%_) + (cons (_%compile-post113119%_ + _%post113263%_ + _%body113264%_) '()))) - _%stx111982%_))) - (_%compile-post111987%_ - (lambda (_%post111989%_ _%body111990%_) + _%stx113114%_))) + (_%compile-post113119%_ + (lambda (_%post113121%_ _%body113122%_) (__SRC__% (cons 'begin - (let ((__tmp113753 - (let ((__tmp113755 - (lambda (_%hd111992%_ _%r111993%_) - (let* ((_%hd111994112017%_ - _%hd111992%_) - (_%E111998112021%_ + (let ((__tmp114885 + (let ((__tmp114887 + (lambda (_%hd113124%_ _%r113125%_) + (let* ((_%hd113126113149%_ + _%hd113124%_) + (_%E113130113153%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd111994112017%_ + _%hd113126113149%_ '([#f expr]) '([id expr]) '([tmp @@ -2241,567 +2203,553 @@ init]))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K112011112115%_ - (lambda (_%expr112113%_) - (cons _%expr112113%_ - _%r111993%_))) - (_%K112006112093%_ - (lambda (_%expr112090%_ - _%id112091%_) + (let ((_%K113143113247%_ + (lambda (_%expr113245%_) + (cons _%expr113245%_ + _%r113125%_))) + (_%K113138113225%_ + (lambda (_%expr113222%_ + _%id113223%_) (cons (__SRC__% (cons 'set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id112091%_ (cons _%expr112090%_ '()))) - _%stx111982%_) - _%r111993%_))) + (cons _%id113223%_ (cons _%expr113222%_ '()))) + _%stx113114%_) + _%r113125%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K111999112060%_ - (lambda (_%init112025%_ - _%len112026%_ - _%expr112027%_ - _%tmp112028%_) + (_%K113131113192%_ + (lambda (_%init113157%_ + _%len113158%_ + _%expr113159%_ + _%tmp113160%_) (cons (__SRC__% (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _%tmp112028%_ - (cons _%expr112027%_ '())) + (cons (cons (cons _%tmp113160%_ + (cons _%expr113159%_ '())) '()) (cons (__SRC__% (cons '__check-values - (cons _%tmp112028%_ - (cons _%len112026%_ '()))) - _%stx111982%_) - (let ((__tmp113756 - (map (lambda (_%hd112030%_) - (let* ((_%hd112031112038%_ - _%hd112030%_) - (_%E112033112042%_ + (cons _%tmp113160%_ + (cons _%len113158%_ '()))) + _%stx113114%_) + (let ((__tmp114888 + (map (lambda (_%hd113162%_) + (let* ((_%hd113163113170%_ + _%hd113162%_) + (_%E113165113174%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (error '"No clause matching" - _%hd112031112038%_ + _%hd113163113170%_ '([id . k]))) '#!void)) - (_%K112034112048%_ - (lambda (_%k112045%_ _%id112046%_) + (_%K113166113180%_ + (lambda (_%k113177%_ _%id113178%_) (__SRC__% (cons 'set! - (cons _%id112046%_ + (cons _%id113178%_ (cons (cons '##vector-ref - (cons _%tmp112028%_ - (cons _%k112045%_ '()))) + (cons _%tmp113160%_ + (cons _%k113177%_ '()))) '()))) - _%stx111982%_)))) - (if (let () (declare (not safe)) (##pair? _%hd112031112038%_)) - (let ((_%hd112035112051%_ + _%stx113114%_)))) + (if (pair? _%hd113163113170%_) + (let ((_%hd113167113183%_ (let () (declare (not safe)) - (##car _%hd112031112038%_))) - (_%tl112036112053%_ + (##car _%hd113163113170%_))) + (_%tl113168113185%_ (let () (declare (not safe)) - (##cdr _%hd112031112038%_)))) - (let* ((_%id112056%_ _%hd112035112051%_) - (_%k112058%_ _%tl112036112053%_)) - (_%K112034112048%_ _%k112058%_ _%id112056%_))) - (_%E112033112042%_)))) + (##cdr _%hd113163113170%_)))) + (let* ((_%id113188%_ _%hd113167113183%_) + (_%k113190%_ _%tl113168113185%_)) + (_%K113166113180%_ _%k113190%_ _%id113188%_))) + (_%E113165113174%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%init112025%_))) + _%init113157%_))) (declare (not safe)) - (__foldr1 cons '() __tmp113756))))) - _%stx111982%_) - _%r111993%_)))) + (__foldr1 cons '() __tmp114888))))) + _%stx113114%_) + _%r113125%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match113609113610%_ - (lambda (_%hd112000112063%_ - _%tl112001112065%_ - _%hd112002112070%_ - _%tl112003112072%_) - (let ((_%tmp112068%_ - _%hd112000112063%_) - (_%expr112075%_ - _%hd112002112070%_)) - (_%E111998112021%_)))) - (_%__match113603113604%_ - (lambda (_%hd112000112063%_ - _%tl112001112065%_) - (let ((_%tmp112068%_ - _%hd112000112063%_)) - (_%E111998112021%_))))) - (if (let () - (declare (not safe)) - (##pair? _%hd111994112017%_)) - (let ((_%tl112013112120%_ + (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 () (declare (not safe)) - (##cdr _%hd111994112017%_))) - (_%hd112012112118%_ + (##cdr _%hd113126113149%_))) + (_%hd113144113250%_ (let () (declare (not safe)) - (##car _%hd111994112017%_)))) + (##car _%hd113126113149%_)))) (if (let () (declare (not safe)) - (##eq? _%hd112012112118%_ + (##eq? _%hd113144113250%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f)) - (if (let () - (declare (not safe)) - (##pair? _%tl112013112120%_)) - (let ((_%tl112015112125%_ + (if (pair? _%tl113145113252%_) + (let ((_%tl113147113257%_ (let () (declare (not safe)) - (##cdr _%tl112013112120%_))) - (_%hd112014112123%_ + (##cdr _%tl113145113252%_))) + (_%hd113146113255%_ (let () (declare (not safe)) - (##car _%tl112013112120%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl112015112125%_)) - (let ((_%expr112128%_ _%hd112014112123%_)) - (_%K112011112115%_ _%expr112128%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl112015112125%_)) - (let ((_%tl112005112079%_ + (##car _%tl113145113252%_)))) + (if (null? _%tl113147113257%_) + (let ((_%expr113260%_ _%hd113146113255%_)) + (_%K113143113247%_ _%expr113260%_)) + (if (pair? _%tl113147113257%_) + (let ((_%tl113137113211%_ (let () (declare (not safe)) - (##cdr _%tl112015112125%_))) - (_%hd112004112077%_ + (##cdr _%tl113147113257%_))) + (_%hd113136113209%_ (let () (declare (not safe)) - (##car _%tl112015112125%_)))) - (let ((_%tmp112068%_ _%hd112012112118%_) - (_%expr112075%_ _%hd112014112123%_) - (_%len112082%_ _%hd112004112077%_) - (_%init112084%_ _%tl112005112079%_)) - (_%K111999112060%_ - _%init112084%_ - _%len112082%_ - _%expr112075%_ - _%tmp112068%_))) - (_%__match113609113610%_ - _%hd112012112118%_ - _%tl112013112120%_ - _%hd112014112123%_ - _%tl112015112125%_)))) - (_%__match113603113604%_ - _%hd112012112118%_ - _%tl112013112120%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl112013112120%_)) - (let ((_%tl112010112105%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%tl112013112120%_))) - (_%hd112009112103%_ + (##cdr _%tl113145113252%_))) + (_%hd113141113235%_ (let () (declare (not safe)) - (##car _%tl112013112120%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl112010112105%_)) - (let ((_%id112101%_ _%hd112012112118%_) - (_%expr112108%_ _%hd112009112103%_)) - (_%K112006112093%_ _%expr112108%_ _%id112101%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl112010112105%_)) - (let ((_%tl112005112079%_ + (##car _%tl113145113252%_)))) + (if (null? _%tl113142113237%_) + (let ((_%id113233%_ _%hd113144113250%_) + (_%expr113240%_ _%hd113141113235%_)) + (_%K113138113225%_ _%expr113240%_ _%id113233%_)) + (if (pair? _%tl113142113237%_) + (let ((_%tl113137113211%_ (let () (declare (not safe)) - (##cdr _%tl112010112105%_))) - (_%hd112004112077%_ + (##cdr _%tl113142113237%_))) + (_%hd113136113209%_ (let () (declare (not safe)) - (##car _%tl112010112105%_)))) - (let ((_%tmp112068%_ _%hd112012112118%_) - (_%expr112075%_ _%hd112009112103%_) - (_%len112082%_ _%hd112004112077%_) - (_%init112084%_ _%tl112005112079%_)) - (_%K111999112060%_ - _%init112084%_ - _%len112082%_ - _%expr112075%_ - _%tmp112068%_))) - (_%__match113609113610%_ - _%hd112012112118%_ - _%tl112013112120%_ - _%hd112009112103%_ - _%tl112010112105%_)))) - (_%__match113603113604%_ - _%hd112012112118%_ - _%tl112013112120%_)))) + (##car _%tl113142113237%_)))) + (let ((_%tmp113200%_ _%hd113144113250%_) + (_%expr113207%_ _%hd113141113235%_) + (_%len113214%_ _%hd113136113209%_) + (_%init113216%_ _%tl113137113211%_)) + (_%K113131113192%_ + _%init113216%_ + _%len113214%_ + _%expr113207%_ + _%tmp113200%_))) + (_%__match114741114742%_ + _%hd113144113250%_ + _%tl113145113252%_ + _%hd113141113235%_ + _%tl113142113237%_)))) + (_%__match114735114736%_ + _%hd113144113250%_ + _%tl113145113252%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E111998112021%_))))))) - (__tmp113754 (list _%body111990%_))) + (_%E113130113153%_))))))) + (__tmp114886 (list _%body113122%_))) (declare (not safe)) (__foldl1 - __tmp113755 - __tmp113754 - _%post111989%_)))) + __tmp114887 + __tmp114886 + _%post113121%_)))) (declare (not safe)) - (__foldr1 cons '() __tmp113753))) - _%stx111982%_)))) + (__foldr1 cons '() __tmp114885))) + _%stx113114%_)))) (__compile-let-form - _%stx111982%_ - _%compile-simple111984%_ - _%compile-values111985%_)))) + _%stx113114%_ + _%compile-simple113116%_ + _%compile-values113117%_)))) (define __compile-call% - (lambda (_%stx111942%_) - (let* ((_%$e111944%_ _%stx111942%_) - (_%$E111946111955%_ + (lambda (_%stx113074%_) + (let* ((_%$e113076%_ _%stx113074%_) + (_%$E113078113087%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111944%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111944%_)) - (let* ((_%$tgt111947111958%_ - (let () (declare (not safe)) (__AST-e _%$e111944%_))) - (_%$hd111948111961%_ + _%$e113076%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113076%_)) + (let* ((_%$tgt113079113090%_ + (let () (declare (not safe)) (__AST-e _%$e113076%_))) + (_%$hd113080113093%_ (let () (declare (not safe)) - (##car _%$tgt111947111958%_))) - (_%$tl111949111964%_ + (##car _%$tgt113079113090%_))) + (_%$tl113081113096%_ (let () (declare (not safe)) - (##cdr _%$tgt111947111958%_)))) + (##cdr _%$tgt113079113090%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111949111964%_)) - (let* ((_%$tgt111950111968%_ + (__AST-pair? _%$tl113081113096%_)) + (let* ((_%$tgt113082113100%_ (let () (declare (not safe)) - (__AST-e _%$tl111949111964%_))) - (_%$hd111951111971%_ + (__AST-e _%$tl113081113096%_))) + (_%$hd113083113103%_ (let () (declare (not safe)) - (##car _%$tgt111950111968%_))) - (_%$tl111952111974%_ + (##car _%$tgt113082113100%_))) + (_%$tl113084113106%_ (let () (declare (not safe)) - (##cdr _%$tgt111950111968%_))) - (_%rator111978%_ _%$hd111951111971%_) - (_%rands111980%_ _%$tl111952111974%_)) + (##cdr _%$tgt113082113100%_))) + (_%rator113110%_ _%$hd113083113103%_) + (_%rands113112%_ _%$tl113084113106%_)) (__SRC__% - (cons (__compile _%rator111978%_) - (map __compile _%rands111980%_)) - _%stx111942%_)) - (_%$E111946111955%_))) - (_%$E111946111955%_))))) + (cons (__compile _%rator113110%_) + (map __compile _%rands113112%_)) + _%stx113074%_)) + (_%$E113078113087%_))) + (_%$E113078113087%_))))) (define __compile-ref% - (lambda (_%stx111904%_) - (let* ((_%$e111906%_ _%stx111904%_) - (_%$E111908111917%_ + (lambda (_%stx113036%_) + (let* ((_%$e113038%_ _%stx113036%_) + (_%$E113040113049%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111906%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111906%_)) - (let* ((_%$tgt111909111920%_ - (let () (declare (not safe)) (__AST-e _%$e111906%_))) - (_%$hd111910111923%_ + _%$e113038%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113038%_)) + (let* ((_%$tgt113041113052%_ + (let () (declare (not safe)) (__AST-e _%$e113038%_))) + (_%$hd113042113055%_ (let () (declare (not safe)) - (##car _%$tgt111909111920%_))) - (_%$tl111911111926%_ + (##car _%$tgt113041113052%_))) + (_%$tl113043113058%_ (let () (declare (not safe)) - (##cdr _%$tgt111909111920%_)))) + (##cdr _%$tgt113041113052%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111911111926%_)) - (let* ((_%$tgt111912111930%_ + (__AST-pair? _%$tl113043113058%_)) + (let* ((_%$tgt113044113062%_ (let () (declare (not safe)) - (__AST-e _%$tl111911111926%_))) - (_%$hd111913111933%_ + (__AST-e _%$tl113043113058%_))) + (_%$hd113045113065%_ (let () (declare (not safe)) - (##car _%$tgt111912111930%_))) - (_%$tl111914111936%_ + (##car _%$tgt113044113062%_))) + (_%$tl113046113068%_ (let () (declare (not safe)) - (##cdr _%$tgt111912111930%_))) - (_%id111940%_ _%$hd111913111933%_)) + (##cdr _%$tgt113044113062%_))) + (_%id113072%_ _%$hd113045113065%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl111914111936%_)) + (__AST-e _%$tl113046113068%_)) '()) - (__SRC__% _%id111940%_ _%stx111904%_) - (_%$E111908111917%_))) - (_%$E111908111917%_))) - (_%$E111908111917%_))))) + (__SRC__% _%id113072%_ _%stx113036%_) + (_%$E113040113049%_))) + (_%$E113040113049%_))) + (_%$E113040113049%_))))) (define __compile-setq% - (lambda (_%stx111851%_) - (let* ((_%$e111853%_ _%stx111851%_) - (_%$E111855111867%_ + (lambda (_%stx112983%_) + (let* ((_%$e112985%_ _%stx112983%_) + (_%$E112987112999%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111853%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111853%_)) - (let* ((_%$tgt111856111870%_ - (let () (declare (not safe)) (__AST-e _%$e111853%_))) - (_%$hd111857111873%_ + _%$e112985%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e112985%_)) + (let* ((_%$tgt112988113002%_ + (let () (declare (not safe)) (__AST-e _%$e112985%_))) + (_%$hd112989113005%_ (let () (declare (not safe)) - (##car _%$tgt111856111870%_))) - (_%$tl111858111876%_ + (##car _%$tgt112988113002%_))) + (_%$tl112990113008%_ (let () (declare (not safe)) - (##cdr _%$tgt111856111870%_)))) + (##cdr _%$tgt112988113002%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111858111876%_)) - (let* ((_%$tgt111859111880%_ + (__AST-pair? _%$tl112990113008%_)) + (let* ((_%$tgt112991113012%_ (let () (declare (not safe)) - (__AST-e _%$tl111858111876%_))) - (_%$hd111860111883%_ + (__AST-e _%$tl112990113008%_))) + (_%$hd112992113015%_ (let () (declare (not safe)) - (##car _%$tgt111859111880%_))) - (_%$tl111861111886%_ + (##car _%$tgt112991113012%_))) + (_%$tl112993113018%_ (let () (declare (not safe)) - (##cdr _%$tgt111859111880%_))) - (_%id111890%_ _%$hd111860111883%_)) + (##cdr _%$tgt112991113012%_))) + (_%id113022%_ _%$hd112992113015%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111861111886%_)) - (let* ((_%$tgt111862111892%_ + (__AST-pair? _%$tl112993113018%_)) + (let* ((_%$tgt112994113024%_ (let () (declare (not safe)) - (__AST-e _%$tl111861111886%_))) - (_%$hd111863111895%_ + (__AST-e _%$tl112993113018%_))) + (_%$hd112995113027%_ (let () (declare (not safe)) - (##car _%$tgt111862111892%_))) - (_%$tl111864111898%_ + (##car _%$tgt112994113024%_))) + (_%$tl112996113030%_ (let () (declare (not safe)) - (##cdr _%$tgt111862111892%_))) - (_%expr111902%_ _%$hd111863111895%_)) + (##cdr _%$tgt112994113024%_))) + (_%expr113034%_ _%$hd112995113027%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl111864111898%_)) + (__AST-e _%$tl112996113030%_)) '()) (__SRC__% (cons 'set! (cons (__SRC__% - _%id111890%_ - _%stx111851%_) - (cons (__compile _%expr111902%_) + _%id113022%_ + _%stx112983%_) + (cons (__compile _%expr113034%_) '()))) - _%stx111851%_) - (_%$E111855111867%_))) - (_%$E111855111867%_))) - (_%$E111855111867%_))) - (_%$E111855111867%_))))) + _%stx112983%_) + (_%$E112987112999%_))) + (_%$E112987112999%_))) + (_%$E112987112999%_))) + (_%$E112987112999%_))))) (define __compile-if% - (lambda (_%stx111783%_) - (let* ((_%$e111785%_ _%stx111783%_) - (_%$E111787111802%_ + (lambda (_%stx112915%_) + (let* ((_%$e112917%_ _%stx112915%_) + (_%$E112919112934%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111785%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111785%_)) - (let* ((_%$tgt111788111805%_ - (let () (declare (not safe)) (__AST-e _%$e111785%_))) - (_%$hd111789111808%_ + _%$e112917%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e112917%_)) + (let* ((_%$tgt112920112937%_ + (let () (declare (not safe)) (__AST-e _%$e112917%_))) + (_%$hd112921112940%_ (let () (declare (not safe)) - (##car _%$tgt111788111805%_))) - (_%$tl111790111811%_ + (##car _%$tgt112920112937%_))) + (_%$tl112922112943%_ (let () (declare (not safe)) - (##cdr _%$tgt111788111805%_)))) + (##cdr _%$tgt112920112937%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111790111811%_)) - (let* ((_%$tgt111791111815%_ + (__AST-pair? _%$tl112922112943%_)) + (let* ((_%$tgt112923112947%_ (let () (declare (not safe)) - (__AST-e _%$tl111790111811%_))) - (_%$hd111792111818%_ + (__AST-e _%$tl112922112943%_))) + (_%$hd112924112950%_ (let () (declare (not safe)) - (##car _%$tgt111791111815%_))) - (_%$tl111793111821%_ + (##car _%$tgt112923112947%_))) + (_%$tl112925112953%_ (let () (declare (not safe)) - (##cdr _%$tgt111791111815%_))) - (_%p111825%_ _%$hd111792111818%_)) + (##cdr _%$tgt112923112947%_))) + (_%p112957%_ _%$hd112924112950%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111793111821%_)) - (let* ((_%$tgt111794111827%_ + (__AST-pair? _%$tl112925112953%_)) + (let* ((_%$tgt112926112959%_ (let () (declare (not safe)) - (__AST-e _%$tl111793111821%_))) - (_%$hd111795111830%_ + (__AST-e _%$tl112925112953%_))) + (_%$hd112927112962%_ (let () (declare (not safe)) - (##car _%$tgt111794111827%_))) - (_%$tl111796111833%_ + (##car _%$tgt112926112959%_))) + (_%$tl112928112965%_ (let () (declare (not safe)) - (##cdr _%$tgt111794111827%_))) - (_%t111837%_ _%$hd111795111830%_)) + (##cdr _%$tgt112926112959%_))) + (_%t112969%_ _%$hd112927112962%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111796111833%_)) - (let* ((_%$tgt111797111839%_ + (__AST-pair? _%$tl112928112965%_)) + (let* ((_%$tgt112929112971%_ (let () (declare (not safe)) - (__AST-e _%$tl111796111833%_))) - (_%$hd111798111842%_ + (__AST-e _%$tl112928112965%_))) + (_%$hd112930112974%_ (let () (declare (not safe)) - (##car _%$tgt111797111839%_))) - (_%$tl111799111845%_ + (##car _%$tgt112929112971%_))) + (_%$tl112931112977%_ (let () (declare (not safe)) - (##cdr _%$tgt111797111839%_))) - (_%f111849%_ _%$hd111798111842%_)) + (##cdr _%$tgt112929112971%_))) + (_%f112981%_ _%$hd112930112974%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl111799111845%_)) + (__AST-e _%$tl112931112977%_)) '()) (__SRC__% (cons 'if - (cons (__compile _%p111825%_) + (cons (__compile _%p112957%_) (cons (__compile - _%t111837%_) + _%t112969%_) (cons (__compile - _%f111849%_) + _%f112981%_) '())))) - _%stx111783%_) - (_%$E111787111802%_))) - (_%$E111787111802%_))) - (_%$E111787111802%_))) - (_%$E111787111802%_))) - (_%$E111787111802%_))))) + _%stx112915%_) + (_%$E112919112934%_))) + (_%$E112919112934%_))) + (_%$E112919112934%_))) + (_%$E112919112934%_))) + (_%$E112919112934%_))))) (define __compile-quote% - (lambda (_%stx111745%_) - (let* ((_%$e111747%_ _%stx111745%_) - (_%$E111749111758%_ + (lambda (_%stx112877%_) + (let* ((_%$e112879%_ _%stx112877%_) + (_%$E112881112890%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111747%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111747%_)) - (let* ((_%$tgt111750111761%_ - (let () (declare (not safe)) (__AST-e _%$e111747%_))) - (_%$hd111751111764%_ + _%$e112879%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e112879%_)) + (let* ((_%$tgt112882112893%_ + (let () (declare (not safe)) (__AST-e _%$e112879%_))) + (_%$hd112883112896%_ (let () (declare (not safe)) - (##car _%$tgt111750111761%_))) - (_%$tl111752111767%_ + (##car _%$tgt112882112893%_))) + (_%$tl112884112899%_ (let () (declare (not safe)) - (##cdr _%$tgt111750111761%_)))) + (##cdr _%$tgt112882112893%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111752111767%_)) - (let* ((_%$tgt111753111771%_ + (__AST-pair? _%$tl112884112899%_)) + (let* ((_%$tgt112885112903%_ (let () (declare (not safe)) - (__AST-e _%$tl111752111767%_))) - (_%$hd111754111774%_ + (__AST-e _%$tl112884112899%_))) + (_%$hd112886112906%_ (let () (declare (not safe)) - (##car _%$tgt111753111771%_))) - (_%$tl111755111777%_ + (##car _%$tgt112885112903%_))) + (_%$tl112887112909%_ (let () (declare (not safe)) - (##cdr _%$tgt111753111771%_))) - (_%e111781%_ _%$hd111754111774%_)) + (##cdr _%$tgt112885112903%_))) + (_%e112913%_ _%$hd112886112906%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl111755111777%_)) + (__AST-e _%$tl112887112909%_)) '()) (__SRC__% (cons 'quote (cons (let () (declare (not safe)) - (__AST->datum _%e111781%_)) + (__AST->datum _%e112913%_)) '())) - _%stx111745%_) - (_%$E111749111758%_))) - (_%$E111749111758%_))) - (_%$E111749111758%_))))) + _%stx112877%_) + (_%$E112881112890%_))) + (_%$E112881112890%_))) + (_%$E112881112890%_))))) (define __compile-quote-syntax% - (lambda (_%stx111707%_) - (let* ((_%$e111709%_ _%stx111707%_) - (_%$E111711111720%_ + (lambda (_%stx112839%_) + (let* ((_%$e112841%_ _%stx112839%_) + (_%$E112843112852%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111709%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111709%_)) - (let* ((_%$tgt111712111723%_ - (let () (declare (not safe)) (__AST-e _%$e111709%_))) - (_%$hd111713111726%_ + _%$e112841%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e112841%_)) + (let* ((_%$tgt112844112855%_ + (let () (declare (not safe)) (__AST-e _%$e112841%_))) + (_%$hd112845112858%_ (let () (declare (not safe)) - (##car _%$tgt111712111723%_))) - (_%$tl111714111729%_ + (##car _%$tgt112844112855%_))) + (_%$tl112846112861%_ (let () (declare (not safe)) - (##cdr _%$tgt111712111723%_)))) + (##cdr _%$tgt112844112855%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111714111729%_)) - (let* ((_%$tgt111715111733%_ + (__AST-pair? _%$tl112846112861%_)) + (let* ((_%$tgt112847112865%_ (let () (declare (not safe)) - (__AST-e _%$tl111714111729%_))) - (_%$hd111716111736%_ + (__AST-e _%$tl112846112861%_))) + (_%$hd112848112868%_ (let () (declare (not safe)) - (##car _%$tgt111715111733%_))) - (_%$tl111717111739%_ + (##car _%$tgt112847112865%_))) + (_%$tl112849112871%_ (let () (declare (not safe)) - (##cdr _%$tgt111715111733%_))) - (_%e111743%_ _%$hd111716111736%_)) + (##cdr _%$tgt112847112865%_))) + (_%e112875%_ _%$hd112848112868%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl111717111739%_)) + (__AST-e _%$tl112849112871%_)) '()) (__SRC__% - (cons 'quote (cons _%e111743%_ '())) - _%stx111707%_) - (_%$E111711111720%_))) - (_%$E111711111720%_))) - (_%$E111711111720%_))))) + (cons 'quote (cons _%e112875%_ '())) + _%stx112839%_) + (_%$E112843112852%_))) + (_%$E112843112852%_))) + (_%$E112843112852%_))))) (__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 dd688db75..085425b3f 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]#_g113758_| + (define |[1]#_g114890_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g113760_| + (define |[1]#_g114892_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g113762_| + (define |[1]#_g114894_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g113764_| + (define |[1]#_g114896_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g113765_| + (define |[1]#_g114897_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g113767_| + (define |[1]#_g114899_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113768_| + (define |[1]#_g114900_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113770_| + (define |[1]#_g114902_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g113771_| + (define |[1]#_g114903_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g113773_| + (define |[1]#_g114905_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113774_| + (define |[1]#_g114906_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113776_| + (define |[1]#_g114908_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g113778_| + (define |[1]#_g114910_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g113780_| + (define |[1]#_g114912_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g113782_| + (define |[1]#_g114914_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g113784_| + (define |[1]#_g114916_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g113785_| + (define |[1]#_g114917_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g113787_| + (define |[1]#_g114919_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113788_| + (define |[1]#_g114920_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113790_| + (define |[1]#_g114922_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g113791_| + (define |[1]#_g114923_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g113793_| + (define |[1]#_g114925_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113794_| + (define |[1]#_g114926_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113796_| + (define |[1]#_g114928_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g113798_| + (define |[1]#_g114930_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g113800_| + (define |[1]#_g114932_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g113802_| + (define |[1]#_g114934_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g113804_| + (define |[1]#_g114936_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g113805_| + (define |[1]#_g114937_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g113807_| + (define |[1]#_g114939_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113808_| + (define |[1]#_g114940_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113810_| + (define |[1]#_g114942_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g113811_| + (define |[1]#_g114943_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g113813_| + (define |[1]#_g114945_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113814_| + (define |[1]#_g114946_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113817_| + (define |[1]#_g114949_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g113819_| + (define |[1]#_g114951_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g113821_| + (define |[1]#_g114953_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g113823_| + (define |[1]#_g114955_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g113824_| + (define |[1]#_g114956_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g113826_| + (define |[1]#_g114958_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113827_| + (define |[1]#_g114959_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113829_| + (define |[1]#_g114961_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g113830_| + (define |[1]#_g114962_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g113832_| + (define |[1]#_g114964_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113833_| + (define |[1]#_g114965_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! @@ -324,7 +324,7 @@ '())) (begin (define |[:0:]#__syntax| - (let ((__obj113707 + (let ((__obj114839 (let () (declare (not safe)) (##structure @@ -353,76 +353,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113707 + __obj114839 'gerbil/runtime/eval#__syntax::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113707 '__syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj114839 '__syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113707 '(e id) '4 '#f '#f)) + (##unchecked-structure-set! __obj114839 '(e id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113707 '(e id) '6 '#f '#f)) + (##unchecked-structure-set! __obj114839 '(e id) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113707 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj114839 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113707 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj114839 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113707 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj114839 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113707 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj114839 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113707 '#f '11 '#f '#f)) - (let ((__tmp113757 |[1]#_g113758_|)) + (##unchecked-structure-set! __obj114839 '#f '11 '#f '#f)) + (let ((__tmp114889 |[1]#_g114890_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113707 __tmp113757 '12 '#f '#f)) - (let ((__tmp113759 |[1]#_g113760_|)) + (##unchecked-structure-set! __obj114839 __tmp114889 '12 '#f '#f)) + (let ((__tmp114891 |[1]#_g114892_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113707 __tmp113759 '13 '#f '#f)) - (let ((__tmp113761 |[1]#_g113762_|)) + (##unchecked-structure-set! __obj114839 __tmp114891 '13 '#f '#f)) + (let ((__tmp114893 |[1]#_g114894_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113707 __tmp113761 '14 '#f '#f)) - (let ((__tmp113763 - (cons (cons 'e |[1]#_g113764_|) - (cons (cons 'id |[1]#_g113765_|) '())))) + (##unchecked-structure-set! __obj114839 __tmp114893 '14 '#f '#f)) + (let ((__tmp114895 + (cons (cons 'e |[1]#_g114896_|) + (cons (cons 'id |[1]#_g114897_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113707 __tmp113763 '15 '#f '#f)) - (let ((__tmp113766 - (cons (cons 'e |[1]#_g113767_|) - (cons (cons 'id |[1]#_g113768_|) '())))) + (##unchecked-structure-set! __obj114839 __tmp114895 '15 '#f '#f)) + (let ((__tmp114898 + (cons (cons 'e |[1]#_g114899_|) + (cons (cons 'id |[1]#_g114900_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113707 __tmp113766 '16 '#f '#f)) - (let ((__tmp113769 - (cons (cons 'e |[1]#_g113770_|) - (cons (cons 'id |[1]#_g113771_|) '())))) + (##unchecked-structure-set! __obj114839 __tmp114898 '16 '#f '#f)) + (let ((__tmp114901 + (cons (cons 'e |[1]#_g114902_|) + (cons (cons 'id |[1]#_g114903_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113707 __tmp113769 '17 '#f '#f)) - (let ((__tmp113772 - (cons (cons 'e |[1]#_g113773_|) - (cons (cons 'id |[1]#_g113774_|) '())))) + (##unchecked-structure-set! __obj114839 __tmp114901 '17 '#f '#f)) + (let ((__tmp114904 + (cons (cons 'e |[1]#_g114905_|) + (cons (cons 'id |[1]#_g114906_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113707 __tmp113772 '18 '#f '#f)) + (##unchecked-structure-set! __obj114839 __tmp114904 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113707 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj114839 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113707 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj114839 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113707 '() '20 '#f '#f)) - __obj113707)) + (##unchecked-structure-set! __obj114839 '() '20 '#f '#f)) + __obj114839)) (define |[:0:]#__core-form| - (let ((__obj113708 + (let ((__obj114840 (let () (declare (not safe)) (##structure @@ -451,76 +451,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113708 + __obj114840 'gerbil/runtime/eval#__core-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113708 '__core-form '2 '#f '#f)) + (##unchecked-structure-set! __obj114840 '__core-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113708 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj114840 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113708 '(e id) '6 '#f '#f)) - (let ((__tmp113775 (cons |[1]#_g113776_| '()))) + (##unchecked-structure-set! __obj114840 '(e id) '6 '#f '#f)) + (let ((__tmp114907 (cons |[1]#_g114908_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj113708 __tmp113775 '3 '#f '#f)) + (##unchecked-structure-set! __obj114840 __tmp114907 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113708 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj114840 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113708 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj114840 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113708 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj114840 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113708 '#f '11 '#f '#f)) - (let ((__tmp113777 |[1]#_g113778_|)) + (##unchecked-structure-set! __obj114840 '#f '11 '#f '#f)) + (let ((__tmp114909 |[1]#_g114910_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113708 __tmp113777 '12 '#f '#f)) - (let ((__tmp113779 |[1]#_g113780_|)) + (##unchecked-structure-set! __obj114840 __tmp114909 '12 '#f '#f)) + (let ((__tmp114911 |[1]#_g114912_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113708 __tmp113779 '13 '#f '#f)) - (let ((__tmp113781 |[1]#_g113782_|)) + (##unchecked-structure-set! __obj114840 __tmp114911 '13 '#f '#f)) + (let ((__tmp114913 |[1]#_g114914_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113708 __tmp113781 '14 '#f '#f)) - (let ((__tmp113783 - (cons (cons 'e |[1]#_g113784_|) - (cons (cons 'id |[1]#_g113785_|) '())))) + (##unchecked-structure-set! __obj114840 __tmp114913 '14 '#f '#f)) + (let ((__tmp114915 + (cons (cons 'e |[1]#_g114916_|) + (cons (cons 'id |[1]#_g114917_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113708 __tmp113783 '15 '#f '#f)) - (let ((__tmp113786 - (cons (cons 'e |[1]#_g113787_|) - (cons (cons 'id |[1]#_g113788_|) '())))) + (##unchecked-structure-set! __obj114840 __tmp114915 '15 '#f '#f)) + (let ((__tmp114918 + (cons (cons 'e |[1]#_g114919_|) + (cons (cons 'id |[1]#_g114920_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113708 __tmp113786 '16 '#f '#f)) - (let ((__tmp113789 - (cons (cons 'e |[1]#_g113790_|) - (cons (cons 'id |[1]#_g113791_|) '())))) + (##unchecked-structure-set! __obj114840 __tmp114918 '16 '#f '#f)) + (let ((__tmp114921 + (cons (cons 'e |[1]#_g114922_|) + (cons (cons 'id |[1]#_g114923_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113708 __tmp113789 '17 '#f '#f)) - (let ((__tmp113792 - (cons (cons 'e |[1]#_g113793_|) - (cons (cons 'id |[1]#_g113794_|) '())))) + (##unchecked-structure-set! __obj114840 __tmp114921 '17 '#f '#f)) + (let ((__tmp114924 + (cons (cons 'e |[1]#_g114925_|) + (cons (cons 'id |[1]#_g114926_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113708 __tmp113792 '18 '#f '#f)) + (##unchecked-structure-set! __obj114840 __tmp114924 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113708 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj114840 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113708 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj114840 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113708 '() '20 '#f '#f)) - __obj113708)) + (##unchecked-structure-set! __obj114840 '() '20 '#f '#f)) + __obj114840)) (define |[:0:]#__core-expression| - (let ((__obj113709 + (let ((__obj114841 (let () (declare (not safe)) (##structure @@ -549,7 +549,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113709 + __obj114841 'gerbil/runtime/eval#__core-expression::t '1 '#f @@ -557,73 +557,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113709 + __obj114841 '__core-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113709 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj114841 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113709 '(e id) '6 '#f '#f)) - (let ((__tmp113795 (cons |[1]#_g113796_| '()))) + (##unchecked-structure-set! __obj114841 '(e id) '6 '#f '#f)) + (let ((__tmp114927 (cons |[1]#_g114928_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj113709 __tmp113795 '3 '#f '#f)) + (##unchecked-structure-set! __obj114841 __tmp114927 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113709 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj114841 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113709 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj114841 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113709 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj114841 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113709 '#f '11 '#f '#f)) - (let ((__tmp113797 |[1]#_g113798_|)) + (##unchecked-structure-set! __obj114841 '#f '11 '#f '#f)) + (let ((__tmp114929 |[1]#_g114930_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113709 __tmp113797 '12 '#f '#f)) - (let ((__tmp113799 |[1]#_g113800_|)) + (##unchecked-structure-set! __obj114841 __tmp114929 '12 '#f '#f)) + (let ((__tmp114931 |[1]#_g114932_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113709 __tmp113799 '13 '#f '#f)) - (let ((__tmp113801 |[1]#_g113802_|)) + (##unchecked-structure-set! __obj114841 __tmp114931 '13 '#f '#f)) + (let ((__tmp114933 |[1]#_g114934_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113709 __tmp113801 '14 '#f '#f)) - (let ((__tmp113803 - (cons (cons 'e |[1]#_g113804_|) - (cons (cons 'id |[1]#_g113805_|) '())))) + (##unchecked-structure-set! __obj114841 __tmp114933 '14 '#f '#f)) + (let ((__tmp114935 + (cons (cons 'e |[1]#_g114936_|) + (cons (cons 'id |[1]#_g114937_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113709 __tmp113803 '15 '#f '#f)) - (let ((__tmp113806 - (cons (cons 'e |[1]#_g113807_|) - (cons (cons 'id |[1]#_g113808_|) '())))) + (##unchecked-structure-set! __obj114841 __tmp114935 '15 '#f '#f)) + (let ((__tmp114938 + (cons (cons 'e |[1]#_g114939_|) + (cons (cons 'id |[1]#_g114940_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113709 __tmp113806 '16 '#f '#f)) - (let ((__tmp113809 - (cons (cons 'e |[1]#_g113810_|) - (cons (cons 'id |[1]#_g113811_|) '())))) + (##unchecked-structure-set! __obj114841 __tmp114938 '16 '#f '#f)) + (let ((__tmp114941 + (cons (cons 'e |[1]#_g114942_|) + (cons (cons 'id |[1]#_g114943_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113709 __tmp113809 '17 '#f '#f)) - (let ((__tmp113812 - (cons (cons 'e |[1]#_g113813_|) - (cons (cons 'id |[1]#_g113814_|) '())))) + (##unchecked-structure-set! __obj114841 __tmp114941 '17 '#f '#f)) + (let ((__tmp114944 + (cons (cons 'e |[1]#_g114945_|) + (cons (cons 'id |[1]#_g114946_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113709 __tmp113812 '18 '#f '#f)) + (##unchecked-structure-set! __obj114841 __tmp114944 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113709 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj114841 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113709 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj114841 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113709 '() '20 '#f '#f)) - __obj113709)) + (##unchecked-structure-set! __obj114841 '() '20 '#f '#f)) + __obj114841)) (define |[:0:]#__core-special-form| - (let ((__obj113710 + (let ((__obj114842 (let () (declare (not safe)) (##structure @@ -652,7 +652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113710 + __obj114842 'gerbil/runtime/eval#__core-special-form::t '1 '#f @@ -660,391 +660,391 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113710 + __obj114842 '__core-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113710 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj114842 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113710 '(e id) '6 '#f '#f)) - (let ((__tmp113815 (cons |[1]#_g113796_| '()))) + (##unchecked-structure-set! __obj114842 '(e id) '6 '#f '#f)) + (let ((__tmp114947 (cons |[1]#_g114928_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj113710 __tmp113815 '3 '#f '#f)) + (##unchecked-structure-set! __obj114842 __tmp114947 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113710 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj114842 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113710 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj114842 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113710 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj114842 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113710 '#f '11 '#f '#f)) - (let ((__tmp113816 |[1]#_g113817_|)) + (##unchecked-structure-set! __obj114842 '#f '11 '#f '#f)) + (let ((__tmp114948 |[1]#_g114949_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113710 __tmp113816 '12 '#f '#f)) - (let ((__tmp113818 |[1]#_g113819_|)) + (##unchecked-structure-set! __obj114842 __tmp114948 '12 '#f '#f)) + (let ((__tmp114950 |[1]#_g114951_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113710 __tmp113818 '13 '#f '#f)) - (let ((__tmp113820 |[1]#_g113821_|)) + (##unchecked-structure-set! __obj114842 __tmp114950 '13 '#f '#f)) + (let ((__tmp114952 |[1]#_g114953_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113710 __tmp113820 '14 '#f '#f)) - (let ((__tmp113822 - (cons (cons 'e |[1]#_g113823_|) - (cons (cons 'id |[1]#_g113824_|) '())))) + (##unchecked-structure-set! __obj114842 __tmp114952 '14 '#f '#f)) + (let ((__tmp114954 + (cons (cons 'e |[1]#_g114955_|) + (cons (cons 'id |[1]#_g114956_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113710 __tmp113822 '15 '#f '#f)) - (let ((__tmp113825 - (cons (cons 'e |[1]#_g113826_|) - (cons (cons 'id |[1]#_g113827_|) '())))) + (##unchecked-structure-set! __obj114842 __tmp114954 '15 '#f '#f)) + (let ((__tmp114957 + (cons (cons 'e |[1]#_g114958_|) + (cons (cons 'id |[1]#_g114959_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113710 __tmp113825 '16 '#f '#f)) - (let ((__tmp113828 - (cons (cons 'e |[1]#_g113829_|) - (cons (cons 'id |[1]#_g113830_|) '())))) + (##unchecked-structure-set! __obj114842 __tmp114957 '16 '#f '#f)) + (let ((__tmp114960 + (cons (cons 'e |[1]#_g114961_|) + (cons (cons 'id |[1]#_g114962_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113710 __tmp113828 '17 '#f '#f)) - (let ((__tmp113831 - (cons (cons 'e |[1]#_g113832_|) - (cons (cons 'id |[1]#_g113833_|) '())))) + (##unchecked-structure-set! __obj114842 __tmp114960 '17 '#f '#f)) + (let ((__tmp114963 + (cons (cons 'e |[1]#_g114964_|) + (cons (cons 'id |[1]#_g114965_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113710 __tmp113831 '18 '#f '#f)) + (##unchecked-structure-set! __obj114842 __tmp114963 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113710 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj114842 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113710 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj114842 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113710 '() '20 '#f '#f)) - __obj113710)) + (##unchecked-structure-set! __obj114842 '() '20 '#f '#f)) + __obj114842)) (define |[:0:]#defcore-forms| - (lambda (_%stx111252%_) - (letrec ((_%generate111255%_ - (lambda (_%id111619%_ _%compile111621%_ _%make111622%_) - (let* ((_%g111624111643%_ - (lambda (_%g111625111639%_) + (lambda (_%stx112384%_) + (letrec ((_%generate112387%_ + (lambda (_%id112751%_ _%compile112753%_ _%make112754%_) + (let* ((_%g112756112775%_ + (lambda (_%g112757112771%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111625111639%_))) - (_%g111623111702%_ - (lambda (_%g111625111647%_) - (if (gx#stx-pair? _%g111625111647%_) - (let ((_%e111629111650%_ - (gx#syntax-e _%g111625111647%_))) - (let ((_%hd111630111654%_ + _%g112757112771%_))) + (_%g112755112834%_ + (lambda (_%g112757112779%_) + (if (gx#stx-pair? _%g112757112779%_) + (let ((_%e112761112782%_ + (gx#syntax-e _%g112757112779%_))) + (let ((_%hd112762112786%_ (let () (declare (not safe)) - (##car _%e111629111650%_))) - (_%tl111631111657%_ + (##car _%e112761112782%_))) + (_%tl112763112789%_ (let () (declare (not safe)) - (##cdr _%e111629111650%_)))) - (if (gx#stx-pair? _%tl111631111657%_) - (let ((_%e111632111660%_ + (##cdr _%e112761112782%_)))) + (if (gx#stx-pair? _%tl112763112789%_) + (let ((_%e112764112792%_ (gx#syntax-e - _%tl111631111657%_))) - (let ((_%hd111633111664%_ + _%tl112763112789%_))) + (let ((_%hd112765112796%_ (let () (declare (not safe)) - (##car _%e111632111660%_))) - (_%tl111634111667%_ + (##car _%e112764112792%_))) + (_%tl112766112799%_ (let () (declare (not safe)) - (##cdr _%e111632111660%_)))) + (##cdr _%e112764112792%_)))) (if (gx#stx-pair? - _%tl111634111667%_) - (let ((_%e111635111670%_ + _%tl112766112799%_) + (let ((_%e112767112802%_ (gx#syntax-e - _%tl111634111667%_))) - (let ((_%hd111636111674%_ + _%tl112766112799%_))) + (let ((_%hd112768112806%_ (let () (declare (not safe)) - (##car _%e111635111670%_))) - (_%tl111637111677%_ + (##car _%e112767112802%_))) + (_%tl112769112809%_ (let () (declare (not safe)) - (##cdr _%e111635111670%_)))) + (##cdr _%e112767112802%_)))) (if (gx#stx-null? - _%tl111637111677%_) - ((lambda (_%L111680%_ + _%tl112769112809%_) + ((lambda (_%L112812%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L111682%_ - _%L111683%_) + _%L112814%_ + _%L112815%_) (cons (gx#datum->syntax '#f '__core-bind-syntax!) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L111683%_ '())) - (cons _%L111682%_ (cons _%L111680%_ '()))))) - _%hd111636111674%_ - _%hd111633111664%_ - _%hd111630111654%_) - (_%g111624111643%_ _%g111625111647%_)))) + (cons _%L112815%_ '())) + (cons _%L112814%_ (cons _%L112812%_ '()))))) + _%hd112768112806%_ + _%hd112765112796%_ + _%hd112762112786%_) + (_%g112756112775%_ _%g112757112779%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111624111643%_ - _%g111625111647%_)))) - (_%g111624111643%_ - _%g111625111647%_)))) - (_%g111624111643%_ _%g111625111647%_))))) - (_%g111623111702%_ - (list _%id111619%_ + (_%g112756112775%_ + _%g112757112779%_)))) + (_%g112756112775%_ + _%g112757112779%_)))) + (_%g112756112775%_ _%g112757112779%_))))) + (_%g112755112834%_ + (list _%id112751%_ (gx#stx-identifier - _%id111619%_ + _%id112751%_ '"__" - _%compile111621%_) - _%make111622%_)))))) - (let* ((_%g111258111278%_ - (lambda (_%g111259111274%_) + _%compile112753%_) + _%make112754%_)))))) + (let* ((_%g112390112410%_ + (lambda (_%g112391112406%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111259111274%_))) - (_%g111257111615%_ - (lambda (_%g111259111282%_) - (if (gx#stx-pair? _%g111259111282%_) - (let ((_%e111261111285%_ - (gx#syntax-e _%g111259111282%_))) - (let ((_%hd111262111289%_ + _%g112391112406%_))) + (_%g112389112747%_ + (lambda (_%g112391112414%_) + (if (gx#stx-pair? _%g112391112414%_) + (let ((_%e112393112417%_ + (gx#syntax-e _%g112391112414%_))) + (let ((_%hd112394112421%_ (let () (declare (not safe)) - (##car _%e111261111285%_))) - (_%tl111263111292%_ + (##car _%e112393112417%_))) + (_%tl112395112424%_ (let () (declare (not safe)) - (##cdr _%e111261111285%_)))) - (if (gx#stx-pair/null? _%tl111263111292%_) - (let ((_g113834_ + (##cdr _%e112393112417%_)))) + (if (gx#stx-pair/null? _%tl112395112424%_) + (let ((_g114966_ (gx#syntax-split-splice - _%tl111263111292%_ + _%tl112395112424%_ '0))) (begin - (let ((_g113835_ + (let ((_g114967_ (let () (declare (not safe)) - (if (##values? _g113834_) - (##vector-length _g113834_) + (if (##values? _g114966_) + (##vector-length _g114966_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g113835_ 2))) + (##fx= _g114967_ 2))) (error "Context expects 2 values" - _g113835_))) - (let ((_%target111264111295%_ + _g114967_))) + (let ((_%target112396112427%_ (let () (declare (not safe)) - (##vector-ref _g113834_ 0))) - (_%tl111266111298%_ + (##vector-ref _g114966_ 0))) + (_%tl112398112430%_ (let () (declare (not safe)) - (##vector-ref _g113834_ 1)))) - (if (gx#stx-null? _%tl111266111298%_) - (letrec ((_%loop111267111301%_ - (lambda (_%hd111265111305%_ - _%form111271111308%_) + (##vector-ref _g114966_ 1)))) + (if (gx#stx-null? _%tl112398112430%_) + (letrec ((_%loop112399112433%_ + (lambda (_%hd112397112437%_ + _%form112403112440%_) (if (gx#stx-pair? - _%hd111265111305%_) - (let ((_%e111268111311%_ + _%hd112397112437%_) + (let ((_%e112400112443%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd111265111305%_))) - (let ((_%lp-hd111269111315%_ + (gx#syntax-e _%hd112397112437%_))) + (let ((_%lp-hd112401112447%_ (let () (declare (not safe)) - (##car _%e111268111311%_))) - (_%lp-tl111270111318%_ + (##car _%e112400112443%_))) + (_%lp-tl112402112450%_ (let () (declare (not safe)) - (##cdr _%e111268111311%_)))) - (_%loop111267111301%_ - _%lp-tl111270111318%_ - (cons _%lp-hd111269111315%_ _%form111271111308%_)))) - (let ((_%form111272111321%_ (reverse _%form111271111308%_))) - ((lambda (_%L111325%_) - (let _%lp111343%_ ((_%rest111346%_ - (let ((__tmp113836 - (lambda (_%g111606111609%_ - _%g111607111612%_) - (cons _%g111606111609%_ - _%g111607111612%_)))) + (##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%_)))) (declare (not safe)) (__foldr1 - __tmp113836 + __tmp114968 '() - _%L111325%_))) - (_%body111348%_ '())) - (let* ((_%__stx113614113615%_ _%rest111346%_) - (_%g111353111400%_ + _%L112457%_))) + (_%body112480%_ '())) + (let* ((_%__stx114746114747%_ _%rest112478%_) + (_%g112485112532%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx113614113615%_)))) - (let ((_%__kont113617113618%_ - (lambda (_%L111581%_ _%L111583%_ _%L111584%_) - (_%lp111343%_ - _%L111581%_ - (cons (_%generate111255%_ - _%L111584%_ - _%L111583%_ + _%__stx114746114747%_)))) + (let ((_%__kont114749114750%_ + (lambda (_%L112713%_ _%L112715%_ _%L112716%_) + (_%lp112475%_ + _%L112713%_ + (cons (_%generate112387%_ + _%L112716%_ + _%L112715%_ (gx#datum->syntax '#f 'make-__core-expression)) - _%body111348%_)))) - (_%__kont113619113620%_ - (lambda (_%L111508%_ _%L111510%_ _%L111511%_) - (_%lp111343%_ - _%L111508%_ - (cons (_%generate111255%_ - _%L111511%_ - _%L111510%_ + _%body112480%_)))) + (_%__kont114751114752%_ + (lambda (_%L112640%_ _%L112642%_ _%L112643%_) + (_%lp112475%_ + _%L112640%_ + (cons (_%generate112387%_ + _%L112643%_ + _%L112642%_ (gx#datum->syntax '#f 'make-__core-special-form)) - _%body111348%_)))) - (_%__kont113621113622%_ - (lambda (_%L111438%_ _%L111440%_) - (_%lp111343%_ - _%L111438%_ - (cons (_%generate111255%_ - _%L111440%_ + _%body112480%_)))) + (_%__kont114753114754%_ + (lambda (_%L112570%_ _%L112572%_) + (_%lp112475%_ + _%L112570%_ + (cons (_%generate112387%_ + _%L112572%_ (gx#datum->syntax '#f 'compile-error) (gx#datum->syntax '#f 'make-__core-form)) - _%body111348%_)))) - (_%__kont113623113624%_ + _%body112480%_)))) + (_%__kont114755114756%_ (lambda () - (cons 'begin (reverse _%body111348%_))))) - (let ((_%g111352111411%_ + (cons 'begin (reverse _%body112480%_))))) + (let ((_%g112484112543%_ (lambda () - (if (gx#stx-null? _%__stx113614113615%_) - (_%__kont113623113624%_) + (if (gx#stx-null? _%__stx114746114747%_) + (_%__kont114755114756%_) (let () (declare (not safe)) - (_%g111353111400%_)))))) - (if (gx#stx-pair? _%__stx113614113615%_) - (let ((_%e111358111537%_ - (gx#syntax-e _%__stx113614113615%_))) - (let ((_%tl111360111544%_ + (_%g112485112532%_)))))) + (if (gx#stx-pair? _%__stx114746114747%_) + (let ((_%e112490112669%_ + (gx#syntax-e _%__stx114746114747%_))) + (let ((_%tl112492112676%_ (let () (declare (not safe)) - (##cdr _%e111358111537%_))) - (_%hd111359111541%_ + (##cdr _%e112490112669%_))) + (_%hd112491112673%_ (let () (declare (not safe)) - (##car _%e111358111537%_)))) - (if (gx#stx-pair? _%hd111359111541%_) - (let ((_%e111361111547%_ + (##car _%e112490112669%_)))) + (if (gx#stx-pair? _%hd112491112673%_) + (let ((_%e112493112679%_ (gx#syntax-e - _%hd111359111541%_))) - (let ((_%tl111363111554%_ + _%hd112491112673%_))) + (let ((_%tl112495112686%_ (let () (declare (not safe)) - (##cdr _%e111361111547%_))) - (_%hd111362111551%_ + (##cdr _%e112493112679%_))) + (_%hd112494112683%_ (let () (declare (not safe)) - (##car _%e111361111547%_)))) + (##car _%e112493112679%_)))) (if (gx#stx-pair? - _%tl111363111554%_) - (let ((_%e111364111557%_ + _%tl112495112686%_) + (let ((_%e112496112689%_ (gx#syntax-e - _%tl111363111554%_))) - (let ((_%tl111366111564%_ + _%tl112495112686%_))) + (let ((_%tl112498112696%_ (let () (declare (not safe)) - (##cdr _%e111364111557%_))) - (_%hd111365111561%_ + (##cdr _%e112496112689%_))) + (_%hd112497112693%_ (let () (declare (not safe)) - (##car _%e111364111557%_)))) + (##car _%e112496112689%_)))) (if (gx#stx-datum? - _%hd111365111561%_) - (let ((_%e111367111567%_ + _%hd112497112693%_) + (let ((_%e112499112699%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _%hd111365111561%_))) - (if (equal? _%e111367111567%_ 'expr:) - (if (gx#stx-pair? _%tl111366111564%_) - (let ((_%e111368111571%_ - (gx#syntax-e _%tl111366111564%_))) - (let ((_%tl111370111578%_ + (gx#stx-e _%hd112497112693%_))) + (if (equal? _%e112499112699%_ 'expr:) + (if (gx#stx-pair? _%tl112498112696%_) + (let ((_%e112500112703%_ + (gx#syntax-e _%tl112498112696%_))) + (let ((_%tl112502112710%_ (let () (declare (not safe)) - (##cdr _%e111368111571%_))) - (_%hd111369111575%_ + (##cdr _%e112500112703%_))) + (_%hd112501112707%_ (let () (declare (not safe)) - (##car _%e111368111571%_)))) - (if (gx#stx-null? _%tl111370111578%_) - (_%__kont113617113618%_ - _%tl111360111544%_ - _%hd111369111575%_ - _%hd111362111551%_) + (##car _%e112500112703%_)))) + (if (gx#stx-null? _%tl112502112710%_) + (_%__kont114749114750%_ + _%tl112492112676%_ + _%hd112501112707%_ + _%hd112494112683%_) (let () (declare (not safe)) - (_%g111353111400%_))))) - (let () (declare (not safe)) (_%g111353111400%_))) - (if (equal? _%e111367111567%_ 'special:) - (if (gx#stx-pair? _%tl111366111564%_) - (let ((_%e111384111498%_ - (gx#syntax-e _%tl111366111564%_))) - (let ((_%tl111386111505%_ + (_%g112485112532%_))))) + (let () (declare (not safe)) (_%g112485112532%_))) + (if (equal? _%e112499112699%_ 'special:) + (if (gx#stx-pair? _%tl112498112696%_) + (let ((_%e112516112630%_ + (gx#syntax-e _%tl112498112696%_))) + (let ((_%tl112518112637%_ (let () (declare (not safe)) - (##cdr _%e111384111498%_))) - (_%hd111385111502%_ + (##cdr _%e112516112630%_))) + (_%hd112517112634%_ (let () (declare (not safe)) - (##car _%e111384111498%_)))) - (if (gx#stx-null? _%tl111386111505%_) - (_%__kont113619113620%_ - _%tl111360111544%_ - _%hd111385111502%_ - _%hd111362111551%_) + (##car _%e112516112630%_)))) + (if (gx#stx-null? _%tl112518112637%_) + (_%__kont114751114752%_ + _%tl112492112676%_ + _%hd112517112634%_ + _%hd112494112683%_) (let () (declare (not safe)) - (_%g111353111400%_))))) + (_%g112485112532%_))))) (let () (declare (not safe)) - (_%g111353111400%_))) + (_%g112485112532%_))) (let () (declare (not safe)) - (_%g111353111400%_))))) - (let () (declare (not safe)) (_%g111353111400%_))))) + (_%g112485112532%_))))) + (let () (declare (not safe)) (_%g112485112532%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl111363111554%_) - (_%__kont113621113622%_ - _%tl111360111544%_ - _%hd111362111551%_) + _%tl112495112686%_) + (_%__kont114753114754%_ + _%tl112492112676%_ + _%hd112494112683%_) (let () (declare (not safe)) - (_%g111353111400%_)))))) + (_%g112485112532%_)))))) (let () (declare (not safe)) - (_%g111353111400%_))))) + (_%g112485112532%_))))) (let () (declare (not safe)) - (_%g111352111411%_)))))))) - _%form111272111321%_)))))) + (_%g112484112543%_)))))))) + _%form112404112453%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop111267111301%_ - _%target111264111295%_ + (_%loop112399112433%_ + _%target112396112427%_ '())) - (_%g111258111278%_ - _%g111259111282%_))))) - (_%g111258111278%_ _%g111259111282%_)))) - (_%g111258111278%_ _%g111259111282%_))))) - (_%g111257111615%_ _%stx111252%_))))))) + (_%g112390112410%_ + _%g112391112414%_))))) + (_%g112390112410%_ _%g112391112414%_)))) + (_%g112390112410%_ _%g112391112414%_))))) + (_%g112389112747%_ _%stx112384%_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit~0.scm b/src/bootstrap/gerbil/runtime/gambit~0.scm index 053cd3d28..7db3cb70f 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 1713454408) + (define gerbil/runtime/gambit::timestamp 1713631264) (let () (declare (not safe)) (##void))) diff --git a/src/bootstrap/gerbil/runtime/hash.ssi b/src/bootstrap/gerbil/runtime/hash.ssi index fcd1e429e..aa3864c6d 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::ref104116%_ - _%locked-hash-table::ref104115%_) + _%locked-hash-table::ref105248%_ + _%locked-hash-table::ref105247%_) (%#define-runtime - _%locked-hash-table::set!104119%_ - _%locked-hash-table::set!104118%_) + _%locked-hash-table::set!105251%_ + _%locked-hash-table::set!105250%_) (%#define-runtime - _%locked-hash-table::update!104122%_ - _%locked-hash-table::update!104121%_) + _%locked-hash-table::update!105254%_ + _%locked-hash-table::update!105253%_) (%#define-runtime - _%locked-hash-table::delete!104125%_ - _%locked-hash-table::delete!104124%_) + _%locked-hash-table::delete!105257%_ + _%locked-hash-table::delete!105256%_) (%#define-runtime - _%locked-hash-table::for-each104128%_ - _%locked-hash-table::for-each104127%_) + _%locked-hash-table::for-each105260%_ + _%locked-hash-table::for-each105259%_) (%#define-runtime - _%locked-hash-table::length104131%_ - _%locked-hash-table::length104130%_) + _%locked-hash-table::length105263%_ + _%locked-hash-table::length105262%_) (%#define-runtime - _%locked-hash-table::copy104134%_ - _%locked-hash-table::copy104133%_) + _%locked-hash-table::copy105266%_ + _%locked-hash-table::copy105265%_) (%#define-runtime - _%locked-hash-table::clear!104137%_ - _%locked-hash-table::clear!104136%_) + _%locked-hash-table::clear!105269%_ + _%locked-hash-table::clear!105268%_) (%#define-syntax defchecked-hash-method |[:0:]#defchecked-hash-method|) (%#define-runtime - _%checked-hash-table::ref104351%_ - _%checked-hash-table::ref104350%_) + _%checked-hash-table::ref105483%_ + _%checked-hash-table::ref105482%_) (%#define-runtime - _%checked-hash-table::set!104354%_ - _%checked-hash-table::set!104353%_) + _%checked-hash-table::set!105486%_ + _%checked-hash-table::set!105485%_) (%#define-runtime - _%checked-hash-table::update!104357%_ - _%checked-hash-table::update!104356%_) + _%checked-hash-table::update!105489%_ + _%checked-hash-table::update!105488%_) (%#define-runtime - _%checked-hash-table::delete!104360%_ - _%checked-hash-table::delete!104359%_) + _%checked-hash-table::delete!105492%_ + _%checked-hash-table::delete!105491%_) (%#define-runtime - _%checked-hash-table::for-each104363%_ - _%checked-hash-table::for-each104362%_) + _%checked-hash-table::for-each105495%_ + _%checked-hash-table::for-each105494%_) (%#define-runtime - _%checked-hash-table::length104366%_ - _%checked-hash-table::length104365%_) + _%checked-hash-table::length105498%_ + _%checked-hash-table::length105497%_) (%#define-runtime - _%checked-hash-table::copy104369%_ - _%checked-hash-table::copy104368%_) + _%checked-hash-table::copy105501%_ + _%checked-hash-table::copy105500%_) (%#define-runtime - _%checked-hash-table::clear!104372%_ - _%checked-hash-table::clear!104371%_) + _%checked-hash-table::clear!105504%_ + _%checked-hash-table::clear!105503%_) (%#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 94ed68e31..dcd0e4c0f 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 - ((clear! . _%locked-hash-table::clear!104136%_) - (for-each . _%locked-hash-table::for-each104127%_) - (ref . _%locked-hash-table::ref104115%_) - (set! . _%locked-hash-table::set!104118%_) - (delete! . _%locked-hash-table::delete!104124%_) - (update! . _%locked-hash-table::update!104121%_) - (copy . _%locked-hash-table::copy104133%_) - (length . _%locked-hash-table::length104130%_)))) + ((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%_)))) (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 - ((clear! . _%checked-hash-table::clear!104371%_) - (for-each . _%checked-hash-table::for-each104362%_) - (ref . _%checked-hash-table::ref104350%_) - (set! . _%checked-hash-table::set!104353%_) - (delete! . _%checked-hash-table::delete!104359%_) - (update! . _%checked-hash-table::update!104356%_) - (copy . _%checked-hash-table::copy104368%_) - (length . _%checked-hash-table::length104365%_)))) + ((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%_)))) (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::ref104115%_ + _%locked-hash-table::ref105247%_ (@lambda 3 #f signature: @@ -916,7 +916,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::set!104118%_ + _%locked-hash-table::set!105250%_ (@lambda 3 #f signature: @@ -931,7 +931,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::update!104121%_ + _%locked-hash-table::update!105253%_ (@lambda 4 #f signature: @@ -946,7 +946,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::delete!104124%_ + _%locked-hash-table::delete!105256%_ (@lambda 2 #f signature: @@ -961,7 +961,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::for-each104127%_ + _%locked-hash-table::for-each105259%_ (@lambda 2 #f signature: @@ -976,7 +976,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::length104130%_ + _%locked-hash-table::length105262%_ (@lambda 1 #f signature: @@ -991,7 +991,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::copy104133%_ + _%locked-hash-table::copy105265%_ (@lambda 1 #f signature: @@ -1006,7 +1006,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::clear!104136%_ + _%locked-hash-table::clear!105268%_ (@lambda 1 #f signature: @@ -1021,7 +1021,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::ref104350%_ + _%checked-hash-table::ref105482%_ (@lambda 3 #f signature: @@ -1036,7 +1036,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::set!104353%_ + _%checked-hash-table::set!105485%_ (@lambda 3 #f signature: @@ -1051,7 +1051,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::update!104356%_ + _%checked-hash-table::update!105488%_ (@lambda 4 #f signature: @@ -1066,7 +1066,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::delete!104359%_ + _%checked-hash-table::delete!105491%_ (@lambda 2 #f signature: @@ -1081,7 +1081,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::for-each104362%_ + _%checked-hash-table::for-each105494%_ (@lambda 2 #f signature: @@ -1096,7 +1096,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::length104365%_ + _%checked-hash-table::length105497%_ (@lambda 1 #f signature: @@ -1111,7 +1111,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::copy104368%_ + _%checked-hash-table::copy105500%_ (@lambda 1 #f signature: @@ -1126,7 +1126,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::clear!104371%_ + _%checked-hash-table::clear!105503%_ (@lambda 1 #f signature: diff --git a/src/bootstrap/gerbil/runtime/hash~0.scm b/src/bootstrap/gerbil/runtime/hash~0.scm index db8837bd7..c8ac214b5 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 1713454410) + (define gerbil/runtime/hash::timestamp 1713631265) (begin (define UnboundKeyError::t - (let ((__tmp108802 (list Error::t))) + (let ((__tmp109934 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#UnboundKeyError::t 'UnboundKeyError - __tmp108802 + __tmp109934 '() '() ':init!))) @@ -17,8 +17,8 @@ (declare (not safe)) (__make-class-predicate UnboundKeyError::t))) (define make-UnboundKeyError - (lambda _%$args108782%_ - (apply make-instance UnboundKeyError::t _%$args108782%_))) + (lambda _%$args109914%_ + (apply make-instance UnboundKeyError::t _%$args109914%_))) (define UnboundKeyError-message (let () (declare (not safe)) @@ -96,32 +96,32 @@ UnboundKeyError:::init! '#f)) (define raise-unbound-key-error - (lambda (_%where108656%_ _%message108657%_ . _%irritants108658%_) - (let ((__tmp108803 - (let ((__obj108796 + (lambda (_%where109788%_ _%message109789%_ . _%irritants109790%_) + (let ((__tmp109935 + (let ((__obj109928 (let () (declare (not safe)) (##structure UnboundKeyError::t '#f '#f '#f '#f)))) (let () (declare (not safe)) (UnboundKeyError:::init! - __obj108796 - _%message108657%_ + __obj109928 + _%message109789%_ 'where: - _%where108656%_ + _%where109788%_ 'irritants: - _%irritants108658%_)) - __obj108796))) + _%irritants109790%_)) + __obj109928))) (declare (not safe)) - (raise __tmp108803)))) + (raise __tmp109935)))) (define unbound-key-error? UnboundKeyError?) (define HashTable::t - (let ((__tmp108804 (cons interface-instance::t '()))) + (let ((__tmp109936 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#HashTable::t 'HashTable - __tmp108804 + __tmp109936 '(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 (_%obj108654%_) + (lambda (_%obj109786%_) (let () (declare (not safe)) - (cast HashTable::interface _%obj108654%_)))) + (cast HashTable::interface _%obj109786%_)))) (define try-HashTable - (lambda (_%obj108652%_) + (lambda (_%obj109784%_) (let () (declare (not safe)) - (try-cast HashTable::interface _%obj108652%_)))) + (try-cast HashTable::interface _%obj109784%_)))) (define HashTable? - (lambda (_%obj108650%_) - (let ((__tmp108805 + (lambda (_%obj109782%_) + (let ((__tmp109937 (let () (declare (not safe)) (##type-id HashTable::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj108650%_ __tmp108805)))) + (##structure-direct-instance-of? _%obj109782%_ __tmp109937)))) (define is-HashTable? - (lambda (_%obj108648%_) + (lambda (_%obj109780%_) (if (let () (declare (not safe)) - (satisfies? HashTable::interface _%obj108648%_)) + (satisfies? HashTable::interface _%obj109780%_)) '#t '#f))) (define HashTable-clear! - (lambda (_%self108632%_) - (let* ((_%self108637%_ - (let ((_%$obj108634%_ _%self108632%_)) + (lambda (_%self109764%_) + (let* ((_%self109769%_ + (let ((_%$obj109766%_ _%self109764%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108634%_)) + (##structure? _%$obj109766%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108634%_))) + (##structure-type _%$obj109766%_))) '#t) - _%$obj108634%_ + _%$obj109766%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108634%_))))) - (_%self108639%_ _%self108637%_)) - (&HashTable-clear! _%self108639%_)))) + (cast HashTable::interface _%$obj109766%_))))) + (_%self109771%_ _%self109769%_)) + (&HashTable-clear! _%self109771%_)))) (define &HashTable-clear! - (lambda (_%self108617%_) - (let ((_%self108619%_ _%self108617%_)) + (lambda (_%self109749%_) + (let ((_%self109751%_ _%self109749%_)) (declare (not safe)) - (let ((_%obj108629%_ - (##unchecked-structure-ref _%self108619%_ '1 '#f 'clear!)) - (_%f108630%_ - (##unchecked-structure-ref _%self108619%_ '2 '#f 'clear!))) - (_%f108630%_ _%obj108629%_))))) + (let ((_%obj109761%_ + (##unchecked-structure-ref _%self109751%_ '1 '#f 'clear!)) + (_%f109762%_ + (##unchecked-structure-ref _%self109751%_ '2 '#f 'clear!))) + (_%f109762%_ _%obj109761%_))))) (define HashTable-copy - (lambda (_%self108601%_) - (let* ((_%self108606%_ - (let ((_%$obj108603%_ _%self108601%_)) + (lambda (_%self109733%_) + (let* ((_%self109738%_ + (let ((_%$obj109735%_ _%self109733%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108603%_)) + (##structure? _%$obj109735%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108603%_))) + (##structure-type _%$obj109735%_))) '#t) - _%$obj108603%_ + _%$obj109735%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108603%_))))) - (_%self108608%_ _%self108606%_)) - (__HashTable-copy _%self108608%_)))) + (cast HashTable::interface _%$obj109735%_))))) + (_%self109740%_ _%self109738%_)) + (__HashTable-copy _%self109740%_)))) (define __HashTable-copy - (lambda (_%self108588%_) - (let* ((_%self108590%_ _%self108588%_) - (_%$obj108598%_ (&HashTable-copy _%self108590%_))) - (if (and (let () (declare (not safe)) (##structure? _%$obj108598%_)) + (lambda (_%self109720%_) + (let* ((_%self109722%_ _%self109720%_) + (_%$obj109730%_ (&HashTable-copy _%self109722%_))) + (if (and (let () (declare (not safe)) (##structure? _%$obj109730%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108598%_))) + (##structure-type _%$obj109730%_))) '#t) - _%$obj108598%_ + _%$obj109730%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108598%_)))))) + (cast HashTable::interface _%$obj109730%_)))))) (define &HashTable-copy - (lambda (_%self108573%_) - (let ((_%self108575%_ _%self108573%_)) + (lambda (_%self109705%_) + (let ((_%self109707%_ _%self109705%_)) (declare (not safe)) - (let ((_%obj108585%_ - (##unchecked-structure-ref _%self108575%_ '1 '#f 'copy)) - (_%f108586%_ - (##unchecked-structure-ref _%self108575%_ '3 '#f 'copy))) - (_%f108586%_ _%obj108585%_))))) + (let ((_%obj109717%_ + (##unchecked-structure-ref _%self109707%_ '1 '#f 'copy)) + (_%f109718%_ + (##unchecked-structure-ref _%self109707%_ '3 '#f 'copy))) + (_%f109718%_ _%obj109717%_))))) (define HashTable-delete! - (lambda (_%self108556%_ _%key108557%_) - (let* ((_%self108562%_ - (let ((_%$obj108559%_ _%self108556%_)) + (lambda (_%self109688%_ _%key109689%_) + (let* ((_%self109694%_ + (let ((_%$obj109691%_ _%self109688%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108559%_)) + (##structure? _%$obj109691%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108559%_))) + (##structure-type _%$obj109691%_))) '#t) - _%$obj108559%_ + _%$obj109691%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108559%_))))) - (_%self108564%_ _%self108562%_)) - (&HashTable-delete! _%self108564%_ _%key108557%_)))) + (cast HashTable::interface _%$obj109691%_))))) + (_%self109696%_ _%self109694%_)) + (&HashTable-delete! _%self109696%_ _%key109689%_)))) (define &HashTable-delete! - (lambda (_%self108540%_ _%key108541%_) - (let ((_%self108543%_ _%self108540%_)) + (lambda (_%self109672%_ _%key109673%_) + (let ((_%self109675%_ _%self109672%_)) (declare (not safe)) - (let ((_%obj108553%_ - (##unchecked-structure-ref _%self108543%_ '1 '#f 'delete!)) - (_%f108554%_ - (##unchecked-structure-ref _%self108543%_ '4 '#f 'delete!))) - (_%f108554%_ _%obj108553%_ _%key108541%_))))) + (let ((_%obj109685%_ + (##unchecked-structure-ref _%self109675%_ '1 '#f 'delete!)) + (_%f109686%_ + (##unchecked-structure-ref _%self109675%_ '4 '#f 'delete!))) + (_%f109686%_ _%obj109685%_ _%key109673%_))))) (define HashTable-for-each - (lambda (_%self108513%_ _%proc108514%_) - (let* ((_%self108519%_ - (let ((_%$obj108516%_ _%self108513%_)) + (lambda (_%self109645%_ _%proc109646%_) + (let* ((_%self109651%_ + (let ((_%$obj109648%_ _%self109645%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108516%_)) + (##structure? _%$obj109648%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108516%_))) + (##structure-type _%$obj109648%_))) '#t) - _%$obj108516%_ + _%$obj109648%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108516%_))))) - (_%self108521%_ _%self108519%_)) - (if (procedure? _%proc108514%_) - (let ((_%proc108530%_ _%proc108514%_)) - (&HashTable-for-each _%self108521%_ _%proc108530%_)) + (cast HashTable::interface _%$obj109648%_))))) + (_%self109653%_ _%self109651%_)) + (if (procedure? _%proc109646%_) + (let ((_%proc109662%_ _%proc109646%_)) + (&HashTable-for-each _%self109653%_ _%proc109662%_)) (begin (raise-contract-violation-error '"contract violation" @@ -278,127 +278,127 @@ 'contract: 'procedure? 'value: - _%proc108514%_) + _%proc109646%_) '#!void))))) (define &HashTable-for-each - (lambda (_%self108489%_ _%proc108490%_) - (let* ((_%self108492%_ _%self108489%_) (_%proc108499%_ _%proc108490%_)) + (lambda (_%self109621%_ _%proc109622%_) + (let* ((_%self109624%_ _%self109621%_) (_%proc109631%_ _%proc109622%_)) (declare (not safe)) - (let ((_%obj108510%_ - (##unchecked-structure-ref _%self108492%_ '1 '#f 'for-each)) - (_%f108511%_ - (##unchecked-structure-ref _%self108492%_ '5 '#f 'for-each))) - (_%f108511%_ _%obj108510%_ _%proc108499%_))))) + (let ((_%obj109642%_ + (##unchecked-structure-ref _%self109624%_ '1 '#f 'for-each)) + (_%f109643%_ + (##unchecked-structure-ref _%self109624%_ '5 '#f 'for-each))) + (_%f109643%_ _%obj109642%_ _%proc109631%_))))) (define HashTable-length - (lambda (_%self108473%_) - (let* ((_%self108478%_ - (let ((_%$obj108475%_ _%self108473%_)) + (lambda (_%self109605%_) + (let* ((_%self109610%_ + (let ((_%$obj109607%_ _%self109605%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108475%_)) + (##structure? _%$obj109607%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108475%_))) + (##structure-type _%$obj109607%_))) '#t) - _%$obj108475%_ + _%$obj109607%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108475%_))))) - (_%self108480%_ _%self108478%_)) - (__HashTable-length _%self108480%_)))) + (cast HashTable::interface _%$obj109607%_))))) + (_%self109612%_ _%self109610%_)) + (__HashTable-length _%self109612%_)))) (define __HashTable-length - (lambda (_%self108460%_) - (let* ((_%self108462%_ _%self108460%_) - (_%val108470%_ (&HashTable-length _%self108462%_))) - _%val108470%_))) + (lambda (_%self109592%_) + (let* ((_%self109594%_ _%self109592%_) + (_%val109602%_ (&HashTable-length _%self109594%_))) + _%val109602%_))) (define &HashTable-length - (lambda (_%self108445%_) - (let ((_%self108447%_ _%self108445%_)) + (lambda (_%self109577%_) + (let ((_%self109579%_ _%self109577%_)) (declare (not safe)) - (let ((_%obj108457%_ - (##unchecked-structure-ref _%self108447%_ '1 '#f 'length)) - (_%f108458%_ - (##unchecked-structure-ref _%self108447%_ '6 '#f 'length))) - (_%f108458%_ _%obj108457%_))))) + (let ((_%obj109589%_ + (##unchecked-structure-ref _%self109579%_ '1 '#f 'length)) + (_%f109590%_ + (##unchecked-structure-ref _%self109579%_ '6 '#f 'length))) + (_%f109590%_ _%obj109589%_))))) (define HashTable-ref - (lambda (_%self108427%_ _%key108428%_ _%default108429%_) - (let* ((_%self108434%_ - (let ((_%$obj108431%_ _%self108427%_)) + (lambda (_%self109559%_ _%key109560%_ _%default109561%_) + (let* ((_%self109566%_ + (let ((_%$obj109563%_ _%self109559%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108431%_)) + (##structure? _%$obj109563%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108431%_))) + (##structure-type _%$obj109563%_))) '#t) - _%$obj108431%_ + _%$obj109563%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108431%_))))) - (_%self108436%_ _%self108434%_)) - (&HashTable-ref _%self108436%_ _%key108428%_ _%default108429%_)))) + (cast HashTable::interface _%$obj109563%_))))) + (_%self109568%_ _%self109566%_)) + (&HashTable-ref _%self109568%_ _%key109560%_ _%default109561%_)))) (define &HashTable-ref - (lambda (_%self108410%_ _%key108411%_ _%default108412%_) - (let ((_%self108414%_ _%self108410%_)) + (lambda (_%self109542%_ _%key109543%_ _%default109544%_) + (let ((_%self109546%_ _%self109542%_)) (declare (not safe)) - (let ((_%obj108424%_ - (##unchecked-structure-ref _%self108414%_ '1 '#f 'ref)) - (_%f108425%_ - (##unchecked-structure-ref _%self108414%_ '7 '#f 'ref))) - (_%f108425%_ _%obj108424%_ _%key108411%_ _%default108412%_))))) + (let ((_%obj109556%_ + (##unchecked-structure-ref _%self109546%_ '1 '#f 'ref)) + (_%f109557%_ + (##unchecked-structure-ref _%self109546%_ '7 '#f 'ref))) + (_%f109557%_ _%obj109556%_ _%key109543%_ _%default109544%_))))) (define HashTable-set! - (lambda (_%self108392%_ _%key108393%_ _%value108394%_) - (let* ((_%self108399%_ - (let ((_%$obj108396%_ _%self108392%_)) + (lambda (_%self109524%_ _%key109525%_ _%value109526%_) + (let* ((_%self109531%_ + (let ((_%$obj109528%_ _%self109524%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108396%_)) + (##structure? _%$obj109528%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108396%_))) + (##structure-type _%$obj109528%_))) '#t) - _%$obj108396%_ + _%$obj109528%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108396%_))))) - (_%self108401%_ _%self108399%_)) - (&HashTable-set! _%self108401%_ _%key108393%_ _%value108394%_)))) + (cast HashTable::interface _%$obj109528%_))))) + (_%self109533%_ _%self109531%_)) + (&HashTable-set! _%self109533%_ _%key109525%_ _%value109526%_)))) (define &HashTable-set! - (lambda (_%self108375%_ _%key108376%_ _%value108377%_) - (let ((_%self108379%_ _%self108375%_)) + (lambda (_%self109507%_ _%key109508%_ _%value109509%_) + (let ((_%self109511%_ _%self109507%_)) (declare (not safe)) - (let ((_%obj108389%_ - (##unchecked-structure-ref _%self108379%_ '1 '#f 'set!)) - (_%f108390%_ - (##unchecked-structure-ref _%self108379%_ '8 '#f 'set!))) - (_%f108390%_ _%obj108389%_ _%key108376%_ _%value108377%_))))) + (let ((_%obj109521%_ + (##unchecked-structure-ref _%self109511%_ '1 '#f 'set!)) + (_%f109522%_ + (##unchecked-structure-ref _%self109511%_ '8 '#f 'set!))) + (_%f109522%_ _%obj109521%_ _%key109508%_ _%value109509%_))))) (define HashTable-update! - (lambda (_%self108346%_ _%key108347%_ _%proc108348%_ _%default108349%_) - (let* ((_%self108354%_ - (let ((_%$obj108351%_ _%self108346%_)) + (lambda (_%self109478%_ _%key109479%_ _%proc109480%_ _%default109481%_) + (let* ((_%self109486%_ + (let ((_%$obj109483%_ _%self109478%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108351%_)) + (##structure? _%$obj109483%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108351%_))) + (##structure-type _%$obj109483%_))) '#t) - _%$obj108351%_ + _%$obj109483%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108351%_))))) - (_%self108356%_ _%self108354%_)) - (if (procedure? _%proc108348%_) - (let ((_%proc108365%_ _%proc108348%_)) + (cast HashTable::interface _%$obj109483%_))))) + (_%self109488%_ _%self109486%_)) + (if (procedure? _%proc109480%_) + (let ((_%proc109497%_ _%proc109480%_)) (&HashTable-update! - _%self108356%_ - _%key108347%_ - _%proc108365%_ - _%default108349%_)) + _%self109488%_ + _%key109479%_ + _%proc109497%_ + _%default109481%_)) (begin (raise-contract-violation-error '"contract violation" @@ -407,28 +407,28 @@ 'contract: 'procedure? 'value: - _%proc108348%_) + _%proc109480%_) '#!void))))) (define &HashTable-update! - (lambda (_%self108318%_ _%key108319%_ _%proc108320%_ _%default108321%_) - (let* ((_%self108323%_ _%self108318%_) (_%proc108330%_ _%proc108320%_)) + (lambda (_%self109450%_ _%key109451%_ _%proc109452%_ _%default109453%_) + (let* ((_%self109455%_ _%self109450%_) (_%proc109462%_ _%proc109452%_)) (declare (not safe)) - (let ((_%obj108341%_ - (##unchecked-structure-ref _%self108323%_ '1 '#f 'update!)) - (_%f108343%_ - (##unchecked-structure-ref _%self108323%_ '9 '#f 'update!))) - (_%f108343%_ - _%obj108341%_ - _%key108319%_ - _%proc108330%_ - _%default108321%_))))) + (let ((_%obj109473%_ + (##unchecked-structure-ref _%self109455%_ '1 '#f 'update!)) + (_%f109475%_ + (##unchecked-structure-ref _%self109455%_ '9 '#f 'update!))) + (_%f109475%_ + _%obj109473%_ + _%key109451%_ + _%proc109462%_ + _%default109453%_))))) (define Locker::t - (let ((__tmp108806 (cons interface-instance::t '()))) + (let ((__tmp109938 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#Locker::t 'Locker - __tmp108806 + __tmp109938 '(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 (_%obj108316%_) - (let () (declare (not safe)) (cast Locker::interface _%obj108316%_)))) + (lambda (_%obj109448%_) + (let () (declare (not safe)) (cast Locker::interface _%obj109448%_)))) (define try-Locker - (lambda (_%obj108314%_) + (lambda (_%obj109446%_) (let () (declare (not safe)) - (try-cast Locker::interface _%obj108314%_)))) + (try-cast Locker::interface _%obj109446%_)))) (define Locker? - (lambda (_%obj108312%_) - (let ((__tmp108807 + (lambda (_%obj109444%_) + (let ((__tmp109939 (let () (declare (not safe)) (##type-id Locker::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj108312%_ __tmp108807)))) + (##structure-direct-instance-of? _%obj109444%_ __tmp109939)))) (define is-Locker? - (lambda (_%obj108310%_) + (lambda (_%obj109442%_) (if (let () (declare (not safe)) - (satisfies? Locker::interface _%obj108310%_)) + (satisfies? Locker::interface _%obj109442%_)) '#t '#f))) (define Locker-read-lock! - (lambda (_%self108294%_) - (let* ((_%self108299%_ - (let ((_%$obj108296%_ _%self108294%_)) + (lambda (_%self109426%_) + (let* ((_%self109431%_ + (let ((_%$obj109428%_ _%self109426%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108296%_)) + (##structure? _%$obj109428%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj108296%_))) + (##structure-type _%$obj109428%_))) '#t) - _%$obj108296%_ + _%$obj109428%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj108296%_))))) - (_%self108301%_ _%self108299%_)) - (&Locker-read-lock! _%self108301%_)))) + (cast Locker::interface _%$obj109428%_))))) + (_%self109433%_ _%self109431%_)) + (&Locker-read-lock! _%self109433%_)))) (define &Locker-read-lock! - (lambda (_%self108279%_) - (let ((_%self108281%_ _%self108279%_)) + (lambda (_%self109411%_) + (let ((_%self109413%_ _%self109411%_)) (declare (not safe)) - (let ((_%obj108291%_ - (##unchecked-structure-ref _%self108281%_ '1 '#f 'read-lock!)) - (_%f108292%_ + (let ((_%obj109423%_ + (##unchecked-structure-ref _%self109413%_ '1 '#f 'read-lock!)) + (_%f109424%_ (##unchecked-structure-ref - _%self108281%_ + _%self109413%_ '2 '#f 'read-lock!))) - (_%f108292%_ _%obj108291%_))))) + (_%f109424%_ _%obj109423%_))))) (define Locker-read-unlock! - (lambda (_%self108263%_) - (let* ((_%self108268%_ - (let ((_%$obj108265%_ _%self108263%_)) + (lambda (_%self109395%_) + (let* ((_%self109400%_ + (let ((_%$obj109397%_ _%self109395%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108265%_)) + (##structure? _%$obj109397%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj108265%_))) + (##structure-type _%$obj109397%_))) '#t) - _%$obj108265%_ + _%$obj109397%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj108265%_))))) - (_%self108270%_ _%self108268%_)) - (&Locker-read-unlock! _%self108270%_)))) + (cast Locker::interface _%$obj109397%_))))) + (_%self109402%_ _%self109400%_)) + (&Locker-read-unlock! _%self109402%_)))) (define &Locker-read-unlock! - (lambda (_%self108248%_) - (let ((_%self108250%_ _%self108248%_)) + (lambda (_%self109380%_) + (let ((_%self109382%_ _%self109380%_)) (declare (not safe)) - (let ((_%obj108260%_ + (let ((_%obj109392%_ (##unchecked-structure-ref - _%self108250%_ + _%self109382%_ '1 '#f 'read-unlock!)) - (_%f108261%_ + (_%f109393%_ (##unchecked-structure-ref - _%self108250%_ + _%self109382%_ '3 '#f 'read-unlock!))) - (_%f108261%_ _%obj108260%_))))) + (_%f109393%_ _%obj109392%_))))) (define Locker-write-lock! - (lambda (_%self108232%_) - (let* ((_%self108237%_ - (let ((_%$obj108234%_ _%self108232%_)) + (lambda (_%self109364%_) + (let* ((_%self109369%_ + (let ((_%$obj109366%_ _%self109364%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108234%_)) + (##structure? _%$obj109366%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj108234%_))) + (##structure-type _%$obj109366%_))) '#t) - _%$obj108234%_ + _%$obj109366%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj108234%_))))) - (_%self108239%_ _%self108237%_)) - (&Locker-write-lock! _%self108239%_)))) + (cast Locker::interface _%$obj109366%_))))) + (_%self109371%_ _%self109369%_)) + (&Locker-write-lock! _%self109371%_)))) (define &Locker-write-lock! - (lambda (_%self108217%_) - (let ((_%self108219%_ _%self108217%_)) + (lambda (_%self109349%_) + (let ((_%self109351%_ _%self109349%_)) (declare (not safe)) - (let ((_%obj108229%_ + (let ((_%obj109361%_ (##unchecked-structure-ref - _%self108219%_ + _%self109351%_ '1 '#f 'write-lock!)) - (_%f108230%_ + (_%f109362%_ (##unchecked-structure-ref - _%self108219%_ + _%self109351%_ '4 '#f 'write-lock!))) - (_%f108230%_ _%obj108229%_))))) + (_%f109362%_ _%obj109361%_))))) (define Locker-write-unlock! - (lambda (_%self108201%_) - (let* ((_%self108206%_ - (let ((_%$obj108203%_ _%self108201%_)) + (lambda (_%self109333%_) + (let* ((_%self109338%_ + (let ((_%$obj109335%_ _%self109333%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108203%_)) + (##structure? _%$obj109335%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj108203%_))) + (##structure-type _%$obj109335%_))) '#t) - _%$obj108203%_ + _%$obj109335%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj108203%_))))) - (_%self108208%_ _%self108206%_)) - (&Locker-write-unlock! _%self108208%_)))) + (cast Locker::interface _%$obj109335%_))))) + (_%self109340%_ _%self109338%_)) + (&Locker-write-unlock! _%self109340%_)))) (define &Locker-write-unlock! - (lambda (_%self108184%_) - (let ((_%self108186%_ _%self108184%_)) + (lambda (_%self109316%_) + (let ((_%self109318%_ _%self109316%_)) (declare (not safe)) - (let ((_%obj108196%_ + (let ((_%obj109328%_ (##unchecked-structure-ref - _%self108186%_ + _%self109318%_ '1 '#f 'write-unlock!)) - (_%f108198%_ + (_%f109330%_ (##unchecked-structure-ref - _%self108186%_ + _%self109318%_ '5 '#f 'write-unlock!))) - (_%f108198%_ _%obj108196%_))))) + (_%f109330%_ _%obj109328%_))))) (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 (_%table108177%_ - _%key108178%_ - _%update108179%_ - _%default108180%_) - (let ((_%result108182%_ - (table-ref _%table108177%_ _%key108178%_ _%default108180%_))) + (lambda (_%table109309%_ + _%key109310%_ + _%update109311%_ + _%default109312%_) + (let ((_%result109314%_ + (table-ref _%table109309%_ _%key109310%_ _%default109312%_))) (table-set! - _%table108177%_ - _%key108178%_ - (_%update108179%_ _%default108180%_))))) + _%table109309%_ + _%key109310%_ + (_%update109311%_ _%default109312%_))))) (define gambit-table-for-each - (lambda (_%table108174%_ _%proc108175%_) - (table-for-each _%proc108175%_ _%table108174%_))) + (lambda (_%table109306%_ _%proc109307%_) + (table-for-each _%proc109307%_ _%table109306%_))) (define gambit-table-clear! - (lambda (_%table108172%_) + (lambda (_%table109304%_) (let () (declare (not safe)) - (##unchecked-structure-set! _%table108172%_ '0 '5 '#f '#f)))) - (let ((__tmp108808 (macro-type-table))) + (##unchecked-structure-set! _%table109304%_ '0 '5 '#f '#f)))) + (let ((__tmp109940 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108808 'ref table-ref)) - (let ((__tmp108809 (macro-type-table))) + (bind-method!__0 __tmp109940 'ref table-ref)) + (let ((__tmp109941 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108809 'set! table-set!)) - (let ((__tmp108810 (macro-type-table))) + (bind-method!__0 __tmp109941 'set! table-set!)) + (let ((__tmp109942 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108810 'update! gambit-table-update!)) - (let ((__tmp108811 (macro-type-table))) + (bind-method!__0 __tmp109942 'update! gambit-table-update!)) + (let ((__tmp109943 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108811 'delete! table-set!)) - (let ((__tmp108812 (macro-type-table))) + (bind-method!__0 __tmp109943 'delete! table-set!)) + (let ((__tmp109944 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108812 'for-each gambit-table-for-each)) - (let ((__tmp108813 (macro-type-table))) + (bind-method!__0 __tmp109944 'for-each gambit-table-for-each)) + (let ((__tmp109945 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108813 'length table-length)) - (let ((__tmp108814 (macro-type-table))) + (bind-method!__0 __tmp109945 'length table-length)) + (let ((__tmp109946 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108814 'copy table-copy)) - (let ((__tmp108815 (macro-type-table))) + (bind-method!__0 __tmp109946 'copy table-copy)) + (let ((__tmp109947 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108815 'clear! gambit-table-clear!)) + (bind-method!__0 __tmp109947 'clear! gambit-table-clear!)) (define hash-table::t - (let* ((_%slots108154%_ '(table count free hash test seed)) - (_%slot-vector108156%_ (list->vector (cons '#f _%slots108154%_))) - (_%slot-table108163%_ - (let ((_%slot-table108158%_ + (let* ((_%slots109286%_ '(table count free hash test seed)) + (_%slot-vector109288%_ (list->vector (cons '#f _%slots109286%_))) + (_%slot-table109295%_ + (let ((_%slot-table109290%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp108818 - (lambda (_%slot108160%_ _%field108161%_) + (let ((__tmp109950 + (lambda (_%slot109292%_ _%field109293%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table108158%_ - _%slot108160%_ - _%field108161%_)) - (let ((__tmp108819 + _%slot-table109290%_ + _%slot109292%_ + _%field109293%_)) + (let ((__tmp109951 (let () (declare (not safe)) - (symbol->keyword _%slot108160%_)))) + (symbol->keyword _%slot109292%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table108158%_ - __tmp108819 - _%field108161%_)))) - (__tmp108816 - (let ((__tmp108817 + _%slot-table109290%_ + __tmp109951 + _%field109293%_)))) + (__tmp109948 + (let ((__tmp109949 (let () (declare (not safe)) - (##length _%slots108154%_)))) + (##length _%slots109286%_)))) (declare (not safe)) - (##iota __tmp108817 '1)))) + (##iota __tmp109949 '1)))) (declare (not safe)) - (##for-each __tmp108818 _%slots108154%_ __tmp108816)) - _%slot-table108158%_)) - (_%flags108165%_ + (##for-each __tmp109950 _%slots109286%_ __tmp109948)) + _%slot-table109290%_)) + (_%flags109297%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields108167%_ '#()) - (_%properties108169%_ + (_%fields109299%_ '#()) + (_%properties109301%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots108154%_))) + (__foldr1 cons '() _%slots109286%_))) (cons (cons 'struct: '#t) '()))) - (__tmp108820 (cons object::t (cons t::t '())))) + (__tmp109952 (cons object::t (cons t::t '())))) (declare (not safe)) (##structure class::t 'gerbil#hash-table::t 'hash-table - _%flags108165%_ + _%flags109297%_ __table::t - _%fields108167%_ - __tmp108820 - _%slot-vector108156%_ - _%slot-table108163%_ - _%properties108169%_ + _%fields109299%_ + __tmp109952 + _%slot-vector109288%_ + _%slot-table109295%_ + _%properties109301%_ '#f '#f))) (define gc-hash-table::t - (let* ((_%slots108136%_ '(gcht immediate)) - (_%slot-vector108138%_ (list->vector (cons '#f _%slots108136%_))) - (_%slot-table108145%_ - (let ((_%slot-table108140%_ + (let* ((_%slots109268%_ '(gcht immediate)) + (_%slot-vector109270%_ (list->vector (cons '#f _%slots109268%_))) + (_%slot-table109277%_ + (let ((_%slot-table109272%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp108823 - (lambda (_%slot108142%_ _%field108143%_) + (let ((__tmp109955 + (lambda (_%slot109274%_ _%field109275%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table108140%_ - _%slot108142%_ - _%field108143%_)) - (let ((__tmp108824 + _%slot-table109272%_ + _%slot109274%_ + _%field109275%_)) + (let ((__tmp109956 (let () (declare (not safe)) - (symbol->keyword _%slot108142%_)))) + (symbol->keyword _%slot109274%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table108140%_ - __tmp108824 - _%field108143%_)))) - (__tmp108821 - (let ((__tmp108822 + _%slot-table109272%_ + __tmp109956 + _%field109275%_)))) + (__tmp109953 + (let ((__tmp109954 (let () (declare (not safe)) - (##length _%slots108136%_)))) + (##length _%slots109268%_)))) (declare (not safe)) - (##iota __tmp108822 '1)))) + (##iota __tmp109954 '1)))) (declare (not safe)) - (##for-each __tmp108823 _%slots108136%_ __tmp108821)) - _%slot-table108140%_)) - (_%flags108147%_ + (##for-each __tmp109955 _%slots109268%_ __tmp109953)) + _%slot-table109272%_)) + (_%flags109279%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields108149%_ '#()) - (_%properties108151%_ + (_%fields109281%_ '#()) + (_%properties109283%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots108136%_))) + (__foldr1 cons '() _%slots109268%_))) (cons (cons 'struct: '#t) '()))) - (__tmp108825 (cons object::t (cons t::t '())))) + (__tmp109957 (cons object::t (cons t::t '())))) (declare (not safe)) (##structure class::t 'gerbil#gc-hash-table::t 'hash-table - _%flags108147%_ + _%flags109279%_ __gc-table::t - _%fields108149%_ - __tmp108825 - _%slot-vector108138%_ - _%slot-table108145%_ - _%properties108151%_ + _%fields109281%_ + __tmp109957 + _%slot-vector109270%_ + _%slot-table109277%_ + _%properties109283%_ '#f '#f))) (define locked-hash-table::t - (let ((__tmp108827 (list)) - (__tmp108826 + (let ((__tmp109959 (list)) + (__tmp109958 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#locked-hash-table::t 'locked-hash-table - __tmp108827 + __tmp109959 '(table lock) - __tmp108826 + __tmp109958 '#f))) (define locked-hash-table? (let () (declare (not safe)) (__make-class-predicate locked-hash-table::t))) (define make-locked-hash-table - (lambda _%$args108133%_ - (apply make-instance locked-hash-table::t _%$args108133%_))) + (lambda _%$args109265%_ + (apply make-instance locked-hash-table::t _%$args109265%_))) (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 ((__tmp108829 (list)) - (__tmp108828 + (let ((__tmp109961 (list)) + (__tmp109960 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#checked-hash-table::t 'checked-hash-table - __tmp108829 + __tmp109961 '(table key-check) - __tmp108828 + __tmp109960 '#f))) (define checked-hash-table? (let () (declare (not safe)) (__make-class-predicate checked-hash-table::t))) (define make-checked-hash-table - (lambda _%$args108130%_ - (apply make-instance checked-hash-table::t _%$args108130%_))) + (lambda _%$args109262%_ + (apply make-instance checked-hash-table::t _%$args109262%_))) (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 ((__tmp108831 (list hash-table::t)) - (__tmp108830 (cons (cons 'struct: '#t) '()))) + (let ((__tmp109963 (list hash-table::t)) + (__tmp109962 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#eq-hash-table 'hash-table - __tmp108831 + __tmp109963 '() - __tmp108830 + __tmp109962 '#f))) (define eq-hash-table? (let () (declare (not safe)) (__make-class-predicate eq-hash-table::t))) (define make-eq-hash-table - (lambda _%$args108127%_ - (apply make-instance eq-hash-table::t _%$args108127%_))) + (lambda _%$args109259%_ + (apply make-instance eq-hash-table::t _%$args109259%_))) (define eqv-hash-table::t - (let ((__tmp108833 (list hash-table::t)) - (__tmp108832 (cons (cons 'struct: '#t) '()))) + (let ((__tmp109965 (list hash-table::t)) + (__tmp109964 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#eqv-hash-table 'hash-table - __tmp108833 + __tmp109965 '() - __tmp108832 + __tmp109964 '#f))) (define eqv-hash-table? (let () (declare (not safe)) (__make-class-predicate eqv-hash-table::t))) (define make-eqv-hash-table - (lambda _%$args108124%_ - (apply make-instance eqv-hash-table::t _%$args108124%_))) + (lambda _%$args109256%_ + (apply make-instance eqv-hash-table::t _%$args109256%_))) (define symbol-hash-table::t - (let ((__tmp108835 (list hash-table::t)) - (__tmp108834 (cons (cons 'struct: '#t) '()))) + (let ((__tmp109967 (list hash-table::t)) + (__tmp109966 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#symbol-hash-table 'hash-table - __tmp108835 + __tmp109967 '() - __tmp108834 + __tmp109966 '#f))) (define symbol-hash-table? (let () (declare (not safe)) (__make-class-predicate symbol-hash-table::t))) (define make-symbol-hash-table - (lambda _%$args108121%_ - (apply make-instance symbol-hash-table::t _%$args108121%_))) + (lambda _%$args109253%_ + (apply make-instance symbol-hash-table::t _%$args109253%_))) (define string-hash-table::t - (let ((__tmp108837 (list hash-table::t)) - (__tmp108836 (cons (cons 'struct: '#t) '()))) + (let ((__tmp109969 (list hash-table::t)) + (__tmp109968 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#string-hash-table 'hash-table - __tmp108837 + __tmp109969 '() - __tmp108836 + __tmp109968 '#f))) (define string-hash-table? (let () (declare (not safe)) (__make-class-predicate string-hash-table::t))) (define make-string-hash-table - (lambda _%$args108118%_ - (apply make-instance string-hash-table::t _%$args108118%_))) + (lambda _%$args109250%_ + (apply make-instance string-hash-table::t _%$args109250%_))) (define immediate-hash-table::t - (let ((__tmp108839 (list hash-table::t)) - (__tmp108838 (cons (cons 'struct: '#t) '()))) + (let ((__tmp109971 (list hash-table::t)) + (__tmp109970 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#immediate-hash-table::t 'hash-table - __tmp108839 + __tmp109971 '() - __tmp108838 + __tmp109970 '#f))) (define immediate-hash-table? (let () (declare (not safe)) (__make-class-predicate immediate-hash-table::t))) (define make-immediate-hash-table - (lambda _%$args108115%_ - (apply make-instance immediate-hash-table::t _%$args108115%_))) + (lambda _%$args109247%_ + (apply make-instance immediate-hash-table::t _%$args109247%_))) (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::ref104115%_ - (lambda (_%self104114108089%_ _%key108091%_ _%default108092%_) - (let* ((_%self108094%_ _%self104114108089%_) - (_%self108097%_ _%self108094%_)) - (let ((_%h108107%_ + (define _%locked-hash-table::ref105247%_ + (lambda (_%self105246109221%_ _%key109223%_ _%default109224%_) + (let* ((_%self109226%_ _%self105246109221%_) + (_%self109229%_ _%self109226%_)) + (let ((_%h109239%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108097%_ '1 '#f '#f))) - (_%l108109%_ + (##unchecked-structure-ref _%self109229%_ '1 '#f '#f))) + (_%l109241%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108097%_ '2 '#f '#f)))) - (let ((__tmp108842 (lambda () (&Locker-read-lock! _%l108109%_))) - (__tmp108841 + (##unchecked-structure-ref _%self109229%_ '2 '#f '#f)))) + (let ((__tmp109974 (lambda () (&Locker-read-lock! _%l109241%_))) + (__tmp109973 (lambda () (&HashTable-ref - _%h108107%_ - _%key108091%_ - _%default108092%_))) - (__tmp108840 (lambda () (&Locker-read-unlock! _%l108109%_)))) + _%h109239%_ + _%key109223%_ + _%default109224%_))) + (__tmp109972 (lambda () (&Locker-read-unlock! _%l109241%_)))) (declare (not safe)) - (##dynamic-wind __tmp108842 __tmp108841 __tmp108840)))))) + (##dynamic-wind __tmp109974 __tmp109973 __tmp109972)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'ref - _%locked-hash-table::ref104115%_ + _%locked-hash-table::ref105247%_ '#f)) - (define _%locked-hash-table::set!104118%_ - (lambda (_%self104117107940%_ _%key107942%_ _%value107943%_) - (let* ((_%self107945%_ _%self104117107940%_) - (_%self107948%_ _%self107945%_)) - (let ((_%h107958%_ + (define _%locked-hash-table::set!105250%_ + (lambda (_%self105249109072%_ _%key109074%_ _%value109075%_) + (let* ((_%self109077%_ _%self105249109072%_) + (_%self109080%_ _%self109077%_)) + (let ((_%h109090%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107948%_ '1 '#f '#f))) - (_%l107960%_ + (##unchecked-structure-ref _%self109080%_ '1 '#f '#f))) + (_%l109092%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107948%_ '2 '#f '#f)))) - (let ((__tmp108845 (lambda () (&Locker-write-lock! _%l107960%_))) - (__tmp108844 + (##unchecked-structure-ref _%self109080%_ '2 '#f '#f)))) + (let ((__tmp109977 (lambda () (&Locker-write-lock! _%l109092%_))) + (__tmp109976 (lambda () (&HashTable-set! - _%h107958%_ - _%key107942%_ - _%value107943%_))) - (__tmp108843 - (lambda () (&Locker-write-unlock! _%l107960%_)))) + _%h109090%_ + _%key109074%_ + _%value109075%_))) + (__tmp109975 + (lambda () (&Locker-write-unlock! _%l109092%_)))) (declare (not safe)) - (##dynamic-wind __tmp108845 __tmp108844 __tmp108843)))))) + (##dynamic-wind __tmp109977 __tmp109976 __tmp109975)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'set! - _%locked-hash-table::set!104118%_ + _%locked-hash-table::set!105250%_ '#f)) - (define _%locked-hash-table::update!104121%_ - (lambda (_%self104120107790%_ - _%key107792%_ - _%update107793%_ - _%default107794%_) - (let* ((_%self107796%_ _%self104120107790%_) - (_%self107799%_ _%self107796%_)) - (let ((_%h107809%_ + (define _%locked-hash-table::update!105253%_ + (lambda (_%self105252108922%_ + _%key108924%_ + _%update108925%_ + _%default108926%_) + (let* ((_%self108928%_ _%self105252108922%_) + (_%self108931%_ _%self108928%_)) + (let ((_%h108941%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107799%_ '1 '#f '#f))) - (_%l107811%_ + (##unchecked-structure-ref _%self108931%_ '1 '#f '#f))) + (_%l108943%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107799%_ '2 '#f '#f)))) - (let ((__tmp108848 (lambda () (&Locker-write-lock! _%l107811%_))) - (__tmp108847 + (##unchecked-structure-ref _%self108931%_ '2 '#f '#f)))) + (let ((__tmp109980 (lambda () (&Locker-write-lock! _%l108943%_))) + (__tmp109979 (lambda () (&HashTable-update! - _%h107809%_ - _%key107792%_ - _%update107793%_ - _%default107794%_))) - (__tmp108846 - (lambda () (&Locker-write-unlock! _%l107811%_)))) + _%h108941%_ + _%key108924%_ + _%update108925%_ + _%default108926%_))) + (__tmp109978 + (lambda () (&Locker-write-unlock! _%l108943%_)))) (declare (not safe)) - (##dynamic-wind __tmp108848 __tmp108847 __tmp108846)))))) + (##dynamic-wind __tmp109980 __tmp109979 __tmp109978)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'update! - _%locked-hash-table::update!104121%_ + _%locked-hash-table::update!105253%_ '#f)) - (define _%locked-hash-table::delete!104124%_ - (lambda (_%self104123107642%_ _%key107644%_) - (let* ((_%self107646%_ _%self104123107642%_) - (_%self107649%_ _%self107646%_)) - (let ((_%h107659%_ + (define _%locked-hash-table::delete!105256%_ + (lambda (_%self105255108774%_ _%key108776%_) + (let* ((_%self108778%_ _%self105255108774%_) + (_%self108781%_ _%self108778%_)) + (let ((_%h108791%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107649%_ '1 '#f '#f))) - (_%l107661%_ + (##unchecked-structure-ref _%self108781%_ '1 '#f '#f))) + (_%l108793%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107649%_ '2 '#f '#f)))) - (let ((__tmp108851 (lambda () (&Locker-write-lock! _%l107661%_))) - (__tmp108850 - (lambda () (&HashTable-delete! _%h107659%_ _%key107644%_))) - (__tmp108849 - (lambda () (&Locker-write-unlock! _%l107661%_)))) + (##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%_)))) (declare (not safe)) - (##dynamic-wind __tmp108851 __tmp108850 __tmp108849)))))) + (##dynamic-wind __tmp109983 __tmp109982 __tmp109981)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'delete! - _%locked-hash-table::delete!104124%_ + _%locked-hash-table::delete!105256%_ '#f)) - (define _%locked-hash-table::for-each104127%_ - (lambda (_%self104126107494%_ _%proc107496%_) - (let* ((_%self107498%_ _%self104126107494%_) - (_%self107501%_ _%self107498%_)) - (let ((_%h107511%_ + (define _%locked-hash-table::for-each105259%_ + (lambda (_%self105258108626%_ _%proc108628%_) + (let* ((_%self108630%_ _%self105258108626%_) + (_%self108633%_ _%self108630%_)) + (let ((_%h108643%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107501%_ '1 '#f '#f))) - (_%l107513%_ + (##unchecked-structure-ref _%self108633%_ '1 '#f '#f))) + (_%l108645%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107501%_ '2 '#f '#f)))) - (let ((__tmp108854 (lambda () (&Locker-read-lock! _%l107513%_))) - (__tmp108853 + (##unchecked-structure-ref _%self108633%_ '2 '#f '#f)))) + (let ((__tmp109986 (lambda () (&Locker-read-lock! _%l108645%_))) + (__tmp109985 (lambda () - (&HashTable-for-each _%h107511%_ _%proc107496%_))) - (__tmp108852 (lambda () (&Locker-read-unlock! _%l107513%_)))) + (&HashTable-for-each _%h108643%_ _%proc108628%_))) + (__tmp109984 (lambda () (&Locker-read-unlock! _%l108645%_)))) (declare (not safe)) - (##dynamic-wind __tmp108854 __tmp108853 __tmp108852)))))) + (##dynamic-wind __tmp109986 __tmp109985 __tmp109984)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'for-each - _%locked-hash-table::for-each104127%_ + _%locked-hash-table::for-each105259%_ '#f)) - (define _%locked-hash-table::length104130%_ - (lambda (_%self104129107347%_) - (let* ((_%self107350%_ _%self104129107347%_) - (_%self107353%_ _%self107350%_)) - (let ((_%h107363%_ + (define _%locked-hash-table::length105262%_ + (lambda (_%self105261108479%_) + (let* ((_%self108482%_ _%self105261108479%_) + (_%self108485%_ _%self108482%_)) + (let ((_%h108495%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107353%_ '1 '#f '#f))) - (_%l107365%_ + (##unchecked-structure-ref _%self108485%_ '1 '#f '#f))) + (_%l108497%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107353%_ '2 '#f '#f)))) - (let ((__tmp108857 (lambda () (&Locker-read-lock! _%l107365%_))) - (__tmp108856 (lambda () (&HashTable-length _%h107363%_))) - (__tmp108855 (lambda () (&Locker-read-unlock! _%l107365%_)))) + (##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%_)))) (declare (not safe)) - (##dynamic-wind __tmp108857 __tmp108856 __tmp108855)))))) + (##dynamic-wind __tmp109989 __tmp109988 __tmp109987)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'length - _%locked-hash-table::length104130%_ + _%locked-hash-table::length105262%_ '#f)) - (define _%locked-hash-table::copy104133%_ - (lambda (_%self104132107200%_) - (let* ((_%self107203%_ _%self104132107200%_) - (_%self107206%_ _%self107203%_)) - (let ((_%h107216%_ + (define _%locked-hash-table::copy105265%_ + (lambda (_%self105264108332%_) + (let* ((_%self108335%_ _%self105264108332%_) + (_%self108338%_ _%self108335%_)) + (let ((_%h108348%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107206%_ '1 '#f '#f))) - (_%l107218%_ + (##unchecked-structure-ref _%self108338%_ '1 '#f '#f))) + (_%l108350%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107206%_ '2 '#f '#f)))) - (let ((__tmp108860 (lambda () (&Locker-read-lock! _%l107218%_))) - (__tmp108859 (lambda () (&HashTable-copy _%h107216%_))) - (__tmp108858 (lambda () (&Locker-read-unlock! _%l107218%_)))) + (##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%_)))) (declare (not safe)) - (##dynamic-wind __tmp108860 __tmp108859 __tmp108858)))))) + (##dynamic-wind __tmp109992 __tmp109991 __tmp109990)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'copy - _%locked-hash-table::copy104133%_ + _%locked-hash-table::copy105265%_ '#f)) - (define _%locked-hash-table::clear!104136%_ - (lambda (_%self104135107053%_) - (let* ((_%self107056%_ _%self104135107053%_) - (_%self107059%_ _%self107056%_)) - (let ((_%h107069%_ + (define _%locked-hash-table::clear!105268%_ + (lambda (_%self105267108185%_) + (let* ((_%self108188%_ _%self105267108185%_) + (_%self108191%_ _%self108188%_)) + (let ((_%h108201%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107059%_ '1 '#f '#f))) - (_%l107071%_ + (##unchecked-structure-ref _%self108191%_ '1 '#f '#f))) + (_%l108203%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107059%_ '2 '#f '#f)))) - (let ((__tmp108863 (lambda () (&Locker-write-lock! _%l107071%_))) - (__tmp108862 (lambda () (&HashTable-clear! _%h107069%_))) - (__tmp108861 - (lambda () (&Locker-write-unlock! _%l107071%_)))) + (##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%_)))) (declare (not safe)) - (##dynamic-wind __tmp108863 __tmp108862 __tmp108861)))))) + (##dynamic-wind __tmp109995 __tmp109994 __tmp109993)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'clear! - _%locked-hash-table::clear!104136%_ + _%locked-hash-table::clear!105268%_ '#f)) - (let ((__tmp108864 (macro-type-mutex))) + (let ((__tmp109996 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp108864 'read-lock! mutex-lock!)) - (let ((__tmp108865 (macro-type-mutex))) + (bind-method!__0 __tmp109996 'read-lock! mutex-lock!)) + (let ((__tmp109997 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp108865 'read-unlock! mutex-unlock!)) - (let ((__tmp108866 (macro-type-mutex))) + (bind-method!__0 __tmp109997 'read-unlock! mutex-unlock!)) + (let ((__tmp109998 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp108866 'write-lock! mutex-lock!)) - (let ((__tmp108867 (macro-type-mutex))) + (bind-method!__0 __tmp109998 'write-lock! mutex-lock!)) + (let ((__tmp109999 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp108867 'write-unlock! mutex-unlock!)) - (define _%checked-hash-table::ref104350%_ - (lambda (_%self104349106903%_ _%key106905%_ _%default106906%_) - (let* ((_%self106908%_ _%self104349106903%_) - (_%self106910%_ _%self106908%_)) + (bind-method!__0 __tmp109999 'write-unlock! mutex-unlock!)) + (define _%checked-hash-table::ref105482%_ + (lambda (_%self105481108035%_ _%key108037%_ _%default108038%_) + (let* ((_%self108040%_ _%self105481108035%_) + (_%self108042%_ _%self108040%_)) (declare (not safe)) - (let ((_%h106921%_ - (##unchecked-structure-ref _%self106910%_ '1 '#f '#f)) - (_%key?106923%_ - (##unchecked-structure-ref _%self106910%_ '2 '#f '#f))) - (if ((lambda (_%key?106926%_ _%key106927%_ _%default106928%_) - (_%key?106926%_ _%key106927%_)) - _%key?106923%_ - _%key106905%_ - _%default106906%_) - (&HashTable-ref _%h106921%_ _%key106905%_ _%default106906%_) + (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%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-ref 'value: - (cons _%key106905%_ (cons _%default106906%_ '()))) + (cons _%key108037%_ (cons _%default108038%_ '()))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'ref - _%checked-hash-table::ref104350%_ + _%checked-hash-table::ref105482%_ '#f)) - (define _%checked-hash-table::set!104353%_ - (lambda (_%self104352106753%_ _%key106755%_ _%value106756%_) - (let* ((_%self106758%_ _%self104352106753%_) - (_%self106760%_ _%self106758%_)) + (define _%checked-hash-table::set!105485%_ + (lambda (_%self105484107885%_ _%key107887%_ _%value107888%_) + (let* ((_%self107890%_ _%self105484107885%_) + (_%self107892%_ _%self107890%_)) (declare (not safe)) - (let ((_%h106771%_ - (##unchecked-structure-ref _%self106760%_ '1 '#f '#f)) - (_%key?106773%_ - (##unchecked-structure-ref _%self106760%_ '2 '#f '#f))) - (if ((lambda (_%key?106776%_ _%key106777%_ _%value106778%_) - (_%key?106776%_ _%key106777%_)) - _%key?106773%_ - _%key106755%_ - _%value106756%_) - (&HashTable-set! _%h106771%_ _%key106755%_ _%value106756%_) + (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%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-set! 'value: - (cons _%key106755%_ (cons _%value106756%_ '()))) + (cons _%key107887%_ (cons _%value107888%_ '()))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'set! - _%checked-hash-table::set!104353%_ + _%checked-hash-table::set!105485%_ '#f)) - (define _%checked-hash-table::update!104356%_ - (lambda (_%self104355106601%_ - _%key106603%_ - _%update106604%_ - _%default106605%_) - (let* ((_%self106607%_ _%self104355106601%_) - (_%self106609%_ _%self106607%_)) + (define _%checked-hash-table::update!105488%_ + (lambda (_%self105487107733%_ + _%key107735%_ + _%update107736%_ + _%default107737%_) + (let* ((_%self107739%_ _%self105487107733%_) + (_%self107741%_ _%self107739%_)) (declare (not safe)) - (let ((_%h106620%_ - (##unchecked-structure-ref _%self106609%_ '1 '#f '#f)) - (_%key?106622%_ - (##unchecked-structure-ref _%self106609%_ '2 '#f '#f))) - (if ((lambda (_%key?106625%_ - _%key106626%_ - _%update106627%_ - _%default106628%_) - (_%key?106625%_ _%key106626%_)) - _%key?106622%_ - _%key106603%_ - _%update106604%_ - _%default106605%_) + (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%_) (&HashTable-update! - _%h106620%_ - _%key106603%_ - _%update106604%_ - _%default106605%_) + _%h107752%_ + _%key107735%_ + _%update107736%_ + _%default107737%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-update! 'value: - (cons _%key106603%_ - (cons _%update106604%_ (cons _%default106605%_ '())))) + (cons _%key107735%_ + (cons _%update107736%_ (cons _%default107737%_ '())))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'update! - _%checked-hash-table::update!104356%_ + _%checked-hash-table::update!105488%_ '#f)) - (define _%checked-hash-table::delete!104359%_ - (lambda (_%self104358106453%_ _%key106455%_) - (let* ((_%self106457%_ _%self104358106453%_) - (_%self106459%_ _%self106457%_)) + (define _%checked-hash-table::delete!105491%_ + (lambda (_%self105490107585%_ _%key107587%_) + (let* ((_%self107589%_ _%self105490107585%_) + (_%self107591%_ _%self107589%_)) (declare (not safe)) - (let ((_%h106470%_ - (##unchecked-structure-ref _%self106459%_ '1 '#f '#f)) - (_%key?106472%_ - (##unchecked-structure-ref _%self106459%_ '2 '#f '#f))) - (if ((lambda (_%key?106475%_ _%key106476%_) - (_%key?106475%_ _%key106476%_)) - _%key?106472%_ - _%key106455%_) - (&HashTable-delete! _%h106470%_ _%key106455%_) + (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%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-delete! 'value: - (cons _%key106455%_ '())) + (cons _%key107587%_ '())) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'delete! - _%checked-hash-table::delete!104359%_ + _%checked-hash-table::delete!105491%_ '#f)) - (define _%checked-hash-table::for-each104362%_ - (lambda (_%self104361106305%_ _%proc106307%_) - (let* ((_%self106309%_ _%self104361106305%_) - (_%self106311%_ _%self106309%_)) + (define _%checked-hash-table::for-each105494%_ + (lambda (_%self105493107437%_ _%proc107439%_) + (let* ((_%self107441%_ _%self105493107437%_) + (_%self107443%_ _%self107441%_)) (declare (not safe)) - (let ((_%h106322%_ - (##unchecked-structure-ref _%self106311%_ '1 '#f '#f)) - (_%key?106324%_ - (##unchecked-structure-ref _%self106311%_ '2 '#f '#f))) - (if ((lambda (_%key?106327%_ _%proc106328%_) '#t) - _%key?106324%_ - _%proc106307%_) - (&HashTable-for-each _%h106322%_ _%proc106307%_) + (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%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-for-each 'value: - (cons _%proc106307%_ '())) + (cons _%proc107439%_ '())) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'for-each - _%checked-hash-table::for-each104362%_ + _%checked-hash-table::for-each105494%_ '#f)) - (define _%checked-hash-table::length104365%_ - (lambda (_%self104364106161%_) - (let* ((_%self106164%_ _%self104364106161%_) - (_%self106166%_ _%self106164%_)) + (define _%checked-hash-table::length105497%_ + (lambda (_%self105496107293%_) + (let* ((_%self107296%_ _%self105496107293%_) + (_%self107298%_ _%self107296%_)) (declare (not safe)) - (let ((_%h106177%_ - (##unchecked-structure-ref _%self106166%_ '1 '#f '#f)) - (_%key?106179%_ - (##unchecked-structure-ref _%self106166%_ '2 '#f '#f))) + (let ((_%h107309%_ + (##unchecked-structure-ref _%self107298%_ '1 '#f '#f)) + (_%key?107311%_ + (##unchecked-structure-ref _%self107298%_ '2 '#f '#f))) (if '#!void - (&HashTable-length _%h106177%_) + (&HashTable-length _%h107309%_) (begin (raise-contract-violation-error '"invalid key" @@ -1536,19 +1536,19 @@ (__bind-method!__% checked-hash-table::t 'length - _%checked-hash-table::length104365%_ + _%checked-hash-table::length105497%_ '#f)) - (define _%checked-hash-table::copy104368%_ - (lambda (_%self104367106017%_) - (let* ((_%self106020%_ _%self104367106017%_) - (_%self106022%_ _%self106020%_)) + (define _%checked-hash-table::copy105500%_ + (lambda (_%self105499107149%_) + (let* ((_%self107152%_ _%self105499107149%_) + (_%self107154%_ _%self107152%_)) (declare (not safe)) - (let ((_%h106033%_ - (##unchecked-structure-ref _%self106022%_ '1 '#f '#f)) - (_%key?106035%_ - (##unchecked-structure-ref _%self106022%_ '2 '#f '#f))) + (let ((_%h107165%_ + (##unchecked-structure-ref _%self107154%_ '1 '#f '#f)) + (_%key?107167%_ + (##unchecked-structure-ref _%self107154%_ '2 '#f '#f))) (if '#!void - (&HashTable-copy _%h106033%_) + (&HashTable-copy _%h107165%_) (begin (raise-contract-violation-error '"invalid key" @@ -1562,19 +1562,19 @@ (__bind-method!__% checked-hash-table::t 'copy - _%checked-hash-table::copy104368%_ + _%checked-hash-table::copy105500%_ '#f)) - (define _%checked-hash-table::clear!104371%_ - (lambda (_%self104370105873%_) - (let* ((_%self105876%_ _%self104370105873%_) - (_%self105878%_ _%self105876%_)) + (define _%checked-hash-table::clear!105503%_ + (lambda (_%self105502107005%_) + (let* ((_%self107008%_ _%self105502107005%_) + (_%self107010%_ _%self107008%_)) (declare (not safe)) - (let ((_%h105889%_ - (##unchecked-structure-ref _%self105878%_ '1 '#f '#f)) - (_%key?105891%_ - (##unchecked-structure-ref _%self105878%_ '2 '#f '#f))) + (let ((_%h107021%_ + (##unchecked-structure-ref _%self107010%_ '1 '#f '#f)) + (_%key?107023%_ + (##unchecked-structure-ref _%self107010%_ '2 '#f '#f))) (if '#!void - (&HashTable-clear! _%h105889%_) + (&HashTable-clear! _%h107021%_) (begin (raise-contract-violation-error '"invalid key" @@ -1588,394 +1588,394 @@ (__bind-method!__% checked-hash-table::t 'clear! - _%checked-hash-table::clear!104371%_ + _%checked-hash-table::clear!105503%_ '#f)) (define make-generic-hash-table - (lambda (_%table105743%_ - _%count105744%_ - _%free105745%_ - _%hash105746%_ - _%test105747%_ - _%seed105748%_) + (lambda (_%table106875%_ + _%count106876%_ + _%free106877%_ + _%hash106878%_ + _%test106879%_ + _%seed106880%_) (let () (declare (not safe)) (##structure hash-table::t - _%table105743%_ - _%count105744%_ - _%free105745%_ - _%hash105746%_ - _%test105747%_ - _%seed105748%_)))) + _%table106875%_ + _%count106876%_ + _%free106877%_ + _%hash106878%_ + _%test106879%_ + _%seed106880%_)))) (define make-hash-table__% - (lambda (_%@@keywords105504%_ - _%size-hint105494105505%_ - _%seed105495105507%_ - _%test105496105509%_ - _%hash105497105511%_ - _%lock105498105513%_ - _%check105499105515%_ - _%weak-keys105500105517%_ - _%weak-values105501105519%_) - (let* ((_%size-hint105522%_ - (if (eq? _%size-hint105494105505%_ absent-value) + (lambda (_%@@keywords106636%_ + _%size-hint106626106637%_ + _%seed106627106639%_ + _%test106628106641%_ + _%hash106629106643%_ + _%lock106630106645%_ + _%check106631106647%_ + _%weak-keys106632106649%_ + _%weak-values106633106651%_) + (let* ((_%size-hint106654%_ + (if (eq? _%size-hint106626106637%_ absent-value) '#f - _%size-hint105494105505%_)) - (_%seed105524%_ - (if (eq? _%seed105495105507%_ absent-value) + _%size-hint106626106637%_)) + (_%seed106656%_ + (if (eq? _%seed106627106639%_ absent-value) '#f - _%seed105495105507%_)) - (_%test105526%_ - (if (eq? _%test105496105509%_ absent-value) + _%seed106627106639%_)) + (_%test106658%_ + (if (eq? _%test106628106641%_ absent-value) equal? - _%test105496105509%_)) - (_%hash105528%_ - (if (eq? _%hash105497105511%_ absent-value) + _%test106628106641%_)) + (_%hash106660%_ + (if (eq? _%hash106629106643%_ absent-value) '#f - _%hash105497105511%_)) - (_%lock105530%_ - (if (eq? _%lock105498105513%_ absent-value) + _%hash106629106643%_)) + (_%lock106662%_ + (if (eq? _%lock106630106645%_ absent-value) '#f - _%lock105498105513%_)) - (_%check105532%_ - (if (eq? _%check105499105515%_ absent-value) + _%lock106630106645%_)) + (_%check106664%_ + (if (eq? _%check106631106647%_ absent-value) '#f - _%check105499105515%_)) - (_%weak-keys105534%_ - (if (eq? _%weak-keys105500105517%_ absent-value) + _%check106631106647%_)) + (_%weak-keys106666%_ + (if (eq? _%weak-keys106632106649%_ absent-value) '#f - _%weak-keys105500105517%_)) - (_%weak-values105536%_ - (if (eq? _%weak-values105501105519%_ absent-value) + _%weak-keys106632106649%_)) + (_%weak-values106668%_ + (if (eq? _%weak-values106633106651%_ absent-value) '#f - _%weak-values105501105519%_))) - (letrec ((_%table-seed105539%_ + _%weak-values106633106651%_))) + (letrec ((_%table-seed106671%_ (lambda () - (if (fixnum? _%seed105524%_) - _%seed105524%_ + (if (fixnum? _%seed106656%_) + _%seed106656%_ (random-integer (macro-max-fixnum32))))) - (_%wrap-lock105540%_ - (lambda (_%ht105717%_) - (let ((_%ht105720%_ _%ht105717%_)) - (_%__wrap-lock105541%_ _%ht105720%_)))) - (_%__wrap-lock105541%_ - (lambda (_%ht105699%_) - (let ((_%ht105702%_ _%ht105699%_)) - (if _%lock105530%_ - (let ((_%$obj105714%_ - (let ((__tmp108868 - (let ((_%$obj105711%_ - _%lock105530%_)) + (_%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%_)) (if (and (let () (declare (not safe)) (##structure? - _%$obj105711%_)) + _%$obj106843%_)) (eq? Locker::t (let () (declare (not safe)) (##structure-type - _%$obj105711%_))) + _%$obj106843%_))) '#t) - _%$obj105711%_ + _%$obj106843%_ (let () (declare (not safe)) (cast Locker::interface - _%$obj105711%_)))))) + _%$obj106843%_)))))) (declare (not safe)) (##structure locked-hash-table::t - _%ht105702%_ - __tmp108868)))) + _%ht106834%_ + __tmp110000)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj105714%_)) + (##structure? _%$obj106846%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj105714%_))) + _%$obj106846%_))) '#t) - _%$obj105714%_ + _%$obj106846%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj105714%_)))) - _%ht105702%_)))) - (_%wrap-checked105542%_ - (lambda (_%ht105686%_ _%implicit105687%_) - (let ((_%ht105690%_ _%ht105686%_)) - (_%__wrap-checked105543%_ - _%ht105690%_ - _%implicit105687%_)))) - (_%__wrap-checked105543%_ - (lambda (_%ht105659%_ _%implicit105660%_) - (let ((_%ht105663%_ _%ht105659%_)) - (if _%check105532%_ - (let ((_%$obj105683%_ - (let ((__tmp108869 - (if (procedure? _%check105532%_) - _%check105532%_ - _%implicit105660%_))) + _%$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%_))) (declare (not safe)) (##structure checked-hash-table::t - _%ht105663%_ - __tmp108869)))) + _%ht106795%_ + __tmp110001)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj105683%_)) + (##structure? _%$obj106815%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj105683%_))) + _%$obj106815%_))) '#t) - _%$obj105683%_ + _%$obj106815%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj105683%_)))) - _%ht105663%_)))) - (_%make105544%_ - (lambda (_%kons105643%_ - _%key?105644%_ - _%hash105645%_ - _%test105646%_) - (let* ((_%size105649%_ + _%$obj106815%_)))) + _%ht106795%_)))) + (_%make106676%_ + (lambda (_%kons106775%_ + _%key?106776%_ + _%hash106777%_ + _%test106778%_) + (let* ((_%size106781%_ (let () (declare (not safe)) (raw-table-size-hint->size - _%size-hint105522%_))) - (_%table105651%_ - (let ((__tmp108870 (macro-unused-obj))) + _%size-hint106654%_))) + (_%table106783%_ + (let ((__tmp110002 (macro-unused-obj))) (declare (not safe)) - (##make-vector _%size105649%_ __tmp108870))) - (_%ht105656%_ - (let ((_%$obj105653%_ - (_%kons105643%_ - _%table105651%_ + (##make-vector _%size106781%_ __tmp110002))) + (_%ht106788%_ + (let ((_%$obj106785%_ + (_%kons106775%_ + _%table106783%_ '0 (let () (declare (not safe)) - (##fxquotient _%size105649%_ '2)) - _%hash105645%_ - _%test105646%_ - (_%table-seed105539%_)))) + (##fxquotient _%size106781%_ '2)) + _%hash106777%_ + _%test106778%_ + (_%table-seed106671%_)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj105653%_)) + (##structure? _%$obj106785%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj105653%_))) + _%$obj106785%_))) '#t) - _%$obj105653%_ + _%$obj106785%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj105653%_)))))) - (_%__wrap-checked105543%_ - (_%__wrap-lock105541%_ _%ht105656%_) - _%key?105644%_)))) - (_%make-gc-hash-table105545%_ + _%$obj106785%_)))))) + (_%__wrap-checked106675%_ + (_%__wrap-lock106673%_ _%ht106788%_) + _%key?106776%_)))) + (_%make-gc-hash-table106677%_ (lambda () - (let ((_%ht105641%_ - (let ((_%$obj105638%_ + (let ((_%ht106773%_ + (let ((_%$obj106770%_ (let () (declare (not safe)) (make-gc-table__1 - _%size-hint105522%_ + _%size-hint106654%_ gc-hash-table::t)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj105638%_)) + (##structure? _%$obj106770%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj105638%_))) + _%$obj106770%_))) '#t) - _%$obj105638%_ + _%$obj106770%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj105638%_)))))) - (_%__wrap-checked105543%_ - (_%__wrap-lock105541%_ _%ht105641%_) + _%$obj106770%_)))))) + (_%__wrap-checked106675%_ + (_%__wrap-lock106673%_ _%ht106773%_) true)))) - (_%make-gambit-table105546%_ + (_%make-gambit-table106678%_ (lambda () - (let* ((_%size105615%_ - (let ((_%$e105612%_ _%size-hint105522%_)) - (if _%$e105612%_ - _%$e105612%_ + (let* ((_%size106747%_ + (let ((_%$e106744%_ _%size-hint106654%_)) + (if _%$e106744%_ + _%$e106744%_ (macro-absent-obj)))) - (_%test105620%_ - (let ((_%$e105617%_ _%test105526%_)) - (if _%$e105617%_ _%$e105617%_ equal?))) - (_%hash105628%_ - (let ((_%$e105622%_ _%hash105528%_)) - (if _%$e105622%_ - _%$e105622%_ - (if (eq? _%test105620%_ eq?) + (_%test106752%_ + (let ((_%$e106749%_ _%test106658%_)) + (if _%$e106749%_ _%$e106749%_ equal?))) + (_%hash106760%_ + (let ((_%$e106754%_ _%hash106660%_)) + (if _%$e106754%_ + _%$e106754%_ + (if (eq? _%test106752%_ eq?) eq?-hash - (if (eq? _%test105620%_ eqv?) + (if (eq? _%test106752%_ eqv?) eqv?-hash equal?-hash))))) - (_%ht105633%_ - (let ((_%$obj105630%_ + (_%ht106765%_ + (let ((_%$obj106762%_ (make-table 'size: - _%size105615%_ + _%size106747%_ 'test: - _%test105620%_ + _%test106752%_ 'hash: - _%hash105628%_ + _%hash106760%_ 'weak-keys: - _%weak-keys105534%_ + _%weak-keys106666%_ 'weak-values: - _%weak-values105536%_))) + _%weak-values106668%_))) (if (and (let () (declare (not safe)) - (##structure? _%$obj105630%_)) + (##structure? _%$obj106762%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj105630%_))) + _%$obj106762%_))) '#t) - _%$obj105630%_ + _%$obj106762%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj105630%_)))))) - (_%__wrap-checked105543%_ - (_%__wrap-lock105541%_ _%ht105633%_) + _%$obj106762%_)))))) + (_%__wrap-checked106675%_ + (_%__wrap-lock106673%_ _%ht106765%_) true))))) - (if (or _%weak-keys105534%_ _%weak-values105536%_) - (_%make-gambit-table105546%_) - (if (and (or (eq? _%test105526%_ eq?) - (eq? _%test105526%_ ##eq?)) - (or (not _%hash105528%_) - (eq? _%hash105528%_ eq?-hash) - (eq? _%hash105528%_ eq-hash)) - (not _%seed105524%_)) - (_%make-gc-hash-table105545%_) - (if (and (or (eq? _%test105526%_ eq?) - (eq? _%test105526%_ ##eq?)) - (or (not _%hash105528%_) - (eq? _%hash105528%_ eq?-hash) - (eq? _%hash105528%_ eq-hash))) - (_%make105544%_ make-eq-hash-table true eq-hash eq?) - (if (and (or (eq? _%test105526%_ eqv?) - (eq? _%test105526%_ ##eqv?)) - (or (not _%hash105528%_) - (eq? _%hash105528%_ eqv?-hash) - (eq? _%hash105528%_ eqv-hash))) - (_%make105544%_ + (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%_ make-eqv-hash-table true eqv-hash eqv?) - (if (and (or (eq? _%test105526%_ eq?) - (eq? _%test105526%_ ##eq?)) - (or (eq? _%hash105528%_ symbolic-hash) - (eq? _%hash105528%_ ##symbol-hash))) - (_%make105544%_ + (if (and (or (eq? _%test106658%_ eq?) + (eq? _%test106658%_ ##eq?)) + (or (eq? _%hash106660%_ symbolic-hash) + (eq? _%hash106660%_ ##symbol-hash))) + (_%make106676%_ make-symbol-hash-table symbolic? symbolic-hash eq?) - (if (and (or (eq? _%test105526%_ eq?) - (eq? _%test105526%_ ##eq?)) - (eq? _%hash105528%_ immediate-hash)) - (_%make105544%_ + (if (and (or (eq? _%test106658%_ eq?) + (eq? _%test106658%_ ##eq?)) + (eq? _%hash106660%_ immediate-hash)) + (_%make106676%_ make-immediate-hash-table immediate? immediate-hash eq?) - (if (and (or (eq? _%test105526%_ equal?) - (eq? _%test105526%_ ##equal?) - (eq? _%test105526%_ string=?) - (eq? _%test105526%_ + (if (and (or (eq? _%test106658%_ equal?) + (eq? _%test106658%_ ##equal?) + (eq? _%test106658%_ string=?) + (eq? _%test106658%_ ##string=?)) - (or (eq? _%hash105528%_ + (or (eq? _%hash106660%_ string-hash) - (eq? _%hash105528%_ + (eq? _%hash106660%_ ##string=?-hash))) - (_%make105544%_ + (_%make106676%_ make-string-hash-table string? string-hash ##string=?) - (if (and (eq? _%test105526%_ equal?) - (not _%hash105528%_)) - (_%make105544%_ + (if (and (eq? _%test106658%_ equal?) + (not _%hash106660%_)) + (_%make106676%_ make-generic-hash-table true equal?-hash equal?) - (if (procedure? _%test105526%_) - (if (procedure? _%hash105528%_) - (_%make105544%_ + (if (procedure? _%test106658%_) + (if (procedure? _%hash106660%_) + (_%make106676%_ make-generic-hash-table true - _%hash105528%_ - _%test105526%_) + _%hash106660%_ + _%test106658%_) (let () (let () (declare (not safe)) (error '"bad hash table hash function; expected procedure" - _%hash105528%_)) + _%hash106660%_)) '#!void)) (let () (let () (declare (not safe)) (error '"bad hash table test function; expected procedure" - _%test105526%_)) + _%test106658%_)) '#!void)))))))))))))) (define make-hash-table__@ - (lambda (_%@@keywords105733%_ . _%args105734%_) + (lambda (_%@@keywords106865%_ . _%args106866%_) (apply make-hash-table__% - _%@@keywords105733%_ + _%@@keywords106865%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords105733%_ 'size: absent-value)) + (symbolic-table-ref _%@@keywords106865%_ 'size: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords105733%_ 'seed: absent-value)) + (symbolic-table-ref _%@@keywords106865%_ 'seed: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords105733%_ 'test: absent-value)) + (symbolic-table-ref _%@@keywords106865%_ 'test: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords105733%_ 'hash: absent-value)) + (symbolic-table-ref _%@@keywords106865%_ 'hash: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords105733%_ 'lock: absent-value)) + (symbolic-table-ref _%@@keywords106865%_ 'lock: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords105733%_ + _%@@keywords106865%_ 'check: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords105733%_ + _%@@keywords106865%_ 'weak-keys: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords105733%_ + _%@@keywords106865%_ 'weak-values: absent-value)) - _%args105734%_))) + _%args106866%_))) (define make-hash-table - (lambda _%args105502105740%_ + (lambda _%args106634106872%_ (apply keyword-dispatch '#(#f #f @@ -2018,531 +2018,525 @@ #f #f) make-hash-table__@ - _%args105502105740%_))) + _%args106634106872%_))) (define make-hash-table-eq - (lambda _%args105491%_ - (apply make-hash-table 'test: eq? _%args105491%_))) + (lambda _%args106623%_ + (apply make-hash-table 'test: eq? _%args106623%_))) (define make-hash-table-eqv - (lambda _%args105489%_ - (apply make-hash-table 'test: eqv? _%args105489%_))) + (lambda _%args106621%_ + (apply make-hash-table 'test: eqv? _%args106621%_))) (define make-hash-table-symbolic - (lambda _%args105487%_ + (lambda _%args106619%_ (apply make-hash-table 'test: eq? 'hash: symbolic-hash - _%args105487%_))) + _%args106619%_))) (define make-hash-table-string - (lambda _%args105485%_ + (lambda _%args106617%_ (apply make-hash-table 'test: string=? 'hash: string-hash - _%args105485%_))) + _%args106617%_))) (define make-hash-table-immediate - (lambda _%args105483%_ + (lambda _%args106615%_ (apply make-hash-table 'test: eq? 'hash: immediate-hash - _%args105483%_))) + _%args106615%_))) (define list->hash-table - (lambda (_%lst105480%_ . _%args105481%_) + (lambda (_%lst106612%_ . _%args106613%_) (list->hash-table! - _%lst105480%_ + _%lst106612%_ (apply make-hash-table 'size: - (length _%lst105480%_) - _%args105481%_)))) + (length _%lst106612%_) + _%args106613%_)))) (define list->hash-table-eq - (lambda (_%lst105477%_ . _%args105478%_) + (lambda (_%lst106609%_ . _%args106610%_) (list->hash-table! - _%lst105477%_ + _%lst106609%_ (apply make-hash-table-eq 'size: - (length _%lst105477%_) - _%args105478%_)))) + (length _%lst106609%_) + _%args106610%_)))) (define list->hash-table-eqv - (lambda (_%lst105474%_ . _%args105475%_) + (lambda (_%lst106606%_ . _%args106607%_) (list->hash-table! - _%lst105474%_ + _%lst106606%_ (apply make-hash-table-eqv 'size: - (length _%lst105474%_) - _%args105475%_)))) + (length _%lst106606%_) + _%args106607%_)))) (define list->hash-table-symbolic - (lambda (_%lst105471%_ . _%args105472%_) + (lambda (_%lst106603%_ . _%args106604%_) (list->hash-table! - _%lst105471%_ + _%lst106603%_ (apply make-hash-table-symbolic 'size: - (length _%lst105471%_) - _%args105472%_)))) + (length _%lst106603%_) + _%args106604%_)))) (define list->hash-table-string - (lambda (_%lst105468%_ . _%args105469%_) + (lambda (_%lst106600%_ . _%args106601%_) (list->hash-table! - _%lst105468%_ + _%lst106600%_ (apply make-hash-table-string 'size: - (length _%lst105468%_) - _%args105469%_)))) + (length _%lst106600%_) + _%args106601%_)))) (define list->hash-table-immediate - (lambda (_%lst105465%_ . _%args105466%_) + (lambda (_%lst106597%_ . _%args106598%_) (list->hash-table! - _%lst105465%_ + _%lst106597%_ (apply make-hash-table-immediate 'size: - (length _%lst105465%_) - _%args105466%_)))) + (length _%lst106597%_) + _%args106598%_)))) (define list->hash-table! - (lambda (_%lst105432%_ _%h105433%_) + (lambda (_%lst106564%_ _%h106565%_) (for-each - (lambda (_%el105435%_) - (let* ((_%el105436105443%_ _%el105435%_) - (_%E105438105447%_ + (lambda (_%el106567%_) + (let* ((_%el106568106575%_ _%el106567%_) + (_%E106570106579%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%el105436105443%_ + _%el106568106575%_ '([k . v]))) '#!void)) - (_%K105439105453%_ - (lambda (_%v105450%_ _%k105451%_) - (&HashTable-set! _%h105433%_ _%k105451%_ _%v105450%_)))) - (if (let () (declare (not safe)) (##pair? _%el105436105443%_)) - (let ((_%hd105440105456%_ + (_%K106571106585%_ + (lambda (_%v106582%_ _%k106583%_) + (&HashTable-set! _%h106565%_ _%k106583%_ _%v106582%_)))) + (if (pair? _%el106568106575%_) + (let ((_%hd106572106588%_ (let () (declare (not safe)) - (##car _%el105436105443%_))) - (_%tl105441105458%_ + (##car _%el106568106575%_))) + (_%tl106573106590%_ (let () (declare (not safe)) - (##cdr _%el105436105443%_)))) - (let* ((_%k105461%_ _%hd105440105456%_) - (_%v105463%_ _%tl105441105458%_)) - (_%K105439105453%_ _%v105463%_ _%k105461%_))) - (_%E105438105447%_)))) - _%lst105432%_) - _%h105433%_)) + (##cdr _%el106568106575%_)))) + (let* ((_%k106593%_ _%hd106572106588%_) + (_%v106595%_ _%tl106573106590%_)) + (_%K106571106585%_ _%v106595%_ _%k106593%_))) + (_%E106570106579%_)))) + _%lst106564%_) + _%h106565%_)) (define plist->hash-table - (lambda (_%lst105429%_ . _%args105430%_) + (lambda (_%lst106561%_ . _%args106562%_) (plist->hash-table! - _%lst105429%_ + _%lst106561%_ (apply make-hash-table 'size: - (length _%lst105429%_) - _%args105430%_)))) + (length _%lst106561%_) + _%args106562%_)))) (define plist->hash-table-eq - (lambda (_%lst105426%_ . _%args105427%_) + (lambda (_%lst106558%_ . _%args106559%_) (plist->hash-table! - _%lst105426%_ + _%lst106558%_ (apply make-hash-table-eq 'size: - (length _%lst105426%_) - _%args105427%_)))) + (length _%lst106558%_) + _%args106559%_)))) (define plist->hash-table-eqv - (lambda (_%lst105423%_ . _%args105424%_) + (lambda (_%lst106555%_ . _%args106556%_) (plist->hash-table! - _%lst105423%_ + _%lst106555%_ (apply make-hash-table-eqv 'size: - (length _%lst105423%_) - _%args105424%_)))) + (length _%lst106555%_) + _%args106556%_)))) (define plist->hash-table-symbolic - (lambda (_%lst105420%_ . _%args105421%_) + (lambda (_%lst106552%_ . _%args106553%_) (plist->hash-table! - _%lst105420%_ + _%lst106552%_ (apply make-hash-table-symbolic 'size: - (length _%lst105420%_) - _%args105421%_)))) + (length _%lst106552%_) + _%args106553%_)))) (define plist->hash-table-string - (lambda (_%lst105417%_ . _%args105418%_) + (lambda (_%lst106549%_ . _%args106550%_) (plist->hash-table! - _%lst105417%_ + _%lst106549%_ (apply make-hash-table-string 'size: - (length _%lst105417%_) - _%args105418%_)))) + (length _%lst106549%_) + _%args106550%_)))) (define plist->hash-table-immediate - (lambda (_%lst105414%_ . _%args105415%_) + (lambda (_%lst106546%_ . _%args106547%_) (plist->hash-table! - _%lst105414%_ + _%lst106546%_ (apply make-hash-table-immediate 'size: - (length _%lst105414%_) - _%args105415%_)))) + (length _%lst106546%_) + _%args106547%_)))) (define plist->hash-table! - (lambda (_%lst105354%_ _%h105355%_) - (let _%loop105357%_ ((_%rest105359%_ _%lst105354%_)) - (let* ((_%rest105360105372%_ _%rest105359%_) - (_%else105363105380%_ + (lambda (_%lst106486%_ _%h106487%_) + (let _%loop106489%_ ((_%rest106491%_ _%lst106486%_)) + (let* ((_%rest106492106504%_ _%rest106491%_) + (_%else106495106512%_ (lambda () (let () (declare (not safe)) (error '"bad property list -- uneven list" - _%lst105354%_))))) - (let ((_%K105366105395%_ - (lambda (_%rest105391%_ _%val105392%_ _%key105393%_) - (&HashTable-set! _%h105355%_ _%key105393%_ _%val105392%_) - (_%loop105357%_ _%rest105391%_))) - (_%K105365105385%_ (lambda () _%h105355%_))) - (let ((_%try-match105362105388%_ + _%lst106486%_))))) + (let ((_%K106498106527%_ + (lambda (_%rest106523%_ _%val106524%_ _%key106525%_) + (&HashTable-set! _%h106487%_ _%key106525%_ _%val106524%_) + (_%loop106489%_ _%rest106523%_))) + (_%K106497106517%_ (lambda () _%h106487%_))) + (let ((_%try-match106494106520%_ (lambda () - (if (let () - (declare (not safe)) - (##null? _%rest105360105372%_)) - (_%K105365105385%_) - (_%else105363105380%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest105360105372%_)) - (let ((_%tl105368105400%_ + (if (null? _%rest106492106504%_) + (_%K106497106517%_) + (_%else106495106512%_))))) + (if (pair? _%rest106492106504%_) + (let ((_%tl106500106532%_ (let () (declare (not safe)) - (##cdr _%rest105360105372%_))) - (_%hd105367105398%_ + (##cdr _%rest106492106504%_))) + (_%hd106499106530%_ (let () (declare (not safe)) - (##car _%rest105360105372%_)))) - (if (let () - (declare (not safe)) - (##pair? _%tl105368105400%_)) - (let ((_%tl105370105407%_ + (##car _%rest106492106504%_)))) + (if (pair? _%tl106500106532%_) + (let ((_%tl106502106539%_ (let () (declare (not safe)) - (##cdr _%tl105368105400%_))) - (_%hd105369105405%_ + (##cdr _%tl106500106532%_))) + (_%hd106501106537%_ (let () (declare (not safe)) - (##car _%tl105368105400%_)))) - (let ((_%key105403%_ _%hd105367105398%_) - (_%val105410%_ _%hd105369105405%_) - (_%rest105412%_ _%tl105370105407%_)) - (_%K105366105395%_ - _%rest105412%_ - _%val105410%_ - _%key105403%_))) - (_%else105363105380%_))) - (_%try-match105362105388%_)))))))) + (##car _%tl106500106532%_)))) + (let ((_%key106535%_ _%hd106499106530%_) + (_%val106542%_ _%hd106501106537%_) + (_%rest106544%_ _%tl106502106539%_)) + (_%K106498106527%_ + _%rest106544%_ + _%val106542%_ + _%key106535%_))) + (_%else106495106512%_))) + (_%try-match106494106520%_)))))))) (define hash-length - (lambda (_%h105336%_) - (let* ((_%h105342%_ - (let ((_%$obj105339%_ _%h105336%_)) + (lambda (_%h106468%_) + (let* ((_%h106474%_ + (let ((_%$obj106471%_ _%h106468%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105339%_)) + (##structure? _%$obj106471%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105339%_))) + (##structure-type _%$obj106471%_))) '#t) - _%$obj105339%_ + _%$obj106471%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105339%_))))) - (_%h105344%_ _%h105342%_)) - (__hash-length _%h105344%_)))) + (cast HashTable::interface _%$obj106471%_))))) + (_%h106476%_ _%h106474%_)) + (__hash-length _%h106476%_)))) (define __hash-length - (lambda (_%h105324%_) - (let ((_%h105327%_ _%h105324%_)) (__HashTable-length _%h105327%_)))) + (lambda (_%h106456%_) + (let ((_%h106459%_ _%h106456%_)) (__HashTable-length _%h106459%_)))) (define hash-ref__% - (lambda (_%h105292%_ _%key105293%_ _%default105294%_) - (let* ((_%h105300%_ - (let ((_%$obj105297%_ _%h105292%_)) + (lambda (_%h106424%_ _%key106425%_ _%default106426%_) + (let* ((_%h106432%_ + (let ((_%$obj106429%_ _%h106424%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105297%_)) + (##structure? _%$obj106429%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105297%_))) + (##structure-type _%$obj106429%_))) '#t) - _%$obj105297%_ + _%$obj106429%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105297%_))))) - (_%h105302%_ _%h105300%_)) - (__hash-ref__% _%h105302%_ _%key105293%_ _%default105294%_)))) + (cast HashTable::interface _%$obj106429%_))))) + (_%h106434%_ _%h106432%_)) + (__hash-ref__% _%h106434%_ _%key106425%_ _%default106426%_)))) (define hash-ref__0 - (lambda (_%h105315%_ _%key105316%_) - (let ((_%default105318%_ (macro-absent-obj))) - (hash-ref__% _%h105315%_ _%key105316%_ _%default105318%_)))) + (lambda (_%h106447%_ _%key106448%_) + (let ((_%default106450%_ (macro-absent-obj))) + (hash-ref__% _%h106447%_ _%key106448%_ _%default106450%_)))) (define hash-ref - (lambda _g108872_ - (let ((_g108871_ (let () (declare (not safe)) (##length _g108872_)))) - (cond ((let () (declare (not safe)) (##fx= _g108871_ 2)) - (apply hash-ref__0 _g108872_)) - ((let () (declare (not safe)) (##fx= _g108871_ 3)) - (apply hash-ref__% _g108872_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception hash-ref - _g108872_)))))) + _g110004_)))))) (define __hash-ref__% - (lambda (_%h105263%_ _%key105264%_ _%default105265%_) - (let* ((_%h105268%_ _%h105263%_) - (_%result105277%_ - (&HashTable-ref _%h105268%_ _%key105264%_ _%default105265%_))) - (if (eq? _%result105277%_ (macro-absent-obj)) + (lambda (_%h106395%_ _%key106396%_ _%default106397%_) + (let* ((_%h106400%_ _%h106395%_) + (_%result106409%_ + (&HashTable-ref _%h106400%_ _%key106396%_ _%default106397%_))) + (if (eq? _%result106409%_ (macro-absent-obj)) (raise-unbound-key-error 'hash-ref '"unknown hash key" 'hash: - _%h105268%_ + _%h106400%_ 'key: - _%key105264%_) - _%result105277%_)))) + _%key106396%_) + _%result106409%_)))) (define __hash-ref__0 - (lambda (_%h105282%_ _%key105283%_) - (let ((_%default105285%_ (macro-absent-obj))) - (__hash-ref__% _%h105282%_ _%key105283%_ _%default105285%_)))) + (lambda (_%h106414%_ _%key106415%_) + (let ((_%default106417%_ (macro-absent-obj))) + (__hash-ref__% _%h106414%_ _%key106415%_ _%default106417%_)))) (define __hash-ref - (lambda _g108874_ - (let ((_g108873_ (let () (declare (not safe)) (##length _g108874_)))) - (cond ((let () (declare (not safe)) (##fx= _g108873_ 2)) - (apply __hash-ref__0 _g108874_)) - ((let () (declare (not safe)) (##fx= _g108873_ 3)) - (apply __hash-ref__% _g108874_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __hash-ref - _g108874_)))))) + _g110006_)))))) (define hash-get - (lambda (_%h105243%_ _%key105244%_) - (let* ((_%h105250%_ - (let ((_%$obj105247%_ _%h105243%_)) + (lambda (_%h106375%_ _%key106376%_) + (let* ((_%h106382%_ + (let ((_%$obj106379%_ _%h106375%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105247%_)) + (##structure? _%$obj106379%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105247%_))) + (##structure-type _%$obj106379%_))) '#t) - _%$obj105247%_ + _%$obj106379%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105247%_))))) - (_%h105252%_ _%h105250%_)) - (__hash-get _%h105252%_ _%key105244%_)))) + (cast HashTable::interface _%$obj106379%_))))) + (_%h106384%_ _%h106382%_)) + (__hash-get _%h106384%_ _%key106376%_)))) (define __hash-get - (lambda (_%h105230%_ _%key105231%_) - (let ((_%h105234%_ _%h105230%_)) - (&HashTable-ref _%h105234%_ _%key105231%_ '#f)))) + (lambda (_%h106362%_ _%key106363%_) + (let ((_%h106366%_ _%h106362%_)) + (&HashTable-ref _%h106366%_ _%key106363%_ '#f)))) (define hash-put! - (lambda (_%h105210%_ _%key105211%_ _%value105212%_) - (let* ((_%h105218%_ - (let ((_%$obj105215%_ _%h105210%_)) + (lambda (_%h106342%_ _%key106343%_ _%value106344%_) + (let* ((_%h106350%_ + (let ((_%$obj106347%_ _%h106342%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105215%_)) + (##structure? _%$obj106347%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105215%_))) + (##structure-type _%$obj106347%_))) '#t) - _%$obj105215%_ + _%$obj106347%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105215%_))))) - (_%h105220%_ _%h105218%_)) - (__hash-put! _%h105220%_ _%key105211%_ _%value105212%_)))) + (cast HashTable::interface _%$obj106347%_))))) + (_%h106352%_ _%h106350%_)) + (__hash-put! _%h106352%_ _%key106343%_ _%value106344%_)))) (define __hash-put! - (lambda (_%h105196%_ _%key105197%_ _%value105198%_) - (let ((_%h105201%_ _%h105196%_)) - (&HashTable-set! _%h105201%_ _%key105197%_ _%value105198%_)))) + (lambda (_%h106328%_ _%key106329%_ _%value106330%_) + (let ((_%h106333%_ _%h106328%_)) + (&HashTable-set! _%h106333%_ _%key106329%_ _%value106330%_)))) (define hash-update!__% - (lambda (_%h105161%_ _%key105162%_ _%update105163%_ _%default105164%_) - (let* ((_%h105170%_ - (let ((_%$obj105167%_ _%h105161%_)) + (lambda (_%h106293%_ _%key106294%_ _%update106295%_ _%default106296%_) + (let* ((_%h106302%_ + (let ((_%$obj106299%_ _%h106293%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105167%_)) + (##structure? _%$obj106299%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105167%_))) + (##structure-type _%$obj106299%_))) '#t) - _%$obj105167%_ + _%$obj106299%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105167%_))))) - (_%h105172%_ _%h105170%_)) + (cast HashTable::interface _%$obj106299%_))))) + (_%h106304%_ _%h106302%_)) (__hash-update!__% - _%h105172%_ - _%key105162%_ - _%update105163%_ - _%default105164%_)))) + _%h106304%_ + _%key106294%_ + _%update106295%_ + _%default106296%_)))) (define hash-update!__0 - (lambda (_%h105185%_ _%key105186%_ _%update105187%_) - (let ((_%default105189%_ '#!void)) + (lambda (_%h106317%_ _%key106318%_ _%update106319%_) + (let ((_%default106321%_ '#!void)) (hash-update!__% - _%h105185%_ - _%key105186%_ - _%update105187%_ - _%default105189%_)))) + _%h106317%_ + _%key106318%_ + _%update106319%_ + _%default106321%_)))) (define hash-update! - (lambda _g108876_ - (let ((_g108875_ (let () (declare (not safe)) (##length _g108876_)))) - (cond ((let () (declare (not safe)) (##fx= _g108875_ 3)) - (apply hash-update!__0 _g108876_)) - ((let () (declare (not safe)) (##fx= _g108875_ 4)) - (apply hash-update!__% _g108876_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g108876_)))))) + _g110008_)))))) (define __hash-update!__% - (lambda (_%h105131%_ _%key105132%_ _%update105133%_ _%default105134%_) - (let ((_%h105137%_ _%h105131%_)) + (lambda (_%h106263%_ _%key106264%_ _%update106265%_ _%default106266%_) + (let ((_%h106269%_ _%h106263%_)) (HashTable-update! - _%h105137%_ - _%key105132%_ - _%update105133%_ - _%default105134%_)))) + _%h106269%_ + _%key106264%_ + _%update106265%_ + _%default106266%_)))) (define __hash-update!__0 - (lambda (_%h105149%_ _%key105150%_ _%update105151%_) - (let ((_%default105153%_ '#!void)) + (lambda (_%h106281%_ _%key106282%_ _%update106283%_) + (let ((_%default106285%_ '#!void)) (__hash-update!__% - _%h105149%_ - _%key105150%_ - _%update105151%_ - _%default105153%_)))) + _%h106281%_ + _%key106282%_ + _%update106283%_ + _%default106285%_)))) (define __hash-update! - (lambda _g108878_ - (let ((_g108877_ (let () (declare (not safe)) (##length _g108878_)))) - (cond ((let () (declare (not safe)) (##fx= _g108877_ 3)) - (apply __hash-update!__0 _g108878_)) - ((let () (declare (not safe)) (##fx= _g108877_ 4)) - (apply __hash-update!__% _g108878_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __hash-update! - _g108878_)))))) + _g110010_)))))) (define hash-remove! - (lambda (_%h105111%_ _%key105112%_) - (let* ((_%h105118%_ - (let ((_%$obj105115%_ _%h105111%_)) + (lambda (_%h106243%_ _%key106244%_) + (let* ((_%h106250%_ + (let ((_%$obj106247%_ _%h106243%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105115%_)) + (##structure? _%$obj106247%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105115%_))) + (##structure-type _%$obj106247%_))) '#t) - _%$obj105115%_ + _%$obj106247%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105115%_))))) - (_%h105120%_ _%h105118%_)) - (__hash-remove! _%h105120%_ _%key105112%_)))) + (cast HashTable::interface _%$obj106247%_))))) + (_%h106252%_ _%h106250%_)) + (__hash-remove! _%h106252%_ _%key106244%_)))) (define __hash-remove! - (lambda (_%h105098%_ _%key105099%_) - (let ((_%h105102%_ _%h105098%_)) - (&HashTable-delete! _%h105102%_ _%key105099%_)))) + (lambda (_%h106230%_ _%key106231%_) + (let ((_%h106234%_ _%h106230%_)) + (&HashTable-delete! _%h106234%_ _%key106231%_)))) (define hash-key? - (lambda (_%h105079%_ _%k105080%_) - (let* ((_%h105086%_ - (let ((_%$obj105083%_ _%h105079%_)) + (lambda (_%h106211%_ _%k106212%_) + (let* ((_%h106218%_ + (let ((_%$obj106215%_ _%h106211%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105083%_)) + (##structure? _%$obj106215%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105083%_))) + (##structure-type _%$obj106215%_))) '#t) - _%$obj105083%_ + _%$obj106215%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105083%_))))) - (_%h105088%_ _%h105086%_)) - (__hash-key? _%h105088%_ _%k105080%_)))) + (cast HashTable::interface _%$obj106215%_))))) + (_%h106220%_ _%h106218%_)) + (__hash-key? _%h106220%_ _%k106212%_)))) (define __hash-key? - (lambda (_%h105066%_ _%k105067%_) - (let ((_%h105070%_ _%h105066%_)) - (not (eq? (&HashTable-ref _%h105070%_ _%k105067%_ absent-value) + (lambda (_%h106198%_ _%k106199%_) + (let ((_%h106202%_ _%h106198%_)) + (not (eq? (&HashTable-ref _%h106202%_ _%k106199%_ absent-value) absent-value))))) (define hash->list - (lambda (_%h105048%_) - (let* ((_%h105054%_ - (let ((_%$obj105051%_ _%h105048%_)) + (lambda (_%h106180%_) + (let* ((_%h106186%_ + (let ((_%$obj106183%_ _%h106180%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105051%_)) + (##structure? _%$obj106183%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105051%_))) + (##structure-type _%$obj106183%_))) '#t) - _%$obj105051%_ + _%$obj106183%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105051%_))))) - (_%h105056%_ _%h105054%_)) - (__hash->list _%h105056%_)))) + (cast HashTable::interface _%$obj106183%_))))) + (_%h106188%_ _%h106186%_)) + (__hash->list _%h106188%_)))) (define __hash->list - (lambda (_%h105031%_) - (let* ((_%h105034%_ _%h105031%_) (_%lst105043%_ '())) + (lambda (_%h106163%_) + (let* ((_%h106166%_ _%h106163%_) (_%lst106175%_ '())) (&HashTable-for-each - _%h105034%_ - (lambda (_%k105045%_ _%v105046%_) - (set! _%lst105043%_ - (cons (cons _%k105045%_ _%v105046%_) _%lst105043%_)))) - _%lst105043%_))) + _%h106166%_ + (lambda (_%k106177%_ _%v106178%_) + (set! _%lst106175%_ + (cons (cons _%k106177%_ _%v106178%_) _%lst106175%_)))) + _%lst106175%_))) (define hash->plist - (lambda (_%h105013%_) - (let* ((_%h105019%_ - (let ((_%$obj105016%_ _%h105013%_)) + (lambda (_%h106145%_) + (let* ((_%h106151%_ + (let ((_%$obj106148%_ _%h106145%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105016%_)) + (##structure? _%$obj106148%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105016%_))) + (##structure-type _%$obj106148%_))) '#t) - _%$obj105016%_ + _%$obj106148%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105016%_))))) - (_%h105021%_ _%h105019%_)) - (__hash->plist _%h105021%_)))) + (cast HashTable::interface _%$obj106148%_))))) + (_%h106153%_ _%h106151%_)) + (__hash->plist _%h106153%_)))) (define __hash->plist - (lambda (_%h104996%_) - (let* ((_%h104999%_ _%h104996%_) (_%lst105008%_ '())) + (lambda (_%h106128%_) + (let* ((_%h106131%_ _%h106128%_) (_%lst106140%_ '())) (&HashTable-for-each - _%h104999%_ - (lambda (_%k105010%_ _%v105011%_) - (set! _%lst105008%_ - (cons _%k105010%_ (cons _%v105011%_ _%lst105008%_))))) - _%lst105008%_))) + _%h106131%_ + (lambda (_%k106142%_ _%v106143%_) + (set! _%lst106140%_ + (cons _%k106142%_ (cons _%v106143%_ _%lst106140%_))))) + _%lst106140%_))) (define hash-for-each - (lambda (_%proc104967%_ _%h104968%_) - (if (procedure? _%proc104967%_) - (let* ((_%proc104972%_ _%proc104967%_) - (_%h104984%_ - (let ((_%$obj104981%_ _%h104968%_)) + (lambda (_%proc106099%_ _%h106100%_) + (if (procedure? _%proc106099%_) + (let* ((_%proc106104%_ _%proc106099%_) + (_%h106116%_ + (let ((_%$obj106113%_ _%h106100%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104981%_)) + (##structure? _%$obj106113%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104981%_))) + (##structure-type _%$obj106113%_))) '#t) - _%$obj104981%_ + _%$obj106113%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104981%_))))) - (_%h104986%_ _%h104984%_)) - (__hash-for-each _%proc104972%_ _%h104986%_)) + (cast HashTable::interface _%$obj106113%_))))) + (_%h106118%_ _%h106116%_)) + (__hash-for-each _%proc106104%_ _%h106118%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2551,32 +2545,32 @@ 'contract: 'procedure? 'value: - _%proc104967%_) + _%proc106099%_) '#!void)))) (define __hash-for-each - (lambda (_%proc104946%_ _%h104947%_) - (let* ((_%proc104950%_ _%proc104946%_) (_%h104958%_ _%h104947%_)) - (&HashTable-for-each _%h104958%_ _%proc104950%_)))) + (lambda (_%proc106078%_ _%h106079%_) + (let* ((_%proc106082%_ _%proc106078%_) (_%h106090%_ _%h106079%_)) + (&HashTable-for-each _%h106090%_ _%proc106082%_)))) (define hash-map - (lambda (_%proc104917%_ _%h104918%_) - (if (procedure? _%proc104917%_) - (let* ((_%proc104922%_ _%proc104917%_) - (_%h104934%_ - (let ((_%$obj104931%_ _%h104918%_)) + (lambda (_%proc106049%_ _%h106050%_) + (if (procedure? _%proc106049%_) + (let* ((_%proc106054%_ _%proc106049%_) + (_%h106066%_ + (let ((_%$obj106063%_ _%h106050%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104931%_)) + (##structure? _%$obj106063%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104931%_))) + (##structure-type _%$obj106063%_))) '#t) - _%$obj104931%_ + _%$obj106063%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104931%_))))) - (_%h104936%_ _%h104934%_)) - (__hash-map _%proc104922%_ _%h104936%_)) + (cast HashTable::interface _%$obj106063%_))))) + (_%h106068%_ _%h106066%_)) + (__hash-map _%proc106054%_ _%h106068%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2585,42 +2579,42 @@ 'contract: 'procedure? 'value: - _%proc104917%_) + _%proc106049%_) '#!void)))) (define __hash-map - (lambda (_%proc104891%_ _%h104892%_) - (let* ((_%proc104895%_ _%proc104891%_) - (_%h104903%_ _%h104892%_) - (_%result104912%_ '())) + (lambda (_%proc106023%_ _%h106024%_) + (let* ((_%proc106027%_ _%proc106023%_) + (_%h106035%_ _%h106024%_) + (_%result106044%_ '())) (&HashTable-for-each - _%h104903%_ - (lambda (_%k104914%_ _%v104915%_) - (set! _%result104912%_ + _%h106035%_ + (lambda (_%k106046%_ _%v106047%_) + (set! _%result106044%_ (cons (let () (declare (not safe)) - (_%proc104895%_ _%k104914%_ _%v104915%_)) - _%result104912%_)))) - _%result104912%_))) + (_%proc106027%_ _%k106046%_ _%v106047%_)) + _%result106044%_)))) + _%result106044%_))) (define hash-fold - (lambda (_%proc104861%_ _%iv104862%_ _%h104863%_) - (if (procedure? _%proc104861%_) - (let* ((_%proc104867%_ _%proc104861%_) - (_%h104879%_ - (let ((_%$obj104876%_ _%h104863%_)) + (lambda (_%proc105993%_ _%iv105994%_ _%h105995%_) + (if (procedure? _%proc105993%_) + (let* ((_%proc105999%_ _%proc105993%_) + (_%h106011%_ + (let ((_%$obj106008%_ _%h105995%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104876%_)) + (##structure? _%$obj106008%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104876%_))) + (##structure-type _%$obj106008%_))) '#t) - _%$obj104876%_ + _%$obj106008%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104876%_))))) - (_%h104881%_ _%h104879%_)) - (__hash-fold _%proc104867%_ _%iv104862%_ _%h104881%_)) + (cast HashTable::interface _%$obj106008%_))))) + (_%h106013%_ _%h106011%_)) + (__hash-fold _%proc105999%_ _%iv105994%_ _%h106013%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2629,47 +2623,47 @@ 'contract: 'procedure? 'value: - _%proc104861%_) + _%proc105993%_) '#!void)))) (define __hash-fold - (lambda (_%proc104834%_ _%iv104835%_ _%h104836%_) - (let* ((_%proc104839%_ _%proc104834%_) - (_%h104847%_ _%h104836%_) - (_%result104856%_ _%iv104835%_)) + (lambda (_%proc105966%_ _%iv105967%_ _%h105968%_) + (let* ((_%proc105971%_ _%proc105966%_) + (_%h105979%_ _%h105968%_) + (_%result105988%_ _%iv105967%_)) (&HashTable-for-each - _%h104847%_ - (lambda (_%k104858%_ _%v104859%_) - (set! _%result104856%_ + _%h105979%_ + (lambda (_%k105990%_ _%v105991%_) + (set! _%result105988%_ (let () (declare (not safe)) - (_%proc104839%_ - _%k104858%_ - _%v104859%_ - _%result104856%_))))) - _%result104856%_))) + (_%proc105971%_ + _%k105990%_ + _%v105991%_ + _%result105988%_))))) + _%result105988%_))) (define hash-find__% - (lambda (_%proc104792%_ _%h104793%_ _%default-value104794%_) - (if (procedure? _%proc104792%_) - (let* ((_%proc104798%_ _%proc104792%_) - (_%h104810%_ - (let ((_%$obj104807%_ _%h104793%_)) + (lambda (_%proc105924%_ _%h105925%_ _%default-value105926%_) + (if (procedure? _%proc105924%_) + (let* ((_%proc105930%_ _%proc105924%_) + (_%h105942%_ + (let ((_%$obj105939%_ _%h105925%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104807%_)) + (##structure? _%$obj105939%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104807%_))) + (##structure-type _%$obj105939%_))) '#t) - _%$obj104807%_ + _%$obj105939%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104807%_))))) - (_%h104812%_ _%h104810%_)) + (cast HashTable::interface _%$obj105939%_))))) + (_%h105944%_ _%h105942%_)) (__hash-find__% - _%proc104798%_ - _%h104812%_ - _%default-value104794%_)) + _%proc105930%_ + _%h105944%_ + _%default-value105926%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2678,229 +2672,229 @@ 'contract: 'procedure? 'value: - _%proc104792%_) + _%proc105924%_) '#!void)))) (define hash-find__0 - (lambda (_%proc104825%_ _%h104826%_) - (let ((_%default-value104828%_ '#f)) - (hash-find__% _%proc104825%_ _%h104826%_ _%default-value104828%_)))) + (lambda (_%proc105957%_ _%h105958%_) + (let ((_%default-value105960%_ '#f)) + (hash-find__% _%proc105957%_ _%h105958%_ _%default-value105960%_)))) (define hash-find - (lambda _g108880_ - (let ((_g108879_ (let () (declare (not safe)) (##length _g108880_)))) - (cond ((let () (declare (not safe)) (##fx= _g108879_ 2)) - (apply hash-find__0 _g108880_)) - ((let () (declare (not safe)) (##fx= _g108879_ 3)) - (apply hash-find__% _g108880_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception hash-find - _g108880_)))))) + _g110012_)))))) (define __hash-find__% - (lambda (_%proc104749%_ _%h104750%_ _%default-value104751%_) - (let* ((_%proc104754%_ _%proc104749%_) - (_%h104762%_ _%h104750%_) - (__tmp108881 - (lambda (_%return104771%_) + (lambda (_%proc105881%_ _%h105882%_ _%default-value105883%_) + (let* ((_%proc105886%_ _%proc105881%_) + (_%h105894%_ _%h105882%_) + (__tmp110013 + (lambda (_%return105903%_) (&HashTable-for-each - _%h104762%_ - (lambda (_%k104773%_ _%v104774%_) - (let ((_%$e104776%_ + _%h105894%_ + (lambda (_%k105905%_ _%v105906%_) + (let ((_%$e105908%_ (let () (declare (not safe)) - (_%proc104754%_ _%k104773%_ _%v104774%_)))) - (if _%$e104776%_ - (_%return104771%_ _%$e104776%_) + (_%proc105886%_ _%k105905%_ _%v105906%_)))) + (if _%$e105908%_ + (_%return105903%_ _%$e105908%_) '#!void)))) - _%default-value104751%_))) + _%default-value105883%_))) (declare (not safe)) - (##call-with-current-continuation __tmp108881)))) + (##call-with-current-continuation __tmp110013)))) (define __hash-find__0 - (lambda (_%proc104782%_ _%h104783%_) - (let ((_%default-value104785%_ '#f)) + (lambda (_%proc105914%_ _%h105915%_) + (let ((_%default-value105917%_ '#f)) (__hash-find__% - _%proc104782%_ - _%h104783%_ - _%default-value104785%_)))) + _%proc105914%_ + _%h105915%_ + _%default-value105917%_)))) (define __hash-find - (lambda _g108883_ - (let ((_g108882_ (let () (declare (not safe)) (##length _g108883_)))) - (cond ((let () (declare (not safe)) (##fx= _g108882_ 2)) - (apply __hash-find__0 _g108883_)) - ((let () (declare (not safe)) (##fx= _g108882_ 3)) - (apply __hash-find__% _g108883_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __hash-find - _g108883_)))))) + _g110015_)))))) (define hash-keys - (lambda (_%h104730%_) - (let* ((_%h104736%_ - (let ((_%$obj104733%_ _%h104730%_)) + (lambda (_%h105862%_) + (let* ((_%h105868%_ + (let ((_%$obj105865%_ _%h105862%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104733%_)) + (##structure? _%$obj105865%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104733%_))) + (##structure-type _%$obj105865%_))) '#t) - _%$obj104733%_ + _%$obj105865%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104733%_))))) - (_%h104738%_ _%h104736%_)) - (__hash-keys _%h104738%_)))) + (cast HashTable::interface _%$obj105865%_))))) + (_%h105870%_ _%h105868%_)) + (__hash-keys _%h105870%_)))) (define __hash-keys - (lambda (_%h104713%_) - (let* ((_%h104716%_ _%h104713%_) (_%result104725%_ '())) + (lambda (_%h105845%_) + (let* ((_%h105848%_ _%h105845%_) (_%result105857%_ '())) (&HashTable-for-each - _%h104716%_ - (lambda (_%k104727%_ _%v104728%_) - (set! _%result104725%_ (cons _%k104727%_ _%result104725%_)))) - _%result104725%_))) + _%h105848%_ + (lambda (_%k105859%_ _%v105860%_) + (set! _%result105857%_ (cons _%k105859%_ _%result105857%_)))) + _%result105857%_))) (define hash-values - (lambda (_%h104695%_) - (let* ((_%h104701%_ - (let ((_%$obj104698%_ _%h104695%_)) + (lambda (_%h105827%_) + (let* ((_%h105833%_ + (let ((_%$obj105830%_ _%h105827%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104698%_)) + (##structure? _%$obj105830%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104698%_))) + (##structure-type _%$obj105830%_))) '#t) - _%$obj104698%_ + _%$obj105830%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104698%_))))) - (_%h104703%_ _%h104701%_)) - (__hash-values _%h104703%_)))) + (cast HashTable::interface _%$obj105830%_))))) + (_%h105835%_ _%h105833%_)) + (__hash-values _%h105835%_)))) (define __hash-values - (lambda (_%h104678%_) - (let* ((_%h104681%_ _%h104678%_) (_%result104690%_ '())) + (lambda (_%h105810%_) + (let* ((_%h105813%_ _%h105810%_) (_%result105822%_ '())) (&HashTable-for-each - _%h104681%_ - (lambda (_%k104692%_ _%v104693%_) - (set! _%result104690%_ (cons _%v104693%_ _%result104690%_)))) - _%result104690%_))) + _%h105813%_ + (lambda (_%k105824%_ _%v105825%_) + (set! _%result105822%_ (cons _%v105825%_ _%result105822%_)))) + _%result105822%_))) (define hash-copy - (lambda (_%h104660%_) - (let* ((_%h104666%_ - (let ((_%$obj104663%_ _%h104660%_)) + (lambda (_%h105792%_) + (let* ((_%h105798%_ + (let ((_%$obj105795%_ _%h105792%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104663%_)) + (##structure? _%$obj105795%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104663%_))) + (##structure-type _%$obj105795%_))) '#t) - _%$obj104663%_ + _%$obj105795%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104663%_))))) - (_%h104668%_ _%h104666%_)) - (__hash-copy _%h104668%_)))) + (cast HashTable::interface _%$obj105795%_))))) + (_%h105800%_ _%h105798%_)) + (__hash-copy _%h105800%_)))) (define __hash-copy - (lambda (_%h104648%_) - (let ((_%h104651%_ _%h104648%_)) (__HashTable-copy _%h104651%_)))) + (lambda (_%h105780%_) + (let ((_%h105783%_ _%h105780%_)) (__HashTable-copy _%h105783%_)))) (define hash-clear! - (lambda (_%h104630%_) - (let* ((_%h104636%_ - (let ((_%$obj104633%_ _%h104630%_)) + (lambda (_%h105762%_) + (let* ((_%h105768%_ + (let ((_%$obj105765%_ _%h105762%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104633%_)) + (##structure? _%$obj105765%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104633%_))) + (##structure-type _%$obj105765%_))) '#t) - _%$obj104633%_ + _%$obj105765%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104633%_))))) - (_%h104638%_ _%h104636%_)) - (__hash-clear! _%h104638%_)))) + (cast HashTable::interface _%$obj105765%_))))) + (_%h105770%_ _%h105768%_)) + (__hash-clear! _%h105770%_)))) (define __hash-clear! - (lambda (_%h104618%_) - (let ((_%h104621%_ _%h104618%_)) (&HashTable-clear! _%h104621%_)))) + (lambda (_%h105750%_) + (let ((_%h105753%_ _%h105750%_)) (&HashTable-clear! _%h105753%_)))) (define hash-merge - (lambda (_%h104599%_ . _%rest104600%_) - (let* ((_%h104606%_ - (let ((_%$obj104603%_ _%h104599%_)) + (lambda (_%h105731%_ . _%rest105732%_) + (let* ((_%h105738%_ + (let ((_%$obj105735%_ _%h105731%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104603%_)) + (##structure? _%$obj105735%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104603%_))) + (##structure-type _%$obj105735%_))) '#t) - _%$obj104603%_ + _%$obj105735%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104603%_))))) - (_%h104608%_ _%h104606%_)) + (cast HashTable::interface _%$obj105735%_))))) + (_%h105740%_ _%h105738%_)) (declare (not safe)) - (##apply __hash-merge _%h104608%_ _%rest104600%_)))) + (##apply __hash-merge _%h105740%_ _%rest105732%_)))) (define __hash-merge - (lambda (_%h104584%_ . _%rest104585%_) - (let* ((_%h104588%_ _%h104584%_) - (_%copy104597%_ (__HashTable-copy _%h104588%_))) - (apply hash-merge! _%copy104597%_ _%rest104585%_) - _%copy104597%_))) + (lambda (_%h105716%_ . _%rest105717%_) + (let* ((_%h105720%_ _%h105716%_) + (_%copy105729%_ (__HashTable-copy _%h105720%_))) + (apply hash-merge! _%copy105729%_ _%rest105717%_) + _%copy105729%_))) (define hash-merge! - (lambda (_%h104565%_ . _%rest104566%_) - (let* ((_%h104572%_ - (let ((_%$obj104569%_ _%h104565%_)) + (lambda (_%h105697%_ . _%rest105698%_) + (let* ((_%h105704%_ + (let ((_%$obj105701%_ _%h105697%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104569%_)) + (##structure? _%$obj105701%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104569%_))) + (##structure-type _%$obj105701%_))) '#t) - _%$obj104569%_ + _%$obj105701%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104569%_))))) - (_%h104574%_ _%h104572%_)) + (cast HashTable::interface _%$obj105701%_))))) + (_%h105706%_ _%h105704%_)) (declare (not safe)) - (##apply __hash-merge! _%h104574%_ _%rest104566%_)))) + (##apply __hash-merge! _%h105706%_ _%rest105698%_)))) (define __hash-merge! - (lambda (_%h104528%_ . _%rest104529%_) - (let ((_%h104532%_ _%h104528%_)) - (let ((__tmp108884 - (lambda (_%hr104541%_) - (let* ((_%hr104547%_ - (let ((_%$obj104544%_ _%hr104541%_)) + (lambda (_%h105660%_ . _%rest105661%_) + (let ((_%h105664%_ _%h105660%_)) + (let ((__tmp110016 + (lambda (_%hr105673%_) + (let* ((_%hr105679%_ + (let ((_%$obj105676%_ _%hr105673%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104544%_)) + (##structure? _%$obj105676%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj104544%_))) + _%$obj105676%_))) '#t) - _%$obj104544%_ + _%$obj105676%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj104544%_))))) - (_%hr104549%_ _%hr104547%_)) + _%$obj105676%_))))) + (_%hr105681%_ _%hr105679%_)) (&HashTable-for-each - _%hr104549%_ - (lambda (_%k104562%_ _%v104563%_) - (if (__hash-key? _%h104532%_ _%k104562%_) + _%hr105681%_ + (lambda (_%k105694%_ _%v105695%_) + (if (__hash-key? _%h105664%_ _%k105694%_) '#!void (&HashTable-set! - _%h104532%_ - _%k104562%_ - _%v104563%_)))))))) + _%h105664%_ + _%k105694%_ + _%v105695%_)))))))) (declare (not safe)) - (##for-each __tmp108884 _%rest104529%_)) - _%h104532%_))))) + (##for-each __tmp110016 _%rest105661%_)) + _%h105664%_))))) diff --git a/src/bootstrap/gerbil/runtime/hash~1.scm b/src/bootstrap/gerbil/runtime/hash~1.scm index 5a91664cb..9aff285b3 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]#_g108886_| + (define |[1]#_g110018_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g108888_| + (define |[1]#_g110020_| (##structure gx#syntax-quote::t 'UnboundKeyError::t #f (gx#current-expander-context) '())) - (define |[1]#_g108890_| + (define |[1]#_g110022_| (##structure gx#syntax-quote::t 'make-UnboundKeyError #f (gx#current-expander-context) '())) - (define |[1]#_g108892_| + (define |[1]#_g110024_| (##structure gx#syntax-quote::t 'UnboundKeyError? #f (gx#current-expander-context) '())) - (define |[1]#_g108894_| + (define |[1]#_g110026_| (##structure gx#syntax-quote::t 'UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g108895_| + (define |[1]#_g110027_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g108896_| + (define |[1]#_g110028_| (##structure gx#syntax-quote::t 'UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g108897_| + (define |[1]#_g110029_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g108899_| + (define |[1]#_g110031_| (##structure gx#syntax-quote::t 'UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108900_| + (define |[1]#_g110032_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108901_| + (define |[1]#_g110033_| (##structure gx#syntax-quote::t 'UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108902_| + (define |[1]#_g110034_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108904_| + (define |[1]#_g110036_| (##structure gx#syntax-quote::t '&UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g108905_| + (define |[1]#_g110037_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g108906_| + (define |[1]#_g110038_| (##structure gx#syntax-quote::t '&UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g108907_| + (define |[1]#_g110039_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g108909_| + (define |[1]#_g110041_| (##structure gx#syntax-quote::t '&UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108910_| + (define |[1]#_g110042_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108911_| + (define |[1]#_g110043_| (##structure gx#syntax-quote::t '&UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108912_| + (define |[1]#_g110044_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108914_| + (define |[1]#_g110046_| (##structure gx#syntax-quote::t 'HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g108916_| + (define |[1]#_g110048_| (##structure gx#syntax-quote::t 'HashTable::t #f (gx#current-expander-context) '())) - (define |[1]#_g108918_| + (define |[1]#_g110050_| (##structure gx#syntax-quote::t 'HashTable::interface #f (gx#current-expander-context) '())) - (define |[1]#_g108920_| + (define |[1]#_g110052_| (##structure gx#syntax-quote::t 'make-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g108922_| + (define |[1]#_g110054_| (##structure gx#syntax-quote::t 'try-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g108924_| + (define |[1]#_g110056_| (##structure gx#syntax-quote::t 'HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g108926_| + (define |[1]#_g110058_| (##structure gx#syntax-quote::t 'is-HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g108928_| + (define |[1]#_g110060_| (##structure gx#syntax-quote::t 'HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g108929_| + (define |[1]#_g110061_| (##structure gx#syntax-quote::t 'HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g108930_| + (define |[1]#_g110062_| (##structure gx#syntax-quote::t 'HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g108931_| + (define |[1]#_g110063_| (##structure gx#syntax-quote::t 'HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g108932_| + (define |[1]#_g110064_| (##structure gx#syntax-quote::t 'HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g108933_| + (define |[1]#_g110065_| (##structure gx#syntax-quote::t 'HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g108934_| + (define |[1]#_g110066_| (##structure gx#syntax-quote::t 'HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108935_| + (define |[1]#_g110067_| (##structure gx#syntax-quote::t 'HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g108937_| + (define |[1]#_g110069_| (##structure gx#syntax-quote::t '&HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g108938_| + (define |[1]#_g110070_| (##structure gx#syntax-quote::t '&HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g108939_| + (define |[1]#_g110071_| (##structure gx#syntax-quote::t '&HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g108940_| + (define |[1]#_g110072_| (##structure gx#syntax-quote::t '&HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g108941_| + (define |[1]#_g110073_| (##structure gx#syntax-quote::t '&HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g108942_| + (define |[1]#_g110074_| (##structure gx#syntax-quote::t '&HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g108943_| + (define |[1]#_g110075_| (##structure gx#syntax-quote::t '&HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108944_| + (define |[1]#_g110076_| (##structure gx#syntax-quote::t '&HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g108946_| + (define |[1]#_g110078_| (##structure gx#syntax-quote::t 'Locker::t #f (gx#current-expander-context) '())) - (define |[1]#_g108948_| + (define |[1]#_g110080_| (##structure gx#syntax-quote::t 'Locker::interface #f (gx#current-expander-context) '())) - (define |[1]#_g108950_| + (define |[1]#_g110082_| (##structure gx#syntax-quote::t 'make-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g108952_| + (define |[1]#_g110084_| (##structure gx#syntax-quote::t 'try-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g108954_| + (define |[1]#_g110086_| (##structure gx#syntax-quote::t 'Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g108956_| + (define |[1]#_g110088_| (##structure gx#syntax-quote::t 'is-Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g108958_| + (define |[1]#_g110090_| (##structure gx#syntax-quote::t 'Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g108959_| + (define |[1]#_g110091_| (##structure gx#syntax-quote::t 'Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g108960_| + (define |[1]#_g110092_| (##structure gx#syntax-quote::t 'Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g108961_| + (define |[1]#_g110093_| (##structure gx#syntax-quote::t 'Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g108963_| + (define |[1]#_g110095_| (##structure gx#syntax-quote::t '&Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g108964_| + (define |[1]#_g110096_| (##structure gx#syntax-quote::t '&Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g108965_| + (define |[1]#_g110097_| (##structure gx#syntax-quote::t '&Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g108966_| + (define |[1]#_g110098_| (##structure gx#syntax-quote::t '&Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g108968_| + (define |[1]#_g110100_| (##structure gx#syntax-quote::t 'locked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g108970_| + (define |[1]#_g110102_| (##structure gx#syntax-quote::t 'make-locked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g108972_| + (define |[1]#_g110104_| (##structure gx#syntax-quote::t 'locked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g108974_| + (define |[1]#_g110106_| (##structure gx#syntax-quote::t 'locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g108975_| + (define |[1]#_g110107_| (##structure gx#syntax-quote::t 'locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g108977_| + (define |[1]#_g110109_| (##structure gx#syntax-quote::t 'locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108978_| + (define |[1]#_g110110_| (##structure gx#syntax-quote::t 'locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108980_| + (define |[1]#_g110112_| (##structure gx#syntax-quote::t '&locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g108981_| + (define |[1]#_g110113_| (##structure gx#syntax-quote::t '&locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g108983_| + (define |[1]#_g110115_| (##structure gx#syntax-quote::t '&locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108984_| + (define |[1]#_g110116_| (##structure gx#syntax-quote::t '&locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108986_| + (define |[1]#_g110118_| (##structure gx#syntax-quote::t 'checked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g108988_| + (define |[1]#_g110120_| (##structure gx#syntax-quote::t 'make-checked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g108990_| + (define |[1]#_g110122_| (##structure gx#syntax-quote::t 'checked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g108992_| + (define |[1]#_g110124_| (##structure gx#syntax-quote::t 'checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g108993_| + (define |[1]#_g110125_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g108995_| + (define |[1]#_g110127_| (##structure gx#syntax-quote::t 'checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108996_| + (define |[1]#_g110128_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108998_| + (define |[1]#_g110130_| (##structure gx#syntax-quote::t '&checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g108999_| + (define |[1]#_g110131_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g109001_| + (define |[1]#_g110133_| (##structure gx#syntax-quote::t '&checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109002_| + (define |[1]#_g110134_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check-set! @@ -555,7 +555,7 @@ '())) (begin (define |[:0:]#UnboundKeyError| - (let ((__obj108795 + (let ((__obj109927 (let () (declare (not safe)) (##structure @@ -584,104 +584,104 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108795 + __obj109927 'gerbil/runtime/hash#UnboundKeyError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108795 'UnboundKeyError '2 '#f '#f)) + (##unchecked-structure-set! __obj109927 'UnboundKeyError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108795 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj109927 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj108795 + __obj109927 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp108885 (cons |[1]#_g108886_| '()))) + (let ((__tmp110017 (cons |[1]#_g110018_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj108795 __tmp108885 '3 '#f '#f)) + (##unchecked-structure-set! __obj109927 __tmp110017 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108795 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj109927 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108795 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj109927 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108795 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj109927 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108795 ':init! '11 '#f '#f)) - (let ((__tmp108887 |[1]#_g108888_|)) + (##unchecked-structure-set! __obj109927 ':init! '11 '#f '#f)) + (let ((__tmp110019 |[1]#_g110020_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108795 __tmp108887 '12 '#f '#f)) - (let ((__tmp108889 |[1]#_g108890_|)) + (##unchecked-structure-set! __obj109927 __tmp110019 '12 '#f '#f)) + (let ((__tmp110021 |[1]#_g110022_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108795 __tmp108889 '13 '#f '#f)) - (let ((__tmp108891 |[1]#_g108892_|)) + (##unchecked-structure-set! __obj109927 __tmp110021 '13 '#f '#f)) + (let ((__tmp110023 |[1]#_g110024_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108795 __tmp108891 '14 '#f '#f)) - (let ((__tmp108893 - (cons (cons 'message |[1]#_g108894_|) - (cons (cons 'irritants |[1]#_g108895_|) - (cons (cons 'where |[1]#_g108896_|) - (cons (cons 'continuation |[1]#_g108897_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj108795 __tmp108893 '15 '#f '#f)) - (let ((__tmp108898 - (cons (cons 'message |[1]#_g108899_|) - (cons (cons 'irritants |[1]#_g108900_|) - (cons (cons 'where |[1]#_g108901_|) - (cons (cons 'continuation |[1]#_g108902_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj108795 __tmp108898 '16 '#f '#f)) - (let ((__tmp108903 - (cons (cons 'message |[1]#_g108904_|) - (cons (cons 'irritants |[1]#_g108905_|) - (cons (cons 'where |[1]#_g108906_|) - (cons (cons 'continuation |[1]#_g108907_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj108795 __tmp108903 '17 '#f '#f)) - (let ((__tmp108908 - (cons (cons 'message |[1]#_g108909_|) - (cons (cons 'irritants |[1]#_g108910_|) - (cons (cons 'where |[1]#_g108911_|) - (cons (cons 'continuation |[1]#_g108912_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj108795 __tmp108908 '18 '#f '#f)) + (##unchecked-structure-set! __obj109927 __tmp110040 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108795 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj109927 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108795 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj109927 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108795 '() '20 '#f '#f)) - __obj108795)) + (##unchecked-structure-set! __obj109927 '() '20 '#f '#f)) + __obj109927)) (define |[:0:]#@HashTable| - (let ((__obj108797 + (let ((__obj109929 (let () (declare (not safe)) (##structure |gerbil/core/contract~TypeReference[1]#type-reference::t| '#f)))) - (let ((__tmp108913 |[1]#_g108914_|)) + (let ((__tmp110045 |[1]#_g110046_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108797 __tmp108913 '1 '#f '#f)) - __obj108797)) + (##unchecked-structure-set! __obj109929 __tmp110045 '1 '#f '#f)) + __obj109929)) (define |[:0:]#HashTable| - (let ((__obj108798 + (let ((__obj109930 (let () (declare (not safe)) (##structure @@ -699,14 +699,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108798 'HashTable '1 '#f '#f)) + (##unchecked-structure-set! __obj109930 'HashTable '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108798 '() '2 '#f '#f)) + (##unchecked-structure-set! __obj109930 '() '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj108798 + __obj109930 '((clear! () :void) (copy () @HashTable) (delete! (key) :void) @@ -718,51 +718,51 @@ '3 '#f '#f)) - (let ((__tmp108915 |[1]#_g108916_|)) + (let ((__tmp110047 |[1]#_g110048_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108798 __tmp108915 '4 '#f '#f)) - (let ((__tmp108917 |[1]#_g108918_|)) + (##unchecked-structure-set! __obj109930 __tmp110047 '4 '#f '#f)) + (let ((__tmp110049 |[1]#_g110050_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108798 __tmp108917 '5 '#f '#f)) - (let ((__tmp108919 |[1]#_g108920_|)) + (##unchecked-structure-set! __obj109930 __tmp110049 '5 '#f '#f)) + (let ((__tmp110051 |[1]#_g110052_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108798 __tmp108919 '6 '#f '#f)) - (let ((__tmp108921 |[1]#_g108922_|)) + (##unchecked-structure-set! __obj109930 __tmp110051 '6 '#f '#f)) + (let ((__tmp110053 |[1]#_g110054_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108798 __tmp108921 '7 '#f '#f)) - (let ((__tmp108923 |[1]#_g108924_|)) + (##unchecked-structure-set! __obj109930 __tmp110053 '7 '#f '#f)) + (let ((__tmp110055 |[1]#_g110056_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108798 __tmp108923 '8 '#f '#f)) - (let ((__tmp108925 |[1]#_g108926_|)) + (##unchecked-structure-set! __obj109930 __tmp110055 '8 '#f '#f)) + (let ((__tmp110057 |[1]#_g110058_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108798 __tmp108925 '9 '#f '#f)) - (let ((__tmp108927 - (cons |[1]#_g108928_| - (cons |[1]#_g108929_| - (cons |[1]#_g108930_| - (cons |[1]#_g108931_| - (cons |[1]#_g108932_| - (cons |[1]#_g108933_| - (cons |[1]#_g108934_| - (cons |[1]#_g108935_| + (##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_| '())))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj108798 __tmp108927 '10 '#f '#f)) - (let ((__tmp108936 - (cons |[1]#_g108937_| - (cons |[1]#_g108938_| - (cons |[1]#_g108939_| - (cons |[1]#_g108940_| - (cons |[1]#_g108941_| - (cons |[1]#_g108942_| - (cons |[1]#_g108943_| - (cons |[1]#_g108944_| + (##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_| '())))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj108798 __tmp108936 '11 '#f '#f)) - __obj108798)) + (##unchecked-structure-set! __obj109930 __tmp110068 '11 '#f '#f)) + __obj109930)) (define |[:0:]#Locker| - (let ((__obj108799 + (let ((__obj109931 (let () (declare (not safe)) (##structure @@ -780,14 +780,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108799 'Locker '1 '#f '#f)) + (##unchecked-structure-set! __obj109931 'Locker '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108799 '() '2 '#f '#f)) + (##unchecked-structure-set! __obj109931 '() '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj108799 + __obj109931 '((read-lock! () :void) (read-unlock! () :void) (write-lock! () :void) @@ -795,41 +795,41 @@ '3 '#f '#f)) - (let ((__tmp108945 |[1]#_g108946_|)) + (let ((__tmp110077 |[1]#_g110078_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108799 __tmp108945 '4 '#f '#f)) - (let ((__tmp108947 |[1]#_g108948_|)) + (##unchecked-structure-set! __obj109931 __tmp110077 '4 '#f '#f)) + (let ((__tmp110079 |[1]#_g110080_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108799 __tmp108947 '5 '#f '#f)) - (let ((__tmp108949 |[1]#_g108950_|)) + (##unchecked-structure-set! __obj109931 __tmp110079 '5 '#f '#f)) + (let ((__tmp110081 |[1]#_g110082_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108799 __tmp108949 '6 '#f '#f)) - (let ((__tmp108951 |[1]#_g108952_|)) + (##unchecked-structure-set! __obj109931 __tmp110081 '6 '#f '#f)) + (let ((__tmp110083 |[1]#_g110084_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108799 __tmp108951 '7 '#f '#f)) - (let ((__tmp108953 |[1]#_g108954_|)) + (##unchecked-structure-set! __obj109931 __tmp110083 '7 '#f '#f)) + (let ((__tmp110085 |[1]#_g110086_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108799 __tmp108953 '8 '#f '#f)) - (let ((__tmp108955 |[1]#_g108956_|)) + (##unchecked-structure-set! __obj109931 __tmp110085 '8 '#f '#f)) + (let ((__tmp110087 |[1]#_g110088_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108799 __tmp108955 '9 '#f '#f)) - (let ((__tmp108957 - (cons |[1]#_g108958_| - (cons |[1]#_g108959_| - (cons |[1]#_g108960_| - (cons |[1]#_g108961_| '())))))) + (##unchecked-structure-set! __obj109931 __tmp110087 '9 '#f '#f)) + (let ((__tmp110089 + (cons |[1]#_g110090_| + (cons |[1]#_g110091_| + (cons |[1]#_g110092_| + (cons |[1]#_g110093_| '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj108799 __tmp108957 '10 '#f '#f)) - (let ((__tmp108962 - (cons |[1]#_g108963_| - (cons |[1]#_g108964_| - (cons |[1]#_g108965_| - (cons |[1]#_g108966_| '())))))) + (##unchecked-structure-set! __obj109931 __tmp110089 '10 '#f '#f)) + (let ((__tmp110094 + (cons |[1]#_g110095_| + (cons |[1]#_g110096_| + (cons |[1]#_g110097_| + (cons |[1]#_g110098_| '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj108799 __tmp108962 '11 '#f '#f)) - __obj108799)) + (##unchecked-structure-set! __obj109931 __tmp110094 '11 '#f '#f)) + __obj109931)) (define |[:0:]#locked-hash-table| - (let ((__obj108800 + (let ((__obj109932 (let () (declare (not safe)) (##structure @@ -858,7 +858,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108800 + __obj109932 'gerbil/runtime/hash#locked-hash-table::t '1 '#f @@ -866,73 +866,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108800 + __obj109932 'locked-hash-table '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108800 '(table lock) '4 '#f '#f)) + (##unchecked-structure-set! __obj109932 '(table lock) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108800 '(table lock) '6 '#f '#f)) + (##unchecked-structure-set! __obj109932 '(table lock) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108800 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj109932 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108800 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj109932 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108800 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj109932 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108800 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj109932 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108800 '#f '11 '#f '#f)) - (let ((__tmp108967 |[1]#_g108968_|)) + (##unchecked-structure-set! __obj109932 '#f '11 '#f '#f)) + (let ((__tmp110099 |[1]#_g110100_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108800 __tmp108967 '12 '#f '#f)) - (let ((__tmp108969 |[1]#_g108970_|)) + (##unchecked-structure-set! __obj109932 __tmp110099 '12 '#f '#f)) + (let ((__tmp110101 |[1]#_g110102_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108800 __tmp108969 '13 '#f '#f)) - (let ((__tmp108971 |[1]#_g108972_|)) + (##unchecked-structure-set! __obj109932 __tmp110101 '13 '#f '#f)) + (let ((__tmp110103 |[1]#_g110104_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108800 __tmp108971 '14 '#f '#f)) - (let ((__tmp108973 - (cons (cons 'table |[1]#_g108974_|) - (cons (cons 'lock |[1]#_g108975_|) '())))) + (##unchecked-structure-set! __obj109932 __tmp110103 '14 '#f '#f)) + (let ((__tmp110105 + (cons (cons 'table |[1]#_g110106_|) + (cons (cons 'lock |[1]#_g110107_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108800 __tmp108973 '15 '#f '#f)) - (let ((__tmp108976 - (cons (cons 'table |[1]#_g108977_|) - (cons (cons 'lock |[1]#_g108978_|) '())))) + (##unchecked-structure-set! __obj109932 __tmp110105 '15 '#f '#f)) + (let ((__tmp110108 + (cons (cons 'table |[1]#_g110109_|) + (cons (cons 'lock |[1]#_g110110_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108800 __tmp108976 '16 '#f '#f)) - (let ((__tmp108979 - (cons (cons 'table |[1]#_g108980_|) - (cons (cons 'lock |[1]#_g108981_|) '())))) + (##unchecked-structure-set! __obj109932 __tmp110108 '16 '#f '#f)) + (let ((__tmp110111 + (cons (cons 'table |[1]#_g110112_|) + (cons (cons 'lock |[1]#_g110113_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108800 __tmp108979 '17 '#f '#f)) - (let ((__tmp108982 - (cons (cons 'table |[1]#_g108983_|) - (cons (cons 'lock |[1]#_g108984_|) '())))) + (##unchecked-structure-set! __obj109932 __tmp110111 '17 '#f '#f)) + (let ((__tmp110114 + (cons (cons 'table |[1]#_g110115_|) + (cons (cons 'lock |[1]#_g110116_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108800 __tmp108982 '18 '#f '#f)) + (##unchecked-structure-set! __obj109932 __tmp110114 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108800 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj109932 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108800 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj109932 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108800 '() '20 '#f '#f)) - __obj108800)) + (##unchecked-structure-set! __obj109932 '() '20 '#f '#f)) + __obj109932)) (define |[:0:]#checked-hash-table| - (let ((__obj108801 + (let ((__obj109933 (let () (declare (not safe)) (##structure @@ -961,7 +961,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108801 + __obj109933 'gerbil/runtime/hash#checked-hash-table::t '1 '#f @@ -969,7 +969,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108801 + __obj109933 'checked-hash-table '2 '#f @@ -977,7 +977,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108801 + __obj109933 '(table key-check) '4 '#f @@ -985,210 +985,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108801 + __obj109933 '(table key-check) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108801 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj109933 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108801 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj109933 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108801 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj109933 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108801 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj109933 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108801 '#f '11 '#f '#f)) - (let ((__tmp108985 |[1]#_g108986_|)) + (##unchecked-structure-set! __obj109933 '#f '11 '#f '#f)) + (let ((__tmp110117 |[1]#_g110118_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108801 __tmp108985 '12 '#f '#f)) - (let ((__tmp108987 |[1]#_g108988_|)) + (##unchecked-structure-set! __obj109933 __tmp110117 '12 '#f '#f)) + (let ((__tmp110119 |[1]#_g110120_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108801 __tmp108987 '13 '#f '#f)) - (let ((__tmp108989 |[1]#_g108990_|)) + (##unchecked-structure-set! __obj109933 __tmp110119 '13 '#f '#f)) + (let ((__tmp110121 |[1]#_g110122_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108801 __tmp108989 '14 '#f '#f)) - (let ((__tmp108991 - (cons (cons 'table |[1]#_g108992_|) - (cons (cons 'key-check |[1]#_g108993_|) '())))) + (##unchecked-structure-set! __obj109933 __tmp110121 '14 '#f '#f)) + (let ((__tmp110123 + (cons (cons 'table |[1]#_g110124_|) + (cons (cons 'key-check |[1]#_g110125_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108801 __tmp108991 '15 '#f '#f)) - (let ((__tmp108994 - (cons (cons 'table |[1]#_g108995_|) - (cons (cons 'key-check |[1]#_g108996_|) '())))) + (##unchecked-structure-set! __obj109933 __tmp110123 '15 '#f '#f)) + (let ((__tmp110126 + (cons (cons 'table |[1]#_g110127_|) + (cons (cons 'key-check |[1]#_g110128_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108801 __tmp108994 '16 '#f '#f)) - (let ((__tmp108997 - (cons (cons 'table |[1]#_g108998_|) - (cons (cons 'key-check |[1]#_g108999_|) '())))) + (##unchecked-structure-set! __obj109933 __tmp110126 '16 '#f '#f)) + (let ((__tmp110129 + (cons (cons 'table |[1]#_g110130_|) + (cons (cons 'key-check |[1]#_g110131_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108801 __tmp108997 '17 '#f '#f)) - (let ((__tmp109000 - (cons (cons 'table |[1]#_g109001_|) - (cons (cons 'key-check |[1]#_g109002_|) '())))) + (##unchecked-structure-set! __obj109933 __tmp110129 '17 '#f '#f)) + (let ((__tmp110132 + (cons (cons 'table |[1]#_g110133_|) + (cons (cons 'key-check |[1]#_g110134_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108801 __tmp109000 '18 '#f '#f)) + (##unchecked-structure-set! __obj109933 __tmp110132 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108801 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj109933 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108801 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj109933 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108801 '() '20 '#f '#f)) - __obj108801)) + (##unchecked-structure-set! __obj109933 '() '20 '#f '#f)) + __obj109933)) (define |[:0:]#deflocked-hash-method| - (lambda (_%$stx103919%_) - (let* ((_%g103923103962%_ - (lambda (_%g103924103958%_) + (lambda (_%$stx105051%_) + (let* ((_%g105055105094%_ + (lambda (_%g105056105090%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103924103958%_))) - (_%g103922104110%_ - (lambda (_%g103924103966%_) - (if (gx#stx-pair? _%g103924103966%_) - (let ((_%e103930103969%_ - (gx#syntax-e _%g103924103966%_))) - (let ((_%hd103931103973%_ + _%g105056105090%_))) + (_%g105054105242%_ + (lambda (_%g105056105098%_) + (if (gx#stx-pair? _%g105056105098%_) + (let ((_%e105062105101%_ + (gx#syntax-e _%g105056105098%_))) + (let ((_%hd105063105105%_ (let () (declare (not safe)) - (##car _%e103930103969%_))) - (_%tl103932103976%_ + (##car _%e105062105101%_))) + (_%tl105064105108%_ (let () (declare (not safe)) - (##cdr _%e103930103969%_)))) - (if (gx#stx-pair? _%tl103932103976%_) - (let ((_%e103933103979%_ - (gx#syntax-e _%tl103932103976%_))) - (let ((_%hd103934103983%_ + (##cdr _%e105062105101%_)))) + (if (gx#stx-pair? _%tl105064105108%_) + (let ((_%e105065105111%_ + (gx#syntax-e _%tl105064105108%_))) + (let ((_%hd105066105115%_ (let () (declare (not safe)) - (##car _%e103933103979%_))) - (_%tl103935103986%_ + (##car _%e105065105111%_))) + (_%tl105067105118%_ (let () (declare (not safe)) - (##cdr _%e103933103979%_)))) - (if (gx#stx-pair? _%hd103934103983%_) - (let ((_%e103936103989%_ - (gx#syntax-e _%hd103934103983%_))) - (let ((_%hd103937103993%_ + (##cdr _%e105065105111%_)))) + (if (gx#stx-pair? _%hd105066105115%_) + (let ((_%e105068105121%_ + (gx#syntax-e _%hd105066105115%_))) + (let ((_%hd105069105125%_ (let () (declare (not safe)) - (##car _%e103936103989%_))) - (_%tl103938103996%_ + (##car _%e105068105121%_))) + (_%tl105070105128%_ (let () (declare (not safe)) - (##cdr _%e103936103989%_)))) + (##cdr _%e105068105121%_)))) (if (gx#stx-pair/null? - _%tl103938103996%_) - (let ((_g109003_ + _%tl105070105128%_) + (let ((_g110135_ (gx#syntax-split-splice - _%tl103938103996%_ + _%tl105070105128%_ '0))) (begin - (let ((_g109004_ + (let ((_g110136_ (let () (declare (not safe)) (if (##values? - _g109003_) + _g110135_) (##vector-length - _g109003_) + _g110135_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g109004_ 2))) - (error "Context expects 2 values" _g109004_))) + (##fx= _g110136_ 2))) + (error "Context expects 2 values" _g110136_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target103939103999%_ + (let ((_%target105071105131%_ (let () (declare (not safe)) (##vector-ref - _g109003_ + _g110135_ 0))) - (_%tl103941104002%_ + (_%tl105073105134%_ (let () (declare (not safe)) (##vector-ref - _g109003_ + _g110135_ 1)))) (if (gx#stx-null? - _%tl103941104002%_) - (letrec ((_%loop103942104005%_ + _%tl105073105134%_) + (letrec ((_%loop105074105137%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd103940104009%_ _%arg103946104012%_) - (if (gx#stx-pair? _%hd103940104009%_) - (let ((_%e103943104015%_ - (gx#syntax-e _%hd103940104009%_))) - (let ((_%lp-hd103944104019%_ + (lambda (_%hd105072105141%_ _%arg105078105144%_) + (if (gx#stx-pair? _%hd105072105141%_) + (let ((_%e105075105147%_ + (gx#syntax-e _%hd105072105141%_))) + (let ((_%lp-hd105076105151%_ (let () (declare (not safe)) - (##car _%e103943104015%_))) - (_%lp-tl103945104022%_ + (##car _%e105075105147%_))) + (_%lp-tl105077105154%_ (let () (declare (not safe)) - (##cdr _%e103943104015%_)))) - (_%loop103942104005%_ - _%lp-tl103945104022%_ - (cons _%lp-hd103944104019%_ - _%arg103946104012%_)))) - (let ((_%arg103947104025%_ - (reverse _%arg103946104012%_))) - (if (gx#stx-pair? _%tl103935103986%_) - (let ((_%e103948104029%_ - (gx#syntax-e _%tl103935103986%_))) - (let ((_%hd103949104033%_ + (##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%_ (let () (declare (not safe)) - (##car _%e103948104029%_))) - (_%tl103950104036%_ + (##car _%e105080105161%_))) + (_%tl105082105168%_ (let () (declare (not safe)) - (##cdr _%e103948104029%_)))) - (if (gx#stx-pair? _%tl103950104036%_) - (let ((_%e103951104039%_ + (##cdr _%e105080105161%_)))) + (if (gx#stx-pair? _%tl105082105168%_) + (let ((_%e105083105171%_ (gx#syntax-e - _%tl103950104036%_))) - (let ((_%hd103952104043%_ + _%tl105082105168%_))) + (let ((_%hd105084105175%_ (let () (declare (not safe)) - (##car _%e103951104039%_))) - (_%tl103953104046%_ + (##car _%e105083105171%_))) + (_%tl105085105178%_ (let () (declare (not safe)) - (##cdr _%e103951104039%_)))) + (##cdr _%e105083105171%_)))) (if (gx#stx-pair? - _%tl103953104046%_) - (let ((_%e103954104049%_ + _%tl105085105178%_) + (let ((_%e105086105181%_ (gx#syntax-e - _%tl103953104046%_))) - (let ((_%hd103955104053%_ + _%tl105085105178%_))) + (let ((_%hd105087105185%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e103954104049%_))) - (_%tl103956104056%_ + (##car _%e105086105181%_))) + (_%tl105088105188%_ (let () (declare (not safe)) - (##cdr _%e103954104049%_)))) - (if (gx#stx-null? _%tl103956104056%_) - ((lambda (_%L104059%_ - _%L104061%_ - _%L104062%_ - _%L104063%_ - _%L104064%_) + (##cdr _%e105086105181%_)))) + (if (gx#stx-null? _%tl105088105188%_) + ((lambda (_%L105191%_ + _%L105193%_ + _%L105194%_ + _%L105195%_ + _%L105196%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method) - (cons _%L104064%_ + (cons _%L105196%_ (cons (gx#datum->syntax '#f 'locked-hash-table) @@ -1197,12 +1197,12 @@ (cons (cons (gx#datum->syntax '#f 'self) - (let ((__tmp109005 + (let ((__tmp110137 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g104095104098%_ _%g104096104101%_) - (cons _%g104095104098%_ _%g104096104101%_)))) + (lambda (_%g105227105230%_ _%g105228105233%_) + (cons _%g105227105230%_ _%g105228105233%_)))) (declare (not safe)) - (__foldr1 __tmp109005 '() _%L104063%_))) + (__foldr1 __tmp110137 '() _%L105195%_))) (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 _%L104062%_ + (cons _%L105194%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1241,18 +1241,18 @@ (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L104061%_ + (cons _%L105193%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'h) - (let ((__tmp109006 - (lambda (_%g104093104104%_ - _%g104094104107%_) - (cons _%g104093104104%_ - _%g104094104107%_)))) + (let ((__tmp110138 + (lambda (_%g105225105236%_ + _%g105226105239%_) + (cons _%g105225105236%_ + _%g105226105239%_)))) (declare (not safe)) - (__foldr1 __tmp109006 '() _%L104063%_))))) + (__foldr1 __tmp110138 '() _%L105195%_))))) (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L104059%_ + (cons _%L105191%_ (cons (gx#datum->syntax '#f 'l) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1260,175 +1260,175 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd103955104053%_ - _%hd103952104043%_ - _%hd103949104033%_ - _%arg103947104025%_ - _%hd103937103993%_) - (_%g103923103962%_ _%g103924103966%_)))) - (_%g103923103962%_ _%g103924103966%_)))) + _%hd105087105185%_ + _%hd105084105175%_ + _%hd105081105165%_ + _%arg105079105157%_ + _%hd105069105125%_) + (_%g105055105094%_ _%g105056105098%_)))) + (_%g105055105094%_ _%g105056105098%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g103923103962%_ - _%g103924103966%_)))) - (_%g103923103962%_ - _%g103924103966%_))))))) - (_%loop103942104005%_ _%target103939103999%_ '())) - (_%g103923103962%_ _%g103924103966%_))))) + (_%g105055105094%_ + _%g105056105098%_)))) + (_%g105055105094%_ + _%g105056105098%_))))))) + (_%loop105074105137%_ _%target105071105131%_ '())) + (_%g105055105094%_ _%g105056105098%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g103923103962%_ - _%g103924103966%_)))) - (_%g103923103962%_ _%g103924103966%_)))) - (_%g103923103962%_ _%g103924103966%_)))) - (_%g103923103962%_ _%g103924103966%_))))) - (_%g103922104110%_ _%$stx103919%_)))) + (_%g105055105094%_ + _%g105056105098%_)))) + (_%g105055105094%_ _%g105056105098%_)))) + (_%g105055105094%_ _%g105056105098%_)))) + (_%g105055105094%_ _%g105056105098%_))))) + (_%g105054105242%_ _%$stx105051%_)))) (define |[:0:]#defchecked-hash-method| - (lambda (_%$stx104139%_) - (let* ((_%g104143104182%_ - (lambda (_%g104144104178%_) + (lambda (_%$stx105271%_) + (let* ((_%g105275105314%_ + (lambda (_%g105276105310%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g104144104178%_))) - (_%g104142104345%_ - (lambda (_%g104144104186%_) - (if (gx#stx-pair? _%g104144104186%_) - (let ((_%e104150104189%_ - (gx#syntax-e _%g104144104186%_))) - (let ((_%hd104151104193%_ + _%g105276105310%_))) + (_%g105274105477%_ + (lambda (_%g105276105318%_) + (if (gx#stx-pair? _%g105276105318%_) + (let ((_%e105282105321%_ + (gx#syntax-e _%g105276105318%_))) + (let ((_%hd105283105325%_ (let () (declare (not safe)) - (##car _%e104150104189%_))) - (_%tl104152104196%_ + (##car _%e105282105321%_))) + (_%tl105284105328%_ (let () (declare (not safe)) - (##cdr _%e104150104189%_)))) - (if (gx#stx-pair? _%tl104152104196%_) - (let ((_%e104153104199%_ - (gx#syntax-e _%tl104152104196%_))) - (let ((_%hd104154104203%_ + (##cdr _%e105282105321%_)))) + (if (gx#stx-pair? _%tl105284105328%_) + (let ((_%e105285105331%_ + (gx#syntax-e _%tl105284105328%_))) + (let ((_%hd105286105335%_ (let () (declare (not safe)) - (##car _%e104153104199%_))) - (_%tl104155104206%_ + (##car _%e105285105331%_))) + (_%tl105287105338%_ (let () (declare (not safe)) - (##cdr _%e104153104199%_)))) - (if (gx#stx-pair? _%hd104154104203%_) - (let ((_%e104156104209%_ - (gx#syntax-e _%hd104154104203%_))) - (let ((_%hd104157104213%_ + (##cdr _%e105285105331%_)))) + (if (gx#stx-pair? _%hd105286105335%_) + (let ((_%e105288105341%_ + (gx#syntax-e _%hd105286105335%_))) + (let ((_%hd105289105345%_ (let () (declare (not safe)) - (##car _%e104156104209%_))) - (_%tl104158104216%_ + (##car _%e105288105341%_))) + (_%tl105290105348%_ (let () (declare (not safe)) - (##cdr _%e104156104209%_)))) - (if (gx#stx-pair? _%tl104158104216%_) - (let ((_%e104159104219%_ + (##cdr _%e105288105341%_)))) + (if (gx#stx-pair? _%tl105290105348%_) + (let ((_%e105291105351%_ (gx#syntax-e - _%tl104158104216%_))) - (let ((_%hd104160104223%_ + _%tl105290105348%_))) + (let ((_%hd105292105355%_ (let () (declare (not safe)) - (##car _%e104159104219%_))) - (_%tl104161104226%_ + (##car _%e105291105351%_))) + (_%tl105293105358%_ (let () (declare (not safe)) - (##cdr _%e104159104219%_)))) + (##cdr _%e105291105351%_)))) (if (gx#stx-pair/null? - _%tl104161104226%_) - (let ((_g109007_ + _%tl105293105358%_) + (let ((_g110139_ (gx#syntax-split-splice - _%tl104161104226%_ + _%tl105293105358%_ '0))) (begin - (let ((_g109008_ + (let ((_g110140_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g109007_) - (##vector-length _g109007_) + (if (##values? _g110139_) + (##vector-length _g110139_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g109008_ 2))) - (error "Context expects 2 values" _g109008_))) - (let ((_%target104162104229%_ + (if (not (let () (declare (not safe)) (##fx= _g110140_ 2))) + (error "Context expects 2 values" _g110140_))) + (let ((_%target105294105361%_ (let () (declare (not safe)) - (##vector-ref _g109007_ 0))) - (_%tl104164104232%_ + (##vector-ref _g110139_ 0))) + (_%tl105296105364%_ (let () (declare (not safe)) - (##vector-ref _g109007_ 1)))) - (if (gx#stx-null? _%tl104164104232%_) - (letrec ((_%loop104165104235%_ - (lambda (_%hd104163104239%_ - _%arg104169104242%_) - (if (gx#stx-pair? _%hd104163104239%_) - (let ((_%e104166104245%_ + (##vector-ref _g110139_ 1)))) + (if (gx#stx-null? _%tl105296105364%_) + (letrec ((_%loop105297105367%_ + (lambda (_%hd105295105371%_ + _%arg105301105374%_) + (if (gx#stx-pair? _%hd105295105371%_) + (let ((_%e105298105377%_ (gx#syntax-e - _%hd104163104239%_))) - (let ((_%lp-hd104167104249%_ + _%hd105295105371%_))) + (let ((_%lp-hd105299105381%_ (let () (declare (not safe)) - (##car _%e104166104245%_))) - (_%lp-tl104168104252%_ + (##car _%e105298105377%_))) + (_%lp-tl105300105384%_ (let () (declare (not safe)) - (##cdr _%e104166104245%_)))) - (_%loop104165104235%_ - _%lp-tl104168104252%_ - (cons _%lp-hd104167104249%_ - _%arg104169104242%_)))) - (let ((_%arg104170104255%_ - (reverse _%arg104169104242%_))) - (if (gx#stx-pair? _%tl104155104206%_) - (let ((_%e104171104259%_ + (##cdr _%e105298105377%_)))) + (_%loop105297105367%_ + _%lp-tl105300105384%_ + (cons _%lp-hd105299105381%_ + _%arg105301105374%_)))) + (let ((_%arg105302105387%_ + (reverse _%arg105301105374%_))) + (if (gx#stx-pair? _%tl105287105338%_) + (let ((_%e105303105391%_ (gx#syntax-e - _%tl104155104206%_))) - (let ((_%hd104172104263%_ + _%tl105287105338%_))) + (let ((_%hd105304105395%_ (let () (declare (not safe)) - (##car _%e104171104259%_))) - (_%tl104173104266%_ + (##car _%e105303105391%_))) + (_%tl105305105398%_ (let () (declare (not safe)) - (##cdr _%e104171104259%_)))) + (##cdr _%e105303105391%_)))) (if (gx#stx-pair? - _%tl104173104266%_) - (let ((_%e104174104269%_ + _%tl105305105398%_) + (let ((_%e105306105401%_ (gx#syntax-e - _%tl104173104266%_))) - (let ((_%hd104175104273%_ + _%tl105305105398%_))) + (let ((_%hd105307105405%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e104174104269%_))) - (_%tl104176104276%_ + (##car _%e105306105401%_))) + (_%tl105308105408%_ (let () (declare (not safe)) - (##cdr _%e104174104269%_)))) - (if (gx#stx-null? _%tl104176104276%_) - ((lambda (_%L104279%_ - _%L104281%_ - _%L104282%_ - _%L104283%_ - _%L104284%_) + (##cdr _%e105306105401%_)))) + (if (gx#stx-null? _%tl105308105408%_) + ((lambda (_%L105411%_ + _%L105413%_ + _%L105414%_ + _%L105415%_ + _%L105416%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method) - (cons _%L104284%_ + (cons _%L105416%_ (cons (gx#datum->syntax '#f 'checked-hash-table) '()))) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L104283%_ - (let ((__tmp109009 + (cons (cons _%L105415%_ + (let ((__tmp110141 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g104318104321%_ _%g104319104324%_) - (cons _%g104318104321%_ _%g104319104324%_)))) + (lambda (_%g105450105453%_ _%g105451105456%_) + (cons _%g105450105453%_ _%g105451105456%_)))) (declare (not safe)) - (__foldr1 __tmp109009 '() _%L104282%_))) + (__foldr1 __tmp110141 '() _%L105414%_))) (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 _%L104283%_ + (cons _%L105415%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -1450,32 +1450,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&checked-hash-table-key-check) - (cons _%L104283%_ '())) + (cons _%L105415%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L104281%_ + (cons (cons _%L105413%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'key?) - (let ((__tmp109010 - (lambda (_%g104316104327%_ - _%g104317104330%_) - (cons _%g104316104327%_ - _%g104317104330%_)))) + (let ((__tmp110142 + (lambda (_%g105448105459%_ + _%g105449105462%_) + (cons _%g105448105459%_ + _%g105449105462%_)))) (declare (not safe)) - (__foldr1 __tmp109010 '() _%L104282%_)))) - (cons (cons _%L104279%_ + (__foldr1 __tmp110142 '() _%L105414%_)))) + (cons (cons _%L105411%_ (cons (gx#datum->syntax '#f 'h) - (let ((__tmp109011 - (lambda (_%g104314104333%_ - _%g104315104336%_) - (cons _%g104314104333%_ - _%g104315104336%_)))) + (let ((__tmp110143 + (lambda (_%g105446105465%_ + _%g105447105468%_) + (cons _%g105446105465%_ + _%g105447105468%_)))) (declare (not safe)) - (__foldr1 __tmp109011 '() _%L104282%_)))) + (__foldr1 __tmp110143 '() _%L105414%_)))) (cons (cons (gx#datum->syntax '#f 'abort!) (cons (cons (gx#datum->syntax '#f @@ -1486,19 +1486,19 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L104279%_ '())) + (cons _%L105411%_ '())) (cons 'value: (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp109012 - (lambda (_%g104312104339%_ - _%g104313104342%_) - (cons _%g104312104339%_ - _%g104313104342%_)))) + (let ((__tmp110144 + (lambda (_%g105444105471%_ + _%g105445105474%_) + (cons _%g105444105471%_ + _%g105445105474%_)))) (declare (not safe)) (__foldr1 - __tmp109012 + __tmp110144 '() - _%L104282%_))) + _%L105414%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -1508,158 +1508,158 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd104175104273%_ - _%hd104172104263%_ - _%arg104170104255%_ - _%hd104160104223%_ - _%hd104157104213%_) - (_%g104143104182%_ _%g104144104186%_)))) - (_%g104143104182%_ _%g104144104186%_)))) + _%hd105307105405%_ + _%hd105304105395%_ + _%arg105302105387%_ + _%hd105292105355%_ + _%hd105289105345%_) + (_%g105275105314%_ _%g105276105318%_)))) + (_%g105275105314%_ _%g105276105318%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g104143104182%_ - _%g104144104186%_))))))) - (_%loop104165104235%_ _%target104162104229%_ '())) - (_%g104143104182%_ _%g104144104186%_))))) - (_%g104143104182%_ _%g104144104186%_)))) + (_%g105275105314%_ + _%g105276105318%_))))))) + (_%loop105297105367%_ _%target105294105361%_ '())) + (_%g105275105314%_ _%g105276105318%_))))) + (_%g105275105314%_ _%g105276105318%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g104143104182%_ - _%g104144104186%_)))) - (_%g104143104182%_ _%g104144104186%_)))) - (_%g104143104182%_ _%g104144104186%_)))) - (_%g104143104182%_ _%g104144104186%_))))) - (_%g104142104345%_ _%$stx104139%_)))) + (_%g105275105314%_ + _%g105276105318%_)))) + (_%g105275105314%_ _%g105276105318%_)))) + (_%g105275105314%_ _%g105276105318%_)))) + (_%g105275105314%_ _%g105276105318%_))))) + (_%g105274105477%_ _%$stx105271%_)))) (define |[:0:]#defhash-method| - (lambda (_%$stx104374%_) - (let* ((_%g104378104410%_ - (lambda (_%g104379104406%_) + (lambda (_%$stx105506%_) + (let* ((_%g105510105542%_ + (lambda (_%g105511105538%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g104379104406%_))) - (_%g104377104523%_ - (lambda (_%g104379104414%_) - (if (gx#stx-pair? _%g104379104414%_) - (let ((_%e104384104417%_ - (gx#syntax-e _%g104379104414%_))) - (let ((_%hd104385104421%_ + _%g105511105538%_))) + (_%g105509105655%_ + (lambda (_%g105511105546%_) + (if (gx#stx-pair? _%g105511105546%_) + (let ((_%e105516105549%_ + (gx#syntax-e _%g105511105546%_))) + (let ((_%hd105517105553%_ (let () (declare (not safe)) - (##car _%e104384104417%_))) - (_%tl104386104424%_ + (##car _%e105516105549%_))) + (_%tl105518105556%_ (let () (declare (not safe)) - (##cdr _%e104384104417%_)))) - (if (gx#stx-pair? _%tl104386104424%_) - (let ((_%e104387104427%_ - (gx#syntax-e _%tl104386104424%_))) - (let ((_%hd104388104431%_ + (##cdr _%e105516105549%_)))) + (if (gx#stx-pair? _%tl105518105556%_) + (let ((_%e105519105559%_ + (gx#syntax-e _%tl105518105556%_))) + (let ((_%hd105520105563%_ (let () (declare (not safe)) - (##car _%e104387104427%_))) - (_%tl104389104434%_ + (##car _%e105519105559%_))) + (_%tl105521105566%_ (let () (declare (not safe)) - (##cdr _%e104387104427%_)))) - (if (gx#stx-pair? _%hd104388104431%_) - (let ((_%e104390104437%_ - (gx#syntax-e _%hd104388104431%_))) - (let ((_%hd104391104441%_ + (##cdr _%e105519105559%_)))) + (if (gx#stx-pair? _%hd105520105563%_) + (let ((_%e105522105569%_ + (gx#syntax-e _%hd105520105563%_))) + (let ((_%hd105523105573%_ (let () (declare (not safe)) - (##car _%e104390104437%_))) - (_%tl104392104444%_ + (##car _%e105522105569%_))) + (_%tl105524105576%_ (let () (declare (not safe)) - (##cdr _%e104390104437%_)))) - (if (gx#stx-pair? _%tl104392104444%_) - (let ((_%e104393104447%_ + (##cdr _%e105522105569%_)))) + (if (gx#stx-pair? _%tl105524105576%_) + (let ((_%e105525105579%_ (gx#syntax-e - _%tl104392104444%_))) - (let ((_%hd104394104451%_ + _%tl105524105576%_))) + (let ((_%hd105526105583%_ (let () (declare (not safe)) - (##car _%e104393104447%_))) - (_%tl104395104454%_ + (##car _%e105525105579%_))) + (_%tl105527105586%_ (let () (declare (not safe)) - (##cdr _%e104393104447%_)))) + (##cdr _%e105525105579%_)))) (if (gx#stx-pair/null? - _%tl104389104434%_) - (let ((_g109013_ + _%tl105521105566%_) + (let ((_g110145_ (gx#syntax-split-splice - _%tl104389104434%_ + _%tl105521105566%_ '0))) (begin - (let ((_g109014_ + (let ((_g110146_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g109013_) - (##vector-length _g109013_) + (if (##values? _g110145_) + (##vector-length _g110145_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g109014_ 2))) - (error "Context expects 2 values" _g109014_))) - (let ((_%target104396104457%_ + (if (not (let () (declare (not safe)) (##fx= _g110146_ 2))) + (error "Context expects 2 values" _g110146_))) + (let ((_%target105528105589%_ (let () (declare (not safe)) - (##vector-ref _g109013_ 0))) - (_%tl104398104460%_ + (##vector-ref _g110145_ 0))) + (_%tl105530105592%_ (let () (declare (not safe)) - (##vector-ref _g109013_ 1)))) - (if (gx#stx-null? _%tl104398104460%_) - (letrec ((_%loop104399104463%_ - (lambda (_%hd104397104467%_ - _%body104403104470%_) - (if (gx#stx-pair? _%hd104397104467%_) - (let ((_%e104400104473%_ + (##vector-ref _g110145_ 1)))) + (if (gx#stx-null? _%tl105530105592%_) + (letrec ((_%loop105531105595%_ + (lambda (_%hd105529105599%_ + _%body105535105602%_) + (if (gx#stx-pair? _%hd105529105599%_) + (let ((_%e105532105605%_ (gx#syntax-e - _%hd104397104467%_))) - (let ((_%lp-hd104401104477%_ + _%hd105529105599%_))) + (let ((_%lp-hd105533105609%_ (let () (declare (not safe)) - (##car _%e104400104473%_))) - (_%lp-tl104402104480%_ + (##car _%e105532105605%_))) + (_%lp-tl105534105612%_ (let () (declare (not safe)) - (##cdr _%e104400104473%_)))) - (_%loop104399104463%_ - _%lp-tl104402104480%_ - (cons _%lp-hd104401104477%_ - _%body104403104470%_)))) - (let ((_%body104404104483%_ - (reverse _%body104403104470%_))) - ((lambda (_%L104487%_ - _%L104489%_ - _%L104490%_ - _%L104491%_) + (##cdr _%e105532105605%_)))) + (_%loop105531105595%_ + _%lp-tl105534105612%_ + (cons _%lp-hd105533105609%_ + _%body105535105602%_)))) + (let ((_%body105536105615%_ + (reverse _%body105535105602%_))) + ((lambda (_%L105619%_ + _%L105621%_ + _%L105622%_ + _%L105623%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L104491%_ - (cons (cons _%L104490%_ + (cons (cons _%L105623%_ + (cons (cons _%L105622%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f 'HashTable) '()))) - _%L104489%_)) - (let ((__tmp109015 - (lambda (_%g104514104517%_ _%g104515104520%_) - (cons _%g104514104517%_ _%g104515104520%_)))) + _%L105621%_)) + (let ((__tmp110147 + (lambda (_%g105646105649%_ _%g105647105652%_) + (cons _%g105646105649%_ _%g105647105652%_)))) (declare (not safe)) - (__foldr1 __tmp109015 '() _%L104487%_))))) + (__foldr1 __tmp110147 '() _%L105619%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body104404104483%_ - _%tl104395104454%_ - _%hd104394104451%_ - _%hd104391104441%_)))))) - (_%loop104399104463%_ _%target104396104457%_ '())) - (_%g104378104410%_ _%g104379104414%_))))) - (_%g104378104410%_ _%g104379104414%_)))) + _%body105536105615%_ + _%tl105527105586%_ + _%hd105526105583%_ + _%hd105523105573%_)))))) + (_%loop105531105595%_ _%target105528105589%_ '())) + (_%g105510105542%_ _%g105511105546%_))))) + (_%g105510105542%_ _%g105511105546%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g104378104410%_ - _%g104379104414%_)))) - (_%g104378104410%_ _%g104379104414%_)))) - (_%g104378104410%_ _%g104379104414%_)))) - (_%g104378104410%_ _%g104379104414%_))))) - (_%g104377104523%_ _%$stx104374%_)))))) + (_%g105510105542%_ + _%g105511105546%_)))) + (_%g105510105542%_ _%g105511105546%_)))) + (_%g105510105542%_ _%g105511105546%_)))) + (_%g105510105542%_ _%g105511105546%_))))) + (_%g105509105655%_ _%$stx105506%_)))))) diff --git a/src/bootstrap/gerbil/runtime/init~0.scm b/src/bootstrap/gerbil/runtime/init~0.scm index b30c20e51..24e57c61d 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 1713454410) + (define gerbil/runtime/init::timestamp 1713631266) (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+114177%_ __*readtable*)) - (let* ((_%core114179%_ (gx#import-module ':gerbil/core)) - (_%pre114181%_ (gx#make-prelude-context _%core114179%_))) - (gx#current-expander-module-prelude _%pre114181%_) - (gx#core-bind-root-syntax! ': _%pre114181%_ '#t) + (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) (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 ((__tmp114188 - (lambda (_%port114184%_) + (let ((__tmp115320 + (lambda (_%port115316%_) (input-port-readtable-set! - _%port114184%_ - _%+readtable+114177%_))) - (__tmp114187 (list ##stdin-port ##console-port))) + _%port115316%_ + _%+readtable+115309%_))) + (__tmp115319 (list ##stdin-port ##console-port))) (declare (not safe)) - (##for-each __tmp114188 __tmp114187)) - (let ((__tmp114190 - (lambda (_%port114186%_) + (##for-each __tmp115320 __tmp115319)) + (let ((__tmp115322 + (lambda (_%port115318%_) (output-port-readtable-set! - _%port114186%_ + _%port115318%_ (readtable-sharing-allowed?-set - (output-port-readtable _%port114186%_) + (output-port-readtable _%port115318%_) '#t)))) - (__tmp114189 (list ##stdout-port ##console-port))) + (__tmp115321 (list ##stdout-port ##console-port))) (declare (not safe)) - (##for-each __tmp114190 __tmp114189))))) - (define __gxi-init-interactive! (lambda (_%cmdline114174%_) '#!void)) + (##for-each __tmp115322 __tmp115321))))) + (define __gxi-init-interactive! (lambda (_%cmdline115306%_) '#!void)) (define load-scheme - (lambda (_%path114169%_) - (let ((__tmp114191 + (lambda (_%path115301%_) + (let ((__tmp115323 (lambda () - (let ((__tmp114192 (lambda _%args114172%_ '#f))) + (let ((__tmp115324 (lambda _%args115304%_ '#f))) (declare (not safe)) - (##load _%path114169%_ __tmp114192 '#t '#t '#f))))) + (##load _%path115301%_ __tmp115324 '#t '#t '#f))))) (declare (not safe)) (__call-with-parameters - __tmp114191 + __tmp115323 __scheme-source - _%path114169%_)))) + _%path115301%_)))) (define __expand-source - (lambda (_%src114151%_) - (letrec ((_%expand114153%_ - (lambda (_%src114167%_) + (lambda (_%src115283%_) + (letrec ((_%expand115285%_ + (lambda (_%src115299%_) (__compile-top - (gx#core-expand (__source->syntax _%src114167%_))))) - (_%no-expand114154%_ - (lambda (_%src114160%_) + (gx#core-expand (__source->syntax _%src115299%_))))) + (_%no-expand115286%_ + (lambda (_%src115292%_) (if (let () (declare (not safe)) (__scheme-source)) - _%src114160%_ + _%src115292%_ (if (let () (declare (not safe)) - (##source? _%src114160%_)) - (let ((_%code114164%_ + (##source? _%src115292%_)) + (let ((_%code115296%_ (let () (declare (not safe)) - (##source-code _%src114160%_)))) - (if (pair? _%code114164%_) + (##source-code _%src115292%_)))) + (if (pair? _%code115296%_) (if (eq? '__noexpand: (let () (declare (not safe)) - (##car _%code114164%_))) + (##car _%code115296%_))) (let () (declare (not safe)) - (##cdr _%code114164%_)) + (##cdr _%code115296%_)) '#f) '#f)) '#f))))) - (let ((_%$e114156%_ (_%no-expand114154%_ _%src114151%_))) - (if _%$e114156%_ _%$e114156%_ (_%expand114153%_ _%src114151%_)))))) + (let ((_%$e115288%_ (_%no-expand115286%_ _%src115283%_))) + (if _%$e115288%_ _%$e115288%_ (_%expand115285%_ _%src115283%_)))))) (define __macro-descr - (lambda (_%src114137%_ _%def-syntax?114138%_) - (letrec ((_%fail!114140%_ + (lambda (_%src115269%_ _%def-syntax?115270%_) + (letrec ((_%fail!115272%_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _%src114137%_)))) - (_%make-descr114141%_ - (lambda (_%size114145%_) - (let ((_%expander114148%_ - (let ((__tmp114193 + _%src115269%_)))) + (_%make-descr115273%_ + (lambda (_%size115277%_) + (let ((_%expander115280%_ + (let ((__tmp115325 (lambda () (let () (declare (not safe)) (##eval-top - _%src114137%_ + _%src115269%_ ##interaction-cte))))) (declare (not safe)) (__call-with-parameters - __tmp114193 + __tmp115325 __scheme-source 'macro)))) - (if (procedure? _%expander114148%_) + (if (procedure? _%expander115280%_) (let () (declare (not safe)) (##make-macro-descr - _%def-syntax?114138%_ - _%size114145%_ - _%expander114148%_ - _%src114137%_)) - (_%fail!114140%_)))))) - (if _%def-syntax?114138%_ - (_%make-descr114141%_ '-1) - (let ((_%code114143%_ + _%def-syntax?115270%_ + _%size115277%_ + _%expander115280%_ + _%src115269%_)) + (_%fail!115272%_)))))) + (if _%def-syntax?115270%_ + (_%make-descr115273%_ '-1) + (let ((_%code115275%_ (let () (declare (not safe)) - (##source-code _%src114137%_)))) - (if (and (let () (declare (not safe)) (##pair? _%code114143%_)) - (let ((__tmp114194 - (let ((__tmp114195 - (let ((__tmp114196 + (##source-code _%src115269%_)))) + (if (and (let () (declare (not safe)) (##pair? _%code115275%_)) + (let ((__tmp115326 + (let ((__tmp115327 + (let ((__tmp115328 (let () (declare (not safe)) - (##car _%code114143%_)))) + (##car _%code115275%_)))) (declare (not safe)) (##sourcify - __tmp114196 - _%src114137%_)))) + __tmp115328 + _%src115269%_)))) (declare (not safe)) - (##source-code __tmp114195)))) + (##source-code __tmp115327)))) (declare (not safe)) - (##memq __tmp114194 '(##lambda lambda)))) + (##memq __tmp115326 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _%src114137%_ _%src114137%_ '-3)) - (_%make-descr114141%_ - (let ((__tmp114197 - (let ((__tmp114198 + (##shape _%src115269%_ _%src115269%_ '-3)) + (_%make-descr115273%_ + (let ((__tmp115329 + (let ((__tmp115330 (let () (declare (not safe)) - (##cadr _%code114143%_)))) + (##cadr _%code115275%_)))) (declare (not safe)) - (##sourcify __tmp114198 _%src114137%_)))) + (##sourcify __tmp115330 _%src115269%_)))) (declare (not safe)) - (##form-size __tmp114197)))) - (_%fail!114140%_))))))) + (##form-size __tmp115329)))) + (_%fail!115272%_))))))) (define __source->syntax - (lambda (_%src114126%_) - (let _%recur114128%_ ((_%e114130%_ _%src114126%_)) - (if (let () (declare (not safe)) (##source? _%e114130%_)) - (let ((__tmp114200 - (_%recur114128%_ + (lambda (_%src115258%_) + (let _%recur115260%_ ((_%e115262%_ _%src115258%_)) + (if (let () (declare (not safe)) (##source? _%e115262%_)) + (let ((__tmp115332 + (_%recur115260%_ (let () (declare (not safe)) - (##source-code _%e114130%_)))) - (__tmp114199 + (##source-code _%e115262%_)))) + (__tmp115331 (let () (declare (not safe)) - (##source-locat _%e114130%_)))) + (##source-locat _%e115262%_)))) (declare (not safe)) - (##structure AST::t __tmp114200 __tmp114199)) - (if (pair? _%e114130%_) - (cons (_%recur114128%_ - (let () (declare (not safe)) (##car _%e114130%_))) - (_%recur114128%_ - (let () (declare (not safe)) (##cdr _%e114130%_)))) - (if (vector? _%e114130%_) - (vector-map _%recur114128%_ _%e114130%_) - (if (box? _%e114130%_) - (box (_%recur114128%_ (unbox _%e114130%_))) - _%e114130%_))))))) + (##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%_))))))) (define __compile-top-source - (lambda (_%stx114124%_) - (cons '__noexpand: (__compile-top _%stx114124%_)))) + (lambda (_%stx115256%_) + (cons '__noexpand: (__compile-top _%stx115256%_)))) (define __compile-top - (lambda (_%stx114122%_) - (let ((__tmp114201 (gx#core-compile-top-syntax _%stx114122%_))) + (lambda (_%stx115254%_) + (let ((__tmp115333 (gx#core-compile-top-syntax _%stx115254%_))) (declare (not safe)) - (__compile __tmp114201)))) + (__compile __tmp115333)))) (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 (_%in114084%_) - (letrec ((_%import1114086%_ - (lambda (_%in114107%_ _%phi114108%_) - (if (gx#module-import? _%in114107%_) - (let ((_%iphi114111%_ - (fx+ _%phi114108%_ - (gx#module-import-phi _%in114107%_)))) + (lambda (_%in115216%_) + (letrec ((_%import1115218%_ + (lambda (_%in115239%_ _%phi115240%_) + (if (gx#module-import? _%in115239%_) + (let ((_%iphi115243%_ + (fx+ _%phi115240%_ + (gx#module-import-phi _%in115239%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi114111%_)) - (_%eval1114087%_ + (##fxzero? _%iphi115243%_)) + (_%eval1115219%_ (gx#module-export-context - (gx#module-import-source _%in114107%_))) + (gx#module-import-source _%in115239%_))) '#!void)) - (if (gx#module-context? _%in114107%_) - (if (fxzero? _%phi114108%_) - (_%eval1114087%_ _%in114107%_) + (if (gx#module-context? _%in115239%_) + (if (fxzero? _%phi115240%_) + (_%eval1115219%_ _%in115239%_) '#!void) - (if (gx#import-set? _%in114107%_) - (let ((_%iphi114115%_ - (fx+ _%phi114108%_ - (gx#import-set-phi _%in114107%_)))) + (if (gx#import-set? _%in115239%_) + (let ((_%iphi115247%_ + (fx+ _%phi115240%_ + (gx#import-set-phi _%in115239%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi114115%_)) - (_%eval1114087%_ - (gx#import-set-source _%in114107%_)) + (##fxzero? _%iphi115247%_)) + (_%eval1115219%_ + (gx#import-set-source _%in115239%_)) (if (let () (declare (not safe)) - (##fxpositive? _%iphi114115%_)) + (##fxpositive? _%iphi115247%_)) (for-each - (lambda (_%in114119%_) - (_%import1114086%_ - _%in114119%_ - _%iphi114115%_)) + (lambda (_%in115251%_) + (_%import1115218%_ + _%in115251%_ + _%iphi115247%_)) (gx#module-context-import (gx#import-set-source - _%in114107%_))) + _%in115239%_))) '#!void))) (let () (declare (not safe)) (error '"Unexpected import" - _%in114107%_))))))) - (_%eval1114087%_ - (lambda (_%ctx114091%_) + _%in115239%_))))))) + (_%eval1115219%_ + (lambda (_%ctx115223%_) (mutex-lock! __modstate-mx) - (let ((_%$e114093%_ + (let ((_%$e115225%_ (let () (declare (not safe)) - (__hash-get __modstate _%ctx114091%_)))) - (if _%$e114093%_ - ((lambda (_%state114096%_) - (let ((_%$e114098%_ (car _%state114096%_))) - (if (eq? 'forcing _%$e114098%_) + (__hash-get __modstate _%ctx115223%_)))) + (if _%$e115225%_ + ((lambda (_%state115228%_) + (let ((_%$e115230%_ (car _%state115228%_))) + (if (eq? 'forcing _%$e115230%_) (begin (mutex-unlock! __modstate-mx __modstate-cv) - (_%eval1114087%_ _%ctx114091%_)) - (if (eq? 'ready _%$e114098%_) + (_%eval1115219%_ _%ctx115223%_)) + (if (eq? 'ready _%$e115230%_) (begin (mutex-unlock! __modstate-mx) - (cadr _%state114096%_)) - (if (eq? 'error _%$e114098%_) + (cadr _%state115228%_)) + (if (eq? 'error _%$e115230%_) (begin (mutex-unlock! __modstate-mx) - (let ((__tmp114202 - (cadr _%state114096%_))) + (let ((__tmp115334 + (cadr _%state115228%_))) (declare (not safe)) - (raise __tmp114202))) + (raise __tmp115334))) (begin (mutex-unlock! __modstate-mx) (let () (declare (not safe)) (error '"internal error; unexpected module state" - _%state114096%_)))))))) - _%$e114093%_) + _%state115228%_)))))))) + _%$e115225%_) (let () (let () (declare (not safe)) (__hash-put! __modstate - _%ctx114091%_ + _%ctx115223%_ '(forcing))) (mutex-unlock! __modstate-mx) - (let ((__tmp114205 - (lambda (_%exn114102%_) + (let ((__tmp115337 + (lambda (_%exn115234%_) (mutex-lock! __modstate-mx) - (let ((__tmp114206 + (let ((__tmp115338 (cons 'error - (cons _%exn114102%_ '())))) + (cons _%exn115234%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx114091%_ - __tmp114206)) + _%ctx115223%_ + __tmp115338)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) (let () (declare (not safe)) - (raise _%exn114102%_)))) - (__tmp114203 + (raise _%exn115234%_)))) + (__tmp115335 (lambda () - (let ((_%result114105%_ - (__eval-module _%ctx114091%_))) + (let ((_%result115237%_ + (__eval-module _%ctx115223%_))) (mutex-lock! __modstate-mx) - (let ((__tmp114204 + (let ((__tmp115336 (cons 'ready - (cons _%result114105%_ + (cons _%result115237%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx114091%_ - __tmp114204)) + _%ctx115223%_ + __tmp115336)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) - _%result114105%_)))) + _%result115237%_)))) (declare (not safe)) - (__with-catch __tmp114205 __tmp114203)))))))) - (if (pair? _%in114084%_) - (let ((__tmp114207 - (lambda (_%in114089%_) - (_%import1114086%_ _%in114089%_ '0)))) + (__with-catch __tmp115337 __tmp115335)))))))) + (if (pair? _%in115216%_) + (let ((__tmp115339 + (lambda (_%in115221%_) + (_%import1115218%_ _%in115221%_ '0)))) (declare (not safe)) - (##for-each __tmp114207 _%in114084%_)) - (_%import1114086%_ _%in114084%_ '0))))) + (##for-each __tmp115339 _%in115216%_)) + (_%import1115218%_ _%in115216%_ '0))))) (define __eval-module - (lambda (_%obj114082%_) (gx#core-eval-module _%obj114082%_))) + (lambda (_%obj115214%_) (gx#core-eval-module _%obj115214%_))) (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-head114078%_ - (let ((_%$e114075%_ + (let* ((_%stack-trace-head115210%_ + (let ((_%$e115207%_ (string->number (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG_STACKTRACE" '"10"))))) - (if _%$e114075%_ _%$e114075%_ '10))) - (__tmp114208 - (lambda (_%cont114080%_) + (if _%$e115207%_ _%$e115207%_ '10))) + (__tmp115340 + (lambda (_%cont115212%_) (display-continuation-backtrace - _%cont114080%_ + _%cont115212%_ (current-error-port) '1 '1 '0 - _%stack-trace-head114078%_)))) + _%stack-trace-head115210%_)))) (declare (not safe)) - (##continuation-capture __tmp114208))) + (##continuation-capture __tmp115340))) '#!void) (let () (declare (not safe)) (##default-user-interrupt-handler)))) (define gerbil-runtime-init! - (lambda (_%builtin-modules114051%_) + (lambda (_%builtin-modules115183%_) (if __runtime-initialized '#!void (begin (let () (declare (not safe)) (dump-stack-trace? '#t)) - (let* ((_%home114053%_ + (let* ((_%home115185%_ (let () (declare (not safe)) (gerbil-home))) - (_%libdir114055%_ (path-expand '"lib" _%home114053%_)) - (_%userpath114057%_ + (_%libdir115187%_ (path-expand '"lib" _%home115185%_)) + (_%userpath115189%_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_%loadpath114059%_ + (_%loadpath115191%_ (if (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_PREFIX" '#f)) - (cons _%libdir114055%_ '()) - (cons _%userpath114057%_ - (cons _%libdir114055%_ '())))) - (_%loadpath114069%_ - (let ((_%$e114061%_ + (cons _%libdir115187%_ '()) + (cons _%userpath115189%_ + (cons _%libdir115187%_ '())))) + (_%loadpath115201%_ + (let ((_%$e115193%_ (let () (declare (not safe)) (##getenv '"GERBIL_LOADPATH" '#f)))) - (if _%$e114061%_ - ((lambda (_%envvar114064%_) - (let ((__tmp114209 - (let ((__tmp114211 - (lambda (_%x114066%_) + (if _%$e115193%_ + ((lambda (_%envvar115196%_) + (let ((__tmp115341 + (let ((__tmp115343 + (lambda (_%x115198%_) (not (let () (declare (not safe)) (string-empty? - _%x114066%_))))) - (__tmp114210 + _%x115198%_))))) + (__tmp115342 (let () (declare (not safe)) (string-split - _%envvar114064%_ + _%envvar115196%_ '#\:)))) (declare (not safe)) - (##filter __tmp114211 __tmp114210)))) + (##filter __tmp115343 __tmp115342)))) (declare (not safe)) - (##append __tmp114209 _%loadpath114059%_))) - _%$e114061%_) - _%loadpath114059%_)))) + (##append __tmp115341 _%loadpath115191%_))) + _%$e115193%_) + _%loadpath115191%_)))) (declare (not safe)) - (__set-load-path! _%loadpath114069%_)) + (__set-load-path! _%loadpath115201%_)) (for-each - (lambda (_%mod114072%_) + (lambda (_%mod115204%_) (let () (declare (not safe)) - (__hash-put! __modules _%mod114072%_ 'builtin)) - (let ((__tmp114212 + (__hash-put! __modules _%mod115204%_ 'builtin)) + (let ((__tmp115344 (let () (declare (not safe)) - (##string-append _%mod114072%_ '"~0")))) + (##string-append _%mod115204%_ '"~0")))) (declare (not safe)) - (__hash-put! __modules __tmp114212 'builtin))) - _%builtin-modules114051%_) + (__hash-put! __modules __tmp115344 'builtin))) + _%builtin-modules115183%_) (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 6bf816455..e16b423f0 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 1713454409) + (define gerbil/runtime/interface::timestamp 1713631265) (begin (define CastError::t - (let ((__tmp103826 (list Error::t))) + (let ((__tmp104958 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/interface#CastError::t 'CastError - __tmp103826 + __tmp104958 '() '() ':init!))) (define CastError? (let () (declare (not safe)) (__make-class-predicate CastError::t))) (define make-CastError - (lambda _%$args103819%_ - (apply make-instance CastError::t _%$args103819%_))) + (lambda _%$args104951%_ + (apply make-instance CastError::t _%$args104951%_))) (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 (_%where103693%_ _%message103694%_ . _%irritants103695%_) - (let ((__tmp103827 - (let ((__obj103822 + (lambda (_%where104825%_ _%message104826%_ . _%irritants104827%_) + (let ((__tmp104959 + (let ((__obj104954 (let () (declare (not safe)) (##structure CastError::t '#f '#f '#f '#f)))) (let () (declare (not safe)) (CastError:::init! - __obj103822 - _%message103694%_ + __obj104954 + _%message104826%_ 'where: - _%where103693%_ + _%where104825%_ 'irritants: - _%irritants103695%_)) - __obj103822))) + _%irritants104827%_)) + __obj104954))) (declare (not safe)) - (raise __tmp103827)))) + (raise __tmp104959)))) (define interface-cast-error? CastError?) (define interface-instance::t - (let ((__tmp103829 (list)) (__tmp103828 (cons (cons 'struct: '#t) '()))) + (let ((__tmp104961 (list)) (__tmp104960 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#interface-instance::t 'interface-instance - __tmp103829 + __tmp104961 '(__object) - __tmp103828 + __tmp104960 '#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 ((__tmp103831 (list)) - (__tmp103830 + (let ((__tmp104963 (list)) + (__tmp104962 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/interface#interface-descriptor::t 'interface-descriptor - __tmp103831 + __tmp104963 '(type methods) - __tmp103830 + __tmp104962 '#f))) (define interface-descriptor? (let () (declare (not safe)) (__make-class-predicate interface-descriptor::t))) (define make-interface-descriptor - (lambda _%$args103690%_ - (apply make-instance interface-descriptor::t _%$args103690%_))) + (lambda _%$args104822%_ + (apply make-instance interface-descriptor::t _%$args104822%_))) (define interface-descriptor-type (let () (declare (not safe)) @@ -193,553 +193,553 @@ interface-descriptor::t 'methods))) (define __interface-hash-key - (lambda (_%key103688%_) - (let ((__tmp103833 + (lambda (_%key104820%_) + (let ((__tmp104965 (macro-slot '1 - (let () (declare (not safe)) (##car _%key103688%_)))) - (__tmp103832 + (let () (declare (not safe)) (##car _%key104820%_)))) + (__tmp104964 (macro-slot '1 - (let () (declare (not safe)) (##cdr _%key103688%_))))) + (let () (declare (not safe)) (##cdr _%key104820%_))))) (declare (not safe)) - (##fxxor __tmp103833 __tmp103832)))) + (##fxxor __tmp104965 __tmp104964)))) (define __interface-test-key - (lambda (_%a103685%_ _%b103686%_) - (if (let ((__tmp103835 - (let () (declare (not safe)) (##car _%a103685%_))) - (__tmp103834 - (let () (declare (not safe)) (##car _%b103686%_)))) + (lambda (_%a104817%_ _%b104818%_) + (if (let ((__tmp104967 + (let () (declare (not safe)) (##car _%a104817%_))) + (__tmp104966 + (let () (declare (not safe)) (##car _%b104818%_)))) (declare (not safe)) - (##eq? __tmp103835 __tmp103834)) - (let ((__tmp103837 - (let () (declare (not safe)) (##cdr _%a103685%_))) - (__tmp103836 - (let () (declare (not safe)) (##cdr _%b103686%_)))) + (##eq? __tmp104967 __tmp104966)) + (let ((__tmp104969 + (let () (declare (not safe)) (##cdr _%a104817%_))) + (__tmp104968 + (let () (declare (not safe)) (##cdr _%b104818%_)))) (declare (not safe)) - (##eq? __tmp103837 __tmp103836)) + (##eq? __tmp104969 __tmp104968)) '#f))) (define make-prototype-table__% - (lambda (_%size-hint103666%_ _%seed103668%_) + (lambda (_%size-hint104798%_ _%seed104800%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint103666%_ + _%size-hint104798%_ __interface-hash-key __interface-test-key - _%seed103668%_)))) + _%seed104800%_)))) (define make-prototype-table__0 (lambda () - (let* ((_%size-hint103674%_ '#f) (_%seed103676%_ '0)) - (make-prototype-table__% _%size-hint103674%_ _%seed103676%_)))) + (let* ((_%size-hint104806%_ '#f) (_%seed104808%_ '0)) + (make-prototype-table__% _%size-hint104806%_ _%seed104808%_)))) (define make-prototype-table__1 - (lambda (_%size-hint103678%_) - (let ((_%seed103680%_ '0)) - (make-prototype-table__% _%size-hint103678%_ _%seed103680%_)))) + (lambda (_%size-hint104810%_) + (let ((_%seed104812%_ '0)) + (make-prototype-table__% _%size-hint104810%_ _%seed104812%_)))) (define make-prototype-table - (lambda _g103839_ - (let ((_g103838_ (let () (declare (not safe)) (##length _g103839_)))) - (cond ((let () (declare (not safe)) (##fx= _g103838_ 0)) - (apply make-prototype-table__0 _g103839_)) - ((let () (declare (not safe)) (##fx= _g103838_ 1)) - (apply make-prototype-table__1 _g103839_)) - ((let () (declare (not safe)) (##fx= _g103838_ 2)) - (apply make-prototype-table__% _g103839_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-prototype-table - _g103839_)))))) + _g104971_)))))) (define prototype-table-ref - (lambda (_%tab103619%_ _%key103620%_ _%default103621%_) - (let ((_%table103623%_ - (let () (declare (not safe)) (&raw-table-table _%tab103619%_))) - (_%seed103624%_ - (let () (declare (not safe)) (&raw-table-seed _%tab103619%_)))) - (let* ((_%h103626%_ - (fxxor (__interface-hash-key _%key103620%_) _%seed103624%_)) - (_%size103629%_ (vector-length _%table103623%_)) - (_%entries103632%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size103629%_ '2))) - (_%start103635%_ - (let ((__tmp103840 + (##fxquotient _%size104761%_ '2))) + (_%start104767%_ + (let ((__tmp104972 (let () (declare (not safe)) - (##fxmodulo _%h103626%_ _%entries103632%_)))) + (##fxmodulo _%h104758%_ _%entries104764%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp103840 '1)))) - (let _%loop103639%_ ((_%probe103642%_ _%start103635%_) - (_%i103644%_ '1) - (_%deleted103646%_ '#f)) - (let ((_%k103649%_ (vector-ref _%table103623%_ _%probe103642%_))) - (if (eq? _%k103649%_ (macro-unused-obj)) - _%default103621%_ - (if (eq? _%k103649%_ (macro-deleted-obj)) - (_%loop103639%_ - (let ((_%next-probe103654%_ - (fx+ _%start103635%_ - _%i103644%_ - (fx* _%i103644%_ _%i103644%_)))) + (##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%_)))) (declare (not safe)) - (##fxmodulo _%next-probe103654%_ _%size103629%_)) - (let () (declare (not safe)) (##fx+ _%i103644%_ '1)) - (let ((_%$e103657%_ _%deleted103646%_)) - (if _%$e103657%_ _%$e103657%_ _%probe103642%_))) - (if (__interface-test-key _%key103620%_ _%k103649%_) + (##fxmodulo _%next-probe104786%_ _%size104761%_)) + (let () (declare (not safe)) (##fx+ _%i104776%_ '1)) + (let ((_%$e104789%_ _%deleted104778%_)) + (if _%$e104789%_ _%$e104789%_ _%probe104774%_))) + (if (__interface-test-key _%key104752%_ _%k104781%_) (vector-ref - _%table103623%_ + _%table104755%_ (let () (declare (not safe)) - (##fx+ _%probe103642%_ '1))) - (_%loop103639%_ - (let ((_%next-probe103662%_ - (fx+ _%start103635%_ - _%i103644%_ - (fx* _%i103644%_ _%i103644%_)))) + (##fx+ _%probe104774%_ '1))) + (_%loop104771%_ + (let ((_%next-probe104794%_ + (fx+ _%start104767%_ + _%i104776%_ + (fx* _%i104776%_ _%i104776%_)))) (declare (not safe)) (##fxmodulo - _%next-probe103662%_ - _%size103629%_)) + _%next-probe104794%_ + _%size104761%_)) (let () (declare (not safe)) - (##fx+ _%i103644%_ '1)) - _%deleted103646%_)))))))))) + (##fx+ _%i104776%_ '1)) + _%deleted104778%_)))))))))) (define prototype-table-set! - (lambda (_%tab103615%_ _%key103616%_ _%value103617%_) - (if (let ((__tmp103843 + (lambda (_%tab104747%_ _%key104748%_ _%value104749%_) + (if (let ((__tmp104975 (let () (declare (not safe)) - (&raw-table-free _%tab103615%_))) - (__tmp103841 - (let ((__tmp103842 + (&raw-table-free _%tab104747%_))) + (__tmp104973 + (let ((__tmp104974 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab103615%_))))) + (&raw-table-table _%tab104747%_))))) (declare (not safe)) - (##fxquotient __tmp103842 '4)))) + (##fxquotient __tmp104974 '4)))) (declare (not safe)) - (##fx< __tmp103843 __tmp103841)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab103615%_)) + (##fx< __tmp104975 __tmp104973)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab104747%_)) '#!void) - (__prototype-table-set! _%tab103615%_ _%key103616%_ _%value103617%_))) + (__prototype-table-set! _%tab104747%_ _%key104748%_ _%value104749%_))) (define __prototype-table-set! - (lambda (_%tab103566%_ _%key103567%_ _%value103568%_) - (let ((_%table103571%_ - (let () (declare (not safe)) (&raw-table-table _%tab103566%_))) - (_%seed103572%_ - (let () (declare (not safe)) (&raw-table-seed _%tab103566%_)))) - (let* ((_%h103574%_ - (fxxor (__interface-hash-key _%key103567%_) _%seed103572%_)) - (_%size103577%_ (vector-length _%table103571%_)) - (_%entries103580%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size103577%_ '2))) - (_%start103583%_ - (let ((__tmp103844 + (##fxquotient _%size104709%_ '2))) + (_%start104715%_ + (let ((__tmp104976 (let () (declare (not safe)) - (##fxmodulo _%h103574%_ _%entries103580%_)))) + (##fxmodulo _%h104706%_ _%entries104712%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp103844 '1)))) - (let _%loop103587%_ ((_%probe103590%_ _%start103583%_) - (_%i103592%_ '1) - (_%deleted103594%_ '#f)) - (let ((_%k103597%_ (vector-ref _%table103571%_ _%probe103590%_))) - (if (eq? _%k103597%_ (macro-unused-obj)) - (if _%deleted103594%_ + (##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%_ (begin (vector-set! - _%table103571%_ - _%deleted103594%_ - _%key103567%_) + _%table104703%_ + _%deleted104726%_ + _%key104699%_) (vector-set! - _%table103571%_ + _%table104703%_ (let () (declare (not safe)) - (##fx+ _%deleted103594%_ '1)) - _%value103568%_) + (##fx+ _%deleted104726%_ '1)) + _%value104700%_) ((lambda () - (let ((__tmp103845 - (let ((__tmp103846 + (let ((__tmp104977 + (let ((__tmp104978 (let () (declare (not safe)) (&raw-table-count - _%tab103566%_)))) + _%tab104698%_)))) (declare (not safe)) - (##fx+ __tmp103846 '1)))) + (##fx+ __tmp104978 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab103566%_ - __tmp103845))))) + _%tab104698%_ + __tmp104977))))) (begin (vector-set! - _%table103571%_ - _%probe103590%_ - _%key103567%_) + _%table104703%_ + _%probe104722%_ + _%key104699%_) (vector-set! - _%table103571%_ + _%table104703%_ (let () (declare (not safe)) - (##fx+ _%probe103590%_ '1)) - _%value103568%_) + (##fx+ _%probe104722%_ '1)) + _%value104700%_) ((lambda () - (let ((__tmp103847 - (let ((__tmp103848 + (let ((__tmp104979 + (let ((__tmp104980 (let () (declare (not safe)) - (&raw-table-free _%tab103566%_)))) + (&raw-table-free _%tab104698%_)))) (declare (not safe)) - (##fx- __tmp103848 '1)))) + (##fx- __tmp104980 '1)))) (declare (not safe)) (&raw-table-free-set! - _%tab103566%_ - __tmp103847)) - (let ((__tmp103849 - (let ((__tmp103850 + _%tab104698%_ + __tmp104979)) + (let ((__tmp104981 + (let ((__tmp104982 (let () (declare (not safe)) (&raw-table-count - _%tab103566%_)))) + _%tab104698%_)))) (declare (not safe)) - (##fx+ __tmp103850 '1)))) + (##fx+ __tmp104982 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab103566%_ - __tmp103849)))))) - (if (eq? _%k103597%_ (macro-deleted-obj)) - (_%loop103587%_ - (let ((_%next-probe103604%_ - (fx+ _%start103583%_ - _%i103592%_ - (fx* _%i103592%_ _%i103592%_)))) + _%tab104698%_ + __tmp104981)))))) + (if (eq? _%k104729%_ (macro-deleted-obj)) + (_%loop104719%_ + (let ((_%next-probe104736%_ + (fx+ _%start104715%_ + _%i104724%_ + (fx* _%i104724%_ _%i104724%_)))) (declare (not safe)) - (##fxmodulo _%next-probe103604%_ _%size103577%_)) - (let () (declare (not safe)) (##fx+ _%i103592%_ '1)) - (let ((_%$e103607%_ _%deleted103594%_)) - (if _%$e103607%_ _%$e103607%_ _%probe103590%_))) - (if (__interface-test-key _%key103567%_ _%k103597%_) + (##fxmodulo _%next-probe104736%_ _%size104709%_)) + (let () (declare (not safe)) (##fx+ _%i104724%_ '1)) + (let ((_%$e104739%_ _%deleted104726%_)) + (if _%$e104739%_ _%$e104739%_ _%probe104722%_))) + (if (__interface-test-key _%key104699%_ _%k104729%_) (let () (vector-set! - _%table103571%_ - _%probe103590%_ - _%key103567%_) + _%table104703%_ + _%probe104722%_ + _%key104699%_) (vector-set! - _%table103571%_ + _%table104703%_ (let () (declare (not safe)) - (##fx+ _%probe103590%_ '1)) - _%value103568%_)) - (_%loop103587%_ - (let ((_%next-probe103612%_ - (fx+ _%start103583%_ - _%i103592%_ - (fx* _%i103592%_ _%i103592%_)))) + (##fx+ _%probe104722%_ '1)) + _%value104700%_)) + (_%loop104719%_ + (let ((_%next-probe104744%_ + (fx+ _%start104715%_ + _%i104724%_ + (fx* _%i104724%_ _%i104724%_)))) (declare (not safe)) (##fxmodulo - _%next-probe103612%_ - _%size103577%_)) + _%next-probe104744%_ + _%size104709%_)) (let () (declare (not safe)) - (##fx+ _%i103592%_ '1)) - _%deleted103594%_)))))))))) + (##fx+ _%i104724%_ '1)) + _%deleted104726%_)))))))))) (define prototype-table-update! - (lambda (_%tab103561%_ - _%key103562%_ - _%prototype-table-update!103563%_ - _%default103564%_) - (if (let ((__tmp103853 + (lambda (_%tab104693%_ + _%key104694%_ + _%prototype-table-update!104695%_ + _%default104696%_) + (if (let ((__tmp104985 (let () (declare (not safe)) - (&raw-table-free _%tab103561%_))) - (__tmp103851 - (let ((__tmp103852 + (&raw-table-free _%tab104693%_))) + (__tmp104983 + (let ((__tmp104984 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab103561%_))))) + (&raw-table-table _%tab104693%_))))) (declare (not safe)) - (##fxquotient __tmp103852 '4)))) + (##fxquotient __tmp104984 '4)))) (declare (not safe)) - (##fx< __tmp103853 __tmp103851)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab103561%_)) + (##fx< __tmp104985 __tmp104983)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab104693%_)) '#!void) (__prototype-table-update! - _%tab103561%_ - _%key103562%_ - _%prototype-table-update!103563%_ - _%default103564%_))) + _%tab104693%_ + _%key104694%_ + _%prototype-table-update!104695%_ + _%default104696%_))) (define __prototype-table-update! - (lambda (_%tab103511%_ - _%key103512%_ - _%prototype-table-update!103513%_ - _%default103514%_) - (let ((_%table103517%_ - (let () (declare (not safe)) (&raw-table-table _%tab103511%_))) - (_%seed103518%_ - (let () (declare (not safe)) (&raw-table-seed _%tab103511%_)))) - (let* ((_%h103520%_ - (fxxor (__interface-hash-key _%key103512%_) _%seed103518%_)) - (_%size103523%_ (vector-length _%table103517%_)) - (_%entries103526%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size103523%_ '2))) - (_%start103529%_ - (let ((__tmp103854 + (##fxquotient _%size104655%_ '2))) + (_%start104661%_ + (let ((__tmp104986 (let () (declare (not safe)) - (##fxmodulo _%h103520%_ _%entries103526%_)))) + (##fxmodulo _%h104652%_ _%entries104658%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp103854 '1)))) - (let _%loop103533%_ ((_%probe103536%_ _%start103529%_) - (_%i103538%_ '1) - (_%deleted103540%_ '#f)) - (let ((_%k103543%_ (vector-ref _%table103517%_ _%probe103536%_))) - (if (eq? _%k103543%_ (macro-unused-obj)) - (if _%deleted103540%_ + (##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%_ (begin (vector-set! - _%table103517%_ - _%deleted103540%_ - _%key103512%_) + _%table104649%_ + _%deleted104672%_ + _%key104644%_) (vector-set! - _%table103517%_ + _%table104649%_ (let () (declare (not safe)) - (##fx+ _%deleted103540%_ '1)) - (_%prototype-table-update!103513%_ - _%default103514%_)) + (##fx+ _%deleted104672%_ '1)) + (_%prototype-table-update!104645%_ + _%default104646%_)) ((lambda () - (let ((__tmp103855 - (let ((__tmp103856 + (let ((__tmp104987 + (let ((__tmp104988 (let () (declare (not safe)) (&raw-table-count - _%tab103511%_)))) + _%tab104643%_)))) (declare (not safe)) - (##fx+ __tmp103856 '1)))) + (##fx+ __tmp104988 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab103511%_ - __tmp103855))))) + _%tab104643%_ + __tmp104987))))) (begin (vector-set! - _%table103517%_ - _%probe103536%_ - _%key103512%_) + _%table104649%_ + _%probe104668%_ + _%key104644%_) (vector-set! - _%table103517%_ + _%table104649%_ (let () (declare (not safe)) - (##fx+ _%probe103536%_ '1)) - (_%prototype-table-update!103513%_ - _%default103514%_)) + (##fx+ _%probe104668%_ '1)) + (_%prototype-table-update!104645%_ + _%default104646%_)) ((lambda () - (let ((__tmp103857 - (let ((__tmp103858 + (let ((__tmp104989 + (let ((__tmp104990 (let () (declare (not safe)) - (&raw-table-free _%tab103511%_)))) + (&raw-table-free _%tab104643%_)))) (declare (not safe)) - (##fx- __tmp103858 '1)))) + (##fx- __tmp104990 '1)))) (declare (not safe)) (&raw-table-free-set! - _%tab103511%_ - __tmp103857)) - (let ((__tmp103859 - (let ((__tmp103860 + _%tab104643%_ + __tmp104989)) + (let ((__tmp104991 + (let ((__tmp104992 (let () (declare (not safe)) (&raw-table-count - _%tab103511%_)))) + _%tab104643%_)))) (declare (not safe)) - (##fx+ __tmp103860 '1)))) + (##fx+ __tmp104992 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab103511%_ - __tmp103859)))))) - (if (eq? _%k103543%_ (macro-deleted-obj)) - (_%loop103533%_ - (let ((_%next-probe103550%_ - (fx+ _%start103529%_ - _%i103538%_ - (fx* _%i103538%_ _%i103538%_)))) + _%tab104643%_ + __tmp104991)))))) + (if (eq? _%k104675%_ (macro-deleted-obj)) + (_%loop104665%_ + (let ((_%next-probe104682%_ + (fx+ _%start104661%_ + _%i104670%_ + (fx* _%i104670%_ _%i104670%_)))) (declare (not safe)) - (##fxmodulo _%next-probe103550%_ _%size103523%_)) - (let () (declare (not safe)) (##fx+ _%i103538%_ '1)) - (let ((_%$e103553%_ _%deleted103540%_)) - (if _%$e103553%_ _%$e103553%_ _%probe103536%_))) - (if (__interface-test-key _%key103512%_ _%k103543%_) + (##fxmodulo _%next-probe104682%_ _%size104655%_)) + (let () (declare (not safe)) (##fx+ _%i104670%_ '1)) + (let ((_%$e104685%_ _%deleted104672%_)) + (if _%$e104685%_ _%$e104685%_ _%probe104668%_))) + (if (__interface-test-key _%key104644%_ _%k104675%_) (let () (vector-set! - _%table103517%_ - _%probe103536%_ - _%key103512%_) + _%table104649%_ + _%probe104668%_ + _%key104644%_) (vector-set! - _%table103517%_ + _%table104649%_ (let () (declare (not safe)) - (##fx+ _%probe103536%_ '1)) - (_%prototype-table-update!103513%_ + (##fx+ _%probe104668%_ '1)) + (_%prototype-table-update!104645%_ (vector-ref - _%table103517%_ + _%table104649%_ (let () (declare (not safe)) - (##fx+ _%probe103536%_ '1)))))) - (_%loop103533%_ - (let ((_%next-probe103558%_ - (fx+ _%start103529%_ - _%i103538%_ - (fx* _%i103538%_ _%i103538%_)))) + (##fx+ _%probe104668%_ '1)))))) + (_%loop104665%_ + (let ((_%next-probe104690%_ + (fx+ _%start104661%_ + _%i104670%_ + (fx* _%i104670%_ _%i104670%_)))) (declare (not safe)) (##fxmodulo - _%next-probe103558%_ - _%size103523%_)) + _%next-probe104690%_ + _%size104655%_)) (let () (declare (not safe)) - (##fx+ _%i103538%_ '1)) - _%deleted103540%_)))))))))) + (##fx+ _%i104670%_ '1)) + _%deleted104672%_)))))))))) (define prototype-table-delete! - (lambda (_%tab103466%_ _%key103468%_) - (let ((_%table103471%_ - (let () (declare (not safe)) (&raw-table-table _%tab103466%_))) - (_%seed103473%_ - (let () (declare (not safe)) (&raw-table-seed _%tab103466%_)))) - (let* ((_%h103476%_ - (fxxor (__interface-hash-key _%key103468%_) _%seed103473%_)) - (_%size103479%_ (vector-length _%table103471%_)) - (_%entries103482%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size103479%_ '2))) - (_%start103485%_ - (let ((__tmp103861 + (##fxquotient _%size104611%_ '2))) + (_%start104617%_ + (let ((__tmp104993 (let () (declare (not safe)) - (##fxmodulo _%h103476%_ _%entries103482%_)))) + (##fxmodulo _%h104608%_ _%entries104614%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp103861 '1)))) - (let _%loop103489%_ ((_%probe103492%_ _%start103485%_) - (_%i103494%_ '1)) - (let ((_%k103497%_ (vector-ref _%table103471%_ _%probe103492%_))) - (if (eq? _%k103497%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp104993 '1)))) + (let _%loop104621%_ ((_%probe104624%_ _%start104617%_) + (_%i104626%_ '1)) + (let ((_%k104629%_ (vector-ref _%table104603%_ _%probe104624%_))) + (if (eq? _%k104629%_ (macro-unused-obj)) '#!void - (if (eq? _%k103497%_ (macro-deleted-obj)) - (_%loop103489%_ - (let ((_%next-probe103502%_ - (fx+ _%start103485%_ - _%i103494%_ - (fx* _%i103494%_ _%i103494%_)))) + (if (eq? _%k104629%_ (macro-deleted-obj)) + (_%loop104621%_ + (let ((_%next-probe104634%_ + (fx+ _%start104617%_ + _%i104626%_ + (fx* _%i104626%_ _%i104626%_)))) (declare (not safe)) - (##fxmodulo _%next-probe103502%_ _%size103479%_)) - (let () (declare (not safe)) (##fx+ _%i103494%_ '1))) - (if (__interface-test-key _%key103468%_ _%k103497%_) + (##fxmodulo _%next-probe104634%_ _%size104611%_)) + (let () (declare (not safe)) (##fx+ _%i104626%_ '1))) + (if (__interface-test-key _%key104600%_ _%k104629%_) (let () (vector-set! - _%table103471%_ - _%probe103492%_ + _%table104603%_ + _%probe104624%_ (macro-deleted-obj)) (vector-set! - _%table103471%_ + _%table104603%_ (let () (declare (not safe)) - (##fx+ _%probe103492%_ '1)) + (##fx+ _%probe104624%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp103862 - (let ((__tmp103863 + (let ((__tmp104994 + (let ((__tmp104995 (let () (declare (not safe)) (&raw-table-count - _%tab103466%_)))) + _%tab104598%_)))) (declare (not safe)) - (##fx- __tmp103863 '1)))) + (##fx- __tmp104995 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab103466%_ - __tmp103862))))) - (_%loop103489%_ - (let ((_%next-probe103508%_ - (fx+ _%start103485%_ - _%i103494%_ - (fx* _%i103494%_ _%i103494%_)))) + _%tab104598%_ + __tmp104994))))) + (_%loop104621%_ + (let ((_%next-probe104640%_ + (fx+ _%start104617%_ + _%i104626%_ + (fx* _%i104626%_ _%i104626%_)))) (declare (not safe)) (##fxmodulo - _%next-probe103508%_ - _%size103479%_)) + _%next-probe104640%_ + _%size104611%_)) (let () (declare (not safe)) - (##fx+ _%i103494%_ '1)))))))))))) + (##fx+ _%i104626%_ '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 (_%klass103458%_) - (let ((_%super103459103461%_ - (let () (declare (not safe)) (##type-super _%klass103458%_)))) - (if _%super103459103461%_ - (let ((_%super103464%_ _%super103459103461%_)) - (eq? (let () (declare (not safe)) (##type-id _%super103464%_)) + (lambda (_%klass104590%_) + (let ((_%super104591104593%_ + (let () (declare (not safe)) (##type-super _%klass104590%_)))) + (if _%super104591104593%_ + (let ((_%super104596%_ _%super104591104593%_)) + (eq? (let () (declare (not safe)) (##type-id _%super104596%_)) (let () (declare (not safe)) (##type-id interface-instance::t)))) '#f)))) (define create-prototype - (lambda (_%descriptor103343%_ _%klass103344%_ _%obj-klass103345%_) - (let ((_%method-table103347%_ + (lambda (_%descriptor104475%_ _%klass104476%_ _%obj-klass104477%_) + (let ((_%method-table104479%_ (let () (declare (not safe)) - (specialize-class _%obj-klass103345%_)))) - (let _%loop103350%_ ((_%rest103353%_ + (specialize-class _%obj-klass104477%_)))) + (let _%loop104482%_ ((_%rest104485%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor103343%_ + _%descriptor104475%_ '2 '#f '#f))) - (_%count103355%_ '0) - (_%methods103357%_ '())) - (let* ((_%rest103359103367%_ _%rest103353%_) - (_%else103361103429%_ + (_%count104487%_ '0) + (_%methods104489%_ '())) + (let* ((_%rest104491104499%_ _%rest104485%_) + (_%else104493104561%_ (lambda () - (let ((_%prototype103375%_ - (let ((__obj103824 - (let ((__tmp103864 + (let ((_%prototype104507%_ + (let ((__obj104956 + (let ((__tmp104996 (let () (declare (not safe)) - (##fx+ _%count103355%_ '2)))) + (##fx+ _%count104487%_ '2)))) (declare (not safe)) (##make-structure - _%klass103344%_ - __tmp103864)))) + _%klass104476%_ + __tmp104996)))) (let () (declare (not safe)) - (object-fill! __obj103824 '#f)) - __obj103824))) - (let _%loop103378%_ ((_%rest103380%_ _%methods103357%_) - (_%off103381%_ + (object-fill! __obj104956 '#f)) + __obj104956))) + (let _%loop104510%_ ((_%rest104512%_ _%methods104489%_) + (_%off104513%_ (let () (declare (not safe)) - (##fx+ _%count103355%_ '1)))) - (let* ((_%rest103383103391%_ _%rest103380%_) - (_%else103385103410%_ + (##fx+ _%count104487%_ '1)))) + (let* ((_%rest104515104523%_ _%rest104512%_) + (_%else104517104542%_ (lambda () - (let ((_%prototype-key103399%_ + (let ((_%prototype-key104531%_ (cons (let () (declare (not safe)) - (##type-id _%klass103344%_)) + (##type-id _%klass104476%_)) (let () (declare (not safe)) (##type-id - _%obj-klass103345%_))))) + _%obj-klass104477%_))))) (let () (declare (not interrupts-enabled)) - (let _%again103404%_ () - (if (let ((__tmp103865 + (let _%again104536%_ () + (if (let ((__tmp104997 (let () (declare (not safe)) (##vector-cas! @@ -748,17 +748,17 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp103865 '0)) + (##fx= __tmp104997 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again103404%_))))) + (_%again104536%_))))) (prototype-table-set! __interface-prototypes - _%prototype-key103399%_ - _%prototype103375%_) + _%prototype-key104531%_ + _%prototype104507%_) (let () (declare (not safe)) (##vector-cas! @@ -766,151 +766,149 @@ '0 '0 '1)) - ((lambda (_%prototype103408%_) - _%prototype103408%_) - _%prototype103375%_)))) - (_%K103387103417%_ - (lambda (_%rest103413%_ _%method103414%_) + ((lambda (_%prototype104540%_) + _%prototype104540%_) + _%prototype104507%_)))) + (_%K104519104549%_ + (lambda (_%rest104545%_ _%method104546%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype103375%_ - _%method103414%_ - _%off103381%_ - _%klass103344%_ + _%prototype104507%_ + _%method104546%_ + _%off104513%_ + _%klass104476%_ '#f)) - (_%loop103378%_ - _%rest103413%_ + (_%loop104510%_ + _%rest104545%_ (let () (declare (not safe)) - (##fx- _%off103381%_ '1)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest103383103391%_)) - (let ((_%hd103388103420%_ + (##fx- _%off104513%_ '1)))))) + (if (pair? _%rest104515104523%_) + (let ((_%hd104520104552%_ (let () (declare (not safe)) - (##car _%rest103383103391%_))) - (_%tl103389103422%_ + (##car _%rest104515104523%_))) + (_%tl104521104554%_ (let () (declare (not safe)) - (##cdr _%rest103383103391%_)))) - (let* ((_%method103425%_ _%hd103388103420%_) - (_%rest103427%_ _%tl103389103422%_)) - (_%K103387103417%_ - _%rest103427%_ - _%method103425%_))) - (_%else103385103410%_))))))) - (_%K103363103446%_ - (lambda (_%rest103432%_ _%method-name103433%_) - (let ((_%$e103436%_ + (##cdr _%rest104515104523%_)))) + (let* ((_%method104557%_ _%hd104520104552%_) + (_%rest104559%_ _%tl104521104554%_)) + (_%K104519104549%_ + _%rest104559%_ + _%method104557%_))) + (_%else104517104542%_))))))) + (_%K104495104578%_ + (lambda (_%rest104564%_ _%method-name104565%_) + (let ((_%$e104568%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table103347%_ - _%method-name103433%_ + _%method-table104479%_ + _%method-name104565%_ '#f)))) - (if _%$e103436%_ - ((lambda (_%method103439%_) - (_%loop103350%_ - _%rest103432%_ + (if _%$e104568%_ + ((lambda (_%method104571%_) + (_%loop104482%_ + _%rest104564%_ (let () (declare (not safe)) - (##fx+ _%count103355%_ '1)) - (cons _%method103439%_ _%methods103357%_))) - _%$e103436%_) - ((lambda (_%klass103442%_ - _%obj-klass103443%_ - _%method-name103444%_) + (##fx+ _%count104487%_ '1)) + (cons _%method104571%_ _%methods104489%_))) + _%$e104568%_) + ((lambda (_%klass104574%_ + _%obj-klass104575%_ + _%method-name104576%_) (raise-cast-error 'create-prototype '"cannot create interface instance; missing method" 'interface: - _%klass103442%_ + _%klass104574%_ 'interface-id: (let () (declare (not safe)) - (##type-id _%klass103442%_)) + (##type-id _%klass104574%_)) 'class: - _%obj-klass103443%_ + _%obj-klass104575%_ 'class-id: (let () (declare (not safe)) - (##type-id _%obj-klass103443%_)) + (##type-id _%obj-klass104575%_)) 'method: - _%method-name103444%_) + _%method-name104576%_) '#!void) - _%klass103344%_ - _%obj-klass103345%_ - _%method-name103433%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest103359103367%_)) - (let ((_%hd103364103449%_ + _%klass104476%_ + _%obj-klass104477%_ + _%method-name104565%_)))))) + (if (pair? _%rest104491104499%_) + (let ((_%hd104496104581%_ (let () (declare (not safe)) - (##car _%rest103359103367%_))) - (_%tl103365103451%_ + (##car _%rest104491104499%_))) + (_%tl104497104583%_ (let () (declare (not safe)) - (##cdr _%rest103359103367%_)))) - (let* ((_%method-name103454%_ _%hd103364103449%_) - (_%rest103456%_ _%tl103365103451%_)) - (_%K103363103446%_ - _%rest103456%_ - _%method-name103454%_))) - (_%else103361103429%_))))))) + (##cdr _%rest104491104499%_)))) + (let* ((_%method-name104586%_ _%hd104496104581%_) + (_%rest104588%_ _%tl104497104583%_)) + (_%K104495104578%_ + _%rest104588%_ + _%method-name104586%_))) + (_%else104493104561%_))))))) (define try-create-prototype - (lambda (_%descriptor103228%_ _%klass103229%_ _%obj-klass103230%_) - (let ((_%method-table103232%_ + (lambda (_%descriptor104360%_ _%klass104361%_ _%obj-klass104362%_) + (let ((_%method-table104364%_ (let () (declare (not safe)) - (specialize-class _%obj-klass103230%_)))) - (let _%loop103235%_ ((_%rest103238%_ + (specialize-class _%obj-klass104362%_)))) + (let _%loop104367%_ ((_%rest104370%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor103228%_ + _%descriptor104360%_ '2 '#f '#f))) - (_%count103240%_ '0) - (_%methods103242%_ '())) - (let* ((_%rest103244103252%_ _%rest103238%_) - (_%else103246103314%_ + (_%count104372%_ '0) + (_%methods104374%_ '())) + (let* ((_%rest104376104384%_ _%rest104370%_) + (_%else104378104446%_ (lambda () - (let ((_%prototype103260%_ - (let ((__obj103825 - (let ((__tmp103866 + (let ((_%prototype104392%_ + (let ((__obj104957 + (let ((__tmp104998 (let () (declare (not safe)) - (##fx+ _%count103240%_ '2)))) + (##fx+ _%count104372%_ '2)))) (declare (not safe)) (##make-structure - _%klass103229%_ - __tmp103866)))) + _%klass104361%_ + __tmp104998)))) (let () (declare (not safe)) - (object-fill! __obj103825 '#f)) - __obj103825))) - (let _%loop103263%_ ((_%rest103265%_ _%methods103242%_) - (_%off103266%_ + (object-fill! __obj104957 '#f)) + __obj104957))) + (let _%loop104395%_ ((_%rest104397%_ _%methods104374%_) + (_%off104398%_ (let () (declare (not safe)) - (##fx+ _%count103240%_ '1)))) - (let* ((_%rest103268103276%_ _%rest103265%_) - (_%else103270103295%_ + (##fx+ _%count104372%_ '1)))) + (let* ((_%rest104400104408%_ _%rest104397%_) + (_%else104402104427%_ (lambda () - (let ((_%prototype-key103284%_ + (let ((_%prototype-key104416%_ (cons (let () (declare (not safe)) - (##type-id _%klass103229%_)) + (##type-id _%klass104361%_)) (let () (declare (not safe)) (##type-id - _%obj-klass103230%_))))) + _%obj-klass104362%_))))) (let () (declare (not interrupts-enabled)) - (let _%again103289%_ () - (if (let ((__tmp103867 + (let _%again104421%_ () + (if (let ((__tmp104999 (let () (declare (not safe)) (##vector-cas! @@ -919,17 +917,17 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp103867 '0)) + (##fx= __tmp104999 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again103289%_))))) + (_%again104421%_))))) (prototype-table-set! __interface-prototypes - _%prototype-key103284%_ - _%prototype103260%_) + _%prototype-key104416%_ + _%prototype104392%_) (let () (declare (not safe)) (##vector-cas! @@ -937,112 +935,110 @@ '0 '0 '1)) - ((lambda (_%prototype103293%_) - _%prototype103293%_) - _%prototype103260%_)))) - (_%K103272103302%_ - (lambda (_%rest103298%_ _%method103299%_) + ((lambda (_%prototype104425%_) + _%prototype104425%_) + _%prototype104392%_)))) + (_%K104404104434%_ + (lambda (_%rest104430%_ _%method104431%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype103260%_ - _%method103299%_ - _%off103266%_ - _%klass103229%_ + _%prototype104392%_ + _%method104431%_ + _%off104398%_ + _%klass104361%_ '#f)) - (_%loop103263%_ - _%rest103298%_ + (_%loop104395%_ + _%rest104430%_ (let () (declare (not safe)) - (##fx- _%off103266%_ '1)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest103268103276%_)) - (let ((_%hd103273103305%_ + (##fx- _%off104398%_ '1)))))) + (if (pair? _%rest104400104408%_) + (let ((_%hd104405104437%_ (let () (declare (not safe)) - (##car _%rest103268103276%_))) - (_%tl103274103307%_ + (##car _%rest104400104408%_))) + (_%tl104406104439%_ (let () (declare (not safe)) - (##cdr _%rest103268103276%_)))) - (let* ((_%method103310%_ _%hd103273103305%_) - (_%rest103312%_ _%tl103274103307%_)) - (_%K103272103302%_ - _%rest103312%_ - _%method103310%_))) - (_%else103270103295%_))))))) - (_%K103248103331%_ - (lambda (_%rest103317%_ _%method-name103318%_) - (let ((_%$e103321%_ + (##cdr _%rest104400104408%_)))) + (let* ((_%method104442%_ _%hd104405104437%_) + (_%rest104444%_ _%tl104406104439%_)) + (_%K104404104434%_ + _%rest104444%_ + _%method104442%_))) + (_%else104402104427%_))))))) + (_%K104380104463%_ + (lambda (_%rest104449%_ _%method-name104450%_) + (let ((_%$e104453%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table103232%_ - _%method-name103318%_ + _%method-table104364%_ + _%method-name104450%_ '#f)))) - (if _%$e103321%_ - ((lambda (_%method103324%_) - (_%loop103235%_ - _%rest103317%_ + (if _%$e104453%_ + ((lambda (_%method104456%_) + (_%loop104367%_ + _%rest104449%_ (let () (declare (not safe)) - (##fx+ _%count103240%_ '1)) - (cons _%method103324%_ _%methods103242%_))) - _%$e103321%_) - ((lambda (_%klass103327%_ - _%obj-klass103328%_ - _%method-name103329%_) + (##fx+ _%count104372%_ '1)) + (cons _%method104456%_ _%methods104374%_))) + _%$e104453%_) + ((lambda (_%klass104459%_ + _%obj-klass104460%_ + _%method-name104461%_) '#f) - _%klass103229%_ - _%obj-klass103230%_ - _%method-name103318%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest103244103252%_)) - (let ((_%hd103249103334%_ + _%klass104361%_ + _%obj-klass104362%_ + _%method-name104450%_)))))) + (if (pair? _%rest104376104384%_) + (let ((_%hd104381104466%_ (let () (declare (not safe)) - (##car _%rest103244103252%_))) - (_%tl103250103336%_ + (##car _%rest104376104384%_))) + (_%tl104382104468%_ (let () (declare (not safe)) - (##cdr _%rest103244103252%_)))) - (let* ((_%method-name103339%_ _%hd103249103334%_) - (_%rest103341%_ _%tl103250103336%_)) - (_%K103248103331%_ - _%rest103341%_ - _%method-name103339%_))) - (_%else103246103314%_))))))) + (##cdr _%rest104376104384%_)))) + (let* ((_%method-name104471%_ _%hd104381104466%_) + (_%rest104473%_ _%tl104382104468%_)) + (_%K104380104463%_ + _%rest104473%_ + _%method-name104471%_))) + (_%else104378104446%_))))))) (define cast - (lambda (_%descriptor103186%_ _%obj103188%_) + (lambda (_%descriptor104318%_ _%obj104320%_) (declare (not interrupts-enabled)) - (let* ((_%klass103192%_ + (let* ((_%klass104324%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor103186%_ '1 '#f '#f))) - (_%klass-id103195%_ - (let () (declare (not safe)) (##type-id _%klass103192%_))) - (_%obj-klass103198%_ - (let () (declare (not safe)) (class-of _%obj103188%_))) - (_%obj-klass-id103201%_ - (let () (declare (not safe)) (##type-id _%obj-klass103198%_)))) + (##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%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id103195%_ _%obj-klass-id103201%_)) - _%obj103188%_ - (if (interface-subclass? _%obj-klass103198%_) - (cast _%descriptor103186%_ + (##eq? _%klass-id104327%_ _%obj-klass-id104333%_)) + _%obj104320%_ + (if (interface-subclass? _%obj-klass104330%_) + (cast _%descriptor104318%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%obj103188%_ + _%obj104320%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again103210%_ () - (if (let ((__tmp103868 + (let _%again104342%_ () + (if (let ((__tmp105000 (let () (declare (not safe)) (##vector-cas! @@ -1051,29 +1047,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp103868 '0)) + (##fx= __tmp105000 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again103210%_))))) + (_%again104342%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id103195%_)) + _%klass-id104327%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id103201%_)) - (let ((_%prototype103221%_ - (let ((_%$e103214%_ + _%obj-klass-id104333%_)) + (let ((_%prototype104353%_ + (let ((_%$e104346%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e103214%_ - ((lambda (_%prototype103217%_) + (if _%$e104346%_ + ((lambda (_%prototype104349%_) (let () (declare (not safe)) (##vector-cas! @@ -1081,8 +1077,8 @@ '0 '0 '1)) - _%prototype103217%_) - _%$e103214%_) + _%prototype104349%_) + _%$e104346%_) (let () (let () (declare (not safe)) @@ -1092,53 +1088,53 @@ '0 '1)) (create-prototype - _%descriptor103186%_ - _%klass103192%_ - _%obj-klass103198%_)))))) - ((lambda (_%prototype103223%_ _%obj103224%_) - (let ((_%instance103226%_ + _%descriptor104318%_ + _%klass104324%_ + _%obj-klass104330%_)))))) + ((lambda (_%prototype104355%_ _%obj104356%_) + (let ((_%instance104358%_ (let () (declare (not safe)) - (##structure-copy _%prototype103223%_)))) + (##structure-copy _%prototype104355%_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%instance103226%_ - _%obj103224%_ + _%instance104358%_ + _%obj104356%_ '1 '#f 'cast)) - _%instance103226%_)) - _%prototype103221%_ - _%obj103188%_)))))))) + _%instance104358%_)) + _%prototype104353%_ + _%obj104320%_)))))))) (define try-cast - (lambda (_%descriptor103144%_ _%obj103146%_) + (lambda (_%descriptor104276%_ _%obj104278%_) (declare (not interrupts-enabled)) - (let* ((_%klass103150%_ + (let* ((_%klass104282%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor103144%_ '1 '#f '#f))) - (_%klass-id103153%_ - (let () (declare (not safe)) (##type-id _%klass103150%_))) - (_%obj-klass103156%_ - (let () (declare (not safe)) (class-of _%obj103146%_))) - (_%obj-klass-id103159%_ - (let () (declare (not safe)) (##type-id _%obj-klass103156%_)))) + (##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%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id103153%_ _%obj-klass-id103159%_)) - _%obj103146%_ - (if (interface-subclass? _%obj-klass103156%_) + (##eq? _%klass-id104285%_ _%obj-klass-id104291%_)) + _%obj104278%_ + (if (interface-subclass? _%obj-klass104288%_) (try-cast - _%descriptor103144%_ + _%descriptor104276%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%obj103146%_ '1 '#f '#f))) + (##unchecked-structure-ref _%obj104278%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again103168%_ () - (if (let ((__tmp103869 + (let _%again104300%_ () + (if (let ((__tmp105001 (let () (declare (not safe)) (##vector-cas! @@ -1147,29 +1143,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp103869 '0)) + (##fx= __tmp105001 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again103168%_))))) + (_%again104300%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id103153%_)) + _%klass-id104285%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id103159%_)) - (let ((_%prototype103179%_ - (let ((_%$e103172%_ + _%obj-klass-id104291%_)) + (let ((_%prototype104311%_ + (let ((_%$e104304%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e103172%_ - ((lambda (_%prototype103175%_) + (if _%$e104304%_ + ((lambda (_%prototype104307%_) (let () (declare (not safe)) (##vector-cas! @@ -1177,8 +1173,8 @@ '0 '0 '1)) - _%prototype103175%_) - _%$e103172%_) + _%prototype104307%_) + _%$e104304%_) (let () (let () (declare (not safe)) @@ -1188,55 +1184,55 @@ '0 '1)) (try-create-prototype - _%descriptor103144%_ - _%klass103150%_ - _%obj-klass103156%_)))))) - ((lambda (_%prototype103181%_ _%obj103182%_) - (if _%prototype103181%_ - (let ((_%instance103184%_ + _%descriptor104276%_ + _%klass104282%_ + _%obj-klass104288%_)))))) + ((lambda (_%prototype104313%_ _%obj104314%_) + (if _%prototype104313%_ + (let ((_%instance104316%_ (let () (declare (not safe)) - (##structure-copy _%prototype103181%_)))) + (##structure-copy _%prototype104313%_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%instance103184%_ - _%obj103182%_ + _%instance104316%_ + _%obj104314%_ '1 '#f 'cast)) - _%instance103184%_) + _%instance104316%_) '#f)) - _%prototype103179%_ - _%obj103146%_)))))))) + _%prototype104311%_ + _%obj104278%_)))))))) (define satisfies? - (lambda (_%descriptor103104%_ _%obj103106%_) + (lambda (_%descriptor104236%_ _%obj104238%_) (declare (not interrupts-enabled)) - (let* ((_%klass103110%_ + (let* ((_%klass104242%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor103104%_ '1 '#f '#f))) - (_%klass-id103113%_ - (let () (declare (not safe)) (##type-id _%klass103110%_))) - (_%obj-klass103116%_ - (let () (declare (not safe)) (class-of _%obj103106%_))) - (_%obj-klass-id103119%_ - (let () (declare (not safe)) (##type-id _%obj-klass103116%_)))) + (##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%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id103113%_ _%obj-klass-id103119%_)) - _%obj103106%_ - (if (interface-subclass? _%obj-klass103116%_) + (##eq? _%klass-id104245%_ _%obj-klass-id104251%_)) + _%obj104238%_ + (if (interface-subclass? _%obj-klass104248%_) (satisfies? - _%descriptor103104%_ + _%descriptor104236%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%obj103106%_ '1 '#f '#f))) + (##unchecked-structure-ref _%obj104238%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again103128%_ () - (if (let ((__tmp103870 + (let _%again104260%_ () + (if (let ((__tmp105002 (let () (declare (not safe)) (##vector-cas! @@ -1245,29 +1241,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp103870 '0)) + (##fx= __tmp105002 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again103128%_))))) + (_%again104260%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id103113%_)) + _%klass-id104245%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id103119%_)) - (let ((_%prototype103139%_ - (let ((_%$e103132%_ + _%obj-klass-id104251%_)) + (let ((_%prototype104271%_ + (let ((_%$e104264%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e103132%_ - ((lambda (_%prototype103135%_) + (if _%$e104264%_ + ((lambda (_%prototype104267%_) (let () (declare (not safe)) (##vector-cas! @@ -1275,8 +1271,8 @@ '0 '0 '1)) - _%prototype103135%_) - _%$e103132%_) + _%prototype104267%_) + _%$e104264%_) (let () (let () (declare (not safe)) @@ -1286,10 +1282,10 @@ '0 '1)) (try-create-prototype - _%descriptor103104%_ - _%klass103110%_ - _%obj-klass103116%_)))))) - ((lambda (_%prototype103141%_ _%obj103142%_) - (if _%prototype103141%_ '#t '#f)) - _%prototype103139%_ - _%obj103106%_)))))))))) + _%descriptor104236%_ + _%klass104242%_ + _%obj-klass104248%_)))))) + ((lambda (_%prototype104273%_ _%obj104274%_) + (if _%prototype104273%_ '#t '#f)) + _%prototype104271%_ + _%obj104238%_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/interface~1.scm b/src/bootstrap/gerbil/runtime/interface~1.scm index 2c41dfd94..e7346ec7d 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]#_g103872_| + (define |[1]#_g105004_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g103874_| + (define |[1]#_g105006_| (##structure gx#syntax-quote::t 'CastError::t #f (gx#current-expander-context) '())) - (define |[1]#_g103876_| + (define |[1]#_g105008_| (##structure gx#syntax-quote::t 'make-CastError #f (gx#current-expander-context) '())) - (define |[1]#_g103878_| + (define |[1]#_g105010_| (##structure gx#syntax-quote::t 'CastError? #f (gx#current-expander-context) '())) - (define |[1]#_g103880_| + (define |[1]#_g105012_| (##structure gx#syntax-quote::t 'CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g103881_| + (define |[1]#_g105013_| (##structure gx#syntax-quote::t 'CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g103882_| + (define |[1]#_g105014_| (##structure gx#syntax-quote::t 'CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g103883_| + (define |[1]#_g105015_| (##structure gx#syntax-quote::t 'CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103885_| + (define |[1]#_g105017_| (##structure gx#syntax-quote::t 'CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103886_| + (define |[1]#_g105018_| (##structure gx#syntax-quote::t 'CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103887_| + (define |[1]#_g105019_| (##structure gx#syntax-quote::t 'CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103888_| + (define |[1]#_g105020_| (##structure gx#syntax-quote::t 'CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103890_| + (define |[1]#_g105022_| (##structure gx#syntax-quote::t '&CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g103891_| + (define |[1]#_g105023_| (##structure gx#syntax-quote::t '&CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g103892_| + (define |[1]#_g105024_| (##structure gx#syntax-quote::t '&CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g103893_| + (define |[1]#_g105025_| (##structure gx#syntax-quote::t '&CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103895_| + (define |[1]#_g105027_| (##structure gx#syntax-quote::t '&CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103896_| + (define |[1]#_g105028_| (##structure gx#syntax-quote::t '&CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103897_| + (define |[1]#_g105029_| (##structure gx#syntax-quote::t '&CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103898_| + (define |[1]#_g105030_| (##structure gx#syntax-quote::t '&CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103900_| + (define |[1]#_g105032_| (##structure gx#syntax-quote::t 'interface-descriptor::t #f (gx#current-expander-context) '())) - (define |[1]#_g103902_| + (define |[1]#_g105034_| (##structure gx#syntax-quote::t 'make-interface-descriptor #f (gx#current-expander-context) '())) - (define |[1]#_g103904_| + (define |[1]#_g105036_| (##structure gx#syntax-quote::t 'interface-descriptor? #f (gx#current-expander-context) '())) - (define |[1]#_g103906_| + (define |[1]#_g105038_| (##structure gx#syntax-quote::t 'interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g103907_| + (define |[1]#_g105039_| (##structure gx#syntax-quote::t 'interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g103909_| + (define |[1]#_g105041_| (##structure gx#syntax-quote::t 'interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103910_| + (define |[1]#_g105042_| (##structure gx#syntax-quote::t 'interface-descriptor-methods-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103912_| + (define |[1]#_g105044_| (##structure gx#syntax-quote::t '&interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g103913_| + (define |[1]#_g105045_| (##structure gx#syntax-quote::t '&interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g103915_| + (define |[1]#_g105047_| (##structure gx#syntax-quote::t '&interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103916_| + (define |[1]#_g105048_| (##structure gx#syntax-quote::t '&interface-descriptor-methods-set! @@ -219,7 +219,7 @@ '())) (begin (define |[:0:]#CastError| - (let ((__obj103821 + (let ((__obj104953 (let () (declare (not safe)) (##structure @@ -248,93 +248,93 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103821 + __obj104953 'gerbil/runtime/interface#CastError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103821 'CastError '2 '#f '#f)) + (##unchecked-structure-set! __obj104953 'CastError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103821 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj104953 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103821 + __obj104953 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp103871 (cons |[1]#_g103872_| '()))) + (let ((__tmp105003 (cons |[1]#_g105004_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj103821 __tmp103871 '3 '#f '#f)) + (##unchecked-structure-set! __obj104953 __tmp105003 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103821 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj104953 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103821 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj104953 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103821 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj104953 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103821 ':init! '11 '#f '#f)) - (let ((__tmp103873 |[1]#_g103874_|)) + (##unchecked-structure-set! __obj104953 ':init! '11 '#f '#f)) + (let ((__tmp105005 |[1]#_g105006_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103821 __tmp103873 '12 '#f '#f)) - (let ((__tmp103875 |[1]#_g103876_|)) + (##unchecked-structure-set! __obj104953 __tmp105005 '12 '#f '#f)) + (let ((__tmp105007 |[1]#_g105008_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103821 __tmp103875 '13 '#f '#f)) - (let ((__tmp103877 |[1]#_g103878_|)) + (##unchecked-structure-set! __obj104953 __tmp105007 '13 '#f '#f)) + (let ((__tmp105009 |[1]#_g105010_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103821 __tmp103877 '14 '#f '#f)) - (let ((__tmp103879 - (cons (cons 'message |[1]#_g103880_|) - (cons (cons 'irritants |[1]#_g103881_|) - (cons (cons 'where |[1]#_g103882_|) - (cons (cons 'continuation |[1]#_g103883_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103821 __tmp103879 '15 '#f '#f)) - (let ((__tmp103884 - (cons (cons 'message |[1]#_g103885_|) - (cons (cons 'irritants |[1]#_g103886_|) - (cons (cons 'where |[1]#_g103887_|) - (cons (cons 'continuation |[1]#_g103888_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103821 __tmp103884 '16 '#f '#f)) - (let ((__tmp103889 - (cons (cons 'message |[1]#_g103890_|) - (cons (cons 'irritants |[1]#_g103891_|) - (cons (cons 'where |[1]#_g103892_|) - (cons (cons 'continuation |[1]#_g103893_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103821 __tmp103889 '17 '#f '#f)) - (let ((__tmp103894 - (cons (cons 'message |[1]#_g103895_|) - (cons (cons 'irritants |[1]#_g103896_|) - (cons (cons 'where |[1]#_g103897_|) - (cons (cons 'continuation |[1]#_g103898_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103821 __tmp103894 '18 '#f '#f)) + (##unchecked-structure-set! __obj104953 __tmp105026 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103821 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj104953 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103821 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj104953 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103821 '() '20 '#f '#f)) - __obj103821)) + (##unchecked-structure-set! __obj104953 '() '20 '#f '#f)) + __obj104953)) (define |[:0:]#interface-descriptor| - (let ((__obj103823 + (let ((__obj104955 (let () (declare (not safe)) (##structure @@ -363,7 +363,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103823 + __obj104955 'gerbil/runtime/interface#interface-descriptor::t '1 '#f @@ -371,157 +371,157 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103823 + __obj104955 'interface-descriptor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103823 '(type methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj104955 '(type methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103823 '(type methods) '6 '#f '#f)) + (##unchecked-structure-set! __obj104955 '(type methods) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103823 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj104955 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103823 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj104955 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103823 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj104955 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103823 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj104955 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103823 '#f '11 '#f '#f)) - (let ((__tmp103899 |[1]#_g103900_|)) + (##unchecked-structure-set! __obj104955 '#f '11 '#f '#f)) + (let ((__tmp105031 |[1]#_g105032_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103823 __tmp103899 '12 '#f '#f)) - (let ((__tmp103901 |[1]#_g103902_|)) + (##unchecked-structure-set! __obj104955 __tmp105031 '12 '#f '#f)) + (let ((__tmp105033 |[1]#_g105034_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103823 __tmp103901 '13 '#f '#f)) - (let ((__tmp103903 |[1]#_g103904_|)) + (##unchecked-structure-set! __obj104955 __tmp105033 '13 '#f '#f)) + (let ((__tmp105035 |[1]#_g105036_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103823 __tmp103903 '14 '#f '#f)) - (let ((__tmp103905 - (cons (cons 'type |[1]#_g103906_|) - (cons (cons 'methods |[1]#_g103907_|) '())))) + (##unchecked-structure-set! __obj104955 __tmp105035 '14 '#f '#f)) + (let ((__tmp105037 + (cons (cons 'type |[1]#_g105038_|) + (cons (cons 'methods |[1]#_g105039_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103823 __tmp103905 '15 '#f '#f)) - (let ((__tmp103908 - (cons (cons 'type |[1]#_g103909_|) - (cons (cons 'methods |[1]#_g103910_|) '())))) + (##unchecked-structure-set! __obj104955 __tmp105037 '15 '#f '#f)) + (let ((__tmp105040 + (cons (cons 'type |[1]#_g105041_|) + (cons (cons 'methods |[1]#_g105042_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103823 __tmp103908 '16 '#f '#f)) - (let ((__tmp103911 - (cons (cons 'type |[1]#_g103912_|) - (cons (cons 'methods |[1]#_g103913_|) '())))) + (##unchecked-structure-set! __obj104955 __tmp105040 '16 '#f '#f)) + (let ((__tmp105043 + (cons (cons 'type |[1]#_g105044_|) + (cons (cons 'methods |[1]#_g105045_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103823 __tmp103911 '17 '#f '#f)) - (let ((__tmp103914 - (cons (cons 'type |[1]#_g103915_|) - (cons (cons 'methods |[1]#_g103916_|) '())))) + (##unchecked-structure-set! __obj104955 __tmp105043 '17 '#f '#f)) + (let ((__tmp105046 + (cons (cons 'type |[1]#_g105047_|) + (cons (cons 'methods |[1]#_g105048_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103823 __tmp103914 '18 '#f '#f)) + (##unchecked-structure-set! __obj104955 __tmp105046 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103823 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj104955 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103823 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj104955 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103823 '() '20 '#f '#f)) - __obj103823)) + (##unchecked-structure-set! __obj104955 '() '20 '#f '#f)) + __obj104955)) (define |[:0:]#do-create-prototype| - (lambda (_%$stx102869%_) - (let* ((_%g102873102903%_ - (lambda (_%g102874102899%_) + (lambda (_%$stx104001%_) + (let* ((_%g104005104035%_ + (lambda (_%g104006104031%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102874102899%_))) - (_%g102872103001%_ - (lambda (_%g102874102907%_) - (if (gx#stx-pair? _%g102874102907%_) - (let ((_%e102880102910%_ - (gx#syntax-e _%g102874102907%_))) - (let ((_%hd102881102914%_ + _%g104006104031%_))) + (_%g104004104133%_ + (lambda (_%g104006104039%_) + (if (gx#stx-pair? _%g104006104039%_) + (let ((_%e104012104042%_ + (gx#syntax-e _%g104006104039%_))) + (let ((_%hd104013104046%_ (let () (declare (not safe)) - (##car _%e102880102910%_))) - (_%tl102882102917%_ + (##car _%e104012104042%_))) + (_%tl104014104049%_ (let () (declare (not safe)) - (##cdr _%e102880102910%_)))) - (if (gx#stx-pair? _%tl102882102917%_) - (let ((_%e102883102920%_ - (gx#syntax-e _%tl102882102917%_))) - (let ((_%hd102884102924%_ + (##cdr _%e104012104042%_)))) + (if (gx#stx-pair? _%tl104014104049%_) + (let ((_%e104015104052%_ + (gx#syntax-e _%tl104014104049%_))) + (let ((_%hd104016104056%_ (let () (declare (not safe)) - (##car _%e102883102920%_))) - (_%tl102885102927%_ + (##car _%e104015104052%_))) + (_%tl104017104059%_ (let () (declare (not safe)) - (##cdr _%e102883102920%_)))) - (if (gx#stx-pair? _%tl102885102927%_) - (let ((_%e102886102930%_ - (gx#syntax-e _%tl102885102927%_))) - (let ((_%hd102887102934%_ + (##cdr _%e104015104052%_)))) + (if (gx#stx-pair? _%tl104017104059%_) + (let ((_%e104018104062%_ + (gx#syntax-e _%tl104017104059%_))) + (let ((_%hd104019104066%_ (let () (declare (not safe)) - (##car _%e102886102930%_))) - (_%tl102888102937%_ + (##car _%e104018104062%_))) + (_%tl104020104069%_ (let () (declare (not safe)) - (##cdr _%e102886102930%_)))) - (if (gx#stx-pair? _%tl102888102937%_) - (let ((_%e102889102940%_ + (##cdr _%e104018104062%_)))) + (if (gx#stx-pair? _%tl104020104069%_) + (let ((_%e104021104072%_ (gx#syntax-e - _%tl102888102937%_))) - (let ((_%hd102890102944%_ + _%tl104020104069%_))) + (let ((_%hd104022104076%_ (let () (declare (not safe)) - (##car _%e102889102940%_))) - (_%tl102891102947%_ + (##car _%e104021104072%_))) + (_%tl104023104079%_ (let () (declare (not safe)) - (##cdr _%e102889102940%_)))) + (##cdr _%e104021104072%_)))) (if (gx#stx-pair? - _%tl102891102947%_) - (let ((_%e102892102950%_ + _%tl104023104079%_) + (let ((_%e104024104082%_ (gx#syntax-e - _%tl102891102947%_))) - (let ((_%hd102893102954%_ + _%tl104023104079%_))) + (let ((_%hd104025104086%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e102892102950%_))) - (_%tl102894102957%_ + (##car _%e104024104082%_))) + (_%tl104026104089%_ (let () (declare (not safe)) - (##cdr _%e102892102950%_)))) - (if (gx#stx-pair? _%tl102894102957%_) - (let ((_%e102895102960%_ - (gx#syntax-e _%tl102894102957%_))) - (let ((_%hd102896102964%_ + (##cdr _%e104024104082%_)))) + (if (gx#stx-pair? _%tl104026104089%_) + (let ((_%e104027104092%_ + (gx#syntax-e _%tl104026104089%_))) + (let ((_%hd104028104096%_ (let () (declare (not safe)) - (##car _%e102895102960%_))) - (_%tl102897102967%_ + (##car _%e104027104092%_))) + (_%tl104029104099%_ (let () (declare (not safe)) - (##cdr _%e102895102960%_)))) - (if (gx#stx-null? _%tl102897102967%_) - ((lambda (_%L102970%_ - _%L102972%_ - _%L102973%_ - _%L102974%_ - _%L102975%_) + (##cdr _%e104027104092%_)))) + (if (gx#stx-null? _%tl104029104099%_) + ((lambda (_%L104102%_ + _%L104104%_ + _%L104105%_ + _%L104106%_ + _%L104107%_) (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 _%L102973%_ + (cons _%L104105%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -547,7 +547,7 @@ (cons (cons (gx#datum->syntax '#f '&interface-descriptor-methods) - (cons _%L102975%_ '())) + (cons _%L104107%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'count) (cons '0 '())) @@ -613,10 +613,10 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L102970%_ - (cons _%L102974%_ + (cons (cons _%L104102%_ + (cons _%L104106%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L102973%_ + (cons _%L104105%_ (cons (gx#datum->syntax '#f 'method-name) '())))) '())) @@ -635,7 +635,7 @@ (cons (cons (gx#datum->syntax '#f 'make-object) - (cons _%L102974%_ + (cons _%L104106%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L102974%_ + (cons _%L104106%_ (cons '#f '())))))) (cons (cons (gx#datum->syntax '#f 'loop) (cons (gx#datum->syntax '#f 'rest) @@ -710,9 +710,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##type-id) - (cons _%L102974%_ '())) + (cons _%L104106%_ '())) (cons (cons (gx#datum->syntax '#f '##type-id) - (cons _%L102973%_ '())) + (cons _%L104105%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -741,7 +741,7 @@ '#f '__interface-prototypes-mx) '())) - (cons (cons _%L102972%_ + (cons (cons _%L104104%_ (cons (gx#datum->syntax '#f 'prototype) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -757,85 +757,85 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd102896102964%_ - _%hd102893102954%_ - _%hd102890102944%_ - _%hd102887102934%_ - _%hd102884102924%_) - (_%g102873102903%_ _%g102874102907%_)))) - (_%g102873102903%_ _%g102874102907%_)))) - (_%g102873102903%_ _%g102874102907%_)))) + _%hd104028104096%_ + _%hd104025104086%_ + _%hd104022104076%_ + _%hd104019104066%_ + _%hd104016104056%_) + (_%g104005104035%_ _%g104006104039%_)))) + (_%g104005104035%_ _%g104006104039%_)))) + (_%g104005104035%_ _%g104006104039%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g102873102903%_ - _%g102874102907%_)))) - (_%g102873102903%_ _%g102874102907%_)))) - (_%g102873102903%_ _%g102874102907%_)))) - (_%g102873102903%_ _%g102874102907%_))))) - (_%g102872103001%_ _%$stx102869%_)))) + (_%g104005104035%_ + _%g104006104039%_)))) + (_%g104005104035%_ _%g104006104039%_)))) + (_%g104005104035%_ _%g104006104039%_)))) + (_%g104005104035%_ _%g104006104039%_))))) + (_%g104004104133%_ _%$stx104001%_)))) (define |[:0:]#defcast| - (lambda (_%$stx103005%_) - (let* ((_%g103009103031%_ - (lambda (_%g103010103027%_) + (lambda (_%$stx104137%_) + (let* ((_%g104141104163%_ + (lambda (_%g104142104159%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103010103027%_))) - (_%g103008103100%_ - (lambda (_%g103010103035%_) - (if (gx#stx-pair? _%g103010103035%_) - (let ((_%e103014103038%_ - (gx#syntax-e _%g103010103035%_))) - (let ((_%hd103015103042%_ + _%g104142104159%_))) + (_%g104140104232%_ + (lambda (_%g104142104167%_) + (if (gx#stx-pair? _%g104142104167%_) + (let ((_%e104146104170%_ + (gx#syntax-e _%g104142104167%_))) + (let ((_%hd104147104174%_ (let () (declare (not safe)) - (##car _%e103014103038%_))) - (_%tl103016103045%_ + (##car _%e104146104170%_))) + (_%tl104148104177%_ (let () (declare (not safe)) - (##cdr _%e103014103038%_)))) - (if (gx#stx-pair? _%tl103016103045%_) - (let ((_%e103017103048%_ - (gx#syntax-e _%tl103016103045%_))) - (let ((_%hd103018103052%_ + (##cdr _%e104146104170%_)))) + (if (gx#stx-pair? _%tl104148104177%_) + (let ((_%e104149104180%_ + (gx#syntax-e _%tl104148104177%_))) + (let ((_%hd104150104184%_ (let () (declare (not safe)) - (##car _%e103017103048%_))) - (_%tl103019103055%_ + (##car _%e104149104180%_))) + (_%tl104151104187%_ (let () (declare (not safe)) - (##cdr _%e103017103048%_)))) - (if (gx#stx-pair? _%tl103019103055%_) - (let ((_%e103020103058%_ - (gx#syntax-e _%tl103019103055%_))) - (let ((_%hd103021103062%_ + (##cdr _%e104149104180%_)))) + (if (gx#stx-pair? _%tl104151104187%_) + (let ((_%e104152104190%_ + (gx#syntax-e _%tl104151104187%_))) + (let ((_%hd104153104194%_ (let () (declare (not safe)) - (##car _%e103020103058%_))) - (_%tl103022103065%_ + (##car _%e104152104190%_))) + (_%tl104154104197%_ (let () (declare (not safe)) - (##cdr _%e103020103058%_)))) - (if (gx#stx-pair? _%tl103022103065%_) - (let ((_%e103023103068%_ + (##cdr _%e104152104190%_)))) + (if (gx#stx-pair? _%tl104154104197%_) + (let ((_%e104155104200%_ (gx#syntax-e - _%tl103022103065%_))) - (let ((_%hd103024103072%_ + _%tl104154104197%_))) + (let ((_%hd104156104204%_ (let () (declare (not safe)) - (##car _%e103023103068%_))) - (_%tl103025103075%_ + (##car _%e104155104200%_))) + (_%tl104157104207%_ (let () (declare (not safe)) - (##cdr _%e103023103068%_)))) + (##cdr _%e104155104200%_)))) (if (gx#stx-null? - _%tl103025103075%_) - ((lambda (_%L103078%_ - _%L103080%_ - _%L103081%_) + _%tl104157104207%_) + ((lambda (_%L104210%_ + _%L104212%_ + _%L104213%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L103081%_ + (cons (cons _%L104213%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'descriptor) (cons (gx#datum->syntax '#f 'obj) @@ -905,7 +905,7 @@ '#f 'obj-klass) '())) - (cons (cons _%L103081%_ + (cons (cons _%L104213%_ (cons (gx#datum->syntax '#f 'descriptor) @@ -982,7 +982,7 @@ '#f '__interface-prototypes-mx) '())) - (cons (cons _%L103080%_ + (cons (cons _%L104212%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -994,7 +994,7 @@ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L103078%_ + (cons (cons _%L104210%_ (cons (gx#datum->syntax '#f 'prototype) @@ -1011,14 +1011,14 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd103024103072%_ - _%hd103021103062%_ - _%hd103018103052%_) - (_%g103009103031%_ _%g103010103035%_)))) + _%hd104156104204%_ + _%hd104153104194%_ + _%hd104150104184%_) + (_%g104141104163%_ _%g104142104167%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g103009103031%_ - _%g103010103035%_)))) - (_%g103009103031%_ _%g103010103035%_)))) - (_%g103009103031%_ _%g103010103035%_)))) - (_%g103009103031%_ _%g103010103035%_))))) - (_%g103008103100%_ _%$stx103005%_)))))) + (_%g104141104163%_ + _%g104142104167%_)))) + (_%g104141104163%_ _%g104142104167%_)))) + (_%g104141104163%_ _%g104142104167%_)))) + (_%g104141104163%_ _%g104142104167%_))))) + (_%g104140104232%_ _%$stx104137%_)))))) diff --git a/src/bootstrap/gerbil/runtime/loader~0.scm b/src/bootstrap/gerbil/runtime/loader~0.scm index b0c6eec10..38be34c77 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 1713454410) + (define gerbil/runtime/loader::timestamp 1713631266) (begin (define __modules (let () @@ -20,24 +20,24 @@ (define __load-path '()) (define load-path (lambda () __load-path)) (define add-load-path! - (lambda _%paths114037%_ - (if (let () (declare (not safe)) (__andmap1 string? _%paths114037%_)) + (lambda _%paths115169%_ + (if (let () (declare (not safe)) (__andmap1 string? _%paths115169%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths114037%_))) - (let ((__tmp114043 - (lambda (_%p114039%_) - (set! __load-path (cons _%p114039%_ __load-path)))) - (__tmp114042 (reverse! _%paths114037%_))) + _%paths115169%_))) + (let ((__tmp115175 + (lambda (_%p115171%_) + (set! __load-path (cons _%p115171%_ __load-path)))) + (__tmp115174 (reverse! _%paths115169%_))) (declare (not safe)) - (##for-each __tmp114043 __tmp114042)))) + (##for-each __tmp115175 __tmp115174)))) (define set-load-path! - (lambda (_%paths114023%_) - (if (list? _%paths114023%_) - (let ((_%paths114027%_ _%paths114023%_)) - (__set-load-path! _%paths114027%_)) + (lambda (_%paths115155%_) + (if (list? _%paths115155%_) + (let ((_%paths115159%_ _%paths115155%_)) + (__set-load-path! _%paths115159%_)) (begin (raise-contract-violation-error '"contract violation" @@ -46,23 +46,23 @@ 'contract: 'list? 'value: - _%paths114023%_) + _%paths115155%_) '#!void)))) (define __set-load-path! - (lambda (_%paths114011%_) - (let ((_%paths114014%_ _%paths114011%_)) - (if (let () (declare (not safe)) (__andmap1 string? _%paths114014%_)) + (lambda (_%paths115143%_) + (let ((_%paths115146%_ _%paths115143%_)) + (if (let () (declare (not safe)) (__andmap1 string? _%paths115146%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths114014%_))) - (set! __load-path _%paths114014%_)))) + _%paths115146%_))) + (set! __load-path _%paths115146%_)))) (define load-module - (lambda (_%modpath113997%_) - (if (string? _%modpath113997%_) - (let ((_%modpath114001%_ _%modpath113997%_)) - (__load-module _%modpath114001%_)) + (lambda (_%modpath115129%_) + (if (string? _%modpath115129%_) + (let ((_%modpath115133%_ _%modpath115129%_)) + (__load-module _%modpath115133%_)) (begin (raise-contract-violation-error '"contract violation" @@ -71,93 +71,93 @@ 'contract: 'string? 'value: - _%modpath113997%_) + _%modpath115129%_) '#!void)))) (define __load-module - (lambda (_%modpath113962%_) - (let ((_%modpath113965%_ _%modpath113962%_)) + (lambda (_%modpath115094%_) + (let ((_%modpath115097%_ _%modpath115094%_)) (mutex-lock! __load-mx) - (let ((_%$e113974%_ + (let ((_%$e115106%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath113965%_)))) - (if _%$e113974%_ - ((lambda (_%state113977%_) - (if (or (eq? 'builtin _%state113977%_) - (string? _%state113977%_)) - (let () (mutex-unlock! __load-mx) _%state113977%_) - (if (eq? 'loading _%state113977%_) + (__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%_) (let () (mutex-unlock! __load-mx __load-cv) - (__load-module _%modpath113965%_)) - (if (and (pair? _%state113977%_) + (__load-module _%modpath115097%_)) + (if (and (pair? _%state115109%_) (eq? (let () (declare (not safe)) - (##car _%state113977%_)) + (##car _%state115109%_)) 'error)) (let () (mutex-unlock! __load-mx) - (let ((__tmp114044 (cadr _%state113977%_))) + (let ((__tmp115176 (cadr _%state115109%_))) (declare (not safe)) - (raise __tmp114044))) + (raise __tmp115176))) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state113977%_))))))) - _%$e113974%_) - (let ((_%$e113986%_ (__find-library-module _%modpath113965%_))) - (if _%$e113986%_ - ((lambda (_%path113989%_) + _%state115109%_))))))) + _%$e115106%_) + (let ((_%$e115118%_ (__find-library-module _%modpath115097%_))) + (if _%$e115118%_ + ((lambda (_%path115121%_) (let () (declare (not safe)) - (__hash-put! __modules _%modpath113965%_ 'loading)) + (__hash-put! __modules _%modpath115097%_ 'loading)) (mutex-unlock! __load-mx) - (let ((__tmp114046 - (lambda (_%exn113991%_) + (let ((__tmp115178 + (lambda (_%exn115123%_) (mutex-lock! __load-mx) - (let ((__tmp114047 + (let ((__tmp115179 (cons 'error - (cons _%exn113991%_ '())))) + (cons _%exn115123%_ '())))) (declare (not safe)) (__hash-put! __modules - _%modpath113965%_ - __tmp114047)) + _%modpath115097%_ + __tmp115179)) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) (let () (declare (not safe)) - (raise _%exn113991%_)))) - (__tmp114045 + (raise _%exn115123%_)))) + (__tmp115177 (lambda () - (let ((_%loaded-path113994%_ - (load _%path113989%_))) + (let ((_%loaded-path115126%_ + (load _%path115121%_))) (mutex-lock! __load-mx) (let () (declare (not safe)) (__hash-put! __modules - _%modpath113965%_ - _%loaded-path113994%_)) + _%modpath115097%_ + _%loaded-path115126%_)) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) - _%loaded-path113994%_)))) + _%loaded-path115126%_)))) (declare (not safe)) - (__with-catch __tmp114046 __tmp114045))) - _%$e113986%_) + (__with-catch __tmp115178 __tmp115177))) + _%$e115118%_) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"module not found" - _%modpath113965%_)))))))))) + _%modpath115097%_)))))))))) (define reload-module! - (lambda (_%modpath113948%_) - (if (string? _%modpath113948%_) - (let ((_%modpath113952%_ _%modpath113948%_)) - (__reload-module! _%modpath113952%_)) + (lambda (_%modpath115080%_) + (if (string? _%modpath115080%_) + (let ((_%modpath115084%_ _%modpath115080%_)) + (__reload-module! _%modpath115084%_)) (begin (raise-contract-violation-error '"contract violation" @@ -166,138 +166,138 @@ 'contract: 'string? 'value: - _%modpath113948%_) + _%modpath115080%_) '#!void)))) (define __reload-module! - (lambda (_%modpath113919%_) - (let ((_%modpath113922%_ _%modpath113919%_)) + (lambda (_%modpath115051%_) + (let ((_%modpath115054%_ _%modpath115051%_)) (mutex-lock! __load-mx) - (let ((_%$e113932%_ + (let ((_%$e115064%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath113922%_)))) - (if _%$e113932%_ - ((lambda (_%state113935%_) - (if (eq? _%state113935%_ 'builtin) + (__hash-get __modules _%modpath115054%_)))) + (if _%$e115064%_ + ((lambda (_%state115067%_) + (if (eq? _%state115067%_ 'builtin) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"cannot reload builtin module" - _%modpath113922%_))) - (if (eq? 'loading _%state113935%_) + _%modpath115054%_))) + (if (eq? 'loading _%state115067%_) (let () (mutex-unlock! __load-mx __load-cv) (let () (declare (not safe)) (error '"module is still loading"))) - (if (string? _%state113935%_) - (let ((_%latest-path113940%_ + (if (string? _%state115067%_) + (let ((_%latest-path115072%_ (__find-library-module - _%modpath113922%_))) + _%modpath115054%_))) (if (or (equal? (path-extension - _%state113935%_) + _%state115067%_) '".scm") - (not (equal? _%state113935%_ - _%latest-path113940%_))) + (not (equal? _%state115067%_ + _%latest-path115072%_))) (begin (let () (declare (not safe)) (__hash-remove! __modules - _%modpath113922%_)) + _%modpath115054%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath113922%_)) + (__load-module _%modpath115054%_)) '#!void)) - (if (and (pair? _%state113935%_) + (if (and (pair? _%state115067%_) (eq? (let () (declare (not safe)) - (##car _%state113935%_)) + (##car _%state115067%_)) 'error)) (let () (let () (declare (not safe)) (__hash-remove! __modules - _%modpath113922%_)) + _%modpath115054%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath113922%_)) + (__load-module _%modpath115054%_)) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state113935%_)))))))) - _%$e113932%_) + _%state115067%_)))))))) + _%$e115064%_) (let () (mutex-unlock! __load-mx) - (__load-module _%modpath113922%_))))))) + (__load-module _%modpath115054%_))))))) (define __find-library-module - (lambda (_%modpath113853%_) - (letrec ((_%find-compiled-file113855%_ - (lambda (_%npath113908%_) - (let ((_%basepath113910%_ + (lambda (_%modpath114985%_) + (letrec ((_%find-compiled-file114987%_ + (lambda (_%npath115040%_) + (let ((_%basepath115042%_ (let () (declare (not safe)) - (##string-append _%npath113908%_ '".o")))) - (let _%lp113912%_ ((_%current113914%_ '#f) - (_%n113915%_ '1)) - (let ((_%next113917%_ - (let ((__tmp114048 - (number->string _%n113915%_))) + (##string-append _%npath115040%_ '".o")))) + (let _%lp115044%_ ((_%current115046%_ '#f) + (_%n115047%_ '1)) + (let ((_%next115049%_ + (let ((__tmp115180 + (number->string _%n115047%_))) (declare (not safe)) (##string-append - _%basepath113910%_ - __tmp114048)))) + _%basepath115042%_ + __tmp115180)))) (if (let () (declare (not safe)) - (##file-exists? _%next113917%_)) - (_%lp113912%_ - _%next113917%_ + (##file-exists? _%next115049%_)) + (_%lp115044%_ + _%next115049%_ (let () (declare (not safe)) - (##fx+ _%n113915%_ '1))) - _%current113914%_)))))) - (_%find-source-file113856%_ - (lambda (_%npath113904%_) - (let ((_%spath113906%_ + (##fx+ _%n115047%_ '1))) + _%current115046%_)))))) + (_%find-source-file114988%_ + (lambda (_%npath115036%_) + (let ((_%spath115038%_ (let () (declare (not safe)) - (##string-append _%npath113904%_ '".scm")))) + (##string-append _%npath115036%_ '".scm")))) (if (let () (declare (not safe)) - (##file-exists? _%spath113906%_)) - _%spath113906%_ + (##file-exists? _%spath115038%_)) + _%spath115038%_ '#f))))) - (let _%lp113858%_ ((_%rest113860%_ (load-path))) - (let* ((_%rest113861113869%_ _%rest113860%_) - (_%else113863113877%_ (lambda () '#f)) - (_%K113865113892%_ - (lambda (_%rest113880%_ _%dir113881%_) - (let* ((_%npath113883%_ + (let _%lp114990%_ ((_%rest114992%_ (load-path))) + (let* ((_%rest114993115001%_ _%rest114992%_) + (_%else114995115009%_ (lambda () '#f)) + (_%K114997115024%_ + (lambda (_%rest115012%_ _%dir115013%_) + (let* ((_%npath115015%_ (path-expand - _%modpath113853%_ - (path-expand _%dir113881%_))) - (_%$e113885%_ - (_%find-compiled-file113855%_ _%npath113883%_))) - (if _%$e113885%_ - (path-normalize _%$e113885%_) - (let ((_%$e113888%_ - (_%find-source-file113856%_ - _%npath113883%_))) - (if _%$e113888%_ - (path-normalize _%$e113888%_) - (_%lp113858%_ _%rest113880%_)))))))) - (if (let () (declare (not safe)) (##pair? _%rest113861113869%_)) - (let ((_%hd113866113895%_ + _%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%_ (let () (declare (not safe)) - (##car _%rest113861113869%_))) - (_%tl113867113897%_ + (##car _%rest114993115001%_))) + (_%tl114999115029%_ (let () (declare (not safe)) - (##cdr _%rest113861113869%_)))) - (let* ((_%dir113900%_ _%hd113866113895%_) - (_%rest113902%_ _%tl113867113897%_)) - (_%K113865113892%_ _%rest113902%_ _%dir113900%_))) - (_%else113863113877%_))))))))) + (##cdr _%rest114993115001%_)))) + (let* ((_%dir115032%_ _%hd114998115027%_) + (_%rest115034%_ _%tl114999115029%_)) + (_%K114997115024%_ _%rest115034%_ _%dir115032%_))) + (_%else114995115009%_))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm index b096b9d65..679045902 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 1713454409) + (define gerbil/runtime/mop-system-classes::timestamp 1713631265) (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 ((__tmp100770 (cons immediate::t '()))) + (let ((__tmp101902 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'char __tmp100770))) + (__make-system-class 'char __tmp101902))) (define boolean::t - (let ((__tmp100771 (cons immediate::t '()))) + (let ((__tmp101903 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'boolean __tmp100771))) + (__make-system-class 'boolean __tmp101903))) (define atom::t - (let ((__tmp100772 (cons immediate::t '()))) + (let ((__tmp101904 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'atom __tmp100772))) + (__make-system-class 'atom __tmp101904))) (define void::t - (let ((__tmp100773 (cons atom::t '()))) + (let ((__tmp101905 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'void __tmp100773))) + (__make-system-class 'void __tmp101905))) (define eof::t - (let ((__tmp100774 (cons atom::t '()))) + (let ((__tmp101906 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'eof __tmp100774))) + (__make-system-class 'eof __tmp101906))) (define true::t - (let ((__tmp100775 (cons boolean::t (cons atom::t '())))) + (let ((__tmp101907 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'true __tmp100775))) + (__make-system-class 'true __tmp101907))) (define false::t - (let ((__tmp100776 (cons boolean::t (cons atom::t '())))) + (let ((__tmp101908 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'false __tmp100776))) + (__make-system-class 'false __tmp101908))) (define special::t - (let ((__tmp100777 (cons atom::t '()))) + (let ((__tmp101909 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'special __tmp100777))) + (__make-system-class 'special __tmp101909))) (define number::t (let () (declare (not safe)) (__make-system-class 'number '()))) (define real::t - (let ((__tmp100778 (cons number::t '()))) + (let ((__tmp101910 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'real __tmp100778))) + (__make-system-class 'real __tmp101910))) (define integer::t - (let ((__tmp100779 (cons real::t '()))) + (let ((__tmp101911 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'integer __tmp100779))) + (__make-system-class 'integer __tmp101911))) (define fixnum::t - (let ((__tmp100780 (cons integer::t (cons immediate::t '())))) + (let ((__tmp101912 (cons integer::t (cons immediate::t '())))) (declare (not safe)) - (__make-system-class 'fixnum __tmp100780))) + (__make-system-class 'fixnum __tmp101912))) (define bignum::t - (let ((__tmp100781 (cons integer::t '()))) + (let ((__tmp101913 (cons integer::t '()))) (declare (not safe)) - (__make-system-class 'bignum __tmp100781))) + (__make-system-class 'bignum __tmp101913))) (define ratnum::t - (let ((__tmp100782 (cons real::t '()))) + (let ((__tmp101914 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'ratnum __tmp100782))) + (__make-system-class 'ratnum __tmp101914))) (define flonum::t - (let ((__tmp100783 (cons real::t '()))) + (let ((__tmp101915 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'flonum __tmp100783))) + (__make-system-class 'flonum __tmp101915))) (define cpxnum::t - (let ((__tmp100784 (cons number::t '()))) + (let ((__tmp101916 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'cpxnum __tmp100784))) + (__make-system-class 'cpxnum __tmp101916))) (define symbolic::t (let () (declare (not safe)) (__make-system-class 'symbolic '()))) (define symbol::t - (let ((__tmp100785 (cons symbolic::t '()))) + (let ((__tmp101917 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'symbol __tmp100785))) + (__make-system-class 'symbol __tmp101917))) (define keyword::t - (let ((__tmp100786 (cons symbolic::t '()))) + (let ((__tmp101918 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'keyword __tmp100786))) + (__make-system-class 'keyword __tmp101918))) (define list::t (let () (declare (not safe)) (__make-system-class 'list '()))) (define pair::t - (let ((__tmp100787 (cons list::t '()))) + (let ((__tmp101919 (cons list::t '()))) (declare (not safe)) - (__make-system-class 'pair __tmp100787))) + (__make-system-class 'pair __tmp101919))) (define null::t - (let ((__tmp100788 (cons list::t (cons atom::t '())))) + (let ((__tmp101920 (cons list::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'null __tmp100788))) + (__make-system-class 'null __tmp101920))) (define sequence::t (let () (declare (not safe)) (__make-system-class 'sequence '()))) (define vector::t - (let ((__tmp100789 (cons sequence::t '()))) + (let ((__tmp101921 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'vector __tmp100789))) + (__make-system-class 'vector __tmp101921))) (define string::t - (let ((__tmp100790 (cons sequence::t '()))) + (let ((__tmp101922 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'string __tmp100790))) + (__make-system-class 'string __tmp101922))) (define hvector::t - (let ((__tmp100791 (cons sequence::t '()))) + (let ((__tmp101923 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'hvector __tmp100791))) + (__make-system-class 'hvector __tmp101923))) (define u8vector::t - (let ((__tmp100792 (cons hvector::t '()))) + (let ((__tmp101924 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u8vector __tmp100792))) + (__make-system-class 'u8vector __tmp101924))) (define s8vector::t - (let ((__tmp100793 (cons hvector::t '()))) + (let ((__tmp101925 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's8vector __tmp100793))) + (__make-system-class 's8vector __tmp101925))) (define u16vector::t - (let ((__tmp100794 (cons hvector::t '()))) + (let ((__tmp101926 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u16vector __tmp100794))) + (__make-system-class 'u16vector __tmp101926))) (define s16vector::t - (let ((__tmp100795 (cons hvector::t '()))) + (let ((__tmp101927 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's16vector __tmp100795))) + (__make-system-class 's16vector __tmp101927))) (define u32vector::t - (let ((__tmp100796 (cons hvector::t '()))) + (let ((__tmp101928 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u32vector __tmp100796))) + (__make-system-class 'u32vector __tmp101928))) (define s32vector::t - (let ((__tmp100797 (cons hvector::t '()))) + (let ((__tmp101929 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's32vector __tmp100797))) + (__make-system-class 's32vector __tmp101929))) (define u64vector::t - (let ((__tmp100798 (cons hvector::t '()))) + (let ((__tmp101930 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u64vector __tmp100798))) + (__make-system-class 'u64vector __tmp101930))) (define s64vector::t - (let ((__tmp100799 (cons hvector::t '()))) + (let ((__tmp101931 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's64vector __tmp100799))) + (__make-system-class 's64vector __tmp101931))) (define f32vector::t - (let ((__tmp100800 (cons hvector::t '()))) + (let ((__tmp101932 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f32vector __tmp100800))) + (__make-system-class 'f32vector __tmp101932))) (define f64vector::t - (let ((__tmp100801 (cons hvector::t '()))) + (let ((__tmp101933 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f64vector __tmp100801))) + (__make-system-class 'f64vector __tmp101933))) (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 ((__tmp100802 (macro-type-time))) + (let ((__tmp101934 (macro-type-time))) (declare (not safe)) - (__shadow-class __tmp100802))) + (__shadow-class __tmp101934))) (define thread::t - (let ((__tmp100803 (macro-type-thread))) + (let ((__tmp101935 (macro-type-thread))) (declare (not safe)) - (__shadow-class __tmp100803))) + (__shadow-class __tmp101935))) (define thread-group::t - (let ((__tmp100804 (macro-type-tgroup))) + (let ((__tmp101936 (macro-type-tgroup))) (declare (not safe)) - (__shadow-class __tmp100804))) + (__shadow-class __tmp101936))) (define mutex::t - (let ((__tmp100805 (macro-type-mutex))) + (let ((__tmp101937 (macro-type-mutex))) (declare (not safe)) - (__shadow-class __tmp100805))) + (__shadow-class __tmp101937))) (define condvar::t - (let ((__tmp100806 (macro-type-condvar))) + (let ((__tmp101938 (macro-type-condvar))) (declare (not safe)) - (__shadow-class __tmp100806))) + (__shadow-class __tmp101938))) (define port::t - (let ((__tmp100807 (macro-type-port))) + (let ((__tmp101939 (macro-type-port))) (declare (not safe)) - (__shadow-class __tmp100807))) + (__shadow-class __tmp101939))) (define object-port::t - (let ((__tmp100808 (macro-type-object-port))) + (let ((__tmp101940 (macro-type-object-port))) (declare (not safe)) - (__shadow-class __tmp100808))) + (__shadow-class __tmp101940))) (define character-port::t - (let ((__tmp100809 (macro-type-character-port))) + (let ((__tmp101941 (macro-type-character-port))) (declare (not safe)) - (__shadow-class __tmp100809))) + (__shadow-class __tmp101941))) (define byte-port::t - (let ((__tmp100810 (macro-type-byte-port))) + (let ((__tmp101942 (macro-type-byte-port))) (declare (not safe)) - (__shadow-class __tmp100810))) + (__shadow-class __tmp101942))) (define device-port::t - (let ((__tmp100811 (macro-type-device-port))) + (let ((__tmp101943 (macro-type-device-port))) (declare (not safe)) - (__shadow-class __tmp100811))) + (__shadow-class __tmp101943))) (define vector-port::t - (let ((__tmp100812 (macro-type-vector-port))) + (let ((__tmp101944 (macro-type-vector-port))) (declare (not safe)) - (__shadow-class __tmp100812))) + (__shadow-class __tmp101944))) (define string-port::t - (let ((__tmp100813 (macro-type-string-port))) + (let ((__tmp101945 (macro-type-string-port))) (declare (not safe)) - (__shadow-class __tmp100813))) + (__shadow-class __tmp101945))) (define u8vector-port::t - (let ((__tmp100814 (macro-type-u8vector-port))) + (let ((__tmp101946 (macro-type-u8vector-port))) (declare (not safe)) - (__shadow-class __tmp100814))) + (__shadow-class __tmp101946))) (define raw-device-port::t - (let ((__tmp100815 (macro-type-raw-device-port))) + (let ((__tmp101947 (macro-type-raw-device-port))) (declare (not safe)) - (__shadow-class __tmp100815))) + (__shadow-class __tmp101947))) (define tcp-server-port::t - (let ((__tmp100816 (macro-type-tcp-server-port))) + (let ((__tmp101948 (macro-type-tcp-server-port))) (declare (not safe)) - (__shadow-class __tmp100816))) + (__shadow-class __tmp101948))) (define udp-port::t - (let ((__tmp100817 (macro-type-udp-port))) + (let ((__tmp101949 (macro-type-udp-port))) (declare (not safe)) - (__shadow-class __tmp100817))) + (__shadow-class __tmp101949))) (define directory-port::t - (let ((__tmp100818 (macro-type-directory-port))) + (let ((__tmp101950 (macro-type-directory-port))) (declare (not safe)) - (__shadow-class __tmp100818))) + (__shadow-class __tmp101950))) (define event-queue-port::t - (let ((__tmp100819 (macro-type-event-queue-port))) + (let ((__tmp101951 (macro-type-event-queue-port))) (declare (not safe)) - (__shadow-class __tmp100819))) + (__shadow-class __tmp101951))) (define table::t - (let ((__tmp100820 (macro-type-table))) + (let ((__tmp101952 (macro-type-table))) (declare (not safe)) - (__shadow-class __tmp100820))) + (__shadow-class __tmp101952))) (define readenv::t - (let ((__tmp100821 (macro-type-readenv))) + (let ((__tmp101953 (macro-type-readenv))) (declare (not safe)) - (__shadow-class __tmp100821))) + (__shadow-class __tmp101953))) (define writeenv::t - (let ((__tmp100822 (macro-type-writeenv))) + (let ((__tmp101954 (macro-type-writeenv))) (declare (not safe)) - (__shadow-class __tmp100822))) + (__shadow-class __tmp101954))) (define readtable::t - (let ((__tmp100823 (macro-type-readtable))) + (let ((__tmp101955 (macro-type-readtable))) (declare (not safe)) - (__shadow-class __tmp100823))) + (__shadow-class __tmp101955))) (define processor::t - (let ((__tmp100824 (macro-type-processor))) + (let ((__tmp101956 (macro-type-processor))) (declare (not safe)) - (__shadow-class __tmp100824))) + (__shadow-class __tmp101956))) (define vm::t - (let ((__tmp100825 (macro-type-vm))) + (let ((__tmp101957 (macro-type-vm))) (declare (not safe)) - (__shadow-class __tmp100825))) + (__shadow-class __tmp101957))) (define file-info::t - (let ((__tmp100826 (macro-type-file-info))) + (let ((__tmp101958 (macro-type-file-info))) (declare (not safe)) - (__shadow-class __tmp100826))) + (__shadow-class __tmp101958))) (define socket-info::t - (let ((__tmp100827 (macro-type-socket-info))) + (let ((__tmp101959 (macro-type-socket-info))) (declare (not safe)) - (__shadow-class __tmp100827))) + (__shadow-class __tmp101959))) (define address-info::t - (let ((__tmp100828 (macro-type-address-info))) + (let ((__tmp101960 (macro-type-address-info))) (declare (not safe)) - (__shadow-class __tmp100828))) + (__shadow-class __tmp101960))) (define atom? - (lambda (_%obj100769%_) - (if (let () (declare (not safe)) (immediate? _%obj100769%_)) - (if (char? _%obj100769%_) '#f (not (fixnum? _%obj100769%_))) + (lambda (_%obj101901%_) + (if (let () (declare (not safe)) (immediate? _%obj101901%_)) + (if (char? _%obj101901%_) '#f (not (fixnum? _%obj101901%_))) '#f))) (define special? - (lambda (_%obj100767%_) - (if (let ((__tmp100829 - (let () (declare (not safe)) (##type _%obj100767%_)))) + (lambda (_%obj101899%_) + (if (let ((__tmp101961 + (let () (declare (not safe)) (##type _%obj101899%_)))) (declare (not safe)) - (##fx= __tmp100829 '2)) - (if (char? _%obj100767%_) + (##fx= __tmp101961 '2)) + (if (char? _%obj101899%_) '#f - (if (null? _%obj100767%_) + (if (null? _%obj101899%_) '#f - (if (boolean? _%obj100767%_) + (if (boolean? _%obj101899%_) '#f - (if (eq? _%obj100767%_ '#!void) + (if (eq? _%obj101899%_ '#!void) '#f - (not (eof-object? _%obj100767%_)))))) + (not (eof-object? _%obj101899%_)))))) '#f))) (define sequence? - (lambda (_%obj100759%_) - (let ((_%$e100761%_ (vector? _%obj100759%_))) - (if _%$e100761%_ - _%$e100761%_ - (let ((_%$e100764%_ (string? _%obj100759%_))) - (if _%$e100764%_ _%$e100764%_ (hvector? _%obj100759%_))))))) + (lambda (_%obj101891%_) + (let ((_%$e101893%_ (vector? _%obj101891%_))) + (if _%$e101893%_ + _%$e101893%_ + (let ((_%$e101896%_ (string? _%obj101891%_))) + (if _%$e101896%_ _%$e101896%_ (hvector? _%obj101891%_))))))) (define hvector? - (lambda (_%obj100730%_) - (let ((_%$e100732%_ (u8vector? _%obj100730%_))) - (if _%$e100732%_ - _%$e100732%_ - (let ((_%$e100735%_ (s8vector? _%obj100730%_))) - (if _%$e100735%_ - _%$e100735%_ - (let ((_%$e100738%_ (u16vector? _%obj100730%_))) - (if _%$e100738%_ - _%$e100738%_ - (let ((_%$e100741%_ (s16vector? _%obj100730%_))) - (if _%$e100741%_ - _%$e100741%_ - (let ((_%$e100744%_ - (u32vector? _%obj100730%_))) - (if _%$e100744%_ - _%$e100744%_ - (let ((_%$e100747%_ - (s32vector? _%obj100730%_))) - (if _%$e100747%_ - _%$e100747%_ - (let ((_%$e100750%_ - (u64vector? _%obj100730%_))) - (if _%$e100750%_ - _%$e100750%_ - (let ((_%$e100753%_ + (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%_ (s64vector? - _%obj100730%_))) - (if _%$e100753%_ - _%$e100753%_ - (let ((_%$e100756%_ + _%obj101862%_))) + (if _%$e101885%_ + _%$e101885%_ + (let ((_%$e101888%_ (f32vector? - _%obj100730%_))) - (if _%$e100756%_ - _%$e100756%_ + _%obj101862%_))) + (if _%$e101888%_ + _%$e101888%_ (f64vector? - _%obj100730%_))))))))))))))))))))) + _%obj101862%_))))))))))))))))))))) (define weak? - (lambda (_%obj100728%_) - (if (let () (declare (not safe)) (##subtyped? _%obj100728%_)) - (eq? (let () (declare (not safe)) (##subtype _%obj100728%_)) + (lambda (_%obj101860%_) + (if (let () (declare (not safe)) (##subtyped? _%obj101860%_)) + (eq? (let () (declare (not safe)) (##subtype _%obj101860%_)) (macro-subtype-weak)) '#f))) (define object-port? - (lambda (_%obj100726%_) - (let ((__tmp100830 - (let ((__tmp100831 (macro-type-object-port))) + (lambda (_%obj101858%_) + (let ((__tmp101962 + (let ((__tmp101963 (macro-type-object-port))) (declare (not safe)) - (##type-id __tmp100831)))) + (##type-id __tmp101963)))) (declare (not safe)) - (##structure-instance-of? _%obj100726%_ __tmp100830)))) + (##structure-instance-of? _%obj101858%_ __tmp101962)))) (define character-port? - (lambda (_%obj100724%_) - (let ((__tmp100832 - (let ((__tmp100833 (macro-type-character-port))) + (lambda (_%obj101856%_) + (let ((__tmp101964 + (let ((__tmp101965 (macro-type-character-port))) (declare (not safe)) - (##type-id __tmp100833)))) + (##type-id __tmp101965)))) (declare (not safe)) - (##structure-instance-of? _%obj100724%_ __tmp100832)))) + (##structure-instance-of? _%obj101856%_ __tmp101964)))) (define device-port? - (lambda (_%obj100722%_) - (let ((__tmp100834 - (let ((__tmp100835 (macro-type-device-port))) + (lambda (_%obj101854%_) + (let ((__tmp101966 + (let ((__tmp101967 (macro-type-device-port))) (declare (not safe)) - (##type-id __tmp100835)))) + (##type-id __tmp101967)))) (declare (not safe)) - (##structure-instance-of? _%obj100722%_ __tmp100834)))) + (##structure-instance-of? _%obj101854%_ __tmp101966)))) (define vector-port? - (lambda (_%obj100720%_) - (let ((__tmp100836 - (let ((__tmp100837 (macro-type-vector-port))) + (lambda (_%obj101852%_) + (let ((__tmp101968 + (let ((__tmp101969 (macro-type-vector-port))) (declare (not safe)) - (##type-id __tmp100837)))) + (##type-id __tmp101969)))) (declare (not safe)) - (##structure-instance-of? _%obj100720%_ __tmp100836)))) + (##structure-instance-of? _%obj101852%_ __tmp101968)))) (define string-port? - (lambda (_%obj100718%_) - (let ((__tmp100838 - (let ((__tmp100839 (macro-type-string-port))) + (lambda (_%obj101850%_) + (let ((__tmp101970 + (let ((__tmp101971 (macro-type-string-port))) (declare (not safe)) - (##type-id __tmp100839)))) + (##type-id __tmp101971)))) (declare (not safe)) - (##structure-instance-of? _%obj100718%_ __tmp100838)))) + (##structure-instance-of? _%obj101850%_ __tmp101970)))) (define u8vector-port? - (lambda (_%obj100716%_) - (let ((__tmp100840 - (let ((__tmp100841 (macro-type-u8vector-port))) + (lambda (_%obj101848%_) + (let ((__tmp101972 + (let ((__tmp101973 (macro-type-u8vector-port))) (declare (not safe)) - (##type-id __tmp100841)))) + (##type-id __tmp101973)))) (declare (not safe)) - (##structure-instance-of? _%obj100716%_ __tmp100840)))) + (##structure-instance-of? _%obj101848%_ __tmp101972)))) (define raw-device-port? - (lambda (_%obj100714%_) - (let ((__tmp100842 - (let ((__tmp100843 (macro-type-raw-device-port))) + (lambda (_%obj101846%_) + (let ((__tmp101974 + (let ((__tmp101975 (macro-type-raw-device-port))) (declare (not safe)) - (##type-id __tmp100843)))) + (##type-id __tmp101975)))) (declare (not safe)) - (##structure-instance-of? _%obj100714%_ __tmp100842)))) + (##structure-instance-of? _%obj101846%_ __tmp101974)))) (define tcp-server-port? - (lambda (_%obj100712%_) - (let ((__tmp100844 - (let ((__tmp100845 (macro-type-tcp-server-port))) + (lambda (_%obj101844%_) + (let ((__tmp101976 + (let ((__tmp101977 (macro-type-tcp-server-port))) (declare (not safe)) - (##type-id __tmp100845)))) + (##type-id __tmp101977)))) (declare (not safe)) - (##structure-instance-of? _%obj100712%_ __tmp100844)))) + (##structure-instance-of? _%obj101844%_ __tmp101976)))) (define udp-port? - (lambda (_%obj100710%_) - (let ((__tmp100846 - (let ((__tmp100847 (macro-type-udp-port))) + (lambda (_%obj101842%_) + (let ((__tmp101978 + (let ((__tmp101979 (macro-type-udp-port))) (declare (not safe)) - (##type-id __tmp100847)))) + (##type-id __tmp101979)))) (declare (not safe)) - (##structure-instance-of? _%obj100710%_ __tmp100846)))) + (##structure-instance-of? _%obj101842%_ __tmp101978)))) (define directory-port? - (lambda (_%obj100708%_) - (let ((__tmp100848 - (let ((__tmp100849 (macro-type-directory-port))) + (lambda (_%obj101840%_) + (let ((__tmp101980 + (let ((__tmp101981 (macro-type-directory-port))) (declare (not safe)) - (##type-id __tmp100849)))) + (##type-id __tmp101981)))) (declare (not safe)) - (##structure-instance-of? _%obj100708%_ __tmp100848)))) + (##structure-instance-of? _%obj101840%_ __tmp101980)))) (define event-queue-port? - (lambda (_%obj100706%_) - (let ((__tmp100850 - (let ((__tmp100851 (macro-type-event-queue-port))) + (lambda (_%obj101838%_) + (let ((__tmp101982 + (let ((__tmp101983 (macro-type-event-queue-port))) (declare (not safe)) - (##type-id __tmp100851)))) + (##type-id __tmp101983)))) (declare (not safe)) - (##structure-instance-of? _%obj100706%_ __tmp100850)))) + (##structure-instance-of? _%obj101838%_ __tmp101982)))) (define readenv? - (lambda (_%obj100704%_) - (let ((__tmp100852 - (let ((__tmp100853 (macro-type-readenv))) + (lambda (_%obj101836%_) + (let ((__tmp101984 + (let ((__tmp101985 (macro-type-readenv))) (declare (not safe)) - (##type-id __tmp100853)))) + (##type-id __tmp101985)))) (declare (not safe)) - (##structure-instance-of? _%obj100704%_ __tmp100852)))) + (##structure-instance-of? _%obj101836%_ __tmp101984)))) (define writeenv? - (lambda (_%obj100702%_) - (let ((__tmp100854 - (let ((__tmp100855 (macro-type-writeenv))) + (lambda (_%obj101834%_) + (let ((__tmp101986 + (let ((__tmp101987 (macro-type-writeenv))) (declare (not safe)) - (##type-id __tmp100855)))) + (##type-id __tmp101987)))) (declare (not safe)) - (##structure-instance-of? _%obj100702%_ __tmp100854)))) + (##structure-instance-of? _%obj101834%_ __tmp101986)))) (define vm? - (lambda (_%obj100700%_) - (let ((__tmp100856 - (let ((__tmp100857 (macro-type-vm))) + (lambda (_%obj101832%_) + (let ((__tmp101988 + (let ((__tmp101989 (macro-type-vm))) (declare (not safe)) - (##type-id __tmp100857)))) + (##type-id __tmp101989)))) (declare (not safe)) - (##structure-instance-of? _%obj100700%_ __tmp100856)))))) + (##structure-instance-of? _%obj101832%_ __tmp101988)))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm index df3cba7b8..f28a38ade 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]#_g100858_| + (define |[1]#_g101990_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (define |[:0:]#defpred| - (lambda (_%stx100485%_) - (let* ((_%g100488100526%_ - (lambda (_%g100489100522%_) + (lambda (_%stx101617%_) + (let* ((_%g101620101658%_ + (lambda (_%g101621101654%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g100489100522%_))) - (_%g100487100695%_ - (lambda (_%g100489100530%_) - (if (gx#stx-pair? _%g100489100530%_) - (let ((_%e100494100533%_ (gx#syntax-e _%g100489100530%_))) - (let ((_%hd100495100537%_ + _%g101621101654%_))) + (_%g101619101827%_ + (lambda (_%g101621101662%_) + (if (gx#stx-pair? _%g101621101662%_) + (let ((_%e101626101665%_ (gx#syntax-e _%g101621101662%_))) + (let ((_%hd101627101669%_ (let () (declare (not safe)) - (##car _%e100494100533%_))) - (_%tl100496100540%_ + (##car _%e101626101665%_))) + (_%tl101628101672%_ (let () (declare (not safe)) - (##cdr _%e100494100533%_)))) - (if (gx#stx-pair? _%tl100496100540%_) - (let ((_%e100497100543%_ - (gx#syntax-e _%tl100496100540%_))) - (let ((_%hd100498100547%_ + (##cdr _%e101626101665%_)))) + (if (gx#stx-pair? _%tl101628101672%_) + (let ((_%e101629101675%_ + (gx#syntax-e _%tl101628101672%_))) + (let ((_%hd101630101679%_ (let () (declare (not safe)) - (##car _%e100497100543%_))) - (_%tl100499100550%_ + (##car _%e101629101675%_))) + (_%tl101631101682%_ (let () (declare (not safe)) - (##cdr _%e100497100543%_)))) - (if (gx#stx-pair? _%hd100498100547%_) - (let ((_%e100500100553%_ - (gx#syntax-e _%hd100498100547%_))) - (let ((_%hd100501100557%_ + (##cdr _%e101629101675%_)))) + (if (gx#stx-pair? _%hd101630101679%_) + (let ((_%e101632101685%_ + (gx#syntax-e _%hd101630101679%_))) + (let ((_%hd101633101689%_ (let () (declare (not safe)) - (##car _%e100500100553%_))) - (_%tl100502100560%_ + (##car _%e101632101685%_))) + (_%tl101634101692%_ (let () (declare (not safe)) - (##cdr _%e100500100553%_)))) - (if (gx#stx-pair? _%tl100502100560%_) - (let ((_%e100503100563%_ + (##cdr _%e101632101685%_)))) + (if (gx#stx-pair? _%tl101634101692%_) + (let ((_%e101635101695%_ (gx#syntax-e - _%tl100502100560%_))) - (let ((_%hd100504100567%_ + _%tl101634101692%_))) + (let ((_%hd101636101699%_ (let () (declare (not safe)) - (##car _%e100503100563%_))) - (_%tl100505100570%_ + (##car _%e101635101695%_))) + (_%tl101637101702%_ (let () (declare (not safe)) - (##cdr _%e100503100563%_)))) + (##cdr _%e101635101695%_)))) (if (gx#stx-null? - _%tl100505100570%_) + _%tl101637101702%_) (if (gx#stx-pair? - _%tl100499100550%_) - (let ((_%e100506100573%_ + _%tl101631101682%_) + (let ((_%e101638101705%_ (gx#syntax-e - _%tl100499100550%_))) - (let ((_%hd100507100577%_ + _%tl101631101682%_))) + (let ((_%hd101639101709%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%e100506100573%_))) - (_%tl100508100580%_ + (##car _%e101638101705%_))) + (_%tl101640101712%_ (let () (declare (not safe)) - (##cdr _%e100506100573%_)))) - (if (gx#identifier? _%hd100507100577%_) + (##cdr _%e101638101705%_)))) + (if (gx#identifier? _%hd101639101709%_) (if (gx#free-identifier=? - |[1]#_g100858_| - _%hd100507100577%_) - (if (gx#stx-pair? _%tl100508100580%_) - (let ((_%e100509100583%_ - (gx#syntax-e _%tl100508100580%_))) - (let ((_%hd100510100587%_ + |[1]#_g101990_| + _%hd101639101709%_) + (if (gx#stx-pair? _%tl101640101712%_) + (let ((_%e101641101715%_ + (gx#syntax-e _%tl101640101712%_))) + (let ((_%hd101642101719%_ (let () (declare (not safe)) - (##car _%e100509100583%_))) - (_%tl100511100590%_ + (##car _%e101641101715%_))) + (_%tl101643101722%_ (let () (declare (not safe)) - (##cdr _%e100509100583%_)))) - (if (gx#stx-pair/null? _%tl100511100590%_) - (let ((_g100859_ + (##cdr _%e101641101715%_)))) + (if (gx#stx-pair/null? _%tl101643101722%_) + (let ((_g101991_ (gx#syntax-split-splice - _%tl100511100590%_ + _%tl101643101722%_ '0))) (begin - (let ((_g100860_ + (let ((_g101992_ (let () (declare (not safe)) - (if (##values? _g100859_) + (if (##values? _g101991_) (##vector-length - _g100859_) + _g101991_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g100860_ 2))) + (##fx= _g101992_ 2))) (error "Context expects 2 values" - _g100860_))) - (let ((_%target100512100593%_ + _g101992_))) + (let ((_%target101644101725%_ (let () (declare (not safe)) (##vector-ref - _g100859_ + _g101991_ 0))) - (_%tl100514100596%_ + (_%tl101646101728%_ (let () (declare (not safe)) (##vector-ref - _g100859_ + _g101991_ 1)))) (if (gx#stx-null? - _%tl100514100596%_) - (letrec ((_%loop100515100599%_ - (lambda (_%hd100513100603%_ + _%tl101646101728%_) + (letrec ((_%loop101647101731%_ + (lambda (_%hd101645101735%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body100519100606%_) - (if (gx#stx-pair? _%hd100513100603%_) - (let ((_%e100516100609%_ - (gx#syntax-e _%hd100513100603%_))) - (let ((_%lp-hd100517100613%_ + _%body101651101738%_) + (if (gx#stx-pair? _%hd101645101735%_) + (let ((_%e101648101741%_ + (gx#syntax-e _%hd101645101735%_))) + (let ((_%lp-hd101649101745%_ (let () (declare (not safe)) - (##car _%e100516100609%_))) - (_%lp-tl100518100616%_ + (##car _%e101648101741%_))) + (_%lp-tl101650101748%_ (let () (declare (not safe)) - (##cdr _%e100516100609%_)))) - (_%loop100515100599%_ - _%lp-tl100518100616%_ - (cons _%lp-hd100517100613%_ - _%body100519100606%_)))) - (let ((_%body100520100619%_ - (reverse _%body100519100606%_))) - ((lambda (_%L100623%_ - _%L100625%_ - _%L100626%_ - _%L100627%_) - (let* ((_%g100656100664%_ - (lambda (_%g100657100660%_) + (##cdr _%e101648101741%_)))) + (_%loop101647101731%_ + _%lp-tl101650101748%_ + (cons _%lp-hd101649101745%_ + _%body101651101738%_)))) + (let ((_%body101652101751%_ + (reverse _%body101651101738%_))) + ((lambda (_%L101755%_ + _%L101757%_ + _%L101758%_ + _%L101759%_) + (let* ((_%g101788101796%_ + (lambda (_%g101789101792%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g100657100660%_))) - (_%g100655100691%_ - (lambda (_%g100657100668%_) - ((lambda (_%L100671%_) + _%g101789101792%_))) + (_%g101787101823%_ + (lambda (_%g101789101800%_) + ((lambda (_%L101803%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L100627%_ + (cons _%L101759%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@predicate) - (cons _%L100671%_ '())) + (cons _%L101803%_ '())) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L100626%_ '()) - (let ((__tmp100861 - (lambda (_%g100682100685%_ + (cons (cons _%L101758%_ '()) + (let ((__tmp101993 + (lambda (_%g101814101817%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g100683100688%_) - (cons _%g100682100685%_ _%g100683100688%_)))) + _%g101815101820%_) + (cons _%g101814101817%_ _%g101815101820%_)))) (declare (not safe)) - (__foldr1 __tmp100861 '() _%L100623%_)))) + (__foldr1 __tmp101993 '() _%L101755%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g100657100668%_)))) - (_%g100655100691%_ + _%g101789101800%_)))) + (_%g101787101823%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx100485%_ - _%L100625%_))))) - _%body100520100619%_ - _%hd100510100587%_ - _%hd100504100567%_ - _%hd100501100557%_)))))) + _%stx101617%_ + _%L101757%_))))) + _%body101652101751%_ + _%hd101642101719%_ + _%hd101636101699%_ + _%hd101633101689%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop100515100599%_ - _%target100512100593%_ + (_%loop101647101731%_ + _%target101644101725%_ '())) - (_%g100488100526%_ - _%g100489100530%_))))) - (_%g100488100526%_ - _%g100489100530%_)))) - (_%g100488100526%_ _%g100489100530%_)) - (_%g100488100526%_ _%g100489100530%_)) - (_%g100488100526%_ _%g100489100530%_)))) - (_%g100488100526%_ _%g100489100530%_)) + (_%g101620101658%_ + _%g101621101662%_))))) + (_%g101620101658%_ + _%g101621101662%_)))) + (_%g101620101658%_ _%g101621101662%_)) + (_%g101620101658%_ _%g101621101662%_)) + (_%g101620101658%_ _%g101621101662%_)))) + (_%g101620101658%_ _%g101621101662%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g100488100526%_ - _%g100489100530%_)))) - (_%g100488100526%_ - _%g100489100530%_)))) - (_%g100488100526%_ _%g100489100530%_)))) - (_%g100488100526%_ _%g100489100530%_)))) - (_%g100488100526%_ _%g100489100530%_))))) - (_%g100487100695%_ _%stx100485%_))))) + (_%g101620101658%_ + _%g101621101662%_)))) + (_%g101620101658%_ + _%g101621101662%_)))) + (_%g101620101658%_ _%g101621101662%_)))) + (_%g101620101658%_ _%g101621101662%_)))) + (_%g101620101658%_ _%g101621101662%_))))) + (_%g101619101827%_ _%stx101617%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop~0.scm b/src/bootstrap/gerbil/runtime/mop~0.scm index d92bb85b6..76667a0ad 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 1713454409) + (define gerbil/runtime/mop::timestamp 1713631264) (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 ((_%flags98867%_ + (let ((_%flags99999%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties98868%_ '((direct-slots:) (system: . #t))) - (_%slot-table98869%_ + (_%properties100000%_ '((direct-slots:) (system: . #t))) + (_%slot-table100001%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) @@ -27,17 +27,17 @@ '#f 't 't - _%flags98867%_ + _%flags99999%_ '#f '#() '() '#(#f) - _%slot-table98869%_ - _%properties98868%_ + _%slot-table100001%_ + _%properties100000%_ '#f '#f)))) (define class::t - (let* ((_%slots98843%_ + (let* ((_%slots99975%_ '(id name super flags @@ -48,122 +48,122 @@ properties constructor methods)) - (_%slot-vector98845%_ (list->vector (cons '#f _%slots98843%_))) - (_%slot-table98852%_ - (let ((_%slot-table98847%_ + (_%slot-vector99977%_ (list->vector (cons '#f _%slots99975%_))) + (_%slot-table99984%_ + (let ((_%slot-table99979%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp100310 - (lambda (_%slot98849%_ _%field98850%_) + (let ((__tmp101442 + (lambda (_%slot99981%_ _%field99982%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table98847%_ - _%slot98849%_ - _%field98850%_)) - (let ((__tmp100311 + _%slot-table99979%_ + _%slot99981%_ + _%field99982%_)) + (let ((__tmp101443 (let () (declare (not safe)) - (symbol->keyword _%slot98849%_)))) + (symbol->keyword _%slot99981%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table98847%_ - __tmp100311 - _%field98850%_)))) - (__tmp100308 - (let ((__tmp100309 + _%slot-table99979%_ + __tmp101443 + _%field99982%_)))) + (__tmp101440 + (let ((__tmp101441 (let () (declare (not safe)) - (##length _%slots98843%_)))) + (##length _%slots99975%_)))) (declare (not safe)) - (##iota __tmp100309 '1)))) + (##iota __tmp101441 '1)))) (declare (not safe)) - (##for-each __tmp100310 _%slots98843%_ __tmp100308)) - _%slot-table98847%_)) - (_%flags98854%_ + (##for-each __tmp101442 _%slots99975%_ __tmp101440)) + _%slot-table99979%_)) + (_%flags99986%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields98860%_ + (_%fields99992%_ (list->vector - (let ((__tmp100312 - (map (lambda (_%g9885598857%_) - (list _%g9885598857%_ '5 '#f)) - (drop _%slots98843%_ '5)))) + (let ((__tmp101444 + (map (lambda (_%g9998799989%_) + (list _%g9998799989%_ '5 '#f)) + (drop _%slots99975%_ '5)))) (declare (not safe)) - (##apply append __tmp100312)))) - (_%properties98862%_ + (##apply append __tmp101444)))) + (_%properties99994%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots98843%_))) + (__foldr1 cons '() _%slots99975%_))) (cons (cons 'struct: '#t) '()))) - (_%t98864%_ - (let ((__tmp100313 (cons t::t '()))) + (_%t99996%_ + (let ((__tmp101445 (cons t::t '()))) (declare (not safe)) (##structure '#f 'class 'class - _%flags98854%_ + _%flags99986%_ ##type-type - _%fields98860%_ - __tmp100313 - _%slot-vector98845%_ - _%slot-table98852%_ - _%properties98862%_ + _%fields99992%_ + __tmp101445 + _%slot-vector99977%_ + _%slot-table99984%_ + _%properties99994%_ '#f '#f)))) (let () (declare (not safe)) - (##structure-type-set! _%t98864%_ _%t98864%_)) - _%t98864%_)) + (##structure-type-set! _%t99996%_ _%t99996%_)) + _%t99996%_)) (let () (declare (not safe)) (##structure-type-set! t::t class::t)) (define object::t - (let ((_%flags98839%_ + (let ((_%flags99971%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties98840%_ '((direct-slots:) (system: . #t))) - (_%slot-table98841%_ + (_%properties99972%_ '((direct-slots:) (system: . #t))) + (_%slot-table99973%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp100314 (cons t::t '()))) + (let ((__tmp101446 (cons t::t '()))) (declare (not safe)) (##structure class::t 'object 'object - _%flags98839%_ + _%flags99971%_ '#f '#() - __tmp100314 + __tmp101446 '#(#f) - _%slot-table98841%_ - _%properties98840%_ + _%slot-table99973%_ + _%properties99972%_ '#f '#f)))) (define class-type? - (lambda (_%obj98837%_) + (lambda (_%obj99969%_) (let () (declare (not safe)) - (##structure-instance-of? _%obj98837%_ 'class)))) + (##structure-instance-of? _%obj99969%_ 'class)))) (define class-type=? - (lambda (_%x98812%_ _%y98813%_) + (lambda (_%x99944%_ _%y99945%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%x98812%_ 'class)) - (let ((_%x98817%_ _%x98812%_)) + (##structure-instance-of? _%x99944%_ 'class)) + (let ((_%x99949%_ _%x99944%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%y98813%_ 'class)) - (let ((_%y98827%_ _%y98813%_)) - (__class-type=? _%x98817%_ _%y98827%_)) + (##structure-instance-of? _%y99945%_ 'class)) + (let ((_%y99959%_ _%y99945%_)) + (__class-type=? _%x99949%_ _%y99959%_)) (begin (raise-contract-violation-error '"contract violation" @@ -172,7 +172,7 @@ 'contract: 'class-type? 'value: - _%y98813%_) + _%y99945%_) '#!void))) (begin (raise-contract-violation-error @@ -182,22 +182,22 @@ 'contract: 'class-type? 'value: - _%x98812%_) + _%x99944%_) '#!void)))) (define __class-type=? - (lambda (_%x98791%_ _%y98792%_) - (let* ((_%x98795%_ _%x98791%_) (_%y98803%_ _%y98792%_)) + (lambda (_%x99923%_ _%y99924%_) + (let* ((_%x99927%_ _%x99923%_) (_%y99935%_ _%y99924%_)) (eq? (let () (declare (not safe)) - (##unchecked-structure-ref _%x98795%_ '1 '#f '#f)) + (##unchecked-structure-ref _%x99927%_ '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-ref _%y98803%_ '1 '#f '#f)))))) + (##unchecked-structure-ref _%y99935%_ '1 '#f '#f)))))) (define type-opaque? - (lambda (_%type98777%_) - (if (let () (declare (not safe)) (##type? _%type98777%_)) - (let ((_%type98781%_ _%type98777%_)) - (__type-opaque? _%type98781%_)) + (lambda (_%type99909%_) + (if (let () (declare (not safe)) (##type? _%type99909%_)) + (let ((_%type99913%_ _%type99909%_)) + (__type-opaque? _%type99913%_)) (begin (raise-contract-violation-error '"contract violation" @@ -206,25 +206,25 @@ 'contract: '##type? 'value: - _%type98777%_) + _%type99909%_) '#!void)))) (define __type-opaque? - (lambda (_%type98765%_) - (let* ((_%type98768%_ _%type98765%_) - (__tmp100315 - (let ((__tmp100316 + (lambda (_%type99897%_) + (let* ((_%type99900%_ _%type99897%_) + (__tmp101447 + (let ((__tmp101448 (let () (declare (not safe)) - (##type-flags _%type98768%_)))) + (##type-flags _%type99900%_)))) (declare (not safe)) - (##fxand __tmp100316 type-flag-opaque)))) + (##fxand __tmp101448 type-flag-opaque)))) (declare (not safe)) - (##fx= __tmp100315 type-flag-opaque)))) + (##fx= __tmp101447 type-flag-opaque)))) (define type-extensible? - (lambda (_%type98751%_) - (if (let () (declare (not safe)) (##type? _%type98751%_)) - (let ((_%type98755%_ _%type98751%_)) - (__type-extensible? _%type98755%_)) + (lambda (_%type99883%_) + (if (let () (declare (not safe)) (##type? _%type99883%_)) + (let ((_%type99887%_ _%type99883%_)) + (__type-extensible? _%type99887%_)) (begin (raise-contract-violation-error '"contract violation" @@ -233,27 +233,27 @@ 'contract: '##type? 'value: - _%type98751%_) + _%type99883%_) '#!void)))) (define __type-extensible? - (lambda (_%type98739%_) - (let* ((_%type98742%_ _%type98739%_) - (__tmp100317 - (let ((__tmp100318 + (lambda (_%type99871%_) + (let* ((_%type99874%_ _%type99871%_) + (__tmp101449 + (let ((__tmp101450 (let () (declare (not safe)) - (##type-flags _%type98742%_)))) + (##type-flags _%type99874%_)))) (declare (not safe)) - (##fxand __tmp100318 type-flag-extensible)))) + (##fxand __tmp101450 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp100317 type-flag-extensible)))) + (##fx= __tmp101449 type-flag-extensible)))) (define class-type-final? - (lambda (_%type98725%_) + (lambda (_%type99857%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type98725%_ 'class)) - (let ((_%type98729%_ _%type98725%_)) - (__class-type-final? _%type98729%_)) + (##structure-instance-of? _%type99857%_ 'class)) + (let ((_%type99861%_ _%type99857%_)) + (__class-type-final? _%type99861%_)) (begin (raise-contract-violation-error '"contract violation" @@ -262,27 +262,27 @@ 'contract: 'class-type? 'value: - _%type98725%_) + _%type99857%_) '#!void)))) (define __class-type-final? - (lambda (_%type98713%_) - (let* ((_%type98716%_ _%type98713%_) - (__tmp100319 - (let ((__tmp100320 + (lambda (_%type99845%_) + (let* ((_%type99848%_ _%type99845%_) + (__tmp101451 + (let ((__tmp101452 (let () (declare (not safe)) - (##type-flags _%type98716%_)))) + (##type-flags _%type99848%_)))) (declare (not safe)) - (##fxand __tmp100320 type-flag-extensible)))) + (##fxand __tmp101452 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp100319 '0)))) + (##fx= __tmp101451 '0)))) (define class-type-struct? - (lambda (_%klass98699%_) + (lambda (_%klass99831%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98699%_ 'class)) - (let ((_%klass98703%_ _%klass98699%_)) - (__class-type-struct? _%klass98703%_)) + (##structure-instance-of? _%klass99831%_ 'class)) + (let ((_%klass99835%_ _%klass99831%_)) + (__class-type-struct? _%klass99835%_)) (begin (raise-contract-violation-error '"contract violation" @@ -291,27 +291,27 @@ 'contract: 'class-type? 'value: - _%klass98699%_) + _%klass99831%_) '#!void)))) (define __class-type-struct? - (lambda (_%klass98687%_) - (let* ((_%klass98690%_ _%klass98687%_) - (__tmp100321 - (let ((__tmp100322 + (lambda (_%klass99819%_) + (let* ((_%klass99822%_ _%klass99819%_) + (__tmp101453 + (let ((__tmp101454 (let () (declare (not safe)) - (##type-flags _%klass98690%_)))) + (##type-flags _%klass99822%_)))) (declare (not safe)) - (##fxand __tmp100322 class-type-flag-struct)))) + (##fxand __tmp101454 class-type-flag-struct)))) (declare (not safe)) - (##fx= __tmp100321 class-type-flag-struct)))) + (##fx= __tmp101453 class-type-flag-struct)))) (define class-type-sealed? - (lambda (_%klass98673%_) + (lambda (_%klass99805%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98673%_ 'class)) - (let ((_%klass98677%_ _%klass98673%_)) - (__class-type-sealed? _%klass98677%_)) + (##structure-instance-of? _%klass99805%_ 'class)) + (let ((_%klass99809%_ _%klass99805%_)) + (__class-type-sealed? _%klass99809%_)) (begin (raise-contract-violation-error '"contract violation" @@ -320,27 +320,27 @@ 'contract: 'class-type? 'value: - _%klass98673%_) + _%klass99805%_) '#!void)))) (define __class-type-sealed? - (lambda (_%klass98661%_) - (let* ((_%klass98664%_ _%klass98661%_) - (__tmp100323 - (let ((__tmp100324 + (lambda (_%klass99793%_) + (let* ((_%klass99796%_ _%klass99793%_) + (__tmp101455 + (let ((__tmp101456 (let () (declare (not safe)) - (##type-flags _%klass98664%_)))) + (##type-flags _%klass99796%_)))) (declare (not safe)) - (##fxand __tmp100324 class-type-flag-sealed)))) + (##fxand __tmp101456 class-type-flag-sealed)))) (declare (not safe)) - (##fx= __tmp100323 class-type-flag-sealed)))) + (##fx= __tmp101455 class-type-flag-sealed)))) (define class-type-metaclass? - (lambda (_%klass98647%_) + (lambda (_%klass99779%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98647%_ 'class)) - (let ((_%klass98651%_ _%klass98647%_)) - (__class-type-metaclass? _%klass98651%_)) + (##structure-instance-of? _%klass99779%_ 'class)) + (let ((_%klass99783%_ _%klass99779%_)) + (__class-type-metaclass? _%klass99783%_)) (begin (raise-contract-violation-error '"contract violation" @@ -349,27 +349,27 @@ 'contract: 'class-type? 'value: - _%klass98647%_) + _%klass99779%_) '#!void)))) (define __class-type-metaclass? - (lambda (_%klass98635%_) - (let* ((_%klass98638%_ _%klass98635%_) - (__tmp100325 - (let ((__tmp100326 + (lambda (_%klass99767%_) + (let* ((_%klass99770%_ _%klass99767%_) + (__tmp101457 + (let ((__tmp101458 (let () (declare (not safe)) - (##type-flags _%klass98638%_)))) + (##type-flags _%klass99770%_)))) (declare (not safe)) - (##fxand __tmp100326 class-type-flag-metaclass)))) + (##fxand __tmp101458 class-type-flag-metaclass)))) (declare (not safe)) - (##fx= __tmp100325 class-type-flag-metaclass)))) + (##fx= __tmp101457 class-type-flag-metaclass)))) (define class-type-system? - (lambda (_%klass98621%_) + (lambda (_%klass99753%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98621%_ 'class)) - (let ((_%klass98625%_ _%klass98621%_)) - (__class-type-system? _%klass98625%_)) + (##structure-instance-of? _%klass99753%_ 'class)) + (let ((_%klass99757%_ _%klass99753%_)) + (__class-type-system? _%klass99757%_)) (begin (raise-contract-violation-error '"contract violation" @@ -378,574 +378,574 @@ 'contract: 'class-type? 'value: - _%klass98621%_) + _%klass99753%_) '#!void)))) (define __class-type-system? - (lambda (_%klass98609%_) - (let* ((_%klass98612%_ _%klass98609%_) - (__tmp100327 - (let ((__tmp100328 + (lambda (_%klass99741%_) + (let* ((_%klass99744%_ _%klass99741%_) + (__tmp101459 + (let ((__tmp101460 (let () (declare (not safe)) - (##type-flags _%klass98612%_)))) + (##type-flags _%klass99744%_)))) (declare (not safe)) - (##fxand __tmp100328 class-type-flag-system)))) + (##fxand __tmp101460 class-type-flag-system)))) (declare (not safe)) - (##fx= __tmp100327 class-type-flag-system)))) + (##fx= __tmp101459 class-type-flag-system)))) (define make-class-type-descriptor - (lambda (_%type-id98494%_ - _%type-name98495%_ - _%type-super98496%_ - _%precedence-list98497%_ - _%slot-vector98498%_ - _%properties98499%_ - _%constructor98500%_ - _%slot-table98501%_ - _%methods98502%_) - (letrec ((_%make-props!98505%_ - (lambda (_%key98578%_) - (letrec* ((_%ht98580%_ + (lambda (_%type-id99626%_ + _%type-name99627%_ + _%type-super99628%_ + _%precedence-list99629%_ + _%slot-vector99630%_ + _%properties99631%_ + _%constructor99632%_ + _%slot-table99633%_ + _%methods99634%_) + (letrec ((_%make-props!99637%_ + (lambda (_%key99710%_) + (letrec* ((_%ht99712%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_%put-slots!98581%_ - (lambda (_%ht98602%_ _%slots98603%_) + (_%put-slots!99713%_ + (lambda (_%ht99734%_ _%slots99735%_) (for-each - (lambda (_%g9860498606%_) + (lambda (_%g9973699738%_) (let () (declare (not safe)) (symbolic-table-set! - _%ht98602%_ - _%g9860498606%_ + _%ht99734%_ + _%g9973699738%_ '#t))) - _%slots98603%_))) - (_%put-alist!98582%_ - (lambda (_%ht98591%_ - _%key98592%_ - _%alist98593%_) - (let ((_%$e98595%_ + _%slots99735%_))) + (_%put-alist!99714%_ + (lambda (_%ht99723%_ + _%key99724%_ + _%alist99725%_) + (let ((_%$e99727%_ (let () (declare (not safe)) (agetq__0 - _%key98592%_ - _%alist98593%_)))) - (if _%$e98595%_ - ((lambda (_%g9859798599%_) - (_%put-slots!98581%_ - _%ht98591%_ - _%g9859798599%_)) - _%$e98595%_) + _%key99724%_ + _%alist99725%_)))) + (if _%$e99727%_ + ((lambda (_%g9972999731%_) + (_%put-slots!99713%_ + _%ht99723%_ + _%g9972999731%_)) + _%$e99727%_) '#!void))))) - (_%put-alist!98582%_ - _%ht98580%_ - _%key98578%_ - _%properties98499%_) + (_%put-alist!99714%_ + _%ht99712%_ + _%key99710%_ + _%properties99631%_) (for-each - (lambda (_%mixin98584%_) - (let ((_%alist98586%_ + (lambda (_%mixin99716%_) + (let ((_%alist99718%_ (##structure-ref - _%mixin98584%_ + _%mixin99716%_ '9 class::t '#f))) (if (or (let () (declare (not safe)) - (agetq__0 'transparent: _%alist98586%_)) + (agetq__0 'transparent: _%alist99718%_)) (eq? '#t (let () (declare (not safe)) (agetq__0 - _%key98578%_ - _%alist98586%_)))) - (_%put-slots!98581%_ - _%ht98580%_ - (class-type-slot-list _%mixin98584%_)) - (_%put-alist!98582%_ - _%ht98580%_ - _%key98578%_ - _%alist98586%_)))) - _%precedence-list98497%_) - _%ht98580%_)))) - (let* ((_%transparent?98507%_ + _%key99710%_ + _%alist99718%_)))) + (_%put-slots!99713%_ + _%ht99712%_ + (class-type-slot-list _%mixin99716%_)) + (_%put-alist!99714%_ + _%ht99712%_ + _%key99710%_ + _%alist99718%_)))) + _%precedence-list99629%_) + _%ht99712%_)))) + (let* ((_%transparent?99639%_ (let () (declare (not safe)) - (agetq__0 'transparent: _%properties98499%_))) - (_%all-slots-printable?98512%_ - (let ((_%$e98509%_ _%transparent?98507%_)) - (if _%$e98509%_ - _%$e98509%_ + (agetq__0 'transparent: _%properties99631%_))) + (_%all-slots-printable?99644%_ + (let ((_%$e99641%_ _%transparent?99639%_)) + (if _%$e99641%_ + _%$e99641%_ (eq? '#t (let () (declare (not safe)) - (agetq__0 'print: _%properties98499%_)))))) - (_%printable98514%_ - (if (not _%all-slots-printable?98512%_) - (_%make-props!98505%_ 'print:) + (agetq__0 'print: _%properties99631%_)))))) + (_%printable99646%_ + (if (not _%all-slots-printable?99644%_) + (_%make-props!99637%_ 'print:) '#f)) - (_%all-slots-equalable?98519%_ - (let ((_%$e98516%_ _%transparent?98507%_)) - (if _%$e98516%_ - _%$e98516%_ + (_%all-slots-equalable?99651%_ + (let ((_%$e99648%_ _%transparent?99639%_)) + (if _%$e99648%_ + _%$e99648%_ (eq? '#t (let () (declare (not safe)) - (agetq__0 'equal: _%properties98499%_)))))) - (_%equalable98521%_ - (if (not _%all-slots-equalable?98519%_) - (_%make-props!98505%_ 'equal:) + (agetq__0 'equal: _%properties99631%_)))))) + (_%equalable99653%_ + (if (not _%all-slots-equalable?99651%_) + (_%make-props!99637%_ 'equal:) '#f)) - (_%first-new-field98523%_ + (_%first-new-field99655%_ (if (let () (declare (not safe)) - (##structure-instance-of? _%type-super98496%_ 'class)) - (let ((__tmp100329 + (##structure-instance-of? _%type-super99628%_ 'class)) + (let ((__tmp101461 (let () (declare (not safe)) (##unchecked-structure-ref - _%type-super98496%_ + _%type-super99628%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp100329)) + (##vector-length __tmp101461)) '1)) - (_%field-info-length98525%_ - (let ((__tmp100330 - (let ((__tmp100331 + (_%field-info-length99657%_ + (let ((__tmp101462 + (let ((__tmp101463 (let () (declare (not safe)) - (##vector-length _%slot-vector98498%_)))) + (##vector-length _%slot-vector99630%_)))) (declare (not safe)) - (##fx- __tmp100331 _%first-new-field98523%_)))) + (##fx- __tmp101463 _%first-new-field99655%_)))) (declare (not safe)) - (##fx* '3 __tmp100330))) - (_%field-info98527%_ + (##fx* '3 __tmp101462))) + (_%field-info99659%_ (let () (declare (not safe)) - (##make-vector _%field-info-length98525%_ '#f))) - (_%struct?98529%_ + (##make-vector _%field-info-length99657%_ '#f))) + (_%struct?99661%_ (let () (declare (not safe)) - (agetq__0 'struct: _%properties98499%_))) - (_%final?98531%_ + (agetq__0 'struct: _%properties99631%_))) + (_%final?99663%_ (let () (declare (not safe)) - (agetq__0 'final: _%properties98499%_))) - (_%metaclass98539%_ - (let ((_%metaclass9853298534%_ + (agetq__0 'final: _%properties99631%_))) + (_%metaclass99671%_ + (let ((_%metaclass9966499666%_ (let () (declare (not safe)) - (agetq__0 'metaclass: _%properties98499%_)))) - (if _%metaclass9853298534%_ - (let ((_%metaclass98537%_ _%metaclass9853298534%_)) + (agetq__0 'metaclass: _%properties99631%_)))) + (if _%metaclass9966499666%_ + (let ((_%metaclass99669%_ _%metaclass9966499666%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%metaclass98537%_ + _%metaclass99669%_ 'class)) '#!void (error '"metaclass is not a class type" 'class: - _%type-id98494%_ + _%type-id99626%_ 'metaclass: - _%metaclass98537%_)) - _%metaclass98537%_) + _%metaclass99669%_)) + _%metaclass99669%_) '#f))) - (_%system?98541%_ + (_%system?99673%_ (let () (declare (not safe)) - (agetq__0 'system: _%properties98499%_))) - (_%opaque?98546%_ - (let ((_%$e98543%_ (not _%all-slots-equalable?98519%_))) - (if _%$e98543%_ - _%$e98543%_ - (if _%type-super98496%_ - (__type-opaque? _%type-super98496%_) + (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-flags98548%_ - (let ((__tmp100336 - (if _%final?98531%_ '0 type-flag-extensible)) - (__tmp100335 (if _%opaque?98546%_ type-flag-opaque '0)) - (__tmp100334 - (if _%struct?98529%_ class-type-flag-struct '0)) - (__tmp100333 - (if _%metaclass98539%_ class-type-flag-metaclass '0)) - (__tmp100332 - (if _%system?98541%_ class-type-flag-system '0))) + (_%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))) (declare (not safe)) (##fxior type-flag-id type-flag-concrete - __tmp100336 - __tmp100335 - __tmp100334 - __tmp100333 - __tmp100332))) - (_%precedence-list98556%_ - (let ((_%$e98550%_ (memq t::t _%precedence-list98497%_))) - (if _%$e98550%_ - ((lambda (_%tail98553%_) - (if (null? (cdr _%tail98553%_)) - _%precedence-list98497%_ + __tmp101468 + __tmp101467 + __tmp101466 + __tmp101465 + __tmp101464))) + (_%precedence-list99688%_ + (let ((_%$e99682%_ (memq t::t _%precedence-list99629%_))) + (if _%$e99682%_ + ((lambda (_%tail99685%_) + (if (null? (cdr _%tail99685%_)) + _%precedence-list99629%_ (error '"BUG: t::t is not last in the precedence list" 'precedence-list: - _%precedence-list98497%_))) - _%$e98550%_) - (let ((__tmp100337 (cons t::t '()))) + _%precedence-list99629%_))) + _%$e99682%_) + (let ((__tmp101469 (cons t::t '()))) (declare (not safe)) - (##append _%precedence-list98497%_ __tmp100337)))))) - (let _%loop98559%_ ((_%i98561%_ _%first-new-field98523%_) - (_%j98562%_ '0)) + (##append _%precedence-list99629%_ __tmp101469)))))) + (let _%loop99691%_ ((_%i99693%_ _%first-new-field99655%_) + (_%j99694%_ '0)) (if (let () (declare (not safe)) - (##fx< _%j98562%_ _%field-info-length98525%_)) - (let* ((_%slot98564%_ + (##fx< _%j99694%_ _%field-info-length99657%_)) + (let* ((_%slot99696%_ (let () (declare (not safe)) - (##vector-ref _%slot-vector98498%_ _%i98561%_))) - (_%flags98572%_ - (if _%transparent?98507%_ + (##vector-ref _%slot-vector99630%_ _%i99693%_))) + (_%flags99704%_ + (if _%transparent?99639%_ '0 - (let ((__tmp100339 - (if (or _%all-slots-printable?98512%_ + (let ((__tmp101471 + (if (or _%all-slots-printable?99644%_ (let () (declare (not safe)) (symbolic-table-ref - _%printable98514%_ - _%slot98564%_ + _%printable99646%_ + _%slot99696%_ '#f))) '0 '1)) - (__tmp100338 - (if (or _%all-slots-equalable?98519%_ + (__tmp101470 + (if (or _%all-slots-equalable?99651%_ (let () (declare (not safe)) (symbolic-table-ref - _%equalable98521%_ - _%slot98564%_ + _%equalable99653%_ + _%slot99696%_ '#f))) '0 '4))) (declare (not safe)) - (##fxior __tmp100339 __tmp100338))))) - (vector-set! _%field-info98527%_ _%j98562%_ _%slot98564%_) + (##fxior __tmp101471 __tmp101470))))) + (vector-set! _%field-info99659%_ _%j99694%_ _%slot99696%_) (vector-set! - _%field-info98527%_ - (let () (declare (not safe)) (##fx+ _%j98562%_ '1)) - _%flags98572%_) - (_%loop98559%_ - (let () (declare (not safe)) (##fx+ _%i98561%_ '1)) - (let () (declare (not safe)) (##fx+ _%j98562%_ '3)))) + _%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)))) '#!void)) - (if _%metaclass98539%_ - (let ((_%val98575%_ + (if _%metaclass99671%_ + (let ((_%val99707%_ (make-instance - _%metaclass98539%_ - _%type-id98494%_ - _%type-name98495%_ - _%type-flags98548%_ - _%type-super98496%_ - _%field-info98527%_ - _%precedence-list98556%_ - _%slot-vector98498%_ - _%slot-table98501%_ - _%properties98499%_ - _%constructor98500%_ - _%methods98502%_))) + _%metaclass99671%_ + _%type-id99626%_ + _%type-name99627%_ + _%type-flags99680%_ + _%type-super99628%_ + _%field-info99659%_ + _%precedence-list99688%_ + _%slot-vector99630%_ + _%slot-table99633%_ + _%properties99631%_ + _%constructor99632%_ + _%methods99634%_))) (if (let () (declare (not safe)) - (##structure-instance-of? _%val98575%_ 'class)) - _%val98575%_ - (error '"bad cast" class::t _%val98575%_))) + (##structure-instance-of? _%val99707%_ 'class)) + _%val99707%_ + (error '"bad cast" class::t _%val99707%_))) (let () (declare (not safe)) (##structure class::t - _%type-id98494%_ - _%type-name98495%_ - _%type-flags98548%_ - _%type-super98496%_ - _%field-info98527%_ - _%precedence-list98556%_ - _%slot-vector98498%_ - _%slot-table98501%_ - _%properties98499%_ - _%constructor98500%_ - _%methods98502%_))))))) + _%type-id99626%_ + _%type-name99627%_ + _%type-flags99680%_ + _%type-super99628%_ + _%field-info99659%_ + _%precedence-list99688%_ + _%slot-vector99630%_ + _%slot-table99633%_ + _%properties99631%_ + _%constructor99632%_ + _%methods99634%_))))))) (define class-type-id - (lambda (_%klass98492%_) - (##structure-ref _%klass98492%_ '1 class::t 'id))) + (lambda (_%klass99624%_) + (##structure-ref _%klass99624%_ '1 class::t 'id))) (define &class-type-id - (lambda (_%klass98490%_) + (lambda (_%klass99622%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98490%_ '1 class::t 'id)))) + (##unchecked-structure-ref _%klass99622%_ '1 class::t 'id)))) (define class-type-id-set! - (lambda (_%klass98487%_ _%val98488%_) - (##structure-set! _%klass98487%_ _%val98488%_ '1 class::t 'id))) + (lambda (_%klass99619%_ _%val99620%_) + (##structure-set! _%klass99619%_ _%val99620%_ '1 class::t 'id))) (define &class-type-id-set! - (lambda (_%klass98482%_ _%val98484%_) + (lambda (_%klass99614%_ _%val99616%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98482%_ - _%val98484%_ + _%klass99614%_ + _%val99616%_ '1 class::t 'id)))) (define class-type-name - (lambda (_%klass98480%_) - (##structure-ref _%klass98480%_ '2 class::t 'name))) + (lambda (_%klass99612%_) + (##structure-ref _%klass99612%_ '2 class::t 'name))) (define &class-type-name - (lambda (_%klass98478%_) + (lambda (_%klass99610%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98478%_ '2 class::t 'name)))) + (##unchecked-structure-ref _%klass99610%_ '2 class::t 'name)))) (define class-type-name-set! - (lambda (_%klass98475%_ _%val98476%_) - (##structure-set! _%klass98475%_ _%val98476%_ '2 class::t 'name))) + (lambda (_%klass99607%_ _%val99608%_) + (##structure-set! _%klass99607%_ _%val99608%_ '2 class::t 'name))) (define &class-type-name-set! - (lambda (_%klass98470%_ _%val98472%_) + (lambda (_%klass99602%_ _%val99604%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98470%_ - _%val98472%_ + _%klass99602%_ + _%val99604%_ '2 class::t 'name)))) (define class-type-flags - (lambda (_%klass98468%_) - (##structure-ref _%klass98468%_ '3 class::t 'flags))) + (lambda (_%klass99600%_) + (##structure-ref _%klass99600%_ '3 class::t 'flags))) (define &class-type-flags - (lambda (_%klass98466%_) + (lambda (_%klass99598%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98466%_ '3 class::t 'flags)))) + (##unchecked-structure-ref _%klass99598%_ '3 class::t 'flags)))) (define class-type-flags-set! - (lambda (_%klass98463%_ _%val98464%_) - (##structure-set! _%klass98463%_ _%val98464%_ '3 class::t 'flags))) + (lambda (_%klass99595%_ _%val99596%_) + (##structure-set! _%klass99595%_ _%val99596%_ '3 class::t 'flags))) (define &class-type-flags-set! - (lambda (_%klass98458%_ _%val98460%_) + (lambda (_%klass99590%_ _%val99592%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98458%_ - _%val98460%_ + _%klass99590%_ + _%val99592%_ '3 class::t 'flags)))) (define class-type-super - (lambda (_%klass98456%_) - (##structure-ref _%klass98456%_ '4 class::t 'super))) + (lambda (_%klass99588%_) + (##structure-ref _%klass99588%_ '4 class::t 'super))) (define &class-type-super - (lambda (_%klass98454%_) + (lambda (_%klass99586%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98454%_ '4 class::t 'super)))) + (##unchecked-structure-ref _%klass99586%_ '4 class::t 'super)))) (define class-type-super-set! - (lambda (_%klass98451%_ _%val98452%_) - (##structure-set! _%klass98451%_ _%val98452%_ '4 class::t 'super))) + (lambda (_%klass99583%_ _%val99584%_) + (##structure-set! _%klass99583%_ _%val99584%_ '4 class::t 'super))) (define &class-type-super-set! - (lambda (_%klass98446%_ _%val98448%_) + (lambda (_%klass99578%_ _%val99580%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98446%_ - _%val98448%_ + _%klass99578%_ + _%val99580%_ '4 class::t 'super)))) (define class-type-fields - (lambda (_%klass98444%_) - (##structure-ref _%klass98444%_ '5 class::t 'fields))) + (lambda (_%klass99576%_) + (##structure-ref _%klass99576%_ '5 class::t 'fields))) (define &class-type-fields - (lambda (_%klass98442%_) + (lambda (_%klass99574%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98442%_ '5 class::t 'fields)))) + (##unchecked-structure-ref _%klass99574%_ '5 class::t 'fields)))) (define class-type-fields-set! - (lambda (_%klass98439%_ _%val98440%_) - (##structure-set! _%klass98439%_ _%val98440%_ '5 class::t 'fields))) + (lambda (_%klass99571%_ _%val99572%_) + (##structure-set! _%klass99571%_ _%val99572%_ '5 class::t 'fields))) (define &class-type-fields-set! - (lambda (_%klass98434%_ _%val98436%_) + (lambda (_%klass99566%_ _%val99568%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98434%_ - _%val98436%_ + _%klass99566%_ + _%val99568%_ '5 class::t 'fields)))) (define class-type-precedence-list - (lambda (_%klass98432%_) - (##structure-ref _%klass98432%_ '6 class::t 'precedence-list))) + (lambda (_%klass99564%_) + (##structure-ref _%klass99564%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list - (lambda (_%klass98430%_) + (lambda (_%klass99562%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98430%_ + _%klass99562%_ '6 class::t 'precedence-list)))) (define class-type-precedence-list-set! - (lambda (_%klass98427%_ _%val98428%_) + (lambda (_%klass99559%_ _%val99560%_) (##structure-set! - _%klass98427%_ - _%val98428%_ + _%klass99559%_ + _%val99560%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list-set! - (lambda (_%klass98422%_ _%val98424%_) + (lambda (_%klass99554%_ _%val99556%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98422%_ - _%val98424%_ + _%klass99554%_ + _%val99556%_ '6 class::t 'precedence-list)))) (define class-type-slot-vector - (lambda (_%klass98420%_) - (##structure-ref _%klass98420%_ '7 class::t 'slot-vector))) + (lambda (_%klass99552%_) + (##structure-ref _%klass99552%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector - (lambda (_%klass98418%_) + (lambda (_%klass99550%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98418%_ + _%klass99550%_ '7 class::t 'slot-vector)))) (define class-type-slot-vector-set! - (lambda (_%klass98415%_ _%val98416%_) + (lambda (_%klass99547%_ _%val99548%_) (##structure-set! - _%klass98415%_ - _%val98416%_ + _%klass99547%_ + _%val99548%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector-set! - (lambda (_%klass98410%_ _%val98412%_) + (lambda (_%klass99542%_ _%val99544%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98410%_ - _%val98412%_ + _%klass99542%_ + _%val99544%_ '7 class::t 'slot-vector)))) (define class-type-slot-table - (lambda (_%klass98408%_) - (##structure-ref _%klass98408%_ '8 class::t 'slot-table))) + (lambda (_%klass99540%_) + (##structure-ref _%klass99540%_ '8 class::t 'slot-table))) (define &class-type-slot-table - (lambda (_%klass98406%_) + (lambda (_%klass99538%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98406%_ '8 class::t 'slot-table)))) + (##unchecked-structure-ref _%klass99538%_ '8 class::t 'slot-table)))) (define class-type-slot-table-set! - (lambda (_%klass98403%_ _%val98404%_) + (lambda (_%klass99535%_ _%val99536%_) (##structure-set! - _%klass98403%_ - _%val98404%_ + _%klass99535%_ + _%val99536%_ '8 class::t 'slot-table))) (define &class-type-slot-table-set! - (lambda (_%klass98398%_ _%val98400%_) + (lambda (_%klass99530%_ _%val99532%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98398%_ - _%val98400%_ + _%klass99530%_ + _%val99532%_ '8 class::t 'slot-table)))) (define class-type-properties - (lambda (_%klass98396%_) - (##structure-ref _%klass98396%_ '9 class::t 'properties))) + (lambda (_%klass99528%_) + (##structure-ref _%klass99528%_ '9 class::t 'properties))) (define &class-type-properties - (lambda (_%klass98394%_) + (lambda (_%klass99526%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98394%_ '9 class::t 'properties)))) + (##unchecked-structure-ref _%klass99526%_ '9 class::t 'properties)))) (define class-type-properties-set! - (lambda (_%klass98391%_ _%val98392%_) + (lambda (_%klass99523%_ _%val99524%_) (##structure-set! - _%klass98391%_ - _%val98392%_ + _%klass99523%_ + _%val99524%_ '9 class::t 'properties))) (define &class-type-properties-set! - (lambda (_%klass98386%_ _%val98388%_) + (lambda (_%klass99518%_ _%val99520%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98386%_ - _%val98388%_ + _%klass99518%_ + _%val99520%_ '9 class::t 'properties)))) (define class-type-constructor - (lambda (_%klass98384%_) - (##structure-ref _%klass98384%_ '10 class::t 'constructor))) + (lambda (_%klass99516%_) + (##structure-ref _%klass99516%_ '10 class::t 'constructor))) (define &class-type-constructor - (lambda (_%klass98382%_) + (lambda (_%klass99514%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98382%_ + _%klass99514%_ '10 class::t 'constructor)))) (define class-type-constructor-set! - (lambda (_%klass98379%_ _%val98380%_) + (lambda (_%klass99511%_ _%val99512%_) (##structure-set! - _%klass98379%_ - _%val98380%_ + _%klass99511%_ + _%val99512%_ '10 class::t 'constructor))) (define &class-type-constructor-set! - (lambda (_%klass98374%_ _%val98376%_) + (lambda (_%klass99506%_ _%val99508%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98374%_ - _%val98376%_ + _%klass99506%_ + _%val99508%_ '10 class::t 'constructor)))) (define class-type-methods - (lambda (_%klass98372%_) - (##structure-ref _%klass98372%_ '11 class::t 'methods))) + (lambda (_%klass99504%_) + (##structure-ref _%klass99504%_ '11 class::t 'methods))) (define &class-type-methods - (lambda (_%klass98370%_) + (lambda (_%klass99502%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98370%_ '11 class::t 'methods)))) + (##unchecked-structure-ref _%klass99502%_ '11 class::t 'methods)))) (define class-type-methods-set! - (lambda (_%klass98367%_ _%val98368%_) - (##structure-set! _%klass98367%_ _%val98368%_ '11 class::t 'methods))) + (lambda (_%klass99499%_ _%val99500%_) + (##structure-set! _%klass99499%_ _%val99500%_ '11 class::t 'methods))) (define &class-type-methods-set! - (lambda (_%klass98362%_ _%val98364%_) + (lambda (_%klass99494%_ _%val99496%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98362%_ - _%val98364%_ + _%klass99494%_ + _%val99496%_ '11 class::t 'methods)))) (define class-type-slot-list - (lambda (_%klass98348%_) + (lambda (_%klass99480%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98348%_ 'class)) - (let ((_%klass98352%_ _%klass98348%_)) - (__class-type-slot-list _%klass98352%_)) + (##structure-instance-of? _%klass99480%_ 'class)) + (let ((_%klass99484%_ _%klass99480%_)) + (__class-type-slot-list _%klass99484%_)) (begin (raise-contract-violation-error '"contract violation" @@ -954,22 +954,22 @@ 'contract: 'class-type? 'value: - _%klass98348%_) + _%klass99480%_) '#!void)))) (define __class-type-slot-list - (lambda (_%klass98336%_) - (let ((_%klass98339%_ _%klass98336%_)) + (lambda (_%klass99468%_) + (let ((_%klass99471%_ _%klass99468%_)) (cdr (vector->list (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98339%_ '7 '#f '#f))))))) + (##unchecked-structure-ref _%klass99471%_ '7 '#f '#f))))))) (define class-type-field-count - (lambda (_%klass98322%_) + (lambda (_%klass99454%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98322%_ 'class)) - (let ((_%klass98326%_ _%klass98322%_)) - (__class-type-field-count _%klass98326%_)) + (##structure-instance-of? _%klass99454%_ 'class)) + (let ((_%klass99458%_ _%klass99454%_)) + (__class-type-field-count _%klass99458%_)) (begin (raise-contract-violation-error '"contract violation" @@ -978,31 +978,31 @@ 'contract: 'class-type? 'value: - _%klass98322%_) + _%klass99454%_) '#!void)))) (define __class-type-field-count - (lambda (_%klass98310%_) - (let* ((_%klass98313%_ _%klass98310%_) - (__tmp100340 - (let ((__tmp100341 + (lambda (_%klass99442%_) + (let* ((_%klass99445%_ _%klass99442%_) + (__tmp101472 + (let ((__tmp101473 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98313%_ + _%klass99445%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp100341)))) + (##vector-length __tmp101473)))) (declare (not safe)) - (##fx- __tmp100340 '1)))) + (##fx- __tmp101472 '1)))) (define class-type-seal! - (lambda (_%klass98296%_) + (lambda (_%klass99428%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98296%_ 'class)) - (let ((_%klass98300%_ _%klass98296%_)) - (__class-type-seal! _%klass98300%_)) + (##structure-instance-of? _%klass99428%_ 'class)) + (let ((_%klass99432%_ _%klass99428%_)) + (__class-type-seal! _%klass99432%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1011,42 +1011,42 @@ 'contract: 'class-type? 'value: - _%klass98296%_) + _%klass99428%_) '#!void)))) (define __class-type-seal! - (lambda (_%klass98284%_) - (let ((_%klass98287%_ _%klass98284%_)) - (let ((__tmp100342 - (let ((__tmp100343 + (lambda (_%klass99416%_) + (let ((_%klass99419%_ _%klass99416%_)) + (let ((__tmp101474 + (let ((__tmp101475 (let () (declare (not safe)) - (##type-flags _%klass98287%_)))) + (##type-flags _%klass99419%_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp100343)))) + (##fxior class-type-flag-sealed __tmp101475)))) (declare (not safe)) (##unchecked-structure-set! - _%klass98287%_ - __tmp100342 + _%klass99419%_ + __tmp101474 '3 class::t class-type-seal!)) '#!void))) (define substruct? - (lambda (_%maybe-sub-struct98259%_ _%maybe-super-struct98260%_) + (lambda (_%maybe-sub-struct99391%_ _%maybe-super-struct99392%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%maybe-sub-struct98259%_ 'class)) - (let ((_%maybe-sub-struct98264%_ _%maybe-sub-struct98259%_)) + (##structure-instance-of? _%maybe-sub-struct99391%_ 'class)) + (let ((_%maybe-sub-struct99396%_ _%maybe-sub-struct99391%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%maybe-super-struct98260%_ + _%maybe-super-struct99392%_ 'class)) - (let ((_%maybe-super-struct98274%_ - _%maybe-super-struct98260%_)) + (let ((_%maybe-super-struct99406%_ + _%maybe-super-struct99392%_)) (__substruct? - _%maybe-sub-struct98264%_ - _%maybe-super-struct98274%_)) + _%maybe-sub-struct99396%_ + _%maybe-super-struct99406%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1055,7 +1055,7 @@ 'contract: 'class-type? 'value: - _%maybe-super-struct98260%_) + _%maybe-super-struct99392%_) '#!void))) (begin (raise-contract-violation-error @@ -1065,300 +1065,288 @@ 'contract: 'class-type? 'value: - _%maybe-sub-struct98259%_) + _%maybe-sub-struct99391%_) '#!void)))) (define __substruct? - (lambda (_%maybe-sub-struct98228%_ _%maybe-super-struct98229%_) - (let* ((_%maybe-sub-struct98232%_ _%maybe-sub-struct98228%_) - (_%maybe-super-struct98240%_ _%maybe-super-struct98229%_) - (_%maybe-super-struct-id98249%_ + (lambda (_%maybe-sub-struct99360%_ _%maybe-super-struct99361%_) + (let* ((_%maybe-sub-struct99364%_ _%maybe-sub-struct99360%_) + (_%maybe-super-struct99372%_ _%maybe-super-struct99361%_) + (_%maybe-super-struct-id99381%_ (let () (declare (not safe)) - (##type-id _%maybe-super-struct98240%_)))) - (let _%lp98251%_ ((_%super-struct98253%_ _%maybe-sub-struct98232%_)) - (if (not _%super-struct98253%_) + (##type-id _%maybe-super-struct99372%_)))) + (let _%lp99383%_ ((_%super-struct99385%_ _%maybe-sub-struct99364%_)) + (if (not _%super-struct99385%_) '#f - (if (eq? _%maybe-super-struct-id98249%_ + (if (eq? _%maybe-super-struct-id99381%_ (let () (declare (not safe)) - (##type-id _%super-struct98253%_))) + (##type-id _%super-struct99385%_))) '#t - (_%lp98251%_ + (_%lp99383%_ (let () (declare (not safe)) - (##type-super _%super-struct98253%_))))))))) + (##type-super _%super-struct99385%_))))))))) (define base-struct/1 - (lambda (_%klass98223%_) + (lambda (_%klass99355%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98223%_ 'class)) - (if (__class-type-struct? _%klass98223%_) - _%klass98223%_ - (let () (declare (not safe)) (##type-super _%klass98223%_))) - (if (not _%klass98223%_) + (##structure-instance-of? _%klass99355%_ 'class)) + (if (__class-type-struct? _%klass99355%_) + _%klass99355%_ + (let () (declare (not safe)) (##type-super _%klass99355%_))) + (if (not _%klass99355%_) '#f - (error '"not a class or false" _%klass98223%_))))) + (error '"not a class or false" _%klass99355%_))))) (define base-struct/2 - (lambda (_%klass198208%_ _%klass298209%_) - (let ((_%s198211%_ (base-struct/1 _%klass198208%_)) - (_%s298212%_ (base-struct/1 _%klass298209%_))) - (if (or (not _%s198211%_) - (and _%s298212%_ (substruct? _%s198211%_ _%s298212%_))) - _%s298212%_ - (if (or (not _%s298212%_) - (and _%s198211%_ (substruct? _%s298212%_ _%s198211%_))) - _%s198211%_ + (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%_ (error '"bad mixin: incompatible struct bases" - _%klass198208%_ - _%klass298209%_ - _%s198211%_ - _%s298212%_)))))) + _%klass199340%_ + _%klass299341%_ + _%s199343%_ + _%s299344%_)))))) (define base-struct/list - (lambda (_%all-supers98092%_) - (let* ((_%all-supers9809398118%_ _%all-supers98092%_) - (_%E9809898122%_ + (lambda (_%all-supers99224%_) + (let* ((_%all-supers9922599250%_ _%all-supers99224%_) + (_%E9923099254%_ (lambda () (error '"No clause matching" - _%all-supers9809398118%_ + _%all-supers9922599250%_ '([]) '([x]) '([x y]) '([x y ...])) '#!void))) - (let ((_%K9811698205%_ (lambda () '#f)) - (_%K9811398191%_ - (lambda (_%x98189%_) (base-struct/1 _%x98189%_))) - (_%K9810898168%_ - (lambda (_%y98165%_ _%x98166%_) - (base-struct/2 _%x98166%_ _%y98165%_))) - (_%K9809998129%_ - (lambda (_%y98126%_ _%x98127%_) + (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 () (declare (not safe)) - (__foldr1 base-struct/2 _%x98127%_ _%y98126%_))))) - (let* ((_%__match100302100303%_ - (lambda (_%hd9810098132%_ _%tl9810198134%_) - (let ((_%x98137%_ _%hd9810098132%_)) - (letrec ((_%splice-rest9810398139%_ - (lambda (_%rest9810798146%_ _%y98148%_) - (if (let () - (declare (not safe)) - (##null? _%rest9810798146%_)) - (_%K9809998129%_ _%y98148%_ _%x98137%_) - (_%E9809898122%_)))) - (_%splice-try9810598141%_ - (lambda (_%hd9810698150%_ - _%rest9810798152%_ - _%y9810298153%_) - (let ((_%y98156%_ _%hd9810698150%_)) - (_%splice-loop9810498143%_ + (__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%_ (let () (declare (not safe)) - (##cdr _%rest9810798152%_)) - (cons _%y98156%_ _%y9810298153%_))))) - (_%splice-loop9810498143%_ - (lambda (_%rest9810798158%_ _%y9810298159%_) - (if (pair? _%rest9810798158%_) - (_%splice-try9810598141%_ + (##cdr _%rest9923999284%_)) + (cons _%y99288%_ _%y9923499285%_))))) + (_%splice-loop9923699275%_ + (lambda (_%rest9923999290%_ _%y9923499291%_) + (if (pair? _%rest9923999290%_) + (_%splice-try9923799273%_ (let () (declare (not safe)) - (##car _%rest9810798158%_)) - _%rest9810798158%_ - _%y9810298159%_) - (_%splice-rest9810398139%_ - _%rest9810798158%_ - (reverse _%y9810298159%_)))))) - (_%splice-loop9810498143%_ _%tl9810198134%_ '()))))) - (_%try-match9809598201%_ + (##car _%rest9923999290%_)) + _%rest9923999290%_ + _%y9923499291%_) + (_%splice-rest9923599271%_ + _%rest9923999290%_ + (reverse _%y9923499291%_)))))) + (_%splice-loop9923699275%_ _%tl9923399266%_ '()))))) + (_%try-match9922799333%_ (lambda () - (if (let () - (declare (not safe)) - (##pair? _%all-supers9809398118%_)) - (let ((_%tl9811598196%_ + (if (pair? _%all-supers9922599250%_) + (let ((_%tl9924799328%_ (let () (declare (not safe)) - (##cdr _%all-supers9809398118%_))) - (_%hd9811498194%_ + (##cdr _%all-supers9922599250%_))) + (_%hd9924699326%_ (let () (declare (not safe)) - (##car _%all-supers9809398118%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl9811598196%_)) - (let ((_%x98199%_ _%hd9811498194%_)) - (base-struct/1 _%x98199%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl9811598196%_)) - (let ((_%tl9811298180%_ + (##car _%all-supers9922599250%_)))) + (if (null? _%tl9924799328%_) + (let ((_%x99331%_ _%hd9924699326%_)) + (base-struct/1 _%x99331%_)) + (if (pair? _%tl9924799328%_) + (let ((_%tl9924499312%_ (let () (declare (not safe)) - (##cdr _%tl9811598196%_))) - (_%hd9811198178%_ + (##cdr _%tl9924799328%_))) + (_%hd9924399310%_ (let () (declare (not safe)) - (##car _%tl9811598196%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl9811298180%_)) - (let ((_%x98176%_ _%hd9811498194%_) - (_%y98183%_ _%hd9811198178%_)) - (_%K9810898168%_ - _%y98183%_ - _%x98176%_)) - (_%__match100302100303%_ - _%hd9811498194%_ - _%tl9811598196%_))) - (_%__match100302100303%_ - _%hd9811498194%_ - _%tl9811598196%_)))) - (_%E9809898122%_))))) - (if (let () - (declare (not safe)) - (##null? _%all-supers9809398118%_)) - (_%K9811698205%_) - (_%try-match9809598201%_))))))) + (##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%_))))))) (define base-struct - (lambda _%all-supers98090%_ (base-struct/list _%all-supers98090%_))) + (lambda _%all-supers99222%_ (base-struct/list _%all-supers99222%_))) (define find-super-constructor - (lambda (_%super98041%_) - (let _%lp98043%_ ((_%rest98045%_ _%super98041%_) - (_%constructor98046%_ '#f)) - (let* ((_%rest9804798055%_ _%rest98045%_) - (_%else9804998063%_ (lambda () _%constructor98046%_)) - (_%K9805198078%_ - (lambda (_%rest98066%_ _%hd98067%_) - (let ((_%$e98069%_ + (lambda (_%super99173%_) + (let _%lp99175%_ ((_%rest99177%_ _%super99173%_) + (_%constructor99178%_ '#f)) + (let* ((_%rest9917999187%_ _%rest99177%_) + (_%else9918199195%_ (lambda () _%constructor99178%_)) + (_%K9918399210%_ + (lambda (_%rest99198%_ _%hd99199%_) + (let ((_%$e99201%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd98067%_ + _%hd99199%_ '10 '#f '#f)))) - (if _%$e98069%_ - ((lambda (_%xconstructor98072%_) - (if (or (not _%constructor98046%_) - (eq? _%constructor98046%_ - _%xconstructor98072%_)) - (_%lp98043%_ - _%rest98066%_ - _%xconstructor98072%_) + (if _%$e99201%_ + ((lambda (_%xconstructor99204%_) + (if (or (not _%constructor99178%_) + (eq? _%constructor99178%_ + _%xconstructor99204%_)) + (_%lp99175%_ + _%rest99198%_ + _%xconstructor99204%_) (error '"conflicting implicit constructors" - _%constructor98046%_ - _%xconstructor98072%_))) - _%$e98069%_) - (_%lp98043%_ _%rest98066%_ _%constructor98046%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest9804798055%_)) - (let ((_%hd9805298081%_ + _%constructor99178%_ + _%xconstructor99204%_))) + _%$e99201%_) + (_%lp99175%_ _%rest99198%_ _%constructor99178%_)))))) + (if (pair? _%rest9917999187%_) + (let ((_%hd9918499213%_ (let () (declare (not safe)) - (##car _%rest9804798055%_))) - (_%tl9805398083%_ + (##car _%rest9917999187%_))) + (_%tl9918599215%_ (let () (declare (not safe)) - (##cdr _%rest9804798055%_)))) - (let* ((_%hd98086%_ _%hd9805298081%_) - (_%rest98088%_ _%tl9805398083%_)) - (_%K9805198078%_ _%rest98088%_ _%hd98086%_))) - (_%else9804998063%_)))))) + (##cdr _%rest9917999187%_)))) + (let* ((_%hd99218%_ _%hd9918499213%_) + (_%rest99220%_ _%tl9918599215%_)) + (_%K9918399210%_ _%rest99220%_ _%hd99218%_))) + (_%else9918199195%_)))))) (define compute-class-slots - (lambda (_%class-precedence-list98017%_ _%direct-slots98018%_) - (let* ((_%next-slot98020%_ '1) - (_%slot-table98022%_ + (lambda (_%class-precedence-list99149%_ _%direct-slots99150%_) + (let* ((_%next-slot99152%_ '1) + (_%slot-table99154%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_%r-slots98024%_ '(__class)) - (_%process-slot98028%_ - (lambda (_%slot98026%_) - (if (symbol? _%slot98026%_) + (_%r-slots99156%_ '(__class)) + (_%process-slot99160%_ + (lambda (_%slot99158%_) + (if (symbol? _%slot99158%_) '#!void - (error '"invalid slot name" _%slot98026%_)) + (error '"invalid slot name" _%slot99158%_)) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%slot-table98022%_ - _%slot98026%_ + _%slot-table99154%_ + _%slot99158%_ absent-value)) absent-value) (begin (let () (declare (not safe)) (symbolic-table-set! - _%slot-table98022%_ - _%slot98026%_ - _%next-slot98020%_)) - (let ((__tmp100344 + _%slot-table99154%_ + _%slot99158%_ + _%next-slot99152%_)) + (let ((__tmp101476 (let () (declare (not safe)) - (symbol->keyword _%slot98026%_)))) + (symbol->keyword _%slot99158%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table98022%_ - __tmp100344 - _%next-slot98020%_)) - (set! _%r-slots98024%_ - (cons _%slot98026%_ _%r-slots98024%_)) - (set! _%next-slot98020%_ + _%slot-table99154%_ + __tmp101476 + _%next-slot99152%_)) + (set! _%r-slots99156%_ + (cons _%slot99158%_ _%r-slots99156%_)) + (set! _%next-slot99152%_ (let () (declare (not safe)) - (##fx+ _%next-slot98020%_ '1)))) + (##fx+ _%next-slot99152%_ '1)))) '#!void))) - (_%process-slots98034%_ - (lambda (_%g9802998031%_) - (for-each _%process-slot98028%_ _%g9802998031%_)))) - (let ((__tmp100346 - (lambda (_%mixin98037%_) - (_%process-slots98034%_ - (let ((__tmp100347 + (_%process-slots99166%_ + (lambda (_%g9916199163%_) + (for-each _%process-slot99160%_ _%g9916199163%_)))) + (let ((__tmp101478 + (lambda (_%mixin99169%_) + (_%process-slots99166%_ + (let ((__tmp101479 (let () (declare (not safe)) (##unchecked-structure-ref - _%mixin98037%_ + _%mixin99169%_ '9 '#f '#f)))) (declare (not safe)) - (agetq__% 'direct-slots: __tmp100347 '()))))) - (__tmp100345 (reverse _%class-precedence-list98017%_))) + (agetq__% 'direct-slots: __tmp101479 '()))))) + (__tmp101477 (reverse _%class-precedence-list99149%_))) (declare (not safe)) - (##for-each __tmp100346 __tmp100345)) - (_%process-slots98034%_ _%direct-slots98018%_) - (let ((_%slot-vector98039%_ + (##for-each __tmp101478 __tmp101477)) + (_%process-slots99166%_ _%direct-slots99150%_) + (let ((_%slot-vector99171%_ (list->vector - (let () (declare (not safe)) (##reverse _%r-slots98024%_))))) - (values _%slot-vector98039%_ _%slot-table98022%_))))) + (let () (declare (not safe)) (##reverse _%r-slots99156%_))))) + (values _%slot-vector99171%_ _%slot-table99154%_))))) (define make-class-type - (lambda (_%id97942%_ - _%name97943%_ - _%direct-supers97944%_ - _%direct-slots97945%_ - _%properties97946%_ - _%constructor97947%_) - (if (symbol? _%id97942%_) - (let ((_%id97951%_ _%id97942%_)) - (if (symbol? _%name97943%_) - (let ((_%name97961%_ _%name97943%_)) - (if (list? _%direct-supers97944%_) - (let ((_%direct-supers97971%_ _%direct-supers97944%_)) - (if (list? _%direct-slots97945%_) - (let ((_%direct-slots97981%_ - _%direct-slots97945%_)) - (if (list? _%properties97946%_) - (let ((_%properties97991%_ - _%properties97946%_)) - (if ((lambda (_%$obj98000%_) - (or (not _%$obj98000%_) - (symbol? _%$obj98000%_))) - _%constructor97947%_) - (let ((_%constructor98007%_ - _%constructor97947%_)) + (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%_)) (__make-class-type - _%id97951%_ - _%name97961%_ - _%direct-supers97971%_ - _%direct-slots97981%_ - _%properties97991%_ - _%constructor98007%_)) + _%id99083%_ + _%name99093%_ + _%direct-supers99103%_ + _%direct-slots99113%_ + _%properties99123%_ + _%constructor99139%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1367,7 +1355,7 @@ 'contract: '(? (or not symbol?)) 'value: - _%constructor97947%_) + _%constructor99079%_) '#!void))) (begin (raise-contract-violation-error @@ -1377,7 +1365,7 @@ 'contract: 'list? 'value: - _%properties97946%_) + _%properties99078%_) '#!void))) (begin (raise-contract-violation-error @@ -1387,7 +1375,7 @@ 'contract: 'list? 'value: - _%direct-slots97945%_) + _%direct-slots99077%_) '#!void))) (begin (raise-contract-violation-error @@ -1397,7 +1385,7 @@ 'contract: 'list? 'value: - _%direct-supers97944%_) + _%direct-supers99076%_) '#!void))) (begin (raise-contract-violation-error @@ -1407,7 +1395,7 @@ 'contract: 'symbol? 'value: - _%name97943%_) + _%name99075%_) '#!void))) (begin (raise-contract-violation-error @@ -1417,167 +1405,165 @@ 'contract: 'symbol? 'value: - _%id97942%_) + _%id99074%_) '#!void)))) (define __make-class-type - (lambda (_%id97811%_ - _%name97812%_ - _%direct-supers97813%_ - _%direct-slots97814%_ - _%properties97815%_ - _%constructor97816%_) - (let* ((_%id97819%_ _%id97811%_) - (_%name97827%_ _%name97812%_) - (_%direct-supers97835%_ _%direct-supers97813%_) - (_%direct-slots97843%_ _%direct-slots97814%_) - (_%properties97851%_ _%properties97815%_) - (_%constructor97859%_ _%constructor97816%_)) - (let ((_%$e97871%_ - (let ((__tmp100348 - (lambda (_%$obj97868%_) + (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%_) (not (let () (declare (not safe)) (##structure-instance-of? - _%$obj97868%_ + _%$obj99000%_ 'class)))))) (declare (not safe)) - (__find __tmp100348 _%direct-supers97835%_)))) - (if _%$e97871%_ - ((lambda (_%g9787397875%_) + (__find __tmp101480 _%direct-supers98967%_)))) + (if _%$e99003%_ + ((lambda (_%g9900599007%_) (error '"Illegal super class; not a class descriptor" - _%g9787397875%_)) - _%$e97871%_) - (let ((_%$e97878%_ + _%g9900599007%_)) + _%$e99003%_) + (let ((_%$e99010%_ (let () (declare (not safe)) - (__find __class-type-final? _%direct-supers97835%_)))) - (if _%$e97878%_ - ((lambda (_%g9788097882%_) - (error '"Cannot extend final class" _%g9788097882%_)) - _%$e97878%_) + (__find __class-type-final? _%direct-supers98967%_)))) + (if _%$e99010%_ + ((lambda (_%g9901299014%_) + (error '"Cannot extend final class" _%g9901299014%_)) + _%$e99010%_) '#!void)))) - (let ((_g100349_ (compute-precedence-list _%direct-supers97835%_))) + (let ((_g101481_ (compute-precedence-list _%direct-supers98967%_))) (begin - (let ((_g100350_ + (let ((_g101482_ (let () (declare (not safe)) - (if (##values? _g100349_) - (##vector-length _g100349_) + (if (##values? _g101481_) + (##vector-length _g101481_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g100350_ 2))) - (error "Context expects 2 values" _g100350_))) - (let ((_%precedence-list97885%_ - (let () (declare (not safe)) (##vector-ref _g100349_ 0))) - (_%struct-super97886%_ - (let () (declare (not safe)) (##vector-ref _g100349_ 1)))) - (let ((_g100351_ + (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_ (compute-class-slots - _%precedence-list97885%_ - _%direct-slots97843%_))) + _%precedence-list99017%_ + _%direct-slots98975%_))) (begin - (let ((_g100352_ + (let ((_g101484_ (let () (declare (not safe)) - (if (##values? _g100351_) - (##vector-length _g100351_) + (if (##values? _g101483_) + (##vector-length _g101483_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g100352_ 2))) - (error "Context expects 2 values" _g100352_))) - (let ((_%slot-vector97888%_ + (##fx= _g101484_ 2))) + (error "Context expects 2 values" _g101484_))) + (let ((_%slot-vector99020%_ (let () (declare (not safe)) - (##vector-ref _g100351_ 0))) - (_%slot-table97889%_ + (##vector-ref _g101483_ 0))) + (_%slot-table99021%_ (let () (declare (not safe)) - (##vector-ref _g100351_ 1)))) - (let* ((_%properties97891%_ - (cons (cons 'direct-slots: _%direct-slots97843%_) + (##vector-ref _g101483_ 1)))) + (let* ((_%properties99023%_ + (cons (cons 'direct-slots: _%direct-slots98975%_) (cons (cons 'direct-supers: - _%direct-supers97835%_) - _%properties97851%_))) - (_%constructor*97896%_ - (let ((_%$e97893%_ _%constructor97859%_)) - (if _%$e97893%_ - _%$e97893%_ + _%direct-supers98967%_) + _%properties98983%_))) + (_%constructor*99028%_ + (let ((_%$e99025%_ _%constructor98991%_)) + (if _%$e99025%_ + _%$e99025%_ (find-super-constructor - _%direct-supers97835%_)))) - (_%precedence-list97939%_ + _%direct-supers98967%_)))) + (_%precedence-list99071%_ (if (or (let () (declare (not safe)) (agetq__0 'system: - _%properties97891%_)) + _%properties99023%_)) (memq object::t - _%precedence-list97885%_)) - _%precedence-list97885%_ - (let _%loop97901%_ ((_%tail97903%_ - _%precedence-list97885%_) - (_%head97904%_ '())) - (let* ((_%tail9790597913%_ _%tail97903%_) - (_%else9790797921%_ + _%precedence-list99017%_)) + _%precedence-list99017%_ + (let _%loop99033%_ ((_%tail99035%_ + _%precedence-list99017%_) + (_%head99036%_ '())) + (let* ((_%tail9903799045%_ _%tail99035%_) + (_%else9903999053%_ (lambda () - (let ((__tmp100353 + (let ((__tmp101485 (cons object::t (cons t::t '())))) (declare (not safe)) (__foldl1 cons - __tmp100353 - _%head97904%_)))) - (_%K9790997927%_ - (lambda (_%rest97924%_ _%hd97925%_) - (if (eq? _%hd97925%_ t::t) - (let ((__tmp100354 + __tmp101485 + _%head99036%_)))) + (_%K9904199059%_ + (lambda (_%rest99056%_ _%hd99057%_) + (if (eq? _%hd99057%_ t::t) + (let ((__tmp101486 (cons object::t - _%tail97903%_))) + _%tail99035%_))) (declare (not safe)) (__foldl1 cons - __tmp100354 - _%head97904%_)) - (_%loop97901%_ - _%rest97924%_ - (cons _%hd97925%_ - _%head97904%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%tail9790597913%_)) - (let ((_%hd9791097930%_ + __tmp101486 + _%head99036%_)) + (_%loop99033%_ + _%rest99056%_ + (cons _%hd99057%_ + _%head99036%_)))))) + (if (pair? _%tail9903799045%_) + (let ((_%hd9904299062%_ (let () (declare (not safe)) - (##car _%tail9790597913%_))) - (_%tl9791197932%_ + (##car _%tail9903799045%_))) + (_%tl9904399064%_ (let () (declare (not safe)) - (##cdr _%tail9790597913%_)))) - (let* ((_%hd97935%_ - _%hd9791097930%_) - (_%rest97937%_ - _%tl9791197932%_)) - (_%K9790997927%_ - _%rest97937%_ - _%hd97935%_))) - (_%else9790797921%_))))))) + (##cdr _%tail9903799045%_)))) + (let* ((_%hd99067%_ + _%hd9904299062%_) + (_%rest99069%_ + _%tl9904399064%_)) + (_%K9904199059%_ + _%rest99069%_ + _%hd99067%_))) + (_%else9903999053%_))))))) (make-class-type-descriptor - _%id97819%_ - _%name97827%_ - _%struct-super97886%_ - _%precedence-list97939%_ - _%slot-vector97888%_ - _%properties97891%_ - _%constructor*97896%_ - _%slot-table97889%_ + _%id98951%_ + _%name98959%_ + _%struct-super99018%_ + _%precedence-list99071%_ + _%slot-vector99020%_ + _%properties99023%_ + _%constructor*99028%_ + _%slot-table99021%_ '#f))))))))))) (define class-precedence-list - (lambda (_%klass97797%_) + (lambda (_%klass98929%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97797%_ 'class)) - (let ((_%klass97801%_ _%klass97797%_)) - (__class-precedence-list _%klass97801%_)) + (##structure-instance-of? _%klass98929%_ 'class)) + (let ((_%klass98933%_ _%klass98929%_)) + (__class-precedence-list _%klass98933%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1586,17 +1572,17 @@ 'contract: 'class-type? 'value: - _%klass97797%_) + _%klass98929%_) '#!void)))) (define __class-precedence-list - (lambda (_%klass97785%_) - (let ((_%klass97788%_ _%klass97785%_)) - (cons _%klass97788%_ + (lambda (_%klass98917%_) + (let ((_%klass98920%_ _%klass98917%_)) + (cons _%klass98920%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97788%_ '6 '#f '#f)))))) + (##unchecked-structure-ref _%klass98920%_ '6 '#f '#f)))))) (define compute-precedence-list - (lambda (_%direct-supers97782%_) + (lambda (_%direct-supers98914%_) (let () (declare (not safe)) (c4-linearize__% @@ -1606,14 +1592,14 @@ eq? ##type-name '() - _%direct-supers97782%_)))) + _%direct-supers98914%_)))) (define make-class-predicate - (lambda (_%klass97768%_) + (lambda (_%klass98900%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97768%_ 'class)) - (let ((_%klass97772%_ _%klass97768%_)) - (__make-class-predicate _%klass97772%_)) + (##structure-instance-of? _%klass98900%_ 'class)) + (let ((_%klass98904%_ _%klass98900%_)) + (__make-class-predicate _%klass98904%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1622,36 +1608,36 @@ 'contract: 'class-type? 'value: - _%klass97768%_) + _%klass98900%_) '#!void)))) (define __make-class-predicate - (lambda (_%klass97739%_) - (let* ((_%klass97742%_ _%klass97739%_) - (_%tid97751%_ - (let () (declare (not safe)) (##type-id _%klass97742%_)))) - (if (__class-type-final? _%klass97742%_) - (lambda (_%g9775397755%_) + (lambda (_%klass98871%_) + (let* ((_%klass98874%_ _%klass98871%_) + (_%tid98883%_ + (let () (declare (not safe)) (##type-id _%klass98874%_)))) + (if (__class-type-final? _%klass98874%_) + (lambda (_%g9888598887%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%g9775397755%_ - _%tid97751%_))) - (if (__class-type-struct? _%klass97742%_) - (lambda (_%g9775897760%_) + _%g9888598887%_ + _%tid98883%_))) + (if (__class-type-struct? _%klass98874%_) + (lambda (_%g9889098892%_) (let () (declare (not safe)) - (##structure-instance-of? _%g9775897760%_ _%tid97751%_))) - (lambda (_%g9776397765%_) - (__class-instance? _%klass97742%_ _%g9776397765%_))))))) + (##structure-instance-of? _%g9889098892%_ _%tid98883%_))) + (lambda (_%g9889598897%_) + (__class-instance? _%klass98874%_ _%g9889598897%_))))))) (define make-class-slot-accessor - (lambda (_%klass97714%_ _%slot97715%_) + (lambda (_%klass98846%_ _%slot98847%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97714%_ 'class)) - (let ((_%klass97719%_ _%klass97714%_)) - (if (symbol? _%slot97715%_) - (let ((_%slot97729%_ _%slot97715%_)) - (__make-class-slot-accessor _%klass97719%_ _%slot97729%_)) + (##structure-instance-of? _%klass98846%_ 'class)) + (let ((_%klass98851%_ _%klass98846%_)) + (if (symbol? _%slot98847%_) + (let ((_%slot98861%_ _%slot98847%_)) + (__make-class-slot-accessor _%klass98851%_ _%slot98861%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1660,7 +1646,7 @@ 'contract: 'symbol? 'value: - _%slot97715%_) + _%slot98847%_) '#!void))) (begin (raise-contract-violation-error @@ -1670,78 +1656,78 @@ 'contract: 'class-type? 'value: - _%klass97714%_) + _%klass98846%_) '#!void)))) (define __make-class-slot-accessor - (lambda (_%klass97682%_ _%slot97683%_) - (let* ((_%klass97686%_ _%klass97682%_) - (_%slot97694%_ _%slot97683%_) - (_%field97703%_ - (let ((__tmp100355 + (lambda (_%klass98814%_ _%slot98815%_) + (let* ((_%klass98818%_ _%klass98814%_) + (_%slot98826%_ _%slot98815%_) + (_%field98835%_ + (let ((__tmp101487 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97686%_ + _%klass98818%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp100355 _%slot97694%_ '#f)))) - (if (not _%field97703%_) + (symbolic-table-ref __tmp101487 _%slot98826%_ '#f)))) + (if (not _%field98835%_) (let () (error '"unknown slot" 'class: - _%klass97686%_ + _%klass98818%_ 'slot: - _%slot97694%_) + _%slot98826%_) '#!void) - (if (__class-type-final? _%klass97686%_) + (if (__class-type-final? _%klass98818%_) (make-final-slot-accessor - _%klass97686%_ - _%slot97694%_ - _%field97703%_) - (if (__class-type-struct? _%klass97686%_) + _%klass98818%_ + _%slot98826%_ + _%field98835%_) + (if (__class-type-struct? _%klass98818%_) (make-struct-slot-accessor - _%klass97686%_ - _%slot97694%_ - _%field97703%_) - (if (let ((_%strukt97709%_ - (base-struct/1 _%klass97686%_))) + _%klass98818%_ + _%slot98826%_ + _%field98835%_) + (if (let ((_%strukt98841%_ + (base-struct/1 _%klass98818%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt97709%_ + _%strukt98841%_ 'class)) - (let ((__tmp100356 - (let ((__tmp100357 + (let ((__tmp101488 + (let ((__tmp101489 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt97709%_ + _%strukt98841%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp100357)))) + (##vector-length __tmp101489)))) (declare (not safe)) - (##fx< _%field97703%_ __tmp100356)))) + (##fx< _%field98835%_ __tmp101488)))) (make-struct-subclass-slot-accessor - _%klass97686%_ - _%slot97694%_ - _%field97703%_) + _%klass98818%_ + _%slot98826%_ + _%field98835%_) (make-class-cached-slot-accessor - _%klass97686%_ - _%slot97694%_ - _%field97703%_)))))))) + _%klass98818%_ + _%slot98826%_ + _%field98835%_)))))))) (define make-class-slot-mutator - (lambda (_%klass97657%_ _%slot97658%_) + (lambda (_%klass98789%_ _%slot98790%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97657%_ 'class)) - (let ((_%klass97662%_ _%klass97657%_)) - (if (symbol? _%slot97658%_) - (let ((_%slot97672%_ _%slot97658%_)) - (__make-class-slot-mutator _%klass97662%_ _%slot97672%_)) + (##structure-instance-of? _%klass98789%_ 'class)) + (let ((_%klass98794%_ _%klass98789%_)) + (if (symbol? _%slot98790%_) + (let ((_%slot98804%_ _%slot98790%_)) + (__make-class-slot-mutator _%klass98794%_ _%slot98804%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1750,7 +1736,7 @@ 'contract: 'symbol? 'value: - _%slot97658%_) + _%slot98790%_) '#!void))) (begin (raise-contract-violation-error @@ -1760,80 +1746,80 @@ 'contract: 'class-type? 'value: - _%klass97657%_) + _%klass98789%_) '#!void)))) (define __make-class-slot-mutator - (lambda (_%klass97625%_ _%slot97626%_) - (let* ((_%klass97629%_ _%klass97625%_) - (_%slot97637%_ _%slot97626%_) - (_%field97646%_ - (let ((__tmp100358 + (lambda (_%klass98757%_ _%slot98758%_) + (let* ((_%klass98761%_ _%klass98757%_) + (_%slot98769%_ _%slot98758%_) + (_%field98778%_ + (let ((__tmp101490 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97629%_ + _%klass98761%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp100358 _%slot97637%_ '#f)))) - (if (not _%field97646%_) + (symbolic-table-ref __tmp101490 _%slot98769%_ '#f)))) + (if (not _%field98778%_) (let () (error '"unknown slot" 'class: - _%klass97629%_ + _%klass98761%_ 'slot: - _%slot97637%_) + _%slot98769%_) '#!void) - (if (__class-type-final? _%klass97629%_) + (if (__class-type-final? _%klass98761%_) (make-final-slot-mutator - _%klass97629%_ - _%slot97637%_ - _%field97646%_) - (if (__class-type-struct? _%klass97629%_) + _%klass98761%_ + _%slot98769%_ + _%field98778%_) + (if (__class-type-struct? _%klass98761%_) (make-struct-slot-mutator - _%klass97629%_ - _%slot97637%_ - _%field97646%_) - (if (let ((_%strukt97652%_ - (base-struct/1 _%klass97629%_))) + _%klass98761%_ + _%slot98769%_ + _%field98778%_) + (if (let ((_%strukt98784%_ + (base-struct/1 _%klass98761%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt97652%_ + _%strukt98784%_ 'class)) - (let ((__tmp100359 - (let ((__tmp100360 + (let ((__tmp101491 + (let ((__tmp101492 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt97652%_ + _%strukt98784%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp100360)))) + (##vector-length __tmp101492)))) (declare (not safe)) - (##fx< _%field97646%_ __tmp100359)))) + (##fx< _%field98778%_ __tmp101491)))) (make-struct-subclass-slot-mutator - _%klass97629%_ - _%slot97637%_ - _%field97646%_) + _%klass98761%_ + _%slot98769%_ + _%field98778%_) (make-class-cached-slot-mutator - _%klass97629%_ - _%slot97637%_ - _%field97646%_)))))))) + _%klass98761%_ + _%slot98769%_ + _%field98778%_)))))))) (define make-class-slot-unchecked-accessor - (lambda (_%klass97600%_ _%slot97601%_) + (lambda (_%klass98732%_ _%slot98733%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97600%_ 'class)) - (let ((_%klass97605%_ _%klass97600%_)) - (if (symbol? _%slot97601%_) - (let ((_%slot97615%_ _%slot97601%_)) + (##structure-instance-of? _%klass98732%_ 'class)) + (let ((_%klass98737%_ _%klass98732%_)) + (if (symbol? _%slot98733%_) + (let ((_%slot98747%_ _%slot98733%_)) (__make-class-slot-unchecked-accessor - _%klass97605%_ - _%slot97615%_)) + _%klass98737%_ + _%slot98747%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1842,7 +1828,7 @@ 'contract: 'symbol? 'value: - _%slot97601%_) + _%slot98733%_) '#!void))) (begin (raise-contract-violation-error @@ -1852,80 +1838,80 @@ 'contract: 'class-type? 'value: - _%klass97600%_) + _%klass98732%_) '#!void)))) (define __make-class-slot-unchecked-accessor - (lambda (_%klass97568%_ _%slot97569%_) - (let* ((_%klass97572%_ _%klass97568%_) - (_%slot97580%_ _%slot97569%_) - (_%field97589%_ - (let ((__tmp100361 + (lambda (_%klass98700%_ _%slot98701%_) + (let* ((_%klass98704%_ _%klass98700%_) + (_%slot98712%_ _%slot98701%_) + (_%field98721%_ + (let ((__tmp101493 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97572%_ + _%klass98704%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp100361 _%slot97580%_ '#f)))) - (if (not _%field97589%_) + (symbolic-table-ref __tmp101493 _%slot98712%_ '#f)))) + (if (not _%field98721%_) (let () (error '"unknown slot" 'class: - _%klass97572%_ + _%klass98704%_ 'slot: - _%slot97580%_) + _%slot98712%_) '#!void) - (if (__class-type-final? _%klass97572%_) + (if (__class-type-final? _%klass98704%_) (make-struct-slot-unchecked-accessor - _%klass97572%_ - _%slot97580%_ - _%field97589%_) - (if (__class-type-struct? _%klass97572%_) + _%klass98704%_ + _%slot98712%_ + _%field98721%_) + (if (__class-type-struct? _%klass98704%_) (make-struct-slot-unchecked-accessor - _%klass97572%_ - _%slot97580%_ - _%field97589%_) - (if (let ((_%strukt97595%_ - (base-struct/1 _%klass97572%_))) + _%klass98704%_ + _%slot98712%_ + _%field98721%_) + (if (let ((_%strukt98727%_ + (base-struct/1 _%klass98704%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt97595%_ + _%strukt98727%_ 'class)) - (let ((__tmp100362 - (let ((__tmp100363 + (let ((__tmp101494 + (let ((__tmp101495 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt97595%_ + _%strukt98727%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp100363)))) + (##vector-length __tmp101495)))) (declare (not safe)) - (##fx< _%field97589%_ __tmp100362)))) + (##fx< _%field98721%_ __tmp101494)))) (make-struct-slot-unchecked-accessor - _%klass97572%_ - _%slot97580%_ - _%field97589%_) + _%klass98704%_ + _%slot98712%_ + _%field98721%_) (make-class-cached-slot-unchecked-accessor - _%klass97572%_ - _%slot97580%_ - _%field97589%_)))))))) + _%klass98704%_ + _%slot98712%_ + _%field98721%_)))))))) (define make-class-slot-unchecked-mutator - (lambda (_%klass97543%_ _%slot97544%_) + (lambda (_%klass98675%_ _%slot98676%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97543%_ 'class)) - (let ((_%klass97548%_ _%klass97543%_)) - (if (symbol? _%slot97544%_) - (let ((_%slot97558%_ _%slot97544%_)) + (##structure-instance-of? _%klass98675%_ 'class)) + (let ((_%klass98680%_ _%klass98675%_)) + (if (symbol? _%slot98676%_) + (let ((_%slot98690%_ _%slot98676%_)) (__make-class-slot-unchecked-mutator - _%klass97548%_ - _%slot97558%_)) + _%klass98680%_ + _%slot98690%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1934,7 +1920,7 @@ 'contract: 'symbol? 'value: - _%slot97544%_) + _%slot98676%_) '#!void))) (begin (raise-contract-violation-error @@ -1944,221 +1930,221 @@ 'contract: 'class-type? 'value: - _%klass97543%_) + _%klass98675%_) '#!void)))) (define __make-class-slot-unchecked-mutator - (lambda (_%klass97511%_ _%slot97512%_) - (let* ((_%klass97515%_ _%klass97511%_) - (_%slot97523%_ _%slot97512%_) - (_%field97532%_ - (let ((__tmp100364 + (lambda (_%klass98643%_ _%slot98644%_) + (let* ((_%klass98647%_ _%klass98643%_) + (_%slot98655%_ _%slot98644%_) + (_%field98664%_ + (let ((__tmp101496 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97515%_ + _%klass98647%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp100364 _%slot97523%_ '#f)))) - (if (not _%field97532%_) + (symbolic-table-ref __tmp101496 _%slot98655%_ '#f)))) + (if (not _%field98664%_) (let () (error '"unknown slot" 'class: - _%klass97515%_ + _%klass98647%_ 'slot: - _%slot97523%_) + _%slot98655%_) '#!void) - (if (__class-type-final? _%klass97515%_) + (if (__class-type-final? _%klass98647%_) (make-struct-slot-unchecked-mutator - _%klass97515%_ - _%slot97523%_ - _%field97532%_) - (if (__class-type-struct? _%klass97515%_) + _%klass98647%_ + _%slot98655%_ + _%field98664%_) + (if (__class-type-struct? _%klass98647%_) (make-struct-slot-unchecked-mutator - _%klass97515%_ - _%slot97523%_ - _%field97532%_) - (if (let ((_%strukt97538%_ - (base-struct/1 _%klass97515%_))) + _%klass98647%_ + _%slot98655%_ + _%field98664%_) + (if (let ((_%strukt98670%_ + (base-struct/1 _%klass98647%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt97538%_ + _%strukt98670%_ 'class)) - (let ((__tmp100365 - (let ((__tmp100366 + (let ((__tmp101497 + (let ((__tmp101498 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt97538%_ + _%strukt98670%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp100366)))) + (##vector-length __tmp101498)))) (declare (not safe)) - (##fx< _%field97532%_ __tmp100365)))) + (##fx< _%field98664%_ __tmp101497)))) (make-struct-slot-unchecked-mutator - _%klass97515%_ - _%slot97523%_ - _%field97532%_) + _%klass98647%_ + _%slot98655%_ + _%field98664%_) (make-class-cached-slot-unchecked-mutator - _%klass97515%_ - _%slot97523%_ - _%field97532%_)))))))) + _%klass98647%_ + _%slot98655%_ + _%field98664%_)))))))) (define not-an-instance__% - (lambda (_%object97495%_ _%class97496%_ _%slot97497%_) + (lambda (_%object98627%_ _%class98628%_ _%slot98629%_) (apply error '"not an instance" 'object: - _%object97495%_ + _%object98627%_ 'class: - _%class97496%_ - (if _%slot97497%_ (cons 'slot: (cons _%slot97497%_ '())) '())))) + _%class98628%_ + (if _%slot98629%_ (cons 'slot: (cons _%slot98629%_ '())) '())))) (define not-an-instance__0 - (lambda (_%object97502%_ _%class97503%_) - (let ((_%slot97505%_ '#f)) - (not-an-instance__% _%object97502%_ _%class97503%_ _%slot97505%_)))) + (lambda (_%object98634%_ _%class98635%_) + (let ((_%slot98637%_ '#f)) + (not-an-instance__% _%object98634%_ _%class98635%_ _%slot98637%_)))) (define not-an-instance - (lambda _g100368_ - (let ((_g100367_ (let () (declare (not safe)) (##length _g100368_)))) - (cond ((let () (declare (not safe)) (##fx= _g100367_ 2)) - (apply not-an-instance__0 _g100368_)) - ((let () (declare (not safe)) (##fx= _g100367_ 3)) - (apply not-an-instance__% _g100368_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception not-an-instance - _g100368_)))))) + _g101500_)))))) (define make-final-slot-accessor - (lambda (_%klass97488%_ _%slot97489%_ _%field97490%_) - (lambda (_%obj97492%_) + (lambda (_%klass98620%_ _%slot98621%_ _%field98622%_) + (lambda (_%obj98624%_) (##direct-structure-ref - _%obj97492%_ - _%field97490%_ - _%klass97488%_ - _%slot97489%_)))) + _%obj98624%_ + _%field98622%_ + _%klass98620%_ + _%slot98621%_)))) (define make-final-slot-mutator - (lambda (_%klass97481%_ _%slot97482%_ _%field97483%_) - (lambda (_%obj97485%_ _%val97486%_) + (lambda (_%klass98613%_ _%slot98614%_ _%field98615%_) + (lambda (_%obj98617%_ _%val98618%_) (##direct-structure-set! - _%obj97485%_ - _%val97486%_ - _%field97483%_ - _%klass97481%_ - _%slot97482%_)))) + _%obj98617%_ + _%val98618%_ + _%field98615%_ + _%klass98613%_ + _%slot98614%_)))) (define make-struct-slot-accessor - (lambda (_%klass97475%_ _%slot97476%_ _%field97477%_) - (lambda (_%obj97479%_) + (lambda (_%klass98607%_ _%slot98608%_ _%field98609%_) + (lambda (_%obj98611%_) (##structure-ref - _%obj97479%_ - _%field97477%_ - _%klass97475%_ - _%slot97476%_)))) + _%obj98611%_ + _%field98609%_ + _%klass98607%_ + _%slot98608%_)))) (define make-struct-slot-mutator - (lambda (_%klass97468%_ _%slot97469%_ _%field97470%_) - (lambda (_%obj97472%_ _%val97473%_) + (lambda (_%klass98600%_ _%slot98601%_ _%field98602%_) + (lambda (_%obj98604%_ _%val98605%_) (##structure-set! - _%obj97472%_ - _%val97473%_ - _%field97470%_ - _%klass97468%_ - _%slot97469%_)))) + _%obj98604%_ + _%val98605%_ + _%field98602%_ + _%klass98600%_ + _%slot98601%_)))) (define make-struct-slot-unchecked-accessor - (lambda (_%klass97462%_ _%slot97463%_ _%field97464%_) - (lambda (_%obj97466%_) + (lambda (_%klass98594%_ _%slot98595%_ _%field98596%_) + (lambda (_%obj98598%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%obj97466%_ - _%field97464%_ - _%klass97462%_ - _%slot97463%_))))) + _%obj98598%_ + _%field98596%_ + _%klass98594%_ + _%slot98595%_))))) (define make-struct-slot-unchecked-mutator - (lambda (_%klass97455%_ _%slot97456%_ _%field97457%_) - (lambda (_%obj97459%_ _%val97460%_) + (lambda (_%klass98587%_ _%slot98588%_ _%field98589%_) + (lambda (_%obj98591%_ _%val98592%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%obj97459%_ - _%val97460%_ - _%field97457%_ - _%klass97455%_ - _%slot97456%_))))) + _%obj98591%_ + _%val98592%_ + _%field98589%_ + _%klass98587%_ + _%slot98588%_))))) (define make-struct-subclass-slot-accessor - (lambda (_%klass97449%_ _%slot97450%_ _%field97451%_) - (lambda (_%obj97453%_) - (if (class-instance? _%klass97449%_ _%obj97453%_) - (unchecked-slot-ref _%obj97453%_ _%field97451%_) + (lambda (_%klass98581%_ _%slot98582%_ _%field98583%_) + (lambda (_%obj98585%_) + (if (class-instance? _%klass98581%_ _%obj98585%_) + (unchecked-slot-ref _%obj98585%_ _%field98583%_) (not-an-instance__% - _%obj97453%_ - _%klass97449%_ - _%slot97450%_))))) + _%obj98585%_ + _%klass98581%_ + _%slot98582%_))))) (define make-struct-subclass-slot-mutator - (lambda (_%klass97442%_ _%slot97443%_ _%field97444%_) - (lambda (_%obj97446%_ _%val97447%_) - (if (class-instance? _%klass97442%_ _%obj97446%_) - (unchecked-field-set! _%obj97446%_ _%field97444%_ _%val97447%_) + (lambda (_%klass98574%_ _%slot98575%_ _%field98576%_) + (lambda (_%obj98578%_ _%val98579%_) + (if (class-instance? _%klass98574%_ _%obj98578%_) + (unchecked-field-set! _%obj98578%_ _%field98576%_ _%val98579%_) (not-an-instance__% - _%obj97446%_ - _%klass97442%_ - _%slot97443%_))))) + _%obj98578%_ + _%klass98574%_ + _%slot98575%_))))) (define make-class-cached-slot-accessor - (lambda (_%klass97433%_ _%slot97434%_ _%field97435%_) - (lambda (_%obj97437%_) - (if (let ((__tmp100369 - (let () (declare (not safe)) (##type-id _%klass97433%_)))) + (lambda (_%klass98565%_ _%slot98566%_ _%field98567%_) + (lambda (_%obj98569%_) + (if (let ((__tmp101501 + (let () (declare (not safe)) (##type-id _%klass98565%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj97437%_ __tmp100369)) - (unchecked-field-ref _%obj97437%_ _%field97435%_) - (if (class-instance? _%klass97433%_ _%obj97437%_) - (unchecked-slot-ref _%obj97437%_ _%slot97434%_) + (##structure-direct-instance-of? _%obj98569%_ __tmp101501)) + (unchecked-field-ref _%obj98569%_ _%field98567%_) + (if (class-instance? _%klass98565%_ _%obj98569%_) + (unchecked-slot-ref _%obj98569%_ _%slot98566%_) (not-an-instance__% - _%obj97437%_ - _%klass97433%_ - _%slot97434%_)))))) + _%obj98569%_ + _%klass98565%_ + _%slot98566%_)))))) (define make-class-cached-slot-mutator - (lambda (_%klass97423%_ _%slot97424%_ _%field97425%_) - (lambda (_%obj97427%_ _%val97428%_) - (if (let ((__tmp100370 - (let () (declare (not safe)) (##type-id _%klass97423%_)))) + (lambda (_%klass98555%_ _%slot98556%_ _%field98557%_) + (lambda (_%obj98559%_ _%val98560%_) + (if (let ((__tmp101502 + (let () (declare (not safe)) (##type-id _%klass98555%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj97427%_ __tmp100370)) - (unchecked-field-set! _%obj97427%_ _%field97425%_ _%val97428%_) - (if (class-instance? _%klass97423%_ _%obj97427%_) - (unchecked-slot-set! _%obj97427%_ _%slot97424%_ _%val97428%_) + (##structure-direct-instance-of? _%obj98559%_ __tmp101502)) + (unchecked-field-set! _%obj98559%_ _%field98557%_ _%val98560%_) + (if (class-instance? _%klass98555%_ _%obj98559%_) + (unchecked-slot-set! _%obj98559%_ _%slot98556%_ _%val98560%_) (not-an-instance__% - _%obj97427%_ - _%klass97423%_ - _%slot97424%_)))))) + _%obj98559%_ + _%klass98555%_ + _%slot98556%_)))))) (define make-class-cached-slot-unchecked-accessor - (lambda (_%klass97417%_ _%slot97418%_ _%field97419%_) - (lambda (_%obj97421%_) - (if (let ((__tmp100371 - (let () (declare (not safe)) (##type-id _%klass97417%_)))) + (lambda (_%klass98549%_ _%slot98550%_ _%field98551%_) + (lambda (_%obj98553%_) + (if (let ((__tmp101503 + (let () (declare (not safe)) (##type-id _%klass98549%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj97421%_ __tmp100371)) - (unchecked-field-ref _%obj97421%_ _%field97419%_) - (unchecked-slot-ref _%obj97421%_ _%slot97418%_))))) + (##structure-direct-instance-of? _%obj98553%_ __tmp101503)) + (unchecked-field-ref _%obj98553%_ _%field98551%_) + (unchecked-slot-ref _%obj98553%_ _%slot98550%_))))) (define make-class-cached-slot-unchecked-mutator - (lambda (_%klass97410%_ _%slot97411%_ _%field97412%_) - (lambda (_%obj97414%_ _%val97415%_) - (if (let ((__tmp100372 - (let () (declare (not safe)) (##type-id _%klass97410%_)))) + (lambda (_%klass98542%_ _%slot98543%_ _%field98544%_) + (lambda (_%obj98546%_ _%val98547%_) + (if (let ((__tmp101504 + (let () (declare (not safe)) (##type-id _%klass98542%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj97414%_ __tmp100372)) - (unchecked-field-set! _%obj97414%_ _%field97412%_ _%val97415%_) - (unchecked-slot-set! _%obj97414%_ _%slot97411%_ _%val97415%_))))) + (##structure-direct-instance-of? _%obj98546%_ __tmp101504)) + (unchecked-field-set! _%obj98546%_ _%field98544%_ _%val98547%_) + (unchecked-slot-set! _%obj98546%_ _%slot98543%_ _%val98547%_))))) (define class-slot-offset - (lambda (_%klass97385%_ _%slot97386%_) + (lambda (_%klass98517%_ _%slot98518%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97385%_ 'class)) - (let ((_%klass97390%_ _%klass97385%_)) - (if (let () (declare (not safe)) (symbolic? _%slot97386%_)) - (let ((_%slot97400%_ _%slot97386%_)) - (__class-slot-offset _%klass97390%_ _%slot97400%_)) + (##structure-instance-of? _%klass98517%_ 'class)) + (let ((_%klass98522%_ _%klass98517%_)) + (if (let () (declare (not safe)) (symbolic? _%slot98518%_)) + (let ((_%slot98532%_ _%slot98518%_)) + (__class-slot-offset _%klass98522%_ _%slot98532%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2167,7 +2153,7 @@ 'contract: 'symbolic? 'value: - _%slot97386%_) + _%slot98518%_) '#!void))) (begin (raise-contract-violation-error @@ -2177,30 +2163,30 @@ 'contract: 'class-type? 'value: - _%klass97385%_) + _%klass98517%_) '#!void)))) (define __class-slot-offset - (lambda (_%klass97364%_ _%slot97365%_) - (let* ((_%klass97368%_ _%klass97364%_) - (_%slot97376%_ _%slot97365%_) - (__tmp100373 + (lambda (_%klass98496%_ _%slot98497%_) + (let* ((_%klass98500%_ _%klass98496%_) + (_%slot98508%_ _%slot98497%_) + (__tmp101505 (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97368%_ '8 '#f '#f)))) + (##unchecked-structure-ref _%klass98500%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp100373 _%slot97376%_ '#f)))) + (symbolic-table-ref __tmp101505 _%slot98508%_ '#f)))) (define class-slot-ref - (lambda (_%klass97338%_ _%obj97339%_ _%slot97340%_) + (lambda (_%klass98470%_ _%obj98471%_ _%slot98472%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97338%_ 'class)) - (let ((_%klass97344%_ _%klass97338%_)) - (if (let () (declare (not safe)) (symbolic? _%slot97340%_)) - (let ((_%slot97354%_ _%slot97340%_)) + (##structure-instance-of? _%klass98470%_ 'class)) + (let ((_%klass98476%_ _%klass98470%_)) + (if (let () (declare (not safe)) (symbolic? _%slot98472%_)) + (let ((_%slot98486%_ _%slot98472%_)) (__class-slot-ref - _%klass97344%_ - _%obj97339%_ - _%slot97354%_)) + _%klass98476%_ + _%obj98471%_ + _%slot98486%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2209,7 +2195,7 @@ 'contract: 'symbolic? 'value: - _%slot97340%_) + _%slot98472%_) '#!void))) (begin (raise-contract-violation-error @@ -2219,38 +2205,38 @@ 'contract: 'class-type? 'value: - _%klass97338%_) + _%klass98470%_) '#!void)))) (define __class-slot-ref - (lambda (_%klass97314%_ _%obj97315%_ _%slot97316%_) - (let* ((_%klass97319%_ _%klass97314%_) (_%slot97327%_ _%slot97316%_)) - (if (__class-instance? _%klass97319%_ _%obj97315%_) - (let ((_%off97336%_ + (lambda (_%klass98446%_ _%obj98447%_ _%slot98448%_) + (let* ((_%klass98451%_ _%klass98446%_) (_%slot98459%_ _%slot98448%_)) + (if (__class-instance? _%klass98451%_ _%obj98447%_) + (let ((_%off98468%_ (class-slot-offset (let () (declare (not safe)) - (##structure-type _%obj97315%_)) - _%slot97327%_))) + (##structure-type _%obj98447%_)) + _%slot98459%_))) (declare (not safe)) (##unchecked-structure-ref - _%obj97315%_ - _%off97336%_ - _%klass97319%_ - _%slot97327%_)) - (not-an-instance__0 _%obj97315%_ _%klass97319%_))))) + _%obj98447%_ + _%off98468%_ + _%klass98451%_ + _%slot98459%_)) + (not-an-instance__0 _%obj98447%_ _%klass98451%_))))) (define class-slot-set! - (lambda (_%klass97287%_ _%obj97288%_ _%slot97289%_ _%val97290%_) + (lambda (_%klass98419%_ _%obj98420%_ _%slot98421%_ _%val98422%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97287%_ 'class)) - (let ((_%klass97294%_ _%klass97287%_)) - (if (let () (declare (not safe)) (symbolic? _%slot97289%_)) - (let ((_%slot97304%_ _%slot97289%_)) + (##structure-instance-of? _%klass98419%_ 'class)) + (let ((_%klass98426%_ _%klass98419%_)) + (if (let () (declare (not safe)) (symbolic? _%slot98421%_)) + (let ((_%slot98436%_ _%slot98421%_)) (__class-slot-set! - _%klass97294%_ - _%obj97288%_ - _%slot97304%_ - _%val97290%_)) + _%klass98426%_ + _%obj98420%_ + _%slot98436%_ + _%val98422%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2259,7 +2245,7 @@ 'contract: 'symbolic? 'value: - _%slot97289%_) + _%slot98421%_) '#!void))) (begin (raise-contract-violation-error @@ -2269,69 +2255,69 @@ 'contract: 'class-type? 'value: - _%klass97287%_) + _%klass98419%_) '#!void)))) (define __class-slot-set! - (lambda (_%klass97262%_ _%obj97263%_ _%slot97264%_ _%val97265%_) - (let* ((_%klass97268%_ _%klass97262%_) (_%slot97276%_ _%slot97264%_)) - (if (__class-instance? _%klass97268%_ _%obj97263%_) - (let ((_%off97285%_ + (lambda (_%klass98394%_ _%obj98395%_ _%slot98396%_ _%val98397%_) + (let* ((_%klass98400%_ _%klass98394%_) (_%slot98408%_ _%slot98396%_)) + (if (__class-instance? _%klass98400%_ _%obj98395%_) + (let ((_%off98417%_ (class-slot-offset (let () (declare (not safe)) - (##structure-type _%obj97263%_)) - _%slot97276%_))) + (##structure-type _%obj98395%_)) + _%slot98408%_))) (declare (not safe)) (##unchecked-structure-set! - _%obj97263%_ - _%val97265%_ - _%off97285%_ - _%klass97268%_ - _%slot97276%_)) - (not-an-instance__0 _%obj97263%_ _%klass97268%_))))) + _%obj98395%_ + _%val98397%_ + _%off98417%_ + _%klass98400%_ + _%slot98408%_)) + (not-an-instance__0 _%obj98395%_ _%klass98400%_))))) (define unchecked-field-ref - (lambda (_%obj97259%_ _%off97260%_) - (let ((__tmp100374 - (let () (declare (not safe)) (##structure-type _%obj97259%_)))) + (lambda (_%obj98391%_ _%off98392%_) + (let ((__tmp101506 + (let () (declare (not safe)) (##structure-type _%obj98391%_)))) (declare (not safe)) (##unchecked-structure-ref - _%obj97259%_ - _%off97260%_ - __tmp100374 + _%obj98391%_ + _%off98392%_ + __tmp101506 '#f)))) (define unchecked-field-set! - (lambda (_%obj97255%_ _%off97256%_ _%val97257%_) - (let ((__tmp100375 - (let () (declare (not safe)) (##structure-type _%obj97255%_)))) + (lambda (_%obj98387%_ _%off98388%_ _%val98389%_) + (let ((__tmp101507 + (let () (declare (not safe)) (##structure-type _%obj98387%_)))) (declare (not safe)) (##unchecked-structure-set! - _%obj97255%_ - _%val97257%_ - _%off97256%_ - __tmp100375 + _%obj98387%_ + _%val98389%_ + _%off98388%_ + __tmp101507 '#f)))) (define unchecked-slot-ref - (lambda (_%obj97252%_ _%slot97253%_) + (lambda (_%obj98384%_ _%slot98385%_) (unchecked-field-ref - _%obj97252%_ + _%obj98384%_ (__class-slot-offset - (let () (declare (not safe)) (##structure-type _%obj97252%_)) - _%slot97253%_)))) + (let () (declare (not safe)) (##structure-type _%obj98384%_)) + _%slot98385%_)))) (define unchecked-slot-set! - (lambda (_%obj97248%_ _%slot97249%_ _%val97250%_) + (lambda (_%obj98380%_ _%slot98381%_ _%val98382%_) (unchecked-field-set! - _%obj97248%_ + _%obj98380%_ (__class-slot-offset - (let () (declare (not safe)) (##structure-type _%obj97248%_)) - _%slot97249%_) - _%val97250%_))) + (let () (declare (not safe)) (##structure-type _%obj98380%_)) + _%slot98381%_) + _%val98382%_))) (define slot-ref__% - (lambda (_%obj97210%_ _%slot97211%_ _%E97212%_) - (if (symbol? _%slot97211%_) - (let ((_%slot97216%_ _%slot97211%_)) - (if (procedure? _%E97212%_) - (let ((_%E97226%_ _%E97212%_)) - (__slot-ref__% _%obj97210%_ _%slot97216%_ _%E97226%_)) + (lambda (_%obj98342%_ _%slot98343%_ _%E98344%_) + (if (symbol? _%slot98343%_) + (let ((_%slot98348%_ _%slot98343%_)) + (if (procedure? _%E98344%_) + (let ((_%E98358%_ _%E98344%_)) + (__slot-ref__% _%obj98342%_ _%slot98348%_ _%E98358%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2340,7 +2326,7 @@ 'contract: 'procedure? 'value: - _%E97212%_) + _%E98344%_) '#!void))) (begin (raise-contract-violation-error @@ -2350,63 +2336,63 @@ 'contract: 'symbol? 'value: - _%slot97211%_) + _%slot98343%_) '#!void)))) (define slot-ref__0 - (lambda (_%obj97239%_ _%slot97240%_) - (let ((_%E97242%_ __slot-error)) - (slot-ref__% _%obj97239%_ _%slot97240%_ _%E97242%_)))) + (lambda (_%obj98371%_ _%slot98372%_) + (let ((_%E98374%_ __slot-error)) + (slot-ref__% _%obj98371%_ _%slot98372%_ _%E98374%_)))) (define slot-ref - (lambda _g100377_ - (let ((_g100376_ (let () (declare (not safe)) (##length _g100377_)))) - (cond ((let () (declare (not safe)) (##fx= _g100376_ 2)) - (apply slot-ref__0 _g100377_)) - ((let () (declare (not safe)) (##fx= _g100376_ 3)) - (apply slot-ref__% _g100377_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g100377_)))))) + _g101509_)))))) (define __slot-ref__% - (lambda (_%obj97166%_ _%slot97167%_ _%E97168%_) - (let* ((_%slot97171%_ _%slot97167%_) - (_%E97179%_ _%E97168%_) - (_%klass97188%_ (class-of _%obj97166%_)) - (_%$e97191%_ - (__class-slot-offset _%klass97188%_ _%slot97171%_))) - (if _%$e97191%_ - ((lambda (_%off97194%_) - (unchecked-field-ref _%obj97166%_ _%off97194%_)) - _%$e97191%_) + (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%_) (let () (declare (not safe)) - (_%E97179%_ _%obj97166%_ _%slot97171%_)))))) + (_%E98311%_ _%obj98298%_ _%slot98303%_)))))) (define __slot-ref__0 - (lambda (_%obj97200%_ _%slot97201%_) - (let ((_%E97203%_ __slot-error)) - (__slot-ref__% _%obj97200%_ _%slot97201%_ _%E97203%_)))) + (lambda (_%obj98332%_ _%slot98333%_) + (let ((_%E98335%_ __slot-error)) + (__slot-ref__% _%obj98332%_ _%slot98333%_ _%E98335%_)))) (define __slot-ref - (lambda _g100379_ - (let ((_g100378_ (let () (declare (not safe)) (##length _g100379_)))) - (cond ((let () (declare (not safe)) (##fx= _g100378_ 2)) - (apply __slot-ref__0 _g100379_)) - ((let () (declare (not safe)) (##fx= _g100378_ 3)) - (apply __slot-ref__% _g100379_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __slot-ref - _g100379_)))))) + _g101511_)))))) (define slot-set!__% - (lambda (_%obj97124%_ _%slot97125%_ _%val97126%_ _%E97127%_) - (if (symbol? _%slot97125%_) - (let ((_%slot97131%_ _%slot97125%_)) - (if (procedure? _%E97127%_) - (let ((_%E97141%_ _%E97127%_)) + (lambda (_%obj98256%_ _%slot98257%_ _%val98258%_ _%E98259%_) + (if (symbol? _%slot98257%_) + (let ((_%slot98263%_ _%slot98257%_)) + (if (procedure? _%E98259%_) + (let ((_%E98273%_ _%E98259%_)) (__slot-set!__% - _%obj97124%_ - _%slot97131%_ - _%val97126%_ - _%E97141%_)) + _%obj98256%_ + _%slot98263%_ + _%val98258%_ + _%E98273%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2415,7 +2401,7 @@ 'contract: 'procedure? 'value: - _%E97127%_) + _%E98259%_) '#!void))) (begin (raise-contract-violation-error @@ -2425,79 +2411,79 @@ 'contract: 'symbol? 'value: - _%slot97125%_) + _%slot98257%_) '#!void)))) (define slot-set!__0 - (lambda (_%obj97154%_ _%slot97155%_ _%val97156%_) - (let ((_%E97158%_ __slot-error)) - (slot-set!__% _%obj97154%_ _%slot97155%_ _%val97156%_ _%E97158%_)))) + (lambda (_%obj98286%_ _%slot98287%_ _%val98288%_) + (let ((_%E98290%_ __slot-error)) + (slot-set!__% _%obj98286%_ _%slot98287%_ _%val98288%_ _%E98290%_)))) (define slot-set! - (lambda _g100381_ - (let ((_g100380_ (let () (declare (not safe)) (##length _g100381_)))) - (cond ((let () (declare (not safe)) (##fx= _g100380_ 3)) - (apply slot-set!__0 _g100381_)) - ((let () (declare (not safe)) (##fx= _g100380_ 4)) - (apply slot-set!__% _g100381_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g100381_)))))) + _g101513_)))))) (define __slot-set!__% - (lambda (_%obj97077%_ _%slot97078%_ _%val97079%_ _%E97080%_) - (let* ((_%slot97083%_ _%slot97078%_) - (_%E97091%_ _%E97080%_) - (_%klass97100%_ (class-of _%obj97077%_)) - (_%$e97103%_ - (__class-slot-offset _%klass97100%_ _%slot97083%_))) - (if _%$e97103%_ - ((lambda (_%off97106%_) - (unchecked-field-set! _%obj97077%_ _%off97106%_ _%val97079%_)) - _%$e97103%_) + (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%_) (let () (declare (not safe)) - (_%E97091%_ _%obj97077%_ _%slot97083%_)))))) + (_%E98223%_ _%obj98209%_ _%slot98215%_)))))) (define __slot-set!__0 - (lambda (_%obj97112%_ _%slot97113%_ _%val97114%_) - (let ((_%E97116%_ __slot-error)) + (lambda (_%obj98244%_ _%slot98245%_ _%val98246%_) + (let ((_%E98248%_ __slot-error)) (__slot-set!__% - _%obj97112%_ - _%slot97113%_ - _%val97114%_ - _%E97116%_)))) + _%obj98244%_ + _%slot98245%_ + _%val98246%_ + _%E98248%_)))) (define __slot-set! - (lambda _g100383_ - (let ((_g100382_ (let () (declare (not safe)) (##length _g100383_)))) - (cond ((let () (declare (not safe)) (##fx= _g100382_ 3)) - (apply __slot-set!__0 _g100383_)) - ((let () (declare (not safe)) (##fx= _g100382_ 4)) - (apply __slot-set!__% _g100383_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __slot-set! - _g100383_)))))) + _g101515_)))))) (define __slot-error - (lambda (_%obj97073%_ _%slot97074%_) + (lambda (_%obj98205%_ _%slot98206%_) (error '"Cannot find slot" 'object: - _%obj97073%_ + _%obj98205%_ 'slot: - _%slot97074%_))) + _%slot98206%_))) (define subclass? - (lambda (_%maybe-sub-class97048%_ _%maybe-super-class97049%_) + (lambda (_%maybe-sub-class98180%_ _%maybe-super-class98181%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%maybe-sub-class97048%_ 'class)) - (let ((_%maybe-sub-class97053%_ _%maybe-sub-class97048%_)) + (##structure-instance-of? _%maybe-sub-class98180%_ 'class)) + (let ((_%maybe-sub-class98185%_ _%maybe-sub-class98180%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%maybe-super-class97049%_ + _%maybe-super-class98181%_ 'class)) - (let ((_%maybe-super-class97063%_ - _%maybe-super-class97049%_)) + (let ((_%maybe-super-class98195%_ + _%maybe-super-class98181%_)) (__subclass? - _%maybe-sub-class97053%_ - _%maybe-super-class97063%_)) + _%maybe-sub-class98185%_ + _%maybe-super-class98195%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2506,7 +2492,7 @@ 'contract: 'class-type? 'value: - _%maybe-super-class97049%_) + _%maybe-super-class98181%_) '#!void))) (begin (raise-contract-violation-error @@ -2516,71 +2502,71 @@ 'contract: 'class-type? 'value: - _%maybe-sub-class97048%_) + _%maybe-sub-class98180%_) '#!void)))) (define __subclass? - (lambda (_%maybe-sub-class97020%_ _%maybe-super-class97021%_) - (let* ((_%maybe-sub-class97024%_ _%maybe-sub-class97020%_) - (_%maybe-super-class97032%_ _%maybe-super-class97021%_) - (_%maybe-super-class-id97041%_ + (lambda (_%maybe-sub-class98152%_ _%maybe-super-class98153%_) + (let* ((_%maybe-sub-class98156%_ _%maybe-sub-class98152%_) + (_%maybe-super-class98164%_ _%maybe-super-class98153%_) + (_%maybe-super-class-id98173%_ (let () (declare (not safe)) - (##type-id _%maybe-super-class97032%_))) - (_%$e97043%_ - (eq? _%maybe-super-class-id97041%_ + (##type-id _%maybe-super-class98164%_))) + (_%$e98175%_ + (eq? _%maybe-super-class-id98173%_ (let () (declare (not safe)) - (##type-id _%maybe-sub-class97024%_))))) - (if _%$e97043%_ - _%$e97043%_ - (let ((__tmp100385 - (lambda (_%super-class97046%_) + (##type-id _%maybe-sub-class98156%_))))) + (if _%$e98175%_ + _%$e98175%_ + (let ((__tmp101517 + (lambda (_%super-class98178%_) (eq? (let () (declare (not safe)) - (##type-id _%super-class97046%_)) - _%maybe-super-class-id97041%_))) - (__tmp100384 + (##type-id _%super-class98178%_)) + _%maybe-super-class-id98173%_))) + (__tmp101516 (let () (declare (not safe)) (##unchecked-structure-ref - _%maybe-sub-class97024%_ + _%maybe-sub-class98156%_ '6 '#f '#f)))) (declare (not safe)) - (__ormap1 __tmp100385 __tmp100384)))))) + (__ormap1 __tmp101517 __tmp101516)))))) (define object? - (lambda (_%o97017%_) - (if (let () (declare (not safe)) (##structure? _%o97017%_)) - (let ((__tmp100386 + (lambda (_%o98149%_) + (if (let () (declare (not safe)) (##structure? _%o98149%_)) + (let ((__tmp101518 (let () (declare (not safe)) - (##structure-type _%o97017%_)))) + (##structure-type _%o98149%_)))) (declare (not safe)) - (##structure-instance-of? __tmp100386 'class)) + (##structure-instance-of? __tmp101518 'class)) '#f))) (define object-type - (lambda (_%o97012%_) - (if (let () (declare (not safe)) (##structure? _%o97012%_)) - (let ((_%klass97015%_ + (lambda (_%o98144%_) + (if (let () (declare (not safe)) (##structure? _%o98144%_)) + (let ((_%klass98147%_ (let () (declare (not safe)) - (##structure-type _%o97012%_)))) + (##structure-type _%o98144%_)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97015%_ 'class)) - _%klass97015%_ + (##structure-instance-of? _%klass98147%_ 'class)) + _%klass98147%_ (begin - (error '"not an object" _%o97012%_ _%klass97015%_) + (error '"not an object" _%o98144%_ _%klass98147%_) '#!void))) - (begin (error '"not an object" _%o97012%_) '#!void)))) + (begin (error '"not an object" _%o98144%_) '#!void)))) (define direct-instance? - (lambda (_%klass96997%_ _%obj96998%_) + (lambda (_%klass98129%_ _%obj98130%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96997%_ 'class)) - (let ((_%klass97002%_ _%klass96997%_)) - (__direct-instance? _%klass97002%_ _%obj96998%_)) + (##structure-instance-of? _%klass98129%_ 'class)) + (let ((_%klass98134%_ _%klass98129%_)) + (__direct-instance? _%klass98134%_ _%obj98130%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2589,28 +2575,28 @@ 'contract: 'class-type? 'value: - _%klass96997%_) + _%klass98129%_) '#!void)))) (define __direct-instance? - (lambda (_%klass96984%_ _%obj96985%_) - (let* ((_%klass96988%_ _%klass96984%_) - (__tmp100387 - (let () (declare (not safe)) (##type-id _%klass96988%_)))) + (lambda (_%klass98116%_ _%obj98117%_) + (let* ((_%klass98120%_ _%klass98116%_) + (__tmp101519 + (let () (declare (not safe)) (##type-id _%klass98120%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj96985%_ __tmp100387)))) + (##structure-direct-instance-of? _%obj98117%_ __tmp101519)))) (define immediate-instance-of? - (lambda (_%klass96980%_ _%obj96981%_) - (if (let () (declare (not safe)) (##structure? _%obj96981%_)) - (eq? _%klass96980%_ - (let () (declare (not safe)) (##structure-type _%obj96981%_))) + (lambda (_%klass98112%_ _%obj98113%_) + (if (let () (declare (not safe)) (##structure? _%obj98113%_)) + (eq? _%klass98112%_ + (let () (declare (not safe)) (##structure-type _%obj98113%_))) '#f))) (define struct-instance? - (lambda (_%klass96965%_ _%obj96966%_) + (lambda (_%klass98097%_ _%obj98098%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96965%_ 'class)) - (let ((_%klass96970%_ _%klass96965%_)) - (__struct-instance? _%klass96970%_ _%obj96966%_)) + (##structure-instance-of? _%klass98097%_ 'class)) + (let ((_%klass98102%_ _%klass98097%_)) + (__struct-instance? _%klass98102%_ _%obj98098%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2619,22 +2605,22 @@ 'contract: 'class-type? 'value: - _%klass96965%_) + _%klass98097%_) '#!void)))) (define __struct-instance? - (lambda (_%klass96952%_ _%obj96953%_) - (let* ((_%klass96956%_ _%klass96952%_) - (__tmp100388 - (let () (declare (not safe)) (##type-id _%klass96956%_)))) + (lambda (_%klass98084%_ _%obj98085%_) + (let* ((_%klass98088%_ _%klass98084%_) + (__tmp101520 + (let () (declare (not safe)) (##type-id _%klass98088%_)))) (declare (not safe)) - (##structure-instance-of? _%obj96953%_ __tmp100388)))) + (##structure-instance-of? _%obj98085%_ __tmp101520)))) (define class-instance? - (lambda (_%klass96937%_ _%obj96938%_) + (lambda (_%klass98069%_ _%obj98070%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96937%_ 'class)) - (let ((_%klass96942%_ _%klass96937%_)) - (__class-instance? _%klass96942%_ _%obj96938%_)) + (##structure-instance-of? _%klass98069%_ 'class)) + (let ((_%klass98074%_ _%klass98069%_)) + (__class-instance? _%klass98074%_ _%obj98070%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2643,22 +2629,22 @@ 'contract: 'class-type? 'value: - _%klass96937%_) + _%klass98069%_) '#!void)))) (define __class-instance? - (lambda (_%klass96922%_ _%obj96923%_) - (let* ((_%klass96926%_ _%klass96922%_) - (_%type96935%_ (class-of _%obj96923%_))) - (__subclass? _%type96935%_ _%klass96926%_)))) + (lambda (_%klass98054%_ _%obj98055%_) + (let* ((_%klass98058%_ _%klass98054%_) + (_%type98067%_ (class-of _%obj98055%_))) + (__subclass? _%type98067%_ _%klass98058%_)))) (define make-object - (lambda (_%klass96897%_ _%k96898%_) + (lambda (_%klass98029%_ _%k98030%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96897%_ 'class)) - (let ((_%klass96902%_ _%klass96897%_)) - (if (fixnum? _%k96898%_) - (let ((_%k96912%_ _%k96898%_)) - (__make-object _%klass96902%_ _%k96912%_)) + (##structure-instance-of? _%klass98029%_ 'class)) + (let ((_%klass98034%_ _%klass98029%_)) + (if (fixnum? _%k98030%_) + (let ((_%k98044%_ _%k98030%_)) + (__make-object _%klass98034%_ _%k98044%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2667,7 +2653,7 @@ 'contract: 'fixnum? 'value: - _%k96898%_) + _%k98030%_) '#!void))) (begin (raise-contract-violation-error @@ -2677,27 +2663,27 @@ 'contract: 'class-type? 'value: - _%klass96897%_) + _%klass98029%_) '#!void)))) (define __make-object - (lambda (_%klass96874%_ _%k96875%_) - (let* ((_%klass96878%_ _%klass96874%_) (_%k96886%_ _%k96875%_)) - (if (__class-type-system? _%klass96878%_) + (lambda (_%klass98006%_ _%k98007%_) + (let* ((_%klass98010%_ _%klass98006%_) (_%k98018%_ _%k98007%_)) + (if (__class-type-system? _%klass98010%_) (begin (error '"cannot instantiate system class" 'class: - _%klass96878%_) + _%klass98010%_) '#!void) - (let ((_%obj96895%_ + (let ((_%obj98027%_ (let () (declare (not safe)) - (##make-structure _%klass96878%_ _%k96886%_)))) - (object-fill! _%obj96895%_ '#f)))))) + (##make-structure _%klass98010%_ _%k98018%_)))) + (object-fill! _%obj98027%_ '#f)))))) (define object-fill! - (lambda (_%obj96859%_ _%fill96860%_) + (lambda (_%obj97991%_ _%fill97992%_) (if '#t - (let ((_%obj96864%_ _%obj96859%_)) - (__object-fill! _%obj96864%_ _%fill96860%_)) + (let ((_%obj97996%_ _%obj97991%_)) + (__object-fill! _%obj97996%_ _%fill97992%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2706,38 +2692,38 @@ 'contract: 'true 'value: - _%obj96859%_) + _%obj97991%_) '#!void)))) (define __object-fill! - (lambda (_%obj96841%_ _%fill96842%_) - (let ((_%obj96845%_ _%obj96841%_)) - (let _%loop96854%_ ((_%i96856%_ - (let ((__tmp100389 + (lambda (_%obj97973%_ _%fill97974%_) + (let ((_%obj97977%_ _%obj97973%_)) + (let _%loop97986%_ ((_%i97988%_ + (let ((__tmp101521 (let () (declare (not safe)) - (##structure-length _%obj96845%_)))) + (##structure-length _%obj97977%_)))) (declare (not safe)) - (##fx- __tmp100389 '1)))) - (if (let () (declare (not safe)) (##fx> _%i96856%_ '0)) + (##fx- __tmp101521 '1)))) + (if (let () (declare (not safe)) (##fx> _%i97988%_ '0)) (begin (let () (declare (not safe)) (##unchecked-structure-set! - _%obj96845%_ - _%fill96842%_ - _%i96856%_ + _%obj97977%_ + _%fill97974%_ + _%i97988%_ '#f '#f)) - (_%loop96854%_ - (let () (declare (not safe)) (##fx- _%i96856%_ '1)))) - _%obj96845%_))))) + (_%loop97986%_ + (let () (declare (not safe)) (##fx- _%i97988%_ '1)))) + _%obj97977%_))))) (define new-instance - (lambda (_%klass96827%_) + (lambda (_%klass97959%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96827%_ 'class)) - (let ((_%klass96831%_ _%klass96827%_)) - (__new-instance _%klass96831%_)) + (##structure-instance-of? _%klass97959%_ 'class)) + (let ((_%klass97963%_ _%klass97959%_)) + (__new-instance _%klass97963%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2746,35 +2732,35 @@ 'contract: 'class-type? 'value: - _%klass96827%_) + _%klass97959%_) '#!void)))) (define __new-instance - (lambda (_%klass96815%_) - (let* ((_%klass96818%_ _%klass96815%_) - (__obj100304 - (let ((__tmp100390 - (let ((__tmp100391 + (lambda (_%klass97947%_) + (let* ((_%klass97950%_ _%klass97947%_) + (__obj101436 + (let ((__tmp101522 + (let ((__tmp101523 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass96818%_ + _%klass97950%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp100391)))) + (##vector-length __tmp101523)))) (declare (not safe)) - (##make-structure _%klass96818%_ __tmp100390)))) - (object-fill! __obj100304 '#f) - __obj100304))) + (##make-structure _%klass97950%_ __tmp101522)))) + (object-fill! __obj101436 '#f) + __obj101436))) (define make-instance - (lambda (_%klass96800%_ . _%args96801%_) + (lambda (_%klass97932%_ . _%args97933%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96800%_ 'class)) - (let ((_%klass96805%_ _%klass96800%_)) + (##structure-instance-of? _%klass97932%_ 'class)) + (let ((_%klass97937%_ _%klass97932%_)) (declare (not safe)) - (##apply __make-instance _%klass96805%_ _%args96801%_)) + (##apply __make-instance _%klass97937%_ _%args97933%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2783,64 +2769,64 @@ 'contract: 'class-type? 'value: - _%klass96800%_) + _%klass97932%_) '#!void)))) (define __make-instance - (lambda (_%klass96772%_ . _%args96773%_) - (let* ((_%klass96776%_ _%klass96772%_) - (_%$e96785%_ + (lambda (_%klass97904%_ . _%args97905%_) + (let* ((_%klass97908%_ _%klass97904%_) + (_%$e97917%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96776%_ '10 '#f '#f)))) - (if _%$e96785%_ - ((lambda (_%kons-id96788%_) - (let ((_%obj96790%_ (__new-instance _%klass96776%_))) + (##unchecked-structure-ref _%klass97908%_ '10 '#f '#f)))) + (if _%$e97917%_ + ((lambda (_%kons-id97920%_) + (let ((_%obj97922%_ (__new-instance _%klass97908%_))) (___constructor-init! - _%klass96776%_ - _%kons-id96788%_ - _%obj96790%_ - _%args96773%_) - _%obj96790%_)) - _%$e96785%_) - (if (__class-type-metaclass? _%klass96776%_) - (let ((_%obj96793%_ (__new-instance _%klass96776%_))) + _%klass97908%_ + _%kons-id97920%_ + _%obj97922%_ + _%args97905%_) + _%obj97922%_)) + _%$e97917%_) + (if (__class-type-metaclass? _%klass97908%_) + (let ((_%obj97925%_ (__new-instance _%klass97908%_))) (__metaclass-instance-init! - _%klass96776%_ - _%obj96793%_ - _%args96773%_) - _%obj96793%_) - (if (__class-type-struct? _%klass96776%_) - (if (let ((__tmp100393 - (__class-type-field-count _%klass96776%_)) - (__tmp100392 + _%klass97908%_ + _%obj97925%_ + _%args97905%_) + _%obj97925%_) + (if (__class-type-struct? _%klass97908%_) + (if (let ((__tmp101525 + (__class-type-field-count _%klass97908%_)) + (__tmp101524 (let () (declare (not safe)) - (##length _%args96773%_)))) + (##length _%args97905%_)))) (declare (not safe)) - (##fx= __tmp100393 __tmp100392)) - (apply ##structure _%klass96776%_ _%args96773%_) + (##fx= __tmp101525 __tmp101524)) + (apply ##structure _%klass97908%_ _%args97905%_) (let () (error '"arguments don't match object size" 'class: - _%klass96776%_ + _%klass97908%_ 'slots: - (__class-type-slot-list _%klass96776%_) + (__class-type-slot-list _%klass97908%_) 'args: - _%args96773%_) + _%args97905%_) '#!void)) - (let ((_%obj96796%_ (__new-instance _%klass96776%_))) + (let ((_%obj97928%_ (__new-instance _%klass97908%_))) (___class-instance-init! - _%klass96776%_ - _%obj96796%_ - _%args96773%_) - _%obj96796%_))))))) + _%klass97908%_ + _%obj97928%_ + _%args97905%_) + _%obj97928%_))))))) (define make-class-instance make-instance) (define struct-instance-init! - (lambda (_%obj96757%_ . _%args96758%_) + (lambda (_%obj97889%_ . _%args97890%_) (if '#t - (let ((_%obj96762%_ _%obj96757%_)) + (let ((_%obj97894%_ _%obj97889%_)) (declare (not safe)) - (##apply __struct-instance-init! _%obj96762%_ _%args96758%_)) + (##apply __struct-instance-init! _%obj97894%_ _%args97890%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2849,56 +2835,56 @@ 'contract: 'true 'value: - _%obj96757%_) + _%obj97889%_) '#!void)))) (define __struct-instance-init! - (lambda (_%obj96744%_ . _%args96745%_) - (let ((_%obj96748%_ _%obj96744%_)) - (if (let ((__tmp100395 - (let () (declare (not safe)) (##length _%args96745%_))) - (__tmp100394 + (lambda (_%obj97876%_ . _%args97877%_) + (let ((_%obj97880%_ _%obj97876%_)) + (if (let ((__tmp101527 + (let () (declare (not safe)) (##length _%args97877%_))) + (__tmp101526 (let () (declare (not safe)) - (##structure-length _%obj96748%_)))) + (##structure-length _%obj97880%_)))) (declare (not safe)) - (##fx< __tmp100395 __tmp100394)) - (___struct-instance-init! _%obj96748%_ _%args96745%_) + (##fx< __tmp101527 __tmp101526)) + (___struct-instance-init! _%obj97880%_ _%args97877%_) (error '"too many arguments for struct" 'object: - _%obj96748%_ + _%obj97880%_ 'args: - _%args96745%_)) + _%args97877%_)) '#!void))) (define ___struct-instance-init! - (lambda (_%obj96703%_ _%args96704%_) - (let _%lp96706%_ ((_%k96708%_ '1) (_%rest96709%_ _%args96704%_)) - (let* ((_%rest9671096718%_ _%rest96709%_) - (_%else9671296726%_ (lambda () _%obj96703%_)) - (_%K9671496732%_ - (lambda (_%rest96729%_ _%hd96730%_) - (unchecked-field-set! _%obj96703%_ _%k96708%_ _%hd96730%_) - (_%lp96706%_ - (let () (declare (not safe)) (##fx+ _%k96708%_ '1)) - _%rest96729%_)))) - (if (let () (declare (not safe)) (##pair? _%rest9671096718%_)) - (let ((_%hd9671596735%_ + (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%_ (let () (declare (not safe)) - (##car _%rest9671096718%_))) - (_%tl9671696737%_ + (##car _%rest9784297850%_))) + (_%tl9784897869%_ (let () (declare (not safe)) - (##cdr _%rest9671096718%_)))) - (let* ((_%hd96740%_ _%hd9671596735%_) - (_%rest96742%_ _%tl9671696737%_)) - (_%K9671496732%_ _%rest96742%_ _%hd96740%_))) - (_%else9671296726%_)))))) + (##cdr _%rest9784297850%_)))) + (let* ((_%hd97872%_ _%hd9784797867%_) + (_%rest97874%_ _%tl9784897869%_)) + (_%K9784697864%_ _%rest97874%_ _%hd97872%_))) + (_%else9784497858%_)))))) (define class-instance-init! - (lambda (_%obj96688%_ . _%args96689%_) + (lambda (_%obj97820%_ . _%args97821%_) (if '#t - (let ((_%obj96693%_ _%obj96688%_)) + (let ((_%obj97825%_ _%obj97820%_)) (declare (not safe)) - (##apply __class-instance-init! _%obj96693%_ _%args96689%_)) + (##apply __class-instance-init! _%obj97825%_ _%args97821%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2907,104 +2893,102 @@ 'contract: 'true 'value: - _%obj96688%_) + _%obj97820%_) '#!void)))) (define __class-instance-init! - (lambda (_%obj96675%_ . _%args96676%_) - (let ((_%obj96679%_ _%obj96675%_)) + (lambda (_%obj97807%_ . _%args97808%_) + (let ((_%obj97811%_ _%obj97807%_)) (___class-instance-init! - (let () (declare (not safe)) (##structure-type _%obj96679%_)) - _%obj96679%_ - _%args96676%_) + (let () (declare (not safe)) (##structure-type _%obj97811%_)) + _%obj97811%_ + _%args97808%_) '#!void))) (define ___class-instance-init! - (lambda (_%klass96617%_ _%obj96618%_ _%args96619%_) - (let _%lp96621%_ ((_%rest96623%_ _%args96619%_)) - (let* ((_%rest9662496634%_ _%rest96623%_) - (_%else9662696642%_ + (lambda (_%klass97749%_ _%obj97750%_ _%args97751%_) + (let _%lp97753%_ ((_%rest97755%_ _%args97751%_)) + (let* ((_%rest9775697766%_ _%rest97755%_) + (_%else9775897774%_ (lambda () - (if (null? _%rest96623%_) - _%obj96618%_ + (if (null? _%rest97755%_) + _%obj97750%_ (error '"unexpected class initializer arguments" 'class: - _%klass96617%_ + _%klass97749%_ 'rest: - _%rest96623%_)))) - (_%K9662896656%_ - (lambda (_%rest96645%_ _%val96646%_ _%key96647%_) - (if (keyword? _%key96647%_) - (let ((_%$e96650%_ + _%rest97755%_)))) + (_%K9776097788%_ + (lambda (_%rest97777%_ _%val97778%_ _%key97779%_) + (if (keyword? _%key97779%_) + (let ((_%$e97782%_ (__class-slot-offset - _%klass96617%_ - _%key96647%_))) - (if _%$e96650%_ - ((lambda (_%off96653%_) + _%klass97749%_ + _%key97779%_))) + (if _%$e97782%_ + ((lambda (_%off97785%_) (unchecked-field-set! - _%obj96618%_ - _%off96653%_ - _%val96646%_) - (_%lp96621%_ _%rest96645%_)) - _%$e96650%_) + _%obj97750%_ + _%off97785%_ + _%val97778%_) + (_%lp97753%_ _%rest97777%_)) + _%$e97782%_) (error '"unknown slot" 'class: - _%klass96617%_ + _%klass97749%_ 'slot: - _%key96647%_))) + _%key97779%_))) (error '"non keyword slot initializer" 'slot: - _%key96647%_))))) - (if (let () (declare (not safe)) (##pair? _%rest9662496634%_)) - (let ((_%hd9662996659%_ + _%key97779%_))))) + (if (pair? _%rest9775697766%_) + (let ((_%hd9776197791%_ (let () (declare (not safe)) - (##car _%rest9662496634%_))) - (_%tl9663096661%_ + (##car _%rest9775697766%_))) + (_%tl9776297793%_ (let () (declare (not safe)) - (##cdr _%rest9662496634%_)))) - (let ((_%key96664%_ _%hd9662996659%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl9663096661%_)) - (let ((_%hd9663196666%_ + (##cdr _%rest9775697766%_)))) + (let ((_%key97796%_ _%hd9776197791%_)) + (if (pair? _%tl9776297793%_) + (let ((_%hd9776397798%_ (let () (declare (not safe)) - (##car _%tl9663096661%_))) - (_%tl9663296668%_ + (##car _%tl9776297793%_))) + (_%tl9776497800%_ (let () (declare (not safe)) - (##cdr _%tl9663096661%_)))) - (let* ((_%val96671%_ _%hd9663196666%_) - (_%rest96673%_ _%tl9663296668%_)) - (_%K9662896656%_ - _%rest96673%_ - _%val96671%_ - _%key96664%_))) - (_%else9662696642%_)))) - (_%else9662696642%_)))))) + (##cdr _%tl9776297793%_)))) + (let* ((_%val97803%_ _%hd9776397798%_) + (_%rest97805%_ _%tl9776497800%_)) + (_%K9776097788%_ + _%rest97805%_ + _%val97803%_ + _%key97796%_))) + (_%else9775897774%_)))) + (_%else9775897774%_)))))) (define __metaclass-instance-init! - (lambda (_%klass96613%_ _%obj96614%_ _%args96615%_) + (lambda (_%klass97745%_ _%obj97746%_ _%args97747%_) (apply call-method - _%klass96613%_ + _%klass97745%_ 'instance-init! - _%obj96614%_ - _%args96615%_))) + _%obj97746%_ + _%args97747%_))) (define constructor-init! - (lambda (_%klass96576%_ _%kons-id96577%_ _%obj96578%_ . _%args96579%_) + (lambda (_%klass97708%_ _%kons-id97709%_ _%obj97710%_ . _%args97711%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96576%_ 'class)) - (let ((_%klass96583%_ _%klass96576%_)) - (if (symbol? _%kons-id96577%_) - (let ((_%kons-id96593%_ _%kons-id96577%_)) + (##structure-instance-of? _%klass97708%_ 'class)) + (let ((_%klass97715%_ _%klass97708%_)) + (if (symbol? _%kons-id97709%_) + (let ((_%kons-id97725%_ _%kons-id97709%_)) (if '#t - (let ((_%obj96603%_ _%obj96578%_)) + (let ((_%obj97735%_ _%obj97710%_)) (declare (not safe)) (##apply __constructor-init! - _%klass96583%_ - _%kons-id96593%_ - _%obj96603%_ - _%args96579%_)) + _%klass97715%_ + _%kons-id97725%_ + _%obj97735%_ + _%args97711%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3013,7 +2997,7 @@ 'contract: 'true 'value: - _%obj96578%_) + _%obj97710%_) '#!void))) (begin (raise-contract-violation-error @@ -3023,7 +3007,7 @@ 'contract: 'symbol? 'value: - _%kons-id96577%_) + _%kons-id97709%_) '#!void))) (begin (raise-contract-violation-error @@ -3033,38 +3017,38 @@ 'contract: 'class-type? 'value: - _%klass96576%_) + _%klass97708%_) '#!void)))) (define __constructor-init! - (lambda (_%klass96545%_ _%kons-id96546%_ _%obj96547%_ . _%args96548%_) - (let* ((_%klass96551%_ _%klass96545%_) - (_%kons-id96559%_ _%kons-id96546%_) - (_%obj96567%_ _%obj96547%_)) + (lambda (_%klass97677%_ _%kons-id97678%_ _%obj97679%_ . _%args97680%_) + (let* ((_%klass97683%_ _%klass97677%_) + (_%kons-id97691%_ _%kons-id97678%_) + (_%obj97699%_ _%obj97679%_)) (___constructor-init! - _%klass96551%_ - _%kons-id96559%_ - _%obj96567%_ - _%args96548%_) + _%klass97683%_ + _%kons-id97691%_ + _%obj97699%_ + _%args97680%_) '#!void))) (define ___constructor-init! - (lambda (_%klass96534%_ _%kons-id96535%_ _%obj96536%_ _%args96537%_) - (let ((_%$e96539%_ - (__find-method _%klass96534%_ _%obj96536%_ _%kons-id96535%_))) - (if _%$e96539%_ - ((lambda (_%kons96542%_) - (apply _%kons96542%_ _%obj96536%_ _%args96537%_) - _%obj96536%_) - _%$e96539%_) + (lambda (_%klass97666%_ _%kons-id97667%_ _%obj97668%_ _%args97669%_) + (let ((_%$e97671%_ + (__find-method _%klass97666%_ _%obj97668%_ _%kons-id97667%_))) + (if _%$e97671%_ + ((lambda (_%kons97674%_) + (apply _%kons97674%_ _%obj97668%_ _%args97669%_) + _%obj97668%_) + _%$e97671%_) (error '"missing constructor" 'class: - _%klass96534%_ + _%klass97666%_ 'method: - _%kons-id96535%_))))) + _%kons-id97667%_))))) (define struct-copy - (lambda (_%struct96520%_) + (lambda (_%struct97652%_) (if '#t - (let ((_%struct96524%_ _%struct96520%_)) - (__struct-copy _%struct96524%_)) + (let ((_%struct97656%_ _%struct97652%_)) + (__struct-copy _%struct97656%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3073,17 +3057,17 @@ 'contract: 'true 'value: - _%struct96520%_) + _%struct97652%_) '#!void)))) (define __struct-copy - (lambda (_%struct96508%_) - (let ((_%struct96511%_ _%struct96508%_)) + (lambda (_%struct97640%_) + (let ((_%struct97643%_ _%struct97640%_)) (declare (not safe)) - (##structure-copy _%struct96511%_)))) + (##structure-copy _%struct97643%_)))) (define struct->list - (lambda (_%obj96494%_) + (lambda (_%obj97626%_) (if '#t - (let ((_%obj96498%_ _%obj96494%_)) (__struct->list _%obj96498%_)) + (let ((_%obj97630%_ _%obj97626%_)) (__struct->list _%obj97630%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3092,17 +3076,17 @@ 'contract: 'true 'value: - _%obj96494%_) + _%obj97626%_) '#!void)))) (define __struct->list - (lambda (_%obj96482%_) - (let ((_%obj96485%_ _%obj96482%_)) + (lambda (_%obj97614%_) + (let ((_%obj97617%_ _%obj97614%_)) (declare (not safe)) - (##vector->list _%obj96485%_)))) + (##vector->list _%obj97617%_)))) (define class->list - (lambda (_%obj96468%_) + (lambda (_%obj97600%_) (if '#t - (let ((_%obj96472%_ _%obj96468%_)) (__class->list _%obj96472%_)) + (let ((_%obj97604%_ _%obj97600%_)) (__class->list _%obj97604%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3111,47 +3095,47 @@ 'contract: 'true 'value: - _%obj96468%_) + _%obj97600%_) '#!void)))) (define __class->list - (lambda (_%obj96444%_) - (let* ((_%obj96447%_ _%obj96444%_) - (_%klass96456%_ - (let () (declare (not safe)) (##structure-type _%obj96447%_))) - (_%slot-vector96458%_ + (lambda (_%obj97576%_) + (let* ((_%obj97579%_ _%obj97576%_) + (_%klass97588%_ + (let () (declare (not safe)) (##structure-type _%obj97579%_))) + (_%slot-vector97590%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96456%_ '7 '#f '#f)))) - (let _%loop96460%_ ((_%index96462%_ - (let ((__tmp100396 + (##unchecked-structure-ref _%klass97588%_ '7 '#f '#f)))) + (let _%loop97592%_ ((_%index97594%_ + (let ((__tmp101528 (let () (declare (not safe)) (##vector-length - _%slot-vector96458%_)))) + _%slot-vector97590%_)))) (declare (not safe)) - (##fx- __tmp100396 '1))) - (_%plist96463%_ '())) - (if (let () (declare (not safe)) (##fx< _%index96462%_ '1)) - (cons _%klass96456%_ _%plist96463%_) - (let ((_%slot96466%_ + (##fx- __tmp101528 '1))) + (_%plist97595%_ '())) + (if (let () (declare (not safe)) (##fx< _%index97594%_ '1)) + (cons _%klass97588%_ _%plist97595%_) + (let ((_%slot97598%_ (let () (declare (not safe)) - (##vector-ref _%slot-vector96458%_ _%index96462%_)))) - (_%loop96460%_ - (let () (declare (not safe)) (##fx- _%index96462%_ '1)) + (##vector-ref _%slot-vector97590%_ _%index97594%_)))) + (_%loop97592%_ + (let () (declare (not safe)) (##fx- _%index97594%_ '1)) (cons (let () (declare (not safe)) - (symbol->keyword _%slot96466%_)) + (symbol->keyword _%slot97598%_)) (cons (unchecked-field-ref - _%obj96447%_ - _%index96462%_) - _%plist96463%_))))))))) + _%obj97579%_ + _%index97594%_) + _%plist97595%_))))))))) (define call-method - (lambda (_%obj96428%_ _%id96429%_ . _%args96430%_) - (if (symbol? _%id96429%_) - (let ((_%id96434%_ _%id96429%_)) + (lambda (_%obj97560%_ _%id97561%_ . _%args97562%_) + (if (symbol? _%id97561%_) + (let ((_%id97566%_ _%id97561%_)) (declare (not safe)) - (##apply __call-method _%obj96428%_ _%id96434%_ _%args96430%_)) + (##apply __call-method _%obj97560%_ _%id97566%_ _%args97562%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3160,27 +3144,27 @@ 'contract: 'symbol? 'value: - _%id96429%_) + _%id97561%_) '#!void)))) (define __call-method - (lambda (_%obj96397%_ _%id96398%_ . _%args96399%_) - (let* ((_%id96402%_ _%id96398%_) - (_%$e96411%_ (__method-ref _%obj96397%_ _%id96402%_))) - (if _%$e96411%_ - ((lambda (_%method96414%_) - (let ((_%method96416%_ _%method96414%_)) - (apply _%method96416%_ _%obj96397%_ _%args96399%_))) - _%$e96411%_) + (lambda (_%obj97529%_ _%id97530%_ . _%args97531%_) + (let* ((_%id97534%_ _%id97530%_) + (_%$e97543%_ (__method-ref _%obj97529%_ _%id97534%_))) + (if _%$e97543%_ + ((lambda (_%method97546%_) + (let ((_%method97548%_ _%method97546%_)) + (apply _%method97548%_ _%obj97529%_ _%args97531%_))) + _%$e97543%_) (error '"cannot find method" 'object: - _%obj96397%_ + _%obj97529%_ 'method: - _%id96402%_))))) + _%id97534%_))))) (define method-ref - (lambda (_%obj96382%_ _%id96383%_) - (if (symbol? _%id96383%_) - (let ((_%id96387%_ _%id96383%_)) - (__method-ref _%obj96382%_ _%id96387%_)) + (lambda (_%obj97514%_ _%id97515%_) + (if (symbol? _%id97515%_) + (let ((_%id97519%_ _%id97515%_)) + (__method-ref _%obj97514%_ _%id97519%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3189,29 +3173,29 @@ 'contract: 'symbol? 'value: - _%id96383%_) + _%id97515%_) '#!void)))) (define __method-ref - (lambda (_%obj96369%_ _%id96370%_) - (let ((_%id96373%_ _%id96370%_)) - (__find-method (class-of _%obj96369%_) _%obj96369%_ _%id96373%_)))) + (lambda (_%obj97501%_ _%id97502%_) + (let ((_%id97505%_ _%id97502%_)) + (__find-method (class-of _%obj97501%_) _%obj97501%_ _%id97505%_)))) (define checked-method-ref - (lambda (_%obj96362%_ _%id96363%_) - (let ((_%$e96366%_ (method-ref _%obj96362%_ _%id96363%_))) - (if _%$e96366%_ - _%$e96366%_ + (lambda (_%obj97494%_ _%id97495%_) + (let ((_%$e97498%_ (method-ref _%obj97494%_ _%id97495%_))) + (if _%$e97498%_ + _%$e97498%_ (begin (error '"missing method" 'object: - _%obj96362%_ + _%obj97494%_ 'method: - _%id96363%_) + _%id97495%_) '#!void))))) (define bound-method-ref - (lambda (_%obj96347%_ _%id96348%_) - (if (symbol? _%id96348%_) - (let ((_%id96352%_ _%id96348%_)) - (__bound-method-ref _%obj96347%_ _%id96352%_)) + (lambda (_%obj97479%_ _%id97480%_) + (if (symbol? _%id97480%_) + (let ((_%id97484%_ _%id97480%_)) + (__bound-method-ref _%obj97479%_ _%id97484%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3220,24 +3204,24 @@ 'contract: 'symbol? 'value: - _%id96348%_) + _%id97480%_) '#!void)))) (define __bound-method-ref - (lambda (_%obj96315%_ _%id96316%_) - (let* ((_%id96319%_ _%id96316%_) - (_%$e96328%_ (__method-ref _%obj96315%_ _%id96319%_))) - (if _%$e96328%_ - ((lambda (_%method96331%_) - (let ((_%method96333%_ _%method96331%_)) - (lambda _%args96344%_ - (apply _%method96333%_ _%obj96315%_ _%args96344%_)))) - _%$e96328%_) + (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%_) '#f)))) (define checked-bound-method-ref - (lambda (_%obj96300%_ _%id96301%_) - (if (symbol? _%id96301%_) - (let ((_%id96305%_ _%id96301%_)) - (__checked-bound-method-ref _%obj96300%_ _%id96305%_)) + (lambda (_%obj97432%_ _%id97433%_) + (if (symbol? _%id97433%_) + (let ((_%id97437%_ _%id97433%_)) + (__checked-bound-method-ref _%obj97432%_ _%id97437%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3246,23 +3230,23 @@ 'contract: 'symbol? 'value: - _%id96301%_) + _%id97433%_) '#!void)))) (define __checked-bound-method-ref - (lambda (_%obj96283%_ _%id96284%_) - (let* ((_%id96287%_ _%id96284%_) - (_%method96296%_ (checked-method-ref _%obj96283%_ _%id96287%_))) - (lambda _%args96298%_ - (apply _%method96296%_ _%obj96283%_ _%args96298%_))))) + (lambda (_%obj97415%_ _%id97416%_) + (let* ((_%id97419%_ _%id97416%_) + (_%method97428%_ (checked-method-ref _%obj97415%_ _%id97419%_))) + (lambda _%args97430%_ + (apply _%method97428%_ _%obj97415%_ _%args97430%_))))) (define find-method - (lambda (_%klass96257%_ _%obj96258%_ _%id96259%_) + (lambda (_%klass97389%_ _%obj97390%_ _%id97391%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96257%_ 'class)) - (let ((_%klass96263%_ _%klass96257%_)) - (if (symbol? _%id96259%_) - (let ((_%id96273%_ _%id96259%_)) - (__find-method _%klass96263%_ _%obj96258%_ _%id96273%_)) + (##structure-instance-of? _%klass97389%_ 'class)) + (let ((_%klass97395%_ _%klass97389%_)) + (if (symbol? _%id97391%_) + (let ((_%id97405%_ _%id97391%_)) + (__find-method _%klass97395%_ _%obj97390%_ _%id97405%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3271,7 +3255,7 @@ 'contract: 'symbol? 'value: - _%id96259%_) + _%id97391%_) '#!void))) (begin (raise-contract-violation-error @@ -3281,27 +3265,27 @@ 'contract: 'class-type? 'value: - _%klass96257%_) + _%klass97389%_) '#!void)))) (define __find-method - (lambda (_%klass96230%_ _%obj96231%_ _%id96232%_) - (let* ((_%klass96235%_ _%klass96230%_) - (_%id96243%_ _%id96232%_) - (_%$e96252%_ - (__direct-method-ref _%klass96235%_ _%obj96231%_ _%id96243%_))) - (if _%$e96252%_ - _%$e96252%_ - (if (__class-type-sealed? _%klass96235%_) + (lambda (_%klass97362%_ _%obj97363%_ _%id97364%_) + (let* ((_%klass97367%_ _%klass97362%_) + (_%id97375%_ _%id97364%_) + (_%$e97384%_ + (__direct-method-ref _%klass97367%_ _%obj97363%_ _%id97375%_))) + (if _%$e97384%_ + _%$e97384%_ + (if (__class-type-sealed? _%klass97367%_) '#f (__mixin-method-ref - _%klass96235%_ - _%obj96231%_ - _%id96243%_)))))) + _%klass97367%_ + _%obj97363%_ + _%id97375%_)))))) (define mixin-find-method - (lambda (_%mixins96214%_ _%obj96215%_ _%id96216%_) - (if (symbol? _%id96216%_) - (let ((_%id96220%_ _%id96216%_)) - (__mixin-find-method _%mixins96214%_ _%obj96215%_ _%id96220%_)) + (lambda (_%mixins97346%_ _%obj97347%_ _%id97348%_) + (if (symbol? _%id97348%_) + (let ((_%id97352%_ _%id97348%_)) + (__mixin-find-method _%mixins97346%_ _%obj97347%_ _%id97352%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3310,31 +3294,31 @@ 'contract: 'symbol? 'value: - _%id96216%_) + _%id97348%_) '#!void)))) (define __mixin-find-method - (lambda (_%mixins96196%_ _%obj96197%_ _%id96198%_) - (let* ((_%id96201%_ _%id96198%_) - (__tmp100397 - (lambda (_%g9620996211%_) + (lambda (_%mixins97328%_ _%obj97329%_ _%id97330%_) + (let* ((_%id97333%_ _%id97330%_) + (__tmp101529 + (lambda (_%g9734197343%_) (direct-method-ref - _%g9620996211%_ - _%obj96197%_ - _%id96201%_)))) + _%g9734197343%_ + _%obj97329%_ + _%id97333%_)))) (declare (not safe)) - (__ormap1 __tmp100397 _%mixins96196%_)))) + (__ormap1 __tmp101529 _%mixins97328%_)))) (define direct-method-ref - (lambda (_%klass96170%_ _%obj96171%_ _%id96172%_) + (lambda (_%klass97302%_ _%obj97303%_ _%id97304%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96170%_ 'class)) - (let ((_%klass96176%_ _%klass96170%_)) - (if (symbol? _%id96172%_) - (let ((_%id96186%_ _%id96172%_)) + (##structure-instance-of? _%klass97302%_ 'class)) + (let ((_%klass97308%_ _%klass97302%_)) + (if (symbol? _%id97304%_) + (let ((_%id97318%_ _%id97304%_)) (__direct-method-ref - _%klass96176%_ - _%obj96171%_ - _%id96186%_)) + _%klass97308%_ + _%obj97303%_ + _%id97318%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3343,7 +3327,7 @@ 'contract: 'symbol? 'value: - _%id96172%_) + _%id97304%_) '#!void))) (begin (raise-contract-violation-error @@ -3353,98 +3337,98 @@ 'contract: 'class-type? 'value: - _%klass96170%_) + _%klass97302%_) '#!void)))) (define __direct-method-ref - (lambda (_%klass96124%_ _%obj96125%_ _%id96126%_) - (let* ((_%klass96129%_ _%klass96124%_) (_%id96137%_ _%id96126%_)) - (letrec ((_%metaclass-resolve-method96146%_ + (lambda (_%klass97256%_ _%obj97257%_ _%id97258%_) + (let* ((_%klass97261%_ _%klass97256%_) (_%id97269%_ _%id97258%_)) + (letrec ((_%metaclass-resolve-method97278%_ (lambda () - (let ((__method100305 - (__method-ref _%klass96129%_ 'direct-method-ref))) - (if __method100305 + (let ((__method101437 + (__method-ref _%klass97261%_ 'direct-method-ref))) + (if __method101437 (let () (declare (not safe)) - (__method100305 - _%klass96129%_ - _%obj96125%_ - _%id96137%_)) + (__method101437 + _%klass97261%_ + _%obj97257%_ + _%id97269%_)) (begin (error '"Missing method" - _%klass96129%_ + _%klass97261%_ 'direct-method-ref) '#!void))))) - (_%metaclass-resolve-method!96147%_ + (_%metaclass-resolve-method!97279%_ (lambda () - (let ((_%method96167%_ - (_%metaclass-resolve-method96146%_))) - (let ((__tmp100399 + (let ((_%method97299%_ + (_%metaclass-resolve-method97278%_))) + (let ((__tmp101531 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass96129%_ + _%klass97261%_ '11 '#f '#f))) - (__tmp100398 - (if _%method96167%_ 'resolved 'unknown))) + (__tmp101530 + (if _%method97299%_ 'resolved 'unknown))) (declare (not safe)) (symbolic-table-set! - __tmp100399 - _%id96137%_ - __tmp100398)) - _%method96167%_)))) - (let ((_%$e96149%_ + __tmp101531 + _%id97269%_ + __tmp101530)) + _%method97299%_)))) + (let ((_%$e97281%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96129%_ '11 '#f '#f)))) - (if _%$e96149%_ - ((lambda (_%ht96152%_) - (let ((_%method96154%_ + (##unchecked-structure-ref _%klass97261%_ '11 '#f '#f)))) + (if _%$e97281%_ + ((lambda (_%ht97284%_) + (let ((_%method97286%_ (let () (declare (not safe)) (symbolic-table-ref - _%ht96152%_ - _%id96137%_ + _%ht97284%_ + _%id97269%_ '#f)))) - (if (procedure? _%method96154%_) - _%method96154%_ - (if (__class-type-metaclass? _%klass96129%_) - (let ((_%$e96158%_ _%method96154%_)) - (if (eq? 'resolved _%$e96158%_) - (_%metaclass-resolve-method96146%_) - (if (eq? 'unknown _%$e96158%_) + (if (procedure? _%method97286%_) + _%method97286%_ + (if (__class-type-metaclass? _%klass97261%_) + (let ((_%$e97290%_ _%method97286%_)) + (if (eq? 'resolved _%$e97290%_) + (_%metaclass-resolve-method97278%_) + (if (eq? 'unknown _%$e97290%_) '#f - (_%metaclass-resolve-method!96147%_)))) + (_%metaclass-resolve-method!97279%_)))) '#f)))) - _%$e96149%_) - (if (__class-type-metaclass? _%klass96129%_) - (let ((_%tab96163%_ + _%$e97281%_) + (if (__class-type-metaclass? _%klass97261%_) + (let ((_%tab97295%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass96129%_ - _%tab96163%_ + _%klass97261%_ + _%tab97295%_ '11 '#f '#f)) - (_%metaclass-resolve-method!96147%_)) + (_%metaclass-resolve-method!97279%_)) '#f))))))) (define mixin-method-ref - (lambda (_%klass96098%_ _%obj96099%_ _%id96100%_) + (lambda (_%klass97230%_ _%obj97231%_ _%id97232%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96098%_ 'class)) - (let ((_%klass96104%_ _%klass96098%_)) - (if (symbol? _%id96100%_) - (let ((_%id96114%_ _%id96100%_)) + (##structure-instance-of? _%klass97230%_ 'class)) + (let ((_%klass97236%_ _%klass97230%_)) + (if (symbol? _%id97232%_) + (let ((_%id97246%_ _%id97232%_)) (__mixin-method-ref - _%klass96104%_ - _%obj96099%_ - _%id96114%_)) + _%klass97236%_ + _%obj97231%_ + _%id97246%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3453,7 +3437,7 @@ 'contract: 'symbol? 'value: - _%id96100%_) + _%id97232%_) '#!void))) (begin (raise-contract-violation-error @@ -3463,28 +3447,28 @@ 'contract: 'class-type? 'value: - _%klass96098%_) + _%klass97230%_) '#!void)))) (define __mixin-method-ref - (lambda (_%klass96076%_ _%obj96077%_ _%id96078%_) - (let* ((_%klass96081%_ _%klass96076%_) (_%id96089%_ _%id96078%_)) + (lambda (_%klass97208%_ _%obj97209%_ _%id97210%_) + (let* ((_%klass97213%_ _%klass97208%_) (_%id97221%_ _%id97210%_)) (__mixin-find-method (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96081%_ '6 '#f '#f)) - _%obj96077%_ - _%id96089%_)))) + (##unchecked-structure-ref _%klass97213%_ '6 '#f '#f)) + _%obj97209%_ + _%id97221%_)))) (define bind-method!__% - (lambda (_%klass96035%_ _%id96036%_ _%proc96037%_ _%rebind?96038%_) - (if (symbol? _%id96036%_) - (let ((_%id96042%_ _%id96036%_)) - (if (procedure? _%proc96037%_) - (let ((_%proc96052%_ _%proc96037%_)) + (lambda (_%klass97167%_ _%id97168%_ _%proc97169%_ _%rebind?97170%_) + (if (symbol? _%id97168%_) + (let ((_%id97174%_ _%id97168%_)) + (if (procedure? _%proc97169%_) + (let ((_%proc97184%_ _%proc97169%_)) (__bind-method!__% - _%klass96035%_ - _%id96042%_ - _%proc96052%_ - _%rebind?96038%_)) + _%klass97167%_ + _%id97174%_ + _%proc97184%_ + _%rebind?97170%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3493,7 +3477,7 @@ 'contract: 'procedure? 'value: - _%proc96037%_) + _%proc97169%_) '#!void))) (begin (raise-contract-violation-error @@ -3503,1071 +3487,1071 @@ 'contract: 'symbol? 'value: - _%id96036%_) + _%id97168%_) '#!void)))) (define bind-method!__0 - (lambda (_%klass96065%_ _%id96066%_ _%proc96067%_) - (let ((_%rebind?96069%_ '#f)) + (lambda (_%klass97197%_ _%id97198%_ _%proc97199%_) + (let ((_%rebind?97201%_ '#f)) (bind-method!__% - _%klass96065%_ - _%id96066%_ - _%proc96067%_ - _%rebind?96069%_)))) + _%klass97197%_ + _%id97198%_ + _%proc97199%_ + _%rebind?97201%_)))) (define bind-method! - (lambda _g100401_ - (let ((_g100400_ (let () (declare (not safe)) (##length _g100401_)))) - (cond ((let () (declare (not safe)) (##fx= _g100400_ 3)) - (apply bind-method!__0 _g100401_)) - ((let () (declare (not safe)) (##fx= _g100400_ 4)) - (apply bind-method!__% _g100401_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g100401_)))))) + _g101533_)))))) (define __bind-method!__% - (lambda (_%klass95986%_ _%id95987%_ _%proc95988%_ _%rebind?95989%_) - (let* ((_%id95992%_ _%id95987%_) (_%proc96000%_ _%proc95988%_)) - (letrec ((_%bind!96009%_ - (lambda (_%ht96018%_) - (if (and (not _%rebind?95989%_) + (lambda (_%klass97118%_ _%id97119%_ _%proc97120%_ _%rebind?97121%_) + (let* ((_%id97124%_ _%id97119%_) (_%proc97132%_ _%proc97120%_)) + (letrec ((_%bind!97141%_ + (lambda (_%ht97150%_) + (if (and (not _%rebind?97121%_) (let () (declare (not safe)) (symbolic-table-ref - _%ht96018%_ - _%id95992%_ + _%ht97150%_ + _%id97124%_ '#f))) (error '"method already bound" 'class: - _%klass95986%_ + _%klass97118%_ 'method: - _%id95992%_) + _%id97124%_) (begin (let () (declare (not safe)) (symbolic-table-set! - _%ht96018%_ - _%id95992%_ - _%proc96000%_)) + _%ht97150%_ + _%id97124%_ + _%proc97132%_)) '#!void))))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass95986%_ 'class)) - (let ((_%ht96012%_ + (##structure-instance-of? _%klass97118%_ 'class)) + (let ((_%ht97144%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass95986%_ + _%klass97118%_ '11 '#f '#f)))) - (if _%ht96012%_ - (_%bind!96009%_ _%ht96012%_) - (let ((_%ht96014%_ + (if _%ht97144%_ + (_%bind!97141%_ _%ht97144%_) + (let ((_%ht97146%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass95986%_ - _%ht96014%_ + _%klass97118%_ + _%ht97146%_ '11 '#f '#f)) - (_%bind!96009%_ _%ht96014%_)))) - (if (let () (declare (not safe)) (##type? _%klass95986%_)) + (_%bind!97141%_ _%ht97146%_)))) + (if (let () (declare (not safe)) (##type? _%klass97118%_)) (__bind-method!__% - (__shadow-class _%klass95986%_) - _%id95992%_ - _%proc96000%_ - _%rebind?95989%_) + (__shadow-class _%klass97118%_) + _%id97124%_ + _%proc97132%_ + _%rebind?97121%_) (error '"bad class; expected class or builtin type" - _%klass95986%_))))))) + _%klass97118%_))))))) (define __bind-method!__0 - (lambda (_%klass96023%_ _%id96024%_ _%proc96025%_) - (let ((_%rebind?96027%_ '#f)) + (lambda (_%klass97155%_ _%id97156%_ _%proc97157%_) + (let ((_%rebind?97159%_ '#f)) (__bind-method!__% - _%klass96023%_ - _%id96024%_ - _%proc96025%_ - _%rebind?96027%_)))) + _%klass97155%_ + _%id97156%_ + _%proc97157%_ + _%rebind?97159%_)))) (define __bind-method! - (lambda _g100403_ - (let ((_g100402_ (let () (declare (not safe)) (##length _g100403_)))) - (cond ((let () (declare (not safe)) (##fx= _g100402_ 3)) - (apply __bind-method!__0 _g100403_)) - ((let () (declare (not safe)) (##fx= _g100402_ 4)) - (apply __bind-method!__% _g100403_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __bind-method! - _g100403_)))))) + _g101535_)))))) (define make-method-specializer-table__% - (lambda (_%size-hint95966%_ _%seed95968%_) + (lambda (_%size-hint97098%_ _%seed97100%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint95966%_ + _%size-hint97098%_ procedure-hash eq? - _%seed95968%_)))) + _%seed97100%_)))) (define make-method-specializer-table__0 (lambda () - (let* ((_%size-hint95974%_ '#f) (_%seed95976%_ '0)) + (let* ((_%size-hint97106%_ '#f) (_%seed97108%_ '0)) (make-method-specializer-table__% - _%size-hint95974%_ - _%seed95976%_)))) + _%size-hint97106%_ + _%seed97108%_)))) (define make-method-specializer-table__1 - (lambda (_%size-hint95978%_) - (let ((_%seed95980%_ '0)) + (lambda (_%size-hint97110%_) + (let ((_%seed97112%_ '0)) (make-method-specializer-table__% - _%size-hint95978%_ - _%seed95980%_)))) + _%size-hint97110%_ + _%seed97112%_)))) (define make-method-specializer-table - (lambda _g100405_ - (let ((_g100404_ (let () (declare (not safe)) (##length _g100405_)))) - (cond ((let () (declare (not safe)) (##fx= _g100404_ 0)) - (apply make-method-specializer-table__0 _g100405_)) - ((let () (declare (not safe)) (##fx= _g100404_ 1)) - (apply make-method-specializer-table__1 _g100405_)) - ((let () (declare (not safe)) (##fx= _g100404_ 2)) - (apply make-method-specializer-table__% _g100405_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-method-specializer-table - _g100405_)))))) + _g101537_)))))) (define method-specializer-table-ref - (lambda (_%tab95919%_ _%key95920%_ _%default95921%_) - (let ((_%table95923%_ - (let () (declare (not safe)) (&raw-table-table _%tab95919%_))) - (_%seed95924%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95919%_)))) - (let* ((_%h95926%_ + (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%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key95920%_)) - _%seed95924%_)) - (_%size95929%_ (vector-length _%table95923%_)) - (_%entries95932%_ + (procedure-hash _%key97052%_)) + _%seed97056%_)) + (_%size97061%_ (vector-length _%table97055%_)) + (_%entries97064%_ (let () (declare (not safe)) - (##fxquotient _%size95929%_ '2))) - (_%start95935%_ - (let ((__tmp100406 + (##fxquotient _%size97061%_ '2))) + (_%start97067%_ + (let ((__tmp101538 (let () (declare (not safe)) - (##fxmodulo _%h95926%_ _%entries95932%_)))) + (##fxmodulo _%h97058%_ _%entries97064%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100406 '1)))) - (let _%loop95939%_ ((_%probe95942%_ _%start95935%_) - (_%i95944%_ '1) - (_%deleted95946%_ '#f)) - (let ((_%k95949%_ (vector-ref _%table95923%_ _%probe95942%_))) - (if (eq? _%k95949%_ (macro-unused-obj)) - _%default95921%_ - (if (eq? _%k95949%_ (macro-deleted-obj)) - (_%loop95939%_ - (let ((_%next-probe95954%_ - (fx+ _%start95935%_ - _%i95944%_ - (fx* _%i95944%_ _%i95944%_)))) + (##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%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95954%_ _%size95929%_)) - (let () (declare (not safe)) (##fx+ _%i95944%_ '1)) - (let ((_%$e95957%_ _%deleted95946%_)) - (if _%$e95957%_ _%$e95957%_ _%probe95942%_))) - (if (eq? _%key95920%_ _%k95949%_) + (##fxmodulo _%next-probe97086%_ _%size97061%_)) + (let () (declare (not safe)) (##fx+ _%i97076%_ '1)) + (let ((_%$e97089%_ _%deleted97078%_)) + (if _%$e97089%_ _%$e97089%_ _%probe97074%_))) + (if (eq? _%key97052%_ _%k97081%_) (vector-ref - _%table95923%_ + _%table97055%_ (let () (declare (not safe)) - (##fx+ _%probe95942%_ '1))) - (_%loop95939%_ - (let ((_%next-probe95962%_ - (fx+ _%start95935%_ - _%i95944%_ - (fx* _%i95944%_ _%i95944%_)))) + (##fx+ _%probe97074%_ '1))) + (_%loop97071%_ + (let ((_%next-probe97094%_ + (fx+ _%start97067%_ + _%i97076%_ + (fx* _%i97076%_ _%i97076%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95962%_ _%size95929%_)) + (##fxmodulo _%next-probe97094%_ _%size97061%_)) (let () (declare (not safe)) - (##fx+ _%i95944%_ '1)) - _%deleted95946%_)))))))))) + (##fx+ _%i97076%_ '1)) + _%deleted97078%_)))))))))) (define method-specializer-table-set! - (lambda (_%tab95915%_ _%key95916%_ _%value95917%_) - (if (let ((__tmp100409 + (lambda (_%tab97047%_ _%key97048%_ _%value97049%_) + (if (let ((__tmp101541 (let () (declare (not safe)) - (&raw-table-free _%tab95915%_))) - (__tmp100407 - (let ((__tmp100408 + (&raw-table-free _%tab97047%_))) + (__tmp101539 + (let ((__tmp101540 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab95915%_))))) + (&raw-table-table _%tab97047%_))))) (declare (not safe)) - (##fxquotient __tmp100408 '4)))) + (##fxquotient __tmp101540 '4)))) (declare (not safe)) - (##fx< __tmp100409 __tmp100407)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab95915%_)) + (##fx< __tmp101541 __tmp101539)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab97047%_)) '#!void) (__method-specializer-table-set! - _%tab95915%_ - _%key95916%_ - _%value95917%_))) + _%tab97047%_ + _%key97048%_ + _%value97049%_))) (define __method-specializer-table-set! - (lambda (_%tab95866%_ _%key95867%_ _%value95868%_) - (let ((_%table95871%_ - (let () (declare (not safe)) (&raw-table-table _%tab95866%_))) - (_%seed95872%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95866%_)))) - (let* ((_%h95874%_ + (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%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key95867%_)) - _%seed95872%_)) - (_%size95877%_ (vector-length _%table95871%_)) - (_%entries95880%_ + (procedure-hash _%key96999%_)) + _%seed97004%_)) + (_%size97009%_ (vector-length _%table97003%_)) + (_%entries97012%_ (let () (declare (not safe)) - (##fxquotient _%size95877%_ '2))) - (_%start95883%_ - (let ((__tmp100410 + (##fxquotient _%size97009%_ '2))) + (_%start97015%_ + (let ((__tmp101542 (let () (declare (not safe)) - (##fxmodulo _%h95874%_ _%entries95880%_)))) + (##fxmodulo _%h97006%_ _%entries97012%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100410 '1)))) - (let _%loop95887%_ ((_%probe95890%_ _%start95883%_) - (_%i95892%_ '1) - (_%deleted95894%_ '#f)) - (let ((_%k95897%_ (vector-ref _%table95871%_ _%probe95890%_))) - (if (eq? _%k95897%_ (macro-unused-obj)) - (if _%deleted95894%_ + (##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%_ (begin (vector-set! - _%table95871%_ - _%deleted95894%_ - _%key95867%_) + _%table97003%_ + _%deleted97026%_ + _%key96999%_) (vector-set! - _%table95871%_ + _%table97003%_ (let () (declare (not safe)) - (##fx+ _%deleted95894%_ '1)) - _%value95868%_) + (##fx+ _%deleted97026%_ '1)) + _%value97000%_) ((lambda () - (let ((__tmp100411 - (let ((__tmp100412 + (let ((__tmp101543 + (let ((__tmp101544 (let () (declare (not safe)) - (&raw-table-count _%tab95866%_)))) + (&raw-table-count _%tab96998%_)))) (declare (not safe)) - (##fx+ __tmp100412 '1)))) + (##fx+ __tmp101544 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95866%_ - __tmp100411))))) + _%tab96998%_ + __tmp101543))))) (begin (vector-set! - _%table95871%_ - _%probe95890%_ - _%key95867%_) + _%table97003%_ + _%probe97022%_ + _%key96999%_) (vector-set! - _%table95871%_ + _%table97003%_ (let () (declare (not safe)) - (##fx+ _%probe95890%_ '1)) - _%value95868%_) + (##fx+ _%probe97022%_ '1)) + _%value97000%_) ((lambda () - (let ((__tmp100413 - (let ((__tmp100414 + (let ((__tmp101545 + (let ((__tmp101546 (let () (declare (not safe)) - (&raw-table-free _%tab95866%_)))) + (&raw-table-free _%tab96998%_)))) (declare (not safe)) - (##fx- __tmp100414 '1)))) + (##fx- __tmp101546 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab95866%_ __tmp100413)) - (let ((__tmp100415 - (let ((__tmp100416 + (&raw-table-free-set! _%tab96998%_ __tmp101545)) + (let ((__tmp101547 + (let ((__tmp101548 (let () (declare (not safe)) - (&raw-table-count _%tab95866%_)))) + (&raw-table-count _%tab96998%_)))) (declare (not safe)) - (##fx+ __tmp100416 '1)))) + (##fx+ __tmp101548 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95866%_ - __tmp100415)))))) - (if (eq? _%k95897%_ (macro-deleted-obj)) - (_%loop95887%_ - (let ((_%next-probe95904%_ - (fx+ _%start95883%_ - _%i95892%_ - (fx* _%i95892%_ _%i95892%_)))) + _%tab96998%_ + __tmp101547)))))) + (if (eq? _%k97029%_ (macro-deleted-obj)) + (_%loop97019%_ + (let ((_%next-probe97036%_ + (fx+ _%start97015%_ + _%i97024%_ + (fx* _%i97024%_ _%i97024%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95904%_ _%size95877%_)) - (let () (declare (not safe)) (##fx+ _%i95892%_ '1)) - (let ((_%$e95907%_ _%deleted95894%_)) - (if _%$e95907%_ _%$e95907%_ _%probe95890%_))) - (if (eq? _%key95867%_ _%k95897%_) + (##fxmodulo _%next-probe97036%_ _%size97009%_)) + (let () (declare (not safe)) (##fx+ _%i97024%_ '1)) + (let ((_%$e97039%_ _%deleted97026%_)) + (if _%$e97039%_ _%$e97039%_ _%probe97022%_))) + (if (eq? _%key96999%_ _%k97029%_) (let () (vector-set! - _%table95871%_ - _%probe95890%_ - _%key95867%_) + _%table97003%_ + _%probe97022%_ + _%key96999%_) (vector-set! - _%table95871%_ + _%table97003%_ (let () (declare (not safe)) - (##fx+ _%probe95890%_ '1)) - _%value95868%_)) - (_%loop95887%_ - (let ((_%next-probe95912%_ - (fx+ _%start95883%_ - _%i95892%_ - (fx* _%i95892%_ _%i95892%_)))) + (##fx+ _%probe97022%_ '1)) + _%value97000%_)) + (_%loop97019%_ + (let ((_%next-probe97044%_ + (fx+ _%start97015%_ + _%i97024%_ + (fx* _%i97024%_ _%i97024%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95912%_ _%size95877%_)) + (##fxmodulo _%next-probe97044%_ _%size97009%_)) (let () (declare (not safe)) - (##fx+ _%i95892%_ '1)) - _%deleted95894%_)))))))))) + (##fx+ _%i97024%_ '1)) + _%deleted97026%_)))))))))) (define method-specializer-table-update! - (lambda (_%tab95861%_ - _%key95862%_ - _%method-specializer-table-update!95863%_ - _%default95864%_) - (if (let ((__tmp100419 + (lambda (_%tab96993%_ + _%key96994%_ + _%method-specializer-table-update!96995%_ + _%default96996%_) + (if (let ((__tmp101551 (let () (declare (not safe)) - (&raw-table-free _%tab95861%_))) - (__tmp100417 - (let ((__tmp100418 + (&raw-table-free _%tab96993%_))) + (__tmp101549 + (let ((__tmp101550 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab95861%_))))) + (&raw-table-table _%tab96993%_))))) (declare (not safe)) - (##fxquotient __tmp100418 '4)))) + (##fxquotient __tmp101550 '4)))) (declare (not safe)) - (##fx< __tmp100419 __tmp100417)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab95861%_)) + (##fx< __tmp101551 __tmp101549)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab96993%_)) '#!void) (__method-specializer-table-update! - _%tab95861%_ - _%key95862%_ - _%method-specializer-table-update!95863%_ - _%default95864%_))) + _%tab96993%_ + _%key96994%_ + _%method-specializer-table-update!96995%_ + _%default96996%_))) (define __method-specializer-table-update! - (lambda (_%tab95811%_ - _%key95812%_ - _%method-specializer-table-update!95813%_ - _%default95814%_) - (let ((_%table95817%_ - (let () (declare (not safe)) (&raw-table-table _%tab95811%_))) - (_%seed95818%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95811%_)))) - (let* ((_%h95820%_ + (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%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key95812%_)) - _%seed95818%_)) - (_%size95823%_ (vector-length _%table95817%_)) - (_%entries95826%_ + (procedure-hash _%key96944%_)) + _%seed96950%_)) + (_%size96955%_ (vector-length _%table96949%_)) + (_%entries96958%_ (let () (declare (not safe)) - (##fxquotient _%size95823%_ '2))) - (_%start95829%_ - (let ((__tmp100420 + (##fxquotient _%size96955%_ '2))) + (_%start96961%_ + (let ((__tmp101552 (let () (declare (not safe)) - (##fxmodulo _%h95820%_ _%entries95826%_)))) + (##fxmodulo _%h96952%_ _%entries96958%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100420 '1)))) - (let _%loop95833%_ ((_%probe95836%_ _%start95829%_) - (_%i95838%_ '1) - (_%deleted95840%_ '#f)) - (let ((_%k95843%_ (vector-ref _%table95817%_ _%probe95836%_))) - (if (eq? _%k95843%_ (macro-unused-obj)) - (if _%deleted95840%_ + (##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%_ (begin (vector-set! - _%table95817%_ - _%deleted95840%_ - _%key95812%_) + _%table96949%_ + _%deleted96972%_ + _%key96944%_) (vector-set! - _%table95817%_ + _%table96949%_ (let () (declare (not safe)) - (##fx+ _%deleted95840%_ '1)) - (_%method-specializer-table-update!95813%_ - _%default95814%_)) + (##fx+ _%deleted96972%_ '1)) + (_%method-specializer-table-update!96945%_ + _%default96946%_)) ((lambda () - (let ((__tmp100421 - (let ((__tmp100422 + (let ((__tmp101553 + (let ((__tmp101554 (let () (declare (not safe)) - (&raw-table-count _%tab95811%_)))) + (&raw-table-count _%tab96943%_)))) (declare (not safe)) - (##fx+ __tmp100422 '1)))) + (##fx+ __tmp101554 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95811%_ - __tmp100421))))) + _%tab96943%_ + __tmp101553))))) (begin (vector-set! - _%table95817%_ - _%probe95836%_ - _%key95812%_) + _%table96949%_ + _%probe96968%_ + _%key96944%_) (vector-set! - _%table95817%_ + _%table96949%_ (let () (declare (not safe)) - (##fx+ _%probe95836%_ '1)) - (_%method-specializer-table-update!95813%_ - _%default95814%_)) + (##fx+ _%probe96968%_ '1)) + (_%method-specializer-table-update!96945%_ + _%default96946%_)) ((lambda () - (let ((__tmp100423 - (let ((__tmp100424 + (let ((__tmp101555 + (let ((__tmp101556 (let () (declare (not safe)) - (&raw-table-free _%tab95811%_)))) + (&raw-table-free _%tab96943%_)))) (declare (not safe)) - (##fx- __tmp100424 '1)))) + (##fx- __tmp101556 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab95811%_ __tmp100423)) - (let ((__tmp100425 - (let ((__tmp100426 + (&raw-table-free-set! _%tab96943%_ __tmp101555)) + (let ((__tmp101557 + (let ((__tmp101558 (let () (declare (not safe)) - (&raw-table-count _%tab95811%_)))) + (&raw-table-count _%tab96943%_)))) (declare (not safe)) - (##fx+ __tmp100426 '1)))) + (##fx+ __tmp101558 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95811%_ - __tmp100425)))))) - (if (eq? _%k95843%_ (macro-deleted-obj)) - (_%loop95833%_ - (let ((_%next-probe95850%_ - (fx+ _%start95829%_ - _%i95838%_ - (fx* _%i95838%_ _%i95838%_)))) + _%tab96943%_ + __tmp101557)))))) + (if (eq? _%k96975%_ (macro-deleted-obj)) + (_%loop96965%_ + (let ((_%next-probe96982%_ + (fx+ _%start96961%_ + _%i96970%_ + (fx* _%i96970%_ _%i96970%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95850%_ _%size95823%_)) - (let () (declare (not safe)) (##fx+ _%i95838%_ '1)) - (let ((_%$e95853%_ _%deleted95840%_)) - (if _%$e95853%_ _%$e95853%_ _%probe95836%_))) - (if (eq? _%key95812%_ _%k95843%_) + (##fxmodulo _%next-probe96982%_ _%size96955%_)) + (let () (declare (not safe)) (##fx+ _%i96970%_ '1)) + (let ((_%$e96985%_ _%deleted96972%_)) + (if _%$e96985%_ _%$e96985%_ _%probe96968%_))) + (if (eq? _%key96944%_ _%k96975%_) (let () (vector-set! - _%table95817%_ - _%probe95836%_ - _%key95812%_) + _%table96949%_ + _%probe96968%_ + _%key96944%_) (vector-set! - _%table95817%_ + _%table96949%_ (let () (declare (not safe)) - (##fx+ _%probe95836%_ '1)) - (_%method-specializer-table-update!95813%_ + (##fx+ _%probe96968%_ '1)) + (_%method-specializer-table-update!96945%_ (vector-ref - _%table95817%_ + _%table96949%_ (let () (declare (not safe)) - (##fx+ _%probe95836%_ '1)))))) - (_%loop95833%_ - (let ((_%next-probe95858%_ - (fx+ _%start95829%_ - _%i95838%_ - (fx* _%i95838%_ _%i95838%_)))) + (##fx+ _%probe96968%_ '1)))))) + (_%loop96965%_ + (let ((_%next-probe96990%_ + (fx+ _%start96961%_ + _%i96970%_ + (fx* _%i96970%_ _%i96970%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95858%_ _%size95823%_)) + (##fxmodulo _%next-probe96990%_ _%size96955%_)) (let () (declare (not safe)) - (##fx+ _%i95838%_ '1)) - _%deleted95840%_)))))))))) + (##fx+ _%i96970%_ '1)) + _%deleted96972%_)))))))))) (define method-specializer-table-delete! - (lambda (_%tab95766%_ _%key95768%_) - (let ((_%table95771%_ - (let () (declare (not safe)) (&raw-table-table _%tab95766%_))) - (_%seed95773%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95766%_)))) - (let* ((_%h95776%_ + (lambda (_%tab96898%_ _%key96900%_) + (let ((_%table96903%_ + (let () (declare (not safe)) (&raw-table-table _%tab96898%_))) + (_%seed96905%_ + (let () (declare (not safe)) (&raw-table-seed _%tab96898%_)))) + (let* ((_%h96908%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key95768%_)) - _%seed95773%_)) - (_%size95779%_ (vector-length _%table95771%_)) - (_%entries95782%_ + (procedure-hash _%key96900%_)) + _%seed96905%_)) + (_%size96911%_ (vector-length _%table96903%_)) + (_%entries96914%_ (let () (declare (not safe)) - (##fxquotient _%size95779%_ '2))) - (_%start95785%_ - (let ((__tmp100427 + (##fxquotient _%size96911%_ '2))) + (_%start96917%_ + (let ((__tmp101559 (let () (declare (not safe)) - (##fxmodulo _%h95776%_ _%entries95782%_)))) + (##fxmodulo _%h96908%_ _%entries96914%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100427 '1)))) - (let _%loop95789%_ ((_%probe95792%_ _%start95785%_) - (_%i95794%_ '1)) - (let ((_%k95797%_ (vector-ref _%table95771%_ _%probe95792%_))) - (if (eq? _%k95797%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp101559 '1)))) + (let _%loop96921%_ ((_%probe96924%_ _%start96917%_) + (_%i96926%_ '1)) + (let ((_%k96929%_ (vector-ref _%table96903%_ _%probe96924%_))) + (if (eq? _%k96929%_ (macro-unused-obj)) '#!void - (if (eq? _%k95797%_ (macro-deleted-obj)) - (_%loop95789%_ - (let ((_%next-probe95802%_ - (fx+ _%start95785%_ - _%i95794%_ - (fx* _%i95794%_ _%i95794%_)))) + (if (eq? _%k96929%_ (macro-deleted-obj)) + (_%loop96921%_ + (let ((_%next-probe96934%_ + (fx+ _%start96917%_ + _%i96926%_ + (fx* _%i96926%_ _%i96926%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95802%_ _%size95779%_)) - (let () (declare (not safe)) (##fx+ _%i95794%_ '1))) - (if (eq? _%key95768%_ _%k95797%_) + (##fxmodulo _%next-probe96934%_ _%size96911%_)) + (let () (declare (not safe)) (##fx+ _%i96926%_ '1))) + (if (eq? _%key96900%_ _%k96929%_) (let () (vector-set! - _%table95771%_ - _%probe95792%_ + _%table96903%_ + _%probe96924%_ (macro-deleted-obj)) (vector-set! - _%table95771%_ + _%table96903%_ (let () (declare (not safe)) - (##fx+ _%probe95792%_ '1)) + (##fx+ _%probe96924%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp100428 - (let ((__tmp100429 + (let ((__tmp101560 + (let ((__tmp101561 (let () (declare (not safe)) (&raw-table-count - _%tab95766%_)))) + _%tab96898%_)))) (declare (not safe)) - (##fx- __tmp100429 '1)))) + (##fx- __tmp101561 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95766%_ - __tmp100428))))) - (_%loop95789%_ - (let ((_%next-probe95808%_ - (fx+ _%start95785%_ - _%i95794%_ - (fx* _%i95794%_ _%i95794%_)))) + _%tab96898%_ + __tmp101560))))) + (_%loop96921%_ + (let ((_%next-probe96940%_ + (fx+ _%start96917%_ + _%i96926%_ + (fx* _%i96926%_ _%i96926%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95808%_ _%size95779%_)) + (##fxmodulo _%next-probe96940%_ _%size96911%_)) (let () (declare (not safe)) - (##fx+ _%i95794%_ '1)))))))))))) + (##fx+ _%i96926%_ '1)))))))))))) (define __method-specializers (make-method-specializer-table__% '#f '0)) (define __method-specializers-mx (vector '0)) (define bind-specializer! - (lambda (_%method-proc95757%_ _%specializer95758%_) + (lambda (_%method-proc96889%_ _%specializer96890%_) (let () (declare (not interrupts-enabled)) - (let _%again95762%_ () - (if (let ((__tmp100430 + (let _%again96894%_ () + (if (let ((__tmp101562 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp100430 '0)) + (##fx= __tmp101562 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again95762%_))))) + (_%again96894%_))))) (method-specializer-table-set! __method-specializers - _%method-proc95757%_ - _%specializer95758%_) + _%method-proc96889%_ + _%specializer96890%_) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)))) (define __lookup-method-specializer - (lambda (_%proc95747%_) + (lambda (_%proc96879%_) (let () (declare (not interrupts-enabled)) - (let _%again95751%_ () - (if (let ((__tmp100431 + (let _%again96883%_ () + (if (let ((__tmp101563 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp100431 '0)) + (##fx= __tmp101563 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again95751%_))))) - (let ((_%specializer95755%_ + (_%again96883%_))))) + (let ((_%specializer96887%_ (method-specializer-table-ref __method-specializers - _%proc95747%_ + _%proc96879%_ '#f))) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)) - _%specializer95755%_))) + _%specializer96887%_))) (define __class-specializer-hash-key - (lambda (_%klass95745%_) - (let ((__tmp100432 - (let () (declare (not safe)) (##type-id _%klass95745%_)))) + (lambda (_%klass96877%_) + (let ((__tmp101564 + (let () (declare (not safe)) (##type-id _%klass96877%_)))) (declare (not safe)) - (symbolic-hash __tmp100432)))) + (symbolic-hash __tmp101564)))) (define make-class-specializer-table__% - (lambda (_%size-hint95726%_ _%seed95728%_) + (lambda (_%size-hint96858%_ _%seed96860%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint95726%_ + _%size-hint96858%_ __class-specializer-hash-key eq? - _%seed95728%_)))) + _%seed96860%_)))) (define make-class-specializer-table__0 (lambda () - (let* ((_%size-hint95734%_ '#f) (_%seed95736%_ '0)) - (make-class-specializer-table__% _%size-hint95734%_ _%seed95736%_)))) + (let* ((_%size-hint96866%_ '#f) (_%seed96868%_ '0)) + (make-class-specializer-table__% _%size-hint96866%_ _%seed96868%_)))) (define make-class-specializer-table__1 - (lambda (_%size-hint95738%_) - (let ((_%seed95740%_ '0)) - (make-class-specializer-table__% _%size-hint95738%_ _%seed95740%_)))) + (lambda (_%size-hint96870%_) + (let ((_%seed96872%_ '0)) + (make-class-specializer-table__% _%size-hint96870%_ _%seed96872%_)))) (define make-class-specializer-table - (lambda _g100434_ - (let ((_g100433_ (let () (declare (not safe)) (##length _g100434_)))) - (cond ((let () (declare (not safe)) (##fx= _g100433_ 0)) - (apply make-class-specializer-table__0 _g100434_)) - ((let () (declare (not safe)) (##fx= _g100433_ 1)) - (apply make-class-specializer-table__1 _g100434_)) - ((let () (declare (not safe)) (##fx= _g100433_ 2)) - (apply make-class-specializer-table__% _g100434_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-class-specializer-table - _g100434_)))))) + _g101566_)))))) (define class-specializer-table-ref - (lambda (_%tab95679%_ _%key95680%_ _%default95681%_) - (let ((_%table95683%_ - (let () (declare (not safe)) (&raw-table-table _%tab95679%_))) - (_%seed95684%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95679%_)))) - (let* ((_%h95686%_ - (fxxor (__class-specializer-hash-key _%key95680%_) - _%seed95684%_)) - (_%size95689%_ (vector-length _%table95683%_)) - (_%entries95692%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size95689%_ '2))) - (_%start95695%_ - (let ((__tmp100435 + (##fxquotient _%size96821%_ '2))) + (_%start96827%_ + (let ((__tmp101567 (let () (declare (not safe)) - (##fxmodulo _%h95686%_ _%entries95692%_)))) + (##fxmodulo _%h96818%_ _%entries96824%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100435 '1)))) - (let _%loop95699%_ ((_%probe95702%_ _%start95695%_) - (_%i95704%_ '1) - (_%deleted95706%_ '#f)) - (let ((_%k95709%_ (vector-ref _%table95683%_ _%probe95702%_))) - (if (eq? _%k95709%_ (macro-unused-obj)) - _%default95681%_ - (if (eq? _%k95709%_ (macro-deleted-obj)) - (_%loop95699%_ - (let ((_%next-probe95714%_ - (fx+ _%start95695%_ - _%i95704%_ - (fx* _%i95704%_ _%i95704%_)))) + (##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%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95714%_ _%size95689%_)) - (let () (declare (not safe)) (##fx+ _%i95704%_ '1)) - (let ((_%$e95717%_ _%deleted95706%_)) - (if _%$e95717%_ _%$e95717%_ _%probe95702%_))) - (if (eq? _%key95680%_ _%k95709%_) + (##fxmodulo _%next-probe96846%_ _%size96821%_)) + (let () (declare (not safe)) (##fx+ _%i96836%_ '1)) + (let ((_%$e96849%_ _%deleted96838%_)) + (if _%$e96849%_ _%$e96849%_ _%probe96834%_))) + (if (eq? _%key96812%_ _%k96841%_) (vector-ref - _%table95683%_ + _%table96815%_ (let () (declare (not safe)) - (##fx+ _%probe95702%_ '1))) - (_%loop95699%_ - (let ((_%next-probe95722%_ - (fx+ _%start95695%_ - _%i95704%_ - (fx* _%i95704%_ _%i95704%_)))) + (##fx+ _%probe96834%_ '1))) + (_%loop96831%_ + (let ((_%next-probe96854%_ + (fx+ _%start96827%_ + _%i96836%_ + (fx* _%i96836%_ _%i96836%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95722%_ _%size95689%_)) + (##fxmodulo _%next-probe96854%_ _%size96821%_)) (let () (declare (not safe)) - (##fx+ _%i95704%_ '1)) - _%deleted95706%_)))))))))) + (##fx+ _%i96836%_ '1)) + _%deleted96838%_)))))))))) (define class-specializer-table-set! - (lambda (_%tab95675%_ _%key95676%_ _%value95677%_) - (if (let ((__tmp100438 + (lambda (_%tab96807%_ _%key96808%_ _%value96809%_) + (if (let ((__tmp101570 (let () (declare (not safe)) - (&raw-table-free _%tab95675%_))) - (__tmp100436 - (let ((__tmp100437 + (&raw-table-free _%tab96807%_))) + (__tmp101568 + (let ((__tmp101569 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab95675%_))))) + (&raw-table-table _%tab96807%_))))) (declare (not safe)) - (##fxquotient __tmp100437 '4)))) + (##fxquotient __tmp101569 '4)))) (declare (not safe)) - (##fx< __tmp100438 __tmp100436)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab95675%_)) + (##fx< __tmp101570 __tmp101568)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab96807%_)) '#!void) (__class-specializer-table-set! - _%tab95675%_ - _%key95676%_ - _%value95677%_))) + _%tab96807%_ + _%key96808%_ + _%value96809%_))) (define __class-specializer-table-set! - (lambda (_%tab95626%_ _%key95627%_ _%value95628%_) - (let ((_%table95631%_ - (let () (declare (not safe)) (&raw-table-table _%tab95626%_))) - (_%seed95632%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95626%_)))) - (let* ((_%h95634%_ - (fxxor (__class-specializer-hash-key _%key95627%_) - _%seed95632%_)) - (_%size95637%_ (vector-length _%table95631%_)) - (_%entries95640%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size95637%_ '2))) - (_%start95643%_ - (let ((__tmp100439 + (##fxquotient _%size96769%_ '2))) + (_%start96775%_ + (let ((__tmp101571 (let () (declare (not safe)) - (##fxmodulo _%h95634%_ _%entries95640%_)))) + (##fxmodulo _%h96766%_ _%entries96772%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100439 '1)))) - (let _%loop95647%_ ((_%probe95650%_ _%start95643%_) - (_%i95652%_ '1) - (_%deleted95654%_ '#f)) - (let ((_%k95657%_ (vector-ref _%table95631%_ _%probe95650%_))) - (if (eq? _%k95657%_ (macro-unused-obj)) - (if _%deleted95654%_ + (##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%_ (begin (vector-set! - _%table95631%_ - _%deleted95654%_ - _%key95627%_) + _%table96763%_ + _%deleted96786%_ + _%key96759%_) (vector-set! - _%table95631%_ + _%table96763%_ (let () (declare (not safe)) - (##fx+ _%deleted95654%_ '1)) - _%value95628%_) + (##fx+ _%deleted96786%_ '1)) + _%value96760%_) ((lambda () - (let ((__tmp100440 - (let ((__tmp100441 + (let ((__tmp101572 + (let ((__tmp101573 (let () (declare (not safe)) - (&raw-table-count _%tab95626%_)))) + (&raw-table-count _%tab96758%_)))) (declare (not safe)) - (##fx+ __tmp100441 '1)))) + (##fx+ __tmp101573 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95626%_ - __tmp100440))))) + _%tab96758%_ + __tmp101572))))) (begin (vector-set! - _%table95631%_ - _%probe95650%_ - _%key95627%_) + _%table96763%_ + _%probe96782%_ + _%key96759%_) (vector-set! - _%table95631%_ + _%table96763%_ (let () (declare (not safe)) - (##fx+ _%probe95650%_ '1)) - _%value95628%_) + (##fx+ _%probe96782%_ '1)) + _%value96760%_) ((lambda () - (let ((__tmp100442 - (let ((__tmp100443 + (let ((__tmp101574 + (let ((__tmp101575 (let () (declare (not safe)) - (&raw-table-free _%tab95626%_)))) + (&raw-table-free _%tab96758%_)))) (declare (not safe)) - (##fx- __tmp100443 '1)))) + (##fx- __tmp101575 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab95626%_ __tmp100442)) - (let ((__tmp100444 - (let ((__tmp100445 + (&raw-table-free-set! _%tab96758%_ __tmp101574)) + (let ((__tmp101576 + (let ((__tmp101577 (let () (declare (not safe)) - (&raw-table-count _%tab95626%_)))) + (&raw-table-count _%tab96758%_)))) (declare (not safe)) - (##fx+ __tmp100445 '1)))) + (##fx+ __tmp101577 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95626%_ - __tmp100444)))))) - (if (eq? _%k95657%_ (macro-deleted-obj)) - (_%loop95647%_ - (let ((_%next-probe95664%_ - (fx+ _%start95643%_ - _%i95652%_ - (fx* _%i95652%_ _%i95652%_)))) + _%tab96758%_ + __tmp101576)))))) + (if (eq? _%k96789%_ (macro-deleted-obj)) + (_%loop96779%_ + (let ((_%next-probe96796%_ + (fx+ _%start96775%_ + _%i96784%_ + (fx* _%i96784%_ _%i96784%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95664%_ _%size95637%_)) - (let () (declare (not safe)) (##fx+ _%i95652%_ '1)) - (let ((_%$e95667%_ _%deleted95654%_)) - (if _%$e95667%_ _%$e95667%_ _%probe95650%_))) - (if (eq? _%key95627%_ _%k95657%_) + (##fxmodulo _%next-probe96796%_ _%size96769%_)) + (let () (declare (not safe)) (##fx+ _%i96784%_ '1)) + (let ((_%$e96799%_ _%deleted96786%_)) + (if _%$e96799%_ _%$e96799%_ _%probe96782%_))) + (if (eq? _%key96759%_ _%k96789%_) (let () (vector-set! - _%table95631%_ - _%probe95650%_ - _%key95627%_) + _%table96763%_ + _%probe96782%_ + _%key96759%_) (vector-set! - _%table95631%_ + _%table96763%_ (let () (declare (not safe)) - (##fx+ _%probe95650%_ '1)) - _%value95628%_)) - (_%loop95647%_ - (let ((_%next-probe95672%_ - (fx+ _%start95643%_ - _%i95652%_ - (fx* _%i95652%_ _%i95652%_)))) + (##fx+ _%probe96782%_ '1)) + _%value96760%_)) + (_%loop96779%_ + (let ((_%next-probe96804%_ + (fx+ _%start96775%_ + _%i96784%_ + (fx* _%i96784%_ _%i96784%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95672%_ _%size95637%_)) + (##fxmodulo _%next-probe96804%_ _%size96769%_)) (let () (declare (not safe)) - (##fx+ _%i95652%_ '1)) - _%deleted95654%_)))))))))) + (##fx+ _%i96784%_ '1)) + _%deleted96786%_)))))))))) (define class-specializer-table-update! - (lambda (_%tab95621%_ - _%key95622%_ - _%class-specializer-table-update!95623%_ - _%default95624%_) - (if (let ((__tmp100448 + (lambda (_%tab96753%_ + _%key96754%_ + _%class-specializer-table-update!96755%_ + _%default96756%_) + (if (let ((__tmp101580 (let () (declare (not safe)) - (&raw-table-free _%tab95621%_))) - (__tmp100446 - (let ((__tmp100447 + (&raw-table-free _%tab96753%_))) + (__tmp101578 + (let ((__tmp101579 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab95621%_))))) + (&raw-table-table _%tab96753%_))))) (declare (not safe)) - (##fxquotient __tmp100447 '4)))) + (##fxquotient __tmp101579 '4)))) (declare (not safe)) - (##fx< __tmp100448 __tmp100446)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab95621%_)) + (##fx< __tmp101580 __tmp101578)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab96753%_)) '#!void) (__class-specializer-table-update! - _%tab95621%_ - _%key95622%_ - _%class-specializer-table-update!95623%_ - _%default95624%_))) + _%tab96753%_ + _%key96754%_ + _%class-specializer-table-update!96755%_ + _%default96756%_))) (define __class-specializer-table-update! - (lambda (_%tab95571%_ - _%key95572%_ - _%class-specializer-table-update!95573%_ - _%default95574%_) - (let ((_%table95577%_ - (let () (declare (not safe)) (&raw-table-table _%tab95571%_))) - (_%seed95578%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95571%_)))) - (let* ((_%h95580%_ - (fxxor (__class-specializer-hash-key _%key95572%_) - _%seed95578%_)) - (_%size95583%_ (vector-length _%table95577%_)) - (_%entries95586%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size95583%_ '2))) - (_%start95589%_ - (let ((__tmp100449 + (##fxquotient _%size96715%_ '2))) + (_%start96721%_ + (let ((__tmp101581 (let () (declare (not safe)) - (##fxmodulo _%h95580%_ _%entries95586%_)))) + (##fxmodulo _%h96712%_ _%entries96718%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100449 '1)))) - (let _%loop95593%_ ((_%probe95596%_ _%start95589%_) - (_%i95598%_ '1) - (_%deleted95600%_ '#f)) - (let ((_%k95603%_ (vector-ref _%table95577%_ _%probe95596%_))) - (if (eq? _%k95603%_ (macro-unused-obj)) - (if _%deleted95600%_ + (##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%_ (begin (vector-set! - _%table95577%_ - _%deleted95600%_ - _%key95572%_) + _%table96709%_ + _%deleted96732%_ + _%key96704%_) (vector-set! - _%table95577%_ + _%table96709%_ (let () (declare (not safe)) - (##fx+ _%deleted95600%_ '1)) - (_%class-specializer-table-update!95573%_ - _%default95574%_)) + (##fx+ _%deleted96732%_ '1)) + (_%class-specializer-table-update!96705%_ + _%default96706%_)) ((lambda () - (let ((__tmp100450 - (let ((__tmp100451 + (let ((__tmp101582 + (let ((__tmp101583 (let () (declare (not safe)) - (&raw-table-count _%tab95571%_)))) + (&raw-table-count _%tab96703%_)))) (declare (not safe)) - (##fx+ __tmp100451 '1)))) + (##fx+ __tmp101583 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95571%_ - __tmp100450))))) + _%tab96703%_ + __tmp101582))))) (begin (vector-set! - _%table95577%_ - _%probe95596%_ - _%key95572%_) + _%table96709%_ + _%probe96728%_ + _%key96704%_) (vector-set! - _%table95577%_ + _%table96709%_ (let () (declare (not safe)) - (##fx+ _%probe95596%_ '1)) - (_%class-specializer-table-update!95573%_ - _%default95574%_)) + (##fx+ _%probe96728%_ '1)) + (_%class-specializer-table-update!96705%_ + _%default96706%_)) ((lambda () - (let ((__tmp100452 - (let ((__tmp100453 + (let ((__tmp101584 + (let ((__tmp101585 (let () (declare (not safe)) - (&raw-table-free _%tab95571%_)))) + (&raw-table-free _%tab96703%_)))) (declare (not safe)) - (##fx- __tmp100453 '1)))) + (##fx- __tmp101585 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab95571%_ __tmp100452)) - (let ((__tmp100454 - (let ((__tmp100455 + (&raw-table-free-set! _%tab96703%_ __tmp101584)) + (let ((__tmp101586 + (let ((__tmp101587 (let () (declare (not safe)) - (&raw-table-count _%tab95571%_)))) + (&raw-table-count _%tab96703%_)))) (declare (not safe)) - (##fx+ __tmp100455 '1)))) + (##fx+ __tmp101587 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95571%_ - __tmp100454)))))) - (if (eq? _%k95603%_ (macro-deleted-obj)) - (_%loop95593%_ - (let ((_%next-probe95610%_ - (fx+ _%start95589%_ - _%i95598%_ - (fx* _%i95598%_ _%i95598%_)))) + _%tab96703%_ + __tmp101586)))))) + (if (eq? _%k96735%_ (macro-deleted-obj)) + (_%loop96725%_ + (let ((_%next-probe96742%_ + (fx+ _%start96721%_ + _%i96730%_ + (fx* _%i96730%_ _%i96730%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95610%_ _%size95583%_)) - (let () (declare (not safe)) (##fx+ _%i95598%_ '1)) - (let ((_%$e95613%_ _%deleted95600%_)) - (if _%$e95613%_ _%$e95613%_ _%probe95596%_))) - (if (eq? _%key95572%_ _%k95603%_) + (##fxmodulo _%next-probe96742%_ _%size96715%_)) + (let () (declare (not safe)) (##fx+ _%i96730%_ '1)) + (let ((_%$e96745%_ _%deleted96732%_)) + (if _%$e96745%_ _%$e96745%_ _%probe96728%_))) + (if (eq? _%key96704%_ _%k96735%_) (let () (vector-set! - _%table95577%_ - _%probe95596%_ - _%key95572%_) + _%table96709%_ + _%probe96728%_ + _%key96704%_) (vector-set! - _%table95577%_ + _%table96709%_ (let () (declare (not safe)) - (##fx+ _%probe95596%_ '1)) - (_%class-specializer-table-update!95573%_ + (##fx+ _%probe96728%_ '1)) + (_%class-specializer-table-update!96705%_ (vector-ref - _%table95577%_ + _%table96709%_ (let () (declare (not safe)) - (##fx+ _%probe95596%_ '1)))))) - (_%loop95593%_ - (let ((_%next-probe95618%_ - (fx+ _%start95589%_ - _%i95598%_ - (fx* _%i95598%_ _%i95598%_)))) + (##fx+ _%probe96728%_ '1)))))) + (_%loop96725%_ + (let ((_%next-probe96750%_ + (fx+ _%start96721%_ + _%i96730%_ + (fx* _%i96730%_ _%i96730%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95618%_ _%size95583%_)) + (##fxmodulo _%next-probe96750%_ _%size96715%_)) (let () (declare (not safe)) - (##fx+ _%i95598%_ '1)) - _%deleted95600%_)))))))))) + (##fx+ _%i96730%_ '1)) + _%deleted96732%_)))))))))) (define class-specializer-table-delete! - (lambda (_%tab95526%_ _%key95528%_) - (let ((_%table95531%_ - (let () (declare (not safe)) (&raw-table-table _%tab95526%_))) - (_%seed95533%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95526%_)))) - (let* ((_%h95536%_ - (fxxor (__class-specializer-hash-key _%key95528%_) - _%seed95533%_)) - (_%size95539%_ (vector-length _%table95531%_)) - (_%entries95542%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size95539%_ '2))) - (_%start95545%_ - (let ((__tmp100456 + (##fxquotient _%size96671%_ '2))) + (_%start96677%_ + (let ((__tmp101588 (let () (declare (not safe)) - (##fxmodulo _%h95536%_ _%entries95542%_)))) + (##fxmodulo _%h96668%_ _%entries96674%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100456 '1)))) - (let _%loop95549%_ ((_%probe95552%_ _%start95545%_) - (_%i95554%_ '1)) - (let ((_%k95557%_ (vector-ref _%table95531%_ _%probe95552%_))) - (if (eq? _%k95557%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp101588 '1)))) + (let _%loop96681%_ ((_%probe96684%_ _%start96677%_) + (_%i96686%_ '1)) + (let ((_%k96689%_ (vector-ref _%table96663%_ _%probe96684%_))) + (if (eq? _%k96689%_ (macro-unused-obj)) '#!void - (if (eq? _%k95557%_ (macro-deleted-obj)) - (_%loop95549%_ - (let ((_%next-probe95562%_ - (fx+ _%start95545%_ - _%i95554%_ - (fx* _%i95554%_ _%i95554%_)))) + (if (eq? _%k96689%_ (macro-deleted-obj)) + (_%loop96681%_ + (let ((_%next-probe96694%_ + (fx+ _%start96677%_ + _%i96686%_ + (fx* _%i96686%_ _%i96686%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95562%_ _%size95539%_)) - (let () (declare (not safe)) (##fx+ _%i95554%_ '1))) - (if (eq? _%key95528%_ _%k95557%_) + (##fxmodulo _%next-probe96694%_ _%size96671%_)) + (let () (declare (not safe)) (##fx+ _%i96686%_ '1))) + (if (eq? _%key96660%_ _%k96689%_) (let () (vector-set! - _%table95531%_ - _%probe95552%_ + _%table96663%_ + _%probe96684%_ (macro-deleted-obj)) (vector-set! - _%table95531%_ + _%table96663%_ (let () (declare (not safe)) - (##fx+ _%probe95552%_ '1)) + (##fx+ _%probe96684%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp100457 - (let ((__tmp100458 + (let ((__tmp101589 + (let ((__tmp101590 (let () (declare (not safe)) (&raw-table-count - _%tab95526%_)))) + _%tab96658%_)))) (declare (not safe)) - (##fx- __tmp100458 '1)))) + (##fx- __tmp101590 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95526%_ - __tmp100457))))) - (_%loop95549%_ - (let ((_%next-probe95568%_ - (fx+ _%start95545%_ - _%i95554%_ - (fx* _%i95554%_ _%i95554%_)))) + _%tab96658%_ + __tmp101589))))) + (_%loop96681%_ + (let ((_%next-probe96700%_ + (fx+ _%start96677%_ + _%i96686%_ + (fx* _%i96686%_ _%i96686%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95568%_ _%size95539%_)) + (##fxmodulo _%next-probe96700%_ _%size96671%_)) (let () (declare (not safe)) - (##fx+ _%i95554%_ '1)))))))))))) + (##fx+ _%i96686%_ '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 (_%klass95512%_) + (lambda (_%klass96644%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass95512%_ 'class)) - (let ((_%klass95516%_ _%klass95512%_)) - (__specialize-class _%klass95516%_)) + (##structure-instance-of? _%klass96644%_ 'class)) + (let ((_%klass96648%_ _%klass96644%_)) + (__specialize-class _%klass96648%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4576,192 +4560,190 @@ 'contract: 'class-type? 'value: - _%klass95512%_) + _%klass96644%_) '#!void)))) (define __specialize-class - (lambda (_%klass95494%_) - (let* ((_%klass95497%_ _%klass95494%_) - (_%$e95506%_ (__lookup-class-specializer _%klass95497%_))) - (if _%$e95506%_ - _%$e95506%_ - (let ((_%method-table95510%_ - (___specialize-class _%klass95497%_))) + (lambda (_%klass96626%_) + (let* ((_%klass96629%_ _%klass96626%_) + (_%$e96638%_ (__lookup-class-specializer _%klass96629%_))) + (if _%$e96638%_ + _%$e96638%_ + (let ((_%method-table96642%_ + (___specialize-class _%klass96629%_))) (__bind-class-specializer! - _%klass95497%_ - _%method-table95510%_) - _%method-table95510%_))))) + _%klass96629%_ + _%method-table96642%_) + _%method-table96642%_))))) (define __lookup-class-specializer - (lambda (_%klass95484%_) + (lambda (_%klass96616%_) (let () (declare (not interrupts-enabled)) - (let _%again95488%_ () - (if (let ((__tmp100459 + (let _%again96620%_ () + (if (let ((__tmp101591 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp100459 '0)) + (##fx= __tmp101591 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again95488%_))))) - (let ((_%method-table95492%_ + (_%again96620%_))))) + (let ((_%method-table96624%_ (class-specializer-table-ref __class-specializers - _%klass95484%_ + _%klass96616%_ '#f))) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)) - _%method-table95492%_))) + _%method-table96624%_))) (define __bind-class-specializer! - (lambda (_%klass95475%_ _%method-table95476%_) + (lambda (_%klass96607%_ _%method-table96608%_) (let () (declare (not interrupts-enabled)) - (let _%again95480%_ () - (if (let ((__tmp100460 + (let _%again96612%_ () + (if (let ((__tmp101592 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp100460 '0)) + (##fx= __tmp101592 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again95480%_))))) + (_%again96612%_))))) (class-specializer-table-set! __class-specializers - _%klass95475%_ - _%method-table95476%_) + _%klass96607%_ + _%method-table96608%_) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)))) (define __specialize-method - (lambda (_%klass95459%_ - _%method-table95460%_ - _%method95461%_ - _%proc95462%_) - (let ((_%$e95464%_ + (lambda (_%klass96591%_ + _%method-table96592%_ + _%method96593%_ + _%proc96594%_) + (let ((_%$e96596%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table95460%_ - _%method95461%_ + _%method-table96592%_ + _%method96593%_ '#f)))) - (if _%$e95464%_ - _%$e95464%_ - (let ((_%$e95467%_ (__lookup-method-specializer _%proc95462%_))) - (if _%$e95467%_ - ((lambda (_%specialize95470%_) - (let ((_%specialized-proc95472%_ - (_%specialize95470%_ - _%klass95459%_ - _%method-table95460%_))) + (if _%$e96596%_ + _%$e96596%_ + (let ((_%$e96599%_ (__lookup-method-specializer _%proc96594%_))) + (if _%$e96599%_ + ((lambda (_%specialize96602%_) + (let ((_%specialized-proc96604%_ + (_%specialize96602%_ + _%klass96591%_ + _%method-table96592%_))) (declare (not safe)) (symbolic-table-set! - _%method-table95460%_ - _%method95461%_ - _%specialized-proc95472%_))) - _%$e95467%_) + _%method-table96592%_ + _%method96593%_ + _%specialized-proc96604%_))) + _%$e96599%_) (let () (declare (not safe)) (symbolic-table-set! - _%method-table95460%_ - _%method95461%_ - _%proc95462%_)))))))) + _%method-table96592%_ + _%method96593%_ + _%proc96594%_)))))))) (define ___specialize-class - (lambda (_%klass95401%_) + (lambda (_%klass96533%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass95401%_ 'class)) - (if (__class-type-metaclass? _%klass95401%_) - (let ((__method100306 - (__method-ref _%klass95401%_ 'specialize-class))) - (if __method100306 + (##structure-instance-of? _%klass96533%_ 'class)) + (if (__class-type-metaclass? _%klass96533%_) + (let ((__method101438 + (__method-ref _%klass96533%_ 'specialize-class))) + (if __method101438 (let () (declare (not safe)) - (__method100306 _%klass95401%_)) + (__method101438 _%klass96533%_)) (begin (error '"Missing method" - _%klass95401%_ + _%klass96533%_ 'specialize-class) '#!void))) - (if (let ((__tmp100461 + (if (let ((__tmp101593 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass95401%_ + _%klass96533%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp100461)) + (__find class-type-metaclass? __tmp101593)) (error '"cannot specialize class that extends metaclass without a metaclass" - _%klass95401%_) - (let ((_%method-table95407%_ + _%klass96533%_) + (let ((_%method-table96539%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%loop95409%_ ((_%rest95411%_ + (let _%loop96541%_ ((_%rest96543%_ (__class-precedence-list - _%klass95401%_))) - (let* ((_%rest9541295420%_ _%rest95411%_) - (_%else9541495428%_ - (lambda () _%method-table95407%_)) - (_%K9541695447%_ - (lambda (_%rest95431%_ _%xklass95432%_) - (let ((_%xmethod-table9543395435%_ + _%klass96533%_))) + (let* ((_%rest9654496552%_ _%rest96543%_) + (_%else9654696560%_ + (lambda () _%method-table96539%_)) + (_%K9654896579%_ + (lambda (_%rest96563%_ _%xklass96564%_) + (let ((_%xmethod-table9656596567%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%xklass95432%_ + _%xklass96564%_ '11 '#f '#f)))) - (if _%xmethod-table9543395435%_ - (let* ((_%xmethod-table95438%_ - _%xmethod-table9543395435%_) - (__tmp100462 - (lambda (_%g9543995442%_ - _%g9544095444%_) + (if _%xmethod-table9656596567%_ + (let* ((_%xmethod-table96570%_ + _%xmethod-table9656596567%_) + (__tmp101594 + (lambda (_%g9657196574%_ + _%g9657296576%_) (__specialize-method - _%klass95401%_ - _%method-table95407%_ - _%g9543995442%_ - _%g9544095444%_)))) + _%klass96533%_ + _%method-table96539%_ + _%g9657196574%_ + _%g9657296576%_)))) (declare (not safe)) (raw-table-for-each - _%xmethod-table95438%_ - __tmp100462)) + _%xmethod-table96570%_ + __tmp101594)) '#f)) - (_%loop95409%_ _%rest95431%_)))) - (if (let () - (declare (not safe)) - (##pair? _%rest9541295420%_)) - (let ((_%hd9541795450%_ + (_%loop96541%_ _%rest96563%_)))) + (if (pair? _%rest9654496552%_) + (let ((_%hd9654996582%_ (let () (declare (not safe)) - (##car _%rest9541295420%_))) - (_%tl9541895452%_ + (##car _%rest9654496552%_))) + (_%tl9655096584%_ (let () (declare (not safe)) - (##cdr _%rest9541295420%_)))) - (let* ((_%xklass95455%_ _%hd9541795450%_) - (_%rest95457%_ _%tl9541895452%_)) - (_%K9541695447%_ - _%rest95457%_ - _%xklass95455%_))) - (_%else9541495428%_))))))) - (if (let () (declare (not safe)) (##type? _%klass95401%_)) - (__specialize-class (__shadow-class _%klass95401%_)) - (error '"bad class; cannot specialize" _%klass95401%_))))) + (##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%_))))) (define seal-class! - (lambda (_%klass95387%_) + (lambda (_%klass96519%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass95387%_ 'class)) - (let ((_%klass95391%_ _%klass95387%_)) - (__seal-class! _%klass95391%_)) + (##structure-instance-of? _%klass96519%_ 'class)) + (let ((_%klass96523%_ _%klass96519%_)) + (__seal-class! _%klass96523%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4770,60 +4752,60 @@ 'contract: 'class-type? 'value: - _%klass95387%_) + _%klass96519%_) '#!void)))) (define __seal-class! - (lambda (_%klass95370%_) - (let ((_%klass95373%_ _%klass95370%_)) - (if (__class-type-sealed? _%klass95373%_) + (lambda (_%klass96502%_) + (let ((_%klass96505%_ _%klass96502%_)) + (if (__class-type-sealed? _%klass96505%_) '#!void (begin - (if (__class-type-final? _%klass95373%_) + (if (__class-type-final? _%klass96505%_) '#!void - (error '"cannot seal non-final class" _%klass95373%_)) - (if (__class-type-metaclass? _%klass95373%_) - (let ((__method100307 - (__method-ref _%klass95373%_ 'seal-class!))) - (if __method100307 + (error '"cannot seal non-final class" _%klass96505%_)) + (if (__class-type-metaclass? _%klass96505%_) + (let ((__method101439 + (__method-ref _%klass96505%_ 'seal-class!))) + (if __method101439 (let () (declare (not safe)) - (__method100307 _%klass95373%_)) + (__method101439 _%klass96505%_)) (begin (error '"Missing method" - _%klass95373%_ + _%klass96505%_ 'seal-class!) '#!void))) - (if (let ((__tmp100463 + (if (let ((__tmp101595 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass95373%_ + _%klass96505%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp100463)) + (__find class-type-metaclass? __tmp101595)) (error '"cannot seal class that extends metaclass without a metaclass" - _%klass95373%_) - (let ((_%method-table95385%_ - (__specialize-class _%klass95373%_))) + _%klass96505%_) + (let ((_%method-table96517%_ + (__specialize-class _%klass96505%_))) (declare (not safe)) (##unchecked-structure-set! - _%klass95373%_ - _%method-table95385%_ + _%klass96505%_ + _%method-table96517%_ '11 '#f '#f)))) - (__class-type-seal! _%klass95373%_)))))) + (__class-type-seal! _%klass96505%_)))))) (define next-method - (lambda (_%subklass95344%_ _%obj95345%_ _%id95346%_) + (lambda (_%subklass96476%_ _%obj96477%_ _%id96478%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%subklass95344%_ 'class)) - (let ((_%subklass95350%_ _%subklass95344%_)) - (if (symbol? _%id95346%_) - (let ((_%id95360%_ _%id95346%_)) - (__next-method _%subklass95350%_ _%obj95345%_ _%id95360%_)) + (##structure-instance-of? _%subklass96476%_ 'class)) + (let ((_%subklass96482%_ _%subklass96476%_)) + (if (symbol? _%id96478%_) + (let ((_%id96492%_ _%id96478%_)) + (__next-method _%subklass96482%_ _%obj96477%_ _%id96492%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4832,7 +4814,7 @@ 'contract: 'symbol? 'value: - _%id95346%_) + _%id96478%_) '#!void))) (begin (raise-contract-violation-error @@ -4842,63 +4824,61 @@ 'contract: 'class-type? 'value: - _%subklass95344%_) + _%subklass96476%_) '#!void)))) (define __next-method - (lambda (_%subklass95281%_ _%obj95282%_ _%id95283%_) - (let* ((_%subklass95286%_ _%subklass95281%_) (_%id95294%_ _%id95283%_)) - (letrec ((_%find-next-method95303%_ - (lambda (_%klass95305%_) - (let _%lp95307%_ ((_%rest95309%_ + (lambda (_%subklass96413%_ _%obj96414%_ _%id96415%_) + (let* ((_%subklass96418%_ _%subklass96413%_) (_%id96426%_ _%id96415%_)) + (letrec ((_%find-next-method96435%_ + (lambda (_%klass96437%_) + (let _%lp96439%_ ((_%rest96441%_ (class-precedence-list - _%klass95305%_))) - (let* ((_%rest9531095318%_ _%rest95309%_) - (_%else9531295326%_ (lambda () '#f)) - (_%K9531495332%_ - (lambda (_%rest95329%_ _%klass95330%_) + _%klass96437%_))) + (let* ((_%rest9644296450%_ _%rest96441%_) + (_%else9644496458%_ (lambda () '#f)) + (_%K9644696464%_ + (lambda (_%rest96461%_ _%klass96462%_) (if (eq? (let () (declare (not safe)) - (##type-id _%subklass95286%_)) + (##type-id _%subklass96418%_)) (let () (declare (not safe)) - (##type-id _%klass95330%_))) + (##type-id _%klass96462%_))) (__mixin-find-method - _%rest95329%_ - _%obj95282%_ - _%id95294%_) - (_%lp95307%_ _%rest95329%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest9531095318%_)) - (let ((_%hd9531595335%_ + _%rest96461%_ + _%obj96414%_ + _%id96426%_) + (_%lp96439%_ _%rest96461%_))))) + (if (pair? _%rest9644296450%_) + (let ((_%hd9644796467%_ (let () (declare (not safe)) - (##car _%rest9531095318%_))) - (_%tl9531695337%_ + (##car _%rest9644296450%_))) + (_%tl9644896469%_ (let () (declare (not safe)) - (##cdr _%rest9531095318%_)))) - (let* ((_%klass95340%_ _%hd9531595335%_) - (_%rest95342%_ _%tl9531695337%_)) - (_%K9531495332%_ - _%rest95342%_ - _%klass95340%_))) - (_%else9531295326%_))))))) - (_%find-next-method95303%_ (class-of _%obj95282%_)))))) + (##cdr _%rest9644296450%_)))) + (let* ((_%klass96472%_ _%hd9644796467%_) + (_%rest96474%_ _%tl9644896469%_)) + (_%K9644696464%_ + _%rest96474%_ + _%klass96472%_))) + (_%else9644496458%_))))))) + (_%find-next-method96435%_ (class-of _%obj96414%_)))))) (define call-next-method - (lambda (_%subklass95254%_ _%obj95255%_ _%id95256%_ . _%args95257%_) + (lambda (_%subklass96386%_ _%obj96387%_ _%id96388%_ . _%args96389%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%subklass95254%_ 'class)) - (let ((_%subklass95261%_ _%subklass95254%_)) - (if (symbol? _%id95256%_) - (let ((_%id95271%_ _%id95256%_)) + (##structure-instance-of? _%subklass96386%_ 'class)) + (let ((_%subklass96393%_ _%subklass96386%_)) + (if (symbol? _%id96388%_) + (let ((_%id96403%_ _%id96388%_)) (declare (not safe)) (##apply __call-next-method - _%subklass95261%_ - _%obj95255%_ - _%id95271%_ - _%args95257%_)) + _%subklass96393%_ + _%obj96387%_ + _%id96403%_ + _%args96389%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4907,7 +4887,7 @@ 'contract: 'symbol? 'value: - _%id95256%_) + _%id96388%_) '#!void))) (begin (raise-contract-violation-error @@ -4917,126 +4897,126 @@ 'contract: 'class-type? 'value: - _%subklass95254%_) + _%subklass96386%_) '#!void)))) (define __call-next-method - (lambda (_%subklass95225%_ _%obj95226%_ _%id95227%_ . _%args95228%_) - (let* ((_%subklass95231%_ _%subklass95225%_) - (_%id95239%_ _%id95227%_) - (_%$e95248%_ - (__next-method _%subklass95231%_ _%obj95226%_ _%id95239%_))) - (if _%$e95248%_ - ((lambda (_%methodf95251%_) - (apply _%methodf95251%_ _%obj95226%_ _%args95228%_)) - _%$e95248%_) + (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%_) (error '"cannot find next method" 'object: - _%obj95226%_ + _%obj96358%_ 'method: - _%id95239%_))))) + _%id96371%_))))) (define write-style - (lambda (_%we95223%_) (macro-writeenv-style _%we95223%_))) + (lambda (_%we96355%_) (macro-writeenv-style _%we96355%_))) (define write-object - (lambda (_%we95214%_ _%obj95215%_) - (let ((_%$e95217%_ (__method-ref _%obj95215%_ ':wr))) - (if _%$e95217%_ - ((lambda (_%method95220%_) - (_%method95220%_ _%obj95215%_ _%we95214%_)) - _%$e95217%_) + (lambda (_%we96346%_ _%obj96347%_) + (let ((_%$e96349%_ (__method-ref _%obj96347%_ ':wr))) + (if _%$e96349%_ + ((lambda (_%method96352%_) + (_%method96352%_ _%obj96347%_ _%we96346%_)) + _%$e96349%_) (let () (declare (not safe)) - (##default-wr _%we95214%_ _%obj95215%_)))))) + (##default-wr _%we96346%_ _%obj96347%_)))))) (define __shadow-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define __shadow-classes-mx (vector '0)) (define __shadow-class - (lambda (_%type95129%_) - (letrec ((_%shadow-type-id95131%_ - (lambda (_%type95212%_) - (let ((__tmp100464 + (lambda (_%type96261%_) + (letrec ((_%shadow-type-id96263%_ + (lambda (_%type96344%_) + (let ((__tmp101596 (let () (declare (not safe)) - (##type-name _%type95212%_)))) + (##type-name _%type96344%_)))) (declare (not safe)) - (make-symbol__1 __tmp100464 '"::t")))) - (_%shadow-type-name95132%_ - (lambda (_%type95210%_) - (let () (declare (not safe)) (##type-name _%type95210%_)))) - (_%make-shadow-class95133%_ - (lambda (_%type95202%_ _%precedence-list95203%_) - (let* ((_%super95205%_ - (if (pair? _%precedence-list95203%_) + (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%_) (cons (let () (declare (not safe)) - (##car _%precedence-list95203%_)) + (##car _%precedence-list96335%_)) '()) '())) - (_%klass95207%_ + (_%klass96339%_ (make-class-type - (_%shadow-type-id95131%_ _%type95202%_) + (_%shadow-type-id96263%_ _%type96334%_) (let () (declare (not safe)) - (##type-name _%type95202%_)) - _%super95205%_ + (##type-name _%type96334%_)) + _%super96337%_ '() (cons (cons 'struct: '#t) (cons (cons 'system: '#t) - (if (__type-extensible? _%type95202%_) + (if (__type-extensible? _%type96334%_) '() (cons (cons 'final: '#t) '())))) '#f))) - (let ((__tmp100465 + (let ((__tmp101597 (let () (declare (not safe)) - (##type-id _%type95202%_)))) + (##type-id _%type96334%_)))) (declare (not safe)) (symbolic-table-set! __shadow-classes - __tmp100465 - _%klass95207%_)) - _%klass95207%_)))) + __tmp101597 + _%klass96339%_)) + _%klass96339%_)))) (let () (declare (not interrupts-enabled)) - (let _%again95137%_ () - (if (let ((__tmp100466 + (let _%again96269%_ () + (if (let ((__tmp101598 (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp100466 '0)) + (##fx= __tmp101598 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again95137%_))))) - (let ((_%$e95141%_ - (let ((__tmp100467 + (_%again96269%_))))) + (let ((_%$e96273%_ + (let ((__tmp101599 (let () (declare (not safe)) - (##type-id _%type95129%_)))) + (##type-id _%type96261%_)))) (declare (not safe)) - (symbolic-table-ref __shadow-classes __tmp100467 '#f)))) - (if _%$e95141%_ - ((lambda (_%klass95144%_) + (symbolic-table-ref __shadow-classes __tmp101599 '#f)))) + (if _%$e96273%_ + ((lambda (_%klass96276%_) (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '0 '1)) - _%klass95144%_) - _%$e95141%_) - (let _%loop95147%_ ((_%super95149%_ + _%klass96276%_) + _%$e96273%_) + (let _%loop96279%_ ((_%super96281%_ (let () (declare (not safe)) - (##type-super _%type95129%_))) - (_%hierarchy95150%_ '())) - (if (not _%super95149%_) - (let _%loop95153%_ ((_%rest95155%_ _%hierarchy95150%_) - (_%precedence-list95156%_ '())) - (let* ((_%rest9515795165%_ _%rest95155%_) - (_%else9515995175%_ + (##type-super _%type96261%_))) + (_%hierarchy96282%_ '())) + (if (not _%super96281%_) + (let _%loop96285%_ ((_%rest96287%_ _%hierarchy96282%_) + (_%precedence-list96288%_ '())) + (let* ((_%rest9628996297%_ _%rest96287%_) + (_%else9629196307%_ (lambda () - (let ((_%klass95173%_ - (_%make-shadow-class95133%_ - _%type95129%_ - _%precedence-list95156%_))) + (let ((_%klass96305%_ + (_%make-shadow-class96265%_ + _%type96261%_ + _%precedence-list96288%_))) (let () (declare (not safe)) (##vector-cas! @@ -5044,110 +5024,108 @@ '0 '0 '1)) - _%klass95173%_))) - (_%K9516195189%_ - (lambda (_%rest95178%_ _%type95179%_) - (let ((_%$e95181%_ - (let ((__tmp100468 + _%klass96305%_))) + (_%K9629396321%_ + (lambda (_%rest96310%_ _%type96311%_) + (let ((_%$e96313%_ + (let ((__tmp101600 (let () (declare (not safe)) - (##type-id _%type95179%_)))) + (##type-id _%type96311%_)))) (declare (not safe)) (symbolic-table-ref __shadow-classes - __tmp100468 + __tmp101600 '#f)))) - (if _%$e95181%_ - ((lambda (_%klass95184%_) - (_%loop95153%_ - _%rest95178%_ - (cons _%klass95184%_ - _%precedence-list95156%_))) - _%$e95181%_) - (let ((_%klass95187%_ - (_%make-shadow-class95133%_ - _%type95179%_ - _%precedence-list95156%_))) - (_%loop95153%_ - _%rest95178%_ - (cons _%klass95187%_ - _%precedence-list95156%_)))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest9515795165%_)) - (let ((_%hd9516295192%_ + (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%_ (let () (declare (not safe)) - (##car _%rest9515795165%_))) - (_%tl9516395194%_ + (##car _%rest9628996297%_))) + (_%tl9629596326%_ (let () (declare (not safe)) - (##cdr _%rest9515795165%_)))) - (let* ((_%type95197%_ _%hd9516295192%_) - (_%rest95199%_ _%tl9516395194%_)) - (_%K9516195189%_ - _%rest95199%_ - _%type95197%_))) - (_%else9515995175%_)))) - (_%loop95147%_ + (##cdr _%rest9628996297%_)))) + (let* ((_%type96329%_ _%hd9629496324%_) + (_%rest96331%_ _%tl9629596326%_)) + (_%K9629396321%_ + _%rest96331%_ + _%type96329%_))) + (_%else9629196307%_)))) + (_%loop96279%_ (let () (declare (not safe)) - (##type-super _%super95149%_)) - (cons _%super95149%_ _%hierarchy95150%_))))))))) + (##type-super _%super96281%_)) + (cons _%super96281%_ _%hierarchy96282%_))))))))) (define class-of - (lambda (_%obj95102%_) + (lambda (_%obj96234%_) (let () (declare (not interrupts-enabled)) - (let ((_%t95106%_ - (let () (declare (not safe)) (##type _%obj95102%_)))) - (if (fx= _%t95106%_ (macro-type-subtyped)) - (let ((_%st95109%_ - (let () (declare (not safe)) (##subtype _%obj95102%_)))) - (if (fx= _%st95109%_ (macro-subtype-structure)) - (let ((_%klass95112%_ + (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 () (declare (not safe)) - (##structure-type _%obj95102%_)))) + (##structure-type _%obj96234%_)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass95112%_ 'class)) - _%klass95112%_ - (__shadow-class _%klass95112%_))) - (if (fx= _%st95109%_ (macro-subtype-boxvalues)) - (if (let ((__tmp100469 + (##structure-instance-of? _%klass96244%_ 'class)) + _%klass96244%_ + (__shadow-class _%klass96244%_))) + (if (fx= _%st96241%_ (macro-subtype-boxvalues)) + (if (let ((__tmp101601 (let () (declare (not safe)) - (##vector-length _%obj95102%_)))) + (##vector-length _%obj96234%_)))) (declare (not safe)) - (##fx= __tmp100469 '1)) + (##fx= __tmp101601 '1)) (__system-class 'box) (__system-class 'values)) - (let ((_%$e95115%_ + (let ((_%$e96247%_ (let () (declare (not safe)) - (##vector-ref __subtype-id _%st95109%_)))) - (if _%$e95115%_ - (__system-class _%$e95115%_) + (##vector-ref __subtype-id _%st96241%_)))) + (if _%$e96247%_ + (__system-class _%$e96247%_) (error '"unknown class" 'subtype: - _%st95109%_ + _%st96241%_ 'object: - _%obj95102%_)))))) - (if (fx= _%t95106%_ (macro-type-mem2)) + _%obj96234%_)))))) + (if (fx= _%t96238%_ (macro-type-mem2)) (__system-class 'pair) - (if (fx= _%t95106%_ (macro-type-fixnum)) + (if (fx= _%t96238%_ (macro-type-fixnum)) (__system-class 'fixnum) - (if (char? _%obj95102%_) + (if (char? _%obj96234%_) (__system-class 'char) - (if (eq? _%obj95102%_ '()) + (if (eq? _%obj96234%_ '()) (__system-class 'null) - (if (eq? _%obj95102%_ '#f) + (if (eq? _%obj96234%_ '#f) (__system-class 'boolean) - (if (eq? _%obj95102%_ '#t) + (if (eq? _%obj96234%_ '#t) (__system-class 'boolean) - (if (eq? _%obj95102%_ '#!void) + (if (eq? _%obj96234%_ '#!void) (__system-class 'void) - (if (eq? _%obj95102%_ '#!eof) + (if (eq? _%obj96234%_ '#!eof) (__system-class 'eof) (__system-class 'special)))))))))))))) @@ -5181,25 +5159,25 @@ (define __system-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define __system-class - (lambda (_%id95096%_) - (let ((_%$e95098%_ + (lambda (_%id96228%_) + (let ((_%$e96230%_ (let () (declare (not safe)) - (symbolic-table-ref __system-classes _%id95096%_ '#f)))) - (if _%$e95098%_ - _%$e95098%_ - (error '"unknown system class" _%id95096%_))))) + (symbolic-table-ref __system-classes _%id96228%_ '#f)))) + (if _%$e96230%_ + _%$e96230%_ + (error '"unknown system class" _%id96228%_))))) (define __make-system-class - (lambda (_%id95091%_ _%super95092%_) - (let ((_%klass95094%_ + (lambda (_%id96223%_ _%super96224%_) + (let ((_%klass96226%_ (make-class-type - _%id95091%_ - _%id95091%_ - _%super95092%_ + _%id96223%_ + _%id96223%_ + _%super96224%_ '() '((system: . #t)) '#f))) (let () (declare (not safe)) - (symbolic-table-set! __system-classes _%id95091%_ _%klass95094%_)) - _%klass95094%_))))) + (symbolic-table-set! __system-classes _%id96223%_ _%klass96226%_)) + _%klass96226%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop~1.scm b/src/bootstrap/gerbil/runtime/mop~1.scm index aa55cc847..005a87511 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 (_%$stx93676%_) - (let* ((_%__stx100180100181%_ _%$stx93676%_) - (_%g9368193710%_ + (lambda (_%$stx94808%_) + (let* ((_%__stx101312101313%_ _%$stx94808%_) + (_%g9481394842%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx100180100181%_)))) - (let ((_%__kont100183100184%_ - (lambda (_%L93803%_ _%L93805%_) + _%__stx101312101313%_)))) + (let ((_%__kont101315101316%_ + (lambda (_%L94935%_ _%L94937%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L93805%_ (cons _%L93803%_ '()))) - (cons _%L93803%_ '()))))) - (_%__kont100185100186%_ - (lambda (_%L93747%_ _%L93749%_) + (cons _%L94937%_ (cons _%L94935%_ '()))) + (cons _%L94935%_ '()))))) + (_%__kont101317101318%_ + (lambda (_%L94879%_ _%L94881%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L93747%_ (cons _%L93747%_ '())) + (cons (cons _%L94879%_ (cons _%L94879%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L93749%_ - (cons _%L93747%_ + (cons _%L94881%_ + (cons _%L94879%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L93747%_ '()))) + (cons _%L94879%_ '()))) '())))))) - (let ((_%__match100207100208%_ - (lambda (_%e9368593773%_ - _%hd9368693777%_ - _%tl9368793780%_ - _%e9368893783%_ - _%hd9368993787%_ - _%tl9369093790%_ - _%e9369193793%_ - _%hd9369293797%_ - _%tl9369393800%_) - (let ((_%L93803%_ _%hd9369293797%_) - (_%L93805%_ _%hd9368993787%_)) - (if (or (gx#identifier? _%L93803%_) - (gx#stx-fixnum? _%L93803%_)) - (_%__kont100183100184%_ _%L93803%_ _%L93805%_) - (_%__kont100185100186%_ - _%hd9369293797%_ - _%hd9368993787%_)))))) - (if (gx#stx-pair? _%__stx100180100181%_) - (let ((_%e9368593773%_ (gx#syntax-e _%__stx100180100181%_))) - (let ((_%tl9368793780%_ - (let () (declare (not safe)) (##cdr _%e9368593773%_))) - (_%hd9368693777%_ + (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 () (declare (not safe)) - (##car _%e9368593773%_)))) - (if (gx#stx-pair? _%tl9368793780%_) - (let ((_%e9368893783%_ (gx#syntax-e _%tl9368793780%_))) - (let ((_%tl9369093790%_ + (##car _%e9481794905%_)))) + (if (gx#stx-pair? _%tl9481994912%_) + (let ((_%e9482094915%_ (gx#syntax-e _%tl9481994912%_))) + (let ((_%tl9482294922%_ (let () (declare (not safe)) - (##cdr _%e9368893783%_))) - (_%hd9368993787%_ + (##cdr _%e9482094915%_))) + (_%hd9482194919%_ (let () (declare (not safe)) - (##car _%e9368893783%_)))) - (if (gx#stx-pair? _%tl9369093790%_) - (let ((_%e9369193793%_ - (gx#syntax-e _%tl9369093790%_))) - (let ((_%tl9369393800%_ + (##car _%e9482094915%_)))) + (if (gx#stx-pair? _%tl9482294922%_) + (let ((_%e9482394925%_ + (gx#syntax-e _%tl9482294922%_))) + (let ((_%tl9482594932%_ (let () (declare (not safe)) - (##cdr _%e9369193793%_))) - (_%hd9369293797%_ + (##cdr _%e9482394925%_))) + (_%hd9482494929%_ (let () (declare (not safe)) - (##car _%e9369193793%_)))) - (if (gx#stx-null? _%tl9369393800%_) - (_%__match100207100208%_ - _%e9368593773%_ - _%hd9368693777%_ - _%tl9368793780%_ - _%e9368893783%_ - _%hd9368993787%_ - _%tl9369093790%_ - _%e9369193793%_ - _%hd9369293797%_ - _%tl9369393800%_) + (##car _%e9482394925%_)))) + (if (gx#stx-null? _%tl9482594932%_) + (_%__match101339101340%_ + _%e9481794905%_ + _%hd9481894909%_ + _%tl9481994912%_ + _%e9482094915%_ + _%hd9482194919%_ + _%tl9482294922%_ + _%e9482394925%_ + _%hd9482494929%_ + _%tl9482594932%_) (let () (declare (not safe)) - (_%g9368193710%_))))) + (_%g9481394842%_))))) (let () (declare (not safe)) - (_%g9368193710%_))))) - (let () (declare (not safe)) (_%g9368193710%_))))) - (let () (declare (not safe)) (_%g9368193710%_)))))))) + (_%g9481394842%_))))) + (let () (declare (not safe)) (_%g9481394842%_))))) + (let () (declare (not safe)) (_%g9481394842%_)))))))) (define |[:0:]#fxflag-unset?| - (lambda (_%$stx93828%_) - (let* ((_%__stx100230100231%_ _%$stx93828%_) - (_%g9383393862%_ + (lambda (_%$stx94960%_) + (let* ((_%__stx101362101363%_ _%$stx94960%_) + (_%g9496594994%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx100230100231%_)))) - (let ((_%__kont100233100234%_ - (lambda (_%L93954%_ _%L93956%_) + _%__stx101362101363%_)))) + (let ((_%__kont101365101366%_ + (lambda (_%L95086%_ _%L95088%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L93956%_ (cons _%L93954%_ '()))) + (cons _%L95088%_ (cons _%L95086%_ '()))) (cons '0 '()))))) - (_%__kont100235100236%_ - (lambda (_%L93899%_ _%L93901%_) + (_%__kont101367101368%_ + (lambda (_%L95031%_ _%L95033%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L93899%_ (cons _%L93899%_ '())) + (cons (cons _%L95031%_ (cons _%L95031%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L93901%_ - (cons _%L93899%_ + (cons _%L95033%_ + (cons _%L95031%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '0 '()))) '())))))) - (let ((_%__match100257100258%_ - (lambda (_%e9383793924%_ - _%hd9383893928%_ - _%tl9383993931%_ - _%e9384093934%_ - _%hd9384193938%_ - _%tl9384293941%_ - _%e9384393944%_ - _%hd9384493948%_ - _%tl9384593951%_) - (let ((_%L93954%_ _%hd9384493948%_) - (_%L93956%_ _%hd9384193938%_)) - (if (or (gx#identifier? _%L93954%_) - (gx#stx-fixnum? _%L93954%_)) - (_%__kont100233100234%_ _%L93954%_ _%L93956%_) - (_%__kont100235100236%_ - _%hd9384493948%_ - _%hd9384193938%_)))))) - (if (gx#stx-pair? _%__stx100230100231%_) - (let ((_%e9383793924%_ (gx#syntax-e _%__stx100230100231%_))) - (let ((_%tl9383993931%_ - (let () (declare (not safe)) (##cdr _%e9383793924%_))) - (_%hd9383893928%_ + (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 () (declare (not safe)) - (##car _%e9383793924%_)))) - (if (gx#stx-pair? _%tl9383993931%_) - (let ((_%e9384093934%_ (gx#syntax-e _%tl9383993931%_))) - (let ((_%tl9384293941%_ + (##car _%e9496995056%_)))) + (if (gx#stx-pair? _%tl9497195063%_) + (let ((_%e9497295066%_ (gx#syntax-e _%tl9497195063%_))) + (let ((_%tl9497495073%_ (let () (declare (not safe)) - (##cdr _%e9384093934%_))) - (_%hd9384193938%_ + (##cdr _%e9497295066%_))) + (_%hd9497395070%_ (let () (declare (not safe)) - (##car _%e9384093934%_)))) - (if (gx#stx-pair? _%tl9384293941%_) - (let ((_%e9384393944%_ - (gx#syntax-e _%tl9384293941%_))) - (let ((_%tl9384593951%_ + (##car _%e9497295066%_)))) + (if (gx#stx-pair? _%tl9497495073%_) + (let ((_%e9497595076%_ + (gx#syntax-e _%tl9497495073%_))) + (let ((_%tl9497795083%_ (let () (declare (not safe)) - (##cdr _%e9384393944%_))) - (_%hd9384493948%_ + (##cdr _%e9497595076%_))) + (_%hd9497695080%_ (let () (declare (not safe)) - (##car _%e9384393944%_)))) - (if (gx#stx-null? _%tl9384593951%_) - (_%__match100257100258%_ - _%e9383793924%_ - _%hd9383893928%_ - _%tl9383993931%_ - _%e9384093934%_ - _%hd9384193938%_ - _%tl9384293941%_ - _%e9384393944%_ - _%hd9384493948%_ - _%tl9384593951%_) + (##car _%e9497595076%_)))) + (if (gx#stx-null? _%tl9497795083%_) + (_%__match101389101390%_ + _%e9496995056%_ + _%hd9497095060%_ + _%tl9497195063%_ + _%e9497295066%_ + _%hd9497395070%_ + _%tl9497495073%_ + _%e9497595076%_ + _%hd9497695080%_ + _%tl9497795083%_) (let () (declare (not safe)) - (_%g9383393862%_))))) + (_%g9496594994%_))))) (let () (declare (not safe)) - (_%g9383393862%_))))) - (let () (declare (not safe)) (_%g9383393862%_))))) - (let () (declare (not safe)) (_%g9383393862%_)))))))) + (_%g9496594994%_))))) + (let () (declare (not safe)) (_%g9496594994%_))))) + (let () (declare (not safe)) (_%g9496594994%_)))))))) (define |[:0:]#defrefset| - (lambda (_%stx93979%_) - (let* ((_%g9398294003%_ - (lambda (_%g9398393999%_) + (lambda (_%stx95111%_) + (let* ((_%g9511495135%_ + (lambda (_%g9511595131%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9398393999%_))) - (_%g9398194231%_ - (lambda (_%g9398394007%_) - (if (gx#stx-pair? _%g9398394007%_) - (let ((_%e9398694010%_ (gx#syntax-e _%g9398394007%_))) - (let ((_%hd9398794014%_ + _%g9511595131%_))) + (_%g9511395363%_ + (lambda (_%g9511595139%_) + (if (gx#stx-pair? _%g9511595139%_) + (let ((_%e9511895142%_ (gx#syntax-e _%g9511595139%_))) + (let ((_%hd9511995146%_ (let () (declare (not safe)) - (##car _%e9398694010%_))) - (_%tl9398894017%_ + (##car _%e9511895142%_))) + (_%tl9512095149%_ (let () (declare (not safe)) - (##cdr _%e9398694010%_)))) - (if (gx#stx-pair? _%tl9398894017%_) - (let ((_%e9398994020%_ - (gx#syntax-e _%tl9398894017%_))) - (let ((_%hd9399094024%_ + (##cdr _%e9511895142%_)))) + (if (gx#stx-pair? _%tl9512095149%_) + (let ((_%e9512195152%_ + (gx#syntax-e _%tl9512095149%_))) + (let ((_%hd9512295156%_ (let () (declare (not safe)) - (##car _%e9398994020%_))) - (_%tl9399194027%_ + (##car _%e9512195152%_))) + (_%tl9512395159%_ (let () (declare (not safe)) - (##cdr _%e9398994020%_)))) - (if (gx#stx-pair? _%hd9399094024%_) - (let ((_%e9399294030%_ - (gx#syntax-e _%hd9399094024%_))) - (let ((_%hd9399394034%_ + (##cdr _%e9512195152%_)))) + (if (gx#stx-pair? _%hd9512295156%_) + (let ((_%e9512495162%_ + (gx#syntax-e _%hd9512295156%_))) + (let ((_%hd9512595166%_ (let () (declare (not safe)) - (##car _%e9399294030%_))) - (_%tl9399494037%_ + (##car _%e9512495162%_))) + (_%tl9512695169%_ (let () (declare (not safe)) - (##cdr _%e9399294030%_)))) - (if (gx#stx-pair? _%tl9399494037%_) - (let ((_%e9399594040%_ + (##cdr _%e9512495162%_)))) + (if (gx#stx-pair? _%tl9512695169%_) + (let ((_%e9512795172%_ (gx#syntax-e - _%tl9399494037%_))) - (let ((_%hd9399694044%_ + _%tl9512695169%_))) + (let ((_%hd9512895176%_ (let () (declare (not safe)) - (##car _%e9399594040%_))) - (_%tl9399794047%_ + (##car _%e9512795172%_))) + (_%tl9512995179%_ (let () (declare (not safe)) - (##cdr _%e9399594040%_)))) + (##cdr _%e9512795172%_)))) (if (gx#stx-null? - _%tl9399794047%_) + _%tl9512995179%_) (if (gx#stx-null? - _%tl9399194027%_) - ((lambda (_%L94050%_ + _%tl9512395159%_) + ((lambda (_%L95182%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L94052%_) - (let* ((_%g9407094078%_ - (lambda (_%g9407194074%_) + _%L95184%_) + (let* ((_%g9520295210%_ + (lambda (_%g9520395206%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9407194074%_))) - (_%g9406994227%_ - (lambda (_%g9407194082%_) - ((lambda (_%L94085%_) - (let* ((_%g9409794105%_ - (lambda (_%g9409894101%_) + _%g9520395206%_))) + (_%g9520195359%_ + (lambda (_%g9520395214%_) + ((lambda (_%L95217%_) + (let* ((_%g9522995237%_ + (lambda (_%g9523095233%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9409894101%_))) - (_%g9409694223%_ - (lambda (_%g9409894109%_) - ((lambda (_%L94112%_) - (let* ((_%g9412594133%_ - (lambda (_%g9412694129%_) + _%g9523095233%_))) + (_%g9522895355%_ + (lambda (_%g9523095241%_) + ((lambda (_%L95244%_) + (let* ((_%g9525795265%_ + (lambda (_%g9525895261%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9412694129%_))) - (_%g9412494219%_ - (lambda (_%g9412694137%_) - ((lambda (_%L94140%_) - (let* ((_%g9415394161%_ + _%g9525895261%_))) + (_%g9525695351%_ + (lambda (_%g9525895269%_) + ((lambda (_%L95272%_) + (let* ((_%g9528595293%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g9415494157%_) + (lambda (_%g9528695289%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9415494157%_))) - (_%g9415294215%_ - (lambda (_%g9415494165%_) - ((lambda (_%L94168%_) - (let* ((_%g9418194189%_ - (lambda (_%g9418294185%_) + _%g9528695289%_))) + (_%g9528495347%_ + (lambda (_%g9528695297%_) + ((lambda (_%L95300%_) + (let* ((_%g9531395321%_ + (lambda (_%g9531495317%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9418294185%_))) - (_%g9418094211%_ - (lambda (_%g9418294193%_) - ((lambda (_%L94196%_) + _%g9531495317%_))) + (_%g9531295343%_ + (lambda (_%g9531495325%_) + ((lambda (_%L95328%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L94112%_ + (cons _%L95244%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f @@ -311,8 +311,8 @@ (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L94085%_ - (cons _%L94052%_ + (cons _%L95217%_ + (cons _%L95184%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) @@ -327,7 +327,7 @@ '()) (cons (cons (gx#datum->syntax '#f '##structure-ref) (cons (gx#datum->syntax '#f 'klass) - (cons _%L94050%_ + (cons _%L95182%_ (cons (gx#datum->syntax '#f 'class::t) @@ -335,7 +335,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L94052%_ '())) + (cons _%L95184%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -343,15 +343,15 @@ '()))) '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L94140%_ + (cons _%L95272%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L94085%_ - (cons _%L94052%_ + (cons _%L95217%_ + (cons _%L95184%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -364,7 +364,7 @@ '#f '##unchecked-structure-ref) (cons (gx#datum->syntax '#f 'klass) - (cons _%L94050%_ + (cons _%L95182%_ (cons (gx#datum->syntax '#f 'class::t) @@ -372,7 +372,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L94052%_ '())) + (cons _%L95184%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -380,7 +380,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L94168%_ + (cons _%L95300%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -388,7 +388,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L94085%_ (cons _%L94052%_ (cons '#t '())))) + (cons _%L95217%_ (cons _%L95184%_ (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 _%L94050%_ + (cons _%L95182%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'class::t) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L94052%_ '())) + (cons _%L95184%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -414,7 +414,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L94196%_ + (cons _%L95328%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -422,8 +422,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L94085%_ - (cons _%L94052%_ (cons '#f '())))) + (cons _%L95217%_ + (cons _%L95184%_ (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 _%L94050%_ + (cons _%L95182%_ (cons (gx#datum->syntax '#f 'class::t) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L94052%_ '())) + (cons _%L95184%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -452,270 +452,270 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9418294193%_)))) - (_%g9418094211%_ + _%g9531495325%_)))) + (_%g9531295343%_ (gx#stx-identifier - _%L94052%_ + _%L95184%_ '"&" - _%L94168%_)))) - _%g9415494165%_)))) - (_%g9415294215%_ - (gx#stx-identifier _%L94052%_ _%L94112%_ '"-set!")))) - _%g9412694137%_)))) + _%L95300%_)))) + _%g9528695297%_)))) + (_%g9528495347%_ + (gx#stx-identifier _%L95184%_ _%L95244%_ '"-set!")))) + _%g9525895269%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9412494219%_ + (_%g9525695351%_ (gx#stx-identifier - _%L94052%_ + _%L95184%_ '"&" - _%L94112%_)))) - _%g9409894109%_)))) - (_%g9409694223%_ + _%L95244%_)))) + _%g9523095241%_)))) + (_%g9522895355%_ (gx#stx-identifier - _%L94052%_ + _%L95184%_ '"class-type-" - _%L94052%_)))) - _%g9407194082%_)))) - (_%g9406994227%_ (gx#core-quote-syntax 'class::t)))) - _%hd9399694044%_ - _%hd9399394034%_) - (_%g9398294003%_ _%g9398394007%_)) + _%L95184%_)))) + _%g9520395214%_)))) + (_%g9520195359%_ (gx#core-quote-syntax 'class::t)))) + _%hd9512895176%_ + _%hd9512595166%_) + (_%g9511495135%_ _%g9511595139%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9398294003%_ - _%g9398394007%_)))) - (_%g9398294003%_ - _%g9398394007%_)))) - (_%g9398294003%_ _%g9398394007%_)))) - (_%g9398294003%_ _%g9398394007%_)))) - (_%g9398294003%_ _%g9398394007%_))))) - (_%g9398194231%_ _%stx93979%_)))) + (_%g9511495135%_ + _%g9511595139%_)))) + (_%g9511495135%_ + _%g9511595139%_)))) + (_%g9511495135%_ _%g9511595139%_)))) + (_%g9511495135%_ _%g9511595139%_)))) + (_%g9511495135%_ _%g9511595139%_))))) + (_%g9511395363%_ _%stx95111%_)))) (define |[:0:]#defrefset*| - (lambda (_%$stx94235%_) - (let* ((_%g9423994268%_ - (lambda (_%g9424094264%_) + (lambda (_%$stx95367%_) + (let* ((_%g9537195400%_ + (lambda (_%g9537295396%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9424094264%_))) - (_%g9423894368%_ - (lambda (_%g9424094272%_) - (if (gx#stx-pair? _%g9424094272%_) - (let ((_%e9424394275%_ (gx#syntax-e _%g9424094272%_))) - (let ((_%hd9424494279%_ + _%g9537295396%_))) + (_%g9537095500%_ + (lambda (_%g9537295404%_) + (if (gx#stx-pair? _%g9537295404%_) + (let ((_%e9537595407%_ (gx#syntax-e _%g9537295404%_))) + (let ((_%hd9537695411%_ (let () (declare (not safe)) - (##car _%e9424394275%_))) - (_%tl9424594282%_ + (##car _%e9537595407%_))) + (_%tl9537795414%_ (let () (declare (not safe)) - (##cdr _%e9424394275%_)))) - (if (gx#stx-pair/null? _%tl9424594282%_) - (let ((_g100470_ + (##cdr _%e9537595407%_)))) + (if (gx#stx-pair/null? _%tl9537795414%_) + (let ((_g101602_ (gx#syntax-split-splice - _%tl9424594282%_ + _%tl9537795414%_ '0))) (begin - (let ((_g100471_ + (let ((_g101603_ (let () (declare (not safe)) - (if (##values? _g100470_) - (##vector-length _g100470_) + (if (##values? _g101602_) + (##vector-length _g101602_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g100471_ 2))) + (##fx= _g101603_ 2))) (error "Context expects 2 values" - _g100471_))) - (let ((_%target9424694285%_ + _g101603_))) + (let ((_%target9537895417%_ (let () (declare (not safe)) - (##vector-ref _g100470_ 0))) - (_%tl9424894288%_ + (##vector-ref _g101602_ 0))) + (_%tl9538095420%_ (let () (declare (not safe)) - (##vector-ref _g100470_ 1)))) - (if (gx#stx-null? _%tl9424894288%_) - (letrec ((_%loop9424994291%_ - (lambda (_%hd9424794295%_ - _%field9425394298%_ - _%slot9425494300%_) + (##vector-ref _g101602_ 1)))) + (if (gx#stx-null? _%tl9538095420%_) + (letrec ((_%loop9538195423%_ + (lambda (_%hd9537995427%_ + _%field9538595430%_ + _%slot9538695432%_) (if (gx#stx-pair? - _%hd9424794295%_) - (let ((_%e9425094303%_ + _%hd9537995427%_) + (let ((_%e9538295435%_ (gx#syntax-e - _%hd9424794295%_))) - (let ((_%lp-hd9425194307%_ + _%hd9537995427%_))) + (let ((_%lp-hd9538395439%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9425094303%_))) - (_%lp-tl9425294310%_ - (let () (declare (not safe)) (##cdr _%e9425094303%_)))) - (if (gx#stx-pair? _%lp-hd9425194307%_) - (let ((_%e9425794313%_ - (gx#syntax-e _%lp-hd9425194307%_))) - (let ((_%hd9425894317%_ + (##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%_ (let () (declare (not safe)) - (##car _%e9425794313%_))) - (_%tl9425994320%_ + (##car _%e9538995445%_))) + (_%tl9539195452%_ (let () (declare (not safe)) - (##cdr _%e9425794313%_)))) - (if (gx#stx-pair? _%tl9425994320%_) - (let ((_%e9426094323%_ - (gx#syntax-e _%tl9425994320%_))) - (let ((_%hd9426194327%_ + (##cdr _%e9538995445%_)))) + (if (gx#stx-pair? _%tl9539195452%_) + (let ((_%e9539295455%_ + (gx#syntax-e _%tl9539195452%_))) + (let ((_%hd9539395459%_ (let () (declare (not safe)) - (##car _%e9426094323%_))) - (_%tl9426294330%_ + (##car _%e9539295455%_))) + (_%tl9539495462%_ (let () (declare (not safe)) - (##cdr _%e9426094323%_)))) - (if (gx#stx-null? _%tl9426294330%_) - (_%loop9424994291%_ - _%lp-tl9425294310%_ - (cons _%hd9426194327%_ - _%field9425394298%_) - (cons _%hd9425894317%_ - _%slot9425494300%_)) - (_%g9423994268%_ _%g9424094272%_)))) - (_%g9423994268%_ _%g9424094272%_)))) - (_%g9423994268%_ _%g9424094272%_)))) - (let ((_%field9425594333%_ (reverse _%field9425394298%_)) - (_%slot9425694336%_ (reverse _%slot9425494300%_))) - ((lambda (_%L94339%_ _%L94341%_) + (##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%_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _%L94339%_ - _%L94341%_) - (let ((__tmp100472 - (lambda (_%g9435694360%_ - _%g9435794363%_ - _%g9435894365%_) + _%L95471%_ + _%L95473%_) + (let ((__tmp101604 + (lambda (_%g9548895492%_ + _%g9548995495%_ + _%g9549095497%_) (cons (cons (gx#datum->syntax '#f 'defrefset) - (cons (cons _%g9435794363%_ - (cons _%g9435694360%_ + (cons (cons _%g9548995495%_ + (cons _%g9548895492%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9435894365%_)))) + _%g9549095497%_)))) (declare (not safe)) (__foldr2 - __tmp100472 + __tmp101604 '() - _%L94339%_ - _%L94341%_))))) - _%field9425594333%_ - _%slot9425694336%_)))))) + _%L95471%_ + _%L95473%_))))) + _%field9538795465%_ + _%slot9538895468%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9424994291%_ - _%target9424694285%_ + (_%loop9538195423%_ + _%target9537895417%_ '() '())) - (_%g9423994268%_ _%g9424094272%_))))) - (_%g9423994268%_ _%g9424094272%_)))) - (_%g9423994268%_ _%g9424094272%_))))) - (_%g9423894368%_ _%$stx94235%_)))) + (_%g9537195400%_ _%g9537295404%_))))) + (_%g9537195400%_ _%g9537295404%_)))) + (_%g9537195400%_ _%g9537295404%_))))) + (_%g9537095500%_ _%$stx95367%_)))) (define |[:0:]#if-class-slot-field| - (lambda (_%$stx94373%_) - (let* ((_%g9437794411%_ - (lambda (_%g9437894407%_) + (lambda (_%$stx95505%_) + (let* ((_%g9550995543%_ + (lambda (_%g9551095539%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9437894407%_))) - (_%g9437694522%_ - (lambda (_%g9437894415%_) - (if (gx#stx-pair? _%g9437894415%_) - (let ((_%e9438594418%_ (gx#syntax-e _%g9437894415%_))) - (let ((_%hd9438694422%_ + _%g9551095539%_))) + (_%g9550895654%_ + (lambda (_%g9551095547%_) + (if (gx#stx-pair? _%g9551095547%_) + (let ((_%e9551795550%_ (gx#syntax-e _%g9551095547%_))) + (let ((_%hd9551895554%_ (let () (declare (not safe)) - (##car _%e9438594418%_))) - (_%tl9438794425%_ + (##car _%e9551795550%_))) + (_%tl9551995557%_ (let () (declare (not safe)) - (##cdr _%e9438594418%_)))) - (if (gx#stx-pair? _%tl9438794425%_) - (let ((_%e9438894428%_ - (gx#syntax-e _%tl9438794425%_))) - (let ((_%hd9438994432%_ + (##cdr _%e9551795550%_)))) + (if (gx#stx-pair? _%tl9551995557%_) + (let ((_%e9552095560%_ + (gx#syntax-e _%tl9551995557%_))) + (let ((_%hd9552195564%_ (let () (declare (not safe)) - (##car _%e9438894428%_))) - (_%tl9439094435%_ + (##car _%e9552095560%_))) + (_%tl9552295567%_ (let () (declare (not safe)) - (##cdr _%e9438894428%_)))) - (if (gx#stx-pair? _%tl9439094435%_) - (let ((_%e9439194438%_ - (gx#syntax-e _%tl9439094435%_))) - (let ((_%hd9439294442%_ + (##cdr _%e9552095560%_)))) + (if (gx#stx-pair? _%tl9552295567%_) + (let ((_%e9552395570%_ + (gx#syntax-e _%tl9552295567%_))) + (let ((_%hd9552495574%_ (let () (declare (not safe)) - (##car _%e9439194438%_))) - (_%tl9439394445%_ + (##car _%e9552395570%_))) + (_%tl9552595577%_ (let () (declare (not safe)) - (##cdr _%e9439194438%_)))) - (if (gx#stx-pair? _%tl9439394445%_) - (let ((_%e9439494448%_ + (##cdr _%e9552395570%_)))) + (if (gx#stx-pair? _%tl9552595577%_) + (let ((_%e9552695580%_ (gx#syntax-e - _%tl9439394445%_))) - (let ((_%hd9439594452%_ + _%tl9552595577%_))) + (let ((_%hd9552795584%_ (let () (declare (not safe)) - (##car _%e9439494448%_))) - (_%tl9439694455%_ + (##car _%e9552695580%_))) + (_%tl9552895587%_ (let () (declare (not safe)) - (##cdr _%e9439494448%_)))) + (##cdr _%e9552695580%_)))) (if (gx#stx-pair? - _%tl9439694455%_) - (let ((_%e9439794458%_ + _%tl9552895587%_) + (let ((_%e9552995590%_ (gx#syntax-e - _%tl9439694455%_))) - (let ((_%hd9439894462%_ + _%tl9552895587%_))) + (let ((_%hd9553095594%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9439794458%_))) - (_%tl9439994465%_ - (let () (declare (not safe)) (##cdr _%e9439794458%_)))) - (if (gx#stx-pair? _%tl9439994465%_) - (let ((_%e9440094468%_ (gx#syntax-e _%tl9439994465%_))) - (let ((_%hd9440194472%_ + (##car _%e9552995590%_))) + (_%tl9553195597%_ + (let () (declare (not safe)) (##cdr _%e9552995590%_)))) + (if (gx#stx-pair? _%tl9553195597%_) + (let ((_%e9553295600%_ (gx#syntax-e _%tl9553195597%_))) + (let ((_%hd9553395604%_ (let () (declare (not safe)) - (##car _%e9440094468%_))) - (_%tl9440294475%_ + (##car _%e9553295600%_))) + (_%tl9553495607%_ (let () (declare (not safe)) - (##cdr _%e9440094468%_)))) - (if (gx#stx-pair? _%tl9440294475%_) - (let ((_%e9440394478%_ - (gx#syntax-e _%tl9440294475%_))) - (let ((_%hd9440494482%_ + (##cdr _%e9553295600%_)))) + (if (gx#stx-pair? _%tl9553495607%_) + (let ((_%e9553595610%_ + (gx#syntax-e _%tl9553495607%_))) + (let ((_%hd9553695614%_ (let () (declare (not safe)) - (##car _%e9440394478%_))) - (_%tl9440594485%_ + (##car _%e9553595610%_))) + (_%tl9553795617%_ (let () (declare (not safe)) - (##cdr _%e9440394478%_)))) - (if (gx#stx-null? _%tl9440594485%_) - ((lambda (_%L94488%_ - _%L94490%_ - _%L94491%_ - _%L94492%_ - _%L94493%_ - _%L94494%_) + (##cdr _%e9553595610%_)))) + (if (gx#stx-null? _%tl9553795617%_) + ((lambda (_%L95620%_ + _%L95622%_ + _%L95623%_ + _%L95624%_ + _%L95625%_ + _%L95626%_) (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 _%L94494%_ '())) - (cons _%L94493%_ (cons '#f '())))) + (cons _%L95626%_ '())) + (cons _%L95625%_ (cons '#f '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -747,18 +747,18 @@ (cons '"unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'class: - (cons _%L94494%_ - (cons 'slot: (cons _%L94493%_ '())))))) + (cons _%L95626%_ + (cons 'slot: (cons _%L95625%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) (cons (cons (cons (gx#datum->syntax '#f 'class-type-final?) - (cons _%L94494%_ '())) - (cons (cons _%L94492%_ - (cons _%L94494%_ - (cons _%L94493%_ + (cons _%L95626%_ '())) + (cons (cons _%L95624%_ + (cons _%L95626%_ + (cons _%L95625%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -766,11 +766,11 @@ (cons (cons (cons (gx#datum->syntax '#f 'class-type-struct?) - (cons _%L94494%_ '())) - (cons (cons _%L94491%_ - (cons _%L94494%_ + (cons _%L95626%_ '())) + (cons (cons _%L95623%_ + (cons _%L95626%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L94493%_ + (cons _%L95625%_ (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -784,7 +784,7 @@ (cons (cons (gx#datum->syntax '#f 'base-struct/1) - (cons _%L94494%_ '())) + (cons _%L95626%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax @@ -817,10 +817,10 @@ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L94490%_ + (cons (cons _%L95622%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L94494%_ - (cons _%L94493%_ + (cons _%L95626%_ + (cons _%L95625%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -828,10 +828,10 @@ (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L94488%_ + (cons (cons _%L95620%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L94494%_ - (cons _%L94493%_ + (cons _%L95626%_ + (cons _%L95625%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -839,99 +839,99 @@ '())))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9440494482%_ - _%hd9440194472%_ - _%hd9439894462%_ - _%hd9439594452%_ - _%hd9439294442%_ - _%hd9438994432%_) - (_%g9437794411%_ _%g9437894415%_)))) - (_%g9437794411%_ _%g9437894415%_)))) - (_%g9437794411%_ _%g9437894415%_)))) + _%hd9553695614%_ + _%hd9553395604%_ + _%hd9553095594%_ + _%hd9552795584%_ + _%hd9552495574%_ + _%hd9552195564%_) + (_%g9550995543%_ _%g9551095547%_)))) + (_%g9550995543%_ _%g9551095547%_)))) + (_%g9550995543%_ _%g9551095547%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9437794411%_ - _%g9437894415%_)))) - (_%g9437794411%_ - _%g9437894415%_)))) - (_%g9437794411%_ _%g9437894415%_)))) - (_%g9437794411%_ _%g9437894415%_)))) - (_%g9437794411%_ _%g9437894415%_))))) - (_%g9437694522%_ _%$stx94373%_)))) + (_%g9550995543%_ + _%g9551095547%_)))) + (_%g9550995543%_ + _%g9551095547%_)))) + (_%g9550995543%_ _%g9551095547%_)))) + (_%g9550995543%_ _%g9551095547%_)))) + (_%g9550995543%_ _%g9551095547%_))))) + (_%g9550895654%_ _%$stx95505%_)))) (define |[:0:]#__slot-e| - (lambda (_%$stx94526%_) - (let* ((_%g9453094556%_ - (lambda (_%g9453194552%_) + (lambda (_%$stx95658%_) + (let* ((_%g9566295688%_ + (lambda (_%g9566395684%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9453194552%_))) - (_%g9452994639%_ - (lambda (_%g9453194560%_) - (if (gx#stx-pair? _%g9453194560%_) - (let ((_%e9453694563%_ (gx#syntax-e _%g9453194560%_))) - (let ((_%hd9453794567%_ + _%g9566395684%_))) + (_%g9566195771%_ + (lambda (_%g9566395692%_) + (if (gx#stx-pair? _%g9566395692%_) + (let ((_%e9566895695%_ (gx#syntax-e _%g9566395692%_))) + (let ((_%hd9566995699%_ (let () (declare (not safe)) - (##car _%e9453694563%_))) - (_%tl9453894570%_ + (##car _%e9566895695%_))) + (_%tl9567095702%_ (let () (declare (not safe)) - (##cdr _%e9453694563%_)))) - (if (gx#stx-pair? _%tl9453894570%_) - (let ((_%e9453994573%_ - (gx#syntax-e _%tl9453894570%_))) - (let ((_%hd9454094577%_ + (##cdr _%e9566895695%_)))) + (if (gx#stx-pair? _%tl9567095702%_) + (let ((_%e9567195705%_ + (gx#syntax-e _%tl9567095702%_))) + (let ((_%hd9567295709%_ (let () (declare (not safe)) - (##car _%e9453994573%_))) - (_%tl9454194580%_ + (##car _%e9567195705%_))) + (_%tl9567395712%_ (let () (declare (not safe)) - (##cdr _%e9453994573%_)))) - (if (gx#stx-pair? _%tl9454194580%_) - (let ((_%e9454294583%_ - (gx#syntax-e _%tl9454194580%_))) - (let ((_%hd9454394587%_ + (##cdr _%e9567195705%_)))) + (if (gx#stx-pair? _%tl9567395712%_) + (let ((_%e9567495715%_ + (gx#syntax-e _%tl9567395712%_))) + (let ((_%hd9567595719%_ (let () (declare (not safe)) - (##car _%e9454294583%_))) - (_%tl9454494590%_ + (##car _%e9567495715%_))) + (_%tl9567695722%_ (let () (declare (not safe)) - (##cdr _%e9454294583%_)))) - (if (gx#stx-pair? _%tl9454494590%_) - (let ((_%e9454594593%_ + (##cdr _%e9567495715%_)))) + (if (gx#stx-pair? _%tl9567695722%_) + (let ((_%e9567795725%_ (gx#syntax-e - _%tl9454494590%_))) - (let ((_%hd9454694597%_ + _%tl9567695722%_))) + (let ((_%hd9567895729%_ (let () (declare (not safe)) - (##car _%e9454594593%_))) - (_%tl9454794600%_ + (##car _%e9567795725%_))) + (_%tl9567995732%_ (let () (declare (not safe)) - (##cdr _%e9454594593%_)))) + (##cdr _%e9567795725%_)))) (if (gx#stx-pair? - _%tl9454794600%_) - (let ((_%e9454894603%_ + _%tl9567995732%_) + (let ((_%e9568095735%_ (gx#syntax-e - _%tl9454794600%_))) - (let ((_%hd9454994607%_ + _%tl9567995732%_))) + (let ((_%hd9568195739%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9454894603%_))) - (_%tl9455094610%_ - (let () (declare (not safe)) (##cdr _%e9454894603%_)))) - (if (gx#stx-null? _%tl9455094610%_) - ((lambda (_%L94613%_ _%L94615%_ _%L94616%_ _%L94617%_) + (##car _%e9568095735%_))) + (_%tl9568295742%_ + (let () (declare (not safe)) (##cdr _%e9568095735%_)))) + (if (gx#stx-null? _%tl9568295742%_) + ((lambda (_%L95745%_ _%L95747%_ _%L95748%_ _%L95749%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'klass) (cons (cons (gx#datum->syntax '#f 'class-of) - (cons _%L94617%_ '())) + (cons _%L95749%_ '())) '())) (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 _%L94616%_ '()))) - (cons (gx#datum->syntax '#f '=>) (cons _%L94615%_ '()))) + (cons _%L95748%_ '()))) + (cons (gx#datum->syntax '#f '=>) (cons _%L95747%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'else) - (cons (cons _%L94613%_ - (cons _%L94617%_ (cons _%L94616%_ '()))) + (cons (cons _%L95745%_ + (cons _%L95749%_ (cons _%L95748%_ '()))) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd9454994607%_ - _%hd9454694597%_ - _%hd9454394587%_ - _%hd9454094577%_) - (_%g9453094556%_ _%g9453194560%_)))) + _%hd9568195739%_ + _%hd9567895729%_ + _%hd9567595719%_ + _%hd9567295709%_) + (_%g9566295688%_ _%g9566395692%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9453094556%_ - _%g9453194560%_)))) - (_%g9453094556%_ - _%g9453194560%_)))) - (_%g9453094556%_ _%g9453194560%_)))) - (_%g9453094556%_ _%g9453194560%_)))) - (_%g9453094556%_ _%g9453194560%_))))) - (_%g9452994639%_ _%$stx94526%_)))) + (_%g9566295688%_ + _%g9566395692%_)))) + (_%g9566295688%_ + _%g9566395692%_)))) + (_%g9566295688%_ _%g9566395692%_)))) + (_%g9566295688%_ _%g9566395692%_)))) + (_%g9566295688%_ _%g9566395692%_))))) + (_%g9566195771%_ _%$stx95658%_)))) (define |[:0:]#defsubtype| - (lambda (_%$stx94643%_) - (let* ((_%g9464794676%_ - (lambda (_%g9464894672%_) + (lambda (_%$stx95775%_) + (let* ((_%g9577995808%_ + (lambda (_%g9578095804%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9464894672%_))) - (_%g9464694776%_ - (lambda (_%g9464894680%_) - (if (gx#stx-pair? _%g9464894680%_) - (let ((_%e9465194683%_ (gx#syntax-e _%g9464894680%_))) - (let ((_%hd9465294687%_ + _%g9578095804%_))) + (_%g9577895908%_ + (lambda (_%g9578095812%_) + (if (gx#stx-pair? _%g9578095812%_) + (let ((_%e9578395815%_ (gx#syntax-e _%g9578095812%_))) + (let ((_%hd9578495819%_ (let () (declare (not safe)) - (##car _%e9465194683%_))) - (_%tl9465394690%_ + (##car _%e9578395815%_))) + (_%tl9578595822%_ (let () (declare (not safe)) - (##cdr _%e9465194683%_)))) - (if (gx#stx-pair/null? _%tl9465394690%_) - (let ((_g100473_ + (##cdr _%e9578395815%_)))) + (if (gx#stx-pair/null? _%tl9578595822%_) + (let ((_g101605_ (gx#syntax-split-splice - _%tl9465394690%_ + _%tl9578595822%_ '0))) (begin - (let ((_g100474_ + (let ((_g101606_ (let () (declare (not safe)) - (if (##values? _g100473_) - (##vector-length _g100473_) + (if (##values? _g101605_) + (##vector-length _g101605_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g100474_ 2))) + (##fx= _g101606_ 2))) (error "Context expects 2 values" - _g100474_))) - (let ((_%target9465494693%_ + _g101606_))) + (let ((_%target9578695825%_ (let () (declare (not safe)) - (##vector-ref _g100473_ 0))) - (_%tl9465694696%_ + (##vector-ref _g101605_ 0))) + (_%tl9578895828%_ (let () (declare (not safe)) - (##vector-ref _g100473_ 1)))) - (if (gx#stx-null? _%tl9465694696%_) - (letrec ((_%loop9465794699%_ - (lambda (_%hd9465594703%_ - _%name9466194706%_ - _%t9466294708%_) + (##vector-ref _g101605_ 1)))) + (if (gx#stx-null? _%tl9578895828%_) + (letrec ((_%loop9578995831%_ + (lambda (_%hd9578795835%_ + _%name9579395838%_ + _%t9579495840%_) (if (gx#stx-pair? - _%hd9465594703%_) - (let ((_%e9465894711%_ + _%hd9578795835%_) + (let ((_%e9579095843%_ (gx#syntax-e - _%hd9465594703%_))) - (let ((_%lp-hd9465994715%_ + _%hd9578795835%_))) + (let ((_%lp-hd9579195847%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9465894711%_))) - (_%lp-tl9466094718%_ - (let () (declare (not safe)) (##cdr _%e9465894711%_)))) - (if (gx#stx-pair? _%lp-hd9465994715%_) - (let ((_%e9466594721%_ - (gx#syntax-e _%lp-hd9465994715%_))) - (let ((_%hd9466694725%_ + (##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%_ (let () (declare (not safe)) - (##car _%e9466594721%_))) - (_%tl9466794728%_ + (##car _%e9579795853%_))) + (_%tl9579995860%_ (let () (declare (not safe)) - (##cdr _%e9466594721%_)))) - (if (gx#stx-pair? _%tl9466794728%_) - (let ((_%e9466894731%_ - (gx#syntax-e _%tl9466794728%_))) - (let ((_%hd9466994735%_ + (##cdr _%e9579795853%_)))) + (if (gx#stx-pair? _%tl9579995860%_) + (let ((_%e9580095863%_ + (gx#syntax-e _%tl9579995860%_))) + (let ((_%hd9580195867%_ (let () (declare (not safe)) - (##car _%e9466894731%_))) - (_%tl9467094738%_ + (##car _%e9580095863%_))) + (_%tl9580295870%_ (let () (declare (not safe)) - (##cdr _%e9466894731%_)))) - (if (gx#stx-null? _%tl9467094738%_) - (_%loop9465794699%_ - _%lp-tl9466094718%_ - (cons _%hd9466994735%_ - _%name9466194706%_) - (cons _%hd9466694725%_ _%t9466294708%_)) - (_%g9464794676%_ _%g9464894680%_)))) - (_%g9464794676%_ _%g9464894680%_)))) - (_%g9464794676%_ _%g9464894680%_)))) - (let ((_%name9466394741%_ (reverse _%name9466194706%_)) - (_%t9466494744%_ (reverse _%t9466294708%_))) - ((lambda (_%L94747%_ _%L94749%_) + (##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%_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _%L94747%_ - _%L94749%_) - (let ((__tmp100475 - (lambda (_%g9476494768%_ - _%g9476594771%_ - _%g9476694773%_) + _%L95879%_ + _%L95881%_) + (let ((__tmp101607 + (lambda (_%g9589695900%_ + _%g9589795903%_ + _%g9589895905%_) (cons (cons (gx#datum->syntax '#f 'vector-set!) (cons (gx#datum->syntax '#f '__subtype-id) - (cons _%g9476594771%_ + (cons _%g9589795903%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g9476494768%_ '())) + (cons _%g9589695900%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9476694773%_)))) + _%g9589895905%_)))) (declare (not safe)) (__foldr2 - __tmp100475 + __tmp101607 '() - _%L94747%_ - _%L94749%_))))) - _%name9466394741%_ - _%t9466494744%_)))))) + _%L95879%_ + _%L95881%_))))) + _%name9579595873%_ + _%t9579695876%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9465794699%_ - _%target9465494693%_ + (_%loop9578995831%_ + _%target9578695825%_ '() '())) - (_%g9464794676%_ _%g9464894680%_))))) - (_%g9464794676%_ _%g9464894680%_)))) - (_%g9464794676%_ _%g9464894680%_))))) - (_%g9464694776%_ _%$stx94643%_)))) + (_%g9577995808%_ _%g9578095812%_))))) + (_%g9577995808%_ _%g9578095812%_)))) + (_%g9577995808%_ _%g9578095812%_))))) + (_%g9577895908%_ _%$stx95775%_)))) (define |[:0:]#defsystem-class| - (lambda (_%$stx94781%_) - (let* ((_%g9478594816%_ - (lambda (_%g9478694812%_) + (lambda (_%$stx95913%_) + (let* ((_%g9591795948%_ + (lambda (_%g9591895944%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9478694812%_))) - (_%g9478494935%_ - (lambda (_%g9478694820%_) - (if (gx#stx-pair? _%g9478694820%_) - (let ((_%e9479094823%_ (gx#syntax-e _%g9478694820%_))) - (let ((_%hd9479194827%_ + _%g9591895944%_))) + (_%g9591696067%_ + (lambda (_%g9591895952%_) + (if (gx#stx-pair? _%g9591895952%_) + (let ((_%e9592295955%_ (gx#syntax-e _%g9591895952%_))) + (let ((_%hd9592395959%_ (let () (declare (not safe)) - (##car _%e9479094823%_))) - (_%tl9479294830%_ + (##car _%e9592295955%_))) + (_%tl9592495962%_ (let () (declare (not safe)) - (##cdr _%e9479094823%_)))) - (if (gx#stx-pair? _%tl9479294830%_) - (let ((_%e9479394833%_ - (gx#syntax-e _%tl9479294830%_))) - (let ((_%hd9479494837%_ + (##cdr _%e9592295955%_)))) + (if (gx#stx-pair? _%tl9592495962%_) + (let ((_%e9592595965%_ + (gx#syntax-e _%tl9592495962%_))) + (let ((_%hd9592695969%_ (let () (declare (not safe)) - (##car _%e9479394833%_))) - (_%tl9479594840%_ + (##car _%e9592595965%_))) + (_%tl9592795972%_ (let () (declare (not safe)) - (##cdr _%e9479394833%_)))) - (if (gx#stx-pair? _%tl9479594840%_) - (let ((_%e9479694843%_ - (gx#syntax-e _%tl9479594840%_))) - (let ((_%hd9479794847%_ + (##cdr _%e9592595965%_)))) + (if (gx#stx-pair? _%tl9592795972%_) + (let ((_%e9592895975%_ + (gx#syntax-e _%tl9592795972%_))) + (let ((_%hd9592995979%_ (let () (declare (not safe)) - (##car _%e9479694843%_))) - (_%tl9479894850%_ + (##car _%e9592895975%_))) + (_%tl9593095982%_ (let () (declare (not safe)) - (##cdr _%e9479694843%_)))) - (if (gx#stx-pair? _%tl9479894850%_) - (let ((_%e9479994853%_ + (##cdr _%e9592895975%_)))) + (if (gx#stx-pair? _%tl9593095982%_) + (let ((_%e9593195985%_ (gx#syntax-e - _%tl9479894850%_))) - (let ((_%hd9480094857%_ + _%tl9593095982%_))) + (let ((_%hd9593295989%_ (let () (declare (not safe)) - (##car _%e9479994853%_))) - (_%tl9480194860%_ + (##car _%e9593195985%_))) + (_%tl9593395992%_ (let () (declare (not safe)) - (##cdr _%e9479994853%_)))) + (##cdr _%e9593195985%_)))) (if (gx#stx-pair/null? - _%hd9480094857%_) - (let ((_g100476_ + _%hd9593295989%_) + (let ((_g101608_ (gx#syntax-split-splice - _%hd9480094857%_ + _%hd9593295989%_ '0))) (begin - (let ((_g100477_ + (let ((_g101609_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g100476_) - (##vector-length _g100476_) + (if (##values? _g101608_) + (##vector-length _g101608_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g100477_ 2))) - (error "Context expects 2 values" _g100477_))) - (let ((_%target9480294863%_ + (if (not (let () (declare (not safe)) (##fx= _g101609_ 2))) + (error "Context expects 2 values" _g101609_))) + (let ((_%target9593495995%_ (let () (declare (not safe)) - (##vector-ref _g100476_ 0))) - (_%tl9480494866%_ + (##vector-ref _g101608_ 0))) + (_%tl9593695998%_ (let () (declare (not safe)) - (##vector-ref _g100476_ 1)))) - (if (gx#stx-null? _%tl9480494866%_) - (letrec ((_%loop9480594869%_ - (lambda (_%hd9480394873%_ _%super9480994876%_) - (if (gx#stx-pair? _%hd9480394873%_) - (let ((_%e9480694879%_ - (gx#syntax-e _%hd9480394873%_))) - (let ((_%lp-hd9480794883%_ + (##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%_ (let () (declare (not safe)) - (##car _%e9480694879%_))) - (_%lp-tl9480894886%_ + (##car _%e9593896011%_))) + (_%lp-tl9594096018%_ (let () (declare (not safe)) - (##cdr _%e9480694879%_)))) - (_%loop9480594869%_ - _%lp-tl9480894886%_ - (cons _%lp-hd9480794883%_ - _%super9480994876%_)))) - (let ((_%super9481094889%_ - (reverse _%super9480994876%_))) - (if (gx#stx-null? _%tl9480194860%_) - ((lambda (_%L94893%_ - _%L94895%_ - _%L94896%_) + (##cdr _%e9593896011%_)))) + (_%loop9593796001%_ + _%lp-tl9594096018%_ + (cons _%lp-hd9593996015%_ + _%super9594196008%_)))) + (let ((_%super9594296021%_ + (reverse _%super9594196008%_))) + (if (gx#stx-null? _%tl9593395992%_) + ((lambda (_%L96025%_ + _%L96027%_ + _%L96028%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L94896%_ + (cons _%L96028%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L94895%_ - (cons (let ((__tmp100478 - (lambda (_%g9492094923%_ + (cons _%L96027%_ + (cons (let ((__tmp101610 + (lambda (_%g9605296055%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9492194926%_) - (cons _%g9492094923%_ _%g9492194926%_)))) + _%g9605396058%_) + (cons _%g9605296055%_ _%g9605396058%_)))) (declare (not safe)) - (__foldr1 __tmp100478 '() _%L94893%_)) + (__foldr1 __tmp101610 '() _%L96025%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1230,189 +1230,189 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L94895%_ + (cons _%L96027%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp100479 - (lambda (_%g9491894929%_ _%g9491994932%_) - (cons _%g9491894929%_ _%g9491994932%_)))) + (let ((__tmp101611 + (lambda (_%g9605096061%_ _%g9605196064%_) + (cons _%g9605096061%_ _%g9605196064%_)))) (declare (not safe)) - (__foldr1 __tmp100479 '() _%L94893%_))) + (__foldr1 __tmp101611 '() _%L96025%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%super9481094889%_ - _%hd9479794847%_ - _%hd9479494837%_) - (_%g9478594816%_ - _%g9478694820%_))))))) - (_%loop9480594869%_ _%target9480294863%_ '())) - (_%g9478594816%_ _%g9478694820%_))))) + _%super9594296021%_ + _%hd9592995979%_ + _%hd9592695969%_) + (_%g9591795948%_ + _%g9591895952%_))))))) + (_%loop9593796001%_ _%target9593495995%_ '())) + (_%g9591795948%_ _%g9591895952%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9478594816%_ - _%g9478694820%_)))) - (_%g9478594816%_ - _%g9478694820%_)))) - (_%g9478594816%_ _%g9478694820%_)))) - (_%g9478594816%_ _%g9478694820%_)))) - (_%g9478594816%_ _%g9478694820%_))))) - (_%g9478494935%_ _%$stx94781%_)))) + (_%g9591795948%_ + _%g9591895952%_)))) + (_%g9591795948%_ + _%g9591895952%_)))) + (_%g9591795948%_ _%g9591895952%_)))) + (_%g9591795948%_ _%g9591895952%_)))) + (_%g9591795948%_ _%g9591895952%_))))) + (_%g9591696067%_ _%$stx95913%_)))) (define |[:0:]#defshadow-class| - (lambda (_%$stx94940%_) - (let* ((_%g9494494975%_ - (lambda (_%g9494594971%_) + (lambda (_%$stx96072%_) + (let* ((_%g9607696107%_ + (lambda (_%g9607796103%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9494594971%_))) - (_%g9494395086%_ - (lambda (_%g9494594979%_) - (if (gx#stx-pair? _%g9494594979%_) - (let ((_%e9494994982%_ (gx#syntax-e _%g9494594979%_))) - (let ((_%hd9495094986%_ + _%g9607796103%_))) + (_%g9607596218%_ + (lambda (_%g9607796111%_) + (if (gx#stx-pair? _%g9607796111%_) + (let ((_%e9608196114%_ (gx#syntax-e _%g9607796111%_))) + (let ((_%hd9608296118%_ (let () (declare (not safe)) - (##car _%e9494994982%_))) - (_%tl9495194989%_ + (##car _%e9608196114%_))) + (_%tl9608396121%_ (let () (declare (not safe)) - (##cdr _%e9494994982%_)))) - (if (gx#stx-pair? _%tl9495194989%_) - (let ((_%e9495294992%_ - (gx#syntax-e _%tl9495194989%_))) - (let ((_%hd9495394996%_ + (##cdr _%e9608196114%_)))) + (if (gx#stx-pair? _%tl9608396121%_) + (let ((_%e9608496124%_ + (gx#syntax-e _%tl9608396121%_))) + (let ((_%hd9608596128%_ (let () (declare (not safe)) - (##car _%e9495294992%_))) - (_%tl9495494999%_ + (##car _%e9608496124%_))) + (_%tl9608696131%_ (let () (declare (not safe)) - (##cdr _%e9495294992%_)))) - (if (gx#stx-pair? _%tl9495494999%_) - (let ((_%e9495595002%_ - (gx#syntax-e _%tl9495494999%_))) - (let ((_%hd9495695006%_ + (##cdr _%e9608496124%_)))) + (if (gx#stx-pair? _%tl9608696131%_) + (let ((_%e9608796134%_ + (gx#syntax-e _%tl9608696131%_))) + (let ((_%hd9608896138%_ (let () (declare (not safe)) - (##car _%e9495595002%_))) - (_%tl9495795009%_ + (##car _%e9608796134%_))) + (_%tl9608996141%_ (let () (declare (not safe)) - (##cdr _%e9495595002%_)))) + (##cdr _%e9608796134%_)))) (if (gx#stx-pair/null? - _%hd9495695006%_) - (let ((_g100480_ + _%hd9608896138%_) + (let ((_g101612_ (gx#syntax-split-splice - _%hd9495695006%_ + _%hd9608896138%_ '0))) (begin - (let ((_g100481_ + (let ((_g101613_ (let () (declare (not safe)) (if (##values? - _g100480_) + _g101612_) (##vector-length - _g100480_) + _g101612_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g100481_ + (##fx= _g101613_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g100481_))) + (error "Context expects 2 values" _g101613_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target9495895012%_ + (let ((_%target9609096144%_ (let () (declare (not safe)) (##vector-ref - _g100480_ + _g101612_ 0))) - (_%tl9496095015%_ + (_%tl9609296147%_ (let () (declare (not safe)) (##vector-ref - _g100480_ + _g101612_ 1)))) (if (gx#stx-null? - _%tl9496095015%_) - (letrec ((_%loop9496195018%_ - (lambda (_%hd9495995022%_ + _%tl9609296147%_) + (letrec ((_%loop9609396150%_ + (lambda (_%hd9609196154%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%super9496595025%_) - (if (gx#stx-pair? _%hd9495995022%_) - (let ((_%e9496295028%_ - (gx#syntax-e _%hd9495995022%_))) - (let ((_%lp-hd9496395032%_ + _%super9609796157%_) + (if (gx#stx-pair? _%hd9609196154%_) + (let ((_%e9609496160%_ + (gx#syntax-e _%hd9609196154%_))) + (let ((_%lp-hd9609596164%_ (let () (declare (not safe)) - (##car _%e9496295028%_))) - (_%lp-tl9496495035%_ + (##car _%e9609496160%_))) + (_%lp-tl9609696167%_ (let () (declare (not safe)) - (##cdr _%e9496295028%_)))) - (_%loop9496195018%_ - _%lp-tl9496495035%_ - (cons _%lp-hd9496395032%_ - _%super9496595025%_)))) - (let ((_%super9496695038%_ - (reverse _%super9496595025%_))) - (if (gx#stx-pair? _%tl9495795009%_) - (let ((_%e9496795042%_ - (gx#syntax-e _%tl9495795009%_))) - (let ((_%hd9496895046%_ + (##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%_ (let () (declare (not safe)) - (##car _%e9496795042%_))) - (_%tl9496995049%_ + (##car _%e9609996174%_))) + (_%tl9610196181%_ (let () (declare (not safe)) - (##cdr _%e9496795042%_)))) - (if (gx#stx-null? _%tl9496995049%_) - ((lambda (_%L95052%_ - _%L95054%_ - _%L95055%_) + (##cdr _%e9609996174%_)))) + (if (gx#stx-null? _%tl9610196181%_) + ((lambda (_%L96184%_ + _%L96186%_ + _%L96187%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L95055%_ + (cons _%L96187%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L95055%_ - (cons (let ((__tmp100482 - (lambda (_%g9507795080%_ + (cons _%L96187%_ + (cons (let ((__tmp101614 + (lambda (_%g9620996212%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9507895083%_) - (cons _%g9507795080%_ _%g9507895083%_)))) + _%g9621096215%_) + (cons _%g9620996212%_ _%g9621096215%_)))) (declare (not safe)) - (__foldr1 __tmp100482 '() _%L95054%_)) + (__foldr1 __tmp101614 '() _%L96186%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f '__shadow-class) - (cons _%L95052%_ '())) + (cons _%L96184%_ '())) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9496895046%_ - _%super9496695038%_ - _%hd9495394996%_) - (_%g9494494975%_ - _%g9494594979%_)))) - (_%g9494494975%_ _%g9494594979%_))))))) - (_%loop9496195018%_ _%target9495895012%_ '())) - (_%g9494494975%_ _%g9494594979%_))))) + _%hd9610096178%_ + _%super9609896170%_ + _%hd9608596128%_) + (_%g9607696107%_ + _%g9607796111%_)))) + (_%g9607696107%_ _%g9607796111%_))))))) + (_%loop9609396150%_ _%target9609096144%_ '())) + (_%g9607696107%_ _%g9607796111%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9494494975%_ - _%g9494594979%_)))) - (_%g9494494975%_ _%g9494594979%_)))) - (_%g9494494975%_ _%g9494594979%_)))) - (_%g9494494975%_ _%g9494594979%_))))) - (_%g9494395086%_ _%$stx94940%_))))) + (_%g9607696107%_ + _%g9607796111%_)))) + (_%g9607696107%_ _%g9607796111%_)))) + (_%g9607696107%_ _%g9607796111%_)))) + (_%g9607696107%_ _%g9607796111%_))))) + (_%g9607596218%_ _%$stx96072%_))))) diff --git a/src/bootstrap/gerbil/runtime/repl~0.scm b/src/bootstrap/gerbil/runtime/repl~0.scm index c57b7f174..8cfe6ce29 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 1713454410) + (define gerbil/runtime/repl::timestamp 1713631266) (define replx (lambda () - (letrec ((_%write-reason113839%_ - (lambda (_%exn113845%_) - (lambda (_%cont113847%_ _%port113848%_) + (letrec ((_%write-reason114971%_ + (lambda (_%exn114977%_) + (lambda (_%cont114979%_ _%port114980%_) (let () (declare (not safe)) (##display-exception-in-context - _%exn113845%_ - _%cont113847%_ - _%port113848%_)) + _%exn114977%_ + _%cont114979%_ + _%port114980%_)) '#f)))) - (let ((__tmp113849 - (lambda (_%exn113841%_) - (let ((__tmp113850 - (lambda (_%cont113843%_) - (let ((__tmp113851 - (_%write-reason113839%_ _%exn113841%_))) + (let ((__tmp114981 + (lambda (_%exn114973%_) + (let ((__tmp114982 + (lambda (_%cont114975%_) + (let ((__tmp114983 + (_%write-reason114971%_ _%exn114973%_))) (declare (not safe)) (##repl-within - _%cont113843%_ - __tmp113851 - _%exn113841%_))))) + _%cont114975%_ + __tmp114983 + _%exn114973%_))))) (declare (not safe)) - (##continuation-capture __tmp113850))))) + (##continuation-capture __tmp114982))))) (declare (not safe)) - (with-exception-handler __tmp113849 ##repl)))))) + (with-exception-handler __tmp114981 ##repl)))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~0.scm b/src/bootstrap/gerbil/runtime/syntax~0.scm index e887a64b6..b19943acf 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 1713454410) + (define gerbil/runtime/syntax::timestamp 1713631265) (begin (declare (not safe)) (define SyntaxError::t @@ -13,8 +13,8 @@ '#f)) (define SyntaxError? (__make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _%$args111076%_ - (apply make-instance SyntaxError::t _%$args111076%_))) + (lambda _%$args112208%_ + (apply make-instance SyntaxError::t _%$args112208%_))) (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 (_%self110577110958%_ _%port110960%_) - (let* ((_%self110962%_ _%self110577110958%_) - (_%self110964%_ _%self110962%_)) - (letrec ((_%location110974%_ + (lambda (_%self111709112090%_ _%port112092%_) + (let* ((_%self112094%_ _%self111709112090%_) + (_%self112096%_ _%self112094%_)) + (letrec ((_%location112106%_ (lambda () - (let _%lp111036%_ ((_%rest111038%_ + (let _%lp112168%_ ((_%rest112170%_ (##unchecked-structure-ref - _%self110964%_ + _%self112096%_ '3 '#f '#f))) - (let* ((_%rest111039111047%_ _%rest111038%_) - (_%else111041111055%_ (lambda () '#f)) - (_%K111043111064%_ - (lambda (_%rest111058%_ _%hd111059%_) - (let ((_%$e111061%_ - (__AST-source _%hd111059%_))) - (if _%$e111061%_ - _%$e111061%_ - (_%lp111036%_ _%rest111058%_)))))) - (if (##pair? _%rest111039111047%_) - (let ((_%hd111044111067%_ - (##car _%rest111039111047%_)) - (_%tl111045111069%_ - (##cdr _%rest111039111047%_))) - (let* ((_%hd111072%_ _%hd111044111067%_) - (_%rest111074%_ _%tl111045111069%_)) - (_%K111043111064%_ - _%rest111074%_ - _%hd111072%_))) - (_%else111041111055%_))))))) + (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%_))))))) (__call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_%$e110977%_ (_%location110974%_))) - (if _%$e110977%_ - ((lambda (_%where110980%_) - (##display-locat _%where110980%_ '#t _%port110960%_)) - _%$e110977%_) + (let ((_%$e112109%_ (_%location112106%_))) + (if _%$e112109%_ + ((lambda (_%where112112%_) + (##display-locat _%where112112%_ '#t _%port112092%_)) + _%$e112109%_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_%$e110983%_ - (##unchecked-structure-ref _%self110964%_ '4 '#f '#f))) - (if _%$e110983%_ - ((lambda (_%where110986%_) + (let ((_%$e112115%_ + (##unchecked-structure-ref _%self112096%_ '4 '#f '#f))) + (if _%$e112115%_ + ((lambda (_%where112118%_) (displayln '" at " - _%where110986%_ + _%where112118%_ '": " (##unchecked-structure-ref - _%self110964%_ + _%self112096%_ '2 '#f '#f))) - _%$e110983%_) + _%$e112115%_) (displayln '": " - (##unchecked-structure-ref _%self110964%_ '2 '#f '#f)))) - (let* ((_%self.irritants110988110996%_ - (##unchecked-structure-ref _%self110964%_ '3 '#f '#f)) - (_%else110990111004%_ (lambda () '#!void)) - (_%K110992111017%_ - (lambda (_%rest111007%_ _%stx111008%_) + (##unchecked-structure-ref _%self112096%_ '2 '#f '#f)))) + (let* ((_%self.irritants112120112128%_ + (##unchecked-structure-ref _%self112096%_ '3 '#f '#f)) + (_%else112122112136%_ (lambda () '#!void)) + (_%K112124112149%_ + (lambda (_%rest112139%_ _%stx112140%_) (display '"... form: ") - (__pp-syntax _%stx111008%_) + (__pp-syntax _%stx112140%_) (for-each - (lambda (_%detail111010%_) + (lambda (_%detail112142%_) (display '"... detail: ") - (##write (__AST->datum _%detail111010%_)) - (let ((_%$e111012%_ - (__AST-source _%detail111010%_))) - (if _%$e111012%_ - ((lambda (_%loc111015%_) + (##write (__AST->datum _%detail112142%_)) + (let ((_%$e112144%_ + (__AST-source _%detail112142%_))) + (if _%$e112144%_ + ((lambda (_%loc112147%_) (display '" at ") (##display-locat - _%loc111015%_ + _%loc112147%_ '#t - _%port110960%_)) - _%$e111012%_) + _%port112092%_)) + _%$e112144%_) '#!void)) (newline)) - _%rest111007%_)))) - (if (##pair? _%self.irritants110988110996%_) - (let ((_%hd110993111020%_ - (##car _%self.irritants110988110996%_)) - (_%tl110994111022%_ - (##cdr _%self.irritants110988110996%_))) - (let* ((_%stx111025%_ _%hd110993111020%_) - (_%rest111027%_ _%tl110994111022%_)) - (_%K110992111017%_ _%rest111027%_ _%stx111025%_))) + _%rest112139%_)))) + (if (pair? _%self.irritants112120112128%_) + (let ((_%hd112125112152%_ + (##car _%self.irritants112120112128%_)) + (_%tl112126112154%_ + (##cdr _%self.irritants112120112128%_))) + (let* ((_%stx112157%_ _%hd112125112152%_) + (_%rest112159%_ _%tl112126112154%_)) + (_%K112124112149%_ _%rest112159%_ _%stx112157%_))) '#!void)) (if (##getenv '"GERBIL_DEBUG" '#f) - (let ((_%cont111028111030%_ + (let ((_%cont112160112162%_ (##unchecked-structure-ref - _%self110964%_ + _%self112096%_ '1 '#f '#f))) - (if _%cont111028111030%_ - (let ((_%cont111033%_ _%cont111028111030%_)) + (if _%cont112160112162%_ + (let ((_%cont112165%_ _%cont112160112162%_)) (display '"--- continuation backtrace:") (newline) - (display-continuation-backtrace _%cont111033%_)) + (display-continuation-backtrace _%cont112165%_)) '#f)) '#!void)) current-output-port - _%port110960%_))))) + _%port112092%_))))) (__bind-method!__% SyntaxError::t 'display-exception @@ -187,37 +187,37 @@ '#f) (__seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_%message110829%_ - _%irritants110830%_ - _%where110831%_ - _%context110832%_ - _%marks110833%_ - _%phi110834%_) - (let ((__obj111173 + (lambda (_%message111961%_ + _%irritants111962%_ + _%where111963%_ + _%context111964%_ + _%marks111965%_ + _%phi111966%_) + (let ((__obj112305 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f '#f))) - (##unchecked-structure-set! __obj111173 _%message110829%_ '2 '#f '#f) + (##unchecked-structure-set! __obj112305 _%message111961%_ '2 '#f '#f) (##unchecked-structure-set! - __obj111173 - _%irritants110830%_ + __obj112305 + _%irritants111962%_ '3 '#f '#f) - (##unchecked-structure-set! __obj111173 _%where110831%_ '4 '#f '#f) - (##unchecked-structure-set! __obj111173 _%context110832%_ '5 '#f '#f) - (##unchecked-structure-set! __obj111173 _%marks110833%_ '7 '#f '#f) - (##unchecked-structure-set! __obj111173 _%phi110834%_ '6 '#f '#f) - __obj111173))) + (##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))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_%where110824%_ - _%message110825%_ - _%stx110826%_ + (lambda (_%where111956%_ + _%message111957%_ + _%stx111958%_ . - _%details110827%_) + _%details111959%_) (raise (make-syntax-error - _%message110825%_ - (cons _%stx110826%_ _%details110827%_) - _%where110824%_ + _%message111957%_ + (cons _%stx111958%_ _%details111959%_) + _%where111956%_ '#f '#f '#f)))) @@ -231,7 +231,7 @@ '#f)) (define AST? (__make-class-predicate AST::t)) (define make-AST - (lambda _%$args110821%_ (apply make-instance AST::t _%$args110821%_))) + (lambda _%$args111953%_ (apply make-instance AST::t _%$args111953%_))) (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 (_%stx110819%_) - (if (##structure-instance-of? _%stx110819%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx110819%_ '1 '#f '#f) - _%stx110819%_))) + (lambda (_%stx111951%_) + (if (##structure-instance-of? _%stx111951%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx111951%_ '1 '#f '#f) + _%stx111951%_))) (define __AST-source - (lambda (_%stx110810%_) - (let _%lp110812%_ ((_%src110814%_ _%stx110810%_)) - (if (##structure-instance-of? _%src110814%_ 'gerbil#AST::t) - (_%lp110812%_ - (##unchecked-structure-ref _%src110814%_ '2 '#f '#f)) - (if (##locat? _%src110814%_) _%src110814%_ '#f))))) + (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))))) (define __AST - (lambda (_%e110802%_ _%src-stx110803%_) - (let ((_%src110805%_ (__AST-source _%src-stx110803%_))) - (if (or (##structure-instance-of? _%e110802%_ 'gerbil#AST::t) - (not _%src110805%_)) - _%e110802%_ - (##structure AST::t _%e110802%_ _%src110805%_))))) + (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%_))))) (define __AST-eq? - (lambda (_%stx110799%_ _%obj110800%_) - (eq? (__AST-e _%stx110799%_) _%obj110800%_))) + (lambda (_%stx111931%_ _%obj111932%_) + (eq? (__AST-e _%stx111931%_) _%obj111932%_))) (define __AST-pair? - (lambda (_%stx110797%_) (pair? (__AST-e _%stx110797%_)))) + (lambda (_%stx111929%_) (pair? (__AST-e _%stx111929%_)))) (define __AST-null? - (lambda (_%stx110795%_) (null? (__AST-e _%stx110795%_)))) + (lambda (_%stx111927%_) (null? (__AST-e _%stx111927%_)))) (define __AST-datum? - (lambda (_%stx110776%_) - (let* ((_%e110778%_ (__AST-e _%stx110776%_)) - (_%$e110780%_ (number? _%e110778%_))) - (if _%$e110780%_ - _%$e110780%_ - (let ((_%$e110783%_ (string? _%e110778%_))) - (if _%$e110783%_ - _%$e110783%_ - (let ((_%$e110786%_ (char? _%e110778%_))) - (if _%$e110786%_ - _%$e110786%_ - (let ((_%$e110789%_ (keyword? _%e110778%_))) - (if _%$e110789%_ - _%$e110789%_ - (let ((_%$e110792%_ (boolean? _%e110778%_))) - (if _%$e110792%_ - _%$e110792%_ - (eq? _%e110778%_ '#!void))))))))))))) + (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))))))))))))) (define __AST-id? - (lambda (_%stx110774%_) (symbol? (__AST-e _%stx110774%_)))) + (lambda (_%stx111906%_) (symbol? (__AST-e _%stx111906%_)))) (define __AST-id-list?__% - (lambda (_%stx110725%_ _%tail?110726%_) - (let _%lp110728%_ ((_%rest110730%_ _%stx110725%_)) - (let* ((_%$e110732%_ _%rest110730%_) - (_%$E110734110747%_ + (lambda (_%stx111857%_ _%tail?111858%_) + (let _%lp111860%_ ((_%rest111862%_ _%stx111857%_)) + (let* ((_%$e111864%_ _%rest111862%_) + (_%$E111866111879%_ (lambda () - (let* ((_%$E110735110742%_ + (let* ((_%$E111867111874%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e110732%_))) - (_%rest110745%_ _%$e110732%_)) - (_%tail?110726%_ _%rest110745%_))))) - (if (__AST-pair? _%$e110732%_) - (let* ((_%$tgt110736110750%_ (__AST-e _%$e110732%_)) - (_%$hd110737110753%_ (##car _%$tgt110736110750%_)) - (_%$tl110738110756%_ (##cdr _%$tgt110736110750%_)) - (_%hd110760%_ _%$hd110737110753%_) - (_%rest110762%_ _%$tl110738110756%_)) - (if (__AST-id? _%hd110760%_) - (_%lp110728%_ _%rest110762%_) + _%$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%_) '#f)) - (_%$E110734110747%_)))))) + (_%$E111866111879%_)))))) (define __AST-id-list?__0 - (lambda (_%stx110767%_) - (let ((_%tail?110769%_ __AST-null?)) - (__AST-id-list?__% _%stx110767%_ _%tail?110769%_)))) + (lambda (_%stx111899%_) + (let ((_%tail?111901%_ __AST-null?)) + (__AST-id-list?__% _%stx111899%_ _%tail?111901%_)))) (define __AST-id-list? - (lambda _g111176_ - (let ((_g111175_ (##length _g111176_))) - (cond ((##fx= _g111175_ 1) (apply __AST-id-list?__0 _g111176_)) - ((##fx= _g111175_ 2) (apply __AST-id-list?__% _g111176_)) + (lambda _g112308_ + (let ((_g112307_ (##length _g112308_))) + (cond ((##fx= _g112307_ 1) (apply __AST-id-list?__0 _g112308_)) + ((##fx= _g112307_ 2) (apply __AST-id-list?__% _g112308_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g111176_)))))) + _g112308_)))))) (define __AST-bind-list? - (lambda (_%stx110717%_) + (lambda (_%stx111849%_) (__AST-id-list?__% - _%stx110717%_ - (lambda (_%e110719%_) - (let ((_%$e110721%_ (__AST-null? _%e110719%_))) - (if _%$e110721%_ _%$e110721%_ (__AST-id? _%e110719%_))))))) + _%stx111849%_ + (lambda (_%e111851%_) + (let ((_%$e111853%_ (__AST-null? _%e111851%_))) + (if _%$e111853%_ _%$e111853%_ (__AST-id? _%e111851%_))))))) (define __AST-list?__% - (lambda (_%stx110670%_ _%tail?110671%_) - (let _%lp110673%_ ((_%rest110675%_ _%stx110670%_)) - (let* ((_%$e110677%_ _%rest110675%_) - (_%$E110679110692%_ + (lambda (_%stx111802%_ _%tail?111803%_) + (let _%lp111805%_ ((_%rest111807%_ _%stx111802%_)) + (let* ((_%$e111809%_ _%rest111807%_) + (_%$E111811111824%_ (lambda () - (let* ((_%$E110680110687%_ + (let* ((_%$E111812111819%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e110677%_))) - (_%rest110690%_ _%$e110677%_)) - (_%tail?110671%_ _%rest110690%_))))) - (if (__AST-pair? _%$e110677%_) - (let* ((_%$tgt110681110695%_ (__AST-e _%$e110677%_)) - (_%$hd110682110698%_ (##car _%$tgt110681110695%_)) - (_%$tl110683110701%_ (##cdr _%$tgt110681110695%_)) - (_%rest110705%_ _%$tl110683110701%_)) - (_%lp110673%_ _%rest110705%_)) - (_%$E110679110692%_)))))) + _%$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%_)))))) (define __AST-list?__0 - (lambda (_%stx110710%_) - (let ((_%tail?110712%_ __AST-null?)) - (__AST-list?__% _%stx110710%_ _%tail?110712%_)))) + (lambda (_%stx111842%_) + (let ((_%tail?111844%_ __AST-null?)) + (__AST-list?__% _%stx111842%_ _%tail?111844%_)))) (define __AST-list? - (lambda _g111178_ - (let ((_g111177_ (##length _g111178_))) - (cond ((##fx= _g111177_ 1) (apply __AST-list?__0 _g111178_)) - ((##fx= _g111177_ 2) (apply __AST-list?__% _g111178_)) + (lambda _g112310_ + (let ((_g112309_ (##length _g112310_))) + (cond ((##fx= _g112309_ 1) (apply __AST-list?__0 _g112310_)) + ((##fx= _g112309_ 2) (apply __AST-list?__% _g112310_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g111178_)))))) + _g112310_)))))) (define __AST->list - (lambda (_%stx110635%_) - (let* ((_%$e110637%_ _%stx110635%_) - (_%$E110639110652%_ + (lambda (_%stx111767%_) + (let* ((_%$e111769%_ _%stx111767%_) + (_%$E111771111784%_ (lambda () - (let* ((_%$E110640110647%_ + (let* ((_%$E111772111779%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e110637%_))) - (_%rest110650%_ _%$e110637%_)) - (__AST-e _%rest110650%_))))) - (if (__AST-pair? _%$e110637%_) - (let* ((_%$tgt110641110655%_ (__AST-e _%$e110637%_)) - (_%$hd110642110658%_ (##car _%$tgt110641110655%_)) - (_%$tl110643110661%_ (##cdr _%$tgt110641110655%_)) - (_%hd110665%_ _%$hd110642110658%_) - (_%rest110667%_ _%$tl110643110661%_)) - (cons _%hd110665%_ (__AST->list _%rest110667%_))) - (_%$E110639110652%_))))) + _%$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%_))))) (define __AST->datum - (lambda (_%stx110628%_) - (if (##structure-instance-of? _%stx110628%_ 'gerbil#AST::t) - (__AST->datum (__AST-e _%stx110628%_)) - (if (pair? _%stx110628%_) - (cons (__AST->datum (##car _%stx110628%_)) - (__AST->datum (##cdr _%stx110628%_))) - (if (vector? _%stx110628%_) - (vector-map __AST->datum _%stx110628%_) - (if (box? _%stx110628%_) - (box (__AST->datum (unbox _%stx110628%_))) - _%stx110628%_)))))) + (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%_)))))) (define get-readenv - (lambda (_%port110626%_) + (lambda (_%port111758%_) (##make-readenv - _%port110626%_ + _%port111758%_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -410,93 +410,93 @@ '() '#f))) (define read-syntax__% - (lambda (_%in110614%_) - (let ((_%e110616%_ (##read-datum-or-eof (get-readenv _%in110614%_)))) - (if (eof-object? (__AST-e _%e110616%_)) - (__AST-e _%e110616%_) - _%e110616%_)))) + (lambda (_%in111746%_) + (let ((_%e111748%_ (##read-datum-or-eof (get-readenv _%in111746%_)))) + (if (eof-object? (__AST-e _%e111748%_)) + (__AST-e _%e111748%_) + _%e111748%_)))) (define read-syntax__0 (lambda () - (let ((_%in110622%_ (current-input-port))) - (read-syntax__% _%in110622%_)))) + (let ((_%in111754%_ (current-input-port))) + (read-syntax__% _%in111754%_)))) (define read-syntax - (lambda _g111180_ - (let ((_g111179_ (##length _g111180_))) - (cond ((##fx= _g111179_ 0) (apply read-syntax__0 _g111180_)) - ((##fx= _g111179_ 1) (apply read-syntax__% _g111180_)) + (lambda _g112312_ + (let ((_g112311_ (##length _g112312_))) + (cond ((##fx= _g112311_ 0) (apply read-syntax__0 _g112312_)) + ((##fx= _g112311_ 1) (apply read-syntax__% _g112312_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g111180_)))))) + _g112312_)))))) (define read-syntax-from-file - (lambda (_%path110609%_) - (let ((_%r110611%_ + (lambda (_%path111741%_) + (let ((_%r111743%_ (##read-all-as-a-begin-expr-from-path - (path-normalize _%path110609%_) + (path-normalize _%path111741%_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _%r110611%_) - (cdr (__AST-e (vector-ref _%r110611%_ '1))) - (error (err-code->string _%r110611%_) _%path110609%_))))) + (if (vector? _%r111743%_) + (cdr (__AST-e (vector-ref _%r111743%_ '1))) + (error (err-code->string _%r111743%_) _%path111741%_))))) (define __wrap-syntax - (lambda (_%re110606%_ _%e110607%_) - (if (eof-object? _%e110607%_) - _%e110607%_ - (##structure AST::t _%e110607%_ (##readenv->locat _%re110606%_))))) + (lambda (_%re111738%_ _%e111739%_) + (if (eof-object? _%e111739%_) + _%e111739%_ + (##structure AST::t _%e111739%_ (##readenv->locat _%re111738%_))))) (define __unwrap-syntax - (lambda (_%re110603%_ _%e110604%_) (__AST-e _%e110604%_))) + (lambda (_%re111735%_ _%e111736%_) (__AST-e _%e111736%_))) (define __pp-syntax - (lambda (_%stx110601%_) (pp (__AST->datum _%stx110601%_)))) + (lambda (_%stx111733%_) (pp (__AST->datum _%stx111733%_)))) (define __make-readtable (lambda () - (let ((_%rt110599%_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _%rt110599%_ '#t) - (macro-readtable-bracket-handler-set! _%rt110599%_ '@list) - (macro-readtable-brace-handler-set! _%rt110599%_ '@method) + (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) (##readtable-char-sharp-handler-set! - _%rt110599%_ + _%rt111731%_ '#\! __read-sharp-bang) - _%rt110599%_))) + _%rt111731%_))) (define __readtable-bracket-keyword-set! - (lambda (_%rt110595%_ _%kw110596%_) - (macro-readtable-bracket-handler-set! _%rt110595%_ _%kw110596%_))) + (lambda (_%rt111727%_ _%kw111728%_) + (macro-readtable-bracket-handler-set! _%rt111727%_ _%kw111728%_))) (define __readtable-brace-keyword-set! - (lambda (_%rt110592%_ _%kw110593%_) - (macro-readtable-brace-handler-set! _%rt110592%_ _%kw110593%_))) + (lambda (_%rt111724%_ _%kw111725%_) + (macro-readtable-brace-handler-set! _%rt111724%_ _%kw111725%_))) (define __read-sharp-bang - (lambda (_%re110583%_ _%next110584%_ _%start-pos110585%_) - (if (eq? _%start-pos110585%_ '0) - (let* ((_%line110587%_ + (lambda (_%re111715%_ _%next111716%_ _%start-pos111717%_) + (if (eq? _%start-pos111717%_ '0) + (let* ((_%line111719%_ (##read-line - (macro-readenv-port _%re110583%_) + (macro-readenv-port _%re111715%_) '#\newline '#f ##max-fixnum)) - (_%script-line110589%_ + (_%script-line111721%_ (substring - _%line110587%_ + _%line111719%_ '1 - (string-length _%line110587%_)))) + (string-length _%line111719%_)))) (macro-readenv-script-line-set! - _%re110583%_ - _%script-line110589%_) + _%re111715%_ + _%script-line111721%_) (##script-marker)) (##read-sharp-bang - _%re110583%_ - _%next110584%_ - _%start-pos110585%_)))) + _%re111715%_ + _%next111716%_ + _%start-pos111717%_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_%obj110581%_) - (if (source-location? _%obj110581%_) - (string? (##locat-container _%obj110581%_)) + (lambda (_%obj111713%_) + (if (source-location? _%obj111713%_) + (string? (##locat-container _%obj111713%_)) '#f))) (define source-location-path - (lambda (_%obj110579%_) - (if (##locat? _%obj110579%_) - (##container->path (##locat-container _%obj110579%_)) + (lambda (_%obj111711%_) + (if (##locat? _%obj111711%_) + (##container->path (##locat-container _%obj111711%_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~1.scm b/src/bootstrap/gerbil/runtime/syntax~1.scm index e4feab93c..5214f0a0d 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]#_g111189_| + (define |[1]#_g112321_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g111192_| + (define |[1]#_g112324_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g111193_| + (define |[1]#_g112325_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g111195_| + (define |[1]#_g112327_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g111197_| + (define |[1]#_g112329_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g111199_| + (define |[1]#_g112331_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g111201_| + (define |[1]#_g112333_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g111202_| + (define |[1]#_g112334_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g111203_| + (define |[1]#_g112335_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g111204_| + (define |[1]#_g112336_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g111205_| + (define |[1]#_g112337_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g111206_| + (define |[1]#_g112338_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g111207_| + (define |[1]#_g112339_| (##structure gx#syntax-quote::t 'SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g111209_| + (define |[1]#_g112341_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111210_| + (define |[1]#_g112342_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111211_| + (define |[1]#_g112343_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111212_| + (define |[1]#_g112344_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111213_| + (define |[1]#_g112345_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111214_| + (define |[1]#_g112346_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111215_| + (define |[1]#_g112347_| (##structure gx#syntax-quote::t 'SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111217_| + (define |[1]#_g112349_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g111218_| + (define |[1]#_g112350_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g111219_| + (define |[1]#_g112351_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g111220_| + (define |[1]#_g112352_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g111221_| + (define |[1]#_g112353_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g111222_| + (define |[1]#_g112354_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g111223_| + (define |[1]#_g112355_| (##structure gx#syntax-quote::t '&SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g111225_| + (define |[1]#_g112357_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111226_| + (define |[1]#_g112358_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111227_| + (define |[1]#_g112359_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111228_| + (define |[1]#_g112360_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111229_| + (define |[1]#_g112361_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111230_| + (define |[1]#_g112362_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111231_| + (define |[1]#_g112363_| (##structure gx#syntax-quote::t '&SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111233_| + (define |[1]#_g112365_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g111235_| + (define |[1]#_g112367_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g111237_| + (define |[1]#_g112369_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g111239_| + (define |[1]#_g112371_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g111240_| + (define |[1]#_g112372_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g111242_| + (define |[1]#_g112374_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111243_| + (define |[1]#_g112375_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111245_| + (define |[1]#_g112377_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g111246_| + (define |[1]#_g112378_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g111248_| + (define |[1]#_g112380_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111249_| + (define |[1]#_g112381_| (##structure gx#syntax-quote::t '&AST-source-set! @@ -317,291 +317,291 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_%$stx109459%_) - (let* ((_%g109463109487%_ - (lambda (_%g109464109483%_) + (lambda (_%$stx110591%_) + (let* ((_%g110595110619%_ + (lambda (_%g110596110615%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109464109483%_))) - (_%g109462109573%_ - (lambda (_%g109464109491%_) - (if (gx#stx-pair? _%g109464109491%_) - (let ((_%e109467109494%_ - (gx#syntax-e _%g109464109491%_))) - (let ((_%hd109468109498%_ + _%g110596110615%_))) + (_%g110594110705%_ + (lambda (_%g110596110623%_) + (if (gx#stx-pair? _%g110596110623%_) + (let ((_%e110599110626%_ + (gx#syntax-e _%g110596110623%_))) + (let ((_%hd110600110630%_ (let () (declare (not safe)) - (##car _%e109467109494%_))) - (_%tl109469109501%_ + (##car _%e110599110626%_))) + (_%tl110601110633%_ (let () (declare (not safe)) - (##cdr _%e109467109494%_)))) - (if (gx#stx-pair? _%tl109469109501%_) - (let ((_%e109470109504%_ - (gx#syntax-e _%tl109469109501%_))) - (let ((_%hd109471109508%_ + (##cdr _%e110599110626%_)))) + (if (gx#stx-pair? _%tl110601110633%_) + (let ((_%e110602110636%_ + (gx#syntax-e _%tl110601110633%_))) + (let ((_%hd110603110640%_ (let () (declare (not safe)) - (##car _%e109470109504%_))) - (_%tl109472109511%_ + (##car _%e110602110636%_))) + (_%tl110604110643%_ (let () (declare (not safe)) - (##cdr _%e109470109504%_)))) - (if (gx#stx-pair/null? _%tl109472109511%_) - (let ((_g111181_ + (##cdr _%e110602110636%_)))) + (if (gx#stx-pair/null? _%tl110604110643%_) + (let ((_g112313_ (gx#syntax-split-splice - _%tl109472109511%_ + _%tl110604110643%_ '0))) (begin - (let ((_g111182_ + (let ((_g112314_ (let () (declare (not safe)) - (if (##values? _g111181_) + (if (##values? _g112313_) (##vector-length - _g111181_) + _g112313_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g111182_ 2))) + (##fx= _g112314_ 2))) (error "Context expects 2 values" - _g111182_))) - (let ((_%target109473109514%_ + _g112314_))) + (let ((_%target110605110646%_ (let () (declare (not safe)) - (##vector-ref _g111181_ 0))) - (_%tl109475109517%_ + (##vector-ref _g112313_ 0))) + (_%tl110607110649%_ (let () (declare (not safe)) (##vector-ref - _g111181_ + _g112313_ 1)))) (if (gx#stx-null? - _%tl109475109517%_) - (letrec ((_%loop109476109520%_ - (lambda (_%hd109474109524%_ + _%tl110607110649%_) + (letrec ((_%loop110608110652%_ + (lambda (_%hd110606110656%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body109480109527%_) - (if (gx#stx-pair? _%hd109474109524%_) - (let ((_%e109477109530%_ - (gx#syntax-e _%hd109474109524%_))) - (let ((_%lp-hd109478109534%_ + _%body110612110659%_) + (if (gx#stx-pair? _%hd110606110656%_) + (let ((_%e110609110662%_ + (gx#syntax-e _%hd110606110656%_))) + (let ((_%lp-hd110610110666%_ (let () (declare (not safe)) - (##car _%e109477109530%_))) - (_%lp-tl109479109537%_ + (##car _%e110609110662%_))) + (_%lp-tl110611110669%_ (let () (declare (not safe)) - (##cdr _%e109477109530%_)))) - (_%loop109476109520%_ - _%lp-tl109479109537%_ - (cons _%lp-hd109478109534%_ - _%body109480109527%_)))) - (let ((_%body109481109540%_ - (reverse _%body109480109527%_))) - ((lambda (_%L109544%_ _%L109546%_) + (##cdr _%e110609110662%_)))) + (_%loop110608110652%_ + _%lp-tl110611110669%_ + (cons _%lp-hd110610110666%_ + _%body110612110659%_)))) + (let ((_%body110613110672%_ + (reverse _%body110612110659%_))) + ((lambda (_%L110676%_ _%L110678%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _%L109546%_ '())) + (cons _%L110678%_ '())) (cons (cons (gx#datum->syntax '#f 'core-ast-case%) (cons (gx#datum->syntax '#f '$e) - (let ((__tmp111183 + (let ((__tmp112315 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g109564109567%_ _%g109565109570%_) - (cons _%g109564109567%_ _%g109565109570%_)))) + (lambda (_%g110696110699%_ _%g110697110702%_) + (cons _%g110696110699%_ _%g110697110702%_)))) (declare (not safe)) - (__foldr1 __tmp111183 '() _%L109544%_)))) + (__foldr1 __tmp112315 '() _%L110676%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%body109481109540%_ - _%hd109471109508%_)))))) + _%body110613110672%_ + _%hd110603110640%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop109476109520%_ - _%target109473109514%_ + (_%loop110608110652%_ + _%target110605110646%_ '())) - (_%g109463109487%_ - _%g109464109491%_))))) - (_%g109463109487%_ _%g109464109491%_)))) - (_%g109463109487%_ _%g109464109491%_)))) - (_%g109463109487%_ _%g109464109491%_))))) - (_%g109462109573%_ _%$stx109459%_)))) + (_%g110595110619%_ + _%g110596110623%_))))) + (_%g110595110619%_ _%g110596110623%_)))) + (_%g110595110619%_ _%g110596110623%_)))) + (_%g110595110619%_ _%g110596110623%_))))) + (_%g110594110705%_ _%$stx110591%_)))) (define |[:0:]#core-ast-case%| - (lambda (_%stx109578%_) - (letrec ((_%generate1109581%_ - (lambda (_%hd110122%_ - _%tgt110124%_ - _%K110125%_ - _%E110126%_ - _%kws110127%_) - (let* ((_%g110129110137%_ - (lambda (_%g110130110133%_) + (lambda (_%stx110710%_) + (letrec ((_%generate1110713%_ + (lambda (_%hd111254%_ + _%tgt111256%_ + _%K111257%_ + _%E111258%_ + _%kws111259%_) + (let* ((_%g111261111269%_ + (lambda (_%g111262111265%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110130110133%_))) - (_%g110128110572%_ - (lambda (_%g110130110141%_) - ((lambda (_%L110144%_) - (let* ((_%__stx111079111080%_ _%hd110122%_) - (_%g110158110172%_ + _%g111262111265%_))) + (_%g111260111704%_ + (lambda (_%g111262111273%_) + ((lambda (_%L111276%_) + (let* ((_%__stx112211112212%_ _%hd111254%_) + (_%g111290111304%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx111079111080%_)))) - (let ((_%__kont111082111083%_ - (lambda (_%L110394%_ _%L110396%_) - (let* ((_%g110407110415%_ - (lambda (_%g110408110411%_) + _%__stx112211112212%_)))) + (let ((_%__kont112214112215%_ + (lambda (_%L111526%_ _%L111528%_) + (let* ((_%g111539111547%_ + (lambda (_%g111540111543%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110408110411%_))) - (_%g110406110564%_ - (lambda (_%g110408110419%_) - ((lambda (_%L110422%_) - (let* ((_%g110434110442%_ + _%g111540111543%_))) + (_%g111538111696%_ + (lambda (_%g111540111551%_) + ((lambda (_%L111554%_) + (let* ((_%g111566111574%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g110435110438%_) + (lambda (_%g111567111570%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110435110438%_))) - (_%g110433110560%_ - (lambda (_%g110435110446%_) - ((lambda (_%L110449%_) - (let* ((_%g110462110470%_ - (lambda (_%g110463110466%_) + _%g111567111570%_))) + (_%g111565111692%_ + (lambda (_%g111567111578%_) + ((lambda (_%L111581%_) + (let* ((_%g111594111602%_ + (lambda (_%g111595111598%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110463110466%_))) - (_%g110461110556%_ - (lambda (_%g110463110474%_) - ((lambda (_%L110477%_) - (let* ((_%g110490110498%_ - (lambda (_%g110491110494%_) + _%g111595111598%_))) + (_%g111593111688%_ + (lambda (_%g111595111606%_) + ((lambda (_%L111609%_) + (let* ((_%g111622111630%_ + (lambda (_%g111623111626%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110491110494%_))) - (_%g110489110552%_ - (lambda (_%g110491110502%_) - ((lambda (_%L110505%_) - (let* ((_%g110518110526%_ - (lambda (_%g110519110522%_) + _%g111623111626%_))) + (_%g111621111684%_ + (lambda (_%g111623111634%_) + ((lambda (_%L111637%_) + (let* ((_%g111650111658%_ + (lambda (_%g111651111654%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110519110522%_))) - (_%g110517110548%_ - (lambda (_%g110519110530%_) - ((lambda (_%L110533%_) + _%g111651111654%_))) + (_%g111649111680%_ + (lambda (_%g111651111662%_) + ((lambda (_%L111665%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '__AST-pair?) - (cons _%L110144%_ '())) + (cons _%L111276%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) - (cons (cons (cons _%L110422%_ + (cons (cons (cons _%L111554%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '__AST-e) - (cons _%L110144%_ '())) + (cons _%L111276%_ '())) '())) - (cons (cons _%L110449%_ + (cons (cons _%L111581%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L110422%_ '())) + (cons _%L111554%_ '())) '())) - (cons (cons _%L110477%_ + (cons (cons _%L111609%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L110422%_ '())) + (cons _%L111554%_ '())) '())) '()))) - (cons _%L110505%_ '()))) + (cons _%L111637%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L110533%_ '()))))) - _%g110519110530%_)))) - (_%g110517110548%_ _%E110126%_))) - _%g110491110502%_)))) + (cons _%L111665%_ '()))))) + _%g111651111662%_)))) + (_%g111649111680%_ _%E111258%_))) + _%g111623111634%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g110489110552%_ - (_%generate1109581%_ - _%L110396%_ - _%L110449%_ - (_%generate1109581%_ - _%L110394%_ - _%L110477%_ - _%K110125%_ - _%E110126%_ - _%kws110127%_) - _%E110126%_ - _%kws110127%_)))) - _%g110463110474%_)))) - (_%g110461110556%_ (gx#genident '$tl)))) - _%g110435110446%_)))) - (_%g110433110560%_ (gx#genident '$hd)))) - _%g110408110419%_)))) + (_%g111621111684%_ + (_%generate1110713%_ + _%L111528%_ + _%L111581%_ + (_%generate1110713%_ + _%L111526%_ + _%L111609%_ + _%K111257%_ + _%E111258%_ + _%kws111259%_) + _%E111258%_ + _%kws111259%_)))) + _%g111595111606%_)))) + (_%g111593111688%_ (gx#genident '$tl)))) + _%g111567111578%_)))) + (_%g111565111692%_ (gx#genident '$hd)))) + _%g111540111551%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g110406110564%_ + (_%g111538111696%_ (gx#genident '$tgt))))) - (_%__kont111084111085%_ - (lambda (_%L110261%_) - (if (gx#underscore? _%L110261%_) - _%K110125%_ - (if (let ((__tmp111185 - (lambda (_%g110271110273%_) + (_%__kont112216112217%_ + (lambda (_%L111393%_) + (if (gx#underscore? _%L111393%_) + _%K111257%_ + (if (let ((__tmp112317 + (lambda (_%g111403111405%_) (gx#bound-identifier=? - _%g110271110273%_ - _%L110261%_))) - (__tmp111184 + _%g111403111405%_ + _%L111393%_))) + (__tmp112316 (gx#syntax->list - _%kws110127%_))) + _%kws111259%_))) (declare (not safe)) - (__find __tmp111185 - __tmp111184)) - (let* ((_%g110279110294%_ - (lambda (_%g110280110290%_) + (__find __tmp112317 + __tmp112316)) + (let* ((_%g111411111426%_ + (lambda (_%g111412111422%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110280110290%_))) - (_%g110278110340%_ - (lambda (_%g110280110298%_) + _%g111412111422%_))) + (_%g111410111472%_ + (lambda (_%g111412111430%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g110280110298%_) - (let ((_%e110283110301%_ - (gx#syntax-e _%g110280110298%_))) - (let ((_%hd110284110305%_ + _%g111412111430%_) + (let ((_%e111415111433%_ + (gx#syntax-e _%g111412111430%_))) + (let ((_%hd111416111437%_ (let () (declare (not safe)) - (##car _%e110283110301%_))) - (_%tl110285110308%_ + (##car _%e111415111433%_))) + (_%tl111417111440%_ (let () (declare (not safe)) - (##cdr _%e110283110301%_)))) - (if (gx#stx-pair? _%tl110285110308%_) - (let ((_%e110286110311%_ - (gx#syntax-e _%tl110285110308%_))) - (let ((_%hd110287110315%_ + (##cdr _%e111415111433%_)))) + (if (gx#stx-pair? _%tl111417111440%_) + (let ((_%e111418111443%_ + (gx#syntax-e _%tl111417111440%_))) + (let ((_%hd111419111447%_ (let () (declare (not safe)) - (##car _%e110286110311%_))) - (_%tl110288110318%_ + (##car _%e111418111443%_))) + (_%tl111420111450%_ (let () (declare (not safe)) - (##cdr _%e110286110311%_)))) - (if (gx#stx-null? _%tl110288110318%_) - ((lambda (_%L110321%_ _%L110323%_) + (##cdr _%e111418111443%_)))) + (if (gx#stx-null? _%tl111420111450%_) + ((lambda (_%L111453%_ _%L111455%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f @@ -610,85 +610,85 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-id?) - (cons _%L110144%_ '())) + (cons _%L111276%_ '())) (cons (cons (gx#datum->syntax '#f 'eq?) (cons (cons (gx#datum->syntax '#f '__AST-e) - (cons _%L110144%_ '())) + (cons _%L111276%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L110261%_ + (cons _%L111393%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) - (cons _%L110323%_ (cons _%L110321%_ '()))))) + (cons _%L111455%_ (cons _%L111453%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd110287110315%_ - _%hd110284110305%_) - (_%g110279110294%_ - _%g110280110298%_)))) - (_%g110279110294%_ _%g110280110298%_)))) - (_%g110279110294%_ _%g110280110298%_))))) - (_%g110278110340%_ (list _%K110125%_ _%E110126%_))) + _%hd111419111447%_ + _%hd111416111437%_) + (_%g111411111426%_ + _%g111412111430%_)))) + (_%g111411111426%_ _%g111412111430%_)))) + (_%g111411111426%_ _%g111412111430%_))))) + (_%g111410111472%_ (list _%K111257%_ _%E111258%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g110346110354%_ - (lambda (_%g110347110350%_) + (let* ((_%g111478111486%_ + (lambda (_%g111479111482%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110347110350%_))) - (_%g110345110373%_ - (lambda (_%g110347110358%_) - ((lambda (_%L110361%_) + _%g111479111482%_))) + (_%g111477111505%_ + (lambda (_%g111479111490%_) + ((lambda (_%L111493%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L110261%_ - (cons _%L110144%_ '())) + (cons (cons (cons _%L111393%_ + (cons _%L111276%_ '())) '()) - (cons _%L110361%_ '())))) - _%g110347110358%_)))) - (_%g110345110373%_ _%K110125%_)))))) + (cons _%L111493%_ '())))) + _%g111479111490%_)))) + (_%g111477111505%_ _%K111257%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont111086111087%_ - (lambda (_%L110179%_) - (let* ((_%g110190110205%_ - (lambda (_%g110191110201%_) + (_%__kont112218112219%_ + (lambda (_%L111311%_) + (let* ((_%g111322111337%_ + (lambda (_%g111323111333%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110191110201%_))) - (_%g110189110250%_ - (lambda (_%g110191110209%_) + _%g111323111333%_))) + (_%g111321111382%_ + (lambda (_%g111323111341%_) (if (gx#stx-pair? - _%g110191110209%_) - (let ((_%e110194110212%_ + _%g111323111341%_) + (let ((_%e111326111344%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g110191110209%_))) - (let ((_%hd110195110216%_ + (gx#syntax-e _%g111323111341%_))) + (let ((_%hd111327111348%_ (let () (declare (not safe)) - (##car _%e110194110212%_))) - (_%tl110196110219%_ + (##car _%e111326111344%_))) + (_%tl111328111351%_ (let () (declare (not safe)) - (##cdr _%e110194110212%_)))) - (if (gx#stx-pair? _%tl110196110219%_) - (let ((_%e110197110222%_ - (gx#syntax-e _%tl110196110219%_))) - (let ((_%hd110198110226%_ + (##cdr _%e111326111344%_)))) + (if (gx#stx-pair? _%tl111328111351%_) + (let ((_%e111329111354%_ + (gx#syntax-e _%tl111328111351%_))) + (let ((_%hd111330111358%_ (let () (declare (not safe)) - (##car _%e110197110222%_))) - (_%tl110199110229%_ + (##car _%e111329111354%_))) + (_%tl111331111361%_ (let () (declare (not safe)) - (##cdr _%e110197110222%_)))) - (if (gx#stx-null? _%tl110199110229%_) - ((lambda (_%L110232%_ _%L110234%_) + (##cdr _%e111329111354%_)))) + (if (gx#stx-null? _%tl111331111361%_) + ((lambda (_%L111364%_ _%L111366%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f @@ -697,524 +697,524 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-e) - (cons _%L110144%_ '())) + (cons _%L111276%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L110179%_ '())) + (cons _%L111311%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L110234%_ - (cons _%L110232%_ + (cons _%L111366%_ + (cons _%L111364%_ '()))))) - _%hd110198110226%_ - _%hd110195110216%_) - (_%g110190110205%_ _%g110191110209%_)))) - (_%g110190110205%_ _%g110191110209%_)))) - (_%g110190110205%_ _%g110191110209%_))))) + _%hd111330111358%_ + _%hd111327111348%_) + (_%g111322111337%_ _%g111323111341%_)))) + (_%g111322111337%_ _%g111323111341%_)))) + (_%g111322111337%_ _%g111323111341%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g110189110250%_ - (list _%K110125%_ - _%E110126%_)))))) - (let ((_%g110156110377%_ + (_%g111321111382%_ + (list _%K111257%_ + _%E111258%_)))))) + (let ((_%g111288111509%_ (lambda () - (let ((_%L110261%_ - _%__stx111079111080%_)) + (let ((_%L111393%_ + _%__stx112211112212%_)) (if (gx#identifier? - _%L110261%_) - (_%__kont111084111085%_ - _%L110261%_) - (_%__kont111086111087%_ - _%__stx111079111080%_)))))) - (if (gx#stx-pair? _%__stx111079111080%_) - (let ((_%e110162110384%_ + _%L111393%_) + (_%__kont112216112217%_ + _%L111393%_) + (_%__kont112218112219%_ + _%__stx112211112212%_)))))) + (if (gx#stx-pair? _%__stx112211112212%_) + (let ((_%e111294111516%_ (gx#syntax-e - _%__stx111079111080%_))) - (let ((_%tl110164110391%_ + _%__stx112211112212%_))) + (let ((_%tl111296111523%_ (let () (declare (not safe)) - (##cdr _%e110162110384%_))) - (_%hd110163110388%_ + (##cdr _%e111294111516%_))) + (_%hd111295111520%_ (let () (declare (not safe)) - (##car _%e110162110384%_)))) - (_%__kont111082111083%_ - _%tl110164110391%_ - _%hd110163110388%_))) + (##car _%e111294111516%_)))) + (_%__kont112214112215%_ + _%tl111296111523%_ + _%hd111295111520%_))) (let () (declare (not safe)) - (_%g110156110377%_))))))) - _%g110130110141%_)))) - (_%g110128110572%_ _%tgt110124%_))))) - (let* ((_%g109584109612%_ - (lambda (_%g109585109608%_) + (_%g111288111509%_))))))) + _%g111262111273%_)))) + (_%g111260111704%_ _%tgt111256%_))))) + (let* ((_%g110716110744%_ + (lambda (_%g110717110740%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109585109608%_))) - (_%g109583110118%_ - (lambda (_%g109585109616%_) - (if (gx#stx-pair? _%g109585109616%_) - (let ((_%e109589109619%_ - (gx#syntax-e _%g109585109616%_))) - (let ((_%hd109590109623%_ + _%g110717110740%_))) + (_%g110715111250%_ + (lambda (_%g110717110748%_) + (if (gx#stx-pair? _%g110717110748%_) + (let ((_%e110721110751%_ + (gx#syntax-e _%g110717110748%_))) + (let ((_%hd110722110755%_ (let () (declare (not safe)) - (##car _%e109589109619%_))) - (_%tl109591109626%_ + (##car _%e110721110751%_))) + (_%tl110723110758%_ (let () (declare (not safe)) - (##cdr _%e109589109619%_)))) - (if (gx#stx-pair? _%tl109591109626%_) - (let ((_%e109592109629%_ - (gx#syntax-e _%tl109591109626%_))) - (let ((_%hd109593109633%_ + (##cdr _%e110721110751%_)))) + (if (gx#stx-pair? _%tl110723110758%_) + (let ((_%e110724110761%_ + (gx#syntax-e _%tl110723110758%_))) + (let ((_%hd110725110765%_ (let () (declare (not safe)) - (##car _%e109592109629%_))) - (_%tl109594109636%_ + (##car _%e110724110761%_))) + (_%tl110726110768%_ (let () (declare (not safe)) - (##cdr _%e109592109629%_)))) - (if (gx#stx-pair? _%tl109594109636%_) - (let ((_%e109595109639%_ + (##cdr _%e110724110761%_)))) + (if (gx#stx-pair? _%tl110726110768%_) + (let ((_%e110727110771%_ (gx#syntax-e - _%tl109594109636%_))) - (let ((_%hd109596109643%_ + _%tl110726110768%_))) + (let ((_%hd110728110775%_ (let () (declare (not safe)) - (##car _%e109595109639%_))) - (_%tl109597109646%_ + (##car _%e110727110771%_))) + (_%tl110729110778%_ (let () (declare (not safe)) - (##cdr _%e109595109639%_)))) + (##cdr _%e110727110771%_)))) (if (gx#stx-pair/null? - _%tl109597109646%_) - (let ((_g111186_ + _%tl110729110778%_) + (let ((_g112318_ (gx#syntax-split-splice - _%tl109597109646%_ + _%tl110729110778%_ '0))) (begin - (let ((_g111187_ + (let ((_g112319_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g111186_) - (##vector-length _g111186_) + _g112318_) + (##vector-length _g112318_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g111187_ 2))) - (error "Context expects 2 values" _g111187_))) + (if (not (let () (declare (not safe)) (##fx= _g112319_ 2))) + (error "Context expects 2 values" _g112319_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target109598109649%_ + (let ((_%target110730110781%_ (let () (declare (not safe)) (##vector-ref - _g111186_ + _g112318_ 0))) - (_%tl109600109652%_ + (_%tl110732110784%_ (let () (declare (not safe)) (##vector-ref - _g111186_ + _g112318_ 1)))) (if (gx#stx-null? - _%tl109600109652%_) - (letrec ((_%loop109601109655%_ + _%tl110732110784%_) + (letrec ((_%loop110733110787%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd109599109659%_ _%clause109605109662%_) - (if (gx#stx-pair? _%hd109599109659%_) - (let ((_%e109602109665%_ - (gx#syntax-e _%hd109599109659%_))) - (let ((_%lp-hd109603109669%_ + (lambda (_%hd110731110791%_ _%clause110737110794%_) + (if (gx#stx-pair? _%hd110731110791%_) + (let ((_%e110734110797%_ + (gx#syntax-e _%hd110731110791%_))) + (let ((_%lp-hd110735110801%_ (let () (declare (not safe)) - (##car _%e109602109665%_))) - (_%lp-tl109604109672%_ + (##car _%e110734110797%_))) + (_%lp-tl110736110804%_ (let () (declare (not safe)) - (##cdr _%e109602109665%_)))) - (_%loop109601109655%_ - _%lp-tl109604109672%_ - (cons _%lp-hd109603109669%_ - _%clause109605109662%_)))) - (let ((_%clause109606109675%_ - (reverse _%clause109605109662%_))) - ((lambda (_%L109679%_ - _%L109681%_ - _%L109682%_) - (let _%recur109704%_ ((_%rest109707%_ - (let ((__tmp111190 + (##cdr _%e110734110797%_)))) + (_%loop110733110787%_ + _%lp-tl110736110804%_ + (cons _%lp-hd110735110801%_ + _%clause110737110794%_)))) + (let ((_%clause110738110807%_ + (reverse _%clause110737110794%_))) + ((lambda (_%L110811%_ + _%L110813%_ + _%L110814%_) + (let _%recur110836%_ ((_%rest110839%_ + (let ((__tmp112322 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g110109110112%_ _%g110110110115%_) - (cons _%g110109110112%_ _%g110110110115%_)))) + (lambda (_%g111241111244%_ _%g111242111247%_) + (cons _%g111241111244%_ _%g111242111247%_)))) (declare (not safe)) - (__foldr1 __tmp111190 '() _%L109679%_)))) + (__foldr1 __tmp112322 '() _%L110811%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest109709109718%_ - _%rest109707%_) - (_%E109712109724%_ + (let* ((_%rest110841110850%_ + _%rest110839%_) + (_%E110844110856%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest109709109718%_ + _%rest110841110850%_ '([hd . rest]) '([]))) '#!void))) - (let ((_%K109714110094%_ - (lambda (_%rest109740%_ - _%hd109742%_) - (let* ((_%g109744109752%_ - (lambda (_%g109745109748%_) + (let ((_%K110846111226%_ + (lambda (_%rest110872%_ + _%hd110874%_) + (let* ((_%g110876110884%_ + (lambda (_%g110877110880%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109745109748%_))) - (_%g109743110090%_ - (lambda (_%g109745109756%_) - ((lambda (_%L109759%_) + _%g110877110880%_))) + (_%g110875111222%_ + (lambda (_%g110877110888%_) + ((lambda (_%L110891%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g109777109785%_ - (lambda (_%g109778109781%_) + (let* ((_%g110909110917%_ + (lambda (_%g110910110913%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109778109781%_))) - (_%g109776110086%_ - (lambda (_%g109778109789%_) - ((lambda (_%L109792%_) - (let* ((_%g109805109813%_ - (lambda (_%g109806109809%_) + _%g110910110913%_))) + (_%g110908111218%_ + (lambda (_%g110910110921%_) + ((lambda (_%L110924%_) + (let* ((_%g110937110945%_ + (lambda (_%g110938110941%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109806109809%_))) - (_%g109804110082%_ - (lambda (_%g109806109817%_) - ((lambda (_%L109820%_) - (let* ((_%g109833109841%_ - (lambda (_%g109834109837%_) + _%g110938110941%_))) + (_%g110936111214%_ + (lambda (_%g110938110949%_) + ((lambda (_%L110952%_) + (let* ((_%g110965110973%_ + (lambda (_%g110966110969%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109834109837%_))) - (_%g109832109863%_ - (lambda (_%g109834109845%_) - ((lambda (_%L109848%_) + _%g110966110969%_))) + (_%g110964110995%_ + (lambda (_%g110966110977%_) + ((lambda (_%L110980%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) - (cons (cons _%L109759%_ + (cons (cons _%L110891%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L109820%_ + (cons _%L110952%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons _%L109848%_ '())))) - _%g109834109845%_)))) + (cons _%L110980%_ '())))) + _%g110966110977%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g109832109863%_ - (let* ((_%__stx111097111098%_ - _%hd109742%_) - (_%g109869109909%_ + (_%g110964110995%_ + (let* ((_%__stx112229112230%_ + _%hd110874%_) + (_%g111001111041%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%__stx111097111098%_)))) - (let ((_%__kont111100111101%_ - (lambda (_%L110055%_) + _%__stx112229112230%_)))) + (let ((_%__kont112232112233%_ + (lambda (_%L111187%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp111188 - (lambda (_%g110069110072%_ - _%g110070110075%_) - (cons _%g110069110072%_ - _%g110070110075%_)))) + (let ((__tmp112320 + (lambda (_%g111201111204%_ + _%g111202111207%_) + (cons _%g111201111204%_ + _%g111202111207%_)))) (declare (not safe)) - (__foldr1 __tmp111188 '() _%L110055%_))))) - (_%__kont111104111105%_ - (lambda (_%L109993%_ _%L109995%_) - (_%generate1109581%_ - _%L109995%_ - _%L109682%_ - _%L109993%_ - _%L109792%_ - _%L109681%_))) - (_%__kont111106111107%_ - (lambda (_%L109946%_ _%L109948%_ _%L109949%_) - (_%generate1109581%_ - _%L109949%_ - _%L109682%_ + (__foldr1 __tmp112320 '() _%L111187%_))))) + (_%__kont112236112237%_ + (lambda (_%L111125%_ _%L111127%_) + (_%generate1110713%_ + _%L111127%_ + _%L110814%_ + _%L111125%_ + _%L110924%_ + _%L110813%_))) + (_%__kont112238112239%_ + (lambda (_%L111078%_ _%L111080%_ _%L111081%_) + (_%generate1110713%_ + _%L111081%_ + _%L110814%_ (cons (gx#datum->syntax '#f 'if) - (cons _%L109948%_ - (cons _%L109946%_ - (cons _%L109792%_ '())))) - _%L109792%_ - _%L109681%_)))) - (let ((_%__match111126111127%_ - (lambda (_%e109872110015%_ - _%hd109873110019%_ - _%tl109874110022%_ - _%__splice111102111103%_ - _%target109875110025%_ - _%tl109877110028%_) - (letrec ((_%loop109878110031%_ - (lambda (_%hd109876110035%_ - _%expr109882110038%_) - (if (gx#stx-pair? _%hd109876110035%_) - (let ((_%e109879110041%_ + (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%_ (gx#syntax-e - _%hd109876110035%_))) - (let ((_%lp-tl109881110048%_ + _%hd111008111167%_))) + (let ((_%lp-tl111013111180%_ (let () (declare (not safe)) - (##cdr _%e109879110041%_))) - (_%lp-hd109880110045%_ + (##cdr _%e111011111173%_))) + (_%lp-hd111012111177%_ (let () (declare (not safe)) - (##car _%e109879110041%_)))) - (_%loop109878110031%_ - _%lp-tl109881110048%_ - (cons _%lp-hd109880110045%_ - _%expr109882110038%_)))) - (let ((_%expr109883110051%_ - (reverse _%expr109882110038%_))) - (_%__kont111100111101%_ - _%expr109883110051%_)))))) - (_%loop109878110031%_ - _%target109875110025%_ + (##car _%e111011111173%_)))) + (_%loop111010111163%_ + _%lp-tl111013111180%_ + (cons _%lp-hd111012111177%_ + _%expr111014111170%_)))) + (let ((_%expr111015111183%_ + (reverse _%expr111014111170%_))) + (_%__kont112232112233%_ + _%expr111015111183%_)))))) + (_%loop111010111163%_ + _%target111007111157%_ '()))))) - (if (gx#stx-pair? _%__stx111097111098%_) - (let ((_%e109872110015%_ - (gx#syntax-e _%__stx111097111098%_))) - (let ((_%tl109874110022%_ + (if (gx#stx-pair? _%__stx112229112230%_) + (let ((_%e111004111147%_ + (gx#syntax-e _%__stx112229112230%_))) + (let ((_%tl111006111154%_ (let () (declare (not safe)) - (##cdr _%e109872110015%_))) - (_%hd109873110019%_ + (##cdr _%e111004111147%_))) + (_%hd111005111151%_ (let () (declare (not safe)) - (##car _%e109872110015%_)))) - (if (gx#identifier? _%hd109873110019%_) + (##car _%e111004111147%_)))) + (if (gx#identifier? _%hd111005111151%_) (if (gx#free-identifier=? - |[1]#_g111189_| - _%hd109873110019%_) - (if (gx#stx-pair/null? _%tl109874110022%_) - (let ((_%__splice111102111103%_ + |[1]#_g112321_| + _%hd111005111151%_) + (if (gx#stx-pair/null? _%tl111006111154%_) + (let ((_%__splice112234112235%_ (gx#syntax-split-splice - _%tl109874110022%_ + _%tl111006111154%_ '0))) - (let ((_%tl109877110028%_ + (let ((_%tl111009111160%_ (let () (declare (not safe)) (##vector-ref - _%__splice111102111103%_ + _%__splice112234112235%_ '1))) - (_%target109875110025%_ + (_%target111007111157%_ (let () (declare (not safe)) (##vector-ref - _%__splice111102111103%_ + _%__splice112234112235%_ '0)))) (if (gx#stx-null? - _%tl109877110028%_) - (_%__match111126111127%_ - _%e109872110015%_ - _%hd109873110019%_ - _%tl109874110022%_ - _%__splice111102111103%_ - _%target109875110025%_ - _%tl109877110028%_) + _%tl111009111160%_) + (_%__match112258112259%_ + _%e111004111147%_ + _%hd111005111151%_ + _%tl111006111154%_ + _%__splice112234112235%_ + _%target111007111157%_ + _%tl111009111160%_) (if (gx#stx-pair? - _%tl109874110022%_) - (let ((_%e109889109983%_ + _%tl111006111154%_) + (let ((_%e111021111115%_ (gx#syntax-e - _%tl109874110022%_))) - (let ((_%tl109891109990%_ + _%tl111006111154%_))) + (let ((_%tl111023111122%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e109889109983%_))) - (_%hd109890109987%_ - (let () (declare (not safe)) (##car _%e109889109983%_)))) - (if (gx#stx-null? _%tl109891109990%_) - (_%__kont111104111105%_ - _%hd109890109987%_ - _%hd109873110019%_) - (if (gx#stx-pair? _%tl109891109990%_) - (let ((_%e109901109936%_ - (gx#syntax-e _%tl109891109990%_))) - (let ((_%tl109903109943%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e109901109936%_))) - (_%hd109902109940%_ + (##cdr _%e111033111068%_))) + (_%hd111034111072%_ (let () (declare (not safe)) - (##car _%e109901109936%_)))) - (if (gx#stx-null? _%tl109903109943%_) - (_%__kont111106111107%_ - _%hd109902109940%_ - _%hd109890109987%_ - _%hd109873110019%_) + (##car _%e111033111068%_)))) + (if (gx#stx-null? _%tl111035111075%_) + (_%__kont112238112239%_ + _%hd111034111072%_ + _%hd111022111119%_ + _%hd111005111151%_) (let () (declare (not safe)) - (_%g109869109909%_))))) - (let () (declare (not safe)) (_%g109869109909%_)))))) + (_%g111001111041%_))))) + (let () (declare (not safe)) (_%g111001111041%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g109869109909%_)))))) - (if (gx#stx-pair? _%tl109874110022%_) - (let ((_%e109889109983%_ + (_%g111001111041%_)))))) + (if (gx#stx-pair? _%tl111006111154%_) + (let ((_%e111021111115%_ (gx#syntax-e - _%tl109874110022%_))) - (let ((_%tl109891109990%_ + _%tl111006111154%_))) + (let ((_%tl111023111122%_ (let () (declare (not safe)) - (##cdr _%e109889109983%_))) - (_%hd109890109987%_ + (##cdr _%e111021111115%_))) + (_%hd111022111119%_ (let () (declare (not safe)) - (##car _%e109889109983%_)))) + (##car _%e111021111115%_)))) (if (gx#stx-null? - _%tl109891109990%_) - (_%__kont111104111105%_ - _%hd109890109987%_ - _%hd109873110019%_) + _%tl111023111122%_) + (_%__kont112236112237%_ + _%hd111022111119%_ + _%hd111005111151%_) (if (gx#stx-pair? - _%tl109891109990%_) - (let ((_%e109901109936%_ + _%tl111023111122%_) + (let ((_%e111033111068%_ (gx#syntax-e - _%tl109891109990%_))) - (let ((_%tl109903109943%_ + _%tl111023111122%_))) + (let ((_%tl111035111075%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _%e109901109936%_))) - (_%hd109902109940%_ + (##cdr _%e111033111068%_))) + (_%hd111034111072%_ (let () (declare (not safe)) - (##car _%e109901109936%_)))) - (if (gx#stx-null? _%tl109903109943%_) - (_%__kont111106111107%_ - _%hd109902109940%_ - _%hd109890109987%_ - _%hd109873110019%_) - (let () (declare (not safe)) (_%g109869109909%_))))) - (let () (declare (not safe)) (_%g109869109909%_)))))) + (##car _%e111033111068%_)))) + (if (gx#stx-null? _%tl111035111075%_) + (_%__kont112238112239%_ + _%hd111034111072%_ + _%hd111022111119%_ + _%hd111005111151%_) + (let () (declare (not safe)) (_%g111001111041%_))))) + (let () (declare (not safe)) (_%g111001111041%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g109869109909%_)))) - (if (gx#stx-pair? _%tl109874110022%_) - (let ((_%e109889109983%_ + (_%g111001111041%_)))) + (if (gx#stx-pair? _%tl111006111154%_) + (let ((_%e111021111115%_ (gx#syntax-e - _%tl109874110022%_))) - (let ((_%tl109891109990%_ + _%tl111006111154%_))) + (let ((_%tl111023111122%_ (let () (declare (not safe)) - (##cdr _%e109889109983%_))) - (_%hd109890109987%_ + (##cdr _%e111021111115%_))) + (_%hd111022111119%_ (let () (declare (not safe)) - (##car _%e109889109983%_)))) + (##car _%e111021111115%_)))) (if (gx#stx-null? - _%tl109891109990%_) - (_%__kont111104111105%_ - _%hd109890109987%_ - _%hd109873110019%_) + _%tl111023111122%_) + (_%__kont112236112237%_ + _%hd111022111119%_ + _%hd111005111151%_) (if (gx#stx-pair? - _%tl109891109990%_) - (let ((_%e109901109936%_ + _%tl111023111122%_) + (let ((_%e111033111068%_ (gx#syntax-e - _%tl109891109990%_))) - (let ((_%tl109903109943%_ + _%tl111023111122%_))) + (let ((_%tl111035111075%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e109901109936%_))) - (_%hd109902109940%_ - (let () (declare (not safe)) (##car _%e109901109936%_)))) - (if (gx#stx-null? _%tl109903109943%_) - (_%__kont111106111107%_ - _%hd109902109940%_ - _%hd109890109987%_ - _%hd109873110019%_) - (let () (declare (not safe)) (_%g109869109909%_))))) + (##cdr _%e111033111068%_))) + (_%hd111034111072%_ + (let () (declare (not safe)) (##car _%e111033111068%_)))) + (if (gx#stx-null? _%tl111035111075%_) + (_%__kont112238112239%_ + _%hd111034111072%_ + _%hd111022111119%_ + _%hd111005111151%_) + (let () (declare (not safe)) (_%g111001111041%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g109869109909%_)))))) + (_%g111001111041%_)))))) (let () (declare (not safe)) - (_%g109869109909%_)))) - (if (gx#stx-pair? _%tl109874110022%_) - (let ((_%e109889109983%_ - (gx#syntax-e _%tl109874110022%_))) - (let ((_%tl109891109990%_ + (_%g111001111041%_)))) + (if (gx#stx-pair? _%tl111006111154%_) + (let ((_%e111021111115%_ + (gx#syntax-e _%tl111006111154%_))) + (let ((_%tl111023111122%_ (let () (declare (not safe)) - (##cdr _%e109889109983%_))) - (_%hd109890109987%_ + (##cdr _%e111021111115%_))) + (_%hd111022111119%_ (let () (declare (not safe)) - (##car _%e109889109983%_)))) - (if (gx#stx-null? _%tl109891109990%_) - (_%__kont111104111105%_ - _%hd109890109987%_ - _%hd109873110019%_) + (##car _%e111021111115%_)))) + (if (gx#stx-null? _%tl111023111122%_) + (_%__kont112236112237%_ + _%hd111022111119%_ + _%hd111005111151%_) (if (gx#stx-pair? - _%tl109891109990%_) - (let ((_%e109901109936%_ + _%tl111023111122%_) + (let ((_%e111033111068%_ (gx#syntax-e - _%tl109891109990%_))) - (let ((_%tl109903109943%_ + _%tl111023111122%_))) + (let ((_%tl111035111075%_ (let () (declare (not safe)) - (##cdr _%e109901109936%_))) - (_%hd109902109940%_ + (##cdr _%e111033111068%_))) + (_%hd111034111072%_ (let () (declare (not safe)) - (##car _%e109901109936%_)))) + (##car _%e111033111068%_)))) (if (gx#stx-null? - _%tl109903109943%_) - (_%__kont111106111107%_ - _%hd109902109940%_ - _%hd109890109987%_ - _%hd109873110019%_) + _%tl111035111075%_) + (_%__kont112238112239%_ + _%hd111034111072%_ + _%hd111022111119%_ + _%hd111005111151%_) (let () (declare (not safe)) - (_%g109869109909%_))))) + (_%g111001111041%_))))) (let () (declare (not safe)) - (_%g109869109909%_)))))) + (_%g111001111041%_)))))) (let () (declare (not safe)) - (_%g109869109909%_)))))) + (_%g111001111041%_)))))) (let () (declare (not safe)) - (_%g109869109909%_))))))))) + (_%g111001111041%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g109806109817%_)))) - (_%g109804110082%_ - (_%recur109704%_ _%rest109740%_)))) - _%g109778109789%_)))) - (_%g109776110086%_ (cons _%L109759%_ '())))) - _%g109745109756%_)))) - (_%g109743110090%_ (gx#genident '$E))))) + _%g110938110949%_)))) + (_%g110936111214%_ + (_%recur110836%_ _%rest110872%_)))) + _%g110910110921%_)))) + (_%g110908111218%_ (cons _%L110891%_ '())))) + _%g110877110888%_)))) + (_%g110875111222%_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K109713109732%_ + (_%K110845110864%_ (lambda () (cons (gx#datum->syntax '#f @@ -1222,52 +1222,47 @@ (cons '#f (cons '"Bad syntax; malformed ast clause" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L109682%_ '()))))))) + (cons _%L110814%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match109711109736%_ + (let ((_%try-match110843110868%_ (lambda () - (if (let () - (declare - (not safe)) - (##null? _%rest109709109718%_)) - (_%K109713109732%_) - (_%E109712109724%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest109709109718%_)) - (let ((_%tl109716110101%_ + (if (null? _%rest110841110850%_) + (_%K110845110864%_) + (_%E110844110856%_))))) + (if (pair? _%rest110841110850%_) + (let ((_%tl110848111233%_ (let () (declare (not safe)) - (##cdr _%rest109709109718%_))) - (_%hd109715110098%_ + (##cdr _%rest110841110850%_))) + (_%hd110847111230%_ (let () (declare (not safe)) - (##car _%rest109709109718%_)))) - (let ((_%hd110104%_ - _%hd109715110098%_) - (_%rest110107%_ - _%tl109716110101%_)) - (_%K109714110094%_ - _%rest110107%_ - _%hd110104%_))) - (_%try-match109711109736%_))))))) - _%clause109606109675%_ - _%hd109596109643%_ - _%hd109593109633%_)))))) - (_%loop109601109655%_ _%target109598109649%_ '())) - (_%g109584109612%_ _%g109585109616%_))))) + (##car _%rest110841110850%_)))) + (let ((_%hd111236%_ + _%hd110847111230%_) + (_%rest111239%_ + _%tl110848111233%_)) + (_%K110846111226%_ + _%rest111239%_ + _%hd111236%_))) + (_%try-match110843110868%_))))))) + _%clause110738110807%_ + _%hd110728110775%_ + _%hd110725110765%_)))))) + (_%loop110733110787%_ _%target110730110781%_ '())) + (_%g110716110744%_ _%g110717110748%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g109584109612%_ - _%g109585109616%_)))) - (_%g109584109612%_ - _%g109585109616%_)))) - (_%g109584109612%_ _%g109585109616%_)))) - (_%g109584109612%_ _%g109585109616%_))))) - (_%g109583110118%_ _%stx109578%_))))) + (_%g110716110744%_ + _%g110717110748%_)))) + (_%g110716110744%_ + _%g110717110748%_)))) + (_%g110716110744%_ _%g110717110748%_)))) + (_%g110716110744%_ _%g110717110748%_))))) + (_%g110715111250%_ _%stx110710%_))))) (define |[:0:]#SyntaxError| - (let ((__obj111172 + (let ((__obj112304 (let () (declare (not safe)) (##structure @@ -1296,18 +1291,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111172 + __obj112304 'gerbil/runtime/syntax#SyntaxError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111172 'SyntaxError '2 '#f '#f)) + (##unchecked-structure-set! __obj112304 'SyntaxError '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj111172 + __obj112304 '(message irritants where context phi marks) '4 '#f @@ -1315,99 +1310,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111172 + __obj112304 '(continuation message irritants where context phi marks) '6 '#f '#f)) - (let ((__tmp111191 (cons |[1]#_g111192_| (cons |[1]#_g111193_| '())))) + (let ((__tmp112323 (cons |[1]#_g112324_| (cons |[1]#_g112325_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111172 __tmp111191 '3 '#f '#f)) + (##unchecked-structure-set! __obj112304 __tmp112323 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111172 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj112304 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111172 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj112304 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111172 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj112304 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111172 '#f '11 '#f '#f)) - (let ((__tmp111194 |[1]#_g111195_|)) + (##unchecked-structure-set! __obj112304 '#f '11 '#f '#f)) + (let ((__tmp112326 |[1]#_g112327_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111172 __tmp111194 '12 '#f '#f)) - (let ((__tmp111196 |[1]#_g111197_|)) + (##unchecked-structure-set! __obj112304 __tmp112326 '12 '#f '#f)) + (let ((__tmp112328 |[1]#_g112329_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111172 __tmp111196 '13 '#f '#f)) - (let ((__tmp111198 |[1]#_g111199_|)) + (##unchecked-structure-set! __obj112304 __tmp112328 '13 '#f '#f)) + (let ((__tmp112330 |[1]#_g112331_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111172 __tmp111198 '14 '#f '#f)) - (let ((__tmp111200 - (cons (cons 'message |[1]#_g111201_|) - (cons (cons 'irritants |[1]#_g111202_|) - (cons (cons 'where |[1]#_g111203_|) - (cons (cons 'context |[1]#_g111204_|) - (cons (cons 'phi |[1]#_g111205_|) + (##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_|) (cons (cons 'marks - |[1]#_g111206_|) + |[1]#_g112338_|) (cons (cons 'continuation - |[1]#_g111207_|) + |[1]#_g112339_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj111172 __tmp111200 '15 '#f '#f)) - (let ((__tmp111208 - (cons (cons 'message |[1]#_g111209_|) - (cons (cons 'irritants |[1]#_g111210_|) - (cons (cons 'where |[1]#_g111211_|) - (cons (cons 'context |[1]#_g111212_|) - (cons (cons 'phi |[1]#_g111213_|) + (##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_|) (cons (cons 'marks - |[1]#_g111214_|) + |[1]#_g112346_|) (cons (cons 'continuation - |[1]#_g111215_|) + |[1]#_g112347_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj111172 __tmp111208 '16 '#f '#f)) - (let ((__tmp111216 - (cons (cons 'message |[1]#_g111217_|) - (cons (cons 'irritants |[1]#_g111218_|) - (cons (cons 'where |[1]#_g111219_|) - (cons (cons 'context |[1]#_g111220_|) - (cons (cons 'phi |[1]#_g111221_|) + (##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_|) (cons (cons 'marks - |[1]#_g111222_|) + |[1]#_g112354_|) (cons (cons 'continuation - |[1]#_g111223_|) + |[1]#_g112355_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj111172 __tmp111216 '17 '#f '#f)) - (let ((__tmp111224 - (cons (cons 'message |[1]#_g111225_|) - (cons (cons 'irritants |[1]#_g111226_|) - (cons (cons 'where |[1]#_g111227_|) - (cons (cons 'context |[1]#_g111228_|) - (cons (cons 'phi |[1]#_g111229_|) + (##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_|) (cons (cons 'marks - |[1]#_g111230_|) + |[1]#_g112362_|) (cons (cons 'continuation - |[1]#_g111231_|) + |[1]#_g112363_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj111172 __tmp111224 '18 '#f '#f)) + (##unchecked-structure-set! __obj112304 __tmp112356 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111172 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj112304 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111172 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj112304 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111172 '() '20 '#f '#f)) - __obj111172)) + (##unchecked-structure-set! __obj112304 '() '20 '#f '#f)) + __obj112304)) (define |[:0:]#AST| - (let ((__obj111174 + (let ((__obj112306 (let () (declare (not safe)) (##structure @@ -1435,67 +1430,67 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111174 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj112306 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111174 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj112306 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111174 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj112306 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111174 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj112306 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111174 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj112306 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111174 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj112306 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111174 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj112306 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111174 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj112306 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111174 '#f '11 '#f '#f)) - (let ((__tmp111232 |[1]#_g111233_|)) + (##unchecked-structure-set! __obj112306 '#f '11 '#f '#f)) + (let ((__tmp112364 |[1]#_g112365_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111174 __tmp111232 '12 '#f '#f)) - (let ((__tmp111234 |[1]#_g111235_|)) + (##unchecked-structure-set! __obj112306 __tmp112364 '12 '#f '#f)) + (let ((__tmp112366 |[1]#_g112367_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111174 __tmp111234 '13 '#f '#f)) - (let ((__tmp111236 |[1]#_g111237_|)) + (##unchecked-structure-set! __obj112306 __tmp112366 '13 '#f '#f)) + (let ((__tmp112368 |[1]#_g112369_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111174 __tmp111236 '14 '#f '#f)) - (let ((__tmp111238 - (cons (cons 'e |[1]#_g111239_|) - (cons (cons 'source |[1]#_g111240_|) '())))) + (##unchecked-structure-set! __obj112306 __tmp112368 '14 '#f '#f)) + (let ((__tmp112370 + (cons (cons 'e |[1]#_g112371_|) + (cons (cons 'source |[1]#_g112372_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111174 __tmp111238 '15 '#f '#f)) - (let ((__tmp111241 - (cons (cons 'e |[1]#_g111242_|) - (cons (cons 'source |[1]#_g111243_|) '())))) + (##unchecked-structure-set! __obj112306 __tmp112370 '15 '#f '#f)) + (let ((__tmp112373 + (cons (cons 'e |[1]#_g112374_|) + (cons (cons 'source |[1]#_g112375_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111174 __tmp111241 '16 '#f '#f)) - (let ((__tmp111244 - (cons (cons 'e |[1]#_g111245_|) - (cons (cons 'source |[1]#_g111246_|) '())))) + (##unchecked-structure-set! __obj112306 __tmp112373 '16 '#f '#f)) + (let ((__tmp112376 + (cons (cons 'e |[1]#_g112377_|) + (cons (cons 'source |[1]#_g112378_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111174 __tmp111244 '17 '#f '#f)) - (let ((__tmp111247 - (cons (cons 'e |[1]#_g111248_|) - (cons (cons 'source |[1]#_g111249_|) '())))) + (##unchecked-structure-set! __obj112306 __tmp112376 '17 '#f '#f)) + (let ((__tmp112379 + (cons (cons 'e |[1]#_g112380_|) + (cons (cons 'source |[1]#_g112381_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111174 __tmp111247 '18 '#f '#f)) + (##unchecked-structure-set! __obj112306 __tmp112379 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111174 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj112306 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111174 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj112306 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111174 '() '20 '#f '#f)) - __obj111174)))) + (##unchecked-structure-set! __obj112306 '() '20 '#f '#f)) + __obj112306)))) diff --git a/src/bootstrap/gerbil/runtime/system~0.scm b/src/bootstrap/gerbil/runtime/system~0.scm index 398ca5a02..1999cc94a 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 1713454409) + (define gerbil/runtime/system::timestamp 1713631264) (begin - (define gerbil-version-string (lambda () '"v0.18.1-110-g2544c9061")) + (define gerbil-version-string (lambda () '"v0.18.1-112-g13d6b30a3")) (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-value93279%_) - (if (list? _%new-value93279%_) - (let ((_%new-value93283%_ _%new-value93279%_)) - (__build-manifest-set! _%new-value93283%_)) + (lambda (_%new-value94411%_) + (if (list? _%new-value94411%_) + (let ((_%new-value94415%_ _%new-value94411%_)) + (__build-manifest-set! _%new-value94415%_)) (begin (raise-contract-violation-error '"contract violation" @@ -21,21 +21,21 @@ 'contract: 'list? 'value: - _%new-value93279%_) + _%new-value94411%_) '#!void)))) (define __build-manifest-set! - (lambda (_%new-value93266%_) - (let ((_%new-value93270%_ _%new-value93266%_)) - (set! __build-manifest _%new-value93270%_)))) + (lambda (_%new-value94398%_) + (let ((_%new-value94402%_ _%new-value94398%_)) + (set! __build-manifest _%new-value94402%_)))) (define display-build-manifest__% - (lambda (_%manifest93226%_ _%port93227%_) - (if (list? _%manifest93226%_) - (let ((_%manifest93231%_ _%manifest93226%_)) - (if (port? _%port93227%_) - (let ((_%port93241%_ _%port93227%_)) + (lambda (_%manifest94358%_ _%port94359%_) + (if (list? _%manifest94358%_) + (let ((_%manifest94363%_ _%manifest94358%_)) + (if (port? _%port94359%_) + (let ((_%port94373%_ _%port94359%_)) (__display-build-manifest__% - _%manifest93231%_ - _%port93241%_)) + _%manifest94363%_ + _%port94373%_)) (begin (raise-contract-violation-error '"contract violation" @@ -44,7 +44,7 @@ 'contract: 'port? 'value: - _%port93227%_) + _%port94359%_) '#!void))) (begin (raise-contract-violation-error @@ -54,111 +54,109 @@ 'contract: 'list? 'value: - _%manifest93226%_) + _%manifest94358%_) '#!void)))) (define display-build-manifest__0 (lambda () - (let* ((_%manifest93255%_ __build-manifest) - (_%port93257%_ (current-output-port))) - (__display-build-manifest__% _%manifest93255%_ _%port93257%_)))) + (let* ((_%manifest94387%_ __build-manifest) + (_%port94389%_ (current-output-port))) + (__display-build-manifest__% _%manifest94387%_ _%port94389%_)))) (define display-build-manifest__1 - (lambda (_%manifest93259%_) - (let ((_%port93261%_ (current-output-port))) - (display-build-manifest__% _%manifest93259%_ _%port93261%_)))) + (lambda (_%manifest94391%_) + (let ((_%port94393%_ (current-output-port))) + (display-build-manifest__% _%manifest94391%_ _%port94393%_)))) (define display-build-manifest - (lambda _g93295_ - (let ((_g93294_ (let () (declare (not safe)) (##length _g93295_)))) - (cond ((let () (declare (not safe)) (##fx= _g93294_ 0)) - (apply display-build-manifest__0 _g93295_)) - ((let () (declare (not safe)) (##fx= _g93294_ 1)) - (apply display-build-manifest__1 _g93295_)) - ((let () (declare (not safe)) (##fx= _g93294_ 2)) - (apply display-build-manifest__% _g93295_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception display-build-manifest - _g93295_)))))) + _g94427_)))))) (define __display-build-manifest__% - (lambda (_%manifest93148%_ _%port93149%_) - (let* ((_%manifest93152%_ _%manifest93148%_) - (_%port93160%_ _%port93149%_)) - (let ((_%p93173%_ - (lambda (_%g9316893170%_) - (display _%g9316893170%_ _%port93160%_))) - (_%l93174%_ - (let () (declare (not safe)) (##length _%manifest93152%_))) - (_%i93175%_ '0)) - (let ((__tmp93296 - (lambda (_%layer93177%_) - (if (zero? _%i93175%_) + (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%_) '#!void - (if (= _%i93175%_ '1) - (_%p93173%_ '" on ") - (_%p93173%_ '", "))) - (let* ((_%layer9318193188%_ _%layer93177%_) - (_%E9318393192%_ + (if (= _%i94307%_ '1) + (_%p94305%_ '" on ") + (_%p94305%_ '", "))) + (let* ((_%layer9431394320%_ _%layer94309%_) + (_%E9431594324%_ (lambda () (error '"No clause matching" - _%layer9318193188%_ + _%layer9431394320%_ '([name . version])) '#!void)) - (_%K9318493198%_ - (lambda (_%version93195%_ _%name93196%_) - (_%p93173%_ _%name93196%_) - (_%p93173%_ '" ") - (_%p93173%_ _%version93195%_)))) - (if (let () - (declare (not safe)) - (##pair? _%layer9318193188%_)) - (let ((_%hd9318593201%_ + (_%K9431694330%_ + (lambda (_%version94327%_ _%name94328%_) + (_%p94305%_ _%name94328%_) + (_%p94305%_ '" ") + (_%p94305%_ _%version94327%_)))) + (if (pair? _%layer9431394320%_) + (let ((_%hd9431794333%_ (let () (declare (not safe)) - (##car _%layer9318193188%_))) - (_%tl9318693203%_ + (##car _%layer9431394320%_))) + (_%tl9431894335%_ (let () (declare (not safe)) - (##cdr _%layer9318193188%_)))) - (let* ((_%name93206%_ _%hd9318593201%_) - (_%version93208%_ _%tl9318693203%_)) - (_%K9318493198%_ - _%version93208%_ - _%name93206%_))) - (_%E9318393192%_))) - (set! _%i93175%_ (+ _%i93175%_ '1))))) + (##cdr _%layer9431394320%_)))) + (let* ((_%name94338%_ _%hd9431794333%_) + (_%version94340%_ _%tl9431894335%_)) + (_%K9431694330%_ + _%version94340%_ + _%name94338%_))) + (_%E9431594324%_))) + (set! _%i94307%_ (+ _%i94307%_ '1))))) (declare (not safe)) - (##for-each __tmp93296 _%manifest93152%_)))))) + (##for-each __tmp94428 _%manifest94284%_)))))) (define __display-build-manifest__0 (lambda () - (let* ((_%manifest93214%_ __build-manifest) - (_%port93216%_ (current-output-port))) - (__display-build-manifest__% _%manifest93214%_ _%port93216%_)))) + (let* ((_%manifest94346%_ __build-manifest) + (_%port94348%_ (current-output-port))) + (__display-build-manifest__% _%manifest94346%_ _%port94348%_)))) (define __display-build-manifest__1 - (lambda (_%manifest93218%_) - (let ((_%port93220%_ (current-output-port))) - (__display-build-manifest__% _%manifest93218%_ _%port93220%_)))) + (lambda (_%manifest94350%_) + (let ((_%port94352%_ (current-output-port))) + (__display-build-manifest__% _%manifest94350%_ _%port94352%_)))) (define __display-build-manifest - (lambda _g93298_ - (let ((_g93297_ (let () (declare (not safe)) (##length _g93298_)))) - (cond ((let () (declare (not safe)) (##fx= _g93297_ 0)) - (apply __display-build-manifest__0 _g93298_)) - ((let () (declare (not safe)) (##fx= _g93297_ 1)) - (apply __display-build-manifest__1 _g93298_)) - ((let () (declare (not safe)) (##fx= _g93297_ 2)) - (apply __display-build-manifest__% _g93298_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __display-build-manifest - _g93298_)))))) + _g94430_)))))) (define build-manifest/layer - (lambda (_%layer93143%_) - (let ((_%l93145%_ (assoc _%layer93143%_ __build-manifest))) - (if _%l93145%_ (cons _%l93145%_ '()) '())))) + (lambda (_%layer94275%_) + (let ((_%l94277%_ (assoc _%layer94275%_ __build-manifest))) + (if _%l94277%_ (cons _%l94277%_ '()) '())))) (define build-manifest/head (lambda () (cons (car __build-manifest) '()))) (define build-manifest-string__% - (lambda (_%manifest93120%_) - (if (list? _%manifest93120%_) - (let ((_%manifest93124%_ _%manifest93120%_)) - (__build-manifest-string__% _%manifest93124%_)) + (lambda (_%manifest94252%_) + (if (list? _%manifest94252%_) + (let ((_%manifest94256%_ _%manifest94252%_)) + (__build-manifest-string__% _%manifest94256%_)) (begin (raise-contract-violation-error '"contract violation" @@ -167,54 +165,54 @@ 'contract: 'list? 'value: - _%manifest93120%_) + _%manifest94252%_) '#!void)))) (define build-manifest-string__0 (lambda () - (let ((_%manifest93138%_ __build-manifest)) - (__build-manifest-string__% _%manifest93138%_)))) + (let ((_%manifest94270%_ __build-manifest)) + (__build-manifest-string__% _%manifest94270%_)))) (define build-manifest-string - (lambda _g93300_ - (let ((_g93299_ (let () (declare (not safe)) (##length _g93300_)))) - (cond ((let () (declare (not safe)) (##fx= _g93299_ 0)) - (apply build-manifest-string__0 _g93300_)) - ((let () (declare (not safe)) (##fx= _g93299_ 1)) - (apply build-manifest-string__% _g93300_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception build-manifest-string - _g93300_)))))) + _g94432_)))))) (define __build-manifest-string__% - (lambda (_%manifest93097%_) - (let ((_%manifest93100%_ _%manifest93097%_)) + (lambda (_%manifest94229%_) + (let ((_%manifest94232%_ _%manifest94229%_)) (call-with-output-string '() - (lambda (_%p93109%_) - (display-build-manifest__% _%manifest93100%_ _%p93109%_)))))) + (lambda (_%p94241%_) + (display-build-manifest__% _%manifest94232%_ _%p94241%_)))))) (define __build-manifest-string__0 (lambda () - (let ((_%manifest93115%_ __build-manifest)) - (__build-manifest-string__% _%manifest93115%_)))) + (let ((_%manifest94247%_ __build-manifest)) + (__build-manifest-string__% _%manifest94247%_)))) (define __build-manifest-string - (lambda _g93302_ - (let ((_g93301_ (let () (declare (not safe)) (##length _g93302_)))) - (cond ((let () (declare (not safe)) (##fx= _g93301_ 0)) - (apply __build-manifest-string__0 _g93302_)) - ((let () (declare (not safe)) (##fx= _g93301_ 1)) - (apply __build-manifest-string__% _g93302_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __build-manifest-string - _g93302_)))))) + _g94434_)))))) (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-value93079%_) - (if (string? _%new-value93079%_) - (let ((_%new-value93083%_ _%new-value93079%_)) - (__gerbil-greeting-set! _%new-value93083%_)) + (lambda (_%new-value94211%_) + (if (string? _%new-value94211%_) + (let ((_%new-value94215%_ _%new-value94211%_)) + (__gerbil-greeting-set! _%new-value94215%_)) (begin (raise-contract-violation-error '"contract violation" @@ -223,34 +221,34 @@ 'contract: 'string? 'value: - _%new-value93079%_) + _%new-value94211%_) '#!void)))) (define __gerbil-greeting-set! - (lambda (_%new-value93065%_) - (let ((_%new-value93069%_ _%new-value93065%_)) - (set! __gerbil-greeting _%new-value93069%_)))) + (lambda (_%new-value94197%_) + (let ((_%new-value94201%_ _%new-value94197%_)) + (set! __gerbil-greeting _%new-value94201%_)))) (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home (lambda () - (let ((_%$e93061%_ + (let ((_%$e94193%_ (let () (declare (not safe)) (##getenv '"GERBIL_HOME" '#f)))) - (if _%$e93061%_ _%$e93061%_ (path-expand '"~~"))))) + (if _%$e94193%_ _%$e94193%_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_%$e93057%_ + (let ((_%$e94189%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%$e93057%_ _%$e93057%_ (path-expand '"~/.gerbil"))))) + (if _%$e94189%_ _%$e94189%_ (path-expand '"~/.gerbil"))))) (define __smp? '#!void) (define gerbil-runtime-smp? (lambda () (if (eq? __smp? '#!void) (set! __smp? - (if (let ((__tmp93303 - (let ((__tmp93304 (configure-command-string))) + (if (let ((__tmp94435 + (let ((__tmp94436 (configure-command-string))) (declare (not safe)) - (__string-split __tmp93304 '#\')))) + (__string-split __tmp94436 '#\')))) (declare (not safe)) - (##member '"--enable-smp" __tmp93303)) + (##member '"--enable-smp" __tmp94435)) '#t '#f)) '#!void) diff --git a/src/bootstrap/gerbil/runtime/table~0.scm b/src/bootstrap/gerbil/runtime/table~0.scm index 4dcdafd75..47f01e49c 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 1713454409) + (define gerbil/runtime/table::timestamp 1713631264) (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 (_%tab92749%_) + (lambda (_%tab93881%_) (##unchecked-structure-ref - _%tab92749%_ + _%tab93881%_ '1 __table::t 'raw-table-table))) (define &raw-table-count - (lambda (_%tab92747%_) + (lambda (_%tab93879%_) (##unchecked-structure-ref - _%tab92747%_ + _%tab93879%_ '2 __table::t 'raw-table-count))) (define &raw-table-free - (lambda (_%tab92745%_) + (lambda (_%tab93877%_) (##unchecked-structure-ref - _%tab92745%_ + _%tab93877%_ '3 __table::t 'raw-table-free))) (define &raw-table-hash - (lambda (_%tab92743%_) + (lambda (_%tab93875%_) (##unchecked-structure-ref - _%tab92743%_ + _%tab93875%_ '4 __table::t 'raw-table-hash))) (define &raw-table-test - (lambda (_%tab92741%_) + (lambda (_%tab93873%_) (##unchecked-structure-ref - _%tab92741%_ + _%tab93873%_ '5 __table::t 'raw-table-test))) (define &raw-table-seed - (lambda (_%tab92739%_) + (lambda (_%tab93871%_) (##unchecked-structure-ref - _%tab92739%_ + _%tab93871%_ '6 __table::t 'raw-table-seed))) (define &raw-table-table-set! - (lambda (_%tab92736%_ _%val92737%_) + (lambda (_%tab93868%_ _%val93869%_) (##unchecked-structure-set! - _%tab92736%_ - _%val92737%_ + _%tab93868%_ + _%val93869%_ '1 __table::t 'raw-table-table-set!))) (define &raw-table-count-set! - (lambda (_%tab92733%_ _%val92734%_) + (lambda (_%tab93865%_ _%val93866%_) (##unchecked-structure-set! - _%tab92733%_ - _%val92734%_ + _%tab93865%_ + _%val93866%_ '2 __table::t 'raw-table-count-set!))) (define &raw-table-free-set! - (lambda (_%tab92730%_ _%val92731%_) + (lambda (_%tab93862%_ _%val93863%_) (##unchecked-structure-set! - _%tab92730%_ - _%val92731%_ + _%tab93862%_ + _%val93863%_ '3 __table::t 'raw-table-free-set!))) (define &raw-table-hash-set! - (lambda (_%tab92727%_ _%val92728%_) + (lambda (_%tab93859%_ _%val93860%_) (##unchecked-structure-set! - _%tab92727%_ - _%val92728%_ + _%tab93859%_ + _%val93860%_ '4 __table::t 'raw-table-hash-set!))) (define &raw-table-test-set! - (lambda (_%tab92724%_ _%val92725%_) + (lambda (_%tab93856%_ _%val93857%_) (##unchecked-structure-set! - _%tab92724%_ - _%val92725%_ + _%tab93856%_ + _%val93857%_ '5 __table::t 'raw-table-test-set!))) (define &raw-table-seed-set! - (lambda (_%tab92721%_ _%val92722%_) + (lambda (_%tab93853%_ _%val93854%_) (##unchecked-structure-set! - _%tab92721%_ - _%val92722%_ + _%tab93853%_ + _%val93854%_ '6 __table::t 'raw-table-seed-set!))) (define raw-table-size-hint->size - (lambda (_%size-hint92719%_) - (if (and (fixnum? _%size-hint92719%_) (##fx> _%size-hint92719%_ '0)) - (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint92719%_))) '4) + (lambda (_%size-hint93851%_) + (if (and (fixnum? _%size-hint93851%_) (##fx> _%size-hint93851%_ '0)) + (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint93851%_))) '4) '16))) (define make-raw-table__% - (lambda (_%size-hint92695%_ _%hash92696%_ _%test92697%_ _%seed92698%_) - (let* ((_%size92700%_ (raw-table-size-hint->size _%size-hint92695%_)) - (_%table92702%_ - (##make-vector _%size92700%_ (macro-unused-obj)))) + (lambda (_%size-hint93827%_ _%hash93828%_ _%test93829%_ _%seed93830%_) + (let* ((_%size93832%_ (raw-table-size-hint->size _%size-hint93827%_)) + (_%table93834%_ + (##make-vector _%size93832%_ (macro-unused-obj)))) (##structure __table::t - _%table92702%_ + _%table93834%_ '0 - (##fxquotient _%size92700%_ '2) - _%hash92696%_ - _%test92697%_ - _%seed92698%_)))) + (##fxquotient _%size93832%_ '2) + _%hash93828%_ + _%test93829%_ + _%seed93830%_)))) (define make-raw-table__0 - (lambda (_%size-hint92708%_ _%hash92709%_ _%test92710%_) - (let ((_%seed92712%_ '0)) + (lambda (_%size-hint93840%_ _%hash93841%_ _%test93842%_) + (let ((_%seed93844%_ '0)) (make-raw-table__% - _%size-hint92708%_ - _%hash92709%_ - _%test92710%_ - _%seed92712%_)))) + _%size-hint93840%_ + _%hash93841%_ + _%test93842%_ + _%seed93844%_)))) (define make-raw-table - (lambda _g92751_ - (let ((_g92750_ (##length _g92751_))) - (cond ((##fx= _g92750_ 3) (apply make-raw-table__0 _g92751_)) - ((##fx= _g92750_ 4) (apply make-raw-table__% _g92751_)) + (lambda _g93883_ + (let ((_g93882_ (##length _g93883_))) + (cond ((##fx= _g93882_ 3) (apply make-raw-table__0 _g93883_)) + ((##fx= _g93882_ 4) (apply make-raw-table__% _g93883_)) (else (##raise-wrong-number-of-arguments-exception make-raw-table - _g92751_)))))) + _g93883_)))))) (define raw-table-ref - (lambda (_%tab92646%_ _%key92647%_ _%default92648%_) - (let ((_%table92650%_ (&raw-table-table _%tab92646%_)) - (_%seed92651%_ (&raw-table-seed _%tab92646%_)) - (_%hash92652%_ (&raw-table-hash _%tab92646%_)) - (_%test92653%_ (&raw-table-test _%tab92646%_))) - (let* ((_%h92655%_ - (fxxor (_%hash92652%_ _%key92647%_) _%seed92651%_)) - (_%size92658%_ (vector-length _%table92650%_)) - (_%entries92661%_ (##fxquotient _%size92658%_ '2)) - (_%start92664%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92655%_ _%entries92661%_) + (##fxmodulo _%h93787%_ _%entries93793%_) '1))) - (let _%loop92668%_ ((_%probe92671%_ _%start92664%_) - (_%i92673%_ '1) - (_%deleted92675%_ '#f)) - (let ((_%k92678%_ (vector-ref _%table92650%_ _%probe92671%_))) - (if (eq? _%k92678%_ (macro-unused-obj)) - _%default92648%_ - (if (eq? _%k92678%_ (macro-deleted-obj)) - (_%loop92668%_ - (let ((_%next-probe92683%_ - (fx+ _%start92664%_ - _%i92673%_ - (fx* _%i92673%_ _%i92673%_)))) - (##fxmodulo _%next-probe92683%_ _%size92658%_)) - (##fx+ _%i92673%_ '1) - (let ((_%$e92686%_ _%deleted92675%_)) - (if _%$e92686%_ _%$e92686%_ _%probe92671%_))) - (if (_%test92653%_ _%key92647%_ _%k92678%_) + (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%_) (vector-ref - _%table92650%_ - (##fx+ _%probe92671%_ '1)) - (_%loop92668%_ - (let ((_%next-probe92691%_ - (fx+ _%start92664%_ - _%i92673%_ - (fx* _%i92673%_ _%i92673%_)))) - (##fxmodulo _%next-probe92691%_ _%size92658%_)) - (##fx+ _%i92673%_ '1) - _%deleted92675%_)))))))))) + _%table93782%_ + (##fx+ _%probe93803%_ '1)) + (_%loop93800%_ + (let ((_%next-probe93823%_ + (fx+ _%start93796%_ + _%i93805%_ + (fx* _%i93805%_ _%i93805%_)))) + (##fxmodulo _%next-probe93823%_ _%size93790%_)) + (##fx+ _%i93805%_ '1) + _%deleted93807%_)))))))))) (define raw-table-set! - (lambda (_%tab92642%_ _%key92643%_ _%value92644%_) - (if (##fx< (&raw-table-free _%tab92642%_) + (lambda (_%tab93774%_ _%key93775%_ _%value93776%_) + (if (##fx< (&raw-table-free _%tab93774%_) (##fxquotient - (vector-length (&raw-table-table _%tab92642%_)) + (vector-length (&raw-table-table _%tab93774%_)) '4)) - (__raw-table-rehash! _%tab92642%_) + (__raw-table-rehash! _%tab93774%_) '#!void) - (__raw-table-set! _%tab92642%_ _%key92643%_ _%value92644%_))) + (__raw-table-set! _%tab93774%_ _%key93775%_ _%value93776%_))) (define raw-table-update! - (lambda (_%tab92637%_ _%key92638%_ _%update92639%_ _%default92640%_) - (if (##fx< (&raw-table-free _%tab92637%_) + (lambda (_%tab93769%_ _%key93770%_ _%update93771%_ _%default93772%_) + (if (##fx< (&raw-table-free _%tab93769%_) (##fxquotient - (vector-length (&raw-table-table _%tab92637%_)) + (vector-length (&raw-table-table _%tab93769%_)) '4)) - (__raw-table-rehash! _%tab92637%_) + (__raw-table-rehash! _%tab93769%_) '#!void) (__raw-table-update! - _%tab92637%_ - _%key92638%_ - _%update92639%_ - _%default92640%_))) + _%tab93769%_ + _%key93770%_ + _%update93771%_ + _%default93772%_))) (define raw-table-delete! - (lambda (_%tab92594%_ _%key92595%_) - (let ((_%table92597%_ (&raw-table-table _%tab92594%_)) - (_%seed92598%_ (&raw-table-seed _%tab92594%_)) - (_%hash92599%_ (&raw-table-hash _%tab92594%_)) - (_%test92600%_ (&raw-table-test _%tab92594%_))) - (let* ((_%h92602%_ - (fxxor (_%hash92599%_ _%key92595%_) _%seed92598%_)) - (_%size92605%_ (vector-length _%table92597%_)) - (_%entries92608%_ (##fxquotient _%size92605%_ '2)) - (_%start92611%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92602%_ _%entries92608%_) + (##fxmodulo _%h93734%_ _%entries93740%_) '1))) - (let _%loop92615%_ ((_%probe92618%_ _%start92611%_) - (_%i92620%_ '1)) - (let ((_%k92623%_ (vector-ref _%table92597%_ _%probe92618%_))) - (if (eq? _%k92623%_ (macro-unused-obj)) + (let _%loop93747%_ ((_%probe93750%_ _%start93743%_) + (_%i93752%_ '1)) + (let ((_%k93755%_ (vector-ref _%table93729%_ _%probe93750%_))) + (if (eq? _%k93755%_ (macro-unused-obj)) '#!void - (if (eq? _%k92623%_ (macro-deleted-obj)) - (_%loop92615%_ - (let ((_%next-probe92628%_ - (fx+ _%start92611%_ - _%i92620%_ - (fx* _%i92620%_ _%i92620%_)))) - (##fxmodulo _%next-probe92628%_ _%size92605%_)) - (##fx+ _%i92620%_ '1)) - (if (_%test92600%_ _%key92595%_ _%k92623%_) + (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%_) (let () (vector-set! - _%table92597%_ - _%probe92618%_ + _%table93729%_ + _%probe93750%_ (macro-deleted-obj)) (vector-set! - _%table92597%_ - (##fx+ _%probe92618%_ '1) + _%table93729%_ + (##fx+ _%probe93750%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab92594%_ - (##fx- (&raw-table-count _%tab92594%_) + _%tab93726%_ + (##fx- (&raw-table-count _%tab93726%_) '1))))) - (_%loop92615%_ - (let ((_%next-probe92634%_ - (fx+ _%start92611%_ - _%i92620%_ - (fx* _%i92620%_ _%i92620%_)))) - (##fxmodulo _%next-probe92634%_ _%size92605%_)) - (##fx+ _%i92620%_ '1))))))))))) + (_%loop93747%_ + (let ((_%next-probe93766%_ + (fx+ _%start93743%_ + _%i93752%_ + (fx* _%i93752%_ _%i93752%_)))) + (##fxmodulo _%next-probe93766%_ _%size93737%_)) + (##fx+ _%i93752%_ '1))))))))))) (define raw-table-for-each - (lambda (_%tab92578%_ _%proc92579%_) - (let* ((_%table92581%_ (&raw-table-table _%tab92578%_)) - (_%size92583%_ (vector-length _%table92581%_))) - (let _%loop92586%_ ((_%i92588%_ '0)) - (if (##fx< _%i92588%_ _%size92583%_) + (lambda (_%tab93710%_ _%proc93711%_) + (let* ((_%table93713%_ (&raw-table-table _%tab93710%_)) + (_%size93715%_ (vector-length _%table93713%_))) + (let _%loop93718%_ ((_%i93720%_ '0)) + (if (##fx< _%i93720%_ _%size93715%_) (begin - (let ((_%key92590%_ (vector-ref _%table92581%_ _%i92588%_))) - (if (if (eq? _%key92590%_ (macro-unused-obj)) + (let ((_%key93722%_ (vector-ref _%table93713%_ _%i93720%_))) + (if (if (eq? _%key93722%_ (macro-unused-obj)) '#f - (not (eq? _%key92590%_ (macro-deleted-obj)))) - (let ((_%value92592%_ + (not (eq? _%key93722%_ (macro-deleted-obj)))) + (let ((_%value93724%_ (vector-ref - _%table92581%_ - (##fx+ _%i92588%_ '1)))) - (_%proc92579%_ _%key92590%_ _%value92592%_)) + _%table93713%_ + (##fx+ _%i93720%_ '1)))) + (_%proc93711%_ _%key93722%_ _%value93724%_)) '#!void)) - (_%loop92586%_ (##fx+ _%i92588%_ '2))) + (_%loop93718%_ (##fx+ _%i93720%_ '2))) '#!void))))) (define raw-table-copy - (lambda (_%tab92574%_) - (let ((_%new-tab92576%_ (##structure-copy _%tab92574%_))) + (lambda (_%tab93706%_) + (let ((_%new-tab93708%_ (##structure-copy _%tab93706%_))) (&raw-table-table-set! - _%new-tab92576%_ - (vector-copy (&raw-table-table _%tab92574%_))) - _%new-tab92576%_))) + _%new-tab93708%_ + (vector-copy (&raw-table-table _%tab93706%_))) + _%new-tab93708%_))) (define raw-table-clear! - (lambda (_%tab92572%_) - (vector-fill! (&raw-table-table _%tab92572%_) (macro-unused-obj)) - (&raw-table-count-set! _%tab92572%_ '0) + (lambda (_%tab93704%_) + (vector-fill! (&raw-table-table _%tab93704%_) (macro-unused-obj)) + (&raw-table-count-set! _%tab93704%_ '0) (&raw-table-free-set! - _%tab92572%_ - (##fxquotient (vector-length (&raw-table-table _%tab92572%_)) '2)))) + _%tab93704%_ + (##fxquotient (vector-length (&raw-table-table _%tab93704%_)) '2)))) (define __raw-table-set! - (lambda (_%tab92522%_ _%key92523%_ _%value92524%_) - (let ((_%table92526%_ (&raw-table-table _%tab92522%_)) - (_%seed92527%_ (&raw-table-seed _%tab92522%_)) - (_%hash92528%_ (&raw-table-hash _%tab92522%_)) - (_%test92529%_ (&raw-table-test _%tab92522%_))) - (let* ((_%h92531%_ - (fxxor (_%hash92528%_ _%key92523%_) _%seed92527%_)) - (_%size92534%_ (vector-length _%table92526%_)) - (_%entries92537%_ (##fxquotient _%size92534%_ '2)) - (_%start92540%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92531%_ _%entries92537%_) + (##fxmodulo _%h93663%_ _%entries93669%_) '1))) - (let _%loop92544%_ ((_%probe92547%_ _%start92540%_) - (_%i92549%_ '1) - (_%deleted92551%_ '#f)) - (let ((_%k92554%_ (vector-ref _%table92526%_ _%probe92547%_))) - (if (eq? _%k92554%_ (macro-unused-obj)) - (if _%deleted92551%_ + (let _%loop93676%_ ((_%probe93679%_ _%start93672%_) + (_%i93681%_ '1) + (_%deleted93683%_ '#f)) + (let ((_%k93686%_ (vector-ref _%table93658%_ _%probe93679%_))) + (if (eq? _%k93686%_ (macro-unused-obj)) + (if _%deleted93683%_ (begin (vector-set! - _%table92526%_ - _%deleted92551%_ - _%key92523%_) + _%table93658%_ + _%deleted93683%_ + _%key93655%_) (vector-set! - _%table92526%_ - (##fx+ _%deleted92551%_ '1) - _%value92524%_) + _%table93658%_ + (##fx+ _%deleted93683%_ '1) + _%value93656%_) ((lambda () (&raw-table-count-set! - _%tab92522%_ - (##fx+ (&raw-table-count _%tab92522%_) '1))))) + _%tab93654%_ + (##fx+ (&raw-table-count _%tab93654%_) '1))))) (begin (vector-set! - _%table92526%_ - _%probe92547%_ - _%key92523%_) + _%table93658%_ + _%probe93679%_ + _%key93655%_) (vector-set! - _%table92526%_ - (##fx+ _%probe92547%_ '1) - _%value92524%_) + _%table93658%_ + (##fx+ _%probe93679%_ '1) + _%value93656%_) ((lambda () (&raw-table-free-set! - _%tab92522%_ - (##fx- (&raw-table-free _%tab92522%_) '1)) + _%tab93654%_ + (##fx- (&raw-table-free _%tab93654%_) '1)) (&raw-table-count-set! - _%tab92522%_ - (##fx+ (&raw-table-count _%tab92522%_) '1)))))) - (if (eq? _%k92554%_ (macro-deleted-obj)) - (_%loop92544%_ - (let ((_%next-probe92561%_ - (fx+ _%start92540%_ - _%i92549%_ - (fx* _%i92549%_ _%i92549%_)))) - (##fxmodulo _%next-probe92561%_ _%size92534%_)) - (##fx+ _%i92549%_ '1) - (let ((_%$e92564%_ _%deleted92551%_)) - (if _%$e92564%_ _%$e92564%_ _%probe92547%_))) - (if (_%test92529%_ _%key92523%_ _%k92554%_) + _%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%_) (let () (vector-set! - _%table92526%_ - _%probe92547%_ - _%key92523%_) + _%table93658%_ + _%probe93679%_ + _%key93655%_) (vector-set! - _%table92526%_ - (##fx+ _%probe92547%_ '1) - _%value92524%_)) - (_%loop92544%_ - (let ((_%next-probe92569%_ - (fx+ _%start92540%_ - _%i92549%_ - (fx* _%i92549%_ _%i92549%_)))) - (##fxmodulo _%next-probe92569%_ _%size92534%_)) - (##fx+ _%i92549%_ '1) - _%deleted92551%_)))))))))) + _%table93658%_ + (##fx+ _%probe93679%_ '1) + _%value93656%_)) + (_%loop93676%_ + (let ((_%next-probe93701%_ + (fx+ _%start93672%_ + _%i93681%_ + (fx* _%i93681%_ _%i93681%_)))) + (##fxmodulo _%next-probe93701%_ _%size93666%_)) + (##fx+ _%i93681%_ '1) + _%deleted93683%_)))))))))) (define __raw-table-update! - (lambda (_%tab92471%_ _%key92472%_ _%update92473%_ _%default92474%_) - (let ((_%table92476%_ (&raw-table-table _%tab92471%_)) - (_%seed92477%_ (&raw-table-seed _%tab92471%_)) - (_%hash92478%_ (&raw-table-hash _%tab92471%_)) - (_%test92479%_ (&raw-table-test _%tab92471%_))) - (let* ((_%h92481%_ - (fxxor (_%hash92478%_ _%key92472%_) _%seed92477%_)) - (_%size92484%_ (vector-length _%table92476%_)) - (_%entries92487%_ (##fxquotient _%size92484%_ '2)) - (_%start92490%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92481%_ _%entries92487%_) + (##fxmodulo _%h93613%_ _%entries93619%_) '1))) - (let _%loop92494%_ ((_%probe92497%_ _%start92490%_) - (_%i92499%_ '1) - (_%deleted92501%_ '#f)) - (let ((_%k92504%_ (vector-ref _%table92476%_ _%probe92497%_))) - (if (eq? _%k92504%_ (macro-unused-obj)) - (if _%deleted92501%_ + (let _%loop93626%_ ((_%probe93629%_ _%start93622%_) + (_%i93631%_ '1) + (_%deleted93633%_ '#f)) + (let ((_%k93636%_ (vector-ref _%table93608%_ _%probe93629%_))) + (if (eq? _%k93636%_ (macro-unused-obj)) + (if _%deleted93633%_ (begin (vector-set! - _%table92476%_ - _%deleted92501%_ - _%key92472%_) + _%table93608%_ + _%deleted93633%_ + _%key93604%_) (vector-set! - _%table92476%_ - (##fx+ _%deleted92501%_ '1) - (_%update92473%_ _%default92474%_)) + _%table93608%_ + (##fx+ _%deleted93633%_ '1) + (_%update93605%_ _%default93606%_)) ((lambda () (&raw-table-count-set! - _%tab92471%_ - (##fx+ (&raw-table-count _%tab92471%_) '1))))) + _%tab93603%_ + (##fx+ (&raw-table-count _%tab93603%_) '1))))) (begin (vector-set! - _%table92476%_ - _%probe92497%_ - _%key92472%_) + _%table93608%_ + _%probe93629%_ + _%key93604%_) (vector-set! - _%table92476%_ - (##fx+ _%probe92497%_ '1) - (_%update92473%_ _%default92474%_)) + _%table93608%_ + (##fx+ _%probe93629%_ '1) + (_%update93605%_ _%default93606%_)) ((lambda () (&raw-table-free-set! - _%tab92471%_ - (##fx- (&raw-table-free _%tab92471%_) '1)) + _%tab93603%_ + (##fx- (&raw-table-free _%tab93603%_) '1)) (&raw-table-count-set! - _%tab92471%_ - (##fx+ (&raw-table-count _%tab92471%_) '1)))))) - (if (eq? _%k92504%_ (macro-deleted-obj)) - (_%loop92494%_ - (let ((_%next-probe92511%_ - (fx+ _%start92490%_ - _%i92499%_ - (fx* _%i92499%_ _%i92499%_)))) - (##fxmodulo _%next-probe92511%_ _%size92484%_)) - (##fx+ _%i92499%_ '1) - (let ((_%$e92514%_ _%deleted92501%_)) - (if _%$e92514%_ _%$e92514%_ _%probe92497%_))) - (if (_%test92479%_ _%key92472%_ _%k92504%_) + _%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%_) (let () (vector-set! - _%table92476%_ - _%probe92497%_ - _%key92472%_) + _%table93608%_ + _%probe93629%_ + _%key93604%_) (vector-set! - _%table92476%_ - (##fx+ _%probe92497%_ '1) - (_%update92473%_ + _%table93608%_ + (##fx+ _%probe93629%_ '1) + (_%update93605%_ (vector-ref - _%table92476%_ - (##fx+ _%probe92497%_ '1))))) - (_%loop92494%_ - (let ((_%next-probe92519%_ - (fx+ _%start92490%_ - _%i92499%_ - (fx* _%i92499%_ _%i92499%_)))) - (##fxmodulo _%next-probe92519%_ _%size92484%_)) - (##fx+ _%i92499%_ '1) - _%deleted92501%_)))))))))) + _%table93608%_ + (##fx+ _%probe93629%_ '1))))) + (_%loop93626%_ + (let ((_%next-probe93651%_ + (fx+ _%start93622%_ + _%i93631%_ + (fx* _%i93631%_ _%i93631%_)))) + (##fxmodulo _%next-probe93651%_ _%size93616%_)) + (##fx+ _%i93631%_ '1) + _%deleted93633%_)))))))))) (define __raw-table-rehash! - (lambda (_%tab92452%_) - (let* ((_%old-table92454%_ (&raw-table-table _%tab92452%_)) - (_%old-size92456%_ (vector-length _%old-table92454%_)) - (_%new-size92458%_ - (if (##fx< (&raw-table-count _%tab92452%_) - (##fxquotient _%old-size92456%_ '4)) - (vector-length _%old-table92454%_) - (##fx* '2 (vector-length _%old-table92454%_)))) - (_%new-table92460%_ - (##make-vector _%new-size92458%_ (macro-unused-obj)))) - (&raw-table-table-set! _%tab92452%_ _%new-table92460%_) - (&raw-table-count-set! _%tab92452%_ '0) + (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) (&raw-table-free-set! - _%tab92452%_ - (##fxquotient _%new-size92458%_ '2)) - (let _%lp92463%_ ((_%i92465%_ '0)) - (if (##fx< _%i92465%_ _%old-size92456%_) + _%tab93584%_ + (##fxquotient _%new-size93590%_ '2)) + (let _%lp93595%_ ((_%i93597%_ '0)) + (if (##fx< _%i93597%_ _%old-size93588%_) (begin - (let ((_%key92467%_ - (vector-ref _%old-table92454%_ _%i92465%_))) - (if (if (eq? _%key92467%_ (macro-unused-obj)) + (let ((_%key93599%_ + (vector-ref _%old-table93586%_ _%i93597%_))) + (if (if (eq? _%key93599%_ (macro-unused-obj)) '#f - (not (eq? _%key92467%_ (macro-deleted-obj)))) - (let ((_%value92469%_ + (not (eq? _%key93599%_ (macro-deleted-obj)))) + (let ((_%value93601%_ (vector-ref - _%old-table92454%_ - (##fx+ _%i92465%_ '1)))) + _%old-table93586%_ + (##fx+ _%i93597%_ '1)))) (__raw-table-set! - _%tab92452%_ - _%key92467%_ - _%value92469%_)) + _%tab93584%_ + _%key93599%_ + _%value93601%_)) '#!void)) - (_%lp92463%_ (##fx+ _%i92465%_ '2))) + (_%lp93595%_ (##fx+ _%i93597%_ '2))) '#!void))))) (define eq-hash - (lambda (_%obj92444%_) - (let ((_%t92446%_ (##type _%obj92444%_))) - (if (##fx= (##fxand _%t92446%_ '1) '0) - (fxand (##type-cast _%obj92444%_ (macro-type-fixnum)) + (lambda (_%obj93576%_) + (let ((_%t93578%_ (##type _%obj93576%_))) + (if (##fx= (##fxand _%t93578%_ '1) '0) + (fxand (##type-cast _%obj93576%_ (macro-type-fixnum)) (macro-max-fixnum32)) - (if (symbolic? _%obj92444%_) - (symbolic-hash _%obj92444%_) - (if (procedure? _%obj92444%_) - (procedure-hash _%obj92444%_) - (fxand (__eq-hash _%obj92444%_) + (if (symbolic? _%obj93576%_) + (symbolic-hash _%obj93576%_) + (if (procedure? _%obj93576%_) + (procedure-hash _%obj93576%_) + (fxand (__eq-hash _%obj93576%_) (macro-max-fixnum32)))))))) (define procedure-hash - (lambda (_%obj92440%_) - (let ((_%h92442%_ - (if (##closure? _%obj92440%_) - (__eq-hash _%obj92440%_) - (##type-cast _%obj92440%_ '0)))) - (fxand _%h92442%_ (macro-max-fixnum32))))) + (lambda (_%obj93572%_) + (let ((_%h93574%_ + (if (##closure? _%obj93572%_) + (__eq-hash _%obj93572%_) + (##type-cast _%obj93572%_ '0)))) + (fxand _%h93574%_ (macro-max-fixnum32))))) (define __eq-hash - (lambda (_%obj92437%_) + (lambda (_%obj93569%_) (declare (not interrupts-enabled)) - (__object->eq-hash _%obj92437%_))) + (__object->eq-hash _%obj93569%_))) (define eqv-hash - (lambda (_%obj92427%_) - (letrec ((_%combine92429%_ - (lambda (_%a92434%_ _%b92435%_) - (fxand (##fx* (##fx+ _%a92434%_ + (lambda (_%obj93559%_) + (letrec ((_%combine93561%_ + (lambda (_%a93566%_ _%b93567%_) + (fxand (##fx* (##fx+ _%a93566%_ (fxarithmetic-shift-left - _%b92435%_ + _%b93567%_ '1)) '331804471) (macro-max-fixnum32)))) - (_%hash92430%_ - (lambda (_%obj92432%_) + (_%hash93562%_ + (lambda (_%obj93564%_) (macro-number-dispatch - _%obj92432%_ - (eq-hash _%obj92432%_) - (fxand _%obj92432%_ (macro-max-fixnum32)) - (modulo _%obj92432%_ '331804481) - (_%combine92429%_ - (_%hash92430%_ (macro-ratnum-numerator _%obj92432%_)) - (_%hash92430%_ (macro-ratnum-denominator _%obj92432%_))) - (_%combine92429%_ - (##u16vector-ref _%obj92432%_ '0) - (_%combine92429%_ - (##u16vector-ref _%obj92432%_ '1) - (_%combine92429%_ - (##u16vector-ref _%obj92432%_ '2) - (##u16vector-ref _%obj92432%_ '3)))) - (_%combine92429%_ - (_%hash92430%_ (macro-cpxnum-real _%obj92432%_)) - (_%hash92430%_ (macro-cpxnum-imag _%obj92432%_))))))) - (_%hash92430%_ _%obj92427%_)))) + _%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%_)))) (define symbolic? - (lambda (_%obj92422%_) - (let ((_%$e92424%_ (symbol? _%obj92422%_))) - (if _%$e92424%_ _%$e92424%_ (keyword? _%obj92422%_))))) - (define symbolic-hash (lambda (_%obj92420%_) (macro-slot '1 _%obj92420%_))) - (define string-hash (lambda (_%obj92418%_) (##string=?-hash _%obj92418%_))) + (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%_))) (define immediate-hash - (lambda (_%obj92416%_) (##type-cast _%obj92416%_ (macro-type-fixnum)))) + (lambda (_%obj93548%_) (##type-cast _%obj93548%_ (macro-type-fixnum)))) (define make-eq-table__% - (lambda (_%size-hint92397%_ _%seed92399%_) - (make-raw-table__% _%size-hint92397%_ eq-hash eq? _%seed92399%_))) + (lambda (_%size-hint93529%_ _%seed93531%_) + (make-raw-table__% _%size-hint93529%_ eq-hash eq? _%seed93531%_))) (define make-eq-table__0 (lambda () - (let* ((_%size-hint92405%_ '#f) (_%seed92407%_ '0)) - (make-eq-table__% _%size-hint92405%_ _%seed92407%_)))) + (let* ((_%size-hint93537%_ '#f) (_%seed93539%_ '0)) + (make-eq-table__% _%size-hint93537%_ _%seed93539%_)))) (define make-eq-table__1 - (lambda (_%size-hint92409%_) - (let ((_%seed92411%_ '0)) - (make-eq-table__% _%size-hint92409%_ _%seed92411%_)))) + (lambda (_%size-hint93541%_) + (let ((_%seed93543%_ '0)) + (make-eq-table__% _%size-hint93541%_ _%seed93543%_)))) (define make-eq-table - (lambda _g92753_ - (let ((_g92752_ (##length _g92753_))) - (cond ((##fx= _g92752_ 0) (apply make-eq-table__0 _g92753_)) - ((##fx= _g92752_ 1) (apply make-eq-table__1 _g92753_)) - ((##fx= _g92752_ 2) (apply make-eq-table__% _g92753_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-eq-table - _g92753_)))))) + _g93885_)))))) (define eq-table-ref - (lambda (_%tab92350%_ _%key92351%_ _%default92352%_) - (let ((_%table92354%_ (&raw-table-table _%tab92350%_)) - (_%seed92355%_ (&raw-table-seed _%tab92350%_))) - (let* ((_%h92357%_ (fxxor (eq-hash _%key92351%_) _%seed92355%_)) - (_%size92360%_ (vector-length _%table92354%_)) - (_%entries92363%_ (##fxquotient _%size92360%_ '2)) - (_%start92366%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92357%_ _%entries92363%_) + (##fxmodulo _%h93489%_ _%entries93495%_) '1))) - (let _%loop92370%_ ((_%probe92373%_ _%start92366%_) - (_%i92375%_ '1) - (_%deleted92377%_ '#f)) - (let ((_%k92380%_ (vector-ref _%table92354%_ _%probe92373%_))) - (if (eq? _%k92380%_ (macro-unused-obj)) - _%default92352%_ - (if (eq? _%k92380%_ (macro-deleted-obj)) - (_%loop92370%_ - (let ((_%next-probe92385%_ - (fx+ _%start92366%_ - _%i92375%_ - (fx* _%i92375%_ _%i92375%_)))) - (##fxmodulo _%next-probe92385%_ _%size92360%_)) - (##fx+ _%i92375%_ '1) - (let ((_%$e92388%_ _%deleted92377%_)) - (if _%$e92388%_ _%$e92388%_ _%probe92373%_))) - (if (eq? _%key92351%_ _%k92380%_) + (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%_) (vector-ref - _%table92354%_ - (##fx+ _%probe92373%_ '1)) - (_%loop92370%_ - (let ((_%next-probe92393%_ - (fx+ _%start92366%_ - _%i92375%_ - (fx* _%i92375%_ _%i92375%_)))) - (##fxmodulo _%next-probe92393%_ _%size92360%_)) - (##fx+ _%i92375%_ '1) - _%deleted92377%_)))))))))) + _%table93486%_ + (##fx+ _%probe93505%_ '1)) + (_%loop93502%_ + (let ((_%next-probe93525%_ + (fx+ _%start93498%_ + _%i93507%_ + (fx* _%i93507%_ _%i93507%_)))) + (##fxmodulo _%next-probe93525%_ _%size93492%_)) + (##fx+ _%i93507%_ '1) + _%deleted93509%_)))))))))) (define eq-table-set! - (lambda (_%tab92346%_ _%key92347%_ _%value92348%_) - (if (##fx< (&raw-table-free _%tab92346%_) + (lambda (_%tab93478%_ _%key93479%_ _%value93480%_) + (if (##fx< (&raw-table-free _%tab93478%_) (##fxquotient - (vector-length (&raw-table-table _%tab92346%_)) + (vector-length (&raw-table-table _%tab93478%_)) '4)) - (__raw-table-rehash! _%tab92346%_) + (__raw-table-rehash! _%tab93478%_) '#!void) - (__eq-table-set! _%tab92346%_ _%key92347%_ _%value92348%_))) + (__eq-table-set! _%tab93478%_ _%key93479%_ _%value93480%_))) (define __eq-table-set! - (lambda (_%tab92297%_ _%key92298%_ _%value92299%_) - (let ((_%table92302%_ (&raw-table-table _%tab92297%_)) - (_%seed92303%_ (&raw-table-seed _%tab92297%_))) - (let* ((_%h92305%_ (fxxor (eq-hash _%key92298%_) _%seed92303%_)) - (_%size92308%_ (vector-length _%table92302%_)) - (_%entries92311%_ (##fxquotient _%size92308%_ '2)) - (_%start92314%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92305%_ _%entries92311%_) + (##fxmodulo _%h93437%_ _%entries93443%_) '1))) - (let _%loop92318%_ ((_%probe92321%_ _%start92314%_) - (_%i92323%_ '1) - (_%deleted92325%_ '#f)) - (let ((_%k92328%_ (vector-ref _%table92302%_ _%probe92321%_))) - (if (eq? _%k92328%_ (macro-unused-obj)) - (if _%deleted92325%_ + (let _%loop93450%_ ((_%probe93453%_ _%start93446%_) + (_%i93455%_ '1) + (_%deleted93457%_ '#f)) + (let ((_%k93460%_ (vector-ref _%table93434%_ _%probe93453%_))) + (if (eq? _%k93460%_ (macro-unused-obj)) + (if _%deleted93457%_ (begin (vector-set! - _%table92302%_ - _%deleted92325%_ - _%key92298%_) + _%table93434%_ + _%deleted93457%_ + _%key93430%_) (vector-set! - _%table92302%_ - (##fx+ _%deleted92325%_ '1) - _%value92299%_) + _%table93434%_ + (##fx+ _%deleted93457%_ '1) + _%value93431%_) ((lambda () (&raw-table-count-set! - _%tab92297%_ - (##fx+ (&raw-table-count _%tab92297%_) '1))))) + _%tab93429%_ + (##fx+ (&raw-table-count _%tab93429%_) '1))))) (begin (vector-set! - _%table92302%_ - _%probe92321%_ - _%key92298%_) + _%table93434%_ + _%probe93453%_ + _%key93430%_) (vector-set! - _%table92302%_ - (##fx+ _%probe92321%_ '1) - _%value92299%_) + _%table93434%_ + (##fx+ _%probe93453%_ '1) + _%value93431%_) ((lambda () (&raw-table-free-set! - _%tab92297%_ - (##fx- (&raw-table-free _%tab92297%_) '1)) + _%tab93429%_ + (##fx- (&raw-table-free _%tab93429%_) '1)) (&raw-table-count-set! - _%tab92297%_ - (##fx+ (&raw-table-count _%tab92297%_) '1)))))) - (if (eq? _%k92328%_ (macro-deleted-obj)) - (_%loop92318%_ - (let ((_%next-probe92335%_ - (fx+ _%start92314%_ - _%i92323%_ - (fx* _%i92323%_ _%i92323%_)))) - (##fxmodulo _%next-probe92335%_ _%size92308%_)) - (##fx+ _%i92323%_ '1) - (let ((_%$e92338%_ _%deleted92325%_)) - (if _%$e92338%_ _%$e92338%_ _%probe92321%_))) - (if (eq? _%key92298%_ _%k92328%_) + _%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%_) (let () (vector-set! - _%table92302%_ - _%probe92321%_ - _%key92298%_) + _%table93434%_ + _%probe93453%_ + _%key93430%_) (vector-set! - _%table92302%_ - (##fx+ _%probe92321%_ '1) - _%value92299%_)) - (_%loop92318%_ - (let ((_%next-probe92343%_ - (fx+ _%start92314%_ - _%i92323%_ - (fx* _%i92323%_ _%i92323%_)))) - (##fxmodulo _%next-probe92343%_ _%size92308%_)) - (##fx+ _%i92323%_ '1) - _%deleted92325%_)))))))))) + _%table93434%_ + (##fx+ _%probe93453%_ '1) + _%value93431%_)) + (_%loop93450%_ + (let ((_%next-probe93475%_ + (fx+ _%start93446%_ + _%i93455%_ + (fx* _%i93455%_ _%i93455%_)))) + (##fxmodulo _%next-probe93475%_ _%size93440%_)) + (##fx+ _%i93455%_ '1) + _%deleted93457%_)))))))))) (define eq-table-update! - (lambda (_%tab92292%_ - _%key92293%_ - _%eq-table-update!92294%_ - _%default92295%_) - (if (##fx< (&raw-table-free _%tab92292%_) + (lambda (_%tab93424%_ + _%key93425%_ + _%eq-table-update!93426%_ + _%default93427%_) + (if (##fx< (&raw-table-free _%tab93424%_) (##fxquotient - (vector-length (&raw-table-table _%tab92292%_)) + (vector-length (&raw-table-table _%tab93424%_)) '4)) - (__raw-table-rehash! _%tab92292%_) + (__raw-table-rehash! _%tab93424%_) '#!void) (__eq-table-update! - _%tab92292%_ - _%key92293%_ - _%eq-table-update!92294%_ - _%default92295%_))) + _%tab93424%_ + _%key93425%_ + _%eq-table-update!93426%_ + _%default93427%_))) (define __eq-table-update! - (lambda (_%tab92242%_ - _%key92243%_ - _%eq-table-update!92244%_ - _%default92245%_) - (let ((_%table92248%_ (&raw-table-table _%tab92242%_)) - (_%seed92249%_ (&raw-table-seed _%tab92242%_))) - (let* ((_%h92251%_ (fxxor (eq-hash _%key92243%_) _%seed92249%_)) - (_%size92254%_ (vector-length _%table92248%_)) - (_%entries92257%_ (##fxquotient _%size92254%_ '2)) - (_%start92260%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92251%_ _%entries92257%_) + (##fxmodulo _%h93383%_ _%entries93389%_) '1))) - (let _%loop92264%_ ((_%probe92267%_ _%start92260%_) - (_%i92269%_ '1) - (_%deleted92271%_ '#f)) - (let ((_%k92274%_ (vector-ref _%table92248%_ _%probe92267%_))) - (if (eq? _%k92274%_ (macro-unused-obj)) - (if _%deleted92271%_ + (let _%loop93396%_ ((_%probe93399%_ _%start93392%_) + (_%i93401%_ '1) + (_%deleted93403%_ '#f)) + (let ((_%k93406%_ (vector-ref _%table93380%_ _%probe93399%_))) + (if (eq? _%k93406%_ (macro-unused-obj)) + (if _%deleted93403%_ (begin (vector-set! - _%table92248%_ - _%deleted92271%_ - _%key92243%_) + _%table93380%_ + _%deleted93403%_ + _%key93375%_) (vector-set! - _%table92248%_ - (##fx+ _%deleted92271%_ '1) - (_%eq-table-update!92244%_ _%default92245%_)) + _%table93380%_ + (##fx+ _%deleted93403%_ '1) + (_%eq-table-update!93376%_ _%default93377%_)) ((lambda () (&raw-table-count-set! - _%tab92242%_ - (##fx+ (&raw-table-count _%tab92242%_) '1))))) + _%tab93374%_ + (##fx+ (&raw-table-count _%tab93374%_) '1))))) (begin (vector-set! - _%table92248%_ - _%probe92267%_ - _%key92243%_) + _%table93380%_ + _%probe93399%_ + _%key93375%_) (vector-set! - _%table92248%_ - (##fx+ _%probe92267%_ '1) - (_%eq-table-update!92244%_ _%default92245%_)) + _%table93380%_ + (##fx+ _%probe93399%_ '1) + (_%eq-table-update!93376%_ _%default93377%_)) ((lambda () (&raw-table-free-set! - _%tab92242%_ - (##fx- (&raw-table-free _%tab92242%_) '1)) + _%tab93374%_ + (##fx- (&raw-table-free _%tab93374%_) '1)) (&raw-table-count-set! - _%tab92242%_ - (##fx+ (&raw-table-count _%tab92242%_) '1)))))) - (if (eq? _%k92274%_ (macro-deleted-obj)) - (_%loop92264%_ - (let ((_%next-probe92281%_ - (fx+ _%start92260%_ - _%i92269%_ - (fx* _%i92269%_ _%i92269%_)))) - (##fxmodulo _%next-probe92281%_ _%size92254%_)) - (##fx+ _%i92269%_ '1) - (let ((_%$e92284%_ _%deleted92271%_)) - (if _%$e92284%_ _%$e92284%_ _%probe92267%_))) - (if (eq? _%key92243%_ _%k92274%_) + _%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%_) (let () (vector-set! - _%table92248%_ - _%probe92267%_ - _%key92243%_) + _%table93380%_ + _%probe93399%_ + _%key93375%_) (vector-set! - _%table92248%_ - (##fx+ _%probe92267%_ '1) - (_%eq-table-update!92244%_ + _%table93380%_ + (##fx+ _%probe93399%_ '1) + (_%eq-table-update!93376%_ (vector-ref - _%table92248%_ - (##fx+ _%probe92267%_ '1))))) - (_%loop92264%_ - (let ((_%next-probe92289%_ - (fx+ _%start92260%_ - _%i92269%_ - (fx* _%i92269%_ _%i92269%_)))) - (##fxmodulo _%next-probe92289%_ _%size92254%_)) - (##fx+ _%i92269%_ '1) - _%deleted92271%_)))))))))) + _%table93380%_ + (##fx+ _%probe93399%_ '1))))) + (_%loop93396%_ + (let ((_%next-probe93421%_ + (fx+ _%start93392%_ + _%i93401%_ + (fx* _%i93401%_ _%i93401%_)))) + (##fxmodulo _%next-probe93421%_ _%size93386%_)) + (##fx+ _%i93401%_ '1) + _%deleted93403%_)))))))))) (define eq-table-delete! - (lambda (_%tab92197%_ _%key92199%_) - (let ((_%table92202%_ (&raw-table-table _%tab92197%_)) - (_%seed92204%_ (&raw-table-seed _%tab92197%_))) - (let* ((_%h92207%_ (fxxor (eq-hash _%key92199%_) _%seed92204%_)) - (_%size92210%_ (vector-length _%table92202%_)) - (_%entries92213%_ (##fxquotient _%size92210%_ '2)) - (_%start92216%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92207%_ _%entries92213%_) + (##fxmodulo _%h93339%_ _%entries93345%_) '1))) - (let _%loop92220%_ ((_%probe92223%_ _%start92216%_) - (_%i92225%_ '1)) - (let ((_%k92228%_ (vector-ref _%table92202%_ _%probe92223%_))) - (if (eq? _%k92228%_ (macro-unused-obj)) + (let _%loop93352%_ ((_%probe93355%_ _%start93348%_) + (_%i93357%_ '1)) + (let ((_%k93360%_ (vector-ref _%table93334%_ _%probe93355%_))) + (if (eq? _%k93360%_ (macro-unused-obj)) '#!void - (if (eq? _%k92228%_ (macro-deleted-obj)) - (_%loop92220%_ - (let ((_%next-probe92233%_ - (fx+ _%start92216%_ - _%i92225%_ - (fx* _%i92225%_ _%i92225%_)))) - (##fxmodulo _%next-probe92233%_ _%size92210%_)) - (##fx+ _%i92225%_ '1)) - (if (eq? _%key92199%_ _%k92228%_) + (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%_) (let () (vector-set! - _%table92202%_ - _%probe92223%_ + _%table93334%_ + _%probe93355%_ (macro-deleted-obj)) (vector-set! - _%table92202%_ - (##fx+ _%probe92223%_ '1) + _%table93334%_ + (##fx+ _%probe93355%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab92197%_ - (##fx- (&raw-table-count _%tab92197%_) + _%tab93329%_ + (##fx- (&raw-table-count _%tab93329%_) '1))))) - (_%loop92220%_ - (let ((_%next-probe92239%_ - (fx+ _%start92216%_ - _%i92225%_ - (fx* _%i92225%_ _%i92225%_)))) - (##fxmodulo _%next-probe92239%_ _%size92210%_)) - (##fx+ _%i92225%_ '1))))))))))) + (_%loop93352%_ + (let ((_%next-probe93371%_ + (fx+ _%start93348%_ + _%i93357%_ + (fx* _%i93357%_ _%i93357%_)))) + (##fxmodulo _%next-probe93371%_ _%size93342%_)) + (##fx+ _%i93357%_ '1))))))))))) (define make-eqv-table__% - (lambda (_%size-hint92178%_ _%seed92180%_) - (make-raw-table__% _%size-hint92178%_ eqv-hash eqv? _%seed92180%_))) + (lambda (_%size-hint93310%_ _%seed93312%_) + (make-raw-table__% _%size-hint93310%_ eqv-hash eqv? _%seed93312%_))) (define make-eqv-table__0 (lambda () - (let* ((_%size-hint92186%_ '#f) (_%seed92188%_ '0)) - (make-eqv-table__% _%size-hint92186%_ _%seed92188%_)))) + (let* ((_%size-hint93318%_ '#f) (_%seed93320%_ '0)) + (make-eqv-table__% _%size-hint93318%_ _%seed93320%_)))) (define make-eqv-table__1 - (lambda (_%size-hint92190%_) - (let ((_%seed92192%_ '0)) - (make-eqv-table__% _%size-hint92190%_ _%seed92192%_)))) + (lambda (_%size-hint93322%_) + (let ((_%seed93324%_ '0)) + (make-eqv-table__% _%size-hint93322%_ _%seed93324%_)))) (define make-eqv-table - (lambda _g92755_ - (let ((_g92754_ (##length _g92755_))) - (cond ((##fx= _g92754_ 0) (apply make-eqv-table__0 _g92755_)) - ((##fx= _g92754_ 1) (apply make-eqv-table__1 _g92755_)) - ((##fx= _g92754_ 2) (apply make-eqv-table__% _g92755_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-eqv-table - _g92755_)))))) + _g93887_)))))) (define eqv-table-ref - (lambda (_%tab92131%_ _%key92132%_ _%default92133%_) - (let ((_%table92135%_ (&raw-table-table _%tab92131%_)) - (_%seed92136%_ (&raw-table-seed _%tab92131%_))) - (let* ((_%h92138%_ (fxxor (eqv-hash _%key92132%_) _%seed92136%_)) - (_%size92141%_ (vector-length _%table92135%_)) - (_%entries92144%_ (##fxquotient _%size92141%_ '2)) - (_%start92147%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92138%_ _%entries92144%_) + (##fxmodulo _%h93270%_ _%entries93276%_) '1))) - (let _%loop92151%_ ((_%probe92154%_ _%start92147%_) - (_%i92156%_ '1) - (_%deleted92158%_ '#f)) - (let ((_%k92161%_ (vector-ref _%table92135%_ _%probe92154%_))) - (if (eq? _%k92161%_ (macro-unused-obj)) - _%default92133%_ - (if (eq? _%k92161%_ (macro-deleted-obj)) - (_%loop92151%_ - (let ((_%next-probe92166%_ - (fx+ _%start92147%_ - _%i92156%_ - (fx* _%i92156%_ _%i92156%_)))) - (##fxmodulo _%next-probe92166%_ _%size92141%_)) - (##fx+ _%i92156%_ '1) - (let ((_%$e92169%_ _%deleted92158%_)) - (if _%$e92169%_ _%$e92169%_ _%probe92154%_))) - (if (eqv? _%key92132%_ _%k92161%_) + (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%_) (vector-ref - _%table92135%_ - (##fx+ _%probe92154%_ '1)) - (_%loop92151%_ - (let ((_%next-probe92174%_ - (fx+ _%start92147%_ - _%i92156%_ - (fx* _%i92156%_ _%i92156%_)))) - (##fxmodulo _%next-probe92174%_ _%size92141%_)) - (##fx+ _%i92156%_ '1) - _%deleted92158%_)))))))))) + _%table93267%_ + (##fx+ _%probe93286%_ '1)) + (_%loop93283%_ + (let ((_%next-probe93306%_ + (fx+ _%start93279%_ + _%i93288%_ + (fx* _%i93288%_ _%i93288%_)))) + (##fxmodulo _%next-probe93306%_ _%size93273%_)) + (##fx+ _%i93288%_ '1) + _%deleted93290%_)))))))))) (define eqv-table-set! - (lambda (_%tab92127%_ _%key92128%_ _%value92129%_) - (if (##fx< (&raw-table-free _%tab92127%_) + (lambda (_%tab93259%_ _%key93260%_ _%value93261%_) + (if (##fx< (&raw-table-free _%tab93259%_) (##fxquotient - (vector-length (&raw-table-table _%tab92127%_)) + (vector-length (&raw-table-table _%tab93259%_)) '4)) - (__raw-table-rehash! _%tab92127%_) + (__raw-table-rehash! _%tab93259%_) '#!void) - (__eqv-table-set! _%tab92127%_ _%key92128%_ _%value92129%_))) + (__eqv-table-set! _%tab93259%_ _%key93260%_ _%value93261%_))) (define __eqv-table-set! - (lambda (_%tab92078%_ _%key92079%_ _%value92080%_) - (let ((_%table92083%_ (&raw-table-table _%tab92078%_)) - (_%seed92084%_ (&raw-table-seed _%tab92078%_))) - (let* ((_%h92086%_ (fxxor (eqv-hash _%key92079%_) _%seed92084%_)) - (_%size92089%_ (vector-length _%table92083%_)) - (_%entries92092%_ (##fxquotient _%size92089%_ '2)) - (_%start92095%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92086%_ _%entries92092%_) + (##fxmodulo _%h93218%_ _%entries93224%_) '1))) - (let _%loop92099%_ ((_%probe92102%_ _%start92095%_) - (_%i92104%_ '1) - (_%deleted92106%_ '#f)) - (let ((_%k92109%_ (vector-ref _%table92083%_ _%probe92102%_))) - (if (eq? _%k92109%_ (macro-unused-obj)) - (if _%deleted92106%_ + (let _%loop93231%_ ((_%probe93234%_ _%start93227%_) + (_%i93236%_ '1) + (_%deleted93238%_ '#f)) + (let ((_%k93241%_ (vector-ref _%table93215%_ _%probe93234%_))) + (if (eq? _%k93241%_ (macro-unused-obj)) + (if _%deleted93238%_ (begin (vector-set! - _%table92083%_ - _%deleted92106%_ - _%key92079%_) + _%table93215%_ + _%deleted93238%_ + _%key93211%_) (vector-set! - _%table92083%_ - (##fx+ _%deleted92106%_ '1) - _%value92080%_) + _%table93215%_ + (##fx+ _%deleted93238%_ '1) + _%value93212%_) ((lambda () (&raw-table-count-set! - _%tab92078%_ - (##fx+ (&raw-table-count _%tab92078%_) '1))))) + _%tab93210%_ + (##fx+ (&raw-table-count _%tab93210%_) '1))))) (begin (vector-set! - _%table92083%_ - _%probe92102%_ - _%key92079%_) + _%table93215%_ + _%probe93234%_ + _%key93211%_) (vector-set! - _%table92083%_ - (##fx+ _%probe92102%_ '1) - _%value92080%_) + _%table93215%_ + (##fx+ _%probe93234%_ '1) + _%value93212%_) ((lambda () (&raw-table-free-set! - _%tab92078%_ - (##fx- (&raw-table-free _%tab92078%_) '1)) + _%tab93210%_ + (##fx- (&raw-table-free _%tab93210%_) '1)) (&raw-table-count-set! - _%tab92078%_ - (##fx+ (&raw-table-count _%tab92078%_) '1)))))) - (if (eq? _%k92109%_ (macro-deleted-obj)) - (_%loop92099%_ - (let ((_%next-probe92116%_ - (fx+ _%start92095%_ - _%i92104%_ - (fx* _%i92104%_ _%i92104%_)))) - (##fxmodulo _%next-probe92116%_ _%size92089%_)) - (##fx+ _%i92104%_ '1) - (let ((_%$e92119%_ _%deleted92106%_)) - (if _%$e92119%_ _%$e92119%_ _%probe92102%_))) - (if (eqv? _%key92079%_ _%k92109%_) + _%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%_) (let () (vector-set! - _%table92083%_ - _%probe92102%_ - _%key92079%_) + _%table93215%_ + _%probe93234%_ + _%key93211%_) (vector-set! - _%table92083%_ - (##fx+ _%probe92102%_ '1) - _%value92080%_)) - (_%loop92099%_ - (let ((_%next-probe92124%_ - (fx+ _%start92095%_ - _%i92104%_ - (fx* _%i92104%_ _%i92104%_)))) - (##fxmodulo _%next-probe92124%_ _%size92089%_)) - (##fx+ _%i92104%_ '1) - _%deleted92106%_)))))))))) + _%table93215%_ + (##fx+ _%probe93234%_ '1) + _%value93212%_)) + (_%loop93231%_ + (let ((_%next-probe93256%_ + (fx+ _%start93227%_ + _%i93236%_ + (fx* _%i93236%_ _%i93236%_)))) + (##fxmodulo _%next-probe93256%_ _%size93221%_)) + (##fx+ _%i93236%_ '1) + _%deleted93238%_)))))))))) (define eqv-table-update! - (lambda (_%tab92073%_ - _%key92074%_ - _%eqv-table-update!92075%_ - _%default92076%_) - (if (##fx< (&raw-table-free _%tab92073%_) + (lambda (_%tab93205%_ + _%key93206%_ + _%eqv-table-update!93207%_ + _%default93208%_) + (if (##fx< (&raw-table-free _%tab93205%_) (##fxquotient - (vector-length (&raw-table-table _%tab92073%_)) + (vector-length (&raw-table-table _%tab93205%_)) '4)) - (__raw-table-rehash! _%tab92073%_) + (__raw-table-rehash! _%tab93205%_) '#!void) (__eqv-table-update! - _%tab92073%_ - _%key92074%_ - _%eqv-table-update!92075%_ - _%default92076%_))) + _%tab93205%_ + _%key93206%_ + _%eqv-table-update!93207%_ + _%default93208%_))) (define __eqv-table-update! - (lambda (_%tab92023%_ - _%key92024%_ - _%eqv-table-update!92025%_ - _%default92026%_) - (let ((_%table92029%_ (&raw-table-table _%tab92023%_)) - (_%seed92030%_ (&raw-table-seed _%tab92023%_))) - (let* ((_%h92032%_ (fxxor (eqv-hash _%key92024%_) _%seed92030%_)) - (_%size92035%_ (vector-length _%table92029%_)) - (_%entries92038%_ (##fxquotient _%size92035%_ '2)) - (_%start92041%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92032%_ _%entries92038%_) + (##fxmodulo _%h93164%_ _%entries93170%_) '1))) - (let _%loop92045%_ ((_%probe92048%_ _%start92041%_) - (_%i92050%_ '1) - (_%deleted92052%_ '#f)) - (let ((_%k92055%_ (vector-ref _%table92029%_ _%probe92048%_))) - (if (eq? _%k92055%_ (macro-unused-obj)) - (if _%deleted92052%_ + (let _%loop93177%_ ((_%probe93180%_ _%start93173%_) + (_%i93182%_ '1) + (_%deleted93184%_ '#f)) + (let ((_%k93187%_ (vector-ref _%table93161%_ _%probe93180%_))) + (if (eq? _%k93187%_ (macro-unused-obj)) + (if _%deleted93184%_ (begin (vector-set! - _%table92029%_ - _%deleted92052%_ - _%key92024%_) + _%table93161%_ + _%deleted93184%_ + _%key93156%_) (vector-set! - _%table92029%_ - (##fx+ _%deleted92052%_ '1) - (_%eqv-table-update!92025%_ _%default92026%_)) + _%table93161%_ + (##fx+ _%deleted93184%_ '1) + (_%eqv-table-update!93157%_ _%default93158%_)) ((lambda () (&raw-table-count-set! - _%tab92023%_ - (##fx+ (&raw-table-count _%tab92023%_) '1))))) + _%tab93155%_ + (##fx+ (&raw-table-count _%tab93155%_) '1))))) (begin (vector-set! - _%table92029%_ - _%probe92048%_ - _%key92024%_) + _%table93161%_ + _%probe93180%_ + _%key93156%_) (vector-set! - _%table92029%_ - (##fx+ _%probe92048%_ '1) - (_%eqv-table-update!92025%_ _%default92026%_)) + _%table93161%_ + (##fx+ _%probe93180%_ '1) + (_%eqv-table-update!93157%_ _%default93158%_)) ((lambda () (&raw-table-free-set! - _%tab92023%_ - (##fx- (&raw-table-free _%tab92023%_) '1)) + _%tab93155%_ + (##fx- (&raw-table-free _%tab93155%_) '1)) (&raw-table-count-set! - _%tab92023%_ - (##fx+ (&raw-table-count _%tab92023%_) '1)))))) - (if (eq? _%k92055%_ (macro-deleted-obj)) - (_%loop92045%_ - (let ((_%next-probe92062%_ - (fx+ _%start92041%_ - _%i92050%_ - (fx* _%i92050%_ _%i92050%_)))) - (##fxmodulo _%next-probe92062%_ _%size92035%_)) - (##fx+ _%i92050%_ '1) - (let ((_%$e92065%_ _%deleted92052%_)) - (if _%$e92065%_ _%$e92065%_ _%probe92048%_))) - (if (eqv? _%key92024%_ _%k92055%_) + _%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%_) (let () (vector-set! - _%table92029%_ - _%probe92048%_ - _%key92024%_) + _%table93161%_ + _%probe93180%_ + _%key93156%_) (vector-set! - _%table92029%_ - (##fx+ _%probe92048%_ '1) - (_%eqv-table-update!92025%_ + _%table93161%_ + (##fx+ _%probe93180%_ '1) + (_%eqv-table-update!93157%_ (vector-ref - _%table92029%_ - (##fx+ _%probe92048%_ '1))))) - (_%loop92045%_ - (let ((_%next-probe92070%_ - (fx+ _%start92041%_ - _%i92050%_ - (fx* _%i92050%_ _%i92050%_)))) - (##fxmodulo _%next-probe92070%_ _%size92035%_)) - (##fx+ _%i92050%_ '1) - _%deleted92052%_)))))))))) + _%table93161%_ + (##fx+ _%probe93180%_ '1))))) + (_%loop93177%_ + (let ((_%next-probe93202%_ + (fx+ _%start93173%_ + _%i93182%_ + (fx* _%i93182%_ _%i93182%_)))) + (##fxmodulo _%next-probe93202%_ _%size93167%_)) + (##fx+ _%i93182%_ '1) + _%deleted93184%_)))))))))) (define eqv-table-delete! - (lambda (_%tab91978%_ _%key91980%_) - (let ((_%table91983%_ (&raw-table-table _%tab91978%_)) - (_%seed91985%_ (&raw-table-seed _%tab91978%_))) - (let* ((_%h91988%_ (fxxor (eqv-hash _%key91980%_) _%seed91985%_)) - (_%size91991%_ (vector-length _%table91983%_)) - (_%entries91994%_ (##fxquotient _%size91991%_ '2)) - (_%start91997%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91988%_ _%entries91994%_) + (##fxmodulo _%h93120%_ _%entries93126%_) '1))) - (let _%loop92001%_ ((_%probe92004%_ _%start91997%_) - (_%i92006%_ '1)) - (let ((_%k92009%_ (vector-ref _%table91983%_ _%probe92004%_))) - (if (eq? _%k92009%_ (macro-unused-obj)) + (let _%loop93133%_ ((_%probe93136%_ _%start93129%_) + (_%i93138%_ '1)) + (let ((_%k93141%_ (vector-ref _%table93115%_ _%probe93136%_))) + (if (eq? _%k93141%_ (macro-unused-obj)) '#!void - (if (eq? _%k92009%_ (macro-deleted-obj)) - (_%loop92001%_ - (let ((_%next-probe92014%_ - (fx+ _%start91997%_ - _%i92006%_ - (fx* _%i92006%_ _%i92006%_)))) - (##fxmodulo _%next-probe92014%_ _%size91991%_)) - (##fx+ _%i92006%_ '1)) - (if (eqv? _%key91980%_ _%k92009%_) + (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%_) (let () (vector-set! - _%table91983%_ - _%probe92004%_ + _%table93115%_ + _%probe93136%_ (macro-deleted-obj)) (vector-set! - _%table91983%_ - (##fx+ _%probe92004%_ '1) + _%table93115%_ + (##fx+ _%probe93136%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab91978%_ - (##fx- (&raw-table-count _%tab91978%_) + _%tab93110%_ + (##fx- (&raw-table-count _%tab93110%_) '1))))) - (_%loop92001%_ - (let ((_%next-probe92020%_ - (fx+ _%start91997%_ - _%i92006%_ - (fx* _%i92006%_ _%i92006%_)))) - (##fxmodulo _%next-probe92020%_ _%size91991%_)) - (##fx+ _%i92006%_ '1))))))))))) + (_%loop93133%_ + (let ((_%next-probe93152%_ + (fx+ _%start93129%_ + _%i93138%_ + (fx* _%i93138%_ _%i93138%_)))) + (##fxmodulo _%next-probe93152%_ _%size93123%_)) + (##fx+ _%i93138%_ '1))))))))))) (define make-symbolic-table__% - (lambda (_%size-hint91959%_ _%seed91961%_) + (lambda (_%size-hint93091%_ _%seed93093%_) (make-raw-table__% - _%size-hint91959%_ + _%size-hint93091%_ symbolic-hash eq? - _%seed91961%_))) + _%seed93093%_))) (define make-symbolic-table__0 (lambda () - (let* ((_%size-hint91967%_ '#f) (_%seed91969%_ '0)) - (make-symbolic-table__% _%size-hint91967%_ _%seed91969%_)))) + (let* ((_%size-hint93099%_ '#f) (_%seed93101%_ '0)) + (make-symbolic-table__% _%size-hint93099%_ _%seed93101%_)))) (define make-symbolic-table__1 - (lambda (_%size-hint91971%_) - (let ((_%seed91973%_ '0)) - (make-symbolic-table__% _%size-hint91971%_ _%seed91973%_)))) + (lambda (_%size-hint93103%_) + (let ((_%seed93105%_ '0)) + (make-symbolic-table__% _%size-hint93103%_ _%seed93105%_)))) (define make-symbolic-table - (lambda _g92757_ - (let ((_g92756_ (##length _g92757_))) - (cond ((##fx= _g92756_ 0) (apply make-symbolic-table__0 _g92757_)) - ((##fx= _g92756_ 1) (apply make-symbolic-table__1 _g92757_)) - ((##fx= _g92756_ 2) (apply make-symbolic-table__% _g92757_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-symbolic-table - _g92757_)))))) + _g93889_)))))) (define symbolic-table-ref - (lambda (_%tab91912%_ _%key91913%_ _%default91914%_) - (let ((_%table91916%_ (&raw-table-table _%tab91912%_)) - (_%seed91917%_ (&raw-table-seed _%tab91912%_))) - (let* ((_%h91919%_ - (fxxor (symbolic-hash _%key91913%_) _%seed91917%_)) - (_%size91922%_ (vector-length _%table91916%_)) - (_%entries91925%_ (##fxquotient _%size91922%_ '2)) - (_%start91928%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91919%_ _%entries91925%_) + (##fxmodulo _%h93051%_ _%entries93057%_) '1))) - (let _%loop91932%_ ((_%probe91935%_ _%start91928%_) - (_%i91937%_ '1) - (_%deleted91939%_ '#f)) - (let ((_%k91942%_ (vector-ref _%table91916%_ _%probe91935%_))) - (if (eq? _%k91942%_ (macro-unused-obj)) - _%default91914%_ - (if (eq? _%k91942%_ (macro-deleted-obj)) - (_%loop91932%_ - (let ((_%next-probe91947%_ - (fx+ _%start91928%_ - _%i91937%_ - (fx* _%i91937%_ _%i91937%_)))) - (##fxmodulo _%next-probe91947%_ _%size91922%_)) - (##fx+ _%i91937%_ '1) - (let ((_%$e91950%_ _%deleted91939%_)) - (if _%$e91950%_ _%$e91950%_ _%probe91935%_))) - (if (eq? _%key91913%_ _%k91942%_) + (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%_) (vector-ref - _%table91916%_ - (##fx+ _%probe91935%_ '1)) - (_%loop91932%_ - (let ((_%next-probe91955%_ - (fx+ _%start91928%_ - _%i91937%_ - (fx* _%i91937%_ _%i91937%_)))) - (##fxmodulo _%next-probe91955%_ _%size91922%_)) - (##fx+ _%i91937%_ '1) - _%deleted91939%_)))))))))) + _%table93048%_ + (##fx+ _%probe93067%_ '1)) + (_%loop93064%_ + (let ((_%next-probe93087%_ + (fx+ _%start93060%_ + _%i93069%_ + (fx* _%i93069%_ _%i93069%_)))) + (##fxmodulo _%next-probe93087%_ _%size93054%_)) + (##fx+ _%i93069%_ '1) + _%deleted93071%_)))))))))) (define symbolic-table-set! - (lambda (_%tab91908%_ _%key91909%_ _%value91910%_) - (if (##fx< (&raw-table-free _%tab91908%_) + (lambda (_%tab93040%_ _%key93041%_ _%value93042%_) + (if (##fx< (&raw-table-free _%tab93040%_) (##fxquotient - (vector-length (&raw-table-table _%tab91908%_)) + (vector-length (&raw-table-table _%tab93040%_)) '4)) - (__raw-table-rehash! _%tab91908%_) + (__raw-table-rehash! _%tab93040%_) '#!void) - (__symbolic-table-set! _%tab91908%_ _%key91909%_ _%value91910%_))) + (__symbolic-table-set! _%tab93040%_ _%key93041%_ _%value93042%_))) (define __symbolic-table-set! - (lambda (_%tab91859%_ _%key91860%_ _%value91861%_) - (let ((_%table91864%_ (&raw-table-table _%tab91859%_)) - (_%seed91865%_ (&raw-table-seed _%tab91859%_))) - (let* ((_%h91867%_ - (fxxor (symbolic-hash _%key91860%_) _%seed91865%_)) - (_%size91870%_ (vector-length _%table91864%_)) - (_%entries91873%_ (##fxquotient _%size91870%_ '2)) - (_%start91876%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91867%_ _%entries91873%_) + (##fxmodulo _%h92999%_ _%entries93005%_) '1))) - (let _%loop91880%_ ((_%probe91883%_ _%start91876%_) - (_%i91885%_ '1) - (_%deleted91887%_ '#f)) - (let ((_%k91890%_ (vector-ref _%table91864%_ _%probe91883%_))) - (if (eq? _%k91890%_ (macro-unused-obj)) - (if _%deleted91887%_ + (let _%loop93012%_ ((_%probe93015%_ _%start93008%_) + (_%i93017%_ '1) + (_%deleted93019%_ '#f)) + (let ((_%k93022%_ (vector-ref _%table92996%_ _%probe93015%_))) + (if (eq? _%k93022%_ (macro-unused-obj)) + (if _%deleted93019%_ (begin (vector-set! - _%table91864%_ - _%deleted91887%_ - _%key91860%_) + _%table92996%_ + _%deleted93019%_ + _%key92992%_) (vector-set! - _%table91864%_ - (##fx+ _%deleted91887%_ '1) - _%value91861%_) + _%table92996%_ + (##fx+ _%deleted93019%_ '1) + _%value92993%_) ((lambda () (&raw-table-count-set! - _%tab91859%_ - (##fx+ (&raw-table-count _%tab91859%_) '1))))) + _%tab92991%_ + (##fx+ (&raw-table-count _%tab92991%_) '1))))) (begin (vector-set! - _%table91864%_ - _%probe91883%_ - _%key91860%_) + _%table92996%_ + _%probe93015%_ + _%key92992%_) (vector-set! - _%table91864%_ - (##fx+ _%probe91883%_ '1) - _%value91861%_) + _%table92996%_ + (##fx+ _%probe93015%_ '1) + _%value92993%_) ((lambda () (&raw-table-free-set! - _%tab91859%_ - (##fx- (&raw-table-free _%tab91859%_) '1)) + _%tab92991%_ + (##fx- (&raw-table-free _%tab92991%_) '1)) (&raw-table-count-set! - _%tab91859%_ - (##fx+ (&raw-table-count _%tab91859%_) '1)))))) - (if (eq? _%k91890%_ (macro-deleted-obj)) - (_%loop91880%_ - (let ((_%next-probe91897%_ - (fx+ _%start91876%_ - _%i91885%_ - (fx* _%i91885%_ _%i91885%_)))) - (##fxmodulo _%next-probe91897%_ _%size91870%_)) - (##fx+ _%i91885%_ '1) - (let ((_%$e91900%_ _%deleted91887%_)) - (if _%$e91900%_ _%$e91900%_ _%probe91883%_))) - (if (eq? _%key91860%_ _%k91890%_) + _%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%_) (let () (vector-set! - _%table91864%_ - _%probe91883%_ - _%key91860%_) + _%table92996%_ + _%probe93015%_ + _%key92992%_) (vector-set! - _%table91864%_ - (##fx+ _%probe91883%_ '1) - _%value91861%_)) - (_%loop91880%_ - (let ((_%next-probe91905%_ - (fx+ _%start91876%_ - _%i91885%_ - (fx* _%i91885%_ _%i91885%_)))) - (##fxmodulo _%next-probe91905%_ _%size91870%_)) - (##fx+ _%i91885%_ '1) - _%deleted91887%_)))))))))) + _%table92996%_ + (##fx+ _%probe93015%_ '1) + _%value92993%_)) + (_%loop93012%_ + (let ((_%next-probe93037%_ + (fx+ _%start93008%_ + _%i93017%_ + (fx* _%i93017%_ _%i93017%_)))) + (##fxmodulo _%next-probe93037%_ _%size93002%_)) + (##fx+ _%i93017%_ '1) + _%deleted93019%_)))))))))) (define symbolic-table-update! - (lambda (_%tab91854%_ - _%key91855%_ - _%symbolic-table-update!91856%_ - _%default91857%_) - (if (##fx< (&raw-table-free _%tab91854%_) + (lambda (_%tab92986%_ + _%key92987%_ + _%symbolic-table-update!92988%_ + _%default92989%_) + (if (##fx< (&raw-table-free _%tab92986%_) (##fxquotient - (vector-length (&raw-table-table _%tab91854%_)) + (vector-length (&raw-table-table _%tab92986%_)) '4)) - (__raw-table-rehash! _%tab91854%_) + (__raw-table-rehash! _%tab92986%_) '#!void) (__symbolic-table-update! - _%tab91854%_ - _%key91855%_ - _%symbolic-table-update!91856%_ - _%default91857%_))) + _%tab92986%_ + _%key92987%_ + _%symbolic-table-update!92988%_ + _%default92989%_))) (define __symbolic-table-update! - (lambda (_%tab91804%_ - _%key91805%_ - _%symbolic-table-update!91806%_ - _%default91807%_) - (let ((_%table91810%_ (&raw-table-table _%tab91804%_)) - (_%seed91811%_ (&raw-table-seed _%tab91804%_))) - (let* ((_%h91813%_ - (fxxor (symbolic-hash _%key91805%_) _%seed91811%_)) - (_%size91816%_ (vector-length _%table91810%_)) - (_%entries91819%_ (##fxquotient _%size91816%_ '2)) - (_%start91822%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91813%_ _%entries91819%_) + (##fxmodulo _%h92945%_ _%entries92951%_) '1))) - (let _%loop91826%_ ((_%probe91829%_ _%start91822%_) - (_%i91831%_ '1) - (_%deleted91833%_ '#f)) - (let ((_%k91836%_ (vector-ref _%table91810%_ _%probe91829%_))) - (if (eq? _%k91836%_ (macro-unused-obj)) - (if _%deleted91833%_ + (let _%loop92958%_ ((_%probe92961%_ _%start92954%_) + (_%i92963%_ '1) + (_%deleted92965%_ '#f)) + (let ((_%k92968%_ (vector-ref _%table92942%_ _%probe92961%_))) + (if (eq? _%k92968%_ (macro-unused-obj)) + (if _%deleted92965%_ (begin (vector-set! - _%table91810%_ - _%deleted91833%_ - _%key91805%_) + _%table92942%_ + _%deleted92965%_ + _%key92937%_) (vector-set! - _%table91810%_ - (##fx+ _%deleted91833%_ '1) - (_%symbolic-table-update!91806%_ _%default91807%_)) + _%table92942%_ + (##fx+ _%deleted92965%_ '1) + (_%symbolic-table-update!92938%_ _%default92939%_)) ((lambda () (&raw-table-count-set! - _%tab91804%_ - (##fx+ (&raw-table-count _%tab91804%_) '1))))) + _%tab92936%_ + (##fx+ (&raw-table-count _%tab92936%_) '1))))) (begin (vector-set! - _%table91810%_ - _%probe91829%_ - _%key91805%_) + _%table92942%_ + _%probe92961%_ + _%key92937%_) (vector-set! - _%table91810%_ - (##fx+ _%probe91829%_ '1) - (_%symbolic-table-update!91806%_ _%default91807%_)) + _%table92942%_ + (##fx+ _%probe92961%_ '1) + (_%symbolic-table-update!92938%_ _%default92939%_)) ((lambda () (&raw-table-free-set! - _%tab91804%_ - (##fx- (&raw-table-free _%tab91804%_) '1)) + _%tab92936%_ + (##fx- (&raw-table-free _%tab92936%_) '1)) (&raw-table-count-set! - _%tab91804%_ - (##fx+ (&raw-table-count _%tab91804%_) '1)))))) - (if (eq? _%k91836%_ (macro-deleted-obj)) - (_%loop91826%_ - (let ((_%next-probe91843%_ - (fx+ _%start91822%_ - _%i91831%_ - (fx* _%i91831%_ _%i91831%_)))) - (##fxmodulo _%next-probe91843%_ _%size91816%_)) - (##fx+ _%i91831%_ '1) - (let ((_%$e91846%_ _%deleted91833%_)) - (if _%$e91846%_ _%$e91846%_ _%probe91829%_))) - (if (eq? _%key91805%_ _%k91836%_) + _%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%_) (let () (vector-set! - _%table91810%_ - _%probe91829%_ - _%key91805%_) + _%table92942%_ + _%probe92961%_ + _%key92937%_) (vector-set! - _%table91810%_ - (##fx+ _%probe91829%_ '1) - (_%symbolic-table-update!91806%_ + _%table92942%_ + (##fx+ _%probe92961%_ '1) + (_%symbolic-table-update!92938%_ (vector-ref - _%table91810%_ - (##fx+ _%probe91829%_ '1))))) - (_%loop91826%_ - (let ((_%next-probe91851%_ - (fx+ _%start91822%_ - _%i91831%_ - (fx* _%i91831%_ _%i91831%_)))) - (##fxmodulo _%next-probe91851%_ _%size91816%_)) - (##fx+ _%i91831%_ '1) - _%deleted91833%_)))))))))) + _%table92942%_ + (##fx+ _%probe92961%_ '1))))) + (_%loop92958%_ + (let ((_%next-probe92983%_ + (fx+ _%start92954%_ + _%i92963%_ + (fx* _%i92963%_ _%i92963%_)))) + (##fxmodulo _%next-probe92983%_ _%size92948%_)) + (##fx+ _%i92963%_ '1) + _%deleted92965%_)))))))))) (define symbolic-table-delete! - (lambda (_%tab91759%_ _%key91761%_) - (let ((_%table91764%_ (&raw-table-table _%tab91759%_)) - (_%seed91766%_ (&raw-table-seed _%tab91759%_))) - (let* ((_%h91769%_ - (fxxor (symbolic-hash _%key91761%_) _%seed91766%_)) - (_%size91772%_ (vector-length _%table91764%_)) - (_%entries91775%_ (##fxquotient _%size91772%_ '2)) - (_%start91778%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91769%_ _%entries91775%_) + (##fxmodulo _%h92901%_ _%entries92907%_) '1))) - (let _%loop91782%_ ((_%probe91785%_ _%start91778%_) - (_%i91787%_ '1)) - (let ((_%k91790%_ (vector-ref _%table91764%_ _%probe91785%_))) - (if (eq? _%k91790%_ (macro-unused-obj)) + (let _%loop92914%_ ((_%probe92917%_ _%start92910%_) + (_%i92919%_ '1)) + (let ((_%k92922%_ (vector-ref _%table92896%_ _%probe92917%_))) + (if (eq? _%k92922%_ (macro-unused-obj)) '#!void - (if (eq? _%k91790%_ (macro-deleted-obj)) - (_%loop91782%_ - (let ((_%next-probe91795%_ - (fx+ _%start91778%_ - _%i91787%_ - (fx* _%i91787%_ _%i91787%_)))) - (##fxmodulo _%next-probe91795%_ _%size91772%_)) - (##fx+ _%i91787%_ '1)) - (if (eq? _%key91761%_ _%k91790%_) + (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%_) (let () (vector-set! - _%table91764%_ - _%probe91785%_ + _%table92896%_ + _%probe92917%_ (macro-deleted-obj)) (vector-set! - _%table91764%_ - (##fx+ _%probe91785%_ '1) + _%table92896%_ + (##fx+ _%probe92917%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab91759%_ - (##fx- (&raw-table-count _%tab91759%_) + _%tab92891%_ + (##fx- (&raw-table-count _%tab92891%_) '1))))) - (_%loop91782%_ - (let ((_%next-probe91801%_ - (fx+ _%start91778%_ - _%i91787%_ - (fx* _%i91787%_ _%i91787%_)))) - (##fxmodulo _%next-probe91801%_ _%size91772%_)) - (##fx+ _%i91787%_ '1))))))))))) + (_%loop92914%_ + (let ((_%next-probe92933%_ + (fx+ _%start92910%_ + _%i92919%_ + (fx* _%i92919%_ _%i92919%_)))) + (##fxmodulo _%next-probe92933%_ _%size92904%_)) + (##fx+ _%i92919%_ '1))))))))))) (define make-string-table__% - (lambda (_%size-hint91740%_ _%seed91742%_) + (lambda (_%size-hint92872%_ _%seed92874%_) (make-raw-table__% - _%size-hint91740%_ + _%size-hint92872%_ string-hash ##string=? - _%seed91742%_))) + _%seed92874%_))) (define make-string-table__0 (lambda () - (let* ((_%size-hint91748%_ '#f) (_%seed91750%_ '0)) - (make-string-table__% _%size-hint91748%_ _%seed91750%_)))) + (let* ((_%size-hint92880%_ '#f) (_%seed92882%_ '0)) + (make-string-table__% _%size-hint92880%_ _%seed92882%_)))) (define make-string-table__1 - (lambda (_%size-hint91752%_) - (let ((_%seed91754%_ '0)) - (make-string-table__% _%size-hint91752%_ _%seed91754%_)))) + (lambda (_%size-hint92884%_) + (let ((_%seed92886%_ '0)) + (make-string-table__% _%size-hint92884%_ _%seed92886%_)))) (define make-string-table - (lambda _g92759_ - (let ((_g92758_ (##length _g92759_))) - (cond ((##fx= _g92758_ 0) (apply make-string-table__0 _g92759_)) - ((##fx= _g92758_ 1) (apply make-string-table__1 _g92759_)) - ((##fx= _g92758_ 2) (apply make-string-table__% _g92759_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-string-table - _g92759_)))))) + _g93891_)))))) (define string-table-ref - (lambda (_%tab91693%_ _%key91694%_ _%default91695%_) - (let ((_%table91697%_ (&raw-table-table _%tab91693%_)) - (_%seed91698%_ (&raw-table-seed _%tab91693%_))) - (let* ((_%h91700%_ - (fxxor (##string=?-hash _%key91694%_) _%seed91698%_)) - (_%size91703%_ (vector-length _%table91697%_)) - (_%entries91706%_ (##fxquotient _%size91703%_ '2)) - (_%start91709%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91700%_ _%entries91706%_) + (##fxmodulo _%h92832%_ _%entries92838%_) '1))) - (let _%loop91713%_ ((_%probe91716%_ _%start91709%_) - (_%i91718%_ '1) - (_%deleted91720%_ '#f)) - (let ((_%k91723%_ (vector-ref _%table91697%_ _%probe91716%_))) - (if (eq? _%k91723%_ (macro-unused-obj)) - _%default91695%_ - (if (eq? _%k91723%_ (macro-deleted-obj)) - (_%loop91713%_ - (let ((_%next-probe91728%_ - (fx+ _%start91709%_ - _%i91718%_ - (fx* _%i91718%_ _%i91718%_)))) - (##fxmodulo _%next-probe91728%_ _%size91703%_)) - (##fx+ _%i91718%_ '1) - (let ((_%$e91731%_ _%deleted91720%_)) - (if _%$e91731%_ _%$e91731%_ _%probe91716%_))) - (if (##string=? _%key91694%_ _%k91723%_) + (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%_) (vector-ref - _%table91697%_ - (##fx+ _%probe91716%_ '1)) - (_%loop91713%_ - (let ((_%next-probe91736%_ - (fx+ _%start91709%_ - _%i91718%_ - (fx* _%i91718%_ _%i91718%_)))) - (##fxmodulo _%next-probe91736%_ _%size91703%_)) - (##fx+ _%i91718%_ '1) - _%deleted91720%_)))))))))) + _%table92829%_ + (##fx+ _%probe92848%_ '1)) + (_%loop92845%_ + (let ((_%next-probe92868%_ + (fx+ _%start92841%_ + _%i92850%_ + (fx* _%i92850%_ _%i92850%_)))) + (##fxmodulo _%next-probe92868%_ _%size92835%_)) + (##fx+ _%i92850%_ '1) + _%deleted92852%_)))))))))) (define string-table-set! - (lambda (_%tab91689%_ _%key91690%_ _%value91691%_) - (if (##fx< (&raw-table-free _%tab91689%_) + (lambda (_%tab92821%_ _%key92822%_ _%value92823%_) + (if (##fx< (&raw-table-free _%tab92821%_) (##fxquotient - (vector-length (&raw-table-table _%tab91689%_)) + (vector-length (&raw-table-table _%tab92821%_)) '4)) - (__raw-table-rehash! _%tab91689%_) + (__raw-table-rehash! _%tab92821%_) '#!void) - (__string-table-set! _%tab91689%_ _%key91690%_ _%value91691%_))) + (__string-table-set! _%tab92821%_ _%key92822%_ _%value92823%_))) (define __string-table-set! - (lambda (_%tab91640%_ _%key91641%_ _%value91642%_) - (let ((_%table91645%_ (&raw-table-table _%tab91640%_)) - (_%seed91646%_ (&raw-table-seed _%tab91640%_))) - (let* ((_%h91648%_ - (fxxor (##string=?-hash _%key91641%_) _%seed91646%_)) - (_%size91651%_ (vector-length _%table91645%_)) - (_%entries91654%_ (##fxquotient _%size91651%_ '2)) - (_%start91657%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91648%_ _%entries91654%_) + (##fxmodulo _%h92780%_ _%entries92786%_) '1))) - (let _%loop91661%_ ((_%probe91664%_ _%start91657%_) - (_%i91666%_ '1) - (_%deleted91668%_ '#f)) - (let ((_%k91671%_ (vector-ref _%table91645%_ _%probe91664%_))) - (if (eq? _%k91671%_ (macro-unused-obj)) - (if _%deleted91668%_ + (let _%loop92793%_ ((_%probe92796%_ _%start92789%_) + (_%i92798%_ '1) + (_%deleted92800%_ '#f)) + (let ((_%k92803%_ (vector-ref _%table92777%_ _%probe92796%_))) + (if (eq? _%k92803%_ (macro-unused-obj)) + (if _%deleted92800%_ (begin (vector-set! - _%table91645%_ - _%deleted91668%_ - _%key91641%_) + _%table92777%_ + _%deleted92800%_ + _%key92773%_) (vector-set! - _%table91645%_ - (##fx+ _%deleted91668%_ '1) - _%value91642%_) + _%table92777%_ + (##fx+ _%deleted92800%_ '1) + _%value92774%_) ((lambda () (&raw-table-count-set! - _%tab91640%_ - (##fx+ (&raw-table-count _%tab91640%_) '1))))) + _%tab92772%_ + (##fx+ (&raw-table-count _%tab92772%_) '1))))) (begin (vector-set! - _%table91645%_ - _%probe91664%_ - _%key91641%_) + _%table92777%_ + _%probe92796%_ + _%key92773%_) (vector-set! - _%table91645%_ - (##fx+ _%probe91664%_ '1) - _%value91642%_) + _%table92777%_ + (##fx+ _%probe92796%_ '1) + _%value92774%_) ((lambda () (&raw-table-free-set! - _%tab91640%_ - (##fx- (&raw-table-free _%tab91640%_) '1)) + _%tab92772%_ + (##fx- (&raw-table-free _%tab92772%_) '1)) (&raw-table-count-set! - _%tab91640%_ - (##fx+ (&raw-table-count _%tab91640%_) '1)))))) - (if (eq? _%k91671%_ (macro-deleted-obj)) - (_%loop91661%_ - (let ((_%next-probe91678%_ - (fx+ _%start91657%_ - _%i91666%_ - (fx* _%i91666%_ _%i91666%_)))) - (##fxmodulo _%next-probe91678%_ _%size91651%_)) - (##fx+ _%i91666%_ '1) - (let ((_%$e91681%_ _%deleted91668%_)) - (if _%$e91681%_ _%$e91681%_ _%probe91664%_))) - (if (##string=? _%key91641%_ _%k91671%_) + _%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%_) (let () (vector-set! - _%table91645%_ - _%probe91664%_ - _%key91641%_) + _%table92777%_ + _%probe92796%_ + _%key92773%_) (vector-set! - _%table91645%_ - (##fx+ _%probe91664%_ '1) - _%value91642%_)) - (_%loop91661%_ - (let ((_%next-probe91686%_ - (fx+ _%start91657%_ - _%i91666%_ - (fx* _%i91666%_ _%i91666%_)))) - (##fxmodulo _%next-probe91686%_ _%size91651%_)) - (##fx+ _%i91666%_ '1) - _%deleted91668%_)))))))))) + _%table92777%_ + (##fx+ _%probe92796%_ '1) + _%value92774%_)) + (_%loop92793%_ + (let ((_%next-probe92818%_ + (fx+ _%start92789%_ + _%i92798%_ + (fx* _%i92798%_ _%i92798%_)))) + (##fxmodulo _%next-probe92818%_ _%size92783%_)) + (##fx+ _%i92798%_ '1) + _%deleted92800%_)))))))))) (define string-table-update! - (lambda (_%tab91635%_ - _%key91636%_ - _%string-table-update!91637%_ - _%default91638%_) - (if (##fx< (&raw-table-free _%tab91635%_) + (lambda (_%tab92767%_ + _%key92768%_ + _%string-table-update!92769%_ + _%default92770%_) + (if (##fx< (&raw-table-free _%tab92767%_) (##fxquotient - (vector-length (&raw-table-table _%tab91635%_)) + (vector-length (&raw-table-table _%tab92767%_)) '4)) - (__raw-table-rehash! _%tab91635%_) + (__raw-table-rehash! _%tab92767%_) '#!void) (__string-table-update! - _%tab91635%_ - _%key91636%_ - _%string-table-update!91637%_ - _%default91638%_))) + _%tab92767%_ + _%key92768%_ + _%string-table-update!92769%_ + _%default92770%_))) (define __string-table-update! - (lambda (_%tab91585%_ - _%key91586%_ - _%string-table-update!91587%_ - _%default91588%_) - (let ((_%table91591%_ (&raw-table-table _%tab91585%_)) - (_%seed91592%_ (&raw-table-seed _%tab91585%_))) - (let* ((_%h91594%_ - (fxxor (##string=?-hash _%key91586%_) _%seed91592%_)) - (_%size91597%_ (vector-length _%table91591%_)) - (_%entries91600%_ (##fxquotient _%size91597%_ '2)) - (_%start91603%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91594%_ _%entries91600%_) + (##fxmodulo _%h92726%_ _%entries92732%_) '1))) - (let _%loop91607%_ ((_%probe91610%_ _%start91603%_) - (_%i91612%_ '1) - (_%deleted91614%_ '#f)) - (let ((_%k91617%_ (vector-ref _%table91591%_ _%probe91610%_))) - (if (eq? _%k91617%_ (macro-unused-obj)) - (if _%deleted91614%_ + (let _%loop92739%_ ((_%probe92742%_ _%start92735%_) + (_%i92744%_ '1) + (_%deleted92746%_ '#f)) + (let ((_%k92749%_ (vector-ref _%table92723%_ _%probe92742%_))) + (if (eq? _%k92749%_ (macro-unused-obj)) + (if _%deleted92746%_ (begin (vector-set! - _%table91591%_ - _%deleted91614%_ - _%key91586%_) + _%table92723%_ + _%deleted92746%_ + _%key92718%_) (vector-set! - _%table91591%_ - (##fx+ _%deleted91614%_ '1) - (_%string-table-update!91587%_ _%default91588%_)) + _%table92723%_ + (##fx+ _%deleted92746%_ '1) + (_%string-table-update!92719%_ _%default92720%_)) ((lambda () (&raw-table-count-set! - _%tab91585%_ - (##fx+ (&raw-table-count _%tab91585%_) '1))))) + _%tab92717%_ + (##fx+ (&raw-table-count _%tab92717%_) '1))))) (begin (vector-set! - _%table91591%_ - _%probe91610%_ - _%key91586%_) + _%table92723%_ + _%probe92742%_ + _%key92718%_) (vector-set! - _%table91591%_ - (##fx+ _%probe91610%_ '1) - (_%string-table-update!91587%_ _%default91588%_)) + _%table92723%_ + (##fx+ _%probe92742%_ '1) + (_%string-table-update!92719%_ _%default92720%_)) ((lambda () (&raw-table-free-set! - _%tab91585%_ - (##fx- (&raw-table-free _%tab91585%_) '1)) + _%tab92717%_ + (##fx- (&raw-table-free _%tab92717%_) '1)) (&raw-table-count-set! - _%tab91585%_ - (##fx+ (&raw-table-count _%tab91585%_) '1)))))) - (if (eq? _%k91617%_ (macro-deleted-obj)) - (_%loop91607%_ - (let ((_%next-probe91624%_ - (fx+ _%start91603%_ - _%i91612%_ - (fx* _%i91612%_ _%i91612%_)))) - (##fxmodulo _%next-probe91624%_ _%size91597%_)) - (##fx+ _%i91612%_ '1) - (let ((_%$e91627%_ _%deleted91614%_)) - (if _%$e91627%_ _%$e91627%_ _%probe91610%_))) - (if (##string=? _%key91586%_ _%k91617%_) + _%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%_) (let () (vector-set! - _%table91591%_ - _%probe91610%_ - _%key91586%_) + _%table92723%_ + _%probe92742%_ + _%key92718%_) (vector-set! - _%table91591%_ - (##fx+ _%probe91610%_ '1) - (_%string-table-update!91587%_ + _%table92723%_ + (##fx+ _%probe92742%_ '1) + (_%string-table-update!92719%_ (vector-ref - _%table91591%_ - (##fx+ _%probe91610%_ '1))))) - (_%loop91607%_ - (let ((_%next-probe91632%_ - (fx+ _%start91603%_ - _%i91612%_ - (fx* _%i91612%_ _%i91612%_)))) - (##fxmodulo _%next-probe91632%_ _%size91597%_)) - (##fx+ _%i91612%_ '1) - _%deleted91614%_)))))))))) + _%table92723%_ + (##fx+ _%probe92742%_ '1))))) + (_%loop92739%_ + (let ((_%next-probe92764%_ + (fx+ _%start92735%_ + _%i92744%_ + (fx* _%i92744%_ _%i92744%_)))) + (##fxmodulo _%next-probe92764%_ _%size92729%_)) + (##fx+ _%i92744%_ '1) + _%deleted92746%_)))))))))) (define string-table-delete! - (lambda (_%tab91540%_ _%key91542%_) - (let ((_%table91545%_ (&raw-table-table _%tab91540%_)) - (_%seed91547%_ (&raw-table-seed _%tab91540%_))) - (let* ((_%h91550%_ - (fxxor (##string=?-hash _%key91542%_) _%seed91547%_)) - (_%size91553%_ (vector-length _%table91545%_)) - (_%entries91556%_ (##fxquotient _%size91553%_ '2)) - (_%start91559%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91550%_ _%entries91556%_) + (##fxmodulo _%h92682%_ _%entries92688%_) '1))) - (let _%loop91563%_ ((_%probe91566%_ _%start91559%_) - (_%i91568%_ '1)) - (let ((_%k91571%_ (vector-ref _%table91545%_ _%probe91566%_))) - (if (eq? _%k91571%_ (macro-unused-obj)) + (let _%loop92695%_ ((_%probe92698%_ _%start92691%_) + (_%i92700%_ '1)) + (let ((_%k92703%_ (vector-ref _%table92677%_ _%probe92698%_))) + (if (eq? _%k92703%_ (macro-unused-obj)) '#!void - (if (eq? _%k91571%_ (macro-deleted-obj)) - (_%loop91563%_ - (let ((_%next-probe91576%_ - (fx+ _%start91559%_ - _%i91568%_ - (fx* _%i91568%_ _%i91568%_)))) - (##fxmodulo _%next-probe91576%_ _%size91553%_)) - (##fx+ _%i91568%_ '1)) - (if (##string=? _%key91542%_ _%k91571%_) + (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%_) (let () (vector-set! - _%table91545%_ - _%probe91566%_ + _%table92677%_ + _%probe92698%_ (macro-deleted-obj)) (vector-set! - _%table91545%_ - (##fx+ _%probe91566%_ '1) + _%table92677%_ + (##fx+ _%probe92698%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab91540%_ - (##fx- (&raw-table-count _%tab91540%_) + _%tab92672%_ + (##fx- (&raw-table-count _%tab92672%_) '1))))) - (_%loop91563%_ - (let ((_%next-probe91582%_ - (fx+ _%start91559%_ - _%i91568%_ - (fx* _%i91568%_ _%i91568%_)))) - (##fxmodulo _%next-probe91582%_ _%size91553%_)) - (##fx+ _%i91568%_ '1))))))))))) + (_%loop92695%_ + (let ((_%next-probe92714%_ + (fx+ _%start92691%_ + _%i92700%_ + (fx* _%i92700%_ _%i92700%_)))) + (##fxmodulo _%next-probe92714%_ _%size92685%_)) + (##fx+ _%i92700%_ '1))))))))))) (define make-immediate-table__% - (lambda (_%size-hint91521%_ _%seed91523%_) + (lambda (_%size-hint92653%_ _%seed92655%_) (make-raw-table__% - _%size-hint91521%_ + _%size-hint92653%_ immediate-hash eq? - _%seed91523%_))) + _%seed92655%_))) (define make-immediate-table__0 (lambda () - (let* ((_%size-hint91529%_ '#f) (_%seed91531%_ '0)) - (make-immediate-table__% _%size-hint91529%_ _%seed91531%_)))) + (let* ((_%size-hint92661%_ '#f) (_%seed92663%_ '0)) + (make-immediate-table__% _%size-hint92661%_ _%seed92663%_)))) (define make-immediate-table__1 - (lambda (_%size-hint91533%_) - (let ((_%seed91535%_ '0)) - (make-immediate-table__% _%size-hint91533%_ _%seed91535%_)))) + (lambda (_%size-hint92665%_) + (let ((_%seed92667%_ '0)) + (make-immediate-table__% _%size-hint92665%_ _%seed92667%_)))) (define make-immediate-table - (lambda _g92761_ - (let ((_g92760_ (##length _g92761_))) - (cond ((##fx= _g92760_ 0) (apply make-immediate-table__0 _g92761_)) - ((##fx= _g92760_ 1) (apply make-immediate-table__1 _g92761_)) - ((##fx= _g92760_ 2) (apply make-immediate-table__% _g92761_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-immediate-table - _g92761_)))))) + _g93893_)))))) (define immediate-table-ref - (lambda (_%tab91474%_ _%key91475%_ _%default91476%_) - (let ((_%table91478%_ (&raw-table-table _%tab91474%_)) - (_%seed91479%_ (&raw-table-seed _%tab91474%_))) - (let* ((_%h91481%_ - (fxxor (immediate-hash _%key91475%_) _%seed91479%_)) - (_%size91484%_ (vector-length _%table91478%_)) - (_%entries91487%_ (##fxquotient _%size91484%_ '2)) - (_%start91490%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91481%_ _%entries91487%_) + (##fxmodulo _%h92613%_ _%entries92619%_) '1))) - (let _%loop91494%_ ((_%probe91497%_ _%start91490%_) - (_%i91499%_ '1) - (_%deleted91501%_ '#f)) - (let ((_%k91504%_ (vector-ref _%table91478%_ _%probe91497%_))) - (if (eq? _%k91504%_ (macro-unused-obj)) - _%default91476%_ - (if (eq? _%k91504%_ (macro-deleted-obj)) - (_%loop91494%_ - (let ((_%next-probe91509%_ - (fx+ _%start91490%_ - _%i91499%_ - (fx* _%i91499%_ _%i91499%_)))) - (##fxmodulo _%next-probe91509%_ _%size91484%_)) - (##fx+ _%i91499%_ '1) - (let ((_%$e91512%_ _%deleted91501%_)) - (if _%$e91512%_ _%$e91512%_ _%probe91497%_))) - (if (eq? _%key91475%_ _%k91504%_) + (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%_) (vector-ref - _%table91478%_ - (##fx+ _%probe91497%_ '1)) - (_%loop91494%_ - (let ((_%next-probe91517%_ - (fx+ _%start91490%_ - _%i91499%_ - (fx* _%i91499%_ _%i91499%_)))) - (##fxmodulo _%next-probe91517%_ _%size91484%_)) - (##fx+ _%i91499%_ '1) - _%deleted91501%_)))))))))) + _%table92610%_ + (##fx+ _%probe92629%_ '1)) + (_%loop92626%_ + (let ((_%next-probe92649%_ + (fx+ _%start92622%_ + _%i92631%_ + (fx* _%i92631%_ _%i92631%_)))) + (##fxmodulo _%next-probe92649%_ _%size92616%_)) + (##fx+ _%i92631%_ '1) + _%deleted92633%_)))))))))) (define immediate-table-set! - (lambda (_%tab91470%_ _%key91471%_ _%value91472%_) - (if (##fx< (&raw-table-free _%tab91470%_) + (lambda (_%tab92602%_ _%key92603%_ _%value92604%_) + (if (##fx< (&raw-table-free _%tab92602%_) (##fxquotient - (vector-length (&raw-table-table _%tab91470%_)) + (vector-length (&raw-table-table _%tab92602%_)) '4)) - (__raw-table-rehash! _%tab91470%_) + (__raw-table-rehash! _%tab92602%_) '#!void) - (__immediate-table-set! _%tab91470%_ _%key91471%_ _%value91472%_))) + (__immediate-table-set! _%tab92602%_ _%key92603%_ _%value92604%_))) (define __immediate-table-set! - (lambda (_%tab91421%_ _%key91422%_ _%value91423%_) - (let ((_%table91426%_ (&raw-table-table _%tab91421%_)) - (_%seed91427%_ (&raw-table-seed _%tab91421%_))) - (let* ((_%h91429%_ - (fxxor (immediate-hash _%key91422%_) _%seed91427%_)) - (_%size91432%_ (vector-length _%table91426%_)) - (_%entries91435%_ (##fxquotient _%size91432%_ '2)) - (_%start91438%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91429%_ _%entries91435%_) + (##fxmodulo _%h92561%_ _%entries92567%_) '1))) - (let _%loop91442%_ ((_%probe91445%_ _%start91438%_) - (_%i91447%_ '1) - (_%deleted91449%_ '#f)) - (let ((_%k91452%_ (vector-ref _%table91426%_ _%probe91445%_))) - (if (eq? _%k91452%_ (macro-unused-obj)) - (if _%deleted91449%_ + (let _%loop92574%_ ((_%probe92577%_ _%start92570%_) + (_%i92579%_ '1) + (_%deleted92581%_ '#f)) + (let ((_%k92584%_ (vector-ref _%table92558%_ _%probe92577%_))) + (if (eq? _%k92584%_ (macro-unused-obj)) + (if _%deleted92581%_ (begin (vector-set! - _%table91426%_ - _%deleted91449%_ - _%key91422%_) + _%table92558%_ + _%deleted92581%_ + _%key92554%_) (vector-set! - _%table91426%_ - (##fx+ _%deleted91449%_ '1) - _%value91423%_) + _%table92558%_ + (##fx+ _%deleted92581%_ '1) + _%value92555%_) ((lambda () (&raw-table-count-set! - _%tab91421%_ - (##fx+ (&raw-table-count _%tab91421%_) '1))))) + _%tab92553%_ + (##fx+ (&raw-table-count _%tab92553%_) '1))))) (begin (vector-set! - _%table91426%_ - _%probe91445%_ - _%key91422%_) + _%table92558%_ + _%probe92577%_ + _%key92554%_) (vector-set! - _%table91426%_ - (##fx+ _%probe91445%_ '1) - _%value91423%_) + _%table92558%_ + (##fx+ _%probe92577%_ '1) + _%value92555%_) ((lambda () (&raw-table-free-set! - _%tab91421%_ - (##fx- (&raw-table-free _%tab91421%_) '1)) + _%tab92553%_ + (##fx- (&raw-table-free _%tab92553%_) '1)) (&raw-table-count-set! - _%tab91421%_ - (##fx+ (&raw-table-count _%tab91421%_) '1)))))) - (if (eq? _%k91452%_ (macro-deleted-obj)) - (_%loop91442%_ - (let ((_%next-probe91459%_ - (fx+ _%start91438%_ - _%i91447%_ - (fx* _%i91447%_ _%i91447%_)))) - (##fxmodulo _%next-probe91459%_ _%size91432%_)) - (##fx+ _%i91447%_ '1) - (let ((_%$e91462%_ _%deleted91449%_)) - (if _%$e91462%_ _%$e91462%_ _%probe91445%_))) - (if (eq? _%key91422%_ _%k91452%_) + _%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%_) (let () (vector-set! - _%table91426%_ - _%probe91445%_ - _%key91422%_) + _%table92558%_ + _%probe92577%_ + _%key92554%_) (vector-set! - _%table91426%_ - (##fx+ _%probe91445%_ '1) - _%value91423%_)) - (_%loop91442%_ - (let ((_%next-probe91467%_ - (fx+ _%start91438%_ - _%i91447%_ - (fx* _%i91447%_ _%i91447%_)))) - (##fxmodulo _%next-probe91467%_ _%size91432%_)) - (##fx+ _%i91447%_ '1) - _%deleted91449%_)))))))))) + _%table92558%_ + (##fx+ _%probe92577%_ '1) + _%value92555%_)) + (_%loop92574%_ + (let ((_%next-probe92599%_ + (fx+ _%start92570%_ + _%i92579%_ + (fx* _%i92579%_ _%i92579%_)))) + (##fxmodulo _%next-probe92599%_ _%size92564%_)) + (##fx+ _%i92579%_ '1) + _%deleted92581%_)))))))))) (define immediate-table-update! - (lambda (_%tab91416%_ - _%key91417%_ - _%immediate-table-update!91418%_ - _%default91419%_) - (if (##fx< (&raw-table-free _%tab91416%_) + (lambda (_%tab92548%_ + _%key92549%_ + _%immediate-table-update!92550%_ + _%default92551%_) + (if (##fx< (&raw-table-free _%tab92548%_) (##fxquotient - (vector-length (&raw-table-table _%tab91416%_)) + (vector-length (&raw-table-table _%tab92548%_)) '4)) - (__raw-table-rehash! _%tab91416%_) + (__raw-table-rehash! _%tab92548%_) '#!void) (__immediate-table-update! - _%tab91416%_ - _%key91417%_ - _%immediate-table-update!91418%_ - _%default91419%_))) + _%tab92548%_ + _%key92549%_ + _%immediate-table-update!92550%_ + _%default92551%_))) (define __immediate-table-update! - (lambda (_%tab91366%_ - _%key91367%_ - _%immediate-table-update!91368%_ - _%default91369%_) - (let ((_%table91372%_ (&raw-table-table _%tab91366%_)) - (_%seed91373%_ (&raw-table-seed _%tab91366%_))) - (let* ((_%h91375%_ - (fxxor (immediate-hash _%key91367%_) _%seed91373%_)) - (_%size91378%_ (vector-length _%table91372%_)) - (_%entries91381%_ (##fxquotient _%size91378%_ '2)) - (_%start91384%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91375%_ _%entries91381%_) + (##fxmodulo _%h92507%_ _%entries92513%_) '1))) - (let _%loop91388%_ ((_%probe91391%_ _%start91384%_) - (_%i91393%_ '1) - (_%deleted91395%_ '#f)) - (let ((_%k91398%_ (vector-ref _%table91372%_ _%probe91391%_))) - (if (eq? _%k91398%_ (macro-unused-obj)) - (if _%deleted91395%_ + (let _%loop92520%_ ((_%probe92523%_ _%start92516%_) + (_%i92525%_ '1) + (_%deleted92527%_ '#f)) + (let ((_%k92530%_ (vector-ref _%table92504%_ _%probe92523%_))) + (if (eq? _%k92530%_ (macro-unused-obj)) + (if _%deleted92527%_ (begin (vector-set! - _%table91372%_ - _%deleted91395%_ - _%key91367%_) + _%table92504%_ + _%deleted92527%_ + _%key92499%_) (vector-set! - _%table91372%_ - (##fx+ _%deleted91395%_ '1) - (_%immediate-table-update!91368%_ _%default91369%_)) + _%table92504%_ + (##fx+ _%deleted92527%_ '1) + (_%immediate-table-update!92500%_ _%default92501%_)) ((lambda () (&raw-table-count-set! - _%tab91366%_ - (##fx+ (&raw-table-count _%tab91366%_) '1))))) + _%tab92498%_ + (##fx+ (&raw-table-count _%tab92498%_) '1))))) (begin (vector-set! - _%table91372%_ - _%probe91391%_ - _%key91367%_) + _%table92504%_ + _%probe92523%_ + _%key92499%_) (vector-set! - _%table91372%_ - (##fx+ _%probe91391%_ '1) - (_%immediate-table-update!91368%_ _%default91369%_)) + _%table92504%_ + (##fx+ _%probe92523%_ '1) + (_%immediate-table-update!92500%_ _%default92501%_)) ((lambda () (&raw-table-free-set! - _%tab91366%_ - (##fx- (&raw-table-free _%tab91366%_) '1)) + _%tab92498%_ + (##fx- (&raw-table-free _%tab92498%_) '1)) (&raw-table-count-set! - _%tab91366%_ - (##fx+ (&raw-table-count _%tab91366%_) '1)))))) - (if (eq? _%k91398%_ (macro-deleted-obj)) - (_%loop91388%_ - (let ((_%next-probe91405%_ - (fx+ _%start91384%_ - _%i91393%_ - (fx* _%i91393%_ _%i91393%_)))) - (##fxmodulo _%next-probe91405%_ _%size91378%_)) - (##fx+ _%i91393%_ '1) - (let ((_%$e91408%_ _%deleted91395%_)) - (if _%$e91408%_ _%$e91408%_ _%probe91391%_))) - (if (eq? _%key91367%_ _%k91398%_) + _%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%_) (let () (vector-set! - _%table91372%_ - _%probe91391%_ - _%key91367%_) + _%table92504%_ + _%probe92523%_ + _%key92499%_) (vector-set! - _%table91372%_ - (##fx+ _%probe91391%_ '1) - (_%immediate-table-update!91368%_ + _%table92504%_ + (##fx+ _%probe92523%_ '1) + (_%immediate-table-update!92500%_ (vector-ref - _%table91372%_ - (##fx+ _%probe91391%_ '1))))) - (_%loop91388%_ - (let ((_%next-probe91413%_ - (fx+ _%start91384%_ - _%i91393%_ - (fx* _%i91393%_ _%i91393%_)))) - (##fxmodulo _%next-probe91413%_ _%size91378%_)) - (##fx+ _%i91393%_ '1) - _%deleted91395%_)))))))))) + _%table92504%_ + (##fx+ _%probe92523%_ '1))))) + (_%loop92520%_ + (let ((_%next-probe92545%_ + (fx+ _%start92516%_ + _%i92525%_ + (fx* _%i92525%_ _%i92525%_)))) + (##fxmodulo _%next-probe92545%_ _%size92510%_)) + (##fx+ _%i92525%_ '1) + _%deleted92527%_)))))))))) (define immediate-table-delete! - (lambda (_%tab91321%_ _%key91323%_) - (let ((_%table91326%_ (&raw-table-table _%tab91321%_)) - (_%seed91328%_ (&raw-table-seed _%tab91321%_))) - (let* ((_%h91331%_ - (fxxor (immediate-hash _%key91323%_) _%seed91328%_)) - (_%size91334%_ (vector-length _%table91326%_)) - (_%entries91337%_ (##fxquotient _%size91334%_ '2)) - (_%start91340%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91331%_ _%entries91337%_) + (##fxmodulo _%h92463%_ _%entries92469%_) '1))) - (let _%loop91344%_ ((_%probe91347%_ _%start91340%_) - (_%i91349%_ '1)) - (let ((_%k91352%_ (vector-ref _%table91326%_ _%probe91347%_))) - (if (eq? _%k91352%_ (macro-unused-obj)) + (let _%loop92476%_ ((_%probe92479%_ _%start92472%_) + (_%i92481%_ '1)) + (let ((_%k92484%_ (vector-ref _%table92458%_ _%probe92479%_))) + (if (eq? _%k92484%_ (macro-unused-obj)) '#!void - (if (eq? _%k91352%_ (macro-deleted-obj)) - (_%loop91344%_ - (let ((_%next-probe91357%_ - (fx+ _%start91340%_ - _%i91349%_ - (fx* _%i91349%_ _%i91349%_)))) - (##fxmodulo _%next-probe91357%_ _%size91334%_)) - (##fx+ _%i91349%_ '1)) - (if (eq? _%key91323%_ _%k91352%_) + (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%_) (let () (vector-set! - _%table91326%_ - _%probe91347%_ + _%table92458%_ + _%probe92479%_ (macro-deleted-obj)) (vector-set! - _%table91326%_ - (##fx+ _%probe91347%_ '1) + _%table92458%_ + (##fx+ _%probe92479%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab91321%_ - (##fx- (&raw-table-count _%tab91321%_) + _%tab92453%_ + (##fx- (&raw-table-count _%tab92453%_) '1))))) - (_%loop91344%_ - (let ((_%next-probe91363%_ - (fx+ _%start91340%_ - _%i91349%_ - (fx* _%i91349%_ _%i91349%_)))) - (##fxmodulo _%next-probe91363%_ _%size91334%_)) - (##fx+ _%i91349%_ '1))))))))))) + (_%loop92476%_ + (let ((_%next-probe92495%_ + (fx+ _%start92472%_ + _%i92481%_ + (fx* _%i92481%_ _%i92481%_)))) + (##fxmodulo _%next-probe92495%_ _%size92466%_)) + (##fx+ _%i92481%_ '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 (_%tab91319%_) + (lambda (_%tab92451%_) (##unchecked-structure-ref - _%tab91319%_ + _%tab92451%_ '1 __gc-table::t 'gc-table-gcht))) (define &gc-table-immediate - (lambda (_%tab91317%_) + (lambda (_%tab92449%_) (##unchecked-structure-ref - _%tab91317%_ + _%tab92449%_ '2 __gc-table::t 'gc-table-immediate))) (define &gc-table-gcht-set! - (lambda (_%tab91314%_ _%val91315%_) + (lambda (_%tab92446%_ _%val92447%_) (##unchecked-structure-set! - _%tab91314%_ - _%val91315%_ + _%tab92446%_ + _%val92447%_ '1 __gc-table::t 'gc-table-gcht-set!))) (define &gc-table-immediate-set! - (lambda (_%tab91311%_ _%val91312%_) + (lambda (_%tab92443%_ _%val92444%_) (##unchecked-structure-set! - _%tab91311%_ - _%val91312%_ + _%tab92443%_ + _%val92444%_ '2 __gc-table::t 'gc-table-immediate-set!))) (define make-gc-table__% - (lambda (_%size-hint91287%_ _%klass91288%_ _%flags91289%_) - (let ((_%gcht91291%_ + (lambda (_%size-hint92419%_ _%klass92420%_ _%flags92421%_) + (let ((_%gcht92423%_ (__gc-table-new - (if (fixnum? _%size-hint91287%_) _%size-hint91287%_ '16) - _%flags91289%_))) - (##structure _%klass91288%_ _%gcht91291%_ '#f)))) + (if (fixnum? _%size-hint92419%_) _%size-hint92419%_ '16) + _%flags92421%_))) + (##structure _%klass92420%_ _%gcht92423%_ '#f)))) (define make-gc-table__0 - (lambda (_%size-hint91296%_) - (let* ((_%klass91298%_ __gc-table::t) (_%flags91300%_ '0)) + (lambda (_%size-hint92428%_) + (let* ((_%klass92430%_ __gc-table::t) (_%flags92432%_ '0)) (make-gc-table__% - _%size-hint91296%_ - _%klass91298%_ - _%flags91300%_)))) + _%size-hint92428%_ + _%klass92430%_ + _%flags92432%_)))) (define make-gc-table__1 - (lambda (_%size-hint91302%_ _%klass91303%_) - (let ((_%flags91305%_ '0)) + (lambda (_%size-hint92434%_ _%klass92435%_) + (let ((_%flags92437%_ '0)) (make-gc-table__% - _%size-hint91302%_ - _%klass91303%_ - _%flags91305%_)))) + _%size-hint92434%_ + _%klass92435%_ + _%flags92437%_)))) (define make-gc-table - (lambda _g92763_ - (let ((_g92762_ (##length _g92763_))) - (cond ((##fx= _g92762_ 1) (apply make-gc-table__0 _g92763_)) - ((##fx= _g92762_ 2) (apply make-gc-table__1 _g92763_)) - ((##fx= _g92762_ 3) (apply make-gc-table__% _g92763_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-gc-table - _g92763_)))))) + _g93895_)))))) (define __gc-table-immediate - (lambda (_%tab91278%_) - (let ((_%$e91280%_ (&gc-table-immediate _%tab91278%_))) - (if _%$e91280%_ - _%$e91280%_ - (let ((_%immediate91284%_ (make-immediate-table__% '#f '0))) - (&gc-table-immediate-set! _%tab91278%_ _%immediate91284%_) - _%immediate91284%_))))) + (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%_))))) (define __gc-table-new - (lambda (_%size91268%_ _%flags91269%_) - (let* ((_%flags91271%_ - (##fxand _%flags91269%_ + (lambda (_%size92400%_ _%flags92401%_) + (let* ((_%flags92403%_ + (##fxand _%flags92401%_ (fxnot (macro-gc-hash-table-flag-need-rehash)))) - (_%flags91273%_ - (fxior _%flags91271%_ + (_%flags92405%_ + (fxior _%flags92403%_ (macro-gc-hash-table-flag-mem-alloc-keys))) - (_%gcht91275%_ + (_%gcht92407%_ (##gc-hash-table-allocate - _%size91268%_ - _%flags91273%_ + _%size92400%_ + _%flags92405%_ __gc-table-loads))) - _%gcht91275%_))) + _%gcht92407%_))) (define __gc-table-e - (lambda (_%tab91263%_) + (lambda (_%tab92395%_) (declare (not interrupts-enabled)) - (let ((_%gcht91266%_ (&gc-table-gcht _%tab91263%_))) + (let ((_%gcht92398%_ (&gc-table-gcht _%tab92395%_))) (if (##fx= '0 - (fxand (macro-gc-hash-table-flags _%gcht91266%_) + (fxand (macro-gc-hash-table-flags _%gcht92398%_) (macro-gc-hash-table-flag-need-rehash))) - _%gcht91266%_ + _%gcht92398%_ (begin - (__gc-table-rehash! _%tab91263%_) - (&gc-table-gcht _%tab91263%_)))))) + (__gc-table-rehash! _%tab92395%_) + (&gc-table-gcht _%tab92395%_)))))) (define __gc-table-rehash! - (lambda (_%tab91254%_) - (let* ((_%old-table91256%_ (&gc-table-gcht _%tab91254%_)) - (_%new-table91258%_ - (##gc-hash-table-resize! _%old-table91256%_ __gc-table-loads)) - (_%gcht91260%_ + (lambda (_%tab92386%_) + (let* ((_%old-table92388%_ (&gc-table-gcht _%tab92386%_)) + (_%new-table92390%_ + (##gc-hash-table-resize! _%old-table92388%_ __gc-table-loads)) + (_%gcht92392%_ (##gc-hash-table-rehash! - _%old-table91256%_ - _%new-table91258%_))) - (&gc-table-gcht-set! _%tab91254%_ _%gcht91260%_)))) + _%old-table92388%_ + _%new-table92390%_))) + (&gc-table-gcht-set! _%tab92386%_ _%gcht92392%_)))) (define gc-table-ref - (lambda (_%tab91238%_ _%key91239%_ _%default91240%_) + (lambda (_%tab92370%_ _%key92371%_ _%default92372%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key91239%_) - (let* ((_%gcht91244%_ (__gc-table-e _%tab91238%_)) - (_%value91246%_ - (##gc-hash-table-ref _%gcht91244%_ _%key91239%_))) - (if (eq? _%value91246%_ (macro-unused-obj)) - _%default91240%_ - _%value91246%_)) - (let ((_%$e91248%_ (&gc-table-immediate _%tab91238%_))) - (if _%$e91248%_ - ((lambda (_%immediate91251%_) + (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%_) (immediate-table-ref - _%immediate91251%_ - _%key91239%_ - _%default91240%_)) - _%$e91248%_) - _%default91240%_))))) + _%immediate92383%_ + _%key92371%_ + _%default92372%_)) + _%$e92380%_) + _%default92372%_))))) (define gc-table-set! - (lambda (_%tab91231%_ _%key91232%_ _%value91233%_) + (lambda (_%tab92363%_ _%key92364%_ _%value92365%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key91232%_) - (let ((_%gcht91236%_ (__gc-table-e _%tab91231%_))) + (if (##mem-allocated? _%key92364%_) + (let ((_%gcht92368%_ (__gc-table-e _%tab92363%_))) (if (##gc-hash-table-set! - _%gcht91236%_ - _%key91232%_ - _%value91233%_) + _%gcht92368%_ + _%key92364%_ + _%value92365%_) (begin - (__gc-table-rehash! _%tab91231%_) - (gc-table-set! _%tab91231%_ _%key91232%_ _%value91233%_)) + (__gc-table-rehash! _%tab92363%_) + (gc-table-set! _%tab92363%_ _%key92364%_ _%value92365%_)) '#!void)) (immediate-table-set! - (__gc-table-immediate _%tab91231%_) - _%key91232%_ - _%value91233%_)))) + (__gc-table-immediate _%tab92363%_) + _%key92364%_ + _%value92365%_)))) (define gc-table-update! - (lambda (_%tab91224%_ _%key91225%_ _%update91226%_ _%default91227%_) - (if (##mem-allocated? _%key91225%_) - (let ((_%value91229%_ - (gc-table-ref _%tab91224%_ _%key91225%_ _%default91227%_))) + (lambda (_%tab92356%_ _%key92357%_ _%update92358%_ _%default92359%_) + (if (##mem-allocated? _%key92357%_) + (let ((_%value92361%_ + (gc-table-ref _%tab92356%_ _%key92357%_ _%default92359%_))) (gc-table-set! - _%tab91224%_ - _%key91225%_ - (_%update91226%_ _%value91229%_))) + _%tab92356%_ + _%key92357%_ + (_%update92358%_ _%value92361%_))) (immediate-table-update! - (__gc-table-immediate _%tab91224%_) - _%key91225%_ - _%update91226%_ - _%default91227%_)))) + (__gc-table-immediate _%tab92356%_) + _%key92357%_ + _%update92358%_ + _%default92359%_)))) (define gc-table-delete! - (lambda (_%tab91212%_ _%key91213%_) + (lambda (_%tab92344%_ _%key92345%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key91213%_) - (let ((_%gcht91217%_ (__gc-table-e _%tab91212%_))) + (if (##mem-allocated? _%key92345%_) + (let ((_%gcht92349%_ (__gc-table-e _%tab92344%_))) (if (##gc-hash-table-set! - _%gcht91217%_ - _%key91213%_ + _%gcht92349%_ + _%key92345%_ (macro-absent-obj)) (begin - (__gc-table-rehash! _%tab91212%_) - (gc-table-delete! _%tab91212%_ _%key91213%_)) + (__gc-table-rehash! _%tab92344%_) + (gc-table-delete! _%tab92344%_ _%key92345%_)) '#!void)) - (let ((_%$e91219%_ (&gc-table-immediate _%tab91212%_))) - (if _%$e91219%_ - ((lambda (_%immediate91222%_) - (immediate-table-delete! _%immediate91222%_ _%key91213%_)) - _%$e91219%_) + (let ((_%$e92351%_ (&gc-table-immediate _%tab92344%_))) + (if _%$e92351%_ + ((lambda (_%immediate92354%_) + (immediate-table-delete! _%immediate92354%_ _%key92345%_)) + _%$e92351%_) '#!void))))) (define gc-table-for-each - (lambda (_%tab91193%_ _%proc91194%_) + (lambda (_%tab92325%_ _%proc92326%_) (declare (not interrupts-enabled)) (begin - (let ((_%gcht91197%_ (__gc-table-e _%tab91193%_))) - (let _%loop91199%_ ((_%i91201%_ (macro-gc-hash-table-key0))) - (if (##fx< _%i91201%_ (##vector-length _%gcht91197%_)) - (let ((_%key91203%_ (##vector-ref _%gcht91197%_ _%i91201%_))) - (if (if (eq? _%key91203%_ (macro-unused-obj)) + (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)) '#f - (not (eq? _%key91203%_ (macro-deleted-obj)))) - (_%proc91194%_ - _%key91203%_ - (##vector-ref _%gcht91197%_ (##fx+ _%i91201%_ '1))) + (not (eq? _%key92335%_ (macro-deleted-obj)))) + (_%proc92326%_ + _%key92335%_ + (##vector-ref _%gcht92329%_ (##fx+ _%i92333%_ '1))) '#!void) (let () (declare (interrupts-enabled)) - (_%loop91199%_ (##fx+ _%i91201%_ '2)))) + (_%loop92331%_ (##fx+ _%i92333%_ '2)))) '#!void))) - (let ((_%$e91207%_ (&gc-table-immediate _%tab91193%_))) - (if _%$e91207%_ - ((lambda (_%immediate91210%_) - (raw-table-for-each _%immediate91210%_ _%proc91194%_)) - _%$e91207%_) + (let ((_%$e92339%_ (&gc-table-immediate _%tab92325%_))) + (if _%$e92339%_ + ((lambda (_%immediate92342%_) + (raw-table-for-each _%immediate92342%_ _%proc92326%_)) + _%$e92339%_) '#!void))))) (define gc-table-copy - (lambda (_%tab91181%_) - (let* ((_%gcht91183%_ (__gc-table-e _%tab91181%_)) - (_%new-table91185%_ + (lambda (_%tab92313%_) + (let* ((_%gcht92315%_ (__gc-table-e _%tab92313%_)) + (_%new-table92317%_ (__gc-table-new - (macro-gc-hash-table-count _%gcht91183%_) - (macro-gc-hash-table-flags _%gcht91183%_))) - (_%result91187%_ + (macro-gc-hash-table-count _%gcht92315%_) + (macro-gc-hash-table-flags _%gcht92315%_))) + (_%result92319%_ (##structure - (##structure-type _%tab91181%_) - _%new-table91185%_ + (##structure-type _%tab92313%_) + _%new-table92317%_ '#f))) (gc-table-for-each - _%tab91181%_ - (lambda (_%k91190%_ _%v91191%_) - (gc-table-set! _%result91187%_ _%k91190%_ _%v91191%_))) - _%result91187%_))) + _%tab92313%_ + (lambda (_%k92322%_ _%v92323%_) + (gc-table-set! _%result92319%_ _%k92322%_ _%v92323%_))) + _%result92319%_))) (define gc-table-clear! - (lambda (_%tab91174%_) - (let* ((_%gcht91176%_ (__gc-table-e _%tab91174%_)) - (_%new-table91178%_ + (lambda (_%tab92306%_) + (let* ((_%gcht92308%_ (__gc-table-e _%tab92306%_)) + (_%new-table92310%_ (__gc-table-new '16 - (macro-gc-hash-table-flags _%gcht91176%_)))) - (&gc-table-gcht-set! _%tab91174%_ _%new-table91178%_) - (&gc-table-immediate-set! _%tab91174%_ '#f)))) + (macro-gc-hash-table-flags _%gcht92308%_)))) + (&gc-table-gcht-set! _%tab92306%_ _%new-table92310%_) + (&gc-table-immediate-set! _%tab92306%_ '#f)))) (define gc-table-length - (lambda (_%tab91166%_) - (let ((_%gcht91168%_ (__gc-table-e _%tab91166%_))) - (fx+ (macro-gc-hash-table-count _%gcht91168%_) - (let ((_%$e91170%_ (&gc-table-immediate _%tab91166%_))) - (if _%$e91170%_ (&raw-table-count _%$e91170%_) '0)))))) + (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)))))) (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 (_%obj91151%_) + (lambda (_%obj92283%_) (declare (not interrupts-enabled)) - (let ((_%val91154%_ (gc-table-ref __object-eq-hash _%obj91151%_ '#f))) - (if _%val91154%_ - _%val91154%_ - (let* ((_%mix91156%_ __object-eq-hash-next) - (_%ptr91158%_ (##type-cast _%obj91151%_ '0)) - (_%h91160%_ - (fxand (fxxor _%mix91156%_ _%ptr91158%_) + (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%_) (macro-max-fixnum32)))) (set! __object-eq-hash-next - (let ((_%$e91163%_ (##fx+? __object-eq-hash-next '1))) - (if _%$e91163%_ _%$e91163%_ '0))) - (gc-table-set! __object-eq-hash _%obj91151%_ _%h91160%_) - _%h91160%_))))))) + (let ((_%$e92295%_ (##fx+? __object-eq-hash-next '1))) + (if _%$e92295%_ _%$e92295%_ '0))) + (gc-table-set! __object-eq-hash _%obj92283%_ _%h92292%_) + _%h92292%_))))))) diff --git a/src/bootstrap/gerbil/runtime/table~1.scm b/src/bootstrap/gerbil/runtime/table~1.scm index 249424239..73d366fde 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 (_%$stx90079%_) - (let* ((_%g9008390097%_ - (lambda (_%g9008490093%_) + (lambda (_%$stx91211%_) + (let* ((_%g9121591229%_ + (lambda (_%g9121691225%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9008490093%_))) - (_%g9008290139%_ - (lambda (_%g9008490101%_) - (if (gx#stx-pair? _%g9008490101%_) - (let ((_%e9008690104%_ (gx#syntax-e _%g9008490101%_))) - (let ((_%hd9008790108%_ + _%g9121691225%_))) + (_%g9121491271%_ + (lambda (_%g9121691233%_) + (if (gx#stx-pair? _%g9121691233%_) + (let ((_%e9121891236%_ (gx#syntax-e _%g9121691233%_))) + (let ((_%hd9121991240%_ (let () (declare (not safe)) - (##car _%e9008690104%_))) - (_%tl9008890111%_ + (##car _%e9121891236%_))) + (_%tl9122091243%_ (let () (declare (not safe)) - (##cdr _%e9008690104%_)))) - (if (gx#stx-pair? _%tl9008890111%_) - (let ((_%e9008990114%_ - (gx#syntax-e _%tl9008890111%_))) - (let ((_%hd9009090118%_ + (##cdr _%e9121891236%_)))) + (if (gx#stx-pair? _%tl9122091243%_) + (let ((_%e9122191246%_ + (gx#syntax-e _%tl9122091243%_))) + (let ((_%hd9122291250%_ (let () (declare (not safe)) - (##car _%e9008990114%_))) - (_%tl9009190121%_ + (##car _%e9122191246%_))) + (_%tl9122391253%_ (let () (declare (not safe)) - (##cdr _%e9008990114%_)))) - (if (gx#stx-null? _%tl9009190121%_) - ((lambda (_%L90124%_) + (##cdr _%e9122191246%_)))) + (if (gx#stx-null? _%tl9122391253%_) + ((lambda (_%L91256%_) (cons (gx#datum->syntax '#f 'macro-slot) - (cons '1 (cons _%L90124%_ '())))) - _%hd9009090118%_) - (_%g9008390097%_ _%g9008490101%_)))) - (_%g9008390097%_ _%g9008490101%_)))) - (_%g9008390097%_ _%g9008490101%_))))) - (_%g9008290139%_ _%$stx90079%_)))) + (cons '1 (cons _%L91256%_ '())))) + _%hd9122291250%_) + (_%g9121591229%_ _%g9121691233%_)))) + (_%g9121591229%_ _%g9121691233%_)))) + (_%g9121591229%_ _%g9121691233%_))))) + (_%g9121491271%_ _%$stx91211%_)))) (define |[:0:]#defspecialized-table| - (lambda (_%$stx90143%_) - (let* ((_%g9014790193%_ - (lambda (_%g9014890189%_) + (lambda (_%$stx91275%_) + (let* ((_%g9127991325%_ + (lambda (_%g9128091321%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9014890189%_))) - (_%g9014690346%_ - (lambda (_%g9014890197%_) - (if (gx#stx-pair? _%g9014890197%_) - (let ((_%e9015890200%_ (gx#syntax-e _%g9014890197%_))) - (let ((_%hd9015990204%_ + _%g9128091321%_))) + (_%g9127891478%_ + (lambda (_%g9128091329%_) + (if (gx#stx-pair? _%g9128091329%_) + (let ((_%e9129091332%_ (gx#syntax-e _%g9128091329%_))) + (let ((_%hd9129191336%_ (let () (declare (not safe)) - (##car _%e9015890200%_))) - (_%tl9016090207%_ + (##car _%e9129091332%_))) + (_%tl9129291339%_ (let () (declare (not safe)) - (##cdr _%e9015890200%_)))) - (if (gx#stx-pair? _%tl9016090207%_) - (let ((_%e9016190210%_ - (gx#syntax-e _%tl9016090207%_))) - (let ((_%hd9016290214%_ + (##cdr _%e9129091332%_)))) + (if (gx#stx-pair? _%tl9129291339%_) + (let ((_%e9129391342%_ + (gx#syntax-e _%tl9129291339%_))) + (let ((_%hd9129491346%_ (let () (declare (not safe)) - (##car _%e9016190210%_))) - (_%tl9016390217%_ + (##car _%e9129391342%_))) + (_%tl9129591349%_ (let () (declare (not safe)) - (##cdr _%e9016190210%_)))) - (if (gx#stx-pair? _%tl9016390217%_) - (let ((_%e9016490220%_ - (gx#syntax-e _%tl9016390217%_))) - (let ((_%hd9016590224%_ + (##cdr _%e9129391342%_)))) + (if (gx#stx-pair? _%tl9129591349%_) + (let ((_%e9129691352%_ + (gx#syntax-e _%tl9129591349%_))) + (let ((_%hd9129791356%_ (let () (declare (not safe)) - (##car _%e9016490220%_))) - (_%tl9016690227%_ + (##car _%e9129691352%_))) + (_%tl9129891359%_ (let () (declare (not safe)) - (##cdr _%e9016490220%_)))) - (if (gx#stx-pair? _%tl9016690227%_) - (let ((_%e9016790230%_ + (##cdr _%e9129691352%_)))) + (if (gx#stx-pair? _%tl9129891359%_) + (let ((_%e9129991362%_ (gx#syntax-e - _%tl9016690227%_))) - (let ((_%hd9016890234%_ + _%tl9129891359%_))) + (let ((_%hd9130091366%_ (let () (declare (not safe)) - (##car _%e9016790230%_))) - (_%tl9016990237%_ + (##car _%e9129991362%_))) + (_%tl9130191369%_ (let () (declare (not safe)) - (##cdr _%e9016790230%_)))) + (##cdr _%e9129991362%_)))) (if (gx#stx-pair? - _%tl9016990237%_) - (let ((_%e9017090240%_ + _%tl9130191369%_) + (let ((_%e9130291372%_ (gx#syntax-e - _%tl9016990237%_))) - (let ((_%hd9017190244%_ + _%tl9130191369%_))) + (let ((_%hd9130391376%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9017090240%_))) - (_%tl9017290247%_ - (let () (declare (not safe)) (##cdr _%e9017090240%_)))) - (if (gx#stx-pair? _%tl9017290247%_) - (let ((_%e9017390250%_ (gx#syntax-e _%tl9017290247%_))) - (let ((_%hd9017490254%_ + (##car _%e9130291372%_))) + (_%tl9130491379%_ + (let () (declare (not safe)) (##cdr _%e9130291372%_)))) + (if (gx#stx-pair? _%tl9130491379%_) + (let ((_%e9130591382%_ (gx#syntax-e _%tl9130491379%_))) + (let ((_%hd9130691386%_ (let () (declare (not safe)) - (##car _%e9017390250%_))) - (_%tl9017590257%_ + (##car _%e9130591382%_))) + (_%tl9130791389%_ (let () (declare (not safe)) - (##cdr _%e9017390250%_)))) - (if (gx#stx-pair? _%tl9017590257%_) - (let ((_%e9017690260%_ - (gx#syntax-e _%tl9017590257%_))) - (let ((_%hd9017790264%_ + (##cdr _%e9130591382%_)))) + (if (gx#stx-pair? _%tl9130791389%_) + (let ((_%e9130891392%_ + (gx#syntax-e _%tl9130791389%_))) + (let ((_%hd9130991396%_ (let () (declare (not safe)) - (##car _%e9017690260%_))) - (_%tl9017890267%_ + (##car _%e9130891392%_))) + (_%tl9131091399%_ (let () (declare (not safe)) - (##cdr _%e9017690260%_)))) - (if (gx#stx-pair? _%tl9017890267%_) - (let ((_%e9017990270%_ - (gx#syntax-e _%tl9017890267%_))) - (let ((_%hd9018090274%_ + (##cdr _%e9130891392%_)))) + (if (gx#stx-pair? _%tl9131091399%_) + (let ((_%e9131191402%_ + (gx#syntax-e _%tl9131091399%_))) + (let ((_%hd9131291406%_ (let () (declare (not safe)) - (##car _%e9017990270%_))) - (_%tl9018190277%_ + (##car _%e9131191402%_))) + (_%tl9131391409%_ (let () (declare (not safe)) - (##cdr _%e9017990270%_)))) - (if (gx#stx-pair? _%tl9018190277%_) - (let ((_%e9018290280%_ + (##cdr _%e9131191402%_)))) + (if (gx#stx-pair? _%tl9131391409%_) + (let ((_%e9131491412%_ (gx#syntax-e - _%tl9018190277%_))) - (let ((_%hd9018390284%_ + _%tl9131391409%_))) + (let ((_%hd9131591416%_ (let () (declare (not safe)) - (##car _%e9018290280%_))) - (_%tl9018490287%_ + (##car _%e9131491412%_))) + (_%tl9131691419%_ (let () (declare (not safe)) - (##cdr _%e9018290280%_)))) + (##cdr _%e9131491412%_)))) (if (gx#stx-pair? - _%tl9018490287%_) - (let ((_%e9018590290%_ + _%tl9131691419%_) + (let ((_%e9131791422%_ (gx#syntax-e - _%tl9018490287%_))) - (let ((_%hd9018690294%_ + _%tl9131691419%_))) + (let ((_%hd9131891426%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9018590290%_))) - (_%tl9018790297%_ - (let () (declare (not safe)) (##cdr _%e9018590290%_)))) - (if (gx#stx-null? _%tl9018790297%_) - ((lambda (_%L90300%_ - _%L90302%_ - _%L90303%_ - _%L90304%_ - _%L90305%_ - _%L90306%_ - _%L90307%_ - _%L90308%_ - _%L90309%_) + (##car _%e9131791422%_))) + (_%tl9131991429%_ + (let () (declare (not safe)) (##cdr _%e9131791422%_)))) + (if (gx#stx-null? _%tl9131991429%_) + ((lambda (_%L91432%_ + _%L91434%_ + _%L91435%_ + _%L91436%_ + _%L91437%_ + _%L91438%_ + _%L91439%_ + _%L91440%_ + _%L91441%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L90309%_ + (cons (cons _%L91441%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -192,14 +192,14 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'size-hint) - (cons _%L90302%_ - (cons _%L90300%_ + (cons _%L91434%_ + (cons _%L91432%_ (cons (gx#datum->syntax '#f 'seed) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L90308%_ + (cons (cons _%L91440%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -237,8 +237,8 @@ (cons (gx#datum->syntax '#f 'seed) - (cons _%L90302%_ - (cons _%L90300%_ + (cons _%L91434%_ + (cons _%L91432%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L90307%_ + (cons (cons _%L91439%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) @@ -289,7 +289,7 @@ 'tab) '())) '()))) - (cons (cons _%L90306%_ + (cons (cons _%L91438%_ (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 _%L90306%_ + (cons (cons _%L91438%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) @@ -339,8 +339,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'seed) - (cons _%L90302%_ - (cons _%L90300%_ + (cons _%L91434%_ + (cons _%L91432%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f @@ -421,10 +421,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L90305%_ + (cons (cons _%L91437%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L90305%_ + (cons _%L91437%_ (cons (gx#datum->syntax '#f 'default) @@ -463,25 +463,25 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L90304%_ + (cons (cons _%L91436%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L90305%_ + (cons _%L91437%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'default) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L90304%_ + (cons (cons _%L91436%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L90305%_ + (cons _%L91437%_ (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 _%L90302%_ - (cons _%L90300%_ + (cons _%L91434%_ + (cons _%L91432%_ (cons (gx#datum->syntax '#f 'key) - (cons _%L90305%_ + (cons _%L91437%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -582,7 +582,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L90303%_ + (cons (cons _%L91435%_ (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 _%L90302%_ - (cons _%L90300%_ + (cons _%L91434%_ + (cons _%L91432%_ (cons (gx#datum->syntax '#f 'key) @@ -651,92 +651,92 @@ '()))) '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9018690294%_ - _%hd9018390284%_ - _%hd9018090274%_ - _%hd9017790264%_ - _%hd9017490254%_ - _%hd9017190244%_ - _%hd9016890234%_ - _%hd9016590224%_ - _%hd9016290214%_) - (_%g9014790193%_ _%g9014890197%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9014790193%_ - _%g9014890197%_)))) - (_%g9014790193%_ - _%g9014890197%_)))) - (_%g9014790193%_ _%g9014890197%_)))) - (_%g9014790193%_ _%g9014890197%_)))) - (_%g9014790193%_ _%g9014890197%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9014790193%_ - _%g9014890197%_)))) - (_%g9014790193%_ - _%g9014890197%_)))) - (_%g9014790193%_ _%g9014890197%_)))) - (_%g9014790193%_ _%g9014890197%_)))) - (_%g9014790193%_ _%g9014890197%_))))) - (_%g9014690346%_ _%$stx90143%_)))) + _%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%_)))) (define |[:0:]#probe-step| - (lambda (_%$stx90350%_) - (let* ((_%g9035490376%_ - (lambda (_%g9035590372%_) + (lambda (_%$stx91482%_) + (let* ((_%g9148691508%_ + (lambda (_%g9148791504%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9035590372%_))) - (_%g9035390445%_ - (lambda (_%g9035590380%_) - (if (gx#stx-pair? _%g9035590380%_) - (let ((_%e9035990383%_ (gx#syntax-e _%g9035590380%_))) - (let ((_%hd9036090387%_ + _%g9148791504%_))) + (_%g9148591577%_ + (lambda (_%g9148791512%_) + (if (gx#stx-pair? _%g9148791512%_) + (let ((_%e9149191515%_ (gx#syntax-e _%g9148791512%_))) + (let ((_%hd9149291519%_ (let () (declare (not safe)) - (##car _%e9035990383%_))) - (_%tl9036190390%_ + (##car _%e9149191515%_))) + (_%tl9149391522%_ (let () (declare (not safe)) - (##cdr _%e9035990383%_)))) - (if (gx#stx-pair? _%tl9036190390%_) - (let ((_%e9036290393%_ - (gx#syntax-e _%tl9036190390%_))) - (let ((_%hd9036390397%_ + (##cdr _%e9149191515%_)))) + (if (gx#stx-pair? _%tl9149391522%_) + (let ((_%e9149491525%_ + (gx#syntax-e _%tl9149391522%_))) + (let ((_%hd9149591529%_ (let () (declare (not safe)) - (##car _%e9036290393%_))) - (_%tl9036490400%_ + (##car _%e9149491525%_))) + (_%tl9149691532%_ (let () (declare (not safe)) - (##cdr _%e9036290393%_)))) - (if (gx#stx-pair? _%tl9036490400%_) - (let ((_%e9036590403%_ - (gx#syntax-e _%tl9036490400%_))) - (let ((_%hd9036690407%_ + (##cdr _%e9149491525%_)))) + (if (gx#stx-pair? _%tl9149691532%_) + (let ((_%e9149791535%_ + (gx#syntax-e _%tl9149691532%_))) + (let ((_%hd9149891539%_ (let () (declare (not safe)) - (##car _%e9036590403%_))) - (_%tl9036790410%_ + (##car _%e9149791535%_))) + (_%tl9149991542%_ (let () (declare (not safe)) - (##cdr _%e9036590403%_)))) - (if (gx#stx-pair? _%tl9036790410%_) - (let ((_%e9036890413%_ + (##cdr _%e9149791535%_)))) + (if (gx#stx-pair? _%tl9149991542%_) + (let ((_%e9150091545%_ (gx#syntax-e - _%tl9036790410%_))) - (let ((_%hd9036990417%_ + _%tl9149991542%_))) + (let ((_%hd9150191549%_ (let () (declare (not safe)) - (##car _%e9036890413%_))) - (_%tl9037090420%_ + (##car _%e9150091545%_))) + (_%tl9150291552%_ (let () (declare (not safe)) - (##cdr _%e9036890413%_)))) + (##cdr _%e9150091545%_)))) (if (gx#stx-null? - _%tl9037090420%_) - ((lambda (_%L90423%_ - _%L90425%_ - _%L90426%_) + _%tl9150291552%_) + ((lambda (_%L91555%_ + _%L91557%_ + _%L91558%_) (cons (gx#datum->syntax '#f 'let) @@ -745,127 +745,127 @@ '#f 'next-probe) (cons (cons (gx#datum->syntax '#f 'fx+) - (cons _%L90426%_ - (cons _%L90425%_ + (cons _%L91558%_ + (cons _%L91557%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx*) - (cons _%L90425%_ (cons _%L90425%_ '()))) + (cons _%L91557%_ (cons _%L91557%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'fxmodulo) (cons (gx#datum->syntax '#f 'next-probe) - (cons _%L90423%_ '()))) + (cons _%L91555%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9036990417%_ - _%hd9036690407%_ - _%hd9036390397%_) - (_%g9035490376%_ - _%g9035590380%_)))) - (_%g9035490376%_ - _%g9035590380%_)))) - (_%g9035490376%_ _%g9035590380%_)))) - (_%g9035490376%_ _%g9035590380%_)))) - (_%g9035490376%_ _%g9035590380%_))))) - (_%g9035390445%_ _%$stx90350%_)))) + _%hd9150191549%_ + _%hd9149891539%_ + _%hd9149591529%_) + (_%g9148691508%_ + _%g9148791512%_)))) + (_%g9148691508%_ + _%g9148791512%_)))) + (_%g9148691508%_ _%g9148791512%_)))) + (_%g9148691508%_ _%g9148791512%_)))) + (_%g9148691508%_ _%g9148791512%_))))) + (_%g9148591577%_ _%$stx91482%_)))) (define |[:0:]#__table-ref| - (lambda (_%$stx90449%_) - (let* ((_%g9045390487%_ - (lambda (_%g9045490483%_) + (lambda (_%$stx91581%_) + (let* ((_%g9158591619%_ + (lambda (_%g9158691615%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9045490483%_))) - (_%g9045290598%_ - (lambda (_%g9045490491%_) - (if (gx#stx-pair? _%g9045490491%_) - (let ((_%e9046190494%_ (gx#syntax-e _%g9045490491%_))) - (let ((_%hd9046290498%_ + _%g9158691615%_))) + (_%g9158491730%_ + (lambda (_%g9158691623%_) + (if (gx#stx-pair? _%g9158691623%_) + (let ((_%e9159391626%_ (gx#syntax-e _%g9158691623%_))) + (let ((_%hd9159491630%_ (let () (declare (not safe)) - (##car _%e9046190494%_))) - (_%tl9046390501%_ + (##car _%e9159391626%_))) + (_%tl9159591633%_ (let () (declare (not safe)) - (##cdr _%e9046190494%_)))) - (if (gx#stx-pair? _%tl9046390501%_) - (let ((_%e9046490504%_ - (gx#syntax-e _%tl9046390501%_))) - (let ((_%hd9046590508%_ + (##cdr _%e9159391626%_)))) + (if (gx#stx-pair? _%tl9159591633%_) + (let ((_%e9159691636%_ + (gx#syntax-e _%tl9159591633%_))) + (let ((_%hd9159791640%_ (let () (declare (not safe)) - (##car _%e9046490504%_))) - (_%tl9046690511%_ + (##car _%e9159691636%_))) + (_%tl9159891643%_ (let () (declare (not safe)) - (##cdr _%e9046490504%_)))) - (if (gx#stx-pair? _%tl9046690511%_) - (let ((_%e9046790514%_ - (gx#syntax-e _%tl9046690511%_))) - (let ((_%hd9046890518%_ + (##cdr _%e9159691636%_)))) + (if (gx#stx-pair? _%tl9159891643%_) + (let ((_%e9159991646%_ + (gx#syntax-e _%tl9159891643%_))) + (let ((_%hd9160091650%_ (let () (declare (not safe)) - (##car _%e9046790514%_))) - (_%tl9046990521%_ + (##car _%e9159991646%_))) + (_%tl9160191653%_ (let () (declare (not safe)) - (##cdr _%e9046790514%_)))) - (if (gx#stx-pair? _%tl9046990521%_) - (let ((_%e9047090524%_ + (##cdr _%e9159991646%_)))) + (if (gx#stx-pair? _%tl9160191653%_) + (let ((_%e9160291656%_ (gx#syntax-e - _%tl9046990521%_))) - (let ((_%hd9047190528%_ + _%tl9160191653%_))) + (let ((_%hd9160391660%_ (let () (declare (not safe)) - (##car _%e9047090524%_))) - (_%tl9047290531%_ + (##car _%e9160291656%_))) + (_%tl9160491663%_ (let () (declare (not safe)) - (##cdr _%e9047090524%_)))) + (##cdr _%e9160291656%_)))) (if (gx#stx-pair? - _%tl9047290531%_) - (let ((_%e9047390534%_ + _%tl9160491663%_) + (let ((_%e9160591666%_ (gx#syntax-e - _%tl9047290531%_))) - (let ((_%hd9047490538%_ + _%tl9160491663%_))) + (let ((_%hd9160691670%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9047390534%_))) - (_%tl9047590541%_ - (let () (declare (not safe)) (##cdr _%e9047390534%_)))) - (if (gx#stx-pair? _%tl9047590541%_) - (let ((_%e9047690544%_ (gx#syntax-e _%tl9047590541%_))) - (let ((_%hd9047790548%_ + (##car _%e9160591666%_))) + (_%tl9160791673%_ + (let () (declare (not safe)) (##cdr _%e9160591666%_)))) + (if (gx#stx-pair? _%tl9160791673%_) + (let ((_%e9160891676%_ (gx#syntax-e _%tl9160791673%_))) + (let ((_%hd9160991680%_ (let () (declare (not safe)) - (##car _%e9047690544%_))) - (_%tl9047890551%_ + (##car _%e9160891676%_))) + (_%tl9161091683%_ (let () (declare (not safe)) - (##cdr _%e9047690544%_)))) - (if (gx#stx-pair? _%tl9047890551%_) - (let ((_%e9047990554%_ - (gx#syntax-e _%tl9047890551%_))) - (let ((_%hd9048090558%_ + (##cdr _%e9160891676%_)))) + (if (gx#stx-pair? _%tl9161091683%_) + (let ((_%e9161191686%_ + (gx#syntax-e _%tl9161091683%_))) + (let ((_%hd9161291690%_ (let () (declare (not safe)) - (##car _%e9047990554%_))) - (_%tl9048190561%_ + (##car _%e9161191686%_))) + (_%tl9161391693%_ (let () (declare (not safe)) - (##cdr _%e9047990554%_)))) - (if (gx#stx-null? _%tl9048190561%_) - ((lambda (_%L90564%_ - _%L90566%_ - _%L90567%_ - _%L90568%_ - _%L90569%_ - _%L90570%_) + (##cdr _%e9161191686%_)))) + (if (gx#stx-null? _%tl9161391693%_) + ((lambda (_%L91696%_ + _%L91698%_ + _%L91699%_ + _%L91700%_ + _%L91701%_ + _%L91702%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -874,13 +874,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fxxor) - (cons (cons _%L90568%_ - (cons _%L90566%_ '())) - (cons _%L90569%_ '()))) + (cons (cons _%L91700%_ + (cons _%L91698%_ '())) + (cons _%L91701%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L90570%_ '())) + (cons _%L91702%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -933,7 +933,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L90570%_ + (cons _%L91702%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -948,7 +948,7 @@ 'macro-unused-obj) '()) '()))) - (cons _%L90564%_ '())) + (cons _%L91696%_ '())) (cons (cons (cons (gx#datum->syntax '#f 'eq?) (cons (gx#datum->syntax '#f @@ -983,8 +983,8 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L90567%_ - (cons _%L90566%_ + (cons (cons (cons _%L91699%_ + (cons _%L91698%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -994,7 +994,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L90570%_ + (cons _%L91702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) @@ -1029,145 +1029,145 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9048090558%_ - _%hd9047790548%_ - _%hd9047490538%_ - _%hd9047190528%_ - _%hd9046890518%_ - _%hd9046590508%_) - (_%g9045390487%_ _%g9045490491%_)))) - (_%g9045390487%_ _%g9045490491%_)))) - (_%g9045390487%_ _%g9045490491%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9045390487%_ - _%g9045490491%_)))) - (_%g9045390487%_ - _%g9045490491%_)))) - (_%g9045390487%_ _%g9045490491%_)))) - (_%g9045390487%_ _%g9045490491%_)))) - (_%g9045390487%_ _%g9045490491%_))))) - (_%g9045290598%_ _%$stx90449%_)))) + _%hd9161291690%_ + _%hd9160991680%_ + _%hd9160691670%_ + _%hd9160391660%_ + _%hd9160091650%_ + _%hd9159791640%_) + (_%g9158591619%_ _%g9158691623%_)))) + (_%g9158591619%_ _%g9158691623%_)))) + (_%g9158591619%_ _%g9158691623%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9158591619%_ + _%g9158691623%_)))) + (_%g9158591619%_ + _%g9158691623%_)))) + (_%g9158591619%_ _%g9158691623%_)))) + (_%g9158591619%_ _%g9158691623%_)))) + (_%g9158591619%_ _%g9158691623%_))))) + (_%g9158491730%_ _%$stx91581%_)))) (define |[:0:]#__table-set!| - (lambda (_%$stx90602%_) - (let* ((_%g9060690648%_ - (lambda (_%g9060790644%_) + (lambda (_%$stx91734%_) + (let* ((_%g9173891780%_ + (lambda (_%g9173991776%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9060790644%_))) - (_%g9060590787%_ - (lambda (_%g9060790652%_) - (if (gx#stx-pair? _%g9060790652%_) - (let ((_%e9061690655%_ (gx#syntax-e _%g9060790652%_))) - (let ((_%hd9061790659%_ + _%g9173991776%_))) + (_%g9173791919%_ + (lambda (_%g9173991784%_) + (if (gx#stx-pair? _%g9173991784%_) + (let ((_%e9174891787%_ (gx#syntax-e _%g9173991784%_))) + (let ((_%hd9174991791%_ (let () (declare (not safe)) - (##car _%e9061690655%_))) - (_%tl9061890662%_ + (##car _%e9174891787%_))) + (_%tl9175091794%_ (let () (declare (not safe)) - (##cdr _%e9061690655%_)))) - (if (gx#stx-pair? _%tl9061890662%_) - (let ((_%e9061990665%_ - (gx#syntax-e _%tl9061890662%_))) - (let ((_%hd9062090669%_ + (##cdr _%e9174891787%_)))) + (if (gx#stx-pair? _%tl9175091794%_) + (let ((_%e9175191797%_ + (gx#syntax-e _%tl9175091794%_))) + (let ((_%hd9175291801%_ (let () (declare (not safe)) - (##car _%e9061990665%_))) - (_%tl9062190672%_ + (##car _%e9175191797%_))) + (_%tl9175391804%_ (let () (declare (not safe)) - (##cdr _%e9061990665%_)))) - (if (gx#stx-pair? _%tl9062190672%_) - (let ((_%e9062290675%_ - (gx#syntax-e _%tl9062190672%_))) - (let ((_%hd9062390679%_ + (##cdr _%e9175191797%_)))) + (if (gx#stx-pair? _%tl9175391804%_) + (let ((_%e9175491807%_ + (gx#syntax-e _%tl9175391804%_))) + (let ((_%hd9175591811%_ (let () (declare (not safe)) - (##car _%e9062290675%_))) - (_%tl9062490682%_ + (##car _%e9175491807%_))) + (_%tl9175691814%_ (let () (declare (not safe)) - (##cdr _%e9062290675%_)))) - (if (gx#stx-pair? _%tl9062490682%_) - (let ((_%e9062590685%_ + (##cdr _%e9175491807%_)))) + (if (gx#stx-pair? _%tl9175691814%_) + (let ((_%e9175791817%_ (gx#syntax-e - _%tl9062490682%_))) - (let ((_%hd9062690689%_ + _%tl9175691814%_))) + (let ((_%hd9175891821%_ (let () (declare (not safe)) - (##car _%e9062590685%_))) - (_%tl9062790692%_ + (##car _%e9175791817%_))) + (_%tl9175991824%_ (let () (declare (not safe)) - (##cdr _%e9062590685%_)))) + (##cdr _%e9175791817%_)))) (if (gx#stx-pair? - _%tl9062790692%_) - (let ((_%e9062890695%_ + _%tl9175991824%_) + (let ((_%e9176091827%_ (gx#syntax-e - _%tl9062790692%_))) - (let ((_%hd9062990699%_ + _%tl9175991824%_))) + (let ((_%hd9176191831%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9062890695%_))) - (_%tl9063090702%_ - (let () (declare (not safe)) (##cdr _%e9062890695%_)))) - (if (gx#stx-pair? _%tl9063090702%_) - (let ((_%e9063190705%_ (gx#syntax-e _%tl9063090702%_))) - (let ((_%hd9063290709%_ + (##car _%e9176091827%_))) + (_%tl9176291834%_ + (let () (declare (not safe)) (##cdr _%e9176091827%_)))) + (if (gx#stx-pair? _%tl9176291834%_) + (let ((_%e9176391837%_ (gx#syntax-e _%tl9176291834%_))) + (let ((_%hd9176491841%_ (let () (declare (not safe)) - (##car _%e9063190705%_))) - (_%tl9063390712%_ + (##car _%e9176391837%_))) + (_%tl9176591844%_ (let () (declare (not safe)) - (##cdr _%e9063190705%_)))) - (if (gx#stx-pair? _%tl9063390712%_) - (let ((_%e9063490715%_ - (gx#syntax-e _%tl9063390712%_))) - (let ((_%hd9063590719%_ + (##cdr _%e9176391837%_)))) + (if (gx#stx-pair? _%tl9176591844%_) + (let ((_%e9176691847%_ + (gx#syntax-e _%tl9176591844%_))) + (let ((_%hd9176791851%_ (let () (declare (not safe)) - (##car _%e9063490715%_))) - (_%tl9063690722%_ + (##car _%e9176691847%_))) + (_%tl9176891854%_ (let () (declare (not safe)) - (##cdr _%e9063490715%_)))) - (if (gx#stx-pair? _%tl9063690722%_) - (let ((_%e9063790725%_ - (gx#syntax-e _%tl9063690722%_))) - (let ((_%hd9063890729%_ + (##cdr _%e9176691847%_)))) + (if (gx#stx-pair? _%tl9176891854%_) + (let ((_%e9176991857%_ + (gx#syntax-e _%tl9176891854%_))) + (let ((_%hd9177091861%_ (let () (declare (not safe)) - (##car _%e9063790725%_))) - (_%tl9063990732%_ + (##car _%e9176991857%_))) + (_%tl9177191864%_ (let () (declare (not safe)) - (##cdr _%e9063790725%_)))) - (if (gx#stx-pair? _%tl9063990732%_) - (let ((_%e9064090735%_ + (##cdr _%e9176991857%_)))) + (if (gx#stx-pair? _%tl9177191864%_) + (let ((_%e9177291867%_ (gx#syntax-e - _%tl9063990732%_))) - (let ((_%hd9064190739%_ + _%tl9177191864%_))) + (let ((_%hd9177391871%_ (let () (declare (not safe)) - (##car _%e9064090735%_))) - (_%tl9064290742%_ + (##car _%e9177291867%_))) + (_%tl9177491874%_ (let () (declare (not safe)) - (##cdr _%e9064090735%_)))) + (##cdr _%e9177291867%_)))) (if (gx#stx-null? - _%tl9064290742%_) - ((lambda (_%L90745%_ - _%L90747%_ - _%L90748%_ - _%L90749%_ - _%L90750%_ - _%L90751%_ - _%L90752%_ - _%L90753%_) + _%tl9177491874%_) + ((lambda (_%L91877%_ + _%L91879%_ + _%L91880%_ + _%L91881%_ + _%L91882%_ + _%L91883%_ + _%L91884%_ + _%L91885%_) (cons (gx#datum->syntax '#f 'let*) @@ -1178,18 +1178,18 @@ (cons (cons (gx#datum->syntax '#f 'fxxor) - (cons (cons _%L90751%_ - (cons _%L90749%_ + (cons (cons _%L91883%_ + (cons _%L91881%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L90752%_ '()))) + (cons _%L91884%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L90753%_ '())) + (cons _%L91885%_ '())) '())) (cons (cons (gx#datum->syntax '#f @@ -1246,7 +1246,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L90753%_ + (cons _%L91885%_ (cons (gx#datum->syntax '#f 'probe) @@ -1273,41 +1273,41 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90753%_ + (cons _%L91885%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'deleted) - (cons _%L90749%_ '())))) + (cons _%L91881%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90753%_ + (cons _%L91885%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons _%L90748%_ '())))) - (cons (cons _%L90745%_ '()) '())))) + (cons _%L91880%_ '())))) + (cons (cons _%L91877%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90753%_ + (cons _%L91885%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) - (cons _%L90749%_ '())))) + (cons _%L91881%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90753%_ + (cons _%L91885%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons _%L90748%_ '())))) - (cons (cons _%L90747%_ '()) '())))) + (cons _%L91880%_ '())))) + (cons (cons _%L91879%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1352,16 +1352,16 @@ '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%L90750%_ + (cons (cons (cons _%L91882%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L90749%_ + (cons _%L91881%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90753%_ + (cons _%L91885%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L90749%_ '())))) + (cons _%L91881%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90753%_ + (cons _%L91885%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1370,7 +1370,7 @@ '#f 'probe) (cons '1 '()))) - (cons _%L90748%_ '())))) + (cons _%L91880%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'else) @@ -1405,173 +1405,173 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9064190739%_ - _%hd9063890729%_ - _%hd9063590719%_ - _%hd9063290709%_ - _%hd9062990699%_ - _%hd9062690689%_ - _%hd9062390679%_ - _%hd9062090669%_) - (_%g9060690648%_ - _%g9060790652%_)))) - (_%g9060690648%_ - _%g9060790652%_)))) - (_%g9060690648%_ _%g9060790652%_)))) - (_%g9060690648%_ _%g9060790652%_)))) - (_%g9060690648%_ _%g9060790652%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9060690648%_ - _%g9060790652%_)))) - (_%g9060690648%_ - _%g9060790652%_)))) - (_%g9060690648%_ _%g9060790652%_)))) - (_%g9060690648%_ _%g9060790652%_)))) - (_%g9060690648%_ _%g9060790652%_))))) - (_%g9060590787%_ _%$stx90602%_)))) + _%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%_)))) (define |[:0:]#__table-update!| - (lambda (_%$stx90791%_) - (let* ((_%g9079590841%_ - (lambda (_%g9079690837%_) + (lambda (_%$stx91923%_) + (let* ((_%g9192791973%_ + (lambda (_%g9192891969%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9079690837%_))) - (_%g9079490994%_ - (lambda (_%g9079690845%_) - (if (gx#stx-pair? _%g9079690845%_) - (let ((_%e9080690848%_ (gx#syntax-e _%g9079690845%_))) - (let ((_%hd9080790852%_ + _%g9192891969%_))) + (_%g9192692126%_ + (lambda (_%g9192891977%_) + (if (gx#stx-pair? _%g9192891977%_) + (let ((_%e9193891980%_ (gx#syntax-e _%g9192891977%_))) + (let ((_%hd9193991984%_ (let () (declare (not safe)) - (##car _%e9080690848%_))) - (_%tl9080890855%_ + (##car _%e9193891980%_))) + (_%tl9194091987%_ (let () (declare (not safe)) - (##cdr _%e9080690848%_)))) - (if (gx#stx-pair? _%tl9080890855%_) - (let ((_%e9080990858%_ - (gx#syntax-e _%tl9080890855%_))) - (let ((_%hd9081090862%_ + (##cdr _%e9193891980%_)))) + (if (gx#stx-pair? _%tl9194091987%_) + (let ((_%e9194191990%_ + (gx#syntax-e _%tl9194091987%_))) + (let ((_%hd9194291994%_ (let () (declare (not safe)) - (##car _%e9080990858%_))) - (_%tl9081190865%_ + (##car _%e9194191990%_))) + (_%tl9194391997%_ (let () (declare (not safe)) - (##cdr _%e9080990858%_)))) - (if (gx#stx-pair? _%tl9081190865%_) - (let ((_%e9081290868%_ - (gx#syntax-e _%tl9081190865%_))) - (let ((_%hd9081390872%_ + (##cdr _%e9194191990%_)))) + (if (gx#stx-pair? _%tl9194391997%_) + (let ((_%e9194492000%_ + (gx#syntax-e _%tl9194391997%_))) + (let ((_%hd9194592004%_ (let () (declare (not safe)) - (##car _%e9081290868%_))) - (_%tl9081490875%_ + (##car _%e9194492000%_))) + (_%tl9194692007%_ (let () (declare (not safe)) - (##cdr _%e9081290868%_)))) - (if (gx#stx-pair? _%tl9081490875%_) - (let ((_%e9081590878%_ + (##cdr _%e9194492000%_)))) + (if (gx#stx-pair? _%tl9194692007%_) + (let ((_%e9194792010%_ (gx#syntax-e - _%tl9081490875%_))) - (let ((_%hd9081690882%_ + _%tl9194692007%_))) + (let ((_%hd9194892014%_ (let () (declare (not safe)) - (##car _%e9081590878%_))) - (_%tl9081790885%_ + (##car _%e9194792010%_))) + (_%tl9194992017%_ (let () (declare (not safe)) - (##cdr _%e9081590878%_)))) + (##cdr _%e9194792010%_)))) (if (gx#stx-pair? - _%tl9081790885%_) - (let ((_%e9081890888%_ + _%tl9194992017%_) + (let ((_%e9195092020%_ (gx#syntax-e - _%tl9081790885%_))) - (let ((_%hd9081990892%_ + _%tl9194992017%_))) + (let ((_%hd9195192024%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9081890888%_))) - (_%tl9082090895%_ - (let () (declare (not safe)) (##cdr _%e9081890888%_)))) - (if (gx#stx-pair? _%tl9082090895%_) - (let ((_%e9082190898%_ (gx#syntax-e _%tl9082090895%_))) - (let ((_%hd9082290902%_ + (##car _%e9195092020%_))) + (_%tl9195292027%_ + (let () (declare (not safe)) (##cdr _%e9195092020%_)))) + (if (gx#stx-pair? _%tl9195292027%_) + (let ((_%e9195392030%_ (gx#syntax-e _%tl9195292027%_))) + (let ((_%hd9195492034%_ (let () (declare (not safe)) - (##car _%e9082190898%_))) - (_%tl9082390905%_ + (##car _%e9195392030%_))) + (_%tl9195592037%_ (let () (declare (not safe)) - (##cdr _%e9082190898%_)))) - (if (gx#stx-pair? _%tl9082390905%_) - (let ((_%e9082490908%_ - (gx#syntax-e _%tl9082390905%_))) - (let ((_%hd9082590912%_ + (##cdr _%e9195392030%_)))) + (if (gx#stx-pair? _%tl9195592037%_) + (let ((_%e9195692040%_ + (gx#syntax-e _%tl9195592037%_))) + (let ((_%hd9195792044%_ (let () (declare (not safe)) - (##car _%e9082490908%_))) - (_%tl9082690915%_ + (##car _%e9195692040%_))) + (_%tl9195892047%_ (let () (declare (not safe)) - (##cdr _%e9082490908%_)))) - (if (gx#stx-pair? _%tl9082690915%_) - (let ((_%e9082790918%_ - (gx#syntax-e _%tl9082690915%_))) - (let ((_%hd9082890922%_ + (##cdr _%e9195692040%_)))) + (if (gx#stx-pair? _%tl9195892047%_) + (let ((_%e9195992050%_ + (gx#syntax-e _%tl9195892047%_))) + (let ((_%hd9196092054%_ (let () (declare (not safe)) - (##car _%e9082790918%_))) - (_%tl9082990925%_ + (##car _%e9195992050%_))) + (_%tl9196192057%_ (let () (declare (not safe)) - (##cdr _%e9082790918%_)))) - (if (gx#stx-pair? _%tl9082990925%_) - (let ((_%e9083090928%_ + (##cdr _%e9195992050%_)))) + (if (gx#stx-pair? _%tl9196192057%_) + (let ((_%e9196292060%_ (gx#syntax-e - _%tl9082990925%_))) - (let ((_%hd9083190932%_ + _%tl9196192057%_))) + (let ((_%hd9196392064%_ (let () (declare (not safe)) - (##car _%e9083090928%_))) - (_%tl9083290935%_ + (##car _%e9196292060%_))) + (_%tl9196492067%_ (let () (declare (not safe)) - (##cdr _%e9083090928%_)))) + (##cdr _%e9196292060%_)))) (if (gx#stx-pair? - _%tl9083290935%_) - (let ((_%e9083390938%_ + _%tl9196492067%_) + (let ((_%e9196592070%_ (gx#syntax-e - _%tl9083290935%_))) - (let ((_%hd9083490942%_ + _%tl9196492067%_))) + (let ((_%hd9196692074%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9083390938%_))) - (_%tl9083590945%_ - (let () (declare (not safe)) (##cdr _%e9083390938%_)))) - (if (gx#stx-null? _%tl9083590945%_) - ((lambda (_%L90948%_ - _%L90950%_ - _%L90951%_ - _%L90952%_ - _%L90953%_ - _%L90954%_ - _%L90955%_ - _%L90956%_ - _%L90957%_) + (##car _%e9196592070%_))) + (_%tl9196792077%_ + (let () (declare (not safe)) (##cdr _%e9196592070%_)))) + (if (gx#stx-null? _%tl9196792077%_) + ((lambda (_%L92080%_ + _%L92082%_ + _%L92083%_ + _%L92084%_ + _%L92085%_ + _%L92086%_ + _%L92087%_ + _%L92088%_ + _%L92089%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax '#f 'fxxor) - (cons (cons _%L90955%_ + (cons (cons _%L92087%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L90953%_ '())) - (cons _%L90956%_ '()))) + (cons _%L92085%_ '())) + (cons _%L92088%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax @@ -1581,7 +1581,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-length) - (cons _%L90957%_ '())) + (cons _%L92089%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1634,7 +1634,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L90957%_ + (cons _%L92089%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1661,21 +1661,21 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90957%_ + (cons _%L92089%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'deleted) - (cons _%L90953%_ '())))) + (cons _%L92085%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90957%_ + (cons _%L92089%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons (cons _%L90952%_ - (cons _%L90951%_ '())) + (cons (cons _%L92084%_ + (cons _%L92083%_ '())) '())))) - (cons (cons _%L90948%_ '()) '())))) + (cons (cons _%L92080%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -1684,11 +1684,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-set!) - (cons _%L90957%_ + (cons _%L92089%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L90953%_ '())))) + (cons _%L92085%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90957%_ + (cons _%L92089%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1696,13 +1696,13 @@ '#f 'probe) (cons '1 '()))) - (cons (cons _%L90952%_ - (cons _%L90951%_ + (cons (cons _%L92084%_ + (cons _%L92083%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (cons _%L90950%_ '()) '())))) + (cons (cons _%L92082%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1747,34 +1747,34 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L90954%_ - (cons _%L90953%_ + (cons (cons (cons _%L92086%_ + (cons _%L92085%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90957%_ + (cons _%L92089%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L90953%_ + (cons _%L92085%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90957%_ + (cons _%L92089%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons (cons _%L90952%_ + (cons (cons _%L92084%_ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L90957%_ + (cons _%L92089%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1808,128 +1808,128 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd9083490942%_ - _%hd9083190932%_ - _%hd9082890922%_ - _%hd9082590912%_ - _%hd9082290902%_ - _%hd9081990892%_ - _%hd9081690882%_ - _%hd9081390872%_ - _%hd9081090862%_) - (_%g9079590841%_ _%g9079690845%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9079590841%_ - _%g9079690845%_)))) - (_%g9079590841%_ - _%g9079690845%_)))) - (_%g9079590841%_ _%g9079690845%_)))) - (_%g9079590841%_ _%g9079690845%_)))) - (_%g9079590841%_ _%g9079690845%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9079590841%_ - _%g9079690845%_)))) - (_%g9079590841%_ - _%g9079690845%_)))) - (_%g9079590841%_ _%g9079690845%_)))) - (_%g9079590841%_ _%g9079690845%_)))) - (_%g9079590841%_ _%g9079690845%_))))) - (_%g9079490994%_ _%$stx90791%_)))) + _%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%_)))) (define |[:0:]#__table-del!| - (lambda (_%$stx90998%_) - (let* ((_%g9100291036%_ - (lambda (_%g9100391032%_) + (lambda (_%$stx92130%_) + (let* ((_%g9213492168%_ + (lambda (_%g9213592164%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9100391032%_))) - (_%g9100191147%_ - (lambda (_%g9100391040%_) - (if (gx#stx-pair? _%g9100391040%_) - (let ((_%e9101091043%_ (gx#syntax-e _%g9100391040%_))) - (let ((_%hd9101191047%_ + _%g9213592164%_))) + (_%g9213392279%_ + (lambda (_%g9213592172%_) + (if (gx#stx-pair? _%g9213592172%_) + (let ((_%e9214292175%_ (gx#syntax-e _%g9213592172%_))) + (let ((_%hd9214392179%_ (let () (declare (not safe)) - (##car _%e9101091043%_))) - (_%tl9101291050%_ + (##car _%e9214292175%_))) + (_%tl9214492182%_ (let () (declare (not safe)) - (##cdr _%e9101091043%_)))) - (if (gx#stx-pair? _%tl9101291050%_) - (let ((_%e9101391053%_ - (gx#syntax-e _%tl9101291050%_))) - (let ((_%hd9101491057%_ + (##cdr _%e9214292175%_)))) + (if (gx#stx-pair? _%tl9214492182%_) + (let ((_%e9214592185%_ + (gx#syntax-e _%tl9214492182%_))) + (let ((_%hd9214692189%_ (let () (declare (not safe)) - (##car _%e9101391053%_))) - (_%tl9101591060%_ + (##car _%e9214592185%_))) + (_%tl9214792192%_ (let () (declare (not safe)) - (##cdr _%e9101391053%_)))) - (if (gx#stx-pair? _%tl9101591060%_) - (let ((_%e9101691063%_ - (gx#syntax-e _%tl9101591060%_))) - (let ((_%hd9101791067%_ + (##cdr _%e9214592185%_)))) + (if (gx#stx-pair? _%tl9214792192%_) + (let ((_%e9214892195%_ + (gx#syntax-e _%tl9214792192%_))) + (let ((_%hd9214992199%_ (let () (declare (not safe)) - (##car _%e9101691063%_))) - (_%tl9101891070%_ + (##car _%e9214892195%_))) + (_%tl9215092202%_ (let () (declare (not safe)) - (##cdr _%e9101691063%_)))) - (if (gx#stx-pair? _%tl9101891070%_) - (let ((_%e9101991073%_ + (##cdr _%e9214892195%_)))) + (if (gx#stx-pair? _%tl9215092202%_) + (let ((_%e9215192205%_ (gx#syntax-e - _%tl9101891070%_))) - (let ((_%hd9102091077%_ + _%tl9215092202%_))) + (let ((_%hd9215292209%_ (let () (declare (not safe)) - (##car _%e9101991073%_))) - (_%tl9102191080%_ + (##car _%e9215192205%_))) + (_%tl9215392212%_ (let () (declare (not safe)) - (##cdr _%e9101991073%_)))) + (##cdr _%e9215192205%_)))) (if (gx#stx-pair? - _%tl9102191080%_) - (let ((_%e9102291083%_ + _%tl9215392212%_) + (let ((_%e9215492215%_ (gx#syntax-e - _%tl9102191080%_))) - (let ((_%hd9102391087%_ + _%tl9215392212%_))) + (let ((_%hd9215592219%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9102291083%_))) - (_%tl9102491090%_ - (let () (declare (not safe)) (##cdr _%e9102291083%_)))) - (if (gx#stx-pair? _%tl9102491090%_) - (let ((_%e9102591093%_ (gx#syntax-e _%tl9102491090%_))) - (let ((_%hd9102691097%_ + (##car _%e9215492215%_))) + (_%tl9215692222%_ + (let () (declare (not safe)) (##cdr _%e9215492215%_)))) + (if (gx#stx-pair? _%tl9215692222%_) + (let ((_%e9215792225%_ (gx#syntax-e _%tl9215692222%_))) + (let ((_%hd9215892229%_ (let () (declare (not safe)) - (##car _%e9102591093%_))) - (_%tl9102791100%_ + (##car _%e9215792225%_))) + (_%tl9215992232%_ (let () (declare (not safe)) - (##cdr _%e9102591093%_)))) - (if (gx#stx-pair? _%tl9102791100%_) - (let ((_%e9102891103%_ - (gx#syntax-e _%tl9102791100%_))) - (let ((_%hd9102991107%_ + (##cdr _%e9215792225%_)))) + (if (gx#stx-pair? _%tl9215992232%_) + (let ((_%e9216092235%_ + (gx#syntax-e _%tl9215992232%_))) + (let ((_%hd9216192239%_ (let () (declare (not safe)) - (##car _%e9102891103%_))) - (_%tl9103091110%_ + (##car _%e9216092235%_))) + (_%tl9216292242%_ (let () (declare (not safe)) - (##cdr _%e9102891103%_)))) - (if (gx#stx-null? _%tl9103091110%_) - ((lambda (_%L91113%_ - _%L91115%_ - _%L91116%_ - _%L91117%_ - _%L91118%_ - _%L91119%_) + (##cdr _%e9216092235%_)))) + (if (gx#stx-null? _%tl9216292242%_) + ((lambda (_%L92245%_ + _%L92247%_ + _%L92248%_ + _%L92249%_ + _%L92250%_ + _%L92251%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -1938,13 +1938,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fxxor) - (cons (cons _%L91117%_ - (cons _%L91115%_ '())) - (cons _%L91118%_ '()))) + (cons (cons _%L92249%_ + (cons _%L92247%_ '())) + (cons _%L92250%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L91119%_ '())) + (cons _%L92251%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -1993,7 +1993,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L91119%_ + (cons _%L92251%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2039,8 +2039,8 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L91116%_ - (cons _%L91115%_ + (cons (cons (cons _%L92248%_ + (cons _%L92247%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -2050,7 +2050,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L91119%_ + (cons _%L92251%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) (cons (cons (gx#datum->syntax @@ -2059,7 +2059,7 @@ '()) '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L91119%_ + (cons _%L92251%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f @@ -2070,7 +2070,7 @@ 'macro-absent-obj) '()) '())))) - (cons (cons _%L91113%_ '()) '())))) + (cons (cons _%L92245%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -2098,21 +2098,21 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9102991107%_ - _%hd9102691097%_ - _%hd9102391087%_ - _%hd9102091077%_ - _%hd9101791067%_ - _%hd9101491057%_) - (_%g9100291036%_ _%g9100391040%_)))) - (_%g9100291036%_ _%g9100391040%_)))) - (_%g9100291036%_ _%g9100391040%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9100291036%_ - _%g9100391040%_)))) - (_%g9100291036%_ - _%g9100391040%_)))) - (_%g9100291036%_ _%g9100391040%_)))) - (_%g9100291036%_ _%g9100391040%_)))) - (_%g9100291036%_ _%g9100391040%_))))) - (_%g9100191147%_ _%$stx90998%_))))) + _%hd9216192239%_ + _%hd9215892229%_ + _%hd9215592219%_ + _%hd9215292209%_ + _%hd9214992199%_ + _%hd9214692189%_) + (_%g9213492168%_ _%g9213592172%_)))) + (_%g9213492168%_ _%g9213592172%_)))) + (_%g9213492168%_ _%g9213592172%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9213492168%_ + _%g9213592172%_)))) + (_%g9213492168%_ + _%g9213592172%_)))) + (_%g9213492168%_ _%g9213592172%_)))) + (_%g9213492168%_ _%g9213592172%_)))) + (_%g9213492168%_ _%g9213592172%_))))) + (_%g9213392279%_ _%$stx92130%_))))) diff --git a/src/bootstrap/gerbil/runtime/thread~0.scm b/src/bootstrap/gerbil/runtime/thread~0.scm index 490c7b49e..c18d310b3 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 1713454410) + (define gerbil/runtime/thread::timestamp 1713631265) (begin (define spawn - (lambda (_%f109421%_ . _%args109422%_) - (if (procedure? _%f109421%_) - (let ((_%f109426%_ _%f109421%_)) + (lambda (_%f110553%_ . _%args110554%_) + (if (procedure? _%f110553%_) + (let ((_%f110558%_ _%f110553%_)) (declare (not safe)) - (##apply __spawn _%f109426%_ _%args109422%_)) + (##apply __spawn _%f110558%_ _%args110554%_)) (begin (raise-contract-violation-error '"contract violation" @@ -16,18 +16,18 @@ 'contract: 'procedure? 'value: - _%f109421%_) + _%f110553%_) '#!void)))) (define __spawn - (lambda (_%f109408%_ . _%args109409%_) - (let ((_%f109412%_ _%f109408%_)) - (spawn-actor _%f109412%_ _%args109409%_ '#!void '#f)))) + (lambda (_%f110540%_ . _%args110541%_) + (let ((_%f110544%_ _%f110540%_)) + (spawn-actor _%f110544%_ _%args110541%_ '#!void '#f)))) (define spawn/name - (lambda (_%name109392%_ _%f109393%_ . _%args109394%_) - (if (procedure? _%f109393%_) - (let ((_%f109398%_ _%f109393%_)) + (lambda (_%name110524%_ _%f110525%_ . _%args110526%_) + (if (procedure? _%f110525%_) + (let ((_%f110530%_ _%f110525%_)) (declare (not safe)) - (##apply __spawn/name _%name109392%_ _%f109398%_ _%args109394%_)) + (##apply __spawn/name _%name110524%_ _%f110530%_ _%args110526%_)) (begin (raise-contract-violation-error '"contract violation" @@ -36,21 +36,21 @@ 'contract: 'procedure? 'value: - _%f109393%_) + _%f110525%_) '#!void)))) (define __spawn/name - (lambda (_%name109378%_ _%f109379%_ . _%args109380%_) - (let ((_%f109383%_ _%f109379%_)) - (spawn-actor _%f109383%_ _%args109380%_ _%name109378%_ '#f)))) + (lambda (_%name110510%_ _%f110511%_ . _%args110512%_) + (let ((_%f110515%_ _%f110511%_)) + (spawn-actor _%f110515%_ _%args110512%_ _%name110510%_ '#f)))) (define spawn/group - (lambda (_%name109362%_ _%f109363%_ . _%args109364%_) - (if (procedure? _%f109363%_) - (let ((_%f109368%_ _%f109363%_)) + (lambda (_%name110494%_ _%f110495%_ . _%args110496%_) + (if (procedure? _%f110495%_) + (let ((_%f110500%_ _%f110495%_)) (declare (not safe)) (##apply __spawn/group - _%name109362%_ - _%f109368%_ - _%args109364%_)) + _%name110494%_ + _%f110500%_ + _%args110496%_)) (begin (raise-contract-violation-error '"contract violation" @@ -59,148 +59,148 @@ 'contract: 'procedure? 'value: - _%f109363%_) + _%f110495%_) '#!void)))) (define __spawn/group - (lambda (_%name109346%_ _%f109347%_ . _%args109348%_) - (let* ((_%f109351%_ _%f109347%_) - (_%tgroup109360%_ (make-thread-group _%name109346%_))) + (lambda (_%name110478%_ _%f110479%_ . _%args110480%_) + (let* ((_%f110483%_ _%f110479%_) + (_%tgroup110492%_ (make-thread-group _%name110478%_))) (spawn-actor - _%f109351%_ - _%args109348%_ - _%name109346%_ - _%tgroup109360%_)))) + _%f110483%_ + _%args110480%_ + _%name110478%_ + _%tgroup110492%_)))) (define spawn-actor - (lambda (_%f109318%_ _%args109319%_ _%name109320%_ _%tgroup109321%_) - (letrec ((_%thread-main109324%_ - (lambda (_%thunk109338%_) + (lambda (_%f110450%_ _%args110451%_ _%name110452%_ _%tgroup110453%_) + (letrec ((_%thread-main110456%_ + (lambda (_%thunk110470%_) (lambda () - (let ((__tmp109435 - (lambda (_%exn109341%_) - (let ((__tmp109436 - (lambda (_%cont109343%_) + (let ((__tmp110567 + (lambda (_%exn110473%_) + (let ((__tmp110568 + (lambda (_%cont110475%_) (if unhandled-actor-exception-hook - (let ((__tmp109437 + (let ((__tmp110569 (lambda () (__unhandled-actor-exception-hook - _%cont109343%_ - _%exn109341%_)))) + _%cont110475%_ + _%exn110473%_)))) (declare (not safe)) - (__with-catch void __tmp109437)) + (__with-catch void __tmp110569)) '#!void) - (let ((__tmp109438 + (let ((__tmp110570 (let () (declare (not safe)) (##continuation-last - _%cont109343%_)))) + _%cont110475%_)))) (declare (not safe)) (##continuation-graft - __tmp109438 + __tmp110570 ##primordial-exception-handler - _%exn109341%_))))) + _%exn110473%_))))) (declare (not safe)) - (##continuation-capture __tmp109436))))) + (##continuation-capture __tmp110568))))) (declare (not safe)) (with-exception-handler - __tmp109435 - _%thunk109338%_)))))) - (let* ((_%thunk109327%_ - (if (null? _%args109319%_) - _%f109318%_ - (lambda () (apply _%f109318%_ _%args109319%_)))) - (_%thunk109330%_ - (lambda () (with-exception-stack-trace__0 _%thunk109327%_))) - (_%tgroup109335%_ - (let ((_%$e109332%_ _%tgroup109321%_)) - (if _%$e109332%_ _%$e109332%_ (current-thread-group))))) + __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))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (_%thread-main109324%_ _%thunk109330%_) - _%name109320%_ - _%tgroup109335%_)))))) + (_%thread-main110456%_ _%thunk110462%_) + _%name110452%_ + _%tgroup110467%_)))))) (define spawn-thread__% - (lambda (_%thunk109296%_ _%name109297%_ _%tgroup109298%_) + (lambda (_%thunk110428%_ _%name110429%_ _%tgroup110430%_) (thread-start! - (make-thread _%thunk109296%_ _%name109297%_ _%tgroup109298%_)))) + (make-thread _%thunk110428%_ _%name110429%_ _%tgroup110430%_)))) (define spawn-thread__0 - (lambda (_%thunk109303%_) - (let* ((_%name109305%_ absent-obj) (_%tgroup109307%_ absent-obj)) - (spawn-thread__% _%thunk109303%_ _%name109305%_ _%tgroup109307%_)))) + (lambda (_%thunk110435%_) + (let* ((_%name110437%_ absent-obj) (_%tgroup110439%_ absent-obj)) + (spawn-thread__% _%thunk110435%_ _%name110437%_ _%tgroup110439%_)))) (define spawn-thread__1 - (lambda (_%thunk109309%_ _%name109310%_) - (let ((_%tgroup109312%_ absent-obj)) - (spawn-thread__% _%thunk109309%_ _%name109310%_ _%tgroup109312%_)))) + (lambda (_%thunk110441%_ _%name110442%_) + (let ((_%tgroup110444%_ absent-obj)) + (spawn-thread__% _%thunk110441%_ _%name110442%_ _%tgroup110444%_)))) (define spawn-thread - (lambda _g109440_ - (let ((_g109439_ (let () (declare (not safe)) (##length _g109440_)))) - (cond ((let () (declare (not safe)) (##fx= _g109439_ 1)) - (apply spawn-thread__0 _g109440_)) - ((let () (declare (not safe)) (##fx= _g109439_ 2)) - (apply spawn-thread__1 _g109440_)) - ((let () (declare (not safe)) (##fx= _g109439_ 3)) - (apply spawn-thread__% _g109440_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g109440_)))))) + _g110572_)))))) (define thread-local-ref__% - (lambda (_%key109280%_ _%default109281%_) - (let ((_%tab109283%_ (thread-local-table))) + (lambda (_%key110412%_ _%default110413%_) + (let ((_%tab110415%_ (thread-local-table))) (declare (not safe)) - (hash-ref__% _%tab109283%_ _%key109280%_ _%default109281%_)))) + (hash-ref__% _%tab110415%_ _%key110412%_ _%default110413%_)))) (define thread-local-ref__0 - (lambda (_%key109288%_) - (let ((_%default109290%_ absent-obj)) - (thread-local-ref__% _%key109288%_ _%default109290%_)))) + (lambda (_%key110420%_) + (let ((_%default110422%_ absent-obj)) + (thread-local-ref__% _%key110420%_ _%default110422%_)))) (define thread-local-ref - (lambda _g109442_ - (let ((_g109441_ (let () (declare (not safe)) (##length _g109442_)))) - (cond ((let () (declare (not safe)) (##fx= _g109441_ 1)) - (apply thread-local-ref__0 _g109442_)) - ((let () (declare (not safe)) (##fx= _g109441_ 2)) - (apply thread-local-ref__% _g109442_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g109442_)))))) + _g110574_)))))) (define thread-local-get - (lambda (_%key109277%_) (thread-local-ref__% _%key109277%_ '#f))) + (lambda (_%key110409%_) (thread-local-ref__% _%key110409%_ '#f))) (define thread-local-set! - (lambda (_%key109272%_ _%value109273%_) - (let ((_%tab109275%_ (thread-local-table))) + (lambda (_%key110404%_ _%value110405%_) + (let ((_%tab110407%_ (thread-local-table))) (declare (not safe)) - (hash-put! _%tab109275%_ _%key109272%_ _%value109273%_)))) + (hash-put! _%tab110407%_ _%key110404%_ _%value110405%_)))) (define thread-local-delete! - (lambda (_%key109268%_) - (let ((_%tab109270%_ (thread-local-table))) + (lambda (_%key110400%_) + (let ((_%tab110402%_ (thread-local-table))) (declare (not safe)) - (hash-remove! _%tab109270%_ _%key109268%_)))) + (hash-remove! _%tab110402%_ _%key110400%_)))) (define thread-local-table (lambda () - (let ((_%thr109249%_ (current-thread))) - (if (actor-thread? _%thr109249%_) - (let ((_%$e109252%_ (actor-thread-locals _%thr109249%_))) - (if _%$e109252%_ - _%$e109252%_ - (let ((_%tab109256%_ + (let ((_%thr110381%_ (current-thread))) + (if (actor-thread? _%thr110381%_) + (let ((_%$e110384%_ (actor-thread-locals _%thr110381%_))) + (if _%$e110384%_ + _%$e110384%_ + (let ((_%tab110388%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (actor-thread-locals-set! _%thr109249%_ _%tab109256%_) - _%tab109256%_))) - (if (eq? _%thr109249%_ ##primordial-thread) + (actor-thread-locals-set! _%thr110381%_ _%tab110388%_) + _%tab110388%_))) + (if (eq? _%thr110381%_ ##primordial-thread) __primordial-thread-locals (let () (mutex-lock! __thread-locals-mutex) - (let ((_%$e109260%_ + (let ((_%$e110392%_ (let () (declare (not safe)) - (__hash-get __thread-locals _%thr109249%_)))) - (if _%$e109260%_ - ((lambda (_%tab109263%_) + (__hash-get __thread-locals _%thr110381%_)))) + (if _%$e110392%_ + ((lambda (_%tab110395%_) (mutex-unlock! __thread-locals-mutex) - _%tab109263%_) - _%$e109260%_) - (let ((_%tab109266%_ + _%tab110395%_) + _%$e110392%_) + (let ((_%tab110398%_ (let () (declare (not safe)) (make-hash-table-eq)))) @@ -208,10 +208,10 @@ (declare (not safe)) (__hash-put! __thread-locals - _%thr109249%_ - _%tab109266%_)) + _%thr110381%_ + _%tab110398%_)) (mutex-unlock! __thread-locals-mutex) - _%tab109266%_))))))))) + _%tab110398%_))))))))) (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-value109227%_) - (if ((lambda (_%$obj109230%_) - (or (not _%$obj109230%_) (procedure? _%$obj109230%_))) - _%new-value109227%_) - (let ((_%new-value109237%_ _%new-value109227%_)) - (__unhandled-actor-exception-hook-set! _%new-value109237%_)) + (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%_)) (begin (raise-contract-violation-error '"contract violation" @@ -235,21 +235,21 @@ 'contract: '(? (or not procedure?)) 'value: - _%new-value109227%_) + _%new-value110359%_) '#!void)))) (define __unhandled-actor-exception-hook-set! - (lambda (_%new-value109214%_) - (let ((_%new-value109218%_ _%new-value109214%_)) - (set! __unhandled-actor-exception-hook _%new-value109218%_)))) + (lambda (_%new-value110346%_) + (let ((_%new-value110350%_ _%new-value110346%_)) + (set! __unhandled-actor-exception-hook _%new-value110350%_)))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_%mx109188%_ _%proc109189%_) - (if (mutex? _%mx109188%_) - (let ((_%mx109193%_ _%mx109188%_)) - (if (procedure? _%proc109189%_) - (let ((_%proc109203%_ _%proc109189%_)) - (__with-lock _%mx109193%_ _%proc109203%_)) + (lambda (_%mx110320%_ _%proc110321%_) + (if (mutex? _%mx110320%_) + (let ((_%mx110325%_ _%mx110320%_)) + (if (procedure? _%proc110321%_) + (let ((_%proc110335%_ _%proc110321%_)) + (__with-lock _%mx110325%_ _%proc110335%_)) (begin (raise-contract-violation-error '"contract violation" @@ -258,7 +258,7 @@ 'contract: 'procedure? 'value: - _%proc109189%_) + _%proc110321%_) '#!void))) (begin (raise-contract-violation-error @@ -268,42 +268,42 @@ 'contract: 'mutex? 'value: - _%mx109188%_) + _%mx110320%_) '#!void)))) (define __with-lock - (lambda (_%mx109159%_ _%proc109160%_) - (let* ((_%mx109163%_ _%mx109159%_) - (_%proc109171%_ _%proc109160%_) - (_%handler109180%_ (current-exception-handler))) - (let ((__tmp109444 - (lambda (_%e109182%_) - (let ((__tmp109445 + (lambda (_%mx110291%_ _%proc110292%_) + (let* ((_%mx110295%_ _%mx110291%_) + (_%proc110303%_ _%proc110292%_) + (_%handler110312%_ (current-exception-handler))) + (let ((__tmp110576 + (lambda (_%e110314%_) + (let ((__tmp110577 (lambda () - (mutex-unlock! _%mx109163%_) + (mutex-unlock! _%mx110295%_) (let () (declare (not safe)) - (_%handler109180%_ _%e109182%_))))) + (_%handler110312%_ _%e110314%_))))) (declare (not safe)) - (__with-catch void __tmp109445)) + (__with-catch void __tmp110577)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _%e109182%_)))) - (__tmp109443 + (##thread-end-with-uncaught-exception! _%e110314%_)))) + (__tmp110575 (lambda () - (mutex-lock! _%mx109163%_) - (let ((_%result109186%_ - (let () (declare (not safe)) (_%proc109171%_)))) - (mutex-unlock! _%mx109163%_) - _%result109186%_)))) + (mutex-lock! _%mx110295%_) + (let ((_%result110318%_ + (let () (declare (not safe)) (_%proc110303%_)))) + (mutex-unlock! _%mx110295%_) + _%result110318%_)))) (declare (not safe)) - (__with-exception-handler __tmp109444 __tmp109443))))) + (__with-exception-handler __tmp110576 __tmp110575))))) (define with-dynamic-lock - (lambda (_%mx109134%_ _%proc109135%_) - (if (mutex? _%mx109134%_) - (let ((_%mx109139%_ _%mx109134%_)) - (if (procedure? _%proc109135%_) - (let ((_%proc109149%_ _%proc109135%_)) - (__with-dynamic-lock _%mx109139%_ _%proc109149%_)) + (lambda (_%mx110266%_ _%proc110267%_) + (if (mutex? _%mx110266%_) + (let ((_%mx110271%_ _%mx110266%_)) + (if (procedure? _%proc110267%_) + (let ((_%proc110281%_ _%proc110267%_)) + (__with-dynamic-lock _%mx110271%_ _%proc110281%_)) (begin (raise-contract-violation-error '"contract violation" @@ -312,7 +312,7 @@ 'contract: 'procedure? 'value: - _%proc109135%_) + _%proc110267%_) '#!void))) (begin (raise-contract-violation-error @@ -322,24 +322,24 @@ 'contract: 'mutex? 'value: - _%mx109134%_) + _%mx110266%_) '#!void)))) (define __with-dynamic-lock - (lambda (_%mx109111%_ _%proc109112%_) - (let* ((_%mx109115%_ _%mx109111%_) (_%proc109123%_ _%proc109112%_)) - (let ((__tmp109447 (lambda () (mutex-lock! _%mx109115%_))) - (__tmp109446 (lambda () (mutex-unlock! _%mx109115%_)))) + (lambda (_%mx110243%_ _%proc110244%_) + (let* ((_%mx110247%_ _%mx110243%_) (_%proc110255%_ _%proc110244%_)) + (let ((__tmp110579 (lambda () (mutex-lock! _%mx110247%_))) + (__tmp110578 (lambda () (mutex-unlock! _%mx110247%_)))) (declare (not safe)) - (##dynamic-wind __tmp109447 _%proc109123%_ __tmp109446))))) + (##dynamic-wind __tmp110579 _%proc110255%_ __tmp110578))))) (define with-exception-stack-trace__% - (lambda (_%thunk109076%_ _%error-port109077%_) - (if (procedure? _%thunk109076%_) - (let ((_%thunk109081%_ _%thunk109076%_)) - (if (port? _%error-port109077%_) - (let ((_%error-port109091%_ _%error-port109077%_)) + (lambda (_%thunk110208%_ _%error-port110209%_) + (if (procedure? _%thunk110208%_) + (let ((_%thunk110213%_ _%thunk110208%_)) + (if (port? _%error-port110209%_) + (let ((_%error-port110223%_ _%error-port110209%_)) (__with-exception-stack-trace__% - _%thunk109081%_ - _%error-port109091%_)) + _%thunk110213%_ + _%error-port110223%_)) (begin (raise-contract-violation-error '"contract violation" @@ -348,7 +348,7 @@ 'contract: 'port? 'value: - _%error-port109077%_) + _%error-port110209%_) '#!void))) (begin (raise-contract-violation-error @@ -358,105 +358,105 @@ 'contract: 'procedure? 'value: - _%thunk109076%_) + _%thunk110208%_) '#!void)))) (define with-exception-stack-trace__0 - (lambda (_%thunk109104%_) - (let ((_%error-port109106%_ (current-error-port))) + (lambda (_%thunk110236%_) + (let ((_%error-port110238%_ (current-error-port))) (with-exception-stack-trace__% - _%thunk109104%_ - _%error-port109106%_)))) + _%thunk110236%_ + _%error-port110238%_)))) (define with-exception-stack-trace - (lambda _g109449_ - (let ((_g109448_ (let () (declare (not safe)) (##length _g109449_)))) - (cond ((let () (declare (not safe)) (##fx= _g109448_ 1)) - (apply with-exception-stack-trace__0 _g109449_)) - ((let () (declare (not safe)) (##fx= _g109448_ 2)) - (apply with-exception-stack-trace__% _g109449_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g109449_)))))) + _g110581_)))))) (define __with-exception-stack-trace__% - (lambda (_%thunk109037%_ _%error-port109038%_) - (let* ((_%thunk109041%_ _%thunk109037%_) - (_%error-port109050%_ _%error-port109038%_) - (__tmp109450 - (let ((_%E109059%_ (current-exception-handler))) - (lambda (_%exn109061%_) - (let ((__tmp109451 - (lambda (_%cont109063%_) + (lambda (_%thunk110169%_ _%error-port110170%_) + (let* ((_%thunk110173%_ _%thunk110169%_) + (_%error-port110182%_ _%error-port110170%_) + (__tmp110582 + (let ((_%E110191%_ (current-exception-handler))) + (lambda (_%exn110193%_) + (let ((__tmp110583 + (lambda (_%cont110195%_) (if (let () (declare (not safe)) (dump-stack-trace?)) (dump-stack-trace!__% - _%cont109063%_ - _%exn109061%_ - _%error-port109050%_) + _%cont110195%_ + _%exn110193%_ + _%error-port110182%_) '#!void) (let () (declare (not safe)) - (_%E109059%_ _%exn109061%_))))) + (_%E110191%_ _%exn110193%_))))) (declare (not safe)) - (##continuation-capture __tmp109451)))))) + (##continuation-capture __tmp110583)))))) (declare (not safe)) - (__with-exception-handler __tmp109450 _%thunk109041%_)))) + (__with-exception-handler __tmp110582 _%thunk110173%_)))) (define __with-exception-stack-trace__0 - (lambda (_%thunk109068%_) - (let ((_%error-port109070%_ (current-error-port))) + (lambda (_%thunk110200%_) + (let ((_%error-port110202%_ (current-error-port))) (__with-exception-stack-trace__% - _%thunk109068%_ - _%error-port109070%_)))) + _%thunk110200%_ + _%error-port110202%_)))) (define __with-exception-stack-trace - (lambda _g109453_ - (let ((_g109452_ (let () (declare (not safe)) (##length _g109453_)))) - (cond ((let () (declare (not safe)) (##fx= _g109452_ 1)) - (apply __with-exception-stack-trace__0 _g109453_)) - ((let () (declare (not safe)) (##fx= _g109452_ 2)) - (apply __with-exception-stack-trace__% _g109453_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __with-exception-stack-trace - _g109453_)))))) + _g110585_)))))) (define dump-stack-trace!__% - (lambda (_%cont109018%_ _%exn109019%_ _%error-port109020%_) - (let ((_%out109022%_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _%out109022%_)) - (display '"*** Unhandled exception in " _%out109022%_) - (display (current-thread) _%out109022%_) - (newline _%out109022%_) + (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%_) (let () (declare (not safe)) - (display-exception__% _%exn109019%_ _%out109022%_)) + (display-exception__% _%exn110151%_ _%out110154%_)) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn109019%_)) + (class-instance? StackTrace::t _%exn110151%_)) '#!void (begin - (display '"Continuation backtrace: " _%out109022%_) - (newline _%out109022%_) - (display-continuation-backtrace _%cont109018%_ _%out109022%_))) - (let ((__tmp109454 (get-output-string _%out109022%_))) + (display '"Continuation backtrace: " _%out110154%_) + (newline _%out110154%_) + (display-continuation-backtrace _%cont110150%_ _%out110154%_))) + (let ((__tmp110586 (get-output-string _%out110154%_))) (declare (not safe)) - (##write-string __tmp109454 _%error-port109020%_))))) + (##write-string __tmp110586 _%error-port110152%_))))) (define dump-stack-trace!__0 - (lambda (_%cont109027%_ _%exn109028%_) - (let ((_%error-port109030%_ (current-error-port))) + (lambda (_%cont110159%_ _%exn110160%_) + (let ((_%error-port110162%_ (current-error-port))) (dump-stack-trace!__% - _%cont109027%_ - _%exn109028%_ - _%error-port109030%_)))) + _%cont110159%_ + _%exn110160%_ + _%error-port110162%_)))) (define dump-stack-trace! - (lambda _g109456_ - (let ((_g109455_ (let () (declare (not safe)) (##length _g109456_)))) - (cond ((let () (declare (not safe)) (##fx= _g109455_ 2)) - (apply dump-stack-trace!__0 _g109456_)) - ((let () (declare (not safe)) (##fx= _g109455_ 3)) - (apply dump-stack-trace!__% _g109456_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g109456_)))))) + _g110588_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util~0.scm b/src/bootstrap/gerbil/runtime/util~0.scm index 81a658f62..63087541f 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 1713454408) + (define gerbil/runtime/util::timestamp 1713631264) (begin (define raise-contract-violation-error error) (set! raise-contract-violation-error raise-contract-violation-error) (define displayln - (lambda _%args88245%_ + (lambda _%args89377%_ (let () - (let () (declare (not safe)) (##for-each display _%args88245%_)) + (let () (declare (not safe)) (##for-each display _%args89377%_)) (newline)))) (define display* - (lambda _%args88242%_ - (let () (declare (not safe)) (##for-each display _%args88242%_)))) + (lambda _%args89374%_ + (let () (declare (not safe)) (##for-each display _%args89374%_)))) (define file-newer? - (lambda (_%file188217%_ _%file288218%_) - (if (string? _%file188217%_) - (let ((_%file188222%_ _%file188217%_)) - (if (string? _%file288218%_) - (let ((_%file288232%_ _%file288218%_)) - (__file-newer? _%file188222%_ _%file288232%_)) + (lambda (_%file189349%_ _%file289350%_) + (if (string? _%file189349%_) + (let ((_%file189354%_ _%file189349%_)) + (if (string? _%file289350%_) + (let ((_%file289364%_ _%file289350%_)) + (__file-newer? _%file189354%_ _%file289364%_)) (begin (raise-contract-violation-error '"contract violation" @@ -27,7 +27,7 @@ 'contract: 'string? 'value: - _%file288218%_) + _%file289350%_) '#!void))) (begin (raise-contract-violation-error @@ -37,39 +37,39 @@ 'contract: 'string? 'value: - _%file188217%_) + _%file189349%_) '#!void)))) (define __file-newer? - (lambda (_%file188165%_ _%file288166%_) - (let* ((_%file188169%_ _%file188165%_) (_%file288177%_ _%file288166%_)) - (letrec ((_%modification-time88186%_ - (lambda (_%file88205%_) - (let ((_%file88208%_ _%file88205%_)) - (_%__modification-time88187%_ _%file88208%_)))) - (_%__modification-time88187%_ - (lambda (_%file88189%_) - (let* ((_%file88192%_ _%file88189%_) - (__tmp89975 - (let ((__tmp89976 + (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 (let () (declare (not safe)) - (##file-info _%file88192%_ '#t)))) + (##file-info _%file89324%_ '#t)))) (declare (not safe)) (##file-info-last-modification-time - __tmp89976)))) + __tmp91108)))) (declare (not safe)) - (##time->seconds __tmp89975))))) - (let ((__tmp89978 (_%__modification-time88187%_ _%file188169%_)) - (__tmp89977 (_%__modification-time88187%_ _%file288177%_))) + (##time->seconds __tmp91107))))) + (let ((__tmp91110 (_%__modification-time89319%_ _%file189301%_)) + (__tmp91109 (_%__modification-time89319%_ _%file289309%_))) (declare (not safe)) - (##fl> __tmp89978 __tmp89977)))))) + (##fl> __tmp91110 __tmp91109)))))) (define create-directory*__% - (lambda (_%dir88130%_ _%perms88131%_) - (if (string? _%dir88130%_) - (let ((_%dir88135%_ _%dir88130%_)) - (if (fixnum? _%perms88131%_) - (let ((_%perms88145%_ _%perms88131%_)) - (__create-directory*__% _%dir88135%_ _%perms88145%_)) + (lambda (_%dir89262%_ _%perms89263%_) + (if (string? _%dir89262%_) + (let ((_%dir89267%_ _%dir89262%_)) + (if (fixnum? _%perms89263%_) + (let ((_%perms89277%_ _%perms89263%_)) + (__create-directory*__% _%dir89267%_ _%perms89277%_)) (begin (raise-contract-violation-error '"contract violation" @@ -78,7 +78,7 @@ 'contract: 'fixnum? 'value: - _%perms88131%_) + _%perms89263%_) '#!void))) (begin (raise-contract-violation-error @@ -88,128 +88,128 @@ 'contract: 'string? 'value: - _%dir88130%_) + _%dir89262%_) '#!void)))) (define create-directory*__0 - (lambda (_%dir88158%_) - (let ((_%perms88160%_ '493)) - (create-directory*__% _%dir88158%_ _%perms88160%_)))) + (lambda (_%dir89290%_) + (let ((_%perms89292%_ '493)) + (create-directory*__% _%dir89290%_ _%perms89292%_)))) (define create-directory* - (lambda _g89980_ - (let ((_g89979_ (let () (declare (not safe)) (##length _g89980_)))) - (cond ((let () (declare (not safe)) (##fx= _g89979_ 1)) - (apply create-directory*__0 _g89980_)) - ((let () (declare (not safe)) (##fx= _g89979_ 2)) - (apply create-directory*__% _g89980_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g89980_)))))) + _g91112_)))))) (define __create-directory*__% - (lambda (_%dir88054%_ _%perms88055%_) - (let* ((_%dir88058%_ _%dir88054%_) (_%perms88066%_ _%perms88055%_)) - (letrec ((_%create188075%_ - (lambda (_%path88107%_) - (let ((_%path88110%_ _%path88107%_)) - (_%__create188076%_ _%path88110%_)))) - (_%__create188076%_ - (lambda (_%path88088%_) - (let ((_%path88091%_ _%path88088%_)) + (lambda (_%dir89186%_ _%perms89187%_) + (let* ((_%dir89190%_ _%dir89186%_) (_%perms89198%_ _%perms89187%_)) + (letrec ((_%create189207%_ + (lambda (_%path89239%_) + (let ((_%path89242%_ _%path89239%_)) + (_%__create189208%_ _%path89242%_)))) + (_%__create189208%_ + (lambda (_%path89220%_) + (let ((_%path89223%_ _%path89220%_)) (if (let () (declare (not safe)) - (##file-exists? _%path88091%_)) - (if (eq? (file-type _%path88091%_) 'directory) + (##file-exists? _%path89223%_)) + (if (eq? (file-type _%path89223%_) 'directory) '#!void (error '"Path component is not a directory" - _%path88091%_)) - (if _%perms88066%_ + _%path89223%_)) + (if _%perms89198%_ (create-directory (cons 'path: - (cons _%path88091%_ + (cons _%path89223%_ (cons 'permissions: - (cons _%perms88066%_ + (cons _%perms89198%_ '()))))) - (create-directory _%path88091%_))))))) - (if (let () (declare (not safe)) (##file-exists? _%dir88058%_)) + (create-directory _%path89223%_))))))) + (if (let () (declare (not safe)) (##file-exists? _%dir89190%_)) '#!void - (let _%lp88078%_ ((_%start88080%_ '0)) - (let ((_%$e88082%_ - (__string-index__% _%dir88058%_ '#\/ _%start88080%_))) - (if _%$e88082%_ - ((lambda (_%x88085%_) + (let _%lp89210%_ ((_%start89212%_ '0)) + (let ((_%$e89214%_ + (__string-index__% _%dir89190%_ '#\/ _%start89212%_))) + (if _%$e89214%_ + ((lambda (_%x89217%_) (if (let () (declare (not safe)) - (##fx> _%x88085%_ '0)) - (_%__create188076%_ - (substring _%dir88058%_ '0 _%x88085%_)) + (##fx> _%x89217%_ '0)) + (_%__create189208%_ + (substring _%dir89190%_ '0 _%x89217%_)) '#!void) - (_%lp88078%_ + (_%lp89210%_ (let () (declare (not safe)) - (##fx+ _%x88085%_ '1)))) - _%$e88082%_) - (_%__create188076%_ _%dir88058%_))))) + (##fx+ _%x89217%_ '1)))) + _%$e89214%_) + (_%__create189208%_ _%dir89190%_))))) '#!void)))) (define __create-directory*__0 - (lambda (_%dir88122%_) - (let ((_%perms88124%_ '493)) - (__create-directory*__% _%dir88122%_ _%perms88124%_)))) + (lambda (_%dir89254%_) + (let ((_%perms89256%_ '493)) + (__create-directory*__% _%dir89254%_ _%perms89256%_)))) (define __create-directory* - (lambda _g89982_ - (let ((_g89981_ (let () (declare (not safe)) (##length _g89982_)))) - (cond ((let () (declare (not safe)) (##fx= _g89981_ 1)) - (apply __create-directory*__0 _g89982_)) - ((let () (declare (not safe)) (##fx= _g89981_ 2)) - (apply __create-directory*__% _g89982_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __create-directory* - _g89982_)))))) + _g91114_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _%ignore88050%_ '#t)) - (define true? (lambda (_%obj88047%_) (eq? _%obj88047%_ '#t))) - (define false (lambda _%ignore88044%_ '#f)) - (define void (lambda _%ignore88041%_ '#!void)) - (define void? (lambda (_%obj88038%_) (eq? _%obj88038%_ '#!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 dssl-object? - (lambda (_%obj88035%_) + (lambda (_%obj89167%_) (if (let () (declare (not safe)) - (##memq _%obj88035%_ '(#!key #!rest #!optional))) + (##memq _%obj89167%_ '(#!key #!rest #!optional))) '#t '#f))) - (define dssl-key-object? (lambda (_%obj88032%_) (eq? _%obj88032%_ '#!key))) + (define dssl-key-object? (lambda (_%obj89164%_) (eq? _%obj89164%_ '#!key))) (define dssl-rest-object? - (lambda (_%obj88029%_) (eq? _%obj88029%_ '#!rest))) + (lambda (_%obj89161%_) (eq? _%obj89161%_ '#!rest))) (define dssl-optional-object? - (lambda (_%obj88026%_) (eq? _%obj88026%_ '#!optional))) + (lambda (_%obj89158%_) (eq? _%obj89158%_ '#!optional))) (define immediate? - (lambda (_%obj88021%_) - (let* ((_%t88024%_ (let () (declare (not safe)) (##type _%obj88021%_))) - (__tmp89983 - (let () (declare (not safe)) (##fxand _%t88024%_ '1)))) + (lambda (_%obj89153%_) + (let* ((_%t89156%_ (let () (declare (not safe)) (##type _%obj89153%_))) + (__tmp91115 + (let () (declare (not safe)) (##fxand _%t89156%_ '1)))) (declare (not safe)) - (##fxzero? __tmp89983)))) + (##fxzero? __tmp91115)))) (define nonnegative-fixnum? - (lambda (_%obj88018%_) - (if (fixnum? _%obj88018%_) - (let () (declare (not safe)) (##fx>= _%obj88018%_ '0)) + (lambda (_%obj89150%_) + (if (fixnum? _%obj89150%_) + (let () (declare (not safe)) (##fx>= _%obj89150%_ '0)) '#f))) (define pair-or-null? - (lambda (_%obj88012%_) - (let ((_%$e88015%_ (pair? _%obj88012%_))) - (if _%$e88015%_ _%$e88015%_ (null? _%obj88012%_))))) + (lambda (_%obj89144%_) + (let ((_%$e89147%_ (pair? _%obj89144%_))) + (if _%$e89147%_ _%$e89147%_ (null? _%obj89144%_))))) (define values-count - (lambda (_%obj88009%_) - (if (let () (declare (not safe)) (##values? _%obj88009%_)) - (let () (declare (not safe)) (##vector-length _%obj88009%_)) + (lambda (_%obj89141%_) + (if (let () (declare (not safe)) (##values? _%obj89141%_)) + (let () (declare (not safe)) (##vector-length _%obj89141%_)) '1))) (define values-ref - (lambda (_%obj87994%_ _%k87995%_) - (if (fixnum? _%k87995%_) - (let ((_%k87999%_ _%k87995%_)) - (__values-ref _%obj87994%_ _%k87999%_)) + (lambda (_%obj89126%_ _%k89127%_) + (if (fixnum? _%k89127%_) + (let ((_%k89131%_ _%k89127%_)) + (__values-ref _%obj89126%_ _%k89131%_)) (begin (raise-contract-violation-error '"contract violation" @@ -218,26 +218,26 @@ 'contract: 'fixnum? 'value: - _%k87995%_) + _%k89127%_) '#!void)))) (define __values-ref - (lambda (_%obj87981%_ _%k87982%_) - (let ((_%k87985%_ _%k87982%_)) - (if (let () (declare (not safe)) (##values? _%obj87981%_)) + (lambda (_%obj89113%_ _%k89114%_) + (let ((_%k89117%_ _%k89114%_)) + (if (let () (declare (not safe)) (##values? _%obj89113%_)) (let () (declare (not safe)) - (##vector-ref _%obj87981%_ _%k87985%_)) - _%obj87981%_)))) + (##vector-ref _%obj89113%_ _%k89117%_)) + _%obj89113%_)))) (define values->list - (lambda (_%obj87978%_) - (if (let () (declare (not safe)) (##values? _%obj87978%_)) - (let () (declare (not safe)) (##vector->list _%obj87978%_)) - (list _%obj87978%_)))) + (lambda (_%obj89110%_) + (if (let () (declare (not safe)) (##values? _%obj89110%_)) + (let () (declare (not safe)) (##vector->list _%obj89110%_)) + (list _%obj89110%_)))) (define foldl1 - (lambda (_%f87962%_ _%iv87963%_ _%lst87964%_) - (if (procedure? _%f87962%_) - (let ((_%f87968%_ _%f87962%_)) - (__foldl1 _%f87968%_ _%iv87963%_ _%lst87964%_)) + (lambda (_%f89094%_ _%iv89095%_ _%lst89096%_) + (if (procedure? _%f89094%_) + (let ((_%f89100%_ _%f89094%_)) + (__foldl1 _%f89100%_ _%iv89095%_ _%lst89096%_)) (begin (raise-contract-violation-error '"contract violation" @@ -246,40 +246,40 @@ 'contract: 'procedure? 'value: - _%f87962%_) + _%f89094%_) '#!void)))) (define __foldl1 - (lambda (_%f87910%_ _%iv87911%_ _%lst87912%_) - (let ((_%f87915%_ _%f87910%_)) - (let _%lp87924%_ ((_%rest87926%_ _%lst87912%_) - (_%r87927%_ _%iv87911%_)) - (let* ((_%rest8792887936%_ _%rest87926%_) - (_%else8793087944%_ (lambda () _%r87927%_)) - (_%K8793287950%_ - (lambda (_%rest87947%_ _%x87948%_) - (_%lp87924%_ - _%rest87947%_ + (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%_ (let () (declare (not safe)) - (_%f87915%_ _%x87948%_ _%r87927%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8792887936%_)) - (let ((_%hd8793387953%_ + (_%f89047%_ _%x89080%_ _%r89059%_)))))) + (if (pair? _%rest8906089068%_) + (let ((_%hd8906589085%_ (let () (declare (not safe)) - (##car _%rest8792887936%_))) - (_%tl8793487955%_ + (##car _%rest8906089068%_))) + (_%tl8906689087%_ (let () (declare (not safe)) - (##cdr _%rest8792887936%_)))) - (let* ((_%x87958%_ _%hd8793387953%_) - (_%rest87960%_ _%tl8793487955%_)) - (_%K8793287950%_ _%rest87960%_ _%x87958%_))) - (_%else8793087944%_))))))) + (##cdr _%rest8906089068%_)))) + (let* ((_%x89090%_ _%hd8906589085%_) + (_%rest89092%_ _%tl8906689087%_)) + (_%K8906489082%_ _%rest89092%_ _%x89090%_))) + (_%else8906289076%_))))))) (define foldl2 - (lambda (_%f87893%_ _%iv87894%_ _%lst187895%_ _%lst287896%_) - (if (procedure? _%f87893%_) - (let ((_%f87900%_ _%f87893%_)) - (__foldl2 _%f87900%_ _%iv87894%_ _%lst187895%_ _%lst287896%_)) + (lambda (_%f89025%_ _%iv89026%_ _%lst189027%_ _%lst289028%_) + (if (procedure? _%f89025%_) + (let ((_%f89032%_ _%f89025%_)) + (__foldl2 _%f89032%_ _%iv89026%_ _%lst189027%_ _%lst289028%_)) (begin (raise-contract-violation-error '"contract violation" @@ -288,78 +288,76 @@ 'contract: 'procedure? 'value: - _%f87893%_) + _%f89025%_) '#!void)))) (define __foldl2 - (lambda (_%f87806%_ _%iv87807%_ _%lst187808%_ _%lst287809%_) - (let ((_%f87812%_ _%f87806%_)) - (let _%lp87821%_ ((_%rest187823%_ _%lst187808%_) - (_%rest287824%_ _%lst287809%_) - (_%r87825%_ _%iv87807%_)) - (let* ((_%rest18782687834%_ _%rest187823%_) - (_%else8782887842%_ (lambda () _%r87825%_)) - (_%K8783087881%_ - (lambda (_%rest187845%_ _%x187846%_) - (let* ((_%rest28784787855%_ _%rest287824%_) - (_%else8784987863%_ (lambda () _%r87825%_)) - (_%K8785187869%_ - (lambda (_%rest287866%_ _%x287867%_) - (_%lp87821%_ - _%rest187845%_ - _%rest287866%_ + (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%_ (let () (declare (not safe)) - (_%f87812%_ - _%x187846%_ - _%x287867%_ - _%r87825%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest28784787855%_)) - (let ((_%hd8785287872%_ + (_%f88944%_ + _%x188978%_ + _%x288999%_ + _%r88957%_)))))) + (if (pair? _%rest28897988987%_) + (let ((_%hd8898489004%_ (let () (declare (not safe)) - (##car _%rest28784787855%_))) - (_%tl8785387874%_ + (##car _%rest28897988987%_))) + (_%tl8898589006%_ (let () (declare (not safe)) - (##cdr _%rest28784787855%_)))) - (let* ((_%x287877%_ _%hd8785287872%_) - (_%rest287879%_ _%tl8785387874%_)) - (_%K8785187869%_ _%rest287879%_ _%x287877%_))) - (_%else8784987863%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest18782687834%_)) - (let ((_%hd8783187884%_ + (##cdr _%rest28897988987%_)))) + (let* ((_%x289009%_ _%hd8898489004%_) + (_%rest289011%_ _%tl8898589006%_)) + (_%K8898389001%_ _%rest289011%_ _%x289009%_))) + (_%else8898188995%_)))))) + (if (pair? _%rest18895888966%_) + (let ((_%hd8896389016%_ (let () (declare (not safe)) - (##car _%rest18782687834%_))) - (_%tl8783287886%_ + (##car _%rest18895888966%_))) + (_%tl8896489018%_ (let () (declare (not safe)) - (##cdr _%rest18782687834%_)))) - (let* ((_%x187889%_ _%hd8783187884%_) - (_%rest187891%_ _%tl8783287886%_)) - (_%K8783087881%_ _%rest187891%_ _%x187889%_))) - (_%else8782887842%_))))))) + (##cdr _%rest18895888966%_)))) + (let* ((_%x189021%_ _%hd8896389016%_) + (_%rest189023%_ _%tl8896489018%_)) + (_%K8896289013%_ _%rest189023%_ _%x189021%_))) + (_%else8896088974%_))))))) (define foldl - (lambda _g89985_ - (let ((_g89984_ (let () (declare (not safe)) (##length _g89985_)))) - (cond ((let () (declare (not safe)) (##fx= _g89984_ 3)) - (apply foldl1 _g89985_)) - ((let () (declare (not safe)) (##fx= _g89984_ 4)) - (apply foldl2 _g89985_)) - ((let () (declare (not safe)) (##fx>= _g89984_ 4)) - (apply foldl* _g89985_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g89985_)))))) + _g91117_)))))) (define foldl* - (lambda (_%f87775%_ _%iv87776%_ . _%rest87777%_) - (if (procedure? _%f87775%_) - (let ((_%f87781%_ _%f87775%_)) + (lambda (_%f88907%_ _%iv88908%_ . _%rest88909%_) + (if (procedure? _%f88907%_) + (let ((_%f88913%_ _%f88907%_)) (declare (not safe)) - (##apply __foldl* _%f87781%_ _%iv87776%_ _%rest87777%_)) + (##apply __foldl* _%f88913%_ _%iv88908%_ _%rest88909%_)) (begin (raise-contract-violation-error '"contract violation" @@ -368,30 +366,30 @@ 'contract: 'procedure? 'value: - _%f87775%_) + _%f88907%_) '#!void)))) (define __foldl* - (lambda (_%f87753%_ _%iv87754%_ . _%rest87755%_) - (let ((_%f87758%_ _%f87753%_)) - (let _%recur87767%_ ((_%iv87769%_ _%iv87754%_) - (_%rest87770%_ _%rest87755%_)) - (if (__andmap1 pair? _%rest87770%_) - (_%recur87767%_ - (let ((__tmp89986 + (lambda (_%f88885%_ _%iv88886%_ . _%rest88887%_) + (let ((_%f88890%_ _%f88885%_)) + (let _%recur88899%_ ((_%iv88901%_ _%iv88886%_) + (_%rest88902%_ _%rest88887%_)) + (if (__andmap1 pair? _%rest88902%_) + (_%recur88899%_ + (let ((__tmp91118 (__foldr1 - (lambda (_%xs87772%_ _%r87773%_) - (cons (car _%xs87772%_) _%r87773%_)) - (list _%iv87769%_) - _%rest87770%_))) + (lambda (_%xs88904%_ _%r88905%_) + (cons (car _%xs88904%_) _%r88905%_)) + (list _%iv88901%_) + _%rest88902%_))) (declare (not safe)) - (##apply _%f87758%_ __tmp89986)) - (map cdr _%rest87770%_)) - _%iv87769%_))))) + (##apply _%f88890%_ __tmp91118)) + (map cdr _%rest88902%_)) + _%iv88901%_))))) (define foldr1 - (lambda (_%f87737%_ _%iv87738%_ _%lst87739%_) - (if (procedure? _%f87737%_) - (let ((_%f87743%_ _%f87737%_)) - (__foldr1 _%f87743%_ _%iv87738%_ _%lst87739%_)) + (lambda (_%f88869%_ _%iv88870%_ _%lst88871%_) + (if (procedure? _%f88869%_) + (let ((_%f88875%_ _%f88869%_)) + (__foldr1 _%f88875%_ _%iv88870%_ _%lst88871%_)) (begin (raise-contract-violation-error '"contract violation" @@ -400,37 +398,37 @@ 'contract: 'procedure? 'value: - _%f87737%_) + _%f88869%_) '#!void)))) (define __foldr1 - (lambda (_%f87686%_ _%iv87687%_ _%lst87688%_) - (let ((_%f87691%_ _%f87686%_)) - (let _%recur87700%_ ((_%rest87702%_ _%lst87688%_)) - (let* ((_%rest8770387711%_ _%rest87702%_) - (_%else8770587719%_ (lambda () _%iv87687%_)) - (_%K8770787725%_ - (lambda (_%rest87722%_ _%x87723%_) - (let ((__tmp89987 (_%recur87700%_ _%rest87722%_))) + (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%_))) (declare (not safe)) - (_%f87691%_ _%x87723%_ __tmp89987))))) - (if (let () (declare (not safe)) (##pair? _%rest8770387711%_)) - (let ((_%hd8770887728%_ + (_%f88823%_ _%x88855%_ __tmp91119))))) + (if (pair? _%rest8883588843%_) + (let ((_%hd8884088860%_ (let () (declare (not safe)) - (##car _%rest8770387711%_))) - (_%tl8770987730%_ + (##car _%rest8883588843%_))) + (_%tl8884188862%_ (let () (declare (not safe)) - (##cdr _%rest8770387711%_)))) - (let* ((_%x87733%_ _%hd8770887728%_) - (_%rest87735%_ _%tl8770987730%_)) - (_%K8770787725%_ _%rest87735%_ _%x87733%_))) - (_%else8770587719%_))))))) + (##cdr _%rest8883588843%_)))) + (let* ((_%x88865%_ _%hd8884088860%_) + (_%rest88867%_ _%tl8884188862%_)) + (_%K8883988857%_ _%rest88867%_ _%x88865%_))) + (_%else8883788851%_))))))) (define foldr2 - (lambda (_%f87669%_ _%iv87670%_ _%lst187671%_ _%lst287672%_) - (if (procedure? _%f87669%_) - (let ((_%f87676%_ _%f87669%_)) - (__foldr2 _%f87676%_ _%iv87670%_ _%lst187671%_ _%lst287672%_)) + (lambda (_%f88801%_ _%iv88802%_ _%lst188803%_ _%lst288804%_) + (if (procedure? _%f88801%_) + (let ((_%f88808%_ _%f88801%_)) + (__foldr2 _%f88808%_ _%iv88802%_ _%lst188803%_ _%lst288804%_)) (begin (raise-contract-violation-error '"contract violation" @@ -439,77 +437,75 @@ 'contract: 'procedure? 'value: - _%f87669%_) + _%f88801%_) '#!void)))) (define __foldr2 - (lambda (_%f87583%_ _%iv87584%_ _%lst187585%_ _%lst287586%_) - (let ((_%f87589%_ _%f87583%_)) - (let _%recur87598%_ ((_%rest187600%_ _%lst187585%_) - (_%rest287601%_ _%lst287586%_)) - (let* ((_%rest18760287610%_ _%rest187600%_) - (_%else8760487618%_ (lambda () _%iv87584%_)) - (_%K8760687657%_ - (lambda (_%rest187621%_ _%x187622%_) - (let* ((_%rest28762387631%_ _%rest287601%_) - (_%else8762587639%_ (lambda () _%iv87584%_)) - (_%K8762787645%_ - (lambda (_%rest287642%_ _%x287643%_) - (let ((__tmp89988 - (_%recur87598%_ - _%rest187621%_ - _%rest287642%_))) + (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%_))) (declare (not safe)) - (_%f87589%_ - _%x187622%_ - _%x287643%_ - __tmp89988))))) - (if (let () - (declare (not safe)) - (##pair? _%rest28762387631%_)) - (let ((_%hd8762887648%_ + (_%f88721%_ + _%x188754%_ + _%x288775%_ + __tmp91120))))) + (if (pair? _%rest28875588763%_) + (let ((_%hd8876088780%_ (let () (declare (not safe)) - (##car _%rest28762387631%_))) - (_%tl8762987650%_ + (##car _%rest28875588763%_))) + (_%tl8876188782%_ (let () (declare (not safe)) - (##cdr _%rest28762387631%_)))) - (let* ((_%x287653%_ _%hd8762887648%_) - (_%rest287655%_ _%tl8762987650%_)) - (_%K8762787645%_ _%rest287655%_ _%x287653%_))) - (_%else8762587639%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest18760287610%_)) - (let ((_%hd8760787660%_ + (##cdr _%rest28875588763%_)))) + (let* ((_%x288785%_ _%hd8876088780%_) + (_%rest288787%_ _%tl8876188782%_)) + (_%K8875988777%_ _%rest288787%_ _%x288785%_))) + (_%else8875788771%_)))))) + (if (pair? _%rest18873488742%_) + (let ((_%hd8873988792%_ (let () (declare (not safe)) - (##car _%rest18760287610%_))) - (_%tl8760887662%_ + (##car _%rest18873488742%_))) + (_%tl8874088794%_ (let () (declare (not safe)) - (##cdr _%rest18760287610%_)))) - (let* ((_%x187665%_ _%hd8760787660%_) - (_%rest187667%_ _%tl8760887662%_)) - (_%K8760687657%_ _%rest187667%_ _%x187665%_))) - (_%else8760487618%_))))))) + (##cdr _%rest18873488742%_)))) + (let* ((_%x188797%_ _%hd8873988792%_) + (_%rest188799%_ _%tl8874088794%_)) + (_%K8873888789%_ _%rest188799%_ _%x188797%_))) + (_%else8873688750%_))))))) (define foldr - (lambda _g89990_ - (let ((_g89989_ (let () (declare (not safe)) (##length _g89990_)))) - (cond ((let () (declare (not safe)) (##fx= _g89989_ 3)) - (apply foldr1 _g89990_)) - ((let () (declare (not safe)) (##fx= _g89989_ 4)) - (apply foldr2 _g89990_)) - ((let () (declare (not safe)) (##fx>= _g89989_ 4)) - (apply foldr* _g89990_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g89990_)))))) + _g91122_)))))) (define foldr* - (lambda (_%f87552%_ _%iv87553%_ . _%rest87554%_) - (if (procedure? _%f87552%_) - (let ((_%f87558%_ _%f87552%_)) + (lambda (_%f88684%_ _%iv88685%_ . _%rest88686%_) + (if (procedure? _%f88684%_) + (let ((_%f88690%_ _%f88684%_)) (declare (not safe)) - (##apply __foldr* _%f87558%_ _%iv87553%_ _%rest87554%_)) + (##apply __foldr* _%f88690%_ _%iv88685%_ _%rest88686%_)) (begin (raise-contract-violation-error '"contract violation" @@ -518,109 +514,105 @@ 'contract: 'procedure? 'value: - _%f87552%_) + _%f88684%_) '#!void)))) (define __foldr* - (lambda (_%f87531%_ _%iv87532%_ . _%rest87533%_) - (let ((_%f87536%_ _%f87531%_)) - (let _%recur87545%_ ((_%rest87547%_ _%rest87533%_)) - (if (__andmap1 pair? _%rest87547%_) - (let ((__tmp89991 + (lambda (_%f88663%_ _%iv88664%_ . _%rest88665%_) + (let ((_%f88668%_ _%f88663%_)) + (let _%recur88677%_ ((_%rest88679%_ _%rest88665%_)) + (if (__andmap1 pair? _%rest88679%_) + (let ((__tmp91123 (__foldr1 - (lambda (_%xs87549%_ _%r87550%_) - (cons (car _%xs87549%_) _%r87550%_)) - (list (_%recur87545%_ (map cdr _%rest87547%_))) - _%rest87547%_))) + (lambda (_%xs88681%_ _%r88682%_) + (cons (car _%xs88681%_) _%r88682%_)) + (list (_%recur88677%_ (map cdr _%rest88679%_))) + _%rest88679%_))) (declare (not safe)) - (##apply _%f87536%_ __tmp89991)) - _%iv87532%_))))) + (##apply _%f88668%_ __tmp91123)) + _%iv88664%_))))) (define remove-nulls! - (lambda (_%l87418%_) - (let* ((_%l8741987432%_ _%l87418%_) - (_%E8742387436%_ + (lambda (_%l88550%_) + (let* ((_%l8855188564%_ _%l88550%_) + (_%E8855588568%_ (lambda () (error '"No clause matching" - _%l8741987432%_ + _%l8855188564%_ '([[] . r]) '([_ . r]) '(_)) '#!void))) - (let ((_%K8742887521%_ - (lambda (_%r87519%_) (remove-nulls! _%r87519%_))) - (_%K8742587508%_ - (lambda (_%r87448%_) - (let _%loop87450%_ ((_%l87452%_ _%l87418%_) - (_%r87453%_ _%r87448%_)) - (let* ((_%r8745487467%_ _%r87453%_) - (_%E8745887471%_ + (let ((_%K8856088653%_ + (lambda (_%r88651%_) (remove-nulls! _%r88651%_))) + (_%K8855788640%_ + (lambda (_%r88580%_) + (let _%loop88582%_ ((_%l88584%_ _%l88550%_) + (_%r88585%_ _%r88580%_)) + (let* ((_%r8858688599%_ _%r88585%_) + (_%E8859088603%_ (lambda () (error '"No clause matching" - _%r8745487467%_ + _%r8858688599%_ '([[] . rr]) '([_ . rr]) '(_)) '#!void))) - (let ((_%K8746387498%_ - (lambda (_%rr87496%_) - (let ((__tmp89993 _%l87452%_) - (__tmp89992 (remove-nulls! _%rr87496%_))) + (let ((_%K8859588630%_ + (lambda (_%rr88628%_) + (let ((__tmp91125 _%l88584%_) + (__tmp91124 (remove-nulls! _%rr88628%_))) (declare (not safe)) - (##set-cdr! __tmp89993 __tmp89992)))) - (_%K8746087485%_ - (lambda (_%rr87483%_) - (_%loop87450%_ _%r87453%_ _%rr87483%_))) - (_%K8745987476%_ (lambda () '#!void))) - (if (let () - (declare (not safe)) - (##pair? _%r8745487467%_)) - (let ((_%tl8746587503%_ + (##set-cdr! __tmp91125 __tmp91124)))) + (_%K8859288617%_ + (lambda (_%rr88615%_) + (_%loop88582%_ _%r88585%_ _%rr88615%_))) + (_%K8859188608%_ (lambda () '#!void))) + (if (pair? _%r8858688599%_) + (let ((_%tl8859788635%_ (let () (declare (not safe)) - (##cdr _%r8745487467%_))) - (_%hd8746487501%_ + (##cdr _%r8858688599%_))) + (_%hd8859688633%_ (let () (declare (not safe)) - (##car _%r8745487467%_)))) - (if (let () - (declare (not safe)) - (##null? _%hd8746487501%_)) - (let ((_%rr87506%_ _%tl8746587503%_)) - (_%K8746387498%_ _%rr87506%_)) - (let ((_%rr87491%_ _%tl8746587503%_)) - (_%K8746087485%_ _%rr87491%_)))) + (##car _%r8858688599%_)))) + (if (null? _%hd8859688633%_) + (let ((_%rr88638%_ _%tl8859788635%_)) + (_%K8859588630%_ _%rr88638%_)) + (let ((_%rr88623%_ _%tl8859788635%_)) + (_%K8859288617%_ _%rr88623%_)))) '#!void)))) - _%l87418%_)) - (_%K8742487441%_ (lambda () _%l87418%_))) - (if (let () (declare (not safe)) (##pair? _%l8741987432%_)) - (let ((_%tl8743087526%_ - (let () (declare (not safe)) (##cdr _%l8741987432%_))) - (_%hd8742987524%_ - (let () (declare (not safe)) (##car _%l8741987432%_)))) - (if (let () (declare (not safe)) (##null? _%hd8742987524%_)) - (let ((_%r87529%_ _%tl8743087526%_)) - (remove-nulls! _%r87529%_)) - (let ((_%r87514%_ _%tl8743087526%_)) - (_%K8742587508%_ _%r87514%_)))) - (_%K8742487441%_)))))) + _%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%_)))))) (define append1! - (lambda (_%l87403%_ _%x87404%_) - (let ((_%l287407%_ (cons _%x87404%_ '()))) - (if (pair? _%l87403%_) - (let ((_%l87409%_ _%l87403%_)) - (let ((__tmp89994 - (let () (declare (not safe)) (##last-pair _%l87409%_)))) + (lambda (_%l88535%_ _%x88536%_) + (let ((_%l288539%_ (cons _%x88536%_ '()))) + (if (pair? _%l88535%_) + (let ((_%l88541%_ _%l88535%_)) + (let ((__tmp91126 + (let () (declare (not safe)) (##last-pair _%l88541%_)))) (declare (not safe)) - (##set-cdr! __tmp89994 _%l287407%_)) - _%l87409%_) - _%l287407%_)))) + (##set-cdr! __tmp91126 _%l288539%_)) + _%l88541%_) + _%l288539%_)))) (define append-reverse-until - (lambda (_%pred87387%_ _%rhead87388%_ _%tail87389%_) - (if (procedure? _%pred87387%_) - (let ((_%pred87393%_ _%pred87387%_)) + (lambda (_%pred88519%_ _%rhead88520%_ _%tail88521%_) + (if (procedure? _%pred88519%_) + (let ((_%pred88525%_ _%pred88519%_)) (__append-reverse-until - _%pred87393%_ - _%rhead87388%_ - _%tail87389%_)) + _%pred88525%_ + _%rhead88520%_ + _%tail88521%_)) (begin (raise-contract-violation-error '"contract violation" @@ -629,57 +621,53 @@ 'contract: 'procedure? 'value: - _%pred87387%_) + _%pred88519%_) '#!void)))) (define __append-reverse-until - (lambda (_%pred87329%_ _%rhead87330%_ _%tail87331%_) - (let ((_%pred87334%_ _%pred87329%_)) - (let _%loop87343%_ ((_%rhead87345%_ _%rhead87330%_) - (_%tail87346%_ _%tail87331%_)) - (let* ((_%rhead8734887357%_ _%rhead87345%_) - (_%E8735187361%_ + (lambda (_%pred88461%_ _%rhead88462%_ _%tail88463%_) + (let ((_%pred88466%_ _%pred88461%_)) + (let _%loop88475%_ ((_%rhead88477%_ _%rhead88462%_) + (_%tail88478%_ _%tail88463%_)) + (let* ((_%rhead8848088489%_ _%rhead88477%_) + (_%E8848388493%_ (lambda () (error '"No clause matching" - _%rhead8734887357%_ + _%rhead8848088489%_ '([]) '([a :: r])) '#!void))) - (let ((_%K8735587384%_ (lambda () (values '() _%tail87346%_))) - (_%K8735287368%_ - (lambda (_%r87365%_ _%a87366%_) + (let ((_%K8848788516%_ (lambda () (values '() _%tail88478%_))) + (_%K8848488500%_ + (lambda (_%r88497%_ _%a88498%_) (if (let () (declare (not safe)) - (_%pred87334%_ _%a87366%_)) - (values _%rhead87345%_ _%tail87346%_) - (_%loop87343%_ - _%r87365%_ - (cons _%a87366%_ _%tail87346%_)))))) - (let ((_%try-match8735087380%_ + (_%pred88466%_ _%a88498%_)) + (values _%rhead88477%_ _%tail88478%_) + (_%loop88475%_ + _%r88497%_ + (cons _%a88498%_ _%tail88478%_)))))) + (let ((_%try-match8848288512%_ (lambda () - (if (let () - (declare (not safe)) - (##pair? _%rhead8734887357%_)) - (let ((_%tl8735487373%_ + (if (pair? _%rhead8848088489%_) + (let ((_%tl8848688505%_ (let () (declare (not safe)) - (##cdr _%rhead8734887357%_))) - (_%hd8735387371%_ + (##cdr _%rhead8848088489%_))) + (_%hd8848588503%_ (let () (declare (not safe)) - (##car _%rhead8734887357%_)))) - (let ((_%a87376%_ _%hd8735387371%_) - (_%r87378%_ _%tl8735487373%_)) - (_%K8735287368%_ _%r87378%_ _%a87376%_))) - (_%E8735187361%_))))) - (if (let () - (declare (not safe)) - (##null? _%rhead8734887357%_)) - (_%K8735587384%_) - (_%try-match8735087380%_))))))))) + (##car _%rhead8848088489%_)))) + (let ((_%a88508%_ _%hd8848588503%_) + (_%r88510%_ _%tl8848688505%_)) + (_%K8848488500%_ _%r88510%_ _%a88508%_))) + (_%E8848388493%_))))) + (if (null? _%rhead8848088489%_) + (_%K8848788516%_) + (_%try-match8848288512%_))))))))) (define andmap1 - (lambda (_%f87314%_ _%lst87315%_) - (if (procedure? _%f87314%_) - (let ((_%f87319%_ _%f87314%_)) (__andmap1 _%f87319%_ _%lst87315%_)) + (lambda (_%f88446%_ _%lst88447%_) + (if (procedure? _%f88446%_) + (let ((_%f88451%_ _%f88446%_)) (__andmap1 _%f88451%_ _%lst88447%_)) (begin (raise-contract-violation-error '"contract violation" @@ -688,37 +676,37 @@ 'contract: 'procedure? 'value: - _%f87314%_) + _%f88446%_) '#!void)))) (define __andmap1 - (lambda (_%f87263%_ _%lst87264%_) - (let ((_%f87267%_ _%f87263%_)) - (let _%lp87276%_ ((_%rest87278%_ _%lst87264%_)) - (let* ((_%rest8728087288%_ _%rest87278%_) - (_%else8728287296%_ (lambda () '#t)) - (_%K8728487302%_ - (lambda (_%rest87299%_ _%x87300%_) - (if (let () (declare (not safe)) (_%f87267%_ _%x87300%_)) - (_%lp87276%_ _%rest87299%_) + (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%_) '#f)))) - (if (let () (declare (not safe)) (##pair? _%rest8728087288%_)) - (let ((_%hd8728587305%_ + (if (pair? _%rest8841288420%_) + (let ((_%hd8841788437%_ (let () (declare (not safe)) - (##car _%rest8728087288%_))) - (_%tl8728687307%_ + (##car _%rest8841288420%_))) + (_%tl8841888439%_ (let () (declare (not safe)) - (##cdr _%rest8728087288%_)))) - (let* ((_%x87310%_ _%hd8728587305%_) - (_%rest87312%_ _%tl8728687307%_)) - (_%K8728487302%_ _%rest87312%_ _%x87310%_))) - (_%else8728287296%_))))))) + (##cdr _%rest8841288420%_)))) + (let* ((_%x88442%_ _%hd8841788437%_) + (_%rest88444%_ _%tl8841888439%_)) + (_%K8841688434%_ _%rest88444%_ _%x88442%_))) + (_%else8841488428%_))))))) (define andmap2 - (lambda (_%f87247%_ _%lst187248%_ _%lst287249%_) - (if (procedure? _%f87247%_) - (let ((_%f87253%_ _%f87247%_)) - (__andmap2 _%f87253%_ _%lst187248%_ _%lst287249%_)) + (lambda (_%f88379%_ _%lst188380%_ _%lst288381%_) + (if (procedure? _%f88379%_) + (let ((_%f88385%_ _%f88379%_)) + (__andmap2 _%f88385%_ _%lst188380%_ _%lst288381%_)) (begin (raise-contract-violation-error '"contract violation" @@ -727,73 +715,71 @@ 'contract: 'procedure? 'value: - _%f87247%_) + _%f88379%_) '#!void)))) (define __andmap2 - (lambda (_%f87161%_ _%lst187162%_ _%lst287163%_) - (let ((_%f87166%_ _%f87161%_)) - (let _%lp87175%_ ((_%rest187177%_ _%lst187162%_) - (_%rest287178%_ _%lst287163%_)) - (let* ((_%rest18718087188%_ _%rest187177%_) - (_%else8718287196%_ (lambda () '#t)) - (_%K8718487235%_ - (lambda (_%rest187199%_ _%x187200%_) - (let* ((_%rest28720187209%_ _%rest287178%_) - (_%else8720387217%_ (lambda () '#t)) - (_%K8720587223%_ - (lambda (_%rest287220%_ _%x287221%_) + (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%_) (if (let () (declare (not safe)) - (_%f87166%_ _%x187200%_ _%x287221%_)) - (_%lp87175%_ _%rest187199%_ _%rest287220%_) + (_%f88298%_ _%x188332%_ _%x288353%_)) + (_%lp88307%_ _%rest188331%_ _%rest288352%_) '#f)))) - (if (let () - (declare (not safe)) - (##pair? _%rest28720187209%_)) - (let ((_%hd8720687226%_ + (if (pair? _%rest28833388341%_) + (let ((_%hd8833888358%_ (let () (declare (not safe)) - (##car _%rest28720187209%_))) - (_%tl8720787228%_ + (##car _%rest28833388341%_))) + (_%tl8833988360%_ (let () (declare (not safe)) - (##cdr _%rest28720187209%_)))) - (let* ((_%x287231%_ _%hd8720687226%_) - (_%rest287233%_ _%tl8720787228%_)) - (_%K8720587223%_ _%rest287233%_ _%x287231%_))) - (_%else8720387217%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest18718087188%_)) - (let ((_%hd8718587238%_ + (##cdr _%rest28833388341%_)))) + (let* ((_%x288363%_ _%hd8833888358%_) + (_%rest288365%_ _%tl8833988360%_)) + (_%K8833788355%_ _%rest288365%_ _%x288363%_))) + (_%else8833588349%_)))))) + (if (pair? _%rest18831288320%_) + (let ((_%hd8831788370%_ (let () (declare (not safe)) - (##car _%rest18718087188%_))) - (_%tl8718687240%_ + (##car _%rest18831288320%_))) + (_%tl8831888372%_ (let () (declare (not safe)) - (##cdr _%rest18718087188%_)))) - (let* ((_%x187243%_ _%hd8718587238%_) - (_%rest187245%_ _%tl8718687240%_)) - (_%K8718487235%_ _%rest187245%_ _%x187243%_))) - (_%else8718287196%_))))))) + (##cdr _%rest18831288320%_)))) + (let* ((_%x188375%_ _%hd8831788370%_) + (_%rest188377%_ _%tl8831888372%_)) + (_%K8831688367%_ _%rest188377%_ _%x188375%_))) + (_%else8831488328%_))))))) (define andmap - (lambda _g89996_ - (let ((_g89995_ (let () (declare (not safe)) (##length _g89996_)))) - (cond ((let () (declare (not safe)) (##fx= _g89995_ 2)) - (apply andmap1 _g89996_)) - ((let () (declare (not safe)) (##fx= _g89995_ 3)) - (apply andmap2 _g89996_)) - ((let () (declare (not safe)) (##fx>= _g89995_ 3)) - (apply andmap* _g89996_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g89996_)))))) + _g91128_)))))) (define andmap* - (lambda (_%f87134%_ . _%rest87135%_) - (if (procedure? _%f87134%_) - (let ((_%f87139%_ _%f87134%_)) + (lambda (_%f88266%_ . _%rest88267%_) + (if (procedure? _%f88266%_) + (let ((_%f88271%_ _%f88266%_)) (declare (not safe)) - (##apply __andmap* _%f87139%_ _%rest87135%_)) + (##apply __andmap* _%f88271%_ _%rest88267%_)) (begin (raise-contract-violation-error '"contract violation" @@ -802,23 +788,23 @@ 'contract: 'procedure? 'value: - _%f87134%_) + _%f88266%_) '#!void)))) (define __andmap* - (lambda (_%f87116%_ . _%rest87117%_) - (let ((_%f87120%_ _%f87116%_)) - (let _%recur87129%_ ((_%rest87131%_ _%rest87117%_)) - (if (__andmap1 pair? _%rest87131%_) - (if (let ((__tmp89997 (map car _%rest87131%_))) + (lambda (_%f88248%_ . _%rest88249%_) + (let ((_%f88252%_ _%f88248%_)) + (let _%recur88261%_ ((_%rest88263%_ _%rest88249%_)) + (if (__andmap1 pair? _%rest88263%_) + (if (let ((__tmp91129 (map car _%rest88263%_))) (declare (not safe)) - (##apply _%f87120%_ __tmp89997)) - (_%recur87129%_ (map cdr _%rest87131%_)) + (##apply _%f88252%_ __tmp91129)) + (_%recur88261%_ (map cdr _%rest88263%_)) '#f) '#t))))) (define ormap1 - (lambda (_%f87101%_ _%lst87102%_) - (if (procedure? _%f87101%_) - (let ((_%f87106%_ _%f87101%_)) (__ormap1 _%f87106%_ _%lst87102%_)) + (lambda (_%f88233%_ _%lst88234%_) + (if (procedure? _%f88233%_) + (let ((_%f88238%_ _%f88233%_)) (__ormap1 _%f88238%_ _%lst88234%_)) (begin (raise-contract-violation-error '"contract violation" @@ -827,41 +813,41 @@ 'contract: 'procedure? 'value: - _%f87101%_) + _%f88233%_) '#!void)))) (define __ormap1 - (lambda (_%f87048%_ _%lst87049%_) - (let ((_%f87052%_ _%f87048%_)) - (let _%lp87061%_ ((_%rest87063%_ _%lst87049%_)) - (let* ((_%rest8706487072%_ _%rest87063%_) - (_%else8706687080%_ (lambda () '#f)) - (_%K8706887089%_ - (lambda (_%rest87083%_ _%x87084%_) - (let ((_%$e87086%_ + (lambda (_%f88180%_ _%lst88181%_) + (let ((_%f88184%_ _%f88180%_)) + (let _%lp88193%_ ((_%rest88195%_ _%lst88181%_)) + (let* ((_%rest8819688204%_ _%rest88195%_) + (_%else8819888212%_ (lambda () '#f)) + (_%K8820088221%_ + (lambda (_%rest88215%_ _%x88216%_) + (let ((_%$e88218%_ (let () (declare (not safe)) - (_%f87052%_ _%x87084%_)))) - (if _%$e87086%_ - _%$e87086%_ - (_%lp87061%_ _%rest87083%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8706487072%_)) - (let ((_%hd8706987092%_ + (_%f88184%_ _%x88216%_)))) + (if _%$e88218%_ + _%$e88218%_ + (_%lp88193%_ _%rest88215%_)))))) + (if (pair? _%rest8819688204%_) + (let ((_%hd8820188224%_ (let () (declare (not safe)) - (##car _%rest8706487072%_))) - (_%tl8707087094%_ + (##car _%rest8819688204%_))) + (_%tl8820288226%_ (let () (declare (not safe)) - (##cdr _%rest8706487072%_)))) - (let* ((_%x87097%_ _%hd8706987092%_) - (_%rest87099%_ _%tl8707087094%_)) - (_%K8706887089%_ _%rest87099%_ _%x87097%_))) - (_%else8706687080%_))))))) + (##cdr _%rest8819688204%_)))) + (let* ((_%x88229%_ _%hd8820188224%_) + (_%rest88231%_ _%tl8820288226%_)) + (_%K8820088221%_ _%rest88231%_ _%x88229%_))) + (_%else8819888212%_))))))) (define ormap2 - (lambda (_%f87032%_ _%lst187033%_ _%lst287034%_) - (if (procedure? _%f87032%_) - (let ((_%f87038%_ _%f87032%_)) - (__ormap2 _%f87038%_ _%lst187033%_ _%lst287034%_)) + (lambda (_%f88164%_ _%lst188165%_ _%lst288166%_) + (if (procedure? _%f88164%_) + (let ((_%f88170%_ _%f88164%_)) + (__ormap2 _%f88170%_ _%lst188165%_ _%lst288166%_)) (begin (raise-contract-violation-error '"contract violation" @@ -870,79 +856,77 @@ 'contract: 'procedure? 'value: - _%f87032%_) + _%f88164%_) '#!void)))) (define __ormap2 - (lambda (_%f86944%_ _%lst186945%_ _%lst286946%_) - (let ((_%f86949%_ _%f86944%_)) - (let _%lp86958%_ ((_%rest186960%_ _%lst186945%_) - (_%rest286961%_ _%lst286946%_)) - (let* ((_%rest18696286970%_ _%rest186960%_) - (_%else8696486978%_ (lambda () '#f)) - (_%K8696687020%_ - (lambda (_%rest186981%_ _%x186982%_) - (let* ((_%rest28698386991%_ _%rest286961%_) - (_%else8698586999%_ (lambda () '#f)) - (_%K8698787008%_ - (lambda (_%rest287002%_ _%x287003%_) - (let ((_%$e87005%_ + (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%_ (let () (declare (not safe)) - (_%f86949%_ - _%x186982%_ - _%x287003%_)))) - (if _%$e87005%_ - _%$e87005%_ - (_%lp86958%_ - _%rest186981%_ - _%rest287002%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest28698386991%_)) - (let ((_%hd8698887011%_ + (_%f88081%_ + _%x188114%_ + _%x288135%_)))) + (if _%$e88137%_ + _%$e88137%_ + (_%lp88090%_ + _%rest188113%_ + _%rest288134%_)))))) + (if (pair? _%rest28811588123%_) + (let ((_%hd8812088143%_ (let () (declare (not safe)) - (##car _%rest28698386991%_))) - (_%tl8698987013%_ + (##car _%rest28811588123%_))) + (_%tl8812188145%_ (let () (declare (not safe)) - (##cdr _%rest28698386991%_)))) - (let* ((_%x287016%_ _%hd8698887011%_) - (_%rest287018%_ _%tl8698987013%_)) - (_%K8698787008%_ _%rest287018%_ _%x287016%_))) - (_%else8698586999%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest18696286970%_)) - (let ((_%hd8696787023%_ + (##cdr _%rest28811588123%_)))) + (let* ((_%x288148%_ _%hd8812088143%_) + (_%rest288150%_ _%tl8812188145%_)) + (_%K8811988140%_ _%rest288150%_ _%x288148%_))) + (_%else8811788131%_)))))) + (if (pair? _%rest18809488102%_) + (let ((_%hd8809988155%_ (let () (declare (not safe)) - (##car _%rest18696286970%_))) - (_%tl8696887025%_ + (##car _%rest18809488102%_))) + (_%tl8810088157%_ (let () (declare (not safe)) - (##cdr _%rest18696286970%_)))) - (let* ((_%x187028%_ _%hd8696787023%_) - (_%rest187030%_ _%tl8696887025%_)) - (_%K8696687020%_ _%rest187030%_ _%x187028%_))) - (_%else8696486978%_))))))) + (##cdr _%rest18809488102%_)))) + (let* ((_%x188160%_ _%hd8809988155%_) + (_%rest188162%_ _%tl8810088157%_)) + (_%K8809888152%_ _%rest188162%_ _%x188160%_))) + (_%else8809688110%_))))))) (define ormap - (lambda _g89999_ - (let ((_g89998_ (let () (declare (not safe)) (##length _g89999_)))) - (cond ((let () (declare (not safe)) (##fx= _g89998_ 2)) - (apply ormap1 _g89999_)) - ((let () (declare (not safe)) (##fx= _g89998_ 3)) - (apply ormap2 _g89999_)) - ((let () (declare (not safe)) (##fx>= _g89998_ 3)) - (apply ormap* _g89999_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g89999_)))))) + _g91131_)))))) (define ormap* - (lambda (_%f86917%_ . _%rest86918%_) - (if (procedure? _%f86917%_) - (let ((_%f86922%_ _%f86917%_)) + (lambda (_%f88049%_ . _%rest88050%_) + (if (procedure? _%f88049%_) + (let ((_%f88054%_ _%f88049%_)) (declare (not safe)) - (##apply __ormap* _%f86922%_ _%rest86918%_)) + (##apply __ormap* _%f88054%_ _%rest88050%_)) (begin (raise-contract-violation-error '"contract violation" @@ -951,26 +935,26 @@ 'contract: 'procedure? 'value: - _%f86917%_) + _%f88049%_) '#!void)))) (define __ormap* - (lambda (_%f86897%_ . _%rest86898%_) - (let ((_%f86901%_ _%f86897%_)) - (let _%recur86910%_ ((_%rest86912%_ _%rest86898%_)) - (if (__andmap1 pair? _%rest86912%_) - (let ((_%$e86914%_ - (let ((__tmp90000 (map car _%rest86912%_))) + (lambda (_%f88029%_ . _%rest88030%_) + (let ((_%f88033%_ _%f88029%_)) + (let _%recur88042%_ ((_%rest88044%_ _%rest88030%_)) + (if (__andmap1 pair? _%rest88044%_) + (let ((_%$e88046%_ + (let ((__tmp91132 (map car _%rest88044%_))) (declare (not safe)) - (##apply _%f86901%_ __tmp90000)))) - (if _%$e86914%_ - _%$e86914%_ - (_%recur86910%_ (map cdr _%rest86912%_)))) + (##apply _%f88033%_ __tmp91132)))) + (if _%$e88046%_ + _%$e88046%_ + (_%recur88042%_ (map cdr _%rest88044%_)))) '#f))))) (define filter-map1 - (lambda (_%f86882%_ _%lst86883%_) - (if (procedure? _%f86882%_) - (let ((_%f86887%_ _%f86882%_)) - (__filter-map1 _%f86887%_ _%lst86883%_)) + (lambda (_%f88014%_ _%lst88015%_) + (if (procedure? _%f88014%_) + (let ((_%f88019%_ _%f88014%_)) + (__filter-map1 _%f88019%_ _%lst88015%_)) (begin (raise-contract-violation-error '"contract violation" @@ -979,44 +963,44 @@ 'contract: 'procedure? 'value: - _%f86882%_) + _%f88014%_) '#!void)))) (define __filter-map1 - (lambda (_%f86825%_ _%lst86826%_) - (let ((_%f86829%_ _%f86825%_)) - (let _%recur86838%_ ((_%rest86840%_ _%lst86826%_)) - (let* ((_%rest8684286850%_ _%rest86840%_) - (_%else8684486858%_ (lambda () '())) - (_%K8684686870%_ - (lambda (_%rest86861%_ _%x86862%_) - (let ((_%$e86864%_ + (lambda (_%f87957%_ _%lst87958%_) + (let ((_%f87961%_ _%f87957%_)) + (let _%recur87970%_ ((_%rest87972%_ _%lst87958%_)) + (let* ((_%rest8797487982%_ _%rest87972%_) + (_%else8797687990%_ (lambda () '())) + (_%K8797888002%_ + (lambda (_%rest87993%_ _%x87994%_) + (let ((_%$e87996%_ (let () (declare (not safe)) - (_%f86829%_ _%x86862%_)))) - (if _%$e86864%_ - ((lambda (_%r86867%_) - (cons _%r86867%_ - (_%recur86838%_ _%rest86861%_))) - _%$e86864%_) - (_%recur86838%_ _%rest86861%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8684286850%_)) - (let ((_%hd8684786873%_ + (_%f87961%_ _%x87994%_)))) + (if _%$e87996%_ + ((lambda (_%r87999%_) + (cons _%r87999%_ + (_%recur87970%_ _%rest87993%_))) + _%$e87996%_) + (_%recur87970%_ _%rest87993%_)))))) + (if (pair? _%rest8797487982%_) + (let ((_%hd8797988005%_ (let () (declare (not safe)) - (##car _%rest8684286850%_))) - (_%tl8684886875%_ + (##car _%rest8797487982%_))) + (_%tl8798088007%_ (let () (declare (not safe)) - (##cdr _%rest8684286850%_)))) - (let* ((_%x86878%_ _%hd8684786873%_) - (_%rest86880%_ _%tl8684886875%_)) - (_%K8684686870%_ _%rest86880%_ _%x86878%_))) - (_%else8684486858%_))))))) + (##cdr _%rest8797487982%_)))) + (let* ((_%x88010%_ _%hd8797988005%_) + (_%rest88012%_ _%tl8798088007%_)) + (_%K8797888002%_ _%rest88012%_ _%x88010%_))) + (_%else8797687990%_))))))) (define filter-map2 - (lambda (_%f86809%_ _%lst186810%_ _%lst286811%_) - (if (procedure? _%f86809%_) - (let ((_%f86815%_ _%f86809%_)) - (__filter-map2 _%f86815%_ _%lst186810%_ _%lst286811%_)) + (lambda (_%f87941%_ _%lst187942%_ _%lst287943%_) + (if (procedure? _%f87941%_) + (let ((_%f87947%_ _%f87941%_)) + (__filter-map2 _%f87947%_ _%lst187942%_ _%lst287943%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1025,84 +1009,82 @@ 'contract: 'procedure? 'value: - _%f86809%_) + _%f87941%_) '#!void)))) (define __filter-map2 - (lambda (_%f86717%_ _%lst186718%_ _%lst286719%_) - (let ((_%f86722%_ _%f86717%_)) - (let _%recur86731%_ ((_%rest186733%_ _%lst186718%_) - (_%rest286734%_ _%lst286719%_)) - (let* ((_%rest18673686744%_ _%rest186733%_) - (_%else8673886752%_ (lambda () '())) - (_%K8674086797%_ - (lambda (_%rest186755%_ _%x186756%_) - (let* ((_%rest28675786765%_ _%rest286734%_) - (_%else8675986773%_ (lambda () '())) - (_%K8676186785%_ - (lambda (_%rest286776%_ _%x286777%_) - (let ((_%$e86779%_ + (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%_ (let () (declare (not safe)) - (_%f86722%_ - _%x186756%_ - _%x286777%_)))) - (if _%$e86779%_ - ((lambda (_%r86782%_) - (cons _%r86782%_ - (_%recur86731%_ - _%rest186755%_ - _%rest286776%_))) - _%$e86779%_) - (_%recur86731%_ - _%rest186755%_ - _%rest286776%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest28675786765%_)) - (let ((_%hd8676286788%_ + (_%f87854%_ + _%x187888%_ + _%x287909%_)))) + (if _%$e87911%_ + ((lambda (_%r87914%_) + (cons _%r87914%_ + (_%recur87863%_ + _%rest187887%_ + _%rest287908%_))) + _%$e87911%_) + (_%recur87863%_ + _%rest187887%_ + _%rest287908%_)))))) + (if (pair? _%rest28788987897%_) + (let ((_%hd8789487920%_ (let () (declare (not safe)) - (##car _%rest28675786765%_))) - (_%tl8676386790%_ + (##car _%rest28788987897%_))) + (_%tl8789587922%_ (let () (declare (not safe)) - (##cdr _%rest28675786765%_)))) - (let* ((_%x286793%_ _%hd8676286788%_) - (_%rest286795%_ _%tl8676386790%_)) - (_%K8676186785%_ _%rest286795%_ _%x286793%_))) - (_%else8675986773%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest18673686744%_)) - (let ((_%hd8674186800%_ + (##cdr _%rest28788987897%_)))) + (let* ((_%x287925%_ _%hd8789487920%_) + (_%rest287927%_ _%tl8789587922%_)) + (_%K8789387917%_ _%rest287927%_ _%x287925%_))) + (_%else8789187905%_)))))) + (if (pair? _%rest18786887876%_) + (let ((_%hd8787387932%_ (let () (declare (not safe)) - (##car _%rest18673686744%_))) - (_%tl8674286802%_ + (##car _%rest18786887876%_))) + (_%tl8787487934%_ (let () (declare (not safe)) - (##cdr _%rest18673686744%_)))) - (let* ((_%x186805%_ _%hd8674186800%_) - (_%rest186807%_ _%tl8674286802%_)) - (_%K8674086797%_ _%rest186807%_ _%x186805%_))) - (_%else8673886752%_))))))) + (##cdr _%rest18786887876%_)))) + (let* ((_%x187937%_ _%hd8787387932%_) + (_%rest187939%_ _%tl8787487934%_)) + (_%K8787287929%_ _%rest187939%_ _%x187937%_))) + (_%else8787087884%_))))))) (define filter-map - (lambda _g90002_ - (let ((_g90001_ (let () (declare (not safe)) (##length _g90002_)))) - (cond ((let () (declare (not safe)) (##fx= _g90001_ 2)) - (apply filter-map1 _g90002_)) - ((let () (declare (not safe)) (##fx= _g90001_ 3)) - (apply filter-map2 _g90002_)) - ((let () (declare (not safe)) (##fx>= _g90001_ 3)) - (apply filter-map* _g90002_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g90002_)))))) + _g91134_)))))) (define filter-map* - (lambda (_%f86690%_ . _%rest86691%_) - (if (procedure? _%f86690%_) - (let ((_%f86695%_ _%f86690%_)) + (lambda (_%f87822%_ . _%rest87823%_) + (if (procedure? _%f87822%_) + (let ((_%f87827%_ _%f87822%_)) (declare (not safe)) - (##apply __filter-map* _%f86695%_ _%rest86691%_)) + (##apply __filter-map* _%f87827%_ _%rest87823%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1111,280 +1093,274 @@ 'contract: 'procedure? 'value: - _%f86690%_) + _%f87822%_) '#!void)))) (define __filter-map* - (lambda (_%f86666%_ . _%rest86667%_) - (let ((_%f86670%_ _%f86666%_)) - (let _%recur86679%_ ((_%rest86681%_ _%rest86667%_)) - (if (__andmap1 pair? _%rest86681%_) - (let ((_%$e86684%_ - (let ((__tmp90003 (map car _%rest86681%_))) + (lambda (_%f87798%_ . _%rest87799%_) + (let ((_%f87802%_ _%f87798%_)) + (let _%recur87811%_ ((_%rest87813%_ _%rest87799%_)) + (if (__andmap1 pair? _%rest87813%_) + (let ((_%$e87816%_ + (let ((__tmp91135 (map car _%rest87813%_))) (declare (not safe)) - (##apply _%f86670%_ __tmp90003)))) - (if _%$e86684%_ - ((lambda (_%r86687%_) - (cons _%r86687%_ - (_%recur86679%_ (map cdr _%rest86681%_)))) - _%$e86684%_) - (_%recur86679%_ (map cdr _%rest86681%_)))) + (##apply _%f87802%_ __tmp91135)))) + (if _%$e87816%_ + ((lambda (_%r87819%_) + (cons _%r87819%_ + (_%recur87811%_ (map cdr _%rest87813%_)))) + _%$e87816%_) + (_%recur87811%_ (map cdr _%rest87813%_)))) '()))))) (define agetq__% - (lambda (_%key86642%_ _%lst86644%_ _%default86646%_) - (let ((_%$e86649%_ - (if (pair? _%lst86644%_) (assq _%key86642%_ _%lst86644%_) '#f))) - (if _%$e86649%_ - (cdr _%$e86649%_) - (if (procedure? _%default86646%_) - (_%default86646%_ _%key86642%_) - _%default86646%_))))) + (lambda (_%key87774%_ _%lst87776%_ _%default87778%_) + (let ((_%$e87781%_ + (if (pair? _%lst87776%_) (assq _%key87774%_ _%lst87776%_) '#f))) + (if _%$e87781%_ + (cdr _%$e87781%_) + (if (procedure? _%default87778%_) + (_%default87778%_ _%key87774%_) + _%default87778%_))))) (define agetq__0 - (lambda (_%key86657%_ _%lst86658%_) - (let ((_%default86660%_ '#f)) - (agetq__% _%key86657%_ _%lst86658%_ _%default86660%_)))) + (lambda (_%key87789%_ _%lst87790%_) + (let ((_%default87792%_ '#f)) + (agetq__% _%key87789%_ _%lst87790%_ _%default87792%_)))) (define agetq - (lambda _g90005_ - (let ((_g90004_ (let () (declare (not safe)) (##length _g90005_)))) - (cond ((let () (declare (not safe)) (##fx= _g90004_ 2)) - (apply agetq__0 _g90005_)) - ((let () (declare (not safe)) (##fx= _g90004_ 3)) - (apply agetq__% _g90005_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception agetq - _g90005_)))))) + _g91137_)))))) (define agetv__% - (lambda (_%key86617%_ _%lst86619%_ _%default86621%_) - (let ((_%$e86624%_ - (if (pair? _%lst86619%_) (assv _%key86617%_ _%lst86619%_) '#f))) - (if _%$e86624%_ - (cdr _%$e86624%_) - (if (procedure? _%default86621%_) - (_%default86621%_ _%key86617%_) - _%default86621%_))))) + (lambda (_%key87749%_ _%lst87751%_ _%default87753%_) + (let ((_%$e87756%_ + (if (pair? _%lst87751%_) (assv _%key87749%_ _%lst87751%_) '#f))) + (if _%$e87756%_ + (cdr _%$e87756%_) + (if (procedure? _%default87753%_) + (_%default87753%_ _%key87749%_) + _%default87753%_))))) (define agetv__0 - (lambda (_%key86632%_ _%lst86633%_) - (let ((_%default86635%_ '#f)) - (agetv__% _%key86632%_ _%lst86633%_ _%default86635%_)))) + (lambda (_%key87764%_ _%lst87765%_) + (let ((_%default87767%_ '#f)) + (agetv__% _%key87764%_ _%lst87765%_ _%default87767%_)))) (define agetv - (lambda _g90007_ - (let ((_g90006_ (let () (declare (not safe)) (##length _g90007_)))) - (cond ((let () (declare (not safe)) (##fx= _g90006_ 2)) - (apply agetv__0 _g90007_)) - ((let () (declare (not safe)) (##fx= _g90006_ 3)) - (apply agetv__% _g90007_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception agetv - _g90007_)))))) + _g91139_)))))) (define aget__% - (lambda (_%key86592%_ _%lst86594%_ _%default86596%_) - (let ((_%$e86599%_ - (if (pair? _%lst86594%_) - (assoc _%key86592%_ _%lst86594%_) + (lambda (_%key87724%_ _%lst87726%_ _%default87728%_) + (let ((_%$e87731%_ + (if (pair? _%lst87726%_) + (assoc _%key87724%_ _%lst87726%_) '#f))) - (if _%$e86599%_ - (cdr _%$e86599%_) - (if (procedure? _%default86596%_) - (_%default86596%_ _%key86592%_) - _%default86596%_))))) + (if _%$e87731%_ + (cdr _%$e87731%_) + (if (procedure? _%default87728%_) + (_%default87728%_ _%key87724%_) + _%default87728%_))))) (define aget__0 - (lambda (_%key86607%_ _%lst86608%_) - (let ((_%default86610%_ '#f)) - (aget__% _%key86607%_ _%lst86608%_ _%default86610%_)))) + (lambda (_%key87739%_ _%lst87740%_) + (let ((_%default87742%_ '#f)) + (aget__% _%key87739%_ _%lst87740%_ _%default87742%_)))) (define aget - (lambda _g90009_ - (let ((_g90008_ (let () (declare (not safe)) (##length _g90009_)))) - (cond ((let () (declare (not safe)) (##fx= _g90008_ 2)) - (apply aget__0 _g90009_)) - ((let () (declare (not safe)) (##fx= _g90008_ 3)) - (apply aget__% _g90009_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception aget - _g90009_)))))) + _g91141_)))))) (define assgetq agetq) (define assgetv agetv) (define assget aget) (define pgetq__% - (lambda (_%key86521%_ _%lst86523%_ _%default86525%_) - (let _%lp86528%_ ((_%rest86531%_ _%lst86523%_)) - (let* ((_%rest8653386543%_ _%rest86531%_) - (_%else8653586551%_ + (lambda (_%key87653%_ _%lst87655%_ _%default87657%_) + (let _%lp87660%_ ((_%rest87663%_ _%lst87655%_)) + (let* ((_%rest8766587675%_ _%rest87663%_) + (_%else8766787683%_ (lambda () - (if (procedure? _%default86525%_) - (_%default86525%_ _%key86521%_) - _%default86525%_))) - (_%K8653786560%_ - (lambda (_%rest86554%_ _%v86555%_ _%k86557%_) - (if (eq? _%k86557%_ _%key86521%_) - _%v86555%_ - (_%lp86528%_ _%rest86554%_))))) - (if (let () (declare (not safe)) (##pair? _%rest8653386543%_)) - (let ((_%hd8653886563%_ + (if (procedure? _%default87657%_) + (_%default87657%_ _%key87653%_) + _%default87657%_))) + (_%K8766987692%_ + (lambda (_%rest87686%_ _%v87687%_ _%k87689%_) + (if (eq? _%k87689%_ _%key87653%_) + _%v87687%_ + (_%lp87660%_ _%rest87686%_))))) + (if (pair? _%rest8766587675%_) + (let ((_%hd8767087695%_ (let () (declare (not safe)) - (##car _%rest8653386543%_))) - (_%tl8653986565%_ + (##car _%rest8766587675%_))) + (_%tl8767187697%_ (let () (declare (not safe)) - (##cdr _%rest8653386543%_)))) - (let ((_%k86568%_ _%hd8653886563%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl8653986565%_)) - (let ((_%hd8654086570%_ + (##cdr _%rest8766587675%_)))) + (let ((_%k87700%_ _%hd8767087695%_)) + (if (pair? _%tl8767187697%_) + (let ((_%hd8767287702%_ (let () (declare (not safe)) - (##car _%tl8653986565%_))) - (_%tl8654186572%_ + (##car _%tl8767187697%_))) + (_%tl8767387704%_ (let () (declare (not safe)) - (##cdr _%tl8653986565%_)))) - (let* ((_%v86575%_ _%hd8654086570%_) - (_%rest86577%_ _%tl8654186572%_)) - (_%K8653786560%_ - _%rest86577%_ - _%v86575%_ - _%k86568%_))) - (_%else8653586551%_)))) - (_%else8653586551%_)))))) + (##cdr _%tl8767187697%_)))) + (let* ((_%v87707%_ _%hd8767287702%_) + (_%rest87709%_ _%tl8767387704%_)) + (_%K8766987692%_ + _%rest87709%_ + _%v87707%_ + _%k87700%_))) + (_%else8766787683%_)))) + (_%else8766787683%_)))))) (define pgetq__0 - (lambda (_%key86582%_ _%lst86583%_) - (let ((_%default86585%_ '#f)) - (pgetq__% _%key86582%_ _%lst86583%_ _%default86585%_)))) + (lambda (_%key87714%_ _%lst87715%_) + (let ((_%default87717%_ '#f)) + (pgetq__% _%key87714%_ _%lst87715%_ _%default87717%_)))) (define pgetq - (lambda _g90011_ - (let ((_g90010_ (let () (declare (not safe)) (##length _g90011_)))) - (cond ((let () (declare (not safe)) (##fx= _g90010_ 2)) - (apply pgetq__0 _g90011_)) - ((let () (declare (not safe)) (##fx= _g90010_ 3)) - (apply pgetq__% _g90011_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g90011_)))))) + _g91143_)))))) (define pgetv__% - (lambda (_%key86450%_ _%lst86452%_ _%default86454%_) - (let _%lp86457%_ ((_%rest86460%_ _%lst86452%_)) - (let* ((_%rest8646286472%_ _%rest86460%_) - (_%else8646486480%_ + (lambda (_%key87582%_ _%lst87584%_ _%default87586%_) + (let _%lp87589%_ ((_%rest87592%_ _%lst87584%_)) + (let* ((_%rest8759487604%_ _%rest87592%_) + (_%else8759687612%_ (lambda () - (if (procedure? _%default86454%_) - (_%default86454%_ _%key86450%_) - _%default86454%_))) - (_%K8646686489%_ - (lambda (_%rest86483%_ _%v86484%_ _%k86486%_) - (if (eqv? _%k86486%_ _%key86450%_) - _%v86484%_ - (_%lp86457%_ _%rest86483%_))))) - (if (let () (declare (not safe)) (##pair? _%rest8646286472%_)) - (let ((_%hd8646786492%_ + (if (procedure? _%default87586%_) + (_%default87586%_ _%key87582%_) + _%default87586%_))) + (_%K8759887621%_ + (lambda (_%rest87615%_ _%v87616%_ _%k87618%_) + (if (eqv? _%k87618%_ _%key87582%_) + _%v87616%_ + (_%lp87589%_ _%rest87615%_))))) + (if (pair? _%rest8759487604%_) + (let ((_%hd8759987624%_ (let () (declare (not safe)) - (##car _%rest8646286472%_))) - (_%tl8646886494%_ + (##car _%rest8759487604%_))) + (_%tl8760087626%_ (let () (declare (not safe)) - (##cdr _%rest8646286472%_)))) - (let ((_%k86497%_ _%hd8646786492%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl8646886494%_)) - (let ((_%hd8646986499%_ + (##cdr _%rest8759487604%_)))) + (let ((_%k87629%_ _%hd8759987624%_)) + (if (pair? _%tl8760087626%_) + (let ((_%hd8760187631%_ (let () (declare (not safe)) - (##car _%tl8646886494%_))) - (_%tl8647086501%_ + (##car _%tl8760087626%_))) + (_%tl8760287633%_ (let () (declare (not safe)) - (##cdr _%tl8646886494%_)))) - (let* ((_%v86504%_ _%hd8646986499%_) - (_%rest86506%_ _%tl8647086501%_)) - (_%K8646686489%_ - _%rest86506%_ - _%v86504%_ - _%k86497%_))) - (_%else8646486480%_)))) - (_%else8646486480%_)))))) + (##cdr _%tl8760087626%_)))) + (let* ((_%v87636%_ _%hd8760187631%_) + (_%rest87638%_ _%tl8760287633%_)) + (_%K8759887621%_ + _%rest87638%_ + _%v87636%_ + _%k87629%_))) + (_%else8759687612%_)))) + (_%else8759687612%_)))))) (define pgetv__0 - (lambda (_%key86511%_ _%lst86512%_) - (let ((_%default86514%_ '#f)) - (pgetv__% _%key86511%_ _%lst86512%_ _%default86514%_)))) + (lambda (_%key87643%_ _%lst87644%_) + (let ((_%default87646%_ '#f)) + (pgetv__% _%key87643%_ _%lst87644%_ _%default87646%_)))) (define pgetv - (lambda _g90013_ - (let ((_g90012_ (let () (declare (not safe)) (##length _g90013_)))) - (cond ((let () (declare (not safe)) (##fx= _g90012_ 2)) - (apply pgetv__0 _g90013_)) - ((let () (declare (not safe)) (##fx= _g90012_ 3)) - (apply pgetv__% _g90013_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g90013_)))))) + _g91145_)))))) (define pget__% - (lambda (_%key86379%_ _%lst86381%_ _%default86383%_) - (let _%lp86386%_ ((_%rest86389%_ _%lst86381%_)) - (let* ((_%rest8639186401%_ _%rest86389%_) - (_%else8639386409%_ + (lambda (_%key87511%_ _%lst87513%_ _%default87515%_) + (let _%lp87518%_ ((_%rest87521%_ _%lst87513%_)) + (let* ((_%rest8752387533%_ _%rest87521%_) + (_%else8752587541%_ (lambda () - (if (procedure? _%default86383%_) - (_%default86383%_ _%key86379%_) - _%default86383%_))) - (_%K8639586418%_ - (lambda (_%rest86412%_ _%v86413%_ _%k86415%_) - (if (equal? _%k86415%_ _%key86379%_) - _%v86413%_ - (_%lp86386%_ _%rest86412%_))))) - (if (let () (declare (not safe)) (##pair? _%rest8639186401%_)) - (let ((_%hd8639686421%_ + (if (procedure? _%default87515%_) + (_%default87515%_ _%key87511%_) + _%default87515%_))) + (_%K8752787550%_ + (lambda (_%rest87544%_ _%v87545%_ _%k87547%_) + (if (equal? _%k87547%_ _%key87511%_) + _%v87545%_ + (_%lp87518%_ _%rest87544%_))))) + (if (pair? _%rest8752387533%_) + (let ((_%hd8752887553%_ (let () (declare (not safe)) - (##car _%rest8639186401%_))) - (_%tl8639786423%_ + (##car _%rest8752387533%_))) + (_%tl8752987555%_ (let () (declare (not safe)) - (##cdr _%rest8639186401%_)))) - (let ((_%k86426%_ _%hd8639686421%_)) - (if (let () - (declare (not safe)) - (##pair? _%tl8639786423%_)) - (let ((_%hd8639886428%_ + (##cdr _%rest8752387533%_)))) + (let ((_%k87558%_ _%hd8752887553%_)) + (if (pair? _%tl8752987555%_) + (let ((_%hd8753087560%_ (let () (declare (not safe)) - (##car _%tl8639786423%_))) - (_%tl8639986430%_ + (##car _%tl8752987555%_))) + (_%tl8753187562%_ (let () (declare (not safe)) - (##cdr _%tl8639786423%_)))) - (let* ((_%v86433%_ _%hd8639886428%_) - (_%rest86435%_ _%tl8639986430%_)) - (_%K8639586418%_ - _%rest86435%_ - _%v86433%_ - _%k86426%_))) - (_%else8639386409%_)))) - (_%else8639386409%_)))))) + (##cdr _%tl8752987555%_)))) + (let* ((_%v87565%_ _%hd8753087560%_) + (_%rest87567%_ _%tl8753187562%_)) + (_%K8752787550%_ + _%rest87567%_ + _%v87565%_ + _%k87558%_))) + (_%else8752587541%_)))) + (_%else8752587541%_)))))) (define pget__0 - (lambda (_%key86440%_ _%lst86441%_) - (let ((_%default86443%_ '#f)) - (pget__% _%key86440%_ _%lst86441%_ _%default86443%_)))) + (lambda (_%key87572%_ _%lst87573%_) + (let ((_%default87575%_ '#f)) + (pget__% _%key87572%_ _%lst87573%_ _%default87575%_)))) (define pget - (lambda _g90015_ - (let ((_g90014_ (let () (declare (not safe)) (##length _g90015_)))) - (cond ((let () (declare (not safe)) (##fx= _g90014_ 2)) - (apply pget__0 _g90015_)) - ((let () (declare (not safe)) (##fx= _g90014_ 3)) - (apply pget__% _g90015_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception pget - _g90015_)))))) + _g91147_)))))) (define find - (lambda (_%pred86363%_ _%lst86364%_) - (if (procedure? _%pred86363%_) - (let ((_%pred86368%_ _%pred86363%_)) - (__find _%pred86368%_ _%lst86364%_)) + (lambda (_%pred87495%_ _%lst87496%_) + (if (procedure? _%pred87495%_) + (let ((_%pred87500%_ _%pred87495%_)) + (__find _%pred87500%_ _%lst87496%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1393,20 +1369,20 @@ 'contract: 'procedure? 'value: - _%pred86363%_) + _%pred87495%_) '#!void)))) (define __find - (lambda (_%pred86346%_ _%lst86347%_) - (let* ((_%pred86350%_ _%pred86346%_) - (_%$e86359%_ (__memf _%pred86350%_ _%lst86347%_))) - (if _%$e86359%_ - (let () (declare (not safe)) (##car _%$e86359%_)) + (lambda (_%pred87478%_ _%lst87479%_) + (let* ((_%pred87482%_ _%pred87478%_) + (_%$e87491%_ (__memf _%pred87482%_ _%lst87479%_))) + (if _%$e87491%_ + (let () (declare (not safe)) (##car _%$e87491%_)) '#f)))) (define memf - (lambda (_%proc86331%_ _%lst86332%_) - (if (procedure? _%proc86331%_) - (let ((_%proc86336%_ _%proc86331%_)) - (__memf _%proc86336%_ _%lst86332%_)) + (lambda (_%proc87463%_ _%lst87464%_) + (if (procedure? _%proc87463%_) + (let ((_%proc87468%_ _%proc87463%_)) + (__memf _%proc87468%_ _%lst87464%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1415,114 +1391,114 @@ 'contract: 'procedure? 'value: - _%proc86331%_) + _%proc87463%_) '#!void)))) (define __memf - (lambda (_%proc86281%_ _%lst86282%_) - (let ((_%proc86285%_ _%proc86281%_)) - (let _%lp86294%_ ((_%rest86296%_ _%lst86282%_)) - (let* ((_%rest8629786305%_ _%rest86296%_) - (_%else8629986313%_ (lambda () '#f)) - (_%K8630186319%_ - (lambda (_%tl86316%_ _%hd86317%_) + (lambda (_%proc87413%_ _%lst87414%_) + (let ((_%proc87417%_ _%proc87413%_)) + (let _%lp87426%_ ((_%rest87428%_ _%lst87414%_)) + (let* ((_%rest8742987437%_ _%rest87428%_) + (_%else8743187445%_ (lambda () '#f)) + (_%K8743387451%_ + (lambda (_%tl87448%_ _%hd87449%_) (if (let () (declare (not safe)) - (_%proc86285%_ _%hd86317%_)) - _%rest86296%_ - (_%lp86294%_ _%tl86316%_))))) - (if (let () (declare (not safe)) (##pair? _%rest8629786305%_)) - (let ((_%hd8630286322%_ + (_%proc87417%_ _%hd87449%_)) + _%rest87428%_ + (_%lp87426%_ _%tl87448%_))))) + (if (pair? _%rest8742987437%_) + (let ((_%hd8743487454%_ (let () (declare (not safe)) - (##car _%rest8629786305%_))) - (_%tl8630386324%_ + (##car _%rest8742987437%_))) + (_%tl8743587456%_ (let () (declare (not safe)) - (##cdr _%rest8629786305%_)))) - (let* ((_%hd86327%_ _%hd8630286322%_) - (_%tl86329%_ _%tl8630386324%_)) - (_%K8630186319%_ _%tl86329%_ _%hd86327%_))) - (_%else8629986313%_))))))) + (##cdr _%rest8742987437%_)))) + (let* ((_%hd87459%_ _%hd8743487454%_) + (_%tl87461%_ _%tl8743587456%_)) + (_%K8743387451%_ _%tl87461%_ _%hd87459%_))) + (_%else8743187445%_))))))) (define remove1 - (lambda (_%el86234%_ _%lst86236%_) - (let _%lp86239%_ ((_%rest86242%_ _%lst86236%_) (_%r86244%_ '())) - (let* ((_%rest8624686254%_ _%rest86242%_) - (_%else8624886262%_ (lambda () _%lst86236%_)) - (_%K8625086269%_ - (lambda (_%rest86265%_ _%hd86266%_) - (if (equal? _%el86234%_ _%hd86266%_) - (__foldl1 cons _%rest86265%_ _%r86244%_) - (_%lp86239%_ - _%rest86265%_ - (cons _%hd86266%_ _%r86244%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8624686254%_)) - (let ((_%hd8625186272%_ + (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%_ (let () (declare (not safe)) - (##car _%rest8624686254%_))) - (_%tl8625286274%_ + (##car _%rest8737887386%_))) + (_%tl8738487406%_ (let () (declare (not safe)) - (##cdr _%rest8624686254%_)))) - (let* ((_%hd86277%_ _%hd8625186272%_) - (_%rest86279%_ _%tl8625286274%_)) - (_%K8625086269%_ _%rest86279%_ _%hd86277%_))) - (_%else8624886262%_)))))) + (##cdr _%rest8737887386%_)))) + (let* ((_%hd87409%_ _%hd8738387404%_) + (_%rest87411%_ _%tl8738487406%_)) + (_%K8738287401%_ _%rest87411%_ _%hd87409%_))) + (_%else8738087394%_)))))) (define remv1 - (lambda (_%el86187%_ _%lst86189%_) - (let _%lp86192%_ ((_%rest86195%_ _%lst86189%_) (_%r86197%_ '())) - (let* ((_%rest8619986207%_ _%rest86195%_) - (_%else8620186215%_ (lambda () _%lst86189%_)) - (_%K8620386222%_ - (lambda (_%rest86218%_ _%hd86219%_) - (if (eqv? _%el86187%_ _%hd86219%_) - (__foldl1 cons _%rest86218%_ _%r86197%_) - (_%lp86192%_ - _%rest86218%_ - (cons _%hd86219%_ _%r86197%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8619986207%_)) - (let ((_%hd8620486225%_ + (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%_ (let () (declare (not safe)) - (##car _%rest8619986207%_))) - (_%tl8620586227%_ + (##car _%rest8733187339%_))) + (_%tl8733787359%_ (let () (declare (not safe)) - (##cdr _%rest8619986207%_)))) - (let* ((_%hd86230%_ _%hd8620486225%_) - (_%rest86232%_ _%tl8620586227%_)) - (_%K8620386222%_ _%rest86232%_ _%hd86230%_))) - (_%else8620186215%_)))))) + (##cdr _%rest8733187339%_)))) + (let* ((_%hd87362%_ _%hd8733687357%_) + (_%rest87364%_ _%tl8733787359%_)) + (_%K8733587354%_ _%rest87364%_ _%hd87362%_))) + (_%else8733387347%_)))))) (define remq1 - (lambda (_%el86140%_ _%lst86142%_) - (let _%lp86145%_ ((_%rest86148%_ _%lst86142%_) (_%r86150%_ '())) - (let* ((_%rest8615286160%_ _%rest86148%_) - (_%else8615486168%_ (lambda () _%lst86142%_)) - (_%K8615686175%_ - (lambda (_%rest86171%_ _%hd86172%_) - (if (eq? _%el86140%_ _%hd86172%_) - (__foldl1 cons _%rest86171%_ _%r86150%_) - (_%lp86145%_ - _%rest86171%_ - (cons _%hd86172%_ _%r86150%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8615286160%_)) - (let ((_%hd8615786178%_ + (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%_ (let () (declare (not safe)) - (##car _%rest8615286160%_))) - (_%tl8615886180%_ + (##car _%rest8728487292%_))) + (_%tl8729087312%_ (let () (declare (not safe)) - (##cdr _%rest8615286160%_)))) - (let* ((_%hd86183%_ _%hd8615786178%_) - (_%rest86185%_ _%tl8615886180%_)) - (_%K8615686175%_ _%rest86185%_ _%hd86183%_))) - (_%else8615486168%_)))))) + (##cdr _%rest8728487292%_)))) + (let* ((_%hd87315%_ _%hd8728987310%_) + (_%rest87317%_ _%tl8729087312%_)) + (_%K8728887307%_ _%rest87317%_ _%hd87315%_))) + (_%else8728687300%_)))))) (define remf - (lambda (_%proc86125%_ _%lst86126%_) - (if (procedure? _%proc86125%_) - (let ((_%proc86130%_ _%proc86125%_)) - (__remf _%proc86130%_ _%lst86126%_)) + (lambda (_%proc87257%_ _%lst87258%_) + (if (procedure? _%proc87257%_) + (let ((_%proc87262%_ _%proc87257%_)) + (__remf _%proc87262%_ _%lst87258%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1531,40 +1507,40 @@ 'contract: 'procedure? 'value: - _%proc86125%_) + _%proc87257%_) '#!void)))) (define __remf - (lambda (_%proc86074%_ _%lst86075%_) - (let ((_%proc86078%_ _%proc86074%_)) - (let _%lp86087%_ ((_%rest86089%_ _%lst86075%_) (_%r86090%_ '())) - (let* ((_%rest8609186099%_ _%rest86089%_) - (_%else8609386107%_ (lambda () _%lst86075%_)) - (_%K8609586113%_ - (lambda (_%rest86110%_ _%hd86111%_) + (lambda (_%proc87206%_ _%lst87207%_) + (let ((_%proc87210%_ _%proc87206%_)) + (let _%lp87219%_ ((_%rest87221%_ _%lst87207%_) (_%r87222%_ '())) + (let* ((_%rest8722387231%_ _%rest87221%_) + (_%else8722587239%_ (lambda () _%lst87207%_)) + (_%K8722787245%_ + (lambda (_%rest87242%_ _%hd87243%_) (if (let () (declare (not safe)) - (_%proc86078%_ _%hd86111%_)) - (__foldl1 cons _%rest86110%_ _%r86090%_) - (_%lp86087%_ - _%rest86110%_ - (cons _%hd86111%_ _%r86090%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8609186099%_)) - (let ((_%hd8609686116%_ + (_%proc87210%_ _%hd87243%_)) + (__foldl1 cons _%rest87242%_ _%r87222%_) + (_%lp87219%_ + _%rest87242%_ + (cons _%hd87243%_ _%r87222%_)))))) + (if (pair? _%rest8722387231%_) + (let ((_%hd8722887248%_ (let () (declare (not safe)) - (##car _%rest8609186099%_))) - (_%tl8609786118%_ + (##car _%rest8722387231%_))) + (_%tl8722987250%_ (let () (declare (not safe)) - (##cdr _%rest8609186099%_)))) - (let* ((_%hd86121%_ _%hd8609686116%_) - (_%rest86123%_ _%tl8609786118%_)) - (_%K8609586113%_ _%rest86123%_ _%hd86121%_))) - (_%else8609386107%_))))))) + (##cdr _%rest8722387231%_)))) + (let* ((_%hd87253%_ _%hd8722887248%_) + (_%rest87255%_ _%tl8722987250%_)) + (_%K8722787245%_ _%rest87255%_ _%hd87253%_))) + (_%else8722587239%_))))))) (define 1+ - (lambda (_%x86060%_) - (if (number? _%x86060%_) - (let ((_%x86064%_ _%x86060%_)) (__1+ _%x86064%_)) + (lambda (_%x87192%_) + (if (number? _%x87192%_) + (let ((_%x87196%_ _%x87192%_)) (__1+ _%x87196%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1573,14 +1549,14 @@ 'contract: 'number? 'value: - _%x86060%_) + _%x87192%_) '#!void)))) (define __1+ - (lambda (_%x86048%_) (let ((_%x86051%_ _%x86048%_)) (+ _%x86051%_ '1)))) + (lambda (_%x87180%_) (let ((_%x87183%_ _%x87180%_)) (+ _%x87183%_ '1)))) (define 1- - (lambda (_%x86034%_) - (if (number? _%x86034%_) - (let ((_%x86038%_ _%x86034%_)) (__1- _%x86038%_)) + (lambda (_%x87166%_) + (if (number? _%x87166%_) + (let ((_%x87170%_ _%x87166%_)) (__1- _%x87170%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1589,14 +1565,14 @@ 'contract: 'number? 'value: - _%x86034%_) + _%x87166%_) '#!void)))) (define __1- - (lambda (_%x86022%_) (let ((_%x86025%_ _%x86022%_)) (- _%x86025%_ '1)))) + (lambda (_%x87154%_) (let ((_%x87157%_ _%x87154%_)) (- _%x87157%_ '1)))) (define fx1+ - (lambda (_%x86008%_) - (if (fixnum? _%x86008%_) - (let ((_%x86012%_ _%x86008%_)) (__fx1+ _%x86012%_)) + (lambda (_%x87140%_) + (if (fixnum? _%x87140%_) + (let ((_%x87144%_ _%x87140%_)) (__fx1+ _%x87144%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1605,17 +1581,17 @@ 'contract: 'fixnum? 'value: - _%x86008%_) + _%x87140%_) '#!void)))) (define __fx1+ - (lambda (_%x85996%_) - (let ((_%x85999%_ _%x85996%_)) + (lambda (_%x87128%_) + (let ((_%x87131%_ _%x87128%_)) (declare (not safe)) - (##fx+ _%x85999%_ '1)))) + (##fx+ _%x87131%_ '1)))) (define fx1- - (lambda (_%x85982%_) - (if (fixnum? _%x85982%_) - (let ((_%x85986%_ _%x85982%_)) (__fx1- _%x85986%_)) + (lambda (_%x87114%_) + (if (fixnum? _%x87114%_) + (let ((_%x87118%_ _%x87114%_)) (__fx1- _%x87118%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1624,46 +1600,46 @@ 'contract: 'fixnum? 'value: - _%x85982%_) + _%x87114%_) '#!void)))) (define __fx1- - (lambda (_%x85970%_) - (let ((_%x85973%_ _%x85970%_)) + (lambda (_%x87102%_) + (let ((_%x87105%_ _%x87102%_)) (declare (not safe)) - (##fx- _%x85973%_ '1)))) + (##fx- _%x87105%_ '1)))) (define fxshift fxarithmetic-shift) (define fx/ fxquotient) (define fx>=0? - (lambda (_%x85967%_) - (if (fixnum? _%x85967%_) - (let () (declare (not safe)) (##fx>= _%x85967%_ '0)) + (lambda (_%x87099%_) + (if (fixnum? _%x87099%_) + (let () (declare (not safe)) (##fx>= _%x87099%_ '0)) '#f))) (define fx>0? - (lambda (_%x85964%_) - (if (fixnum? _%x85964%_) - (let () (declare (not safe)) (##fx> _%x85964%_ '0)) + (lambda (_%x87096%_) + (if (fixnum? _%x87096%_) + (let () (declare (not safe)) (##fx> _%x87096%_ '0)) '#f))) (define fx=0? - (lambda (_%x85961%_) - (let () (declare (not safe)) (##fx= _%x85961%_ '0)))) + (lambda (_%x87093%_) + (let () (declare (not safe)) (##fx= _%x87093%_ '0)))) (define fx<0? - (lambda (_%x85958%_) - (if (fixnum? _%x85958%_) - (let () (declare (not safe)) (##fx< _%x85958%_ '0)) + (lambda (_%x87090%_) + (if (fixnum? _%x87090%_) + (let () (declare (not safe)) (##fx< _%x87090%_ '0)) '#f))) (define fx<=0? - (lambda (_%x85955%_) - (if (fixnum? _%x85955%_) - (let () (declare (not safe)) (##fx<= _%x85955%_ '0)) + (lambda (_%x87087%_) + (if (fixnum? _%x87087%_) + (let () (declare (not safe)) (##fx<= _%x87087%_ '0)) '#f))) (define interned-symbol? - (lambda (_%x85952%_) - (if (symbol? _%x85952%_) (not (uninterned-symbol? _%x85952%_)) '#f))) + (lambda (_%x87084%_) + (if (symbol? _%x87084%_) (not (uninterned-symbol? _%x87084%_)) '#f))) (define display-as-string - (lambda (_%x85937%_ _%port85938%_) - (if (output-port? _%port85938%_) - (let ((_%port85942%_ _%port85938%_)) - (__display-as-string _%x85937%_ _%port85942%_)) + (lambda (_%x87069%_ _%port87070%_) + (if (output-port? _%port87070%_) + (let ((_%port87074%_ _%port87070%_)) + (__display-as-string _%x87069%_ _%port87074%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1672,147 +1648,147 @@ 'contract: 'output-port? 'value: - _%port85938%_) + _%port87070%_) '#!void)))) (define __display-as-string - (lambda (_%x85894%_ _%port85895%_) - (let ((_%port85898%_ _%port85895%_)) - (if (or (string? _%x85894%_) - (symbol? _%x85894%_) - (keyword? _%x85894%_) - (number? _%x85894%_) - (char? _%x85894%_)) - (display _%x85894%_ _%port85898%_) - (if (pair? _%x85894%_) + (lambda (_%x87026%_ _%port87027%_) + (let ((_%port87030%_ _%port87027%_)) + (if (or (string? _%x87026%_) + (symbol? _%x87026%_) + (keyword? _%x87026%_) + (number? _%x87026%_) + (char? _%x87026%_)) + (display _%x87026%_ _%port87030%_) + (if (pair? _%x87026%_) (let () (__display-as-string - (let () (declare (not safe)) (##car _%x85894%_)) - _%port85898%_) + (let () (declare (not safe)) (##car _%x87026%_)) + _%port87030%_) (__display-as-string - (let () (declare (not safe)) (##cdr _%x85894%_)) - _%port85898%_)) - (if (vector? _%x85894%_) + (let () (declare (not safe)) (##cdr _%x87026%_)) + _%port87030%_)) + (if (vector? _%x87026%_) (vector-for-each - (lambda (_%g8592185923%_) - (__display-as-string _%g8592185923%_ _%port85898%_)) - _%x85894%_) - (if (or (null? _%x85894%_) - (eq? _%x85894%_ '#!void) - (eof-object? _%x85894%_) - (boolean? _%x85894%_)) + (lambda (_%g8705387055%_) + (__display-as-string _%g8705387055%_ _%port87030%_)) + _%x87026%_) + (if (or (null? _%x87026%_) + (eq? _%x87026%_ '#!void) + (eof-object? _%x87026%_) + (boolean? _%x87026%_)) '#!void (let () - (error '"cannot convert as string" _%x85894%_) + (error '"cannot convert as string" _%x87026%_) '#!void)))))))) (define as-string__0 - (lambda (_%x85877%_) - (if (string? _%x85877%_) - _%x85877%_ - (if (symbol? _%x85877%_) - (let () (declare (not safe)) (##symbol->string _%x85877%_)) - (if (keyword? _%x85877%_) + (lambda (_%x87009%_) + (if (string? _%x87009%_) + _%x87009%_ + (if (symbol? _%x87009%_) + (let () (declare (not safe)) (##symbol->string _%x87009%_)) + (if (keyword? _%x87009%_) (let () (declare (not safe)) - (##keyword->string _%x85877%_)) - (if (number? _%x85877%_) + (##keyword->string _%x87009%_)) + (if (number? _%x87009%_) (let () (declare (not safe)) - (##number->string _%x85877%_)) + (##number->string _%x87009%_)) (call-with-output-string '() - (lambda (_%g8588385885%_) + (lambda (_%g8701587017%_) (__display-as-string - _%x85877%_ - _%g8588385885%_))))))))) + _%x87009%_ + _%g8701587017%_))))))))) (define as-string__1 - (lambda _%args85888%_ + (lambda _%args87020%_ (call-with-output-string '() - (lambda (_%g8588985891%_) - (__display-as-string _%args85888%_ _%g8588985891%_))))) + (lambda (_%g8702187023%_) + (__display-as-string _%args87020%_ _%g8702187023%_))))) (define as-string - (lambda _g90017_ - (let ((_g90016_ (let () (declare (not safe)) (##length _g90017_)))) - (cond ((let () (declare (not safe)) (##fx= _g90016_ 1)) - (apply as-string__0 _g90017_)) + (lambda _g91149_ + (let ((_g91148_ (let () (declare (not safe)) (##length _g91149_)))) + (cond ((let () (declare (not safe)) (##fx= _g91148_ 1)) + (apply as-string__0 _g91149_)) (#t - (apply (lambda _%args85888%_ + (apply (lambda _%args87020%_ (let () (declare (not safe)) - (##apply as-string__1 _%args85888%_))) - _g90017_)) + (##apply as-string__1 _%args87020%_))) + _g91149_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g90017_)))))) + _g91149_)))))) (define make-symbol__0 - (lambda (_%x85873%_) - (if (interned-symbol? _%x85873%_) - _%x85873%_ - (let ((__tmp90018 (as-string__0 _%x85873%_))) + (lambda (_%x87005%_) + (if (interned-symbol? _%x87005%_) + _%x87005%_ + (let ((__tmp91150 (as-string__0 _%x87005%_))) (declare (not safe)) - (##string->symbol __tmp90018))))) + (##string->symbol __tmp91150))))) (define make-symbol__1 - (lambda _%args85875%_ - (let ((__tmp90019 + (lambda _%args87007%_ + (let ((__tmp91151 (let () (declare (not safe)) - (##apply as-string _%args85875%_)))) + (##apply as-string _%args87007%_)))) (declare (not safe)) - (##string->symbol __tmp90019)))) + (##string->symbol __tmp91151)))) (define make-symbol - (lambda _g90021_ - (let ((_g90020_ (let () (declare (not safe)) (##length _g90021_)))) - (cond ((let () (declare (not safe)) (##fx= _g90020_ 1)) - (apply make-symbol__0 _g90021_)) + (lambda _g91153_ + (let ((_g91152_ (let () (declare (not safe)) (##length _g91153_)))) + (cond ((let () (declare (not safe)) (##fx= _g91152_ 1)) + (apply make-symbol__0 _g91153_)) (#t - (apply (lambda _%args85875%_ + (apply (lambda _%args87007%_ (let () (declare (not safe)) - (##apply make-symbol__1 _%args85875%_))) - _g90021_)) + (##apply make-symbol__1 _%args87007%_))) + _g91153_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g90021_)))))) + _g91153_)))))) (define make-keyword__0 - (lambda (_%x85869%_) - (if (interned-keyword? _%x85869%_) - _%x85869%_ - (let ((__tmp90022 (as-string__0 _%x85869%_))) + (lambda (_%x87001%_) + (if (interned-keyword? _%x87001%_) + _%x87001%_ + (let ((__tmp91154 (as-string__0 _%x87001%_))) (declare (not safe)) - (##string->keyword __tmp90022))))) + (##string->keyword __tmp91154))))) (define make-keyword__1 - (lambda _%args85871%_ - (let ((__tmp90023 + (lambda _%args87003%_ + (let ((__tmp91155 (let () (declare (not safe)) - (##apply as-string _%args85871%_)))) + (##apply as-string _%args87003%_)))) (declare (not safe)) - (##string->keyword __tmp90023)))) + (##string->keyword __tmp91155)))) (define make-keyword - (lambda _g90025_ - (let ((_g90024_ (let () (declare (not safe)) (##length _g90025_)))) - (cond ((let () (declare (not safe)) (##fx= _g90024_ 1)) - (apply make-keyword__0 _g90025_)) + (lambda _g91157_ + (let ((_g91156_ (let () (declare (not safe)) (##length _g91157_)))) + (cond ((let () (declare (not safe)) (##fx= _g91156_ 1)) + (apply make-keyword__0 _g91157_)) (#t - (apply (lambda _%args85871%_ + (apply (lambda _%args87003%_ (let () (declare (not safe)) - (##apply make-keyword__1 _%args85871%_))) - _g90025_)) + (##apply make-keyword__1 _%args87003%_))) + _g91157_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g90025_)))))) + _g91157_)))))) (define interned-keyword? - (lambda (_%x85866%_) - (if (keyword? _%x85866%_) (not (uninterned-keyword? _%x85866%_)) '#f))) + (lambda (_%x86998%_) + (if (keyword? _%x86998%_) (not (uninterned-keyword? _%x86998%_)) '#f))) (define symbol->keyword - (lambda (_%sym85852%_) - (if (symbol? _%sym85852%_) - (let ((_%sym85856%_ _%sym85852%_)) - (__symbol->keyword _%sym85856%_)) + (lambda (_%sym86984%_) + (if (symbol? _%sym86984%_) + (let ((_%sym86988%_ _%sym86984%_)) + (__symbol->keyword _%sym86988%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1821,29 +1797,29 @@ 'contract: 'symbol? 'value: - _%sym85852%_) + _%sym86984%_) '#!void)))) (define __symbol->keyword - (lambda (_%sym85840%_) - (let ((_%sym85843%_ _%sym85840%_)) - (if (uninterned-symbol? _%sym85843%_) - (let ((__tmp90026 + (lambda (_%sym86972%_) + (let ((_%sym86975%_ _%sym86972%_)) + (if (uninterned-symbol? _%sym86975%_) + (let ((__tmp91158 (let () (declare (not safe)) - (##symbol->string _%sym85843%_)))) + (##symbol->string _%sym86975%_)))) (declare (not safe)) - (##string->uninterned-keyword __tmp90026)) - (let ((__tmp90027 + (##string->uninterned-keyword __tmp91158)) + (let ((__tmp91159 (let () (declare (not safe)) - (##symbol->string _%sym85843%_)))) + (##symbol->string _%sym86975%_)))) (declare (not safe)) - (##string->keyword __tmp90027)))))) + (##string->keyword __tmp91159)))))) (define keyword->symbol - (lambda (_%sym85826%_) - (if (keyword? _%sym85826%_) - (let ((_%sym85830%_ _%sym85826%_)) - (__keyword->symbol _%sym85830%_)) + (lambda (_%sym86958%_) + (if (keyword? _%sym86958%_) + (let ((_%sym86962%_ _%sym86958%_)) + (__keyword->symbol _%sym86962%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1852,31 +1828,31 @@ 'contract: 'keyword? 'value: - _%sym85826%_) + _%sym86958%_) '#!void)))) (define __keyword->symbol - (lambda (_%sym85814%_) - (let ((_%sym85817%_ _%sym85814%_)) - (if (uninterned-keyword? _%sym85817%_) - (let ((__tmp90028 + (lambda (_%sym86946%_) + (let ((_%sym86949%_ _%sym86946%_)) + (if (uninterned-keyword? _%sym86949%_) + (let ((__tmp91160 (let () (declare (not safe)) - (##keyword->string _%sym85817%_)))) + (##keyword->string _%sym86949%_)))) (declare (not safe)) - (##string->uninterned-symbol __tmp90028)) - (let ((__tmp90029 + (##string->uninterned-symbol __tmp91160)) + (let ((__tmp91161 (let () (declare (not safe)) - (##keyword->string _%sym85817%_)))) + (##keyword->string _%sym86949%_)))) (declare (not safe)) - (##string->symbol __tmp90029)))))) + (##string->symbol __tmp91161)))))) (define bytes->string__% - (lambda (_%bstr85779%_ _%enc85780%_) - (if (u8vector? _%bstr85779%_) - (let ((_%bstr85784%_ _%bstr85779%_)) - (if (symbol? _%enc85780%_) - (let ((_%enc85794%_ _%enc85780%_)) - (__bytes->string__% _%bstr85784%_ _%enc85794%_)) + (lambda (_%bstr86911%_ _%enc86912%_) + (if (u8vector? _%bstr86911%_) + (let ((_%bstr86916%_ _%bstr86911%_)) + (if (symbol? _%enc86912%_) + (let ((_%enc86926%_ _%enc86912%_)) + (__bytes->string__% _%bstr86916%_ _%enc86926%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1885,7 +1861,7 @@ 'contract: 'symbol? 'value: - _%enc85780%_) + _%enc86912%_) '#!void))) (begin (raise-contract-violation-error @@ -1895,71 +1871,71 @@ 'contract: 'u8vector? 'value: - _%bstr85779%_) + _%bstr86911%_) '#!void)))) (define bytes->string__0 - (lambda (_%bstr85807%_) - (let ((_%enc85809%_ 'UTF-8)) - (bytes->string__% _%bstr85807%_ _%enc85809%_)))) + (lambda (_%bstr86939%_) + (let ((_%enc86941%_ 'UTF-8)) + (bytes->string__% _%bstr86939%_ _%enc86941%_)))) (define bytes->string - (lambda _g90031_ - (let ((_g90030_ (let () (declare (not safe)) (##length _g90031_)))) - (cond ((let () (declare (not safe)) (##fx= _g90030_ 1)) - (apply bytes->string__0 _g90031_)) - ((let () (declare (not safe)) (##fx= _g90030_ 2)) - (apply bytes->string__% _g90031_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g90031_)))))) + _g91163_)))))) (define __bytes->string__% - (lambda (_%bstr85738%_ _%enc85739%_) - (let* ((_%bstr85742%_ _%bstr85738%_) (_%enc85750%_ _%enc85739%_)) - (if (eq? _%enc85750%_ 'UTF-8) - (let () (declare (not safe)) (##utf8->string _%bstr85742%_)) - (let* ((_%in85759%_ + (lambda (_%bstr86870%_ _%enc86871%_) + (let* ((_%bstr86874%_ _%bstr86870%_) (_%enc86882%_ _%enc86871%_)) + (if (eq? _%enc86882%_ 'UTF-8) + (let () (declare (not safe)) (##utf8->string _%bstr86874%_)) + (let* ((_%in86891%_ (open-input-u8vector (cons 'char-encoding: - (cons _%enc85750%_ - (cons 'init: (cons _%bstr85742%_ '())))))) - (_%len85761%_ + (cons _%enc86882%_ + (cons 'init: (cons _%bstr86874%_ '())))))) + (_%len86893%_ (let () (declare (not safe)) - (##u8vector-length _%bstr85742%_))) - (_%out85763%_ + (##u8vector-length _%bstr86874%_))) + (_%out86895%_ (let () (declare (not safe)) - (##make-string _%len85761%_))) - (_%n85765%_ + (##make-string _%len86893%_))) + (_%n86897%_ (read-substring - _%out85763%_ + _%out86895%_ '0 - _%len85761%_ - _%in85759%_))) - (string-shrink! _%out85763%_ _%n85765%_) - _%out85763%_))))) + _%len86893%_ + _%in86891%_))) + (string-shrink! _%out86895%_ _%n86897%_) + _%out86895%_))))) (define __bytes->string__0 - (lambda (_%bstr85771%_) - (let ((_%enc85773%_ 'UTF-8)) - (__bytes->string__% _%bstr85771%_ _%enc85773%_)))) + (lambda (_%bstr86903%_) + (let ((_%enc86905%_ 'UTF-8)) + (__bytes->string__% _%bstr86903%_ _%enc86905%_)))) (define __bytes->string - (lambda _g90033_ - (let ((_g90032_ (let () (declare (not safe)) (##length _g90033_)))) - (cond ((let () (declare (not safe)) (##fx= _g90032_ 1)) - (apply __bytes->string__0 _g90033_)) - ((let () (declare (not safe)) (##fx= _g90032_ 2)) - (apply __bytes->string__% _g90033_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __bytes->string - _g90033_)))))) + _g91165_)))))) (define string->bytes__% - (lambda (_%str85702%_ _%enc85703%_) - (if (string? _%str85702%_) - (let ((_%str85707%_ _%str85702%_)) - (if (symbol? _%enc85703%_) - (let ((_%enc85717%_ _%enc85703%_)) - (__string->bytes__% _%str85707%_ _%enc85717%_)) + (lambda (_%str86834%_ _%enc86835%_) + (if (string? _%str86834%_) + (let ((_%str86839%_ _%str86834%_)) + (if (symbol? _%enc86835%_) + (let ((_%enc86849%_ _%enc86835%_)) + (__string->bytes__% _%str86839%_ _%enc86849%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1968,7 +1944,7 @@ 'contract: 'symbol? 'value: - _%enc85703%_) + _%enc86835%_) '#!void))) (begin (raise-contract-violation-error @@ -1978,61 +1954,61 @@ 'contract: 'string? 'value: - _%str85702%_) + _%str86834%_) '#!void)))) (define string->bytes__0 - (lambda (_%str85730%_) - (let ((_%enc85732%_ 'UTF-8)) - (string->bytes__% _%str85730%_ _%enc85732%_)))) + (lambda (_%str86862%_) + (let ((_%enc86864%_ 'UTF-8)) + (string->bytes__% _%str86862%_ _%enc86864%_)))) (define string->bytes - (lambda _g90035_ - (let ((_g90034_ (let () (declare (not safe)) (##length _g90035_)))) - (cond ((let () (declare (not safe)) (##fx= _g90034_ 1)) - (apply string->bytes__0 _g90035_)) - ((let () (declare (not safe)) (##fx= _g90034_ 2)) - (apply string->bytes__% _g90035_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g90035_)))))) + _g91167_)))))) (define __string->bytes__% - (lambda (_%str85670%_ _%enc85671%_) - (let* ((_%str85674%_ _%str85670%_) (_%enc85682%_ _%enc85671%_)) - (if (eq? _%enc85682%_ 'UTF-8) - (let () (declare (not safe)) (##string->utf8 _%str85674%_)) + (lambda (_%str86802%_ _%enc86803%_) + (let* ((_%str86806%_ _%str86802%_) (_%enc86814%_ _%enc86803%_)) + (if (eq? _%enc86814%_ 'UTF-8) + (let () (declare (not safe)) (##string->utf8 _%str86806%_)) (__substring->bytes__% - _%str85674%_ + _%str86806%_ '0 - (let () (declare (not safe)) (##string-length _%str85674%_)) - _%enc85682%_))))) + (let () (declare (not safe)) (##string-length _%str86806%_)) + _%enc86814%_))))) (define __string->bytes__0 - (lambda (_%str85694%_) - (let ((_%enc85696%_ 'UTF-8)) - (__string->bytes__% _%str85694%_ _%enc85696%_)))) + (lambda (_%str86826%_) + (let ((_%enc86828%_ 'UTF-8)) + (__string->bytes__% _%str86826%_ _%enc86828%_)))) (define __string->bytes - (lambda _g90037_ - (let ((_g90036_ (let () (declare (not safe)) (##length _g90037_)))) - (cond ((let () (declare (not safe)) (##fx= _g90036_ 1)) - (apply __string->bytes__0 _g90037_)) - ((let () (declare (not safe)) (##fx= _g90036_ 2)) - (apply __string->bytes__% _g90037_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __string->bytes - _g90037_)))))) + _g91169_)))))) (define substring->bytes__% - (lambda (_%str85618%_ _%start85619%_ _%end85620%_ _%enc85621%_) - (if (string? _%str85618%_) - (let ((_%str85625%_ _%str85618%_)) - (if (nonnegative-fixnum? _%start85619%_) - (let ((_%start85635%_ _%start85619%_)) - (if (nonnegative-fixnum? _%end85620%_) - (let ((_%end85645%_ _%end85620%_)) + (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%_)) (__substring->bytes__% - _%str85625%_ - _%start85635%_ - _%end85645%_ - _%enc85621%_)) + _%str86757%_ + _%start86767%_ + _%end86777%_ + _%enc86753%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2041,7 +2017,7 @@ 'contract: 'nonnegative-fixnum? 'value: - _%end85620%_) + _%end86752%_) '#!void))) (begin (raise-contract-violation-error @@ -2051,7 +2027,7 @@ 'contract: 'nonnegative-fixnum? 'value: - _%start85619%_) + _%start86751%_) '#!void))) (begin (raise-contract-violation-error @@ -2061,66 +2037,66 @@ 'contract: 'string? 'value: - _%str85618%_) + _%str86750%_) '#!void)))) (define substring->bytes__0 - (lambda (_%str85658%_ _%start85659%_ _%end85660%_) - (let ((_%enc85662%_ 'UTF-8)) + (lambda (_%str86790%_ _%start86791%_ _%end86792%_) + (let ((_%enc86794%_ 'UTF-8)) (substring->bytes__% - _%str85658%_ - _%start85659%_ - _%end85660%_ - _%enc85662%_)))) + _%str86790%_ + _%start86791%_ + _%end86792%_ + _%enc86794%_)))) (define substring->bytes - (lambda _g90039_ - (let ((_g90038_ (let () (declare (not safe)) (##length _g90039_)))) - (cond ((let () (declare (not safe)) (##fx= _g90038_ 3)) - (apply substring->bytes__0 _g90039_)) - ((let () (declare (not safe)) (##fx= _g90038_ 4)) - (apply substring->bytes__% _g90039_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g90039_)))))) + _g91171_)))))) (define __substring->bytes__% - (lambda (_%str85570%_ _%start85571%_ _%end85572%_ _%enc85573%_) - (let* ((_%str85576%_ _%str85570%_) - (_%start85584%_ _%start85571%_) - (_%end85592%_ _%end85572%_)) - (if (eq? _%enc85573%_ 'UTF-8) - (string->utf8 _%str85576%_ _%start85584%_ _%end85592%_) - (let ((_%out85601%_ + (lambda (_%str86702%_ _%start86703%_ _%end86704%_ _%enc86705%_) + (let* ((_%str86708%_ _%str86702%_) + (_%start86716%_ _%start86703%_) + (_%end86724%_ _%end86704%_)) + (if (eq? _%enc86705%_ 'UTF-8) + (string->utf8 _%str86708%_ _%start86716%_ _%end86724%_) + (let ((_%out86733%_ (open-output-u8vector - (cons 'char-encoding: (cons _%enc85573%_ '()))))) + (cons 'char-encoding: (cons _%enc86705%_ '()))))) (write-substring - _%str85576%_ - _%start85584%_ - _%end85592%_ - _%out85601%_) - (get-output-u8vector _%out85601%_)))))) + _%str86708%_ + _%start86716%_ + _%end86724%_ + _%out86733%_) + (get-output-u8vector _%out86733%_)))))) (define __substring->bytes__0 - (lambda (_%str85606%_ _%start85607%_ _%end85608%_) - (let ((_%enc85610%_ 'UTF-8)) + (lambda (_%str86738%_ _%start86739%_ _%end86740%_) + (let ((_%enc86742%_ 'UTF-8)) (__substring->bytes__% - _%str85606%_ - _%start85607%_ - _%end85608%_ - _%enc85610%_)))) + _%str86738%_ + _%start86739%_ + _%end86740%_ + _%enc86742%_)))) (define __substring->bytes - (lambda _g90041_ - (let ((_g90040_ (let () (declare (not safe)) (##length _g90041_)))) - (cond ((let () (declare (not safe)) (##fx= _g90040_ 3)) - (apply __substring->bytes__0 _g90041_)) - ((let () (declare (not safe)) (##fx= _g90040_ 4)) - (apply __substring->bytes__% _g90041_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __substring->bytes - _g90041_)))))) + _g91173_)))))) (define string-empty? - (lambda (_%str85555%_) - (if (string? _%str85555%_) - (let ((_%str85559%_ _%str85555%_)) (__string-empty? _%str85559%_)) + (lambda (_%str86687%_) + (if (string? _%str86687%_) + (let ((_%str86691%_ _%str86687%_)) (__string-empty? _%str86691%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2129,27 +2105,27 @@ 'contract: 'string? 'value: - _%str85555%_) + _%str86687%_) '#!void)))) (define __string-empty? - (lambda (_%str85543%_) - (let* ((_%str85546%_ _%str85543%_) - (__tmp90042 - (let () (declare (not safe)) (##string-length _%str85546%_)))) + (lambda (_%str86675%_) + (let* ((_%str86678%_ _%str86675%_) + (__tmp91174 + (let () (declare (not safe)) (##string-length _%str86678%_)))) (declare (not safe)) - (##fxzero? __tmp90042)))) + (##fxzero? __tmp91174)))) (define string-index__% - (lambda (_%str85495%_ _%char85496%_ _%start85497%_) - (if (string? _%str85495%_) - (let ((_%str85501%_ _%str85495%_)) - (if (char? _%char85496%_) - (let ((_%char85511%_ _%char85496%_)) - (if (nonnegative-fixnum? _%start85497%_) - (let ((_%start85521%_ _%start85497%_)) + (lambda (_%str86627%_ _%char86628%_ _%start86629%_) + (if (string? _%str86627%_) + (let ((_%str86633%_ _%str86627%_)) + (if (char? _%char86628%_) + (let ((_%char86643%_ _%char86628%_)) + (if (nonnegative-fixnum? _%start86629%_) + (let ((_%start86653%_ _%start86629%_)) (__string-index__% - _%str85501%_ - _%char85511%_ - _%start85521%_)) + _%str86633%_ + _%char86643%_ + _%start86653%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2158,7 +2134,7 @@ 'contract: 'nonnegative-fixnum? 'value: - _%start85497%_) + _%start86629%_) '#!void))) (begin (raise-contract-violation-error @@ -2168,7 +2144,7 @@ 'contract: 'char? 'value: - _%char85496%_) + _%char86628%_) '#!void))) (begin (raise-contract-violation-error @@ -2178,66 +2154,66 @@ 'contract: 'string? 'value: - _%str85495%_) + _%str86627%_) '#!void)))) (define string-index__0 - (lambda (_%str85534%_ _%char85535%_) - (let ((_%start85537%_ '0)) - (string-index__% _%str85534%_ _%char85535%_ _%start85537%_)))) + (lambda (_%str86666%_ _%char86667%_) + (let ((_%start86669%_ '0)) + (string-index__% _%str86666%_ _%char86667%_ _%start86669%_)))) (define string-index - (lambda _g90044_ - (let ((_g90043_ (let () (declare (not safe)) (##length _g90044_)))) - (cond ((let () (declare (not safe)) (##fx= _g90043_ 2)) - (apply string-index__0 _g90044_)) - ((let () (declare (not safe)) (##fx= _g90043_ 3)) - (apply string-index__% _g90044_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g90044_)))))) + _g91176_)))))) (define __string-index__% - (lambda (_%str85434%_ _%char85435%_ _%start85436%_) - (let* ((_%str85439%_ _%str85434%_) - (_%char85447%_ _%char85435%_) - (_%start85455%_ _%start85436%_) - (_%len85464%_ - (let () (declare (not safe)) (##string-length _%str85439%_)))) - (let _%lp85466%_ ((_%k85468%_ _%start85455%_)) - (let ((_%k85470%_ _%k85468%_)) - (if (let () (declare (not safe)) (##fx< _%k85470%_ _%len85464%_)) - (if (eq? _%char85447%_ + (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%_ (let () (declare (not safe)) - (##string-ref _%str85439%_ _%k85470%_))) - _%k85470%_ - (_%lp85466%_ - (let () (declare (not safe)) (##fx+ _%k85470%_ '1)))) + (##string-ref _%str86571%_ _%k86602%_))) + _%k86602%_ + (_%lp86598%_ + (let () (declare (not safe)) (##fx+ _%k86602%_ '1)))) '#f)))))) (define __string-index__0 - (lambda (_%str85485%_ _%char85486%_) - (let ((_%start85488%_ '0)) - (__string-index__% _%str85485%_ _%char85486%_ _%start85488%_)))) + (lambda (_%str86617%_ _%char86618%_) + (let ((_%start86620%_ '0)) + (__string-index__% _%str86617%_ _%char86618%_ _%start86620%_)))) (define __string-index - (lambda _g90046_ - (let ((_g90045_ (let () (declare (not safe)) (##length _g90046_)))) - (cond ((let () (declare (not safe)) (##fx= _g90045_ 2)) - (apply __string-index__0 _g90046_)) - ((let () (declare (not safe)) (##fx= _g90045_ 3)) - (apply __string-index__% _g90046_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __string-index - _g90046_)))))) + _g91178_)))))) (define string-rindex__% - (lambda (_%str85395%_ _%char85396%_ _%start85397%_) - (if (string? _%str85395%_) - (let ((_%str85401%_ _%str85395%_)) - (if (char? _%char85396%_) - (let ((_%char85411%_ _%char85396%_)) + (lambda (_%str86527%_ _%char86528%_ _%start86529%_) + (if (string? _%str86527%_) + (let ((_%str86533%_ _%str86527%_)) + (if (char? _%char86528%_) + (let ((_%char86543%_ _%char86528%_)) (__string-rindex__% - _%str85401%_ - _%char85411%_ - _%start85397%_)) + _%str86533%_ + _%char86543%_ + _%start86529%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2246,7 +2222,7 @@ 'contract: 'char? 'value: - _%char85396%_) + _%char86528%_) '#!void))) (begin (raise-contract-violation-error @@ -2256,66 +2232,66 @@ 'contract: 'string? 'value: - _%str85395%_) + _%str86527%_) '#!void)))) (define string-rindex__0 - (lambda (_%str85424%_ _%char85425%_) - (let ((_%start85427%_ '#f)) - (string-rindex__% _%str85424%_ _%char85425%_ _%start85427%_)))) + (lambda (_%str86556%_ _%char86557%_) + (let ((_%start86559%_ '#f)) + (string-rindex__% _%str86556%_ _%char86557%_ _%start86559%_)))) (define string-rindex - (lambda _g90048_ - (let ((_g90047_ (let () (declare (not safe)) (##length _g90048_)))) - (cond ((let () (declare (not safe)) (##fx= _g90047_ 2)) - (apply string-rindex__0 _g90048_)) - ((let () (declare (not safe)) (##fx= _g90047_ 3)) - (apply string-rindex__% _g90048_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g90048_)))))) + _g91180_)))))) (define __string-rindex__% - (lambda (_%str85337%_ _%char85338%_ _%start85339%_) - (let* ((_%str85342%_ _%str85337%_) - (_%char85350%_ _%char85338%_) - (_%len85359%_ - (let () (declare (not safe)) (##string-length _%str85342%_))) - (_%start85361%_ - (if (fixnum? _%start85339%_) - _%start85339%_ - (let () (declare (not safe)) (##fx- _%len85359%_ '1))))) - (let _%lp85364%_ ((_%k85366%_ _%start85361%_)) - (let ((_%k85368%_ _%k85366%_)) - (if (let () (declare (not safe)) (##fx>= _%k85368%_ '0)) - (if (eq? _%char85350%_ + (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%_ (let () (declare (not safe)) - (##string-ref _%str85342%_ _%k85368%_))) - _%k85368%_ - (_%lp85364%_ - (let () (declare (not safe)) (##fx- _%k85368%_ '1)))) + (##string-ref _%str86474%_ _%k86500%_))) + _%k86500%_ + (_%lp86496%_ + (let () (declare (not safe)) (##fx- _%k86500%_ '1)))) '#f)))))) (define __string-rindex__0 - (lambda (_%str85385%_ _%char85386%_) - (let ((_%start85388%_ '#f)) - (__string-rindex__% _%str85385%_ _%char85386%_ _%start85388%_)))) + (lambda (_%str86517%_ _%char86518%_) + (let ((_%start86520%_ '#f)) + (__string-rindex__% _%str86517%_ _%char86518%_ _%start86520%_)))) (define __string-rindex - (lambda _g90050_ - (let ((_g90049_ (let () (declare (not safe)) (##length _g90050_)))) - (cond ((let () (declare (not safe)) (##fx= _g90049_ 2)) - (apply __string-rindex__0 _g90050_)) - ((let () (declare (not safe)) (##fx= _g90049_ 3)) - (apply __string-rindex__% _g90050_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __string-rindex - _g90050_)))))) + _g91182_)))))) (define string-split - (lambda (_%str85311%_ _%char85312%_) - (if (string? _%str85311%_) - (let ((_%str85316%_ _%str85311%_)) - (if (char? _%char85312%_) - (let ((_%char85326%_ _%char85312%_)) - (__string-split _%str85316%_ _%char85326%_)) + (lambda (_%str86443%_ _%char86444%_) + (if (string? _%str86443%_) + (let ((_%str86448%_ _%str86443%_)) + (if (char? _%char86444%_) + (let ((_%char86458%_ _%char86444%_)) + (__string-split _%str86448%_ _%char86458%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2324,7 +2300,7 @@ 'contract: 'char? 'value: - _%char85312%_) + _%char86444%_) '#!void))) (begin (raise-contract-violation-error @@ -2334,205 +2310,203 @@ 'contract: 'string? 'value: - _%str85311%_) + _%str86443%_) '#!void)))) (define __string-split - (lambda (_%str85252%_ _%char85253%_) - (let* ((_%str85256%_ _%str85252%_) - (_%char85264%_ _%char85253%_) - (_%len85273%_ - (let () (declare (not safe)) (##string-length _%str85256%_)))) - (let _%lp85275%_ ((_%start85277%_ '0) (_%r85278%_ '())) - (let* ((_%start85281%_ _%start85277%_) - (_%$e85294%_ + (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%_ (__string-index__% - _%str85256%_ - _%char85264%_ - _%start85281%_))) - (if _%$e85294%_ - ((lambda (_%end85297%_) - (let ((_%end85299%_ _%end85297%_)) - (_%lp85275%_ - (let () (declare (not safe)) (##fx+ _%end85299%_ '1)) + _%str86388%_ + _%char86396%_ + _%start86413%_))) + (if _%$e86426%_ + ((lambda (_%end86429%_) + (let ((_%end86431%_ _%end86429%_)) + (_%lp86407%_ + (let () (declare (not safe)) (##fx+ _%end86431%_ '1)) (cons (let () (declare (not safe)) (##substring - _%str85256%_ - _%start85281%_ - _%end85299%_)) - _%r85278%_)))) - _%$e85294%_) + _%str86388%_ + _%start86413%_ + _%end86431%_)) + _%r86410%_)))) + _%$e86426%_) (if (let () (declare (not safe)) - (##fx< _%start85281%_ _%len85273%_)) + (##fx< _%start86413%_ _%len86405%_)) (__foldl1 cons (list (let () (declare (not safe)) (##substring - _%str85256%_ - _%start85281%_ - _%len85273%_))) - _%r85278%_) - (reverse! _%r85278%_)))))))) + _%str86388%_ + _%start86413%_ + _%len86405%_))) + _%r86410%_) + (reverse! _%r86410%_)))))))) (define string-join - (lambda (_%strs85102%_ _%join85103%_) - (letrec ((_%join-length85106%_ - (lambda (_%strs85190%_ _%jlen85191%_) - (let _%lp85193%_ ((_%rest85195%_ _%strs85190%_) - (_%len85196%_ '0)) - (let* ((_%len85198%_ _%len85196%_) - (_%rest8520685214%_ _%rest85195%_) - (_%else8520885222%_ (lambda () '0)) - (_%K8521085240%_ - (lambda (_%rest85225%_ _%hd85226%_) - (if (string? _%hd85226%_) - (let ((_%hd85228%_ _%hd85226%_)) - (if (pair? _%rest85225%_) - (_%lp85193%_ - _%rest85225%_ + (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%_ (fx+ (let () (declare (not safe)) (##string-length - _%hd85228%_)) - _%jlen85191%_ - _%len85198%_)) - (let ((__tmp90051 + _%hd86360%_)) + _%jlen86323%_ + _%len86330%_)) + (let ((__tmp91183 (let () (declare (not safe)) (##string-length - _%hd85228%_)))) + _%hd86360%_)))) (declare (not safe)) - (##fx+ __tmp90051 _%len85198%_)))) - (error '"expected string" _%hd85226%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest8520685214%_)) - (let ((_%hd8521185243%_ + (##fx+ __tmp91183 _%len86330%_)))) + (error '"expected string" _%hd86358%_))))) + (if (pair? _%rest8633886346%_) + (let ((_%hd8634386375%_ (let () (declare (not safe)) - (##car _%rest8520685214%_))) - (_%tl8521285245%_ + (##car _%rest8633886346%_))) + (_%tl8634486377%_ (let () (declare (not safe)) - (##cdr _%rest8520685214%_)))) - (let* ((_%hd85248%_ _%hd8521185243%_) - (_%rest85250%_ _%tl8521285245%_)) - (_%K8521085240%_ _%rest85250%_ _%hd85248%_))) - (_%else8520885222%_))))))) - (let* ((_%join85111%_ - (if (char? _%join85103%_) - (let () (declare (not safe)) (##string _%join85103%_)) - (if (string? _%join85103%_) - _%join85103%_ - (error '"expected string or char" _%join85103%_)))) - (_%jlen85113%_ + (##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%_ (let () (declare (not safe)) - (##string-length _%join85111%_))) - (_%olen85115%_ - (_%join-length85106%_ _%strs85102%_ _%jlen85113%_)) - (_%ostr85117%_ - (let () (declare (not safe)) (##make-string _%olen85115%_)))) - (let _%lp85120%_ ((_%rest85122%_ _%strs85102%_) (_%k85123%_ '0)) - (let* ((_%k85126%_ _%k85123%_) - (_%rest8514285150%_ _%rest85122%_) - (_%else8514485158%_ (lambda () '"")) - (_%K8514685178%_ - (lambda (_%rest85161%_ _%hd85162%_) - (let* ((_%hd85164%_ _%hd85162%_) - (_%hdlen85176%_ + (##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%_ (let () (declare (not safe)) - (##string-length _%hd85164%_)))) - (if (pair? _%rest85161%_) + (##string-length _%hd86296%_)))) + (if (pair? _%rest86293%_) (begin (let () (declare (not safe)) (##substring-move! - _%hd85164%_ + _%hd86296%_ '0 - _%hdlen85176%_ - _%ostr85117%_ - _%k85126%_)) - (let ((__tmp90052 + _%hdlen86308%_ + _%ostr86249%_ + _%k86258%_)) + (let ((__tmp91184 (let () (declare (not safe)) - (##fx+ _%k85126%_ _%hdlen85176%_)))) + (##fx+ _%k86258%_ _%hdlen86308%_)))) (declare (not safe)) (##substring-move! - _%join85111%_ + _%join86243%_ '0 - _%jlen85113%_ - _%ostr85117%_ - __tmp90052)) - (_%lp85120%_ - _%rest85161%_ + _%jlen86245%_ + _%ostr86249%_ + __tmp91184)) + (_%lp86252%_ + _%rest86293%_ (let () (declare (not safe)) - (##fx+ _%k85126%_ - _%hdlen85176%_ - _%jlen85113%_)))) + (##fx+ _%k86258%_ + _%hdlen86308%_ + _%jlen86245%_)))) (begin (let () (declare (not safe)) (##substring-move! - _%hd85164%_ + _%hd86296%_ '0 - _%hdlen85176%_ - _%ostr85117%_ - _%k85126%_)) - _%ostr85117%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8514285150%_)) - (let ((_%hd8514785181%_ + _%hdlen86308%_ + _%ostr86249%_ + _%k86258%_)) + _%ostr86249%_)))))) + (if (pair? _%rest8627486282%_) + (let ((_%hd8627986313%_ (let () (declare (not safe)) - (##car _%rest8514285150%_))) - (_%tl8514885183%_ + (##car _%rest8627486282%_))) + (_%tl8628086315%_ (let () (declare (not safe)) - (##cdr _%rest8514285150%_)))) - (let* ((_%hd85186%_ _%hd8514785181%_) - (_%rest85188%_ _%tl8514885183%_)) - (_%K8514685178%_ _%rest85188%_ _%hd85186%_))) - (_%else8514485158%_)))))))) + (##cdr _%rest8627486282%_)))) + (let* ((_%hd86318%_ _%hd8627986313%_) + (_%rest86320%_ _%tl8628086315%_)) + (_%K8627886310%_ _%rest86320%_ _%hd86318%_))) + (_%else8627686290%_)))))))) (define read-u8vector__% - (lambda (_%bytes85028%_ _%port85029%_ _%start85030%_ _%end85031%_) - (if (u8vector? _%bytes85028%_) - (let ((_%bytes85035%_ _%bytes85028%_)) - (if (input-port? _%port85029%_) - (let ((_%port85045%_ _%port85029%_)) - (if ((lambda (_%o85054%_) - (and (fixnum? _%o85054%_) + (lambda (_%bytes86160%_ _%port86161%_ _%start86162%_ _%end86163%_) + (if (u8vector? _%bytes86160%_) + (let ((_%bytes86167%_ _%bytes86160%_)) + (if (input-port? _%port86161%_) + (let ((_%port86177%_ _%port86161%_)) + (if ((lambda (_%o86186%_) + (and (fixnum? _%o86186%_) (let () (declare (not safe)) - (##fx>= _%o85054%_ '0)) - (let ((__tmp90053 + (##fx>= _%o86186%_ '0)) + (let ((__tmp91185 (let () (declare (not safe)) - (##u8vector-length _%bytes85035%_)))) + (##u8vector-length _%bytes86167%_)))) (declare (not safe)) - (##fx< _%o85054%_ __tmp90053)))) - _%start85030%_) - (let ((_%start85058%_ _%start85030%_)) - (if ((lambda (_%o85067%_) - (and (fixnum? _%o85067%_) - (let ((__tmp90054 + (##fx< _%o86186%_ __tmp91185)))) + _%start86162%_) + (let ((_%start86190%_ _%start86162%_)) + (if ((lambda (_%o86199%_) + (and (fixnum? _%o86199%_) + (let ((__tmp91186 (let () (declare (not safe)) (##u8vector-length - _%bytes85035%_)))) + _%bytes86167%_)))) (declare (not safe)) - (##fx<= _%start85058%_ - _%o85067%_ - __tmp90054)))) - _%end85031%_) - (let ((_%end85071%_ _%end85031%_)) + (##fx<= _%start86190%_ + _%o86199%_ + __tmp91186)))) + _%end86163%_) + (let ((_%end86203%_ _%end86163%_)) (__read-u8vector__% - _%bytes85035%_ - _%port85045%_ - _%start85058%_ - _%end85071%_)) + _%bytes86167%_ + _%port86177%_ + _%start86190%_ + _%end86203%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2543,7 +2517,7 @@ start (u8vector-length bytes)) 'value: - _%end85031%_) + _%end86163%_) '#!void))) (begin (raise-contract-violation-error @@ -2553,7 +2527,7 @@ 'contract: '(in-range? 0 (u8vector-length bytes)) 'value: - _%start85030%_) + _%start86162%_) '#!void))) (begin (raise-contract-violation-error @@ -2563,7 +2537,7 @@ 'contract: 'input-port? 'value: - _%port85029%_) + _%port86161%_) '#!void))) (begin (raise-contract-violation-error @@ -2573,117 +2547,117 @@ 'contract: 'u8vector? 'value: - _%bytes85028%_) + _%bytes86160%_) '#!void)))) (define read-u8vector__0 - (lambda (_%bytes85084%_ _%port85085%_) - (let* ((_%start85087%_ '0) - (_%end85089%_ (u8vector-length _%bytes85084%_))) + (lambda (_%bytes86216%_ _%port86217%_) + (let* ((_%start86219%_ '0) + (_%end86221%_ (u8vector-length _%bytes86216%_))) (read-u8vector__% - _%bytes85084%_ - _%port85085%_ - _%start85087%_ - _%end85089%_)))) + _%bytes86216%_ + _%port86217%_ + _%start86219%_ + _%end86221%_)))) (define read-u8vector__1 - (lambda (_%bytes85091%_ _%port85092%_ _%start85093%_) - (let ((_%end85095%_ (u8vector-length _%bytes85091%_))) + (lambda (_%bytes86223%_ _%port86224%_ _%start86225%_) + (let ((_%end86227%_ (u8vector-length _%bytes86223%_))) (read-u8vector__% - _%bytes85091%_ - _%port85092%_ - _%start85093%_ - _%end85095%_)))) + _%bytes86223%_ + _%port86224%_ + _%start86225%_ + _%end86227%_)))) (define read-u8vector - (lambda _g90056_ - (let ((_g90055_ (let () (declare (not safe)) (##length _g90056_)))) - (cond ((let () (declare (not safe)) (##fx= _g90055_ 2)) - (apply read-u8vector__0 _g90056_)) - ((let () (declare (not safe)) (##fx= _g90055_ 3)) - (apply read-u8vector__1 _g90056_)) - ((let () (declare (not safe)) (##fx= _g90055_ 4)) - (apply read-u8vector__% _g90056_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception read-u8vector - _g90056_)))))) + _g91188_)))))) (define __read-u8vector__% - (lambda (_%bytes84967%_ _%port84968%_ _%start84969%_ _%end84970%_) - (let* ((_%bytes84973%_ _%bytes84967%_) - (_%port84981%_ _%port84968%_) - (_%start84989%_ _%start84969%_) - (_%end84997%_ _%end84970%_)) + (lambda (_%bytes86099%_ _%port86100%_ _%start86101%_ _%end86102%_) + (let* ((_%bytes86105%_ _%bytes86099%_) + (_%port86113%_ _%port86100%_) + (_%start86121%_ _%start86101%_) + (_%end86129%_ _%end86102%_)) (declare (not safe)) (##read-subu8vector - _%bytes84973%_ - _%start84989%_ - _%end84997%_ - _%port84981%_)))) + _%bytes86105%_ + _%start86121%_ + _%end86129%_ + _%port86113%_)))) (define __read-u8vector__0 - (lambda (_%bytes85009%_ _%port85010%_) - (let* ((_%start85012%_ '0) - (_%end85014%_ (u8vector-length _%bytes85009%_))) + (lambda (_%bytes86141%_ _%port86142%_) + (let* ((_%start86144%_ '0) + (_%end86146%_ (u8vector-length _%bytes86141%_))) (__read-u8vector__% - _%bytes85009%_ - _%port85010%_ - _%start85012%_ - _%end85014%_)))) + _%bytes86141%_ + _%port86142%_ + _%start86144%_ + _%end86146%_)))) (define __read-u8vector__1 - (lambda (_%bytes85016%_ _%port85017%_ _%start85018%_) - (let ((_%end85020%_ (u8vector-length _%bytes85016%_))) + (lambda (_%bytes86148%_ _%port86149%_ _%start86150%_) + (let ((_%end86152%_ (u8vector-length _%bytes86148%_))) (__read-u8vector__% - _%bytes85016%_ - _%port85017%_ - _%start85018%_ - _%end85020%_)))) + _%bytes86148%_ + _%port86149%_ + _%start86150%_ + _%end86152%_)))) (define __read-u8vector - (lambda _g90058_ - (let ((_g90057_ (let () (declare (not safe)) (##length _g90058_)))) - (cond ((let () (declare (not safe)) (##fx= _g90057_ 2)) - (apply __read-u8vector__0 _g90058_)) - ((let () (declare (not safe)) (##fx= _g90057_ 3)) - (apply __read-u8vector__1 _g90058_)) - ((let () (declare (not safe)) (##fx= _g90057_ 4)) - (apply __read-u8vector__% _g90058_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __read-u8vector - _g90058_)))))) + _g91190_)))))) (define write-u8vector__% - (lambda (_%bytes84892%_ _%port84893%_ _%start84894%_ _%end84895%_) - (if (u8vector? _%bytes84892%_) - (let ((_%bytes84899%_ _%bytes84892%_)) - (if (output-port? _%port84893%_) - (let ((_%port84909%_ _%port84893%_)) - (if ((lambda (_%o84918%_) - (and (fixnum? _%o84918%_) + (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>= _%o84918%_ '0)) - (let ((__tmp90059 + (##fx>= _%o86050%_ '0)) + (let ((__tmp91191 (let () (declare (not safe)) - (##u8vector-length _%bytes84899%_)))) + (##u8vector-length _%bytes86031%_)))) (declare (not safe)) - (##fx< _%o84918%_ __tmp90059)))) - _%start84894%_) - (let ((_%start84922%_ _%start84894%_)) - (if ((lambda (_%o84931%_) - (and (fixnum? _%o84931%_) - (let ((__tmp90060 + (##fx< _%o86050%_ __tmp91191)))) + _%start86026%_) + (let ((_%start86054%_ _%start86026%_)) + (if ((lambda (_%o86063%_) + (and (fixnum? _%o86063%_) + (let ((__tmp91192 (let () (declare (not safe)) (##u8vector-length - _%bytes84899%_)))) + _%bytes86031%_)))) (declare (not safe)) - (##fx<= _%start84922%_ - _%o84931%_ - __tmp90060)))) - _%end84895%_) - (let ((_%end84935%_ _%end84895%_)) + (##fx<= _%start86054%_ + _%o86063%_ + __tmp91192)))) + _%end86027%_) + (let ((_%end86067%_ _%end86027%_)) (__write-u8vector__% - _%bytes84899%_ - _%port84909%_ - _%start84922%_ - _%end84935%_)) + _%bytes86031%_ + _%port86041%_ + _%start86054%_ + _%end86067%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2694,7 +2668,7 @@ start (u8vector-length bytes)) 'value: - _%end84895%_) + _%end86027%_) '#!void))) (begin (raise-contract-violation-error @@ -2704,7 +2678,7 @@ 'contract: '(in-range? 0 (u8vector-length bytes)) 'value: - _%start84894%_) + _%start86026%_) '#!void))) (begin (raise-contract-violation-error @@ -2714,7 +2688,7 @@ 'contract: 'output-port? 'value: - _%port84893%_) + _%port86025%_) '#!void))) (begin (raise-contract-violation-error @@ -2724,131 +2698,131 @@ 'contract: 'u8vector? 'value: - _%bytes84892%_) + _%bytes86024%_) '#!void)))) (define write-u8vector__0 - (lambda (_%bytes84948%_ _%port84949%_) - (let* ((_%start84951%_ '0) - (_%end84953%_ (u8vector-length _%bytes84948%_))) + (lambda (_%bytes86080%_ _%port86081%_) + (let* ((_%start86083%_ '0) + (_%end86085%_ (u8vector-length _%bytes86080%_))) (write-u8vector__% - _%bytes84948%_ - _%port84949%_ - _%start84951%_ - _%end84953%_)))) + _%bytes86080%_ + _%port86081%_ + _%start86083%_ + _%end86085%_)))) (define write-u8vector__1 - (lambda (_%bytes84955%_ _%port84956%_ _%start84957%_) - (let ((_%end84959%_ (u8vector-length _%bytes84955%_))) + (lambda (_%bytes86087%_ _%port86088%_ _%start86089%_) + (let ((_%end86091%_ (u8vector-length _%bytes86087%_))) (write-u8vector__% - _%bytes84955%_ - _%port84956%_ - _%start84957%_ - _%end84959%_)))) + _%bytes86087%_ + _%port86088%_ + _%start86089%_ + _%end86091%_)))) (define write-u8vector - (lambda _g90062_ - (let ((_g90061_ (let () (declare (not safe)) (##length _g90062_)))) - (cond ((let () (declare (not safe)) (##fx= _g90061_ 2)) - (apply write-u8vector__0 _g90062_)) - ((let () (declare (not safe)) (##fx= _g90061_ 3)) - (apply write-u8vector__1 _g90062_)) - ((let () (declare (not safe)) (##fx= _g90061_ 4)) - (apply write-u8vector__% _g90062_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception write-u8vector - _g90062_)))))) + _g91194_)))))) (define __write-u8vector__% - (lambda (_%bytes84831%_ _%port84832%_ _%start84833%_ _%end84834%_) - (let* ((_%bytes84837%_ _%bytes84831%_) - (_%port84845%_ _%port84832%_) - (_%start84853%_ _%start84833%_) - (_%end84861%_ _%end84834%_)) + (lambda (_%bytes85963%_ _%port85964%_ _%start85965%_ _%end85966%_) + (let* ((_%bytes85969%_ _%bytes85963%_) + (_%port85977%_ _%port85964%_) + (_%start85985%_ _%start85965%_) + (_%end85993%_ _%end85966%_)) (declare (not safe)) (##write-subu8vector - _%bytes84837%_ - _%start84853%_ - _%end84861%_ - _%port84845%_)))) + _%bytes85969%_ + _%start85985%_ + _%end85993%_ + _%port85977%_)))) (define __write-u8vector__0 - (lambda (_%bytes84873%_ _%port84874%_) - (let* ((_%start84876%_ '0) - (_%end84878%_ (u8vector-length _%bytes84873%_))) + (lambda (_%bytes86005%_ _%port86006%_) + (let* ((_%start86008%_ '0) + (_%end86010%_ (u8vector-length _%bytes86005%_))) (__write-u8vector__% - _%bytes84873%_ - _%port84874%_ - _%start84876%_ - _%end84878%_)))) + _%bytes86005%_ + _%port86006%_ + _%start86008%_ + _%end86010%_)))) (define __write-u8vector__1 - (lambda (_%bytes84880%_ _%port84881%_ _%start84882%_) - (let ((_%end84884%_ (u8vector-length _%bytes84880%_))) + (lambda (_%bytes86012%_ _%port86013%_ _%start86014%_) + (let ((_%end86016%_ (u8vector-length _%bytes86012%_))) (__write-u8vector__% - _%bytes84880%_ - _%port84881%_ - _%start84882%_ - _%end84884%_)))) + _%bytes86012%_ + _%port86013%_ + _%start86014%_ + _%end86016%_)))) (define __write-u8vector - (lambda _g90064_ - (let ((_g90063_ (let () (declare (not safe)) (##length _g90064_)))) - (cond ((let () (declare (not safe)) (##fx= _g90063_ 2)) - (apply __write-u8vector__0 _g90064_)) - ((let () (declare (not safe)) (##fx= _g90063_ 3)) - (apply __write-u8vector__1 _g90064_)) - ((let () (declare (not safe)) (##fx= _g90063_ 4)) - (apply __write-u8vector__% _g90064_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __write-u8vector - _g90064_)))))) + _g91196_)))))) (define DBG-printer (make-parameter write)) (define DBG-helper - (lambda (_%tag84799%_ - _%dbg-exprs84800%_ - _%dbg-thunks84801%_ - _%expr84802%_ - _%thunk84803%_) - (letrec ((_%o84805%_ (current-output-port)) - (_%e84806%_ (current-error-port)) - (_%p84807%_ (let () (declare (not safe)) (DBG-printer))) - (_%f84808%_ + (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 () - (force-output _%o84805%_) - (force-output _%e84806%_))) - (_%d84809%_ - (lambda (_%x84816%_) (display _%x84816%_ _%e84806%_))) - (_%w84810%_ - (lambda (_%x84818%_) (_%p84807%_ _%x84818%_ _%e84806%_))) - (_%n84811%_ (lambda () (newline _%e84806%_))) - (_%v84812%_ - (lambda (_%l84821%_) + (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%_) (for-each - (lambda (_%x84823%_) - (_%d84809%_ '" ") - (_%w84810%_ _%x84823%_)) - _%l84821%_) - (_%n84811%_))) - (_%x84813%_ - (lambda (_%expr84825%_ _%thunk84826%_) - (_%f84808%_) - (_%d84809%_ '" ") - (_%w84810%_ _%expr84825%_) - (_%d84809%_ '" =>") + (lambda (_%x85955%_) + (_%d85941%_ '" ") + (_%w85942%_ _%x85955%_)) + _%l85953%_) + (_%n85943%_))) + (_%x85945%_ + (lambda (_%expr85957%_ _%thunk85958%_) + (_%f85940%_) + (_%d85941%_ '" ") + (_%w85942%_ _%expr85957%_) + (_%d85941%_ '" =>") (call-with-values - _%thunk84826%_ - (lambda _%x84828%_ - (_%v84812%_ _%x84828%_) - (_%f84808%_) + _%thunk85958%_ + (lambda _%x85960%_ + (_%v85944%_ _%x85960%_) + (_%f85940%_) (let () (declare (not safe)) - (##apply values _%x84828%_))))))) - (if _%tag84799%_ + (##apply values _%x85960%_))))))) + (if _%tag85931%_ (begin - (if (eq? _%tag84799%_ '#!void) + (if (eq? _%tag85931%_ '#!void) '#!void (begin - (_%f84808%_) - (_%d84809%_ _%tag84799%_) - (_%n84811%_))) - (for-each _%x84813%_ _%dbg-exprs84800%_ _%dbg-thunks84801%_) - (if _%thunk84803%_ - (_%x84813%_ _%expr84802%_ _%thunk84803%_) + (_%f85940%_) + (_%d85941%_ _%tag85931%_) + (_%n85943%_))) + (for-each _%x85945%_ _%dbg-exprs85932%_ _%dbg-thunks85933%_) + (if _%thunk85935%_ + (_%x85945%_ _%expr85934%_ _%thunk85935%_) '#!void)) - (if _%thunk84803%_ (_%thunk84803%_) '#!void))))))) + (if _%thunk85935%_ (_%thunk85935%_) '#!void))))))) diff --git a/src/bootstrap/gerbil/runtime/util~1.scm b/src/bootstrap/gerbil/runtime/util~1.scm index 4606c476f..2593410bb 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]#_g90066_| + (define |[1]#_g91198_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |[1]#_g90076_| + (define |[1]#_g91208_| (##structure gx#syntax-quote::t 'quote @@ -16,49 +16,49 @@ '())) (begin (define |[:0:]#declare-inline| - (lambda (_%$stx83132%_) - (let* ((_%g8313683154%_ - (lambda (_%g8313783150%_) + (lambda (_%$stx84264%_) + (let* ((_%g8426884286%_ + (lambda (_%g8426984282%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8313783150%_))) - (_%g8313583210%_ - (lambda (_%g8313783158%_) - (if (gx#stx-pair? _%g8313783158%_) - (let ((_%e8314083161%_ (gx#syntax-e _%g8313783158%_))) - (let ((_%hd8314183165%_ + _%g8426984282%_))) + (_%g8426784342%_ + (lambda (_%g8426984290%_) + (if (gx#stx-pair? _%g8426984290%_) + (let ((_%e8427284293%_ (gx#syntax-e _%g8426984290%_))) + (let ((_%hd8427384297%_ (let () (declare (not safe)) - (##car _%e8314083161%_))) - (_%tl8314283168%_ + (##car _%e8427284293%_))) + (_%tl8427484300%_ (let () (declare (not safe)) - (##cdr _%e8314083161%_)))) - (if (gx#stx-pair? _%tl8314283168%_) - (let ((_%e8314383171%_ - (gx#syntax-e _%tl8314283168%_))) - (let ((_%hd8314483175%_ + (##cdr _%e8427284293%_)))) + (if (gx#stx-pair? _%tl8427484300%_) + (let ((_%e8427584303%_ + (gx#syntax-e _%tl8427484300%_))) + (let ((_%hd8427684307%_ (let () (declare (not safe)) - (##car _%e8314383171%_))) - (_%tl8314583178%_ + (##car _%e8427584303%_))) + (_%tl8427784310%_ (let () (declare (not safe)) - (##cdr _%e8314383171%_)))) - (if (gx#stx-pair? _%tl8314583178%_) - (let ((_%e8314683181%_ - (gx#syntax-e _%tl8314583178%_))) - (let ((_%hd8314783185%_ + (##cdr _%e8427584303%_)))) + (if (gx#stx-pair? _%tl8427784310%_) + (let ((_%e8427884313%_ + (gx#syntax-e _%tl8427784310%_))) + (let ((_%hd8427984317%_ (let () (declare (not safe)) - (##car _%e8314683181%_))) - (_%tl8314883188%_ + (##car _%e8427884313%_))) + (_%tl8428084320%_ (let () (declare (not safe)) - (##cdr _%e8314683181%_)))) - (if (gx#stx-null? _%tl8314883188%_) - ((lambda (_%L83191%_ _%L83193%_) + (##cdr _%e8427884313%_)))) + (if (gx#stx-null? _%tl8428084320%_) + ((lambda (_%L84323%_ _%L84325%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -66,52 +66,52 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@inline) - (cons _%L83193%_ '())) + (cons _%L84325%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L83191%_ '())) + (cons _%L84323%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8314783185%_ - _%hd8314483175%_) - (_%g8313683154%_ - _%g8313783158%_)))) - (_%g8313683154%_ _%g8313783158%_)))) - (_%g8313683154%_ _%g8313783158%_)))) - (_%g8313683154%_ _%g8313783158%_))))) - (_%g8313583210%_ _%$stx83132%_)))) + _%hd8427984317%_ + _%hd8427684307%_) + (_%g8426884286%_ + _%g8426984290%_)))) + (_%g8426884286%_ _%g8426984290%_)))) + (_%g8426884286%_ _%g8426984290%_)))) + (_%g8426884286%_ _%g8426984290%_))))) + (_%g8426784342%_ _%$stx84264%_)))) (define |[:0:]#__lock-inline!| - (lambda (_%$stx83214%_) - (let* ((_%g8321883232%_ - (lambda (_%g8321983228%_) + (lambda (_%$stx84346%_) + (let* ((_%g8435084364%_ + (lambda (_%g8435184360%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8321983228%_))) - (_%g8321783273%_ - (lambda (_%g8321983236%_) - (if (gx#stx-pair? _%g8321983236%_) - (let ((_%e8322183239%_ (gx#syntax-e _%g8321983236%_))) - (let ((_%hd8322283243%_ + _%g8435184360%_))) + (_%g8434984405%_ + (lambda (_%g8435184368%_) + (if (gx#stx-pair? _%g8435184368%_) + (let ((_%e8435384371%_ (gx#syntax-e _%g8435184368%_))) + (let ((_%hd8435484375%_ (let () (declare (not safe)) - (##car _%e8322183239%_))) - (_%tl8322383246%_ + (##car _%e8435384371%_))) + (_%tl8435584378%_ (let () (declare (not safe)) - (##cdr _%e8322183239%_)))) - (if (gx#stx-pair? _%tl8322383246%_) - (let ((_%e8322483249%_ - (gx#syntax-e _%tl8322383246%_))) - (let ((_%hd8322583253%_ + (##cdr _%e8435384371%_)))) + (if (gx#stx-pair? _%tl8435584378%_) + (let ((_%e8435684381%_ + (gx#syntax-e _%tl8435584378%_))) + (let ((_%hd8435784385%_ (let () (declare (not safe)) - (##car _%e8322483249%_))) - (_%tl8322683256%_ + (##car _%e8435684381%_))) + (_%tl8435884388%_ (let () (declare (not safe)) - (##cdr _%e8322483249%_)))) - (if (gx#stx-null? _%tl8322683256%_) - ((lambda (_%L83259%_) + (##cdr _%e8435684381%_)))) + (if (gx#stx-null? _%tl8435884388%_) + ((lambda (_%L84391%_) (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 _%L83259%_ + (cons _%L84391%_ (cons '0 (cons '1 (cons '0 '()))))) (cons '0 '()))) @@ -146,133 +146,133 @@ '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8322583253%_) - (_%g8321883232%_ _%g8321983236%_)))) - (_%g8321883232%_ _%g8321983236%_)))) - (_%g8321883232%_ _%g8321983236%_))))) - (_%g8321783273%_ _%$stx83214%_)))) + _%hd8435784385%_) + (_%g8435084364%_ _%g8435184368%_)))) + (_%g8435084364%_ _%g8435184368%_)))) + (_%g8435084364%_ _%g8435184368%_))))) + (_%g8434984405%_ _%$stx84346%_)))) (define |[:0:]#__unlock-inline!| - (lambda (_%$stx83277%_) - (let* ((_%g8328183295%_ - (lambda (_%g8328283291%_) + (lambda (_%$stx84409%_) + (let* ((_%g8441384427%_ + (lambda (_%g8441484423%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8328283291%_))) - (_%g8328083336%_ - (lambda (_%g8328283299%_) - (if (gx#stx-pair? _%g8328283299%_) - (let ((_%e8328483302%_ (gx#syntax-e _%g8328283299%_))) - (let ((_%hd8328583306%_ + _%g8441484423%_))) + (_%g8441284468%_ + (lambda (_%g8441484431%_) + (if (gx#stx-pair? _%g8441484431%_) + (let ((_%e8441684434%_ (gx#syntax-e _%g8441484431%_))) + (let ((_%hd8441784438%_ (let () (declare (not safe)) - (##car _%e8328483302%_))) - (_%tl8328683309%_ + (##car _%e8441684434%_))) + (_%tl8441884441%_ (let () (declare (not safe)) - (##cdr _%e8328483302%_)))) - (if (gx#stx-pair? _%tl8328683309%_) - (let ((_%e8328783312%_ - (gx#syntax-e _%tl8328683309%_))) - (let ((_%hd8328883316%_ + (##cdr _%e8441684434%_)))) + (if (gx#stx-pair? _%tl8441884441%_) + (let ((_%e8441984444%_ + (gx#syntax-e _%tl8441884441%_))) + (let ((_%hd8442084448%_ (let () (declare (not safe)) - (##car _%e8328783312%_))) - (_%tl8328983319%_ + (##car _%e8441984444%_))) + (_%tl8442184451%_ (let () (declare (not safe)) - (##cdr _%e8328783312%_)))) - (if (gx#stx-null? _%tl8328983319%_) - ((lambda (_%L83322%_) + (##cdr _%e8441984444%_)))) + (if (gx#stx-null? _%tl8442184451%_) + ((lambda (_%L84454%_) (cons (gx#datum->syntax '#f '##vector-cas!) - (cons _%L83322%_ + (cons _%L84454%_ (cons '0 (cons '0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '1 '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8328883316%_) - (_%g8328183295%_ _%g8328283299%_)))) - (_%g8328183295%_ _%g8328283299%_)))) - (_%g8328183295%_ _%g8328283299%_))))) - (_%g8328083336%_ _%$stx83277%_)))) + _%hd8442084448%_) + (_%g8441384427%_ _%g8441484431%_)))) + (_%g8441384427%_ _%g8441484431%_)))) + (_%g8441384427%_ _%g8441484431%_))))) + (_%g8441284468%_ _%$stx84409%_)))) (define |[:0:]#__make-inline-lock| - (lambda (_%$stx83340%_) - (let* ((_%g8334483354%_ - (lambda (_%g8334583350%_) + (lambda (_%$stx84472%_) + (let* ((_%g8447684486%_ + (lambda (_%g8447784482%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8334583350%_))) - (_%g8334383375%_ - (lambda (_%g8334583358%_) - (if (gx#stx-pair? _%g8334583358%_) - (let ((_%e8334683361%_ (gx#syntax-e _%g8334583358%_))) - (let ((_%hd8334783365%_ + _%g8447784482%_))) + (_%g8447584507%_ + (lambda (_%g8447784490%_) + (if (gx#stx-pair? _%g8447784490%_) + (let ((_%e8447884493%_ (gx#syntax-e _%g8447784490%_))) + (let ((_%hd8447984497%_ (let () (declare (not safe)) - (##car _%e8334683361%_))) - (_%tl8334883368%_ + (##car _%e8447884493%_))) + (_%tl8448084500%_ (let () (declare (not safe)) - (##cdr _%e8334683361%_)))) - (if (gx#stx-null? _%tl8334883368%_) + (##cdr _%e8447884493%_)))) + (if (gx#stx-null? _%tl8448084500%_) ((lambda () (cons (gx#datum->syntax '#f 'vector) (cons '0 '())))) - (_%g8334483354%_ _%g8334583358%_)))) - (_%g8334483354%_ _%g8334583358%_))))) - (_%g8334383375%_ _%$stx83340%_)))) + (_%g8447684486%_ _%g8447784490%_)))) + (_%g8447684486%_ _%g8447784490%_))))) + (_%g8447584507%_ _%$stx84472%_)))) (define |[:0:]#defaget| - (lambda (_%$stx83379%_) - (let* ((_%g8338383401%_ - (lambda (_%g8338483397%_) + (lambda (_%$stx84511%_) + (let* ((_%g8451584533%_ + (lambda (_%g8451684529%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8338483397%_))) - (_%g8338283456%_ - (lambda (_%g8338483405%_) - (if (gx#stx-pair? _%g8338483405%_) - (let ((_%e8338783408%_ (gx#syntax-e _%g8338483405%_))) - (let ((_%hd8338883412%_ + _%g8451684529%_))) + (_%g8451484588%_ + (lambda (_%g8451684537%_) + (if (gx#stx-pair? _%g8451684537%_) + (let ((_%e8451984540%_ (gx#syntax-e _%g8451684537%_))) + (let ((_%hd8452084544%_ (let () (declare (not safe)) - (##car _%e8338783408%_))) - (_%tl8338983415%_ + (##car _%e8451984540%_))) + (_%tl8452184547%_ (let () (declare (not safe)) - (##cdr _%e8338783408%_)))) - (if (gx#stx-pair? _%tl8338983415%_) - (let ((_%e8339083418%_ - (gx#syntax-e _%tl8338983415%_))) - (let ((_%hd8339183422%_ + (##cdr _%e8451984540%_)))) + (if (gx#stx-pair? _%tl8452184547%_) + (let ((_%e8452284550%_ + (gx#syntax-e _%tl8452184547%_))) + (let ((_%hd8452384554%_ (let () (declare (not safe)) - (##car _%e8339083418%_))) - (_%tl8339283425%_ + (##car _%e8452284550%_))) + (_%tl8452484557%_ (let () (declare (not safe)) - (##cdr _%e8339083418%_)))) - (if (gx#stx-pair? _%tl8339283425%_) - (let ((_%e8339383428%_ - (gx#syntax-e _%tl8339283425%_))) - (let ((_%hd8339483432%_ + (##cdr _%e8452284550%_)))) + (if (gx#stx-pair? _%tl8452484557%_) + (let ((_%e8452584560%_ + (gx#syntax-e _%tl8452484557%_))) + (let ((_%hd8452684564%_ (let () (declare (not safe)) - (##car _%e8339383428%_))) - (_%tl8339583435%_ + (##car _%e8452584560%_))) + (_%tl8452784567%_ (let () (declare (not safe)) - (##cdr _%e8339383428%_)))) - (if (gx#stx-null? _%tl8339583435%_) - ((lambda (_%L83438%_ _%L83440%_) + (##cdr _%e8452584560%_)))) + (if (gx#stx-null? _%tl8452784567%_) + ((lambda (_%L84570%_ _%L84572%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L83440%_ + (cons (cons _%L84572%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) @@ -291,7 +291,7 @@ '#f 'lst) '())) - (cons (cons _%L83438%_ + (cons (cons _%L84570%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) '()))) '()))) @@ -328,62 +328,62 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8339483432%_ - _%hd8339183422%_) - (_%g8338383401%_ - _%g8338483405%_)))) - (_%g8338383401%_ _%g8338483405%_)))) - (_%g8338383401%_ _%g8338483405%_)))) - (_%g8338383401%_ _%g8338483405%_))))) - (_%g8338283456%_ _%$stx83379%_)))) + _%hd8452684564%_ + _%hd8452384554%_) + (_%g8451584533%_ + _%g8451684537%_)))) + (_%g8451584533%_ _%g8451684537%_)))) + (_%g8451584533%_ _%g8451684537%_)))) + (_%g8451584533%_ _%g8451684537%_))))) + (_%g8451484588%_ _%$stx84511%_)))) (define |[:0:]#defpget| - (lambda (_%$stx83460%_) - (let* ((_%g8346483482%_ - (lambda (_%g8346583478%_) + (lambda (_%$stx84592%_) + (let* ((_%g8459684614%_ + (lambda (_%g8459784610%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8346583478%_))) - (_%g8346383537%_ - (lambda (_%g8346583486%_) - (if (gx#stx-pair? _%g8346583486%_) - (let ((_%e8346883489%_ (gx#syntax-e _%g8346583486%_))) - (let ((_%hd8346983493%_ + _%g8459784610%_))) + (_%g8459584669%_ + (lambda (_%g8459784618%_) + (if (gx#stx-pair? _%g8459784618%_) + (let ((_%e8460084621%_ (gx#syntax-e _%g8459784618%_))) + (let ((_%hd8460184625%_ (let () (declare (not safe)) - (##car _%e8346883489%_))) - (_%tl8347083496%_ + (##car _%e8460084621%_))) + (_%tl8460284628%_ (let () (declare (not safe)) - (##cdr _%e8346883489%_)))) - (if (gx#stx-pair? _%tl8347083496%_) - (let ((_%e8347183499%_ - (gx#syntax-e _%tl8347083496%_))) - (let ((_%hd8347283503%_ + (##cdr _%e8460084621%_)))) + (if (gx#stx-pair? _%tl8460284628%_) + (let ((_%e8460384631%_ + (gx#syntax-e _%tl8460284628%_))) + (let ((_%hd8460484635%_ (let () (declare (not safe)) - (##car _%e8347183499%_))) - (_%tl8347383506%_ + (##car _%e8460384631%_))) + (_%tl8460584638%_ (let () (declare (not safe)) - (##cdr _%e8347183499%_)))) - (if (gx#stx-pair? _%tl8347383506%_) - (let ((_%e8347483509%_ - (gx#syntax-e _%tl8347383506%_))) - (let ((_%hd8347583513%_ + (##cdr _%e8460384631%_)))) + (if (gx#stx-pair? _%tl8460584638%_) + (let ((_%e8460684641%_ + (gx#syntax-e _%tl8460584638%_))) + (let ((_%hd8460784645%_ (let () (declare (not safe)) - (##car _%e8347483509%_))) - (_%tl8347683516%_ + (##car _%e8460684641%_))) + (_%tl8460884648%_ (let () (declare (not safe)) - (##cdr _%e8347483509%_)))) - (if (gx#stx-null? _%tl8347683516%_) - ((lambda (_%L83519%_ _%L83521%_) + (##cdr _%e8460684641%_)))) + (if (gx#stx-null? _%tl8460884648%_) + ((lambda (_%L84651%_ _%L84653%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L83521%_ + (cons (cons _%L84653%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L83519%_ + (cons (cons _%L84651%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -458,62 +458,62 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8347583513%_ - _%hd8347283503%_) - (_%g8346483482%_ - _%g8346583486%_)))) - (_%g8346483482%_ _%g8346583486%_)))) - (_%g8346483482%_ _%g8346583486%_)))) - (_%g8346483482%_ _%g8346583486%_))))) - (_%g8346383537%_ _%$stx83460%_)))) + _%hd8460784645%_ + _%hd8460484635%_) + (_%g8459684614%_ + _%g8459784618%_)))) + (_%g8459684614%_ _%g8459784618%_)))) + (_%g8459684614%_ _%g8459784618%_)))) + (_%g8459684614%_ _%g8459784618%_))))) + (_%g8459584669%_ _%$stx84592%_)))) (define |[:0:]#defremove1| - (lambda (_%$stx83541%_) - (let* ((_%g8354583563%_ - (lambda (_%g8354683559%_) + (lambda (_%$stx84673%_) + (let* ((_%g8467784695%_ + (lambda (_%g8467884691%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8354683559%_))) - (_%g8354483618%_ - (lambda (_%g8354683567%_) - (if (gx#stx-pair? _%g8354683567%_) - (let ((_%e8354983570%_ (gx#syntax-e _%g8354683567%_))) - (let ((_%hd8355083574%_ + _%g8467884691%_))) + (_%g8467684750%_ + (lambda (_%g8467884699%_) + (if (gx#stx-pair? _%g8467884699%_) + (let ((_%e8468184702%_ (gx#syntax-e _%g8467884699%_))) + (let ((_%hd8468284706%_ (let () (declare (not safe)) - (##car _%e8354983570%_))) - (_%tl8355183577%_ + (##car _%e8468184702%_))) + (_%tl8468384709%_ (let () (declare (not safe)) - (##cdr _%e8354983570%_)))) - (if (gx#stx-pair? _%tl8355183577%_) - (let ((_%e8355283580%_ - (gx#syntax-e _%tl8355183577%_))) - (let ((_%hd8355383584%_ + (##cdr _%e8468184702%_)))) + (if (gx#stx-pair? _%tl8468384709%_) + (let ((_%e8468484712%_ + (gx#syntax-e _%tl8468384709%_))) + (let ((_%hd8468584716%_ (let () (declare (not safe)) - (##car _%e8355283580%_))) - (_%tl8355483587%_ + (##car _%e8468484712%_))) + (_%tl8468684719%_ (let () (declare (not safe)) - (##cdr _%e8355283580%_)))) - (if (gx#stx-pair? _%tl8355483587%_) - (let ((_%e8355583590%_ - (gx#syntax-e _%tl8355483587%_))) - (let ((_%hd8355683594%_ + (##cdr _%e8468484712%_)))) + (if (gx#stx-pair? _%tl8468684719%_) + (let ((_%e8468784722%_ + (gx#syntax-e _%tl8468684719%_))) + (let ((_%hd8468884726%_ (let () (declare (not safe)) - (##car _%e8355583590%_))) - (_%tl8355783597%_ + (##car _%e8468784722%_))) + (_%tl8468984729%_ (let () (declare (not safe)) - (##cdr _%e8355583590%_)))) - (if (gx#stx-null? _%tl8355783597%_) - ((lambda (_%L83600%_ _%L83602%_) + (##cdr _%e8468784722%_)))) + (if (gx#stx-null? _%tl8468984729%_) + ((lambda (_%L84732%_ _%L84734%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L83602%_ + (cons (cons _%L84734%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L83600%_ + (cons (cons _%L84732%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -586,150 +586,150 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8355683594%_ - _%hd8355383584%_) - (_%g8354583563%_ - _%g8354683567%_)))) - (_%g8354583563%_ _%g8354683567%_)))) - (_%g8354583563%_ _%g8354683567%_)))) - (_%g8354583563%_ _%g8354683567%_))))) - (_%g8354483618%_ _%$stx83541%_)))) + _%hd8468884726%_ + _%hd8468584716%_) + (_%g8467784695%_ + _%g8467884699%_)))) + (_%g8467784695%_ _%g8467884699%_)))) + (_%g8467784695%_ _%g8467884699%_)))) + (_%g8467784695%_ _%g8467884699%_))))) + (_%g8467684750%_ _%$stx84673%_)))) (define |[:0:]#DBG| - (lambda (_%$stx83622%_) - (let* ((_%g8362683637%_ - (lambda (_%g8362783633%_) + (lambda (_%$stx84754%_) + (let* ((_%g8475884769%_ + (lambda (_%g8475984765%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8362783633%_))) - (_%g8362583666%_ - (lambda (_%g8362783641%_) - (if (gx#stx-pair? _%g8362783641%_) - (let ((_%e8362983644%_ (gx#syntax-e _%g8362783641%_))) - (let ((_%hd8363083648%_ + _%g8475984765%_))) + (_%g8475784798%_ + (lambda (_%g8475984773%_) + (if (gx#stx-pair? _%g8475984773%_) + (let ((_%e8476184776%_ (gx#syntax-e _%g8475984773%_))) + (let ((_%hd8476284780%_ (let () (declare (not safe)) - (##car _%e8362983644%_))) - (_%tl8363183651%_ + (##car _%e8476184776%_))) + (_%tl8476384783%_ (let () (declare (not safe)) - (##cdr _%e8362983644%_)))) - ((lambda (_%L83654%_) + (##cdr _%e8476184776%_)))) + ((lambda (_%L84786%_) (cons (gx#datum->syntax '#f 'DBG/1) - (cons '1 _%L83654%_))) - _%tl8363183651%_))) - (_%g8362683637%_ _%g8362783641%_))))) - (_%g8362583666%_ _%$stx83622%_)))) + (cons '1 _%L84786%_))) + _%tl8476384783%_))) + (_%g8475884769%_ _%g8475984773%_))))) + (_%g8475784798%_ _%$stx84754%_)))) (define |[:0:]#DBG/1| - (lambda (_%$stx83670%_) - (let* ((_%__stx8962289623%_ _%$stx83670%_) - (_%g8368183895%_ + (lambda (_%$stx84802%_) + (let* ((_%__stx9075490755%_ _%$stx84802%_) + (_%g8481385027%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8962289623%_)))) - (let ((_%__kont8962589626%_ - (lambda (_%L84748%_ - _%L84750%_ - _%L84751%_ - _%L84752%_ - _%L84753%_) - (cons _%L84753%_ + _%__stx9075490755%_)))) + (let ((_%__kont9075790758%_ + (lambda (_%L85880%_ + _%L85882%_ + _%L85883%_ + _%L85884%_ + _%L85885%_) + (cons _%L85885%_ (cons '2 (cons '() (cons (__foldr1 - (lambda (_%g8478384786%_ - _%g8478484789%_) - (cons _%g8478384786%_ - _%g8478484789%_)) + (lambda (_%g8591585918%_ + _%g8591685921%_) + (cons _%g8591585918%_ + _%g8591685921%_)) '() - _%L84751%_) - (cons _%L84752%_ - (cons _%L84750%_ - (cons _%L84748%_ + _%L85883%_) + (cons _%L85884%_ + (cons _%L85882%_ + (cons _%L85880%_ '()))))))))) - (_%__kont8962989630%_ - (lambda (_%L84601%_ _%L84603%_ _%L84604%_ _%L84605%_) - (cons _%L84605%_ + (_%__kont9076190762%_ + (lambda (_%L85733%_ _%L85735%_ _%L85736%_ _%L85737%_) + (cons _%L85737%_ (cons '2 (cons '() (cons (__foldr1 - (lambda (_%g8462884631%_ - _%g8462984634%_) - (cons _%g8462884631%_ - _%g8462984634%_)) + (lambda (_%g8576085763%_ + _%g8576185766%_) + (cons _%g8576085763%_ + _%g8576185766%_)) '() - _%L84603%_) - (cons _%L84604%_ - (cons _%L84601%_ - (cons _%L84601%_ + _%L85735%_) + (cons _%L85736%_ + (cons _%L85733%_ + (cons _%L85733%_ '()))))))))) - (_%__kont8963389634%_ - (lambda (_%L84504%_) + (_%__kont9076590766%_ + (lambda (_%L85636%_) (cons (gx#datum->syntax '#f 'DBG-helper) - (cons _%L84504%_ + (cons _%L85636%_ (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons '#f (cons '#f '())))))))) - (_%__kont8963589636%_ - (lambda (_%L84427%_ - _%L84429%_ - _%L84430%_ - _%L84431%_ - _%L84432%_ - _%L84433%_) - (cons _%L84433%_ + (_%__kont9076790768%_ + (lambda (_%L85559%_ + _%L85561%_ + _%L85562%_ + _%L85563%_ + _%L85564%_ + _%L85565%_) + (cons _%L85565%_ (cons '2 - (cons (cons (cons _%L84431%_ - (cons _%L84430%_ '())) - _%L84432%_) - (cons _%L84429%_ _%L84427%_)))))) - (_%__kont8963789638%_ - (lambda (_%L84308%_ - _%L84310%_ - _%L84311%_ - _%L84312%_ - _%L84313%_) - (cons _%L84313%_ + (cons (cons (cons _%L85563%_ + (cons _%L85562%_ '())) + _%L85564%_) + (cons _%L85561%_ _%L85559%_)))))) + (_%__kont9076990770%_ + (lambda (_%L85440%_ + _%L85442%_ + _%L85443%_ + _%L85444%_ + _%L85445%_) + (cons _%L85445%_ (cons '2 - (cons (cons (cons _%L84311%_ - (cons _%L84311%_ '())) - _%L84312%_) - (cons _%L84310%_ _%L84308%_)))))) - (_%__kont8963989640%_ - (lambda (_%L84225%_ _%L84227%_ _%L84228%_) - (cons _%L84228%_ - (cons '3 (cons '() (cons _%L84227%_ _%L84225%_)))))) - (_%__kont8964189642%_ - (lambda (_%L84146%_ - _%L84148%_ - _%L84149%_ - _%L84150%_ - _%L84151%_) - (cons _%L84151%_ + (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 '3 - (cons (cons _%L84149%_ _%L84150%_) - (cons _%L84148%_ _%L84146%_)))))) - (_%__kont8964389644%_ - (lambda (_%L84030%_ - _%L84032%_ - _%L84033%_ - _%L84034%_ - _%L84035%_ - _%L84036%_) + (cons (cons _%L85281%_ _%L85282%_) + (cons _%L85280%_ _%L85278%_)))))) + (_%__kont9077590776%_ + (lambda (_%L85162%_ + _%L85164%_ + _%L85165%_ + _%L85166%_ + _%L85167%_ + _%L85168%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (cons (gx#datum->syntax '#f 'tagval) - (cons _%L84033%_ '())) + (cons _%L85165%_ '())) (cons (cons (gx#datum->syntax '#f 'thunk) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L84030%_ '()))) + (cons _%L85162%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -744,31 +744,31 @@ 'tagval) (cons (cons (gx#datum->syntax '#f 'quote) (cons (__foldr1 - (lambda (_%g8407084073%_ - _%g8407184076%_) - (cons _%g8407084073%_ - _%g8407184076%_)) + (lambda (_%g8520285205%_ + _%g8520385208%_) + (cons _%g8520285205%_ + _%g8520385208%_)) '() - _%L84035%_) + _%L85167%_) '())) (cons (cons (gx#datum->syntax '#f 'list) (__foldr1 - (lambda (_%g8406884079%_ - _%g8406984082%_) + (lambda (_%g8520085211%_ + _%g8520185214%_) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g8406884079%_ '()))) - _%g8406984082%_)) + (cons _%g8520085211%_ '()))) + _%g8520185214%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L84034%_)) + _%L85166%_)) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L84032%_ '())) + (cons _%L85164%_ '())) (cons (gx#datum->syntax '#f 'thunk) @@ -776,1201 +776,1201 @@ (cons (cons (gx#datum->syntax '#f 'thunk) '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match8997389974%_ - (lambda (_%e8385183902%_ - _%hd8385283906%_ - _%tl8385383909%_ - _%e8385483912%_ - _%hd8385583916%_ - _%tl8385683919%_ - _%e8385783922%_ - _%e8385883926%_ - _%hd8385983930%_ - _%tl8386083933%_ - _%__splice8964589646%_ - _%target8386183936%_ - _%tl8386383939%_) - (letrec ((_%loop8386483942%_ - (lambda (_%hd8386283946%_ - _%exprs8386883949%_ - _%names8386983951%_) - (if (gx#stx-pair? _%hd8386283946%_) - (let ((_%e8386583954%_ - (gx#syntax-e _%hd8386283946%_))) - (let ((_%lp-tl8386783961%_ + (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 () (declare (not safe)) - (##cdr _%e8386583954%_))) - (_%lp-hd8386683958%_ + (##cdr _%e8499785086%_))) + (_%lp-hd8499885090%_ (let () (declare (not safe)) - (##car _%e8386583954%_)))) + (##car _%e8499785086%_)))) (if (gx#stx-pair? - _%lp-hd8386683958%_) - (let ((_%e8388483964%_ + _%lp-hd8499885090%_) + (let ((_%e8501685096%_ (gx#syntax-e - _%lp-hd8386683958%_))) - (let ((_%tl8388683971%_ + _%lp-hd8499885090%_))) + (let ((_%tl8501885103%_ (let () (declare (not safe)) - (##cdr _%e8388483964%_))) - (_%hd8388583968%_ + (##cdr _%e8501685096%_))) + (_%hd8501785100%_ (let () (declare (not safe)) - (##car _%e8388483964%_)))) + (##car _%e8501685096%_)))) (if (gx#stx-pair? - _%tl8388683971%_) - (let ((_%e8388783974%_ + _%tl8501885103%_) + (let ((_%e8501985106%_ (gx#syntax-e - _%tl8388683971%_))) - (let ((_%tl8388983981%_ + _%tl8501885103%_))) + (let ((_%tl8502185113%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e8388783974%_))) - (_%hd8388883978%_ - (let () (declare (not safe)) (##car _%e8388783974%_)))) - (if (gx#stx-null? _%tl8388983981%_) - (_%loop8386483942%_ - _%lp-tl8386783961%_ - (cons _%hd8388883978%_ _%exprs8386883949%_) - (cons _%hd8388583968%_ _%names8386983951%_)) - (let () (declare (not safe)) (_%g8368183895%_))))) - (let () (declare (not safe)) (_%g8368183895%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8368183895%_))))) - (let ((_%names8387183987%_ - (reverse _%names8386983951%_)) - (_%exprs8387083984%_ - (reverse _%exprs8386883949%_))) - (if (gx#stx-pair? _%tl8386083933%_) - (let ((_%e8387283990%_ + (_%g8481385027%_))))) + (let ((_%names8500385119%_ + (reverse _%names8500185083%_)) + (_%exprs8500285116%_ + (reverse _%exprs8500085081%_))) + (if (gx#stx-pair? _%tl8499285065%_) + (let ((_%e8500485122%_ (gx#syntax-e - _%tl8386083933%_))) - (let ((_%tl8387483997%_ + _%tl8499285065%_))) + (let ((_%tl8500685129%_ (let () (declare (not safe)) - (##cdr _%e8387283990%_))) - (_%hd8387383994%_ + (##cdr _%e8500485122%_))) + (_%hd8500585126%_ (let () (declare (not safe)) - (##car _%e8387283990%_)))) + (##car _%e8500485122%_)))) (if (gx#stx-null? - _%hd8387383994%_) + _%hd8500585126%_) (if (gx#stx-pair? - _%tl8387483997%_) - (let ((_%e8387584000%_ + _%tl8500685129%_) + (let ((_%e8500785132%_ (gx#syntax-e - _%tl8387483997%_))) - (let ((_%tl8387784007%_ + _%tl8500685129%_))) + (let ((_%tl8500985139%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8387584000%_))) - (_%hd8387684004%_ + (let () (declare (not safe)) (##cdr _%e8500785132%_))) + (_%hd8500885136%_ (let () (declare (not safe)) - (##car _%e8387584000%_)))) - (if (gx#stx-pair? _%tl8387784007%_) - (let ((_%e8387884010%_ (gx#syntax-e _%tl8387784007%_))) - (let ((_%tl8388084017%_ + (##car _%e8500785132%_)))) + (if (gx#stx-pair? _%tl8500985139%_) + (let ((_%e8501085142%_ (gx#syntax-e _%tl8500985139%_))) + (let ((_%tl8501285149%_ (let () (declare (not safe)) - (##cdr _%e8387884010%_))) - (_%hd8387984014%_ + (##cdr _%e8501085142%_))) + (_%hd8501185146%_ (let () (declare (not safe)) - (##car _%e8387884010%_)))) - (if (gx#stx-pair? _%tl8388084017%_) - (let ((_%e8388184020%_ - (gx#syntax-e _%tl8388084017%_))) - (let ((_%tl8388384027%_ + (##car _%e8501085142%_)))) + (if (gx#stx-pair? _%tl8501285149%_) + (let ((_%e8501385152%_ + (gx#syntax-e _%tl8501285149%_))) + (let ((_%tl8501585159%_ (let () (declare (not safe)) - (##cdr _%e8388184020%_))) - (_%hd8388284024%_ + (##cdr _%e8501385152%_))) + (_%hd8501485156%_ (let () (declare (not safe)) - (##car _%e8388184020%_)))) - (if (gx#stx-null? _%tl8388384027%_) - (_%__kont8964389644%_ - _%hd8388284024%_ - _%hd8387984014%_ - _%hd8387684004%_ - _%exprs8387083984%_ - _%names8387183987%_ - _%hd8385283906%_) + (##car _%e8501385152%_)))) + (if (gx#stx-null? _%tl8501585159%_) + (_%__kont9077590776%_ + _%hd8501485156%_ + _%hd8501185146%_ + _%hd8500885136%_ + _%exprs8500285116%_ + _%names8500385119%_ + _%hd8498485038%_) (let () (declare (not safe)) - (_%g8368183895%_))))) + (_%g8481385027%_))))) (let () (declare (not safe)) - (_%g8368183895%_))))) - (let () (declare (not safe)) (_%g8368183895%_))))) - (let () (declare (not safe)) (_%g8368183895%_))) + (_%g8481385027%_))))) + (let () (declare (not safe)) (_%g8481385027%_))))) + (let () (declare (not safe)) (_%g8481385027%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8368183895%_))))) + (_%g8481385027%_))))) (let () (declare (not safe)) - (_%g8368183895%_)))))))) - (_%loop8386483942%_ _%target8386183936%_ '() '())))) - (_%__match8975189752%_ - (lambda (_%e8372384527%_ - _%hd8372484531%_ - _%tl8372584534%_ - _%e8372684537%_ - _%hd8372784541%_ - _%tl8372884544%_ - _%e8372984547%_ - _%e8373084551%_ - _%hd8373184555%_ - _%tl8373284558%_ - _%__splice8963189632%_ - _%target8373384561%_ - _%tl8373584564%_ - _%e8374284567%_ - _%hd8374384571%_ - _%tl8374484574%_) - (letrec ((_%loop8373684577%_ - (lambda (_%hd8373484581%_ _%exprs8374084584%_) - (if (gx#stx-pair? _%hd8373484581%_) - (let ((_%e8373784587%_ - (gx#syntax-e _%hd8373484581%_))) - (let ((_%lp-tl8373984594%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e8373784587%_))) - (_%lp-hd8373884591%_ + (##cdr _%e8486985719%_))) + (_%lp-hd8487085723%_ (let () (declare (not safe)) - (##car _%e8373784587%_)))) - (_%loop8373684577%_ - _%lp-tl8373984594%_ - (cons _%lp-hd8373884591%_ - _%exprs8374084584%_)))) - (let ((_%exprs8374184597%_ - (reverse _%exprs8374084584%_))) - (_%__kont8962989630%_ - _%hd8374384571%_ - _%exprs8374184597%_ - _%hd8373184555%_ - _%hd8372484531%_)))))) - (_%loop8373684577%_ _%target8373384561%_ '())))) - (_%__match8971189712%_ - (lambda (_%e8368884644%_ - _%hd8368984648%_ - _%tl8369084651%_ - _%e8369184654%_ - _%hd8369284658%_ - _%tl8369384661%_ - _%e8369484664%_ - _%e8369584668%_ - _%hd8369684672%_ - _%tl8369784675%_ - _%__splice8962789628%_ - _%target8369884678%_ - _%tl8370084681%_ - _%e8370784684%_ - _%hd8370884688%_ - _%tl8370984691%_ - _%e8371084694%_ - _%hd8371184698%_ - _%tl8371284701%_ - _%e8371384704%_ - _%hd8371484708%_ - _%tl8371584711%_ - _%e8371684714%_ - _%hd8371784718%_ - _%tl8371884721%_) - (letrec ((_%loop8370184724%_ - (lambda (_%hd8369984728%_ _%exprs8370584731%_) - (if (gx#stx-pair? _%hd8369984728%_) - (let ((_%e8370284734%_ - (gx#syntax-e _%hd8369984728%_))) - (let ((_%lp-tl8370484741%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e8370284734%_))) - (_%lp-hd8370384738%_ + (##cdr _%e8483485866%_))) + (_%lp-hd8483585870%_ (let () (declare (not safe)) - (##car _%e8370284734%_)))) - (_%loop8370184724%_ - _%lp-tl8370484741%_ - (cons _%lp-hd8370384738%_ - _%exprs8370584731%_)))) - (let ((_%exprs8370684744%_ - (reverse _%exprs8370584731%_))) - (_%__kont8962589626%_ - _%hd8371784718%_ - _%hd8371484708%_ - _%exprs8370684744%_ - _%hd8369684672%_ - _%hd8368984648%_)))))) - (_%loop8370184724%_ _%target8369884678%_ '()))))) - (if (gx#stx-pair? _%__stx8962289623%_) - (let ((_%e8368884644%_ (gx#syntax-e _%__stx8962289623%_))) - (let ((_%tl8369084651%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e8368884644%_))) - (_%hd8368984648%_ + (##cdr _%e8482085776%_))) + (_%hd8482185780%_ (let () (declare (not safe)) - (##car _%e8368884644%_)))) - (if (gx#stx-pair? _%tl8369084651%_) - (let ((_%e8369184654%_ - (gx#syntax-e _%tl8369084651%_))) - (let ((_%tl8369384661%_ + (##car _%e8482085776%_)))) + (if (gx#stx-pair? _%tl8482285783%_) + (let ((_%e8482385786%_ + (gx#syntax-e _%tl8482285783%_))) + (let ((_%tl8482585793%_ (let () (declare (not safe)) - (##cdr _%e8369184654%_))) - (_%hd8369284658%_ + (##cdr _%e8482385786%_))) + (_%hd8482485790%_ (let () (declare (not safe)) - (##car _%e8369184654%_)))) - (if (gx#stx-datum? _%hd8369284658%_) - (let ((_%e8369484664%_ - (gx#stx-e _%hd8369284658%_))) - (if (equal? _%e8369484664%_ '1) - (if (gx#stx-pair? _%tl8369384661%_) - (let ((_%e8369584668%_ + (##car _%e8482385786%_)))) + (if (gx#stx-datum? _%hd8482485790%_) + (let ((_%e8482685796%_ + (gx#stx-e _%hd8482485790%_))) + (if (equal? _%e8482685796%_ '1) + (if (gx#stx-pair? _%tl8482585793%_) + (let ((_%e8482785800%_ (gx#syntax-e - _%tl8369384661%_))) - (let ((_%tl8369784675%_ + _%tl8482585793%_))) + (let ((_%tl8482985807%_ (let () (declare (not safe)) - (##cdr _%e8369584668%_))) - (_%hd8369684672%_ + (##cdr _%e8482785800%_))) + (_%hd8482885804%_ (let () (declare (not safe)) - (##car _%e8369584668%_)))) + (##car _%e8482785800%_)))) (if (gx#stx-pair/null? - _%tl8369784675%_) - (if (let ((__tmp90065 + _%tl8482985807%_) + (if (let ((__tmp91197 (gx#stx-length - _%tl8369784675%_))) + _%tl8482985807%_))) (declare (not safe)) - (##fx>= __tmp90065 + (##fx>= __tmp91197 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '2)) - (let ((_%__splice8962789628%_ - (gx#syntax-split-splice _%tl8369784675%_ '2))) - (let ((_%tl8370084681%_ + (let ((_%__splice9075990760%_ + (gx#syntax-split-splice _%tl8482985807%_ '2))) + (let ((_%tl8483285813%_ (let () (declare (not safe)) - (##vector-ref _%__splice8962789628%_ '1))) - (_%target8369884678%_ + (##vector-ref _%__splice9075990760%_ '1))) + (_%target8483085810%_ (let () (declare (not safe)) - (##vector-ref _%__splice8962789628%_ '0)))) - (if (gx#stx-pair? _%tl8370084681%_) - (let ((_%e8370784684%_ (gx#syntax-e _%tl8370084681%_))) - (let ((_%tl8370984691%_ + (##vector-ref _%__splice9075990760%_ '0)))) + (if (gx#stx-pair? _%tl8483285813%_) + (let ((_%e8483985816%_ (gx#syntax-e _%tl8483285813%_))) + (let ((_%tl8484185823%_ (let () (declare (not safe)) - (##cdr _%e8370784684%_))) - (_%hd8370884688%_ + (##cdr _%e8483985816%_))) + (_%hd8484085820%_ (let () (declare (not safe)) - (##car _%e8370784684%_)))) - (if (gx#stx-pair? _%hd8370884688%_) - (let ((_%e8371084694%_ - (gx#syntax-e _%hd8370884688%_))) - (let ((_%tl8371284701%_ + (##car _%e8483985816%_)))) + (if (gx#stx-pair? _%hd8484085820%_) + (let ((_%e8484285826%_ + (gx#syntax-e _%hd8484085820%_))) + (let ((_%tl8484485833%_ (let () (declare (not safe)) - (##cdr _%e8371084694%_))) - (_%hd8371184698%_ + (##cdr _%e8484285826%_))) + (_%hd8484385830%_ (let () (declare (not safe)) - (##car _%e8371084694%_)))) - (if (gx#identifier? _%hd8371184698%_) + (##car _%e8484285826%_)))) + (if (gx#identifier? _%hd8484385830%_) (if (gx#free-identifier=? - |[1]#_g90066_| - _%hd8371184698%_) - (if (gx#stx-pair? _%tl8371284701%_) - (let ((_%e8371384704%_ + |[1]#_g91198_| + _%hd8484385830%_) + (if (gx#stx-pair? _%tl8484485833%_) + (let ((_%e8484585836%_ (gx#syntax-e - _%tl8371284701%_))) - (let ((_%tl8371584711%_ + _%tl8484485833%_))) + (let ((_%tl8484785843%_ (let () (declare (not safe)) - (##cdr _%e8371384704%_))) - (_%hd8371484708%_ + (##cdr _%e8484585836%_))) + (_%hd8484685840%_ (let () (declare (not safe)) - (##car _%e8371384704%_)))) + (##car _%e8484585836%_)))) (if (gx#stx-null? - _%tl8371584711%_) + _%tl8484785843%_) (if (gx#stx-pair? - _%tl8370984691%_) - (let ((_%e8371684714%_ + _%tl8484185823%_) + (let ((_%e8484885846%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8370984691%_))) - (let ((_%tl8371884721%_ + (gx#syntax-e _%tl8484185823%_))) + (let ((_%tl8485085853%_ (let () (declare (not safe)) - (##cdr _%e8371684714%_))) - (_%hd8371784718%_ + (##cdr _%e8484885846%_))) + (_%hd8484985850%_ (let () (declare (not safe)) - (##car _%e8371684714%_)))) - (if (gx#stx-null? _%tl8371884721%_) - (_%__match8971189712%_ - _%e8368884644%_ - _%hd8368984648%_ - _%tl8369084651%_ - _%e8369184654%_ - _%hd8369284658%_ - _%tl8369384661%_ - _%e8369484664%_ - _%e8369584668%_ - _%hd8369684672%_ - _%tl8369784675%_ - _%__splice8962789628%_ - _%target8369884678%_ - _%tl8370084681%_ - _%e8370784684%_ - _%hd8370884688%_ - _%tl8370984691%_ - _%e8371084694%_ - _%hd8371184698%_ - _%tl8371284701%_ - _%e8371384704%_ - _%hd8371484708%_ - _%tl8371584711%_ - _%e8371684714%_ - _%hd8371784718%_ - _%tl8371884721%_) - (if (let ((__tmp90067 - (gx#stx-length _%tl8369784675%_))) + (##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%_))) (declare (not safe)) - (##fx>= __tmp90067 '1)) - (let ((_%__splice8963189632%_ + (##fx>= __tmp91199 '1)) + (let ((_%__splice9076390764%_ (gx#syntax-split-splice - _%tl8369784675%_ + _%tl8482985807%_ '1))) - (let ((_%tl8373584564%_ + (let ((_%tl8486785696%_ (let () (declare (not safe)) (##vector-ref - _%__splice8963189632%_ + _%__splice9076390764%_ '1))) - (_%target8373384561%_ + (_%target8486585693%_ (let () (declare (not safe)) (##vector-ref - _%__splice8963189632%_ + _%__splice9076390764%_ '0)))) - (if (gx#stx-pair? _%tl8373584564%_) - (let ((_%e8374284567%_ - (gx#syntax-e _%tl8373584564%_))) - (let ((_%tl8374484574%_ + (if (gx#stx-pair? _%tl8486785696%_) + (let ((_%e8487485699%_ + (gx#syntax-e _%tl8486785696%_))) + (let ((_%tl8487685706%_ (let () (declare (not safe)) - (##cdr _%e8374284567%_))) - (_%hd8374384571%_ + (##cdr _%e8487485699%_))) + (_%hd8487585703%_ (let () (declare (not safe)) - (##car _%e8374284567%_)))) - (if (gx#stx-null? _%tl8374484574%_) - (_%__match8975189752%_ - _%e8368884644%_ - _%hd8368984648%_ - _%tl8369084651%_ - _%e8369184654%_ - _%hd8369284658%_ - _%tl8369384661%_ - _%e8369484664%_ - _%e8369584668%_ - _%hd8369684672%_ - _%tl8369784675%_ - _%__splice8963189632%_ - _%target8373384561%_ - _%tl8373584564%_ - _%e8374284567%_ - _%hd8374384571%_ - _%tl8374484574%_) + (##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? - _%tl8369784675%_) - (_%__kont8963389634%_ - _%hd8369684672%_) + _%tl8482985807%_) + (_%__kont9076590766%_ + _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ - _%hd8369684672%_) + (_%g8481385027%_)))))) + (if (gx#stx-null? _%tl8482985807%_) + (_%__kont9076590766%_ + _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) + (_%g8481385027%_)))))) + (if (gx#stx-null? _%tl8482985807%_) + (_%__kont9076590766%_ _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_))))))) - (if (let ((__tmp90068 (gx#stx-length _%tl8369784675%_))) + (_%g8481385027%_))))))) + (if (let ((__tmp91200 (gx#stx-length _%tl8482985807%_))) (declare (not safe)) - (##fx>= __tmp90068 '1)) - (let ((_%__splice8963189632%_ - (gx#syntax-split-splice _%tl8369784675%_ '1))) - (let ((_%tl8373584564%_ + (##fx>= __tmp91200 '1)) + (let ((_%__splice9076390764%_ + (gx#syntax-split-splice _%tl8482985807%_ '1))) + (let ((_%tl8486785696%_ (let () (declare (not safe)) - (##vector-ref _%__splice8963189632%_ '1))) - (_%target8373384561%_ + (##vector-ref _%__splice9076390764%_ '1))) + (_%target8486585693%_ (let () (declare (not safe)) - (##vector-ref _%__splice8963189632%_ '0)))) - (if (gx#stx-pair? _%tl8373584564%_) - (let ((_%e8374284567%_ - (gx#syntax-e _%tl8373584564%_))) - (let ((_%tl8374484574%_ + (##vector-ref _%__splice9076390764%_ '0)))) + (if (gx#stx-pair? _%tl8486785696%_) + (let ((_%e8487485699%_ + (gx#syntax-e _%tl8486785696%_))) + (let ((_%tl8487685706%_ (let () (declare (not safe)) - (##cdr _%e8374284567%_))) - (_%hd8374384571%_ + (##cdr _%e8487485699%_))) + (_%hd8487585703%_ (let () (declare (not safe)) - (##car _%e8374284567%_)))) - (if (gx#stx-null? _%tl8374484574%_) - (_%__match8975189752%_ - _%e8368884644%_ - _%hd8368984648%_ - _%tl8369084651%_ - _%e8369184654%_ - _%hd8369284658%_ - _%tl8369384661%_ - _%e8369484664%_ - _%e8369584668%_ - _%hd8369684672%_ - _%tl8369784675%_ - _%__splice8963189632%_ - _%target8373384561%_ - _%tl8373584564%_ - _%e8374284567%_ - _%hd8374384571%_ - _%tl8374484574%_) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ - _%hd8369684672%_) + (##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)) - (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) + (_%g8481385027%_)))))) + (if (gx#stx-null? _%tl8482985807%_) + (_%__kont9076590766%_ _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) - (let () (declare (not safe)) (_%g8368183895%_))))) - (if (let ((__tmp90069 (gx#stx-length _%tl8369784675%_))) + (_%g8481385027%_)))))) + (if (gx#stx-null? _%tl8482985807%_) + (_%__kont9076590766%_ _%hd8482885804%_) + (let () (declare (not safe)) (_%g8481385027%_))))) + (if (let ((__tmp91201 (gx#stx-length _%tl8482985807%_))) (declare (not safe)) - (##fx>= __tmp90069 '1)) - (let ((_%__splice8963189632%_ - (gx#syntax-split-splice _%tl8369784675%_ '1))) - (let ((_%tl8373584564%_ + (##fx>= __tmp91201 '1)) + (let ((_%__splice9076390764%_ + (gx#syntax-split-splice _%tl8482985807%_ '1))) + (let ((_%tl8486785696%_ (let () (declare (not safe)) - (##vector-ref _%__splice8963189632%_ '1))) - (_%target8373384561%_ + (##vector-ref _%__splice9076390764%_ '1))) + (_%target8486585693%_ (let () (declare (not safe)) - (##vector-ref _%__splice8963189632%_ '0)))) - (if (gx#stx-pair? _%tl8373584564%_) - (let ((_%e8374284567%_ - (gx#syntax-e _%tl8373584564%_))) - (let ((_%tl8374484574%_ + (##vector-ref _%__splice9076390764%_ '0)))) + (if (gx#stx-pair? _%tl8486785696%_) + (let ((_%e8487485699%_ + (gx#syntax-e _%tl8486785696%_))) + (let ((_%tl8487685706%_ (let () (declare (not safe)) - (##cdr _%e8374284567%_))) - (_%hd8374384571%_ + (##cdr _%e8487485699%_))) + (_%hd8487585703%_ (let () (declare (not safe)) - (##car _%e8374284567%_)))) - (if (gx#stx-null? _%tl8374484574%_) - (_%__match8975189752%_ - _%e8368884644%_ - _%hd8368984648%_ - _%tl8369084651%_ - _%e8369184654%_ - _%hd8369284658%_ - _%tl8369384661%_ - _%e8369484664%_ - _%e8369584668%_ - _%hd8369684672%_ - _%tl8369784675%_ - _%__splice8963189632%_ - _%target8373384561%_ - _%tl8373584564%_ - _%e8374284567%_ - _%hd8374384571%_ - _%tl8374484574%_) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) + (##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)) - (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) + (_%g8481385027%_)))))) + (if (gx#stx-null? _%tl8482985807%_) + (_%__kont9076590766%_ _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) - (let () (declare (not safe)) (_%g8368183895%_))))))) + (_%g8481385027%_)))))) + (if (gx#stx-null? _%tl8482985807%_) + (_%__kont9076590766%_ _%hd8482885804%_) + (let () (declare (not safe)) (_%g8481385027%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp90070 + (if (let ((__tmp91202 (gx#stx-length - _%tl8369784675%_))) + _%tl8482985807%_))) (declare (not safe)) - (##fx>= __tmp90070 '1)) - (let ((_%__splice8963189632%_ + (##fx>= __tmp91202 '1)) + (let ((_%__splice9076390764%_ (gx#syntax-split-splice - _%tl8369784675%_ + _%tl8482985807%_ '1))) - (let ((_%tl8373584564%_ + (let ((_%tl8486785696%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice8963189632%_ '1))) - (_%target8373384561%_ + (##vector-ref _%__splice9076390764%_ '1))) + (_%target8486585693%_ (let () (declare (not safe)) - (##vector-ref _%__splice8963189632%_ '0)))) - (if (gx#stx-pair? _%tl8373584564%_) - (let ((_%e8374284567%_ (gx#syntax-e _%tl8373584564%_))) - (let ((_%tl8374484574%_ + (##vector-ref _%__splice9076390764%_ '0)))) + (if (gx#stx-pair? _%tl8486785696%_) + (let ((_%e8487485699%_ (gx#syntax-e _%tl8486785696%_))) + (let ((_%tl8487685706%_ (let () (declare (not safe)) - (##cdr _%e8374284567%_))) - (_%hd8374384571%_ + (##cdr _%e8487485699%_))) + (_%hd8487585703%_ (let () (declare (not safe)) - (##car _%e8374284567%_)))) - (if (gx#stx-null? _%tl8374484574%_) - (_%__match8975189752%_ - _%e8368884644%_ - _%hd8368984648%_ - _%tl8369084651%_ - _%e8369184654%_ - _%hd8369284658%_ - _%tl8369384661%_ - _%e8369484664%_ - _%e8369584668%_ - _%hd8369684672%_ - _%tl8369784675%_ - _%__splice8963189632%_ - _%target8373384561%_ - _%tl8373584564%_ - _%e8374284567%_ - _%hd8374384571%_ - _%tl8374484574%_) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) + (##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)) - (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) - (let () (declare (not safe)) (_%g8368183895%_)))))) + (_%g8481385027%_)))))) + (if (gx#stx-null? _%tl8482985807%_) + (_%__kont9076590766%_ _%hd8482885804%_) + (let () (declare (not safe)) (_%g8481385027%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8369784675%_) - (_%__kont8963389634%_ - _%hd8369684672%_) + _%tl8482985807%_) + (_%__kont9076590766%_ + _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_))))) - (if (let ((__tmp90071 + (_%g8481385027%_))))) + (if (let ((__tmp91203 (gx#stx-length - _%tl8369784675%_))) + _%tl8482985807%_))) (declare (not safe)) - (##fx>= __tmp90071 '1)) - (let ((_%__splice8963189632%_ + (##fx>= __tmp91203 '1)) + (let ((_%__splice9076390764%_ (gx#syntax-split-splice - _%tl8369784675%_ + _%tl8482985807%_ '1))) - (let ((_%tl8373584564%_ + (let ((_%tl8486785696%_ (let () (declare (not safe)) (##vector-ref - _%__splice8963189632%_ + _%__splice9076390764%_ '1))) - (_%target8373384561%_ + (_%target8486585693%_ (let () (declare (not safe)) (##vector-ref - _%__splice8963189632%_ + _%__splice9076390764%_ '0)))) (if (gx#stx-pair? - _%tl8373584564%_) - (let ((_%e8374284567%_ + _%tl8486785696%_) + (let ((_%e8487485699%_ (gx#syntax-e - _%tl8373584564%_))) - (let ((_%tl8374484574%_ + _%tl8486785696%_))) + (let ((_%tl8487685706%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8374284567%_))) - (_%hd8374384571%_ + (let () (declare (not safe)) (##cdr _%e8487485699%_))) + (_%hd8487585703%_ (let () (declare (not safe)) - (##car _%e8374284567%_)))) - (if (gx#stx-null? _%tl8374484574%_) - (_%__match8975189752%_ - _%e8368884644%_ - _%hd8368984648%_ - _%tl8369084651%_ - _%e8369184654%_ - _%hd8369284658%_ - _%tl8369384661%_ - _%e8369484664%_ - _%e8369584668%_ - _%hd8369684672%_ - _%tl8369784675%_ - _%__splice8963189632%_ - _%target8373384561%_ - _%tl8373584564%_ - _%e8374284567%_ - _%hd8374384571%_ - _%tl8374484574%_) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) - (let () (declare (not safe)) (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) - (let () (declare (not safe)) (_%g8368183895%_)))))) + (##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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8369784675%_) - (_%__kont8963389634%_ - _%hd8369684672%_) + _%tl8482985807%_) + (_%__kont9076590766%_ + _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_))))) - (if (let ((__tmp90072 + (_%g8481385027%_))))) + (if (let ((__tmp91204 (gx#stx-length - _%tl8369784675%_))) + _%tl8482985807%_))) (declare (not safe)) - (##fx>= __tmp90072 '1)) - (let ((_%__splice8963189632%_ + (##fx>= __tmp91204 '1)) + (let ((_%__splice9076390764%_ (gx#syntax-split-splice - _%tl8369784675%_ + _%tl8482985807%_ '1))) - (let ((_%tl8373584564%_ + (let ((_%tl8486785696%_ (let () (declare (not safe)) (##vector-ref - _%__splice8963189632%_ + _%__splice9076390764%_ '1))) - (_%target8373384561%_ + (_%target8486585693%_ (let () (declare (not safe)) (##vector-ref - _%__splice8963189632%_ + _%__splice9076390764%_ '0)))) (if (gx#stx-pair? - _%tl8373584564%_) - (let ((_%e8374284567%_ + _%tl8486785696%_) + (let ((_%e8487485699%_ (gx#syntax-e - _%tl8373584564%_))) - (let ((_%tl8374484574%_ + _%tl8486785696%_))) + (let ((_%tl8487685706%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8374284567%_))) - (_%hd8374384571%_ - (let () (declare (not safe)) (##car _%e8374284567%_)))) - (if (gx#stx-null? _%tl8374484574%_) - (_%__match8975189752%_ - _%e8368884644%_ - _%hd8368984648%_ - _%tl8369084651%_ - _%e8369184654%_ - _%hd8369284658%_ - _%tl8369384661%_ - _%e8369484664%_ - _%e8369584668%_ - _%hd8369684672%_ - _%tl8369784675%_ - _%__splice8963189632%_ - _%target8373384561%_ - _%tl8373584564%_ - _%e8374284567%_ - _%hd8374384571%_ - _%tl8374484574%_) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) - (let () (declare (not safe)) (_%g8368183895%_)))))) + (##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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8369784675%_) - (_%__kont8963389634%_ - _%hd8369684672%_) + _%tl8482985807%_) + (_%__kont9076590766%_ + _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ - _%hd8369684672%_) + (_%g8481385027%_)))))) + (if (gx#stx-null? _%tl8482985807%_) + (_%__kont9076590766%_ + _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_))))))) - (if (let ((__tmp90073 - (gx#stx-length _%tl8369784675%_))) + (_%g8481385027%_))))))) + (if (let ((__tmp91205 + (gx#stx-length _%tl8482985807%_))) (declare (not safe)) - (##fx>= __tmp90073 '1)) - (let ((_%__splice8963189632%_ + (##fx>= __tmp91205 '1)) + (let ((_%__splice9076390764%_ (gx#syntax-split-splice - _%tl8369784675%_ + _%tl8482985807%_ '1))) - (let ((_%tl8373584564%_ + (let ((_%tl8486785696%_ (let () (declare (not safe)) (##vector-ref - _%__splice8963189632%_ + _%__splice9076390764%_ '1))) - (_%target8373384561%_ + (_%target8486585693%_ (let () (declare (not safe)) (##vector-ref - _%__splice8963189632%_ + _%__splice9076390764%_ '0)))) - (if (gx#stx-pair? _%tl8373584564%_) - (let ((_%e8374284567%_ + (if (gx#stx-pair? _%tl8486785696%_) + (let ((_%e8487485699%_ (gx#syntax-e - _%tl8373584564%_))) - (let ((_%tl8374484574%_ + _%tl8486785696%_))) + (let ((_%tl8487685706%_ (let () (declare (not safe)) - (##cdr _%e8374284567%_))) - (_%hd8374384571%_ + (##cdr _%e8487485699%_))) + (_%hd8487585703%_ (let () (declare (not safe)) - (##car _%e8374284567%_)))) + (##car _%e8487485699%_)))) (if (gx#stx-null? - _%tl8374484574%_) - (_%__match8975189752%_ - _%e8368884644%_ - _%hd8368984648%_ - _%tl8369084651%_ - _%e8369184654%_ - _%hd8369284658%_ - _%tl8369384661%_ - _%e8369484664%_ - _%e8369584668%_ - _%hd8369684672%_ - _%tl8369784675%_ - _%__splice8963189632%_ - _%target8373384561%_ - _%tl8373584564%_ - _%e8374284567%_ - _%hd8374384571%_ - _%tl8374484574%_) + _%tl8487685706%_) + (_%__match9088390884%_ + _%e8482085776%_ + _%hd8482185780%_ + _%tl8482285783%_ + _%e8482385786%_ + _%hd8482485790%_ + _%tl8482585793%_ + _%e8482685796%_ + _%e8482785800%_ + _%hd8482885804%_ + _%tl8482985807%_ + _%__splice9076390764%_ + _%target8486585693%_ + _%tl8486785696%_ + _%e8487485699%_ + _%hd8487585703%_ + _%tl8487685706%_) (if (gx#stx-null? - _%tl8369784675%_) - (_%__kont8963389634%_ - _%hd8369684672%_) + _%tl8482985807%_) + (_%__kont9076590766%_ + _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ - _%hd8369684672%_) + (_%g8481385027%_)))))) + (if (gx#stx-null? _%tl8482985807%_) + (_%__kont9076590766%_ + _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) + (_%g8481385027%_)))))) + (if (gx#stx-null? _%tl8482985807%_) + (_%__kont9076590766%_ _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_))))))) - (if (let ((__tmp90074 - (gx#stx-length _%tl8369784675%_))) + (_%g8481385027%_))))))) + (if (let ((__tmp91206 + (gx#stx-length _%tl8482985807%_))) (declare (not safe)) - (##fx>= __tmp90074 '1)) - (let ((_%__splice8963189632%_ + (##fx>= __tmp91206 '1)) + (let ((_%__splice9076390764%_ (gx#syntax-split-splice - _%tl8369784675%_ + _%tl8482985807%_ '1))) - (let ((_%tl8373584564%_ + (let ((_%tl8486785696%_ (let () (declare (not safe)) (##vector-ref - _%__splice8963189632%_ + _%__splice9076390764%_ '1))) - (_%target8373384561%_ + (_%target8486585693%_ (let () (declare (not safe)) (##vector-ref - _%__splice8963189632%_ + _%__splice9076390764%_ '0)))) - (if (gx#stx-pair? _%tl8373584564%_) - (let ((_%e8374284567%_ - (gx#syntax-e _%tl8373584564%_))) - (let ((_%tl8374484574%_ + (if (gx#stx-pair? _%tl8486785696%_) + (let ((_%e8487485699%_ + (gx#syntax-e _%tl8486785696%_))) + (let ((_%tl8487685706%_ (let () (declare (not safe)) - (##cdr _%e8374284567%_))) - (_%hd8374384571%_ + (##cdr _%e8487485699%_))) + (_%hd8487585703%_ (let () (declare (not safe)) - (##car _%e8374284567%_)))) - (if (gx#stx-null? _%tl8374484574%_) - (_%__match8975189752%_ - _%e8368884644%_ - _%hd8368984648%_ - _%tl8369084651%_ - _%e8369184654%_ - _%hd8369284658%_ - _%tl8369384661%_ - _%e8369484664%_ - _%e8369584668%_ - _%hd8369684672%_ - _%tl8369784675%_ - _%__splice8963189632%_ - _%target8373384561%_ - _%tl8373584564%_ - _%e8374284567%_ - _%hd8374384571%_ - _%tl8374484574%_) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ - _%hd8369684672%_) + (##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)) - (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) + (_%g8481385027%_)))))) + (if (gx#stx-null? _%tl8482985807%_) + (_%__kont9076590766%_ _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) + (_%g8481385027%_)))))) + (if (gx#stx-null? _%tl8482985807%_) + (_%__kont9076590766%_ _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_))))))) - (if (let ((__tmp90075 (gx#stx-length _%tl8369784675%_))) + (_%g8481385027%_))))))) + (if (let ((__tmp91207 (gx#stx-length _%tl8482985807%_))) (declare (not safe)) - (##fx>= __tmp90075 '1)) - (let ((_%__splice8963189632%_ - (gx#syntax-split-splice _%tl8369784675%_ '1))) - (let ((_%tl8373584564%_ + (##fx>= __tmp91207 '1)) + (let ((_%__splice9076390764%_ + (gx#syntax-split-splice _%tl8482985807%_ '1))) + (let ((_%tl8486785696%_ (let () (declare (not safe)) - (##vector-ref _%__splice8963189632%_ '1))) - (_%target8373384561%_ + (##vector-ref _%__splice9076390764%_ '1))) + (_%target8486585693%_ (let () (declare (not safe)) - (##vector-ref _%__splice8963189632%_ '0)))) - (if (gx#stx-pair? _%tl8373584564%_) - (let ((_%e8374284567%_ - (gx#syntax-e _%tl8373584564%_))) - (let ((_%tl8374484574%_ + (##vector-ref _%__splice9076390764%_ '0)))) + (if (gx#stx-pair? _%tl8486785696%_) + (let ((_%e8487485699%_ + (gx#syntax-e _%tl8486785696%_))) + (let ((_%tl8487685706%_ (let () (declare (not safe)) - (##cdr _%e8374284567%_))) - (_%hd8374384571%_ + (##cdr _%e8487485699%_))) + (_%hd8487585703%_ (let () (declare (not safe)) - (##car _%e8374284567%_)))) - (if (gx#stx-null? _%tl8374484574%_) - (_%__match8975189752%_ - _%e8368884644%_ - _%hd8368984648%_ - _%tl8369084651%_ - _%e8369184654%_ - _%hd8369284658%_ - _%tl8369384661%_ - _%e8369484664%_ - _%e8369584668%_ - _%hd8369684672%_ - _%tl8369784675%_ - _%__splice8963189632%_ - _%target8373384561%_ - _%tl8373584564%_ - _%e8374284567%_ - _%hd8374384571%_ - _%tl8374484574%_) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) + (##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)) - (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) + (_%g8481385027%_)))))) + (if (gx#stx-null? _%tl8482985807%_) + (_%__kont9076590766%_ _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_)))))) - (if (gx#stx-null? _%tl8369784675%_) - (_%__kont8963389634%_ _%hd8369684672%_) - (let () (declare (not safe)) (_%g8368183895%_))))) + (_%g8481385027%_)))))) + (if (gx#stx-null? _%tl8482985807%_) + (_%__kont9076590766%_ _%hd8482885804%_) + (let () (declare (not safe)) (_%g8481385027%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8369784675%_) - (_%__kont8963389634%_ - _%hd8369684672%_) + _%tl8482985807%_) + (_%__kont9076590766%_ + _%hd8482885804%_) (let () (declare (not safe)) - (_%g8368183895%_)))))) + (_%g8481385027%_)))))) (let () (declare (not safe)) - (_%g8368183895%_))) - (if (equal? _%e8369484664%_ '2) - (if (gx#stx-pair? _%tl8369384661%_) - (let ((_%e8376984367%_ + (_%g8481385027%_))) + (if (equal? _%e8482685796%_ '2) + (if (gx#stx-pair? _%tl8482585793%_) + (let ((_%e8490185499%_ (gx#syntax-e - _%tl8369384661%_))) - (let ((_%tl8377184374%_ + _%tl8482585793%_))) + (let ((_%tl8490385506%_ (let () (declare (not safe)) - (##cdr _%e8376984367%_))) - (_%hd8377084371%_ + (##cdr _%e8490185499%_))) + (_%hd8490285503%_ (let () (declare (not safe)) - (##car _%e8376984367%_)))) + (##car _%e8490185499%_)))) (if (gx#stx-pair? - _%tl8377184374%_) - (let ((_%e8377284377%_ + _%tl8490385506%_) + (let ((_%e8490485509%_ (gx#syntax-e - _%tl8377184374%_))) - (let ((_%tl8377484384%_ + _%tl8490385506%_))) + (let ((_%tl8490685516%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8377284377%_))) - (_%hd8377384381%_ + (let () (declare (not safe)) (##cdr _%e8490485509%_))) + (_%hd8490585513%_ (let () (declare (not safe)) - (##car _%e8377284377%_)))) - (if (gx#stx-pair? _%hd8377384381%_) - (let ((_%e8377584387%_ (gx#syntax-e _%hd8377384381%_))) - (let ((_%tl8377784394%_ + (##car _%e8490485509%_)))) + (if (gx#stx-pair? _%hd8490585513%_) + (let ((_%e8490785519%_ (gx#syntax-e _%hd8490585513%_))) + (let ((_%tl8490985526%_ (let () (declare (not safe)) - (##cdr _%e8377584387%_))) - (_%hd8377684391%_ + (##cdr _%e8490785519%_))) + (_%hd8490885523%_ (let () (declare (not safe)) - (##car _%e8377584387%_)))) - (if (gx#stx-pair? _%hd8377684391%_) - (let ((_%e8377884397%_ - (gx#syntax-e _%hd8377684391%_))) - (let ((_%tl8378084404%_ + (##car _%e8490785519%_)))) + (if (gx#stx-pair? _%hd8490885523%_) + (let ((_%e8491085529%_ + (gx#syntax-e _%hd8490885523%_))) + (let ((_%tl8491285536%_ (let () (declare (not safe)) - (##cdr _%e8377884397%_))) - (_%hd8377984401%_ + (##cdr _%e8491085529%_))) + (_%hd8491185533%_ (let () (declare (not safe)) - (##car _%e8377884397%_)))) - (if (gx#identifier? _%hd8377984401%_) + (##car _%e8491085529%_)))) + (if (gx#identifier? _%hd8491185533%_) (if (gx#free-identifier=? - |[1]#_g90076_| - _%hd8377984401%_) - (if (gx#stx-pair? _%tl8378084404%_) - (let ((_%e8378184407%_ + |[1]#_g91208_| + _%hd8491185533%_) + (if (gx#stx-pair? _%tl8491285536%_) + (let ((_%e8491385539%_ (gx#syntax-e - _%tl8378084404%_))) - (let ((_%tl8378384414%_ + _%tl8491285536%_))) + (let ((_%tl8491585546%_ (let () (declare (not safe)) - (##cdr _%e8378184407%_))) - (_%hd8378284411%_ + (##cdr _%e8491385539%_))) + (_%hd8491485543%_ (let () (declare (not safe)) - (##car _%e8378184407%_)))) + (##car _%e8491385539%_)))) (if (gx#stx-null? - _%tl8378384414%_) + _%tl8491585546%_) (if (gx#stx-pair? - _%tl8377784394%_) - (let ((_%e8378484417%_ + _%tl8490985526%_) + (let ((_%e8491685549%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8377784394%_))) - (let ((_%tl8378684424%_ + (gx#syntax-e _%tl8490985526%_))) + (let ((_%tl8491885556%_ (let () (declare (not safe)) - (##cdr _%e8378484417%_))) - (_%hd8378584421%_ + (##cdr _%e8491685549%_))) + (_%hd8491785553%_ (let () (declare (not safe)) - (##car _%e8378484417%_)))) - (_%__kont8963589636%_ - _%tl8377484384%_ - _%tl8378684424%_ - _%hd8378584421%_ - _%hd8378284411%_ - _%hd8377084371%_ - _%hd8368984648%_))) - (_%__kont8963789638%_ - _%tl8377484384%_ - _%tl8377784394%_ - _%hd8377684391%_ - _%hd8377084371%_ - _%hd8368984648%_)) - (_%__kont8963789638%_ - _%tl8377484384%_ - _%tl8377784394%_ - _%hd8377684391%_ - _%hd8377084371%_ - _%hd8368984648%_)))) + (##car _%e8491685549%_)))) + (_%__kont9076790768%_ + _%tl8490685516%_ + _%tl8491885556%_ + _%hd8491785553%_ + _%hd8491485543%_ + _%hd8490285503%_ + _%hd8482185780%_))) + (_%__kont9076990770%_ + _%tl8490685516%_ + _%tl8490985526%_ + _%hd8490885523%_ + _%hd8490285503%_ + _%hd8482185780%_)) + (_%__kont9076990770%_ + _%tl8490685516%_ + _%tl8490985526%_ + _%hd8490885523%_ + _%hd8490285503%_ + _%hd8482185780%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8963789638%_ - _%tl8377484384%_ - _%tl8377784394%_ - _%hd8377684391%_ - _%hd8377084371%_ - _%hd8368984648%_)) - (_%__kont8963789638%_ - _%tl8377484384%_ - _%tl8377784394%_ - _%hd8377684391%_ - _%hd8377084371%_ - _%hd8368984648%_)) - (_%__kont8963789638%_ - _%tl8377484384%_ - _%tl8377784394%_ - _%hd8377684391%_ - _%hd8377084371%_ - _%hd8368984648%_)))) - (_%__kont8963789638%_ - _%tl8377484384%_ - _%tl8377784394%_ - _%hd8377684391%_ - _%hd8377084371%_ - _%hd8368984648%_)))) - (if (gx#stx-null? _%hd8377384381%_) - (_%__kont8963989640%_ - _%tl8377484384%_ - _%hd8377084371%_ - _%hd8368984648%_) - (let () (declare (not safe)) (_%g8368183895%_)))))) - (let () (declare (not safe)) (_%g8368183895%_))))) + (_%__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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8368183895%_))) - (if (equal? _%e8369484664%_ '3) + (_%g8481385027%_))) + (if (equal? _%e8482685796%_ '3) (if (gx#stx-pair? - _%tl8369384661%_) - (let ((_%e8383684116%_ + _%tl8482585793%_) + (let ((_%e8496885248%_ (gx#syntax-e - _%tl8369384661%_))) - (let ((_%tl8383884123%_ + _%tl8482585793%_))) + (let ((_%tl8497085255%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8383684116%_))) - (_%hd8383784120%_ - (let () (declare (not safe)) (##car _%e8383684116%_)))) - (if (gx#stx-pair? _%tl8383884123%_) - (let ((_%e8383984126%_ (gx#syntax-e _%tl8383884123%_))) - (let ((_%tl8384184133%_ + (##cdr _%e8496885248%_))) + (_%hd8496985252%_ + (let () (declare (not safe)) (##car _%e8496885248%_)))) + (if (gx#stx-pair? _%tl8497085255%_) + (let ((_%e8497185258%_ (gx#syntax-e _%tl8497085255%_))) + (let ((_%tl8497385265%_ (let () (declare (not safe)) - (##cdr _%e8383984126%_))) - (_%hd8384084130%_ + (##cdr _%e8497185258%_))) + (_%hd8497285262%_ (let () (declare (not safe)) - (##car _%e8383984126%_)))) - (if (gx#stx-pair? _%hd8384084130%_) - (let ((_%e8384284136%_ - (gx#syntax-e _%hd8384084130%_))) - (let ((_%tl8384484143%_ + (##car _%e8497185258%_)))) + (if (gx#stx-pair? _%hd8497285262%_) + (let ((_%e8497485268%_ + (gx#syntax-e _%hd8497285262%_))) + (let ((_%tl8497685275%_ (let () (declare (not safe)) - (##cdr _%e8384284136%_))) - (_%hd8384384140%_ + (##cdr _%e8497485268%_))) + (_%hd8497585272%_ (let () (declare (not safe)) - (##car _%e8384284136%_)))) - (_%__kont8964189642%_ - _%tl8384184133%_ - _%tl8384484143%_ - _%hd8384384140%_ - _%hd8383784120%_ - _%hd8368984648%_))) - (if (gx#stx-pair/null? _%hd8383784120%_) - (let ((_%__splice8964589646%_ + (##car _%e8497485268%_)))) + (_%__kont9077390774%_ + _%tl8497385265%_ + _%tl8497685275%_ + _%hd8497585272%_ + _%hd8496985252%_ + _%hd8482185780%_))) + (if (gx#stx-pair/null? _%hd8496985252%_) + (let ((_%__splice9077790778%_ (gx#syntax-split-splice - _%hd8383784120%_ + _%hd8496985252%_ '0))) - (let ((_%tl8386383939%_ + (let ((_%tl8499585071%_ (let () (declare (not safe)) (##vector-ref - _%__splice8964589646%_ + _%__splice9077790778%_ '1))) - (_%target8386183936%_ + (_%target8499385068%_ (let () (declare (not safe)) (##vector-ref - _%__splice8964589646%_ + _%__splice9077790778%_ '0)))) - (if (gx#stx-null? _%tl8386383939%_) - (_%__match8997389974%_ - _%e8368884644%_ - _%hd8368984648%_ - _%tl8369084651%_ - _%e8369184654%_ - _%hd8369284658%_ - _%tl8369384661%_ - _%e8369484664%_ - _%e8383684116%_ - _%hd8383784120%_ - _%tl8383884123%_ - _%__splice8964589646%_ - _%target8386183936%_ - _%tl8386383939%_) + (if (gx#stx-null? _%tl8499585071%_) + (_%__match9110591106%_ + _%e8482085776%_ + _%hd8482185780%_ + _%tl8482285783%_ + _%e8482385786%_ + _%hd8482485790%_ + _%tl8482585793%_ + _%e8482685796%_ + _%e8496885248%_ + _%hd8496985252%_ + _%tl8497085255%_ + _%__splice9077790778%_ + _%target8499385068%_ + _%tl8499585071%_) (let () (declare (not safe)) - (_%g8368183895%_))))) + (_%g8481385027%_))))) (let () (declare (not safe)) - (_%g8368183895%_)))))) - (if (gx#stx-pair/null? _%hd8383784120%_) - (let ((_%__splice8964589646%_ - (gx#syntax-split-splice _%hd8383784120%_ '0))) - (let ((_%tl8386383939%_ + (_%g8481385027%_)))))) + (if (gx#stx-pair/null? _%hd8496985252%_) + (let ((_%__splice9077790778%_ + (gx#syntax-split-splice _%hd8496985252%_ '0))) + (let ((_%tl8499585071%_ (let () (declare (not safe)) - (##vector-ref _%__splice8964589646%_ '1))) - (_%target8386183936%_ + (##vector-ref _%__splice9077790778%_ '1))) + (_%target8499385068%_ (let () (declare (not safe)) - (##vector-ref _%__splice8964589646%_ '0)))) - (if (gx#stx-null? _%tl8386383939%_) - (_%__match8997389974%_ - _%e8368884644%_ - _%hd8368984648%_ - _%tl8369084651%_ - _%e8369184654%_ - _%hd8369284658%_ - _%tl8369384661%_ - _%e8369484664%_ - _%e8383684116%_ - _%hd8383784120%_ - _%tl8383884123%_ - _%__splice8964589646%_ - _%target8386183936%_ - _%tl8386383939%_) + (##vector-ref _%__splice9077790778%_ '0)))) + (if (gx#stx-null? _%tl8499585071%_) + (_%__match9110591106%_ + _%e8482085776%_ + _%hd8482185780%_ + _%tl8482285783%_ + _%e8482385786%_ + _%hd8482485790%_ + _%tl8482585793%_ + _%e8482685796%_ + _%e8496885248%_ + _%hd8496985252%_ + _%tl8497085255%_ + _%__splice9077790778%_ + _%target8499385068%_ + _%tl8499585071%_) (let () (declare (not safe)) - (_%g8368183895%_))))) - (let () (declare (not safe)) (_%g8368183895%_)))))) + (_%g8481385027%_))))) + (let () (declare (not safe)) (_%g8481385027%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8368183895%_))) + (_%g8481385027%_))) (let () (declare (not safe)) - (_%g8368183895%_)))))) + (_%g8481385027%_)))))) (let () (declare (not safe)) - (_%g8368183895%_))))) - (let () (declare (not safe)) (_%g8368183895%_))))) - (let () (declare (not safe)) (_%g8368183895%_)))))))))) + (_%g8481385027%_))))) + (let () (declare (not safe)) (_%g8481385027%_))))) + (let () (declare (not safe)) (_%g8481385027%_)))))))))) diff --git a/src/bootstrap/gerbil/runtime~0.scm b/src/bootstrap/gerbil/runtime~0.scm index 30d045292..e6a98ebd7 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 1713454410) '#!void) +(begin (define gerbil/runtime::timestamp 1713631266) '#!void) diff --git a/src/gerbil/core.ss b/src/gerbil/core.ss index 3e771e17b..bda76d02c 100644 --- a/src/gerbil/core.ss +++ b/src/gerbil/core.ss @@ -33,7 +33,8 @@ package: gerbil "core/more-sugar" "core/module-sugar" "core/contract") - lambda case-lambda let def def* defmethod defclass defstruct set!) + lambda case-lambda let def def* defmethod defclass defstruct set! + do do-while) (rename: %%app-dotted %%app) (rename: %%ref-dotted %%ref) (rename: %%set-dotted! set!) @@ -45,6 +46,8 @@ package: gerbil (rename: defmethod/c defmethod) (rename: defclass/c defclass) (rename: defstruct/c defstruct) + (rename: do/c do) + (rename: do-while/c do-while) (phi: +1 (except-out (import: "core/runtime" @@ -56,7 +59,8 @@ package: gerbil "core/expander" "core/macro-object" "core/more-syntax-sugar") - lambda case-lambda let def def* defmethod defclass defstruct set!) + lambda case-lambda let def def* defmethod defclass defstruct set! + do do-while) (rename: %%app-dotted %%app) (rename: %%ref-dotted %%ref) (rename: %%set-dotted! set!) @@ -67,6 +71,8 @@ package: gerbil (rename: def*/c def*) (rename: defmethod/c defmethod) (rename: defclass/c defclass) - (rename: defstruct/c defstruct)) + (rename: defstruct/c defstruct) + (rename: do/c do) + (rename: do-while/c do-while)) (phi: +2 (import: "core/runtime" "core/expander"))) diff --git a/src/gerbil/core/contract.ss b/src/gerbil/core/contract.ss index 4981eee7d..de63260a8 100644 --- a/src/gerbil/core/contract.ss +++ b/src/gerbil/core/contract.ss @@ -1873,7 +1873,7 @@ package: gerbil/core (def (unchecked-id . in) (with-procedure-signature (#f return #f) (with-procedure-unchecked-contract signature - body ...)))))) + body ...)))))) (syntax-case stx (=>) ((_ (id . args) => return body ...) @@ -2002,9 +2002,9 @@ package: gerbil/core (proc (syntax/loc stx (lambda/c (receiver . args) - (using (self receiver ::- Type) - (with-receiver self - (let () body ...))))))) + (using (self receiver ::- Type) + (with-receiver self + (let () body ...))))))) #'(defmethod (@method~ method Type) proc . rest))) ((_ {method Type} (case-lambda/c ((self . args) body ...) ...) . rest) (and (identifier-list? #'(self ...)) @@ -2017,7 +2017,7 @@ package: gerbil/core ((receiver . args) (using (self receiver ::- Type) (with-receiver self - (let () body ...)))) + (let () body ...)))) ...)))) #'(defmethod (@method~ method Type) proc . rest))) ((_ {method Type} . body) @@ -2240,19 +2240,19 @@ package: gerbil/core (for-each (lambda (slot) (for-each - (lambda (super-type) - (let (klass (syntax-local-value super-type)) - (cond - ((hash-get tab slot) - => (lambda (a) - (cond - ((getf klass slot) - => (lambda (b) - (hash-put! tab slot (mixf slot a b))))))) - ((getf klass slot) - => (lambda (a) - (hash-put! tab slot a)))))) - super)) + (lambda (super-type) + (let (klass (syntax-local-value super-type)) + (cond + ((hash-get tab slot) + => (lambda (a) + (cond + ((getf klass slot) + => (lambda (b) + (hash-put! tab slot (mixf slot a b))))))) + ((getf klass slot) + => (lambda (a) + (hash-put! tab slot a)))))) + super)) mixin-slots) (for-each (lambda (slot-spec) @@ -2461,9 +2461,9 @@ package: gerbil/core ((slot ...) slots) ((ordered-slot ...) ordered-slots) - ((getf ...) ; no contract + ((getf ...) ; no contract (stx-map (cut make-id name "-" <>) slots)) - ((setf ...) ; with contract, if any + ((setf ...) ; with contract, if any (stx-map (cut make-id name "-" <> "-set!") slots)) ((rawsetf ...) ; without contract, defclass-type (stx-map (cut make-id name "-unchecked-" <> "-set!") slots)) @@ -2506,18 +2506,18 @@ package: gerbil/core (else [mixin: (map - (lambda (slot getf setf rawsetf) - (with-syntax ((slot slot) - (getf getf) - (setf setf) - (rawsetf rawsetf)) - (if (hash-get slot-contract-table (stx-e #'slot)) - #'(slot getf rawsetf) - #'(slot getf setf)))) - #'(mixin-slot ...) - #'(mixin-getf ...) - #'(mixin-setf ...) - #'(mixin-rawsetf ...))]))) + (lambda (slot getf setf rawsetf) + (with-syntax ((slot slot) + (getf getf) + (setf setf) + (rawsetf rawsetf)) + (if (hash-get slot-contract-table (stx-e #'slot)) + #'(slot getf rawsetf) + #'(slot getf setf)))) + #'(mixin-slot ...) + #'(mixin-getf ...) + #'(mixin-setf ...) + #'(mixin-rawsetf ...))]))) ((values type-name) [name: (or (stx-getq name: body) id)]) ((values type-id) @@ -2585,10 +2585,10 @@ package: gerbil/core #'make-type #f)) (defklass - (wrap - #'(defclass-type type::t type-super - raw-make type? - type-body ...))) + (wrap + #'(defclass-type type::t type-super + raw-make type? + type-body ...))) (meta-type-id (with-syntax (((id: id) type-id)) #'(quote id))) @@ -2656,87 +2656,87 @@ package: gerbil/core #'(mixin-rawsetf ...)))) #'[slot-usetf ... mixin-slot-usetf ...])) (defmeta - (wrap - #'(defsyntax type - (make-class-type-info - id: meta-type-id - name: meta-type-name - slots: meta-type-slots - ordered-slots: meta-type-ordered-slots - super: meta-type-super - struct?: meta-type-struct? - final?: meta-type-final? - metaclass: meta-type-metaclass - constructor-method: meta-type-constructor-method - type-descriptor: meta-type-descriptor - constructor: meta-type-constructor - predicate: meta-type-predicate - accessors: meta-type-accessors - mutators: meta-type-mutators - unchecked-accessors: meta-type-unchecked-accessors - unchecked-mutators: meta-type-unchecked-mutators - slot-types: meta-type-slot-types - slot-contracts: meta-type-slot-contracts - slot-defaults: meta-type-slot-defaults)))) + (wrap + #'(defsyntax type + (make-class-type-info + id: meta-type-id + name: meta-type-name + slots: meta-type-slots + ordered-slots: meta-type-ordered-slots + super: meta-type-super + struct?: meta-type-struct? + final?: meta-type-final? + metaclass: meta-type-metaclass + constructor-method: meta-type-constructor-method + type-descriptor: meta-type-descriptor + constructor: meta-type-constructor + predicate: meta-type-predicate + accessors: meta-type-accessors + mutators: meta-type-mutators + unchecked-accessors: meta-type-unchecked-accessors + unchecked-mutators: meta-type-unchecked-mutators + slot-types: meta-type-slot-types + slot-contracts: meta-type-slot-contracts + slot-defaults: meta-type-slot-defaults)))) (defmake - (cond - ((or (not (null? type-constructor)) - (and (zero? (hash-length slot-contract-table)) - (zero? (hash-length slot-default-table))) - metaclass) - ;; use the raw constructor from defclass-type - #'(begin)) - ;; synthesize struct constructor procedure - ((and struct? (zero? (hash-length slot-default-table))) - ;; no defaults -- define plain struct constructor - (with-syntax ((contract - (foldr - (lambda (slot r) - (cond - ((hash-get slot-contract-table (stx-e slot)) - => (lambda (contract) - (with-syntax ((slot slot) - ((contract ...) contract)) - (cons #'(slot contract ... ) - r)))) - (else - (cons slot r)))) - [] - #'(ordered-slot ...))) - (type::t (core-quote-syntax #'type::t))) - (wrap - #'(def/c (make-type . contract) => type - (begin-annotation (@type type::t) - (##structure type::t ordered-slot ...)))))) - (else - ;; define keyword constructor - (with-syntax ((contract - (foldr - (lambda (slot r) - (let (default (hash-get slot-default-table (stx-e slot))) - (cond - ((hash-get slot-contract-table (stx-e slot)) - => (lambda (contract) - (with-syntax ((slot slot) - ((contract ...) contract) - ((default ...) - (if default - [':= default] - []))) - (cons* (symbol->keyword (stx-e #'slot)) - #'(slot contract ... default ...) - r)))) - (else - (cons* (symbol->keyword (stx-e slot)) - [slot default] - r))))) - [] - #'(ordered-slot ...))) - (type::t (core-quote-syntax #'type::t))) - (wrap - #'(def/c (make-type . contract) => type - (begin-annotation (@type type::t) - (##structure type::t ordered-slot ...)))))))) + (cond + ((or (not (null? type-constructor)) + (and (zero? (hash-length slot-contract-table)) + (zero? (hash-length slot-default-table))) + metaclass) + ;; use the raw constructor from defclass-type + #'(begin)) + ;; synthesize struct constructor procedure + ((and struct? (zero? (hash-length slot-default-table))) + ;; no defaults -- define plain struct constructor + (with-syntax ((contract + (foldr + (lambda (slot r) + (cond + ((hash-get slot-contract-table (stx-e slot)) + => (lambda (contract) + (with-syntax ((slot slot) + ((contract ...) contract)) + (cons #'(slot contract ... ) + r)))) + (else + (cons slot r)))) + [] + #'(ordered-slot ...))) + (type::t (core-quote-syntax #'type::t))) + (wrap + #'(def/c (make-type . contract) => type + (begin-annotation (@type type::t) + (##structure type::t ordered-slot ...)))))) + (else + ;; define keyword constructor + (with-syntax ((contract + (foldr + (lambda (slot r) + (let (default (hash-get slot-default-table (stx-e slot))) + (cond + ((hash-get slot-contract-table (stx-e slot)) + => (lambda (contract) + (with-syntax ((slot slot) + ((contract ...) contract) + ((default ...) + (if default + [':= default] + []))) + (cons* (symbol->keyword (stx-e #'slot)) + #'(slot contract ... default ...) + r)))) + (else + (cons* (symbol->keyword (stx-e slot)) + [slot default] + r))))) + [] + #'(ordered-slot ...))) + (type::t (core-quote-syntax #'type::t))) + (wrap + #'(def/c (make-type . contract) => type + (begin-annotation (@type type::t) + (##structure type::t ordered-slot ...)))))))) ((defsetf ...) (filter identity @@ -2762,6 +2762,35 @@ package: gerbil/core (defrule (defstruct/c hd slots . body) (defclass/c hd slots struct: #t . body)) + (defsyntax (do/c stx) + (syntax-case stx () + ((_ ((var/c init step ...) ...) + (test fini ...) + body ...) + (with-syntax (((var ...) + (map (lambda (b) (if (identifier? b) b (stx-car b))) + #'(var/c ...)))) + #'(let/c $loop ((var/c init) ...) + (if test + (do-loop-result fini ...) + (let () body ... ($loop (do-loop-step var step ...) ...)))))))) + + (defrules do-loop-result () + ((_) #!void) + ((_ expr) expr) + ((_ expr rest ...) + (begin expr rest ...))) + + (defrules do-loop-step () + ((_ var) var) + ((_ var expr) expr) + ((_ var expr rest ...) + (begin expr rest ...))) + + (defrules do-while/c () + ((_ hd (test . fini) . body) + (do/c hd ((not test) . fini) . body))) + (defsyntax (defmutable* stx) (syntax-case stx () ((_ var value ~ . contract) diff --git a/src/gerbil/core/match.ss b/src/gerbil/core/match.ss index 8ab5f5b48..70e86d83e 100644 --- a/src/gerbil/core/match.ss +++ b/src/gerbil/core/match.ss @@ -294,7 +294,7 @@ package: gerbil/core ((cons: hd tl) (with-syntax (($hd (genident 'hd)) ($tl (genident 'tl))) - ['if #'(##pair? target) + ['if #'(pair? target) (let ((hd-pat (stx-e #'hd)) (tl-pat (stx-e #'tl))) (cond @@ -315,12 +315,12 @@ package: gerbil/core E)]))) E])) ((null:) - ['if #'(##null? target) K E]) + ['if #'(null? target) K E]) ((splice: hd rest) (generate-splice tgt #'hd #'rest K E)) ((box: pat) (with-syntax (($tgt (genident 'e))) - ['if #'(##box? target) + ['if #'(box? target) ['let #'(($tgt (##unbox target))) (generate1 #'$tgt #'pat K E)] E])) @@ -337,13 +337,13 @@ package: gerbil/core (syntax-case #'body () ((simple: body) (with-syntax ((len (stx-length #'body))) - ['if #'(##vector? target) + ['if #'(vector? target) ['if #'(##fx= (##vector-length target) len) (generate-simple-vector tgt #'body 0 K E) E] E])) ((list: body) - ['if #'(##vector? target) + ['if #'(vector? target) (generate-list-vector tgt #'body 'vector->list K E) E]))) ((struct: info body)